/*===========================================================================*/
/*   (Reduce/copy.scm)                                                       */
/*   Bigloo (2.6b)                                                           */
/*   Inria -- Sophia Antipolis (c)       Mon Dec 15 12:14:36 CET 2003        */
/*===========================================================================*/
/* COMPILATION: (/users/serrano/prgm/project/bigloo/bin/bigloo -q -afile .afile -fsharing -fno-reflection -cc gcc-2.95 -lib-dir /users/serrano/prgm/project/bigloo/lib/2.6b -unsafev -no-hello -O2 -rm -unsafe -s -indent Reduce/copy.scm)*/
/* GC selection */
#define THE_GC BOEHM_GC

#include <bigloo.h>


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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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


static obj_t BGl_methodzd2initzd2zzreduce_copyz00();
BGL_IMPORT obj_t open_input_string(obj_t);
extern obj_t BGl_letzd2funzd2zzast_nodez00;
static obj_t BGl_nodezd2copyz12zd2fail2729z12zzreduce_copyz00(obj_t, obj_t);
BGL_IMPORT obj_t BGl_readz00zz__readerz00(obj_t);
BGL_IMPORT bool_t BGl_iszd2azf3z21zz__objectz00(obj_t, obj_t);
static obj_t BGl_nodezd2copyz12zd2select2731z12zzreduce_copyz00(obj_t, obj_t);
static obj_t BGl_nodezd2copyz12zd2makezd2box2742zc0zzreduce_copyz00(obj_t, obj_t);
BGL_IMPORT obj_t BGl_addzd2genericz12zc0zz__objectz00(obj_t, obj_t);
extern obj_t BGl_letzd2varzd2zzast_nodez00;
extern obj_t BGl_kwotez00zzast_nodez00;
static BgL_nodez00_bglt BGl_nodezd2copyz12zc0zzreduce_copyz00(BgL_nodez00_bglt);
static obj_t BGl_nodezd2copyz12zd2sequence2715z12zzreduce_copyz00(obj_t, obj_t);
extern obj_t BGl_castz00zzast_nodez00;
extern obj_t BGl_boxzd2refzd2zzast_nodez00;
extern obj_t BGl_varz00zzast_nodez00;
static obj_t BGl_cnstzd2initzd2zzreduce_copyz00();
static obj_t BGl_nodezd2copyz12zd2atom2707z12zzreduce_copyz00(obj_t, obj_t);
extern obj_t BGl_atomz00zzast_nodez00;
extern obj_t BGl_failz00zzast_nodez00;
extern obj_t BGl_funcallz00zzast_nodez00;
static obj_t BGl_nodezd2copyz12zd2boxzd2setz122744zd2zzreduce_copyz00(obj_t, obj_t);
static obj_t BGl_nodezd2copyz12zd2appzd2ly2717zc0zzreduce_copyz00(obj_t, obj_t);
static obj_t BGl_nodezd2copyz12zd2jumpzd2exzd2it2740z12zzreduce_copyz00(obj_t, obj_t);
static obj_t BGl_importedzd2moduleszd2initz00zzreduce_copyz00();
extern obj_t BGl_makezd2boxzd2zzast_nodez00;
static obj_t BGl_nodezd2copyz12zd2funcall2719z12zzreduce_copyz00(obj_t, obj_t);
static obj_t BGl_nodezd2copyz12zd2var2711z12zzreduce_copyz00(obj_t, obj_t);
BGL_IMPORT obj_t BGl_addzd2methodz12zc0zz__objectz00(obj_t, obj_t, obj_t);
extern obj_t BGl_selectz00zzast_nodez00;
static obj_t BGl_toplevelzd2initzd2zzreduce_copyz00();
extern obj_t BGl_appzd2lyzd2zzast_nodez00;
extern obj_t BGl_boxzd2setz12zc0zzast_nodez00;
static obj_t BGl_nodezd2copyz12zd2setq2725z12zzreduce_copyz00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_modulezd2initializa7ationz75zzreduce_copyz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zztools_tracez00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zztools_shapez00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zztools_speekz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zztools_errorz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zztype_typez00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zztype_cachez00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zztype_typeofz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzcoerce_coercez00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzeffect_effectz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzast_varz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzast_nodez00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzast_alphatiza7eza7(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzast_lvtypez00(long, char *);
BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__objectz00(long, char *);
BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__readerz00(long, char *);
extern obj_t BGl_verbosez00zztools_speekz00(obj_t, obj_t);
static obj_t BGl_nodezd2copyz12zd2letzd2fun2733zc0zzreduce_copyz00(obj_t, obj_t);
static obj_t BGl_nodezd2copyz12zd2setzd2exzd2it2737z12zzreduce_copyz00(obj_t, obj_t);
static obj_t BGl_nodezd2copyz12zd2closure2713z12zzreduce_copyz00(obj_t, obj_t);
static BgL_nodez00_bglt BGl_nodezd2copyz12zd2default2703z12zzreduce_copyz00(BgL_nodez00_bglt);
extern obj_t BGl_setzd2exzd2itz00zzast_nodez00;
static obj_t BGl__nodezd2copyz12zd2default2703z12zzreduce_copyz00(obj_t, obj_t);
static obj_t BGl_nodezd2copyz12zd2letzd2var2735zc0zzreduce_copyz00(obj_t, obj_t);
static obj_t BGl_nodezd2copyz12zd2extern2721z12zzreduce_copyz00(obj_t, obj_t);
static obj_t BGl_nodezd2copyz12zd2kwote2709z12zzreduce_copyz00(obj_t, obj_t);
extern obj_t BGl_jumpzd2exzd2itz00zzast_nodez00;
static obj_t BGl__reducezd2copyz12zc0zzreduce_copyz00(obj_t, obj_t);
extern obj_t BGl_externz00zzast_nodez00;
extern obj_t BGl_conditionalz00zzast_nodez00;
extern obj_t BGl_sequencez00zzast_nodez00;
extern BgL_nodez00_bglt BGl_alphatiza7eza7zzast_alphatiza7eza7(obj_t, obj_t, obj_t, BgL_nodez00_bglt);
extern obj_t BGl_appz00zzast_nodez00;
static obj_t BGl_nodezd2copyz12zd2cast2723z12zzreduce_copyz00(obj_t, obj_t);
static obj_t BGl_nodezd2copyz12zd2conditional2727z12zzreduce_copyz00(obj_t, obj_t);
extern obj_t BGl_closurez00zzast_nodez00;
BGL_EXPORTED_DECL obj_t BGl_reducezd2copyz12zc0zzreduce_copyz00(obj_t);
static obj_t BGl_nodezd2copyza2z12z62zzreduce_copyz00(obj_t);
static obj_t BGl_requirezd2initializa7ationz75zzreduce_copyz00 = BUNSPEC;
static obj_t BGl__nodezd2copyz123628zc0zzreduce_copyz00(obj_t, obj_t);
static obj_t BGl_nodezd2copyz12zd2app2748z12zzreduce_copyz00(obj_t, obj_t);
static obj_t BGl_libraryzd2moduleszd2initz00zzreduce_copyz00();
static obj_t BGl_nodezd2copyz12zd2boxzd2ref2746zc0zzreduce_copyz00(obj_t, obj_t);
static long BGl_za2copyzd2removedza2zd2zzreduce_copyz00;
extern obj_t BGl_setqz00zzast_nodez00;
static obj_t __cnst[ 3 ] ;


DEFINE_STATIC_PROCEDURE( BGl_proc4136z00zzreduce_copyz00, BgL_bgl_nodeza7d2copyza712za7d2atom2707za712za7za7reduce_copyza7004187za7, BGl_nodezd2copyz12zd2atom2707z12zzreduce_copyz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc4137z00zzreduce_copyz00, BgL_bgl_nodeza7d2copyza712za7d2kwote2709za712za7za7reduce_copyza7004188za7, BGl_nodezd2copyz12zd2kwote2709z12zzreduce_copyz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc4138z00zzreduce_copyz00, BgL_bgl_nodeza7d2copyza712za7d2var2711za712za7za7reduce_copyza7004189za7, BGl_nodezd2copyz12zd2var2711z12zzreduce_copyz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc4140z00zzreduce_copyz00, BgL_bgl_nodeza7d2copyza712za7d2sequence2715za712za7za7reduce_copyza7004190za7, BGl_nodezd2copyz12zd2sequence2715z12zzreduce_copyz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc4139z00zzreduce_copyz00, BgL_bgl_nodeza7d2copyza712za7d2closure2713za712za7za7reduce_copyza7004191za7, BGl_nodezd2copyz12zd2closure2713z12zzreduce_copyz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc4141z00zzreduce_copyz00, BgL_bgl_nodeza7d2copyza712za7d2appza7d2ly2717za7c0za7za7reduce_copyza7004192z00, BGl_nodezd2copyz12zd2appzd2ly2717zc0zzreduce_copyz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc4142z00zzreduce_copyz00, BgL_bgl_nodeza7d2copyza712za7d2funcall2719za712za7za7reduce_copyza7004193za7, BGl_nodezd2copyz12zd2funcall2719z12zzreduce_copyz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc4143z00zzreduce_copyz00, BgL_bgl_nodeza7d2copyza712za7d2extern2721za712za7za7reduce_copyza7004194za7, BGl_nodezd2copyz12zd2extern2721z12zzreduce_copyz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc4144z00zzreduce_copyz00, BgL_bgl_nodeza7d2copyza712za7d2cast2723za712za7za7reduce_copyza7004195za7, BGl_nodezd2copyz12zd2cast2723z12zzreduce_copyz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc4145z00zzreduce_copyz00, BgL_bgl_nodeza7d2copyza712za7d2setq2725za712za7za7reduce_copyza7004196za7, BGl_nodezd2copyz12zd2setq2725z12zzreduce_copyz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc4146z00zzreduce_copyz00, BgL_bgl_nodeza7d2copyza712za7d2conditional2727za712za7za7reduce_copyza7004197za7, BGl_nodezd2copyz12zd2conditional2727z12zzreduce_copyz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc4147z00zzreduce_copyz00, BgL_bgl_nodeza7d2copyza712za7d2fail2729za712za7za7reduce_copyza7004198za7, BGl_nodezd2copyz12zd2fail2729z12zzreduce_copyz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc4148z00zzreduce_copyz00, BgL_bgl_nodeza7d2copyza712za7d2select2731za712za7za7reduce_copyza7004199za7, BGl_nodezd2copyz12zd2select2731z12zzreduce_copyz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc4150z00zzreduce_copyz00, BgL_bgl_nodeza7d2copyza712za7d2letza7d2var2735za7c0za7za7reduce_copyza7004200z00, BGl_nodezd2copyz12zd2letzd2var2735zc0zzreduce_copyz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc4149z00zzreduce_copyz00, BgL_bgl_nodeza7d2copyza712za7d2letza7d2fun2733za7c0za7za7reduce_copyza7004201z00, BGl_nodezd2copyz12zd2letzd2fun2733zc0zzreduce_copyz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc4151z00zzreduce_copyz00, BgL_bgl_nodeza7d2copyza712za7d2setza7d2exza7d2it2737za712za7za7reduce_copyza7004202za7, BGl_nodezd2copyz12zd2setzd2exzd2it2737z12zzreduce_copyz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc4152z00zzreduce_copyz00, BgL_bgl_nodeza7d2copyza712za7d2jumpza7d2exza7d2it2740za712za7za7reduce_copyza7004203za7, BGl_nodezd2copyz12zd2jumpzd2exzd2it2740z12zzreduce_copyz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc4153z00zzreduce_copyz00, BgL_bgl_nodeza7d2copyza712za7d2makeza7d2box2742za7c0za7za7reduce_copyza7004204z00, BGl_nodezd2copyz12zd2makezd2box2742zc0zzreduce_copyz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc4154z00zzreduce_copyz00, BgL_bgl_nodeza7d2copyza712za7d2boxza7d2setza7122744za7d2za7za7reduce_copyza7004205za7, BGl_nodezd2copyz12zd2boxzd2setz122744zd2zzreduce_copyz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc4155z00zzreduce_copyz00, BgL_bgl_nodeza7d2copyza712za7d2boxza7d2ref2746za7c0za7za7reduce_copyza7004206z00, BGl_nodezd2copyz12zd2boxzd2ref2746zc0zzreduce_copyz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc4156z00zzreduce_copyz00, BgL_bgl_nodeza7d2copyza712za7d2app2748za712za7za7reduce_copyza7004207za7, BGl_nodezd2copyz12zd2app2748z12zzreduce_copyz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_nodezd2copyz12zd2default2703zd2envzc0zzreduce_copyz00, BgL_bgl__nodeza7d2copyza712za7d2default2703za712za7za7reduce_copyza7004208za7, BGl__nodezd2copyz12zd2default2703z12zzreduce_copyz00, 0L, 1 );
DEFINE_STRING( BGl_string4158z00zzreduce_copyz00, BgL_bgl_string4158za700za7za7reduce_copyza7004209z00, "node-copy!-default2703 read done ", 33 );
DEFINE_STRING( BGl_string4157z00zzreduce_copyz00, BgL_bgl_string4157za700za7za7reduce_copyza7004210z00, "No method for this object", 25 );
DEFINE_STRING( BGl_string4135z00zzreduce_copyz00, BgL_bgl_string4135za700za7za7reduce_copyza7004211z00, "(removed : ", 11 );
DEFINE_STRING( BGl_string4134z00zzreduce_copyz00, BgL_bgl_string4134za700za7za7reduce_copyza7004212z00, "      copy propagation       ", 29 );
DEFINE_EXPORT_PROCEDURE( BGl_reducezd2copyz12zd2envz12zzreduce_copyz00, BgL_bgl__reduceza7d2copyza712za7c0za7za7reduce_copyza7004213z00, BGl__reducezd2copyz12zc0zzreduce_copyz00, 0L, 1 );
DEFINE_STATIC_GENERIC( BGl_nodezd2copyz12zd2envz12zzreduce_copyz00, BgL_bgl__nodeza7d2copyza7123628za7c0za7za7reduce_copyza7004214z00, BGl__nodezd2copyz123628zc0zzreduce_copyz00, 0L, 1 );



/* module-initialization */
BGL_EXPORTED_DEF obj_t BGl_modulezd2initializa7ationz75zzreduce_copyz00(long BgL_checksumz00_2335, char * BgL_fromz00_2336)
{ AN_OBJECT;
{ 
if(
CBOOL(BGl_requirezd2initializa7ationz75zzreduce_copyz00))
{ 
BGl_requirezd2initializa7ationz75zzreduce_copyz00 = 
BBOOL(((bool_t)0)); 
BGl_libraryzd2moduleszd2initz00zzreduce_copyz00(); 
BGl_cnstzd2initzd2zzreduce_copyz00(); 
BGl_importedzd2moduleszd2initz00zzreduce_copyz00(); 
BGl_methodzd2initzd2zzreduce_copyz00(); 
BGl_toplevelzd2initzd2zzreduce_copyz00(); 
return BUNSPEC;}  else 
{ 
return BUNSPEC;} } 
}



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



/* cnst-init */
obj_t BGl_cnstzd2initzd2zzreduce_copyz00()
{ AN_OBJECT;
{ /* ./Reduce/copy.scm 15 */
{ /* ./Reduce/copy.scm 15 */
obj_t BgL_cportz00_2322;
BgL_cportz00_2322 = 
open_input_string(BGl_string4158z00zzreduce_copyz00); 
{ 
long BgL_iz00_2323;
BgL_iz00_2323 = ((long)2); 
BgL_loopz00_2324:
{ /* ./Reduce/copy.scm 15 */
bool_t BgL_test4160z00_2325;
BgL_test4160z00_2325 = 
(BgL_iz00_2323==((long)-1)); 
if(BgL_test4160z00_2325)
{ /* ./Reduce/copy.scm 15 */
return BUNSPEC;}  else 
{ /* ./Reduce/copy.scm 15 */
{ /* ./Reduce/copy.scm 15 */
obj_t BgL_arg4162z00_2326;
{ /* ./Reduce/copy.scm 15 */
obj_t BgL_list4165z00_2327;
BgL_list4165z00_2327 = 
MAKE_PAIR(BgL_cportz00_2322, BNIL); 
BgL_arg4162z00_2326 = 
BGl_readz00zz__readerz00(BgL_list4165z00_2327); } 
{ /* ./Reduce/copy.scm 15 */
int BgL_auxz00_2352;
BgL_auxz00_2352 = 
(int)(BgL_iz00_2323); 
CNST_TABLE_SET(BgL_auxz00_2352, BgL_arg4162z00_2326); } } 
{ /* ./Reduce/copy.scm 15 */
int BgL_auxz00_2328;
{ /* ./Reduce/copy.scm 15 */
long BgL_auxz00_2355;
BgL_auxz00_2355 = 
(BgL_iz00_2323-((long)1)); 
BgL_auxz00_2328 = 
(int)(BgL_auxz00_2355); } 
{ 
long BgL_iz00_2358;
BgL_iz00_2358 = 
(long)(BgL_auxz00_2328); 
BgL_iz00_2323 = BgL_iz00_2358; 
goto BgL_loopz00_2324;} } } } } } } 
}



/* toplevel-init */
obj_t BGl_toplevelzd2initzd2zzreduce_copyz00()
{ AN_OBJECT;
{ /* ./Reduce/copy.scm 15 */
BGl_za2copyzd2removedza2zd2zzreduce_copyz00 = ((long)0); 
return BUNSPEC;} 
}



/* reduce-copy! */
BGL_EXPORTED_DEF obj_t BGl_reducezd2copyz12zc0zzreduce_copyz00(obj_t BgL_globalsz00_1)
{ AN_OBJECT;
{ /* ./Reduce/copy.scm 34 */
{ /* ./Reduce/copy.scm 35 */
obj_t BgL_list2750z00_683;
BgL_list2750z00_683 = 
MAKE_PAIR(BGl_string4134z00zzreduce_copyz00, BNIL); 
BGl_verbosez00zztools_speekz00(
BINT(((long)2)), BgL_list2750z00_683); } 
BGl_za2copyzd2removedza2zd2zzreduce_copyz00 = ((long)0); 
{ 
obj_t BgL_l2662z00_684;
BgL_l2662z00_684 = BgL_globalsz00_1; 
BgL_forzd2each2663zd2_685:
{ /* ./Reduce/copy.scm 37 */
bool_t BgL_test2753z00_686;
BgL_test2753z00_686 = 
PAIRP(BgL_l2662z00_684); 
if(BgL_test2753z00_686)
{ /* ./Reduce/copy.scm 37 */
{ /* ./Reduce/copy.scm 38 */
obj_t BgL_globalz00_687;
BgL_globalz00_687 = 
CAR(BgL_l2662z00_684); 
{ /* ./Reduce/copy.scm 38 */
BgL_valuez00_bglt BgL_funz00_688;
{ /* ./Reduce/copy.scm 38 */
BgL_variablez00_bglt BgL_obj1100z00_1285;
BgL_obj1100z00_1285 = 
(BgL_variablez00_bglt)(BgL_globalz00_687); 
BgL_funz00_688 = 
(((BgL_variablez00_bglt)CREF(BgL_obj1100z00_1285))->BgL_valuez00); } 
{ /* ./Reduce/copy.scm 38 */
obj_t BgL_nodez00_689;
{ /* ./Reduce/copy.scm 39 */
BgL_sfunz00_bglt BgL_obj1370z00_1286;
BgL_obj1370z00_1286 = 
(BgL_sfunz00_bglt)(BgL_funz00_688); 
BgL_nodez00_689 = 
(((BgL_sfunz00_bglt)CREF(BgL_obj1370z00_1286))->BgL_bodyz00); } 
{ /* ./Reduce/copy.scm 39 */

{ /* ./Reduce/copy.scm 40 */
BgL_nodez00_bglt BgL_arg2755z00_690;
{ /* ./Reduce/copy.scm 40 */
BgL_nodez00_bglt BgL_res3537z00_1313;
{ /* ./Reduce/copy.scm 40 */
BgL_nodez00_bglt BgL_nodez00_1287;
BgL_nodez00_1287 = 
(BgL_nodez00_bglt)(BgL_nodez00_689); 
{ /* ./Reduce/copy.scm 40 */
obj_t BgL_method2705z00_1288;
{ /* ./Reduce/copy.scm 40 */
BgL_objectz00_bglt BgL_objz00_1289;
BgL_objz00_1289 = 
(BgL_objectz00_bglt)(BgL_nodez00_1287); 
{ /* ./Reduce/copy.scm 40 */
long BgL_objzd2classzd2numz00_1290;
BgL_objzd2classzd2numz00_1290 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1289); 
{ /* ./Reduce/copy.scm 40 */
obj_t BgL_arg2017z00_1291;
{ /* ./Reduce/copy.scm 40 */
int BgL_auxz00_2373;
BgL_auxz00_2373 = 
(int)(((long)1)); 
BgL_arg2017z00_1291 = 
PROCEDURE_REF(BGl_nodezd2copyz12zd2envz12zzreduce_copyz00, BgL_auxz00_2373); } 
{ /* ./Reduce/copy.scm 40 */
int BgL_offsetz00_1294;
BgL_offsetz00_1294 = 
(int)(BgL_objzd2classzd2numz00_1290); 
{ /* ./Reduce/copy.scm 40 */
long BgL_offsetz00_1295;
{ /* ./Reduce/copy.scm 40 */
long BgL_auxz00_2377;
BgL_auxz00_2377 = 
(long)(BgL_offsetz00_1294); 
BgL_offsetz00_1295 = 
(BgL_auxz00_2377-OBJECT_TYPE); } 
{ /* ./Reduce/copy.scm 40 */
long BgL_modz00_1296;
{ /* ./Reduce/copy.scm 40 */
int BgL_arg2028z00_1297;
BgL_arg2028z00_1297 = 
(int)(((long)8)); 
{ /* ./Reduce/copy.scm 40 */
long BgL_n2z00_1305;
BgL_n2z00_1305 = 
(long)(BgL_arg2028z00_1297); 
BgL_modz00_1296 = 
(BgL_offsetz00_1295/BgL_n2z00_1305); } } 
{ /* ./Reduce/copy.scm 40 */
long BgL_restz00_1298;
{ /* ./Reduce/copy.scm 40 */
int BgL_arg2024z00_1299;
BgL_arg2024z00_1299 = 
(int)(((long)8)); 
{ /* ./Reduce/copy.scm 40 */
long BgL_n2z00_1308;
BgL_n2z00_1308 = 
(long)(BgL_arg2024z00_1299); 
BgL_restz00_1298 = 
(BgL_offsetz00_1295%BgL_n2z00_1308); } } 
{ /* ./Reduce/copy.scm 40 */

{ /* ./Reduce/copy.scm 40 */
obj_t BgL_bucketz00_1300;
{ /* ./Reduce/copy.scm 40 */
int BgL_kz00_1310;
BgL_kz00_1310 = 
(int)(BgL_modz00_1296); 
BgL_bucketz00_1300 = 
VECTOR_REF(BgL_arg2017z00_1291,BgL_kz00_1310); } 
{ /* ./Reduce/copy.scm 40 */
int BgL_kz00_1312;
BgL_kz00_1312 = 
(int)(BgL_restz00_1298); 
BgL_method2705z00_1288 = 
VECTOR_REF(BgL_bucketz00_1300,BgL_kz00_1312); } } } } } } } } } } 
{ /* ./Reduce/copy.scm 40 */
obj_t BgL_auxz00_2390;
BgL_auxz00_2390 = 
PROCEDURE_ENTRY(BgL_method2705z00_1288)(BgL_method2705z00_1288, 
(obj_t)(BgL_nodez00_1287), BEOA); 
BgL_res3537z00_1313 = 
(BgL_nodez00_bglt)(BgL_auxz00_2390); } } } 
BgL_arg2755z00_690 = BgL_res3537z00_1313; } 
{ /* ./Reduce/copy.scm 40 */
BgL_sfunz00_bglt BgL_obj1373z00_1314;obj_t BgL_val1371z00_1315;
BgL_obj1373z00_1314 = 
(BgL_sfunz00_bglt)(BgL_funz00_688); 
BgL_val1371z00_1315 = 
(obj_t)(BgL_arg2755z00_690); 
((((BgL_sfunz00_bglt)CREF(BgL_obj1373z00_1314))->BgL_bodyz00) = ((obj_t)BgL_val1371z00_1315), BUNSPEC); } } BUNSPEC; } } } } 
{ /* ./Reduce/copy.scm 37 */
obj_t BgL_arg2762z00_691;
BgL_arg2762z00_691 = 
CDR(BgL_l2662z00_684); 
{ 
obj_t BgL_l2662z00_2399;
BgL_l2662z00_2399 = BgL_arg2762z00_691; 
BgL_l2662z00_684 = BgL_l2662z00_2399; 
goto BgL_forzd2each2663zd2_685;} } }  else 
{ /* ./Reduce/copy.scm 37 */((bool_t)1); } } } 
{ /* ./Reduce/copy.scm 43 */
obj_t BgL_list2767z00_692;
{ /* ./Reduce/copy.scm 43 */
obj_t BgL_arg2770z00_694;
{ /* ./Reduce/copy.scm 43 */
obj_t BgL_arg2773z00_695;
{ /* ./Reduce/copy.scm 43 */
obj_t BgL_arg2776z00_696;
{ /* ./Reduce/copy.scm 43 */
obj_t BgL_auxz00_2400;
BgL_auxz00_2400 = 
BCHAR(((unsigned char)'\n')); 
BgL_arg2776z00_696 = 
MAKE_PAIR(BgL_auxz00_2400, BNIL); } 
{ /* ./Reduce/copy.scm 43 */
obj_t BgL_auxz00_2403;
BgL_auxz00_2403 = 
BCHAR(((unsigned char)')')); 
BgL_arg2773z00_695 = 
MAKE_PAIR(BgL_auxz00_2403, BgL_arg2776z00_696); } } 
{ /* ./Reduce/copy.scm 43 */
obj_t BgL_auxz00_2406;
BgL_auxz00_2406 = 
BINT(BGl_za2copyzd2removedza2zd2zzreduce_copyz00); 
BgL_arg2770z00_694 = 
MAKE_PAIR(BgL_auxz00_2406, BgL_arg2773z00_695); } } 
BgL_list2767z00_692 = 
MAKE_PAIR(BGl_string4135z00zzreduce_copyz00, BgL_arg2770z00_694); } 
BGl_verbosez00zztools_speekz00(
BINT(((long)2)), BgL_list2767z00_692); } 
return BgL_globalsz00_1;} 
}



