/*===========================================================================*/
/*   (Expand/object.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 Expand/object.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_tclassz00_bgl {
   obj_t BgL_itszd2superzd2;
   obj_t BgL_slotsz00;
   struct BgL_globalz00_bgl * BgL_holderz00;
   obj_t BgL_wideningz00;
   long BgL_depthz00;
   bool_t BgL_finalzf3zf3;
   obj_t BgL_constructorz00;
   obj_t BgL_virtualzd2slotszd2numberz00;
   bool_t BgL_abstractzf3zf3;
   obj_t BgL_widezd2typezd2;
} *BgL_tclassz00_bglt;

typedef struct BgL_jclassz00_bgl {
   obj_t BgL_itszd2superzd2;
   obj_t BgL_slotsz00;
   obj_t BgL_packagez00;
} *BgL_jclassz00_bglt;

typedef struct BgL_wclassz00_bgl {
   obj_t BgL_itszd2classzd2;
} *BgL_wclassz00_bglt;

typedef struct BgL_slotz00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_idz00;
   obj_t BgL_namez00;
   obj_t BgL_srcz00;
   obj_t BgL_classzd2ownerzd2;
   obj_t BgL_typez00;
   bool_t BgL_readzd2onlyzf3z21;
   obj_t BgL_defaultzd2valuezd2;
   obj_t BgL_virtualzd2numzd2;
   obj_t BgL_getterz00;
   obj_t BgL_setterz00;
   obj_t BgL_indexedz00;
   obj_t BgL_userzd2infozd2;
} *BgL_slotz00_bglt;


extern obj_t BGl_slotz00zzobject_slotsz00;
static obj_t BGl_allocz00zzexpand_objectz00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_modulezd2initializa7ationz75zzexpand_objectz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zztools_argsz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zztools_prognz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zztools_miscz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zztools_locationz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zztype_typez00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zztype_envz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzexpand_epsz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzengine_paramz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzast_varz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzast_identz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzast_privatez00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzobject_classz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzobject_slotsz00(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 *);
BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__r4_symbols_6_4z00(long, char *);
BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__r4_strings_6_7z00(long, char *);
BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__r4_control_features_6_9z00(long, char *);
BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__r4_ports_6_10_1z00(long, char *);
BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__r4_output_6_10_3z00(long, char *);
extern obj_t BGl_normaliza7ezd2prognz75zztools_prognz00(obj_t);
static obj_t BGl_makezd2withzd2accesszd2bodyzd2zzexpand_objectz00(obj_t, obj_t, obj_t, obj_t, obj_t, obj_t);
BGL_IMPORT obj_t BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
static obj_t BGl_methodzd2initzd2zzexpand_objectz00();
BGL_IMPORT long bgl_list_length(obj_t);
BGL_IMPORT obj_t open_input_string(obj_t);
static obj_t BGl_classzd2splitzd2slotsz00zzexpand_objectz00(obj_t, BgL_typez00_bglt, obj_t);
static obj_t BGl_findzd2slotzd2offsetz00zzexpand_objectz00(obj_t, obj_t, obj_t, obj_t);
static obj_t BGl_duplicatezd2ze3makez31zzexpand_objectz00(obj_t, obj_t, obj_t, obj_t, obj_t);
BGL_IMPORT obj_t BGl_withzd2outputzd2tozd2stringzd2zz__r4_ports_6_10_1z00(obj_t);
BGL_IMPORT obj_t BGl_mapz00zz__r4_control_features_6_9z00(obj_t, obj_t);
BGL_IMPORT obj_t BGl_readz00zz__readerz00(obj_t);
BGL_IMPORT bool_t BGl_iszd2azf3z21zz__objectz00(obj_t, obj_t);
BGL_IMPORT obj_t string_append(obj_t, obj_t);
BGL_IMPORT obj_t make_vector(int, obj_t);
static obj_t BGl_makezd2wideningzd2zzexpand_objectz00(obj_t, BgL_typez00_bglt, obj_t, obj_t, obj_t);
static obj_t BGl_zc3anonymousza32879ze3z83zzexpand_objectz00(obj_t, obj_t, obj_t, obj_t, obj_t);
extern obj_t BGl_tclassz00zzobject_classz00;
BGL_EXPORTED_DECL obj_t BGl_expandzd2cozd2instantiatez00zzexpand_objectz00(obj_t, obj_t);
BGL_IMPORT obj_t BGl_memqz00zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
BGL_IMPORT obj_t string_to_bstring(char *);
static obj_t BGl__expandzd2duplicate4621zd2zzexpand_objectz00(obj_t, obj_t, obj_t);
extern bool_t BGl_slotzd2virtualzf3z21zzobject_slotsz00(BgL_slotz00_bglt);
extern obj_t BGl_za2unsafezd2typeza2zd2zzengine_paramz00;
BGL_IMPORT obj_t BGl_gensymz00zz__r4_symbols_6_4z00;
static obj_t BGl_zc3anonymousza31951ze3z83zzexpand_objectz00(obj_t);
extern BgL_typez00_bglt BGl_typezd2ofzd2idz00zzast_identz00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_expandzd2duplicatezd2zzexpand_objectz00(obj_t, obj_t);
BGL_IMPORT obj_t BGl_putpropz12z12zz__r4_symbols_6_4z00(obj_t, obj_t, obj_t);
extern obj_t BGl_findzd2locationzd2zztools_locationz00(obj_t);
BGL_IMPORT obj_t BGl_getpropz00zz__r4_symbols_6_4z00(obj_t, obj_t);
static obj_t BGl_loopz00zzexpand_objectz00(obj_t, obj_t, obj_t, obj_t, obj_t);
extern obj_t BGl_replacez12z12zztools_miscz00(obj_t, obj_t);
static obj_t BGl_makezd2virtualzd2setz00zzexpand_objectz00(obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, char *);
BGL_IMPORT obj_t BGl_reversez12z12zz__r4_pairs_and_lists_6_3z00(obj_t);
BGL_IMPORT obj_t BGl_assqz00zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
extern obj_t BGl_tclasszd2allzd2slotsz00zzobject_classz00(BgL_tclassz00_bglt);
static obj_t BGl_makezd2azd2shrinkz12z12zzexpand_objectz00(obj_t, obj_t);
BGL_IMPORT obj_t BGl_symbolzd2appendzd2zz__r4_symbols_6_4z00(obj_t);
static obj_t BGl_instantiatezd2ze3fillz31zzexpand_objectz00(obj_t, obj_t, obj_t, obj_t);
static obj_t BGl_cnstzd2initzd2zzexpand_objectz00();
static obj_t BGl_cozd2instantiatezd2ze3letze3zzexpand_objectz00(obj_t, obj_t, obj_t, obj_t);
extern bool_t BGl_slotzd2defaultzf3z21zzobject_slotsz00(BgL_slotz00_bglt);
static obj_t BGl__expandzd2shrinkz124625zc0zzexpand_objectz00(obj_t, obj_t, obj_t);
BGL_IMPORT obj_t BGl_displayzd22zd2zz__r4_output_6_10_3z00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_expandzd2widenz12zc0zzexpand_objectz00(obj_t, obj_t);
BGL_IMPORT obj_t BGl_stringzd2appendzd2zz__r4_strings_6_7z00(obj_t);
static obj_t BGl_importedzd2moduleszd2initz00zzexpand_objectz00();
extern obj_t BGl_makezd2privatezd2sexpz00zzast_privatez00(obj_t, obj_t, obj_t);
static obj_t BGl_withzd2accesszd2expanderz00zzexpand_objectz00(obj_t, obj_t, obj_t, obj_t, obj_t);
static obj_t BGl__expandzd2widenz124623zc0zzexpand_objectz00(obj_t, obj_t, obj_t);
static obj_t BGl_requirezd2initializa7ationz75zzexpand_objectz00 = BUNSPEC;
BGL_EXPORTED_DECL obj_t BGl_expandzd2withzd2accessz00zzexpand_objectz00(obj_t, obj_t);
static obj_t BGl__expandzd2withzd2access4592z00zzexpand_objectz00(obj_t, obj_t, obj_t);
extern obj_t BGl_findzd2locationzf2locz20zztools_locationz00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_expandzd2shrinkz12zc0zzexpand_objectz00(obj_t, obj_t);
static obj_t BGl_zc3anonymousza32357ze3z83zzexpand_objectz00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_expandzd2instantiatezd2zzexpand_objectz00(obj_t, obj_t);
extern obj_t BGl_lexicalzd2stackzd2zzexpand_epsz00();
static obj_t BGl_zc3anonymousza32496ze3z83zzexpand_objectz00(obj_t, obj_t);
static obj_t BGl_e1z00zzexpand_objectz00(obj_t, obj_t, obj_t);
extern obj_t BGl_parsezd2idzd2zzast_identz00(obj_t, obj_t);
static obj_t BGl_objectzd2epairifyzd2zzexpand_objectz00(obj_t, obj_t);
static obj_t BGl_libraryzd2moduleszd2initz00zzexpand_objectz00();
extern obj_t BGl_makezd2typedzd2identz00zzast_identz00(obj_t, obj_t);
extern obj_t BGl_withzd2lexicalzd2zzexpand_epsz00(obj_t, obj_t, obj_t, obj_t);
static obj_t BGl_zc3anonymousza31919ze3z83zzexpand_objectz00(obj_t);
static obj_t BGl_instantiatezd2ze3makez31zzexpand_objectz00(obj_t, BgL_typez00_bglt, obj_t);
BGL_IMPORT obj_t bgl_list_ref(obj_t, long);
static obj_t BGl__expandzd2cozd2instantiate4612z00zzexpand_objectz00(obj_t, obj_t, obj_t);
extern obj_t BGl_markzd2symbolzd2nonzd2userz12zc0zzast_identz00(obj_t);
BGL_IMPORT obj_t string_append_3(obj_t, obj_t, obj_t);
static obj_t BGl__expandzd2instantiate4608zd2zzexpand_objectz00(obj_t, obj_t, obj_t);
static obj_t __cnst[ 41 ] ;


DEFINE_EXPORT_PROCEDURE( BGl_expandzd2widenz12zd2envz12zzexpand_objectz00, BgL_bgl__expandza7d2widenza7124623za7c0za7za7expand_objectza7004953z00, BGl__expandzd2widenz124623zc0zzexpand_objectz00, 0L, 2 );
DEFINE_STRING( BGl_string4922z00zzexpand_objectz00, BgL_bgl_string4922za700za7za7expand_objectza7004954z00, "object? o error object-class class-super eq? shrink! object-widening if object-mark-producer! class-num __object object-class-num-set! @ object-widening-set! cast obj let* nothing duplicated ! fill- begin allocate- instantiate co-instantiate ok done new make- set! value -set! labels index -len - -ref let with-access instance ", 327 );
DEFINE_STRING( BGl_string4921z00zzexpand_objectz00, BgL_bgl_string4921za700za7za7expand_objectza7004955z00, "' form (unknown slot ", 21 );
DEFINE_STRING( BGl_string4920z00zzexpand_objectz00, BgL_bgl_string4920za700za7za7expand_objectza7004956z00, "Illegal `", 9 );
DEFINE_STRING( BGl_string4919z00zzexpand_objectz00, BgL_bgl_string4919za700za7za7expand_objectza7004957z00, "' form (read-only slot ", 23 );
DEFINE_STRING( BGl_string4918z00zzexpand_objectz00, BgL_bgl_string4918za700za7za7expand_objectza7004958z00, "shrink!", 7 );
DEFINE_STRING( BGl_string4917z00zzexpand_objectz00, BgL_bgl_string4917za700za7za7expand_objectza7004959z00, "Not a wide object", 17 );
DEFINE_STRING( BGl_string4916z00zzexpand_objectz00, BgL_bgl_string4916za700za7za7expand_objectza7004960z00, "Illegal `shrink!' form", 22 );
DEFINE_STRING( BGl_string4915z00zzexpand_objectz00, BgL_bgl_string4915za700za7za7expand_objectza7004961z00, "This object can't be widened to the wanted class", 48 );
DEFINE_STRING( BGl_string4914z00zzexpand_objectz00, BgL_bgl_string4914za700za7za7expand_objectza7004962z00, "Illegal `widening!' form (missing arguments for slot ", 53 );
DEFINE_STRING( BGl_string4913z00zzexpand_objectz00, BgL_bgl_string4913za700za7za7expand_objectza7004963z00, "widen!", 6 );
DEFINE_STRING( BGl_string4912z00zzexpand_objectz00, BgL_bgl_string4912za700za7za7expand_objectza7004964z00, "Illegal `widen!' form", 21 );
DEFINE_STRING( BGl_string4911z00zzexpand_objectz00, BgL_bgl_string4911za700za7za7expand_objectza7004965z00, "widen!:Illegal class type:", 26 );
DEFINE_STRING( BGl_string4910z00zzexpand_objectz00, BgL_bgl_string4910za700za7za7expand_objectza7004966z00, "duplicate", 9 );
DEFINE_STRING( BGl_string4909z00zzexpand_objectz00, BgL_bgl_string4909za700za7za7expand_objectza7004967z00, "Illegal `duplicate' form", 24 );
DEFINE_STRING( BGl_string4899z00zzexpand_objectz00, BgL_bgl_string4899za700za7za7expand_objectza7004968z00, "Illegal `instantiate' form", 26 );
DEFINE_STRING( BGl_string4908z00zzexpand_objectz00, BgL_bgl_string4908za700za7za7expand_objectza7004969z00, "duplicate:Illegal class type:", 29 );
DEFINE_STRING( BGl_string4898z00zzexpand_objectz00, BgL_bgl_string4898za700za7za7expand_objectza7004970z00, "Abstract classes can't be instantiated", 38 );
DEFINE_STRING( BGl_string4907z00zzexpand_objectz00, BgL_bgl_string4907za700za7za7expand_objectza7004971z00, "Abstract classes can't be duplicated", 36 );
DEFINE_STRING( BGl_string4897z00zzexpand_objectz00, BgL_bgl_string4897za700za7za7expand_objectza7004972z00, "Illegal `with-access' form. Unknown slot `", 42 );
DEFINE_STRING( BGl_string4906z00zzexpand_objectz00, BgL_bgl_string4906za700za7za7expand_objectza7004973z00, "co-instantiate:Illegal binding", 30 );
DEFINE_STRING( BGl_string4896z00zzexpand_objectz00, BgL_bgl_string4896za700za7za7expand_objectza7004974z00, "Illegal `with-access' form", 26 );
DEFINE_STRING( BGl_string4905z00zzexpand_objectz00, BgL_bgl_string4905za700za7za7expand_objectza7004975z00, "co-instantiate:Illegal class", 28 );
DEFINE_STRING( BGl_string4895z00zzexpand_objectz00, BgL_bgl_string4895za700za7za7expand_objectza7004976z00, "'", 1 );
DEFINE_STRING( BGl_string4904z00zzexpand_objectz00, BgL_bgl_string4904za700za7za7expand_objectza7004977z00, "co-instantiate:Abstract classes can't be instantiated", 53 );
DEFINE_STRING( BGl_string4894z00zzexpand_objectz00, BgL_bgl_string4894za700za7za7expand_objectza7004978z00, "Illegal `with-access' form. Illegal slot identifier `", 53 );
DEFINE_STRING( BGl_string4903z00zzexpand_objectz00, BgL_bgl_string4903za700za7za7expand_objectza7004979z00, "Illegal `co-instantiate' form", 29 );
DEFINE_STRING( BGl_string4902z00zzexpand_objectz00, BgL_bgl_string4902za700za7za7expand_objectza7004980z00, ")", 1 );
DEFINE_STRING( BGl_string4901z00zzexpand_objectz00, BgL_bgl_string4901za700za7za7expand_objectza7004981z00, "Illegal `instantiate' form (missing arguments for slot ", 55 );
DEFINE_STRING( BGl_string4900z00zzexpand_objectz00, BgL_bgl_string4900za700za7za7expand_objectza7004982z00, "instantiate", 11 );
DEFINE_EXPORT_PROCEDURE( BGl_expandzd2shrinkz12zd2envz12zzexpand_objectz00, BgL_bgl__expandza7d2shrinkza7124625za7c0za7za7expand_objectza7004983z00, BGl__expandzd2shrinkz124625zc0zzexpand_objectz00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_expandzd2instantiatezd2envz00zzexpand_objectz00, BgL_bgl__expandza7d2instantiate4608za7d2za7za7expand_objectza7004984za7, BGl__expandzd2instantiate4608zd2zzexpand_objectz00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_expandzd2duplicatezd2envz00zzexpand_objectz00, BgL_bgl__expandza7d2duplicate4621za7d2za7za7expand_objectza7004985za7, BGl__expandzd2duplicate4621zd2zzexpand_objectz00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_expandzd2cozd2instantiatezd2envzd2zzexpand_objectz00, BgL_bgl__expandza7d2coza7d2instantiate4612za700za7za7expand_objectza7004986z00, BGl__expandzd2cozd2instantiate4612z00zzexpand_objectz00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_expandzd2withzd2accesszd2envzd2zzexpand_objectz00, BgL_bgl__expandza7d2withza7d2access4592za700za7za7expand_objectza7004987z00, BGl__expandzd2withzd2access4592z00zzexpand_objectz00, 0L, 2 );



/* module-initialization */
BGL_EXPORTED_DEF obj_t BGl_modulezd2initializa7ationz75zzexpand_objectz00(long BgL_checksumz00_2461, char * BgL_fromz00_2462)
{ AN_OBJECT;
{ 
if(
CBOOL(BGl_requirezd2initializa7ationz75zzexpand_objectz00))
{ 
BGl_requirezd2initializa7ationz75zzexpand_objectz00 = 
BBOOL(((bool_t)0)); 
BGl_libraryzd2moduleszd2initz00zzexpand_objectz00(); 
BGl_cnstzd2initzd2zzexpand_objectz00(); 
BGl_importedzd2moduleszd2initz00zzexpand_objectz00(); 
return BUNSPEC;}  else 
{ 
return BUNSPEC;} } 
}



/* library-modules-init */
obj_t BGl_libraryzd2moduleszd2initz00zzexpand_objectz00()
{ AN_OBJECT;
{ /* ./Expand/object.scm 15 */
BGl_modulezd2initializa7ationz75zz__r4_pairs_and_lists_6_3z00(((long)0), "expand_object"); 
BGl_modulezd2initializa7ationz75zz__r4_ports_6_10_1z00(((long)0), "expand_object"); 
BGl_modulezd2initializa7ationz75zz__r4_control_features_6_9z00(((long)0), "expand_object"); 
BGl_modulezd2initializa7ationz75zz__readerz00(((long)0), "expand_object"); 
BGl_modulezd2initializa7ationz75zz__objectz00(((long)0), "expand_object"); 
BGl_modulezd2initializa7ationz75zz__r4_symbols_6_4z00(((long)0), "expand_object"); 
BGl_modulezd2initializa7ationz75zz__r4_output_6_10_3z00(((long)0), "expand_object"); 
BGl_modulezd2initializa7ationz75zz__r4_strings_6_7z00(((long)0), "expand_object"); 
return BUNSPEC;} 
}



/* cnst-init */
obj_t BGl_cnstzd2initzd2zzexpand_objectz00()
{ AN_OBJECT;
{ /* ./Expand/object.scm 15 */
{ /* ./Expand/object.scm 15 */
obj_t BgL_cportz00_2449;
BgL_cportz00_2449 = 
open_input_string(BGl_string4922z00zzexpand_objectz00); 
{ 
long BgL_iz00_2450;
BgL_iz00_2450 = ((long)40); 
BgL_loopz00_2451:
{ /* ./Expand/object.scm 15 */
bool_t BgL_test4924z00_2452;
BgL_test4924z00_2452 = 
(BgL_iz00_2450==((long)-1)); 
if(BgL_test4924z00_2452)
{ /* ./Expand/object.scm 15 */
return BUNSPEC;}  else 
{ /* ./Expand/object.scm 15 */
{ /* ./Expand/object.scm 15 */
obj_t BgL_arg4926z00_2453;
{ /* ./Expand/object.scm 15 */
obj_t BgL_list4929z00_2454;
BgL_list4929z00_2454 = 
MAKE_PAIR(BgL_cportz00_2449, BNIL); 
BgL_arg4926z00_2453 = 
BGl_readz00zz__readerz00(BgL_list4929z00_2454); } 
{ /* ./Expand/object.scm 15 */
int BgL_auxz00_2482;
BgL_auxz00_2482 = 
(int)(BgL_iz00_2450); 
CNST_TABLE_SET(BgL_auxz00_2482, BgL_arg4926z00_2453); } } 
{ /* ./Expand/object.scm 15 */
int BgL_auxz00_2455;
{ /* ./Expand/object.scm 15 */
long BgL_auxz00_2485;
BgL_auxz00_2485 = 
(BgL_iz00_2450-((long)1)); 
BgL_auxz00_2455 = 
(int)(BgL_auxz00_2485); } 
{ 
long BgL_iz00_2488;
BgL_iz00_2488 = 
(long)(BgL_auxz00_2455); 
BgL_iz00_2450 = BgL_iz00_2488; 
goto BgL_loopz00_2451;} } } } } } } 
}



/* expand-with-access */
BGL_EXPORTED_DEF obj_t BGl_expandzd2withzd2accessz00zzexpand_objectz00(obj_t BgL_xz00_1, obj_t BgL_ez00_2)
{ AN_OBJECT;
{ /* ./Expand/object.scm 39 */
{ 
obj_t BgL_withzd2accesszd2_417;obj_t BgL_instancez00_418;obj_t BgL_slotsz00_419;obj_t BgL_bodyz00_420;
{ /* ./Expand/object.scm 40 */
bool_t BgL_test1880z00_424;
BgL_test1880z00_424 = 
PAIRP(BgL_xz00_1); 
if(BgL_test1880z00_424)
{ /* ./Expand/object.scm 40 */
obj_t BgL_cdrzd2113zd2_425;
BgL_cdrzd2113zd2_425 = 
CDR(BgL_xz00_1); 
{ /* ./Expand/object.scm 40 */
bool_t BgL_test1881z00_426;
BgL_test1881z00_426 = 
PAIRP(BgL_cdrzd2113zd2_425); 
if(BgL_test1881z00_426)
{ /* ./Expand/object.scm 40 */
obj_t BgL_cdrzd2119zd2_427;
BgL_cdrzd2119zd2_427 = 
CDR(BgL_cdrzd2113zd2_425); 
{ /* ./Expand/object.scm 40 */
bool_t BgL_test1882z00_428;
BgL_test1882z00_428 = 
PAIRP(BgL_cdrzd2119zd2_427); 
if(BgL_test1882z00_428)
{ /* ./Expand/object.scm 40 */
obj_t BgL_carzd2123zd2_429;obj_t BgL_cdrzd2124zd2_430;
BgL_carzd2123zd2_429 = 
CAR(BgL_cdrzd2119zd2_427); 
BgL_cdrzd2124zd2_430 = 
CDR(BgL_cdrzd2119zd2_427); 
{ /* ./Expand/object.scm 40 */
bool_t BgL_test1884z00_431;
BgL_test1884z00_431 = 
PAIRP(BgL_carzd2123zd2_429); 
if(BgL_test1884z00_431)
{ /* ./Expand/object.scm 40 */
bool_t BgL_test1885z00_432;
BgL_test1885z00_432 = 
PAIRP(BgL_cdrzd2124zd2_430); 
if(BgL_test1885z00_432)
{ /* ./Expand/object.scm 40 */
obj_t BgL_arg1887z00_433;obj_t BgL_arg1888z00_434;
BgL_arg1887z00_433 = 
CAR(BgL_xz00_1); 
BgL_arg1888z00_434 = 
CAR(BgL_cdrzd2113zd2_425); 
BgL_withzd2accesszd2_417 = BgL_arg1887z00_433; 
BgL_instancez00_418 = BgL_arg1888z00_434; 
BgL_slotsz00_419 = BgL_carzd2123zd2_429; 
BgL_bodyz00_420 = BgL_cdrzd2124zd2_430; 
{ /* ./Expand/object.scm 42 */
obj_t BgL_locz00_435;
BgL_locz00_435 = 
BGl_findzd2locationzd2zztools_locationz00(BgL_xz00_1); 
{ /* ./Expand/object.scm 42 */
BgL_typez00_bglt BgL_classz00_436;
BgL_classz00_436 = 
BGl_typezd2ofzd2idz00zzast_identz00(BgL_withzd2accesszd2_417, BgL_locz00_435); 
{ /* ./Expand/object.scm 43 */

{ /* ./Expand/object.scm 45 */
bool_t BgL_test1907z00_437;
{ /* ./Expand/object.scm 45 */
obj_t BgL_obj1607z00_1826;
BgL_obj1607z00_1826 = 
(obj_t)(BgL_classz00_436); 
BgL_test1907z00_437 = 
BGl_iszd2azf3z21zz__objectz00(BgL_obj1607z00_1826, BGl_tclassz00zzobject_classz00); } 
if(BgL_test1907z00_437)
{ /* ./Expand/object.scm 45 */
{ 
obj_t BgL_sz00_438;
BgL_sz00_438 = BgL_slotsz00_419; 
BgL_loopz00_439:
{ /* ./Expand/object.scm 50 */
bool_t BgL_test1909z00_440;
BgL_test1909z00_440 = 
NULLP(BgL_sz00_438); 
if(BgL_test1909z00_440)
{ /* ./Expand/object.scm 50 */
{ /* ./Expand/object.scm 51 */
obj_t BgL_auxz00_441;
{ /* ./Expand/object.scm 51 */
obj_t BgL_arg1928z00_453;
BgL_arg1928z00_453 = 
PROCEDURE_ENTRY(BGl_gensymz00zz__r4_symbols_6_4z00)(BGl_gensymz00zz__r4_symbols_6_4z00, 
CNST_TABLE_REF(((long)0)), BEOA); 
BgL_auxz00_441 = 
BGl_markzd2symbolzd2nonzd2userz12zc0zzast_identz00(BgL_arg1928z00_453); } 
{ /* ./Expand/object.scm 52 */
obj_t BgL_instancez00_443;
BgL_instancez00_443 = 
PROCEDURE_ENTRY(BgL_ez00_2)(BgL_ez00_2, BgL_instancez00_418, BgL_ez00_2, BEOA); 
{ /* ./Expand/object.scm 53 */
obj_t BgL_classzd2idzd2_444;
BgL_classzd2idzd2_444 = 
(((BgL_typez00_bglt)CREF(BgL_classz00_436))->BgL_idz00); 
{ /* ./Expand/object.scm 54 */

{ /* ./Expand/object.scm 55 */
obj_t BgL_directz00_445;
BgL_directz00_445 = 
BGl_classzd2splitzd2slotsz00zzexpand_objectz00(BgL_xz00_1, BgL_classz00_436, BgL_slotsz00_419); 
{ /* ./Expand/object.scm 57 */
obj_t BgL_indexedz00_446;
{ /* ./Expand/object.scm 57 */
int BgL_nz00_1829;
BgL_nz00_1829 = 
(int)(((long)1)); 
BgL_indexedz00_446 = 
BGL_MVALUES_VAL(BgL_nz00_1829); } 
{ /* ./Expand/object.scm 61 */
obj_t BgL_arg1911z00_447;
{ /* ./Expand/object.scm 61 */
obj_t BgL_arg1915z00_448;
BgL_arg1915z00_448 = 
BGl_findzd2locationzd2zztools_locationz00(BgL_xz00_1); 
{ /* ./Expand/object.scm 63 */
obj_t BgL_zc3anonymousza31919ze3z83_2370;
{ 
int BgL_auxz00_2526;int BgL_auxz00_2524;
BgL_auxz00_2526 = 
(int)(((long)8)); 
BgL_auxz00_2524 = 
(int)(((long)0)); 
BgL_zc3anonymousza31919ze3z83_2370 = 
make_fx_procedure(BGl_zc3anonymousza31919ze3z83zzexpand_objectz00, BgL_auxz00_2524, BgL_auxz00_2526); } 
{ /* ./Expand/object.scm 63 */
int BgL_auxz00_2529;
BgL_auxz00_2529 = 
(int)(((long)0)); 
PROCEDURE_SET(BgL_zc3anonymousza31919ze3z83_2370, BgL_auxz00_2529, BgL_ez00_2); } 
{ /* ./Expand/object.scm 63 */
int BgL_auxz00_2532;
BgL_auxz00_2532 = 
(int)(((long)1)); 
PROCEDURE_SET(BgL_zc3anonymousza31919ze3z83_2370, BgL_auxz00_2532, BgL_auxz00_441); } 
{ /* ./Expand/object.scm 63 */
int BgL_auxz00_2535;
BgL_auxz00_2535 = 
(int)(((long)2)); 
PROCEDURE_SET(BgL_zc3anonymousza31919ze3z83_2370, BgL_auxz00_2535, BgL_auxz00_441); } 
{ /* ./Expand/object.scm 63 */
int BgL_auxz00_2538;
BgL_auxz00_2538 = 
(int)(((long)3)); 
PROCEDURE_SET(BgL_zc3anonymousza31919ze3z83_2370, BgL_auxz00_2538, BgL_classzd2idzd2_444); } 
{ /* ./Expand/object.scm 63 */
int BgL_auxz00_2541;
BgL_auxz00_2541 = 
(int)(((long)4)); 
PROCEDURE_SET(BgL_zc3anonymousza31919ze3z83_2370, BgL_auxz00_2541, BgL_directz00_445); } 
{ /* ./Expand/object.scm 63 */
int BgL_auxz00_2544;
BgL_auxz00_2544 = 
(int)(((long)5)); 
PROCEDURE_SET(BgL_zc3anonymousza31919ze3z83_2370, BgL_auxz00_2544, BgL_instancez00_443); } 
{ /* ./Expand/object.scm 63 */
int BgL_auxz00_2547;
BgL_auxz00_2547 = 
(int)(((long)6)); 
PROCEDURE_SET(BgL_zc3anonymousza31919ze3z83_2370, BgL_auxz00_2547, BgL_indexedz00_446); } 
{ /* ./Expand/object.scm 63 */
int BgL_auxz00_2550;
BgL_auxz00_2550 = 
(int)(((long)7)); 
PROCEDURE_SET(BgL_zc3anonymousza31919ze3z83_2370, BgL_auxz00_2550, BgL_bodyz00_420); } 
BgL_arg1911z00_447 = 
BGl_withzd2lexicalzd2zzexpand_epsz00(BgL_slotsz00_419, BgL_auxz00_441, BgL_arg1915z00_448, BgL_zc3anonymousza31919ze3z83_2370); } } 
return 
BGl_replacez12z12zztools_miscz00(BgL_xz00_1, BgL_arg1911z00_447);} } } } } } } }  else 
{ /* ./Expand/object.scm 75 */
bool_t BgL_test1931z00_454;
BgL_test1931z00_454 = 
PAIRP(BgL_sz00_438); 
if(BgL_test1931z00_454)
{ /* ./Expand/object.scm 77 */
bool_t BgL_test1932z00_455;
{ /* ./Expand/object.scm 77 */
obj_t BgL_auxz00_2557;
BgL_auxz00_2557 = 
CAR(BgL_sz00_438); 
BgL_test1932z00_455 = 
SYMBOLP(BgL_auxz00_2557); } 
if(BgL_test1932z00_455)
{ /* ./Expand/object.scm 77 */
{ /* ./Expand/object.scm 78 */
obj_t BgL_arg1934z00_456;
BgL_arg1934z00_456 = 
CDR(BgL_sz00_438); 
{ 
obj_t BgL_sz00_2562;
BgL_sz00_2562 = BgL_arg1934z00_456; 
BgL_sz00_438 = BgL_sz00_2562; 
goto BgL_loopz00_439;} } }  else 
{ /* ./Expand/object.scm 77 */
{ /* ./Expand/object.scm 81 */
obj_t BgL_arg1938z00_457;
{ /* ./Expand/object.scm 81 */
obj_t BgL_arg1945z00_459;
{ /* ./Expand/object.scm 84 */
obj_t BgL_zc3anonymousza31951ze3z83_2371;
{ 
int BgL_auxz00_2565;int BgL_auxz00_2563;
BgL_auxz00_2565 = 
(int)(((long)1)); 
BgL_auxz00_2563 = 
(int)(((long)0)); 
BgL_zc3anonymousza31951ze3z83_2371 = 
make_fx_procedure(BGl_zc3anonymousza31951ze3z83zzexpand_objectz00, BgL_auxz00_2563, BgL_auxz00_2565); } 
{ /* ./Expand/object.scm 84 */
int BgL_auxz00_2568;
BgL_auxz00_2568 = 
(int)(((long)0)); 
PROCEDURE_SET(BgL_zc3anonymousza31951ze3z83_2371, BgL_auxz00_2568, BgL_sz00_438); } 
BgL_arg1945z00_459 = 
BGl_withzd2outputzd2tozd2stringzd2zz__r4_ports_6_10_1z00(BgL_zc3anonymousza31951ze3z83_2371); } 
BgL_arg1938z00_457 = 
string_append_3(BGl_string4894z00zzexpand_objectz00, BgL_arg1945z00_459, BGl_string4895z00zzexpand_objectz00); } 
FAILURE(BFALSE,BgL_arg1938z00_457,BgL_xz00_1);} } }  else 
{ /* ./Expand/object.scm 75 */
FAILURE(BFALSE,BGl_string4896z00zzexpand_objectz00,BgL_xz00_1);} } } } }  else 
{ /* ./Expand/object.scm 45 */
FAILURE(BFALSE,BGl_string4896z00zzexpand_objectz00,BgL_xz00_1);} } } } } }  else 
{ /* ./Expand/object.scm 40 */
BgL_tagzd2102zd2_422:
FAILURE(BFALSE,BGl_string4896z00zzexpand_objectz00,BgL_xz00_1);} }  else 
{ /* ./Expand/object.scm 40 */
goto BgL_tagzd2102zd2_422;} } }  else 
{ /* ./Expand/object.scm 40 */
goto BgL_tagzd2102zd2_422;} } }  else 
{ /* ./Expand/object.scm 40 */
goto BgL_tagzd2102zd2_422;} } }  else 
{ /* ./Expand/object.scm 40 */
goto BgL_tagzd2102zd2_422;} } } } 
}



/* _expand-with-access4592 */
obj_t BGl__expandzd2withzd2access4592z00zzexpand_objectz00(obj_t BgL_envz00_2372, obj_t BgL_xz00_2373, obj_t BgL_ez00_2374)
{ AN_OBJECT;
{ /* ./Expand/object.scm 39 */
return 
BGl_expandzd2withzd2accessz00zzexpand_objectz00(BgL_xz00_2373, BgL_ez00_2374);} 
}



/* <anonymous:1919> */
obj_t BGl_zc3anonymousza31919ze3z83zzexpand_objectz00(obj_t BgL_envz00_2375)
{ AN_OBJECT;
{ /* ./Expand/object.scm 62 */
{ /* ./Expand/object.scm 63 */
obj_t BgL_ez00_2376;obj_t BgL_markz00_2377;obj_t BgL_auxz00_2378;obj_t BgL_classzd2idzd2_2379;obj_t BgL_directz00_2380;obj_t BgL_instancez00_2381;obj_t BgL_indexedz00_2382;obj_t BgL_bodyz00_2383;
{ /* ./Expand/object.scm 63 */
int BgL_auxz00_2578;
BgL_auxz00_2578 = 
(int)(((long)0)); 
BgL_ez00_2376 = 
PROCEDURE_REF(BgL_envz00_2375, BgL_auxz00_2578); } 
{ /* ./Expand/object.scm 63 */
int BgL_auxz00_2581;
BgL_auxz00_2581 = 
(int)(((long)1)); 
BgL_markz00_2377 = 
PROCEDURE_REF(BgL_envz00_2375, BgL_auxz00_2581); } 
{ /* ./Expand/object.scm 63 */
int BgL_auxz00_2584;
BgL_auxz00_2584 = 
(int)(((long)2)); 
BgL_auxz00_2378 = 
PROCEDURE_REF(BgL_envz00_2375, BgL_auxz00_2584); } 
{ /* ./Expand/object.scm 63 */
int BgL_auxz00_2587;
BgL_auxz00_2587 = 
(int)(((long)3)); 
BgL_classzd2idzd2_2379 = 
PROCEDURE_REF(BgL_envz00_2375, BgL_auxz00_2587); } 
{ /* ./Expand/object.scm 63 */
int BgL_auxz00_2590;
BgL_auxz00_2590 = 
(int)(((long)4)); 
BgL_directz00_2380 = 
PROCEDURE_REF(BgL_envz00_2375, BgL_auxz00_2590); } 
{ /* ./Expand/object.scm 63 */
int BgL_auxz00_2593;
BgL_auxz00_2593 = 
(int)(((long)5)); 
BgL_instancez00_2381 = 
PROCEDURE_REF(BgL_envz00_2375, BgL_auxz00_2593); } 
{ /* ./Expand/object.scm 63 */
int BgL_auxz00_2596;
BgL_auxz00_2596 = 
(int)(((long)6)); 
BgL_indexedz00_2382 = 
PROCEDURE_REF(BgL_envz00_2375, BgL_auxz00_2596); } 
{ /* ./Expand/object.scm 63 */
int BgL_auxz00_2599;
BgL_auxz00_2599 = 
(int)(((long)7)); 
BgL_bodyz00_2383 = 
PROCEDURE_REF(BgL_envz00_2375, BgL_auxz00_2599); } 
{ 

{ /* ./Expand/object.scm 63 */
obj_t BgL_ez00_451;
BgL_ez00_451 = 
BGl_withzd2accesszd2expanderz00zzexpand_objectz00(BgL_ez00_2376, BgL_markz00_2377, BgL_auxz00_2378, BgL_classzd2idzd2_2379, BgL_directz00_2380); 
return 
BGl_makezd2withzd2accesszd2bodyzd2zzexpand_objectz00(BgL_auxz00_2378, BgL_instancez00_2381, BgL_classzd2idzd2_2379, BgL_indexedz00_2382, BgL_bodyz00_2383, BgL_ez00_451);} } } } 
}



/* <anonymous:1951> */
obj_t BGl_zc3anonymousza31951ze3z83zzexpand_objectz00(obj_t BgL_envz00_2384)
{ AN_OBJECT;
{ /* ./Expand/object.scm 84 */
{ /* ./Expand/object.scm 84 */
obj_t BgL_sz00_2385;
{ /* ./Expand/object.scm 84 */
int BgL_auxz00_2604;
BgL_auxz00_2604 = 
(int)(((long)0)); 
BgL_sz00_2385 = 
PROCEDURE_REF(BgL_envz00_2384, BgL_auxz00_2604); } 
{ 

{ /* ./Expand/object.scm 84 */
obj_t BgL_arg1953z00_463;obj_t BgL_arg1954z00_464;
BgL_arg1953z00_463 = 
CAR(BgL_sz00_2385); 
BgL_arg1954z00_464 = 
BGL_CURRENT_OUTPUT_PORT(); 
return 
BGl_displayzd22zd2zz__r4_output_6_10_3z00(BgL_arg1953z00_463, BgL_arg1954z00_464);} } } } 
}



/* class-split-slots */
obj_t BGl_classzd2splitzd2slotsz00zzexpand_objectz00(obj_t BgL_xz00_3, BgL_typez00_bglt BgL_classz00_4, obj_t BgL_slotsz00_5)
{ AN_OBJECT;
{ /* ./Expand/object.scm 96 */
{ /* ./Expand/object.scm 97 */
obj_t BgL_markz00_467;
BgL_markz00_467 = 
PROCEDURE_ENTRY(BGl_gensymz00zz__r4_symbols_6_4z00)(BGl_gensymz00zz__r4_symbols_6_4z00, 
CNST_TABLE_REF(((long)1)), BEOA); 
{ 
obj_t BgL_l1866z00_468;
{ /* ./Expand/object.scm 101 */
obj_t BgL_arg1973z00_470;
BgL_arg1973z00_470 = 
BGl_tclasszd2allzd2slotsz00zzobject_classz00(
(BgL_tclassz00_bglt)(BgL_classz00_4)); 
BgL_l1866z00_468 = BgL_arg1973z00_470; 
BgL_forzd2each1867zd2_469:
{ /* ./Expand/object.scm 98 */
bool_t BgL_test1976z00_471;
BgL_test1976z00_471 = 
PAIRP(BgL_l1866z00_468); 
if(BgL_test1976z00_471)
{ /* ./Expand/object.scm 98 */
{ /* ./Expand/object.scm 99 */
obj_t BgL_slotz00_472;
BgL_slotz00_472 = 
CAR(BgL_l1866z00_468); 
{ /* ./Expand/object.scm 100 */
obj_t BgL_arg1978z00_474;
{ /* ./Expand/object.scm 100 */
BgL_slotz00_bglt BgL_obj1808z00_1849;
BgL_obj1808z00_1849 = 
(BgL_slotz00_bglt)(BgL_slotz00_472); 
BgL_arg1978z00_474 = 
(((BgL_slotz00_bglt)CREF(BgL_obj1808z00_1849))->BgL_idz00); } 
BGl_putpropz12z12zz__r4_symbols_6_4z00(BgL_arg1978z00_474, BgL_markz00_467, BgL_slotz00_472); } } 
{ /* ./Expand/object.scm 98 */
obj_t BgL_arg1983z00_475;
BgL_arg1983z00_475 = 
CDR(BgL_l1866z00_468); 
{ 
obj_t BgL_l1866z00_2622;
BgL_l1866z00_2622 = BgL_arg1983z00_475; 
BgL_l1866z00_468 = BgL_l1866z00_2622; 
goto BgL_forzd2each1867zd2_469;} } }  else 
{ /* ./Expand/object.scm 98 */((bool_t)1); } } } } 
{ 
obj_t BgL_slotsz00_476;obj_t BgL_directz00_477;obj_t BgL_indexedz00_478;
BgL_slotsz00_476 = BgL_slotsz00_5; 
BgL_directz00_477 = BNIL; 
BgL_indexedz00_478 = BNIL; 
BgL_loopz00_479:
{ /* ./Expand/object.scm 105 */
bool_t BgL_test1988z00_480;
BgL_test1988z00_480 = 
NULLP(BgL_slotsz00_476); 
if(BgL_test1988z00_480)
{ /* ./Expand/object.scm 105 */
{ /* ./Expand/object.scm 106 */
int BgL_nz00_1852;
BgL_nz00_1852 = 
(int)(((long)2)); 
BGL_MVALUES_NUMBER_SET(BgL_nz00_1852); } 
{ /* ./Expand/object.scm 106 */
int BgL_nz00_1853;
BgL_nz00_1853 = 
(int)(((long)1)); 
BGL_MVALUES_VAL_SET(BgL_nz00_1853, BgL_indexedz00_478); } 
return BgL_directz00_477;}  else 
{ /* ./Expand/object.scm 107 */
obj_t BgL_slotz00_483;
BgL_slotz00_483 = 
BGl_getpropz00zz__r4_symbols_6_4z00(
CAR(BgL_slotsz00_476), BgL_markz00_467); 
{ /* ./Expand/object.scm 108 */
bool_t BgL_test1991z00_484;
BgL_test1991z00_484 = 
BGl_iszd2azf3z21zz__objectz00(BgL_slotz00_483, BGl_slotz00zzobject_slotsz00); 
if(BgL_test1991z00_484)
{ /* ./Expand/object.scm 115 */
bool_t BgL_test1992z00_485;
{ /* ./Expand/object.scm 115 */
BgL_slotz00_bglt BgL_obj1824z00_1857;
BgL_obj1824z00_1857 = 
(BgL_slotz00_bglt)(BgL_slotz00_483); 
{ /* ./Expand/object.scm 115 */
obj_t BgL_auxz00_2634;
BgL_auxz00_2634 = 
(((BgL_slotz00_bglt)CREF(BgL_obj1824z00_1857))->BgL_indexedz00); 
BgL_test1992z00_485 = 
CBOOL(BgL_auxz00_2634); } } 
if(BgL_test1992z00_485)
{ /* ./Expand/object.scm 116 */
obj_t BgL_arg1994z00_486;obj_t BgL_arg1995z00_487;
BgL_arg1994z00_486 = 
CDR(BgL_slotsz00_476); 
BgL_arg1995z00_487 = 
MAKE_PAIR(BgL_slotz00_483, BgL_indexedz00_478); 
{ 
obj_t BgL_indexedz00_2641;obj_t BgL_slotsz00_2640;
BgL_slotsz00_2640 = BgL_arg1994z00_486; 
BgL_indexedz00_2641 = BgL_arg1995z00_487; 
BgL_indexedz00_478 = BgL_indexedz00_2641; 
BgL_slotsz00_476 = BgL_slotsz00_2640; 
goto BgL_loopz00_479;} }  else 
{ /* ./Expand/object.scm 119 */
obj_t BgL_arg2000z00_488;obj_t BgL_arg2001z00_489;
BgL_arg2000z00_488 = 
CDR(BgL_slotsz00_476); 
{ /* ./Expand/object.scm 120 */
obj_t BgL_arg2005z00_490;
BgL_arg2005z00_490 = 
CAR(BgL_slotsz00_476); 
BgL_arg2001z00_489 = 
MAKE_PAIR(BgL_arg2005z00_490, BgL_directz00_477); } 
{ 
obj_t BgL_directz00_2646;obj_t BgL_slotsz00_2645;
BgL_slotsz00_2645 = BgL_arg2000z00_488; 
BgL_directz00_2646 = BgL_arg2001z00_489; 
BgL_directz00_477 = BgL_directz00_2646; 
BgL_slotsz00_476 = BgL_slotsz00_2645; 
goto BgL_loopz00_479;} } }  else 
{ /* ./Expand/object.scm 110 */
obj_t BgL_arg2010z00_491;
{ /* ./Expand/object.scm 110 */
obj_t BgL_arg2015z00_493;
{ /* ./Expand/object.scm 112 */
obj_t BgL_arg2019z00_495;
BgL_arg2019z00_495 = 
CAR(BgL_slotsz00_476); 
BgL_arg2015z00_493 = 
SYMBOL_TO_STRING(BgL_arg2019z00_495); } 
BgL_arg2010z00_491 = 
string_append_3(BGl_string4897z00zzexpand_objectz00, BgL_arg2015z00_493, BGl_string4895z00zzexpand_objectz00); } 
FAILURE(BFALSE,BgL_arg2010z00_491,BgL_xz00_3);} } } } } } } 
}



/* make-with-access-body */
obj_t BGl_makezd2withzd2accesszd2bodyzd2zzexpand_objectz00(obj_t BgL_auxz00_6, obj_t BgL_instancez00_7, obj_t BgL_classzd2idzd2_8, obj_t BgL_indexedz00_9, obj_t BgL_bodyz00_10, obj_t BgL_ez00_11)
{ AN_OBJECT;
{ /* ./Expand/object.scm 126 */
{ /* ./Expand/object.scm 156 */
obj_t BgL_arg2032z00_498;obj_t BgL_arg2033z00_499;
BgL_arg2032z00_498 = 
CNST_TABLE_REF(((long)2)); 
{ /* ./Expand/object.scm 156 */
obj_t BgL_arg2037z00_500;obj_t BgL_arg2038z00_501;
{ /* ./Expand/object.scm 156 */
obj_t BgL_arg2041z00_502;
{ /* ./Expand/object.scm 156 */
obj_t BgL_arg2045z00_504;
BgL_arg2045z00_504 = 
MAKE_PAIR(BgL_instancez00_7, BNIL); 
BgL_arg2041z00_502 = 
MAKE_PAIR(BgL_auxz00_6, BgL_arg2045z00_504); } 
BgL_arg2037z00_500 = 
MAKE_PAIR(BgL_arg2041z00_502, BNIL); } 
{ /* ./Expand/object.scm 157 */
obj_t BgL_arg2049z00_505;
BgL_arg2049z00_505 = 
BGl_loopz00zzexpand_objectz00(BgL_bodyz00_10, BgL_ez00_11, BgL_auxz00_6, BgL_classzd2idzd2_8, BgL_indexedz00_9); 
BgL_arg2038z00_501 = 
MAKE_PAIR(BgL_arg2049z00_505, BNIL); } 
BgL_arg2033z00_499 = 
MAKE_PAIR(BgL_arg2037z00_500, BgL_arg2038z00_501); } 
return 
MAKE_PAIR(BgL_arg2032z00_498, BgL_arg2033z00_499);} } 
}



/* loop */
obj_t BGl_loopz00zzexpand_objectz00(obj_t BgL_bodyz00_2438, obj_t BgL_ez00_2437, obj_t BgL_auxz00_2436, obj_t BgL_classzd2idzd2_2435, obj_t BgL_indexedz00_508)
{ AN_OBJECT;
{ /* ./Expand/object.scm 128 */
{ /* ./Expand/object.scm 130 */
bool_t BgL_test2055z00_510;
BgL_test2055z00_510 = 
NULLP(BgL_indexedz00_508); 
if(BgL_test2055z00_510)
{ /* ./Expand/object.scm 130 */
{ /* ./Expand/object.scm 131 */
obj_t BgL_arg2057z00_511;
BgL_arg2057z00_511 = 
BGl_normaliza7ezd2prognz75zztools_prognz00(BgL_bodyz00_2438); 
return 
PROCEDURE_ENTRY(BgL_ez00_2437)(BgL_ez00_2437, BgL_arg2057z00_511, BgL_ez00_2437, BEOA);} }  else 
{ /* ./Expand/object.scm 132 */
bool_t BgL_test2060z00_512;
{ /* ./Expand/object.scm 132 */
BgL_slotz00_bglt BgL_obj1813z00_1868;
{ /* ./Expand/object.scm 132 */
obj_t BgL_auxz00_2664;
BgL_auxz00_2664 = 
CAR(BgL_indexedz00_508); 
BgL_obj1813z00_1868 = 
(BgL_slotz00_bglt)(BgL_auxz00_2664); } 
BgL_test2060z00_512 = 
(((BgL_slotz00_bglt)CREF(BgL_obj1813z00_1868))->BgL_readzd2onlyzf3z21); } 
if(BgL_test2060z00_512)
{ /* ./Expand/object.scm 132 */
{ /* ./Expand/object.scm 133 */
obj_t BgL_slotz00_513;
BgL_slotz00_513 = 
CAR(BgL_indexedz00_508); 
{ /* ./Expand/object.scm 133 */
obj_t BgL_srefz00_514;
{ /* ./Expand/object.scm 134 */
obj_t BgL_arg2170z00_561;obj_t BgL_arg2171z00_562;
{ /* ./Expand/object.scm 134 */
BgL_slotz00_bglt BgL_obj1808z00_1870;
BgL_obj1808z00_1870 = 
(BgL_slotz00_bglt)(BgL_slotz00_513); 
BgL_arg2170z00_561 = 
(((BgL_slotz00_bglt)CREF(BgL_obj1808z00_1870))->BgL_idz00); } 
BgL_arg2171z00_562 = 
CNST_TABLE_REF(((long)3)); 
{ /* ./Expand/object.scm 134 */
obj_t BgL_list2173z00_563;
{ /* ./Expand/object.scm 134 */
obj_t BgL_arg2175z00_564;
BgL_arg2175z00_564 = 
MAKE_PAIR(BgL_arg2171z00_562, BNIL); 
BgL_list2173z00_563 = 
MAKE_PAIR(BgL_arg2170z00_561, BgL_arg2175z00_564); } 
BgL_srefz00_514 = 
BGl_symbolzd2appendzd2zz__r4_symbols_6_4z00(BgL_list2173z00_563); } } 
{ /* ./Expand/object.scm 134 */
obj_t BgL_fullzd2srefzd2_515;
{ /* ./Expand/object.scm 135 */
obj_t BgL_list2160z00_557;
{ /* ./Expand/object.scm 135 */
obj_t BgL_arg2162z00_558;
{ /* ./Expand/object.scm 135 */
obj_t BgL_arg2165z00_559;obj_t BgL_arg2166z00_560;
BgL_arg2165z00_559 = 
CNST_TABLE_REF(((long)4)); 
BgL_arg2166z00_560 = 
MAKE_PAIR(BgL_srefz00_514, BNIL); 
BgL_arg2162z00_558 = 
MAKE_PAIR(BgL_arg2165z00_559, BgL_arg2166z00_560); } 
BgL_list2160z00_557 = 
MAKE_PAIR(BgL_classzd2idzd2_2435, BgL_arg2162z00_558); } 
BgL_fullzd2srefzd2_515 = 
BGl_symbolzd2appendzd2zz__r4_symbols_6_4z00(BgL_list2160z00_557); } 
{ /* ./Expand/object.scm 135 */
obj_t BgL_slenz00_516;
{ /* ./Expand/object.scm 136 */
obj_t BgL_arg2150z00_553;obj_t BgL_arg2151z00_554;
{ /* ./Expand/object.scm 136 */
BgL_slotz00_bglt BgL_obj1808z00_1871;
BgL_obj1808z00_1871 = 
(BgL_slotz00_bglt)(BgL_slotz00_513); 
BgL_arg2150z00_553 = 
(((BgL_slotz00_bglt)CREF(BgL_obj1808z00_1871))->BgL_idz00); } 
BgL_arg2151z00_554 = 
CNST_TABLE_REF(((long)5)); 
{ /* ./Expand/object.scm 136 */
obj_t BgL_list2153z00_555;
{ /* ./Expand/object.scm 136 */
obj_t BgL_arg2155z00_556;
BgL_arg2155z00_556 = 
MAKE_PAIR(BgL_arg2151z00_554, BNIL); 
BgL_list2153z00_555 = 
MAKE_PAIR(BgL_arg2150z00_553, BgL_arg2155z00_556); } 
BgL_slenz00_516 = 
BGl_symbolzd2appendzd2zz__r4_symbols_6_4z00(BgL_list2153z00_555); } } 
{ /* ./Expand/object.scm 136 */
obj_t BgL_fullzd2slenzd2_517;
{ /* ./Expand/object.scm 137 */
obj_t BgL_list2140z00_549;
{ /* ./Expand/object.scm 137 */
obj_t BgL_arg2142z00_550;
{ /* ./Expand/object.scm 137 */
obj_t BgL_arg2145z00_551;obj_t BgL_arg2146z00_552;
BgL_arg2145z00_551 = 
CNST_TABLE_REF(((long)4)); 
BgL_arg2146z00_552 = 
MAKE_PAIR(BgL_slenz00_516, BNIL); 
BgL_arg2142z00_550 = 
MAKE_PAIR(BgL_arg2145z00_551, BgL_arg2146z00_552); } 
BgL_list2140z00_549 = 
MAKE_PAIR(BgL_classzd2idzd2_2435, BgL_arg2142z00_550); } 
BgL_fullzd2slenzd2_517 = 
BGl_symbolzd2appendzd2zz__r4_symbols_6_4z00(BgL_list2140z00_549); } 
{ /* ./Expand/object.scm 137 */
obj_t BgL_iz00_518;
{ /* ./Expand/object.scm 138 */
obj_t BgL_arg2136z00_548;
BgL_arg2136z00_548 = 
PROCEDURE_ENTRY(BGl_gensymz00zz__r4_symbols_6_4z00)(BGl_gensymz00zz__r4_symbols_6_4z00, 
CNST_TABLE_REF(((long)6)), BEOA); 
BgL_iz00_518 = 
BGl_markzd2symbolzd2nonzd2userz12zc0zzast_identz00(BgL_arg2136z00_548); } 
{ /* ./Expand/object.scm 138 */

{ /* ./Expand/object.scm 139 */
obj_t BgL_arg2062z00_519;obj_t BgL_arg2063z00_520;
BgL_arg2062z00_519 = 
CNST_TABLE_REF(((long)2)); 
{ /* ./Expand/object.scm 139 */
obj_t BgL_arg2066z00_521;obj_t BgL_arg2067z00_522;
{ /* ./Expand/object.scm 139 */
obj_t BgL_arg2070z00_523;
{ /* ./Expand/object.scm 139 */
obj_t BgL_arg2074z00_525;
{ /* ./Expand/object.scm 139 */
obj_t BgL_arg2077z00_526;
{ /* ./Expand/object.scm 139 */
obj_t BgL_arg2081z00_528;
{ /* ./Expand/object.scm 139 */
obj_t BgL_arg2084z00_529;
BgL_arg2084z00_529 = 
MAKE_PAIR(BgL_auxz00_2436, BNIL); 
BgL_arg2081z00_528 = 
MAKE_PAIR(BgL_fullzd2slenzd2_517, BgL_arg2084z00_529); } 
BgL_arg2077z00_526 = 
PROCEDURE_ENTRY(BgL_ez00_2437)(BgL_ez00_2437, BgL_arg2081z00_528, BgL_ez00_2437, BEOA); } 
BgL_arg2074z00_525 = 
MAKE_PAIR(BgL_arg2077z00_526, BNIL); } 
BgL_arg2070z00_523 = 
MAKE_PAIR(BgL_slenz00_516, BgL_arg2074z00_525); } 
BgL_arg2066z00_521 = 
MAKE_PAIR(BgL_arg2070z00_523, BNIL); } 
{ /* ./Expand/object.scm 140 */
obj_t BgL_arg2088z00_530;
{ /* ./Expand/object.scm 140 */
obj_t BgL_arg2092z00_532;obj_t BgL_arg2093z00_533;
BgL_arg2092z00_532 = 
CNST_TABLE_REF(((long)7)); 
{ /* ./Expand/object.scm 140 */
obj_t BgL_arg2096z00_534;obj_t BgL_arg2097z00_535;
{ /* ./Expand/object.scm 140 */
obj_t BgL_arg2100z00_536;
{ /* ./Expand/object.scm 140 */
obj_t BgL_arg2105z00_538;
{ /* ./Expand/object.scm 140 */
obj_t BgL_arg2108z00_539;obj_t BgL_arg2109z00_540;
BgL_arg2108z00_539 = 
MAKE_PAIR(BgL_iz00_518, BNIL); 
{ /* ./Expand/object.scm 140 */
obj_t BgL_arg2113z00_541;
{ /* ./Expand/object.scm 140 */
obj_t BgL_arg2118z00_543;
{ /* ./Expand/object.scm 140 */
obj_t BgL_arg2122z00_544;
BgL_arg2122z00_544 = 
MAKE_PAIR(BgL_iz00_518, BNIL); 
BgL_arg2118z00_543 = 
MAKE_PAIR(BgL_auxz00_2436, BgL_arg2122z00_544); } 
BgL_arg2113z00_541 = 
MAKE_PAIR(BgL_fullzd2srefzd2_515, BgL_arg2118z00_543); } 
BgL_arg2109z00_540 = 
MAKE_PAIR(BgL_arg2113z00_541, BNIL); } 
BgL_arg2105z00_538 = 
MAKE_PAIR(BgL_arg2108z00_539, BgL_arg2109z00_540); } 
BgL_arg2100z00_536 = 
MAKE_PAIR(BgL_srefz00_514, BgL_arg2105z00_538); } 
BgL_arg2096z00_534 = 
MAKE_PAIR(BgL_arg2100z00_536, BNIL); } 
{ /* ./Expand/object.scm 141 */
obj_t BgL_arg2126z00_545;
{ /* ./Expand/object.scm 141 */
obj_t BgL_arg2132z00_547;
BgL_arg2132z00_547 = 
CDR(BgL_indexedz00_508); 
BgL_arg2126z00_545 = 
BGl_loopz00zzexpand_objectz00(BgL_bodyz00_2438, BgL_ez00_2437, BgL_auxz00_2436, BgL_classzd2idzd2_2435, BgL_arg2132z00_547); } 
BgL_arg2097z00_535 = 
MAKE_PAIR(BgL_arg2126z00_545, BNIL); } 
BgL_arg2093z00_533 = 
MAKE_PAIR(BgL_arg2096z00_534, BgL_arg2097z00_535); } 
BgL_arg2088z00_530 = 
MAKE_PAIR(BgL_arg2092z00_532, BgL_arg2093z00_533); } 
BgL_arg2067z00_522 = 
MAKE_PAIR(BgL_arg2088z00_530, BNIL); } 
BgL_arg2063z00_520 = 
MAKE_PAIR(BgL_arg2066z00_521, BgL_arg2067z00_522); } 
return 
MAKE_PAIR(BgL_arg2062z00_519, BgL_arg2063z00_520);} } } } } } } } }  else 
{ /* ./Expand/object.scm 132 */
{ /* ./Expand/object.scm 143 */
obj_t BgL_slotz00_565;
BgL_slotz00_565 = 
CAR(BgL_indexedz00_508); 
{ /* ./Expand/object.scm 143 */
obj_t BgL_srefz00_566;
{ /* ./Expand/object.scm 144 */
obj_t BgL_arg2341z00_636;obj_t BgL_arg2342z00_637;
{ /* ./Expand/object.scm 144 */
BgL_slotz00_bglt BgL_obj1808z00_1874;
BgL_obj1808z00_1874 = 
(BgL_slotz00_bglt)(BgL_slotz00_565); 
BgL_arg2341z00_636 = 
(((BgL_slotz00_bglt)CREF(BgL_obj1808z00_1874))->BgL_idz00); } 
BgL_arg2342z00_637 = 
CNST_TABLE_REF(((long)3)); 
{ /* ./Expand/object.scm 144 */
obj_t BgL_list2344z00_638;
{ /* ./Expand/object.scm 144 */
obj_t BgL_arg2346z00_639;
BgL_arg2346z00_639 = 
MAKE_PAIR(BgL_arg2342z00_637, BNIL); 
BgL_list2344z00_638 = 
MAKE_PAIR(BgL_arg2341z00_636, BgL_arg2346z00_639); } 
BgL_srefz00_566 = 
BGl_symbolzd2appendzd2zz__r4_symbols_6_4z00(BgL_list2344z00_638); } } 
{ /* ./Expand/object.scm 144 */
obj_t BgL_fullzd2srefzd2_567;
{ /* ./Expand/object.scm 145 */
obj_t BgL_list2330z00_632;
{ /* ./Expand/object.scm 145 */
obj_t BgL_arg2332z00_633;
{ /* ./Expand/object.scm 145 */
obj_t BgL_arg2335z00_634;obj_t BgL_arg2336z00_635;
BgL_arg2335z00_634 = 
CNST_TABLE_REF(((long)4)); 
BgL_arg2336z00_635 = 
MAKE_PAIR(BgL_srefz00_566, BNIL); 
BgL_arg2332z00_633 = 
MAKE_PAIR(BgL_arg2335z00_634, BgL_arg2336z00_635); } 
BgL_list2330z00_632 = 
MAKE_PAIR(BgL_classzd2idzd2_2435, BgL_arg2332z00_633); } 
BgL_fullzd2srefzd2_567 = 
BGl_symbolzd2appendzd2zz__r4_symbols_6_4z00(BgL_list2330z00_632); } 
{ /* ./Expand/object.scm 145 */
obj_t BgL_ssetz00_568;
{ /* ./Expand/object.scm 146 */
obj_t BgL_arg2320z00_628;obj_t BgL_arg2321z00_629;
{ /* ./Expand/object.scm 146 */
BgL_slotz00_bglt BgL_obj1808z00_1875;
BgL_obj1808z00_1875 = 
(BgL_slotz00_bglt)(BgL_slotz00_565); 
BgL_arg2320z00_628 = 
(((BgL_slotz00_bglt)CREF(BgL_obj1808z00_1875))->BgL_idz00); } 
BgL_arg2321z00_629 = 
CNST_TABLE_REF(((long)8)); 
{ /* ./Expand/object.scm 146 */
obj_t BgL_list2323z00_630;
{ /* ./Expand/object.scm 146 */
obj_t BgL_arg2325z00_631;
BgL_arg2325z00_631 = 
MAKE_PAIR(BgL_arg2321z00_629, BNIL); 
BgL_list2323z00_630 = 
MAKE_PAIR(BgL_arg2320z00_628, BgL_arg2325z00_631); } 
BgL_ssetz00_568 = 
BGl_symbolzd2appendzd2zz__r4_symbols_6_4z00(BgL_list2323z00_630); } } 
{ /* ./Expand/object.scm 146 */
obj_t BgL_fullzd2ssetzd2_569;
{ /* ./Expand/object.scm 147 */
obj_t BgL_list2310z00_624;
{ /* ./Expand/object.scm 147 */
obj_t BgL_arg2312z00_625;
{ /* ./Expand/object.scm 147 */
obj_t BgL_arg2315z00_626;obj_t BgL_arg2316z00_627;
BgL_arg2315z00_626 = 
CNST_TABLE_REF(((long)4)); 
BgL_arg2316z00_627 = 
MAKE_PAIR(BgL_ssetz00_568, BNIL); 
BgL_arg2312z00_625 = 
MAKE_PAIR(BgL_arg2315z00_626, BgL_arg2316z00_627); } 
BgL_list2310z00_624 = 
MAKE_PAIR(BgL_classzd2idzd2_2435, BgL_arg2312z00_625); } 
BgL_fullzd2ssetzd2_569 = 
BGl_symbolzd2appendzd2zz__r4_symbols_6_4z00(BgL_list2310z00_624); } 
{ /* ./Expand/object.scm 147 */
obj_t BgL_slenz00_570;
{ /* ./Expand/object.scm 148 */
obj_t BgL_arg2300z00_620;obj_t BgL_arg2301z00_621;
{ /* ./Expand/object.scm 148 */
BgL_slotz00_bglt BgL_obj1808z00_1876;
BgL_obj1808z00_1876 = 
(BgL_slotz00_bglt)(BgL_slotz00_565); 
BgL_arg2300z00_620 = 
(((BgL_slotz00_bglt)CREF(BgL_obj1808z00_1876))->BgL_idz00); } 
BgL_arg2301z00_621 = 
CNST_TABLE_REF(((long)5)); 
{ /* ./Expand/object.scm 148 */
obj_t BgL_list2303z00_622;
{ /* ./Expand/object.scm 148 */
obj_t BgL_arg2305z00_623;
BgL_arg2305z00_623 = 
MAKE_PAIR(BgL_arg2301z00_621, BNIL); 
BgL_list2303z00_622 = 
MAKE_PAIR(BgL_arg2300z00_620, BgL_arg2305z00_623); } 
BgL_slenz00_570 = 
BGl_symbolzd2appendzd2zz__r4_symbols_6_4z00(BgL_list2303z00_622); } } 
{ /* ./Expand/object.scm 148 */
obj_t BgL_fullzd2slenzd2_571;
{ /* ./Expand/object.scm 149 */
obj_t BgL_list2290z00_616;
{ /* ./Expand/object.scm 149 */
obj_t BgL_arg2292z00_617;
{ /* ./Expand/object.scm 149 */
obj_t BgL_arg2295z00_618;obj_t BgL_arg2296z00_619;
BgL_arg2295z00_618 = 
CNST_TABLE_REF(((long)4)); 
BgL_arg2296z00_619 = 
MAKE_PAIR(BgL_slenz00_570, BNIL); 
BgL_arg2292z00_617 = 
MAKE_PAIR(BgL_arg2295z00_618, BgL_arg2296z00_619); } 
BgL_list2290z00_616 = 
MAKE_PAIR(BgL_classzd2idzd2_2435, BgL_arg2292z00_617); } 
BgL_fullzd2slenzd2_571 = 
BGl_symbolzd2appendzd2zz__r4_symbols_6_4z00(BgL_list2290z00_616); } 
{ /* ./Expand/object.scm 149 */
obj_t BgL_iz00_572;
{ /* ./Expand/object.scm 150 */
obj_t BgL_arg2286z00_615;
BgL_arg2286z00_615 = 
PROCEDURE_ENTRY(BGl_gensymz00zz__r4_symbols_6_4z00)(BGl_gensymz00zz__r4_symbols_6_4z00, 
CNST_TABLE_REF(((long)6)), BEOA); 
BgL_iz00_572 = 
BGl_markzd2symbolzd2nonzd2userz12zc0zzast_identz00(BgL_arg2286z00_615); } 
{ /* ./Expand/object.scm 150 */
obj_t BgL_vz00_573;
{ /* ./Expand/object.scm 151 */
obj_t BgL_arg2282z00_614;
BgL_arg2282z00_614 = 
PROCEDURE_ENTRY(BGl_gensymz00zz__r4_symbols_6_4z00)(BGl_gensymz00zz__r4_symbols_6_4z00, 
CNST_TABLE_REF(((long)9)), BEOA); 
BgL_vz00_573 = 
BGl_markzd2symbolzd2nonzd2userz12zc0zzast_identz00(BgL_arg2282z00_614); } 
{ /* ./Expand/object.scm 151 */

{ /* ./Expand/object.scm 152 */
obj_t BgL_arg2181z00_574;obj_t BgL_arg2182z00_575;
BgL_arg2181z00_574 = 
CNST_TABLE_REF(((long)2)); 
{ /* ./Expand/object.scm 152 */
obj_t BgL_arg2185z00_576;obj_t BgL_arg2187z00_577;
{ /* ./Expand/object.scm 152 */
obj_t BgL_arg2190z00_578;
{ /* ./Expand/object.scm 152 */
obj_t BgL_arg2194z00_580;
{ /* ./Expand/object.scm 152 */
obj_t BgL_arg2197z00_581;
{ /* ./Expand/object.scm 152 */
obj_t BgL_arg2201z00_583;
{ /* ./Expand/object.scm 152 */
obj_t BgL_arg2204z00_584;
BgL_arg2204z00_584 = 
MAKE_PAIR(BgL_auxz00_2436, BNIL); 
BgL_arg2201z00_583 = 
MAKE_PAIR(BgL_fullzd2slenzd2_571, BgL_arg2204z00_584); } 
BgL_arg2197z00_581 = 
PROCEDURE_ENTRY(BgL_ez00_2437)(BgL_ez00_2437, BgL_arg2201z00_583, BgL_ez00_2437, BEOA); } 
BgL_arg2194z00_580 = 
MAKE_PAIR(BgL_arg2197z00_581, BNIL); } 
BgL_arg2190z00_578 = 
MAKE_PAIR(BgL_slenz00_570, BgL_arg2194z00_580); } 
BgL_arg2185z00_576 = 
MAKE_PAIR(BgL_arg2190z00_578, BNIL); } 
{ /* ./Expand/object.scm 153 */
obj_t BgL_arg2209z00_585;
{ /* ./Expand/object.scm 153 */
obj_t BgL_arg2213z00_587;obj_t BgL_arg2214z00_588;
BgL_arg2213z00_587 = 
CNST_TABLE_REF(((long)7)); 
{ /* ./Expand/object.scm 153 */
obj_t BgL_arg2217z00_589;obj_t BgL_arg2218z00_590;
{ /* ./Expand/object.scm 153 */
obj_t BgL_arg2221z00_591;obj_t BgL_arg2222z00_592;
{ /* ./Expand/object.scm 153 */
obj_t BgL_arg2225z00_593;
{ /* ./Expand/object.scm 153 */
obj_t BgL_arg2228z00_594;obj_t BgL_arg2229z00_595;
BgL_arg2228z00_594 = 
MAKE_PAIR(BgL_iz00_572, BNIL); 
{ /* ./Expand/object.scm 153 */
obj_t BgL_arg2233z00_596;
{ /* ./Expand/object.scm 153 */
obj_t BgL_arg2237z00_598;
{ /* ./Expand/object.scm 153 */
obj_t BgL_arg2240z00_599;
BgL_arg2240z00_599 = 
MAKE_PAIR(BgL_iz00_572, BNIL); 
BgL_arg2237z00_598 = 
MAKE_PAIR(BgL_auxz00_2436, BgL_arg2240z00_599); } 
BgL_arg2233z00_596 = 
MAKE_PAIR(BgL_fullzd2srefzd2_567, BgL_arg2237z00_598); } 
BgL_arg2229z00_595 = 
MAKE_PAIR(BgL_arg2233z00_596, BNIL); } 
BgL_arg2225z00_593 = 
MAKE_PAIR(BgL_arg2228z00_594, BgL_arg2229z00_595); } 
BgL_arg2221z00_591 = 
MAKE_PAIR(BgL_srefz00_566, BgL_arg2225z00_593); } 
{ /* ./Expand/object.scm 154 */
obj_t BgL_arg2244z00_600;
{ /* ./Expand/object.scm 154 */
obj_t BgL_arg2248z00_602;
{ /* ./Expand/object.scm 154 */
obj_t BgL_arg2251z00_603;obj_t BgL_arg2252z00_604;
{ /* ./Expand/object.scm 154 */
obj_t BgL_arg2255z00_605;
BgL_arg2255z00_605 = 
MAKE_PAIR(BgL_vz00_573, BNIL); 
BgL_arg2251z00_603 = 
MAKE_PAIR(BgL_iz00_572, BgL_arg2255z00_605); } 
{ /* ./Expand/object.scm 154 */
obj_t BgL_arg2260z00_606;
{ /* ./Expand/object.scm 154 */
obj_t BgL_arg2264z00_608;
{ /* ./Expand/object.scm 154 */
obj_t BgL_arg2267z00_609;
{ /* ./Expand/object.scm 154 */
obj_t BgL_arg2270z00_610;
BgL_arg2270z00_610 = 
MAKE_PAIR(BgL_vz00_573, BNIL); 
BgL_arg2267z00_609 = 
MAKE_PAIR(BgL_iz00_572, BgL_arg2270z00_610); } 
BgL_arg2264z00_608 = 
MAKE_PAIR(BgL_auxz00_2436, BgL_arg2267z00_609); } 
BgL_arg2260z00_606 = 
MAKE_PAIR(BgL_fullzd2ssetzd2_569, BgL_arg2264z00_608); } 
BgL_arg2252z00_604 = 
MAKE_PAIR(BgL_arg2260z00_606, BNIL); } 
BgL_arg2248z00_602 = 
MAKE_PAIR(BgL_arg2251z00_603, BgL_arg2252z00_604); } 
BgL_arg2244z00_600 = 
MAKE_PAIR(BgL_ssetz00_568, BgL_arg2248z00_602); } 
BgL_arg2222z00_592 = 
MAKE_PAIR(BgL_arg2244z00_600, BNIL); } 
BgL_arg2217z00_589 = 
MAKE_PAIR(BgL_arg2221z00_591, BgL_arg2222z00_592); } 
{ /* ./Expand/object.scm 155 */
obj_t BgL_arg2274z00_611;
{ /* ./Expand/object.scm 155 */
obj_t BgL_arg2278z00_613;
BgL_arg2278z00_613 = 
CDR(BgL_indexedz00_508); 
BgL_arg2274z00_611 = 
BGl_loopz00zzexpand_objectz00(BgL_bodyz00_2438, BgL_ez00_2437, BgL_auxz00_2436, BgL_classzd2idzd2_2435, BgL_arg2278z00_613); } 
BgL_arg2218z00_590 = 
MAKE_PAIR(BgL_arg2274z00_611, BNIL); } 
BgL_arg2214z00_588 = 
MAKE_PAIR(BgL_arg2217z00_589, BgL_arg2218z00_590); } 
BgL_arg2209z00_585 = 
MAKE_PAIR(BgL_arg2213z00_587, BgL_arg2214z00_588); } 
BgL_arg2187z00_577 = 
MAKE_PAIR(BgL_arg2209z00_585, BNIL); } 
BgL_arg2182z00_575 = 
MAKE_PAIR(BgL_arg2185z00_576, BgL_arg2187z00_577); } 
return 
MAKE_PAIR(BgL_arg2181z00_574, BgL_arg2182z00_575);} } } } } } } } } } } } } } } 
}



/* with-access-expander */
obj_t BGl_withzd2accesszd2expanderz00zzexpand_objectz00(obj_t BgL_oldez00_12, obj_t BgL_markz00_13, obj_t BgL_instancez00_14, obj_t BgL_classz00_15, obj_t BgL_slotsz00_16)
{ AN_OBJECT;
{ /* ./Expand/object.scm 162 */
{ /* ./Expand/object.scm 163 */
obj_t BgL_zc3anonymousza32357ze3z83_2386;
{ 
int BgL_auxz00_2800;int BgL_auxz00_2798;
BgL_auxz00_2800 = 
(int)(((long)5)); 
BgL_auxz00_2798 = 
(int)(((long)2)); 
BgL_zc3anonymousza32357ze3z83_2386 = 
make_fx_procedure(BGl_zc3anonymousza32357ze3z83zzexpand_objectz00, BgL_auxz00_2798, BgL_auxz00_2800); } 
{ /* ./Expand/object.scm 163 */
int BgL_auxz00_2803;
BgL_auxz00_2803 = 
(int)(((long)0)); 
PROCEDURE_SET(BgL_zc3anonymousza32357ze3z83_2386, BgL_auxz00_2803, BgL_slotsz00_16); } 
{ /* ./Expand/object.scm 163 */
int BgL_auxz00_2806;
BgL_auxz00_2806 = 
(int)(((long)1)); 
PROCEDURE_SET(BgL_zc3anonymousza32357ze3z83_2386, BgL_auxz00_2806, BgL_markz00_13); } 
{ /* ./Expand/object.scm 163 */
int BgL_auxz00_2809;
BgL_auxz00_2809 = 
(int)(((long)2)); 
PROCEDURE_SET(BgL_zc3anonymousza32357ze3z83_2386, BgL_auxz00_2809, BgL_oldez00_12); } 
{ /* ./Expand/object.scm 163 */
int BgL_auxz00_2812;
BgL_auxz00_2812 = 
(int)(((long)3)); 
PROCEDURE_SET(BgL_zc3anonymousza32357ze3z83_2386, BgL_auxz00_2812, BgL_classz00_15); } 
{ /* ./Expand/object.scm 163 */
int BgL_auxz00_2815;
BgL_auxz00_2815 = 
(int)(((long)4)); 
PROCEDURE_SET(BgL_zc3anonymousza32357ze3z83_2386, BgL_auxz00_2815, BgL_instancez00_14); } 
return BgL_zc3anonymousza32357ze3z83_2386;} } 
}



/* <anonymous:2357> */
obj_t BGl_zc3anonymousza32357ze3z83zzexpand_objectz00(obj_t BgL_envz00_2387, obj_t BgL_xz00_2393, obj_t BgL_ez00_2394)
{ AN_OBJECT;
{ /* ./Expand/object.scm 163 */
{ /* ./Expand/object.scm 163 */
obj_t BgL_slotsz00_2388;obj_t BgL_markz00_2389;obj_t BgL_oldez00_2390;obj_t BgL_classz00_2391;obj_t BgL_instancez00_2392;
{ /* ./Expand/object.scm 163 */
int BgL_auxz00_2818;
BgL_auxz00_2818 = 
(int)(((long)0)); 
BgL_slotsz00_2388 = 
PROCEDURE_REF(BgL_envz00_2387, BgL_auxz00_2818); } 
{ /* ./Expand/object.scm 163 */
int BgL_auxz00_2821;
BgL_auxz00_2821 = 
(int)(((long)1)); 
BgL_markz00_2389 = 
PROCEDURE_REF(BgL_envz00_2387, BgL_auxz00_2821); } 
{ /* ./Expand/object.scm 163 */
int BgL_auxz00_2824;
BgL_auxz00_2824 = 
(int)(((long)2)); 
BgL_oldez00_2390 = 
PROCEDURE_REF(BgL_envz00_2387, BgL_auxz00_2824); } 
{ /* ./Expand/object.scm 163 */
int BgL_auxz00_2827;
BgL_auxz00_2827 = 
(int)(((long)3)); 
BgL_classz00_2391 = 
PROCEDURE_REF(BgL_envz00_2387, BgL_auxz00_2827); } 
{ /* ./Expand/object.scm 163 */
int BgL_auxz00_2830;
BgL_auxz00_2830 = 
(int)(((long)4)); 
BgL_instancez00_2392 = 
PROCEDURE_REF(BgL_envz00_2387, BgL_auxz00_2830); } 
{ 
obj_t BgL_xz00_642;obj_t BgL_ez00_643;
BgL_xz00_642 = BgL_xz00_2393; 
BgL_ez00_643 = BgL_ez00_2394; 
{ 
obj_t BgL_varz00_645;obj_t BgL_varz00_647;obj_t BgL_valz00_648;
{ /* ./Expand/object.scm 163 */
bool_t BgL_test2358z00_652;
BgL_test2358z00_652 = 
SYMBOLP(BgL_xz00_642); 
if(BgL_test2358z00_652)
{ /* ./Expand/object.scm 163 */
BgL_varz00_645 = BgL_xz00_642; 
{ /* ./Expand/object.scm 166 */
bool_t BgL_test2393z00_666;
{ /* ./Expand/object.scm 166 */
bool_t BgL_test2413z00_674;
{ /* ./Expand/object.scm 166 */
obj_t BgL_auxz00_2835;
BgL_auxz00_2835 = 
BGl_memqz00zz__r4_pairs_and_lists_6_3z00(BgL_varz00_645, BgL_slotsz00_2388); 
BgL_test2413z00_674 = 
CBOOL(BgL_auxz00_2835); } 
if(BgL_test2413z00_674)
{ /* ./Expand/object.scm 167 */
obj_t BgL_cellz00_675;
{ /* ./Expand/object.scm 167 */
obj_t BgL_arg2420z00_678;
BgL_arg2420z00_678 = 
BGl_lexicalzd2stackzd2zzexpand_epsz00(); 
BgL_cellz00_675 = 
BGl_assqz00zz__r4_pairs_and_lists_6_3z00(BgL_varz00_645, BgL_arg2420z00_678); } 
if(
PAIRP(BgL_cellz00_675))
{ /* ./Expand/object.scm 168 */
obj_t BgL_auxz00_2843;
BgL_auxz00_2843 = 
CDR(BgL_cellz00_675); 
BgL_test2393z00_666 = 
(BgL_auxz00_2843==BgL_markz00_2389); }  else 
{ /* ./Expand/object.scm 168 */
BgL_test2393z00_666 = ((bool_t)0); } }  else 
{ /* ./Expand/object.scm 166 */
BgL_test2393z00_666 = ((bool_t)0); } } 
if(BgL_test2393z00_666)
{ /* ./Expand/object.scm 169 */
obj_t BgL_arg2395z00_667;
{ /* ./Expand/object.scm 169 */
obj_t BgL_arg2398z00_668;obj_t BgL_arg2399z00_669;
{ /* ./Expand/object.scm 169 */
obj_t BgL_list2402z00_670;
{ /* ./Expand/object.scm 169 */
obj_t BgL_arg2404z00_671;
{ /* ./Expand/object.scm 169 */
obj_t BgL_arg2407z00_672;obj_t BgL_arg2408z00_673;
BgL_arg2407z00_672 = 
CNST_TABLE_REF(((long)4)); 
BgL_arg2408z00_673 = 
MAKE_PAIR(BgL_varz00_645, BNIL); 
BgL_arg2404z00_671 = 
MAKE_PAIR(BgL_arg2407z00_672, BgL_arg2408z00_673); } 
BgL_list2402z00_670 = 
MAKE_PAIR(BgL_classz00_2391, BgL_arg2404z00_671); } 
BgL_arg2398z00_668 = 
BGl_symbolzd2appendzd2zz__r4_symbols_6_4z00(BgL_list2402z00_670); } 
BgL_arg2399z00_669 = 
MAKE_PAIR(BgL_instancez00_2392, BNIL); 
BgL_arg2395z00_667 = 
MAKE_PAIR(BgL_arg2398z00_668, BgL_arg2399z00_669); } 
return 
PROCEDURE_ENTRY(BgL_oldez00_2390)(BgL_oldez00_2390, BgL_arg2395z00_667, BgL_oldez00_2390, BEOA);}  else 
{ /* ./Expand/object.scm 166 */
return 
PROCEDURE_ENTRY(BgL_oldez00_2390)(BgL_oldez00_2390, BgL_varz00_645, BgL_oldez00_2390, BEOA);} } }  else 
{ /* ./Expand/object.scm 163 */
bool_t BgL_test2360z00_653;
BgL_test2360z00_653 = 
PAIRP(BgL_xz00_642); 
if(BgL_test2360z00_653)
{ /* ./Expand/object.scm 163 */
obj_t BgL_cdrzd2144zd2_654;
BgL_cdrzd2144zd2_654 = 
CDR(BgL_xz00_642); 
{ /* ./Expand/object.scm 163 */
bool_t BgL_test2361z00_655;
{ /* ./Expand/object.scm 163 */
obj_t BgL_auxz00_2863;obj_t BgL_auxz00_2861;
BgL_auxz00_2863 = 
CNST_TABLE_REF(((long)10)); 
BgL_auxz00_2861 = 
CAR(BgL_xz00_642); 
BgL_test2361z00_655 = 
(BgL_auxz00_2861==BgL_auxz00_2863); } 
if(BgL_test2361z00_655)
{ /* ./Expand/object.scm 163 */
bool_t BgL_test2362z00_656;
BgL_test2362z00_656 = 
PAIRP(BgL_cdrzd2144zd2_654); 
if(BgL_test2362z00_656)
{ /* ./Expand/object.scm 163 */
obj_t BgL_carzd2147zd2_657;obj_t BgL_cdrzd2148zd2_658;
BgL_carzd2147zd2_657 = 
CAR(BgL_cdrzd2144zd2_654); 
BgL_cdrzd2148zd2_658 = 
CDR(BgL_cdrzd2144zd2_654); 
{ /* ./Expand/object.scm 163 */
bool_t BgL_test2363z00_659;
BgL_test2363z00_659 = 
SYMBOLP(BgL_carzd2147zd2_657); 
if(BgL_test2363z00_659)
{ /* ./Expand/object.scm 163 */
bool_t BgL_test2364z00_660;
BgL_test2364z00_660 = 
PAIRP(BgL_cdrzd2148zd2_658); 
if(BgL_test2364z00_660)
{ /* ./Expand/object.scm 163 */
bool_t BgL_test2365z00_661;
{ /* ./Expand/object.scm 163 */
obj_t BgL_auxz00_2875;
BgL_auxz00_2875 = 
CDR(BgL_cdrzd2148zd2_658); 
BgL_test2365z00_661 = 
NULLP(BgL_auxz00_2875); } 
if(BgL_test2365z00_661)
{ /* ./Expand/object.scm 163 */
obj_t BgL_arg2367z00_662;
BgL_arg2367z00_662 = 
CAR(BgL_cdrzd2148zd2_658); 
BgL_varz00_647 = BgL_carzd2147zd2_657; 
BgL_valz00_648 = BgL_arg2367z00_662; 
{ /* ./Expand/object.scm 172 */
obj_t BgL_valz00_679;
BgL_valz00_679 = 
PROCEDURE_ENTRY(BgL_ez00_643)(BgL_ez00_643, BgL_valz00_648, BgL_ez00_643, BEOA); 
{ /* ./Expand/object.scm 173 */
bool_t BgL_test2424z00_680;
{ /* ./Expand/object.scm 173 */
bool_t BgL_test2458z00_692;
{ /* ./Expand/object.scm 173 */
obj_t BgL_auxz00_2882;
BgL_auxz00_2882 = 
BGl_memqz00zz__r4_pairs_and_lists_6_3z00(BgL_varz00_647, BgL_slotsz00_2388); 
BgL_test2458z00_692 = 
CBOOL(BgL_auxz00_2882); } 
if(BgL_test2458z00_692)
{ /* ./Expand/object.scm 174 */
obj_t BgL_cellz00_693;
{ /* ./Expand/object.scm 174 */
obj_t BgL_arg2465z00_696;
BgL_arg2465z00_696 = 
BGl_lexicalzd2stackzd2zzexpand_epsz00(); 
BgL_cellz00_693 = 
BGl_assqz00zz__r4_pairs_and_lists_6_3z00(BgL_varz00_647, BgL_arg2465z00_696); } 
if(
PAIRP(BgL_cellz00_693))
{ /* ./Expand/object.scm 175 */
obj_t BgL_auxz00_2890;
BgL_auxz00_2890 = 
CDR(BgL_cellz00_693); 
BgL_test2424z00_680 = 
(BgL_auxz00_2890==BgL_markz00_2389); }  else 
{ /* ./Expand/object.scm 175 */
BgL_test2424z00_680 = ((bool_t)0); } }  else 
{ /* ./Expand/object.scm 173 */
BgL_test2424z00_680 = ((bool_t)0); } } 
if(BgL_test2424z00_680)
{ /* ./Expand/object.scm 177 */
obj_t BgL_arg2427z00_681;
{ /* ./Expand/object.scm 177 */
obj_t BgL_arg2430z00_682;
{ /* ./Expand/object.scm 177 */
obj_t BgL_arg2433z00_683;obj_t BgL_arg2434z00_684;
{ /* ./Expand/object.scm 177 */
obj_t BgL_list2437z00_685;
{ /* ./Expand/object.scm 177 */
obj_t BgL_arg2439z00_686;
{ /* ./Expand/object.scm 177 */
obj_t BgL_arg2442z00_687;obj_t BgL_arg2443z00_688;
BgL_arg2442z00_687 = 
CNST_TABLE_REF(((long)4)); 
{ /* ./Expand/object.scm 177 */
obj_t BgL_arg2446z00_689;
{ /* ./Expand/object.scm 177 */
obj_t BgL_auxz00_2895;
BgL_auxz00_2895 = 
CNST_TABLE_REF(((long)8)); 
BgL_arg2446z00_689 = 
MAKE_PAIR(BgL_auxz00_2895, BNIL); } 
BgL_arg2443z00_688 = 
MAKE_PAIR(BgL_varz00_647, BgL_arg2446z00_689); } 
BgL_arg2439z00_686 = 
MAKE_PAIR(BgL_arg2442z00_687, BgL_arg2443z00_688); } 
BgL_list2437z00_685 = 
MAKE_PAIR(BgL_classz00_2391, BgL_arg2439z00_686); } 
BgL_arg2433z00_683 = 
BGl_symbolzd2appendzd2zz__r4_symbols_6_4z00(BgL_list2437z00_685); } 
{ /* ./Expand/object.scm 177 */
obj_t BgL_arg2450z00_690;
BgL_arg2450z00_690 = 
MAKE_PAIR(BgL_valz00_679, BNIL); 
BgL_arg2434z00_684 = 
MAKE_PAIR(BgL_instancez00_2392, BgL_arg2450z00_690); } 
BgL_arg2430z00_682 = 
MAKE_PAIR(BgL_arg2433z00_683, BgL_arg2434z00_684); } 
BgL_arg2427z00_681 = 
PROCEDURE_ENTRY(BgL_oldez00_2390)(BgL_oldez00_2390, BgL_arg2430z00_682, BgL_oldez00_2390, BEOA); } 
return 
BGl_objectzd2epairifyzd2zzexpand_objectz00(BgL_arg2427z00_681, BgL_xz00_642);}  else 
{ /* ./Expand/object.scm 173 */
{ /* ./Expand/object.scm 181 */
obj_t BgL_arg2454z00_691;
{ /* ./Expand/object.scm 181 */
obj_t BgL_auxz00_2908;
BgL_auxz00_2908 = 
CDR(BgL_xz00_642); 
BgL_arg2454z00_691 = 
CDR(BgL_auxz00_2908); } 
SET_CAR(BgL_arg2454z00_691, BgL_valz00_679); } 
return 
PROCEDURE_ENTRY(BgL_oldez00_2390)(BgL_oldez00_2390, BgL_xz00_642, BgL_oldez00_2390, BEOA);} } } }  else 
{ /* ./Expand/object.scm 163 */
BgL_tagzd2133zd2_650:
return 
PROCEDURE_ENTRY(BgL_oldez00_2390)(BgL_oldez00_2390, BgL_xz00_642, BgL_ez00_643, BEOA);} }  else 
{ /* ./Expand/object.scm 163 */
goto BgL_tagzd2133zd2_650;} }  else 
{ /* ./Expand/object.scm 163 */
goto BgL_tagzd2133zd2_650;} } }  else 
{ /* ./Expand/object.scm 163 */
goto BgL_tagzd2133zd2_650;} }  else 
{ /* ./Expand/object.scm 163 */
goto BgL_tagzd2133zd2_650;} } }  else 
{ /* ./Expand/object.scm 163 */
goto BgL_tagzd2133zd2_650;} } } } } } } 
}



/* expand-instantiate */
BGL_EXPORTED_DEF obj_t BGl_expandzd2instantiatezd2zzexpand_objectz00(obj_t BgL_xz00_17, obj_t BgL_ez00_18)
{ AN_OBJECT;
{ /* ./Expand/object.scm 189 */
{ 
obj_t BgL_instantiatez00_697;
{ /* ./Expand/object.scm 190 */
bool_t BgL_test2471z00_701;
BgL_test2471z00_701 = 
PAIRP(BgL_xz00_17); 
if(BgL_test2471z00_701)
{ /* ./Expand/object.scm 190 */
obj_t BgL_arg2473z00_702;
BgL_arg2473z00_702 = 
CAR(BgL_xz00_17); 
BgL_instantiatez00_697 = BgL_arg2473z00_702; 
{ /* ./Expand/object.scm 192 */
BgL_typez00_bglt BgL_classz00_703;
{ /* ./Expand/object.scm 192 */
obj_t BgL_arg2489z00_707;
BgL_arg2489z00_707 = 
BGl_findzd2locationzd2zztools_locationz00(BgL_xz00_17); 
BgL_classz00_703 = 
BGl_typezd2ofzd2idz00zzast_identz00(BgL_instantiatez00_697, BgL_arg2489z00_707); } 
{ /* ./Expand/object.scm 194 */
bool_t BgL_test2478z00_704;
{ /* ./Expand/object.scm 194 */
obj_t BgL_obj1607z00_1902;
BgL_obj1607z00_1902 = 
(obj_t)(BgL_classz00_703); 
BgL_test2478z00_704 = 
BGl_iszd2azf3z21zz__objectz00(BgL_obj1607z00_1902, BGl_tclassz00zzobject_classz00); } 
if(BgL_test2478z00_704)
{ /* ./Expand/object.scm 196 */
bool_t BgL_test2479z00_705;
{ /* ./Expand/object.scm 196 */
BgL_tclassz00_bglt BgL_obj1626z00_1903;
BgL_obj1626z00_1903 = 
(BgL_tclassz00_bglt)(BgL_classz00_703); 
{ 
obj_t BgL_auxz00_2925;
{ /* ./Expand/object.scm 196 */
BgL_objectz00_bglt BgL_auxz00_2926;
BgL_auxz00_2926 = 
(BgL_objectz00_bglt)(BgL_obj1626z00_1903); 
BgL_auxz00_2925 = 
BGL_OBJECT_WIDENING(BgL_auxz00_2926); } 
BgL_test2479z00_705 = 
(((BgL_tclassz00_bglt)CREF(BgL_auxz00_2925))->BgL_abstractzf3zf3); } } 
if(BgL_test2479z00_705)
{ /* ./Expand/object.scm 196 */
FAILURE(BFALSE,BGl_string4898z00zzexpand_objectz00,BgL_xz00_17);}  else 
{ /* ./Expand/object.scm 196 */
{ /* ./Expand/object.scm 199 */
obj_t BgL_arg2482z00_706;
BgL_arg2482z00_706 = 
BGl_instantiatezd2ze3makez31zzexpand_objectz00(BgL_xz00_17, BgL_classz00_703, BgL_ez00_18); 
return 
BGl_replacez12z12zztools_miscz00(BgL_xz00_17, BgL_arg2482z00_706);} } }  else 
{ /* ./Expand/object.scm 194 */
FAILURE(BFALSE,BGl_string4899z00zzexpand_objectz00,BgL_xz00_17);} } } }  else 
{ /* ./Expand/object.scm 190 */
FAILURE(BFALSE,BGl_string4899z00zzexpand_objectz00,BgL_xz00_17);} } } } 
}



/* _expand-instantiate4608 */
obj_t BGl__expandzd2instantiate4608zd2zzexpand_objectz00(obj_t BgL_envz00_2395, obj_t BgL_xz00_2396, obj_t BgL_ez00_2397)
{ AN_OBJECT;
{ /* ./Expand/object.scm 189 */
return 
BGl_expandzd2instantiatezd2zzexpand_objectz00(BgL_xz00_2396, BgL_ez00_2397);} 
}



/* instantiate->make */
obj_t BGl_instantiatezd2ze3makez31zzexpand_objectz00(obj_t BgL_formz00_19, BgL_typez00_bglt BgL_classz00_20, obj_t BgL_ez00_21)
{ AN_OBJECT;
{ /* ./Expand/object.scm 206 */
{ /* ./Expand/object.scm 207 */
obj_t BgL_makezd2namezd2_708;
{ /* ./Expand/object.scm 207 */
obj_t BgL_arg2505z00_715;obj_t BgL_arg2506z00_716;
BgL_arg2505z00_715 = 
CNST_TABLE_REF(((long)11)); 
BgL_arg2506z00_716 = 
(((BgL_typez00_bglt)CREF(BgL_classz00_20))->BgL_idz00); 
{ /* ./Expand/object.scm 207 */
obj_t BgL_list2508z00_717;
{ /* ./Expand/object.scm 207 */
obj_t BgL_arg2510z00_718;
BgL_arg2510z00_718 = 
MAKE_PAIR(BgL_arg2506z00_716, BNIL); 
BgL_list2508z00_717 = 
MAKE_PAIR(BgL_arg2505z00_715, BgL_arg2510z00_718); } 
BgL_makezd2namezd2_708 = 
BGl_symbolzd2appendzd2zz__r4_symbols_6_4z00(BgL_list2508z00_717); } } 
{ /* ./Expand/object.scm 211 */
obj_t BgL_zc3anonymousza32496ze3z83_2398;
{ 
int BgL_auxz00_2942;
BgL_auxz00_2942 = 
(int)(((long)2)); 
BgL_zc3anonymousza32496ze3z83_2398 = 
MAKE_L_PROCEDURE(BGl_zc3anonymousza32496ze3z83zzexpand_objectz00, BgL_auxz00_2942); } 
{ /* ./Expand/object.scm 211 */
int BgL_auxz00_2945;
BgL_auxz00_2945 = 
(int)(((long)0)); 
PROCEDURE_L_SET(BgL_zc3anonymousza32496ze3z83_2398, BgL_auxz00_2945, BgL_formz00_19); } 
{ /* ./Expand/object.scm 211 */
int BgL_auxz00_2948;
BgL_auxz00_2948 = 
(int)(((long)1)); 
PROCEDURE_L_SET(BgL_zc3anonymousza32496ze3z83_2398, BgL_auxz00_2948, BgL_makezd2namezd2_708); } 
return 
BGl_instantiatezd2ze3fillz31zzexpand_objectz00(BgL_formz00_19, 
(obj_t)(BgL_classz00_20), BgL_zc3anonymousza32496ze3z83_2398, BgL_ez00_21);} } } 
}



/* <anonymous:2496> */
obj_t BGl_zc3anonymousza32496ze3z83zzexpand_objectz00(obj_t BgL_envz00_2399, obj_t BgL_largsz00_2402)
{ AN_OBJECT;
{ /* ./Expand/object.scm 210 */
{ /* ./Expand/object.scm 211 */
obj_t BgL_formz00_2400;obj_t BgL_makezd2namezd2_2401;
{ /* ./Expand/object.scm 211 */
int BgL_auxz00_2953;
BgL_auxz00_2953 = 
(int)(((long)0)); 
BgL_formz00_2400 = 
PROCEDURE_L_REF(BgL_envz00_2399, BgL_auxz00_2953); } 
{ /* ./Expand/object.scm 211 */
int BgL_auxz00_2956;
BgL_auxz00_2956 = 
(int)(((long)1)); 
BgL_makezd2namezd2_2401 = 
PROCEDURE_L_REF(BgL_envz00_2399, BgL_auxz00_2956); } 
{ 
obj_t BgL_largsz00_710;
BgL_largsz00_710 = BgL_largsz00_2402; 
{ /* ./Expand/object.scm 211 */
bool_t BgL_test2497z00_712;
BgL_test2497z00_712 = 
EXTENDED_PAIRP(BgL_formz00_2400); 
if(BgL_test2497z00_712)
{ /* ./Expand/object.scm 212 */
obj_t BgL_arg2499z00_713;
BgL_arg2499z00_713 = 
CER(BgL_formz00_2400); 
{ /* ./Expand/object.scm 212 */
obj_t BgL_res4585z00_1919;
BgL_res4585z00_1919 = 
MAKE_EXTENDED_PAIR(BgL_makezd2namezd2_2401, BgL_largsz00_710, BgL_arg2499z00_713); 
return BgL_res4585z00_1919;} }  else 
{ /* ./Expand/object.scm 211 */
return 
MAKE_PAIR(BgL_makezd2namezd2_2401, BgL_largsz00_710);} } } } } 
}



/* instantiate->fill */
obj_t BGl_instantiatezd2ze3fillz31zzexpand_objectz00(obj_t BgL_formz00_22, obj_t BgL_classz00_23, obj_t BgL_allocz00_24, obj_t BgL_ez00_25)
{ AN_OBJECT;
{ /* ./Expand/object.scm 219 */
{ /* ./Expand/object.scm 220 */
obj_t BgL_slotsz00_719;
BgL_slotsz00_719 = 
BGl_tclasszd2allzd2slotsz00zzobject_classz00(
(BgL_tclassz00_bglt)(BgL_classz00_23)); 
{ /* ./Expand/object.scm 220 */
long BgL_lenz00_720;
BgL_lenz00_720 = 
bgl_list_length(BgL_slotsz00_719); 
{ /* ./Expand/object.scm 221 */
obj_t BgL_vargsz00_721;
{ /* ./Expand/object.scm 222 */
obj_t BgL_arg2769z00_846;
BgL_arg2769z00_846 = BUNSPEC; 
{ /* ./Expand/object.scm 222 */
int BgL_auxz00_2967;
BgL_auxz00_2967 = 
(int)(BgL_lenz00_720); 
BgL_vargsz00_721 = 
make_vector(BgL_auxz00_2967, BgL_arg2769z00_846); } } 
{ /* ./Expand/object.scm 222 */
obj_t BgL_newz00_722;
BgL_newz00_722 = 
PROCEDURE_ENTRY(BGl_gensymz00zz__r4_symbols_6_4z00)(BGl_gensymz00zz__r4_symbols_6_4z00, 
CNST_TABLE_REF(((long)12)), BEOA); 
{ /* ./Expand/object.scm 223 */
obj_t BgL_providedz00_723;
BgL_providedz00_723 = 
CDR(BgL_formz00_22); 
{ /* ./Expand/object.scm 224 */

{ 
long BgL_iz00_724;obj_t BgL_slotsz00_725;
BgL_iz00_724 = ((long)0); 
BgL_slotsz00_725 = BgL_slotsz00_719; 
BgL_loopz00_726:
{ /* ./Expand/object.scm 228 */
bool_t BgL_test2515z00_727;
BgL_test2515z00_727 = 
NULLP(BgL_slotsz00_725); 
if(BgL_test2515z00_727)
{ /* ./Expand/object.scm 228 */
CNST_TABLE_REF(((long)13)); }  else 
{ /* ./Expand/object.scm 230 */
obj_t BgL_sz00_728;
BgL_sz00_728 = 
CAR(BgL_slotsz00_725); 
{ /* ./Expand/object.scm 232 */
bool_t BgL_test2516z00_729;
BgL_test2516z00_729 = 
BGl_slotzd2defaultzf3z21zzobject_slotsz00(
(BgL_slotz00_bglt)(BgL_sz00_728)); 
if(BgL_test2516z00_729)
{ /* ./Expand/object.scm 232 */
{ /* ./Expand/object.scm 233 */
obj_t BgL_arg2518z00_730;
{ /* ./Expand/object.scm 233 */
obj_t BgL_arg2521z00_731;
{ /* ./Expand/object.scm 233 */
BgL_slotz00_bglt BgL_obj1814z00_1924;
BgL_obj1814z00_1924 = 
(BgL_slotz00_bglt)(BgL_sz00_728); 
BgL_arg2521z00_731 = 
(((BgL_slotz00_bglt)CREF(BgL_obj1814z00_1924))->BgL_defaultzd2valuezd2); } 
BgL_arg2518z00_730 = 
MAKE_PAIR(BTRUE, BgL_arg2521z00_731); } 
{ /* ./Expand/object.scm 233 */
int BgL_kz00_1926;
BgL_kz00_1926 = 
(int)(BgL_iz00_724); 
VECTOR_SET(BgL_vargsz00_721,BgL_kz00_1926,BgL_arg2518z00_730); } } }  else 
{ /* ./Expand/object.scm 232 */
{ /* ./Expand/object.scm 235 */
obj_t BgL_arg2525z00_732;
BgL_arg2525z00_732 = 
MAKE_PAIR(BFALSE, BUNSPEC); 
{ /* ./Expand/object.scm 235 */
int BgL_kz00_1929;
BgL_kz00_1929 = 
(int)(BgL_iz00_724); 
VECTOR_SET(BgL_vargsz00_721,BgL_kz00_1929,BgL_arg2525z00_732); } } } } 
{ /* ./Expand/object.scm 236 */
long BgL_arg2530z00_733;obj_t BgL_arg2531z00_734;
BgL_arg2530z00_733 = 
(BgL_iz00_724+((long)1)); 
BgL_arg2531z00_734 = 
CDR(BgL_slotsz00_725); 
{ 
obj_t BgL_slotsz00_2992;long BgL_iz00_2991;
BgL_iz00_2991 = BgL_arg2530z00_733; 
BgL_slotsz00_2992 = BgL_arg2531z00_734; 
BgL_slotsz00_725 = BgL_slotsz00_2992; 
BgL_iz00_724 = BgL_iz00_2991; 
goto BgL_loopz00_726;} } } } } 
{ 
obj_t BgL_providedz00_735;
BgL_providedz00_735 = BgL_providedz00_723; 
BgL_loopz00_736:
{ /* ./Expand/object.scm 240 */
bool_t BgL_test2538z00_737;
BgL_test2538z00_737 = 
NULLP(BgL_providedz00_735); 
if(BgL_test2538z00_737)
{ /* ./Expand/object.scm 240 */
CNST_TABLE_REF(((long)13)); }  else 
{ /* ./Expand/object.scm 242 */
obj_t BgL_pz00_738;
BgL_pz00_738 = 
CAR(BgL_providedz00_735); 
{ 
obj_t BgL_szd2namezd2_742;obj_t BgL_lenz00_743;obj_t BgL_valuez00_744;obj_t BgL_szd2namezd2_739;obj_t BgL_valuez00_740;
{ /* ./Expand/object.scm 243 */
bool_t BgL_test2539z00_748;
BgL_test2539z00_748 = 
PAIRP(BgL_pz00_738); 
if(BgL_test2539z00_748)
{ /* ./Expand/object.scm 243 */
obj_t BgL_carzd2173zd2_749;obj_t BgL_cdrzd2174zd2_750;
BgL_carzd2173zd2_749 = 
CAR(BgL_pz00_738); 
BgL_cdrzd2174zd2_750 = 
CDR(BgL_pz00_738); 
{ /* ./Expand/object.scm 243 */
bool_t BgL_test2540z00_751;
BgL_test2540z00_751 = 
SYMBOLP(BgL_carzd2173zd2_749); 
if(BgL_test2540z00_751)
{ /* ./Expand/object.scm 243 */
bool_t BgL_test2541z00_752;
BgL_test2541z00_752 = 
PAIRP(BgL_cdrzd2174zd2_750); 
if(BgL_test2541z00_752)
{ /* ./Expand/object.scm 243 */
bool_t BgL_test2542z00_753;
{ /* ./Expand/object.scm 243 */
obj_t BgL_auxz00_3005;
BgL_auxz00_3005 = 
CDR(BgL_cdrzd2174zd2_750); 
BgL_test2542z00_753 = 
NULLP(BgL_auxz00_3005); } 
if(BgL_test2542z00_753)
{ /* ./Expand/object.scm 243 */
obj_t BgL_arg2544z00_754;
BgL_arg2544z00_754 = 
CAR(BgL_cdrzd2174zd2_750); 
BgL_szd2namezd2_739 = BgL_carzd2173zd2_749; 
BgL_valuez00_740 = BgL_arg2544z00_754; 
{ /* ./Expand/object.scm 246 */
obj_t BgL_pvalz00_775;
{ /* ./Expand/object.scm 247 */
obj_t BgL_arg2609z00_777;
BgL_arg2609z00_777 = 
BGl_findzd2slotzd2offsetz00zzexpand_objectz00(BgL_slotsz00_719, BgL_szd2namezd2_739, BGl_string4900z00zzexpand_objectz00, BgL_pz00_738); 
{ /* ./Expand/object.scm 246 */
int BgL_kz00_1964;
BgL_kz00_1964 = 
CINT(BgL_arg2609z00_777); 
BgL_pvalz00_775 = 
VECTOR_REF(BgL_vargsz00_721,BgL_kz00_1964); } } 
SET_CAR(BgL_pvalz00_775, BTRUE); 
{ /* ./Expand/object.scm 252 */
obj_t BgL_arg2605z00_776;
BgL_arg2605z00_776 = 
BGl_objectzd2epairifyzd2zzexpand_objectz00(BgL_valuez00_740, BgL_pz00_738); 
SET_CDR(BgL_pvalz00_775, BgL_arg2605z00_776); } } }  else 
{ /* ./Expand/object.scm 243 */
bool_t BgL_test2547z00_757;
BgL_test2547z00_757 = 
SYMBOLP(BgL_carzd2173zd2_749); 
if(BgL_test2547z00_757)
{ /* ./Expand/object.scm 243 */
obj_t BgL_cdrzd2201zd2_758;
BgL_cdrzd2201zd2_758 = 
CDR(BgL_cdrzd2174zd2_750); 
{ /* ./Expand/object.scm 243 */
bool_t BgL_test2548z00_759;
BgL_test2548z00_759 = 
PAIRP(BgL_cdrzd2201zd2_758); 
if(BgL_test2548z00_759)
{ /* ./Expand/object.scm 243 */
bool_t BgL_test2549z00_760;
{ /* ./Expand/object.scm 243 */
obj_t BgL_auxz00_3021;
BgL_auxz00_3021 = 
CDR(BgL_cdrzd2201zd2_758); 
BgL_test2549z00_760 = 
NULLP(BgL_auxz00_3021); } 
if(BgL_test2549z00_760)
{ /* ./Expand/object.scm 243 */
obj_t BgL_arg2551z00_761;obj_t BgL_arg2552z00_762;
BgL_arg2551z00_761 = 
CAR(BgL_cdrzd2174zd2_750); 
BgL_arg2552z00_762 = 
CAR(BgL_cdrzd2201zd2_758); 
BgL_szd2namezd2_742 = BgL_carzd2173zd2_749; 
BgL_lenz00_743 = BgL_arg2551z00_761; 
BgL_valuez00_744 = BgL_arg2552z00_762; 
BgL_tagzd2165zd2_745:
{ /* ./Expand/object.scm 255 */
obj_t BgL_snumz00_778;
BgL_snumz00_778 = 
BGl_findzd2slotzd2offsetz00zzexpand_objectz00(BgL_slotsz00_719, BgL_szd2namezd2_742, BGl_string4900z00zzexpand_objectz00, BgL_pz00_738); 
{ /* ./Expand/object.scm 255 */
obj_t BgL_slotz00_779;
BgL_slotz00_779 = 
bgl_list_ref(BgL_slotsz00_719, 
(long)CINT(BgL_snumz00_778)); 
{ /* ./Expand/object.scm 259 */

{ /* ./Expand/object.scm 260 */
bool_t BgL_test2612z00_780;
{ /* ./Expand/object.scm 260 */
BgL_slotz00_bglt BgL_obj1824z00_1969;
BgL_obj1824z00_1969 = 
(BgL_slotz00_bglt)(BgL_slotz00_779); 
{ /* ./Expand/object.scm 260 */
obj_t BgL_auxz00_3031;
BgL_auxz00_3031 = 
(((BgL_slotz00_bglt)CREF(BgL_obj1824z00_1969))->BgL_indexedz00); 
BgL_test2612z00_780 = 
CBOOL(BgL_auxz00_3031); } } 
if(BgL_test2612z00_780)
{ /* ./Expand/object.scm 262 */
obj_t BgL_pvalz00_781;
{ /* ./Expand/object.scm 262 */
int BgL_kz00_1971;
BgL_kz00_1971 = 
CINT(BgL_snumz00_778); 
BgL_pvalz00_781 = 
VECTOR_REF(BgL_vargsz00_721,BgL_kz00_1971); } 
{ /* ./Expand/object.scm 262 */
obj_t BgL_plenz00_782;
{ /* ./Expand/object.scm 263 */
long BgL_arg2621z00_784;
{ /* ./Expand/object.scm 263 */
long BgL_auxz00_3037;
BgL_auxz00_3037 = 
(long)CINT(BgL_snumz00_778); 
BgL_arg2621z00_784 = 
(BgL_auxz00_3037-((long)1)); } 
{ /* ./Expand/object.scm 263 */
int BgL_kz00_1975;
BgL_kz00_1975 = 
(int)(BgL_arg2621z00_784); 
BgL_plenz00_782 = 
VECTOR_REF(BgL_vargsz00_721,BgL_kz00_1975); } } 
{ /* ./Expand/object.scm 263 */

SET_CAR(BgL_pvalz00_781, BTRUE); 
{ /* ./Expand/object.scm 265 */
obj_t BgL_arg2615z00_783;
BgL_arg2615z00_783 = 
BGl_objectzd2epairifyzd2zzexpand_objectz00(BgL_valuez00_744, BgL_pz00_738); 
SET_CDR(BgL_pvalz00_781, BgL_arg2615z00_783); } 
SET_CAR(BgL_plenz00_782, BTRUE); 
SET_CDR(BgL_plenz00_782, BgL_lenz00_743); } } }  else 
{ /* ./Expand/object.scm 260 */
FAILURE(BFALSE,BGl_string4899z00zzexpand_objectz00,BgL_formz00_22);} } } } } }  else 
{ /* ./Expand/object.scm 243 */
BgL_tagzd2166zd2_746:
FAILURE(BFALSE,BGl_string4899z00zzexpand_objectz00,BgL_formz00_22);} }  else 
{ /* ./Expand/object.scm 243 */
goto BgL_tagzd2166zd2_746;} } }  else 
{ /* ./Expand/object.scm 243 */
goto BgL_tagzd2166zd2_746;} } }  else 
{ /* ./Expand/object.scm 243 */
goto BgL_tagzd2166zd2_746;} }  else 
{ /* ./Expand/object.scm 243 */
bool_t BgL_test2574z00_767;
BgL_test2574z00_767 = 
SYMBOLP(BgL_carzd2173zd2_749); 
if(BgL_test2574z00_767)
{ /* ./Expand/object.scm 243 */
bool_t BgL_test2575z00_768;
BgL_test2575z00_768 = 
PAIRP(BgL_cdrzd2174zd2_750); 
if(BgL_test2575z00_768)
{ /* ./Expand/object.scm 243 */
obj_t BgL_cdrzd2229zd2_769;
BgL_cdrzd2229zd2_769 = 
CDR(BgL_cdrzd2174zd2_750); 
{ /* ./Expand/object.scm 243 */
bool_t BgL_test2576z00_770;
BgL_test2576z00_770 = 
PAIRP(BgL_cdrzd2229zd2_769); 
if(BgL_test2576z00_770)
{ /* ./Expand/object.scm 243 */
bool_t BgL_test2577z00_771;
{ /* ./Expand/object.scm 243 */
obj_t BgL_auxz00_3056;
BgL_auxz00_3056 = 
CDR(BgL_cdrzd2229zd2_769); 
BgL_test2577z00_771 = 
NULLP(BgL_auxz00_3056); } 
if(BgL_test2577z00_771)
{ /* ./Expand/object.scm 243 */
obj_t BgL_arg2579z00_772;obj_t BgL_arg2580z00_773;
BgL_arg2579z00_772 = 
CAR(BgL_cdrzd2174zd2_750); 
BgL_arg2580z00_773 = 
CAR(BgL_cdrzd2229zd2_769); 
{ 
obj_t BgL_valuez00_3064;obj_t BgL_lenz00_3063;obj_t BgL_szd2namezd2_3062;
BgL_szd2namezd2_3062 = BgL_carzd2173zd2_749; 
BgL_lenz00_3063 = BgL_arg2579z00_772; 
BgL_valuez00_3064 = BgL_arg2580z00_773; 
BgL_valuez00_744 = BgL_valuez00_3064; 
BgL_lenz00_743 = BgL_lenz00_3063; 
BgL_szd2namezd2_742 = BgL_szd2namezd2_3062; 
goto BgL_tagzd2165zd2_745;} }  else 
{ /* ./Expand/object.scm 243 */
goto BgL_tagzd2166zd2_746;} }  else 
{ /* ./Expand/object.scm 243 */
goto BgL_tagzd2166zd2_746;} } }  else 
{ /* ./Expand/object.scm 243 */
goto BgL_tagzd2166zd2_746;} }  else 
{ /* ./Expand/object.scm 243 */
goto BgL_tagzd2166zd2_746;} } } }  else 
{ /* ./Expand/object.scm 243 */
goto BgL_tagzd2166zd2_746;} } } 
{ /* ./Expand/object.scm 270 */
obj_t BgL_arg2631z00_785;
BgL_arg2631z00_785 = 
CDR(BgL_providedz00_735); 
{ 
obj_t BgL_providedz00_3066;
BgL_providedz00_3066 = BgL_arg2631z00_785; 
BgL_providedz00_735 = BgL_providedz00_3066; 
goto BgL_loopz00_736;} } } } } 
{ 
long BgL_iz00_786;obj_t BgL_sz00_787;
BgL_iz00_786 = ((long)0); 
BgL_sz00_787 = BgL_slotsz00_719; 
BgL_loopz00_788:
{ /* ./Expand/object.scm 275 */
bool_t BgL_test2637z00_789;
BgL_test2637z00_789 = 
(BgL_iz00_786==BgL_lenz00_720); 
if(BgL_test2637z00_789)
{ /* ./Expand/object.scm 275 */
CNST_TABLE_REF(((long)14)); }  else 
{ /* ./Expand/object.scm 277 */
bool_t BgL_test2638z00_790;
{ /* ./Expand/object.scm 277 */
bool_t BgL_test2661z00_799;
{ /* ./Expand/object.scm 277 */
obj_t BgL_arg2668z00_802;
{ /* ./Expand/object.scm 277 */
int BgL_kz00_1994;
BgL_kz00_1994 = 
(int)(BgL_iz00_786); 
BgL_arg2668z00_802 = 
VECTOR_REF(BgL_vargsz00_721,BgL_kz00_1994); } 
{ /* ./Expand/object.scm 277 */
obj_t BgL_auxz00_3072;
BgL_auxz00_3072 = 
CAR(BgL_arg2668z00_802); 
BgL_test2661z00_799 = 
CBOOL(BgL_auxz00_3072); } } 
if(BgL_test2661z00_799)
{ /* ./Expand/object.scm 277 */
BgL_test2638z00_790 = ((bool_t)0); }  else 
{ /* ./Expand/object.scm 278 */
bool_t BgL_test2662z00_800;
{ /* ./Expand/object.scm 278 */
obj_t BgL_arg2664z00_801;
BgL_arg2664z00_801 = 
CAR(BgL_sz00_787); 
BgL_test2662z00_800 = 
BGl_slotzd2virtualzf3z21zzobject_slotsz00(
(BgL_slotz00_bglt)(BgL_arg2664z00_801)); } 
if(BgL_test2662z00_800)
{ /* ./Expand/object.scm 278 */
BgL_test2638z00_790 = ((bool_t)0); }  else 
{ /* ./Expand/object.scm 278 */
BgL_test2638z00_790 = ((bool_t)1); } } } 
if(BgL_test2638z00_790)
{ /* ./Expand/object.scm 277 */
{ /* ./Expand/object.scm 281 */
obj_t BgL_arg2640z00_791;
{ /* ./Expand/object.scm 281 */
obj_t BgL_arg2644z00_793;
{ /* ./Expand/object.scm 283 */
obj_t BgL_arg2649z00_795;
{ /* ./Expand/object.scm 283 */
BgL_slotz00_bglt BgL_obj1808z00_1998;
{ /* ./Expand/object.scm 283 */
obj_t BgL_auxz00_3081;
BgL_auxz00_3081 = 
CAR(BgL_sz00_787); 
BgL_obj1808z00_1998 = 
(BgL_slotz00_bglt)(BgL_auxz00_3081); } 
BgL_arg2649z00_795 = 
(((BgL_slotz00_bglt)CREF(BgL_obj1808z00_1998))->BgL_idz00); } 
BgL_arg2644z00_793 = 
SYMBOL_TO_STRING(BgL_arg2649z00_795); } 
BgL_arg2640z00_791 = 
string_append_3(BGl_string4901z00zzexpand_objectz00, BgL_arg2644z00_793, BGl_string4902z00zzexpand_objectz00); } 
FAILURE(BFALSE,BgL_arg2640z00_791,BgL_formz00_22);} }  else 
{ /* ./Expand/object.scm 277 */
{ /* ./Expand/object.scm 287 */
long BgL_arg2656z00_797;obj_t BgL_arg2657z00_798;
BgL_arg2656z00_797 = 
(BgL_iz00_786+((long)1)); 
BgL_arg2657z00_798 = 
CDR(BgL_sz00_787); 
{ 
obj_t BgL_sz00_3091;long BgL_iz00_3090;
BgL_iz00_3090 = BgL_arg2656z00_797; 
BgL_sz00_3091 = BgL_arg2657z00_798; 
BgL_sz00_787 = BgL_sz00_3091; 
BgL_iz00_786 = BgL_iz00_3090; 
goto BgL_loopz00_788;} } } } } } 
{ 
long BgL_iz00_803;obj_t BgL_slotsz00_804;obj_t BgL_largsz00_805;obj_t BgL_virtualsz00_806;
BgL_iz00_803 = ((long)0); 
BgL_slotsz00_804 = BgL_slotsz00_719; 
BgL_largsz00_805 = BNIL; 
BgL_virtualsz00_806 = BNIL; 
BgL_loopz00_807:
{ /* ./Expand/object.scm 293 */
bool_t BgL_test2673z00_808;
BgL_test2673z00_808 = 
(BgL_iz00_803==BgL_lenz00_720); 
if(BgL_test2673z00_808)
{ /* ./Expand/object.scm 294 */
bool_t BgL_test2674z00_809;
BgL_test2674z00_809 = 
NULLP(BgL_virtualsz00_806); 
if(BgL_test2674z00_809)
{ /* ./Expand/object.scm 295 */
obj_t BgL_arg2676z00_810;
BgL_arg2676z00_810 = 
BGl_reversez12z12zz__r4_pairs_and_lists_6_3z00(BgL_largsz00_805); 
return 
PROCEDURE_L_ENTRY(BgL_allocz00_24)(BgL_allocz00_24, BgL_arg2676z00_810);}  else 
{ /* ./Expand/object.scm 298 */
obj_t BgL_arg2680z00_811;obj_t BgL_arg2681z00_812;
BgL_arg2680z00_811 = 
CNST_TABLE_REF(((long)2)); 
{ /* ./Expand/object.scm 296 */
obj_t BgL_arg2684z00_813;obj_t BgL_arg2685z00_814;
{ /* ./Expand/object.scm 296 */
obj_t BgL_arg2688z00_815;
{ /* ./Expand/object.scm 296 */
obj_t BgL_arg2692z00_817;
{ /* ./Expand/object.scm 296 */
obj_t BgL_arg2695z00_818;
{ /* ./Expand/object.scm 296 */
obj_t BgL_arg2699z00_820;
BgL_arg2699z00_820 = 
BGl_reversez12z12zz__r4_pairs_and_lists_6_3z00(BgL_largsz00_805); 
BgL_arg2695z00_818 = 
PROCEDURE_L_ENTRY(BgL_allocz00_24)(BgL_allocz00_24, BgL_arg2699z00_820); } 
BgL_arg2692z00_817 = 
MAKE_PAIR(BgL_arg2695z00_818, BNIL); } 
BgL_arg2688z00_815 = 
MAKE_PAIR(BgL_newz00_722, BgL_arg2692z00_817); } 
BgL_arg2684z00_813 = 
MAKE_PAIR(BgL_arg2688z00_815, BNIL); } 
{ /* ./Expand/object.scm 297 */
obj_t BgL_arg2703z00_821;obj_t BgL_arg2704z00_822;
BgL_arg2703z00_821 = 
BGl_reversez12z12zz__r4_pairs_and_lists_6_3z00(BgL_virtualsz00_806); 
BgL_arg2704z00_822 = 
MAKE_PAIR(BgL_newz00_722, BNIL); 
BgL_arg2685z00_814 = 
BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(BgL_arg2703z00_821, BgL_arg2704z00_822); } 
BgL_arg2681z00_812 = 
MAKE_PAIR(BgL_arg2684z00_813, BgL_arg2685z00_814); } 
return 
MAKE_PAIR(BgL_arg2680z00_811, BgL_arg2681z00_812);} }  else 
{ /* ./Expand/object.scm 299 */
obj_t BgL_valuez00_823;
{ /* ./Expand/object.scm 299 */
obj_t BgL_arg2758z00_843;
{ /* ./Expand/object.scm 299 */
obj_t BgL_arg2761z00_844;
{ /* ./Expand/object.scm 299 */
int BgL_kz00_2010;
BgL_kz00_2010 = 
(int)(BgL_iz00_803); 
BgL_arg2761z00_844 = 
VECTOR_REF(BgL_vargsz00_721,BgL_kz00_2010); } 
BgL_arg2758z00_843 = 
CDR(BgL_arg2761z00_844); } 
BgL_valuez00_823 = 
PROCEDURE_ENTRY(BgL_ez00_25)(BgL_ez00_25, BgL_arg2758z00_843, BgL_ez00_25, BEOA); } 
{ /* ./Expand/object.scm 301 */
bool_t BgL_test2709z00_824;
{ /* ./Expand/object.scm 301 */
obj_t BgL_arg2754z00_842;
BgL_arg2754z00_842 = 
CAR(BgL_slotsz00_804); 
BgL_test2709z00_824 = 
BGl_slotzd2virtualzf3z21zzobject_slotsz00(
(BgL_slotz00_bglt)(BgL_arg2754z00_842)); } 
if(BgL_test2709z00_824)
{ /* ./Expand/object.scm 301 */
{ /* ./Expand/object.scm 302 */
long BgL_arg2711z00_825;obj_t BgL_arg2712z00_826;obj_t BgL_arg2713z00_827;
BgL_arg2711z00_825 = 
(BgL_iz00_803+((long)1)); 
BgL_arg2712z00_826 = 
CDR(BgL_slotsz00_804); 
{ /* ./Expand/object.scm 305 */
bool_t BgL_test2717z00_828;
BgL_test2717z00_828 = 
(BgL_valuez00_823==BUNSPEC); 
if(BgL_test2717z00_828)
{ /* ./Expand/object.scm 305 */
BgL_arg2713z00_827 = BgL_virtualsz00_806; }  else 
{ /* ./Expand/object.scm 307 */
bool_t BgL_test2718z00_829;
BgL_test2718z00_829 = 
EXTENDED_PAIRP(BgL_valuez00_823); 
if(BgL_test2718z00_829)
{ /* ./Expand/object.scm 308 */
obj_t BgL_arg2720z00_830;obj_t BgL_arg2721z00_831;
{ /* ./Expand/object.scm 308 */
obj_t BgL_arg2724z00_832;
BgL_arg2724z00_832 = 
CAR(BgL_slotsz00_804); 
BgL_arg2720z00_830 = 
BGl_makezd2virtualzd2setz00zzexpand_objectz00(BgL_arg2724z00_832, BgL_valuez00_823, BgL_newz00_722, BgL_classz00_23, BgL_formz00_22, BgL_ez00_25, "instantiate"); } 
BgL_arg2721z00_831 = 
CER(BgL_valuez00_823); 
{ /* ./Expand/object.scm 308 */
obj_t BgL_res4587z00_2022;
BgL_res4587z00_2022 = 
MAKE_EXTENDED_PAIR(BgL_arg2720z00_830, BgL_virtualsz00_806, BgL_arg2721z00_831); 
BgL_arg2713z00_827 = BgL_res4587z00_2022; } }  else 
{ /* ./Expand/object.scm 317 */
obj_t BgL_arg2730z00_834;
{ /* ./Expand/object.scm 317 */
obj_t BgL_arg2733z00_835;
BgL_arg2733z00_835 = 
CAR(BgL_slotsz00_804); 
BgL_arg2730z00_834 = 
BGl_makezd2virtualzd2setz00zzexpand_objectz00(BgL_arg2733z00_835, BgL_valuez00_823, BgL_newz00_722, BgL_classz00_23, BgL_formz00_22, BgL_ez00_25, "instantiate"); } 
BgL_arg2713z00_827 = 
MAKE_PAIR(BgL_arg2730z00_834, BgL_virtualsz00_806); } } } 
{ 
obj_t BgL_virtualsz00_3135;obj_t BgL_slotsz00_3134;long BgL_iz00_3133;
BgL_iz00_3133 = BgL_arg2711z00_825; 
BgL_slotsz00_3134 = BgL_arg2712z00_826; 
BgL_virtualsz00_3135 = BgL_arg2713z00_827; 
BgL_virtualsz00_806 = BgL_virtualsz00_3135; 
BgL_slotsz00_804 = BgL_slotsz00_3134; 
BgL_iz00_803 = BgL_iz00_3133; 
goto BgL_loopz00_807;} } }  else 
{ /* ./Expand/object.scm 301 */
{ /* ./Expand/object.scm 326 */
long BgL_arg2740z00_837;obj_t BgL_arg2741z00_838;obj_t BgL_arg2742z00_839;
BgL_arg2740z00_837 = 
(BgL_iz00_803+((long)1)); 
BgL_arg2741z00_838 = 
CDR(BgL_slotsz00_804); 
{ /* ./Expand/object.scm 328 */
bool_t BgL_test2746z00_840;
BgL_test2746z00_840 = 
EXTENDED_PAIRP(BgL_valuez00_823); 
if(BgL_test2746z00_840)
{ /* ./Expand/object.scm 329 */
obj_t BgL_arg2748z00_841;
BgL_arg2748z00_841 = 
CER(BgL_valuez00_823); 
{ /* ./Expand/object.scm 329 */
obj_t BgL_res4588z00_2032;
BgL_res4588z00_2032 = 
MAKE_EXTENDED_PAIR(BgL_valuez00_823, BgL_largsz00_805, BgL_arg2748z00_841); 
BgL_arg2742z00_839 = BgL_res4588z00_2032; } }  else 
{ /* ./Expand/object.scm 328 */
BgL_arg2742z00_839 = 
MAKE_PAIR(BgL_valuez00_823, BgL_largsz00_805); } } 
{ 
obj_t BgL_largsz00_3145;obj_t BgL_slotsz00_3144;long BgL_iz00_3143;
BgL_iz00_3143 = BgL_arg2740z00_837; 
BgL_slotsz00_3144 = BgL_arg2741z00_838; 
BgL_largsz00_3145 = BgL_arg2742z00_839; 
BgL_largsz00_805 = BgL_largsz00_3145; 
BgL_slotsz00_804 = BgL_slotsz00_3144; 
BgL_iz00_803 = BgL_iz00_3143; 
goto BgL_loopz00_807;} } } } } } } } } } } } } } 
}



/* expand-co-instantiate */
BGL_EXPORTED_DEF obj_t BGl_expandzd2cozd2instantiatez00zzexpand_objectz00(obj_t BgL_xz00_26, obj_t BgL_ez00_27)
{ AN_OBJECT;
{ /* ./Expand/object.scm 336 */
{ 

{ /* ./Expand/object.scm 337 */
bool_t BgL_test2775z00_852;
BgL_test2775z00_852 = 
PAIRP(BgL_xz00_26); 
if(BgL_test2775z00_852)
{ /* ./Expand/object.scm 337 */
obj_t BgL_cdrzd2249zd2_853;
BgL_cdrzd2249zd2_853 = 
CDR(BgL_xz00_26); 
{ /* ./Expand/object.scm 337 */
bool_t BgL_test2776z00_854;
{ /* ./Expand/object.scm 337 */
obj_t BgL_auxz00_3151;obj_t BgL_auxz00_3149;
BgL_auxz00_3151 = 
CNST_TABLE_REF(((long)15)); 
BgL_auxz00_3149 = 
CAR(BgL_xz00_26); 
BgL_test2776z00_854 = 
(BgL_auxz00_3149==BgL_auxz00_3151); } 
if(BgL_test2776z00_854)
{ /* ./Expand/object.scm 337 */
bool_t BgL_test2777z00_855;
BgL_test2777z00_855 = 
PAIRP(BgL_cdrzd2249zd2_853); 
if(BgL_test2777z00_855)
{ /* ./Expand/object.scm 337 */
obj_t BgL_arg2779z00_856;obj_t BgL_arg2780z00_857;
BgL_arg2779z00_856 = 
CAR(BgL_cdrzd2249zd2_853); 
BgL_arg2780z00_857 = 
CDR(BgL_cdrzd2249zd2_853); 
{ /* ./Expand/object.scm 337 */
obj_t BgL_arg2796z00_2041;
BgL_arg2796z00_2041 = 
BGl_cozd2instantiatezd2ze3letze3zzexpand_objectz00(BgL_arg2779z00_856, BgL_arg2780z00_857, BgL_xz00_26, BgL_ez00_27); 
return 
BGl_replacez12z12zztools_miscz00(BgL_xz00_26, BgL_arg2796z00_2041);} }  else 
{ /* ./Expand/object.scm 337 */
BgL_tagzd2242zd2_850:
FAILURE(BFALSE,BGl_string4903z00zzexpand_objectz00,BgL_xz00_26);} }  else 
{ /* ./Expand/object.scm 337 */
goto BgL_tagzd2242zd2_850;} } }  else 
{ /* ./Expand/object.scm 337 */
goto BgL_tagzd2242zd2_850;} } } } 
}



/* _expand-co-instantiate4612 */
obj_t BGl__expandzd2cozd2instantiate4612z00zzexpand_objectz00(obj_t BgL_envz00_2403, obj_t BgL_xz00_2404, obj_t BgL_ez00_2405)
{ AN_OBJECT;
{ /* ./Expand/object.scm 336 */
return 
BGl_expandzd2cozd2instantiatez00zzexpand_objectz00(BgL_xz00_2404, BgL_ez00_2405);} 
}



/* co-instantiate->let */
obj_t BGl_cozd2instantiatezd2ze3letze3zzexpand_objectz00(obj_t BgL_bindingsz00_28, obj_t BgL_bodyz00_29, obj_t BgL_xz00_30, obj_t BgL_ez00_31)
{ AN_OBJECT;
{ /* ./Expand/object.scm 346 */
{ 
obj_t BgL_exprz00_989;obj_t BgL_bdgz00_990;obj_t BgL_locz00_991;
{ /* ./Expand/object.scm 372 */
obj_t BgL_locz00_862;
BgL_locz00_862 = 
BGl_findzd2locationzd2zztools_locationz00(BgL_xz00_30); 
{ 
obj_t BgL_bindingsz00_863;obj_t BgL_userzd2variableszd2_864;obj_t BgL_privatezd2variableszd2_865;obj_t BgL_rewritezd2bindingszd2_866;obj_t BgL_classesz00_867;obj_t BgL_instantiatesz00_868;
BgL_bindingsz00_863 = BgL_bindingsz00_28; 
BgL_userzd2variableszd2_864 = BNIL; 
BgL_privatezd2variableszd2_865 = BNIL; 
BgL_rewritezd2bindingszd2_866 = BNIL; 
BgL_classesz00_867 = BNIL; 
BgL_instantiatesz00_868 = BNIL; 
BgL_loopz00_869:
{ /* ./Expand/object.scm 379 */
bool_t BgL_test2801z00_870;
BgL_test2801z00_870 = 
NULLP(BgL_bindingsz00_863); 
if(BgL_test2801z00_870)
{ /* ./Expand/object.scm 381 */
obj_t BgL_e1z00_2406;
{ 
int BgL_auxz00_3168;int BgL_auxz00_3166;
BgL_auxz00_3168 = 
(int)(((long)2)); 
BgL_auxz00_3166 = 
(int)(((long)2)); 
BgL_e1z00_2406 = 
make_fx_procedure(BGl_e1z00zzexpand_objectz00, BgL_auxz00_3166, BgL_auxz00_3168); } 
{ /* ./Expand/object.scm 381 */
int BgL_auxz00_3171;
BgL_auxz00_3171 = 
(int)(((long)0)); 
PROCEDURE_SET(BgL_e1z00_2406, BgL_auxz00_3171, BgL_ez00_31); } 
{ /* ./Expand/object.scm 381 */
int BgL_auxz00_3174;
BgL_auxz00_3174 = 
(int)(((long)1)); 
PROCEDURE_SET(BgL_e1z00_2406, BgL_auxz00_3174, BgL_rewritezd2bindingszd2_866); } 
{ /* ./Expand/object.scm 391 */
obj_t BgL_arg2803z00_872;obj_t BgL_arg2804z00_873;
BgL_arg2803z00_872 = 
CNST_TABLE_REF(((long)2)); 
{ /* ./Expand/object.scm 391 */
obj_t BgL_arg2807z00_874;obj_t BgL_arg2808z00_875;
{ /* ./Expand/object.scm 391 */
bool_t BgL_test2810z00_878;
BgL_test2810z00_878 = 
NULLP(BgL_privatezd2variableszd2_865); 
if(BgL_test2810z00_878)
{ /* ./Expand/object.scm 391 */
BgL_arg2807z00_874 = BNIL; }  else 
{ /* ./Expand/object.scm 391 */
obj_t BgL_head1876z00_879;
BgL_head1876z00_879 = 
MAKE_PAIR(BNIL, BNIL); 
{ 
obj_t BgL_ll1874z00_880;obj_t BgL_ll1875z00_881;obj_t BgL_tail1877z00_882;
BgL_ll1874z00_880 = BgL_privatezd2variableszd2_865; 
BgL_ll1875z00_881 = BgL_classesz00_867; 
BgL_tail1877z00_882 = BgL_head1876z00_879; 
BgL_map1879z00_883:
{ /* ./Expand/object.scm 391 */
bool_t BgL_test2812z00_884;
BgL_test2812z00_884 = 
NULLP(BgL_ll1874z00_880); 
if(BgL_test2812z00_884)
{ /* ./Expand/object.scm 391 */
BgL_arg2807z00_874 = 
CDR(BgL_head1876z00_879); }  else 
{ /* ./Expand/object.scm 392 */
obj_t BgL_newtail1878z00_885;
{ /* ./Expand/object.scm 392 */
obj_t BgL_arg2822z00_888;
{ /* ./Expand/object.scm 392 */
obj_t BgL_idz00_890;obj_t BgL_classz00_891;
BgL_idz00_890 = 
CAR(BgL_ll1874z00_880); 
BgL_classz00_891 = 
CAR(BgL_ll1875z00_881); 
{ /* ./Expand/object.scm 392 */
obj_t BgL_cidz00_892;
{ /* ./Expand/object.scm 392 */
BgL_typez00_bglt BgL_obj1003z00_2054;
BgL_obj1003z00_2054 = 
(BgL_typez00_bglt)(BgL_classz00_891); 
BgL_cidz00_892 = 
(((BgL_typez00_bglt)CREF(BgL_obj1003z00_2054))->BgL_idz00); } 
{ /* ./Expand/object.scm 392 */
obj_t BgL_tvz00_893;
BgL_tvz00_893 = 
BGl_makezd2typedzd2identz00zzast_identz00(BgL_idz00_890, BgL_cidz00_892); 
{ /* ./Expand/object.scm 393 */

{ /* ./Expand/object.scm 394 */
obj_t BgL_arg2826z00_894;
{ /* ./Expand/object.scm 394 */
obj_t BgL_arg2829z00_895;
{ /* ./Expand/object.scm 394 */
obj_t BgL_arg2833z00_897;
{ /* ./Expand/object.scm 394 */
obj_t BgL_list2837z00_899;
{ /* ./Expand/object.scm 394 */
obj_t BgL_arg2839z00_900;obj_t BgL_arg2840z00_901;
BgL_arg2839z00_900 = 
CNST_TABLE_REF(((long)17)); 
BgL_arg2840z00_901 = 
MAKE_PAIR(BgL_cidz00_892, BNIL); 
BgL_list2837z00_899 = 
MAKE_PAIR(BgL_arg2839z00_900, BgL_arg2840z00_901); } 
BgL_arg2833z00_897 = 
BGl_symbolzd2appendzd2zz__r4_symbols_6_4z00(BgL_list2837z00_899); } 
BgL_arg2829z00_895 = 
MAKE_PAIR(BgL_arg2833z00_897, BNIL); } 
BgL_arg2826z00_894 = 
MAKE_PAIR(BgL_arg2829z00_895, BNIL); } 
BgL_arg2822z00_888 = 
MAKE_PAIR(BgL_tvz00_893, BgL_arg2826z00_894); } } } } } 
BgL_newtail1878z00_885 = 
MAKE_PAIR(BgL_arg2822z00_888, BNIL); } 
SET_CDR(BgL_tail1877z00_882, BgL_newtail1878z00_885); 
{ /* ./Expand/object.scm 391 */
obj_t BgL_arg2816z00_886;obj_t BgL_arg2817z00_887;
BgL_arg2816z00_886 = 
CDR(BgL_ll1874z00_880); 
BgL_arg2817z00_887 = 
CDR(BgL_ll1875z00_881); 
{ 
obj_t BgL_tail1877z00_3202;obj_t BgL_ll1875z00_3201;obj_t BgL_ll1874z00_3200;
BgL_ll1874z00_3200 = BgL_arg2816z00_886; 
BgL_ll1875z00_3201 = BgL_arg2817z00_887; 
BgL_tail1877z00_3202 = BgL_newtail1878z00_885; 
BgL_tail1877z00_882 = BgL_tail1877z00_3202; 
BgL_ll1875z00_881 = BgL_ll1875z00_3201; 
BgL_ll1874z00_880 = BgL_ll1874z00_3200; 
goto BgL_map1879z00_883;} } } } } } } 
{ /* ./Expand/object.scm 397 */
obj_t BgL_arg2851z00_902;
{ /* ./Expand/object.scm 397 */
obj_t BgL_arg2855z00_904;obj_t BgL_arg2856z00_905;
BgL_arg2855z00_904 = 
CNST_TABLE_REF(((long)2)); 
{ /* ./Expand/object.scm 399 */
obj_t BgL_arg2859z00_906;obj_t BgL_arg2860z00_907;
{ /* ./Expand/object.scm 399 */
obj_t BgL_arg2863z00_908;
{ /* ./Expand/object.scm 399 */
obj_t BgL_zc3anonymousza32879ze3z83_2408;
{ 
int BgL_auxz00_3206;int BgL_auxz00_3204;
BgL_auxz00_3206 = 
(int)(((long)3)); 
BgL_auxz00_3204 = 
(int)(((long)4)); 
BgL_zc3anonymousza32879ze3z83_2408 = 
make_fx_procedure(BGl_zc3anonymousza32879ze3z83zzexpand_objectz00, BgL_auxz00_3204, BgL_auxz00_3206); } 
{ /* ./Expand/object.scm 399 */
int BgL_auxz00_3209;
BgL_auxz00_3209 = 
(int)(((long)0)); 
PROCEDURE_SET(BgL_zc3anonymousza32879ze3z83_2408, BgL_auxz00_3209, BgL_ez00_31); } 
{ /* ./Expand/object.scm 399 */
int BgL_auxz00_3212;
BgL_auxz00_3212 = 
(int)(((long)1)); 
PROCEDURE_SET(BgL_zc3anonymousza32879ze3z83_2408, BgL_auxz00_3212, BgL_rewritezd2bindingszd2_866); } 
{ /* ./Expand/object.scm 399 */
int BgL_auxz00_3215;
BgL_auxz00_3215 = 
(int)(((long)2)); 
PROCEDURE_SET(BgL_zc3anonymousza32879ze3z83_2408, BgL_auxz00_3215, BgL_e1z00_2406); } 
{ /* ./Expand/object.scm 398 */
obj_t BgL_list2868z00_910;
{ /* ./Expand/object.scm 398 */
obj_t BgL_arg2870z00_911;
{ /* ./Expand/object.scm 398 */
obj_t BgL_arg2873z00_912;
{ /* ./Expand/object.scm 398 */
obj_t BgL_arg2876z00_913;
BgL_arg2876z00_913 = 
MAKE_PAIR(BgL_instantiatesz00_868, BNIL); 
BgL_arg2873z00_912 = 
MAKE_PAIR(BgL_classesz00_867, BgL_arg2876z00_913); } 
BgL_arg2870z00_911 = 
MAKE_PAIR(BgL_privatezd2variableszd2_865, BgL_arg2873z00_912); } 
BgL_list2868z00_910 = 
MAKE_PAIR(BgL_userzd2variableszd2_864, BgL_arg2870z00_911); } 
BgL_arg2863z00_908 = 
BGl_mapz00zz__r4_control_features_6_9z00(BgL_zc3anonymousza32879ze3z83_2408, BgL_list2868z00_910); } } 
BgL_arg2859z00_906 = 
BGl_reversez12z12zz__r4_pairs_and_lists_6_3z00(BgL_arg2863z00_908); } 
{ /* ./Expand/object.scm 411 */
obj_t BgL_arg2909z00_935;
{ /* ./Expand/object.scm 411 */
obj_t BgL_arg2913z00_937;
{ /* ./Expand/object.scm 411 */
obj_t BgL_arg2916z00_938;obj_t BgL_arg2917z00_939;
BgL_arg2916z00_938 = 
CNST_TABLE_REF(((long)18)); 
BgL_arg2917z00_939 = 
BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(BgL_bodyz00_29, BNIL); 
BgL_arg2913z00_937 = 
MAKE_PAIR(BgL_arg2916z00_938, BgL_arg2917z00_939); } 
BgL_arg2909z00_935 = 
PROCEDURE_ENTRY(BgL_ez00_31)(BgL_ez00_31, BgL_arg2913z00_937, BgL_ez00_31, BEOA); } 
BgL_arg2860z00_907 = 
MAKE_PAIR(BgL_arg2909z00_935, BNIL); } 
BgL_arg2856z00_905 = 
MAKE_PAIR(BgL_arg2859z00_906, BgL_arg2860z00_907); } 
BgL_arg2851z00_902 = 
MAKE_PAIR(BgL_arg2855z00_904, BgL_arg2856z00_905); } 
BgL_arg2808z00_875 = 
MAKE_PAIR(BgL_arg2851z00_902, BNIL); } 
BgL_arg2804z00_873 = 
MAKE_PAIR(BgL_arg2807z00_874, BgL_arg2808z00_875); } 
return 
MAKE_PAIR(BgL_arg2803z00_872, BgL_arg2804z00_873);} }  else 
{ 
obj_t BgL_varz00_960;obj_t BgL_exprz00_961;
{ /* ./Expand/object.scm 412 */
obj_t BgL_ezd2280zd2_964;
BgL_ezd2280zd2_964 = 
CAR(BgL_bindingsz00_863); 
{ /* ./Expand/object.scm 412 */
bool_t BgL_test2953z00_965;
BgL_test2953z00_965 = 
PAIRP(BgL_ezd2280zd2_964); 
if(BgL_test2953z00_965)
{ /* ./Expand/object.scm 412 */
obj_t BgL_carzd2285zd2_966;obj_t BgL_cdrzd2286zd2_967;
BgL_carzd2285zd2_966 = 
CAR(BgL_ezd2280zd2_964); 
BgL_cdrzd2286zd2_967 = 
CDR(BgL_ezd2280zd2_964); 
{ /* ./Expand/object.scm 412 */
bool_t BgL_test2954z00_968;
BgL_test2954z00_968 = 
SYMBOLP(BgL_carzd2285zd2_966); 
if(BgL_test2954z00_968)
{ /* ./Expand/object.scm 412 */
bool_t BgL_test2955z00_969;
BgL_test2955z00_969 = 
PAIRP(BgL_cdrzd2286zd2_967); 
if(BgL_test2955z00_969)
{ /* ./Expand/object.scm 412 */
bool_t BgL_test2956z00_970;
{ /* ./Expand/object.scm 412 */
obj_t BgL_auxz00_3244;
BgL_auxz00_3244 = 
CDR(BgL_cdrzd2286zd2_967); 
BgL_test2956z00_970 = 
NULLP(BgL_auxz00_3244); } 
if(BgL_test2956z00_970)
{ /* ./Expand/object.scm 412 */
obj_t BgL_arg2959z00_971;
BgL_arg2959z00_971 = 
CAR(BgL_cdrzd2286zd2_967); 
BgL_varz00_960 = BgL_carzd2285zd2_966; 
BgL_exprz00_961 = BgL_arg2959z00_971; 
{ /* ./Expand/object.scm 414 */
obj_t BgL_bdgz00_973;
BgL_bdgz00_973 = 
CAR(BgL_bindingsz00_863); 
{ /* ./Expand/object.scm 414 */
obj_t BgL_locz00_974;
BgL_locz00_974 = 
BGl_findzd2locationzf2locz20zztools_locationz00(BgL_bdgz00_973, BgL_xz00_30); 
{ /* ./Expand/object.scm 415 */
obj_t BgL_idze2typeze2_975;
BgL_idze2typeze2_975 = 
BGl_parsezd2idzd2zzast_identz00(BgL_varz00_960, BgL_locz00_974); 
{ /* ./Expand/object.scm 416 */
obj_t BgL_idz00_976;
BgL_idz00_976 = 
CAR(BgL_idze2typeze2_975); 
{ /* ./Expand/object.scm 418 */
obj_t BgL_privz00_978;
BgL_privz00_978 = 
PROCEDURE_ENTRY(BGl_gensymz00zz__r4_symbols_6_4z00)(BGl_gensymz00zz__r4_symbols_6_4z00, BEOA); 
{ /* ./Expand/object.scm 419 */
obj_t BgL_kclassz00_979;
BgL_exprz00_989 = BgL_exprz00_961; 
BgL_bdgz00_990 = BgL_bdgz00_973; 
BgL_locz00_991 = BgL_locz00_974; 
{ 
obj_t BgL_instantiatez00_993;obj_t BgL_bodyz00_994;
{ /* ./Expand/object.scm 371 */
bool_t BgL_test3008z00_998;
BgL_test3008z00_998 = 
PAIRP(BgL_exprz00_989); 
if(BgL_test3008z00_998)
{ /* ./Expand/object.scm 371 */
obj_t BgL_arg3010z00_999;obj_t BgL_arg3011z00_1000;
BgL_arg3010z00_999 = 
CAR(BgL_exprz00_989); 
BgL_arg3011z00_1000 = 
CDR(BgL_exprz00_989); 
BgL_instantiatez00_993 = BgL_arg3010z00_999; 
BgL_bodyz00_994 = BgL_arg3011z00_1000; 
{ /* ./Expand/object.scm 350 */
obj_t BgL_locz00_1001;
BgL_locz00_1001 = 
BGl_findzd2locationzf2locz20zztools_locationz00(BgL_bodyz00_994, BgL_locz00_991); 
{ /* ./Expand/object.scm 350 */
obj_t BgL_idze2typeze2_1002;
BgL_idze2typeze2_1002 = 
BGl_parsezd2idzd2zzast_identz00(BgL_instantiatez00_993, BgL_locz00_1001); 
{ /* ./Expand/object.scm 351 */
obj_t BgL_kclassz00_1003;
BgL_kclassz00_1003 = 
CDR(BgL_idze2typeze2_1002); 
{ /* ./Expand/object.scm 352 */

{ /* ./Expand/object.scm 354 */
bool_t BgL_test3017z00_1004;
{ /* ./Expand/object.scm 354 */
obj_t BgL_auxz00_3264;obj_t BgL_auxz00_3262;
BgL_auxz00_3264 = 
CNST_TABLE_REF(((long)16)); 
BgL_auxz00_3262 = 
CAR(BgL_idze2typeze2_1002); 
BgL_test3017z00_1004 = 
(BgL_auxz00_3262==BgL_auxz00_3264); } 
if(BgL_test3017z00_1004)
{ /* ./Expand/object.scm 358 */
bool_t BgL_test3018z00_1005;
BgL_test3018z00_1005 = 
BGl_iszd2azf3z21zz__objectz00(BgL_kclassz00_1003, BGl_tclassz00zzobject_classz00); 
if(BgL_test3018z00_1005)
{ /* ./Expand/object.scm 362 */
bool_t BgL_test3019z00_1006;
{ /* ./Expand/object.scm 362 */
BgL_tclassz00_bglt BgL_obj1626z00_2096;
BgL_obj1626z00_2096 = 
(BgL_tclassz00_bglt)(BgL_kclassz00_1003); 
{ 
obj_t BgL_auxz00_3271;
{ /* ./Expand/object.scm 362 */
BgL_objectz00_bglt BgL_auxz00_3272;
BgL_auxz00_3272 = 
(BgL_objectz00_bglt)(BgL_obj1626z00_2096); 
BgL_auxz00_3271 = 
BGL_OBJECT_WIDENING(BgL_auxz00_3272); } 
BgL_test3019z00_1006 = 
(((BgL_tclassz00_bglt)CREF(BgL_auxz00_3271))->BgL_abstractzf3zf3); } } 
if(BgL_test3019z00_1006)
{ /* ./Expand/object.scm 362 */
FAILURE(BFALSE,BGl_string4904z00zzexpand_objectz00,BgL_bdgz00_990);}  else 
{ /* ./Expand/object.scm 362 */
BgL_kclassz00_979 = BgL_kclassz00_1003; } }  else 
{ /* ./Expand/object.scm 358 */
FAILURE(BFALSE,BGl_string4905z00zzexpand_objectz00,BgL_bdgz00_990);} }  else 
{ /* ./Expand/object.scm 354 */
FAILURE(BFALSE,BGl_string4906z00zzexpand_objectz00,BgL_bdgz00_990);} } } } } } }  else 
{ /* ./Expand/object.scm 371 */
FAILURE(BFALSE,BGl_string4906z00zzexpand_objectz00,BgL_bdgz00_990);} } } 
{ /* ./Expand/object.scm 420 */

{ /* ./Expand/object.scm 421 */
obj_t BgL_arg2977z00_980;obj_t BgL_arg2978z00_981;obj_t BgL_arg2979z00_982;obj_t BgL_arg2980z00_983;obj_t BgL_arg2981z00_984;obj_t BgL_arg2982z00_985;
BgL_arg2977z00_980 = 
CDR(BgL_bindingsz00_863); 
BgL_arg2978z00_981 = 
MAKE_PAIR(BgL_varz00_960, BgL_userzd2variableszd2_864); 
BgL_arg2979z00_982 = 
MAKE_PAIR(BgL_privz00_978, BgL_privatezd2variableszd2_865); 
{ /* ./Expand/object.scm 424 */
obj_t BgL_arg2988z00_986;
BgL_arg2988z00_986 = 
MAKE_PAIR(BgL_idz00_976, BgL_privz00_978); 
BgL_arg2980z00_983 = 
MAKE_PAIR(BgL_arg2988z00_986, BgL_rewritezd2bindingszd2_866); } 
BgL_arg2981z00_984 = 
MAKE_PAIR(BgL_kclassz00_979, BgL_classesz00_867); 
BgL_arg2982z00_985 = 
MAKE_PAIR(BgL_exprz00_961, BgL_instantiatesz00_868); 
{ 
obj_t BgL_instantiatesz00_3293;obj_t BgL_classesz00_3292;obj_t BgL_rewritezd2bindingszd2_3291;obj_t BgL_privatezd2variableszd2_3290;obj_t BgL_userzd2variableszd2_3289;obj_t BgL_bindingsz00_3288;
BgL_bindingsz00_3288 = BgL_arg2977z00_980; 
BgL_userzd2variableszd2_3289 = BgL_arg2978z00_981; 
BgL_privatezd2variableszd2_3290 = BgL_arg2979z00_982; 
BgL_rewritezd2bindingszd2_3291 = BgL_arg2980z00_983; 
BgL_classesz00_3292 = BgL_arg2981z00_984; 
BgL_instantiatesz00_3293 = BgL_arg2982z00_985; 
BgL_instantiatesz00_868 = BgL_instantiatesz00_3293; 
BgL_classesz00_867 = BgL_classesz00_3292; 
BgL_rewritezd2bindingszd2_866 = BgL_rewritezd2bindingszd2_3291; 
BgL_privatezd2variableszd2_865 = BgL_privatezd2variableszd2_3290; 
BgL_userzd2variableszd2_864 = BgL_userzd2variableszd2_3289; 
BgL_bindingsz00_863 = BgL_bindingsz00_3288; 
goto BgL_loopz00_869;} } } } } } } } } }  else 
{ /* ./Expand/object.scm 412 */
BgL_tagzd2279zd2_963:
{ /* ./Expand/object.scm 428 */
obj_t BgL_arg3002z00_988;
BgL_arg3002z00_988 = 
CAR(BgL_bindingsz00_863); 
FAILURE(BFALSE,BGl_string4906z00zzexpand_objectz00,BgL_arg3002z00_988);} } }  else 
{ /* ./Expand/object.scm 412 */
goto BgL_tagzd2279zd2_963;} }  else 
{ /* ./Expand/object.scm 412 */
goto BgL_tagzd2279zd2_963;} } }  else 
{ /* ./Expand/object.scm 412 */
goto BgL_tagzd2279zd2_963;} } } } } } } } } 
}



/* <anonymous:2879> */
obj_t BGl_zc3anonymousza32879ze3z83zzexpand_objectz00(obj_t BgL_envz00_2409, obj_t BgL_userz00_2413, obj_t BgL_privatez00_2414, obj_t BgL_classz00_2415, obj_t BgL_instantiatez00_2416)
{ AN_OBJECT;
{ /* ./Expand/object.scm 398 */
{ /* ./Expand/object.scm 399 */
obj_t BgL_e1z00_2412;
{ /* ./Expand/object.scm 399 */
int BgL_auxz00_3296;
BgL_auxz00_3296 = 
(int)(((long)2)); 
BgL_e1z00_2412 = 
PROCEDURE_REF(BgL_envz00_2409, BgL_auxz00_3296); } 
{ 
obj_t BgL_userz00_914;obj_t BgL_privatez00_915;obj_t BgL_classz00_916;obj_t BgL_instantiatez00_917;
BgL_userz00_914 = BgL_userz00_2413; 
BgL_privatez00_915 = BgL_privatez00_2414; 
BgL_classz00_916 = BgL_classz00_2415; 
BgL_instantiatez00_917 = BgL_instantiatez00_2416; 
{ /* ./Expand/object.scm 399 */
obj_t BgL_cidz00_919;
{ /* ./Expand/object.scm 399 */
BgL_typez00_bglt BgL_obj1003z00_2061;
BgL_obj1003z00_2061 = 
(BgL_typez00_bglt)(BgL_classz00_916); 
BgL_cidz00_919 = 
(((BgL_typez00_bglt)CREF(BgL_obj1003z00_2061))->BgL_idz00); } 
{ /* ./Expand/object.scm 399 */
obj_t BgL_fillz00_920;
{ /* ./Expand/object.scm 400 */
obj_t BgL_list2898z00_930;
{ /* ./Expand/object.scm 400 */
obj_t BgL_arg2900z00_931;obj_t BgL_arg2901z00_932;
BgL_arg2900z00_931 = 
CNST_TABLE_REF(((long)19)); 
{ /* ./Expand/object.scm 400 */
obj_t BgL_arg2904z00_933;
{ /* ./Expand/object.scm 400 */
obj_t BgL_auxz00_3302;
BgL_auxz00_3302 = 
CNST_TABLE_REF(((long)20)); 
BgL_arg2904z00_933 = 
MAKE_PAIR(BgL_auxz00_3302, BNIL); } 
BgL_arg2901z00_932 = 
MAKE_PAIR(BgL_cidz00_919, BgL_arg2904z00_933); } 
BgL_list2898z00_930 = 
MAKE_PAIR(BgL_arg2900z00_931, BgL_arg2901z00_932); } 
BgL_fillz00_920 = 
BGl_symbolzd2appendzd2zz__r4_symbols_6_4z00(BgL_list2898z00_930); } 
{ /* ./Expand/object.scm 402 */
obj_t BgL_allocz00_2407;
{ 
int BgL_auxz00_3308;
BgL_auxz00_3308 = 
(int)(((long)2)); 
BgL_allocz00_2407 = 
MAKE_L_PROCEDURE(BGl_allocz00zzexpand_objectz00, BgL_auxz00_3308); } 
{ /* ./Expand/object.scm 402 */
int BgL_auxz00_3311;
BgL_auxz00_3311 = 
(int)(((long)0)); 
PROCEDURE_L_SET(BgL_allocz00_2407, BgL_auxz00_3311, BgL_privatez00_915); } 
{ /* ./Expand/object.scm 402 */
int BgL_auxz00_3314;
BgL_auxz00_3314 = 
(int)(((long)1)); 
PROCEDURE_L_SET(BgL_allocz00_2407, BgL_auxz00_3314, BgL_fillz00_920); } 
{ /* ./Expand/object.scm 401 */

{ /* ./Expand/object.scm 403 */
obj_t BgL_arg2882z00_922;
{ /* ./Expand/object.scm 403 */
obj_t BgL_arg2885z00_923;
BgL_arg2885z00_923 = 
BGl_instantiatezd2ze3fillz31zzexpand_objectz00(BgL_instantiatez00_917, BgL_classz00_916, BgL_allocz00_2407, BgL_e1z00_2412); 
BgL_arg2882z00_922 = 
MAKE_PAIR(BgL_arg2885z00_923, BNIL); } 
return 
MAKE_PAIR(BgL_userz00_914, BgL_arg2882z00_922);} } } } } } } } 
}



/* e1 */
obj_t BGl_e1z00zzexpand_objectz00(obj_t BgL_envz00_2417, obj_t BgL_xz00_2420, obj_t BgL__z00_2421)
{ AN_OBJECT;
{ /* ./Expand/object.scm 380 */
{ /* ./Expand/object.scm 381 */
obj_t BgL_ez00_2418;obj_t BgL_rewritezd2bindingszd2_2419;
{ /* ./Expand/object.scm 381 */
int BgL_auxz00_3320;
BgL_auxz00_3320 = 
(int)(((long)0)); 
BgL_ez00_2418 = 
PROCEDURE_REF(BgL_envz00_2417, BgL_auxz00_3320); } 
{ /* ./Expand/object.scm 381 */
int BgL_auxz00_3323;
BgL_auxz00_3323 = 
(int)(((long)1)); 
BgL_rewritezd2bindingszd2_2419 = 
PROCEDURE_REF(BgL_envz00_2417, BgL_auxz00_3323); } 
{ 
obj_t BgL_xz00_940;obj_t BgL__z00_941;
BgL_xz00_940 = BgL_xz00_2420; 
BgL__z00_941 = BgL__z00_2421; 
BgL_zc3anonymousza32920ze3z83_942:
{ /* ./Expand/object.scm 381 */
bool_t BgL_test2921z00_943;
BgL_test2921z00_943 = 
SYMBOLP(BgL_xz00_940); 
if(BgL_test2921z00_943)
{ /* ./Expand/object.scm 382 */
obj_t BgL_cellz00_944;
BgL_cellz00_944 = 
BGl_assqz00zz__r4_pairs_and_lists_6_3z00(BgL_xz00_940, BgL_rewritezd2bindingszd2_2419); 
if(
PAIRP(BgL_cellz00_944))
{ /* ./Expand/object.scm 383 */
return 
CDR(BgL_cellz00_944);}  else 
{ /* ./Expand/object.scm 383 */
return BgL_xz00_940;} }  else 
{ 

{ /* ./Expand/object.scm 386 */
bool_t BgL_test2926z00_950;
BgL_test2926z00_950 = 
PAIRP(BgL_xz00_940); 
if(BgL_test2926z00_950)
{ /* ./Expand/object.scm 386 */
obj_t BgL_cdrzd2273zd2_951;
BgL_cdrzd2273zd2_951 = 
CDR(BgL_xz00_940); 
{ /* ./Expand/object.scm 386 */
bool_t BgL_test2927z00_952;
{ /* ./Expand/object.scm 386 */
obj_t BgL_auxz00_3337;obj_t BgL_auxz00_3335;
BgL_auxz00_3337 = 
CNST_TABLE_REF(((long)18)); 
BgL_auxz00_3335 = 
CAR(BgL_xz00_940); 
BgL_test2927z00_952 = 
(BgL_auxz00_3335==BgL_auxz00_3337); } 
if(BgL_test2927z00_952)
{ /* ./Expand/object.scm 386 */
bool_t BgL_test2928z00_953;
BgL_test2928z00_953 = 
PAIRP(BgL_cdrzd2273zd2_951); 
if(BgL_test2928z00_953)
{ /* ./Expand/object.scm 386 */
bool_t BgL_test2929z00_954;
{ /* ./Expand/object.scm 386 */
obj_t BgL_auxz00_3343;
BgL_auxz00_3343 = 
CDR(BgL_cdrzd2273zd2_951); 
BgL_test2929z00_954 = 
NULLP(BgL_auxz00_3343); } 
if(BgL_test2929z00_954)
{ /* ./Expand/object.scm 386 */
obj_t BgL_arg2931z00_955;
BgL_arg2931z00_955 = 
CAR(BgL_cdrzd2273zd2_951); 
{ 
obj_t BgL__z00_3349;obj_t BgL_xz00_3348;
BgL_xz00_3348 = BgL_arg2931z00_955; 
BgL__z00_3349 = BgL_ez00_2418; 
BgL__z00_941 = BgL__z00_3349; 
BgL_xz00_940 = BgL_xz00_3348; 
goto BgL_zc3anonymousza32920ze3z83_942;} }  else 
{ /* ./Expand/object.scm 386 */
BgL_tagzd2268zd2_948:
return 
PROCEDURE_ENTRY(BgL_ez00_2418)(BgL_ez00_2418, BgL_xz00_940, BgL_ez00_2418, BEOA);} }  else 
{ /* ./Expand/object.scm 386 */
goto BgL_tagzd2268zd2_948;} }  else 
{ /* ./Expand/object.scm 386 */
goto BgL_tagzd2268zd2_948;} } }  else 
{ /* ./Expand/object.scm 386 */
goto BgL_tagzd2268zd2_948;} } } } } } } 
}



/* alloc */
obj_t BGl_allocz00zzexpand_objectz00(obj_t BgL_envz00_2422, obj_t BgL_argsz00_2425)
{ AN_OBJECT;
{ /* ./Expand/object.scm 401 */
{ /* ./Expand/object.scm 402 */
obj_t BgL_privatez00_2423;obj_t BgL_fillz00_2424;
{ /* ./Expand/object.scm 402 */
int BgL_auxz00_3352;
BgL_auxz00_3352 = 
(int)(((long)0)); 
BgL_privatez00_2423 = 
PROCEDURE_L_REF(BgL_envz00_2422, BgL_auxz00_3352); } 
{ /* ./Expand/object.scm 402 */
int BgL_auxz00_3355;
BgL_auxz00_3355 = 
(int)(((long)1)); 
BgL_fillz00_2424 = 
PROCEDURE_L_REF(BgL_envz00_2422, BgL_auxz00_3355); } 
{ 
obj_t BgL_argsz00_925;
BgL_argsz00_925 = BgL_argsz00_2425; 
{ /* ./Expand/object.scm 402 */
obj_t BgL_arg2891z00_927;
{ /* ./Expand/object.scm 402 */
obj_t BgL_arg2894z00_928;
BgL_arg2894z00_928 = 
BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(BgL_argsz00_925, BNIL); 
BgL_arg2891z00_927 = 
MAKE_PAIR(BgL_privatez00_2423, BgL_arg2894z00_928); } 
return 
MAKE_PAIR(BgL_fillz00_2424, BgL_arg2891z00_927);} } } } 
}



/* expand-duplicate */
BGL_EXPORTED_DEF obj_t BGl_expandzd2duplicatezd2zzexpand_objectz00(obj_t BgL_xz00_32, obj_t BgL_ez00_33)
{ AN_OBJECT;
{ /* ./Expand/object.scm 435 */
{ 
obj_t BgL_duplicatez00_1010;obj_t BgL_dupz00_1011;obj_t BgL_provz00_1012;
{ /* ./Expand/object.scm 436 */
bool_t BgL_test3034z00_1016;
BgL_test3034z00_1016 = 
PAIRP(BgL_xz00_32); 
if(BgL_test3034z00_1016)
{ /* ./Expand/object.scm 436 */
obj_t BgL_cdrzd2303zd2_1017;
BgL_cdrzd2303zd2_1017 = 
CDR(BgL_xz00_32); 
{ /* ./Expand/object.scm 436 */
bool_t BgL_test3035z00_1018;
BgL_test3035z00_1018 = 
PAIRP(BgL_cdrzd2303zd2_1017); 
if(BgL_test3035z00_1018)
{ /* ./Expand/object.scm 436 */
obj_t BgL_arg3037z00_1019;obj_t BgL_arg3038z00_1020;obj_t BgL_arg3039z00_1021;
BgL_arg3037z00_1019 = 
CAR(BgL_xz00_32); 
BgL_arg3038z00_1020 = 
CAR(BgL_cdrzd2303zd2_1017); 
BgL_arg3039z00_1021 = 
CDR(BgL_cdrzd2303zd2_1017); 
BgL_duplicatez00_1010 = BgL_arg3037z00_1019; 
BgL_dupz00_1011 = BgL_arg3038z00_1020; 
BgL_provz00_1012 = BgL_arg3039z00_1021; 
{ /* ./Expand/object.scm 438 */
obj_t BgL_idze2typeze2_1022;
{ /* ./Expand/object.scm 438 */
obj_t BgL_arg3072z00_1032;
BgL_arg3072z00_1032 = 
BGl_findzd2locationzd2zztools_locationz00(BgL_xz00_32); 
BgL_idze2typeze2_1022 = 
BGl_parsezd2idzd2zzast_identz00(BgL_duplicatez00_1010, BgL_arg3072z00_1032); } 
{ /* ./Expand/object.scm 438 */
obj_t BgL_idz00_1023;
BgL_idz00_1023 = 
CAR(BgL_idze2typeze2_1022); 
{ /* ./Expand/object.scm 439 */
obj_t BgL_classz00_1024;
BgL_classz00_1024 = 
CDR(BgL_idze2typeze2_1022); 
{ /* ./Expand/object.scm 440 */

{ /* ./Expand/object.scm 442 */
bool_t BgL_test3049z00_1025;
BgL_test3049z00_1025 = 
BGl_iszd2azf3z21zz__objectz00(BgL_classz00_1024, BGl_tclassz00zzobject_classz00); 
if(BgL_test3049z00_1025)
{ /* ./Expand/object.scm 447 */
bool_t BgL_test3050z00_1026;
{ /* ./Expand/object.scm 447 */
BgL_tclassz00_bglt BgL_obj1626z00_2118;
BgL_obj1626z00_2118 = 
(BgL_tclassz00_bglt)(BgL_classz00_1024); 
{ 
obj_t BgL_auxz00_3376;
{ /* ./Expand/object.scm 447 */
BgL_objectz00_bglt BgL_auxz00_3377;
BgL_auxz00_3377 = 
(BgL_objectz00_bglt)(BgL_obj1626z00_2118); 
BgL_auxz00_3376 = 
BGL_OBJECT_WIDENING(BgL_auxz00_3377); } 
BgL_test3050z00_1026 = 
(((BgL_tclassz00_bglt)CREF(BgL_auxz00_3376))->BgL_abstractzf3zf3); } } 
if(BgL_test3050z00_1026)
{ /* ./Expand/object.scm 447 */
FAILURE(BFALSE,BGl_string4907z00zzexpand_objectz00,BgL_xz00_32);}  else 
{ /* ./Expand/object.scm 447 */
{ /* ./Expand/object.scm 450 */
obj_t BgL_arg3053z00_1027;
{ /* ./Expand/object.scm 450 */
obj_t BgL_arg3056z00_1028;
BgL_arg3056z00_1028 = 
BGl_duplicatezd2ze3makez31zzexpand_objectz00(BgL_xz00_32, BgL_classz00_1024, BgL_dupz00_1011, BgL_provz00_1012, BgL_ez00_33); 
BgL_arg3053z00_1027 = 
PROCEDURE_ENTRY(BgL_ez00_33)(BgL_ez00_33, BgL_arg3056z00_1028, BgL_ez00_33, BEOA); } 
return 
BGl_replacez12z12zztools_miscz00(BgL_xz00_32, BgL_arg3053z00_1027);} } }  else 
{ /* ./Expand/object.scm 442 */
{ /* ./Expand/object.scm 444 */
obj_t BgL_arg3061z00_1029;
{ /* ./Expand/object.scm 444 */
obj_t BgL_arg3065z00_1031;
BgL_arg3065z00_1031 = 
SYMBOL_TO_STRING(BgL_idz00_1023); 
BgL_arg3061z00_1029 = 
string_append(BGl_string4908z00zzexpand_objectz00, BgL_arg3065z00_1031); } 
FAILURE(BFALSE,BgL_arg3061z00_1029,BgL_xz00_32);} } } } } } } }  else 
{ /* ./Expand/object.scm 436 */
BgL_tagzd2294zd2_1014:
FAILURE(BFALSE,BGl_string4909z00zzexpand_objectz00,BgL_xz00_32);} } }  else 
{ /* ./Expand/object.scm 436 */
goto BgL_tagzd2294zd2_1014;} } } } 
}



/* _expand-duplicate4621 */
obj_t BGl__expandzd2duplicate4621zd2zzexpand_objectz00(obj_t BgL_envz00_2426, obj_t BgL_xz00_2427, obj_t BgL_ez00_2428)
{ AN_OBJECT;
{ /* ./Expand/object.scm 435 */
return 
BGl_expandzd2duplicatezd2zzexpand_objectz00(BgL_xz00_2427, BgL_ez00_2428);} 
}



/* duplicate->make */
obj_t BGl_duplicatezd2ze3makez31zzexpand_objectz00(obj_t BgL_formz00_34, obj_t BgL_classz00_35, obj_t BgL_duplicatedz00_36, obj_t BgL_providedz00_37, obj_t BgL_ez00_38)
{ AN_OBJECT;
{ /* ./Expand/object.scm 463 */
{ /* ./Expand/object.scm 464 */
obj_t BgL_slotsz00_1033;
BgL_slotsz00_1033 = 
BGl_tclasszd2allzd2slotsz00zzobject_classz00(
(BgL_tclassz00_bglt)(BgL_classz00_35)); 
{ /* ./Expand/object.scm 464 */
long BgL_lenz00_1034;
BgL_lenz00_1034 = 
bgl_list_length(BgL_slotsz00_1033); 
{ /* ./Expand/object.scm 465 */
obj_t BgL_dupzd2varzd2_1035;
{ /* ./Expand/object.scm 466 */
obj_t BgL_arg3345z00_1166;
BgL_arg3345z00_1166 = 
PROCEDURE_ENTRY(BGl_gensymz00zz__r4_symbols_6_4z00)(BGl_gensymz00zz__r4_symbols_6_4z00, 
CNST_TABLE_REF(((long)21)), BEOA); 
BgL_dupzd2varzd2_1035 = 
BGl_markzd2symbolzd2nonzd2userz12zc0zzast_identz00(BgL_arg3345z00_1166); } 
{ /* ./Expand/object.scm 466 */
obj_t BgL_dupzd2varzd2typedz00_1036;
{ /* ./Expand/object.scm 467 */
obj_t BgL_arg3341z00_1165;
{ /* ./Expand/object.scm 467 */
BgL_typez00_bglt BgL_obj1003z00_2129;
BgL_obj1003z00_2129 = 
(BgL_typez00_bglt)(BgL_classz00_35); 
BgL_arg3341z00_1165 = 
(((BgL_typez00_bglt)CREF(BgL_obj1003z00_2129))->BgL_idz00); } 
BgL_dupzd2varzd2typedz00_1036 = 
BGl_makezd2typedzd2identz00zzast_identz00(BgL_dupzd2varzd2_1035, BgL_arg3341z00_1165); } 
{ /* ./Expand/object.scm 467 */
obj_t BgL_newz00_1037;
BgL_newz00_1037 = 
PROCEDURE_ENTRY(BGl_gensymz00zz__r4_symbols_6_4z00)(BGl_gensymz00zz__r4_symbols_6_4z00, 
CNST_TABLE_REF(((long)12)), BEOA); 
{ /* ./Expand/object.scm 468 */
obj_t BgL_vargsz00_1038;
{ /* ./Expand/object.scm 469 */
long BgL_arg3334z00_1163;obj_t BgL_arg3335z00_1164;
BgL_arg3334z00_1163 = 
bgl_list_length(BgL_slotsz00_1033); 
BgL_arg3335z00_1164 = BUNSPEC; 
{ /* ./Expand/object.scm 469 */
int BgL_auxz00_3406;
BgL_auxz00_3406 = 
(int)(BgL_arg3334z00_1163); 
BgL_vargsz00_1038 = 
make_vector(BgL_auxz00_3406, BgL_arg3335z00_1164); } } 
{ /* ./Expand/object.scm 469 */

{ 
obj_t BgL_providedz00_1039;
BgL_providedz00_1039 = BgL_providedz00_37; 
BgL_loopz00_1040:
{ /* ./Expand/object.scm 472 */
bool_t BgL_test3077z00_1041;
BgL_test3077z00_1041 = 
NULLP(BgL_providedz00_1039); 
if(BgL_test3077z00_1041)
{ /* ./Expand/object.scm 472 */
CNST_TABLE_REF(((long)13)); }  else 
{ /* ./Expand/object.scm 474 */
obj_t BgL_pz00_1042;
BgL_pz00_1042 = 
CAR(BgL_providedz00_1039); 
{ 
obj_t BgL_szd2namezd2_1046;obj_t BgL_lenz00_1047;obj_t BgL_valuez00_1048;obj_t BgL_szd2namezd2_1043;obj_t BgL_valuez00_1044;
{ /* ./Expand/object.scm 475 */
bool_t BgL_test3078z00_1052;
BgL_test3078z00_1052 = 
PAIRP(BgL_pz00_1042); 
if(BgL_test3078z00_1052)
{ /* ./Expand/object.scm 475 */
obj_t BgL_carzd2320zd2_1053;obj_t BgL_cdrzd2321zd2_1054;
BgL_carzd2320zd2_1053 = 
CAR(BgL_pz00_1042); 
BgL_cdrzd2321zd2_1054 = 
CDR(BgL_pz00_1042); 
{ /* ./Expand/object.scm 475 */
bool_t BgL_test3079z00_1055;
BgL_test3079z00_1055 = 
SYMBOLP(BgL_carzd2320zd2_1053); 
if(BgL_test3079z00_1055)
{ /* ./Expand/object.scm 475 */
bool_t BgL_test3080z00_1056;
BgL_test3080z00_1056 = 
PAIRP(BgL_cdrzd2321zd2_1054); 
if(BgL_test3080z00_1056)
{ /* ./Expand/object.scm 475 */
bool_t BgL_test3081z00_1057;
{ /* ./Expand/object.scm 475 */
obj_t BgL_auxz00_3421;
BgL_auxz00_3421 = 
CDR(BgL_cdrzd2321zd2_1054); 
BgL_test3081z00_1057 = 
NULLP(BgL_auxz00_3421); } 
if(BgL_test3081z00_1057)
{ /* ./Expand/object.scm 475 */
obj_t BgL_arg3083z00_1058;
BgL_arg3083z00_1058 = 
CAR(BgL_cdrzd2321zd2_1054); 
BgL_szd2namezd2_1043 = BgL_carzd2320zd2_1053; 
BgL_valuez00_1044 = BgL_arg3083z00_1058; 
{ /* ./Expand/object.scm 479 */
obj_t BgL_arg3143z00_1079;obj_t BgL_arg3144z00_1080;
BgL_arg3143z00_1079 = 
BGl_findzd2slotzd2offsetz00zzexpand_objectz00(BgL_slotsz00_1033, BgL_szd2namezd2_1043, BGl_string4910z00zzexpand_objectz00, BgL_pz00_1042); 
{ /* ./Expand/object.scm 483 */
obj_t BgL_arg3148z00_1081;
BgL_arg3148z00_1081 = 
BGl_objectzd2epairifyzd2zzexpand_objectz00(BgL_valuez00_1044, BgL_pz00_1042); 
BgL_arg3144z00_1080 = 
MAKE_PAIR(BTRUE, BgL_arg3148z00_1081); } 
{ /* ./Expand/object.scm 478 */
int BgL_kz00_2161;
BgL_kz00_2161 = 
CINT(BgL_arg3143z00_1079); 
{ /* ./Expand/object.scm 478 */
obj_t BgL_xz00_2446;
BgL_xz00_2446 = 
VECTOR_SET(BgL_vargsz00_1038,BgL_kz00_2161,BgL_arg3144z00_1080); BUNSPEC; } } } }  else 
{ /* ./Expand/object.scm 475 */
bool_t BgL_test3086z00_1061;
BgL_test3086z00_1061 = 
SYMBOLP(BgL_carzd2320zd2_1053); 
if(BgL_test3086z00_1061)
{ /* ./Expand/object.scm 475 */
obj_t BgL_cdrzd2348zd2_1062;
BgL_cdrzd2348zd2_1062 = 
CDR(BgL_cdrzd2321zd2_1054); 
{ /* ./Expand/object.scm 475 */
bool_t BgL_test3087z00_1063;
BgL_test3087z00_1063 = 
PAIRP(BgL_cdrzd2348zd2_1062); 
if(BgL_test3087z00_1063)
{ /* ./Expand/object.scm 475 */
bool_t BgL_test3088z00_1064;
{ /* ./Expand/object.scm 475 */
obj_t BgL_auxz00_3436;
BgL_auxz00_3436 = 
CDR(BgL_cdrzd2348zd2_1062); 
BgL_test3088z00_1064 = 
NULLP(BgL_auxz00_3436); } 
if(BgL_test3088z00_1064)
{ /* ./Expand/object.scm 475 */
obj_t BgL_arg3090z00_1065;obj_t BgL_arg3091z00_1066;
BgL_arg3090z00_1065 = 
CAR(BgL_cdrzd2321zd2_1054); 
BgL_arg3091z00_1066 = 
CAR(BgL_cdrzd2348zd2_1062); 
BgL_szd2namezd2_1046 = BgL_carzd2320zd2_1053; 
BgL_lenz00_1047 = BgL_arg3090z00_1065; 
BgL_valuez00_1048 = BgL_arg3091z00_1066; 
BgL_tagzd2312zd2_1049:
{ /* ./Expand/object.scm 486 */
obj_t BgL_snumz00_1082;
BgL_snumz00_1082 = 
BGl_findzd2slotzd2offsetz00zzexpand_objectz00(BgL_slotsz00_1033, BgL_szd2namezd2_1046, BGl_string4910z00zzexpand_objectz00, BgL_pz00_1042); 
{ /* ./Expand/object.scm 486 */
obj_t BgL_slotz00_1083;
BgL_slotz00_1083 = 
bgl_list_ref(BgL_slotsz00_1033, 
(long)CINT(BgL_snumz00_1082)); 
{ /* ./Expand/object.scm 490 */

{ /* ./Expand/object.scm 491 */
bool_t BgL_test3151z00_1084;
{ /* ./Expand/object.scm 491 */
BgL_slotz00_bglt BgL_obj1824z00_2163;
BgL_obj1824z00_2163 = 
(BgL_slotz00_bglt)(BgL_slotz00_1083); 
{ /* ./Expand/object.scm 491 */
obj_t BgL_auxz00_3446;
BgL_auxz00_3446 = 
(((BgL_slotz00_bglt)CREF(BgL_obj1824z00_2163))->BgL_indexedz00); 
BgL_test3151z00_1084 = 
CBOOL(BgL_auxz00_3446); } } 
if(BgL_test3151z00_1084)
{ /* ./Expand/object.scm 491 */
{ /* ./Expand/object.scm 496 */
obj_t BgL_arg3153z00_1085;
{ /* ./Expand/object.scm 496 */
obj_t BgL_arg3156z00_1086;
BgL_arg3156z00_1086 = 
BGl_objectzd2epairifyzd2zzexpand_objectz00(BgL_valuez00_1048, BgL_pz00_1042); 
BgL_arg3153z00_1085 = 
MAKE_PAIR(BTRUE, BgL_arg3156z00_1086); } 
{ /* ./Expand/object.scm 494 */
int BgL_kz00_2165;
BgL_kz00_2165 = 
CINT(BgL_snumz00_1082); 
VECTOR_SET(BgL_vargsz00_1038,BgL_kz00_2165,BgL_arg3153z00_1085); } } 
{ /* ./Expand/object.scm 497 */
long BgL_arg3160z00_1087;obj_t BgL_arg3161z00_1088;
{ /* ./Expand/object.scm 497 */
long BgL_auxz00_3454;
BgL_auxz00_3454 = 
(long)CINT(BgL_snumz00_1082); 
BgL_arg3160z00_1087 = 
(BgL_auxz00_3454-((long)1)); } 
BgL_arg3161z00_1088 = 
MAKE_PAIR(BFALSE, BgL_lenz00_1047); 
{ /* ./Expand/object.scm 497 */
int BgL_kz00_2170;
BgL_kz00_2170 = 
(int)(BgL_arg3160z00_1087); 
VECTOR_SET(BgL_vargsz00_1038,BgL_kz00_2170,BgL_arg3161z00_1088); } } }  else 
{ /* ./Expand/object.scm 491 */
FAILURE(BFALSE,BGl_string4909z00zzexpand_objectz00,BgL_formz00_34);} } } } } }  else 
{ /* ./Expand/object.scm 475 */
BgL_tagzd2313zd2_1050:
FAILURE(BFALSE,BGl_string4909z00zzexpand_objectz00,BgL_formz00_34);} }  else 
{ /* ./Expand/object.scm 475 */
goto BgL_tagzd2313zd2_1050;} } }  else 
{ /* ./Expand/object.scm 475 */
goto BgL_tagzd2313zd2_1050;} } }  else 
{ /* ./Expand/object.scm 475 */
goto BgL_tagzd2313zd2_1050;} }  else 
{ /* ./Expand/object.scm 475 */
bool_t BgL_test3113z00_1071;
BgL_test3113z00_1071 = 
SYMBOLP(BgL_carzd2320zd2_1053); 
if(BgL_test3113z00_1071)
{ /* ./Expand/object.scm 475 */
bool_t BgL_test3114z00_1072;
BgL_test3114z00_1072 = 
PAIRP(BgL_cdrzd2321zd2_1054); 
if(BgL_test3114z00_1072)
{ /* ./Expand/object.scm 475 */
obj_t BgL_cdrzd2376zd2_1073;
BgL_cdrzd2376zd2_1073 = 
CDR(BgL_cdrzd2321zd2_1054); 
{ /* ./Expand/object.scm 475 */
bool_t BgL_test3115z00_1074;
BgL_test3115z00_1074 = 
PAIRP(BgL_cdrzd2376zd2_1073); 
if(BgL_test3115z00_1074)
{ /* ./Expand/object.scm 475 */
bool_t BgL_test3116z00_1075;
{ /* ./Expand/object.scm 475 */
obj_t BgL_auxz00_3469;
BgL_auxz00_3469 = 
CDR(BgL_cdrzd2376zd2_1073); 
BgL_test3116z00_1075 = 
NULLP(BgL_auxz00_3469); } 
if(BgL_test3116z00_1075)
{ /* ./Expand/object.scm 475 */
obj_t BgL_arg3118z00_1076;obj_t BgL_arg3119z00_1077;
BgL_arg3118z00_1076 = 
CAR(BgL_cdrzd2321zd2_1054); 
BgL_arg3119z00_1077 = 
CAR(BgL_cdrzd2376zd2_1073); 
{ 
obj_t BgL_valuez00_3477;obj_t BgL_lenz00_3476;obj_t BgL_szd2namezd2_3475;
BgL_szd2namezd2_3475 = BgL_carzd2320zd2_1053; 
BgL_lenz00_3476 = BgL_arg3118z00_1076; 
BgL_valuez00_3477 = BgL_arg3119z00_1077; 
BgL_valuez00_1048 = BgL_valuez00_3477; 
BgL_lenz00_1047 = BgL_lenz00_3476; 
BgL_szd2namezd2_1046 = BgL_szd2namezd2_3475; 
goto BgL_tagzd2312zd2_1049;} }  else 
{ /* ./Expand/object.scm 475 */
goto BgL_tagzd2313zd2_1050;} }  else 
{ /* ./Expand/object.scm 475 */
goto BgL_tagzd2313zd2_1050;} } }  else 
{ /* ./Expand/object.scm 475 */
goto BgL_tagzd2313zd2_1050;} }  else 
{ /* ./Expand/object.scm 475 */
goto BgL_tagzd2313zd2_1050;} } } }  else 
{ /* ./Expand/object.scm 475 */
goto BgL_tagzd2313zd2_1050;} } } 
{ /* ./Expand/object.scm 501 */
obj_t BgL_arg3171z00_1089;
BgL_arg3171z00_1089 = 
CDR(BgL_providedz00_1039); 
{ 
obj_t BgL_providedz00_3479;
BgL_providedz00_3479 = BgL_arg3171z00_1089; 
BgL_providedz00_1039 = BgL_providedz00_3479; 
goto BgL_loopz00_1040;} } } } } 
{ 
long BgL_iz00_1090;obj_t BgL_slotsz00_1091;
BgL_iz00_1090 = ((long)0); 
BgL_slotsz00_1091 = BgL_slotsz00_1033; 
BgL_loopz00_1092:
{ /* ./Expand/object.scm 505 */
bool_t BgL_test3177z00_1093;
BgL_test3177z00_1093 = 
NULLP(BgL_slotsz00_1091); 
if(BgL_test3177z00_1093)
{ /* ./Expand/object.scm 505 */
CNST_TABLE_REF(((long)13)); }  else 
{ /* ./Expand/object.scm 507 */
obj_t BgL_valuez00_1094;
{ /* ./Expand/object.scm 507 */
int BgL_kz00_2181;
BgL_kz00_2181 = 
(int)(BgL_iz00_1090); 
BgL_valuez00_1094 = 
VECTOR_REF(BgL_vargsz00_1038,BgL_kz00_2181); } 
{ /* ./Expand/object.scm 508 */
bool_t BgL_test3178z00_1095;
BgL_test3178z00_1095 = 
PAIRP(BgL_valuez00_1094); 
if(BgL_test3178z00_1095)
{ /* ./Expand/object.scm 508 */
CNST_TABLE_REF(((long)22)); }  else 
{ /* ./Expand/object.scm 511 */
obj_t BgL_slotz00_1096;
BgL_slotz00_1096 = 
CAR(BgL_slotsz00_1091); 
{ /* ./Expand/object.scm 512 */
bool_t BgL_test3179z00_1097;
{ /* ./Expand/object.scm 512 */
BgL_slotz00_bglt BgL_obj1824z00_2184;
BgL_obj1824z00_2184 = 
(BgL_slotz00_bglt)(BgL_slotz00_1096); 
{ /* ./Expand/object.scm 512 */
obj_t BgL_auxz00_3490;
BgL_auxz00_3490 = 
(((BgL_slotz00_bglt)CREF(BgL_obj1824z00_2184))->BgL_indexedz00); 
BgL_test3179z00_1097 = 
CBOOL(BgL_auxz00_3490); } } 
if(BgL_test3179z00_1097)
{ /* ./Expand/object.scm 515 */
obj_t BgL_azd2namezd2_1098;
{ /* ./Expand/object.scm 515 */
obj_t BgL_arg3194z00_1103;obj_t BgL_arg3195z00_1104;obj_t BgL_arg3196z00_1105;obj_t BgL_arg3197z00_1106;
{ /* ./Expand/object.scm 515 */
BgL_typez00_bglt BgL_obj1003z00_2185;
BgL_obj1003z00_2185 = 
(BgL_typez00_bglt)(BgL_classz00_35); 
BgL_arg3194z00_1103 = 
(((BgL_typez00_bglt)CREF(BgL_obj1003z00_2185))->BgL_idz00); } 
BgL_arg3195z00_1104 = 
CNST_TABLE_REF(((long)4)); 
{ /* ./Expand/object.scm 517 */
BgL_slotz00_bglt BgL_obj1808z00_2186;
BgL_obj1808z00_2186 = 
(BgL_slotz00_bglt)(BgL_slotz00_1096); 
BgL_arg3196z00_1105 = 
(((BgL_slotz00_bglt)CREF(BgL_obj1808z00_2186))->BgL_idz00); } 
BgL_arg3197z00_1106 = 
CNST_TABLE_REF(((long)3)); 
{ /* ./Expand/object.scm 515 */
obj_t BgL_list3199z00_1107;
{ /* ./Expand/object.scm 515 */
obj_t BgL_arg3201z00_1108;
{ /* ./Expand/object.scm 515 */
obj_t BgL_arg3204z00_1109;
{ /* ./Expand/object.scm 515 */
obj_t BgL_arg3207z00_1110;
BgL_arg3207z00_1110 = 
MAKE_PAIR(BgL_arg3197z00_1106, BNIL); 
BgL_arg3204z00_1109 = 
MAKE_PAIR(BgL_arg3196z00_1105, BgL_arg3207z00_1110); } 
BgL_arg3201z00_1108 = 
MAKE_PAIR(BgL_arg3195z00_1104, BgL_arg3204z00_1109); } 
BgL_list3199z00_1107 = 
MAKE_PAIR(BgL_arg3194z00_1103, BgL_arg3201z00_1108); } 
BgL_azd2namezd2_1098 = 
BGl_symbolzd2appendzd2zz__r4_symbols_6_4z00(BgL_list3199z00_1107); } } 
{ /* ./Expand/object.scm 521 */
obj_t BgL_arg3181z00_1099;
{ /* ./Expand/object.scm 521 */
obj_t BgL_arg3184z00_1100;
{ /* ./Expand/object.scm 521 */
obj_t BgL_arg3187z00_1101;
{ /* ./Expand/object.scm 521 */
obj_t BgL_arg3190z00_1102;
{ /* ./Expand/object.scm 521 */
obj_t BgL_auxz00_3505;
BgL_auxz00_3505 = 
BINT(((long)0)); 
BgL_arg3190z00_1102 = 
MAKE_PAIR(BgL_auxz00_3505, BNIL); } 
BgL_arg3187z00_1101 = 
MAKE_PAIR(BgL_dupzd2varzd2_1035, BgL_arg3190z00_1102); } 
BgL_arg3184z00_1100 = 
MAKE_PAIR(BgL_azd2namezd2_1098, BgL_arg3187z00_1101); } 
BgL_arg3181z00_1099 = 
MAKE_PAIR(BTRUE, BgL_arg3184z00_1100); } 
{ /* ./Expand/object.scm 519 */
int BgL_kz00_2188;
BgL_kz00_2188 = 
(int)(BgL_iz00_1090); 
VECTOR_SET(BgL_vargsz00_1038,BgL_kz00_2188,BgL_arg3181z00_1099); } } }  else 
{ /* ./Expand/object.scm 524 */
obj_t BgL_azd2namezd2_1111;
{ /* ./Expand/object.scm 524 */
obj_t BgL_arg3223z00_1115;obj_t BgL_arg3224z00_1116;obj_t BgL_arg3225z00_1117;
{ /* ./Expand/object.scm 524 */
BgL_typez00_bglt BgL_obj1003z00_2190;
BgL_obj1003z00_2190 = 
(BgL_typez00_bglt)(BgL_classz00_35); 
BgL_arg3223z00_1115 = 
(((BgL_typez00_bglt)CREF(BgL_obj1003z00_2190))->BgL_idz00); } 
BgL_arg3224z00_1116 = 
CNST_TABLE_REF(((long)4)); 
{ /* ./Expand/object.scm 526 */
BgL_slotz00_bglt BgL_obj1808z00_2191;
BgL_obj1808z00_2191 = 
(BgL_slotz00_bglt)(BgL_slotz00_1096); 
BgL_arg3225z00_1117 = 
(((BgL_slotz00_bglt)CREF(BgL_obj1808z00_2191))->BgL_idz00); } 
{ /* ./Expand/object.scm 524 */
obj_t BgL_list3227z00_1118;
{ /* ./Expand/object.scm 524 */
obj_t BgL_arg3229z00_1119;
{ /* ./Expand/object.scm 524 */
obj_t BgL_arg3232z00_1120;
BgL_arg3232z00_1120 = 
MAKE_PAIR(BgL_arg3225z00_1117, BNIL); 
BgL_arg3229z00_1119 = 
MAKE_PAIR(BgL_arg3224z00_1116, BgL_arg3232z00_1120); } 
BgL_list3227z00_1118 = 
MAKE_PAIR(BgL_arg3223z00_1115, BgL_arg3229z00_1119); } 
BgL_azd2namezd2_1111 = 
BGl_symbolzd2appendzd2zz__r4_symbols_6_4z00(BgL_list3227z00_1118); } } 
{ /* ./Expand/object.scm 529 */
obj_t BgL_arg3213z00_1112;
{ /* ./Expand/object.scm 529 */
obj_t BgL_arg3216z00_1113;
{ /* ./Expand/object.scm 529 */
obj_t BgL_arg3219z00_1114;
BgL_arg3219z00_1114 = 
MAKE_PAIR(BgL_dupzd2varzd2_1035, BNIL); 
BgL_arg3216z00_1113 = 
MAKE_PAIR(BgL_azd2namezd2_1111, BgL_arg3219z00_1114); } 
BgL_arg3213z00_1112 = 
MAKE_PAIR(BTRUE, BgL_arg3216z00_1113); } 
{ /* ./Expand/object.scm 527 */
int BgL_kz00_2193;
BgL_kz00_2193 = 
(int)(BgL_iz00_1090); 
VECTOR_SET(BgL_vargsz00_1038,BgL_kz00_2193,BgL_arg3213z00_1112); } } } } } } 
{ /* ./Expand/object.scm 530 */
long BgL_arg3241z00_1121;obj_t BgL_arg3242z00_1122;
BgL_arg3241z00_1121 = 
(BgL_iz00_1090+((long)1)); 
BgL_arg3242z00_1122 = 
CDR(BgL_slotsz00_1091); 
{ 
obj_t BgL_slotsz00_3530;long BgL_iz00_3529;
BgL_iz00_3529 = BgL_arg3241z00_1121; 
BgL_slotsz00_3530 = BgL_arg3242z00_1122; 
BgL_slotsz00_1091 = BgL_slotsz00_3530; 
BgL_iz00_1090 = BgL_iz00_3529; 
goto BgL_loopz00_1092;} } } } } 
{ 
long BgL_iz00_1123;obj_t BgL_slotsz00_1124;obj_t BgL_largsz00_1125;obj_t BgL_virtualsz00_1126;
BgL_iz00_1123 = ((long)0); 
BgL_slotsz00_1124 = BgL_slotsz00_1033; 
BgL_largsz00_1125 = BNIL; 
BgL_virtualsz00_1126 = BNIL; 
BgL_loopz00_1127:
{ /* ./Expand/object.scm 537 */
bool_t BgL_test3249z00_1128;
BgL_test3249z00_1128 = 
(BgL_iz00_1123==BgL_lenz00_1034); 
if(BgL_test3249z00_1128)
{ /* ./Expand/object.scm 538 */
obj_t BgL_makezd2namezd2_1129;
{ /* ./Expand/object.scm 538 */
obj_t BgL_arg3290z00_1146;obj_t BgL_arg3291z00_1147;
BgL_arg3290z00_1146 = 
CNST_TABLE_REF(((long)11)); 
{ /* ./Expand/object.scm 538 */
BgL_typez00_bglt BgL_obj1003z00_2200;
BgL_obj1003z00_2200 = 
(BgL_typez00_bglt)(BgL_classz00_35); 
BgL_arg3291z00_1147 = 
(((BgL_typez00_bglt)CREF(BgL_obj1003z00_2200))->BgL_idz00); } 
{ /* ./Expand/object.scm 538 */
obj_t BgL_list3293z00_1148;
{ /* ./Expand/object.scm 538 */
obj_t BgL_arg3295z00_1149;
BgL_arg3295z00_1149 = 
MAKE_PAIR(BgL_arg3291z00_1147, BNIL); 
BgL_list3293z00_1148 = 
MAKE_PAIR(BgL_arg3290z00_1146, BgL_arg3295z00_1149); } 
BgL_makezd2namezd2_1129 = 
BGl_symbolzd2appendzd2zz__r4_symbols_6_4z00(BgL_list3293z00_1148); } } 
{ /* ./Expand/object.scm 538 */
obj_t BgL_allocz00_1130;
{ /* ./Expand/object.scm 539 */
obj_t BgL_arg3282z00_1143;
{ /* ./Expand/object.scm 539 */
obj_t BgL_arg3285z00_1144;
BgL_arg3285z00_1144 = 
BGl_reversez12z12zz__r4_pairs_and_lists_6_3z00(BgL_largsz00_1125); 
BgL_arg3282z00_1143 = 
BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(BgL_arg3285z00_1144, BNIL); } 
BgL_allocz00_1130 = 
MAKE_PAIR(BgL_makezd2namezd2_1129, BgL_arg3282z00_1143); } 
{ /* ./Expand/object.scm 539 */

{ /* ./Expand/object.scm 540 */
obj_t BgL_arg3251z00_1131;obj_t BgL_arg3252z00_1132;
BgL_arg3251z00_1131 = 
CNST_TABLE_REF(((long)23)); 
{ /* ./Expand/object.scm 540 */
obj_t BgL_arg3255z00_1133;obj_t BgL_arg3257z00_1134;
{ /* ./Expand/object.scm 540 */
obj_t BgL_arg3260z00_1135;obj_t BgL_arg3261z00_1136;
{ /* ./Expand/object.scm 540 */
obj_t BgL_arg3264z00_1137;
BgL_arg3264z00_1137 = 
MAKE_PAIR(BgL_duplicatedz00_36, BNIL); 
BgL_arg3260z00_1135 = 
MAKE_PAIR(BgL_dupzd2varzd2typedz00_1036, BgL_arg3264z00_1137); } 
{ /* ./Expand/object.scm 541 */
obj_t BgL_arg3268z00_1138;
{ /* ./Expand/object.scm 541 */
obj_t BgL_arg3272z00_1140;
BgL_arg3272z00_1140 = 
MAKE_PAIR(BgL_allocz00_1130, BNIL); 
BgL_arg3268z00_1138 = 
MAKE_PAIR(BgL_newz00_1037, BgL_arg3272z00_1140); } 
BgL_arg3261z00_1136 = 
MAKE_PAIR(BgL_arg3268z00_1138, BNIL); } 
BgL_arg3255z00_1133 = 
MAKE_PAIR(BgL_arg3260z00_1135, BgL_arg3261z00_1136); } 
{ /* ./Expand/object.scm 542 */
obj_t BgL_arg3276z00_1141;obj_t BgL_arg3277z00_1142;
BgL_arg3276z00_1141 = 
BGl_reversez12z12zz__r4_pairs_and_lists_6_3z00(BgL_virtualsz00_1126); 
BgL_arg3277z00_1142 = 
MAKE_PAIR(BgL_newz00_1037, BNIL); 
BgL_arg3257z00_1134 = 
BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(BgL_arg3276z00_1141, BgL_arg3277z00_1142); } 
BgL_arg3252z00_1132 = 
MAKE_PAIR(BgL_arg3255z00_1133, BgL_arg3257z00_1134); } 
return 
MAKE_PAIR(BgL_arg3251z00_1131, BgL_arg3252z00_1132);} } } }  else 
{ /* ./Expand/object.scm 544 */
obj_t BgL_valuez00_1150;
{ /* ./Expand/object.scm 544 */
obj_t BgL_arg3329z00_1162;
{ /* ./Expand/object.scm 544 */
int BgL_kz00_2202;
BgL_kz00_2202 = 
(int)(BgL_iz00_1123); 
BgL_arg3329z00_1162 = 
VECTOR_REF(BgL_vargsz00_1038,BgL_kz00_2202); } 
BgL_valuez00_1150 = 
CDR(BgL_arg3329z00_1162); } 
{ /* ./Expand/object.scm 546 */
bool_t BgL_test3299z00_1151;
{ /* ./Expand/object.scm 546 */
obj_t BgL_arg3325z00_1161;
BgL_arg3325z00_1161 = 
CAR(BgL_slotsz00_1124); 
BgL_test3299z00_1151 = 
BGl_slotzd2virtualzf3z21zzobject_slotsz00(
(BgL_slotz00_bglt)(BgL_arg3325z00_1161)); } 
if(BgL_test3299z00_1151)
{ /* ./Expand/object.scm 546 */
{ /* ./Expand/object.scm 547 */
long BgL_arg3301z00_1152;obj_t BgL_arg3302z00_1153;obj_t BgL_arg3303z00_1154;
BgL_arg3301z00_1152 = 
(BgL_iz00_1123+((long)1)); 
BgL_arg3302z00_1153 = 
CDR(BgL_slotsz00_1124); 
{ /* ./Expand/object.scm 550 */
obj_t BgL_arg3308z00_1155;
{ /* ./Expand/object.scm 550 */
obj_t BgL_arg3311z00_1156;
BgL_arg3311z00_1156 = 
CAR(BgL_slotsz00_1124); 
BgL_arg3308z00_1155 = 
BGl_makezd2virtualzd2setz00zzexpand_objectz00(BgL_arg3311z00_1156, BgL_valuez00_1150, BgL_newz00_1037, BgL_classz00_35, BgL_formz00_34, BgL_ez00_38, "duplicate"); } 
BgL_arg3303z00_1154 = 
MAKE_PAIR(BgL_arg3308z00_1155, BgL_virtualsz00_1126); } 
{ 
obj_t BgL_virtualsz00_3568;obj_t BgL_slotsz00_3567;long BgL_iz00_3566;
BgL_iz00_3566 = BgL_arg3301z00_1152; 
BgL_slotsz00_3567 = BgL_arg3302z00_1153; 
BgL_virtualsz00_3568 = BgL_arg3303z00_1154; 
BgL_virtualsz00_1126 = BgL_virtualsz00_3568; 
BgL_slotsz00_1124 = BgL_slotsz00_3567; 
BgL_iz00_1123 = BgL_iz00_3566; 
goto BgL_loopz00_1127;} } }  else 
{ /* ./Expand/object.scm 546 */
{ /* ./Expand/object.scm 559 */
long BgL_arg3316z00_1158;obj_t BgL_arg3317z00_1159;obj_t BgL_arg3319z00_1160;
BgL_arg3316z00_1158 = 
(BgL_iz00_1123+((long)1)); 
BgL_arg3317z00_1159 = 
CDR(BgL_slotsz00_1124); 
BgL_arg3319z00_1160 = 
MAKE_PAIR(BgL_valuez00_1150, BgL_largsz00_1125); 
{ 
obj_t BgL_largsz00_3574;obj_t BgL_slotsz00_3573;long BgL_iz00_3572;
BgL_iz00_3572 = BgL_arg3316z00_1158; 
BgL_slotsz00_3573 = BgL_arg3317z00_1159; 
BgL_largsz00_3574 = BgL_arg3319z00_1160; 
BgL_largsz00_1125 = BgL_largsz00_3574; 
BgL_slotsz00_1124 = BgL_slotsz00_3573; 
BgL_iz00_1123 = BgL_iz00_3572; 
goto BgL_loopz00_1127;} } } } } } } } } } } } } } } 
}



/* expand-widen! */
BGL_EXPORTED_DEF obj_t BGl_expandzd2widenz12zc0zzexpand_objectz00(obj_t BgL_xz00_39, obj_t BgL_ez00_40)
{ AN_OBJECT;
{ /* ./Expand/object.scm 567 */
{ 
obj_t BgL_widenz12z12_1167;obj_t BgL_objz00_1168;obj_t BgL_providedz00_1169;
{ /* ./Expand/object.scm 568 */
bool_t BgL_test3350z00_1173;
BgL_test3350z00_1173 = 
PAIRP(BgL_xz00_39); 
if(BgL_test3350z00_1173)
{ /* ./Expand/object.scm 568 */
obj_t BgL_cdrzd2398zd2_1174;
BgL_cdrzd2398zd2_1174 = 
CDR(BgL_xz00_39); 
{ /* ./Expand/object.scm 568 */
bool_t BgL_test3351z00_1175;
BgL_test3351z00_1175 = 
PAIRP(BgL_cdrzd2398zd2_1174); 
if(BgL_test3351z00_1175)
{ /* ./Expand/object.scm 568 */
obj_t BgL_arg3354z00_1176;obj_t BgL_arg3355z00_1177;obj_t BgL_arg3356z00_1178;
BgL_arg3354z00_1176 = 
CAR(BgL_xz00_39); 
BgL_arg3355z00_1177 = 
CAR(BgL_cdrzd2398zd2_1174); 
BgL_arg3356z00_1178 = 
CDR(BgL_cdrzd2398zd2_1174); 
BgL_widenz12z12_1167 = BgL_arg3354z00_1176; 
BgL_objz00_1168 = BgL_arg3355z00_1177; 
BgL_providedz00_1169 = BgL_arg3356z00_1178; 
{ /* ./Expand/object.scm 570 */
BgL_typez00_bglt BgL_classz00_1179;
{ /* ./Expand/object.scm 570 */
obj_t BgL_arg3389z00_1188;
BgL_arg3389z00_1188 = 
BGl_findzd2locationzd2zztools_locationz00(BgL_xz00_39); 
BgL_classz00_1179 = 
BGl_typezd2ofzd2idz00zzast_identz00(BgL_widenz12z12_1167, BgL_arg3389z00_1188); } 
{ /* ./Expand/object.scm 571 */
bool_t BgL_test3366z00_1180;
{ /* ./Expand/object.scm 571 */
bool_t BgL_test3385z00_1187;
{ /* ./Expand/object.scm 571 */
obj_t BgL_obj1607z00_2218;
BgL_obj1607z00_2218 = 
(obj_t)(BgL_classz00_1179); 
BgL_test3385z00_1187 = 
BGl_iszd2azf3z21zz__objectz00(BgL_obj1607z00_2218, BGl_tclassz00zzobject_classz00); } 
if(BgL_test3385z00_1187)
{ /* ./Expand/object.scm 571 */
BgL_tclassz00_bglt BgL_obj1616z00_2219;
BgL_obj1616z00_2219 = 
(BgL_tclassz00_bglt)(BgL_classz00_1179); 
{ /* ./Expand/object.scm 571 */
obj_t BgL_auxz00_3589;
{ 
obj_t BgL_auxz00_3590;
{ /* ./Expand/object.scm 571 */
BgL_objectz00_bglt BgL_auxz00_3591;
BgL_auxz00_3591 = 
(BgL_objectz00_bglt)(BgL_obj1616z00_2219); 
BgL_auxz00_3590 = 
BGL_OBJECT_WIDENING(BgL_auxz00_3591); } 
BgL_auxz00_3589 = 
(((BgL_tclassz00_bglt)CREF(BgL_auxz00_3590))->BgL_wideningz00); } 
BgL_test3366z00_1180 = 
CBOOL(BgL_auxz00_3589); } }  else 
{ /* ./Expand/object.scm 571 */
BgL_test3366z00_1180 = ((bool_t)0); } } 
if(BgL_test3366z00_1180)
{ /* ./Expand/object.scm 572 */
obj_t BgL_arg3368z00_1181;
{ /* ./Expand/object.scm 572 */
obj_t BgL_arg3371z00_1182;
BgL_arg3371z00_1182 = 
BGl_makezd2wideningzd2zzexpand_objectz00(BgL_xz00_39, BgL_classz00_1179, BgL_objz00_1168, BgL_providedz00_1169, BgL_ez00_40); 
BgL_arg3368z00_1181 = 
PROCEDURE_ENTRY(BgL_ez00_40)(BgL_ez00_40, BgL_arg3371z00_1182, BgL_ez00_40, BEOA); } 
return 
BGl_replacez12z12zztools_miscz00(BgL_xz00_39, BgL_arg3368z00_1181);}  else 
{ /* ./Expand/object.scm 574 */
obj_t BgL_arg3375z00_1183;
{ /* ./Expand/object.scm 574 */
obj_t BgL_arg3379z00_1185;
{ /* ./Expand/object.scm 575 */
obj_t BgL_arg3382z00_1186;
BgL_arg3382z00_1186 = 
(((BgL_typez00_bglt)CREF(BgL_classz00_1179))->BgL_idz00); 
BgL_arg3379z00_1185 = 
SYMBOL_TO_STRING(BgL_arg3382z00_1186); } 
BgL_arg3375z00_1183 = 
string_append(BGl_string4911z00zzexpand_objectz00, BgL_arg3379z00_1185); } 
FAILURE(BFALSE,BgL_arg3375z00_1183,BgL_xz00_39);} } } }  else 
{ /* ./Expand/object.scm 568 */
BgL_tagzd2389zd2_1171:
FAILURE(BFALSE,BGl_string4912z00zzexpand_objectz00,BgL_xz00_39);} } }  else 
{ /* ./Expand/object.scm 568 */
goto BgL_tagzd2389zd2_1171;} } } } 
}



/* _expand-widen!4623 */
obj_t BGl__expandzd2widenz124623zc0zzexpand_objectz00(obj_t BgL_envz00_2429, obj_t BgL_xz00_2430, obj_t BgL_ez00_2431)
{ AN_OBJECT;
{ /* ./Expand/object.scm 567 */
return 
BGl_expandzd2widenz12zc0zzexpand_objectz00(BgL_xz00_2430, BgL_ez00_2431);} 
}



/* make-widening */
obj_t BGl_makezd2wideningzd2zzexpand_objectz00(obj_t BgL_formz00_41, BgL_typez00_bglt BgL_classz00_42, obj_t BgL_objz00_43, obj_t BgL_providedz00_44, obj_t BgL_ez00_45)
{ AN_OBJECT;
{ /* ./Expand/object.scm 583 */
{ /* ./Expand/object.scm 584 */
obj_t BgL_slotsz00_1189;
{ /* ./Expand/object.scm 584 */
BgL_tclassz00_bglt BgL_obj1612z00_2228;
BgL_obj1612z00_2228 = 
(BgL_tclassz00_bglt)(BgL_classz00_42); 
{ 
obj_t BgL_auxz00_3608;
{ /* ./Expand/object.scm 584 */
BgL_objectz00_bglt BgL_auxz00_3609;
BgL_auxz00_3609 = 
(BgL_objectz00_bglt)(BgL_obj1612z00_2228); 
BgL_auxz00_3608 = 
BGL_OBJECT_WIDENING(BgL_auxz00_3609); } 
BgL_slotsz00_1189 = 
(((BgL_tclassz00_bglt)CREF(BgL_auxz00_3608))->BgL_slotsz00); } } 
{ /* ./Expand/object.scm 584 */
BgL_globalz00_bglt BgL_holderz00_1190;
{ /* ./Expand/object.scm 585 */
BgL_tclassz00_bglt BgL_obj1615z00_2229;
BgL_obj1615z00_2229 = 
(BgL_tclassz00_bglt)(BgL_classz00_42); 
{ 
obj_t BgL_auxz00_3614;
{ /* ./Expand/object.scm 585 */
BgL_objectz00_bglt BgL_auxz00_3615;
BgL_auxz00_3615 = 
(BgL_objectz00_bglt)(BgL_obj1615z00_2229); 
BgL_auxz00_3614 = 
BGL_OBJECT_WIDENING(BgL_auxz00_3615); } 
BgL_holderz00_1190 = 
(((BgL_tclassz00_bglt)CREF(BgL_auxz00_3614))->BgL_holderz00); } } 
{ /* ./Expand/object.scm 585 */
long BgL_lenz00_1191;
BgL_lenz00_1191 = 
bgl_list_length(BgL_slotsz00_1189); 
{ /* ./Expand/object.scm 586 */
obj_t BgL_vargsz00_1192;
{ /* ./Expand/object.scm 587 */
obj_t BgL_arg3981z00_1468;
BgL_arg3981z00_1468 = BUNSPEC; 
{ /* ./Expand/object.scm 587 */
int BgL_auxz00_3620;
BgL_auxz00_3620 = 
(int)(BgL_lenz00_1191); 
BgL_vargsz00_1192 = 
make_vector(BgL_auxz00_3620, BgL_arg3981z00_1468); } } 
{ /* ./Expand/object.scm 587 */
obj_t BgL_dupzd2varzd2_1193;
{ /* ./Expand/object.scm 588 */
obj_t BgL_arg3976z00_1466;
BgL_arg3976z00_1466 = 
PROCEDURE_ENTRY(BGl_gensymz00zz__r4_symbols_6_4z00)(BGl_gensymz00zz__r4_symbols_6_4z00, 
CNST_TABLE_REF(((long)24)), BEOA); 
BgL_dupzd2varzd2_1193 = 
BGl_markzd2symbolzd2nonzd2userz12zc0zzast_identz00(BgL_arg3976z00_1466); } 
{ /* ./Expand/object.scm 589 */
obj_t BgL_tsidz00_1195;
{ /* ./Expand/object.scm 590 */
BgL_typez00_bglt BgL_obj1003z00_2233;
{ /* ./Expand/object.scm 590 */
obj_t BgL_auxz00_3627;
{ /* ./Expand/object.scm 590 */
BgL_tclassz00_bglt BgL_obj1608z00_2232;
BgL_obj1608z00_2232 = 
(BgL_tclassz00_bglt)(BgL_classz00_42); 
{ 
obj_t BgL_auxz00_3629;
{ /* ./Expand/object.scm 590 */
BgL_objectz00_bglt BgL_auxz00_3630;
BgL_auxz00_3630 = 
(BgL_objectz00_bglt)(BgL_obj1608z00_2232); 
BgL_auxz00_3629 = 
BGL_OBJECT_WIDENING(BgL_auxz00_3630); } 
BgL_auxz00_3627 = 
(((BgL_tclassz00_bglt)CREF(BgL_auxz00_3629))->BgL_itszd2superzd2); } } 
BgL_obj1003z00_2233 = 
(BgL_typez00_bglt)(BgL_auxz00_3627); } 
BgL_tsidz00_1195 = 
(((BgL_typez00_bglt)CREF(BgL_obj1003z00_2233))->BgL_idz00); } 
{ /* ./Expand/object.scm 590 */
obj_t BgL_dupzd2varzd2typedz00_1196;
BgL_dupzd2varzd2typedz00_1196 = 
BGl_makezd2typedzd2identz00zzast_identz00(BgL_dupzd2varzd2_1193, BgL_tsidz00_1195); 
{ /* ./Expand/object.scm 591 */
obj_t BgL_castz00_1197;
{ /* ./Expand/object.scm 592 */
obj_t BgL_list3967z00_1464;
BgL_list3967z00_1464 = 
MAKE_PAIR(BgL_objz00_43, BNIL); 
BgL_castz00_1197 = 
BGl_makezd2privatezd2sexpz00zzast_privatez00(
CNST_TABLE_REF(((long)25)), BgL_tsidz00_1195, BgL_list3967z00_1464); } 
{ /* ./Expand/object.scm 592 */

{ 
long BgL_iz00_1198;obj_t BgL_slotsz00_1199;
BgL_iz00_1198 = ((long)0); 
BgL_slotsz00_1199 = BgL_slotsz00_1189; 
BgL_loopz00_1200:
{ /* ./Expand/object.scm 596 */
bool_t BgL_test3394z00_1201;
BgL_test3394z00_1201 = 
NULLP(BgL_slotsz00_1199); 
if(BgL_test3394z00_1201)
{ /* ./Expand/object.scm 596 */
CNST_TABLE_REF(((long)13)); }  else 
{ /* ./Expand/object.scm 598 */
obj_t BgL_sz00_1202;
BgL_sz00_1202 = 
CAR(BgL_slotsz00_1199); 
{ /* ./Expand/object.scm 599 */
bool_t BgL_test3395z00_1203;
BgL_test3395z00_1203 = 
BGl_slotzd2defaultzf3z21zzobject_slotsz00(
(BgL_slotz00_bglt)(BgL_sz00_1202)); 
if(BgL_test3395z00_1203)
{ /* ./Expand/object.scm 600 */
obj_t BgL_arg3397z00_1204;
{ /* ./Expand/object.scm 600 */
obj_t BgL_arg3400z00_1205;
{ /* ./Expand/object.scm 600 */
BgL_slotz00_bglt BgL_obj1814z00_2236;
BgL_obj1814z00_2236 = 
(BgL_slotz00_bglt)(BgL_sz00_1202); 
BgL_arg3400z00_1205 = 
(((BgL_slotz00_bglt)CREF(BgL_obj1814z00_2236))->BgL_defaultzd2valuezd2); } 
BgL_arg3397z00_1204 = 
MAKE_PAIR(BTRUE, BgL_arg3400z00_1205); } 
{ /* ./Expand/object.scm 600 */
int BgL_kz00_2238;
BgL_kz00_2238 = 
(int)(BgL_iz00_1198); 
VECTOR_SET(BgL_vargsz00_1192,BgL_kz00_2238,BgL_arg3397z00_1204); } }  else 
{ /* ./Expand/object.scm 601 */
obj_t BgL_arg3404z00_1206;
BgL_arg3404z00_1206 = 
MAKE_PAIR(BFALSE, BUNSPEC); 
{ /* ./Expand/object.scm 601 */
int BgL_kz00_2241;
BgL_kz00_2241 = 
(int)(BgL_iz00_1198); 
VECTOR_SET(BgL_vargsz00_1192,BgL_kz00_2241,BgL_arg3404z00_1206); } } } 
{ /* ./Expand/object.scm 602 */
long BgL_arg3409z00_1207;obj_t BgL_arg3410z00_1208;
BgL_arg3409z00_1207 = 
(BgL_iz00_1198+((long)1)); 
BgL_arg3410z00_1208 = 
CDR(BgL_slotsz00_1199); 
{ 
obj_t BgL_slotsz00_3658;long BgL_iz00_3657;
BgL_iz00_3657 = BgL_arg3409z00_1207; 
BgL_slotsz00_3658 = BgL_arg3410z00_1208; 
BgL_slotsz00_1199 = BgL_slotsz00_3658; 
BgL_iz00_1198 = BgL_iz00_3657; 
goto BgL_loopz00_1200;} } } } } 
{ 
obj_t BgL_providedz00_1209;
BgL_providedz00_1209 = BgL_providedz00_44; 
BgL_loopz00_1210:
{ /* ./Expand/object.scm 606 */
bool_t BgL_test3417z00_1211;
BgL_test3417z00_1211 = 
NULLP(BgL_providedz00_1209); 
if(BgL_test3417z00_1211)
{ /* ./Expand/object.scm 606 */
CNST_TABLE_REF(((long)13)); }  else 
{ /* ./Expand/object.scm 608 */
obj_t BgL_pz00_1212;
BgL_pz00_1212 = 
CAR(BgL_providedz00_1209); 
{ 
obj_t BgL_szd2namezd2_1216;obj_t BgL_lenz00_1217;obj_t BgL_valuez00_1218;obj_t BgL_szd2namezd2_1213;obj_t BgL_valuez00_1214;
{ /* ./Expand/object.scm 609 */
bool_t BgL_test3418z00_1222;
BgL_test3418z00_1222 = 
PAIRP(BgL_pz00_1212); 
if(BgL_test3418z00_1222)
{ /* ./Expand/object.scm 609 */
obj_t BgL_carzd2415zd2_1223;obj_t BgL_cdrzd2416zd2_1224;
BgL_carzd2415zd2_1223 = 
CAR(BgL_pz00_1212); 
BgL_cdrzd2416zd2_1224 = 
CDR(BgL_pz00_1212); 
{ /* ./Expand/object.scm 609 */
bool_t BgL_test3419z00_1225;
BgL_test3419z00_1225 = 
SYMBOLP(BgL_carzd2415zd2_1223); 
if(BgL_test3419z00_1225)
{ /* ./Expand/object.scm 609 */
bool_t BgL_test3420z00_1226;
BgL_test3420z00_1226 = 
PAIRP(BgL_cdrzd2416zd2_1224); 
if(BgL_test3420z00_1226)
{ /* ./Expand/object.scm 609 */
bool_t BgL_test3421z00_1227;
{ /* ./Expand/object.scm 609 */
obj_t BgL_auxz00_3671;
BgL_auxz00_3671 = 
CDR(BgL_cdrzd2416zd2_1224); 
BgL_test3421z00_1227 = 
NULLP(BgL_auxz00_3671); } 
if(BgL_test3421z00_1227)
{ /* ./Expand/object.scm 609 */
obj_t BgL_arg3423z00_1228;
BgL_arg3423z00_1228 = 
CAR(BgL_cdrzd2416zd2_1224); 
BgL_szd2namezd2_1213 = BgL_carzd2415zd2_1223; 
BgL_valuez00_1214 = BgL_arg3423z00_1228; 
{ /* ./Expand/object.scm 612 */
obj_t BgL_arg3483z00_1249;obj_t BgL_arg3484z00_1250;
BgL_arg3483z00_1249 = 
BGl_findzd2slotzd2offsetz00zzexpand_objectz00(BgL_slotsz00_1189, BgL_szd2namezd2_1213, BGl_string4913z00zzexpand_objectz00, BgL_pz00_1212); 
{ /* ./Expand/object.scm 616 */
obj_t BgL_arg3488z00_1251;
BgL_arg3488z00_1251 = 
BGl_objectzd2epairifyzd2zzexpand_objectz00(BgL_valuez00_1214, BgL_pz00_1212); 
BgL_arg3484z00_1250 = 
MAKE_PAIR(BTRUE, BgL_arg3488z00_1251); } 
{ /* ./Expand/object.scm 611 */
int BgL_kz00_2276;
BgL_kz00_2276 = 
CINT(BgL_arg3483z00_1249); 
{ /* ./Expand/object.scm 611 */
obj_t BgL_xz00_2448;
BgL_xz00_2448 = 
VECTOR_SET(BgL_vargsz00_1192,BgL_kz00_2276,BgL_arg3484z00_1250); BUNSPEC; } } } }  else 
{ /* ./Expand/object.scm 609 */
bool_t BgL_test3426z00_1231;
BgL_test3426z00_1231 = 
SYMBOLP(BgL_carzd2415zd2_1223); 
if(BgL_test3426z00_1231)
{ /* ./Expand/object.scm 609 */
obj_t BgL_cdrzd2443zd2_1232;
BgL_cdrzd2443zd2_1232 = 
CDR(BgL_cdrzd2416zd2_1224); 
{ /* ./Expand/object.scm 609 */
bool_t BgL_test3427z00_1233;
BgL_test3427z00_1233 = 
PAIRP(BgL_cdrzd2443zd2_1232); 
if(BgL_test3427z00_1233)
{ /* ./Expand/object.scm 609 */
bool_t BgL_test3428z00_1234;
{ /* ./Expand/object.scm 609 */
obj_t BgL_auxz00_3686;
BgL_auxz00_3686 = 
CDR(BgL_cdrzd2443zd2_1232); 
BgL_test3428z00_1234 = 
NULLP(BgL_auxz00_3686); } 
if(BgL_test3428z00_1234)
{ /* ./Expand/object.scm 609 */
obj_t BgL_arg3430z00_1235;obj_t BgL_arg3431z00_1236;
BgL_arg3430z00_1235 = 
CAR(BgL_cdrzd2416zd2_1224); 
BgL_arg3431z00_1236 = 
CAR(BgL_cdrzd2443zd2_1232); 
BgL_szd2namezd2_1216 = BgL_carzd2415zd2_1223; 
BgL_lenz00_1217 = BgL_arg3430z00_1235; 
BgL_valuez00_1218 = BgL_arg3431z00_1236; 
BgL_tagzd2407zd2_1219:
{ /* ./Expand/object.scm 618 */
obj_t BgL_snumz00_1252;
BgL_snumz00_1252 = 
BGl_findzd2slotzd2offsetz00zzexpand_objectz00(BgL_slotsz00_1189, BgL_szd2namezd2_1216, BGl_string4913z00zzexpand_objectz00, BgL_pz00_1212); 
{ /* ./Expand/object.scm 618 */
obj_t BgL_slotz00_1253;
BgL_slotz00_1253 = 
bgl_list_ref(BgL_slotsz00_1189, 
(long)CINT(BgL_snumz00_1252)); 
{ /* ./Expand/object.scm 622 */

{ /* ./Expand/object.scm 623 */
bool_t BgL_test3491z00_1254;
{ /* ./Expand/object.scm 623 */
BgL_slotz00_bglt BgL_obj1824z00_2278;
BgL_obj1824z00_2278 = 
(BgL_slotz00_bglt)(BgL_slotz00_1253); 
{ /* ./Expand/object.scm 623 */
obj_t BgL_auxz00_3696;
BgL_auxz00_3696 = 
(((BgL_slotz00_bglt)CREF(BgL_obj1824z00_2278))->BgL_indexedz00); 
BgL_test3491z00_1254 = 
CBOOL(BgL_auxz00_3696); } } 
if(BgL_test3491z00_1254)
{ /* ./Expand/object.scm 623 */
{ /* ./Expand/object.scm 628 */
obj_t BgL_arg3493z00_1255;
{ /* ./Expand/object.scm 628 */
obj_t BgL_arg3496z00_1256;
BgL_arg3496z00_1256 = 
BGl_objectzd2epairifyzd2zzexpand_objectz00(BgL_valuez00_1218, BgL_pz00_1212); 
BgL_arg3493z00_1255 = 
MAKE_PAIR(BTRUE, BgL_arg3496z00_1256); } 
{ /* ./Expand/object.scm 626 */
int BgL_kz00_2280;
BgL_kz00_2280 = 
CINT(BgL_snumz00_1252); 
VECTOR_SET(BgL_vargsz00_1192,BgL_kz00_2280,BgL_arg3493z00_1255); } } 
{ /* ./Expand/object.scm 629 */
long BgL_arg3500z00_1257;obj_t BgL_arg3501z00_1258;
{ /* ./Expand/object.scm 629 */
long BgL_auxz00_3704;
BgL_auxz00_3704 = 
(long)CINT(BgL_snumz00_1252); 
BgL_arg3500z00_1257 = 
(BgL_auxz00_3704-((long)1)); } 
BgL_arg3501z00_1258 = 
MAKE_PAIR(BFALSE, BgL_lenz00_1217); 
{ /* ./Expand/object.scm 629 */
int BgL_kz00_2285;
BgL_kz00_2285 = 
(int)(BgL_arg3500z00_1257); 
VECTOR_SET(BgL_vargsz00_1192,BgL_kz00_2285,BgL_arg3501z00_1258); } } }  else 
{ /* ./Expand/object.scm 623 */
FAILURE(BFALSE,BGl_string4912z00zzexpand_objectz00,BgL_formz00_41);} } } } } }  else 
{ /* ./Expand/object.scm 609 */
BgL_tagzd2408zd2_1220:
FAILURE(BFALSE,BGl_string4912z00zzexpand_objectz00,BgL_formz00_41);} }  else 
{ /* ./Expand/object.scm 609 */
goto BgL_tagzd2408zd2_1220;} } }  else 
{ /* ./Expand/object.scm 609 */
goto BgL_tagzd2408zd2_1220;} } }  else 
{ /* ./Expand/object.scm 609 */
goto BgL_tagzd2408zd2_1220;} }  else 
{ /* ./Expand/object.scm 609 */
bool_t BgL_test3453z00_1241;
BgL_test3453z00_1241 = 
SYMBOLP(BgL_carzd2415zd2_1223); 
if(BgL_test3453z00_1241)
{ /* ./Expand/object.scm 609 */
bool_t BgL_test3454z00_1242;
BgL_test3454z00_1242 = 
PAIRP(BgL_cdrzd2416zd2_1224); 
if(BgL_test3454z00_1242)
{ /* ./Expand/object.scm 609 */
obj_t BgL_cdrzd2471zd2_1243;
BgL_cdrzd2471zd2_1243 = 
CDR(BgL_cdrzd2416zd2_1224); 
{ /* ./Expand/object.scm 609 */
bool_t BgL_test3455z00_1244;
BgL_test3455z00_1244 = 
PAIRP(BgL_cdrzd2471zd2_1243); 
if(BgL_test3455z00_1244)
{ /* ./Expand/object.scm 609 */
bool_t BgL_test3456z00_1245;
{ /* ./Expand/object.scm 609 */
obj_t BgL_auxz00_3719;
BgL_auxz00_3719 = 
CDR(BgL_cdrzd2471zd2_1243); 
BgL_test3456z00_1245 = 
NULLP(BgL_auxz00_3719); } 
if(BgL_test3456z00_1245)
{ /* ./Expand/object.scm 609 */
obj_t BgL_arg3458z00_1246;obj_t BgL_arg3459z00_1247;
BgL_arg3458z00_1246 = 
CAR(BgL_cdrzd2416zd2_1224); 
BgL_arg3459z00_1247 = 
CAR(BgL_cdrzd2471zd2_1243); 
{ 
obj_t BgL_valuez00_3727;obj_t BgL_lenz00_3726;obj_t BgL_szd2namezd2_3725;
BgL_szd2namezd2_3725 = BgL_carzd2415zd2_1223; 
BgL_lenz00_3726 = BgL_arg3458z00_1246; 
BgL_valuez00_3727 = BgL_arg3459z00_1247; 
BgL_valuez00_1218 = BgL_valuez00_3727; 
BgL_lenz00_1217 = BgL_lenz00_3726; 
BgL_szd2namezd2_1216 = BgL_szd2namezd2_3725; 
goto BgL_tagzd2407zd2_1219;} }  else 
{ /* ./Expand/object.scm 609 */
goto BgL_tagzd2408zd2_1220;} }  else 
{ /* ./Expand/object.scm 609 */
goto BgL_tagzd2408zd2_1220;} } }  else 
{ /* ./Expand/object.scm 609 */
goto BgL_tagzd2408zd2_1220;} }  else 
{ /* ./Expand/object.scm 609 */
goto BgL_tagzd2408zd2_1220;} } } }  else 
{ /* ./Expand/object.scm 609 */
goto BgL_tagzd2408zd2_1220;} } } 
{ /* ./Expand/object.scm 633 */
obj_t BgL_arg3511z00_1259;
BgL_arg3511z00_1259 = 
CDR(BgL_providedz00_1209); 
{ 
obj_t BgL_providedz00_3729;
BgL_providedz00_3729 = BgL_arg3511z00_1259; 
BgL_providedz00_1209 = BgL_providedz00_3729; 
goto BgL_loopz00_1210;} } } } } 
{ 
long BgL_iz00_1260;obj_t BgL_sz00_1261;
BgL_iz00_1260 = ((long)0); 
BgL_sz00_1261 = BgL_slotsz00_1189; 
BgL_loopz00_1262:
{ /* ./Expand/object.scm 638 */
bool_t BgL_test3517z00_1263;
BgL_test3517z00_1263 = 
(BgL_iz00_1260==BgL_lenz00_1191); 
if(BgL_test3517z00_1263)
{ /* ./Expand/object.scm 638 */
CNST_TABLE_REF(((long)14)); }  else 
{ /* ./Expand/object.scm 640 */
bool_t BgL_test3518z00_1264;
{ /* ./Expand/object.scm 640 */
bool_t BgL_test3540z00_1273;
{ /* ./Expand/object.scm 640 */
obj_t BgL_arg3547z00_1276;
{ /* ./Expand/object.scm 640 */
int BgL_kz00_2297;
BgL_kz00_2297 = 
(int)(BgL_iz00_1260); 
BgL_arg3547z00_1276 = 
VECTOR_REF(BgL_vargsz00_1192,BgL_kz00_2297); } 
{ /* ./Expand/object.scm 640 */
obj_t BgL_auxz00_3735;
BgL_auxz00_3735 = 
CAR(BgL_arg3547z00_1276); 
BgL_test3540z00_1273 = 
CBOOL(BgL_auxz00_3735); } } 
if(BgL_test3540z00_1273)
{ /* ./Expand/object.scm 640 */
BgL_test3518z00_1264 = ((bool_t)0); }  else 
{ /* ./Expand/object.scm 641 */
bool_t BgL_test3541z00_1274;
{ /* ./Expand/object.scm 641 */
obj_t BgL_arg3543z00_1275;
BgL_arg3543z00_1275 = 
CAR(BgL_sz00_1261); 
BgL_test3541z00_1274 = 
BGl_slotzd2virtualzf3z21zzobject_slotsz00(
(BgL_slotz00_bglt)(BgL_arg3543z00_1275)); } 
if(BgL_test3541z00_1274)
{ /* ./Expand/object.scm 641 */
BgL_test3518z00_1264 = ((bool_t)0); }  else 
{ /* ./Expand/object.scm 641 */
BgL_test3518z00_1264 = ((bool_t)1); } } } 
if(BgL_test3518z00_1264)
{ /* ./Expand/object.scm 640 */
{ /* ./Expand/object.scm 644 */
obj_t BgL_arg3520z00_1265;
{ /* ./Expand/object.scm 644 */
obj_t BgL_arg3524z00_1267;
{ /* ./Expand/object.scm 646 */
obj_t BgL_arg3528z00_1269;
{ /* ./Expand/object.scm 646 */
BgL_slotz00_bglt BgL_obj1808z00_2301;
{ /* ./Expand/object.scm 646 */
obj_t BgL_auxz00_3744;
BgL_auxz00_3744 = 
CAR(BgL_sz00_1261); 
BgL_obj1808z00_2301 = 
(BgL_slotz00_bglt)(BgL_auxz00_3744); } 
BgL_arg3528z00_1269 = 
(((BgL_slotz00_bglt)CREF(BgL_obj1808z00_2301))->BgL_idz00); } 
BgL_arg3524z00_1267 = 
SYMBOL_TO_STRING(BgL_arg3528z00_1269); } 
BgL_arg3520z00_1265 = 
string_append_3(BGl_string4914z00zzexpand_objectz00, BgL_arg3524z00_1267, BGl_string4902z00zzexpand_objectz00); } 
FAILURE(BFALSE,BgL_arg3520z00_1265,BgL_formz00_41);} }  else 
{ /* ./Expand/object.scm 640 */
{ /* ./Expand/object.scm 650 */
long BgL_arg3535z00_1271;obj_t BgL_arg3536z00_1272;
BgL_arg3535z00_1271 = 
(BgL_iz00_1260+((long)1)); 
BgL_arg3536z00_1272 = 
CDR(BgL_sz00_1261); 
{ 
obj_t BgL_sz00_3754;long BgL_iz00_3753;
BgL_iz00_3753 = BgL_arg3535z00_1271; 
BgL_sz00_3754 = BgL_arg3536z00_1272; 
BgL_sz00_1261 = BgL_sz00_3754; 
BgL_iz00_1260 = BgL_iz00_3753; 
goto BgL_loopz00_1262;} } } } } } 
{ 
long BgL_iz00_1277;obj_t BgL_slotsz00_1278;obj_t BgL_largsz00_1279;obj_t BgL_virtualsz00_1280;
BgL_iz00_1277 = ((long)0); 
BgL_slotsz00_1278 = BgL_slotsz00_1189; 
BgL_largsz00_1279 = BNIL; 
BgL_virtualsz00_1280 = BNIL; 
BgL_loopz00_1281:
{ /* ./Expand/object.scm 656 */
bool_t BgL_test3552z00_1282;
BgL_test3552z00_1282 = 
(BgL_iz00_1277==BgL_lenz00_1191); 
if(BgL_test3552z00_1282)
{ /* ./Expand/object.scm 657 */
obj_t BgL_wideningz00_1283;
{ /* ./Expand/object.scm 657 */
obj_t BgL_arg3917z00_1444;obj_t BgL_arg3918z00_1445;obj_t BgL_arg3919z00_1446;
{ /* ./Expand/object.scm 657 */
BgL_tclassz00_bglt BgL_obj1616z00_2311;
BgL_obj1616z00_2311 = 
(BgL_tclassz00_bglt)(BgL_classz00_42); 
{ 
obj_t BgL_auxz00_3758;
{ /* ./Expand/object.scm 657 */
BgL_objectz00_bglt BgL_auxz00_3759;
BgL_auxz00_3759 = 
(BgL_objectz00_bglt)(BgL_obj1616z00_2311); 
BgL_auxz00_3758 = 
BGL_OBJECT_WIDENING(BgL_auxz00_3759); } 
BgL_arg3917z00_1444 = 
(((BgL_tclassz00_bglt)CREF(BgL_auxz00_3758))->BgL_wideningz00); } } 
BgL_arg3918z00_1445 = 
CNST_TABLE_REF(((long)4)); 
BgL_arg3919z00_1446 = 
(((BgL_typez00_bglt)CREF(BgL_classz00_42))->BgL_idz00); 
{ /* ./Expand/object.scm 657 */
obj_t BgL_list3921z00_1447;
{ /* ./Expand/object.scm 657 */
obj_t BgL_arg3923z00_1448;
{ /* ./Expand/object.scm 657 */
obj_t BgL_arg3926z00_1449;
BgL_arg3926z00_1449 = 
MAKE_PAIR(BgL_arg3919z00_1446, BNIL); 
BgL_arg3923z00_1448 = 
MAKE_PAIR(BgL_arg3918z00_1445, BgL_arg3926z00_1449); } 
BgL_list3921z00_1447 = 
MAKE_PAIR(BgL_arg3917z00_1444, BgL_arg3923z00_1448); } 
BgL_wideningz00_1283 = 
BGl_symbolzd2appendzd2zz__r4_symbols_6_4z00(BgL_list3921z00_1447); } } 
if(
CBOOL(BGl_za2unsafezd2typeza2zd2zzengine_paramz00))
{ /* ./Expand/object.scm 674 */
obj_t BgL_arg3554z00_1284;obj_t BgL_arg3556z00_1285;
BgL_arg3554z00_1284 = 
CNST_TABLE_REF(((long)2)); 
{ /* ./Expand/object.scm 661 */
obj_t BgL_arg3559z00_1286;obj_t BgL_arg3560z00_1287;
{ /* ./Expand/object.scm 661 */
obj_t BgL_arg3563z00_1288;
{ /* ./Expand/object.scm 661 */
obj_t BgL_arg3567z00_1290;
BgL_arg3567z00_1290 = 
MAKE_PAIR(BgL_castz00_1197, BNIL); 
BgL_arg3563z00_1288 = 
MAKE_PAIR(BgL_dupzd2varzd2typedz00_1196, BgL_arg3567z00_1290); } 
BgL_arg3559z00_1286 = 
MAKE_PAIR(BgL_arg3563z00_1288, BNIL); } 
{ /* ./Expand/object.scm 662 */
obj_t BgL_arg3571z00_1291;obj_t BgL_arg3572z00_1292;
{ /* ./Expand/object.scm 662 */
obj_t BgL_arg3575z00_1293;obj_t BgL_arg3576z00_1294;
BgL_arg3575z00_1293 = 
CNST_TABLE_REF(((long)26)); 
{ /* ./Expand/object.scm 664 */
obj_t BgL_arg3579z00_1295;
{ /* ./Expand/object.scm 664 */
obj_t BgL_arg3582z00_1296;
{ /* ./Expand/object.scm 664 */
obj_t BgL_arg3586z00_1298;
{ /* ./Expand/object.scm 664 */
obj_t BgL_arg3589z00_1299;
BgL_arg3589z00_1299 = 
BGl_reversez12z12zz__r4_pairs_and_lists_6_3z00(BgL_largsz00_1279); 
BgL_arg3586z00_1298 = 
BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(BgL_arg3589z00_1299, BNIL); } 
BgL_arg3582z00_1296 = 
MAKE_PAIR(BgL_wideningz00_1283, BgL_arg3586z00_1298); } 
BgL_arg3579z00_1295 = 
MAKE_PAIR(BgL_arg3582z00_1296, BNIL); } 
BgL_arg3576z00_1294 = 
MAKE_PAIR(BgL_dupzd2varzd2_1193, BgL_arg3579z00_1295); } 
BgL_arg3571z00_1291 = 
MAKE_PAIR(BgL_arg3575z00_1293, BgL_arg3576z00_1294); } 
{ /* ./Expand/object.scm 667 */
obj_t BgL_arg3594z00_1301;obj_t BgL_arg3595z00_1302;
{ /* ./Expand/object.scm 667 */
obj_t BgL_arg3598z00_1303;obj_t BgL_arg3599z00_1304;
{ /* ./Expand/object.scm 667 */
obj_t BgL_arg3602z00_1305;obj_t BgL_arg3604z00_1306;
BgL_arg3602z00_1305 = 
CNST_TABLE_REF(((long)27)); 
{ /* ./Expand/object.scm 667 */
obj_t BgL_arg3607z00_1307;obj_t BgL_arg3608z00_1308;
BgL_arg3607z00_1307 = 
CNST_TABLE_REF(((long)28)); 
{ /* ./Expand/object.scm 667 */
obj_t BgL_auxz00_3784;
BgL_auxz00_3784 = 
CNST_TABLE_REF(((long)29)); 
BgL_arg3608z00_1308 = 
MAKE_PAIR(BgL_auxz00_3784, BNIL); } 
BgL_arg3604z00_1306 = 
MAKE_PAIR(BgL_arg3607z00_1307, BgL_arg3608z00_1308); } 
BgL_arg3598z00_1303 = 
MAKE_PAIR(BgL_arg3602z00_1305, BgL_arg3604z00_1306); } 
{ /* ./Expand/object.scm 669 */
obj_t BgL_arg3612z00_1309;
{ /* ./Expand/object.scm 669 */
obj_t BgL_arg3615z00_1310;
{ /* ./Expand/object.scm 669 */
obj_t BgL_arg3619z00_1312;obj_t BgL_arg3620z00_1313;
{ /* ./Expand/object.scm 669 */
obj_t BgL_arg3623z00_1314;obj_t BgL_arg3624z00_1315;
BgL_arg3623z00_1314 = 
CNST_TABLE_REF(((long)27)); 
{ /* ./Expand/object.scm 669 */
obj_t BgL_arg3627z00_1316;obj_t BgL_arg3628z00_1317;
BgL_arg3627z00_1316 = 
CNST_TABLE_REF(((long)30)); 
{ /* ./Expand/object.scm 669 */
obj_t BgL_auxz00_3791;
BgL_auxz00_3791 = 
CNST_TABLE_REF(((long)29)); 
BgL_arg3628z00_1317 = 
MAKE_PAIR(BgL_auxz00_3791, BNIL); } 
BgL_arg3624z00_1315 = 
MAKE_PAIR(BgL_arg3627z00_1316, BgL_arg3628z00_1317); } 
BgL_arg3619z00_1312 = 
MAKE_PAIR(BgL_arg3623z00_1314, BgL_arg3624z00_1315); } 
{ /* ./Expand/object.scm 670 */
obj_t BgL_arg3632z00_1318;
{ /* ./Expand/object.scm 670 */
obj_t BgL_arg3636z00_1320;obj_t BgL_arg3637z00_1321;
BgL_arg3636z00_1320 = 
CNST_TABLE_REF(((long)27)); 
{ /* ./Expand/object.scm 670 */
obj_t BgL_arg3640z00_1322;obj_t BgL_arg3641z00_1323;
{ /* ./Expand/object.scm 670 */
BgL_variablez00_bglt BgL_obj1093z00_2313;
BgL_obj1093z00_2313 = 
(BgL_variablez00_bglt)(BgL_holderz00_1190); 
BgL_arg3640z00_1322 = 
(((BgL_variablez00_bglt)CREF(BgL_obj1093z00_2313))->BgL_idz00); } 
{ /* ./Expand/object.scm 670 */
obj_t BgL_arg3645z00_1324;
BgL_arg3645z00_1324 = 
(((BgL_globalz00_bglt)CREF(BgL_holderz00_1190))->BgL_modulez00); 
BgL_arg3641z00_1323 = 
MAKE_PAIR(BgL_arg3645z00_1324, BNIL); } 
BgL_arg3637z00_1321 = 
MAKE_PAIR(BgL_arg3640z00_1322, BgL_arg3641z00_1323); } 
BgL_arg3632z00_1318 = 
MAKE_PAIR(BgL_arg3636z00_1320, BgL_arg3637z00_1321); } 
BgL_arg3620z00_1313 = 
MAKE_PAIR(BgL_arg3632z00_1318, BNIL); } 
BgL_arg3615z00_1310 = 
MAKE_PAIR(BgL_arg3619z00_1312, BgL_arg3620z00_1313); } 
BgL_arg3612z00_1309 = 
MAKE_PAIR(BgL_arg3615z00_1310, BNIL); } 
BgL_arg3599z00_1304 = 
MAKE_PAIR(BgL_dupzd2varzd2_1193, BgL_arg3612z00_1309); } 
BgL_arg3594z00_1301 = 
MAKE_PAIR(BgL_arg3598z00_1303, BgL_arg3599z00_1304); } 
{ /* ./Expand/object.scm 672 */
obj_t BgL_arg3650z00_1326;obj_t BgL_arg3651z00_1327;
{ /* ./Expand/object.scm 672 */
obj_t BgL_arg3654z00_1328;obj_t BgL_arg3655z00_1329;
{ /* ./Expand/object.scm 672 */
obj_t BgL_arg3658z00_1330;obj_t BgL_arg3659z00_1331;
BgL_arg3658z00_1330 = 
CNST_TABLE_REF(((long)27)); 
{ /* ./Expand/object.scm 672 */
obj_t BgL_arg3662z00_1332;obj_t BgL_arg3663z00_1333;
BgL_arg3662z00_1332 = 
CNST_TABLE_REF(((long)31)); 
{ /* ./Expand/object.scm 672 */
obj_t BgL_auxz00_3810;
BgL_auxz00_3810 = 
CNST_TABLE_REF(((long)29)); 
BgL_arg3663z00_1333 = 
MAKE_PAIR(BgL_auxz00_3810, BNIL); } 
BgL_arg3659z00_1331 = 
MAKE_PAIR(BgL_arg3662z00_1332, BgL_arg3663z00_1333); } 
BgL_arg3654z00_1328 = 
MAKE_PAIR(BgL_arg3658z00_1330, BgL_arg3659z00_1331); } 
BgL_arg3655z00_1329 = 
MAKE_PAIR(BgL_dupzd2varzd2_1193, BNIL); 
BgL_arg3650z00_1326 = 
MAKE_PAIR(BgL_arg3654z00_1328, BgL_arg3655z00_1329); } 
{ /* ./Expand/object.scm 673 */
obj_t BgL_arg3668z00_1334;obj_t BgL_arg3669z00_1335;
BgL_arg3668z00_1334 = 
BGl_reversez12z12zz__r4_pairs_and_lists_6_3z00(BgL_virtualsz00_1280); 
BgL_arg3669z00_1335 = 
MAKE_PAIR(BgL_dupzd2varzd2_1193, BNIL); 
BgL_arg3651z00_1327 = 
BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(BgL_arg3668z00_1334, BgL_arg3669z00_1335); } 
BgL_arg3595z00_1302 = 
MAKE_PAIR(BgL_arg3650z00_1326, BgL_arg3651z00_1327); } 
BgL_arg3572z00_1292 = 
MAKE_PAIR(BgL_arg3594z00_1301, BgL_arg3595z00_1302); } 
BgL_arg3560z00_1287 = 
MAKE_PAIR(BgL_arg3571z00_1291, BgL_arg3572z00_1292); } 
BgL_arg3556z00_1285 = 
MAKE_PAIR(BgL_arg3559z00_1286, BgL_arg3560z00_1287); } 
return 
MAKE_PAIR(BgL_arg3554z00_1284, BgL_arg3556z00_1285);}  else 
{ /* ./Expand/object.scm 699 */
obj_t BgL_arg3674z00_1336;obj_t BgL_arg3675z00_1337;
BgL_arg3674z00_1336 = 
CNST_TABLE_REF(((long)2)); 
{ /* ./Expand/object.scm 675 */
obj_t BgL_arg3678z00_1338;obj_t BgL_arg3679z00_1339;
{ /* ./Expand/object.scm 675 */
obj_t BgL_arg3682z00_1340;
{ /* ./Expand/object.scm 675 */
obj_t BgL_arg3686z00_1342;
BgL_arg3686z00_1342 = 
MAKE_PAIR(BgL_castz00_1197, BNIL); 
BgL_arg3682z00_1340 = 
MAKE_PAIR(BgL_dupzd2varzd2typedz00_1196, BgL_arg3686z00_1342); } 
BgL_arg3678z00_1338 = 
MAKE_PAIR(BgL_arg3682z00_1340, BNIL); } 
{ /* ./Expand/object.scm 676 */
obj_t BgL_arg3690z00_1343;obj_t BgL_arg3691z00_1344;
{ /* ./Expand/object.scm 676 */
obj_t BgL_arg3694z00_1345;obj_t BgL_arg3695z00_1346;
BgL_arg3694z00_1345 = 
CNST_TABLE_REF(((long)32)); 
{ /* ./Expand/object.scm 676 */
obj_t BgL_arg3698z00_1347;obj_t BgL_arg3699z00_1348;
{ /* ./Expand/object.scm 676 */
obj_t BgL_arg3702z00_1349;obj_t BgL_arg3703z00_1350;
BgL_arg3702z00_1349 = 
CNST_TABLE_REF(((long)33)); 
BgL_arg3703z00_1350 = 
MAKE_PAIR(BgL_dupzd2varzd2_1193, BNIL); 
BgL_arg3698z00_1347 = 
MAKE_PAIR(BgL_arg3702z00_1349, BgL_arg3703z00_1350); } 
{ /* ./Expand/object.scm 677 */
obj_t BgL_arg3707z00_1351;
{ /* ./Expand/object.scm 677 */
obj_t BgL_arg3712z00_1353;obj_t BgL_arg3713z00_1354;
BgL_arg3712z00_1353 = 
CNST_TABLE_REF(((long)34)); 
BgL_arg3713z00_1354 = 
MAKE_PAIR(BgL_dupzd2varzd2_1193, BNIL); 
BgL_arg3707z00_1351 = 
MAKE_PAIR(BgL_arg3712z00_1353, BgL_arg3713z00_1354); } 
BgL_arg3699z00_1348 = 
MAKE_PAIR(BgL_arg3707z00_1351, BNIL); } 
BgL_arg3695z00_1346 = 
MAKE_PAIR(BgL_arg3698z00_1347, BgL_arg3699z00_1348); } 
BgL_arg3690z00_1343 = 
MAKE_PAIR(BgL_arg3694z00_1345, BgL_arg3695z00_1346); } 
{ /* ./Expand/object.scm 678 */
obj_t BgL_arg3717z00_1355;
{ /* ./Expand/object.scm 678 */
obj_t BgL_arg3721z00_1357;obj_t BgL_arg3722z00_1358;
BgL_arg3721z00_1357 = 
CNST_TABLE_REF(((long)32)); 
{ /* ./Expand/object.scm 678 */
obj_t BgL_arg3725z00_1359;obj_t BgL_arg3726z00_1360;
{ /* ./Expand/object.scm 678 */
obj_t BgL_arg3729z00_1361;obj_t BgL_arg3730z00_1362;
BgL_arg3729z00_1361 = 
CNST_TABLE_REF(((long)35)); 
{ /* ./Expand/object.scm 678 */
obj_t BgL_arg3733z00_1363;obj_t BgL_arg3734z00_1364;
{ /* ./Expand/object.scm 678 */
obj_t BgL_arg3737z00_1365;obj_t BgL_arg3738z00_1366;
{ /* ./Expand/object.scm 678 */
obj_t BgL_arg3741z00_1367;obj_t BgL_arg3742z00_1368;
BgL_arg3741z00_1367 = 
CNST_TABLE_REF(((long)27)); 
{ /* ./Expand/object.scm 678 */
obj_t BgL_arg3745z00_1369;obj_t BgL_arg3746z00_1370;
BgL_arg3745z00_1369 = 
CNST_TABLE_REF(((long)36)); 
{ /* ./Expand/object.scm 678 */
obj_t BgL_auxz00_3843;
BgL_auxz00_3843 = 
CNST_TABLE_REF(((long)29)); 
BgL_arg3746z00_1370 = 
MAKE_PAIR(BgL_auxz00_3843, BNIL); } 
BgL_arg3742z00_1368 = 
MAKE_PAIR(BgL_arg3745z00_1369, BgL_arg3746z00_1370); } 
BgL_arg3737z00_1365 = 
MAKE_PAIR(BgL_arg3741z00_1367, BgL_arg3742z00_1368); } 
{ /* ./Expand/object.scm 679 */
obj_t BgL_arg3750z00_1371;
{ /* ./Expand/object.scm 679 */
obj_t BgL_arg3754z00_1373;obj_t BgL_arg3755z00_1374;
BgL_arg3754z00_1373 = 
CNST_TABLE_REF(((long)27)); 
{ /* ./Expand/object.scm 679 */
obj_t BgL_arg3758z00_1375;obj_t BgL_arg3759z00_1376;
{ /* ./Expand/object.scm 679 */
BgL_variablez00_bglt BgL_obj1093z00_2315;
BgL_obj1093z00_2315 = 
(BgL_variablez00_bglt)(BgL_holderz00_1190); 
BgL_arg3758z00_1375 = 
(((BgL_variablez00_bglt)CREF(BgL_obj1093z00_2315))->BgL_idz00); } 
{ /* ./Expand/object.scm 680 */
obj_t BgL_arg3763z00_1377;
BgL_arg3763z00_1377 = 
(((BgL_globalz00_bglt)CREF(BgL_holderz00_1190))->BgL_modulez00); 
BgL_arg3759z00_1376 = 
MAKE_PAIR(BgL_arg3763z00_1377, BNIL); } 
BgL_arg3755z00_1374 = 
MAKE_PAIR(BgL_arg3758z00_1375, BgL_arg3759z00_1376); } 
BgL_arg3750z00_1371 = 
MAKE_PAIR(BgL_arg3754z00_1373, BgL_arg3755z00_1374); } 
BgL_arg3738z00_1366 = 
MAKE_PAIR(BgL_arg3750z00_1371, BNIL); } 
BgL_arg3733z00_1363 = 
MAKE_PAIR(BgL_arg3737z00_1365, BgL_arg3738z00_1366); } 
{ /* ./Expand/object.scm 681 */
obj_t BgL_arg3768z00_1379;
{ /* ./Expand/object.scm 681 */
obj_t BgL_arg3773z00_1381;obj_t BgL_arg3774z00_1382;
{ /* ./Expand/object.scm 681 */
obj_t BgL_arg3777z00_1383;obj_t BgL_arg3778z00_1384;
BgL_arg3777z00_1383 = 
CNST_TABLE_REF(((long)27)); 
{ /* ./Expand/object.scm 681 */
obj_t BgL_arg3781z00_1385;obj_t BgL_arg3782z00_1386;
BgL_arg3781z00_1385 = 
CNST_TABLE_REF(((long)37)); 
{ /* ./Expand/object.scm 681 */
obj_t BgL_auxz00_3859;
BgL_auxz00_3859 = 
CNST_TABLE_REF(((long)29)); 
BgL_arg3782z00_1386 = 
MAKE_PAIR(BgL_auxz00_3859, BNIL); } 
BgL_arg3778z00_1384 = 
MAKE_PAIR(BgL_arg3781z00_1385, BgL_arg3782z00_1386); } 
BgL_arg3773z00_1381 = 
MAKE_PAIR(BgL_arg3777z00_1383, BgL_arg3778z00_1384); } 
BgL_arg3774z00_1382 = 
MAKE_PAIR(BgL_dupzd2varzd2_1193, BNIL); 
BgL_arg3768z00_1379 = 
MAKE_PAIR(BgL_arg3773z00_1381, BgL_arg3774z00_1382); } 
BgL_arg3734z00_1364 = 
MAKE_PAIR(BgL_arg3768z00_1379, BNIL); } 
BgL_arg3730z00_1362 = 
MAKE_PAIR(BgL_arg3733z00_1363, BgL_arg3734z00_1364); } 
BgL_arg3725z00_1359 = 
MAKE_PAIR(BgL_arg3729z00_1361, BgL_arg3730z00_1362); } 
{ /* ./Expand/object.scm 682 */
obj_t BgL_arg3787z00_1387;obj_t BgL_arg3788z00_1388;
{ /* ./Expand/object.scm 682 */
obj_t BgL_arg3791z00_1389;obj_t BgL_arg3792z00_1390;
BgL_arg3791z00_1389 = 
CNST_TABLE_REF(((long)18)); 
{ /* ./Expand/object.scm 683 */
obj_t BgL_arg3795z00_1391;obj_t BgL_arg3796z00_1392;
{ /* ./Expand/object.scm 683 */
obj_t BgL_arg3799z00_1393;obj_t BgL_arg3800z00_1394;
BgL_arg3799z00_1393 = 
CNST_TABLE_REF(((long)26)); 
{ /* ./Expand/object.scm 685 */
obj_t BgL_arg3803z00_1395;
{ /* ./Expand/object.scm 685 */
obj_t BgL_arg3806z00_1396;
{ /* ./Expand/object.scm 685 */
obj_t BgL_arg3810z00_1398;
{ /* ./Expand/object.scm 685 */
obj_t BgL_arg3813z00_1399;
BgL_arg3813z00_1399 = 
BGl_reversez12z12zz__r4_pairs_and_lists_6_3z00(BgL_largsz00_1279); 
BgL_arg3810z00_1398 = 
BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(BgL_arg3813z00_1399, BNIL); } 
BgL_arg3806z00_1396 = 
MAKE_PAIR(BgL_wideningz00_1283, BgL_arg3810z00_1398); } 
BgL_arg3803z00_1395 = 
MAKE_PAIR(BgL_arg3806z00_1396, BNIL); } 
BgL_arg3800z00_1394 = 
MAKE_PAIR(BgL_dupzd2varzd2_1193, BgL_arg3803z00_1395); } 
BgL_arg3795z00_1391 = 
MAKE_PAIR(BgL_arg3799z00_1393, BgL_arg3800z00_1394); } 
{ /* ./Expand/object.scm 687 */
obj_t BgL_arg3818z00_1401;obj_t BgL_arg3819z00_1402;
{ /* ./Expand/object.scm 687 */
obj_t BgL_arg3822z00_1403;obj_t BgL_arg3823z00_1404;
{ /* ./Expand/object.scm 687 */
obj_t BgL_arg3826z00_1405;obj_t BgL_arg3827z00_1406;
BgL_arg3826z00_1405 = 
CNST_TABLE_REF(((long)27)); 
{ /* ./Expand/object.scm 687 */
obj_t BgL_arg3830z00_1407;obj_t BgL_arg3832z00_1408;
BgL_arg3830z00_1407 = 
CNST_TABLE_REF(((long)28)); 
{ /* ./Expand/object.scm 687 */
obj_t BgL_auxz00_3879;
BgL_auxz00_3879 = 
CNST_TABLE_REF(((long)29)); 
BgL_arg3832z00_1408 = 
MAKE_PAIR(BgL_auxz00_3879, BNIL); } 
BgL_arg3827z00_1406 = 
MAKE_PAIR(BgL_arg3830z00_1407, BgL_arg3832z00_1408); } 
BgL_arg3822z00_1403 = 
MAKE_PAIR(BgL_arg3826z00_1405, BgL_arg3827z00_1406); } 
{ /* ./Expand/object.scm 689 */
obj_t BgL_arg3836z00_1409;
{ /* ./Expand/object.scm 689 */
obj_t BgL_arg3839z00_1410;
{ /* ./Expand/object.scm 689 */
obj_t BgL_arg3843z00_1412;obj_t BgL_arg3844z00_1413;
{ /* ./Expand/object.scm 689 */
obj_t BgL_arg3847z00_1414;obj_t BgL_arg3848z00_1415;
BgL_arg3847z00_1414 = 
CNST_TABLE_REF(((long)27)); 
{ /* ./Expand/object.scm 689 */
obj_t BgL_arg3851z00_1416;obj_t BgL_arg3852z00_1417;
BgL_arg3851z00_1416 = 
CNST_TABLE_REF(((long)30)); 
{ /* ./Expand/object.scm 689 */
obj_t BgL_auxz00_3886;
BgL_auxz00_3886 = 
CNST_TABLE_REF(((long)29)); 
BgL_arg3852z00_1417 = 
MAKE_PAIR(BgL_auxz00_3886, BNIL); } 
BgL_arg3848z00_1415 = 
MAKE_PAIR(BgL_arg3851z00_1416, BgL_arg3852z00_1417); } 
BgL_arg3843z00_1412 = 
MAKE_PAIR(BgL_arg3847z00_1414, BgL_arg3848z00_1415); } 
{ /* ./Expand/object.scm 690 */
obj_t BgL_arg3856z00_1418;
{ /* ./Expand/object.scm 690 */
obj_t BgL_arg3860z00_1420;obj_t BgL_arg3861z00_1421;
BgL_arg3860z00_1420 = 
CNST_TABLE_REF(((long)27)); 
{ /* ./Expand/object.scm 690 */
obj_t BgL_arg3864z00_1422;obj_t BgL_arg3865z00_1423;
{ /* ./Expand/object.scm 690 */
BgL_variablez00_bglt BgL_obj1093z00_2317;
BgL_obj1093z00_2317 = 
(BgL_variablez00_bglt)(BgL_holderz00_1190); 
BgL_arg3864z00_1422 = 
(((BgL_variablez00_bglt)CREF(BgL_obj1093z00_2317))->BgL_idz00); } 
{ /* ./Expand/object.scm 691 */
obj_t BgL_arg3869z00_1424;
BgL_arg3869z00_1424 = 
(((BgL_globalz00_bglt)CREF(BgL_holderz00_1190))->BgL_modulez00); 
BgL_arg3865z00_1423 = 
MAKE_PAIR(BgL_arg3869z00_1424, BNIL); } 
BgL_arg3861z00_1421 = 
MAKE_PAIR(BgL_arg3864z00_1422, BgL_arg3865z00_1423); } 
BgL_arg3856z00_1418 = 
MAKE_PAIR(BgL_arg3860z00_1420, BgL_arg3861z00_1421); } 
BgL_arg3844z00_1413 = 
MAKE_PAIR(BgL_arg3856z00_1418, BNIL); } 
BgL_arg3839z00_1410 = 
MAKE_PAIR(BgL_arg3843z00_1412, BgL_arg3844z00_1413); } 
BgL_arg3836z00_1409 = 
MAKE_PAIR(BgL_arg3839z00_1410, BNIL); } 
BgL_arg3823z00_1404 = 
MAKE_PAIR(BgL_dupzd2varzd2_1193, BgL_arg3836z00_1409); } 
BgL_arg3818z00_1401 = 
MAKE_PAIR(BgL_arg3822z00_1403, BgL_arg3823z00_1404); } 
{ /* ./Expand/object.scm 693 */
obj_t BgL_arg3874z00_1426;obj_t BgL_arg3875z00_1427;
{ /* ./Expand/object.scm 693 */
obj_t BgL_arg3879z00_1428;obj_t BgL_arg3880z00_1429;
{ /* ./Expand/object.scm 693 */
obj_t BgL_arg3883z00_1430;obj_t BgL_arg3885z00_1431;
BgL_arg3883z00_1430 = 
CNST_TABLE_REF(((long)27)); 
{ /* ./Expand/object.scm 693 */
obj_t BgL_arg3888z00_1432;obj_t BgL_arg3889z00_1433;
BgL_arg3888z00_1432 = 
CNST_TABLE_REF(((long)31)); 
{ /* ./Expand/object.scm 693 */
obj_t BgL_auxz00_3905;
BgL_auxz00_3905 = 
CNST_TABLE_REF(((long)29)); 
BgL_arg3889z00_1433 = 
MAKE_PAIR(BgL_auxz00_3905, BNIL); } 
BgL_arg3885z00_1431 = 
MAKE_PAIR(BgL_arg3888z00_1432, BgL_arg3889z00_1433); } 
BgL_arg3879z00_1428 = 
MAKE_PAIR(BgL_arg3883z00_1430, BgL_arg3885z00_1431); } 
BgL_arg3880z00_1429 = 
MAKE_PAIR(BgL_dupzd2varzd2_1193, BNIL); 
BgL_arg3874z00_1426 = 
MAKE_PAIR(BgL_arg3879z00_1428, BgL_arg3880z00_1429); } 
{ /* ./Expand/object.scm 694 */
obj_t BgL_arg3894z00_1434;obj_t BgL_arg3895z00_1435;
BgL_arg3894z00_1434 = 
BGl_reversez12z12zz__r4_pairs_and_lists_6_3z00(BgL_virtualsz00_1280); 
BgL_arg3895z00_1435 = 
MAKE_PAIR(BgL_dupzd2varzd2_1193, BNIL); 
BgL_arg3875z00_1427 = 
BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(BgL_arg3894z00_1434, BgL_arg3895z00_1435); } 
BgL_arg3819z00_1402 = 
MAKE_PAIR(BgL_arg3874z00_1426, BgL_arg3875z00_1427); } 
BgL_arg3796z00_1392 = 
MAKE_PAIR(BgL_arg3818z00_1401, BgL_arg3819z00_1402); } 
BgL_arg3792z00_1390 = 
MAKE_PAIR(BgL_arg3795z00_1391, BgL_arg3796z00_1392); } 
BgL_arg3787z00_1387 = 
MAKE_PAIR(BgL_arg3791z00_1389, BgL_arg3792z00_1390); } 
{ /* ./Expand/object.scm 696 */
obj_t BgL_arg3900z00_1436;
{ /* ./Expand/object.scm 696 */
obj_t BgL_arg3904z00_1438;obj_t BgL_arg3905z00_1439;
BgL_arg3904z00_1438 = 
CNST_TABLE_REF(((long)38)); 
{ /* ./Expand/object.scm 696 */
obj_t BgL_arg3909z00_1441;
{ /* ./Expand/object.scm 696 */
obj_t BgL_arg3913z00_1443;
BgL_arg3913z00_1443 = 
MAKE_PAIR(BgL_dupzd2varzd2_1193, BNIL); 
BgL_arg3909z00_1441 = 
MAKE_PAIR(BGl_string4915z00zzexpand_objectz00, BgL_arg3913z00_1443); } 
BgL_arg3905z00_1439 = 
MAKE_PAIR(BGl_string4913z00zzexpand_objectz00, BgL_arg3909z00_1441); } 
BgL_arg3900z00_1436 = 
MAKE_PAIR(BgL_arg3904z00_1438, BgL_arg3905z00_1439); } 
BgL_arg3788z00_1388 = 
MAKE_PAIR(BgL_arg3900z00_1436, BNIL); } 
BgL_arg3726z00_1360 = 
MAKE_PAIR(BgL_arg3787z00_1387, BgL_arg3788z00_1388); } 
BgL_arg3722z00_1358 = 
MAKE_PAIR(BgL_arg3725z00_1359, BgL_arg3726z00_1360); } 
BgL_arg3717z00_1355 = 
MAKE_PAIR(BgL_arg3721z00_1357, BgL_arg3722z00_1358); } 
BgL_arg3691z00_1344 = 
MAKE_PAIR(BgL_arg3717z00_1355, BNIL); } 
BgL_arg3679z00_1339 = 
MAKE_PAIR(BgL_arg3690z00_1343, BgL_arg3691z00_1344); } 
BgL_arg3675z00_1337 = 
MAKE_PAIR(BgL_arg3678z00_1338, BgL_arg3679z00_1339); } 
return 
MAKE_PAIR(BgL_arg3674z00_1336, BgL_arg3675z00_1337);} }  else 
{ /* ./Expand/object.scm 700 */
obj_t BgL_valuez00_1450;
{ /* ./Expand/object.scm 700 */
obj_t BgL_arg3962z00_1463;
{ /* ./Expand/object.scm 700 */
int BgL_kz00_2320;
BgL_kz00_2320 = 
(int)(BgL_iz00_1277); 
BgL_arg3962z00_1463 = 
VECTOR_REF(BgL_vargsz00_1192,BgL_kz00_2320); } 
BgL_valuez00_1450 = 
CDR(BgL_arg3962z00_1463); } 
{ /* ./Expand/object.scm 702 */
bool_t BgL_test3931z00_1451;
{ /* ./Expand/object.scm 702 */
obj_t BgL_arg3958z00_1462;
BgL_arg3958z00_1462 = 
CAR(BgL_slotsz00_1278); 
BgL_test3931z00_1451 = 
BGl_slotzd2virtualzf3z21zzobject_slotsz00(
(BgL_slotz00_bglt)(BgL_arg3958z00_1462)); } 
if(BgL_test3931z00_1451)
{ /* ./Expand/object.scm 702 */
{ /* ./Expand/object.scm 703 */
long BgL_arg3933z00_1452;obj_t BgL_arg3934z00_1453;obj_t BgL_arg3935z00_1454;
BgL_arg3933z00_1452 = 
(BgL_iz00_1277+((long)1)); 
BgL_arg3934z00_1453 = 
CDR(BgL_slotsz00_1278); 
{ /* ./Expand/object.scm 706 */
bool_t BgL_test3939z00_1455;
BgL_test3939z00_1455 = 
(BgL_valuez00_1450==BUNSPEC); 
if(BgL_test3939z00_1455)
{ /* ./Expand/object.scm 706 */
BgL_arg3935z00_1454 = BgL_virtualsz00_1280; }  else 
{ /* ./Expand/object.scm 708 */
obj_t BgL_arg3941z00_1456;
{ /* ./Expand/object.scm 708 */
obj_t BgL_arg3944z00_1457;
BgL_arg3944z00_1457 = 
CAR(BgL_slotsz00_1278); 
BgL_arg3941z00_1456 = 
BGl_makezd2virtualzd2setz00zzexpand_objectz00(BgL_arg3944z00_1457, BgL_valuez00_1450, BgL_dupzd2varzd2_1193, 
(obj_t)(BgL_classz00_42), BgL_formz00_41, BgL_ez00_45, "widen!"); } 
BgL_arg3935z00_1454 = 
MAKE_PAIR(BgL_arg3941z00_1456, BgL_virtualsz00_1280); } } 
{ 
obj_t BgL_virtualsz00_3949;obj_t BgL_slotsz00_3948;long BgL_iz00_3947;
BgL_iz00_3947 = BgL_arg3933z00_1452; 
BgL_slotsz00_3948 = BgL_arg3934z00_1453; 
BgL_virtualsz00_3949 = BgL_arg3935z00_1454; 
BgL_virtualsz00_1280 = BgL_virtualsz00_3949; 
BgL_slotsz00_1278 = BgL_slotsz00_3948; 
BgL_iz00_1277 = BgL_iz00_3947; 
goto BgL_loopz00_1281;} } }  else 
{ /* ./Expand/object.scm 702 */
{ /* ./Expand/object.scm 717 */
long BgL_arg3950z00_1459;obj_t BgL_arg3951z00_1460;obj_t BgL_arg3952z00_1461;
BgL_arg3950z00_1459 = 
(BgL_iz00_1277+((long)1)); 
BgL_arg3951z00_1460 = 
CDR(BgL_slotsz00_1278); 
BgL_arg3952z00_1461 = 
MAKE_PAIR(BgL_valuez00_1450, BgL_largsz00_1279); 
{ 
obj_t BgL_largsz00_3955;obj_t BgL_slotsz00_3954;long BgL_iz00_3953;
BgL_iz00_3953 = BgL_arg3950z00_1459; 
BgL_slotsz00_3954 = BgL_arg3951z00_1460; 
BgL_largsz00_3955 = BgL_arg3952z00_1461; 
BgL_largsz00_1279 = BgL_largsz00_3955; 
BgL_slotsz00_1278 = BgL_slotsz00_3954; 
BgL_iz00_1277 = BgL_iz00_3953; 
goto BgL_loopz00_1281;} } } } } } } } } } } } } } } } } 
}



/* expand-shrink! */
BGL_EXPORTED_DEF obj_t BGl_expandzd2shrinkz12zc0zzexpand_objectz00(obj_t BgL_xz00_46, obj_t BgL_ez00_47)
{ AN_OBJECT;
{ /* ./Expand/object.scm 725 */
{ 

{ /* ./Expand/object.scm 726 */
bool_t BgL_test3988z00_1473;
BgL_test3988z00_1473 = 
PAIRP(BgL_xz00_46); 
if(BgL_test3988z00_1473)
{ /* ./Expand/object.scm 726 */
obj_t BgL_cdrzd2489zd2_1474;
BgL_cdrzd2489zd2_1474 = 
CDR(BgL_xz00_46); 
{ /* ./Expand/object.scm 726 */
bool_t BgL_test3989z00_1475;
{ /* ./Expand/object.scm 726 */
obj_t BgL_auxz00_3961;obj_t BgL_auxz00_3959;
BgL_auxz00_3961 = 
CNST_TABLE_REF(((long)34)); 
BgL_auxz00_3959 = 
CAR(BgL_xz00_46); 
BgL_test3989z00_1475 = 
(BgL_auxz00_3959==BgL_auxz00_3961); } 
if(BgL_test3989z00_1475)
{ /* ./Expand/object.scm 726 */
bool_t BgL_test3990z00_1476;
BgL_test3990z00_1476 = 
PAIRP(BgL_cdrzd2489zd2_1474); 
if(BgL_test3990z00_1476)
{ /* ./Expand/object.scm 726 */
bool_t BgL_test3991z00_1477;
{ /* ./Expand/object.scm 726 */
obj_t BgL_auxz00_3967;
BgL_auxz00_3967 = 
CDR(BgL_cdrzd2489zd2_1474); 
BgL_test3991z00_1477 = 
NULLP(BgL_auxz00_3967); } 
if(BgL_test3991z00_1477)
{ /* ./Expand/object.scm 726 */
obj_t BgL_arg3993z00_1478;
BgL_arg3993z00_1478 = 
CAR(BgL_cdrzd2489zd2_1474); 
{ /* ./Expand/object.scm 726 */
obj_t BgL_arg4013z00_2338;
BgL_arg4013z00_2338 = 
BGl_makezd2azd2shrinkz12z12zzexpand_objectz00(BgL_ez00_47, BgL_arg3993z00_1478); 
return 
BGl_replacez12z12zztools_miscz00(BgL_xz00_46, BgL_arg4013z00_2338);} }  else 
{ /* ./Expand/object.scm 726 */
BgL_tagzd2484zd2_1471:
FAILURE(BFALSE,BGl_string4916z00zzexpand_objectz00,BgL_xz00_46);} }  else 
{ /* ./Expand/object.scm 726 */
goto BgL_tagzd2484zd2_1471;} }  else 
{ /* ./Expand/object.scm 726 */
goto BgL_tagzd2484zd2_1471;} } }  else 
{ /* ./Expand/object.scm 726 */
goto BgL_tagzd2484zd2_1471;} } } } 
}



/* _expand-shrink!4625 */
obj_t BGl__expandzd2shrinkz124625zc0zzexpand_objectz00(obj_t BgL_envz00_2432, obj_t BgL_xz00_2433, obj_t BgL_ez00_2434)
{ AN_OBJECT;
{ /* ./Expand/object.scm 725 */
return 
BGl_expandzd2shrinkz12zc0zzexpand_objectz00(BgL_xz00_2433, BgL_ez00_2434);} 
}



/* make-a-shrink! */
obj_t BGl_makezd2azd2shrinkz12z12zzexpand_objectz00(obj_t BgL_ez00_48, obj_t BgL_oz00_49)
{ AN_OBJECT;
{ /* ./Expand/object.scm 735 */
{ /* ./Expand/object.scm 736 */
obj_t BgL_newoz00_1483;
{ /* ./Expand/object.scm 736 */
obj_t BgL_arg4305z00_1614;
BgL_arg4305z00_1614 = 
PROCEDURE_ENTRY(BGl_gensymz00zz__r4_symbols_6_4z00)(BGl_gensymz00zz__r4_symbols_6_4z00, 
CNST_TABLE_REF(((long)39)), BEOA); 
BgL_newoz00_1483 = 
BGl_markzd2symbolzd2nonzd2userz12zc0zzast_identz00(BgL_arg4305z00_1614); } 
if(
CBOOL(BGl_za2unsafezd2typeza2zd2zzengine_paramz00))
{ /* ./Expand/object.scm 745 */
obj_t BgL_arg4018z00_1484;obj_t BgL_arg4019z00_1485;
BgL_arg4018z00_1484 = 
CNST_TABLE_REF(((long)2)); 
{ /* ./Expand/object.scm 738 */
obj_t BgL_arg4022z00_1486;obj_t BgL_arg4023z00_1487;
{ /* ./Expand/object.scm 738 */
obj_t BgL_arg4026z00_1488;
{ /* ./Expand/object.scm 738 */
obj_t BgL_arg4030z00_1490;
{ /* ./Expand/object.scm 738 */
obj_t BgL_arg4033z00_1491;
BgL_arg4033z00_1491 = 
PROCEDURE_ENTRY(BgL_ez00_48)(BgL_ez00_48, BgL_oz00_49, BgL_ez00_48, BEOA); 
BgL_arg4030z00_1490 = 
MAKE_PAIR(BgL_arg4033z00_1491, BNIL); } 
BgL_arg4026z00_1488 = 
MAKE_PAIR(BgL_newoz00_1483, BgL_arg4030z00_1490); } 
BgL_arg4022z00_1486 = 
MAKE_PAIR(BgL_arg4026z00_1488, BNIL); } 
{ /* ./Expand/object.scm 739 */
obj_t BgL_arg4038z00_1493;obj_t BgL_arg4039z00_1494;
{ /* ./Expand/object.scm 739 */
obj_t BgL_arg4042z00_1495;obj_t BgL_arg4043z00_1496;
{ /* ./Expand/object.scm 739 */
obj_t BgL_arg4046z00_1497;obj_t BgL_arg4047z00_1498;
BgL_arg4046z00_1497 = 
CNST_TABLE_REF(((long)27)); 
{ /* ./Expand/object.scm 739 */
obj_t BgL_arg4050z00_1499;obj_t BgL_arg4052z00_1500;
BgL_arg4050z00_1499 = 
CNST_TABLE_REF(((long)28)); 
{ /* ./Expand/object.scm 739 */
obj_t BgL_auxz00_3990;
BgL_auxz00_3990 = 
CNST_TABLE_REF(((long)29)); 
BgL_arg4052z00_1500 = 
MAKE_PAIR(BgL_auxz00_3990, BNIL); } 
BgL_arg4047z00_1498 = 
MAKE_PAIR(BgL_arg4050z00_1499, BgL_arg4052z00_1500); } 
BgL_arg4042z00_1495 = 
MAKE_PAIR(BgL_arg4046z00_1497, BgL_arg4047z00_1498); } 
{ /* ./Expand/object.scm 741 */
obj_t BgL_arg4056z00_1501;
{ /* ./Expand/object.scm 741 */
obj_t BgL_arg4059z00_1502;
{ /* ./Expand/object.scm 741 */
obj_t BgL_arg4063z00_1504;obj_t BgL_arg4064z00_1505;
{ /* ./Expand/object.scm 741 */
obj_t BgL_arg4067z00_1506;obj_t BgL_arg4068z00_1507;
BgL_arg4067z00_1506 = 
CNST_TABLE_REF(((long)27)); 
{ /* ./Expand/object.scm 741 */
obj_t BgL_arg4071z00_1508;obj_t BgL_arg4072z00_1509;
BgL_arg4071z00_1508 = 
CNST_TABLE_REF(((long)30)); 
{ /* ./Expand/object.scm 741 */
obj_t BgL_auxz00_3997;
BgL_auxz00_3997 = 
CNST_TABLE_REF(((long)29)); 
BgL_arg4072z00_1509 = 
MAKE_PAIR(BgL_auxz00_3997, BNIL); } 
BgL_arg4068z00_1507 = 
MAKE_PAIR(BgL_arg4071z00_1508, BgL_arg4072z00_1509); } 
BgL_arg4063z00_1504 = 
MAKE_PAIR(BgL_arg4067z00_1506, BgL_arg4068z00_1507); } 
{ /* ./Expand/object.scm 742 */
obj_t BgL_arg4076z00_1510;
{ /* ./Expand/object.scm 742 */
obj_t BgL_arg4080z00_1512;obj_t BgL_arg4081z00_1513;
{ /* ./Expand/object.scm 742 */
obj_t BgL_arg4084z00_1514;obj_t BgL_arg4085z00_1515;
BgL_arg4084z00_1514 = 
CNST_TABLE_REF(((long)27)); 
{ /* ./Expand/object.scm 742 */
obj_t BgL_arg4088z00_1516;obj_t BgL_arg4089z00_1517;
BgL_arg4088z00_1516 = 
CNST_TABLE_REF(((long)36)); 
{ /* ./Expand/object.scm 742 */
obj_t BgL_auxz00_4004;
BgL_auxz00_4004 = 
CNST_TABLE_REF(((long)29)); 
BgL_arg4089z00_1517 = 
MAKE_PAIR(BgL_auxz00_4004, BNIL); } 
BgL_arg4085z00_1515 = 
MAKE_PAIR(BgL_arg4088z00_1516, BgL_arg4089z00_1517); } 
BgL_arg4080z00_1512 = 
MAKE_PAIR(BgL_arg4084z00_1514, BgL_arg4085z00_1515); } 
{ /* ./Expand/object.scm 743 */
obj_t BgL_arg4093z00_1518;
{ /* ./Expand/object.scm 743 */
obj_t BgL_arg4097z00_1520;obj_t BgL_arg4098z00_1521;
{ /* ./Expand/object.scm 743 */
obj_t BgL_arg4101z00_1522;obj_t BgL_arg4102z00_1523;
BgL_arg4101z00_1522 = 
CNST_TABLE_REF(((long)27)); 
{ /* ./Expand/object.scm 743 */
obj_t BgL_arg4105z00_1524;obj_t BgL_arg4106z00_1525;
BgL_arg4105z00_1524 = 
CNST_TABLE_REF(((long)37)); 
{ /* ./Expand/object.scm 743 */
obj_t BgL_auxz00_4011;
BgL_auxz00_4011 = 
CNST_TABLE_REF(((long)29)); 
BgL_arg4106z00_1525 = 
MAKE_PAIR(BgL_auxz00_4011, BNIL); } 
BgL_arg4102z00_1523 = 
MAKE_PAIR(BgL_arg4105z00_1524, BgL_arg4106z00_1525); } 
BgL_arg4097z00_1520 = 
MAKE_PAIR(BgL_arg4101z00_1522, BgL_arg4102z00_1523); } 
BgL_arg4098z00_1521 = 
MAKE_PAIR(BgL_newoz00_1483, BNIL); 
BgL_arg4093z00_1518 = 
MAKE_PAIR(BgL_arg4097z00_1520, BgL_arg4098z00_1521); } 
BgL_arg4081z00_1513 = 
MAKE_PAIR(BgL_arg4093z00_1518, BNIL); } 
BgL_arg4076z00_1510 = 
MAKE_PAIR(BgL_arg4080z00_1512, BgL_arg4081z00_1513); } 
BgL_arg4064z00_1505 = 
MAKE_PAIR(BgL_arg4076z00_1510, BNIL); } 
BgL_arg4059z00_1502 = 
MAKE_PAIR(BgL_arg4063z00_1504, BgL_arg4064z00_1505); } 
BgL_arg4056z00_1501 = 
MAKE_PAIR(BgL_arg4059z00_1502, BNIL); } 
BgL_arg4043z00_1496 = 
MAKE_PAIR(BgL_newoz00_1483, BgL_arg4056z00_1501); } 
BgL_arg4038z00_1493 = 
MAKE_PAIR(BgL_arg4042z00_1495, BgL_arg4043z00_1496); } 
{ /* ./Expand/object.scm 744 */
obj_t BgL_arg4111z00_1526;obj_t BgL_arg4112z00_1527;
{ /* ./Expand/object.scm 744 */
obj_t BgL_arg4115z00_1528;obj_t BgL_arg4116z00_1529;
BgL_arg4115z00_1528 = 
CNST_TABLE_REF(((long)26)); 
{ /* ./Expand/object.scm 744 */
obj_t BgL_arg4119z00_1530;
BgL_arg4119z00_1530 = 
MAKE_PAIR(BFALSE, BNIL); 
BgL_arg4116z00_1529 = 
MAKE_PAIR(BgL_newoz00_1483, BgL_arg4119z00_1530); } 
BgL_arg4111z00_1526 = 
MAKE_PAIR(BgL_arg4115z00_1528, BgL_arg4116z00_1529); } 
BgL_arg4112z00_1527 = 
MAKE_PAIR(BgL_newoz00_1483, BNIL); 
BgL_arg4039z00_1494 = 
MAKE_PAIR(BgL_arg4111z00_1526, BgL_arg4112z00_1527); } 
BgL_arg4023z00_1487 = 
MAKE_PAIR(BgL_arg4038z00_1493, BgL_arg4039z00_1494); } 
BgL_arg4019z00_1485 = 
MAKE_PAIR(BgL_arg4022z00_1486, BgL_arg4023z00_1487); } 
return 
MAKE_PAIR(BgL_arg4018z00_1484, BgL_arg4019z00_1485);}  else 
{ /* ./Expand/object.scm 758 */
obj_t BgL_arg4124z00_1531;obj_t BgL_arg4125z00_1532;
BgL_arg4124z00_1531 = 
CNST_TABLE_REF(((long)2)); 
{ /* ./Expand/object.scm 746 */
obj_t BgL_arg4128z00_1533;obj_t BgL_arg4129z00_1534;
{ /* ./Expand/object.scm 746 */
obj_t BgL_arg4132z00_1535;
{ /* ./Expand/object.scm 746 */
obj_t BgL_arg4136z00_1537;
{ /* ./Expand/object.scm 746 */
obj_t BgL_arg4139z00_1538;
BgL_arg4139z00_1538 = 
PROCEDURE_ENTRY(BgL_ez00_48)(BgL_ez00_48, BgL_oz00_49, BgL_ez00_48, BEOA); 
BgL_arg4136z00_1537 = 
MAKE_PAIR(BgL_arg4139z00_1538, BNIL); } 
BgL_arg4132z00_1535 = 
MAKE_PAIR(BgL_newoz00_1483, BgL_arg4136z00_1537); } 
BgL_arg4128z00_1533 = 
MAKE_PAIR(BgL_arg4132z00_1535, BNIL); } 
{ /* ./Expand/object.scm 747 */
obj_t BgL_arg4144z00_1540;
{ /* ./Expand/object.scm 747 */
obj_t BgL_arg4148z00_1542;obj_t BgL_arg4149z00_1543;
BgL_arg4148z00_1542 = 
CNST_TABLE_REF(((long)32)); 
{ /* ./Expand/object.scm 747 */
obj_t BgL_arg4152z00_1544;obj_t BgL_arg4153z00_1545;
{ /* ./Expand/object.scm 747 */
obj_t BgL_arg4156z00_1546;obj_t BgL_arg4157z00_1547;
BgL_arg4156z00_1546 = 
CNST_TABLE_REF(((long)40)); 
BgL_arg4157z00_1547 = 
MAKE_PAIR(BgL_newoz00_1483, BNIL); 
BgL_arg4152z00_1544 = 
MAKE_PAIR(BgL_arg4156z00_1546, BgL_arg4157z00_1547); } 
{ /* ./Expand/object.scm 748 */
obj_t BgL_arg4161z00_1548;obj_t BgL_arg4162z00_1549;
{ /* ./Expand/object.scm 748 */
obj_t BgL_arg4165z00_1550;obj_t BgL_arg4166z00_1551;
BgL_arg4165z00_1550 = 
CNST_TABLE_REF(((long)32)); 
{ /* ./Expand/object.scm 748 */
obj_t BgL_arg4169z00_1552;obj_t BgL_arg4170z00_1553;
{ /* ./Expand/object.scm 748 */
obj_t BgL_arg4173z00_1554;obj_t BgL_arg4174z00_1555;
BgL_arg4173z00_1554 = 
CNST_TABLE_REF(((long)33)); 
BgL_arg4174z00_1555 = 
MAKE_PAIR(BgL_newoz00_1483, BNIL); 
BgL_arg4169z00_1552 = 
MAKE_PAIR(BgL_arg4173z00_1554, BgL_arg4174z00_1555); } 
{ /* ./Expand/object.scm 749 */
obj_t BgL_arg4178z00_1556;obj_t BgL_arg4179z00_1557;
{ /* ./Expand/object.scm 749 */
obj_t BgL_arg4182z00_1558;obj_t BgL_arg4183z00_1559;
BgL_arg4182z00_1558 = 
CNST_TABLE_REF(((long)18)); 
{ /* ./Expand/object.scm 750 */
obj_t BgL_arg4186z00_1560;obj_t BgL_arg4187z00_1561;
{ /* ./Expand/object.scm 750 */
obj_t BgL_arg4190z00_1562;obj_t BgL_arg4191z00_1563;
{ /* ./Expand/object.scm 750 */
obj_t BgL_arg4194z00_1564;obj_t BgL_arg4195z00_1565;
BgL_arg4194z00_1564 = 
CNST_TABLE_REF(((long)27)); 
{ /* ./Expand/object.scm 750 */
obj_t BgL_arg4198z00_1566;obj_t BgL_arg4199z00_1567;
BgL_arg4198z00_1566 = 
CNST_TABLE_REF(((long)28)); 
{ /* ./Expand/object.scm 750 */
obj_t BgL_auxz00_4051;
BgL_auxz00_4051 = 
CNST_TABLE_REF(((long)29)); 
BgL_arg4199z00_1567 = 
MAKE_PAIR(BgL_auxz00_4051, BNIL); } 
BgL_arg4195z00_1565 = 
MAKE_PAIR(BgL_arg4198z00_1566, BgL_arg4199z00_1567); } 
BgL_arg4190z00_1562 = 
MAKE_PAIR(BgL_arg4194z00_1564, BgL_arg4195z00_1565); } 
{ /* ./Expand/object.scm 752 */
obj_t BgL_arg4203z00_1568;
{ /* ./Expand/object.scm 752 */
obj_t BgL_arg4206z00_1569;
{ /* ./Expand/object.scm 752 */
obj_t BgL_arg4210z00_1571;obj_t BgL_arg4211z00_1572;
{ /* ./Expand/object.scm 752 */
obj_t BgL_arg4214z00_1573;obj_t BgL_arg4215z00_1574;
BgL_arg4214z00_1573 = 
CNST_TABLE_REF(((long)27)); 
{ /* ./Expand/object.scm 752 */
obj_t BgL_arg4218z00_1575;obj_t BgL_arg4219z00_1576;
BgL_arg4218z00_1575 = 
CNST_TABLE_REF(((long)30)); 
{ /* ./Expand/object.scm 752 */
obj_t BgL_auxz00_4058;
BgL_auxz00_4058 = 
CNST_TABLE_REF(((long)29)); 
BgL_arg4219z00_1576 = 
MAKE_PAIR(BgL_auxz00_4058, BNIL); } 
BgL_arg4215z00_1574 = 
MAKE_PAIR(BgL_arg4218z00_1575, BgL_arg4219z00_1576); } 
BgL_arg4210z00_1571 = 
MAKE_PAIR(BgL_arg4214z00_1573, BgL_arg4215z00_1574); } 
{ /* ./Expand/object.scm 753 */
obj_t BgL_arg4223z00_1577;
{ /* ./Expand/object.scm 753 */
obj_t BgL_arg4227z00_1579;obj_t BgL_arg4228z00_1580;
{ /* ./Expand/object.scm 753 */
obj_t BgL_arg4231z00_1581;obj_t BgL_arg4232z00_1582;
BgL_arg4231z00_1581 = 
CNST_TABLE_REF(((long)27)); 
{ /* ./Expand/object.scm 753 */
obj_t BgL_arg4235z00_1583;obj_t BgL_arg4236z00_1584;
BgL_arg4235z00_1583 = 
CNST_TABLE_REF(((long)36)); 
{ /* ./Expand/object.scm 753 */
obj_t BgL_auxz00_4065;
BgL_auxz00_4065 = 
CNST_TABLE_REF(((long)29)); 
BgL_arg4236z00_1584 = 
MAKE_PAIR(BgL_auxz00_4065, BNIL); } 
BgL_arg4232z00_1582 = 
MAKE_PAIR(BgL_arg4235z00_1583, BgL_arg4236z00_1584); } 
BgL_arg4227z00_1579 = 
MAKE_PAIR(BgL_arg4231z00_1581, BgL_arg4232z00_1582); } 
{ /* ./Expand/object.scm 754 */
obj_t BgL_arg4240z00_1585;
{ /* ./Expand/object.scm 754 */
obj_t BgL_arg4244z00_1587;obj_t BgL_arg4245z00_1588;
{ /* ./Expand/object.scm 754 */
obj_t BgL_arg4248z00_1589;obj_t BgL_arg4249z00_1590;
BgL_arg4248z00_1589 = 
CNST_TABLE_REF(((long)27)); 
{ /* ./Expand/object.scm 754 */
obj_t BgL_arg4252z00_1591;obj_t BgL_arg4253z00_1592;
BgL_arg4252z00_1591 = 
CNST_TABLE_REF(((long)37)); 
{ /* ./Expand/object.scm 754 */
obj_t BgL_auxz00_4072;
BgL_auxz00_4072 = 
CNST_TABLE_REF(((long)29)); 
BgL_arg4253z00_1592 = 
MAKE_PAIR(BgL_auxz00_4072, BNIL); } 
BgL_arg4249z00_1590 = 
MAKE_PAIR(BgL_arg4252z00_1591, BgL_arg4253z00_1592); } 
BgL_arg4244z00_1587 = 
MAKE_PAIR(BgL_arg4248z00_1589, BgL_arg4249z00_1590); } 
BgL_arg4245z00_1588 = 
MAKE_PAIR(BgL_newoz00_1483, BNIL); 
BgL_arg4240z00_1585 = 
MAKE_PAIR(BgL_arg4244z00_1587, BgL_arg4245z00_1588); } 
BgL_arg4228z00_1580 = 
MAKE_PAIR(BgL_arg4240z00_1585, BNIL); } 
BgL_arg4223z00_1577 = 
MAKE_PAIR(BgL_arg4227z00_1579, BgL_arg4228z00_1580); } 
BgL_arg4211z00_1572 = 
MAKE_PAIR(BgL_arg4223z00_1577, BNIL); } 
BgL_arg4206z00_1569 = 
MAKE_PAIR(BgL_arg4210z00_1571, BgL_arg4211z00_1572); } 
BgL_arg4203z00_1568 = 
MAKE_PAIR(BgL_arg4206z00_1569, BNIL); } 
BgL_arg4191z00_1563 = 
MAKE_PAIR(BgL_newoz00_1483, BgL_arg4203z00_1568); } 
BgL_arg4186z00_1560 = 
MAKE_PAIR(BgL_arg4190z00_1562, BgL_arg4191z00_1563); } 
{ /* ./Expand/object.scm 755 */
obj_t BgL_arg4258z00_1593;obj_t BgL_arg4259z00_1594;
{ /* ./Expand/object.scm 755 */
obj_t BgL_arg4262z00_1595;obj_t BgL_arg4263z00_1596;
BgL_arg4262z00_1595 = 
CNST_TABLE_REF(((long)26)); 
{ /* ./Expand/object.scm 755 */
obj_t BgL_arg4266z00_1597;
BgL_arg4266z00_1597 = 
MAKE_PAIR(BFALSE, BNIL); 
BgL_arg4263z00_1596 = 
MAKE_PAIR(BgL_newoz00_1483, BgL_arg4266z00_1597); } 
BgL_arg4258z00_1593 = 
MAKE_PAIR(BgL_arg4262z00_1595, BgL_arg4263z00_1596); } 
BgL_arg4259z00_1594 = 
MAKE_PAIR(BgL_newoz00_1483, BNIL); 
BgL_arg4187z00_1561 = 
MAKE_PAIR(BgL_arg4258z00_1593, BgL_arg4259z00_1594); } 
BgL_arg4183z00_1559 = 
MAKE_PAIR(BgL_arg4186z00_1560, BgL_arg4187z00_1561); } 
BgL_arg4178z00_1556 = 
MAKE_PAIR(BgL_arg4182z00_1558, BgL_arg4183z00_1559); } 
{ /* ./Expand/object.scm 757 */
obj_t BgL_arg4271z00_1598;
{ /* ./Expand/object.scm 757 */
obj_t BgL_arg4275z00_1600;obj_t BgL_arg4276z00_1601;
BgL_arg4275z00_1600 = 
CNST_TABLE_REF(((long)38)); 
{ /* ./Expand/object.scm 757 */
obj_t BgL_arg4280z00_1603;
{ /* ./Expand/object.scm 757 */
obj_t BgL_arg4284z00_1605;
BgL_arg4284z00_1605 = 
MAKE_PAIR(BgL_newoz00_1483, BNIL); 
BgL_arg4280z00_1603 = 
MAKE_PAIR(BGl_string4917z00zzexpand_objectz00, BgL_arg4284z00_1605); } 
BgL_arg4276z00_1601 = 
MAKE_PAIR(BGl_string4918z00zzexpand_objectz00, BgL_arg4280z00_1603); } 
BgL_arg4271z00_1598 = 
MAKE_PAIR(BgL_arg4275z00_1600, BgL_arg4276z00_1601); } 
BgL_arg4179z00_1557 = 
MAKE_PAIR(BgL_arg4271z00_1598, BNIL); } 
BgL_arg4170z00_1553 = 
MAKE_PAIR(BgL_arg4178z00_1556, BgL_arg4179z00_1557); } 
BgL_arg4166z00_1551 = 
MAKE_PAIR(BgL_arg4169z00_1552, BgL_arg4170z00_1553); } 
BgL_arg4161z00_1548 = 
MAKE_PAIR(BgL_arg4165z00_1550, BgL_arg4166z00_1551); } 
{ /* ./Expand/object.scm 758 */
obj_t BgL_arg4288z00_1606;
{ /* ./Expand/object.scm 758 */
obj_t BgL_arg4292z00_1608;obj_t BgL_arg4293z00_1609;
BgL_arg4292z00_1608 = 
CNST_TABLE_REF(((long)38)); 
{ /* ./Expand/object.scm 758 */
obj_t BgL_arg4297z00_1611;
{ /* ./Expand/object.scm 758 */
obj_t BgL_arg4301z00_1613;
BgL_arg4301z00_1613 = 
MAKE_PAIR(BgL_newoz00_1483, BNIL); 
BgL_arg4297z00_1611 = 
MAKE_PAIR(BGl_string4917z00zzexpand_objectz00, BgL_arg4301z00_1613); } 
BgL_arg4293z00_1609 = 
MAKE_PAIR(BGl_string4918z00zzexpand_objectz00, BgL_arg4297z00_1611); } 
BgL_arg4288z00_1606 = 
MAKE_PAIR(BgL_arg4292z00_1608, BgL_arg4293z00_1609); } 
BgL_arg4162z00_1549 = 
MAKE_PAIR(BgL_arg4288z00_1606, BNIL); } 
BgL_arg4153z00_1545 = 
MAKE_PAIR(BgL_arg4161z00_1548, BgL_arg4162z00_1549); } 
BgL_arg4149z00_1543 = 
MAKE_PAIR(BgL_arg4152z00_1544, BgL_arg4153z00_1545); } 
BgL_arg4144z00_1540 = 
MAKE_PAIR(BgL_arg4148z00_1542, BgL_arg4149z00_1543); } 
BgL_arg4129z00_1534 = 
MAKE_PAIR(BgL_arg4144z00_1540, BNIL); } 
BgL_arg4125z00_1532 = 
MAKE_PAIR(BgL_arg4128z00_1533, BgL_arg4129z00_1534); } 
return 
MAKE_PAIR(BgL_arg4124z00_1531, BgL_arg4125z00_1532);} } } 
}



/* make-virtual-set */
obj_t BGl_makezd2virtualzd2setz00zzexpand_objectz00(obj_t BgL_slotz00_50, obj_t BgL_valuez00_51, obj_t BgL_varz00_52, obj_t BgL_classz00_53, obj_t BgL_formz00_54, obj_t BgL_ez00_55, char * BgL_alloczd2kindzd2_56)
{ AN_OBJECT;
{ /* ./Expand/object.scm 763 */
{ /* ./Expand/object.scm 764 */
bool_t BgL_test4308z00_1615;
{ /* ./Expand/object.scm 764 */
BgL_slotz00_bglt BgL_obj1813z00_2343;
BgL_obj1813z00_2343 = 
(BgL_slotz00_bglt)(BgL_slotz00_50); 
BgL_test4308z00_1615 = 
(((BgL_slotz00_bglt)CREF(BgL_obj1813z00_2343))->BgL_readzd2onlyzf3z21); } 
if(BgL_test4308z00_1615)
{ /* ./Expand/object.scm 766 */
obj_t BgL_arg4310z00_1616;
{ /* ./Expand/object.scm 766 */
obj_t BgL_arg4315z00_1619;
{ /* ./Expand/object.scm 767 */
obj_t BgL_arg4333z00_1626;
{ /* ./Expand/object.scm 767 */
BgL_slotz00_bglt BgL_obj1808z00_2344;
BgL_obj1808z00_2344 = 
(BgL_slotz00_bglt)(BgL_slotz00_50); 
BgL_arg4333z00_1626 = 
(((BgL_slotz00_bglt)CREF(BgL_obj1808z00_2344))->BgL_idz00); } 
BgL_arg4315z00_1619 = 
SYMBOL_TO_STRING(BgL_arg4333z00_1626); } 
{ /* ./Expand/object.scm 766 */
obj_t BgL_list4318z00_1621;
{ /* ./Expand/object.scm 766 */
obj_t BgL_arg4320z00_1622;
{ /* ./Expand/object.scm 766 */
obj_t BgL_arg4323z00_1623;
{ /* ./Expand/object.scm 766 */
obj_t BgL_arg4326z00_1624;
{ /* ./Expand/object.scm 766 */
obj_t BgL_arg4329z00_1625;
BgL_arg4329z00_1625 = 
MAKE_PAIR(BGl_string4902z00zzexpand_objectz00, BNIL); 
BgL_arg4326z00_1624 = 
MAKE_PAIR(BgL_arg4315z00_1619, BgL_arg4329z00_1625); } 
BgL_arg4323z00_1623 = 
MAKE_PAIR(BGl_string4919z00zzexpand_objectz00, BgL_arg4326z00_1624); } 
{ /* ./Expand/object.scm 766 */
obj_t BgL_auxz00_4124;
BgL_auxz00_4124 = 
string_to_bstring(BgL_alloczd2kindzd2_56); 
BgL_arg4320z00_1622 = 
MAKE_PAIR(BgL_auxz00_4124, BgL_arg4323z00_1623); } } 
BgL_list4318z00_1621 = 
MAKE_PAIR(BGl_string4920z00zzexpand_objectz00, BgL_arg4320z00_1622); } 
BgL_arg4310z00_1616 = 
BGl_stringzd2appendzd2zz__r4_strings_6_7z00(BgL_list4318z00_1621); } } 
FAILURE(BFALSE,BgL_arg4310z00_1616,BgL_formz00_54);}  else 
{ /* ./Expand/object.scm 771 */
obj_t BgL_arg4337z00_1627;
{ /* ./Expand/object.scm 771 */
obj_t BgL_arg4340z00_1628;
{ /* ./Expand/object.scm 771 */
obj_t BgL_arg4343z00_1629;obj_t BgL_arg4344z00_1630;
{ /* ./Expand/object.scm 771 */
obj_t BgL_arg4347z00_1631;obj_t BgL_arg4348z00_1632;obj_t BgL_arg4349z00_1633;obj_t BgL_arg4350z00_1634;
{ /* ./Expand/object.scm 771 */
BgL_typez00_bglt BgL_obj1003z00_2349;
BgL_obj1003z00_2349 = 
(BgL_typez00_bglt)(BgL_classz00_53); 
BgL_arg4347z00_1631 = 
(((BgL_typez00_bglt)CREF(BgL_obj1003z00_2349))->BgL_idz00); } 
BgL_arg4348z00_1632 = 
CNST_TABLE_REF(((long)4)); 
{ /* ./Expand/object.scm 771 */
BgL_slotz00_bglt BgL_obj1808z00_2350;
BgL_obj1808z00_2350 = 
(BgL_slotz00_bglt)(BgL_slotz00_50); 
BgL_arg4349z00_1633 = 
(((BgL_slotz00_bglt)CREF(BgL_obj1808z00_2350))->BgL_idz00); } 
BgL_arg4350z00_1634 = 
CNST_TABLE_REF(((long)8)); 
{ /* ./Expand/object.scm 771 */
obj_t BgL_list4352z00_1635;
{ /* ./Expand/object.scm 771 */
obj_t BgL_arg4354z00_1636;
{ /* ./Expand/object.scm 771 */
obj_t BgL_arg4357z00_1637;
{ /* ./Expand/object.scm 771 */
obj_t BgL_arg4360z00_1638;
BgL_arg4360z00_1638 = 
MAKE_PAIR(BgL_arg4350z00_1634, BNIL); 
BgL_arg4357z00_1637 = 
MAKE_PAIR(BgL_arg4349z00_1633, BgL_arg4360z00_1638); } 
BgL_arg4354z00_1636 = 
MAKE_PAIR(BgL_arg4348z00_1632, BgL_arg4357z00_1637); } 
BgL_list4352z00_1635 = 
MAKE_PAIR(BgL_arg4347z00_1631, BgL_arg4354z00_1636); } 
BgL_arg4343z00_1629 = 
BGl_symbolzd2appendzd2zz__r4_symbols_6_4z00(BgL_list4352z00_1635); } } 
{ /* ./Expand/object.scm 771 */
obj_t BgL_arg4366z00_1639;
BgL_arg4366z00_1639 = 
MAKE_PAIR(BgL_valuez00_51, BNIL); 
BgL_arg4344z00_1630 = 
MAKE_PAIR(BgL_varz00_52, BgL_arg4366z00_1639); } 
BgL_arg4340z00_1628 = 
MAKE_PAIR(BgL_arg4343z00_1629, BgL_arg4344z00_1630); } 
BgL_arg4337z00_1627 = 
PROCEDURE_ENTRY(BgL_ez00_55)(BgL_ez00_55, BgL_arg4340z00_1628, BgL_ez00_55, BEOA); } 
return 
BGl_objectzd2epairifyzd2zzexpand_objectz00(BgL_arg4337z00_1627, BgL_valuez00_51);} } } 
}



/* object-epairify */
obj_t BGl_objectzd2epairifyzd2zzexpand_objectz00(obj_t BgL_objz00_57, obj_t BgL_epairz00_58)
{ AN_OBJECT;
{ /* ./Expand/object.scm 780 */
BGl_objectzd2epairifyzd2zzexpand_objectz00:
{ /* ./Expand/object.scm 781 */
bool_t BgL_test4370z00_1640;
BgL_test4370z00_1640 = 
EXTENDED_PAIRP(BgL_epairz00_58); 
if(BgL_test4370z00_1640)
{ /* ./Expand/object.scm 782 */
bool_t BgL_test4371z00_1641;
BgL_test4371z00_1641 = 
PAIRP(BgL_objz00_57); 
if(BgL_test4371z00_1641)
{ /* ./Expand/object.scm 783 */
obj_t BgL_arg4373z00_1642;obj_t BgL_arg4374z00_1643;obj_t BgL_arg4375z00_1644;
BgL_arg4373z00_1642 = 
CAR(BgL_objz00_57); 
BgL_arg4374z00_1643 = 
CDR(BgL_objz00_57); 
BgL_arg4375z00_1644 = 
CER(BgL_epairz00_58); 
{ /* ./Expand/object.scm 783 */
obj_t BgL_res4591z00_2359;
BgL_res4591z00_2359 = 
MAKE_EXTENDED_PAIR(BgL_arg4373z00_1642, BgL_arg4374z00_1643, BgL_arg4375z00_1644); 
return BgL_res4591z00_2359;} }  else 
{ /* ./Expand/object.scm 784 */
obj_t BgL_arg4381z00_1645;
{ /* ./Expand/object.scm 784 */
obj_t BgL_arg4384z00_1646;obj_t BgL_arg4385z00_1647;
BgL_arg4384z00_1646 = 
CNST_TABLE_REF(((long)18)); 
BgL_arg4385z00_1647 = 
MAKE_PAIR(BgL_objz00_57, BNIL); 
BgL_arg4381z00_1645 = 
MAKE_PAIR(BgL_arg4384z00_1646, BgL_arg4385z00_1647); } 
{ 
obj_t BgL_objz00_4158;
BgL_objz00_4158 = BgL_arg4381z00_1645; 
BgL_objz00_57 = BgL_objz00_4158; 
goto BGl_objectzd2epairifyzd2zzexpand_objectz00;} } }  else 
{ /* ./Expand/object.scm 781 */
return BgL_objz00_57;} } } 
}



/* find-slot-offset */
obj_t BGl_findzd2slotzd2offsetz00zzexpand_objectz00(obj_t BgL_slotsz00_59, obj_t BgL_namez00_60, obj_t BgL_formz00_61, obj_t BgL_sexpz00_62)
{ AN_OBJECT;
{ /* ./Expand/object.scm 790 */
{ 
obj_t BgL_slotsz00_1648;long BgL_iz00_1649;
BgL_slotsz00_1648 = BgL_slotsz00_59; 
BgL_iz00_1649 = ((long)0); 
BgL_loopz00_1650:
{ /* ./Expand/object.scm 794 */
bool_t BgL_test4391z00_1651;
BgL_test4391z00_1651 = 
NULLP(BgL_slotsz00_1648); 
if(BgL_test4391z00_1651)
{ /* ./Expand/object.scm 794 */
{ /* ./Expand/object.scm 796 */
obj_t BgL_arg4393z00_1652;
{ /* ./Expand/object.scm 796 */
obj_t BgL_arg4398z00_1655;
BgL_arg4398z00_1655 = 
SYMBOL_TO_STRING(BgL_namez00_60); 
{ /* ./Expand/object.scm 796 */
obj_t BgL_list4401z00_1657;
{ /* ./Expand/object.scm 796 */
obj_t BgL_arg4403z00_1658;
{ /* ./Expand/object.scm 796 */
obj_t BgL_arg4406z00_1659;
{ /* ./Expand/object.scm 796 */
obj_t BgL_arg4409z00_1660;
{ /* ./Expand/object.scm 796 */
obj_t BgL_arg4412z00_1661;
BgL_arg4412z00_1661 = 
MAKE_PAIR(BGl_string4902z00zzexpand_objectz00, BNIL); 
BgL_arg4409z00_1660 = 
MAKE_PAIR(BgL_arg4398z00_1655, BgL_arg4412z00_1661); } 
BgL_arg4406z00_1659 = 
MAKE_PAIR(BGl_string4921z00zzexpand_objectz00, BgL_arg4409z00_1660); } 
BgL_arg4403z00_1658 = 
MAKE_PAIR(BgL_formz00_61, BgL_arg4406z00_1659); } 
BgL_list4401z00_1657 = 
MAKE_PAIR(BGl_string4920z00zzexpand_objectz00, BgL_arg4403z00_1658); } 
BgL_arg4393z00_1652 = 
BGl_stringzd2appendzd2zz__r4_strings_6_7z00(BgL_list4401z00_1657); } } 
FAILURE(BFALSE,BgL_arg4393z00_1652,BgL_sexpz00_62);} }  else 
{ /* ./Expand/object.scm 800 */
bool_t BgL_test4416z00_1662;
{ /* ./Expand/object.scm 800 */
obj_t BgL_auxz00_4169;
{ /* ./Expand/object.scm 800 */
BgL_slotz00_bglt BgL_obj1808z00_2366;
{ /* ./Expand/object.scm 800 */
obj_t BgL_auxz00_4170;
BgL_auxz00_4170 = 
CAR(BgL_slotsz00_1648); 
BgL_obj1808z00_2366 = 
(BgL_slotz00_bglt)(BgL_auxz00_4170); } 
BgL_auxz00_4169 = 
(((BgL_slotz00_bglt)CREF(BgL_obj1808z00_2366))->BgL_idz00); } 
BgL_test4416z00_1662 = 
(BgL_auxz00_4169==BgL_namez00_60); } 
if(BgL_test4416z00_1662)
{ /* ./Expand/object.scm 800 */
return 
BINT(BgL_iz00_1649);}  else 
{ /* ./Expand/object.scm 800 */
{ /* ./Expand/object.scm 803 */
obj_t BgL_arg4418z00_1663;long BgL_arg4419z00_1664;
BgL_arg4418z00_1663 = 
CDR(BgL_slotsz00_1648); 
BgL_arg4419z00_1664 = 
(BgL_iz00_1649+((long)1)); 
{ 
long BgL_iz00_4180;obj_t BgL_slotsz00_4179;
BgL_slotsz00_4179 = BgL_arg4418z00_1663; 
BgL_iz00_4180 = BgL_arg4419z00_1664; 
BgL_iz00_1649 = BgL_iz00_4180; 
BgL_slotsz00_1648 = BgL_slotsz00_4179; 
goto BgL_loopz00_1650;} } } } } } } 
}



/* method-init */
obj_t BGl_methodzd2initzd2zzexpand_objectz00()
{ AN_OBJECT;
{ /* ./Expand/object.scm 15 */
return BUNSPEC;} 
}



/* imported-modules-init */
obj_t BGl_importedzd2moduleszd2initz00zzexpand_objectz00()
{ AN_OBJECT;
{ /* ./Expand/object.scm 15 */
BGl_modulezd2initializa7ationz75zztools_argsz00(((long)42726), "expand_object"); 
BGl_modulezd2initializa7ationz75zztools_prognz00(((long)55569), "expand_object"); 
BGl_modulezd2initializa7ationz75zztools_miscz00(((long)64117), "expand_object"); 
BGl_modulezd2initializa7ationz75zztools_locationz00(((long)32118), "expand_object"); 
BGl_modulezd2initializa7ationz75zztype_typez00(((long)19090), "expand_object"); 
BGl_modulezd2initializa7ationz75zztype_envz00(((long)25186), "expand_object"); 
BGl_modulezd2initializa7ationz75zzexpand_epsz00(((long)17978), "expand_object"); 
BGl_modulezd2initializa7ationz75zzengine_paramz00(((long)14260), "expand_object"); 
BGl_modulezd2initializa7ationz75zzast_varz00(((long)44246), "expand_object"); 
BGl_modulezd2initializa7ationz75zzast_identz00(((long)51504), "expand_object"); 
BGl_modulezd2initializa7ationz75zzast_privatez00(((long)8704), "expand_object"); 
BGl_modulezd2initializa7ationz75zzobject_classz00(((long)30791), "expand_object"); 
return 
BGl_modulezd2initializa7ationz75zzobject_slotsz00(((long)44183), "expand_object");} 
}

