/*===========================================================================*/
/*   (SawMill/procedures.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 SawMill/procedures.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_zc3anonymousza32790ze3z83zzsaw_proceduresz00(obj_t, obj_t);
extern obj_t BGl_vrefz00zzast_nodez00;
static obj_t BGl_methodzd2initzd2zzsaw_proceduresz00();
static obj_t BGl_getzd2getfield2758zd2zzsaw_proceduresz00(obj_t, obj_t, obj_t);
static obj_t BGl_getzd2makezd2box2782z00zzsaw_proceduresz00(obj_t, obj_t, obj_t);
BGL_IMPORT obj_t BGl_classzd2namezd2zz__objectz00(obj_t);
BGL_IMPORT obj_t open_input_string(obj_t);
extern obj_t BGl_letzd2funzd2zzast_nodez00;
extern obj_t BGl_sfunz00zzast_varz00;
BGL_IMPORT obj_t BGl_readz00zz__readerz00(obj_t);
BGL_IMPORT bool_t BGl_iszd2azf3z21zz__objectz00(obj_t, obj_t);
static obj_t BGl_getzd2setzd2exzd2it2776zd2zzsaw_proceduresz00(obj_t, obj_t, obj_t);
static obj_t BGl_getzd2fail2780zd2zzsaw_proceduresz00(obj_t, obj_t, obj_t);
BGL_IMPORT obj_t BGl_addzd2genericz12zc0zz__objectz00(obj_t, obj_t);
static obj_t BGl_getz00zzsaw_proceduresz00(BgL_nodez00_bglt, obj_t);
static obj_t BGl_getzd2app2750zd2zzsaw_proceduresz00(obj_t, obj_t, obj_t);
extern obj_t BGl_letzd2varzd2zzast_nodez00;
extern obj_t BGl_pragmaz00zzast_nodez00;
extern obj_t BGl_globalz00zzast_varz00;
BGL_IMPORT obj_t BGl_za2classesza2z00zz__objectz00;
static obj_t BGl_getzd2letzd2fun2748z00zzsaw_proceduresz00(obj_t, obj_t, obj_t);
static obj_t BGl__getzd2default2729zd2zzsaw_proceduresz00(obj_t, obj_t, obj_t);
static obj_t BGl_getzd2boxzd2ref2784z00zzsaw_proceduresz00(obj_t, obj_t, obj_t);
extern obj_t BGl_castz00zzast_nodez00;
static obj_t BGl_getzd2pragma2756zd2zzsaw_proceduresz00(obj_t, obj_t, obj_t);
extern obj_t BGl_boxzd2refzd2zzast_nodez00;
extern obj_t BGl_varz00zzast_nodez00;
static obj_t BGl_cnstzd2initzd2zzsaw_proceduresz00();
static obj_t BGl_getzd2sequence2742zd2zzsaw_proceduresz00(obj_t, 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_getzd2letzd2var2737z00zzsaw_proceduresz00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_getzd2procedureszd2zzsaw_proceduresz00(obj_t);
static obj_t BGl_getzd2isa2772zd2zzsaw_proceduresz00(obj_t, obj_t, obj_t);
static obj_t BGl_importedzd2moduleszd2initz00zzsaw_proceduresz00();
static obj_t BGl_getza2za2zzsaw_proceduresz00(obj_t, obj_t);
extern obj_t BGl_makezd2boxzd2zzast_nodez00;
static obj_t BGl_getzd2atom2733zd2zzsaw_proceduresz00(obj_t, obj_t, obj_t);
extern obj_t BGl_getfieldz00zzast_nodez00;
extern obj_t BGl_isaz00zzast_nodez00;
BGL_IMPORT obj_t BGl_addzd2methodz12zc0zz__objectz00(obj_t, obj_t, obj_t);
static obj_t BGl_getzd2boxzd2setz122786z12zzsaw_proceduresz00(obj_t, obj_t, obj_t);
static obj_t BGl_getzd2valloc2764zd2zzsaw_proceduresz00(obj_t, obj_t, obj_t);
extern obj_t BGl_selectz00zzast_nodez00;
static obj_t BGl_getzd2vlength2770zd2zzsaw_proceduresz00(obj_t, obj_t, obj_t);
extern obj_t BGl_vallocz00zzast_nodez00;
static obj_t BGl_toplevelzd2initzd2zzsaw_proceduresz00();
extern obj_t BGl_appzd2lyzd2zzast_nodez00;
extern obj_t BGl_boxzd2setz12zc0zzast_nodez00;
BGL_EXPORTED_DECL obj_t BGl_modulezd2initializa7ationz75zzsaw_proceduresz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zztype_typez00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzast_varz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzast_nodez00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzast_envz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzsaw_elsewherez00(long, char *);
BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__objectz00(long, char *);
BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__readerz00(long, char *);
BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__r4_pairs_and_lists_6_3z00(long, char *);
static obj_t BGl__getzd2procedureszd2zzsaw_proceduresz00(obj_t, obj_t);
static obj_t BGl_getzd2setq2740zd2zzsaw_proceduresz00(obj_t, obj_t, obj_t);
static obj_t BGl_getzd2vref2766zd2zzsaw_proceduresz00(obj_t, obj_t, obj_t);
static obj_t BGl_getzd2vsetz122768zc0zzsaw_proceduresz00(obj_t, obj_t, obj_t);
static obj_t BGl_getzd2conditional2744zd2zzsaw_proceduresz00(obj_t, obj_t, obj_t);
extern obj_t BGl_setzd2exzd2itz00zzast_nodez00;
extern obj_t BGl_needzd2functionzd2pointerz00zzsaw_elsewherez00(BgL_globalz00_bglt);
static obj_t BGl_getzd2var2735zd2zzsaw_proceduresz00(obj_t, obj_t, obj_t);
BGL_IMPORT obj_t BGl_memqz00zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
extern obj_t BGl_forzd2eachzd2globalz12z12zzast_envz00(obj_t);
static obj_t BGl_getzd2funcall2754zd2zzsaw_proceduresz00(obj_t, obj_t, obj_t);
extern obj_t BGl_jumpzd2exzd2itz00zzast_nodez00;
extern obj_t BGl_newz00zzast_nodez00;
extern obj_t BGl_conditionalz00zzast_nodez00;
extern obj_t BGl_sequencez00zzast_nodez00;
static obj_t BGl_getzd2setfield2760zd2zzsaw_proceduresz00(obj_t, obj_t, obj_t);
static obj_t BGl_getzd2appzd2ly2752z00zzsaw_proceduresz00(obj_t, obj_t, obj_t);
static obj_t BGl_getzd2select2746zd2zzsaw_proceduresz00(obj_t, obj_t, obj_t);
extern obj_t BGl_appz00zzast_nodez00;
static obj_t BGl__getz00zzsaw_proceduresz00(obj_t, obj_t, obj_t);
extern obj_t BGl_localz00zzast_varz00;
static obj_t BGl_getzd2new2762zd2zzsaw_proceduresz00(obj_t, obj_t, obj_t);
extern obj_t BGl_vlengthz00zzast_nodez00;
extern obj_t BGl_setfieldz00zzast_nodez00;
static obj_t BGl_getzd2cast2774zd2zzsaw_proceduresz00(obj_t, obj_t, obj_t);
static obj_t BGl_requirezd2initializa7ationz75zzsaw_proceduresz00 = BUNSPEC;
static obj_t BGl_getzd2jumpzd2exzd2it2778zd2zzsaw_proceduresz00(obj_t, obj_t, obj_t);
static obj_t BGl_getzd2default2729zd2zzsaw_proceduresz00(BgL_nodez00_bglt, obj_t);
static obj_t BGl_libraryzd2moduleszd2initz00zzsaw_proceduresz00();
extern obj_t BGl_vsetz12z12zzast_nodez00;
extern obj_t BGl_setqz00zzast_nodez00;
static obj_t __cnst[ 3 ] ;


DEFINE_STATIC_GENERIC( BGl_getzd2envzd2zzsaw_proceduresz00, BgL_bgl__getza700za7za7saw_proceduresza7004117z00, BGl__getz00zzsaw_proceduresz00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc4062z00zzsaw_proceduresz00, BgL_bgl_getza7d2atom2733za7d2za7za7saw_proceduresza7004118za7, BGl_getzd2atom2733zd2zzsaw_proceduresz00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc4063z00zzsaw_proceduresz00, BgL_bgl_getza7d2var2735za7d2za7za7saw_proceduresza7004119za7, BGl_getzd2var2735zd2zzsaw_proceduresz00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc4064z00zzsaw_proceduresz00, BgL_bgl_getza7d2letza7d2var2737za700za7za7saw_proceduresza7004120z00, BGl_getzd2letzd2var2737z00zzsaw_proceduresz00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc4065z00zzsaw_proceduresz00, BgL_bgl_getza7d2setq2740za7d2za7za7saw_proceduresza7004121za7, BGl_getzd2setq2740zd2zzsaw_proceduresz00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc4066z00zzsaw_proceduresz00, BgL_bgl_getza7d2sequence2742za7d2za7za7saw_proceduresza7004122za7, BGl_getzd2sequence2742zd2zzsaw_proceduresz00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc4067z00zzsaw_proceduresz00, BgL_bgl_getza7d2conditional2744za7d2za7za7saw_proceduresza7004123za7, BGl_getzd2conditional2744zd2zzsaw_proceduresz00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc4068z00zzsaw_proceduresz00, BgL_bgl_getza7d2select2746za7d2za7za7saw_proceduresza7004124za7, BGl_getzd2select2746zd2zzsaw_proceduresz00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc4070z00zzsaw_proceduresz00, BgL_bgl_getza7d2app2750za7d2za7za7saw_proceduresza7004125za7, BGl_getzd2app2750zd2zzsaw_proceduresz00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc4069z00zzsaw_proceduresz00, BgL_bgl_getza7d2letza7d2fun2748za700za7za7saw_proceduresza7004126z00, BGl_getzd2letzd2fun2748z00zzsaw_proceduresz00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc4071z00zzsaw_proceduresz00, BgL_bgl_getza7d2appza7d2ly2752za700za7za7saw_proceduresza7004127z00, BGl_getzd2appzd2ly2752z00zzsaw_proceduresz00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc4072z00zzsaw_proceduresz00, BgL_bgl_getza7d2funcall2754za7d2za7za7saw_proceduresza7004128za7, BGl_getzd2funcall2754zd2zzsaw_proceduresz00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc4073z00zzsaw_proceduresz00, BgL_bgl_getza7d2pragma2756za7d2za7za7saw_proceduresza7004129za7, BGl_getzd2pragma2756zd2zzsaw_proceduresz00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc4074z00zzsaw_proceduresz00, BgL_bgl_getza7d2getfield2758za7d2za7za7saw_proceduresza7004130za7, BGl_getzd2getfield2758zd2zzsaw_proceduresz00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc4075z00zzsaw_proceduresz00, BgL_bgl_getza7d2setfield2760za7d2za7za7saw_proceduresza7004131za7, BGl_getzd2setfield2760zd2zzsaw_proceduresz00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc4076z00zzsaw_proceduresz00, BgL_bgl_getza7d2new2762za7d2za7za7saw_proceduresza7004132za7, BGl_getzd2new2762zd2zzsaw_proceduresz00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc4077z00zzsaw_proceduresz00, BgL_bgl_getza7d2valloc2764za7d2za7za7saw_proceduresza7004133za7, BGl_getzd2valloc2764zd2zzsaw_proceduresz00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc4078z00zzsaw_proceduresz00, BgL_bgl_getza7d2vref2766za7d2za7za7saw_proceduresza7004134za7, BGl_getzd2vref2766zd2zzsaw_proceduresz00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc4080z00zzsaw_proceduresz00, BgL_bgl_getza7d2vlength2770za7d2za7za7saw_proceduresza7004135za7, BGl_getzd2vlength2770zd2zzsaw_proceduresz00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc4079z00zzsaw_proceduresz00, BgL_bgl_getza7d2vsetza7122768za7c0za7za7saw_proceduresza7004136z00, BGl_getzd2vsetz122768zc0zzsaw_proceduresz00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc4081z00zzsaw_proceduresz00, BgL_bgl_getza7d2isa2772za7d2za7za7saw_proceduresza7004137za7, BGl_getzd2isa2772zd2zzsaw_proceduresz00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc4082z00zzsaw_proceduresz00, BgL_bgl_getza7d2cast2774za7d2za7za7saw_proceduresza7004138za7, BGl_getzd2cast2774zd2zzsaw_proceduresz00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc4083z00zzsaw_proceduresz00, BgL_bgl_getza7d2setza7d2exza7d2it2776za7d2za7za7saw_proceduresza7004139za7, BGl_getzd2setzd2exzd2it2776zd2zzsaw_proceduresz00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc4084z00zzsaw_proceduresz00, BgL_bgl_getza7d2jumpza7d2exza7d2it2778za7d2za7za7saw_proceduresza7004140za7, BGl_getzd2jumpzd2exzd2it2778zd2zzsaw_proceduresz00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc4085z00zzsaw_proceduresz00, BgL_bgl_getza7d2fail2780za7d2za7za7saw_proceduresza7004141za7, BGl_getzd2fail2780zd2zzsaw_proceduresz00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc4086z00zzsaw_proceduresz00, BgL_bgl_getza7d2makeza7d2box2782za700za7za7saw_proceduresza7004142z00, BGl_getzd2makezd2box2782z00zzsaw_proceduresz00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc4087z00zzsaw_proceduresz00, BgL_bgl_getza7d2boxza7d2ref2784za700za7za7saw_proceduresza7004143z00, BGl_getzd2boxzd2ref2784z00zzsaw_proceduresz00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc4088z00zzsaw_proceduresz00, BgL_bgl_getza7d2boxza7d2setza7122786za712za7za7saw_proceduresza7004144za7, BGl_getzd2boxzd2setz122786z12zzsaw_proceduresz00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_getzd2default2729zd2envz00zzsaw_proceduresz00, BgL_bgl__getza7d2default2729za7d2za7za7saw_proceduresza7004145za7, BGl__getzd2default2729zd2zzsaw_proceduresz00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_getzd2procedureszd2envz00zzsaw_proceduresz00, BgL_bgl__getza7d2proceduresza7d2za7za7saw_proceduresza7004146za7, BGl__getzd2procedureszd2zzsaw_proceduresz00, 0L, 1 );
DEFINE_STRING( BGl_string4090z00zzsaw_proceduresz00, BgL_bgl_string4090za700za7za7saw_proceduresza7004147z00, "get __evmeaning_address elight ", 31 );
DEFINE_STRING( BGl_string4089z00zzsaw_proceduresz00, BgL_bgl_string4089za700za7za7saw_proceduresza7004148z00, "hole", 4 );



/* module-initialization */
BGL_EXPORTED_DEF obj_t BGl_modulezd2initializa7ationz75zzsaw_proceduresz00(long BgL_checksumz00_2368, char * BgL_fromz00_2369)
{ AN_OBJECT;
{ 
if(
CBOOL(BGl_requirezd2initializa7ationz75zzsaw_proceduresz00))
{ 
BGl_requirezd2initializa7ationz75zzsaw_proceduresz00 = 
BBOOL(((bool_t)0)); 
BGl_libraryzd2moduleszd2initz00zzsaw_proceduresz00(); 
BGl_cnstzd2initzd2zzsaw_proceduresz00(); 
BGl_importedzd2moduleszd2initz00zzsaw_proceduresz00(); 
BGl_methodzd2initzd2zzsaw_proceduresz00(); 
return BUNSPEC;}  else 
{ 
return BUNSPEC;} } 
}



/* library-modules-init */
obj_t BGl_libraryzd2moduleszd2initz00zzsaw_proceduresz00()
{ AN_OBJECT;
{ /* ./SawMill/procedures.scm 1 */
BGl_modulezd2initializa7ationz75zz__objectz00(((long)0), "saw_procedures"); 
BGl_modulezd2initializa7ationz75zz__readerz00(((long)0), "saw_procedures"); 
BGl_modulezd2initializa7ationz75zz__r4_pairs_and_lists_6_3z00(((long)0), "saw_procedures"); 
return BUNSPEC;} 
}



/* cnst-init */
obj_t BGl_cnstzd2initzd2zzsaw_proceduresz00()
{ AN_OBJECT;
{ /* ./SawMill/procedures.scm 1 */
{ /* ./SawMill/procedures.scm 1 */
obj_t BgL_cportz00_2357;
BgL_cportz00_2357 = 
open_input_string(BGl_string4090z00zzsaw_proceduresz00); 
{ 
long BgL_iz00_2358;
BgL_iz00_2358 = ((long)2); 
BgL_loopz00_2359:
{ /* ./SawMill/procedures.scm 1 */
bool_t BgL_test4092z00_2360;
BgL_test4092z00_2360 = 
(BgL_iz00_2358==((long)-1)); 
if(BgL_test4092z00_2360)
{ /* ./SawMill/procedures.scm 1 */
return BUNSPEC;}  else 
{ /* ./SawMill/procedures.scm 1 */
{ /* ./SawMill/procedures.scm 1 */
obj_t BgL_arg4094z00_2361;
{ /* ./SawMill/procedures.scm 1 */
obj_t BgL_list4097z00_2362;
BgL_list4097z00_2362 = 
MAKE_PAIR(BgL_cportz00_2357, BNIL); 
BgL_arg4094z00_2361 = 
BGl_readz00zz__readerz00(BgL_list4097z00_2362); } 
{ /* ./SawMill/procedures.scm 1 */
int BgL_auxz00_2385;
BgL_auxz00_2385 = 
(int)(BgL_iz00_2358); 
CNST_TABLE_SET(BgL_auxz00_2385, BgL_arg4094z00_2361); } } 
{ /* ./SawMill/procedures.scm 1 */
int BgL_auxz00_2363;
{ /* ./SawMill/procedures.scm 1 */
long BgL_auxz00_2388;
BgL_auxz00_2388 = 
(BgL_iz00_2358-((long)1)); 
BgL_auxz00_2363 = 
(int)(BgL_auxz00_2388); } 
{ 
long BgL_iz00_2391;
BgL_iz00_2391 = 
(long)(BgL_auxz00_2363); 
BgL_iz00_2358 = BgL_iz00_2391; 
goto BgL_loopz00_2359;} } } } } } } 
}



/* toplevel-init */
obj_t BGl_toplevelzd2initzd2zzsaw_proceduresz00()
{ AN_OBJECT;
{ /* ./SawMill/procedures.scm 1 */
return BUNSPEC;} 
}