/* _reduce-copy! */
obj_t BGl__reducezd2copyz12zc0zzreduce_copyz00(obj_t BgL_envz00_2253, obj_t BgL_globalsz00_2254)
{ AN_OBJECT;
{ /* ./Reduce/copy.scm 34 */
return 
BGl_reducezd2copyz12zc0zzreduce_copyz00(BgL_globalsz00_2254);} 
}



/* node-copy*! */
obj_t BGl_nodezd2copyza2z12z62zzreduce_copyz00(obj_t BgL_nodeza2za2_25)
{ AN_OBJECT;
{ /* ./Reduce/copy.scm 272 */
{ 
obj_t BgL_nodeza2za2_697;
BgL_nodeza2za2_697 = BgL_nodeza2za2_25; 
BgL_loopz00_698:
{ /* ./Reduce/copy.scm 274 */
bool_t BgL_test2780z00_699;
BgL_test2780z00_699 = 
NULLP(BgL_nodeza2za2_697); 
if(BgL_test2780z00_699)
{ /* ./Reduce/copy.scm 274 */
return 
CNST_TABLE_REF(((long)0));}  else 
{ /* ./Reduce/copy.scm 274 */
{ /* ./Reduce/copy.scm 277 */
BgL_nodez00_bglt BgL_arg2782z00_700;
{ /* ./Reduce/copy.scm 277 */
obj_t BgL_arg2785z00_701;
BgL_arg2785z00_701 = 
CAR(BgL_nodeza2za2_697); 
{ /* ./Reduce/copy.scm 277 */
BgL_nodez00_bglt BgL_res3540z00_1345;
{ /* ./Reduce/copy.scm 277 */
BgL_nodez00_bglt BgL_nodez00_1319;
BgL_nodez00_1319 = 
(BgL_nodez00_bglt)(BgL_arg2785z00_701); 
{ /* ./Reduce/copy.scm 277 */
obj_t BgL_method2705z00_1320;
{ /* ./Reduce/copy.scm 277 */
BgL_objectz00_bglt BgL_objz00_1321;
BgL_objz00_1321 = 
(BgL_objectz00_bglt)(BgL_nodez00_1319); 
{ /* ./Reduce/copy.scm 277 */
long BgL_objzd2classzd2numz00_1322;
BgL_objzd2classzd2numz00_1322 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1321); 
{ /* ./Reduce/copy.scm 277 */
obj_t BgL_arg2017z00_1323;
{ /* ./Reduce/copy.scm 277 */
int BgL_auxz00_2420;
BgL_auxz00_2420 = 
(int)(((long)1)); 
BgL_arg2017z00_1323 = 
PROCEDURE_REF(BGl_nodezd2copyz12zd2envz12zzreduce_copyz00, BgL_auxz00_2420); } 
{ /* ./Reduce/copy.scm 277 */
int BgL_offsetz00_1326;
BgL_offsetz00_1326 = 
(int)(BgL_objzd2classzd2numz00_1322); 
{ /* ./Reduce/copy.scm 277 */
long BgL_offsetz00_1327;
{ /* ./Reduce/copy.scm 277 */
long BgL_auxz00_2424;
BgL_auxz00_2424 = 
(long)(BgL_offsetz00_1326); 
BgL_offsetz00_1327 = 
(BgL_auxz00_2424-OBJECT_TYPE); } 
{ /* ./Reduce/copy.scm 277 */
long BgL_modz00_1328;
{ /* ./Reduce/copy.scm 277 */
int BgL_arg2028z00_1329;
BgL_arg2028z00_1329 = 
(int)(((long)8)); 
{ /* ./Reduce/copy.scm 277 */
long BgL_n2z00_1337;
BgL_n2z00_1337 = 
(long)(BgL_arg2028z00_1329); 
BgL_modz00_1328 = 
(BgL_offsetz00_1327/BgL_n2z00_1337); } } 
{ /* ./Reduce/copy.scm 277 */
long BgL_restz00_1330;
{ /* ./Reduce/copy.scm 277 */
int BgL_arg2024z00_1331;
BgL_arg2024z00_1331 = 
(int)(((long)8)); 
{ /* ./Reduce/copy.scm 277 */
long BgL_n2z00_1340;
BgL_n2z00_1340 = 
(long)(BgL_arg2024z00_1331); 
BgL_restz00_1330 = 
(BgL_offsetz00_1327%BgL_n2z00_1340); } } 
{ /* ./Reduce/copy.scm 277 */

{ /* ./Reduce/copy.scm 277 */
obj_t BgL_bucketz00_1332;
{ /* ./Reduce/copy.scm 277 */
int BgL_kz00_1342;
BgL_kz00_1342 = 
(int)(BgL_modz00_1328); 
BgL_bucketz00_1332 = 
VECTOR_REF(BgL_arg2017z00_1323,BgL_kz00_1342); } 
{ /* ./Reduce/copy.scm 277 */
int BgL_kz00_1344;
BgL_kz00_1344 = 
(int)(BgL_restz00_1330); 
BgL_method2705z00_1320 = 
VECTOR_REF(BgL_bucketz00_1332,BgL_kz00_1344); } } } } } } } } } } 
{ /* ./Reduce/copy.scm 277 */
obj_t BgL_auxz00_2437;
BgL_auxz00_2437 = 
PROCEDURE_ENTRY(BgL_method2705z00_1320)(BgL_method2705z00_1320, 
(obj_t)(BgL_nodez00_1319), BEOA); 
BgL_res3540z00_1345 = 
(BgL_nodez00_bglt)(BgL_auxz00_2437); } } } 
BgL_arg2782z00_700 = BgL_res3540z00_1345; } } 
{ /* ./Reduce/copy.scm 277 */
obj_t BgL_objz00_1347;
BgL_objz00_1347 = 
(obj_t)(BgL_arg2782z00_700); 
SET_CAR(BgL_nodeza2za2_697, BgL_objz00_1347); } } 
{ /* ./Reduce/copy.scm 278 */
obj_t BgL_arg2789z00_702;
BgL_arg2789z00_702 = 
CDR(BgL_nodeza2za2_697); 
{ 
obj_t BgL_nodeza2za2_2445;
BgL_nodeza2za2_2445 = BgL_arg2789z00_702; 
BgL_nodeza2za2_697 = BgL_nodeza2za2_2445; 
goto BgL_loopz00_698;} } } } } } 
}



/* method-init */
obj_t BGl_methodzd2initzd2zzreduce_copyz00()
{ AN_OBJECT;
{ /* ./Reduce/copy.scm 15 */
BGl_addzd2genericz12zc0zz__objectz00(BGl_nodezd2copyz12zd2envz12zzreduce_copyz00, BGl_nodezd2copyz12zd2default2703zd2envzc0zzreduce_copyz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_nodezd2copyz12zd2envz12zzreduce_copyz00, BGl_atomz00zzast_nodez00, BGl_proc4136z00zzreduce_copyz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_nodezd2copyz12zd2envz12zzreduce_copyz00, BGl_kwotez00zzast_nodez00, BGl_proc4137z00zzreduce_copyz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_nodezd2copyz12zd2envz12zzreduce_copyz00, BGl_varz00zzast_nodez00, BGl_proc4138z00zzreduce_copyz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_nodezd2copyz12zd2envz12zzreduce_copyz00, BGl_closurez00zzast_nodez00, BGl_proc4139z00zzreduce_copyz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_nodezd2copyz12zd2envz12zzreduce_copyz00, BGl_sequencez00zzast_nodez00, BGl_proc4140z00zzreduce_copyz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_nodezd2copyz12zd2envz12zzreduce_copyz00, BGl_appzd2lyzd2zzast_nodez00, BGl_proc4141z00zzreduce_copyz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_nodezd2copyz12zd2envz12zzreduce_copyz00, BGl_funcallz00zzast_nodez00, BGl_proc4142z00zzreduce_copyz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_nodezd2copyz12zd2envz12zzreduce_copyz00, BGl_externz00zzast_nodez00, BGl_proc4143z00zzreduce_copyz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_nodezd2copyz12zd2envz12zzreduce_copyz00, BGl_castz00zzast_nodez00, BGl_proc4144z00zzreduce_copyz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_nodezd2copyz12zd2envz12zzreduce_copyz00, BGl_setqz00zzast_nodez00, BGl_proc4145z00zzreduce_copyz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_nodezd2copyz12zd2envz12zzreduce_copyz00, BGl_conditionalz00zzast_nodez00, BGl_proc4146z00zzreduce_copyz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_nodezd2copyz12zd2envz12zzreduce_copyz00, BGl_failz00zzast_nodez00, BGl_proc4147z00zzreduce_copyz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_nodezd2copyz12zd2envz12zzreduce_copyz00, BGl_selectz00zzast_nodez00, BGl_proc4148z00zzreduce_copyz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_nodezd2copyz12zd2envz12zzreduce_copyz00, BGl_letzd2funzd2zzast_nodez00, BGl_proc4149z00zzreduce_copyz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_nodezd2copyz12zd2envz12zzreduce_copyz00, BGl_letzd2varzd2zzast_nodez00, BGl_proc4150z00zzreduce_copyz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_nodezd2copyz12zd2envz12zzreduce_copyz00, BGl_setzd2exzd2itz00zzast_nodez00, BGl_proc4151z00zzreduce_copyz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_nodezd2copyz12zd2envz12zzreduce_copyz00, BGl_jumpzd2exzd2itz00zzast_nodez00, BGl_proc4152z00zzreduce_copyz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_nodezd2copyz12zd2envz12zzreduce_copyz00, BGl_makezd2boxzd2zzast_nodez00, BGl_proc4153z00zzreduce_copyz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_nodezd2copyz12zd2envz12zzreduce_copyz00, BGl_boxzd2setz12zc0zzast_nodez00, BGl_proc4154z00zzreduce_copyz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_nodezd2copyz12zd2envz12zzreduce_copyz00, BGl_boxzd2refzd2zzast_nodez00, BGl_proc4155z00zzreduce_copyz00); 
return 
BGl_addzd2methodz12zc0zz__objectz00(BGl_nodezd2copyz12zd2envz12zzreduce_copyz00, BGl_appz00zzast_nodez00, BGl_proc4156z00zzreduce_copyz00);} 
}



/* node-copy!-app2748 */
obj_t BGl_nodezd2copyz12zd2app2748z12zzreduce_copyz00(obj_t BgL_envz00_2278, obj_t BgL_nodez00_2279)
{ AN_OBJECT;
{ /* ./Reduce/copy.scm 264 */
{ 
BgL_appz00_bglt BgL_nodez00_1275;
{ /* ./Reduce/copy.scm 265 */
BgL_appz00_bglt BgL_auxz00_2468;
BgL_nodez00_1275 = 
(BgL_appz00_bglt)(BgL_nodez00_2279); 
{ /* ./Reduce/copy.scm 265 */
obj_t BgL_arg3511z00_2223;
BgL_arg3511z00_2223 = 
(((BgL_appz00_bglt)CREF(BgL_nodez00_1275))->BgL_argsz00); 
BGl_nodezd2copyza2z12z62zzreduce_copyz00(BgL_arg3511z00_2223); } 
BgL_auxz00_2468 = BgL_nodez00_1275; 
return 
(obj_t)(BgL_auxz00_2468);} } } 
}



/* node-copy!-box-ref2746 */
obj_t BGl_nodezd2copyz12zd2boxzd2ref2746zc0zzreduce_copyz00(obj_t BgL_envz00_2280, obj_t BgL_nodez00_2281)
{ AN_OBJECT;
{ /* ./Reduce/copy.scm 256 */
{ 
BgL_boxzd2refzd2_bglt BgL_nodez00_1267;
{ /* ./Reduce/copy.scm 257 */
BgL_boxzd2refzd2_bglt BgL_auxz00_2473;
BgL_nodez00_1267 = 
(BgL_boxzd2refzd2_bglt)(BgL_nodez00_2281); 
{ /* ./Reduce/copy.scm 258 */
BgL_nodez00_bglt BgL_arg3498z00_1271;
{ /* ./Reduce/copy.scm 258 */
BgL_varz00_bglt BgL_arg3501z00_1272;
BgL_arg3501z00_1272 = 
(((BgL_boxzd2refzd2_bglt)CREF(BgL_nodez00_1267))->BgL_varz00); 
{ /* ./Reduce/copy.scm 258 */
BgL_nodez00_bglt BgL_res3624z00_2219;
{ /* ./Reduce/copy.scm 258 */
BgL_nodez00_bglt BgL_nodez00_2193;
BgL_nodez00_2193 = 
(BgL_nodez00_bglt)(BgL_arg3501z00_1272); 
{ /* ./Reduce/copy.scm 258 */
obj_t BgL_method2705z00_2194;
{ /* ./Reduce/copy.scm 258 */
BgL_objectz00_bglt BgL_objz00_2195;
BgL_objz00_2195 = 
(BgL_objectz00_bglt)(BgL_nodez00_2193); 
{ /* ./Reduce/copy.scm 258 */
long BgL_objzd2classzd2numz00_2196;
BgL_objzd2classzd2numz00_2196 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2195); 
{ /* ./Reduce/copy.scm 258 */
obj_t BgL_arg2017z00_2197;
{ /* ./Reduce/copy.scm 258 */
int BgL_auxz00_2478;
BgL_auxz00_2478 = 
(int)(((long)1)); 
BgL_arg2017z00_2197 = 
PROCEDURE_REF(BGl_nodezd2copyz12zd2envz12zzreduce_copyz00, BgL_auxz00_2478); } 
{ /* ./Reduce/copy.scm 258 */
int BgL_offsetz00_2200;
BgL_offsetz00_2200 = 
(int)(BgL_objzd2classzd2numz00_2196); 
{ /* ./Reduce/copy.scm 258 */
long BgL_offsetz00_2201;
{ /* ./Reduce/copy.scm 258 */
long BgL_auxz00_2482;
BgL_auxz00_2482 = 
(long)(BgL_offsetz00_2200); 
BgL_offsetz00_2201 = 
(BgL_auxz00_2482-OBJECT_TYPE); } 
{ /* ./Reduce/copy.scm 258 */
long BgL_modz00_2202;
{ /* ./Reduce/copy.scm 258 */
int BgL_arg2028z00_2203;
BgL_arg2028z00_2203 = 
(int)(((long)8)); 
{ /* ./Reduce/copy.scm 258 */
long BgL_n2z00_2211;
BgL_n2z00_2211 = 
(long)(BgL_arg2028z00_2203); 
BgL_modz00_2202 = 
(BgL_offsetz00_2201/BgL_n2z00_2211); } } 
{ /* ./Reduce/copy.scm 258 */
long BgL_restz00_2204;
{ /* ./Reduce/copy.scm 258 */
int BgL_arg2024z00_2205;
BgL_arg2024z00_2205 = 
(int)(((long)8)); 
{ /* ./Reduce/copy.scm 258 */
long BgL_n2z00_2214;
BgL_n2z00_2214 = 
(long)(BgL_arg2024z00_2205); 
BgL_restz00_2204 = 
(BgL_offsetz00_2201%BgL_n2z00_2214); } } 
{ /* ./Reduce/copy.scm 258 */

{ /* ./Reduce/copy.scm 258 */
obj_t BgL_bucketz00_2206;
{ /* ./Reduce/copy.scm 258 */
int BgL_kz00_2216;
BgL_kz00_2216 = 
(int)(BgL_modz00_2202); 
BgL_bucketz00_2206 = 
VECTOR_REF(BgL_arg2017z00_2197,BgL_kz00_2216); } 
{ /* ./Reduce/copy.scm 258 */
int BgL_kz00_2218;
BgL_kz00_2218 = 
(int)(BgL_restz00_2204); 
BgL_method2705z00_2194 = 
VECTOR_REF(BgL_bucketz00_2206,BgL_kz00_2218); } } } } } } } } } } 
{ /* ./Reduce/copy.scm 258 */
obj_t BgL_auxz00_2495;
BgL_auxz00_2495 = 
PROCEDURE_ENTRY(BgL_method2705z00_2194)(BgL_method2705z00_2194, 
(obj_t)(BgL_nodez00_2193), BEOA); 
BgL_res3624z00_2219 = 
(BgL_nodez00_bglt)(BgL_auxz00_2495); } } } 
BgL_arg3498z00_1271 = BgL_res3624z00_2219; } } 
{ /* ./Reduce/copy.scm 258 */
BgL_boxzd2refzd2_bglt BgL_obj2616z00_2220;BgL_varz00_bglt BgL_val2615z00_2221;
BgL_obj2616z00_2220 = BgL_nodez00_1267; 
BgL_val2615z00_2221 = 
(BgL_varz00_bglt)(BgL_arg3498z00_1271); 
((((BgL_boxzd2refzd2_bglt)CREF(BgL_obj2616z00_2220))->BgL_varz00) = ((BgL_varz00_bglt)BgL_val2615z00_2221), BUNSPEC); } } 
BgL_auxz00_2473 = BgL_nodez00_1267; 
return 
(obj_t)(BgL_auxz00_2473);} } } 
}



/* node-copy!-box-set!2744 */
obj_t BGl_nodezd2copyz12zd2boxzd2setz122744zd2zzreduce_copyz00(obj_t BgL_envz00_2282, obj_t BgL_nodez00_2283)
{ AN_OBJECT;
{ /* ./Reduce/copy.scm 247 */
{ 
BgL_boxzd2setz12zc0_bglt BgL_nodez00_1257;
{ /* ./Reduce/copy.scm 248 */
BgL_boxzd2setz12zc0_bglt BgL_auxz00_2504;
BgL_nodez00_1257 = 
(BgL_boxzd2setz12zc0_bglt)(BgL_nodez00_2283); 
{ /* ./Reduce/copy.scm 249 */
BgL_nodez00_bglt BgL_arg3478z00_1261;
{ /* ./Reduce/copy.scm 249 */
BgL_varz00_bglt BgL_arg3481z00_1262;
BgL_arg3481z00_1262 = 
(((BgL_boxzd2setz12zc0_bglt)CREF(BgL_nodez00_1257))->BgL_varz00); 
{ /* ./Reduce/copy.scm 249 */
BgL_nodez00_bglt BgL_res3618z00_2159;
{ /* ./Reduce/copy.scm 249 */
BgL_nodez00_bglt BgL_nodez00_2133;
BgL_nodez00_2133 = 
(BgL_nodez00_bglt)(BgL_arg3481z00_1262); 
{ /* ./Reduce/copy.scm 249 */
obj_t BgL_method2705z00_2134;
{ /* ./Reduce/copy.scm 249 */
BgL_objectz00_bglt BgL_objz00_2135;
BgL_objz00_2135 = 
(BgL_objectz00_bglt)(BgL_nodez00_2133); 
{ /* ./Reduce/copy.scm 249 */
long BgL_objzd2classzd2numz00_2136;
BgL_objzd2classzd2numz00_2136 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2135); 
{ /* ./Reduce/copy.scm 249 */
obj_t BgL_arg2017z00_2137;
{ /* ./Reduce/copy.scm 249 */
int BgL_auxz00_2509;
BgL_auxz00_2509 = 
(int)(((long)1)); 
BgL_arg2017z00_2137 = 
PROCEDURE_REF(BGl_nodezd2copyz12zd2envz12zzreduce_copyz00, BgL_auxz00_2509); } 
{ /* ./Reduce/copy.scm 249 */
int BgL_offsetz00_2140;
BgL_offsetz00_2140 = 
(int)(BgL_objzd2classzd2numz00_2136); 
{ /* ./Reduce/copy.scm 249 */
long BgL_offsetz00_2141;
{ /* ./Reduce/copy.scm 249 */
long BgL_auxz00_2513;
BgL_auxz00_2513 = 
(long)(BgL_offsetz00_2140); 
BgL_offsetz00_2141 = 
(BgL_auxz00_2513-OBJECT_TYPE); } 
{ /* ./Reduce/copy.scm 249 */
long BgL_modz00_2142;
{ /* ./Reduce/copy.scm 249 */
int BgL_arg2028z00_2143;
BgL_arg2028z00_2143 = 
(int)(((long)8)); 
{ /* ./Reduce/copy.scm 249 */
long BgL_n2z00_2151;
BgL_n2z00_2151 = 
(long)(BgL_arg2028z00_2143); 
BgL_modz00_2142 = 
(BgL_offsetz00_2141/BgL_n2z00_2151); } } 
{ /* ./Reduce/copy.scm 249 */
long BgL_restz00_2144;
{ /* ./Reduce/copy.scm 249 */
int BgL_arg2024z00_2145;
BgL_arg2024z00_2145 = 
(int)(((long)8)); 
{ /* ./Reduce/copy.scm 249 */
long BgL_n2z00_2154;
BgL_n2z00_2154 = 
(long)(BgL_arg2024z00_2145); 
BgL_restz00_2144 = 
(BgL_offsetz00_2141%BgL_n2z00_2154); } } 
{ /* ./Reduce/copy.scm 249 */

{ /* ./Reduce/copy.scm 249 */
obj_t BgL_bucketz00_2146;
{ /* ./Reduce/copy.scm 249 */
int BgL_kz00_2156;
BgL_kz00_2156 = 
(int)(BgL_modz00_2142); 
BgL_bucketz00_2146 = 
VECTOR_REF(BgL_arg2017z00_2137,BgL_kz00_2156); } 
{ /* ./Reduce/copy.scm 249 */
int BgL_kz00_2158;
BgL_kz00_2158 = 
(int)(BgL_restz00_2144); 
BgL_method2705z00_2134 = 
VECTOR_REF(BgL_bucketz00_2146,BgL_kz00_2158); } } } } } } } } } } 
{ /* ./Reduce/copy.scm 249 */
obj_t BgL_auxz00_2526;
BgL_auxz00_2526 = 
PROCEDURE_ENTRY(BgL_method2705z00_2134)(BgL_method2705z00_2134, 
(obj_t)(BgL_nodez00_2133), BEOA); 
BgL_res3618z00_2159 = 
(BgL_nodez00_bglt)(BgL_auxz00_2526); } } } 
BgL_arg3478z00_1261 = BgL_res3618z00_2159; } } 
{ /* ./Reduce/copy.scm 249 */
BgL_boxzd2setz12zc0_bglt BgL_obj2642z00_2160;BgL_varz00_bglt BgL_val2641z00_2161;
BgL_obj2642z00_2160 = BgL_nodez00_1257; 
BgL_val2641z00_2161 = 
(BgL_varz00_bglt)(BgL_arg3478z00_1261); 
((((BgL_boxzd2setz12zc0_bglt)CREF(BgL_obj2642z00_2160))->BgL_varz00) = ((BgL_varz00_bglt)BgL_val2641z00_2161), BUNSPEC); } } 
{ /* ./Reduce/copy.scm 250 */
BgL_nodez00_bglt BgL_arg3485z00_1263;
{ /* ./Reduce/copy.scm 250 */
BgL_nodez00_bglt BgL_arg3488z00_1264;
BgL_arg3488z00_1264 = 
(((BgL_boxzd2setz12zc0_bglt)CREF(BgL_nodez00_1257))->BgL_valuez00); 
{ /* ./Reduce/copy.scm 250 */
BgL_nodez00_bglt BgL_res3621z00_2189;
{ /* ./Reduce/copy.scm 250 */
obj_t BgL_method2705z00_2164;
{ /* ./Reduce/copy.scm 250 */
BgL_objectz00_bglt BgL_objz00_2165;
BgL_objz00_2165 = 
(BgL_objectz00_bglt)(BgL_arg3488z00_1264); 
{ /* ./Reduce/copy.scm 250 */
long BgL_objzd2classzd2numz00_2166;
BgL_objzd2classzd2numz00_2166 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2165); 
{ /* ./Reduce/copy.scm 250 */
obj_t BgL_arg2017z00_2167;
{ /* ./Reduce/copy.scm 250 */
int BgL_auxz00_2536;
BgL_auxz00_2536 = 
(int)(((long)1)); 
BgL_arg2017z00_2167 = 
PROCEDURE_REF(BGl_nodezd2copyz12zd2envz12zzreduce_copyz00, BgL_auxz00_2536); } 
{ /* ./Reduce/copy.scm 250 */
int BgL_offsetz00_2170;
BgL_offsetz00_2170 = 
(int)(BgL_objzd2classzd2numz00_2166); 
{ /* ./Reduce/copy.scm 250 */
long BgL_offsetz00_2171;
{ /* ./Reduce/copy.scm 250 */
long BgL_auxz00_2540;
BgL_auxz00_2540 = 
(long)(BgL_offsetz00_2170); 
BgL_offsetz00_2171 = 
(BgL_auxz00_2540-OBJECT_TYPE); } 
{ /* ./Reduce/copy.scm 250 */
long BgL_modz00_2172;
{ /* ./Reduce/copy.scm 250 */
int BgL_arg2028z00_2173;
BgL_arg2028z00_2173 = 
(int)(((long)8)); 
{ /* ./Reduce/copy.scm 250 */
long BgL_n2z00_2181;
BgL_n2z00_2181 = 
(long)(BgL_arg2028z00_2173); 
BgL_modz00_2172 = 
(BgL_offsetz00_2171/BgL_n2z00_2181); } } 
{ /* ./Reduce/copy.scm 250 */
long BgL_restz00_2174;
{ /* ./Reduce/copy.scm 250 */
int BgL_arg2024z00_2175;
BgL_arg2024z00_2175 = 
(int)(((long)8)); 
{ /* ./Reduce/copy.scm 250 */
long BgL_n2z00_2184;
BgL_n2z00_2184 = 
(long)(BgL_arg2024z00_2175); 
BgL_restz00_2174 = 
(BgL_offsetz00_2171%BgL_n2z00_2184); } } 
{ /* ./Reduce/copy.scm 250 */

{ /* ./Reduce/copy.scm 250 */
obj_t BgL_bucketz00_2176;
{ /* ./Reduce/copy.scm 250 */
int BgL_kz00_2186;
BgL_kz00_2186 = 
(int)(BgL_modz00_2172); 
BgL_bucketz00_2176 = 
VECTOR_REF(BgL_arg2017z00_2167,BgL_kz00_2186); } 
{ /* ./Reduce/copy.scm 250 */
int BgL_kz00_2188;
BgL_kz00_2188 = 
(int)(BgL_restz00_2174); 
BgL_method2705z00_2164 = 
VECTOR_REF(BgL_bucketz00_2176,BgL_kz00_2188); } } } } } } } } } } 
{ /* ./Reduce/copy.scm 250 */
obj_t BgL_auxz00_2553;
BgL_auxz00_2553 = 
PROCEDURE_ENTRY(BgL_method2705z00_2164)(BgL_method2705z00_2164, 
(obj_t)(BgL_arg3488z00_1264), BEOA); 
BgL_res3621z00_2189 = 
(BgL_nodez00_bglt)(BgL_auxz00_2553); } } 
BgL_arg3485z00_1263 = BgL_res3621z00_2189; } } 
{ /* ./Reduce/copy.scm 250 */
BgL_boxzd2setz12zc0_bglt BgL_obj2645z00_2190;BgL_nodez00_bglt BgL_val2644z00_2191;
BgL_obj2645z00_2190 = BgL_nodez00_1257; 
BgL_val2644z00_2191 = BgL_arg3485z00_1263; 
((((BgL_boxzd2setz12zc0_bglt)CREF(BgL_obj2645z00_2190))->BgL_valuez00) = ((BgL_nodez00_bglt)BgL_val2644z00_2191), BUNSPEC); } } 
BgL_auxz00_2504 = BgL_nodez00_1257; 
return 
(obj_t)(BgL_auxz00_2504);} } } 
}