/* get-procedures */
BGL_EXPORTED_DEF obj_t BGl_getzd2procedureszd2zzsaw_proceduresz00(obj_t BgL_globalsz00_1)
{ AN_OBJECT;
{ /* ./SawMill/procedures.scm 12 */
{ /* ./SawMill/procedures.scm 13 */
obj_t BgL_rz00_719;
BgL_rz00_719 = 
MAKE_CELL(BNIL); 
{ /* ./SawMill/procedures.scm 15 */
obj_t BgL_zc3anonymousza32790ze3z83_2235;
{ 
int BgL_auxz00_2395;int BgL_auxz00_2393;
BgL_auxz00_2395 = 
(int)(((long)1)); 
BgL_auxz00_2393 = 
(int)(((long)1)); 
BgL_zc3anonymousza32790ze3z83_2235 = 
make_fx_procedure(BGl_zc3anonymousza32790ze3z83zzsaw_proceduresz00, BgL_auxz00_2393, BgL_auxz00_2395); } 
{ /* ./SawMill/procedures.scm 15 */
int BgL_auxz00_2398;
BgL_auxz00_2398 = 
(int)(((long)0)); 
PROCEDURE_SET(BgL_zc3anonymousza32790ze3z83_2235, BgL_auxz00_2398, BgL_rz00_719); } 
BGl_forzd2eachzd2globalz12z12zzast_envz00(BgL_zc3anonymousza32790ze3z83_2235); } 
{ 
obj_t BgL_l2662z00_727;
BgL_l2662z00_727 = BgL_globalsz00_1; 
BgL_forzd2each2663zd2_728:
{ /* ./SawMill/procedures.scm 18 */
bool_t BgL_test2798z00_729;
BgL_test2798z00_729 = 
PAIRP(BgL_l2662z00_727); 
if(BgL_test2798z00_729)
{ /* ./SawMill/procedures.scm 18 */
{ /* ./SawMill/procedures.scm 19 */
obj_t BgL_globalz00_730;
BgL_globalz00_730 = 
CAR(BgL_l2662z00_727); 
{ /* ./SawMill/procedures.scm 19 */
obj_t BgL_auxz00_2245;
{ /* ./SawMill/procedures.scm 19 */
obj_t BgL_arg2800z00_731;
{ /* ./SawMill/procedures.scm 19 */
BgL_sfunz00_bglt BgL_obj1370z00_1407;
{ /* ./SawMill/procedures.scm 19 */
BgL_valuez00_bglt BgL_auxz00_2405;
{ /* ./SawMill/procedures.scm 19 */
BgL_variablez00_bglt BgL_obj1100z00_1406;
BgL_obj1100z00_1406 = 
(BgL_variablez00_bglt)(BgL_globalz00_730); 
BgL_auxz00_2405 = 
(((BgL_variablez00_bglt)CREF(BgL_obj1100z00_1406))->BgL_valuez00); } 
BgL_obj1370z00_1407 = 
(BgL_sfunz00_bglt)(BgL_auxz00_2405); } 
BgL_arg2800z00_731 = 
(((BgL_sfunz00_bglt)CREF(BgL_obj1370z00_1407))->BgL_bodyz00); } 
{ /* ./SawMill/procedures.scm 19 */
BgL_nodez00_bglt BgL_ez00_1408;obj_t BgL_rz00_1409;
BgL_ez00_1408 = 
(BgL_nodez00_bglt)(BgL_arg2800z00_731); 
BgL_rz00_1409 = 
CELL_REF(BgL_rz00_719); 
{ /* ./SawMill/procedures.scm 19 */
obj_t BgL_method2730z00_1410;
{ /* ./SawMill/procedures.scm 19 */
BgL_objectz00_bglt BgL_objz00_1411;
BgL_objz00_1411 = 
(BgL_objectz00_bglt)(BgL_ez00_1408); 
{ /* ./SawMill/procedures.scm 19 */
long BgL_objzd2classzd2numz00_1412;
BgL_objzd2classzd2numz00_1412 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1411); 
{ /* ./SawMill/procedures.scm 19 */
obj_t BgL_arg2017z00_1413;
{ /* ./SawMill/procedures.scm 19 */
int BgL_auxz00_2413;
BgL_auxz00_2413 = 
(int)(((long)1)); 
BgL_arg2017z00_1413 = 
PROCEDURE_REF(BGl_getzd2envzd2zzsaw_proceduresz00, BgL_auxz00_2413); } 
{ /* ./SawMill/procedures.scm 19 */
int BgL_offsetz00_1416;
BgL_offsetz00_1416 = 
(int)(BgL_objzd2classzd2numz00_1412); 
{ /* ./SawMill/procedures.scm 19 */
long BgL_offsetz00_1417;
{ /* ./SawMill/procedures.scm 19 */
long BgL_auxz00_2417;
BgL_auxz00_2417 = 
(long)(BgL_offsetz00_1416); 
BgL_offsetz00_1417 = 
(BgL_auxz00_2417-OBJECT_TYPE); } 
{ /* ./SawMill/procedures.scm 19 */
long BgL_modz00_1418;
{ /* ./SawMill/procedures.scm 19 */
int BgL_arg2028z00_1419;
BgL_arg2028z00_1419 = 
(int)(((long)8)); 
{ /* ./SawMill/procedures.scm 19 */
long BgL_n2z00_1427;
BgL_n2z00_1427 = 
(long)(BgL_arg2028z00_1419); 
BgL_modz00_1418 = 
(BgL_offsetz00_1417/BgL_n2z00_1427); } } 
{ /* ./SawMill/procedures.scm 19 */
long BgL_restz00_1420;
{ /* ./SawMill/procedures.scm 19 */
int BgL_arg2024z00_1421;
BgL_arg2024z00_1421 = 
(int)(((long)8)); 
{ /* ./SawMill/procedures.scm 19 */
long BgL_n2z00_1430;
BgL_n2z00_1430 = 
(long)(BgL_arg2024z00_1421); 
BgL_restz00_1420 = 
(BgL_offsetz00_1417%BgL_n2z00_1430); } } 
{ /* ./SawMill/procedures.scm 19 */

{ /* ./SawMill/procedures.scm 19 */
obj_t BgL_bucketz00_1422;
{ /* ./SawMill/procedures.scm 19 */
int BgL_kz00_1432;
BgL_kz00_1432 = 
(int)(BgL_modz00_1418); 
BgL_bucketz00_1422 = 
VECTOR_REF(BgL_arg2017z00_1413,BgL_kz00_1432); } 
{ /* ./SawMill/procedures.scm 19 */
int BgL_kz00_1434;
BgL_kz00_1434 = 
(int)(BgL_restz00_1420); 
BgL_method2730z00_1410 = 
VECTOR_REF(BgL_bucketz00_1422,BgL_kz00_1434); } } } } } } } } } } 
BgL_auxz00_2245 = 
PROCEDURE_ENTRY(BgL_method2730z00_1410)(BgL_method2730z00_1410, 
(obj_t)(BgL_ez00_1408), BgL_rz00_1409, BEOA); } } } 
CELL_SET(BgL_rz00_719, BgL_auxz00_2245); } } 
{ /* ./SawMill/procedures.scm 18 */
obj_t BgL_arg2808z00_733;
BgL_arg2808z00_733 = 
CDR(BgL_l2662z00_727); 
{ 
obj_t BgL_l2662z00_2434;
BgL_l2662z00_2434 = BgL_arg2808z00_733; 
BgL_l2662z00_727 = BgL_l2662z00_2434; 
goto BgL_forzd2each2663zd2_728;} } }  else 
{ /* ./SawMill/procedures.scm 18 */((bool_t)1); } } } 
return 
CELL_REF(BgL_rz00_719);} } 
}



/* _get-procedures */
obj_t BGl__getzd2procedureszd2zzsaw_proceduresz00(obj_t BgL_envz00_2236, obj_t BgL_globalsz00_2237)
{ AN_OBJECT;
{ /* ./SawMill/procedures.scm 12 */
return 
BGl_getzd2procedureszd2zzsaw_proceduresz00(BgL_globalsz00_2237);} 
}



/* <anonymous:2790> */
obj_t BGl_zc3anonymousza32790ze3z83zzsaw_proceduresz00(obj_t BgL_envz00_2238, obj_t BgL_globalz00_2240)
{ AN_OBJECT;
{ /* ./SawMill/procedures.scm 14 */
{ /* ./SawMill/procedures.scm 15 */
obj_t BgL_rz00_2239;
{ /* ./SawMill/procedures.scm 15 */
int BgL_auxz00_2436;
BgL_auxz00_2436 = 
(int)(((long)0)); 
BgL_rz00_2239 = 
PROCEDURE_REF(BgL_envz00_2238, BgL_auxz00_2436); } 
{ 
obj_t BgL_globalz00_721;
BgL_globalz00_721 = BgL_globalz00_2240; 
{ /* ./SawMill/procedures.scm 15 */
bool_t BgL_test2791z00_723;
{ /* ./SawMill/procedures.scm 15 */
bool_t BgL_test2793z00_724;
{ /* ./SawMill/procedures.scm 15 */
obj_t BgL_auxz00_2439;
BgL_auxz00_2439 = 
BGl_needzd2functionzd2pointerz00zzsaw_elsewherez00(
(BgL_globalz00_bglt)(BgL_globalz00_721)); 
BgL_test2793z00_724 = 
CBOOL(BgL_auxz00_2439); } 
if(BgL_test2793z00_724)
{ /* ./SawMill/procedures.scm 16 */
bool_t BgL_test2794z00_725;
{ /* ./SawMill/procedures.scm 16 */
obj_t BgL_auxz00_2444;
BgL_auxz00_2444 = 
BGl_memqz00zz__r4_pairs_and_lists_6_3z00(BgL_globalz00_721, 
CELL_REF(BgL_rz00_2239)); 
BgL_test2794z00_725 = 
CBOOL(BgL_auxz00_2444); } 
if(BgL_test2794z00_725)
{ /* ./SawMill/procedures.scm 16 */
BgL_test2791z00_723 = ((bool_t)0); }  else 
{ /* ./SawMill/procedures.scm 16 */
BgL_test2791z00_723 = ((bool_t)1); } }  else 
{ /* ./SawMill/procedures.scm 15 */
BgL_test2791z00_723 = ((bool_t)0); } } 
if(BgL_test2791z00_723)
{ /* ./SawMill/procedures.scm 17 */
obj_t BgL_auxz00_2241;
{ /* ./SawMill/procedures.scm 17 */
obj_t BgL_auxz00_2449;
BgL_auxz00_2449 = 
CELL_REF(BgL_rz00_2239); 
BgL_auxz00_2241 = 
MAKE_PAIR(BgL_globalz00_721, BgL_auxz00_2449); } 
return 
CELL_SET(BgL_rz00_2239, BgL_auxz00_2241);}  else 
{ /* ./SawMill/procedures.scm 15 */
return BFALSE;} } } } } 
}



/* get* */
obj_t BGl_getza2za2zzsaw_proceduresz00(obj_t BgL_lz00_2, obj_t BgL_rz00_3)
{ AN_OBJECT;
{ /* ./SawMill/procedures.scm 23 */
BGl_getza2za2zzsaw_proceduresz00:
{ /* ./SawMill/procedures.scm 24 */
bool_t BgL_test2812z00_734;
BgL_test2812z00_734 = 
NULLP(BgL_lz00_2); 
if(BgL_test2812z00_734)
{ /* ./SawMill/procedures.scm 24 */
return BgL_rz00_3;}  else 
{ /* ./SawMill/procedures.scm 26 */
obj_t BgL_arg2814z00_735;obj_t BgL_arg2815z00_736;
BgL_arg2814z00_735 = 
CDR(BgL_lz00_2); 
{ /* ./SawMill/procedures.scm 26 */
obj_t BgL_arg2819z00_737;
BgL_arg2819z00_737 = 
CAR(BgL_lz00_2); 
{ /* ./SawMill/procedures.scm 26 */
BgL_nodez00_bglt BgL_ez00_1439;
BgL_ez00_1439 = 
(BgL_nodez00_bglt)(BgL_arg2819z00_737); 
{ /* ./SawMill/procedures.scm 26 */
obj_t BgL_method2730z00_1441;
{ /* ./SawMill/procedures.scm 26 */
BgL_objectz00_bglt BgL_objz00_1442;
BgL_objz00_1442 = 
(BgL_objectz00_bglt)(BgL_ez00_1439); 
{ /* ./SawMill/procedures.scm 26 */
long BgL_objzd2classzd2numz00_1443;
BgL_objzd2classzd2numz00_1443 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1442); 
{ /* ./SawMill/procedures.scm 26 */
obj_t BgL_arg2017z00_1444;
{ /* ./SawMill/procedures.scm 26 */
int BgL_auxz00_2458;
BgL_auxz00_2458 = 
(int)(((long)1)); 
BgL_arg2017z00_1444 = 
PROCEDURE_REF(BGl_getzd2envzd2zzsaw_proceduresz00, BgL_auxz00_2458); } 
{ /* ./SawMill/procedures.scm 26 */
int BgL_offsetz00_1447;
BgL_offsetz00_1447 = 
(int)(BgL_objzd2classzd2numz00_1443); 
{ /* ./SawMill/procedures.scm 26 */
long BgL_offsetz00_1448;
{ /* ./SawMill/procedures.scm 26 */
long BgL_auxz00_2462;
BgL_auxz00_2462 = 
(long)(BgL_offsetz00_1447); 
BgL_offsetz00_1448 = 
(BgL_auxz00_2462-OBJECT_TYPE); } 
{ /* ./SawMill/procedures.scm 26 */
long BgL_modz00_1449;
{ /* ./SawMill/procedures.scm 26 */
int BgL_arg2028z00_1450;
BgL_arg2028z00_1450 = 
(int)(((long)8)); 
{ /* ./SawMill/procedures.scm 26 */
long BgL_n2z00_1458;
BgL_n2z00_1458 = 
(long)(BgL_arg2028z00_1450); 
BgL_modz00_1449 = 
(BgL_offsetz00_1448/BgL_n2z00_1458); } } 
{ /* ./SawMill/procedures.scm 26 */
long BgL_restz00_1451;
{ /* ./SawMill/procedures.scm 26 */
int BgL_arg2024z00_1452;
BgL_arg2024z00_1452 = 
(int)(((long)8)); 
{ /* ./SawMill/procedures.scm 26 */
long BgL_n2z00_1461;
BgL_n2z00_1461 = 
(long)(BgL_arg2024z00_1452); 
BgL_restz00_1451 = 
(BgL_offsetz00_1448%BgL_n2z00_1461); } } 
{ /* ./SawMill/procedures.scm 26 */

{ /* ./SawMill/procedures.scm 26 */
obj_t BgL_bucketz00_1453;
{ /* ./SawMill/procedures.scm 26 */
int BgL_kz00_1463;
BgL_kz00_1463 = 
(int)(BgL_modz00_1449); 
BgL_bucketz00_1453 = 
VECTOR_REF(BgL_arg2017z00_1444,BgL_kz00_1463); } 
{ /* ./SawMill/procedures.scm 26 */
int BgL_kz00_1465;
BgL_kz00_1465 = 
(int)(BgL_restz00_1451); 
BgL_method2730z00_1441 = 
VECTOR_REF(BgL_bucketz00_1453,BgL_kz00_1465); } } } } } } } } } } 
BgL_arg2815z00_736 = 
PROCEDURE_ENTRY(BgL_method2730z00_1441)(BgL_method2730z00_1441, 
(obj_t)(BgL_ez00_1439), BgL_rz00_3, BEOA); } } } 
{ 
obj_t BgL_rz00_2479;obj_t BgL_lz00_2478;
BgL_lz00_2478 = BgL_arg2814z00_735; 
BgL_rz00_2479 = BgL_arg2815z00_736; 
BgL_rz00_3 = BgL_rz00_2479; 
BgL_lz00_2 = BgL_lz00_2478; 
goto BGl_getza2za2zzsaw_proceduresz00;} } } } 
}



/* method-init */
obj_t BGl_methodzd2initzd2zzsaw_proceduresz00()
{ AN_OBJECT;
{ /* ./SawMill/procedures.scm 1 */
BGl_addzd2genericz12zc0zz__objectz00(BGl_getzd2envzd2zzsaw_proceduresz00, BGl_getzd2default2729zd2envz00zzsaw_proceduresz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_getzd2envzd2zzsaw_proceduresz00, BGl_atomz00zzast_nodez00, BGl_proc4062z00zzsaw_proceduresz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_getzd2envzd2zzsaw_proceduresz00, BGl_varz00zzast_nodez00, BGl_proc4063z00zzsaw_proceduresz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_getzd2envzd2zzsaw_proceduresz00, BGl_letzd2varzd2zzast_nodez00, BGl_proc4064z00zzsaw_proceduresz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_getzd2envzd2zzsaw_proceduresz00, BGl_setqz00zzast_nodez00, BGl_proc4065z00zzsaw_proceduresz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_getzd2envzd2zzsaw_proceduresz00, BGl_sequencez00zzast_nodez00, BGl_proc4066z00zzsaw_proceduresz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_getzd2envzd2zzsaw_proceduresz00, BGl_conditionalz00zzast_nodez00, BGl_proc4067z00zzsaw_proceduresz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_getzd2envzd2zzsaw_proceduresz00, BGl_selectz00zzast_nodez00, BGl_proc4068z00zzsaw_proceduresz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_getzd2envzd2zzsaw_proceduresz00, BGl_letzd2funzd2zzast_nodez00, BGl_proc4069z00zzsaw_proceduresz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_getzd2envzd2zzsaw_proceduresz00, BGl_appz00zzast_nodez00, BGl_proc4070z00zzsaw_proceduresz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_getzd2envzd2zzsaw_proceduresz00, BGl_appzd2lyzd2zzast_nodez00, BGl_proc4071z00zzsaw_proceduresz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_getzd2envzd2zzsaw_proceduresz00, BGl_funcallz00zzast_nodez00, BGl_proc4072z00zzsaw_proceduresz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_getzd2envzd2zzsaw_proceduresz00, BGl_pragmaz00zzast_nodez00, BGl_proc4073z00zzsaw_proceduresz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_getzd2envzd2zzsaw_proceduresz00, BGl_getfieldz00zzast_nodez00, BGl_proc4074z00zzsaw_proceduresz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_getzd2envzd2zzsaw_proceduresz00, BGl_setfieldz00zzast_nodez00, BGl_proc4075z00zzsaw_proceduresz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_getzd2envzd2zzsaw_proceduresz00, BGl_newz00zzast_nodez00, BGl_proc4076z00zzsaw_proceduresz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_getzd2envzd2zzsaw_proceduresz00, BGl_vallocz00zzast_nodez00, BGl_proc4077z00zzsaw_proceduresz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_getzd2envzd2zzsaw_proceduresz00, BGl_vrefz00zzast_nodez00, BGl_proc4078z00zzsaw_proceduresz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_getzd2envzd2zzsaw_proceduresz00, BGl_vsetz12z12zzast_nodez00, BGl_proc4079z00zzsaw_proceduresz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_getzd2envzd2zzsaw_proceduresz00, BGl_vlengthz00zzast_nodez00, BGl_proc4080z00zzsaw_proceduresz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_getzd2envzd2zzsaw_proceduresz00, BGl_isaz00zzast_nodez00, BGl_proc4081z00zzsaw_proceduresz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_getzd2envzd2zzsaw_proceduresz00, BGl_castz00zzast_nodez00, BGl_proc4082z00zzsaw_proceduresz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_getzd2envzd2zzsaw_proceduresz00, BGl_setzd2exzd2itz00zzast_nodez00, BGl_proc4083z00zzsaw_proceduresz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_getzd2envzd2zzsaw_proceduresz00, BGl_jumpzd2exzd2itz00zzast_nodez00, BGl_proc4084z00zzsaw_proceduresz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_getzd2envzd2zzsaw_proceduresz00, BGl_failz00zzast_nodez00, BGl_proc4085z00zzsaw_proceduresz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_getzd2envzd2zzsaw_proceduresz00, BGl_makezd2boxzd2zzast_nodez00, BGl_proc4086z00zzsaw_proceduresz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_getzd2envzd2zzsaw_proceduresz00, BGl_boxzd2refzd2zzast_nodez00, BGl_proc4087z00zzsaw_proceduresz00); 
return 
BGl_addzd2methodz12zc0zz__objectz00(BGl_getzd2envzd2zzsaw_proceduresz00, BGl_boxzd2setz12zc0zzast_nodez00, BGl_proc4088z00zzsaw_proceduresz00);} 
}