/* node-copy!-make-box2742 */
obj_t BGl_nodezd2copyz12zd2makezd2box2742zc0zzreduce_copyz00(obj_t BgL_envz00_2284, obj_t BgL_nodez00_2285)
{ AN_OBJECT;
{ /* ./Reduce/copy.scm 239 */
{ 
BgL_makezd2boxzd2_bglt BgL_nodez00_1249;
{ /* ./Reduce/copy.scm 240 */
BgL_makezd2boxzd2_bglt BgL_auxz00_2561;
BgL_nodez00_1249 = 
(BgL_makezd2boxzd2_bglt)(BgL_nodez00_2285); 
{ /* ./Reduce/copy.scm 241 */
BgL_nodez00_bglt BgL_arg3465z00_1253;
{ /* ./Reduce/copy.scm 241 */
BgL_nodez00_bglt BgL_arg3468z00_1254;
BgL_arg3468z00_1254 = 
(((BgL_makezd2boxzd2_bglt)CREF(BgL_nodez00_1249))->BgL_valuez00); 
{ /* ./Reduce/copy.scm 241 */
BgL_nodez00_bglt BgL_res3615z00_2129;
{ /* ./Reduce/copy.scm 241 */
obj_t BgL_method2705z00_2104;
{ /* ./Reduce/copy.scm 241 */
BgL_objectz00_bglt BgL_objz00_2105;
BgL_objz00_2105 = 
(BgL_objectz00_bglt)(BgL_arg3468z00_1254); 
{ /* ./Reduce/copy.scm 241 */
long BgL_objzd2classzd2numz00_2106;
BgL_objzd2classzd2numz00_2106 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2105); 
{ /* ./Reduce/copy.scm 241 */
obj_t BgL_arg2017z00_2107;
{ /* ./Reduce/copy.scm 241 */
int BgL_auxz00_2565;
BgL_auxz00_2565 = 
(int)(((long)1)); 
BgL_arg2017z00_2107 = 
PROCEDURE_REF(BGl_nodezd2copyz12zd2envz12zzreduce_copyz00, BgL_auxz00_2565); } 
{ /* ./Reduce/copy.scm 241 */
int BgL_offsetz00_2110;
BgL_offsetz00_2110 = 
(int)(BgL_objzd2classzd2numz00_2106); 
{ /* ./Reduce/copy.scm 241 */
long BgL_offsetz00_2111;
{ /* ./Reduce/copy.scm 241 */
long BgL_auxz00_2569;
BgL_auxz00_2569 = 
(long)(BgL_offsetz00_2110); 
BgL_offsetz00_2111 = 
(BgL_auxz00_2569-OBJECT_TYPE); } 
{ /* ./Reduce/copy.scm 241 */
long BgL_modz00_2112;
{ /* ./Reduce/copy.scm 241 */
int BgL_arg2028z00_2113;
BgL_arg2028z00_2113 = 
(int)(((long)8)); 
{ /* ./Reduce/copy.scm 241 */
long BgL_n2z00_2121;
BgL_n2z00_2121 = 
(long)(BgL_arg2028z00_2113); 
BgL_modz00_2112 = 
(BgL_offsetz00_2111/BgL_n2z00_2121); } } 
{ /* ./Reduce/copy.scm 241 */
long BgL_restz00_2114;
{ /* ./Reduce/copy.scm 241 */
int BgL_arg2024z00_2115;
BgL_arg2024z00_2115 = 
(int)(((long)8)); 
{ /* ./Reduce/copy.scm 241 */
long BgL_n2z00_2124;
BgL_n2z00_2124 = 
(long)(BgL_arg2024z00_2115); 
BgL_restz00_2114 = 
(BgL_offsetz00_2111%BgL_n2z00_2124); } } 
{ /* ./Reduce/copy.scm 241 */

{ /* ./Reduce/copy.scm 241 */
obj_t BgL_bucketz00_2116;
{ /* ./Reduce/copy.scm 241 */
int BgL_kz00_2126;
BgL_kz00_2126 = 
(int)(BgL_modz00_2112); 
BgL_bucketz00_2116 = 
VECTOR_REF(BgL_arg2017z00_2107,BgL_kz00_2126); } 
{ /* ./Reduce/copy.scm 241 */
int BgL_kz00_2128;
BgL_kz00_2128 = 
(int)(BgL_restz00_2114); 
BgL_method2705z00_2104 = 
VECTOR_REF(BgL_bucketz00_2116,BgL_kz00_2128); } } } } } } } } } } 
{ /* ./Reduce/copy.scm 241 */
obj_t BgL_auxz00_2582;
BgL_auxz00_2582 = 
PROCEDURE_ENTRY(BgL_method2705z00_2104)(BgL_method2705z00_2104, 
(obj_t)(BgL_arg3468z00_1254), BEOA); 
BgL_res3615z00_2129 = 
(BgL_nodez00_bglt)(BgL_auxz00_2582); } } 
BgL_arg3465z00_1253 = BgL_res3615z00_2129; } } 
{ /* ./Reduce/copy.scm 241 */
BgL_makezd2boxzd2_bglt BgL_obj2584z00_2130;BgL_nodez00_bglt BgL_val2583z00_2131;
BgL_obj2584z00_2130 = BgL_nodez00_1249; 
BgL_val2583z00_2131 = BgL_arg3465z00_1253; 
((((BgL_makezd2boxzd2_bglt)CREF(BgL_obj2584z00_2130))->BgL_valuez00) = ((BgL_nodez00_bglt)BgL_val2583z00_2131), BUNSPEC); } } 
BgL_auxz00_2561 = BgL_nodez00_1249; 
return 
(obj_t)(BgL_auxz00_2561);} } } 
}



/* node-copy!-jump-ex-it2740 */
obj_t BGl_nodezd2copyz12zd2jumpzd2exzd2it2740z12zzreduce_copyz00(obj_t BgL_envz00_2286, obj_t BgL_nodez00_2287)
{ AN_OBJECT;
{ /* ./Reduce/copy.scm 230 */
{ 
BgL_jumpzd2exzd2itz00_bglt BgL_nodez00_1239;
{ /* ./Reduce/copy.scm 231 */
BgL_jumpzd2exzd2itz00_bglt BgL_auxz00_2590;
BgL_nodez00_1239 = 
(BgL_jumpzd2exzd2itz00_bglt)(BgL_nodez00_2287); 
{ /* ./Reduce/copy.scm 232 */
BgL_nodez00_bglt BgL_arg3444z00_1243;
{ /* ./Reduce/copy.scm 232 */
BgL_nodez00_bglt BgL_arg3447z00_1244;
BgL_arg3447z00_1244 = 
(((BgL_jumpzd2exzd2itz00_bglt)CREF(BgL_nodez00_1239))->BgL_exitz00); 
{ /* ./Reduce/copy.scm 232 */
BgL_nodez00_bglt BgL_res3609z00_2069;
{ /* ./Reduce/copy.scm 232 */
obj_t BgL_method2705z00_2044;
{ /* ./Reduce/copy.scm 232 */
BgL_objectz00_bglt BgL_objz00_2045;
BgL_objz00_2045 = 
(BgL_objectz00_bglt)(BgL_arg3447z00_1244); 
{ /* ./Reduce/copy.scm 232 */
long BgL_objzd2classzd2numz00_2046;
BgL_objzd2classzd2numz00_2046 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2045); 
{ /* ./Reduce/copy.scm 232 */
obj_t BgL_arg2017z00_2047;
{ /* ./Reduce/copy.scm 232 */
int BgL_auxz00_2594;
BgL_auxz00_2594 = 
(int)(((long)1)); 
BgL_arg2017z00_2047 = 
PROCEDURE_REF(BGl_nodezd2copyz12zd2envz12zzreduce_copyz00, BgL_auxz00_2594); } 
{ /* ./Reduce/copy.scm 232 */
int BgL_offsetz00_2050;
BgL_offsetz00_2050 = 
(int)(BgL_objzd2classzd2numz00_2046); 
{ /* ./Reduce/copy.scm 232 */
long BgL_offsetz00_2051;
{ /* ./Reduce/copy.scm 232 */
long BgL_auxz00_2598;
BgL_auxz00_2598 = 
(long)(BgL_offsetz00_2050); 
BgL_offsetz00_2051 = 
(BgL_auxz00_2598-OBJECT_TYPE); } 
{ /* ./Reduce/copy.scm 232 */
long BgL_modz00_2052;
{ /* ./Reduce/copy.scm 232 */
int BgL_arg2028z00_2053;
BgL_arg2028z00_2053 = 
(int)(((long)8)); 
{ /* ./Reduce/copy.scm 232 */
long BgL_n2z00_2061;
BgL_n2z00_2061 = 
(long)(BgL_arg2028z00_2053); 
BgL_modz00_2052 = 
(BgL_offsetz00_2051/BgL_n2z00_2061); } } 
{ /* ./Reduce/copy.scm 232 */
long BgL_restz00_2054;
{ /* ./Reduce/copy.scm 232 */
int BgL_arg2024z00_2055;
BgL_arg2024z00_2055 = 
(int)(((long)8)); 
{ /* ./Reduce/copy.scm 232 */
long BgL_n2z00_2064;
BgL_n2z00_2064 = 
(long)(BgL_arg2024z00_2055); 
BgL_restz00_2054 = 
(BgL_offsetz00_2051%BgL_n2z00_2064); } } 
{ /* ./Reduce/copy.scm 232 */

{ /* ./Reduce/copy.scm 232 */
obj_t BgL_bucketz00_2056;
{ /* ./Reduce/copy.scm 232 */
int BgL_kz00_2066;
BgL_kz00_2066 = 
(int)(BgL_modz00_2052); 
BgL_bucketz00_2056 = 
VECTOR_REF(BgL_arg2017z00_2047,BgL_kz00_2066); } 
{ /* ./Reduce/copy.scm 232 */
int BgL_kz00_2068;
BgL_kz00_2068 = 
(int)(BgL_restz00_2054); 
BgL_method2705z00_2044 = 
VECTOR_REF(BgL_bucketz00_2056,BgL_kz00_2068); } } } } } } } } } } 
{ /* ./Reduce/copy.scm 232 */
obj_t BgL_auxz00_2611;
BgL_auxz00_2611 = 
PROCEDURE_ENTRY(BgL_method2705z00_2044)(BgL_method2705z00_2044, 
(obj_t)(BgL_arg3447z00_1244), BEOA); 
BgL_res3609z00_2069 = 
(BgL_nodez00_bglt)(BgL_auxz00_2611); } } 
BgL_arg3444z00_1243 = BgL_res3609z00_2069; } } 
{ /* ./Reduce/copy.scm 232 */
BgL_jumpzd2exzd2itz00_bglt BgL_obj2552z00_2070;BgL_nodez00_bglt BgL_val2551z00_2071;
BgL_obj2552z00_2070 = BgL_nodez00_1239; 
BgL_val2551z00_2071 = BgL_arg3444z00_1243; 
((((BgL_jumpzd2exzd2itz00_bglt)CREF(BgL_obj2552z00_2070))->BgL_exitz00) = ((BgL_nodez00_bglt)BgL_val2551z00_2071), BUNSPEC); } } 
{ /* ./Reduce/copy.scm 233 */
BgL_nodez00_bglt BgL_arg3451z00_1245;
{ /* ./Reduce/copy.scm 233 */
BgL_nodez00_bglt BgL_arg3454z00_1246;
BgL_arg3454z00_1246 = 
(((BgL_jumpzd2exzd2itz00_bglt)CREF(BgL_nodez00_1239))->BgL_valuez00); 
{ /* ./Reduce/copy.scm 233 */
BgL_nodez00_bglt BgL_res3612z00_2099;
{ /* ./Reduce/copy.scm 233 */
obj_t BgL_method2705z00_2074;
{ /* ./Reduce/copy.scm 233 */
BgL_objectz00_bglt BgL_objz00_2075;
BgL_objz00_2075 = 
(BgL_objectz00_bglt)(BgL_arg3454z00_1246); 
{ /* ./Reduce/copy.scm 233 */
long BgL_objzd2classzd2numz00_2076;
BgL_objzd2classzd2numz00_2076 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2075); 
{ /* ./Reduce/copy.scm 233 */
obj_t BgL_arg2017z00_2077;
{ /* ./Reduce/copy.scm 233 */
int BgL_auxz00_2620;
BgL_auxz00_2620 = 
(int)(((long)1)); 
BgL_arg2017z00_2077 = 
PROCEDURE_REF(BGl_nodezd2copyz12zd2envz12zzreduce_copyz00, BgL_auxz00_2620); } 
{ /* ./Reduce/copy.scm 233 */
int BgL_offsetz00_2080;
BgL_offsetz00_2080 = 
(int)(BgL_objzd2classzd2numz00_2076); 
{ /* ./Reduce/copy.scm 233 */
long BgL_offsetz00_2081;
{ /* ./Reduce/copy.scm 233 */
long BgL_auxz00_2624;
BgL_auxz00_2624 = 
(long)(BgL_offsetz00_2080); 
BgL_offsetz00_2081 = 
(BgL_auxz00_2624-OBJECT_TYPE); } 
{ /* ./Reduce/copy.scm 233 */
long BgL_modz00_2082;
{ /* ./Reduce/copy.scm 233 */
int BgL_arg2028z00_2083;
BgL_arg2028z00_2083 = 
(int)(((long)8)); 
{ /* ./Reduce/copy.scm 233 */
long BgL_n2z00_2091;
BgL_n2z00_2091 = 
(long)(BgL_arg2028z00_2083); 
BgL_modz00_2082 = 
(BgL_offsetz00_2081/BgL_n2z00_2091); } } 
{ /* ./Reduce/copy.scm 233 */
long BgL_restz00_2084;
{ /* ./Reduce/copy.scm 233 */
int BgL_arg2024z00_2085;
BgL_arg2024z00_2085 = 
(int)(((long)8)); 
{ /* ./Reduce/copy.scm 233 */
long BgL_n2z00_2094;
BgL_n2z00_2094 = 
(long)(BgL_arg2024z00_2085); 
BgL_restz00_2084 = 
(BgL_offsetz00_2081%BgL_n2z00_2094); } } 
{ /* ./Reduce/copy.scm 233 */

{ /* ./Reduce/copy.scm 233 */
obj_t BgL_bucketz00_2086;
{ /* ./Reduce/copy.scm 233 */
int BgL_kz00_2096;
BgL_kz00_2096 = 
(int)(BgL_modz00_2082); 
BgL_bucketz00_2086 = 
VECTOR_REF(BgL_arg2017z00_2077,BgL_kz00_2096); } 
{ /* ./Reduce/copy.scm 233 */
int BgL_kz00_2098;
BgL_kz00_2098 = 
(int)(BgL_restz00_2084); 
BgL_method2705z00_2074 = 
VECTOR_REF(BgL_bucketz00_2086,BgL_kz00_2098); } } } } } } } } } } 
{ /* ./Reduce/copy.scm 233 */
obj_t BgL_auxz00_2637;
BgL_auxz00_2637 = 
PROCEDURE_ENTRY(BgL_method2705z00_2074)(BgL_method2705z00_2074, 
(obj_t)(BgL_arg3454z00_1246), BEOA); 
BgL_res3612z00_2099 = 
(BgL_nodez00_bglt)(BgL_auxz00_2637); } } 
BgL_arg3451z00_1245 = BgL_res3612z00_2099; } } 
{ /* ./Reduce/copy.scm 233 */
BgL_jumpzd2exzd2itz00_bglt BgL_obj2555z00_2100;BgL_nodez00_bglt BgL_val2554z00_2101;
BgL_obj2555z00_2100 = BgL_nodez00_1239; 
BgL_val2554z00_2101 = BgL_arg3451z00_1245; 
((((BgL_jumpzd2exzd2itz00_bglt)CREF(BgL_obj2555z00_2100))->BgL_valuez00) = ((BgL_nodez00_bglt)BgL_val2554z00_2101), BUNSPEC); } } 
BgL_auxz00_2590 = BgL_nodez00_1239; 
return 
(obj_t)(BgL_auxz00_2590);} } } 
}



/* node-copy!-set-ex-it2737 */
obj_t BGl_nodezd2copyz12zd2setzd2exzd2it2737z12zzreduce_copyz00(obj_t BgL_envz00_2288, obj_t BgL_nodez00_2289)
{ AN_OBJECT;
{ /* ./Reduce/copy.scm 221 */
{ 
BgL_setzd2exzd2itz00_bglt BgL_nodez00_1229;
{ /* ./Reduce/copy.scm 222 */
BgL_setzd2exzd2itz00_bglt BgL_auxz00_2645;
BgL_nodez00_1229 = 
(BgL_setzd2exzd2itz00_bglt)(BgL_nodez00_2289); 
{ /* ./Reduce/copy.scm 223 */
BgL_nodez00_bglt BgL_arg3424z00_1233;
{ /* ./Reduce/copy.scm 223 */
BgL_nodez00_bglt BgL_arg3427z00_1234;
BgL_arg3427z00_1234 = 
(((BgL_setzd2exzd2itz00_bglt)CREF(BgL_nodez00_1229))->BgL_bodyz00); 
{ /* ./Reduce/copy.scm 223 */
BgL_nodez00_bglt BgL_res3603z00_2009;
{ /* ./Reduce/copy.scm 223 */
obj_t BgL_method2705z00_1984;
{ /* ./Reduce/copy.scm 223 */
BgL_objectz00_bglt BgL_objz00_1985;
BgL_objz00_1985 = 
(BgL_objectz00_bglt)(BgL_arg3427z00_1234); 
{ /* ./Reduce/copy.scm 223 */
long BgL_objzd2classzd2numz00_1986;
BgL_objzd2classzd2numz00_1986 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1985); 
{ /* ./Reduce/copy.scm 223 */
obj_t BgL_arg2017z00_1987;
{ /* ./Reduce/copy.scm 223 */
int BgL_auxz00_2649;
BgL_auxz00_2649 = 
(int)(((long)1)); 
BgL_arg2017z00_1987 = 
PROCEDURE_REF(BGl_nodezd2copyz12zd2envz12zzreduce_copyz00, BgL_auxz00_2649); } 
{ /* ./Reduce/copy.scm 223 */
int BgL_offsetz00_1990;
BgL_offsetz00_1990 = 
(int)(BgL_objzd2classzd2numz00_1986); 
{ /* ./Reduce/copy.scm 223 */
long BgL_offsetz00_1991;
{ /* ./Reduce/copy.scm 223 */
long BgL_auxz00_2653;
BgL_auxz00_2653 = 
(long)(BgL_offsetz00_1990); 
BgL_offsetz00_1991 = 
(BgL_auxz00_2653-OBJECT_TYPE); } 
{ /* ./Reduce/copy.scm 223 */
long BgL_modz00_1992;
{ /* ./Reduce/copy.scm 223 */
int BgL_arg2028z00_1993;
BgL_arg2028z00_1993 = 
(int)(((long)8)); 
{ /* ./Reduce/copy.scm 223 */
long BgL_n2z00_2001;
BgL_n2z00_2001 = 
(long)(BgL_arg2028z00_1993); 
BgL_modz00_1992 = 
(BgL_offsetz00_1991/BgL_n2z00_2001); } } 
{ /* ./Reduce/copy.scm 223 */
long BgL_restz00_1994;
{ /* ./Reduce/copy.scm 223 */
int BgL_arg2024z00_1995;
BgL_arg2024z00_1995 = 
(int)(((long)8)); 
{ /* ./Reduce/copy.scm 223 */
long BgL_n2z00_2004;
BgL_n2z00_2004 = 
(long)(BgL_arg2024z00_1995); 
BgL_restz00_1994 = 
(BgL_offsetz00_1991%BgL_n2z00_2004); } } 
{ /* ./Reduce/copy.scm 223 */

{ /* ./Reduce/copy.scm 223 */
obj_t BgL_bucketz00_1996;
{ /* ./Reduce/copy.scm 223 */
int BgL_kz00_2006;
BgL_kz00_2006 = 
(int)(BgL_modz00_1992); 
BgL_bucketz00_1996 = 
VECTOR_REF(BgL_arg2017z00_1987,BgL_kz00_2006); } 
{ /* ./Reduce/copy.scm 223 */
int BgL_kz00_2008;
BgL_kz00_2008 = 
(int)(BgL_restz00_1994); 
BgL_method2705z00_1984 = 
VECTOR_REF(BgL_bucketz00_1996,BgL_kz00_2008); } } } } } } } } } } 
{ /* ./Reduce/copy.scm 223 */
obj_t BgL_auxz00_2666;
BgL_auxz00_2666 = 
PROCEDURE_ENTRY(BgL_method2705z00_1984)(BgL_method2705z00_1984, 
(obj_t)(BgL_arg3427z00_1234), BEOA); 
BgL_res3603z00_2009 = 
(BgL_nodez00_bglt)(BgL_auxz00_2666); } } 
BgL_arg3424z00_1233 = BgL_res3603z00_2009; } } 
{ /* ./Reduce/copy.scm 223 */
BgL_setzd2exzd2itz00_bglt BgL_obj2529z00_2010;BgL_nodez00_bglt BgL_val2528z00_2011;
BgL_obj2529z00_2010 = BgL_nodez00_1229; 
BgL_val2528z00_2011 = BgL_arg3424z00_1233; 
((((BgL_setzd2exzd2itz00_bglt)CREF(BgL_obj2529z00_2010))->BgL_bodyz00) = ((BgL_nodez00_bglt)BgL_val2528z00_2011), BUNSPEC); } } 
{ /* ./Reduce/copy.scm 224 */
BgL_nodez00_bglt BgL_arg3431z00_1235;
{ /* ./Reduce/copy.scm 224 */
BgL_varz00_bglt BgL_arg3434z00_1236;
BgL_arg3434z00_1236 = 
(((BgL_setzd2exzd2itz00_bglt)CREF(BgL_nodez00_1229))->BgL_varz00); 
{ /* ./Reduce/copy.scm 224 */
BgL_nodez00_bglt BgL_res3606z00_2039;
{ /* ./Reduce/copy.scm 224 */
BgL_nodez00_bglt BgL_nodez00_2013;
BgL_nodez00_2013 = 
(BgL_nodez00_bglt)(BgL_arg3434z00_1236); 
{ /* ./Reduce/copy.scm 224 */
obj_t BgL_method2705z00_2014;
{ /* ./Reduce/copy.scm 224 */
BgL_objectz00_bglt BgL_objz00_2015;
BgL_objz00_2015 = 
(BgL_objectz00_bglt)(BgL_nodez00_2013); 
{ /* ./Reduce/copy.scm 224 */
long BgL_objzd2classzd2numz00_2016;
BgL_objzd2classzd2numz00_2016 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2015); 
{ /* ./Reduce/copy.scm 224 */
obj_t BgL_arg2017z00_2017;
{ /* ./Reduce/copy.scm 224 */
int BgL_auxz00_2676;
BgL_auxz00_2676 = 
(int)(((long)1)); 
BgL_arg2017z00_2017 = 
PROCEDURE_REF(BGl_nodezd2copyz12zd2envz12zzreduce_copyz00, BgL_auxz00_2676); } 
{ /* ./Reduce/copy.scm 224 */
int BgL_offsetz00_2020;
BgL_offsetz00_2020 = 
(int)(BgL_objzd2classzd2numz00_2016); 
{ /* ./Reduce/copy.scm 224 */
long BgL_offsetz00_2021;
{ /* ./Reduce/copy.scm 224 */
long BgL_auxz00_2680;
BgL_auxz00_2680 = 
(long)(BgL_offsetz00_2020); 
BgL_offsetz00_2021 = 
(BgL_auxz00_2680-OBJECT_TYPE); } 
{ /* ./Reduce/copy.scm 224 */
long BgL_modz00_2022;
{ /* ./Reduce/copy.scm 224 */
int BgL_arg2028z00_2023;
BgL_arg2028z00_2023 = 
(int)(((long)8)); 
{ /* ./Reduce/copy.scm 224 */
long BgL_n2z00_2031;
BgL_n2z00_2031 = 
(long)(BgL_arg2028z00_2023); 
BgL_modz00_2022 = 
(BgL_offsetz00_2021/BgL_n2z00_2031); } } 
{ /* ./Reduce/copy.scm 224 */
long BgL_restz00_2024;
{ /* ./Reduce/copy.scm 224 */
int BgL_arg2024z00_2025;
BgL_arg2024z00_2025 = 
(int)(((long)8)); 
{ /* ./Reduce/copy.scm 224 */
long BgL_n2z00_2034;
BgL_n2z00_2034 = 
(long)(BgL_arg2024z00_2025); 
BgL_restz00_2024 = 
(BgL_offsetz00_2021%BgL_n2z00_2034); } } 
{ /* ./Reduce/copy.scm 224 */

{ /* ./Reduce/copy.scm 224 */
obj_t BgL_bucketz00_2026;
{ /* ./Reduce/copy.scm 224 */
int BgL_kz00_2036;
BgL_kz00_2036 = 
(int)(BgL_modz00_2022); 
BgL_bucketz00_2026 = 
VECTOR_REF(BgL_arg2017z00_2017,BgL_kz00_2036); } 
{ /* ./Reduce/copy.scm 224 */
int BgL_kz00_2038;
BgL_kz00_2038 = 
(int)(BgL_restz00_2024); 
BgL_method2705z00_2014 = 
VECTOR_REF(BgL_bucketz00_2026,BgL_kz00_2038); } } } } } } } } } } 
{ /* ./Reduce/copy.scm 224 */
obj_t BgL_auxz00_2693;
BgL_auxz00_2693 = 
PROCEDURE_ENTRY(BgL_method2705z00_2014)(BgL_method2705z00_2014, 
(obj_t)(BgL_nodez00_2013), BEOA); 
BgL_res3606z00_2039 = 
(BgL_nodez00_bglt)(BgL_auxz00_2693); } } } 
BgL_arg3431z00_1235 = BgL_res3606z00_2039; } } 
{ /* ./Reduce/copy.scm 224 */
BgL_setzd2exzd2itz00_bglt BgL_obj2526z00_2040;BgL_varz00_bglt BgL_val2525z00_2041;
BgL_obj2526z00_2040 = BgL_nodez00_1229; 
BgL_val2525z00_2041 = 
(BgL_varz00_bglt)(BgL_arg3431z00_1235); 
((((BgL_setzd2exzd2itz00_bglt)CREF(BgL_obj2526z00_2040))->BgL_varz00) = ((BgL_varz00_bglt)BgL_val2525z00_2041), BUNSPEC); } } 
BgL_auxz00_2645 = BgL_nodez00_1229; 
return 
(obj_t)(BgL_auxz00_2645);} } } 
}



/* node-copy!-let-var2735 */
obj_t BGl_nodezd2copyz12zd2letzd2var2735zc0zzreduce_copyz00(obj_t BgL_envz00_2290, obj_t BgL_nodez00_2291)
{ AN_OBJECT;
{ /* ./Reduce/copy.scm 182 */
{ 
BgL_letzd2varzd2_bglt BgL_nodez00_1196;
BgL_nodez00_1196 = 
(BgL_letzd2varzd2_bglt)(BgL_nodez00_2291); 
{ 
obj_t BgL_obindingsz00_1200;obj_t BgL_nbindingsz00_1201;
{ /* ./Reduce/copy.scm 184 */
obj_t BgL_arg3358z00_1203;
BgL_arg3358z00_1203 = 
(((BgL_letzd2varzd2_bglt)CREF(BgL_nodez00_1196))->BgL_bindingsz00); 
BgL_obindingsz00_1200 = BgL_arg3358z00_1203; 
BgL_nbindingsz00_1201 = BNIL; 
BgL_loopz00_1202:
{ /* ./Reduce/copy.scm 186 */
bool_t BgL_test3362z00_1205;
BgL_test3362z00_1205 = 
NULLP(BgL_obindingsz00_1200); 
if(BgL_test3362z00_1205)
{ /* ./Reduce/copy.scm 187 */
bool_t BgL_test3363z00_1206;
if(
NULLP(BgL_nbindingsz00_1201))
{ /* ./Reduce/copy.scm 187 */
BgL_test3363z00_1206 = 
(((BgL_letzd2varzd2_bglt)CREF(BgL_nodez00_1196))->BgL_removablezf3zf3); }  else 
{ /* ./Reduce/copy.scm 187 */
BgL_test3363z00_1206 = ((bool_t)0); } 
if(BgL_test3363z00_1206)
{ /* ./Reduce/copy.scm 188 */
BgL_nodez00_bglt BgL_arg3365z00_1207;
BgL_arg3365z00_1207 = 
(((BgL_letzd2varzd2_bglt)CREF(BgL_nodez00_1196))->BgL_bodyz00); 
{ /* ./Reduce/copy.scm 188 */
BgL_nodez00_bglt BgL_res3594z00_1906;
{ /* ./Reduce/copy.scm 188 */
obj_t BgL_method2705z00_1881;
{ /* ./Reduce/copy.scm 188 */
BgL_objectz00_bglt BgL_objz00_1882;
BgL_objz00_1882 = 
(BgL_objectz00_bglt)(BgL_arg3365z00_1207); 
{ /* ./Reduce/copy.scm 188 */
long BgL_objzd2classzd2numz00_1883;
BgL_objzd2classzd2numz00_1883 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1882); 
{ /* ./Reduce/copy.scm 188 */
obj_t BgL_arg2017z00_1884;
{ /* ./Reduce/copy.scm 188 */
int BgL_auxz00_2712;
BgL_auxz00_2712 = 
(int)(((long)1)); 
BgL_arg2017z00_1884 = 
PROCEDURE_REF(BGl_nodezd2copyz12zd2envz12zzreduce_copyz00, BgL_auxz00_2712); } 
{ /* ./Reduce/copy.scm 188 */
int BgL_offsetz00_1887;
BgL_offsetz00_1887 = 
(int)(BgL_objzd2classzd2numz00_1883); 
{ /* ./Reduce/copy.scm 188 */
long BgL_offsetz00_1888;
{ /* ./Reduce/copy.scm 188 */
long BgL_auxz00_2716;
BgL_auxz00_2716 = 
(long)(BgL_offsetz00_1887); 
BgL_offsetz00_1888 = 
(BgL_auxz00_2716-OBJECT_TYPE); } 
{ /* ./Reduce/copy.scm 188 */
long BgL_modz00_1889;
{ /* ./Reduce/copy.scm 188 */
int BgL_arg2028z00_1890;
BgL_arg2028z00_1890 = 
(int)(((long)8)); 
{ /* ./Reduce/copy.scm 188 */
long BgL_n2z00_1898;
BgL_n2z00_1898 = 
(long)(BgL_arg2028z00_1890); 
BgL_modz00_1889 = 
(BgL_offsetz00_1888/BgL_n2z00_1898); } } 
{ /* ./Reduce/copy.scm 188 */
long BgL_restz00_1891;
{ /* ./Reduce/copy.scm 188 */
int BgL_arg2024z00_1892;
BgL_arg2024z00_1892 = 
(int)(((long)8)); 
{ /* ./Reduce/copy.scm 188 */
long BgL_n2z00_1901;
BgL_n2z00_1901 = 
(long)(BgL_arg2024z00_1892); 
BgL_restz00_1891 = 
(BgL_offsetz00_1888%BgL_n2z00_1901); } } 
{ /* ./Reduce/copy.scm 188 */

{ /* ./Reduce/copy.scm 188 */
obj_t BgL_bucketz00_1893;
{ /* ./Reduce/copy.scm 188 */
int BgL_kz00_1903;
BgL_kz00_1903 = 
(int)(BgL_modz00_1889); 
BgL_bucketz00_1893 = 
VECTOR_REF(BgL_arg2017z00_1884,BgL_kz00_1903); } 
{ /* ./Reduce/copy.scm 188 */
int BgL_kz00_1905;
BgL_kz00_1905 = 
(int)(BgL_restz00_1891); 
BgL_method2705z00_1881 = 
VECTOR_REF(BgL_bucketz00_1893,BgL_kz00_1905); } } } } } } } } } } 
{ /* ./Reduce/copy.scm 188 */
obj_t BgL_auxz00_2729;
BgL_auxz00_2729 = 
PROCEDURE_ENTRY(BgL_method2705z00_1881)(BgL_method2705z00_1881, 
(obj_t)(BgL_arg3365z00_1207), BEOA); 
BgL_res3594z00_1906 = 
(BgL_nodez00_bglt)(BgL_auxz00_2729); } } 
return 
(obj_t)(BgL_res3594z00_1906);} }  else 
{ /* ./Reduce/copy.scm 187 */
{ /* ./Reduce/copy.scm 190 */
BgL_letzd2varzd2_bglt BgL_obj2488z00_1907;obj_t BgL_val2487z00_1908;
BgL_obj2488z00_1907 = BgL_nodez00_1196; 
BgL_val2487z00_1908 = BgL_nbindingsz00_1201; 
((((BgL_letzd2varzd2_bglt)CREF(BgL_obj2488z00_1907))->BgL_bindingsz00) = ((obj_t)BgL_val2487z00_1908), BUNSPEC); } 
{ /* ./Reduce/copy.scm 191 */
BgL_nodez00_bglt BgL_arg3370z00_1208;
{ /* ./Reduce/copy.scm 191 */
BgL_nodez00_bglt BgL_arg3373z00_1209;
BgL_arg3373z00_1209 = 
(((BgL_letzd2varzd2_bglt)CREF(BgL_nodez00_1196))->BgL_bodyz00); 
{ /* ./Reduce/copy.scm 191 */
BgL_nodez00_bglt BgL_res3597z00_1936;
{ /* ./Reduce/copy.scm 191 */
obj_t BgL_method2705z00_1911;
{ /* ./Reduce/copy.scm 191 */
BgL_objectz00_bglt BgL_objz00_1912;
BgL_objz00_1912 = 
(BgL_objectz00_bglt)(BgL_arg3373z00_1209); 
{ /* ./Reduce/copy.scm 191 */
long BgL_objzd2classzd2numz00_1913;
BgL_objzd2classzd2numz00_1913 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1912); 
{ /* ./Reduce/copy.scm 191 */
obj_t BgL_arg2017z00_1914;
{ /* ./Reduce/copy.scm 191 */
int BgL_auxz00_2739;
BgL_auxz00_2739 = 
(int)(((long)1)); 
BgL_arg2017z00_1914 = 
PROCEDURE_REF(BGl_nodezd2copyz12zd2envz12zzreduce_copyz00, BgL_auxz00_2739); } 
{ /* ./Reduce/copy.scm 191 */
int BgL_offsetz00_1917;
BgL_offsetz00_1917 = 
(int)(BgL_objzd2classzd2numz00_1913); 
{ /* ./Reduce/copy.scm 191 */
long BgL_offsetz00_1918;
{ /* ./Reduce/copy.scm 191 */
long BgL_auxz00_2743;
BgL_auxz00_2743 = 
(long)(BgL_offsetz00_1917); 
BgL_offsetz00_1918 = 
(BgL_auxz00_2743-OBJECT_TYPE); } 
{ /* ./Reduce/copy.scm 191 */
long BgL_modz00_1919;
{ /* ./Reduce/copy.scm 191 */
int BgL_arg2028z00_1920;
BgL_arg2028z00_1920 = 
(int)(((long)8)); 
{ /* ./Reduce/copy.scm 191 */
long BgL_n2z00_1928;
BgL_n2z00_1928 = 
(long)(BgL_arg2028z00_1920); 
BgL_modz00_1919 = 
(BgL_offsetz00_1918/BgL_n2z00_1928); } } 
{ /* ./Reduce/copy.scm 191 */
long BgL_restz00_1921;
{ /* ./Reduce/copy.scm 191 */
int BgL_arg2024z00_1922;
BgL_arg2024z00_1922 = 
(int)(((long)8)); 
{ /* ./Reduce/copy.scm 191 */
long BgL_n2z00_1931;
BgL_n2z00_1931 = 
(long)(BgL_arg2024z00_1922); 
BgL_restz00_1921 = 
(BgL_offsetz00_1918%BgL_n2z00_1931); } } 
{ /* ./Reduce/copy.scm 191 */

{ /* ./Reduce/copy.scm 191 */
obj_t BgL_bucketz00_1923;
{ /* ./Reduce/copy.scm 191 */
int BgL_kz00_1933;
BgL_kz00_1933 = 
(int)(BgL_modz00_1919); 
BgL_bucketz00_1923 = 
VECTOR_REF(BgL_arg2017z00_1914,BgL_kz00_1933); } 
{ /* ./Reduce/copy.scm 191 */
int BgL_kz00_1935;
BgL_kz00_1935 = 
(int)(BgL_restz00_1921); 
BgL_method2705z00_1911 = 
VECTOR_REF(BgL_bucketz00_1923,BgL_kz00_1935); } } } } } } } } } } 
{ /* ./Reduce/copy.scm 191 */
obj_t BgL_auxz00_2756;
BgL_auxz00_2756 = 
PROCEDURE_ENTRY(BgL_method2705z00_1911)(BgL_method2705z00_1911, 
(obj_t)(BgL_arg3373z00_1209), BEOA); 
BgL_res3597z00_1936 = 
(BgL_nodez00_bglt)(BgL_auxz00_2756); } } 
BgL_arg3370z00_1208 = BgL_res3597z00_1936; } } 
{ /* ./Reduce/copy.scm 191 */
BgL_letzd2varzd2_bglt BgL_obj2491z00_1937;BgL_nodez00_bglt BgL_val2490z00_1938;
BgL_obj2491z00_1937 = BgL_nodez00_1196; 
BgL_val2490z00_1938 = BgL_arg3370z00_1208; 
((((BgL_letzd2varzd2_bglt)CREF(BgL_obj2491z00_1937))->BgL_bodyz00) = ((BgL_nodez00_bglt)BgL_val2490z00_1938), BUNSPEC); } } 
return 
(obj_t)(BgL_nodez00_1196);} }  else 
{ /* ./Reduce/copy.scm 193 */
obj_t BgL_bindingz00_1211;
BgL_bindingz00_1211 = 
CAR(BgL_obindingsz00_1200); 
{ /* ./Reduce/copy.scm 193 */
obj_t BgL_varz00_1212;
BgL_varz00_1212 = 
CAR(BgL_bindingz00_1211); 
{ /* ./Reduce/copy.scm 194 */
BgL_nodez00_bglt BgL_valz00_1213;
{ /* ./Reduce/copy.scm 195 */
obj_t BgL_arg3411z00_1226;
BgL_arg3411z00_1226 = 
CDR(BgL_bindingz00_1211); 
{ /* ./Reduce/copy.scm 195 */
BgL_nodez00_bglt BgL_res3600z00_1968;
{ /* ./Reduce/copy.scm 195 */
BgL_nodez00_bglt BgL_nodez00_1942;
BgL_nodez00_1942 = 
(BgL_nodez00_bglt)(BgL_arg3411z00_1226); 
{ /* ./Reduce/copy.scm 195 */
obj_t BgL_method2705z00_1943;
{ /* ./Reduce/copy.scm 195 */
BgL_objectz00_bglt BgL_objz00_1944;
BgL_objz00_1944 = 
(BgL_objectz00_bglt)(BgL_nodez00_1942); 
{ /* ./Reduce/copy.scm 195 */
long BgL_objzd2classzd2numz00_1945;
BgL_objzd2classzd2numz00_1945 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1944); 
{ /* ./Reduce/copy.scm 195 */
obj_t BgL_arg2017z00_1946;
{ /* ./Reduce/copy.scm 195 */
int BgL_auxz00_2769;
BgL_auxz00_2769 = 
(int)(((long)1)); 
BgL_arg2017z00_1946 = 
PROCEDURE_REF(BGl_nodezd2copyz12zd2envz12zzreduce_copyz00, BgL_auxz00_2769); } 
{ /* ./Reduce/copy.scm 195 */
int BgL_offsetz00_1949;
BgL_offsetz00_1949 = 
(int)(BgL_objzd2classzd2numz00_1945); 
{ /* ./Reduce/copy.scm 195 */
long BgL_offsetz00_1950;
{ /* ./Reduce/copy.scm 195 */
long BgL_auxz00_2773;
BgL_auxz00_2773 = 
(long)(BgL_offsetz00_1949); 
BgL_offsetz00_1950 = 
(BgL_auxz00_2773-OBJECT_TYPE); } 
{ /* ./Reduce/copy.scm 195 */
long BgL_modz00_1951;
{ /* ./Reduce/copy.scm 195 */
int BgL_arg2028z00_1952;
BgL_arg2028z00_1952 = 
(int)(((long)8)); 
{ /* ./Reduce/copy.scm 195 */
long BgL_n2z00_1960;
BgL_n2z00_1960 = 
(long)(BgL_arg2028z00_1952); 
BgL_modz00_1951 = 
(BgL_offsetz00_1950/BgL_n2z00_1960); } } 
{ /* ./Reduce/copy.scm 195 */
long BgL_restz00_1953;
{ /* ./Reduce/copy.scm 195 */
int BgL_arg2024z00_1954;
BgL_arg2024z00_1954 = 
(int)(((long)8)); 
{ /* ./Reduce/copy.scm 195 */
long BgL_n2z00_1963;
BgL_n2z00_1963 = 
(long)(BgL_arg2024z00_1954); 
BgL_restz00_1953 = 
(BgL_offsetz00_1950%BgL_n2z00_1963); } } 
{ /* ./Reduce/copy.scm 195 */

{ /* ./Reduce/copy.scm 195 */
obj_t BgL_bucketz00_1955;
{ /* ./Reduce/copy.scm 195 */
int BgL_kz00_1965;
BgL_kz00_1965 = 
(int)(BgL_modz00_1951); 
BgL_bucketz00_1955 = 
VECTOR_REF(BgL_arg2017z00_1946,BgL_kz00_1965); } 
{ /* ./Reduce/copy.scm 195 */
int BgL_kz00_1967;
BgL_kz00_1967 = 
(int)(BgL_restz00_1953); 
BgL_method2705z00_1943 = 
VECTOR_REF(BgL_bucketz00_1955,BgL_kz00_1967); } } } } } } } } } } 
{ /* ./Reduce/copy.scm 195 */
obj_t BgL_auxz00_2786;
BgL_auxz00_2786 = 
PROCEDURE_ENTRY(BgL_method2705z00_1943)(BgL_method2705z00_1943, 
(obj_t)(BgL_nodez00_1942), BEOA); 
BgL_res3600z00_1968 = 
(BgL_nodez00_bglt)(BgL_auxz00_2786); } } } 
BgL_valz00_1213 = BgL_res3600z00_1968; } } 
{ /* ./Reduce/copy.scm 195 */

{ /* ./Reduce/copy.scm 196 */
obj_t BgL_objz00_1970;
BgL_objz00_1970 = 
(obj_t)(BgL_valz00_1213); 
SET_CDR(BgL_bindingz00_1211, BgL_objz00_1970); } 
{ /* ./Reduce/copy.scm 205 */
bool_t BgL_test3380z00_1214;
{ /* ./Reduce/copy.scm 205 */
bool_t BgL_test3393z00_1218;
{ /* ./Reduce/copy.scm 205 */
bool_t BgL_test3399z00_1221;
{ /* ./Reduce/copy.scm 205 */
obj_t BgL_obj1619z00_1971;
BgL_obj1619z00_1971 = 
(obj_t)(BgL_valz00_1213); 
BgL_test3399z00_1221 = 
BGl_iszd2azf3z21zz__objectz00(BgL_obj1619z00_1971, BGl_atomz00zzast_nodez00); } 
if(BgL_test3399z00_1221)
{ /* ./Reduce/copy.scm 205 */
BgL_test3393z00_1218 = ((bool_t)1); }  else 
{ /* ./Reduce/copy.scm 206 */
bool_t BgL__andtest_2690z00_1222;
{ /* ./Reduce/copy.scm 206 */
obj_t BgL_obj1640z00_1972;
BgL_obj1640z00_1972 = 
(obj_t)(BgL_valz00_1213); 
BgL__andtest_2690z00_1222 = 
BGl_iszd2azf3z21zz__objectz00(BgL_obj1640z00_1972, BGl_varz00zzast_nodez00); } 
if(BgL__andtest_2690z00_1222)
{ /* ./Reduce/copy.scm 207 */
obj_t BgL_auxz00_2803;obj_t BgL_auxz00_2799;
BgL_auxz00_2803 = 
CNST_TABLE_REF(((long)1)); 
{ /* ./Reduce/copy.scm 207 */
BgL_variablez00_bglt BgL_arg3405z00_1225;
{ /* ./Reduce/copy.scm 207 */
BgL_varz00_bglt BgL_obj1625z00_1973;
BgL_obj1625z00_1973 = 
(BgL_varz00_bglt)(BgL_valz00_1213); 
BgL_arg3405z00_1225 = 
(((BgL_varz00_bglt)CREF(BgL_obj1625z00_1973))->BgL_variablez00); } 
BgL_auxz00_2799 = 
(((BgL_variablez00_bglt)CREF(BgL_arg3405z00_1225))->BgL_accessz00); } 
BgL_test3393z00_1218 = 
(BgL_auxz00_2799==BgL_auxz00_2803); }  else 
{ /* ./Reduce/copy.scm 206 */
BgL_test3393z00_1218 = ((bool_t)0); } } } 
if(BgL_test3393z00_1218)
{ /* ./Reduce/copy.scm 209 */
obj_t BgL_auxz00_2810;obj_t BgL_auxz00_2807;
BgL_auxz00_2810 = 
CNST_TABLE_REF(((long)1)); 
{ /* ./Reduce/copy.scm 209 */
BgL_variablez00_bglt BgL_obj1103z00_1975;
BgL_obj1103z00_1975 = 
(BgL_variablez00_bglt)(BgL_varz00_1212); 
BgL_auxz00_2807 = 
(((BgL_variablez00_bglt)CREF(BgL_obj1103z00_1975))->BgL_accessz00); } 
BgL_test3380z00_1214 = 
(BgL_auxz00_2807==BgL_auxz00_2810); }  else 
{ /* ./Reduce/copy.scm 205 */
BgL_test3380z00_1214 = ((bool_t)0); } } 
if(BgL_test3380z00_1214)
{ /* ./Reduce/copy.scm 205 */
{ /* ./Reduce/copy.scm 213 */
long BgL_za71za7_1976;
BgL_za71za7_1976 = BGl_za2copyzd2removedza2zd2zzreduce_copyz00; 
BGl_za2copyzd2removedza2zd2zzreduce_copyz00 = 
(BgL_za71za7_1976+((long)1)); } 
{ /* ./Reduce/copy.scm 214 */
BgL_variablez00_bglt BgL_obj1108z00_1978;obj_t BgL_val1107z00_1979;
BgL_obj1108z00_1978 = 
(BgL_variablez00_bglt)(BgL_varz00_1212); 
BgL_val1107z00_1979 = 
(obj_t)(BgL_valz00_1213); 
((((BgL_variablez00_bglt)CREF(BgL_obj1108z00_1978))->BgL_fastzd2alphazd2) = ((obj_t)BgL_val1107z00_1979), BUNSPEC); } 
{ /* ./Reduce/copy.scm 215 */
obj_t BgL_arg3384z00_1215;
BgL_arg3384z00_1215 = 
CDR(BgL_obindingsz00_1200); 
{ 
obj_t BgL_obindingsz00_2819;
BgL_obindingsz00_2819 = BgL_arg3384z00_1215; 
BgL_obindingsz00_1200 = BgL_obindingsz00_2819; 
goto BgL_loopz00_1202;} } }  else 
{ /* ./Reduce/copy.scm 216 */
obj_t BgL_arg3388z00_1216;obj_t BgL_arg3389z00_1217;
BgL_arg3388z00_1216 = 
CDR(BgL_obindingsz00_1200); 
BgL_arg3389z00_1217 = 
MAKE_PAIR(BgL_bindingz00_1211, BgL_nbindingsz00_1201); 
{ 
obj_t BgL_nbindingsz00_2823;obj_t BgL_obindingsz00_2822;
BgL_obindingsz00_2822 = BgL_arg3388z00_1216; 
BgL_nbindingsz00_2823 = BgL_arg3389z00_1217; 
BgL_nbindingsz00_1201 = BgL_nbindingsz00_2823; 
BgL_obindingsz00_1200 = BgL_obindingsz00_2822; 
goto BgL_loopz00_1202;} } } } } } } } } } } } 
}