/* get-box-set!2786 */
obj_t BGl_getzd2boxzd2setz122786z12zzsaw_proceduresz00(obj_t BgL_envz00_2273, obj_t BgL_ez00_2274, obj_t BgL_rz00_2275)
{ AN_OBJECT;
{ /* ./SawMill/procedures.scm 179 */
{ 
BgL_boxzd2setz12zc0_bglt BgL_ez00_1389;obj_t BgL_rz00_1390;
BgL_ez00_1389 = 
(BgL_boxzd2setz12zc0_bglt)(BgL_ez00_2274); 
BgL_rz00_1390 = BgL_rz00_2275; 
{ /* ./SawMill/procedures.scm 180 */
BgL_varz00_bglt BgL_arg3582z00_2136;obj_t BgL_arg3583z00_2137;
BgL_arg3582z00_2136 = 
(((BgL_boxzd2setz12zc0_bglt)CREF(BgL_ez00_1389))->BgL_varz00); 
{ /* ./SawMill/procedures.scm 180 */
BgL_nodez00_bglt BgL_arg3587z00_2138;
BgL_arg3587z00_2138 = 
(((BgL_boxzd2setz12zc0_bglt)CREF(BgL_ez00_1389))->BgL_valuez00); 
{ /* ./SawMill/procedures.scm 180 */
obj_t BgL_method2730z00_2143;
{ /* ./SawMill/procedures.scm 180 */
BgL_objectz00_bglt BgL_objz00_2144;
BgL_objz00_2144 = 
(BgL_objectz00_bglt)(BgL_arg3587z00_2138); 
{ /* ./SawMill/procedures.scm 180 */
long BgL_objzd2classzd2numz00_2145;
BgL_objzd2classzd2numz00_2145 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2144); 
{ /* ./SawMill/procedures.scm 180 */
obj_t BgL_arg2017z00_2146;
{ /* ./SawMill/procedures.scm 180 */
int BgL_auxz00_2512;
BgL_auxz00_2512 = 
(int)(((long)1)); 
BgL_arg2017z00_2146 = 
PROCEDURE_REF(BGl_getzd2envzd2zzsaw_proceduresz00, BgL_auxz00_2512); } 
{ /* ./SawMill/procedures.scm 180 */
int BgL_offsetz00_2149;
BgL_offsetz00_2149 = 
(int)(BgL_objzd2classzd2numz00_2145); 
{ /* ./SawMill/procedures.scm 180 */
long BgL_offsetz00_2150;
{ /* ./SawMill/procedures.scm 180 */
long BgL_auxz00_2516;
BgL_auxz00_2516 = 
(long)(BgL_offsetz00_2149); 
BgL_offsetz00_2150 = 
(BgL_auxz00_2516-OBJECT_TYPE); } 
{ /* ./SawMill/procedures.scm 180 */
long BgL_modz00_2151;
{ /* ./SawMill/procedures.scm 180 */
int BgL_arg2028z00_2152;
BgL_arg2028z00_2152 = 
(int)(((long)8)); 
{ /* ./SawMill/procedures.scm 180 */
long BgL_n2z00_2160;
BgL_n2z00_2160 = 
(long)(BgL_arg2028z00_2152); 
BgL_modz00_2151 = 
(BgL_offsetz00_2150/BgL_n2z00_2160); } } 
{ /* ./SawMill/procedures.scm 180 */
long BgL_restz00_2153;
{ /* ./SawMill/procedures.scm 180 */
int BgL_arg2024z00_2154;
BgL_arg2024z00_2154 = 
(int)(((long)8)); 
{ /* ./SawMill/procedures.scm 180 */
long BgL_n2z00_2163;
BgL_n2z00_2163 = 
(long)(BgL_arg2024z00_2154); 
BgL_restz00_2153 = 
(BgL_offsetz00_2150%BgL_n2z00_2163); } } 
{ /* ./SawMill/procedures.scm 180 */

{ /* ./SawMill/procedures.scm 180 */
obj_t BgL_bucketz00_2155;
{ /* ./SawMill/procedures.scm 180 */
int BgL_kz00_2165;
BgL_kz00_2165 = 
(int)(BgL_modz00_2151); 
BgL_bucketz00_2155 = 
VECTOR_REF(BgL_arg2017z00_2146,BgL_kz00_2165); } 
{ /* ./SawMill/procedures.scm 180 */
int BgL_kz00_2167;
BgL_kz00_2167 = 
(int)(BgL_restz00_2153); 
BgL_method2730z00_2143 = 
VECTOR_REF(BgL_bucketz00_2155,BgL_kz00_2167); } } } } } } } } } } 
BgL_arg3583z00_2137 = 
PROCEDURE_ENTRY(BgL_method2730z00_2143)(BgL_method2730z00_2143, 
(obj_t)(BgL_arg3587z00_2138), BgL_rz00_1390, BEOA); } } 
{ /* ./SawMill/procedures.scm 180 */
BgL_nodez00_bglt BgL_ez00_2168;
BgL_ez00_2168 = 
(BgL_nodez00_bglt)(BgL_arg3582z00_2136); 
{ /* ./SawMill/procedures.scm 180 */
obj_t BgL_method2730z00_2170;
{ /* ./SawMill/procedures.scm 180 */
BgL_objectz00_bglt BgL_objz00_2171;
BgL_objz00_2171 = 
(BgL_objectz00_bglt)(BgL_ez00_2168); 
{ /* ./SawMill/procedures.scm 180 */
long BgL_objzd2classzd2numz00_2172;
BgL_objzd2classzd2numz00_2172 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2171); 
{ /* ./SawMill/procedures.scm 180 */
obj_t BgL_arg2017z00_2173;
{ /* ./SawMill/procedures.scm 180 */
int BgL_auxz00_2535;
BgL_auxz00_2535 = 
(int)(((long)1)); 
BgL_arg2017z00_2173 = 
PROCEDURE_REF(BGl_getzd2envzd2zzsaw_proceduresz00, BgL_auxz00_2535); } 
{ /* ./SawMill/procedures.scm 180 */
int BgL_offsetz00_2176;
BgL_offsetz00_2176 = 
(int)(BgL_objzd2classzd2numz00_2172); 
{ /* ./SawMill/procedures.scm 180 */
long BgL_offsetz00_2177;
{ /* ./SawMill/procedures.scm 180 */
long BgL_auxz00_2539;
BgL_auxz00_2539 = 
(long)(BgL_offsetz00_2176); 
BgL_offsetz00_2177 = 
(BgL_auxz00_2539-OBJECT_TYPE); } 
{ /* ./SawMill/procedures.scm 180 */
long BgL_modz00_2178;
{ /* ./SawMill/procedures.scm 180 */
int BgL_arg2028z00_2179;
BgL_arg2028z00_2179 = 
(int)(((long)8)); 
{ /* ./SawMill/procedures.scm 180 */
long BgL_n2z00_2187;
BgL_n2z00_2187 = 
(long)(BgL_arg2028z00_2179); 
BgL_modz00_2178 = 
(BgL_offsetz00_2177/BgL_n2z00_2187); } } 
{ /* ./SawMill/procedures.scm 180 */
long BgL_restz00_2180;
{ /* ./SawMill/procedures.scm 180 */
int BgL_arg2024z00_2181;
BgL_arg2024z00_2181 = 
(int)(((long)8)); 
{ /* ./SawMill/procedures.scm 180 */
long BgL_n2z00_2190;
BgL_n2z00_2190 = 
(long)(BgL_arg2024z00_2181); 
BgL_restz00_2180 = 
(BgL_offsetz00_2177%BgL_n2z00_2190); } } 
{ /* ./SawMill/procedures.scm 180 */

{ /* ./SawMill/procedures.scm 180 */
obj_t BgL_bucketz00_2182;
{ /* ./SawMill/procedures.scm 180 */
int BgL_kz00_2192;
BgL_kz00_2192 = 
(int)(BgL_modz00_2178); 
BgL_bucketz00_2182 = 
VECTOR_REF(BgL_arg2017z00_2173,BgL_kz00_2192); } 
{ /* ./SawMill/procedures.scm 180 */
int BgL_kz00_2194;
BgL_kz00_2194 = 
(int)(BgL_restz00_2180); 
BgL_method2730z00_2170 = 
VECTOR_REF(BgL_bucketz00_2182,BgL_kz00_2194); } } } } } } } } } } 
return 
PROCEDURE_ENTRY(BgL_method2730z00_2170)(BgL_method2730z00_2170, 
(obj_t)(BgL_ez00_2168), BgL_arg3583z00_2137, BEOA);} } } } } 
}



/* get-box-ref2784 */
obj_t BGl_getzd2boxzd2ref2784z00zzsaw_proceduresz00(obj_t BgL_envz00_2276, obj_t BgL_ez00_2277, obj_t BgL_rz00_2278)
{ AN_OBJECT;
{ /* ./SawMill/procedures.scm 174 */
{ 
BgL_boxzd2refzd2_bglt BgL_ez00_1381;obj_t BgL_rz00_1382;
BgL_ez00_1381 = 
(BgL_boxzd2refzd2_bglt)(BgL_ez00_2277); 
BgL_rz00_1382 = BgL_rz00_2278; 
{ /* ./SawMill/procedures.scm 175 */
BgL_varz00_bglt BgL_arg3572z00_2106;
BgL_arg3572z00_2106 = 
(((BgL_boxzd2refzd2_bglt)CREF(BgL_ez00_1381))->BgL_varz00); 
{ /* ./SawMill/procedures.scm 175 */
BgL_nodez00_bglt BgL_ez00_2108;
BgL_ez00_2108 = 
(BgL_nodez00_bglt)(BgL_arg3572z00_2106); 
{ /* ./SawMill/procedures.scm 175 */
obj_t BgL_method2730z00_2110;
{ /* ./SawMill/procedures.scm 175 */
BgL_objectz00_bglt BgL_objz00_2111;
BgL_objz00_2111 = 
(BgL_objectz00_bglt)(BgL_ez00_2108); 
{ /* ./SawMill/procedures.scm 175 */
long BgL_objzd2classzd2numz00_2112;
BgL_objzd2classzd2numz00_2112 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2111); 
{ /* ./SawMill/procedures.scm 175 */
obj_t BgL_arg2017z00_2113;
{ /* ./SawMill/procedures.scm 175 */
int BgL_auxz00_2560;
BgL_auxz00_2560 = 
(int)(((long)1)); 
BgL_arg2017z00_2113 = 
PROCEDURE_REF(BGl_getzd2envzd2zzsaw_proceduresz00, BgL_auxz00_2560); } 
{ /* ./SawMill/procedures.scm 175 */
int BgL_offsetz00_2116;
BgL_offsetz00_2116 = 
(int)(BgL_objzd2classzd2numz00_2112); 
{ /* ./SawMill/procedures.scm 175 */
long BgL_offsetz00_2117;
{ /* ./SawMill/procedures.scm 175 */
long BgL_auxz00_2564;
BgL_auxz00_2564 = 
(long)(BgL_offsetz00_2116); 
BgL_offsetz00_2117 = 
(BgL_auxz00_2564-OBJECT_TYPE); } 
{ /* ./SawMill/procedures.scm 175 */
long BgL_modz00_2118;
{ /* ./SawMill/procedures.scm 175 */
int BgL_arg2028z00_2119;
BgL_arg2028z00_2119 = 
(int)(((long)8)); 
{ /* ./SawMill/procedures.scm 175 */
long BgL_n2z00_2127;
BgL_n2z00_2127 = 
(long)(BgL_arg2028z00_2119); 
BgL_modz00_2118 = 
(BgL_offsetz00_2117/BgL_n2z00_2127); } } 
{ /* ./SawMill/procedures.scm 175 */
long BgL_restz00_2120;
{ /* ./SawMill/procedures.scm 175 */
int BgL_arg2024z00_2121;
BgL_arg2024z00_2121 = 
(int)(((long)8)); 
{ /* ./SawMill/procedures.scm 175 */
long BgL_n2z00_2130;
BgL_n2z00_2130 = 
(long)(BgL_arg2024z00_2121); 
BgL_restz00_2120 = 
(BgL_offsetz00_2117%BgL_n2z00_2130); } } 
{ /* ./SawMill/procedures.scm 175 */

{ /* ./SawMill/procedures.scm 175 */
obj_t BgL_bucketz00_2122;
{ /* ./SawMill/procedures.scm 175 */
int BgL_kz00_2132;
BgL_kz00_2132 = 
(int)(BgL_modz00_2118); 
BgL_bucketz00_2122 = 
VECTOR_REF(BgL_arg2017z00_2113,BgL_kz00_2132); } 
{ /* ./SawMill/procedures.scm 175 */
int BgL_kz00_2134;
BgL_kz00_2134 = 
(int)(BgL_restz00_2120); 
BgL_method2730z00_2110 = 
VECTOR_REF(BgL_bucketz00_2122,BgL_kz00_2134); } } } } } } } } } } 
return 
PROCEDURE_ENTRY(BgL_method2730z00_2110)(BgL_method2730z00_2110, 
(obj_t)(BgL_ez00_2108), BgL_rz00_1382, BEOA);} } } } } 
}



/* get-make-box2782 */
obj_t BGl_getzd2makezd2box2782z00zzsaw_proceduresz00(obj_t BgL_envz00_2279, obj_t BgL_ez00_2280, obj_t BgL_rz00_2281)
{ AN_OBJECT;
{ /* ./SawMill/procedures.scm 169 */
{ 
BgL_makezd2boxzd2_bglt BgL_ez00_1373;obj_t BgL_rz00_1374;
BgL_ez00_1373 = 
(BgL_makezd2boxzd2_bglt)(BgL_ez00_2280); 
BgL_rz00_1374 = BgL_rz00_2281; 
{ /* ./SawMill/procedures.scm 170 */
BgL_nodez00_bglt BgL_arg3562z00_2076;
BgL_arg3562z00_2076 = 
(((BgL_makezd2boxzd2_bglt)CREF(BgL_ez00_1373))->BgL_valuez00); 
{ /* ./SawMill/procedures.scm 170 */
obj_t BgL_method2730z00_2080;
{ /* ./SawMill/procedures.scm 170 */
BgL_objectz00_bglt BgL_objz00_2081;
BgL_objz00_2081 = 
(BgL_objectz00_bglt)(BgL_arg3562z00_2076); 
{ /* ./SawMill/procedures.scm 170 */
long BgL_objzd2classzd2numz00_2082;
BgL_objzd2classzd2numz00_2082 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2081); 
{ /* ./SawMill/procedures.scm 170 */
obj_t BgL_arg2017z00_2083;
{ /* ./SawMill/procedures.scm 170 */
int BgL_auxz00_2584;
BgL_auxz00_2584 = 
(int)(((long)1)); 
BgL_arg2017z00_2083 = 
PROCEDURE_REF(BGl_getzd2envzd2zzsaw_proceduresz00, BgL_auxz00_2584); } 
{ /* ./SawMill/procedures.scm 170 */
int BgL_offsetz00_2086;
BgL_offsetz00_2086 = 
(int)(BgL_objzd2classzd2numz00_2082); 
{ /* ./SawMill/procedures.scm 170 */
long BgL_offsetz00_2087;
{ /* ./SawMill/procedures.scm 170 */
long BgL_auxz00_2588;
BgL_auxz00_2588 = 
(long)(BgL_offsetz00_2086); 
BgL_offsetz00_2087 = 
(BgL_auxz00_2588-OBJECT_TYPE); } 
{ /* ./SawMill/procedures.scm 170 */
long BgL_modz00_2088;
{ /* ./SawMill/procedures.scm 170 */
int BgL_arg2028z00_2089;
BgL_arg2028z00_2089 = 
(int)(((long)8)); 
{ /* ./SawMill/procedures.scm 170 */
long BgL_n2z00_2097;
BgL_n2z00_2097 = 
(long)(BgL_arg2028z00_2089); 
BgL_modz00_2088 = 
(BgL_offsetz00_2087/BgL_n2z00_2097); } } 
{ /* ./SawMill/procedures.scm 170 */
long BgL_restz00_2090;
{ /* ./SawMill/procedures.scm 170 */
int BgL_arg2024z00_2091;
BgL_arg2024z00_2091 = 
(int)(((long)8)); 
{ /* ./SawMill/procedures.scm 170 */
long BgL_n2z00_2100;
BgL_n2z00_2100 = 
(long)(BgL_arg2024z00_2091); 
BgL_restz00_2090 = 
(BgL_offsetz00_2087%BgL_n2z00_2100); } } 
{ /* ./SawMill/procedures.scm 170 */

{ /* ./SawMill/procedures.scm 170 */
obj_t BgL_bucketz00_2092;
{ /* ./SawMill/procedures.scm 170 */
int BgL_kz00_2102;
BgL_kz00_2102 = 
(int)(BgL_modz00_2088); 
BgL_bucketz00_2092 = 
VECTOR_REF(BgL_arg2017z00_2083,BgL_kz00_2102); } 
{ /* ./SawMill/procedures.scm 170 */
int BgL_kz00_2104;
BgL_kz00_2104 = 
(int)(BgL_restz00_2090); 
BgL_method2730z00_2080 = 
VECTOR_REF(BgL_bucketz00_2092,BgL_kz00_2104); } } } } } } } } } } 
return 
PROCEDURE_ENTRY(BgL_method2730z00_2080)(BgL_method2730z00_2080, 
(obj_t)(BgL_arg3562z00_2076), BgL_rz00_1374, BEOA);} } } } 
}



/* get-fail2780 */
obj_t BGl_getzd2fail2780zd2zzsaw_proceduresz00(obj_t BgL_envz00_2282, obj_t BgL_ez00_2283, obj_t BgL_rz00_2284)
{ AN_OBJECT;
{ /* ./SawMill/procedures.scm 164 */
{ 
BgL_failz00_bglt BgL_ez00_1361;obj_t BgL_rz00_1362;
BgL_ez00_1361 = 
(BgL_failz00_bglt)(BgL_ez00_2283); 
BgL_rz00_1362 = BgL_rz00_2284; 
{ /* ./SawMill/procedures.scm 166 */
BgL_nodez00_bglt BgL_arg3541z00_1366;obj_t BgL_arg3542z00_1367;
BgL_arg3541z00_1366 = 
(((BgL_failz00_bglt)CREF(BgL_ez00_1361))->BgL_procz00); 
{ /* ./SawMill/procedures.scm 166 */
BgL_nodez00_bglt BgL_arg3546z00_1368;obj_t BgL_arg3547z00_1369;
BgL_arg3546z00_1368 = 
(((BgL_failz00_bglt)CREF(BgL_ez00_1361))->BgL_msgz00); 
{ /* ./SawMill/procedures.scm 166 */
BgL_nodez00_bglt BgL_arg3552z00_1370;
BgL_arg3552z00_1370 = 
(((BgL_failz00_bglt)CREF(BgL_ez00_1361))->BgL_objz00); 
{ /* ./SawMill/procedures.scm 166 */
obj_t BgL_method2730z00_1996;
{ /* ./SawMill/procedures.scm 166 */
BgL_objectz00_bglt BgL_objz00_1997;
BgL_objz00_1997 = 
(BgL_objectz00_bglt)(BgL_arg3552z00_1370); 
{ /* ./SawMill/procedures.scm 166 */
long BgL_objzd2classzd2numz00_1998;
BgL_objzd2classzd2numz00_1998 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1997); 
{ /* ./SawMill/procedures.scm 166 */
obj_t BgL_arg2017z00_1999;
{ /* ./SawMill/procedures.scm 166 */
int BgL_auxz00_2610;
BgL_auxz00_2610 = 
(int)(((long)1)); 
BgL_arg2017z00_1999 = 
PROCEDURE_REF(BGl_getzd2envzd2zzsaw_proceduresz00, BgL_auxz00_2610); } 
{ /* ./SawMill/procedures.scm 166 */
int BgL_offsetz00_2002;
BgL_offsetz00_2002 = 
(int)(BgL_objzd2classzd2numz00_1998); 
{ /* ./SawMill/procedures.scm 166 */
long BgL_offsetz00_2003;
{ /* ./SawMill/procedures.scm 166 */
long BgL_auxz00_2614;
BgL_auxz00_2614 = 
(long)(BgL_offsetz00_2002); 
BgL_offsetz00_2003 = 
(BgL_auxz00_2614-OBJECT_TYPE); } 
{ /* ./SawMill/procedures.scm 166 */
long BgL_modz00_2004;
{ /* ./SawMill/procedures.scm 166 */
int BgL_arg2028z00_2005;
BgL_arg2028z00_2005 = 
(int)(((long)8)); 
{ /* ./SawMill/procedures.scm 166 */
long BgL_n2z00_2013;
BgL_n2z00_2013 = 
(long)(BgL_arg2028z00_2005); 
BgL_modz00_2004 = 
(BgL_offsetz00_2003/BgL_n2z00_2013); } } 
{ /* ./SawMill/procedures.scm 166 */
long BgL_restz00_2006;
{ /* ./SawMill/procedures.scm 166 */
int BgL_arg2024z00_2007;
BgL_arg2024z00_2007 = 
(int)(((long)8)); 
{ /* ./SawMill/procedures.scm 166 */
long BgL_n2z00_2016;
BgL_n2z00_2016 = 
(long)(BgL_arg2024z00_2007); 
BgL_restz00_2006 = 
(BgL_offsetz00_2003%BgL_n2z00_2016); } } 
{ /* ./SawMill/procedures.scm 166 */

{ /* ./SawMill/procedures.scm 166 */
obj_t BgL_bucketz00_2008;
{ /* ./SawMill/procedures.scm 166 */
int BgL_kz00_2018;
BgL_kz00_2018 = 
(int)(BgL_modz00_2004); 
BgL_bucketz00_2008 = 
VECTOR_REF(BgL_arg2017z00_1999,BgL_kz00_2018); } 
{ /* ./SawMill/procedures.scm 166 */
int BgL_kz00_2020;
BgL_kz00_2020 = 
(int)(BgL_restz00_2006); 
BgL_method2730z00_1996 = 
VECTOR_REF(BgL_bucketz00_2008,BgL_kz00_2020); } } } } } } } } } } 
BgL_arg3547z00_1369 = 
PROCEDURE_ENTRY(BgL_method2730z00_1996)(BgL_method2730z00_1996, 
(obj_t)(BgL_arg3552z00_1370), BgL_rz00_1362, BEOA); } } 
{ /* ./SawMill/procedures.scm 166 */
obj_t BgL_method2730z00_2023;
{ /* ./SawMill/procedures.scm 166 */
BgL_objectz00_bglt BgL_objz00_2024;
BgL_objz00_2024 = 
(BgL_objectz00_bglt)(BgL_arg3546z00_1368); 
{ /* ./SawMill/procedures.scm 166 */
long BgL_objzd2classzd2numz00_2025;
BgL_objzd2classzd2numz00_2025 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2024); 
{ /* ./SawMill/procedures.scm 166 */
obj_t BgL_arg2017z00_2026;
{ /* ./SawMill/procedures.scm 166 */
int BgL_auxz00_2632;
BgL_auxz00_2632 = 
(int)(((long)1)); 
BgL_arg2017z00_2026 = 
PROCEDURE_REF(BGl_getzd2envzd2zzsaw_proceduresz00, BgL_auxz00_2632); } 
{ /* ./SawMill/procedures.scm 166 */
int BgL_offsetz00_2029;
BgL_offsetz00_2029 = 
(int)(BgL_objzd2classzd2numz00_2025); 
{ /* ./SawMill/procedures.scm 166 */
long BgL_offsetz00_2030;
{ /* ./SawMill/procedures.scm 166 */
long BgL_auxz00_2636;
BgL_auxz00_2636 = 
(long)(BgL_offsetz00_2029); 
BgL_offsetz00_2030 = 
(BgL_auxz00_2636-OBJECT_TYPE); } 
{ /* ./SawMill/procedures.scm 166 */
long BgL_modz00_2031;
{ /* ./SawMill/procedures.scm 166 */
int BgL_arg2028z00_2032;
BgL_arg2028z00_2032 = 
(int)(((long)8)); 
{ /* ./SawMill/procedures.scm 166 */
long BgL_n2z00_2040;
BgL_n2z00_2040 = 
(long)(BgL_arg2028z00_2032); 
BgL_modz00_2031 = 
(BgL_offsetz00_2030/BgL_n2z00_2040); } } 
{ /* ./SawMill/procedures.scm 166 */
long BgL_restz00_2033;
{ /* ./SawMill/procedures.scm 166 */
int BgL_arg2024z00_2034;
BgL_arg2024z00_2034 = 
(int)(((long)8)); 
{ /* ./SawMill/procedures.scm 166 */
long BgL_n2z00_2043;
BgL_n2z00_2043 = 
(long)(BgL_arg2024z00_2034); 
BgL_restz00_2033 = 
(BgL_offsetz00_2030%BgL_n2z00_2043); } } 
{ /* ./SawMill/procedures.scm 166 */

{ /* ./SawMill/procedures.scm 166 */
obj_t BgL_bucketz00_2035;
{ /* ./SawMill/procedures.scm 166 */
int BgL_kz00_2045;
BgL_kz00_2045 = 
(int)(BgL_modz00_2031); 
BgL_bucketz00_2035 = 
VECTOR_REF(BgL_arg2017z00_2026,BgL_kz00_2045); } 
{ /* ./SawMill/procedures.scm 166 */
int BgL_kz00_2047;
BgL_kz00_2047 = 
(int)(BgL_restz00_2033); 
BgL_method2730z00_2023 = 
VECTOR_REF(BgL_bucketz00_2035,BgL_kz00_2047); } } } } } } } } } } 
BgL_arg3542z00_1367 = 
PROCEDURE_ENTRY(BgL_method2730z00_2023)(BgL_method2730z00_2023, 
(obj_t)(BgL_arg3546z00_1368), BgL_arg3547z00_1369, BEOA); } } 
{ /* ./SawMill/procedures.scm 166 */
obj_t BgL_method2730z00_2050;
{ /* ./SawMill/procedures.scm 166 */
BgL_objectz00_bglt BgL_objz00_2051;
BgL_objz00_2051 = 
(BgL_objectz00_bglt)(BgL_arg3541z00_1366); 
{ /* ./SawMill/procedures.scm 166 */
long BgL_objzd2classzd2numz00_2052;
BgL_objzd2classzd2numz00_2052 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2051); 
{ /* ./SawMill/procedures.scm 166 */
obj_t BgL_arg2017z00_2053;
{ /* ./SawMill/procedures.scm 166 */
int BgL_auxz00_2654;
BgL_auxz00_2654 = 
(int)(((long)1)); 
BgL_arg2017z00_2053 = 
PROCEDURE_REF(BGl_getzd2envzd2zzsaw_proceduresz00, BgL_auxz00_2654); } 
{ /* ./SawMill/procedures.scm 166 */
int BgL_offsetz00_2056;
BgL_offsetz00_2056 = 
(int)(BgL_objzd2classzd2numz00_2052); 
{ /* ./SawMill/procedures.scm 166 */
long BgL_offsetz00_2057;
{ /* ./SawMill/procedures.scm 166 */
long BgL_auxz00_2658;
BgL_auxz00_2658 = 
(long)(BgL_offsetz00_2056); 
BgL_offsetz00_2057 = 
(BgL_auxz00_2658-OBJECT_TYPE); } 
{ /* ./SawMill/procedures.scm 166 */
long BgL_modz00_2058;
{ /* ./SawMill/procedures.scm 166 */
int BgL_arg2028z00_2059;
BgL_arg2028z00_2059 = 
(int)(((long)8)); 
{ /* ./SawMill/procedures.scm 166 */
long BgL_n2z00_2067;
BgL_n2z00_2067 = 
(long)(BgL_arg2028z00_2059); 
BgL_modz00_2058 = 
(BgL_offsetz00_2057/BgL_n2z00_2067); } } 
{ /* ./SawMill/procedures.scm 166 */
long BgL_restz00_2060;
{ /* ./SawMill/procedures.scm 166 */
int BgL_arg2024z00_2061;
BgL_arg2024z00_2061 = 
(int)(((long)8)); 
{ /* ./SawMill/procedures.scm 166 */
long BgL_n2z00_2070;
BgL_n2z00_2070 = 
(long)(BgL_arg2024z00_2061); 
BgL_restz00_2060 = 
(BgL_offsetz00_2057%BgL_n2z00_2070); } } 
{ /* ./SawMill/procedures.scm 166 */

{ /* ./SawMill/procedures.scm 166 */
obj_t BgL_bucketz00_2062;
{ /* ./SawMill/procedures.scm 166 */
int BgL_kz00_2072;
BgL_kz00_2072 = 
(int)(BgL_modz00_2058); 
BgL_bucketz00_2062 = 
VECTOR_REF(BgL_arg2017z00_2053,BgL_kz00_2072); } 
{ /* ./SawMill/procedures.scm 166 */
int BgL_kz00_2074;
BgL_kz00_2074 = 
(int)(BgL_restz00_2060); 
BgL_method2730z00_2050 = 
VECTOR_REF(BgL_bucketz00_2062,BgL_kz00_2074); } } } } } } } } } } 
return 
PROCEDURE_ENTRY(BgL_method2730z00_2050)(BgL_method2730z00_2050, 
(obj_t)(BgL_arg3541z00_1366), BgL_arg3542z00_1367, BEOA);} } } } 
}



/* get-jump-ex-it2778 */
obj_t BGl_getzd2jumpzd2exzd2it2778zd2zzsaw_proceduresz00(obj_t BgL_envz00_2285, obj_t BgL_ez00_2286, obj_t BgL_rz00_2287)
{ AN_OBJECT;
{ /* ./SawMill/procedures.scm 159 */
{ 
BgL_jumpzd2exzd2itz00_bglt BgL_ez00_1351;obj_t BgL_rz00_1352;
BgL_ez00_1351 = 
(BgL_jumpzd2exzd2itz00_bglt)(BgL_ez00_2286); 
BgL_rz00_1352 = BgL_rz00_2287; 
{ /* ./SawMill/procedures.scm 160 */
BgL_nodez00_bglt BgL_arg3524z00_1932;obj_t BgL_arg3525z00_1933;
BgL_arg3524z00_1932 = 
(((BgL_jumpzd2exzd2itz00_bglt)CREF(BgL_ez00_1351))->BgL_exitz00); 
{ /* ./SawMill/procedures.scm 160 */
BgL_nodez00_bglt BgL_arg3529z00_1934;
BgL_arg3529z00_1934 = 
(((BgL_jumpzd2exzd2itz00_bglt)CREF(BgL_ez00_1351))->BgL_valuez00); 
{ /* ./SawMill/procedures.scm 160 */
obj_t BgL_method2730z00_1939;
{ /* ./SawMill/procedures.scm 160 */
BgL_objectz00_bglt BgL_objz00_1940;
BgL_objz00_1940 = 
(BgL_objectz00_bglt)(BgL_arg3529z00_1934); 
{ /* ./SawMill/procedures.scm 160 */
long BgL_objzd2classzd2numz00_1941;
BgL_objzd2classzd2numz00_1941 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1940); 
{ /* ./SawMill/procedures.scm 160 */
obj_t BgL_arg2017z00_1942;
{ /* ./SawMill/procedures.scm 160 */
int BgL_auxz00_2679;
BgL_auxz00_2679 = 
(int)(((long)1)); 
BgL_arg2017z00_1942 = 
PROCEDURE_REF(BGl_getzd2envzd2zzsaw_proceduresz00, BgL_auxz00_2679); } 
{ /* ./SawMill/procedures.scm 160 */
int BgL_offsetz00_1945;
BgL_offsetz00_1945 = 
(int)(BgL_objzd2classzd2numz00_1941); 
{ /* ./SawMill/procedures.scm 160 */
long BgL_offsetz00_1946;
{ /* ./SawMill/procedures.scm 160 */
long BgL_auxz00_2683;
BgL_auxz00_2683 = 
(long)(BgL_offsetz00_1945); 
BgL_offsetz00_1946 = 
(BgL_auxz00_2683-OBJECT_TYPE); } 
{ /* ./SawMill/procedures.scm 160 */
long BgL_modz00_1947;
{ /* ./SawMill/procedures.scm 160 */
int BgL_arg2028z00_1948;
BgL_arg2028z00_1948 = 
(int)(((long)8)); 
{ /* ./SawMill/procedures.scm 160 */
long BgL_n2z00_1956;
BgL_n2z00_1956 = 
(long)(BgL_arg2028z00_1948); 
BgL_modz00_1947 = 
(BgL_offsetz00_1946/BgL_n2z00_1956); } } 
{ /* ./SawMill/procedures.scm 160 */
long BgL_restz00_1949;
{ /* ./SawMill/procedures.scm 160 */
int BgL_arg2024z00_1950;
BgL_arg2024z00_1950 = 
(int)(((long)8)); 
{ /* ./SawMill/procedures.scm 160 */
long BgL_n2z00_1959;
BgL_n2z00_1959 = 
(long)(BgL_arg2024z00_1950); 
BgL_restz00_1949 = 
(BgL_offsetz00_1946%BgL_n2z00_1959); } } 
{ /* ./SawMill/procedures.scm 160 */

{ /* ./SawMill/procedures.scm 160 */
obj_t BgL_bucketz00_1951;
{ /* ./SawMill/procedures.scm 160 */
int BgL_kz00_1961;
BgL_kz00_1961 = 
(int)(BgL_modz00_1947); 
BgL_bucketz00_1951 = 
VECTOR_REF(BgL_arg2017z00_1942,BgL_kz00_1961); } 
{ /* ./SawMill/procedures.scm 160 */
int BgL_kz00_1963;
BgL_kz00_1963 = 
(int)(BgL_restz00_1949); 
BgL_method2730z00_1939 = 
VECTOR_REF(BgL_bucketz00_1951,BgL_kz00_1963); } } } } } } } } } } 
BgL_arg3525z00_1933 = 
PROCEDURE_ENTRY(BgL_method2730z00_1939)(BgL_method2730z00_1939, 
(obj_t)(BgL_arg3529z00_1934), BgL_rz00_1352, BEOA); } } 
{ /* ./SawMill/procedures.scm 160 */
obj_t BgL_method2730z00_1966;
{ /* ./SawMill/procedures.scm 160 */
BgL_objectz00_bglt BgL_objz00_1967;
BgL_objz00_1967 = 
(BgL_objectz00_bglt)(BgL_arg3524z00_1932); 
{ /* ./SawMill/procedures.scm 160 */
long BgL_objzd2classzd2numz00_1968;
BgL_objzd2classzd2numz00_1968 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1967); 
{ /* ./SawMill/procedures.scm 160 */
obj_t BgL_arg2017z00_1969;
{ /* ./SawMill/procedures.scm 160 */
int BgL_auxz00_2701;
BgL_auxz00_2701 = 
(int)(((long)1)); 
BgL_arg2017z00_1969 = 
PROCEDURE_REF(BGl_getzd2envzd2zzsaw_proceduresz00, BgL_auxz00_2701); } 
{ /* ./SawMill/procedures.scm 160 */
int BgL_offsetz00_1972;
BgL_offsetz00_1972 = 
(int)(BgL_objzd2classzd2numz00_1968); 
{ /* ./SawMill/procedures.scm 160 */
long BgL_offsetz00_1973;
{ /* ./SawMill/procedures.scm 160 */
long BgL_auxz00_2705;
BgL_auxz00_2705 = 
(long)(BgL_offsetz00_1972); 
BgL_offsetz00_1973 = 
(BgL_auxz00_2705-OBJECT_TYPE); } 
{ /* ./SawMill/procedures.scm 160 */
long BgL_modz00_1974;
{ /* ./SawMill/procedures.scm 160 */
int BgL_arg2028z00_1975;
BgL_arg2028z00_1975 = 
(int)(((long)8)); 
{ /* ./SawMill/procedures.scm 160 */
long BgL_n2z00_1983;
BgL_n2z00_1983 = 
(long)(BgL_arg2028z00_1975); 
BgL_modz00_1974 = 
(BgL_offsetz00_1973/BgL_n2z00_1983); } } 
{ /* ./SawMill/procedures.scm 160 */
long BgL_restz00_1976;
{ /* ./SawMill/procedures.scm 160 */
int BgL_arg2024z00_1977;
BgL_arg2024z00_1977 = 
(int)(((long)8)); 
{ /* ./SawMill/procedures.scm 160 */
long BgL_n2z00_1986;
BgL_n2z00_1986 = 
(long)(BgL_arg2024z00_1977); 
BgL_restz00_1976 = 
(BgL_offsetz00_1973%BgL_n2z00_1986); } } 
{ /* ./SawMill/procedures.scm 160 */

{ /* ./SawMill/procedures.scm 160 */
obj_t BgL_bucketz00_1978;
{ /* ./SawMill/procedures.scm 160 */
int BgL_kz00_1988;
BgL_kz00_1988 = 
(int)(BgL_modz00_1974); 
BgL_bucketz00_1978 = 
VECTOR_REF(BgL_arg2017z00_1969,BgL_kz00_1988); } 
{ /* ./SawMill/procedures.scm 160 */
int BgL_kz00_1990;
BgL_kz00_1990 = 
(int)(BgL_restz00_1976); 
BgL_method2730z00_1966 = 
VECTOR_REF(BgL_bucketz00_1978,BgL_kz00_1990); } } } } } } } } } } 
return 
PROCEDURE_ENTRY(BgL_method2730z00_1966)(BgL_method2730z00_1966, 
(obj_t)(BgL_arg3524z00_1932), BgL_arg3525z00_1933, BEOA);} } } } 
}



/* get-set-ex-it2776 */
obj_t BGl_getzd2setzd2exzd2it2776zd2zzsaw_proceduresz00(obj_t BgL_envz00_2288, obj_t BgL_ez00_2289, obj_t BgL_rz00_2290)
{ AN_OBJECT;
{ /* ./SawMill/procedures.scm 154 */
{ 
BgL_setzd2exzd2itz00_bglt BgL_ez00_1341;obj_t BgL_rz00_1342;
BgL_ez00_1341 = 
(BgL_setzd2exzd2itz00_bglt)(BgL_ez00_2289); 
BgL_rz00_1342 = BgL_rz00_2290; 
{ /* ./SawMill/procedures.scm 155 */
BgL_varz00_bglt BgL_arg3509z00_1872;obj_t BgL_arg3510z00_1873;
BgL_arg3509z00_1872 = 
(((BgL_setzd2exzd2itz00_bglt)CREF(BgL_ez00_1341))->BgL_varz00); 
{ /* ./SawMill/procedures.scm 155 */
BgL_nodez00_bglt BgL_arg3514z00_1874;
BgL_arg3514z00_1874 = 
(((BgL_setzd2exzd2itz00_bglt)CREF(BgL_ez00_1341))->BgL_bodyz00); 
{ /* ./SawMill/procedures.scm 155 */
obj_t BgL_method2730z00_1879;
{ /* ./SawMill/procedures.scm 155 */
BgL_objectz00_bglt BgL_objz00_1880;
BgL_objz00_1880 = 
(BgL_objectz00_bglt)(BgL_arg3514z00_1874); 
{ /* ./SawMill/procedures.scm 155 */
long BgL_objzd2classzd2numz00_1881;
BgL_objzd2classzd2numz00_1881 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1880); 
{ /* ./SawMill/procedures.scm 155 */
obj_t BgL_arg2017z00_1882;
{ /* ./SawMill/procedures.scm 155 */
int BgL_auxz00_2726;
BgL_auxz00_2726 = 
(int)(((long)1)); 
BgL_arg2017z00_1882 = 
PROCEDURE_REF(BGl_getzd2envzd2zzsaw_proceduresz00, BgL_auxz00_2726); } 
{ /* ./SawMill/procedures.scm 155 */
int BgL_offsetz00_1885;
BgL_offsetz00_1885 = 
(int)(BgL_objzd2classzd2numz00_1881); 
{ /* ./SawMill/procedures.scm 155 */
long BgL_offsetz00_1886;
{ /* ./SawMill/procedures.scm 155 */
long BgL_auxz00_2730;
BgL_auxz00_2730 = 
(long)(BgL_offsetz00_1885); 
BgL_offsetz00_1886 = 
(BgL_auxz00_2730-OBJECT_TYPE); } 
{ /* ./SawMill/procedures.scm 155 */
long BgL_modz00_1887;
{ /* ./SawMill/procedures.scm 155 */
int BgL_arg2028z00_1888;
BgL_arg2028z00_1888 = 
(int)(((long)8)); 
{ /* ./SawMill/procedures.scm 155 */
long BgL_n2z00_1896;
BgL_n2z00_1896 = 
(long)(BgL_arg2028z00_1888); 
BgL_modz00_1887 = 
(BgL_offsetz00_1886/BgL_n2z00_1896); } } 
{ /* ./SawMill/procedures.scm 155 */
long BgL_restz00_1889;
{ /* ./SawMill/procedures.scm 155 */
int BgL_arg2024z00_1890;
BgL_arg2024z00_1890 = 
(int)(((long)8)); 
{ /* ./SawMill/procedures.scm 155 */
long BgL_n2z00_1899;
BgL_n2z00_1899 = 
(long)(BgL_arg2024z00_1890); 
BgL_restz00_1889 = 
(BgL_offsetz00_1886%BgL_n2z00_1899); } } 
{ /* ./SawMill/procedures.scm 155 */

{ /* ./SawMill/procedures.scm 155 */
obj_t BgL_bucketz00_1891;
{ /* ./SawMill/procedures.scm 155 */
int BgL_kz00_1901;
BgL_kz00_1901 = 
(int)(BgL_modz00_1887); 
BgL_bucketz00_1891 = 
VECTOR_REF(BgL_arg2017z00_1882,BgL_kz00_1901); } 
{ /* ./SawMill/procedures.scm 155 */
int BgL_kz00_1903;
BgL_kz00_1903 = 
(int)(BgL_restz00_1889); 
BgL_method2730z00_1879 = 
VECTOR_REF(BgL_bucketz00_1891,BgL_kz00_1903); } } } } } } } } } } 
BgL_arg3510z00_1873 = 
PROCEDURE_ENTRY(BgL_method2730z00_1879)(BgL_method2730z00_1879, 
(obj_t)(BgL_arg3514z00_1874), BgL_rz00_1342, BEOA); } } 
{ /* ./SawMill/procedures.scm 155 */
BgL_nodez00_bglt BgL_ez00_1904;
BgL_ez00_1904 = 
(BgL_nodez00_bglt)(BgL_arg3509z00_1872); 
{ /* ./SawMill/procedures.scm 155 */
obj_t BgL_method2730z00_1906;
{ /* ./SawMill/procedures.scm 155 */
BgL_objectz00_bglt BgL_objz00_1907;
BgL_objz00_1907 = 
(BgL_objectz00_bglt)(BgL_ez00_1904); 
{ /* ./SawMill/procedures.scm 155 */
long BgL_objzd2classzd2numz00_1908;
BgL_objzd2classzd2numz00_1908 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1907); 
{ /* ./SawMill/procedures.scm 155 */
obj_t BgL_arg2017z00_1909;
{ /* ./SawMill/procedures.scm 155 */
int BgL_auxz00_2749;
BgL_auxz00_2749 = 
(int)(((long)1)); 
BgL_arg2017z00_1909 = 
PROCEDURE_REF(BGl_getzd2envzd2zzsaw_proceduresz00, BgL_auxz00_2749); } 
{ /* ./SawMill/procedures.scm 155 */
int BgL_offsetz00_1912;
BgL_offsetz00_1912 = 
(int)(BgL_objzd2classzd2numz00_1908); 
{ /* ./SawMill/procedures.scm 155 */
long BgL_offsetz00_1913;
{ /* ./SawMill/procedures.scm 155 */
long BgL_auxz00_2753;
BgL_auxz00_2753 = 
(long)(BgL_offsetz00_1912); 
BgL_offsetz00_1913 = 
(BgL_auxz00_2753-OBJECT_TYPE); } 
{ /* ./SawMill/procedures.scm 155 */
long BgL_modz00_1914;
{ /* ./SawMill/procedures.scm 155 */
int BgL_arg2028z00_1915;
BgL_arg2028z00_1915 = 
(int)(((long)8)); 
{ /* ./SawMill/procedures.scm 155 */
long BgL_n2z00_1923;
BgL_n2z00_1923 = 
(long)(BgL_arg2028z00_1915); 
BgL_modz00_1914 = 
(BgL_offsetz00_1913/BgL_n2z00_1923); } } 
{ /* ./SawMill/procedures.scm 155 */
long BgL_restz00_1916;
{ /* ./SawMill/procedures.scm 155 */
int BgL_arg2024z00_1917;
BgL_arg2024z00_1917 = 
(int)(((long)8)); 
{ /* ./SawMill/procedures.scm 155 */
long BgL_n2z00_1926;
BgL_n2z00_1926 = 
(long)(BgL_arg2024z00_1917); 
BgL_restz00_1916 = 
(BgL_offsetz00_1913%BgL_n2z00_1926); } } 
{ /* ./SawMill/procedures.scm 155 */

{ /* ./SawMill/procedures.scm 155 */
obj_t BgL_bucketz00_1918;
{ /* ./SawMill/procedures.scm 155 */
int BgL_kz00_1928;
BgL_kz00_1928 = 
(int)(BgL_modz00_1914); 
BgL_bucketz00_1918 = 
VECTOR_REF(BgL_arg2017z00_1909,BgL_kz00_1928); } 
{ /* ./SawMill/procedures.scm 155 */
int BgL_kz00_1930;
BgL_kz00_1930 = 
(int)(BgL_restz00_1916); 
BgL_method2730z00_1906 = 
VECTOR_REF(BgL_bucketz00_1918,BgL_kz00_1930); } } } } } } } } } } 
return 
PROCEDURE_ENTRY(BgL_method2730z00_1906)(BgL_method2730z00_1906, 
(obj_t)(BgL_ez00_1904), BgL_arg3510z00_1873, BEOA);} } } } } 
}