/* node-copy!-let-fun2733 */
obj_t BGl_nodezd2copyz12zd2letzd2fun2733zc0zzreduce_copyz00(obj_t BgL_envz00_2292, obj_t BgL_nodez00_2293)
{ AN_OBJECT;
{ /* ./Reduce/copy.scm 170 */
{ 
BgL_letzd2funzd2_bglt BgL_nodez00_1179;
{ /* ./Reduce/copy.scm 171 */
BgL_letzd2funzd2_bglt BgL_auxz00_2825;
BgL_nodez00_1179 = 
(BgL_letzd2funzd2_bglt)(BgL_nodez00_2293); 
{ 
obj_t BgL_l2686z00_1183;
{ /* ./Reduce/copy.scm 172 */
obj_t BgL_arg3325z00_1185;
BgL_arg3325z00_1185 = 
(((BgL_letzd2funzd2_bglt)CREF(BgL_nodez00_1179))->BgL_localsz00); 
BgL_l2686z00_1183 = BgL_arg3325z00_1185; 
BgL_forzd2each2687zd2_1184:
{ /* ./Reduce/copy.scm 172 */
bool_t BgL_test3328z00_1186;
BgL_test3328z00_1186 = 
PAIRP(BgL_l2686z00_1183); 
if(BgL_test3328z00_1186)
{ /* ./Reduce/copy.scm 172 */
{ /* ./Reduce/copy.scm 173 */
obj_t BgL_localz00_1187;
BgL_localz00_1187 = 
CAR(BgL_l2686z00_1183); 
{ /* ./Reduce/copy.scm 173 */
BgL_valuez00_bglt BgL_funz00_1188;
{ /* ./Reduce/copy.scm 173 */
BgL_variablez00_bglt BgL_obj1100z00_1813;
BgL_obj1100z00_1813 = 
(BgL_variablez00_bglt)(BgL_localz00_1187); 
BgL_funz00_1188 = 
(((BgL_variablez00_bglt)CREF(BgL_obj1100z00_1813))->BgL_valuez00); } 
{ /* ./Reduce/copy.scm 174 */
BgL_nodez00_bglt BgL_arg3330z00_1189;
{ /* ./Reduce/copy.scm 174 */
obj_t BgL_arg3333z00_1190;
{ /* ./Reduce/copy.scm 174 */
BgL_sfunz00_bglt BgL_obj1370z00_1814;
BgL_obj1370z00_1814 = 
(BgL_sfunz00_bglt)(BgL_funz00_1188); 
BgL_arg3333z00_1190 = 
(((BgL_sfunz00_bglt)CREF(BgL_obj1370z00_1814))->BgL_bodyz00); } 
{ /* ./Reduce/copy.scm 174 */
BgL_nodez00_bglt BgL_res3588z00_1841;
{ /* ./Reduce/copy.scm 174 */
BgL_nodez00_bglt BgL_nodez00_1815;
BgL_nodez00_1815 = 
(BgL_nodez00_bglt)(BgL_arg3333z00_1190); 
{ /* ./Reduce/copy.scm 174 */
obj_t BgL_method2705z00_1816;
{ /* ./Reduce/copy.scm 174 */
BgL_objectz00_bglt BgL_objz00_1817;
BgL_objz00_1817 = 
(BgL_objectz00_bglt)(BgL_nodez00_1815); 
{ /* ./Reduce/copy.scm 174 */
long BgL_objzd2classzd2numz00_1818;
BgL_objzd2classzd2numz00_1818 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1817); 
{ /* ./Reduce/copy.scm 174 */
obj_t BgL_arg2017z00_1819;
{ /* ./Reduce/copy.scm 174 */
int BgL_auxz00_2837;
BgL_auxz00_2837 = 
(int)(((long)1)); 
BgL_arg2017z00_1819 = 
PROCEDURE_REF(BGl_nodezd2copyz12zd2envz12zzreduce_copyz00, BgL_auxz00_2837); } 
{ /* ./Reduce/copy.scm 174 */
int BgL_offsetz00_1822;
BgL_offsetz00_1822 = 
(int)(BgL_objzd2classzd2numz00_1818); 
{ /* ./Reduce/copy.scm 174 */
long BgL_offsetz00_1823;
{ /* ./Reduce/copy.scm 174 */
long BgL_auxz00_2841;
BgL_auxz00_2841 = 
(long)(BgL_offsetz00_1822); 
BgL_offsetz00_1823 = 
(BgL_auxz00_2841-OBJECT_TYPE); } 
{ /* ./Reduce/copy.scm 174 */
long BgL_modz00_1824;
{ /* ./Reduce/copy.scm 174 */
int BgL_arg2028z00_1825;
BgL_arg2028z00_1825 = 
(int)(((long)8)); 
{ /* ./Reduce/copy.scm 174 */
long BgL_n2z00_1833;
BgL_n2z00_1833 = 
(long)(BgL_arg2028z00_1825); 
BgL_modz00_1824 = 
(BgL_offsetz00_1823/BgL_n2z00_1833); } } 
{ /* ./Reduce/copy.scm 174 */
long BgL_restz00_1826;
{ /* ./Reduce/copy.scm 174 */
int BgL_arg2024z00_1827;
BgL_arg2024z00_1827 = 
(int)(((long)8)); 
{ /* ./Reduce/copy.scm 174 */
long BgL_n2z00_1836;
BgL_n2z00_1836 = 
(long)(BgL_arg2024z00_1827); 
BgL_restz00_1826 = 
(BgL_offsetz00_1823%BgL_n2z00_1836); } } 
{ /* ./Reduce/copy.scm 174 */

{ /* ./Reduce/copy.scm 174 */
obj_t BgL_bucketz00_1828;
{ /* ./Reduce/copy.scm 174 */
int BgL_kz00_1838;
BgL_kz00_1838 = 
(int)(BgL_modz00_1824); 
BgL_bucketz00_1828 = 
VECTOR_REF(BgL_arg2017z00_1819,BgL_kz00_1838); } 
{ /* ./Reduce/copy.scm 174 */
int BgL_kz00_1840;
BgL_kz00_1840 = 
(int)(BgL_restz00_1826); 
BgL_method2705z00_1816 = 
VECTOR_REF(BgL_bucketz00_1828,BgL_kz00_1840); } } } } } } } } } } 
{ /* ./Reduce/copy.scm 174 */
obj_t BgL_auxz00_2854;
BgL_auxz00_2854 = 
PROCEDURE_ENTRY(BgL_method2705z00_1816)(BgL_method2705z00_1816, 
(obj_t)(BgL_nodez00_1815), BEOA); 
BgL_res3588z00_1841 = 
(BgL_nodez00_bglt)(BgL_auxz00_2854); } } } 
BgL_arg3330z00_1189 = BgL_res3588z00_1841; } } 
{ /* ./Reduce/copy.scm 174 */
BgL_sfunz00_bglt BgL_obj1373z00_1842;obj_t BgL_val1371z00_1843;
BgL_obj1373z00_1842 = 
(BgL_sfunz00_bglt)(BgL_funz00_1188); 
BgL_val1371z00_1843 = 
(obj_t)(BgL_arg3330z00_1189); 
((((BgL_sfunz00_bglt)CREF(BgL_obj1373z00_1842))->BgL_bodyz00) = ((obj_t)BgL_val1371z00_1843), BUNSPEC); } } } } 
{ /* ./Reduce/copy.scm 172 */
obj_t BgL_arg3340z00_1191;
BgL_arg3340z00_1191 = 
CDR(BgL_l2686z00_1183); 
{ 
obj_t BgL_l2686z00_2863;
BgL_l2686z00_2863 = BgL_arg3340z00_1191; 
BgL_l2686z00_1183 = BgL_l2686z00_2863; 
goto BgL_forzd2each2687zd2_1184;} } }  else 
{ /* ./Reduce/copy.scm 172 */((bool_t)1); } } } } 
{ /* ./Reduce/copy.scm 176 */
BgL_nodez00_bglt BgL_arg3345z00_1192;
{ /* ./Reduce/copy.scm 176 */
BgL_nodez00_bglt BgL_arg3348z00_1193;
BgL_arg3348z00_1193 = 
(((BgL_letzd2funzd2_bglt)CREF(BgL_nodez00_1179))->BgL_bodyz00); 
{ /* ./Reduce/copy.scm 176 */
BgL_nodez00_bglt BgL_res3591z00_1872;
{ /* ./Reduce/copy.scm 176 */
obj_t BgL_method2705z00_1847;
{ /* ./Reduce/copy.scm 176 */
BgL_objectz00_bglt BgL_objz00_1848;
BgL_objz00_1848 = 
(BgL_objectz00_bglt)(BgL_arg3348z00_1193); 
{ /* ./Reduce/copy.scm 176 */
long BgL_objzd2classzd2numz00_1849;
BgL_objzd2classzd2numz00_1849 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1848); 
{ /* ./Reduce/copy.scm 176 */
obj_t BgL_arg2017z00_1850;
{ /* ./Reduce/copy.scm 176 */
int BgL_auxz00_2867;
BgL_auxz00_2867 = 
(int)(((long)1)); 
BgL_arg2017z00_1850 = 
PROCEDURE_REF(BGl_nodezd2copyz12zd2envz12zzreduce_copyz00, BgL_auxz00_2867); } 
{ /* ./Reduce/copy.scm 176 */
int BgL_offsetz00_1853;
BgL_offsetz00_1853 = 
(int)(BgL_objzd2classzd2numz00_1849); 
{ /* ./Reduce/copy.scm 176 */
long BgL_offsetz00_1854;
{ /* ./Reduce/copy.scm 176 */
long BgL_auxz00_2871;
BgL_auxz00_2871 = 
(long)(BgL_offsetz00_1853); 
BgL_offsetz00_1854 = 
(BgL_auxz00_2871-OBJECT_TYPE); } 
{ /* ./Reduce/copy.scm 176 */
long BgL_modz00_1855;
{ /* ./Reduce/copy.scm 176 */
int BgL_arg2028z00_1856;
BgL_arg2028z00_1856 = 
(int)(((long)8)); 
{ /* ./Reduce/copy.scm 176 */
long BgL_n2z00_1864;
BgL_n2z00_1864 = 
(long)(BgL_arg2028z00_1856); 
BgL_modz00_1855 = 
(BgL_offsetz00_1854/BgL_n2z00_1864); } } 
{ /* ./Reduce/copy.scm 176 */
long BgL_restz00_1857;
{ /* ./Reduce/copy.scm 176 */
int BgL_arg2024z00_1858;
BgL_arg2024z00_1858 = 
(int)(((long)8)); 
{ /* ./Reduce/copy.scm 176 */
long BgL_n2z00_1867;
BgL_n2z00_1867 = 
(long)(BgL_arg2024z00_1858); 
BgL_restz00_1857 = 
(BgL_offsetz00_1854%BgL_n2z00_1867); } } 
{ /* ./Reduce/copy.scm 176 */

{ /* ./Reduce/copy.scm 176 */
obj_t BgL_bucketz00_1859;
{ /* ./Reduce/copy.scm 176 */
int BgL_kz00_1869;
BgL_kz00_1869 = 
(int)(BgL_modz00_1855); 
BgL_bucketz00_1859 = 
VECTOR_REF(BgL_arg2017z00_1850,BgL_kz00_1869); } 
{ /* ./Reduce/copy.scm 176 */
int BgL_kz00_1871;
BgL_kz00_1871 = 
(int)(BgL_restz00_1857); 
BgL_method2705z00_1847 = 
VECTOR_REF(BgL_bucketz00_1859,BgL_kz00_1871); } } } } } } } } } } 
{ /* ./Reduce/copy.scm 176 */
obj_t BgL_auxz00_2884;
BgL_auxz00_2884 = 
PROCEDURE_ENTRY(BgL_method2705z00_1847)(BgL_method2705z00_1847, 
(obj_t)(BgL_arg3348z00_1193), BEOA); 
BgL_res3591z00_1872 = 
(BgL_nodez00_bglt)(BgL_auxz00_2884); } } 
BgL_arg3345z00_1192 = BgL_res3591z00_1872; } } 
{ /* ./Reduce/copy.scm 176 */
BgL_letzd2funzd2_bglt BgL_obj2453z00_1873;BgL_nodez00_bglt BgL_val2452z00_1874;
BgL_obj2453z00_1873 = BgL_nodez00_1179; 
BgL_val2452z00_1874 = BgL_arg3345z00_1192; 
((((BgL_letzd2funzd2_bglt)CREF(BgL_obj2453z00_1873))->BgL_bodyz00) = ((BgL_nodez00_bglt)BgL_val2452z00_1874), BUNSPEC); } } 
BgL_auxz00_2825 = BgL_nodez00_1179; 
return 
(obj_t)(BgL_auxz00_2825);} } } 
}



/* node-copy!-select2731 */
obj_t BGl_nodezd2copyz12zd2select2731z12zzreduce_copyz00(obj_t BgL_envz00_2294, obj_t BgL_nodez00_2295)
{ AN_OBJECT;
{ /* ./Reduce/copy.scm 159 */
{ 
BgL_selectz00_bglt BgL_nodez00_1163;
{ /* ./Reduce/copy.scm 160 */
BgL_selectz00_bglt BgL_auxz00_2892;
BgL_nodez00_1163 = 
(BgL_selectz00_bglt)(BgL_nodez00_2295); 
{ /* ./Reduce/copy.scm 161 */
BgL_nodez00_bglt BgL_arg3294z00_1167;
{ /* ./Reduce/copy.scm 161 */
BgL_nodez00_bglt BgL_arg3297z00_1168;
BgL_arg3297z00_1168 = 
(((BgL_selectz00_bglt)CREF(BgL_nodez00_1163))->BgL_testz00); 
{ /* ./Reduce/copy.scm 161 */
BgL_nodez00_bglt BgL_res3582z00_1773;
{ /* ./Reduce/copy.scm 161 */
obj_t BgL_method2705z00_1748;
{ /* ./Reduce/copy.scm 161 */
BgL_objectz00_bglt BgL_objz00_1749;
BgL_objz00_1749 = 
(BgL_objectz00_bglt)(BgL_arg3297z00_1168); 
{ /* ./Reduce/copy.scm 161 */
long BgL_objzd2classzd2numz00_1750;
BgL_objzd2classzd2numz00_1750 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1749); 
{ /* ./Reduce/copy.scm 161 */
obj_t BgL_arg2017z00_1751;
{ /* ./Reduce/copy.scm 161 */
int BgL_auxz00_2896;
BgL_auxz00_2896 = 
(int)(((long)1)); 
BgL_arg2017z00_1751 = 
PROCEDURE_REF(BGl_nodezd2copyz12zd2envz12zzreduce_copyz00, BgL_auxz00_2896); } 
{ /* ./Reduce/copy.scm 161 */
int BgL_offsetz00_1754;
BgL_offsetz00_1754 = 
(int)(BgL_objzd2classzd2numz00_1750); 
{ /* ./Reduce/copy.scm 161 */
long BgL_offsetz00_1755;
{ /* ./Reduce/copy.scm 161 */
long BgL_auxz00_2900;
BgL_auxz00_2900 = 
(long)(BgL_offsetz00_1754); 
BgL_offsetz00_1755 = 
(BgL_auxz00_2900-OBJECT_TYPE); } 
{ /* ./Reduce/copy.scm 161 */
long BgL_modz00_1756;
{ /* ./Reduce/copy.scm 161 */
int BgL_arg2028z00_1757;
BgL_arg2028z00_1757 = 
(int)(((long)8)); 
{ /* ./Reduce/copy.scm 161 */
long BgL_n2z00_1765;
BgL_n2z00_1765 = 
(long)(BgL_arg2028z00_1757); 
BgL_modz00_1756 = 
(BgL_offsetz00_1755/BgL_n2z00_1765); } } 
{ /* ./Reduce/copy.scm 161 */
long BgL_restz00_1758;
{ /* ./Reduce/copy.scm 161 */
int BgL_arg2024z00_1759;
BgL_arg2024z00_1759 = 
(int)(((long)8)); 
{ /* ./Reduce/copy.scm 161 */
long BgL_n2z00_1768;
BgL_n2z00_1768 = 
(long)(BgL_arg2024z00_1759); 
BgL_restz00_1758 = 
(BgL_offsetz00_1755%BgL_n2z00_1768); } } 
{ /* ./Reduce/copy.scm 161 */

{ /* ./Reduce/copy.scm 161 */
obj_t BgL_bucketz00_1760;
{ /* ./Reduce/copy.scm 161 */
int BgL_kz00_1770;
BgL_kz00_1770 = 
(int)(BgL_modz00_1756); 
BgL_bucketz00_1760 = 
VECTOR_REF(BgL_arg2017z00_1751,BgL_kz00_1770); } 
{ /* ./Reduce/copy.scm 161 */
int BgL_kz00_1772;
BgL_kz00_1772 = 
(int)(BgL_restz00_1758); 
BgL_method2705z00_1748 = 
VECTOR_REF(BgL_bucketz00_1760,BgL_kz00_1772); } } } } } } } } } } 
{ /* ./Reduce/copy.scm 161 */
obj_t BgL_auxz00_2913;
BgL_auxz00_2913 = 
PROCEDURE_ENTRY(BgL_method2705z00_1748)(BgL_method2705z00_1748, 
(obj_t)(BgL_arg3297z00_1168), BEOA); 
BgL_res3582z00_1773 = 
(BgL_nodez00_bglt)(BgL_auxz00_2913); } } 
BgL_arg3294z00_1167 = BgL_res3582z00_1773; } } 
{ /* ./Reduce/copy.scm 161 */
BgL_selectz00_bglt BgL_obj2410z00_1774;BgL_nodez00_bglt BgL_val2409z00_1775;
BgL_obj2410z00_1774 = BgL_nodez00_1163; 
BgL_val2409z00_1775 = BgL_arg3294z00_1167; 
((((BgL_selectz00_bglt)CREF(BgL_obj2410z00_1774))->BgL_testz00) = ((BgL_nodez00_bglt)BgL_val2409z00_1775), BUNSPEC); } } 
{ 
obj_t BgL_l2682z00_1169;
{ /* ./Reduce/copy.scm 162 */
obj_t BgL_arg3301z00_1171;
BgL_arg3301z00_1171 = 
(((BgL_selectz00_bglt)CREF(BgL_nodez00_1163))->BgL_clausesz00); 
BgL_l2682z00_1169 = BgL_arg3301z00_1171; 
BgL_forzd2each2683zd2_1170:
{ /* ./Reduce/copy.scm 162 */
bool_t BgL_test3304z00_1172;
BgL_test3304z00_1172 = 
PAIRP(BgL_l2682z00_1169); 
if(BgL_test3304z00_1172)
{ /* ./Reduce/copy.scm 162 */
{ /* ./Reduce/copy.scm 163 */
obj_t BgL_clausez00_1173;
BgL_clausez00_1173 = 
CAR(BgL_l2682z00_1169); 
{ /* ./Reduce/copy.scm 163 */
BgL_nodez00_bglt BgL_arg3306z00_1174;
{ /* ./Reduce/copy.scm 163 */
obj_t BgL_arg3309z00_1175;
BgL_arg3309z00_1175 = 
CDR(BgL_clausez00_1173); 
{ /* ./Reduce/copy.scm 163 */
BgL_nodez00_bglt BgL_res3585z00_1806;
{ /* ./Reduce/copy.scm 163 */
BgL_nodez00_bglt BgL_nodez00_1780;
BgL_nodez00_1780 = 
(BgL_nodez00_bglt)(BgL_arg3309z00_1175); 
{ /* ./Reduce/copy.scm 163 */
obj_t BgL_method2705z00_1781;
{ /* ./Reduce/copy.scm 163 */
BgL_objectz00_bglt BgL_objz00_1782;
BgL_objz00_1782 = 
(BgL_objectz00_bglt)(BgL_nodez00_1780); 
{ /* ./Reduce/copy.scm 163 */
long BgL_objzd2classzd2numz00_1783;
BgL_objzd2classzd2numz00_1783 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1782); 
{ /* ./Reduce/copy.scm 163 */
obj_t BgL_arg2017z00_1784;
{ /* ./Reduce/copy.scm 163 */
int BgL_auxz00_2927;
BgL_auxz00_2927 = 
(int)(((long)1)); 
BgL_arg2017z00_1784 = 
PROCEDURE_REF(BGl_nodezd2copyz12zd2envz12zzreduce_copyz00, BgL_auxz00_2927); } 
{ /* ./Reduce/copy.scm 163 */
int BgL_offsetz00_1787;
BgL_offsetz00_1787 = 
(int)(BgL_objzd2classzd2numz00_1783); 
{ /* ./Reduce/copy.scm 163 */
long BgL_offsetz00_1788;
{ /* ./Reduce/copy.scm 163 */
long BgL_auxz00_2931;
BgL_auxz00_2931 = 
(long)(BgL_offsetz00_1787); 
BgL_offsetz00_1788 = 
(BgL_auxz00_2931-OBJECT_TYPE); } 
{ /* ./Reduce/copy.scm 163 */
long BgL_modz00_1789;
{ /* ./Reduce/copy.scm 163 */
int BgL_arg2028z00_1790;
BgL_arg2028z00_1790 = 
(int)(((long)8)); 
{ /* ./Reduce/copy.scm 163 */
long BgL_n2z00_1798;
BgL_n2z00_1798 = 
(long)(BgL_arg2028z00_1790); 
BgL_modz00_1789 = 
(BgL_offsetz00_1788/BgL_n2z00_1798); } } 
{ /* ./Reduce/copy.scm 163 */
long BgL_restz00_1791;
{ /* ./Reduce/copy.scm 163 */
int BgL_arg2024z00_1792;
BgL_arg2024z00_1792 = 
(int)(((long)8)); 
{ /* ./Reduce/copy.scm 163 */
long BgL_n2z00_1801;
BgL_n2z00_1801 = 
(long)(BgL_arg2024z00_1792); 
BgL_restz00_1791 = 
(BgL_offsetz00_1788%BgL_n2z00_1801); } } 
{ /* ./Reduce/copy.scm 163 */

{ /* ./Reduce/copy.scm 163 */
obj_t BgL_bucketz00_1793;
{ /* ./Reduce/copy.scm 163 */
int BgL_kz00_1803;
BgL_kz00_1803 = 
(int)(BgL_modz00_1789); 
BgL_bucketz00_1793 = 
VECTOR_REF(BgL_arg2017z00_1784,BgL_kz00_1803); } 
{ /* ./Reduce/copy.scm 163 */
int BgL_kz00_1805;
BgL_kz00_1805 = 
(int)(BgL_restz00_1791); 
BgL_method2705z00_1781 = 
VECTOR_REF(BgL_bucketz00_1793,BgL_kz00_1805); } } } } } } } } } } 
{ /* ./Reduce/copy.scm 163 */
obj_t BgL_auxz00_2944;
BgL_auxz00_2944 = 
PROCEDURE_ENTRY(BgL_method2705z00_1781)(BgL_method2705z00_1781, 
(obj_t)(BgL_nodez00_1780), BEOA); 
BgL_res3585z00_1806 = 
(BgL_nodez00_bglt)(BgL_auxz00_2944); } } } 
BgL_arg3306z00_1174 = BgL_res3585z00_1806; } } 
{ /* ./Reduce/copy.scm 163 */
obj_t BgL_objz00_1808;
BgL_objz00_1808 = 
(obj_t)(BgL_arg3306z00_1174); 
SET_CDR(BgL_clausez00_1173, BgL_objz00_1808); } } } 
{ /* ./Reduce/copy.scm 162 */
obj_t BgL_arg3314z00_1176;
BgL_arg3314z00_1176 = 
CDR(BgL_l2682z00_1169); 
{ 
obj_t BgL_l2682z00_2952;
BgL_l2682z00_2952 = BgL_arg3314z00_1176; 
BgL_l2682z00_1169 = BgL_l2682z00_2952; 
goto BgL_forzd2each2683zd2_1170;} } }  else 
{ /* ./Reduce/copy.scm 162 */((bool_t)1); } } } } 
BgL_auxz00_2892 = BgL_nodez00_1163; 
return 
(obj_t)(BgL_auxz00_2892);} } } 
}