/* get-cast2774 */
obj_t BGl_getzd2cast2774zd2zzsaw_proceduresz00(obj_t BgL_envz00_2291, obj_t BgL_ez00_2292, obj_t BgL_rz00_2293)
{ AN_OBJECT;
{ /* ./SawMill/procedures.scm 149 */
{ 
BgL_castz00_bglt BgL_ez00_1333;obj_t BgL_rz00_1334;
BgL_ez00_1333 = 
(BgL_castz00_bglt)(BgL_ez00_2292); 
BgL_rz00_1334 = BgL_rz00_2293; 
{ /* ./SawMill/procedures.scm 150 */
BgL_nodez00_bglt BgL_arg3499z00_1842;
BgL_arg3499z00_1842 = 
(((BgL_castz00_bglt)CREF(BgL_ez00_1333))->BgL_argz00); 
{ /* ./SawMill/procedures.scm 150 */
obj_t BgL_method2730z00_1846;
{ /* ./SawMill/procedures.scm 150 */
BgL_objectz00_bglt BgL_objz00_1847;
BgL_objz00_1847 = 
(BgL_objectz00_bglt)(BgL_arg3499z00_1842); 
{ /* ./SawMill/procedures.scm 150 */
long BgL_objzd2classzd2numz00_1848;
BgL_objzd2classzd2numz00_1848 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1847); 
{ /* ./SawMill/procedures.scm 150 */
obj_t BgL_arg2017z00_1849;
{ /* ./SawMill/procedures.scm 150 */
int BgL_auxz00_2773;
BgL_auxz00_2773 = 
(int)(((long)1)); 
BgL_arg2017z00_1849 = 
PROCEDURE_REF(BGl_getzd2envzd2zzsaw_proceduresz00, BgL_auxz00_2773); } 
{ /* ./SawMill/procedures.scm 150 */
int BgL_offsetz00_1852;
BgL_offsetz00_1852 = 
(int)(BgL_objzd2classzd2numz00_1848); 
{ /* ./SawMill/procedures.scm 150 */
long BgL_offsetz00_1853;
{ /* ./SawMill/procedures.scm 150 */
long BgL_auxz00_2777;
BgL_auxz00_2777 = 
(long)(BgL_offsetz00_1852); 
BgL_offsetz00_1853 = 
(BgL_auxz00_2777-OBJECT_TYPE); } 
{ /* ./SawMill/procedures.scm 150 */
long BgL_modz00_1854;
{ /* ./SawMill/procedures.scm 150 */
int BgL_arg2028z00_1855;
BgL_arg2028z00_1855 = 
(int)(((long)8)); 
{ /* ./SawMill/procedures.scm 150 */
long BgL_n2z00_1863;
BgL_n2z00_1863 = 
(long)(BgL_arg2028z00_1855); 
BgL_modz00_1854 = 
(BgL_offsetz00_1853/BgL_n2z00_1863); } } 
{ /* ./SawMill/procedures.scm 150 */
long BgL_restz00_1856;
{ /* ./SawMill/procedures.scm 150 */
int BgL_arg2024z00_1857;
BgL_arg2024z00_1857 = 
(int)(((long)8)); 
{ /* ./SawMill/procedures.scm 150 */
long BgL_n2z00_1866;
BgL_n2z00_1866 = 
(long)(BgL_arg2024z00_1857); 
BgL_restz00_1856 = 
(BgL_offsetz00_1853%BgL_n2z00_1866); } } 
{ /* ./SawMill/procedures.scm 150 */

{ /* ./SawMill/procedures.scm 150 */
obj_t BgL_bucketz00_1858;
{ /* ./SawMill/procedures.scm 150 */
int BgL_kz00_1868;
BgL_kz00_1868 = 
(int)(BgL_modz00_1854); 
BgL_bucketz00_1858 = 
VECTOR_REF(BgL_arg2017z00_1849,BgL_kz00_1868); } 
{ /* ./SawMill/procedures.scm 150 */
int BgL_kz00_1870;
BgL_kz00_1870 = 
(int)(BgL_restz00_1856); 
BgL_method2730z00_1846 = 
VECTOR_REF(BgL_bucketz00_1858,BgL_kz00_1870); } } } } } } } } } } 
return 
PROCEDURE_ENTRY(BgL_method2730z00_1846)(BgL_method2730z00_1846, 
(obj_t)(BgL_arg3499z00_1842), BgL_rz00_1334, BEOA);} } } } 
}



/* get-isa2772 */
obj_t BGl_getzd2isa2772zd2zzsaw_proceduresz00(obj_t BgL_envz00_2294, obj_t BgL_ez00_2295, obj_t BgL_rz00_2296)
{ AN_OBJECT;
{ /* ./SawMill/procedures.scm 144 */
{ 
BgL_isaz00_bglt BgL_ez00_1325;obj_t BgL_rz00_1326;
BgL_ez00_1325 = 
(BgL_isaz00_bglt)(BgL_ez00_2295); 
BgL_rz00_1326 = BgL_rz00_2296; 
{ /* ./SawMill/procedures.scm 145 */
obj_t BgL_arg3489z00_1839;
{ /* ./SawMill/procedures.scm 145 */
BgL_externz00_bglt BgL_obj1817z00_1840;
BgL_obj1817z00_1840 = 
(BgL_externz00_bglt)(BgL_ez00_1325); 
BgL_arg3489z00_1839 = 
(((BgL_externz00_bglt)CREF(BgL_obj1817z00_1840))->BgL_exprza2za2); } 
return 
BGl_getza2za2zzsaw_proceduresz00(BgL_arg3489z00_1839, BgL_rz00_1326);} } } 
}



/* get-vlength2770 */
obj_t BGl_getzd2vlength2770zd2zzsaw_proceduresz00(obj_t BgL_envz00_2297, obj_t BgL_ez00_2298, obj_t BgL_rz00_2299)
{ AN_OBJECT;
{ /* ./SawMill/procedures.scm 139 */
{ 
BgL_vlengthz00_bglt BgL_ez00_1317;obj_t BgL_rz00_1318;
BgL_ez00_1317 = 
(BgL_vlengthz00_bglt)(BgL_ez00_2298); 
BgL_rz00_1318 = BgL_rz00_2299; 
{ /* ./SawMill/procedures.scm 140 */
obj_t BgL_arg3479z00_1836;
{ /* ./SawMill/procedures.scm 140 */
BgL_externz00_bglt BgL_obj1817z00_1837;
BgL_obj1817z00_1837 = 
(BgL_externz00_bglt)(BgL_ez00_1317); 
BgL_arg3479z00_1836 = 
(((BgL_externz00_bglt)CREF(BgL_obj1817z00_1837))->BgL_exprza2za2); } 
return 
BGl_getza2za2zzsaw_proceduresz00(BgL_arg3479z00_1836, BgL_rz00_1318);} } } 
}



/* get-vset!2768 */
obj_t BGl_getzd2vsetz122768zc0zzsaw_proceduresz00(obj_t BgL_envz00_2300, obj_t BgL_ez00_2301, obj_t BgL_rz00_2302)
{ AN_OBJECT;
{ /* ./SawMill/procedures.scm 134 */
{ 
BgL_vsetz12z12_bglt BgL_ez00_1309;obj_t BgL_rz00_1310;
BgL_ez00_1309 = 
(BgL_vsetz12z12_bglt)(BgL_ez00_2301); 
BgL_rz00_1310 = BgL_rz00_2302; 
{ /* ./SawMill/procedures.scm 135 */
obj_t BgL_arg3469z00_1833;
{ /* ./SawMill/procedures.scm 135 */
BgL_externz00_bglt BgL_obj1817z00_1834;
BgL_obj1817z00_1834 = 
(BgL_externz00_bglt)(BgL_ez00_1309); 
BgL_arg3469z00_1833 = 
(((BgL_externz00_bglt)CREF(BgL_obj1817z00_1834))->BgL_exprza2za2); } 
return 
BGl_getza2za2zzsaw_proceduresz00(BgL_arg3469z00_1833, BgL_rz00_1310);} } } 
}



/* get-vref2766 */
obj_t BGl_getzd2vref2766zd2zzsaw_proceduresz00(obj_t BgL_envz00_2303, obj_t BgL_ez00_2304, obj_t BgL_rz00_2305)
{ AN_OBJECT;
{ /* ./SawMill/procedures.scm 129 */
{ 
BgL_vrefz00_bglt BgL_ez00_1301;obj_t BgL_rz00_1302;
BgL_ez00_1301 = 
(BgL_vrefz00_bglt)(BgL_ez00_2304); 
BgL_rz00_1302 = BgL_rz00_2305; 
{ /* ./SawMill/procedures.scm 130 */
obj_t BgL_arg3459z00_1830;
{ /* ./SawMill/procedures.scm 130 */
BgL_externz00_bglt BgL_obj1817z00_1831;
BgL_obj1817z00_1831 = 
(BgL_externz00_bglt)(BgL_ez00_1301); 
BgL_arg3459z00_1830 = 
(((BgL_externz00_bglt)CREF(BgL_obj1817z00_1831))->BgL_exprza2za2); } 
return 
BGl_getza2za2zzsaw_proceduresz00(BgL_arg3459z00_1830, BgL_rz00_1302);} } } 
}



/* get-valloc2764 */
obj_t BGl_getzd2valloc2764zd2zzsaw_proceduresz00(obj_t BgL_envz00_2306, obj_t BgL_ez00_2307, obj_t BgL_rz00_2308)
{ AN_OBJECT;
{ /* ./SawMill/procedures.scm 124 */
{ 
BgL_vallocz00_bglt BgL_ez00_1293;obj_t BgL_rz00_1294;
BgL_ez00_1293 = 
(BgL_vallocz00_bglt)(BgL_ez00_2307); 
BgL_rz00_1294 = BgL_rz00_2308; 
{ /* ./SawMill/procedures.scm 125 */
obj_t BgL_arg3449z00_1827;
{ /* ./SawMill/procedures.scm 125 */
BgL_externz00_bglt BgL_obj1817z00_1828;
BgL_obj1817z00_1828 = 
(BgL_externz00_bglt)(BgL_ez00_1293); 
BgL_arg3449z00_1827 = 
(((BgL_externz00_bglt)CREF(BgL_obj1817z00_1828))->BgL_exprza2za2); } 
return 
BGl_getza2za2zzsaw_proceduresz00(BgL_arg3449z00_1827, BgL_rz00_1294);} } } 
}



/* get-new2762 */
obj_t BGl_getzd2new2762zd2zzsaw_proceduresz00(obj_t BgL_envz00_2309, obj_t BgL_ez00_2310, obj_t BgL_rz00_2311)
{ AN_OBJECT;
{ /* ./SawMill/procedures.scm 120 */
return BgL_rz00_2311;} 
}



/* get-setfield2760 */
obj_t BGl_getzd2setfield2760zd2zzsaw_proceduresz00(obj_t BgL_envz00_2312, obj_t BgL_ez00_2313, obj_t BgL_rz00_2314)
{ AN_OBJECT;
{ /* ./SawMill/procedures.scm 115 */
{ 
BgL_setfieldz00_bglt BgL_ez00_1279;obj_t BgL_rz00_1280;
BgL_ez00_1279 = 
(BgL_setfieldz00_bglt)(BgL_ez00_2313); 
BgL_rz00_1280 = BgL_rz00_2314; 
{ /* ./SawMill/procedures.scm 116 */
obj_t BgL_arg3433z00_1824;
{ /* ./SawMill/procedures.scm 116 */
BgL_externz00_bglt BgL_obj1817z00_1825;
BgL_obj1817z00_1825 = 
(BgL_externz00_bglt)(BgL_ez00_1279); 
BgL_arg3433z00_1824 = 
(((BgL_externz00_bglt)CREF(BgL_obj1817z00_1825))->BgL_exprza2za2); } 
return 
BGl_getza2za2zzsaw_proceduresz00(BgL_arg3433z00_1824, BgL_rz00_1280);} } } 
}



/* get-getfield2758 */
obj_t BGl_getzd2getfield2758zd2zzsaw_proceduresz00(obj_t BgL_envz00_2315, obj_t BgL_ez00_2316, obj_t BgL_rz00_2317)
{ AN_OBJECT;
{ /* ./SawMill/procedures.scm 110 */
{ 
BgL_getfieldz00_bglt BgL_ez00_1271;obj_t BgL_rz00_1272;
BgL_ez00_1271 = 
(BgL_getfieldz00_bglt)(BgL_ez00_2316); 
BgL_rz00_1272 = BgL_rz00_2317; 
{ /* ./SawMill/procedures.scm 111 */
obj_t BgL_arg3423z00_1821;
{ /* ./SawMill/procedures.scm 111 */
BgL_externz00_bglt BgL_obj1817z00_1822;
BgL_obj1817z00_1822 = 
(BgL_externz00_bglt)(BgL_ez00_1271); 
BgL_arg3423z00_1821 = 
(((BgL_externz00_bglt)CREF(BgL_obj1817z00_1822))->BgL_exprza2za2); } 
return 
BGl_getza2za2zzsaw_proceduresz00(BgL_arg3423z00_1821, BgL_rz00_1272);} } } 
}



/* get-pragma2756 */
obj_t BGl_getzd2pragma2756zd2zzsaw_proceduresz00(obj_t BgL_envz00_2318, obj_t BgL_ez00_2319, obj_t BgL_rz00_2320)
{ AN_OBJECT;
{ /* ./SawMill/procedures.scm 105 */
{ 
BgL_pragmaz00_bglt BgL_ez00_1263;obj_t BgL_rz00_1264;
BgL_ez00_1263 = 
(BgL_pragmaz00_bglt)(BgL_ez00_2319); 
BgL_rz00_1264 = BgL_rz00_2320; 
{ /* ./SawMill/procedures.scm 106 */
obj_t BgL_arg3413z00_1818;
{ /* ./SawMill/procedures.scm 106 */
BgL_externz00_bglt BgL_obj1817z00_1819;
BgL_obj1817z00_1819 = 
(BgL_externz00_bglt)(BgL_ez00_1263); 
BgL_arg3413z00_1818 = 
(((BgL_externz00_bglt)CREF(BgL_obj1817z00_1819))->BgL_exprza2za2); } 
return 
BGl_getza2za2zzsaw_proceduresz00(BgL_arg3413z00_1818, BgL_rz00_1264);} } } 
}



/* get-funcall2754 */
obj_t BGl_getzd2funcall2754zd2zzsaw_proceduresz00(obj_t BgL_envz00_2321, obj_t BgL_ez00_2322, obj_t BgL_rz00_2323)
{ AN_OBJECT;
{ /* ./SawMill/procedures.scm 98 */
{ 
BgL_funcallz00_bglt BgL_ez00_1249;obj_t BgL_rz00_1250;
BgL_ez00_1249 = 
(BgL_funcallz00_bglt)(BgL_ez00_2322); 
BgL_rz00_1250 = BgL_rz00_2323; 
{ /* ./SawMill/procedures.scm 100 */
bool_t BgL_test3387z00_1254;
{ /* ./SawMill/procedures.scm 100 */
obj_t BgL_auxz00_2828;obj_t BgL_auxz00_2826;
BgL_auxz00_2828 = 
CNST_TABLE_REF(((long)0)); 
BgL_auxz00_2826 = 
(((BgL_funcallz00_bglt)CREF(BgL_ez00_1249))->BgL_strengthz00); 
BgL_test3387z00_1254 = 
(BgL_auxz00_2826==BgL_auxz00_2828); } 
if(BgL_test3387z00_1254)
{ /* ./SawMill/procedures.scm 101 */
obj_t BgL_arg3389z00_1255;
BgL_arg3389z00_1255 = 
(((BgL_funcallz00_bglt)CREF(BgL_ez00_1249))->BgL_argsz00); 
return 
BGl_getza2za2zzsaw_proceduresz00(BgL_arg3389z00_1255, BgL_rz00_1250);}  else 
{ /* ./SawMill/procedures.scm 102 */
BgL_nodez00_bglt BgL_arg3393z00_1256;obj_t BgL_arg3394z00_1257;
BgL_arg3393z00_1256 = 
(((BgL_funcallz00_bglt)CREF(BgL_ez00_1249))->BgL_funz00); 
{ /* ./SawMill/procedures.scm 102 */
obj_t BgL_arg3398z00_1258;
BgL_arg3398z00_1258 = 
(((BgL_funcallz00_bglt)CREF(BgL_ez00_1249))->BgL_argsz00); 
BgL_arg3394z00_1257 = 
BGl_getza2za2zzsaw_proceduresz00(BgL_arg3398z00_1258, BgL_rz00_1250); } 
{ /* ./SawMill/procedures.scm 102 */
obj_t BgL_method2730z00_1792;
{ /* ./SawMill/procedures.scm 102 */
BgL_objectz00_bglt BgL_objz00_1793;
BgL_objz00_1793 = 
(BgL_objectz00_bglt)(BgL_arg3393z00_1256); 
{ /* ./SawMill/procedures.scm 102 */
long BgL_objzd2classzd2numz00_1794;
BgL_objzd2classzd2numz00_1794 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1793); 
{ /* ./SawMill/procedures.scm 102 */
obj_t BgL_arg2017z00_1795;
{ /* ./SawMill/procedures.scm 102 */
int BgL_auxz00_2839;
BgL_auxz00_2839 = 
(int)(((long)1)); 
BgL_arg2017z00_1795 = 
PROCEDURE_REF(BGl_getzd2envzd2zzsaw_proceduresz00, BgL_auxz00_2839); } 
{ /* ./SawMill/procedures.scm 102 */
int BgL_offsetz00_1798;
BgL_offsetz00_1798 = 
(int)(BgL_objzd2classzd2numz00_1794); 
{ /* ./SawMill/procedures.scm 102 */
long BgL_offsetz00_1799;
{ /* ./SawMill/procedures.scm 102 */
long BgL_auxz00_2843;
BgL_auxz00_2843 = 
(long)(BgL_offsetz00_1798); 
BgL_offsetz00_1799 = 
(BgL_auxz00_2843-OBJECT_TYPE); } 
{ /* ./SawMill/procedures.scm 102 */
long BgL_modz00_1800;
{ /* ./SawMill/procedures.scm 102 */
int BgL_arg2028z00_1801;
BgL_arg2028z00_1801 = 
(int)(((long)8)); 
{ /* ./SawMill/procedures.scm 102 */
long BgL_n2z00_1809;
BgL_n2z00_1809 = 
(long)(BgL_arg2028z00_1801); 
BgL_modz00_1800 = 
(BgL_offsetz00_1799/BgL_n2z00_1809); } } 
{ /* ./SawMill/procedures.scm 102 */
long BgL_restz00_1802;
{ /* ./SawMill/procedures.scm 102 */
int BgL_arg2024z00_1803;
BgL_arg2024z00_1803 = 
(int)(((long)8)); 
{ /* ./SawMill/procedures.scm 102 */
long BgL_n2z00_1812;
BgL_n2z00_1812 = 
(long)(BgL_arg2024z00_1803); 
BgL_restz00_1802 = 
(BgL_offsetz00_1799%BgL_n2z00_1812); } } 
{ /* ./SawMill/procedures.scm 102 */

{ /* ./SawMill/procedures.scm 102 */
obj_t BgL_bucketz00_1804;
{ /* ./SawMill/procedures.scm 102 */
int BgL_kz00_1814;
BgL_kz00_1814 = 
(int)(BgL_modz00_1800); 
BgL_bucketz00_1804 = 
VECTOR_REF(BgL_arg2017z00_1795,BgL_kz00_1814); } 
{ /* ./SawMill/procedures.scm 102 */
int BgL_kz00_1816;
BgL_kz00_1816 = 
(int)(BgL_restz00_1802); 
BgL_method2730z00_1792 = 
VECTOR_REF(BgL_bucketz00_1804,BgL_kz00_1816); } } } } } } } } } } 
return 
PROCEDURE_ENTRY(BgL_method2730z00_1792)(BgL_method2730z00_1792, 
(obj_t)(BgL_arg3393z00_1256), BgL_arg3394z00_1257, BEOA);} } } } } 
}