/* node-copy!-fail2729 */
obj_t BGl_nodezd2copyz12zd2fail2729z12zzreduce_copyz00(obj_t BgL_envz00_2296, obj_t BgL_nodez00_2297)
{ AN_OBJECT;
{ /* ./Reduce/copy.scm 149 */
{ 
BgL_failz00_bglt BgL_nodez00_1151;
{ /* ./Reduce/copy.scm 150 */
BgL_failz00_bglt BgL_auxz00_2955;
BgL_nodez00_1151 = 
(BgL_failz00_bglt)(BgL_nodez00_2297); 
{ /* ./Reduce/copy.scm 151 */
BgL_nodez00_bglt BgL_arg3267z00_1155;
{ /* ./Reduce/copy.scm 151 */
BgL_nodez00_bglt BgL_arg3270z00_1156;
BgL_arg3270z00_1156 = 
(((BgL_failz00_bglt)CREF(BgL_nodez00_1151))->BgL_procz00); 
{ /* ./Reduce/copy.scm 151 */
BgL_nodez00_bglt BgL_res3573z00_1683;
{ /* ./Reduce/copy.scm 151 */
obj_t BgL_method2705z00_1658;
{ /* ./Reduce/copy.scm 151 */
BgL_objectz00_bglt BgL_objz00_1659;
BgL_objz00_1659 = 
(BgL_objectz00_bglt)(BgL_arg3270z00_1156); 
{ /* ./Reduce/copy.scm 151 */
long BgL_objzd2classzd2numz00_1660;
BgL_objzd2classzd2numz00_1660 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1659); 
{ /* ./Reduce/copy.scm 151 */
obj_t BgL_arg2017z00_1661;
{ /* ./Reduce/copy.scm 151 */
int BgL_auxz00_2959;
BgL_auxz00_2959 = 
(int)(((long)1)); 
BgL_arg2017z00_1661 = 
PROCEDURE_REF(BGl_nodezd2copyz12zd2envz12zzreduce_copyz00, BgL_auxz00_2959); } 
{ /* ./Reduce/copy.scm 151 */
int BgL_offsetz00_1664;
BgL_offsetz00_1664 = 
(int)(BgL_objzd2classzd2numz00_1660); 
{ /* ./Reduce/copy.scm 151 */
long BgL_offsetz00_1665;
{ /* ./Reduce/copy.scm 151 */
long BgL_auxz00_2963;
BgL_auxz00_2963 = 
(long)(BgL_offsetz00_1664); 
BgL_offsetz00_1665 = 
(BgL_auxz00_2963-OBJECT_TYPE); } 
{ /* ./Reduce/copy.scm 151 */
long BgL_modz00_1666;
{ /* ./Reduce/copy.scm 151 */
int BgL_arg2028z00_1667;
BgL_arg2028z00_1667 = 
(int)(((long)8)); 
{ /* ./Reduce/copy.scm 151 */
long BgL_n2z00_1675;
BgL_n2z00_1675 = 
(long)(BgL_arg2028z00_1667); 
BgL_modz00_1666 = 
(BgL_offsetz00_1665/BgL_n2z00_1675); } } 
{ /* ./Reduce/copy.scm 151 */
long BgL_restz00_1668;
{ /* ./Reduce/copy.scm 151 */
int BgL_arg2024z00_1669;
BgL_arg2024z00_1669 = 
(int)(((long)8)); 
{ /* ./Reduce/copy.scm 151 */
long BgL_n2z00_1678;
BgL_n2z00_1678 = 
(long)(BgL_arg2024z00_1669); 
BgL_restz00_1668 = 
(BgL_offsetz00_1665%BgL_n2z00_1678); } } 
{ /* ./Reduce/copy.scm 151 */

{ /* ./Reduce/copy.scm 151 */
obj_t BgL_bucketz00_1670;
{ /* ./Reduce/copy.scm 151 */
int BgL_kz00_1680;
BgL_kz00_1680 = 
(int)(BgL_modz00_1666); 
BgL_bucketz00_1670 = 
VECTOR_REF(BgL_arg2017z00_1661,BgL_kz00_1680); } 
{ /* ./Reduce/copy.scm 151 */
int BgL_kz00_1682;
BgL_kz00_1682 = 
(int)(BgL_restz00_1668); 
BgL_method2705z00_1658 = 
VECTOR_REF(BgL_bucketz00_1670,BgL_kz00_1682); } } } } } } } } } } 
{ /* ./Reduce/copy.scm 151 */
obj_t BgL_auxz00_2976;
BgL_auxz00_2976 = 
PROCEDURE_ENTRY(BgL_method2705z00_1658)(BgL_method2705z00_1658, 
(obj_t)(BgL_arg3270z00_1156), BEOA); 
BgL_res3573z00_1683 = 
(BgL_nodez00_bglt)(BgL_auxz00_2976); } } 
BgL_arg3267z00_1155 = BgL_res3573z00_1683; } } 
{ /* ./Reduce/copy.scm 151 */
BgL_failz00_bglt BgL_obj2372z00_1684;BgL_nodez00_bglt BgL_val2371z00_1685;
BgL_obj2372z00_1684 = BgL_nodez00_1151; 
BgL_val2371z00_1685 = BgL_arg3267z00_1155; 
((((BgL_failz00_bglt)CREF(BgL_obj2372z00_1684))->BgL_procz00) = ((BgL_nodez00_bglt)BgL_val2371z00_1685), BUNSPEC); } } 
{ /* ./Reduce/copy.scm 152 */
BgL_nodez00_bglt BgL_arg3274z00_1157;
{ /* ./Reduce/copy.scm 152 */
BgL_nodez00_bglt BgL_arg3277z00_1158;
BgL_arg3277z00_1158 = 
(((BgL_failz00_bglt)CREF(BgL_nodez00_1151))->BgL_msgz00); 
{ /* ./Reduce/copy.scm 152 */
BgL_nodez00_bglt BgL_res3576z00_1713;
{ /* ./Reduce/copy.scm 152 */
obj_t BgL_method2705z00_1688;
{ /* ./Reduce/copy.scm 152 */
BgL_objectz00_bglt BgL_objz00_1689;
BgL_objz00_1689 = 
(BgL_objectz00_bglt)(BgL_arg3277z00_1158); 
{ /* ./Reduce/copy.scm 152 */
long BgL_objzd2classzd2numz00_1690;
BgL_objzd2classzd2numz00_1690 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1689); 
{ /* ./Reduce/copy.scm 152 */
obj_t BgL_arg2017z00_1691;
{ /* ./Reduce/copy.scm 152 */
int BgL_auxz00_2985;
BgL_auxz00_2985 = 
(int)(((long)1)); 
BgL_arg2017z00_1691 = 
PROCEDURE_REF(BGl_nodezd2copyz12zd2envz12zzreduce_copyz00, BgL_auxz00_2985); } 
{ /* ./Reduce/copy.scm 152 */
int BgL_offsetz00_1694;
BgL_offsetz00_1694 = 
(int)(BgL_objzd2classzd2numz00_1690); 
{ /* ./Reduce/copy.scm 152 */
long BgL_offsetz00_1695;
{ /* ./Reduce/copy.scm 152 */
long BgL_auxz00_2989;
BgL_auxz00_2989 = 
(long)(BgL_offsetz00_1694); 
BgL_offsetz00_1695 = 
(BgL_auxz00_2989-OBJECT_TYPE); } 
{ /* ./Reduce/copy.scm 152 */
long BgL_modz00_1696;
{ /* ./Reduce/copy.scm 152 */
int BgL_arg2028z00_1697;
BgL_arg2028z00_1697 = 
(int)(((long)8)); 
{ /* ./Reduce/copy.scm 152 */
long BgL_n2z00_1705;
BgL_n2z00_1705 = 
(long)(BgL_arg2028z00_1697); 
BgL_modz00_1696 = 
(BgL_offsetz00_1695/BgL_n2z00_1705); } } 
{ /* ./Reduce/copy.scm 152 */
long BgL_restz00_1698;
{ /* ./Reduce/copy.scm 152 */
int BgL_arg2024z00_1699;
BgL_arg2024z00_1699 = 
(int)(((long)8)); 
{ /* ./Reduce/copy.scm 152 */
long BgL_n2z00_1708;
BgL_n2z00_1708 = 
(long)(BgL_arg2024z00_1699); 
BgL_restz00_1698 = 
(BgL_offsetz00_1695%BgL_n2z00_1708); } } 
{ /* ./Reduce/copy.scm 152 */

{ /* ./Reduce/copy.scm 152 */
obj_t BgL_bucketz00_1700;
{ /* ./Reduce/copy.scm 152 */
int BgL_kz00_1710;
BgL_kz00_1710 = 
(int)(BgL_modz00_1696); 
BgL_bucketz00_1700 = 
VECTOR_REF(BgL_arg2017z00_1691,BgL_kz00_1710); } 
{ /* ./Reduce/copy.scm 152 */
int BgL_kz00_1712;
BgL_kz00_1712 = 
(int)(BgL_restz00_1698); 
BgL_method2705z00_1688 = 
VECTOR_REF(BgL_bucketz00_1700,BgL_kz00_1712); } } } } } } } } } } 
{ /* ./Reduce/copy.scm 152 */
obj_t BgL_auxz00_3002;
BgL_auxz00_3002 = 
PROCEDURE_ENTRY(BgL_method2705z00_1688)(BgL_method2705z00_1688, 
(obj_t)(BgL_arg3277z00_1158), BEOA); 
BgL_res3576z00_1713 = 
(BgL_nodez00_bglt)(BgL_auxz00_3002); } } 
BgL_arg3274z00_1157 = BgL_res3576z00_1713; } } 
{ /* ./Reduce/copy.scm 152 */
BgL_failz00_bglt BgL_obj2375z00_1714;BgL_nodez00_bglt BgL_val2374z00_1715;
BgL_obj2375z00_1714 = BgL_nodez00_1151; 
BgL_val2374z00_1715 = BgL_arg3274z00_1157; 
((((BgL_failz00_bglt)CREF(BgL_obj2375z00_1714))->BgL_msgz00) = ((BgL_nodez00_bglt)BgL_val2374z00_1715), BUNSPEC); } } 
{ /* ./Reduce/copy.scm 153 */
BgL_nodez00_bglt BgL_arg3281z00_1159;
{ /* ./Reduce/copy.scm 153 */
BgL_nodez00_bglt BgL_arg3284z00_1160;
BgL_arg3284z00_1160 = 
(((BgL_failz00_bglt)CREF(BgL_nodez00_1151))->BgL_objz00); 
{ /* ./Reduce/copy.scm 153 */
BgL_nodez00_bglt BgL_res3579z00_1743;
{ /* ./Reduce/copy.scm 153 */
obj_t BgL_method2705z00_1718;
{ /* ./Reduce/copy.scm 153 */
BgL_objectz00_bglt BgL_objz00_1719;
BgL_objz00_1719 = 
(BgL_objectz00_bglt)(BgL_arg3284z00_1160); 
{ /* ./Reduce/copy.scm 153 */
long BgL_objzd2classzd2numz00_1720;
BgL_objzd2classzd2numz00_1720 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1719); 
{ /* ./Reduce/copy.scm 153 */
obj_t BgL_arg2017z00_1721;
{ /* ./Reduce/copy.scm 153 */
int BgL_auxz00_3011;
BgL_auxz00_3011 = 
(int)(((long)1)); 
BgL_arg2017z00_1721 = 
PROCEDURE_REF(BGl_nodezd2copyz12zd2envz12zzreduce_copyz00, BgL_auxz00_3011); } 
{ /* ./Reduce/copy.scm 153 */
int BgL_offsetz00_1724;
BgL_offsetz00_1724 = 
(int)(BgL_objzd2classzd2numz00_1720); 
{ /* ./Reduce/copy.scm 153 */
long BgL_offsetz00_1725;
{ /* ./Reduce/copy.scm 153 */
long BgL_auxz00_3015;
BgL_auxz00_3015 = 
(long)(BgL_offsetz00_1724); 
BgL_offsetz00_1725 = 
(BgL_auxz00_3015-OBJECT_TYPE); } 
{ /* ./Reduce/copy.scm 153 */
long BgL_modz00_1726;
{ /* ./Reduce/copy.scm 153 */
int BgL_arg2028z00_1727;
BgL_arg2028z00_1727 = 
(int)(((long)8)); 
{ /* ./Reduce/copy.scm 153 */
long BgL_n2z00_1735;
BgL_n2z00_1735 = 
(long)(BgL_arg2028z00_1727); 
BgL_modz00_1726 = 
(BgL_offsetz00_1725/BgL_n2z00_1735); } } 
{ /* ./Reduce/copy.scm 153 */
long BgL_restz00_1728;
{ /* ./Reduce/copy.scm 153 */
int BgL_arg2024z00_1729;
BgL_arg2024z00_1729 = 
(int)(((long)8)); 
{ /* ./Reduce/copy.scm 153 */
long BgL_n2z00_1738;
BgL_n2z00_1738 = 
(long)(BgL_arg2024z00_1729); 
BgL_restz00_1728 = 
(BgL_offsetz00_1725%BgL_n2z00_1738); } } 
{ /* ./Reduce/copy.scm 153 */

{ /* ./Reduce/copy.scm 153 */
obj_t BgL_bucketz00_1730;
{ /* ./Reduce/copy.scm 153 */
int BgL_kz00_1740;
BgL_kz00_1740 = 
(int)(BgL_modz00_1726); 
BgL_bucketz00_1730 = 
VECTOR_REF(BgL_arg2017z00_1721,BgL_kz00_1740); } 
{ /* ./Reduce/copy.scm 153 */
int BgL_kz00_1742;
BgL_kz00_1742 = 
(int)(BgL_restz00_1728); 
BgL_method2705z00_1718 = 
VECTOR_REF(BgL_bucketz00_1730,BgL_kz00_1742); } } } } } } } } } } 
{ /* ./Reduce/copy.scm 153 */
obj_t BgL_auxz00_3028;
BgL_auxz00_3028 = 
PROCEDURE_ENTRY(BgL_method2705z00_1718)(BgL_method2705z00_1718, 
(obj_t)(BgL_arg3284z00_1160), BEOA); 
BgL_res3579z00_1743 = 
(BgL_nodez00_bglt)(BgL_auxz00_3028); } } 
BgL_arg3281z00_1159 = BgL_res3579z00_1743; } } 
{ /* ./Reduce/copy.scm 153 */
BgL_failz00_bglt BgL_obj2378z00_1744;BgL_nodez00_bglt BgL_val2377z00_1745;
BgL_obj2378z00_1744 = BgL_nodez00_1151; 
BgL_val2377z00_1745 = BgL_arg3281z00_1159; 
((((BgL_failz00_bglt)CREF(BgL_obj2378z00_1744))->BgL_objz00) = ((BgL_nodez00_bglt)BgL_val2377z00_1745), BUNSPEC); } } 
BgL_auxz00_2955 = BgL_nodez00_1151; 
return 
(obj_t)(BgL_auxz00_2955);} } } 
}



/* node-copy!-conditional2727 */
obj_t BGl_nodezd2copyz12zd2conditional2727z12zzreduce_copyz00(obj_t BgL_envz00_2298, obj_t BgL_nodez00_2299)
{ AN_OBJECT;
{ /* ./Reduce/copy.scm 139 */
{ 
BgL_conditionalz00_bglt BgL_nodez00_1139;
{ /* ./Reduce/copy.scm 140 */
BgL_conditionalz00_bglt BgL_auxz00_3036;
BgL_nodez00_1139 = 
(BgL_conditionalz00_bglt)(BgL_nodez00_2299); 
{ /* ./Reduce/copy.scm 141 */
BgL_nodez00_bglt BgL_arg3240z00_1143;
{ /* ./Reduce/copy.scm 141 */
BgL_nodez00_bglt BgL_arg3243z00_1144;
BgL_arg3243z00_1144 = 
(((BgL_conditionalz00_bglt)CREF(BgL_nodez00_1139))->BgL_testz00); 
{ /* ./Reduce/copy.scm 141 */
BgL_nodez00_bglt BgL_res3564z00_1593;
{ /* ./Reduce/copy.scm 141 */
obj_t BgL_method2705z00_1568;
{ /* ./Reduce/copy.scm 141 */
BgL_objectz00_bglt BgL_objz00_1569;
BgL_objz00_1569 = 
(BgL_objectz00_bglt)(BgL_arg3243z00_1144); 
{ /* ./Reduce/copy.scm 141 */
long BgL_objzd2classzd2numz00_1570;
BgL_objzd2classzd2numz00_1570 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1569); 
{ /* ./Reduce/copy.scm 141 */
obj_t BgL_arg2017z00_1571;
{ /* ./Reduce/copy.scm 141 */
int BgL_auxz00_3040;
BgL_auxz00_3040 = 
(int)(((long)1)); 
BgL_arg2017z00_1571 = 
PROCEDURE_REF(BGl_nodezd2copyz12zd2envz12zzreduce_copyz00, BgL_auxz00_3040); } 
{ /* ./Reduce/copy.scm 141 */
int BgL_offsetz00_1574;
BgL_offsetz00_1574 = 
(int)(BgL_objzd2classzd2numz00_1570); 
{ /* ./Reduce/copy.scm 141 */
long BgL_offsetz00_1575;
{ /* ./Reduce/copy.scm 141 */
long BgL_auxz00_3044;
BgL_auxz00_3044 = 
(long)(BgL_offsetz00_1574); 
BgL_offsetz00_1575 = 
(BgL_auxz00_3044-OBJECT_TYPE); } 
{ /* ./Reduce/copy.scm 141 */
long BgL_modz00_1576;
{ /* ./Reduce/copy.scm 141 */
int BgL_arg2028z00_1577;
BgL_arg2028z00_1577 = 
(int)(((long)8)); 
{ /* ./Reduce/copy.scm 141 */
long BgL_n2z00_1585;
BgL_n2z00_1585 = 
(long)(BgL_arg2028z00_1577); 
BgL_modz00_1576 = 
(BgL_offsetz00_1575/BgL_n2z00_1585); } } 
{ /* ./Reduce/copy.scm 141 */
long BgL_restz00_1578;
{ /* ./Reduce/copy.scm 141 */
int BgL_arg2024z00_1579;
BgL_arg2024z00_1579 = 
(int)(((long)8)); 
{ /* ./Reduce/copy.scm 141 */
long BgL_n2z00_1588;
BgL_n2z00_1588 = 
(long)(BgL_arg2024z00_1579); 
BgL_restz00_1578 = 
(BgL_offsetz00_1575%BgL_n2z00_1588); } } 
{ /* ./Reduce/copy.scm 141 */

{ /* ./Reduce/copy.scm 141 */
obj_t BgL_bucketz00_1580;
{ /* ./Reduce/copy.scm 141 */
int BgL_kz00_1590;
BgL_kz00_1590 = 
(int)(BgL_modz00_1576); 
BgL_bucketz00_1580 = 
VECTOR_REF(BgL_arg2017z00_1571,BgL_kz00_1590); } 
{ /* ./Reduce/copy.scm 141 */
int BgL_kz00_1592;
BgL_kz00_1592 = 
(int)(BgL_restz00_1578); 
BgL_method2705z00_1568 = 
VECTOR_REF(BgL_bucketz00_1580,BgL_kz00_1592); } } } } } } } } } } 
{ /* ./Reduce/copy.scm 141 */
obj_t BgL_auxz00_3057;
BgL_auxz00_3057 = 
PROCEDURE_ENTRY(BgL_method2705z00_1568)(BgL_method2705z00_1568, 
(obj_t)(BgL_arg3243z00_1144), BEOA); 
BgL_res3564z00_1593 = 
(BgL_nodez00_bglt)(BgL_auxz00_3057); } } 
BgL_arg3240z00_1143 = BgL_res3564z00_1593; } } 
{ /* ./Reduce/copy.scm 141 */
BgL_conditionalz00_bglt BgL_obj2334z00_1594;BgL_nodez00_bglt BgL_val2333z00_1595;
BgL_obj2334z00_1594 = BgL_nodez00_1139; 
BgL_val2333z00_1595 = BgL_arg3240z00_1143; 
((((BgL_conditionalz00_bglt)CREF(BgL_obj2334z00_1594))->BgL_testz00) = ((BgL_nodez00_bglt)BgL_val2333z00_1595), BUNSPEC); } } 
{ /* ./Reduce/copy.scm 142 */
BgL_nodez00_bglt BgL_arg3247z00_1145;
{ /* ./Reduce/copy.scm 142 */
BgL_nodez00_bglt BgL_arg3250z00_1146;
BgL_arg3250z00_1146 = 
(((BgL_conditionalz00_bglt)CREF(BgL_nodez00_1139))->BgL_truez00); 
{ /* ./Reduce/copy.scm 142 */
BgL_nodez00_bglt BgL_res3567z00_1623;
{ /* ./Reduce/copy.scm 142 */
obj_t BgL_method2705z00_1598;
{ /* ./Reduce/copy.scm 142 */
BgL_objectz00_bglt BgL_objz00_1599;
BgL_objz00_1599 = 
(BgL_objectz00_bglt)(BgL_arg3250z00_1146); 
{ /* ./Reduce/copy.scm 142 */
long BgL_objzd2classzd2numz00_1600;
BgL_objzd2classzd2numz00_1600 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1599); 
{ /* ./Reduce/copy.scm 142 */
obj_t BgL_arg2017z00_1601;
{ /* ./Reduce/copy.scm 142 */
int BgL_auxz00_3066;
BgL_auxz00_3066 = 
(int)(((long)1)); 
BgL_arg2017z00_1601 = 
PROCEDURE_REF(BGl_nodezd2copyz12zd2envz12zzreduce_copyz00, BgL_auxz00_3066); } 
{ /* ./Reduce/copy.scm 142 */
int BgL_offsetz00_1604;
BgL_offsetz00_1604 = 
(int)(BgL_objzd2classzd2numz00_1600); 
{ /* ./Reduce/copy.scm 142 */
long BgL_offsetz00_1605;
{ /* ./Reduce/copy.scm 142 */
long BgL_auxz00_3070;
BgL_auxz00_3070 = 
(long)(BgL_offsetz00_1604); 
BgL_offsetz00_1605 = 
(BgL_auxz00_3070-OBJECT_TYPE); } 
{ /* ./Reduce/copy.scm 142 */
long BgL_modz00_1606;
{ /* ./Reduce/copy.scm 142 */
int BgL_arg2028z00_1607;
BgL_arg2028z00_1607 = 
(int)(((long)8)); 
{ /* ./Reduce/copy.scm 142 */
long BgL_n2z00_1615;
BgL_n2z00_1615 = 
(long)(BgL_arg2028z00_1607); 
BgL_modz00_1606 = 
(BgL_offsetz00_1605/BgL_n2z00_1615); } } 
{ /* ./Reduce/copy.scm 142 */
long BgL_restz00_1608;
{ /* ./Reduce/copy.scm 142 */
int BgL_arg2024z00_1609;
BgL_arg2024z00_1609 = 
(int)(((long)8)); 
{ /* ./Reduce/copy.scm 142 */
long BgL_n2z00_1618;
BgL_n2z00_1618 = 
(long)(BgL_arg2024z00_1609); 
BgL_restz00_1608 = 
(BgL_offsetz00_1605%BgL_n2z00_1618); } } 
{ /* ./Reduce/copy.scm 142 */

{ /* ./Reduce/copy.scm 142 */
obj_t BgL_bucketz00_1610;
{ /* ./Reduce/copy.scm 142 */
int BgL_kz00_1620;
BgL_kz00_1620 = 
(int)(BgL_modz00_1606); 
BgL_bucketz00_1610 = 
VECTOR_REF(BgL_arg2017z00_1601,BgL_kz00_1620); } 
{ /* ./Reduce/copy.scm 142 */
int BgL_kz00_1622;
BgL_kz00_1622 = 
(int)(BgL_restz00_1608); 
BgL_method2705z00_1598 = 
VECTOR_REF(BgL_bucketz00_1610,BgL_kz00_1622); } } } } } } } } } } 
{ /* ./Reduce/copy.scm 142 */
obj_t BgL_auxz00_3083;
BgL_auxz00_3083 = 
PROCEDURE_ENTRY(BgL_method2705z00_1598)(BgL_method2705z00_1598, 
(obj_t)(BgL_arg3250z00_1146), BEOA); 
BgL_res3567z00_1623 = 
(BgL_nodez00_bglt)(BgL_auxz00_3083); } } 
BgL_arg3247z00_1145 = BgL_res3567z00_1623; } } 
{ /* ./Reduce/copy.scm 142 */
BgL_conditionalz00_bglt BgL_obj2337z00_1624;BgL_nodez00_bglt BgL_val2336z00_1625;
BgL_obj2337z00_1624 = BgL_nodez00_1139; 
BgL_val2336z00_1625 = BgL_arg3247z00_1145; 
((((BgL_conditionalz00_bglt)CREF(BgL_obj2337z00_1624))->BgL_truez00) = ((BgL_nodez00_bglt)BgL_val2336z00_1625), BUNSPEC); } } 
{ /* ./Reduce/copy.scm 143 */
BgL_nodez00_bglt BgL_arg3254z00_1147;
{ /* ./Reduce/copy.scm 143 */
BgL_nodez00_bglt BgL_arg3257z00_1148;
BgL_arg3257z00_1148 = 
(((BgL_conditionalz00_bglt)CREF(BgL_nodez00_1139))->BgL_falsez00); 
{ /* ./Reduce/copy.scm 143 */
BgL_nodez00_bglt BgL_res3570z00_1653;
{ /* ./Reduce/copy.scm 143 */
obj_t BgL_method2705z00_1628;
{ /* ./Reduce/copy.scm 143 */
BgL_objectz00_bglt BgL_objz00_1629;
BgL_objz00_1629 = 
(BgL_objectz00_bglt)(BgL_arg3257z00_1148); 
{ /* ./Reduce/copy.scm 143 */
long BgL_objzd2classzd2numz00_1630;
BgL_objzd2classzd2numz00_1630 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1629); 
{ /* ./Reduce/copy.scm 143 */
obj_t BgL_arg2017z00_1631;
{ /* ./Reduce/copy.scm 143 */
int BgL_auxz00_3092;
BgL_auxz00_3092 = 
(int)(((long)1)); 
BgL_arg2017z00_1631 = 
PROCEDURE_REF(BGl_nodezd2copyz12zd2envz12zzreduce_copyz00, BgL_auxz00_3092); } 
{ /* ./Reduce/copy.scm 143 */
int BgL_offsetz00_1634;
BgL_offsetz00_1634 = 
(int)(BgL_objzd2classzd2numz00_1630); 
{ /* ./Reduce/copy.scm 143 */
long BgL_offsetz00_1635;
{ /* ./Reduce/copy.scm 143 */
long BgL_auxz00_3096;
BgL_auxz00_3096 = 
(long)(BgL_offsetz00_1634); 
BgL_offsetz00_1635 = 
(BgL_auxz00_3096-OBJECT_TYPE); } 
{ /* ./Reduce/copy.scm 143 */
long BgL_modz00_1636;
{ /* ./Reduce/copy.scm 143 */
int BgL_arg2028z00_1637;
BgL_arg2028z00_1637 = 
(int)(((long)8)); 
{ /* ./Reduce/copy.scm 143 */
long BgL_n2z00_1645;
BgL_n2z00_1645 = 
(long)(BgL_arg2028z00_1637); 
BgL_modz00_1636 = 
(BgL_offsetz00_1635/BgL_n2z00_1645); } } 
{ /* ./Reduce/copy.scm 143 */
long BgL_restz00_1638;
{ /* ./Reduce/copy.scm 143 */
int BgL_arg2024z00_1639;
BgL_arg2024z00_1639 = 
(int)(((long)8)); 
{ /* ./Reduce/copy.scm 143 */
long BgL_n2z00_1648;
BgL_n2z00_1648 = 
(long)(BgL_arg2024z00_1639); 
BgL_restz00_1638 = 
(BgL_offsetz00_1635%BgL_n2z00_1648); } } 
{ /* ./Reduce/copy.scm 143 */

{ /* ./Reduce/copy.scm 143 */
obj_t BgL_bucketz00_1640;
{ /* ./Reduce/copy.scm 143 */
int BgL_kz00_1650;
BgL_kz00_1650 = 
(int)(BgL_modz00_1636); 
BgL_bucketz00_1640 = 
VECTOR_REF(BgL_arg2017z00_1631,BgL_kz00_1650); } 
{ /* ./Reduce/copy.scm 143 */
int BgL_kz00_1652;
BgL_kz00_1652 = 
(int)(BgL_restz00_1638); 
BgL_method2705z00_1628 = 
VECTOR_REF(BgL_bucketz00_1640,BgL_kz00_1652); } } } } } } } } } } 
{ /* ./Reduce/copy.scm 143 */
obj_t BgL_auxz00_3109;
BgL_auxz00_3109 = 
PROCEDURE_ENTRY(BgL_method2705z00_1628)(BgL_method2705z00_1628, 
(obj_t)(BgL_arg3257z00_1148), BEOA); 
BgL_res3570z00_1653 = 
(BgL_nodez00_bglt)(BgL_auxz00_3109); } } 
BgL_arg3254z00_1147 = BgL_res3570z00_1653; } } 
{ /* ./Reduce/copy.scm 143 */
BgL_conditionalz00_bglt BgL_obj2340z00_1654;BgL_nodez00_bglt BgL_val2339z00_1655;
BgL_obj2340z00_1654 = BgL_nodez00_1139; 
BgL_val2339z00_1655 = BgL_arg3254z00_1147; 
((((BgL_conditionalz00_bglt)CREF(BgL_obj2340z00_1654))->BgL_falsez00) = ((BgL_nodez00_bglt)BgL_val2339z00_1655), BUNSPEC); } } 
BgL_auxz00_3036 = BgL_nodez00_1139; 
return 
(obj_t)(BgL_auxz00_3036);} } } 
}



/* node-copy!-setq2725 */
obj_t BGl_nodezd2copyz12zd2setq2725z12zzreduce_copyz00(obj_t BgL_envz00_2300, obj_t BgL_nodez00_2301)
{ AN_OBJECT;
{ /* ./Reduce/copy.scm 130 */
{ 
BgL_setqz00_bglt BgL_nodez00_1129;
{ /* ./Reduce/copy.scm 131 */
BgL_setqz00_bglt BgL_auxz00_3117;
BgL_nodez00_1129 = 
(BgL_setqz00_bglt)(BgL_nodez00_2301); 
{ /* ./Reduce/copy.scm 132 */
BgL_nodez00_bglt BgL_arg3220z00_1133;
{ /* ./Reduce/copy.scm 132 */
BgL_nodez00_bglt BgL_arg3223z00_1134;
BgL_arg3223z00_1134 = 
(((BgL_setqz00_bglt)CREF(BgL_nodez00_1129))->BgL_valuez00); 
{ /* ./Reduce/copy.scm 132 */
BgL_nodez00_bglt BgL_res3558z00_1533;
{ /* ./Reduce/copy.scm 132 */
obj_t BgL_method2705z00_1508;
{ /* ./Reduce/copy.scm 132 */
BgL_objectz00_bglt BgL_objz00_1509;
BgL_objz00_1509 = 
(BgL_objectz00_bglt)(BgL_arg3223z00_1134); 
{ /* ./Reduce/copy.scm 132 */
long BgL_objzd2classzd2numz00_1510;
BgL_objzd2classzd2numz00_1510 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1509); 
{ /* ./Reduce/copy.scm 132 */
obj_t BgL_arg2017z00_1511;
{ /* ./Reduce/copy.scm 132 */
int BgL_auxz00_3121;
BgL_auxz00_3121 = 
(int)(((long)1)); 
BgL_arg2017z00_1511 = 
PROCEDURE_REF(BGl_nodezd2copyz12zd2envz12zzreduce_copyz00, BgL_auxz00_3121); } 
{ /* ./Reduce/copy.scm 132 */
int BgL_offsetz00_1514;
BgL_offsetz00_1514 = 
(int)(BgL_objzd2classzd2numz00_1510); 
{ /* ./Reduce/copy.scm 132 */
long BgL_offsetz00_1515;
{ /* ./Reduce/copy.scm 132 */
long BgL_auxz00_3125;
BgL_auxz00_3125 = 
(long)(BgL_offsetz00_1514); 
BgL_offsetz00_1515 = 
(BgL_auxz00_3125-OBJECT_TYPE); } 
{ /* ./Reduce/copy.scm 132 */
long BgL_modz00_1516;
{ /* ./Reduce/copy.scm 132 */
int BgL_arg2028z00_1517;
BgL_arg2028z00_1517 = 
(int)(((long)8)); 
{ /* ./Reduce/copy.scm 132 */
long BgL_n2z00_1525;
BgL_n2z00_1525 = 
(long)(BgL_arg2028z00_1517); 
BgL_modz00_1516 = 
(BgL_offsetz00_1515/BgL_n2z00_1525); } } 
{ /* ./Reduce/copy.scm 132 */
long BgL_restz00_1518;
{ /* ./Reduce/copy.scm 132 */
int BgL_arg2024z00_1519;
BgL_arg2024z00_1519 = 
(int)(((long)8)); 
{ /* ./Reduce/copy.scm 132 */
long BgL_n2z00_1528;
BgL_n2z00_1528 = 
(long)(BgL_arg2024z00_1519); 
BgL_restz00_1518 = 
(BgL_offsetz00_1515%BgL_n2z00_1528); } } 
{ /* ./Reduce/copy.scm 132 */

{ /* ./Reduce/copy.scm 132 */
obj_t BgL_bucketz00_1520;
{ /* ./Reduce/copy.scm 132 */
int BgL_kz00_1530;
BgL_kz00_1530 = 
(int)(BgL_modz00_1516); 
BgL_bucketz00_1520 = 
VECTOR_REF(BgL_arg2017z00_1511,BgL_kz00_1530); } 
{ /* ./Reduce/copy.scm 132 */
int BgL_kz00_1532;
BgL_kz00_1532 = 
(int)(BgL_restz00_1518); 
BgL_method2705z00_1508 = 
VECTOR_REF(BgL_bucketz00_1520,BgL_kz00_1532); } } } } } } } } } } 
{ /* ./Reduce/copy.scm 132 */
obj_t BgL_auxz00_3138;
BgL_auxz00_3138 = 
PROCEDURE_ENTRY(BgL_method2705z00_1508)(BgL_method2705z00_1508, 
(obj_t)(BgL_arg3223z00_1134), BEOA); 
BgL_res3558z00_1533 = 
(BgL_nodez00_bglt)(BgL_auxz00_3138); } } 
BgL_arg3220z00_1133 = BgL_res3558z00_1533; } } 
{ /* ./Reduce/copy.scm 132 */
BgL_setqz00_bglt BgL_obj2305z00_1534;BgL_nodez00_bglt BgL_val2304z00_1535;
BgL_obj2305z00_1534 = BgL_nodez00_1129; 
BgL_val2304z00_1535 = BgL_arg3220z00_1133; 
((((BgL_setqz00_bglt)CREF(BgL_obj2305z00_1534))->BgL_valuez00) = ((BgL_nodez00_bglt)BgL_val2304z00_1535), BUNSPEC); } } 
{ /* ./Reduce/copy.scm 133 */
BgL_nodez00_bglt BgL_arg3227z00_1135;
{ /* ./Reduce/copy.scm 133 */
BgL_varz00_bglt BgL_arg3230z00_1136;
BgL_arg3230z00_1136 = 
(((BgL_setqz00_bglt)CREF(BgL_nodez00_1129))->BgL_varz00); 
{ /* ./Reduce/copy.scm 133 */
BgL_nodez00_bglt BgL_res3561z00_1563;
{ /* ./Reduce/copy.scm 133 */
BgL_nodez00_bglt BgL_nodez00_1537;
BgL_nodez00_1537 = 
(BgL_nodez00_bglt)(BgL_arg3230z00_1136); 
{ /* ./Reduce/copy.scm 133 */
obj_t BgL_method2705z00_1538;
{ /* ./Reduce/copy.scm 133 */
BgL_objectz00_bglt BgL_objz00_1539;
BgL_objz00_1539 = 
(BgL_objectz00_bglt)(BgL_nodez00_1537); 
{ /* ./Reduce/copy.scm 133 */
long BgL_objzd2classzd2numz00_1540;
BgL_objzd2classzd2numz00_1540 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1539); 
{ /* ./Reduce/copy.scm 133 */
obj_t BgL_arg2017z00_1541;
{ /* ./Reduce/copy.scm 133 */
int BgL_auxz00_3148;
BgL_auxz00_3148 = 
(int)(((long)1)); 
BgL_arg2017z00_1541 = 
PROCEDURE_REF(BGl_nodezd2copyz12zd2envz12zzreduce_copyz00, BgL_auxz00_3148); } 
{ /* ./Reduce/copy.scm 133 */
int BgL_offsetz00_1544;
BgL_offsetz00_1544 = 
(int)(BgL_objzd2classzd2numz00_1540); 
{ /* ./Reduce/copy.scm 133 */
long BgL_offsetz00_1545;
{ /* ./Reduce/copy.scm 133 */
long BgL_auxz00_3152;
BgL_auxz00_3152 = 
(long)(BgL_offsetz00_1544); 
BgL_offsetz00_1545 = 
(BgL_auxz00_3152-OBJECT_TYPE); } 
{ /* ./Reduce/copy.scm 133 */
long BgL_modz00_1546;
{ /* ./Reduce/copy.scm 133 */
int BgL_arg2028z00_1547;
BgL_arg2028z00_1547 = 
(int)(((long)8)); 
{ /* ./Reduce/copy.scm 133 */
long BgL_n2z00_1555;
BgL_n2z00_1555 = 
(long)(BgL_arg2028z00_1547); 
BgL_modz00_1546 = 
(BgL_offsetz00_1545/BgL_n2z00_1555); } } 
{ /* ./Reduce/copy.scm 133 */
long BgL_restz00_1548;
{ /* ./Reduce/copy.scm 133 */
int BgL_arg2024z00_1549;
BgL_arg2024z00_1549 = 
(int)(((long)8)); 
{ /* ./Reduce/copy.scm 133 */
long BgL_n2z00_1558;
BgL_n2z00_1558 = 
(long)(BgL_arg2024z00_1549); 
BgL_restz00_1548 = 
(BgL_offsetz00_1545%BgL_n2z00_1558); } } 
{ /* ./Reduce/copy.scm 133 */

{ /* ./Reduce/copy.scm 133 */
obj_t BgL_bucketz00_1550;
{ /* ./Reduce/copy.scm 133 */
int BgL_kz00_1560;
BgL_kz00_1560 = 
(int)(BgL_modz00_1546); 
BgL_bucketz00_1550 = 
VECTOR_REF(BgL_arg2017z00_1541,BgL_kz00_1560); } 
{ /* ./Reduce/copy.scm 133 */
int BgL_kz00_1562;
BgL_kz00_1562 = 
(int)(BgL_restz00_1548); 
BgL_method2705z00_1538 = 
VECTOR_REF(BgL_bucketz00_1550,BgL_kz00_1562); } } } } } } } } } } 
{ /* ./Reduce/copy.scm 133 */
obj_t BgL_auxz00_3165;
BgL_auxz00_3165 = 
PROCEDURE_ENTRY(BgL_method2705z00_1538)(BgL_method2705z00_1538, 
(obj_t)(BgL_nodez00_1537), BEOA); 
BgL_res3561z00_1563 = 
(BgL_nodez00_bglt)(BgL_auxz00_3165); } } } 
BgL_arg3227z00_1135 = BgL_res3561z00_1563; } } 
{ /* ./Reduce/copy.scm 133 */
BgL_setqz00_bglt BgL_obj2302z00_1564;BgL_varz00_bglt BgL_val2301z00_1565;
BgL_obj2302z00_1564 = BgL_nodez00_1129; 
BgL_val2301z00_1565 = 
(BgL_varz00_bglt)(BgL_arg3227z00_1135); 
((((BgL_setqz00_bglt)CREF(BgL_obj2302z00_1564))->BgL_varz00) = ((BgL_varz00_bglt)BgL_val2301z00_1565), BUNSPEC); } } 
BgL_auxz00_3117 = BgL_nodez00_1129; 
return 
(obj_t)(BgL_auxz00_3117);} } } 
}



/* node-copy!-cast2723 */
obj_t BGl_nodezd2copyz12zd2cast2723z12zzreduce_copyz00(obj_t BgL_envz00_2302, obj_t BgL_nodez00_2303)
{ AN_OBJECT;
{ /* ./Reduce/copy.scm 122 */
{ 
BgL_castz00_bglt BgL_nodez00_1121;
{ /* ./Reduce/copy.scm 123 */
BgL_castz00_bglt BgL_auxz00_3174;
BgL_nodez00_1121 = 
(BgL_castz00_bglt)(BgL_nodez00_2303); 
{ /* ./Reduce/copy.scm 124 */
BgL_nodez00_bglt BgL_arg3207z00_1125;
{ /* ./Reduce/copy.scm 124 */
BgL_nodez00_bglt BgL_arg3210z00_1126;
BgL_arg3210z00_1126 = 
(((BgL_castz00_bglt)CREF(BgL_nodez00_1121))->BgL_argz00); 
{ /* ./Reduce/copy.scm 124 */
BgL_nodez00_bglt BgL_res3555z00_1503;
{ /* ./Reduce/copy.scm 124 */
obj_t BgL_method2705z00_1478;
{ /* ./Reduce/copy.scm 124 */
BgL_objectz00_bglt BgL_objz00_1479;
BgL_objz00_1479 = 
(BgL_objectz00_bglt)(BgL_arg3210z00_1126); 
{ /* ./Reduce/copy.scm 124 */
long BgL_objzd2classzd2numz00_1480;
BgL_objzd2classzd2numz00_1480 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1479); 
{ /* ./Reduce/copy.scm 124 */
obj_t BgL_arg2017z00_1481;
{ /* ./Reduce/copy.scm 124 */
int BgL_auxz00_3178;
BgL_auxz00_3178 = 
(int)(((long)1)); 
BgL_arg2017z00_1481 = 
PROCEDURE_REF(BGl_nodezd2copyz12zd2envz12zzreduce_copyz00, BgL_auxz00_3178); } 
{ /* ./Reduce/copy.scm 124 */
int BgL_offsetz00_1484;
BgL_offsetz00_1484 = 
(int)(BgL_objzd2classzd2numz00_1480); 
{ /* ./Reduce/copy.scm 124 */
long BgL_offsetz00_1485;
{ /* ./Reduce/copy.scm 124 */
long BgL_auxz00_3182;
BgL_auxz00_3182 = 
(long)(BgL_offsetz00_1484); 
BgL_offsetz00_1485 = 
(BgL_auxz00_3182-OBJECT_TYPE); } 
{ /* ./Reduce/copy.scm 124 */
long BgL_modz00_1486;
{ /* ./Reduce/copy.scm 124 */
int BgL_arg2028z00_1487;
BgL_arg2028z00_1487 = 
(int)(((long)8)); 
{ /* ./Reduce/copy.scm 124 */
long BgL_n2z00_1495;
BgL_n2z00_1495 = 
(long)(BgL_arg2028z00_1487); 
BgL_modz00_1486 = 
(BgL_offsetz00_1485/BgL_n2z00_1495); } } 
{ /* ./Reduce/copy.scm 124 */
long BgL_restz00_1488;
{ /* ./Reduce/copy.scm 124 */
int BgL_arg2024z00_1489;
BgL_arg2024z00_1489 = 
(int)(((long)8)); 
{ /* ./Reduce/copy.scm 124 */
long BgL_n2z00_1498;
BgL_n2z00_1498 = 
(long)(BgL_arg2024z00_1489); 
BgL_restz00_1488 = 
(BgL_offsetz00_1485%BgL_n2z00_1498); } } 
{ /* ./Reduce/copy.scm 124 */

{ /* ./Reduce/copy.scm 124 */
obj_t BgL_bucketz00_1490;
{ /* ./Reduce/copy.scm 124 */
int BgL_kz00_1500;
BgL_kz00_1500 = 
(int)(BgL_modz00_1486); 
BgL_bucketz00_1490 = 
VECTOR_REF(BgL_arg2017z00_1481,BgL_kz00_1500); } 
{ /* ./Reduce/copy.scm 124 */
int BgL_kz00_1502;
BgL_kz00_1502 = 
(int)(BgL_restz00_1488); 
BgL_method2705z00_1478 = 
VECTOR_REF(BgL_bucketz00_1490,BgL_kz00_1502); } } } } } } } } } } 
{ /* ./Reduce/copy.scm 124 */
obj_t BgL_auxz00_3195;
BgL_auxz00_3195 = 
PROCEDURE_ENTRY(BgL_method2705z00_1478)(BgL_method2705z00_1478, 
(obj_t)(BgL_arg3210z00_1126), BEOA); 
BgL_res3555z00_1503 = 
(BgL_nodez00_bglt)(BgL_auxz00_3195); } } 
BgL_arg3207z00_1125 = BgL_res3555z00_1503; } } 
{ /* ./Reduce/copy.scm 124 */
BgL_castz00_bglt BgL_obj2282z00_1504;BgL_nodez00_bglt BgL_val2281z00_1505;
BgL_obj2282z00_1504 = BgL_nodez00_1121; 
BgL_val2281z00_1505 = BgL_arg3207z00_1125; 
((((BgL_castz00_bglt)CREF(BgL_obj2282z00_1504))->BgL_argz00) = ((BgL_nodez00_bglt)BgL_val2281z00_1505), BUNSPEC); } } 
BgL_auxz00_3174 = BgL_nodez00_1121; 
return 
(obj_t)(BgL_auxz00_3174);} } } 
}



/* node-copy!-extern2721 */
obj_t BGl_nodezd2copyz12zd2extern2721z12zzreduce_copyz00(obj_t BgL_envz00_2304, obj_t BgL_nodez00_2305)
{ AN_OBJECT;
{ /* ./Reduce/copy.scm 114 */
{ 
BgL_externz00_bglt BgL_nodez00_1114;
{ /* ./Reduce/copy.scm 115 */
BgL_externz00_bglt BgL_auxz00_3203;
BgL_nodez00_1114 = 
(BgL_externz00_bglt)(BgL_nodez00_2305); 
{ /* ./Reduce/copy.scm 115 */
obj_t BgL_arg3197z00_1474;
BgL_arg3197z00_1474 = 
(((BgL_externz00_bglt)CREF(BgL_nodez00_1114))->BgL_exprza2za2); 
BGl_nodezd2copyza2z12z62zzreduce_copyz00(BgL_arg3197z00_1474); } 
BgL_auxz00_3203 = BgL_nodez00_1114; 
return 
(obj_t)(BgL_auxz00_3203);} } } 
}



/* node-copy!-funcall2719 */
obj_t BGl_nodezd2copyz12zd2funcall2719z12zzreduce_copyz00(obj_t BgL_envz00_2306, obj_t BgL_nodez00_2307)
{ AN_OBJECT;
{ /* ./Reduce/copy.scm 105 */
{ 
BgL_funcallz00_bglt BgL_nodez00_1105;
{ /* ./Reduce/copy.scm 106 */
BgL_funcallz00_bglt BgL_auxz00_3208;
BgL_nodez00_1105 = 
(BgL_funcallz00_bglt)(BgL_nodez00_2307); 
{ /* ./Reduce/copy.scm 107 */
BgL_nodez00_bglt BgL_arg3180z00_1109;
{ /* ./Reduce/copy.scm 107 */
BgL_nodez00_bglt BgL_arg3183z00_1110;
BgL_arg3183z00_1110 = 
(((BgL_funcallz00_bglt)CREF(BgL_nodez00_1105))->BgL_funz00); 
{ /* ./Reduce/copy.scm 107 */
BgL_nodez00_bglt BgL_res3552z00_1469;
{ /* ./Reduce/copy.scm 107 */
obj_t BgL_method2705z00_1444;
{ /* ./Reduce/copy.scm 107 */
BgL_objectz00_bglt BgL_objz00_1445;
BgL_objz00_1445 = 
(BgL_objectz00_bglt)(BgL_arg3183z00_1110); 
{ /* ./Reduce/copy.scm 107 */
long BgL_objzd2classzd2numz00_1446;
BgL_objzd2classzd2numz00_1446 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1445); 
{ /* ./Reduce/copy.scm 107 */
obj_t BgL_arg2017z00_1447;
{ /* ./Reduce/copy.scm 107 */
int BgL_auxz00_3212;
BgL_auxz00_3212 = 
(int)(((long)1)); 
BgL_arg2017z00_1447 = 
PROCEDURE_REF(BGl_nodezd2copyz12zd2envz12zzreduce_copyz00, BgL_auxz00_3212); } 
{ /* ./Reduce/copy.scm 107 */
int BgL_offsetz00_1450;
BgL_offsetz00_1450 = 
(int)(BgL_objzd2classzd2numz00_1446); 
{ /* ./Reduce/copy.scm 107 */
long BgL_offsetz00_1451;
{ /* ./Reduce/copy.scm 107 */
long BgL_auxz00_3216;
BgL_auxz00_3216 = 
(long)(BgL_offsetz00_1450); 
BgL_offsetz00_1451 = 
(BgL_auxz00_3216-OBJECT_TYPE); } 
{ /* ./Reduce/copy.scm 107 */
long BgL_modz00_1452;
{ /* ./Reduce/copy.scm 107 */
int BgL_arg2028z00_1453;
BgL_arg2028z00_1453 = 
(int)(((long)8)); 
{ /* ./Reduce/copy.scm 107 */
long BgL_n2z00_1461;
BgL_n2z00_1461 = 
(long)(BgL_arg2028z00_1453); 
BgL_modz00_1452 = 
(BgL_offsetz00_1451/BgL_n2z00_1461); } } 
{ /* ./Reduce/copy.scm 107 */
long BgL_restz00_1454;
{ /* ./Reduce/copy.scm 107 */
int BgL_arg2024z00_1455;
BgL_arg2024z00_1455 = 
(int)(((long)8)); 
{ /* ./Reduce/copy.scm 107 */
long BgL_n2z00_1464;
BgL_n2z00_1464 = 
(long)(BgL_arg2024z00_1455); 
BgL_restz00_1454 = 
(BgL_offsetz00_1451%BgL_n2z00_1464); } } 
{ /* ./Reduce/copy.scm 107 */

{ /* ./Reduce/copy.scm 107 */
obj_t BgL_bucketz00_1456;
{ /* ./Reduce/copy.scm 107 */
int BgL_kz00_1466;
BgL_kz00_1466 = 
(int)(BgL_modz00_1452); 
BgL_bucketz00_1456 = 
VECTOR_REF(BgL_arg2017z00_1447,BgL_kz00_1466); } 
{ /* ./Reduce/copy.scm 107 */
int BgL_kz00_1468;
BgL_kz00_1468 = 
(int)(BgL_restz00_1454); 
BgL_method2705z00_1444 = 
VECTOR_REF(BgL_bucketz00_1456,BgL_kz00_1468); } } } } } } } } } } 
{ /* ./Reduce/copy.scm 107 */
obj_t BgL_auxz00_3229;
BgL_auxz00_3229 = 
PROCEDURE_ENTRY(BgL_method2705z00_1444)(BgL_method2705z00_1444, 
(obj_t)(BgL_arg3183z00_1110), BEOA); 
BgL_res3552z00_1469 = 
(BgL_nodez00_bglt)(BgL_auxz00_3229); } } 
BgL_arg3180z00_1109 = BgL_res3552z00_1469; } } 
{ /* ./Reduce/copy.scm 107 */
BgL_funcallz00_bglt BgL_obj1781z00_1470;BgL_nodez00_bglt BgL_val1780z00_1471;
BgL_obj1781z00_1470 = BgL_nodez00_1105; 
BgL_val1780z00_1471 = BgL_arg3180z00_1109; 
((((BgL_funcallz00_bglt)CREF(BgL_obj1781z00_1470))->BgL_funz00) = ((BgL_nodez00_bglt)BgL_val1780z00_1471), BUNSPEC); } } 
{ /* ./Reduce/copy.scm 108 */
obj_t BgL_arg3187z00_1111;
BgL_arg3187z00_1111 = 
(((BgL_funcallz00_bglt)CREF(BgL_nodez00_1105))->BgL_argsz00); 
BGl_nodezd2copyza2z12z62zzreduce_copyz00(BgL_arg3187z00_1111); } 
BgL_auxz00_3208 = BgL_nodez00_1105; 
return 
(obj_t)(BgL_auxz00_3208);} } } 
}