/* get-app-ly2752 */
obj_t BGl_getzd2appzd2ly2752z00zzsaw_proceduresz00(obj_t BgL_envz00_2324, obj_t BgL_ez00_2325, obj_t BgL_rz00_2326)
{ AN_OBJECT;
{ /* ./SawMill/procedures.scm 93 */
{ 
BgL_appzd2lyzd2_bglt BgL_ez00_1239;obj_t BgL_rz00_1240;
BgL_ez00_1239 = 
(BgL_appzd2lyzd2_bglt)(BgL_ez00_2325); 
BgL_rz00_1240 = BgL_rz00_2326; 
{ /* ./SawMill/procedures.scm 94 */
BgL_nodez00_bglt BgL_arg3373z00_1727;obj_t BgL_arg3374z00_1728;
BgL_arg3373z00_1727 = 
(((BgL_appzd2lyzd2_bglt)CREF(BgL_ez00_1239))->BgL_funz00); 
{ /* ./SawMill/procedures.scm 94 */
BgL_nodez00_bglt BgL_arg3378z00_1729;
BgL_arg3378z00_1729 = 
(((BgL_appzd2lyzd2_bglt)CREF(BgL_ez00_1239))->BgL_argz00); 
{ /* ./SawMill/procedures.scm 94 */
obj_t BgL_method2730z00_1734;
{ /* ./SawMill/procedures.scm 94 */
BgL_objectz00_bglt BgL_objz00_1735;
BgL_objz00_1735 = 
(BgL_objectz00_bglt)(BgL_arg3378z00_1729); 
{ /* ./SawMill/procedures.scm 94 */
long BgL_objzd2classzd2numz00_1736;
BgL_objzd2classzd2numz00_1736 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1735); 
{ /* ./SawMill/procedures.scm 94 */
obj_t BgL_arg2017z00_1737;
{ /* ./SawMill/procedures.scm 94 */
int BgL_auxz00_2864;
BgL_auxz00_2864 = 
(int)(((long)1)); 
BgL_arg2017z00_1737 = 
PROCEDURE_REF(BGl_getzd2envzd2zzsaw_proceduresz00, BgL_auxz00_2864); } 
{ /* ./SawMill/procedures.scm 94 */
int BgL_offsetz00_1740;
BgL_offsetz00_1740 = 
(int)(BgL_objzd2classzd2numz00_1736); 
{ /* ./SawMill/procedures.scm 94 */
long BgL_offsetz00_1741;
{ /* ./SawMill/procedures.scm 94 */
long BgL_auxz00_2868;
BgL_auxz00_2868 = 
(long)(BgL_offsetz00_1740); 
BgL_offsetz00_1741 = 
(BgL_auxz00_2868-OBJECT_TYPE); } 
{ /* ./SawMill/procedures.scm 94 */
long BgL_modz00_1742;
{ /* ./SawMill/procedures.scm 94 */
int BgL_arg2028z00_1743;
BgL_arg2028z00_1743 = 
(int)(((long)8)); 
{ /* ./SawMill/procedures.scm 94 */
long BgL_n2z00_1751;
BgL_n2z00_1751 = 
(long)(BgL_arg2028z00_1743); 
BgL_modz00_1742 = 
(BgL_offsetz00_1741/BgL_n2z00_1751); } } 
{ /* ./SawMill/procedures.scm 94 */
long BgL_restz00_1744;
{ /* ./SawMill/procedures.scm 94 */
int BgL_arg2024z00_1745;
BgL_arg2024z00_1745 = 
(int)(((long)8)); 
{ /* ./SawMill/procedures.scm 94 */
long BgL_n2z00_1754;
BgL_n2z00_1754 = 
(long)(BgL_arg2024z00_1745); 
BgL_restz00_1744 = 
(BgL_offsetz00_1741%BgL_n2z00_1754); } } 
{ /* ./SawMill/procedures.scm 94 */

{ /* ./SawMill/procedures.scm 94 */
obj_t BgL_bucketz00_1746;
{ /* ./SawMill/procedures.scm 94 */
int BgL_kz00_1756;
BgL_kz00_1756 = 
(int)(BgL_modz00_1742); 
BgL_bucketz00_1746 = 
VECTOR_REF(BgL_arg2017z00_1737,BgL_kz00_1756); } 
{ /* ./SawMill/procedures.scm 94 */
int BgL_kz00_1758;
BgL_kz00_1758 = 
(int)(BgL_restz00_1744); 
BgL_method2730z00_1734 = 
VECTOR_REF(BgL_bucketz00_1746,BgL_kz00_1758); } } } } } } } } } } 
BgL_arg3374z00_1728 = 
PROCEDURE_ENTRY(BgL_method2730z00_1734)(BgL_method2730z00_1734, 
(obj_t)(BgL_arg3378z00_1729), BgL_rz00_1240, BEOA); } } 
{ /* ./SawMill/procedures.scm 94 */
obj_t BgL_method2730z00_1761;
{ /* ./SawMill/procedures.scm 94 */
BgL_objectz00_bglt BgL_objz00_1762;
BgL_objz00_1762 = 
(BgL_objectz00_bglt)(BgL_arg3373z00_1727); 
{ /* ./SawMill/procedures.scm 94 */
long BgL_objzd2classzd2numz00_1763;
BgL_objzd2classzd2numz00_1763 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1762); 
{ /* ./SawMill/procedures.scm 94 */
obj_t BgL_arg2017z00_1764;
{ /* ./SawMill/procedures.scm 94 */
int BgL_auxz00_2886;
BgL_auxz00_2886 = 
(int)(((long)1)); 
BgL_arg2017z00_1764 = 
PROCEDURE_REF(BGl_getzd2envzd2zzsaw_proceduresz00, BgL_auxz00_2886); } 
{ /* ./SawMill/procedures.scm 94 */
int BgL_offsetz00_1767;
BgL_offsetz00_1767 = 
(int)(BgL_objzd2classzd2numz00_1763); 
{ /* ./SawMill/procedures.scm 94 */
long BgL_offsetz00_1768;
{ /* ./SawMill/procedures.scm 94 */
long BgL_auxz00_2890;
BgL_auxz00_2890 = 
(long)(BgL_offsetz00_1767); 
BgL_offsetz00_1768 = 
(BgL_auxz00_2890-OBJECT_TYPE); } 
{ /* ./SawMill/procedures.scm 94 */
long BgL_modz00_1769;
{ /* ./SawMill/procedures.scm 94 */
int BgL_arg2028z00_1770;
BgL_arg2028z00_1770 = 
(int)(((long)8)); 
{ /* ./SawMill/procedures.scm 94 */
long BgL_n2z00_1778;
BgL_n2z00_1778 = 
(long)(BgL_arg2028z00_1770); 
BgL_modz00_1769 = 
(BgL_offsetz00_1768/BgL_n2z00_1778); } } 
{ /* ./SawMill/procedures.scm 94 */
long BgL_restz00_1771;
{ /* ./SawMill/procedures.scm 94 */
int BgL_arg2024z00_1772;
BgL_arg2024z00_1772 = 
(int)(((long)8)); 
{ /* ./SawMill/procedures.scm 94 */
long BgL_n2z00_1781;
BgL_n2z00_1781 = 
(long)(BgL_arg2024z00_1772); 
BgL_restz00_1771 = 
(BgL_offsetz00_1768%BgL_n2z00_1781); } } 
{ /* ./SawMill/procedures.scm 94 */

{ /* ./SawMill/procedures.scm 94 */
obj_t BgL_bucketz00_1773;
{ /* ./SawMill/procedures.scm 94 */
int BgL_kz00_1783;
BgL_kz00_1783 = 
(int)(BgL_modz00_1769); 
BgL_bucketz00_1773 = 
VECTOR_REF(BgL_arg2017z00_1764,BgL_kz00_1783); } 
{ /* ./SawMill/procedures.scm 94 */
int BgL_kz00_1785;
BgL_kz00_1785 = 
(int)(BgL_restz00_1771); 
BgL_method2730z00_1761 = 
VECTOR_REF(BgL_bucketz00_1773,BgL_kz00_1785); } } } } } } } } } } 
return 
PROCEDURE_ENTRY(BgL_method2730z00_1761)(BgL_method2730z00_1761, 
(obj_t)(BgL_arg3373z00_1727), BgL_arg3374z00_1728, BEOA);} } } } 
}



/* get-app2750 */
obj_t BGl_getzd2app2750zd2zzsaw_proceduresz00(obj_t BgL_envz00_2327, obj_t BgL_ez00_2328, obj_t BgL_rz00_2329)
{ AN_OBJECT;
{ /* ./SawMill/procedures.scm 79 */
{ 
BgL_appz00_bglt BgL_ez00_1221;obj_t BgL_rz00_1222;
BgL_ez00_1221 = 
(BgL_appz00_bglt)(BgL_ez00_2328); 
BgL_rz00_1222 = BgL_rz00_2329; 
{ /* ./SawMill/procedures.scm 81 */
obj_t BgL_rz00_1226;BgL_variablez00_bglt BgL_vz00_1227;
{ /* ./SawMill/procedures.scm 81 */
obj_t BgL_arg3359z00_1235;
BgL_arg3359z00_1235 = 
(((BgL_appz00_bglt)CREF(BgL_ez00_1221))->BgL_argsz00); 
BgL_rz00_1226 = 
BGl_getza2za2zzsaw_proceduresz00(BgL_arg3359z00_1235, BgL_rz00_1222); } 
{ /* ./SawMill/procedures.scm 81 */
BgL_varz00_bglt BgL_arg3363z00_1236;
BgL_arg3363z00_1236 = 
(((BgL_appz00_bglt)CREF(BgL_ez00_1221))->BgL_funz00); 
BgL_vz00_1227 = 
(((BgL_varz00_bglt)CREF(BgL_arg3363z00_1236))->BgL_variablez00); } 
{ /* ./SawMill/procedures.scm 82 */
bool_t BgL_test3343z00_1228;
{ /* ./SawMill/procedures.scm 82 */
obj_t BgL_obj1300z00_1721;
BgL_obj1300z00_1721 = 
(obj_t)(BgL_vz00_1227); 
BgL_test3343z00_1228 = 
BGl_iszd2azf3z21zz__objectz00(BgL_obj1300z00_1721, BGl_localz00zzast_varz00); } 
if(BgL_test3343z00_1228)
{ /* ./SawMill/procedures.scm 82 */
return BgL_rz00_1226;}  else 
{ /* ./SawMill/procedures.scm 84 */
obj_t BgL_idz00_1229;
BgL_idz00_1229 = 
(((BgL_variablez00_bglt)CREF(BgL_vz00_1227))->BgL_idz00); 
{ /* ./SawMill/procedures.scm 85 */
bool_t BgL_test3344z00_1230;
{ /* ./SawMill/procedures.scm 85 */
obj_t BgL_auxz00_2915;
BgL_auxz00_2915 = 
CNST_TABLE_REF(((long)1)); 
BgL_test3344z00_1230 = 
(BgL_idz00_1229==BgL_auxz00_2915); } 
if(BgL_test3344z00_1230)
{ /* ./SawMill/procedures.scm 86 */
BgL_variablez00_bglt BgL_gz00_1231;
{ /* ./SawMill/procedures.scm 86 */
BgL_varz00_bglt BgL_obj1625z00_1725;
{ /* ./SawMill/procedures.scm 86 */
obj_t BgL_auxz00_2919;
{ /* ./SawMill/procedures.scm 86 */
obj_t BgL_auxz00_2920;
BgL_auxz00_2920 = 
(((BgL_appz00_bglt)CREF(BgL_ez00_1221))->BgL_argsz00); 
BgL_auxz00_2919 = 
CAR(BgL_auxz00_2920); } 
BgL_obj1625z00_1725 = 
(BgL_varz00_bglt)(BgL_auxz00_2919); } 
BgL_gz00_1231 = 
(((BgL_varz00_bglt)CREF(BgL_obj1625z00_1725))->BgL_variablez00); } 
{ /* ./SawMill/procedures.scm 87 */
bool_t BgL_test3345z00_1232;
{ /* ./SawMill/procedures.scm 87 */
obj_t BgL_auxz00_2925;
BgL_auxz00_2925 = 
BGl_memqz00zz__r4_pairs_and_lists_6_3z00(
(obj_t)(BgL_gz00_1231), BgL_rz00_1226); 
BgL_test3345z00_1232 = 
CBOOL(BgL_auxz00_2925); } 
if(BgL_test3345z00_1232)
{ /* ./SawMill/procedures.scm 87 */
return BgL_rz00_1226;}  else 
{ /* ./SawMill/procedures.scm 88 */
obj_t BgL_auxz00_2930;
BgL_auxz00_2930 = 
(obj_t)(BgL_gz00_1231); 
return 
MAKE_PAIR(BgL_auxz00_2930, BgL_rz00_1226);} } }  else 
{ /* ./SawMill/procedures.scm 85 */
return BgL_rz00_1226;} } } } } } } 
}



/* get-let-fun2748 */
obj_t BGl_getzd2letzd2fun2748z00zzsaw_proceduresz00(obj_t BgL_envz00_2330, obj_t BgL_ez00_2331, obj_t BgL_rz00_2332)
{ AN_OBJECT;
{ /* ./SawMill/procedures.scm 73 */
{ 
BgL_letzd2funzd2_bglt BgL_ez00_1198;obj_t BgL_rz00_1199;
BgL_ez00_1198 = 
(BgL_letzd2funzd2_bglt)(BgL_ez00_2331); 
BgL_rz00_1199 = BgL_rz00_2332; 
{ /* ./SawMill/procedures.scm 75 */
obj_t BgL_arg3308z00_1203;obj_t BgL_arg3309z00_1204;
{ /* ./SawMill/procedures.scm 75 */
obj_t BgL_l2688z00_1205;
BgL_l2688z00_1205 = 
(((BgL_letzd2funzd2_bglt)CREF(BgL_ez00_1198))->BgL_localsz00); 
{ /* ./SawMill/procedures.scm 75 */
bool_t BgL_test3311z00_1206;
BgL_test3311z00_1206 = 
NULLP(BgL_l2688z00_1205); 
if(BgL_test3311z00_1206)
{ /* ./SawMill/procedures.scm 75 */
BgL_arg3308z00_1203 = BNIL; }  else 
{ /* ./SawMill/procedures.scm 75 */
obj_t BgL_head2690z00_1207;
BgL_head2690z00_1207 = 
MAKE_PAIR(BNIL, BNIL); 
{ 
obj_t BgL_l2688z00_1208;obj_t BgL_tail2691z00_1209;
BgL_l2688z00_1208 = BgL_l2688z00_1205; 
BgL_tail2691z00_1209 = BgL_head2690z00_1207; 
BgL_map2689z00_1210:
{ /* ./SawMill/procedures.scm 75 */
bool_t BgL_test3313z00_1211;
BgL_test3313z00_1211 = 
NULLP(BgL_l2688z00_1208); 
if(BgL_test3313z00_1211)
{ /* ./SawMill/procedures.scm 75 */
BgL_arg3308z00_1203 = 
CDR(BgL_head2690z00_1207); }  else 
{ /* ./SawMill/procedures.scm 75 */
obj_t BgL_newtail2692z00_1212;
{ /* ./SawMill/procedures.scm 75 */
obj_t BgL_arg3321z00_1214;
{ /* ./SawMill/procedures.scm 75 */
BgL_sfunz00_bglt BgL_obj1370z00_1684;
{ /* ./SawMill/procedures.scm 75 */
BgL_valuez00_bglt BgL_auxz00_2941;
{ /* ./SawMill/procedures.scm 75 */
BgL_variablez00_bglt BgL_obj1100z00_1683;
{ /* ./SawMill/procedures.scm 75 */
obj_t BgL_auxz00_2942;
BgL_auxz00_2942 = 
CAR(BgL_l2688z00_1208); 
BgL_obj1100z00_1683 = 
(BgL_variablez00_bglt)(BgL_auxz00_2942); } 
BgL_auxz00_2941 = 
(((BgL_variablez00_bglt)CREF(BgL_obj1100z00_1683))->BgL_valuez00); } 
BgL_obj1370z00_1684 = 
(BgL_sfunz00_bglt)(BgL_auxz00_2941); } 
BgL_arg3321z00_1214 = 
(((BgL_sfunz00_bglt)CREF(BgL_obj1370z00_1684))->BgL_bodyz00); } 
BgL_newtail2692z00_1212 = 
MAKE_PAIR(BgL_arg3321z00_1214, BNIL); } 
SET_CDR(BgL_tail2691z00_1209, BgL_newtail2692z00_1212); 
{ /* ./SawMill/procedures.scm 75 */
obj_t BgL_arg3317z00_1213;
BgL_arg3317z00_1213 = 
CDR(BgL_l2688z00_1208); 
{ 
obj_t BgL_tail2691z00_2952;obj_t BgL_l2688z00_2951;
BgL_l2688z00_2951 = BgL_arg3317z00_1213; 
BgL_tail2691z00_2952 = BgL_newtail2692z00_1212; 
BgL_tail2691z00_1209 = BgL_tail2691z00_2952; 
BgL_l2688z00_1208 = BgL_l2688z00_2951; 
goto BgL_map2689z00_1210;} } } } } } } } 
{ /* ./SawMill/procedures.scm 76 */
BgL_nodez00_bglt BgL_arg3334z00_1218;
BgL_arg3334z00_1218 = 
(((BgL_letzd2funzd2_bglt)CREF(BgL_ez00_1198))->BgL_bodyz00); 
{ /* ./SawMill/procedures.scm 76 */
obj_t BgL_method2730z00_1693;
{ /* ./SawMill/procedures.scm 76 */
BgL_objectz00_bglt BgL_objz00_1694;
BgL_objz00_1694 = 
(BgL_objectz00_bglt)(BgL_arg3334z00_1218); 
{ /* ./SawMill/procedures.scm 76 */
long BgL_objzd2classzd2numz00_1695;
BgL_objzd2classzd2numz00_1695 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1694); 
{ /* ./SawMill/procedures.scm 76 */
obj_t BgL_arg2017z00_1696;
{ /* ./SawMill/procedures.scm 76 */
int BgL_auxz00_2956;
BgL_auxz00_2956 = 
(int)(((long)1)); 
BgL_arg2017z00_1696 = 
PROCEDURE_REF(BGl_getzd2envzd2zzsaw_proceduresz00, BgL_auxz00_2956); } 
{ /* ./SawMill/procedures.scm 76 */
int BgL_offsetz00_1699;
BgL_offsetz00_1699 = 
(int)(BgL_objzd2classzd2numz00_1695); 
{ /* ./SawMill/procedures.scm 76 */
long BgL_offsetz00_1700;
{ /* ./SawMill/procedures.scm 76 */
long BgL_auxz00_2960;
BgL_auxz00_2960 = 
(long)(BgL_offsetz00_1699); 
BgL_offsetz00_1700 = 
(BgL_auxz00_2960-OBJECT_TYPE); } 
{ /* ./SawMill/procedures.scm 76 */
long BgL_modz00_1701;
{ /* ./SawMill/procedures.scm 76 */
int BgL_arg2028z00_1702;
BgL_arg2028z00_1702 = 
(int)(((long)8)); 
{ /* ./SawMill/procedures.scm 76 */
long BgL_n2z00_1710;
BgL_n2z00_1710 = 
(long)(BgL_arg2028z00_1702); 
BgL_modz00_1701 = 
(BgL_offsetz00_1700/BgL_n2z00_1710); } } 
{ /* ./SawMill/procedures.scm 76 */
long BgL_restz00_1703;
{ /* ./SawMill/procedures.scm 76 */
int BgL_arg2024z00_1704;
BgL_arg2024z00_1704 = 
(int)(((long)8)); 
{ /* ./SawMill/procedures.scm 76 */
long BgL_n2z00_1713;
BgL_n2z00_1713 = 
(long)(BgL_arg2024z00_1704); 
BgL_restz00_1703 = 
(BgL_offsetz00_1700%BgL_n2z00_1713); } } 
{ /* ./SawMill/procedures.scm 76 */

{ /* ./SawMill/procedures.scm 76 */
obj_t BgL_bucketz00_1705;
{ /* ./SawMill/procedures.scm 76 */
int BgL_kz00_1715;
BgL_kz00_1715 = 
(int)(BgL_modz00_1701); 
BgL_bucketz00_1705 = 
VECTOR_REF(BgL_arg2017z00_1696,BgL_kz00_1715); } 
{ /* ./SawMill/procedures.scm 76 */
int BgL_kz00_1717;
BgL_kz00_1717 = 
(int)(BgL_restz00_1703); 
BgL_method2730z00_1693 = 
VECTOR_REF(BgL_bucketz00_1705,BgL_kz00_1717); } } } } } } } } } } 
BgL_arg3309z00_1204 = 
PROCEDURE_ENTRY(BgL_method2730z00_1693)(BgL_method2730z00_1693, 
(obj_t)(BgL_arg3334z00_1218), BgL_rz00_1199, BEOA); } } 
return 
BGl_getza2za2zzsaw_proceduresz00(BgL_arg3308z00_1203, BgL_arg3309z00_1204);} } } 
}