/* node-copy!-app-ly2717 */
obj_t BGl_nodezd2copyz12zd2appzd2ly2717zc0zzreduce_copyz00(obj_t BgL_envz00_2308, obj_t BgL_nodez00_2309)
{ AN_OBJECT;
{ /* ./Reduce/copy.scm 96 */
{ 
BgL_appzd2lyzd2_bglt BgL_nodez00_1095;
{ /* ./Reduce/copy.scm 97 */
BgL_appzd2lyzd2_bglt BgL_auxz00_3239;
BgL_nodez00_1095 = 
(BgL_appzd2lyzd2_bglt)(BgL_nodez00_2309); 
{ /* ./Reduce/copy.scm 98 */
BgL_nodez00_bglt BgL_arg3160z00_1099;
{ /* ./Reduce/copy.scm 98 */
BgL_nodez00_bglt BgL_arg3163z00_1100;
BgL_arg3163z00_1100 = 
(((BgL_appzd2lyzd2_bglt)CREF(BgL_nodez00_1095))->BgL_funz00); 
{ /* ./Reduce/copy.scm 98 */
BgL_nodez00_bglt BgL_res3546z00_1409;
{ /* ./Reduce/copy.scm 98 */
obj_t BgL_method2705z00_1384;
{ /* ./Reduce/copy.scm 98 */
BgL_objectz00_bglt BgL_objz00_1385;
BgL_objz00_1385 = 
(BgL_objectz00_bglt)(BgL_arg3163z00_1100); 
{ /* ./Reduce/copy.scm 98 */
long BgL_objzd2classzd2numz00_1386;
BgL_objzd2classzd2numz00_1386 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1385); 
{ /* ./Reduce/copy.scm 98 */
obj_t BgL_arg2017z00_1387;
{ /* ./Reduce/copy.scm 98 */
int BgL_auxz00_3243;
BgL_auxz00_3243 = 
(int)(((long)1)); 
BgL_arg2017z00_1387 = 
PROCEDURE_REF(BGl_nodezd2copyz12zd2envz12zzreduce_copyz00, BgL_auxz00_3243); } 
{ /* ./Reduce/copy.scm 98 */
int BgL_offsetz00_1390;
BgL_offsetz00_1390 = 
(int)(BgL_objzd2classzd2numz00_1386); 
{ /* ./Reduce/copy.scm 98 */
long BgL_offsetz00_1391;
{ /* ./Reduce/copy.scm 98 */
long BgL_auxz00_3247;
BgL_auxz00_3247 = 
(long)(BgL_offsetz00_1390); 
BgL_offsetz00_1391 = 
(BgL_auxz00_3247-OBJECT_TYPE); } 
{ /* ./Reduce/copy.scm 98 */
long BgL_modz00_1392;
{ /* ./Reduce/copy.scm 98 */
int BgL_arg2028z00_1393;
BgL_arg2028z00_1393 = 
(int)(((long)8)); 
{ /* ./Reduce/copy.scm 98 */
long BgL_n2z00_1401;
BgL_n2z00_1401 = 
(long)(BgL_arg2028z00_1393); 
BgL_modz00_1392 = 
(BgL_offsetz00_1391/BgL_n2z00_1401); } } 
{ /* ./Reduce/copy.scm 98 */
long BgL_restz00_1394;
{ /* ./Reduce/copy.scm 98 */
int BgL_arg2024z00_1395;
BgL_arg2024z00_1395 = 
(int)(((long)8)); 
{ /* ./Reduce/copy.scm 98 */
long BgL_n2z00_1404;
BgL_n2z00_1404 = 
(long)(BgL_arg2024z00_1395); 
BgL_restz00_1394 = 
(BgL_offsetz00_1391%BgL_n2z00_1404); } } 
{ /* ./Reduce/copy.scm 98 */

{ /* ./Reduce/copy.scm 98 */
obj_t BgL_bucketz00_1396;
{ /* ./Reduce/copy.scm 98 */
int BgL_kz00_1406;
BgL_kz00_1406 = 
(int)(BgL_modz00_1392); 
BgL_bucketz00_1396 = 
VECTOR_REF(BgL_arg2017z00_1387,BgL_kz00_1406); } 
{ /* ./Reduce/copy.scm 98 */
int BgL_kz00_1408;
BgL_kz00_1408 = 
(int)(BgL_restz00_1394); 
BgL_method2705z00_1384 = 
VECTOR_REF(BgL_bucketz00_1396,BgL_kz00_1408); } } } } } } } } } } 
{ /* ./Reduce/copy.scm 98 */
obj_t BgL_auxz00_3260;
BgL_auxz00_3260 = 
PROCEDURE_ENTRY(BgL_method2705z00_1384)(BgL_method2705z00_1384, 
(obj_t)(BgL_arg3163z00_1100), BEOA); 
BgL_res3546z00_1409 = 
(BgL_nodez00_bglt)(BgL_auxz00_3260); } } 
BgL_arg3160z00_1099 = BgL_res3546z00_1409; } } 
{ /* ./Reduce/copy.scm 98 */
BgL_appzd2lyzd2_bglt BgL_obj1753z00_1410;BgL_nodez00_bglt BgL_val1752z00_1411;
BgL_obj1753z00_1410 = BgL_nodez00_1095; 
BgL_val1752z00_1411 = BgL_arg3160z00_1099; 
((((BgL_appzd2lyzd2_bglt)CREF(BgL_obj1753z00_1410))->BgL_funz00) = ((BgL_nodez00_bglt)BgL_val1752z00_1411), BUNSPEC); } } 
{ /* ./Reduce/copy.scm 99 */
BgL_nodez00_bglt BgL_arg3167z00_1101;
{ /* ./Reduce/copy.scm 99 */
BgL_nodez00_bglt BgL_arg3170z00_1102;
BgL_arg3170z00_1102 = 
(((BgL_appzd2lyzd2_bglt)CREF(BgL_nodez00_1095))->BgL_argz00); 
{ /* ./Reduce/copy.scm 99 */
BgL_nodez00_bglt BgL_res3549z00_1439;
{ /* ./Reduce/copy.scm 99 */
obj_t BgL_method2705z00_1414;
{ /* ./Reduce/copy.scm 99 */
BgL_objectz00_bglt BgL_objz00_1415;
BgL_objz00_1415 = 
(BgL_objectz00_bglt)(BgL_arg3170z00_1102); 
{ /* ./Reduce/copy.scm 99 */
long BgL_objzd2classzd2numz00_1416;
BgL_objzd2classzd2numz00_1416 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1415); 
{ /* ./Reduce/copy.scm 99 */
obj_t BgL_arg2017z00_1417;
{ /* ./Reduce/copy.scm 99 */
int BgL_auxz00_3269;
BgL_auxz00_3269 = 
(int)(((long)1)); 
BgL_arg2017z00_1417 = 
PROCEDURE_REF(BGl_nodezd2copyz12zd2envz12zzreduce_copyz00, BgL_auxz00_3269); } 
{ /* ./Reduce/copy.scm 99 */
int BgL_offsetz00_1420;
BgL_offsetz00_1420 = 
(int)(BgL_objzd2classzd2numz00_1416); 
{ /* ./Reduce/copy.scm 99 */
long BgL_offsetz00_1421;
{ /* ./Reduce/copy.scm 99 */
long BgL_auxz00_3273;
BgL_auxz00_3273 = 
(long)(BgL_offsetz00_1420); 
BgL_offsetz00_1421 = 
(BgL_auxz00_3273-OBJECT_TYPE); } 
{ /* ./Reduce/copy.scm 99 */
long BgL_modz00_1422;
{ /* ./Reduce/copy.scm 99 */
int BgL_arg2028z00_1423;
BgL_arg2028z00_1423 = 
(int)(((long)8)); 
{ /* ./Reduce/copy.scm 99 */
long BgL_n2z00_1431;
BgL_n2z00_1431 = 
(long)(BgL_arg2028z00_1423); 
BgL_modz00_1422 = 
(BgL_offsetz00_1421/BgL_n2z00_1431); } } 
{ /* ./Reduce/copy.scm 99 */
long BgL_restz00_1424;
{ /* ./Reduce/copy.scm 99 */
int BgL_arg2024z00_1425;
BgL_arg2024z00_1425 = 
(int)(((long)8)); 
{ /* ./Reduce/copy.scm 99 */
long BgL_n2z00_1434;
BgL_n2z00_1434 = 
(long)(BgL_arg2024z00_1425); 
BgL_restz00_1424 = 
(BgL_offsetz00_1421%BgL_n2z00_1434); } } 
{ /* ./Reduce/copy.scm 99 */

{ /* ./Reduce/copy.scm 99 */
obj_t BgL_bucketz00_1426;
{ /* ./Reduce/copy.scm 99 */
int BgL_kz00_1436;
BgL_kz00_1436 = 
(int)(BgL_modz00_1422); 
BgL_bucketz00_1426 = 
VECTOR_REF(BgL_arg2017z00_1417,BgL_kz00_1436); } 
{ /* ./Reduce/copy.scm 99 */
int BgL_kz00_1438;
BgL_kz00_1438 = 
(int)(BgL_restz00_1424); 
BgL_method2705z00_1414 = 
VECTOR_REF(BgL_bucketz00_1426,BgL_kz00_1438); } } } } } } } } } } 
{ /* ./Reduce/copy.scm 99 */
obj_t BgL_auxz00_3286;
BgL_auxz00_3286 = 
PROCEDURE_ENTRY(BgL_method2705z00_1414)(BgL_method2705z00_1414, 
(obj_t)(BgL_arg3170z00_1102), BEOA); 
BgL_res3549z00_1439 = 
(BgL_nodez00_bglt)(BgL_auxz00_3286); } } 
BgL_arg3167z00_1101 = BgL_res3549z00_1439; } } 
{ /* ./Reduce/copy.scm 99 */
BgL_appzd2lyzd2_bglt BgL_obj1756z00_1440;BgL_nodez00_bglt BgL_val1755z00_1441;
BgL_obj1756z00_1440 = BgL_nodez00_1095; 
BgL_val1755z00_1441 = BgL_arg3167z00_1101; 
((((BgL_appzd2lyzd2_bglt)CREF(BgL_obj1756z00_1440))->BgL_argz00) = ((BgL_nodez00_bglt)BgL_val1755z00_1441), BUNSPEC); } } 
BgL_auxz00_3239 = BgL_nodez00_1095; 
return 
(obj_t)(BgL_auxz00_3239);} } } 
}



/* node-copy!-sequence2715 */
obj_t BGl_nodezd2copyz12zd2sequence2715z12zzreduce_copyz00(obj_t BgL_envz00_2310, obj_t BgL_nodez00_2311)
{ AN_OBJECT;
{ /* ./Reduce/copy.scm 88 */
{ 
BgL_sequencez00_bglt BgL_nodez00_1088;
{ /* ./Reduce/copy.scm 89 */
BgL_sequencez00_bglt BgL_auxz00_3294;
BgL_nodez00_1088 = 
(BgL_sequencez00_bglt)(BgL_nodez00_2311); 
{ /* ./Reduce/copy.scm 89 */
obj_t BgL_arg3150z00_1380;
BgL_arg3150z00_1380 = 
(((BgL_sequencez00_bglt)CREF(BgL_nodez00_1088))->BgL_nodesz00); 
BGl_nodezd2copyza2z12z62zzreduce_copyz00(BgL_arg3150z00_1380); } 
BgL_auxz00_3294 = BgL_nodez00_1088; 
return 
(obj_t)(BgL_auxz00_3294);} } } 
}



/* node-copy!-closure2713 */
obj_t BGl_nodezd2copyz12zd2closure2713z12zzreduce_copyz00(obj_t BgL_envz00_2312, obj_t BgL_nodez00_2313)
{ AN_OBJECT;
{ /* ./Reduce/copy.scm 82 */
{ /* ./Reduce/copy.scm 83 */
BgL_closurez00_bglt BgL_auxz00_3299;
BgL_auxz00_3299 = 
(BgL_closurez00_bglt)(BgL_nodez00_2313); 
return 
(obj_t)(BgL_auxz00_3299);} } 
}



/* node-copy!-var2711 */
obj_t BGl_nodezd2copyz12zd2var2711z12zzreduce_copyz00(obj_t BgL_envz00_2314, obj_t BgL_nodez00_2315)
{ AN_OBJECT;
{ /* ./Reduce/copy.scm 72 */
{ 
BgL_varz00_bglt BgL_nodez00_1071;
BgL_nodez00_1071 = 
(BgL_varz00_bglt)(BgL_nodez00_2315); 
{ /* ./Reduce/copy.scm 73 */
BgL_variablez00_bglt BgL_vz00_1074;
BgL_vz00_1074 = 
(((BgL_varz00_bglt)CREF(BgL_nodez00_1071))->BgL_variablez00); 
{ /* ./Reduce/copy.scm 74 */
obj_t BgL_falphaz00_1075;
BgL_falphaz00_1075 = 
(((BgL_variablez00_bglt)CREF(BgL_vz00_1074))->BgL_fastzd2alphazd2); 
{ /* ./Reduce/copy.scm 75 */
bool_t BgL_test3124z00_1076;
BgL_test3124z00_1076 = 
(BgL_falphaz00_1075==BUNSPEC); 
if(BgL_test3124z00_1076)
{ /* ./Reduce/copy.scm 75 */
return 
(obj_t)(BgL_nodez00_1071);}  else 
{ /* ./Reduce/copy.scm 76 */
obj_t BgL_arg3129z00_1079;BgL_nodez00_bglt BgL_arg3130z00_1080;
{ /* ./Reduce/copy.scm 76 */
BgL_nodez00_bglt BgL_obj1560z00_1351;
BgL_obj1560z00_1351 = 
(BgL_nodez00_bglt)(BgL_nodez00_1071); 
BgL_arg3129z00_1079 = 
(((BgL_nodez00_bglt)CREF(BgL_obj1560z00_1351))->BgL_locz00); } 
{ /* ./Reduce/copy.scm 76 */
BgL_nodez00_bglt BgL_res3543z00_1378;
{ /* ./Reduce/copy.scm 76 */
BgL_nodez00_bglt BgL_nodez00_1352;
BgL_nodez00_1352 = 
(BgL_nodez00_bglt)(BgL_falphaz00_1075); 
{ /* ./Reduce/copy.scm 76 */
obj_t BgL_method2705z00_1353;
{ /* ./Reduce/copy.scm 76 */
BgL_objectz00_bglt BgL_objz00_1354;
BgL_objz00_1354 = 
(BgL_objectz00_bglt)(BgL_nodez00_1352); 
{ /* ./Reduce/copy.scm 76 */
long BgL_objzd2classzd2numz00_1355;
BgL_objzd2classzd2numz00_1355 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1354); 
{ /* ./Reduce/copy.scm 76 */
obj_t BgL_arg2017z00_1356;
{ /* ./Reduce/copy.scm 76 */
int BgL_auxz00_3312;
BgL_auxz00_3312 = 
(int)(((long)1)); 
BgL_arg2017z00_1356 = 
PROCEDURE_REF(BGl_nodezd2copyz12zd2envz12zzreduce_copyz00, BgL_auxz00_3312); } 
{ /* ./Reduce/copy.scm 76 */
int BgL_offsetz00_1359;
BgL_offsetz00_1359 = 
(int)(BgL_objzd2classzd2numz00_1355); 
{ /* ./Reduce/copy.scm 76 */
long BgL_offsetz00_1360;
{ /* ./Reduce/copy.scm 76 */
long BgL_auxz00_3316;
BgL_auxz00_3316 = 
(long)(BgL_offsetz00_1359); 
BgL_offsetz00_1360 = 
(BgL_auxz00_3316-OBJECT_TYPE); } 
{ /* ./Reduce/copy.scm 76 */
long BgL_modz00_1361;
{ /* ./Reduce/copy.scm 76 */
int BgL_arg2028z00_1362;
BgL_arg2028z00_1362 = 
(int)(((long)8)); 
{ /* ./Reduce/copy.scm 76 */
long BgL_n2z00_1370;
BgL_n2z00_1370 = 
(long)(BgL_arg2028z00_1362); 
BgL_modz00_1361 = 
(BgL_offsetz00_1360/BgL_n2z00_1370); } } 
{ /* ./Reduce/copy.scm 76 */
long BgL_restz00_1363;
{ /* ./Reduce/copy.scm 76 */
int BgL_arg2024z00_1364;
BgL_arg2024z00_1364 = 
(int)(((long)8)); 
{ /* ./Reduce/copy.scm 76 */
long BgL_n2z00_1373;
BgL_n2z00_1373 = 
(long)(BgL_arg2024z00_1364); 
BgL_restz00_1363 = 
(BgL_offsetz00_1360%BgL_n2z00_1373); } } 
{ /* ./Reduce/copy.scm 76 */

{ /* ./Reduce/copy.scm 76 */
obj_t BgL_bucketz00_1365;
{ /* ./Reduce/copy.scm 76 */
int BgL_kz00_1375;
BgL_kz00_1375 = 
(int)(BgL_modz00_1361); 
BgL_bucketz00_1365 = 
VECTOR_REF(BgL_arg2017z00_1356,BgL_kz00_1375); } 
{ /* ./Reduce/copy.scm 76 */
int BgL_kz00_1377;
BgL_kz00_1377 = 
(int)(BgL_restz00_1363); 
BgL_method2705z00_1353 = 
VECTOR_REF(BgL_bucketz00_1365,BgL_kz00_1377); } } } } } } } } } } 
{ /* ./Reduce/copy.scm 76 */
obj_t BgL_auxz00_3329;
BgL_auxz00_3329 = 
PROCEDURE_ENTRY(BgL_method2705z00_1353)(BgL_method2705z00_1353, 
(obj_t)(BgL_nodez00_1352), BEOA); 
BgL_res3543z00_1378 = 
(BgL_nodez00_bglt)(BgL_auxz00_3329); } } } 
BgL_arg3130z00_1080 = BgL_res3543z00_1378; } 
{ /* ./Reduce/copy.scm 76 */
BgL_nodez00_bglt BgL_auxz00_3334;
BgL_auxz00_3334 = 
BGl_alphatiza7eza7zzast_alphatiza7eza7(BNIL, BNIL, BgL_arg3129z00_1079, BgL_arg3130z00_1080); 
return 
(obj_t)(BgL_auxz00_3334);} } } } } } } 
}



/* node-copy!-kwote2709 */
obj_t BGl_nodezd2copyz12zd2kwote2709z12zzreduce_copyz00(obj_t BgL_envz00_2316, obj_t BgL_nodez00_2317)
{ AN_OBJECT;
{ /* ./Reduce/copy.scm 66 */
{ /* ./Reduce/copy.scm 67 */
BgL_kwotez00_bglt BgL_auxz00_3338;
BgL_auxz00_3338 = 
(BgL_kwotez00_bglt)(BgL_nodez00_2317); 
return 
(obj_t)(BgL_auxz00_3338);} } 
}



/* node-copy!-atom2707 */
obj_t BGl_nodezd2copyz12zd2atom2707z12zzreduce_copyz00(obj_t BgL_envz00_2318, obj_t BgL_nodez00_2319)
{ AN_OBJECT;
{ /* ./Reduce/copy.scm 60 */
{ /* ./Reduce/copy.scm 61 */
BgL_atomz00_bglt BgL_auxz00_3341;
BgL_auxz00_3341 = 
(BgL_atomz00_bglt)(BgL_nodez00_2319); 
return 
(obj_t)(BgL_auxz00_3341);} } 
}



/* node-copy! */
BgL_nodez00_bglt BGl_nodezd2copyz12zc0zzreduce_copyz00(BgL_nodez00_bglt BgL_nodez00_2)
{ AN_OBJECT;
{ /* ./Reduce/copy.scm 55 */
{ /* ./Reduce/copy.scm 55 */
obj_t BgL_method2705z00_2225;
{ /* ./Reduce/copy.scm 55 */
BgL_objectz00_bglt BgL_objz00_2226;
BgL_objz00_2226 = 
(BgL_objectz00_bglt)(BgL_nodez00_2); 
{ /* ./Reduce/copy.scm 55 */
long BgL_objzd2classzd2numz00_2227;
BgL_objzd2classzd2numz00_2227 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2226); 
{ /* ./Reduce/copy.scm 55 */
obj_t BgL_arg2017z00_2228;
{ /* ./Reduce/copy.scm 55 */
int BgL_auxz00_3346;
BgL_auxz00_3346 = 
(int)(((long)1)); 
BgL_arg2017z00_2228 = 
PROCEDURE_REF(BGl_nodezd2copyz12zd2envz12zzreduce_copyz00, BgL_auxz00_3346); } 
{ /* ./Reduce/copy.scm 55 */
int BgL_offsetz00_2231;
BgL_offsetz00_2231 = 
(int)(BgL_objzd2classzd2numz00_2227); 
{ /* ./Reduce/copy.scm 55 */
long BgL_offsetz00_2232;
{ /* ./Reduce/copy.scm 55 */
long BgL_auxz00_3350;
BgL_auxz00_3350 = 
(long)(BgL_offsetz00_2231); 
BgL_offsetz00_2232 = 
(BgL_auxz00_3350-OBJECT_TYPE); } 
{ /* ./Reduce/copy.scm 55 */
long BgL_modz00_2233;
{ /* ./Reduce/copy.scm 55 */
int BgL_arg2028z00_2234;
BgL_arg2028z00_2234 = 
(int)(((long)8)); 
{ /* ./Reduce/copy.scm 55 */
long BgL_n2z00_2242;
BgL_n2z00_2242 = 
(long)(BgL_arg2028z00_2234); 
BgL_modz00_2233 = 
(BgL_offsetz00_2232/BgL_n2z00_2242); } } 
{ /* ./Reduce/copy.scm 55 */
long BgL_restz00_2235;
{ /* ./Reduce/copy.scm 55 */
int BgL_arg2024z00_2236;
BgL_arg2024z00_2236 = 
(int)(((long)8)); 
{ /* ./Reduce/copy.scm 55 */
long BgL_n2z00_2245;
BgL_n2z00_2245 = 
(long)(BgL_arg2024z00_2236); 
BgL_restz00_2235 = 
(BgL_offsetz00_2232%BgL_n2z00_2245); } } 
{ /* ./Reduce/copy.scm 55 */

{ /* ./Reduce/copy.scm 55 */
obj_t BgL_bucketz00_2237;
{ /* ./Reduce/copy.scm 55 */
int BgL_kz00_2247;
BgL_kz00_2247 = 
(int)(BgL_modz00_2233); 
BgL_bucketz00_2237 = 
VECTOR_REF(BgL_arg2017z00_2228,BgL_kz00_2247); } 
{ /* ./Reduce/copy.scm 55 */
int BgL_kz00_2249;
BgL_kz00_2249 = 
(int)(BgL_restz00_2235); 
BgL_method2705z00_2225 = 
VECTOR_REF(BgL_bucketz00_2237,BgL_kz00_2249); } } } } } } } } } } 
{ /* ./Reduce/copy.scm 55 */
obj_t BgL_auxz00_3363;
BgL_auxz00_3363 = 
PROCEDURE_ENTRY(BgL_method2705z00_2225)(BgL_method2705z00_2225, 
(obj_t)(BgL_nodez00_2), BEOA); 
return 
(BgL_nodez00_bglt)(BgL_auxz00_3363);} } } 
}



/* _node-copy!3628 */
obj_t BGl__nodezd2copyz123628zc0zzreduce_copyz00(obj_t BgL_envz00_2255, obj_t BgL_nodez00_2256)
{ AN_OBJECT;
{ /* ./Reduce/copy.scm 55 */
{ /* ./Reduce/copy.scm 55 */
BgL_nodez00_bglt BgL_auxz00_3368;
BgL_auxz00_3368 = 
BGl_nodezd2copyz12zc0zzreduce_copyz00(
(BgL_nodez00_bglt)(BgL_nodez00_2256)); 
return 
(obj_t)(BgL_auxz00_3368);} } 
}



/* node-copy!-default2703 */
BgL_nodez00_bglt BGl_nodezd2copyz12zd2default2703z12zzreduce_copyz00(BgL_nodez00_bglt BgL_nodez00_3)
{ AN_OBJECT;
{ /* ./Reduce/copy.scm 15 */
{ /* ./Reduce/copy.scm 15 */
obj_t BgL_procz00_2250;obj_t BgL_objectz00_2252;
BgL_procz00_2250 = 
CNST_TABLE_REF(((long)2)); 
BgL_objectz00_2252 = 
(obj_t)(BgL_nodez00_3); 
FAILURE(BgL_procz00_2250,BGl_string4157z00zzreduce_copyz00,BgL_objectz00_2252);} } 
}



/* _node-copy!-default2703 */
obj_t BGl__nodezd2copyz12zd2default2703z12zzreduce_copyz00(obj_t BgL_envz00_2320, obj_t BgL_nodez00_2321)
{ AN_OBJECT;
{ /* ./Reduce/copy.scm 15 */
{ /* ./Reduce/copy.scm 15 */
BgL_nodez00_bglt BgL_auxz00_3375;
BgL_auxz00_3375 = 
BGl_nodezd2copyz12zd2default2703z12zzreduce_copyz00(
(BgL_nodez00_bglt)(BgL_nodez00_2321)); 
return 
(obj_t)(BgL_auxz00_3375);} } 
}



/* imported-modules-init */
obj_t BGl_importedzd2moduleszd2initz00zzreduce_copyz00()
{ AN_OBJECT;
{ /* ./Reduce/copy.scm 15 */
BGl_modulezd2initializa7ationz75zztools_tracez00(((long)59211), "reduce_copy"); 
BGl_modulezd2initializa7ationz75zztools_shapez00(((long)30833), "reduce_copy"); 
BGl_modulezd2initializa7ationz75zztools_speekz00(((long)23537), "reduce_copy"); 
BGl_modulezd2initializa7ationz75zztools_errorz00(((long)25566), "reduce_copy"); 
BGl_modulezd2initializa7ationz75zztype_typez00(((long)19090), "reduce_copy"); 
BGl_modulezd2initializa7ationz75zztype_cachez00(((long)25848), "reduce_copy"); 
BGl_modulezd2initializa7ationz75zztype_typeofz00(((long)852), "reduce_copy"); 
BGl_modulezd2initializa7ationz75zzcoerce_coercez00(((long)56611), "reduce_copy"); 
BGl_modulezd2initializa7ationz75zzeffect_effectz00(((long)14017), "reduce_copy"); 
BGl_modulezd2initializa7ationz75zzast_varz00(((long)44246), "reduce_copy"); 
BGl_modulezd2initializa7ationz75zzast_nodez00(((long)50868), "reduce_copy"); 
BGl_modulezd2initializa7ationz75zzast_alphatiza7eza7(((long)21007), "reduce_copy"); 
return 
BGl_modulezd2initializa7ationz75zzast_lvtypez00(((long)41586), "reduce_copy");} 
}