/* get-select2746 */
obj_t BGl_getzd2select2746zd2zzsaw_proceduresz00(obj_t BgL_envz00_2333, obj_t BgL_ez00_2334, obj_t BgL_rz00_2335)
{ AN_OBJECT;
{ /* ./SawMill/procedures.scm 68 */
{ 
BgL_selectz00_bglt BgL_ez00_1172;obj_t BgL_rz00_1173;
BgL_ez00_1172 = 
(BgL_selectz00_bglt)(BgL_ez00_2334); 
BgL_rz00_1173 = BgL_rz00_2335; 
{ /* ./SawMill/procedures.scm 70 */
BgL_nodez00_bglt BgL_arg3264z00_1177;obj_t BgL_arg3265z00_1178;
BgL_arg3264z00_1177 = 
(((BgL_selectz00_bglt)CREF(BgL_ez00_1172))->BgL_testz00); 
{ /* ./SawMill/procedures.scm 70 */
obj_t BgL_arg3269z00_1179;
{ /* ./SawMill/procedures.scm 70 */
obj_t BgL_l2681z00_1180;
BgL_l2681z00_1180 = 
(((BgL_selectz00_bglt)CREF(BgL_ez00_1172))->BgL_clausesz00); 
{ /* ./SawMill/procedures.scm 70 */
bool_t BgL_test3271z00_1181;
BgL_test3271z00_1181 = 
NULLP(BgL_l2681z00_1180); 
if(BgL_test3271z00_1181)
{ /* ./SawMill/procedures.scm 70 */
BgL_arg3269z00_1179 = BNIL; }  else 
{ /* ./SawMill/procedures.scm 70 */
obj_t BgL_head2683z00_1182;
{ /* ./SawMill/procedures.scm 70 */
obj_t BgL_arg3292z00_1193;
{ /* ./SawMill/procedures.scm 70 */
obj_t BgL_auxz00_2982;
BgL_auxz00_2982 = 
CAR(BgL_l2681z00_1180); 
BgL_arg3292z00_1193 = 
CDR(BgL_auxz00_2982); } 
BgL_head2683z00_1182 = 
MAKE_PAIR(BgL_arg3292z00_1193, BNIL); } 
{ 
obj_t BgL_l2681z00_1183;obj_t BgL_tail2684z00_1184;
{ /* ./SawMill/procedures.scm 70 */
obj_t BgL_arg3273z00_1186;
BgL_arg3273z00_1186 = 
CDR(BgL_l2681z00_1180); 
BgL_l2681z00_1183 = BgL_arg3273z00_1186; 
BgL_tail2684z00_1184 = BgL_head2683z00_1182; 
BgL_map2682z00_1185:
{ /* ./SawMill/procedures.scm 70 */
bool_t BgL_test3276z00_1187;
BgL_test3276z00_1187 = 
NULLP(BgL_l2681z00_1183); 
if(BgL_test3276z00_1187)
{ /* ./SawMill/procedures.scm 70 */
BgL_arg3269z00_1179 = BgL_head2683z00_1182; }  else 
{ /* ./SawMill/procedures.scm 70 */
obj_t BgL_newtail2685z00_1188;
{ /* ./SawMill/procedures.scm 70 */
obj_t BgL_arg3283z00_1190;
{ /* ./SawMill/procedures.scm 70 */
obj_t BgL_auxz00_2989;
BgL_auxz00_2989 = 
CAR(BgL_l2681z00_1183); 
BgL_arg3283z00_1190 = 
CDR(BgL_auxz00_2989); } 
BgL_newtail2685z00_1188 = 
MAKE_PAIR(BgL_arg3283z00_1190, BNIL); } 
SET_CDR(BgL_tail2684z00_1184, BgL_newtail2685z00_1188); 
{ /* ./SawMill/procedures.scm 70 */
obj_t BgL_arg3279z00_1189;
BgL_arg3279z00_1189 = 
CDR(BgL_l2681z00_1183); 
{ 
obj_t BgL_tail2684z00_2996;obj_t BgL_l2681z00_2995;
BgL_l2681z00_2995 = BgL_arg3279z00_1189; 
BgL_tail2684z00_2996 = BgL_newtail2685z00_1188; 
BgL_tail2684z00_1184 = BgL_tail2684z00_2996; 
BgL_l2681z00_1183 = BgL_l2681z00_2995; 
goto BgL_map2682z00_1185;} } } } } } } } } 
BgL_arg3265z00_1178 = 
BGl_getza2za2zzsaw_proceduresz00(BgL_arg3269z00_1179, BgL_rz00_1173); } 
{ /* ./SawMill/procedures.scm 70 */
obj_t BgL_method2730z00_1651;
{ /* ./SawMill/procedures.scm 70 */
BgL_objectz00_bglt BgL_objz00_1652;
BgL_objz00_1652 = 
(BgL_objectz00_bglt)(BgL_arg3264z00_1177); 
{ /* ./SawMill/procedures.scm 70 */
long BgL_objzd2classzd2numz00_1653;
BgL_objzd2classzd2numz00_1653 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1652); 
{ /* ./SawMill/procedures.scm 70 */
obj_t BgL_arg2017z00_1654;
{ /* ./SawMill/procedures.scm 70 */
int BgL_auxz00_3000;
BgL_auxz00_3000 = 
(int)(((long)1)); 
BgL_arg2017z00_1654 = 
PROCEDURE_REF(BGl_getzd2envzd2zzsaw_proceduresz00, BgL_auxz00_3000); } 
{ /* ./SawMill/procedures.scm 70 */
int BgL_offsetz00_1657;
BgL_offsetz00_1657 = 
(int)(BgL_objzd2classzd2numz00_1653); 
{ /* ./SawMill/procedures.scm 70 */
long BgL_offsetz00_1658;
{ /* ./SawMill/procedures.scm 70 */
long BgL_auxz00_3004;
BgL_auxz00_3004 = 
(long)(BgL_offsetz00_1657); 
BgL_offsetz00_1658 = 
(BgL_auxz00_3004-OBJECT_TYPE); } 
{ /* ./SawMill/procedures.scm 70 */
long BgL_modz00_1659;
{ /* ./SawMill/procedures.scm 70 */
int BgL_arg2028z00_1660;
BgL_arg2028z00_1660 = 
(int)(((long)8)); 
{ /* ./SawMill/procedures.scm 70 */
long BgL_n2z00_1668;
BgL_n2z00_1668 = 
(long)(BgL_arg2028z00_1660); 
BgL_modz00_1659 = 
(BgL_offsetz00_1658/BgL_n2z00_1668); } } 
{ /* ./SawMill/procedures.scm 70 */
long BgL_restz00_1661;
{ /* ./SawMill/procedures.scm 70 */
int BgL_arg2024z00_1662;
BgL_arg2024z00_1662 = 
(int)(((long)8)); 
{ /* ./SawMill/procedures.scm 70 */
long BgL_n2z00_1671;
BgL_n2z00_1671 = 
(long)(BgL_arg2024z00_1662); 
BgL_restz00_1661 = 
(BgL_offsetz00_1658%BgL_n2z00_1671); } } 
{ /* ./SawMill/procedures.scm 70 */

{ /* ./SawMill/procedures.scm 70 */
obj_t BgL_bucketz00_1663;
{ /* ./SawMill/procedures.scm 70 */
int BgL_kz00_1673;
BgL_kz00_1673 = 
(int)(BgL_modz00_1659); 
BgL_bucketz00_1663 = 
VECTOR_REF(BgL_arg2017z00_1654,BgL_kz00_1673); } 
{ /* ./SawMill/procedures.scm 70 */
int BgL_kz00_1675;
BgL_kz00_1675 = 
(int)(BgL_restz00_1661); 
BgL_method2730z00_1651 = 
VECTOR_REF(BgL_bucketz00_1663,BgL_kz00_1675); } } } } } } } } } } 
return 
PROCEDURE_ENTRY(BgL_method2730z00_1651)(BgL_method2730z00_1651, 
(obj_t)(BgL_arg3264z00_1177), BgL_arg3265z00_1178, BEOA);} } } } 
}



/* get-conditional2744 */
obj_t BGl_getzd2conditional2744zd2zzsaw_proceduresz00(obj_t BgL_envz00_2336, obj_t BgL_ez00_2337, obj_t BgL_rz00_2338)
{ AN_OBJECT;
{ /* ./SawMill/procedures.scm 63 */
{ 
BgL_conditionalz00_bglt BgL_ez00_1160;obj_t BgL_rz00_1161;
BgL_ez00_1160 = 
(BgL_conditionalz00_bglt)(BgL_ez00_2337); 
BgL_rz00_1161 = BgL_rz00_2338; 
{ /* ./SawMill/procedures.scm 65 */
BgL_nodez00_bglt BgL_arg3243z00_1165;obj_t BgL_arg3245z00_1166;
BgL_arg3243z00_1165 = 
(((BgL_conditionalz00_bglt)CREF(BgL_ez00_1160))->BgL_testz00); 
{ /* ./SawMill/procedures.scm 65 */
BgL_nodez00_bglt BgL_arg3249z00_1167;obj_t BgL_arg3250z00_1168;
BgL_arg3249z00_1167 = 
(((BgL_conditionalz00_bglt)CREF(BgL_ez00_1160))->BgL_truez00); 
{ /* ./SawMill/procedures.scm 65 */
BgL_nodez00_bglt BgL_arg3254z00_1169;
BgL_arg3254z00_1169 = 
(((BgL_conditionalz00_bglt)CREF(BgL_ez00_1160))->BgL_falsez00); 
{ /* ./SawMill/procedures.scm 65 */
obj_t BgL_method2730z00_1554;
{ /* ./SawMill/procedures.scm 65 */
BgL_objectz00_bglt BgL_objz00_1555;
BgL_objz00_1555 = 
(BgL_objectz00_bglt)(BgL_arg3254z00_1169); 
{ /* ./SawMill/procedures.scm 65 */
long BgL_objzd2classzd2numz00_1556;
BgL_objzd2classzd2numz00_1556 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1555); 
{ /* ./SawMill/procedures.scm 65 */
obj_t BgL_arg2017z00_1557;
{ /* ./SawMill/procedures.scm 65 */
int BgL_auxz00_3026;
BgL_auxz00_3026 = 
(int)(((long)1)); 
BgL_arg2017z00_1557 = 
PROCEDURE_REF(BGl_getzd2envzd2zzsaw_proceduresz00, BgL_auxz00_3026); } 
{ /* ./SawMill/procedures.scm 65 */
int BgL_offsetz00_1560;
BgL_offsetz00_1560 = 
(int)(BgL_objzd2classzd2numz00_1556); 
{ /* ./SawMill/procedures.scm 65 */
long BgL_offsetz00_1561;
{ /* ./SawMill/procedures.scm 65 */
long BgL_auxz00_3030;
BgL_auxz00_3030 = 
(long)(BgL_offsetz00_1560); 
BgL_offsetz00_1561 = 
(BgL_auxz00_3030-OBJECT_TYPE); } 
{ /* ./SawMill/procedures.scm 65 */
long BgL_modz00_1562;
{ /* ./SawMill/procedures.scm 65 */
int BgL_arg2028z00_1563;
BgL_arg2028z00_1563 = 
(int)(((long)8)); 
{ /* ./SawMill/procedures.scm 65 */
long BgL_n2z00_1571;
BgL_n2z00_1571 = 
(long)(BgL_arg2028z00_1563); 
BgL_modz00_1562 = 
(BgL_offsetz00_1561/BgL_n2z00_1571); } } 
{ /* ./SawMill/procedures.scm 65 */
long BgL_restz00_1564;
{ /* ./SawMill/procedures.scm 65 */
int BgL_arg2024z00_1565;
BgL_arg2024z00_1565 = 
(int)(((long)8)); 
{ /* ./SawMill/procedures.scm 65 */
long BgL_n2z00_1574;
BgL_n2z00_1574 = 
(long)(BgL_arg2024z00_1565); 
BgL_restz00_1564 = 
(BgL_offsetz00_1561%BgL_n2z00_1574); } } 
{ /* ./SawMill/procedures.scm 65 */

{ /* ./SawMill/procedures.scm 65 */
obj_t BgL_bucketz00_1566;
{ /* ./SawMill/procedures.scm 65 */
int BgL_kz00_1576;
BgL_kz00_1576 = 
(int)(BgL_modz00_1562); 
BgL_bucketz00_1566 = 
VECTOR_REF(BgL_arg2017z00_1557,BgL_kz00_1576); } 
{ /* ./SawMill/procedures.scm 65 */
int BgL_kz00_1578;
BgL_kz00_1578 = 
(int)(BgL_restz00_1564); 
BgL_method2730z00_1554 = 
VECTOR_REF(BgL_bucketz00_1566,BgL_kz00_1578); } } } } } } } } } } 
BgL_arg3250z00_1168 = 
PROCEDURE_ENTRY(BgL_method2730z00_1554)(BgL_method2730z00_1554, 
(obj_t)(BgL_arg3254z00_1169), BgL_rz00_1161, BEOA); } } 
{ /* ./SawMill/procedures.scm 65 */
obj_t BgL_method2730z00_1581;
{ /* ./SawMill/procedures.scm 65 */
BgL_objectz00_bglt BgL_objz00_1582;
BgL_objz00_1582 = 
(BgL_objectz00_bglt)(BgL_arg3249z00_1167); 
{ /* ./SawMill/procedures.scm 65 */
long BgL_objzd2classzd2numz00_1583;
BgL_objzd2classzd2numz00_1583 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1582); 
{ /* ./SawMill/procedures.scm 65 */
obj_t BgL_arg2017z00_1584;
{ /* ./SawMill/procedures.scm 65 */
int BgL_auxz00_3048;
BgL_auxz00_3048 = 
(int)(((long)1)); 
BgL_arg2017z00_1584 = 
PROCEDURE_REF(BGl_getzd2envzd2zzsaw_proceduresz00, BgL_auxz00_3048); } 
{ /* ./SawMill/procedures.scm 65 */
int BgL_offsetz00_1587;
BgL_offsetz00_1587 = 
(int)(BgL_objzd2classzd2numz00_1583); 
{ /* ./SawMill/procedures.scm 65 */
long BgL_offsetz00_1588;
{ /* ./SawMill/procedures.scm 65 */
long BgL_auxz00_3052;
BgL_auxz00_3052 = 
(long)(BgL_offsetz00_1587); 
BgL_offsetz00_1588 = 
(BgL_auxz00_3052-OBJECT_TYPE); } 
{ /* ./SawMill/procedures.scm 65 */
long BgL_modz00_1589;
{ /* ./SawMill/procedures.scm 65 */
int BgL_arg2028z00_1590;
BgL_arg2028z00_1590 = 
(int)(((long)8)); 
{ /* ./SawMill/procedures.scm 65 */
long BgL_n2z00_1598;
BgL_n2z00_1598 = 
(long)(BgL_arg2028z00_1590); 
BgL_modz00_1589 = 
(BgL_offsetz00_1588/BgL_n2z00_1598); } } 
{ /* ./SawMill/procedures.scm 65 */
long BgL_restz00_1591;
{ /* ./SawMill/procedures.scm 65 */
int BgL_arg2024z00_1592;
BgL_arg2024z00_1592 = 
(int)(((long)8)); 
{ /* ./SawMill/procedures.scm 65 */
long BgL_n2z00_1601;
BgL_n2z00_1601 = 
(long)(BgL_arg2024z00_1592); 
BgL_restz00_1591 = 
(BgL_offsetz00_1588%BgL_n2z00_1601); } } 
{ /* ./SawMill/procedures.scm 65 */

{ /* ./SawMill/procedures.scm 65 */
obj_t BgL_bucketz00_1593;
{ /* ./SawMill/procedures.scm 65 */
int BgL_kz00_1603;
BgL_kz00_1603 = 
(int)(BgL_modz00_1589); 
BgL_bucketz00_1593 = 
VECTOR_REF(BgL_arg2017z00_1584,BgL_kz00_1603); } 
{ /* ./SawMill/procedures.scm 65 */
int BgL_kz00_1605;
BgL_kz00_1605 = 
(int)(BgL_restz00_1591); 
BgL_method2730z00_1581 = 
VECTOR_REF(BgL_bucketz00_1593,BgL_kz00_1605); } } } } } } } } } } 
BgL_arg3245z00_1166 = 
PROCEDURE_ENTRY(BgL_method2730z00_1581)(BgL_method2730z00_1581, 
(obj_t)(BgL_arg3249z00_1167), BgL_arg3250z00_1168, BEOA); } } 
{ /* ./SawMill/procedures.scm 65 */
obj_t BgL_method2730z00_1608;
{ /* ./SawMill/procedures.scm 65 */
BgL_objectz00_bglt BgL_objz00_1609;
BgL_objz00_1609 = 
(BgL_objectz00_bglt)(BgL_arg3243z00_1165); 
{ /* ./SawMill/procedures.scm 65 */
long BgL_objzd2classzd2numz00_1610;
BgL_objzd2classzd2numz00_1610 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1609); 
{ /* ./SawMill/procedures.scm 65 */
obj_t BgL_arg2017z00_1611;
{ /* ./SawMill/procedures.scm 65 */
int BgL_auxz00_3070;
BgL_auxz00_3070 = 
(int)(((long)1)); 
BgL_arg2017z00_1611 = 
PROCEDURE_REF(BGl_getzd2envzd2zzsaw_proceduresz00, BgL_auxz00_3070); } 
{ /* ./SawMill/procedures.scm 65 */
int BgL_offsetz00_1614;
BgL_offsetz00_1614 = 
(int)(BgL_objzd2classzd2numz00_1610); 
{ /* ./SawMill/procedures.scm 65 */
long BgL_offsetz00_1615;
{ /* ./SawMill/procedures.scm 65 */
long BgL_auxz00_3074;
BgL_auxz00_3074 = 
(long)(BgL_offsetz00_1614); 
BgL_offsetz00_1615 = 
(BgL_auxz00_3074-OBJECT_TYPE); } 
{ /* ./SawMill/procedures.scm 65 */
long BgL_modz00_1616;
{ /* ./SawMill/procedures.scm 65 */
int BgL_arg2028z00_1617;
BgL_arg2028z00_1617 = 
(int)(((long)8)); 
{ /* ./SawMill/procedures.scm 65 */
long BgL_n2z00_1625;
BgL_n2z00_1625 = 
(long)(BgL_arg2028z00_1617); 
BgL_modz00_1616 = 
(BgL_offsetz00_1615/BgL_n2z00_1625); } } 
{ /* ./SawMill/procedures.scm 65 */
long BgL_restz00_1618;
{ /* ./SawMill/procedures.scm 65 */
int BgL_arg2024z00_1619;
BgL_arg2024z00_1619 = 
(int)(((long)8)); 
{ /* ./SawMill/procedures.scm 65 */
long BgL_n2z00_1628;
BgL_n2z00_1628 = 
(long)(BgL_arg2024z00_1619); 
BgL_restz00_1618 = 
(BgL_offsetz00_1615%BgL_n2z00_1628); } } 
{ /* ./SawMill/procedures.scm 65 */

{ /* ./SawMill/procedures.scm 65 */
obj_t BgL_bucketz00_1620;
{ /* ./SawMill/procedures.scm 65 */
int BgL_kz00_1630;
BgL_kz00_1630 = 
(int)(BgL_modz00_1616); 
BgL_bucketz00_1620 = 
VECTOR_REF(BgL_arg2017z00_1611,BgL_kz00_1630); } 
{ /* ./SawMill/procedures.scm 65 */
int BgL_kz00_1632;
BgL_kz00_1632 = 
(int)(BgL_restz00_1618); 
BgL_method2730z00_1608 = 
VECTOR_REF(BgL_bucketz00_1620,BgL_kz00_1632); } } } } } } } } } } 
return 
PROCEDURE_ENTRY(BgL_method2730z00_1608)(BgL_method2730z00_1608, 
(obj_t)(BgL_arg3243z00_1165), BgL_arg3245z00_1166, BEOA);} } } } 
}



/* get-sequence2742 */
obj_t BGl_getzd2sequence2742zd2zzsaw_proceduresz00(obj_t BgL_envz00_2339, obj_t BgL_ez00_2340, obj_t BgL_rz00_2341)
{ AN_OBJECT;
{ /* ./SawMill/procedures.scm 58 */
{ 
BgL_sequencez00_bglt BgL_ez00_1152;obj_t BgL_rz00_1153;
BgL_ez00_1152 = 
(BgL_sequencez00_bglt)(BgL_ez00_2340); 
BgL_rz00_1153 = BgL_rz00_2341; 
{ /* ./SawMill/procedures.scm 59 */
obj_t BgL_arg3233z00_1547;
BgL_arg3233z00_1547 = 
(((BgL_sequencez00_bglt)CREF(BgL_ez00_1152))->BgL_nodesz00); 
return 
BGl_getza2za2zzsaw_proceduresz00(BgL_arg3233z00_1547, BgL_rz00_1153);} } } 
}



/* get-setq2740 */
obj_t BGl_getzd2setq2740zd2zzsaw_proceduresz00(obj_t BgL_envz00_2342, obj_t BgL_ez00_2343, obj_t BgL_rz00_2344)
{ AN_OBJECT;
{ /* ./SawMill/procedures.scm 53 */
{ 
BgL_setqz00_bglt BgL_ez00_1144;obj_t BgL_rz00_1145;
BgL_ez00_1144 = 
(BgL_setqz00_bglt)(BgL_ez00_2343); 
BgL_rz00_1145 = BgL_rz00_2344; 
{ /* ./SawMill/procedures.scm 54 */
BgL_nodez00_bglt BgL_arg3223z00_1517;
BgL_arg3223z00_1517 = 
(((BgL_setqz00_bglt)CREF(BgL_ez00_1144))->BgL_valuez00); 
{ /* ./SawMill/procedures.scm 54 */
obj_t BgL_method2730z00_1521;
{ /* ./SawMill/procedures.scm 54 */
BgL_objectz00_bglt BgL_objz00_1522;
BgL_objz00_1522 = 
(BgL_objectz00_bglt)(BgL_arg3223z00_1517); 
{ /* ./SawMill/procedures.scm 54 */
long BgL_objzd2classzd2numz00_1523;
BgL_objzd2classzd2numz00_1523 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1522); 
{ /* ./SawMill/procedures.scm 54 */
obj_t BgL_arg2017z00_1524;
{ /* ./SawMill/procedures.scm 54 */
int BgL_auxz00_3097;
BgL_auxz00_3097 = 
(int)(((long)1)); 
BgL_arg2017z00_1524 = 
PROCEDURE_REF(BGl_getzd2envzd2zzsaw_proceduresz00, BgL_auxz00_3097); } 
{ /* ./SawMill/procedures.scm 54 */
int BgL_offsetz00_1527;
BgL_offsetz00_1527 = 
(int)(BgL_objzd2classzd2numz00_1523); 
{ /* ./SawMill/procedures.scm 54 */
long BgL_offsetz00_1528;
{ /* ./SawMill/procedures.scm 54 */
long BgL_auxz00_3101;
BgL_auxz00_3101 = 
(long)(BgL_offsetz00_1527); 
BgL_offsetz00_1528 = 
(BgL_auxz00_3101-OBJECT_TYPE); } 
{ /* ./SawMill/procedures.scm 54 */
long BgL_modz00_1529;
{ /* ./SawMill/procedures.scm 54 */
int BgL_arg2028z00_1530;
BgL_arg2028z00_1530 = 
(int)(((long)8)); 
{ /* ./SawMill/procedures.scm 54 */
long BgL_n2z00_1538;
BgL_n2z00_1538 = 
(long)(BgL_arg2028z00_1530); 
BgL_modz00_1529 = 
(BgL_offsetz00_1528/BgL_n2z00_1538); } } 
{ /* ./SawMill/procedures.scm 54 */
long BgL_restz00_1531;
{ /* ./SawMill/procedures.scm 54 */
int BgL_arg2024z00_1532;
BgL_arg2024z00_1532 = 
(int)(((long)8)); 
{ /* ./SawMill/procedures.scm 54 */
long BgL_n2z00_1541;
BgL_n2z00_1541 = 
(long)(BgL_arg2024z00_1532); 
BgL_restz00_1531 = 
(BgL_offsetz00_1528%BgL_n2z00_1541); } } 
{ /* ./SawMill/procedures.scm 54 */

{ /* ./SawMill/procedures.scm 54 */
obj_t BgL_bucketz00_1533;
{ /* ./SawMill/procedures.scm 54 */
int BgL_kz00_1543;
BgL_kz00_1543 = 
(int)(BgL_modz00_1529); 
BgL_bucketz00_1533 = 
VECTOR_REF(BgL_arg2017z00_1524,BgL_kz00_1543); } 
{ /* ./SawMill/procedures.scm 54 */
int BgL_kz00_1545;
BgL_kz00_1545 = 
(int)(BgL_restz00_1531); 
BgL_method2730z00_1521 = 
VECTOR_REF(BgL_bucketz00_1533,BgL_kz00_1545); } } } } } } } } } } 
return 
PROCEDURE_ENTRY(BgL_method2730z00_1521)(BgL_method2730z00_1521, 
(obj_t)(BgL_arg3223z00_1517), BgL_rz00_1145, BEOA);} } } } 
}



/* get-let-var2737 */
obj_t BGl_getzd2letzd2var2737z00zzsaw_proceduresz00(obj_t BgL_envz00_2345, obj_t BgL_ez00_2346, obj_t BgL_rz00_2347)
{ AN_OBJECT;
{ /* ./SawMill/procedures.scm 48 */
{ 
BgL_letzd2varzd2_bglt BgL_ez00_1118;obj_t BgL_rz00_1119;
BgL_ez00_1118 = 
(BgL_letzd2varzd2_bglt)(BgL_ez00_2346); 
BgL_rz00_1119 = BgL_rz00_2347; 
{ /* ./SawMill/procedures.scm 50 */
BgL_nodez00_bglt BgL_arg3179z00_1123;obj_t BgL_arg3180z00_1124;
BgL_arg3179z00_1123 = 
(((BgL_letzd2varzd2_bglt)CREF(BgL_ez00_1118))->BgL_bodyz00); 
{ /* ./SawMill/procedures.scm 50 */
obj_t BgL_arg3184z00_1125;
{ /* ./SawMill/procedures.scm 50 */
obj_t BgL_l2668z00_1126;
BgL_l2668z00_1126 = 
(((BgL_letzd2varzd2_bglt)CREF(BgL_ez00_1118))->BgL_bindingsz00); 
{ /* ./SawMill/procedures.scm 50 */
bool_t BgL_test3186z00_1127;
BgL_test3186z00_1127 = 
NULLP(BgL_l2668z00_1126); 
if(BgL_test3186z00_1127)
{ /* ./SawMill/procedures.scm 50 */
BgL_arg3184z00_1125 = BNIL; }  else 
{ /* ./SawMill/procedures.scm 50 */
obj_t BgL_head2670z00_1128;
{ /* ./SawMill/procedures.scm 50 */
obj_t BgL_arg3207z00_1139;
{ /* ./SawMill/procedures.scm 50 */
obj_t BgL_auxz00_3122;
BgL_auxz00_3122 = 
CAR(BgL_l2668z00_1126); 
BgL_arg3207z00_1139 = 
CDR(BgL_auxz00_3122); } 
BgL_head2670z00_1128 = 
MAKE_PAIR(BgL_arg3207z00_1139, BNIL); } 
{ 
obj_t BgL_l2668z00_1129;obj_t BgL_tail2671z00_1130;
{ /* ./SawMill/procedures.scm 50 */
obj_t BgL_arg3188z00_1132;
BgL_arg3188z00_1132 = 
CDR(BgL_l2668z00_1126); 
BgL_l2668z00_1129 = BgL_arg3188z00_1132; 
BgL_tail2671z00_1130 = BgL_head2670z00_1128; 
BgL_map2669z00_1131:
{ /* ./SawMill/procedures.scm 50 */
bool_t BgL_test3191z00_1133;
BgL_test3191z00_1133 = 
NULLP(BgL_l2668z00_1129); 
if(BgL_test3191z00_1133)
{ /* ./SawMill/procedures.scm 50 */
BgL_arg3184z00_1125 = BgL_head2670z00_1128; }  else 
{ /* ./SawMill/procedures.scm 50 */
obj_t BgL_newtail2672z00_1134;
{ /* ./SawMill/procedures.scm 50 */
obj_t BgL_arg3198z00_1136;
{ /* ./SawMill/procedures.scm 50 */
obj_t BgL_auxz00_3129;
BgL_auxz00_3129 = 
CAR(BgL_l2668z00_1129); 
BgL_arg3198z00_1136 = 
CDR(BgL_auxz00_3129); } 
BgL_newtail2672z00_1134 = 
MAKE_PAIR(BgL_arg3198z00_1136, BNIL); } 
SET_CDR(BgL_tail2671z00_1130, BgL_newtail2672z00_1134); 
{ /* ./SawMill/procedures.scm 50 */
obj_t BgL_arg3194z00_1135;
BgL_arg3194z00_1135 = 
CDR(BgL_l2668z00_1129); 
{ 
obj_t BgL_tail2671z00_3136;obj_t BgL_l2668z00_3135;
BgL_l2668z00_3135 = BgL_arg3194z00_1135; 
BgL_tail2671z00_3136 = BgL_newtail2672z00_1134; 
BgL_tail2671z00_1130 = BgL_tail2671z00_3136; 
BgL_l2668z00_1129 = BgL_l2668z00_3135; 
goto BgL_map2669z00_1131;} } } } } } } } } 
BgL_arg3180z00_1124 = 
BGl_getza2za2zzsaw_proceduresz00(BgL_arg3184z00_1125, BgL_rz00_1119); } 
{ /* ./SawMill/procedures.scm 50 */
obj_t BgL_method2730z00_1491;
{ /* ./SawMill/procedures.scm 50 */
BgL_objectz00_bglt BgL_objz00_1492;
BgL_objz00_1492 = 
(BgL_objectz00_bglt)(BgL_arg3179z00_1123); 
{ /* ./SawMill/procedures.scm 50 */
long BgL_objzd2classzd2numz00_1493;
BgL_objzd2classzd2numz00_1493 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1492); 
{ /* ./SawMill/procedures.scm 50 */
obj_t BgL_arg2017z00_1494;
{ /* ./SawMill/procedures.scm 50 */
int BgL_auxz00_3140;
BgL_auxz00_3140 = 
(int)(((long)1)); 
BgL_arg2017z00_1494 = 
PROCEDURE_REF(BGl_getzd2envzd2zzsaw_proceduresz00, BgL_auxz00_3140); } 
{ /* ./SawMill/procedures.scm 50 */
int BgL_offsetz00_1497;
BgL_offsetz00_1497 = 
(int)(BgL_objzd2classzd2numz00_1493); 
{ /* ./SawMill/procedures.scm 50 */
long BgL_offsetz00_1498;
{ /* ./SawMill/procedures.scm 50 */
long BgL_auxz00_3144;
BgL_auxz00_3144 = 
(long)(BgL_offsetz00_1497); 
BgL_offsetz00_1498 = 
(BgL_auxz00_3144-OBJECT_TYPE); } 
{ /* ./SawMill/procedures.scm 50 */
long BgL_modz00_1499;
{ /* ./SawMill/procedures.scm 50 */
int BgL_arg2028z00_1500;
BgL_arg2028z00_1500 = 
(int)(((long)8)); 
{ /* ./SawMill/procedures.scm 50 */
long BgL_n2z00_1508;
BgL_n2z00_1508 = 
(long)(BgL_arg2028z00_1500); 
BgL_modz00_1499 = 
(BgL_offsetz00_1498/BgL_n2z00_1508); } } 
{ /* ./SawMill/procedures.scm 50 */
long BgL_restz00_1501;
{ /* ./SawMill/procedures.scm 50 */
int BgL_arg2024z00_1502;
BgL_arg2024z00_1502 = 
(int)(((long)8)); 
{ /* ./SawMill/procedures.scm 50 */
long BgL_n2z00_1511;
BgL_n2z00_1511 = 
(long)(BgL_arg2024z00_1502); 
BgL_restz00_1501 = 
(BgL_offsetz00_1498%BgL_n2z00_1511); } } 
{ /* ./SawMill/procedures.scm 50 */

{ /* ./SawMill/procedures.scm 50 */
obj_t BgL_bucketz00_1503;
{ /* ./SawMill/procedures.scm 50 */
int BgL_kz00_1513;
BgL_kz00_1513 = 
(int)(BgL_modz00_1499); 
BgL_bucketz00_1503 = 
VECTOR_REF(BgL_arg2017z00_1494,BgL_kz00_1513); } 
{ /* ./SawMill/procedures.scm 50 */
int BgL_kz00_1515;
BgL_kz00_1515 = 
(int)(BgL_restz00_1501); 
BgL_method2730z00_1491 = 
VECTOR_REF(BgL_bucketz00_1503,BgL_kz00_1515); } } } } } } } } } } 
return 
PROCEDURE_ENTRY(BgL_method2730z00_1491)(BgL_method2730z00_1491, 
(obj_t)(BgL_arg3179z00_1123), BgL_arg3180z00_1124, BEOA);} } } } 
}



/* get-var2735 */
obj_t BGl_getzd2var2735zd2zzsaw_proceduresz00(obj_t BgL_envz00_2348, obj_t BgL_ez00_2349, obj_t BgL_rz00_2350)
{ AN_OBJECT;
{ /* ./SawMill/procedures.scm 39 */
{ 
BgL_varz00_bglt BgL_ez00_1102;obj_t BgL_rz00_1103;
BgL_ez00_1102 = 
(BgL_varz00_bglt)(BgL_ez00_2349); 
BgL_rz00_1103 = BgL_rz00_2350; 
{ /* ./SawMill/procedures.scm 41 */
bool_t BgL_test3149z00_1107;
{ /* ./SawMill/procedures.scm 41 */
bool_t BgL_test3154z00_1109;
{ /* ./SawMill/procedures.scm 41 */
BgL_variablez00_bglt BgL_arg3169z00_1115;
BgL_arg3169z00_1115 = 
(((BgL_varz00_bglt)CREF(BgL_ez00_1102))->BgL_variablez00); 
{ /* ./SawMill/procedures.scm 41 */
obj_t BgL_obj1240z00_1467;
BgL_obj1240z00_1467 = 
(obj_t)(BgL_arg3169z00_1115); 
BgL_test3154z00_1109 = 
BGl_iszd2azf3z21zz__objectz00(BgL_obj1240z00_1467, BGl_globalz00zzast_varz00); } } 
if(BgL_test3154z00_1109)
{ /* ./SawMill/procedures.scm 42 */
bool_t BgL_test3155z00_1110;
{ /* ./SawMill/procedures.scm 42 */
BgL_valuez00_bglt BgL_arg3162z00_1113;
{ /* ./SawMill/procedures.scm 42 */
BgL_variablez00_bglt BgL_arg3165z00_1114;
BgL_arg3165z00_1114 = 
(((BgL_varz00_bglt)CREF(BgL_ez00_1102))->BgL_variablez00); 
BgL_arg3162z00_1113 = 
(((BgL_variablez00_bglt)CREF(BgL_arg3165z00_1114))->BgL_valuez00); } 
{ /* ./SawMill/procedures.scm 42 */
obj_t BgL_obj1425z00_1470;
BgL_obj1425z00_1470 = 
(obj_t)(BgL_arg3162z00_1113); 
BgL_test3155z00_1110 = 
BGl_iszd2azf3z21zz__objectz00(BgL_obj1425z00_1470, BGl_sfunz00zzast_varz00); } } 
if(BgL_test3155z00_1110)
{ /* ./SawMill/procedures.scm 43 */
bool_t BgL_testz00_3170;
{ /* ./SawMill/procedures.scm 43 */
obj_t BgL_auxz00_3171;
{ /* ./SawMill/procedures.scm 43 */
obj_t BgL_auxz00_3172;
{ /* ./SawMill/procedures.scm 43 */
BgL_variablez00_bglt BgL_auxz00_3173;
BgL_auxz00_3173 = 
(((BgL_varz00_bglt)CREF(BgL_ez00_1102))->BgL_variablez00); 
BgL_auxz00_3172 = 
(obj_t)(BgL_auxz00_3173); } 
BgL_auxz00_3171 = 
BGl_memqz00zz__r4_pairs_and_lists_6_3z00(BgL_auxz00_3172, BgL_rz00_1103); } 
BgL_testz00_3170 = 
CBOOL(BgL_auxz00_3171); } 
if(BgL_testz00_3170)
{ /* ./SawMill/procedures.scm 43 */
BgL_test3149z00_1107 = ((bool_t)0); }  else 
{ /* ./SawMill/procedures.scm 43 */
BgL_test3149z00_1107 = ((bool_t)1); } }  else 
{ /* ./SawMill/procedures.scm 42 */
BgL_test3149z00_1107 = ((bool_t)0); } }  else 
{ /* ./SawMill/procedures.scm 41 */
BgL_test3149z00_1107 = ((bool_t)0); } } 
if(BgL_test3149z00_1107)
{ /* ./SawMill/procedures.scm 44 */
BgL_variablez00_bglt BgL_arg3151z00_1108;
BgL_arg3151z00_1108 = 
(((BgL_varz00_bglt)CREF(BgL_ez00_1102))->BgL_variablez00); 
{ /* ./SawMill/procedures.scm 44 */
obj_t BgL_auxz00_3180;
BgL_auxz00_3180 = 
(obj_t)(BgL_arg3151z00_1108); 
return 
MAKE_PAIR(BgL_auxz00_3180, BgL_rz00_1103);} }  else 
{ /* ./SawMill/procedures.scm 41 */
return BgL_rz00_1103;} } } } 
}



/* get-atom2733 */
obj_t BGl_getzd2atom2733zd2zzsaw_proceduresz00(obj_t BgL_envz00_2351, obj_t BgL_ez00_2352, obj_t BgL_rz00_2353)
{ AN_OBJECT;
{ /* ./SawMill/procedures.scm 35 */
return BgL_rz00_2353;} 
}



/* get */
obj_t BGl_getz00zzsaw_proceduresz00(BgL_nodez00_bglt BgL_ez00_4, obj_t BgL_rz00_5)
{ AN_OBJECT;
{ /* ./SawMill/procedures.scm 31 */
{ /* ./SawMill/procedures.scm 31 */
obj_t BgL_method2730z00_2195;
{ /* ./SawMill/procedures.scm 31 */
BgL_objectz00_bglt BgL_objz00_2196;
BgL_objz00_2196 = 
(BgL_objectz00_bglt)(BgL_ez00_4); 
{ /* ./SawMill/procedures.scm 31 */
long BgL_objzd2classzd2numz00_2197;
BgL_objzd2classzd2numz00_2197 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2196); 
{ /* ./SawMill/procedures.scm 31 */
obj_t BgL_arg2017z00_2198;
{ /* ./SawMill/procedures.scm 31 */
int BgL_auxz00_3186;
BgL_auxz00_3186 = 
(int)(((long)1)); 
BgL_arg2017z00_2198 = 
PROCEDURE_REF(BGl_getzd2envzd2zzsaw_proceduresz00, BgL_auxz00_3186); } 
{ /* ./SawMill/procedures.scm 31 */
int BgL_offsetz00_2201;
BgL_offsetz00_2201 = 
(int)(BgL_objzd2classzd2numz00_2197); 
{ /* ./SawMill/procedures.scm 31 */
long BgL_offsetz00_2202;
{ /* ./SawMill/procedures.scm 31 */
long BgL_auxz00_3190;
BgL_auxz00_3190 = 
(long)(BgL_offsetz00_2201); 
BgL_offsetz00_2202 = 
(BgL_auxz00_3190-OBJECT_TYPE); } 
{ /* ./SawMill/procedures.scm 31 */
long BgL_modz00_2203;
{ /* ./SawMill/procedures.scm 31 */
int BgL_arg2028z00_2204;
BgL_arg2028z00_2204 = 
(int)(((long)8)); 
{ /* ./SawMill/procedures.scm 31 */
long BgL_n2z00_2212;
BgL_n2z00_2212 = 
(long)(BgL_arg2028z00_2204); 
BgL_modz00_2203 = 
(BgL_offsetz00_2202/BgL_n2z00_2212); } } 
{ /* ./SawMill/procedures.scm 31 */
long BgL_restz00_2205;
{ /* ./SawMill/procedures.scm 31 */
int BgL_arg2024z00_2206;
BgL_arg2024z00_2206 = 
(int)(((long)8)); 
{ /* ./SawMill/procedures.scm 31 */
long BgL_n2z00_2215;
BgL_n2z00_2215 = 
(long)(BgL_arg2024z00_2206); 
BgL_restz00_2205 = 
(BgL_offsetz00_2202%BgL_n2z00_2215); } } 
{ /* ./SawMill/procedures.scm 31 */

{ /* ./SawMill/procedures.scm 31 */
obj_t BgL_bucketz00_2207;
{ /* ./SawMill/procedures.scm 31 */
int BgL_kz00_2217;
BgL_kz00_2217 = 
(int)(BgL_modz00_2203); 
BgL_bucketz00_2207 = 
VECTOR_REF(BgL_arg2017z00_2198,BgL_kz00_2217); } 
{ /* ./SawMill/procedures.scm 31 */
int BgL_kz00_2219;
BgL_kz00_2219 = 
(int)(BgL_restz00_2205); 
BgL_method2730z00_2195 = 
VECTOR_REF(BgL_bucketz00_2207,BgL_kz00_2219); } } } } } } } } } } 
return 
PROCEDURE_ENTRY(BgL_method2730z00_2195)(BgL_method2730z00_2195, 
(obj_t)(BgL_ez00_4), BgL_rz00_5, BEOA);} } 
}



/* _get */
obj_t BGl__getz00zzsaw_proceduresz00(obj_t BgL_envz00_2242, obj_t BgL_ez00_2243, obj_t BgL_rz00_2244)
{ AN_OBJECT;
{ /* ./SawMill/procedures.scm 31 */
return 
BGl_getz00zzsaw_proceduresz00(
(BgL_nodez00_bglt)(BgL_ez00_2243), BgL_rz00_2244);} 
}



/* get-default2729 */
obj_t BGl_getzd2default2729zd2zzsaw_proceduresz00(BgL_nodez00_bglt BgL_ez00_6, obj_t BgL_rz00_7)
{ AN_OBJECT;
{ /* ./SawMill/procedures.scm 1 */
{ /* ./SawMill/procedures.scm 32 */
obj_t BgL_arg3598z00_2220;obj_t BgL_arg3600z00_2222;
BgL_arg3598z00_2220 = 
CNST_TABLE_REF(((long)2)); 
{ /* ./SawMill/procedures.scm 32 */
obj_t BgL_arg3604z00_2223;
{ /* ./SawMill/procedures.scm 32 */
BgL_objectz00_bglt BgL_objectz00_2224;
BgL_objectz00_2224 = 
(BgL_objectz00_bglt)(BgL_ez00_6); 
{ /* ./SawMill/procedures.scm 32 */
long BgL_arg2036z00_2225;
{ /* ./SawMill/procedures.scm 32 */
long BgL_arg2039z00_2226;
BgL_arg2039z00_2226 = 
BGL_OBJECT_CLASS_NUM(BgL_objectz00_2224); 
BgL_arg2036z00_2225 = 
(BgL_arg2039z00_2226-OBJECT_TYPE); } 
{ /* ./SawMill/procedures.scm 32 */
obj_t BgL_vectorz00_2230;int BgL_kz00_2231;
BgL_vectorz00_2230 = BGl_za2classesza2z00zz__objectz00; 
BgL_kz00_2231 = 
(int)(BgL_arg2036z00_2225); 
BgL_arg3604z00_2223 = 
VECTOR_REF(BgL_vectorz00_2230,BgL_kz00_2231); } } } 
BgL_arg3600z00_2222 = 
BGl_classzd2namezd2zz__objectz00(BgL_arg3604z00_2223); } 
FAILURE(BgL_arg3598z00_2220,BGl_string4089z00zzsaw_proceduresz00,BgL_arg3600z00_2222);} } 
}



/* _get-default2729 */
obj_t BGl__getzd2default2729zd2zzsaw_proceduresz00(obj_t BgL_envz00_2354, obj_t BgL_ez00_2355, obj_t BgL_rz00_2356)
{ AN_OBJECT;
{ /* ./SawMill/procedures.scm 1 */
return 
BGl_getzd2default2729zd2zzsaw_proceduresz00(
(BgL_nodez00_bglt)(BgL_ez00_2355), BgL_rz00_2356);} 
}



/* imported-modules-init */
obj_t BGl_importedzd2moduleszd2initz00zzsaw_proceduresz00()
{ AN_OBJECT;
{ /* ./SawMill/procedures.scm 1 */
BGl_modulezd2initializa7ationz75zztype_typez00(((long)19090), "saw_procedures"); 
BGl_modulezd2initializa7ationz75zzast_varz00(((long)44246), "saw_procedures"); 
BGl_modulezd2initializa7ationz75zzast_nodez00(((long)50868), "saw_procedures"); 
BGl_modulezd2initializa7ationz75zzast_envz00(((long)62031), "saw_procedures"); 
return 
BGl_modulezd2initializa7ationz75zzsaw_elsewherez00(((long)30322), "saw_procedures");} 
}

