/*===========================================================================*/
/*   (Object/creator.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 Object/creator.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;

typedef struct BgL_ccompz00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_idz00;
   obj_t BgL_producerz00;
   obj_t BgL_consumerz00;
   obj_t BgL_finaliza7erza7;
} *BgL_ccompz00_bglt;


BGL_IMPORT obj_t BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
static obj_t BGl_methodzd2initzd2zzobject_creatorz00();
static obj_t BGl_importzd2inlinezd2widezd2classzd2creatorsz00zzobject_creatorz00(BgL_tclassz00_bglt, obj_t, obj_t);
static obj_t BGl_genzd2classzd2makez12z12zzobject_creatorz00(obj_t, obj_t, obj_t, BgL_tclassz00_bglt, obj_t, obj_t);
BGL_IMPORT obj_t open_input_string(obj_t);
static obj_t BGl_genzd2classzd2fillz12z12zzobject_creatorz00(obj_t, obj_t, BgL_tclassz00_bglt, obj_t, obj_t);
extern obj_t BGl_producezd2modulezd2clausez12z12zzmodule_modulez00(obj_t);
extern obj_t BGl_makezd2pragmazd2directzd2setz12zc0zzobject_toolsz00(BgL_typez00_bglt, BgL_slotz00_bglt, obj_t, obj_t);
BGL_IMPORT obj_t BGl_consza2za2zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
BGL_IMPORT obj_t BGl_readz00zz__readerz00(obj_t);
static obj_t BGl_importzd2inlinezd2plainzd2classzd2creatorsz00zzobject_creatorz00(BgL_tclassz00_bglt, obj_t, obj_t);
extern obj_t BGl_epairifyza2za2zztools_miscz00(obj_t, obj_t);
static obj_t BGl_genzd2widezd2classzd2makez12zc0zzobject_creatorz00(obj_t, BgL_tclassz00_bglt, obj_t, obj_t);
static obj_t BGl_genzd2inlinezd2widezd2classzd2creatorsz00zzobject_creatorz00(BgL_tclassz00_bglt, obj_t, obj_t);
extern obj_t BGl_za2targetzd2languageza2zd2zzengine_paramz00;
BGL_IMPORT obj_t BGl_gensymz00zz__r4_symbols_6_4z00;
extern obj_t BGl_fastzd2idzd2ofzd2idzd2zzast_identz00(obj_t, obj_t);
extern obj_t BGl_makezd2pragmazd2indexedzd2initzd2setz12z12zzobject_toolsz00(BgL_typez00_bglt, BgL_slotz00_bglt, obj_t, obj_t);
extern obj_t BGl_findzd2locationzd2zztools_locationz00(obj_t);
extern bool_t BGl_widezd2classzf3z21zzobject_classz00(obj_t);
BGL_IMPORT obj_t BGl_reversez12z12zz__r4_pairs_and_lists_6_3z00(obj_t);
extern obj_t BGl_importzd2parserzd2zzmodule_impusez00(obj_t, obj_t, obj_t);
static obj_t BGl_cnstzd2initzd2zzobject_creatorz00();
static obj_t BGl_genzd2onezd2constructorz00zzobject_creatorz00(obj_t, BgL_jclassz00_bglt, obj_t);
BGL_EXPORTED_DECL obj_t BGl_genzd2widezd2classzd2creatorszd2zzobject_creatorz00(BgL_tclassz00_bglt, obj_t, obj_t);
static obj_t BGl_genzd2noinlinezd2plainzd2classzd2creatorsz00zzobject_creatorz00(BgL_tclassz00_bglt, obj_t, obj_t);
BGL_IMPORT obj_t BGl_stringzd2appendzd2zz__r4_strings_6_7z00(obj_t);
static obj_t BGl_importedzd2moduleszd2initz00zzobject_creatorz00();
static obj_t BGl__genzd2plainzd2classzd2creatorszd2zzobject_creatorz00(obj_t, obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_importzd2widezd2classzd2creatorszd2zzobject_creatorz00(BgL_tclassz00_bglt, obj_t, obj_t);
extern obj_t BGl_makezd2typedzd2identz00zzast_identz00(obj_t, obj_t);
extern obj_t BGl_stringzd2sanszd2z42z42zztype_toolsz00(obj_t);
static obj_t BGl__importzd2javazd2classzd2creatorzd2zzobject_creatorz00(obj_t, obj_t, obj_t, obj_t);
extern obj_t BGl_sawzd2widezd2classzd2idzd2zzobject_classz00(obj_t);
extern obj_t BGl_findzd2classzd2constructorsz00zzobject_classz00(BgL_tclassz00_bglt);
static obj_t BGl_genzd2noinlinezd2widezd2classzd2creatorsz00zzobject_creatorz00(BgL_tclassz00_bglt, obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_modulezd2initializa7ationz75zzobject_creatorz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zztools_tracez00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zztools_errorz00(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_modulezd2initializa7ationz75zztype_toolsz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zztype_cachez00(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_structz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzobject_slotsz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzobject_toolsz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzmodule_modulez00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzmodule_impusez00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzengine_paramz00(long, char *);
BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__readerz00(long, char *);
BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__r4_equivalence_6_2z00(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 *);
static bool_t BGl_inlinezd2creatorszf3z21zzobject_creatorz00();
static obj_t BGl_genzd2classzd2allocatez12z12zzobject_creatorz00(obj_t, obj_t, BgL_globalz00_bglt, obj_t, obj_t);
extern obj_t BGl_makezd2classzd2makezd2formalszd2zzobject_slotsz00(obj_t);
extern obj_t BGl_makezd2classzd2makezd2typedzd2formalsz00zzobject_slotsz00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_importzd2javazd2classzd2creatorzd2zzobject_creatorz00(BgL_jclassz00_bglt, obj_t, obj_t);
static obj_t BGl__importzd2widezd2classzd2creatorszd2zzobject_creatorz00(obj_t, obj_t, obj_t, obj_t);
BGL_IMPORT obj_t BGl_memqz00zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
BGL_IMPORT obj_t BGl_memvz00zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
extern bool_t BGl_slotzd2virtualzf3z21zzobject_slotsz00(BgL_slotz00_bglt);
extern obj_t BGl_makezd2pragmazd2indexedzd2setz12zf2wideningz32zzobject_toolsz00(BgL_typez00_bglt, BgL_slotz00_bglt, obj_t, obj_t, obj_t, obj_t);
extern obj_t BGl_za2optimza2z00zzengine_paramz00;
extern obj_t BGl_za2heapzd2debugza2zd2zzengine_paramz00;
static obj_t BGl_genzd2javazd2classzd2creatorzd2zzobject_creatorz00(BgL_jclassz00_bglt, obj_t);
extern obj_t BGl_za2sawza2z00zzengine_paramz00;
extern obj_t BGl_za2passza2z00zzengine_paramz00;
static obj_t BGl__genzd2javazd2classzd2constructorszd2zzobject_creatorz00(obj_t, obj_t, obj_t, obj_t);
static obj_t BGl__importzd2plainzd2classzd2creatorszd2zzobject_creatorz00(obj_t, obj_t, obj_t, obj_t);
static obj_t BGl_importzd2noinlinezd2plainzd2classzd2creatorsz00zzobject_creatorz00(BgL_tclassz00_bglt, obj_t, obj_t);
BGL_IMPORT obj_t BGl_symbolzd2appendzd2zz__r4_symbols_6_4z00(obj_t);
static obj_t BGl__genzd2widezd2classzd2creatorszd2zzobject_creatorz00(obj_t, obj_t, obj_t, obj_t);
BGL_IMPORT obj_t bgl_append2(obj_t, obj_t);
extern obj_t BGl_makezd2privatezd2sexpz00zzast_privatez00(obj_t, obj_t, obj_t);
static obj_t BGl_requirezd2initializa7ationz75zzobject_creatorz00 = BUNSPEC;
static obj_t BGl_importzd2noinlinezd2widezd2classzd2creatorsz00zzobject_creatorz00(BgL_tclassz00_bglt, obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_importzd2plainzd2classzd2creatorszd2zzobject_creatorz00(BgL_tclassz00_bglt, obj_t, obj_t);
extern obj_t BGl_za2profilezd2modeza2zd2zzengine_paramz00;
BGL_IMPORT bool_t BGl_eqvzf3zf3zz__r4_equivalence_6_2z00(obj_t, obj_t);
static obj_t BGl_genzd2inlinezd2plainzd2classzd2creatorsz00zzobject_creatorz00(BgL_tclassz00_bglt, obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_genzd2javazd2classzd2constructorszd2zzobject_creatorz00(BgL_jclassz00_bglt, obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_genzd2plainzd2classzd2creatorszd2zzobject_creatorz00(BgL_tclassz00_bglt, obj_t, obj_t);
static obj_t BGl_libraryzd2moduleszd2initz00zzobject_creatorz00();
static obj_t BGl_makezd2classzd2slotzd2makez12zc0zzobject_creatorz00(BgL_tclassz00_bglt, obj_t, obj_t, obj_t, obj_t, obj_t);
extern obj_t BGl_markzd2symbolzd2nonzd2userz12zc0zzast_identz00(obj_t);
static obj_t __cnst[ 42 ] ;


DEFINE_EXPORT_PROCEDURE( BGl_importzd2javazd2classzd2creatorzd2envz00zzobject_creatorz00, BgL_bgl__importza7d2javaza7d2classza7d2creatorza7d2za7za7object_creatorza7004116za7, BGl__importzd2javazd2classzd2creatorzd2zzobject_creatorz00, 0L, 3 );
DEFINE_EXPORT_PROCEDURE( BGl_importzd2plainzd2classzd2creatorszd2envz00zzobject_creatorz00, BgL_bgl__importza7d2plainza7d2classza7d2creatorsza7d2za7za7object_creatorza7004117za7, BGl__importzd2plainzd2classzd2creatorszd2zzobject_creatorz00, 0L, 3 );
DEFINE_EXPORT_PROCEDURE( BGl_genzd2javazd2classzd2constructorszd2envz00zzobject_creatorz00, BgL_bgl__genza7d2javaza7d2classza7d2constructorsza7d2za7za7object_creatorza7004118za7, BGl__genzd2javazd2classzd2constructorszd2zzobject_creatorz00, 0L, 3 );
DEFINE_EXPORT_PROCEDURE( BGl_genzd2widezd2classzd2creatorszd2envz00zzobject_creatorz00, BgL_bgl__genza7d2wideza7d2classza7d2creatorsza7d2za7za7object_creatorza7004119za7, BGl__genzd2widezd2classzd2creatorszd2zzobject_creatorz00, 0L, 3 );
DEFINE_EXPORT_PROCEDURE( BGl_genzd2plainzd2classzd2creatorszd2envz00zzobject_creatorz00, BgL_bgl__genza7d2plainza7d2classza7d2creatorsza7d2za7za7object_creatorza7004120za7, BGl__genzd2plainzd2classzd2creatorszd2zzobject_creatorz00, 0L, 3 );
DEFINE_EXPORT_PROCEDURE( BGl_importzd2widezd2classzd2creatorszd2envz00zzobject_creatorz00, BgL_bgl__importza7d2wideza7d2classza7d2creatorsza7d2za7za7object_creatorza7004121za7, BGl__importzd2widezd2classzd2creatorszd2zzobject_creatorz00, 0L, 3 );
DEFINE_STRING( BGl_string4088z00zzobject_creatorz00, BgL_bgl_string4088za700za7za7object_creatorza7004122z00, "cast aux object-widening-set! __object class-num @ object-class-num-set! +fx done quote =fx if labels loop allocator setfield object-mark-producer! pragma c free-pragma begin ::long i (jvm .net) %% let define obj widening- o inline static new define-inline allocate- widening - make make- ! fill- (make-heap make-add-heap) ", 323 );
DEFINE_STRING( BGl_string4087z00zzobject_creatorz00, BgL_bgl_string4087za700za7za7object_creatorza7004123z00, ")BREF( GC_MALLOC ( sizeof(", 26 );
DEFINE_STRING( BGl_string4086z00zzobject_creatorz00, BgL_bgl_string4086za700za7za7object_creatorza7004124z00, ") )))", 5 );
DEFINE_STRING( BGl_string4085z00zzobject_creatorz00, BgL_bgl_string4085za700za7za7object_creatorza7004125z00, "dynamically indexed slots are not supported yet in -gbdb2 mode", 62 );
DEFINE_STRING( BGl_string4084z00zzobject_creatorz00, BgL_bgl_string4084za700za7za7object_creatorza7004126z00, "make-class-slot-makes!", 22 );
DEFINE_STRING( BGl_string4083z00zzobject_creatorz00, BgL_bgl_string4083za700za7za7object_creatorza7004127z00, "header", 6 );
DEFINE_STRING( BGl_string4082z00zzobject_creatorz00, BgL_bgl_string4082za700za7za7object_creatorza7004128z00, "BREF( (obj_t)($1) )->header = MAKE_HEADER( OPAQUE_TYPE, 0 );", 60 );
DEFINE_STRING( BGl_string4081z00zzobject_creatorz00, BgL_bgl_string4081za700za7za7object_creatorza7004129z00, "((", 2 );
DEFINE_STRING( BGl_string4080z00zzobject_creatorz00, BgL_bgl_string4080za700za7za7object_creatorza7004130z00, ")BREF( GC_MALLOC (sizeof(", 25 );
DEFINE_STRING( BGl_string4079z00zzobject_creatorz00, BgL_bgl_string4079za700za7za7object_creatorza7004131z00, "))))", 4 );



/* module-initialization */
BGL_EXPORTED_DEF obj_t BGl_modulezd2initializa7ationz75zzobject_creatorz00(long BgL_checksumz00_1745, char * BgL_fromz00_1746)
{ AN_OBJECT;
{ 
if(
CBOOL(BGl_requirezd2initializa7ationz75zzobject_creatorz00))
{ 
BGl_requirezd2initializa7ationz75zzobject_creatorz00 = 
BBOOL(((bool_t)0)); 
BGl_libraryzd2moduleszd2initz00zzobject_creatorz00(); 
BGl_cnstzd2initzd2zzobject_creatorz00(); 
BGl_importedzd2moduleszd2initz00zzobject_creatorz00(); 
return BUNSPEC;}  else 
{ 
return BUNSPEC;} } 
}



/* library-modules-init */
obj_t BGl_libraryzd2moduleszd2initz00zzobject_creatorz00()
{ AN_OBJECT;
{ /* ./Object/creator.scm 21 */
BGl_modulezd2initializa7ationz75zz__r4_pairs_and_lists_6_3z00(((long)0), "object_creator"); 
BGl_modulezd2initializa7ationz75zz__readerz00(((long)0), "object_creator"); 
BGl_modulezd2initializa7ationz75zz__r4_symbols_6_4z00(((long)0), "object_creator"); 
BGl_modulezd2initializa7ationz75zz__r4_strings_6_7z00(((long)0), "object_creator"); 
BGl_modulezd2initializa7ationz75zz__r4_equivalence_6_2z00(((long)0), "object_creator"); 
return BUNSPEC;} 
}



/* cnst-init */
obj_t BGl_cnstzd2initzd2zzobject_creatorz00()
{ AN_OBJECT;
{ /* ./Object/creator.scm 21 */
{ /* ./Object/creator.scm 21 */
obj_t BgL_cportz00_1738;
BgL_cportz00_1738 = 
open_input_string(BGl_string4088z00zzobject_creatorz00); 
{ 
long BgL_iz00_1739;
BgL_iz00_1739 = ((long)41); 
BgL_loopz00_1740:
{ /* ./Object/creator.scm 21 */
bool_t BgL_test4090z00_1741;
BgL_test4090z00_1741 = 
(BgL_iz00_1739==((long)-1)); 
if(BgL_test4090z00_1741)
{ /* ./Object/creator.scm 21 */
return BUNSPEC;}  else 
{ /* ./Object/creator.scm 21 */
{ /* ./Object/creator.scm 21 */
obj_t BgL_arg4092z00_1742;
{ /* ./Object/creator.scm 21 */
obj_t BgL_list4095z00_1743;
BgL_list4095z00_1743 = 
MAKE_PAIR(BgL_cportz00_1738, BNIL); 
BgL_arg4092z00_1742 = 
BGl_readz00zz__readerz00(BgL_list4095z00_1743); } 
{ /* ./Object/creator.scm 21 */
int BgL_auxz00_1763;
BgL_auxz00_1763 = 
(int)(BgL_iz00_1739); 
CNST_TABLE_SET(BgL_auxz00_1763, BgL_arg4092z00_1742); } } 
{ /* ./Object/creator.scm 21 */
int BgL_auxz00_1744;
{ /* ./Object/creator.scm 21 */
long BgL_auxz00_1766;
BgL_auxz00_1766 = 
(BgL_iz00_1739-((long)1)); 
BgL_auxz00_1744 = 
(int)(BgL_auxz00_1766); } 
{ 
long BgL_iz00_1769;
BgL_iz00_1769 = 
(long)(BgL_auxz00_1744); 
BgL_iz00_1739 = BgL_iz00_1769; 
goto BgL_loopz00_1740;} } } } } } } 
}



/* inline-creators? */
bool_t BGl_inlinezd2creatorszf3z21zzobject_creatorz00()
{ AN_OBJECT;
{ /* ./Object/creator.scm 53 */
{ /* ./Object/creator.scm 54 */
bool_t BgL__andtest_1886z00_435;
{ /* ./Object/creator.scm 54 */
long BgL_n1z00_1498;
BgL_n1z00_1498 = 
(long)CINT(BGl_za2optimza2z00zzengine_paramz00); 
BgL__andtest_1886z00_435 = 
(BgL_n1z00_1498>=((long)2)); } 
if(BgL__andtest_1886z00_435)
{ /* ./Object/creator.scm 55 */
bool_t BgL__andtest_1887z00_436;
{ /* ./Object/creator.scm 55 */
bool_t BgL__ortest_1888z00_438;
{ /* ./Object/creator.scm 55 */
bool_t BgL_test1940z00_439;
{ /* ./Object/creator.scm 55 */
bool_t BgL_res3930z00_1504;
{ /* ./Object/creator.scm 55 */
obj_t BgL_objz00_1500;
BgL_objz00_1500 = BGl_za2profilezd2modeza2zd2zzengine_paramz00; 
if(
INTEGERP(BgL_objz00_1500))
{ /* ./Object/creator.scm 55 */
BgL_res3930z00_1504 = ((bool_t)1); }  else 
{ /* ./Object/creator.scm 55 */
BgL_res3930z00_1504 = 
REALP(BgL_objz00_1500); } } 
BgL_test1940z00_439 = BgL_res3930z00_1504; } 
if(BgL_test1940z00_439)
{ /* ./Object/creator.scm 55 */
BgL__ortest_1888z00_438 = ((bool_t)0); }  else 
{ /* ./Object/creator.scm 55 */
BgL__ortest_1888z00_438 = ((bool_t)1); } } 
if(BgL__ortest_1888z00_438)
{ /* ./Object/creator.scm 55 */
BgL__andtest_1887z00_436 = BgL__ortest_1888z00_438; }  else 
{ /* ./Object/creator.scm 56 */
long BgL_n1z00_1505;
BgL_n1z00_1505 = 
(long)CINT(BGl_za2profilezd2modeza2zd2zzengine_paramz00); 
BgL__andtest_1887z00_436 = 
(BgL_n1z00_1505<((long)1)); } } 
if(BgL__andtest_1887z00_436)
{ /* ./Object/creator.scm 57 */
bool_t BgL_test1937z00_437;
{ /* ./Object/creator.scm 57 */
obj_t BgL_auxz00_1782;
BgL_auxz00_1782 = 
BGl_memqz00zz__r4_pairs_and_lists_6_3z00(BGl_za2passza2z00zzengine_paramz00, 
CNST_TABLE_REF(((long)0))); 
BgL_test1937z00_437 = 
CBOOL(BgL_auxz00_1782); } 
if(BgL_test1937z00_437)
{ /* ./Object/creator.scm 57 */
return ((bool_t)0);}  else 
{ /* ./Object/creator.scm 57 */
return ((bool_t)1);} }  else 
{ /* ./Object/creator.scm 55 */
return ((bool_t)0);} }  else 
{ /* ./Object/creator.scm 54 */
return ((bool_t)0);} } } 
}



/* gen-plain-class-creators */
BGL_EXPORTED_DEF obj_t BGl_genzd2plainzd2classzd2creatorszd2zzobject_creatorz00(BgL_tclassz00_bglt BgL_classz00_1, obj_t BgL_srczd2defzd2_2, obj_t BgL_importz00_3)
{ AN_OBJECT;
{ /* ./Object/creator.scm 62 */
{ /* ./Object/creator.scm 63 */
obj_t BgL_arg1945z00_1507;obj_t BgL_arg1946z00_1508;
BgL_arg1945z00_1507 = 
BGl_genzd2noinlinezd2plainzd2classzd2creatorsz00zzobject_creatorz00(BgL_classz00_1, BgL_srczd2defzd2_2, BgL_importz00_3); 
BgL_arg1946z00_1508 = 
BGl_genzd2inlinezd2plainzd2classzd2creatorsz00zzobject_creatorz00(BgL_classz00_1, BgL_srczd2defzd2_2, BgL_importz00_3); 
return 
bgl_append2(BgL_arg1945z00_1507, BgL_arg1946z00_1508);} } 
}



/* _gen-plain-class-creators */
obj_t BGl__genzd2plainzd2classzd2creatorszd2zzobject_creatorz00(obj_t BgL_envz00_1712, obj_t BgL_classz00_1713, obj_t BgL_srczd2defzd2_1714, obj_t BgL_importz00_1715)
{ AN_OBJECT;
{ /* ./Object/creator.scm 62 */
return 
BGl_genzd2plainzd2classzd2creatorszd2zzobject_creatorz00(
(BgL_tclassz00_bglt)(BgL_classz00_1713), BgL_srczd2defzd2_1714, BgL_importz00_1715);} 
}



/* gen-inline-plain-class-creators */
obj_t BGl_genzd2inlinezd2plainzd2classzd2creatorsz00zzobject_creatorz00(BgL_tclassz00_bglt BgL_classz00_4, obj_t BgL_srczd2defzd2_5, obj_t BgL_importz00_6)
{ AN_OBJECT;
{ /* ./Object/creator.scm 69 */
{ /* ./Object/creator.scm 71 */
bool_t BgL_test1950z00_443;
{ 
obj_t BgL_auxz00_1792;
{ /* ./Object/creator.scm 71 */
BgL_objectz00_bglt BgL_auxz00_1793;
BgL_auxz00_1793 = 
(BgL_objectz00_bglt)(BgL_classz00_4); 
BgL_auxz00_1792 = 
BGL_OBJECT_WIDENING(BgL_auxz00_1793); } 
BgL_test1950z00_443 = 
(((BgL_tclassz00_bglt)CREF(BgL_auxz00_1792))->BgL_abstractzf3zf3); } 
if(BgL_test1950z00_443)
{ /* ./Object/creator.scm 71 */
return BNIL;}  else 
{ /* ./Object/creator.scm 73 */
obj_t BgL_idz00_444;
{ /* ./Object/creator.scm 73 */
BgL_typez00_bglt BgL_obj1003z00_1510;
BgL_obj1003z00_1510 = 
(BgL_typez00_bglt)(BgL_classz00_4); 
BgL_idz00_444 = 
(((BgL_typez00_bglt)CREF(BgL_obj1003z00_1510))->BgL_idz00); } 
{ /* ./Object/creator.scm 73 */
BgL_globalz00_bglt BgL_holderz00_445;
{ 
obj_t BgL_auxz00_1800;
{ /* ./Object/creator.scm 74 */
BgL_objectz00_bglt BgL_auxz00_1801;
BgL_auxz00_1801 = 
(BgL_objectz00_bglt)(BgL_classz00_4); 
BgL_auxz00_1800 = 
BGL_OBJECT_WIDENING(BgL_auxz00_1801); } 
BgL_holderz00_445 = 
(((BgL_tclassz00_bglt)CREF(BgL_auxz00_1800))->BgL_holderz00); } 
{ /* ./Object/creator.scm 74 */
obj_t BgL_fillzd2idzd2_446;
{ /* ./Object/creator.scm 75 */
obj_t BgL_list1964z00_451;
{ /* ./Object/creator.scm 75 */
obj_t BgL_arg1966z00_452;obj_t BgL_arg1968z00_453;
BgL_arg1966z00_452 = 
CNST_TABLE_REF(((long)1)); 
{ /* ./Object/creator.scm 75 */
obj_t BgL_arg1971z00_454;
{ /* ./Object/creator.scm 75 */
obj_t BgL_auxz00_1806;
BgL_auxz00_1806 = 
CNST_TABLE_REF(((long)2)); 
BgL_arg1971z00_454 = 
MAKE_PAIR(BgL_auxz00_1806, BNIL); } 
BgL_arg1968z00_453 = 
MAKE_PAIR(BgL_idz00_444, BgL_arg1971z00_454); } 
BgL_list1964z00_451 = 
MAKE_PAIR(BgL_arg1966z00_452, BgL_arg1968z00_453); } 
BgL_fillzd2idzd2_446 = 
BGl_symbolzd2appendzd2zz__r4_symbols_6_4z00(BgL_list1964z00_451); } 
{ /* ./Object/creator.scm 75 */

{ /* ./Object/creator.scm 76 */
obj_t BgL_arg1952z00_447;obj_t BgL_arg1953z00_448;
BgL_arg1952z00_447 = 
BGl_genzd2classzd2fillz12z12zzobject_creatorz00(BgL_fillzd2idzd2_446, BgL_idz00_444, BgL_classz00_4, BgL_srczd2defzd2_5, BgL_importz00_6); 
BgL_arg1953z00_448 = 
BGl_genzd2classzd2allocatez12z12zzobject_creatorz00(BgL_idz00_444, 
(obj_t)(BgL_classz00_4), BgL_holderz00_445, BgL_srczd2defzd2_5, BgL_importz00_6); 
{ /* ./Object/creator.scm 76 */
obj_t BgL_list1955z00_449;
{ /* ./Object/creator.scm 76 */
obj_t BgL_arg1958z00_450;
BgL_arg1958z00_450 = 
MAKE_PAIR(BgL_arg1953z00_448, BNIL); 
BgL_list1955z00_449 = 
MAKE_PAIR(BgL_arg1952z00_447, BgL_arg1958z00_450); } 
return BgL_list1955z00_449;} } } } } } } } 
}



/* gen-noinline-plain-class-creators */
obj_t BGl_genzd2noinlinezd2plainzd2classzd2creatorsz00zzobject_creatorz00(BgL_tclassz00_bglt BgL_classz00_7, obj_t BgL_srczd2defzd2_8, obj_t BgL_importz00_9)
{ AN_OBJECT;
{ /* ./Object/creator.scm 82 */
{ /* ./Object/creator.scm 84 */
bool_t BgL_test1977z00_456;
{ 
obj_t BgL_auxz00_1817;
{ /* ./Object/creator.scm 84 */
BgL_objectz00_bglt BgL_auxz00_1818;
BgL_auxz00_1818 = 
(BgL_objectz00_bglt)(BgL_classz00_7); 
BgL_auxz00_1817 = 
BGL_OBJECT_WIDENING(BgL_auxz00_1818); } 
BgL_test1977z00_456 = 
(((BgL_tclassz00_bglt)CREF(BgL_auxz00_1817))->BgL_abstractzf3zf3); } 
if(BgL_test1977z00_456)
{ /* ./Object/creator.scm 84 */
return BNIL;}  else 
{ /* ./Object/creator.scm 86 */
obj_t BgL_idz00_457;
{ /* ./Object/creator.scm 86 */
BgL_typez00_bglt BgL_obj1003z00_1515;
BgL_obj1003z00_1515 = 
(BgL_typez00_bglt)(BgL_classz00_7); 
BgL_idz00_457 = 
(((BgL_typez00_bglt)CREF(BgL_obj1003z00_1515))->BgL_idz00); } 
{ /* ./Object/creator.scm 86 */
obj_t BgL_mkzd2idzd2_458;
{ /* ./Object/creator.scm 87 */
obj_t BgL_list1987z00_461;
{ /* ./Object/creator.scm 87 */
obj_t BgL_arg1989z00_462;obj_t BgL_arg1990z00_463;
BgL_arg1989z00_462 = 
CNST_TABLE_REF(((long)3)); 
BgL_arg1990z00_463 = 
MAKE_PAIR(BgL_idz00_457, BNIL); 
BgL_list1987z00_461 = 
MAKE_PAIR(BgL_arg1989z00_462, BgL_arg1990z00_463); } 
BgL_mkzd2idzd2_458 = 
BGl_symbolzd2appendzd2zz__r4_symbols_6_4z00(BgL_list1987z00_461); } 
{ /* ./Object/creator.scm 87 */

{ /* ./Object/creator.scm 88 */
obj_t BgL_arg1981z00_459;
BgL_arg1981z00_459 = 
BGl_genzd2classzd2makez12z12zzobject_creatorz00(
CNST_TABLE_REF(((long)4)), BgL_mkzd2idzd2_458, BgL_idz00_457, BgL_classz00_7, BgL_srczd2defzd2_8, BgL_importz00_9); 
{ /* ./Object/creator.scm 88 */
obj_t BgL_list1983z00_460;
BgL_list1983z00_460 = 
MAKE_PAIR(BgL_arg1981z00_459, BNIL); 
return BgL_list1983z00_460;} } } } } } } 
}



/* gen-wide-class-creators */
BGL_EXPORTED_DEF obj_t BGl_genzd2widezd2classzd2creatorszd2zzobject_creatorz00(BgL_tclassz00_bglt BgL_classz00_10, obj_t BgL_srczd2defzd2_11, obj_t BgL_importz00_12)
{ AN_OBJECT;
{ /* ./Object/creator.scm 93 */
{ /* ./Object/creator.scm 94 */
obj_t BgL_arg1996z00_1518;obj_t BgL_arg2000z00_1519;
BgL_arg1996z00_1518 = 
BGl_genzd2noinlinezd2widezd2classzd2creatorsz00zzobject_creatorz00(BgL_classz00_10, BgL_srczd2defzd2_11, BgL_importz00_12); 
BgL_arg2000z00_1519 = 
BGl_genzd2inlinezd2widezd2classzd2creatorsz00zzobject_creatorz00(BgL_classz00_10, BgL_srczd2defzd2_11, BgL_importz00_12); 
return 
bgl_append2(BgL_arg1996z00_1518, BgL_arg2000z00_1519);} } 
}



/* _gen-wide-class-creators */
obj_t BGl__genzd2widezd2classzd2creatorszd2zzobject_creatorz00(obj_t BgL_envz00_1716, obj_t BgL_classz00_1717, obj_t BgL_srczd2defzd2_1718, obj_t BgL_importz00_1719)
{ AN_OBJECT;
{ /* ./Object/creator.scm 93 */
return 
BGl_genzd2widezd2classzd2creatorszd2zzobject_creatorz00(
(BgL_tclassz00_bglt)(BgL_classz00_1717), BgL_srczd2defzd2_1718, BgL_importz00_1719);} 
}



/* gen-noinline-wide-class-creators */
obj_t BGl_genzd2noinlinezd2widezd2classzd2creatorsz00zzobject_creatorz00(BgL_tclassz00_bglt BgL_classz00_13, obj_t BgL_srczd2defzd2_14, obj_t BgL_importz00_15)
{ AN_OBJECT;
{ /* ./Object/creator.scm 100 */
{ /* ./Object/creator.scm 102 */
bool_t BgL_test2004z00_467;
{ 
obj_t BgL_auxz00_1837;
{ /* ./Object/creator.scm 102 */
BgL_objectz00_bglt BgL_auxz00_1838;
BgL_auxz00_1838 = 
(BgL_objectz00_bglt)(BgL_classz00_13); 
BgL_auxz00_1837 = 
BGL_OBJECT_WIDENING(BgL_auxz00_1838); } 
BgL_test2004z00_467 = 
(((BgL_tclassz00_bglt)CREF(BgL_auxz00_1837))->BgL_abstractzf3zf3); } 
if(BgL_test2004z00_467)
{ /* ./Object/creator.scm 102 */
return BNIL;}  else 
{ /* ./Object/creator.scm 104 */
obj_t BgL_fillzd2idzd2_468;obj_t BgL_wideningz00_469;
{ /* ./Object/creator.scm 104 */
obj_t BgL_arg2025z00_478;obj_t BgL_arg2026z00_479;obj_t BgL_arg2027z00_480;
BgL_arg2025z00_478 = 
CNST_TABLE_REF(((long)1)); 
{ /* ./Object/creator.scm 104 */
BgL_typez00_bglt BgL_obj1003z00_1521;
BgL_obj1003z00_1521 = 
(BgL_typez00_bglt)(BgL_classz00_13); 
BgL_arg2026z00_479 = 
(((BgL_typez00_bglt)CREF(BgL_obj1003z00_1521))->BgL_idz00); } 
BgL_arg2027z00_480 = 
CNST_TABLE_REF(((long)2)); 
{ /* ./Object/creator.scm 104 */
obj_t BgL_list2029z00_481;
{ /* ./Object/creator.scm 104 */
obj_t BgL_arg2032z00_482;
{ /* ./Object/creator.scm 104 */
obj_t BgL_arg2035z00_483;
BgL_arg2035z00_483 = 
MAKE_PAIR(BgL_arg2027z00_480, BNIL); 
BgL_arg2032z00_482 = 
MAKE_PAIR(BgL_arg2026z00_479, BgL_arg2035z00_483); } 
BgL_list2029z00_481 = 
MAKE_PAIR(BgL_arg2025z00_478, BgL_arg2032z00_482); } 
BgL_fillzd2idzd2_468 = 
BGl_symbolzd2appendzd2zz__r4_symbols_6_4z00(BgL_list2029z00_481); } } 
{ /* ./Object/creator.scm 105 */
obj_t BgL_arg2040z00_484;obj_t BgL_arg2041z00_485;obj_t BgL_arg2042z00_486;
{ 
obj_t BgL_auxz00_1851;
{ /* ./Object/creator.scm 105 */
BgL_objectz00_bglt BgL_auxz00_1852;
BgL_auxz00_1852 = 
(BgL_objectz00_bglt)(BgL_classz00_13); 
BgL_auxz00_1851 = 
BGL_OBJECT_WIDENING(BgL_auxz00_1852); } 
BgL_arg2040z00_484 = 
(((BgL_tclassz00_bglt)CREF(BgL_auxz00_1851))->BgL_wideningz00); } 
BgL_arg2041z00_485 = 
CNST_TABLE_REF(((long)5)); 
{ /* ./Object/creator.scm 105 */
BgL_typez00_bglt BgL_obj1003z00_1523;
BgL_obj1003z00_1523 = 
(BgL_typez00_bglt)(BgL_classz00_13); 
BgL_arg2042z00_486 = 
(((BgL_typez00_bglt)CREF(BgL_obj1003z00_1523))->BgL_idz00); } 
{ /* ./Object/creator.scm 105 */
obj_t BgL_list2044z00_487;
{ /* ./Object/creator.scm 105 */
obj_t BgL_arg2046z00_488;
{ /* ./Object/creator.scm 105 */
obj_t BgL_arg2049z00_489;
BgL_arg2049z00_489 = 
MAKE_PAIR(BgL_arg2042z00_486, BNIL); 
BgL_arg2046z00_488 = 
MAKE_PAIR(BgL_arg2041z00_485, BgL_arg2049z00_489); } 
BgL_list2044z00_487 = 
MAKE_PAIR(BgL_arg2040z00_484, BgL_arg2046z00_488); } 
BgL_wideningz00_469 = 
BGl_symbolzd2appendzd2zz__r4_symbols_6_4z00(BgL_list2044z00_487); } } 
{ /* ./Object/creator.scm 107 */
obj_t BgL_arg2006z00_471;obj_t BgL_arg2007z00_472;
{ /* ./Object/creator.scm 107 */
obj_t BgL_arg2015z00_475;obj_t BgL_arg2016z00_476;
BgL_arg2015z00_475 = 
CNST_TABLE_REF(((long)6)); 
{ /* ./Object/creator.scm 107 */
BgL_typez00_bglt BgL_obj1003z00_1525;
BgL_obj1003z00_1525 = 
(BgL_typez00_bglt)(BgL_classz00_13); 
BgL_arg2016z00_476 = 
(((BgL_typez00_bglt)CREF(BgL_obj1003z00_1525))->BgL_idz00); } 
BgL_arg2006z00_471 = 
BGl_genzd2classzd2makez12z12zzobject_creatorz00(BgL_arg2015z00_475, BgL_wideningz00_469, BgL_arg2016z00_476, BgL_classz00_13, BgL_srczd2defzd2_14, BgL_importz00_15); } 
{ /* ./Object/creator.scm 108 */
obj_t BgL_arg2021z00_477;
{ /* ./Object/creator.scm 108 */
BgL_typez00_bglt BgL_obj1003z00_1526;
BgL_obj1003z00_1526 = 
(BgL_typez00_bglt)(BgL_classz00_13); 
BgL_arg2021z00_477 = 
(((BgL_typez00_bglt)CREF(BgL_obj1003z00_1526))->BgL_idz00); } 
BgL_arg2007z00_472 = 
BGl_genzd2widezd2classzd2makez12zc0zzobject_creatorz00(BgL_arg2021z00_477, BgL_classz00_13, BgL_srczd2defzd2_14, BgL_importz00_15); } 
{ /* ./Object/creator.scm 107 */
obj_t BgL_list2009z00_473;
{ /* ./Object/creator.scm 107 */
obj_t BgL_arg2011z00_474;
BgL_arg2011z00_474 = 
MAKE_PAIR(BgL_arg2007z00_472, BNIL); 
BgL_list2009z00_473 = 
MAKE_PAIR(BgL_arg2006z00_471, BgL_arg2011z00_474); } 
return BgL_list2009z00_473;} } } } } 
}



/* gen-inline-wide-class-creators */
obj_t BGl_genzd2inlinezd2widezd2classzd2creatorsz00zzobject_creatorz00(BgL_tclassz00_bglt BgL_classz00_16, obj_t BgL_srczd2defzd2_17, obj_t BgL_importz00_18)
{ AN_OBJECT;
{ /* ./Object/creator.scm 113 */
{ /* ./Object/creator.scm 115 */
bool_t BgL_test2056z00_491;
{ 
obj_t BgL_auxz00_1872;
{ /* ./Object/creator.scm 115 */
BgL_objectz00_bglt BgL_auxz00_1873;
BgL_auxz00_1873 = 
(BgL_objectz00_bglt)(BgL_classz00_16); 
BgL_auxz00_1872 = 
BGL_OBJECT_WIDENING(BgL_auxz00_1873); } 
BgL_test2056z00_491 = 
(((BgL_tclassz00_bglt)CREF(BgL_auxz00_1872))->BgL_abstractzf3zf3); } 
if(BgL_test2056z00_491)
{ /* ./Object/creator.scm 115 */
return BNIL;}  else 
{ /* ./Object/creator.scm 117 */
obj_t BgL_fillzd2idzd2_492;obj_t BgL_wideningz00_493;obj_t BgL_superz00_494;
{ /* ./Object/creator.scm 117 */
obj_t BgL_arg2077z00_502;obj_t BgL_arg2078z00_503;obj_t BgL_arg2080z00_504;
BgL_arg2077z00_502 = 
CNST_TABLE_REF(((long)1)); 
{ /* ./Object/creator.scm 117 */
BgL_typez00_bglt BgL_obj1003z00_1530;
BgL_obj1003z00_1530 = 
(BgL_typez00_bglt)(BgL_classz00_16); 
BgL_arg2078z00_503 = 
(((BgL_typez00_bglt)CREF(BgL_obj1003z00_1530))->BgL_idz00); } 
BgL_arg2080z00_504 = 
CNST_TABLE_REF(((long)2)); 
{ /* ./Object/creator.scm 117 */
obj_t BgL_list2082z00_505;
{ /* ./Object/creator.scm 117 */
obj_t BgL_arg2084z00_506;
{ /* ./Object/creator.scm 117 */
obj_t BgL_arg2087z00_507;
BgL_arg2087z00_507 = 
MAKE_PAIR(BgL_arg2080z00_504, BNIL); 
BgL_arg2084z00_506 = 
MAKE_PAIR(BgL_arg2078z00_503, BgL_arg2087z00_507); } 
BgL_list2082z00_505 = 
MAKE_PAIR(BgL_arg2077z00_502, BgL_arg2084z00_506); } 
BgL_fillzd2idzd2_492 = 
BGl_symbolzd2appendzd2zz__r4_symbols_6_4z00(BgL_list2082z00_505); } } 
{ /* ./Object/creator.scm 118 */
obj_t BgL_arg2092z00_508;obj_t BgL_arg2093z00_509;obj_t BgL_arg2094z00_510;
{ 
obj_t BgL_auxz00_1886;
{ /* ./Object/creator.scm 118 */
BgL_objectz00_bglt BgL_auxz00_1887;
BgL_auxz00_1887 = 
(BgL_objectz00_bglt)(BgL_classz00_16); 
BgL_auxz00_1886 = 
BGL_OBJECT_WIDENING(BgL_auxz00_1887); } 
BgL_arg2092z00_508 = 
(((BgL_tclassz00_bglt)CREF(BgL_auxz00_1886))->BgL_wideningz00); } 
BgL_arg2093z00_509 = 
CNST_TABLE_REF(((long)5)); 
{ /* ./Object/creator.scm 118 */
BgL_typez00_bglt BgL_obj1003z00_1532;
BgL_obj1003z00_1532 = 
(BgL_typez00_bglt)(BgL_classz00_16); 
BgL_arg2094z00_510 = 
(((BgL_typez00_bglt)CREF(BgL_obj1003z00_1532))->BgL_idz00); } 
{ /* ./Object/creator.scm 118 */
obj_t BgL_list2096z00_511;
{ /* ./Object/creator.scm 118 */
obj_t BgL_arg2098z00_512;
{ /* ./Object/creator.scm 118 */
obj_t BgL_arg2101z00_513;
BgL_arg2101z00_513 = 
MAKE_PAIR(BgL_arg2094z00_510, BNIL); 
BgL_arg2098z00_512 = 
MAKE_PAIR(BgL_arg2093z00_509, BgL_arg2101z00_513); } 
BgL_list2096z00_511 = 
MAKE_PAIR(BgL_arg2092z00_508, BgL_arg2098z00_512); } 
BgL_wideningz00_493 = 
BGl_symbolzd2appendzd2zz__r4_symbols_6_4z00(BgL_list2096z00_511); } } 
{ 
obj_t BgL_auxz00_1898;
{ /* ./Object/creator.scm 119 */
BgL_objectz00_bglt BgL_auxz00_1899;
BgL_auxz00_1899 = 
(BgL_objectz00_bglt)(BgL_classz00_16); 
BgL_auxz00_1898 = 
BGL_OBJECT_WIDENING(BgL_auxz00_1899); } 
BgL_superz00_494 = 
(((BgL_tclassz00_bglt)CREF(BgL_auxz00_1898))->BgL_itszd2superzd2); } 
{ /* ./Object/creator.scm 120 */
obj_t BgL_arg2058z00_495;obj_t BgL_arg2059z00_496;
{ /* ./Object/creator.scm 120 */
obj_t BgL_arg2067z00_499;
{ /* ./Object/creator.scm 120 */
BgL_typez00_bglt BgL_obj1003z00_1534;
BgL_obj1003z00_1534 = 
(BgL_typez00_bglt)(BgL_classz00_16); 
BgL_arg2067z00_499 = 
(((BgL_typez00_bglt)CREF(BgL_obj1003z00_1534))->BgL_idz00); } 
BgL_arg2058z00_495 = 
BGl_genzd2classzd2fillz12z12zzobject_creatorz00(BgL_fillzd2idzd2_492, BgL_arg2067z00_499, BgL_classz00_16, BgL_srczd2defzd2_17, BgL_importz00_18); } 
{ /* ./Object/creator.scm 121 */
obj_t BgL_arg2071z00_500;BgL_globalz00_bglt BgL_arg2072z00_501;
{ /* ./Object/creator.scm 121 */
BgL_typez00_bglt BgL_obj1003z00_1535;
BgL_obj1003z00_1535 = 
(BgL_typez00_bglt)(BgL_classz00_16); 
BgL_arg2071z00_500 = 
(((BgL_typez00_bglt)CREF(BgL_obj1003z00_1535))->BgL_idz00); } 
{ 
obj_t BgL_auxz00_1908;
{ /* ./Object/creator.scm 121 */
BgL_objectz00_bglt BgL_auxz00_1909;
BgL_auxz00_1909 = 
(BgL_objectz00_bglt)(BgL_classz00_16); 
BgL_auxz00_1908 = 
BGL_OBJECT_WIDENING(BgL_auxz00_1909); } 
BgL_arg2072z00_501 = 
(((BgL_tclassz00_bglt)CREF(BgL_auxz00_1908))->BgL_holderz00); } 
BgL_arg2059z00_496 = 
BGl_genzd2classzd2allocatez12z12zzobject_creatorz00(BgL_arg2071z00_500, BgL_superz00_494, BgL_arg2072z00_501, BgL_srczd2defzd2_17, BgL_importz00_18); } 
{ /* ./Object/creator.scm 120 */
obj_t BgL_list2061z00_497;
{ /* ./Object/creator.scm 120 */
obj_t BgL_arg2063z00_498;
BgL_arg2063z00_498 = 
MAKE_PAIR(BgL_arg2059z00_496, BNIL); 
BgL_list2061z00_497 = 
MAKE_PAIR(BgL_arg2058z00_495, BgL_arg2063z00_498); } 
return BgL_list2061z00_497;} } } } } 
}



/* gen-java-class-creator */
obj_t BGl_genzd2javazd2classzd2creatorzd2zzobject_creatorz00(BgL_jclassz00_bglt BgL_classz00_19, obj_t BgL_srczd2defzd2_20)
{ AN_OBJECT;
{ /* ./Object/creator.scm 126 */
{ /* ./Object/creator.scm 127 */
obj_t BgL_idz00_514;
{ /* ./Object/creator.scm 127 */
BgL_typez00_bglt BgL_obj1003z00_1539;
BgL_obj1003z00_1539 = 
(BgL_typez00_bglt)(BgL_classz00_19); 
BgL_idz00_514 = 
(((BgL_typez00_bglt)CREF(BgL_obj1003z00_1539))->BgL_idz00); } 
{ /* ./Object/creator.scm 127 */
obj_t BgL_alloczd2idzd2_515;
{ /* ./Object/creator.scm 128 */
obj_t BgL_list2155z00_537;
{ /* ./Object/creator.scm 128 */
obj_t BgL_arg2157z00_538;obj_t BgL_arg2158z00_539;
BgL_arg2157z00_538 = 
CNST_TABLE_REF(((long)7)); 
BgL_arg2158z00_539 = 
MAKE_PAIR(BgL_idz00_514, BNIL); 
BgL_list2155z00_537 = 
MAKE_PAIR(BgL_arg2157z00_538, BgL_arg2158z00_539); } 
BgL_alloczd2idzd2_515 = 
BGl_symbolzd2appendzd2zz__r4_symbols_6_4z00(BgL_list2155z00_537); } 
{ /* ./Object/creator.scm 128 */

{ 

{ /* ./Object/creator.scm 132 */
obj_t BgL_arg2109z00_517;
{ /* ./Object/creator.scm 132 */
obj_t BgL_arg2112z00_518;obj_t BgL_arg2113z00_519;
BgL_arg2112z00_518 = 
CNST_TABLE_REF(((long)10)); 
{ /* ./Object/creator.scm 132 */
obj_t BgL_arg2116z00_520;
{ /* ./Object/creator.scm 132 */
obj_t BgL_arg2122z00_522;obj_t BgL_arg2123z00_523;
BgL_arg2122z00_522 = 
CNST_TABLE_REF(((long)11)); 
BgL_arg2123z00_523 = 
MAKE_PAIR(BgL_alloczd2idzd2_515, BNIL); 
BgL_arg2116z00_520 = 
MAKE_PAIR(BgL_arg2122z00_522, BgL_arg2123z00_523); } 
BgL_arg2113z00_519 = 
MAKE_PAIR(BgL_arg2116z00_520, BNIL); } 
BgL_arg2109z00_517 = 
MAKE_PAIR(BgL_arg2112z00_518, BgL_arg2113z00_519); } 
BGl_producezd2modulezd2clausez12z12zzmodule_modulez00(BgL_arg2109z00_517); } 
{ /* ./Object/creator.scm 133 */
obj_t BgL_arg2127z00_524;
{ /* ./Object/creator.scm 133 */
obj_t BgL_arg2132z00_526;
{ /* ./Object/creator.scm 130 */
obj_t BgL_arg2139z00_529;obj_t BgL_arg2141z00_530;
BgL_arg2139z00_529 = 
CNST_TABLE_REF(((long)8)); 
{ /* ./Object/creator.scm 130 */
obj_t BgL_arg2144z00_531;obj_t BgL_arg2145z00_532;
BgL_arg2144z00_531 = 
MAKE_PAIR(BgL_alloczd2idzd2_515, BNIL); 
{ /* ./Object/creator.scm 131 */
obj_t BgL_arg2149z00_533;
BgL_arg2149z00_533 = 
BGl_makezd2privatezd2sexpz00zzast_privatez00(
CNST_TABLE_REF(((long)9)), BgL_idz00_514, BNIL); 
BgL_arg2145z00_532 = 
MAKE_PAIR(BgL_arg2149z00_533, BNIL); } 
BgL_arg2141z00_530 = 
MAKE_PAIR(BgL_arg2144z00_531, BgL_arg2145z00_532); } 
BgL_arg2132z00_526 = 
MAKE_PAIR(BgL_arg2139z00_529, BgL_arg2141z00_530); } 
{ /* ./Object/creator.scm 133 */
obj_t BgL_list2134z00_527;
BgL_list2134z00_527 = 
MAKE_PAIR(BgL_srczd2defzd2_20, BNIL); 
BgL_arg2127z00_524 = 
BGl_epairifyza2za2zztools_miscz00(BgL_arg2132z00_526, BgL_list2134z00_527); } } 
{ /* ./Object/creator.scm 133 */
obj_t BgL_list2129z00_525;
BgL_list2129z00_525 = 
MAKE_PAIR(BgL_arg2127z00_524, BNIL); 
return BgL_list2129z00_525;} } } } } } } 
}



/* import-plain-class-creators */
BGL_EXPORTED_DEF obj_t BGl_importzd2plainzd2classzd2creatorszd2zzobject_creatorz00(BgL_tclassz00_bglt BgL_classz00_21, obj_t BgL_srczd2defzd2_22, obj_t BgL_modulez00_23)
{ AN_OBJECT;
{ /* ./Object/creator.scm 138 */
{ /* ./Object/creator.scm 139 */
bool_t BgL_test2162z00_540;
{ 
obj_t BgL_auxz00_1939;
{ /* ./Object/creator.scm 139 */
BgL_objectz00_bglt BgL_auxz00_1940;
BgL_auxz00_1940 = 
(BgL_objectz00_bglt)(BgL_classz00_21); 
BgL_auxz00_1939 = 
BGL_OBJECT_WIDENING(BgL_auxz00_1940); } 
BgL_test2162z00_540 = 
(((BgL_tclassz00_bglt)CREF(BgL_auxz00_1939))->BgL_abstractzf3zf3); } 
if(BgL_test2162z00_540)
{ /* ./Object/creator.scm 139 */
return BNIL;}  else 
{ /* ./Object/creator.scm 141 */
bool_t BgL_test2163z00_541;
BgL_test2163z00_541 = 
BGl_inlinezd2creatorszf3z21zzobject_creatorz00(); 
if(BgL_test2163z00_541)
{ /* ./Object/creator.scm 141 */
BGl_importzd2noinlinezd2plainzd2classzd2creatorsz00zzobject_creatorz00(BgL_classz00_21, BgL_srczd2defzd2_22, BgL_modulez00_23); 
return 
BGl_genzd2inlinezd2plainzd2classzd2creatorsz00zzobject_creatorz00(BgL_classz00_21, BgL_srczd2defzd2_22, 
CNST_TABLE_REF(((long)10)));}  else 
{ /* ./Object/creator.scm 141 */
BGl_importzd2noinlinezd2plainzd2classzd2creatorsz00zzobject_creatorz00(BgL_classz00_21, BgL_srczd2defzd2_22, BgL_modulez00_23); 
return 
BGl_importzd2inlinezd2plainzd2classzd2creatorsz00zzobject_creatorz00(BgL_classz00_21, BgL_srczd2defzd2_22, BgL_modulez00_23);} } } } 
}



/* _import-plain-class-creators */
obj_t BGl__importzd2plainzd2classzd2creatorszd2zzobject_creatorz00(obj_t BgL_envz00_1720, obj_t BgL_classz00_1721, obj_t BgL_srczd2defzd2_1722, obj_t BgL_modulez00_1723)
{ AN_OBJECT;
{ /* ./Object/creator.scm 138 */
return 
BGl_importzd2plainzd2classzd2creatorszd2zzobject_creatorz00(
(BgL_tclassz00_bglt)(BgL_classz00_1721), BgL_srczd2defzd2_1722, BgL_modulez00_1723);} 
}



/* import-inline-plain-class-creators */
obj_t BGl_importzd2inlinezd2plainzd2classzd2creatorsz00zzobject_creatorz00(BgL_tclassz00_bglt BgL_classz00_24, obj_t BgL_srczd2defzd2_25, obj_t BgL_modulez00_26)
{ AN_OBJECT;
{ /* ./Object/creator.scm 153 */
{ /* ./Object/creator.scm 155 */
obj_t BgL_mkzd2idzd2_543;
{ /* ./Object/creator.scm 155 */
obj_t BgL_arg2236z00_574;obj_t BgL_arg2237z00_575;
BgL_arg2236z00_574 = 
CNST_TABLE_REF(((long)3)); 
{ /* ./Object/creator.scm 155 */
BgL_typez00_bglt BgL_obj1003z00_1543;
BgL_obj1003z00_1543 = 
(BgL_typez00_bglt)(BgL_classz00_24); 
BgL_arg2237z00_575 = 
(((BgL_typez00_bglt)CREF(BgL_obj1003z00_1543))->BgL_idz00); } 
{ /* ./Object/creator.scm 155 */
obj_t BgL_list2239z00_576;
{ /* ./Object/creator.scm 155 */
obj_t BgL_arg2241z00_577;
BgL_arg2241z00_577 = 
MAKE_PAIR(BgL_arg2237z00_575, BNIL); 
BgL_list2239z00_576 = 
MAKE_PAIR(BgL_arg2236z00_574, BgL_arg2241z00_577); } 
BgL_mkzd2idzd2_543 = 
BGl_symbolzd2appendzd2zz__r4_symbols_6_4z00(BgL_list2239z00_576); } } 
{ /* ./Object/creator.scm 155 */
obj_t BgL_fillzd2idzd2_544;
{ /* ./Object/creator.scm 156 */
obj_t BgL_arg2222z00_568;obj_t BgL_arg2223z00_569;obj_t BgL_arg2224z00_570;
BgL_arg2222z00_568 = 
CNST_TABLE_REF(((long)1)); 
{ /* ./Object/creator.scm 156 */
BgL_typez00_bglt BgL_obj1003z00_1544;
BgL_obj1003z00_1544 = 
(BgL_typez00_bglt)(BgL_classz00_24); 
BgL_arg2223z00_569 = 
(((BgL_typez00_bglt)CREF(BgL_obj1003z00_1544))->BgL_idz00); } 
BgL_arg2224z00_570 = 
CNST_TABLE_REF(((long)2)); 
{ /* ./Object/creator.scm 156 */
obj_t BgL_list2226z00_571;
{ /* ./Object/creator.scm 156 */
obj_t BgL_arg2228z00_572;
{ /* ./Object/creator.scm 156 */
obj_t BgL_arg2231z00_573;
BgL_arg2231z00_573 = 
MAKE_PAIR(BgL_arg2224z00_570, BNIL); 
BgL_arg2228z00_572 = 
MAKE_PAIR(BgL_arg2223z00_569, BgL_arg2231z00_573); } 
BgL_list2226z00_571 = 
MAKE_PAIR(BgL_arg2222z00_568, BgL_arg2228z00_572); } 
BgL_fillzd2idzd2_544 = 
BGl_symbolzd2appendzd2zz__r4_symbols_6_4z00(BgL_list2226z00_571); } } 
{ /* ./Object/creator.scm 156 */
obj_t BgL_mkzd2tidzd2_545;
{ /* ./Object/creator.scm 157 */
obj_t BgL_arg2218z00_567;
{ /* ./Object/creator.scm 157 */
BgL_typez00_bglt BgL_obj1003z00_1545;
BgL_obj1003z00_1545 = 
(BgL_typez00_bglt)(BgL_classz00_24); 
BgL_arg2218z00_567 = 
(((BgL_typez00_bglt)CREF(BgL_obj1003z00_1545))->BgL_idz00); } 
BgL_mkzd2tidzd2_545 = 
BGl_makezd2typedzd2identz00zzast_identz00(BgL_mkzd2idzd2_543, BgL_arg2218z00_567); } 
{ /* ./Object/creator.scm 157 */
obj_t BgL_fzd2idszd2_546;
{ /* ./Object/creator.scm 158 */
obj_t BgL_arg2214z00_566;
{ 
obj_t BgL_auxz00_1971;
{ /* ./Object/creator.scm 158 */
BgL_objectz00_bglt BgL_auxz00_1972;
BgL_auxz00_1972 = 
(BgL_objectz00_bglt)(BgL_classz00_24); 
BgL_auxz00_1971 = 
BGL_OBJECT_WIDENING(BgL_auxz00_1972); } 
BgL_arg2214z00_566 = 
(((BgL_tclassz00_bglt)CREF(BgL_auxz00_1971))->BgL_slotsz00); } 
BgL_fzd2idszd2_546 = 
BGl_makezd2classzd2makezd2formalszd2zzobject_slotsz00(BgL_arg2214z00_566); } 
{ /* ./Object/creator.scm 158 */
obj_t BgL_fzd2tidszd2_547;
{ /* ./Object/creator.scm 159 */
obj_t BgL_arg2210z00_565;
{ 
obj_t BgL_auxz00_1977;
{ /* ./Object/creator.scm 159 */
BgL_objectz00_bglt BgL_auxz00_1978;
BgL_auxz00_1978 = 
(BgL_objectz00_bglt)(BgL_classz00_24); 
BgL_auxz00_1977 = 
BGL_OBJECT_WIDENING(BgL_auxz00_1978); } 
BgL_arg2210z00_565 = 
(((BgL_tclassz00_bglt)CREF(BgL_auxz00_1977))->BgL_slotsz00); } 
BgL_fzd2tidszd2_547 = 
BGl_makezd2classzd2makezd2typedzd2formalsz00zzobject_slotsz00(BgL_fzd2idszd2_546, BgL_arg2210z00_565); } 
{ /* ./Object/creator.scm 159 */
obj_t BgL_toz00_548;
{ /* ./Object/creator.scm 160 */
obj_t BgL_arg2201z00_562;obj_t BgL_arg2202z00_563;
{ /* ./Object/creator.scm 160 */
obj_t BgL_arg2205z00_564;
BgL_arg2205z00_564 = 
PROCEDURE_ENTRY(BGl_gensymz00zz__r4_symbols_6_4z00)(BGl_gensymz00zz__r4_symbols_6_4z00, 
CNST_TABLE_REF(((long)12)), BEOA); 
BgL_arg2201z00_562 = 
BGl_markzd2symbolzd2nonzd2userz12zc0zzast_identz00(BgL_arg2205z00_564); } 
{ /* ./Object/creator.scm 160 */
BgL_typez00_bglt BgL_obj1003z00_1548;
BgL_obj1003z00_1548 = 
(BgL_typez00_bglt)(BgL_classz00_24); 
BgL_arg2202z00_563 = 
(((BgL_typez00_bglt)CREF(BgL_obj1003z00_1548))->BgL_idz00); } 
BgL_toz00_548 = 
BGl_makezd2typedzd2identz00zzast_identz00(BgL_arg2201z00_562, BgL_arg2202z00_563); } 
{ /* ./Object/creator.scm 160 */
obj_t BgL_alloczd2idzd2_549;
{ /* ./Object/creator.scm 161 */
obj_t BgL_arg2191z00_558;obj_t BgL_arg2192z00_559;
BgL_arg2191z00_558 = 
CNST_TABLE_REF(((long)7)); 
{ /* ./Object/creator.scm 161 */
BgL_typez00_bglt BgL_obj1003z00_1549;
BgL_obj1003z00_1549 = 
(BgL_typez00_bglt)(BgL_classz00_24); 
BgL_arg2192z00_559 = 
(((BgL_typez00_bglt)CREF(BgL_obj1003z00_1549))->BgL_idz00); } 
{ /* ./Object/creator.scm 161 */
obj_t BgL_list2194z00_560;
{ /* ./Object/creator.scm 161 */
obj_t BgL_arg2196z00_561;
BgL_arg2196z00_561 = 
MAKE_PAIR(BgL_arg2192z00_559, BNIL); 
BgL_list2194z00_560 = 
MAKE_PAIR(BgL_arg2191z00_558, BgL_arg2196z00_561); } 
BgL_alloczd2idzd2_549 = 
BGl_symbolzd2appendzd2zz__r4_symbols_6_4z00(BgL_list2194z00_560); } } 
{ /* ./Object/creator.scm 161 */
obj_t BgL_alloczd2tidzd2_550;
{ /* ./Object/creator.scm 162 */
obj_t BgL_arg2187z00_557;
{ /* ./Object/creator.scm 162 */
BgL_typez00_bglt BgL_obj1003z00_1550;
BgL_obj1003z00_1550 = 
(BgL_typez00_bglt)(BgL_classz00_24); 
BgL_arg2187z00_557 = 
(((BgL_typez00_bglt)CREF(BgL_obj1003z00_1550))->BgL_idz00); } 
BgL_alloczd2tidzd2_550 = 
BGl_makezd2typedzd2identz00zzast_identz00(BgL_alloczd2idzd2_549, BgL_arg2187z00_557); } 
{ /* ./Object/creator.scm 162 */

{ /* ./Object/creator.scm 164 */
obj_t BgL_arg2171z00_551;
BgL_arg2171z00_551 = 
MAKE_PAIR(BgL_alloczd2tidzd2_550, BNIL); 
BGl_importzd2parserzd2zzmodule_impusez00(BgL_modulez00_26, BgL_arg2171z00_551, BNIL); } 
{ /* ./Object/creator.scm 165 */
obj_t BgL_arg2176z00_553;
{ /* ./Object/creator.scm 165 */
obj_t BgL_arg2180z00_555;
{ /* ./Object/creator.scm 165 */
obj_t BgL_arg2183z00_556;
BgL_arg2183z00_556 = 
BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(BgL_fzd2tidszd2_547, BNIL); 
BgL_arg2180z00_555 = 
MAKE_PAIR(BgL_toz00_548, BgL_arg2183z00_556); } 
BgL_arg2176z00_553 = 
MAKE_PAIR(BgL_fillzd2idzd2_544, BgL_arg2180z00_555); } 
BGl_importzd2parserzd2zzmodule_impusez00(BgL_modulez00_26, BgL_arg2176z00_553, BNIL); } 
return BNIL;} } } } } } } } } } 
}



/* import-noinline-plain-class-creators */
obj_t BGl_importzd2noinlinezd2plainzd2classzd2creatorsz00zzobject_creatorz00(BgL_tclassz00_bglt BgL_classz00_27, obj_t BgL_srczd2defzd2_28, obj_t BgL_modulez00_29)
{ AN_OBJECT;
{ /* ./Object/creator.scm 172 */
{ /* ./Object/creator.scm 174 */
obj_t BgL_mkzd2idzd2_579;
{ /* ./Object/creator.scm 174 */
obj_t BgL_arg2266z00_589;obj_t BgL_arg2267z00_590;
BgL_arg2266z00_589 = 
CNST_TABLE_REF(((long)3)); 
{ /* ./Object/creator.scm 174 */
BgL_typez00_bglt BgL_obj1003z00_1551;
BgL_obj1003z00_1551 = 
(BgL_typez00_bglt)(BgL_classz00_27); 
BgL_arg2267z00_590 = 
(((BgL_typez00_bglt)CREF(BgL_obj1003z00_1551))->BgL_idz00); } 
{ /* ./Object/creator.scm 174 */
obj_t BgL_list2269z00_591;
{ /* ./Object/creator.scm 174 */
obj_t BgL_arg2271z00_592;
BgL_arg2271z00_592 = 
MAKE_PAIR(BgL_arg2267z00_590, BNIL); 
BgL_list2269z00_591 = 
MAKE_PAIR(BgL_arg2266z00_589, BgL_arg2271z00_592); } 
BgL_mkzd2idzd2_579 = 
BGl_symbolzd2appendzd2zz__r4_symbols_6_4z00(BgL_list2269z00_591); } } 
{ /* ./Object/creator.scm 174 */
obj_t BgL_mkzd2tidzd2_580;
{ /* ./Object/creator.scm 175 */
obj_t BgL_arg2262z00_588;
{ /* ./Object/creator.scm 175 */
BgL_typez00_bglt BgL_obj1003z00_1552;
BgL_obj1003z00_1552 = 
(BgL_typez00_bglt)(BgL_classz00_27); 
BgL_arg2262z00_588 = 
(((BgL_typez00_bglt)CREF(BgL_obj1003z00_1552))->BgL_idz00); } 
BgL_mkzd2tidzd2_580 = 
BGl_makezd2typedzd2identz00zzast_identz00(BgL_mkzd2idzd2_579, BgL_arg2262z00_588); } 
{ /* ./Object/creator.scm 175 */
obj_t BgL_fzd2idszd2_581;
{ /* ./Object/creator.scm 176 */
obj_t BgL_arg2258z00_587;
{ 
obj_t BgL_auxz00_2014;
{ /* ./Object/creator.scm 176 */
BgL_objectz00_bglt BgL_auxz00_2015;
BgL_auxz00_2015 = 
(BgL_objectz00_bglt)(BgL_classz00_27); 
BgL_auxz00_2014 = 
BGL_OBJECT_WIDENING(BgL_auxz00_2015); } 
BgL_arg2258z00_587 = 
(((BgL_tclassz00_bglt)CREF(BgL_auxz00_2014))->BgL_slotsz00); } 
BgL_fzd2idszd2_581 = 
BGl_makezd2classzd2makezd2formalszd2zzobject_slotsz00(BgL_arg2258z00_587); } 
{ /* ./Object/creator.scm 176 */
obj_t BgL_fzd2tidszd2_582;
{ /* ./Object/creator.scm 177 */
obj_t BgL_arg2254z00_586;
{ 
obj_t BgL_auxz00_2020;
{ /* ./Object/creator.scm 177 */
BgL_objectz00_bglt BgL_auxz00_2021;
BgL_auxz00_2021 = 
(BgL_objectz00_bglt)(BgL_classz00_27); 
BgL_auxz00_2020 = 
BGL_OBJECT_WIDENING(BgL_auxz00_2021); } 
BgL_arg2254z00_586 = 
(((BgL_tclassz00_bglt)CREF(BgL_auxz00_2020))->BgL_slotsz00); } 
BgL_fzd2tidszd2_582 = 
BGl_makezd2classzd2makezd2typedzd2formalsz00zzobject_slotsz00(BgL_fzd2idszd2_581, BgL_arg2254z00_586); } 
{ /* ./Object/creator.scm 177 */

{ /* ./Object/creator.scm 179 */
obj_t BgL_arg2246z00_583;
{ /* ./Object/creator.scm 179 */
obj_t BgL_arg2250z00_585;
BgL_arg2250z00_585 = 
BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(BgL_fzd2tidszd2_582, BNIL); 
BgL_arg2246z00_583 = 
MAKE_PAIR(BgL_mkzd2tidzd2_580, BgL_arg2250z00_585); } 
BGl_importzd2parserzd2zzmodule_impusez00(BgL_modulez00_29, BgL_arg2246z00_583, BNIL); } 
return BNIL;} } } } } } 
}



/* import-wide-class-creators */
BGL_EXPORTED_DEF obj_t BGl_importzd2widezd2classzd2creatorszd2zzobject_creatorz00(BgL_tclassz00_bglt BgL_classz00_30, obj_t BgL_srczd2defzd2_31, obj_t BgL_modulez00_32)
{ AN_OBJECT;
{ /* ./Object/creator.scm 186 */
{ /* ./Object/creator.scm 187 */
bool_t BgL_test2275z00_593;
{ 
obj_t BgL_auxz00_2029;
{ /* ./Object/creator.scm 187 */
BgL_objectz00_bglt BgL_auxz00_2030;
BgL_auxz00_2030 = 
(BgL_objectz00_bglt)(BgL_classz00_30); 
BgL_auxz00_2029 = 
BGL_OBJECT_WIDENING(BgL_auxz00_2030); } 
BgL_test2275z00_593 = 
(((BgL_tclassz00_bglt)CREF(BgL_auxz00_2029))->BgL_abstractzf3zf3); } 
if(BgL_test2275z00_593)
{ /* ./Object/creator.scm 187 */
return BNIL;}  else 
{ /* ./Object/creator.scm 189 */
bool_t BgL_test2276z00_594;
BgL_test2276z00_594 = 
BGl_inlinezd2creatorszf3z21zzobject_creatorz00(); 
if(BgL_test2276z00_594)
{ /* ./Object/creator.scm 189 */
BGl_importzd2noinlinezd2widezd2classzd2creatorsz00zzobject_creatorz00(BgL_classz00_30, BgL_srczd2defzd2_31, BgL_modulez00_32); 
return 
BGl_genzd2inlinezd2widezd2classzd2creatorsz00zzobject_creatorz00(BgL_classz00_30, BgL_srczd2defzd2_31, 
CNST_TABLE_REF(((long)10)));}  else 
{ /* ./Object/creator.scm 189 */
BGl_importzd2noinlinezd2widezd2classzd2creatorsz00zzobject_creatorz00(BgL_classz00_30, BgL_srczd2defzd2_31, BgL_modulez00_32); 
return 
BGl_importzd2inlinezd2widezd2classzd2creatorsz00zzobject_creatorz00(BgL_classz00_30, BgL_srczd2defzd2_31, BgL_modulez00_32);} } } } 
}



/* _import-wide-class-creators */
obj_t BGl__importzd2widezd2classzd2creatorszd2zzobject_creatorz00(obj_t BgL_envz00_1724, obj_t BgL_classz00_1725, obj_t BgL_srczd2defzd2_1726, obj_t BgL_modulez00_1727)
{ AN_OBJECT;
{ /* ./Object/creator.scm 186 */
return 
BGl_importzd2widezd2classzd2creatorszd2zzobject_creatorz00(
(BgL_tclassz00_bglt)(BgL_classz00_1725), BgL_srczd2defzd2_1726, BgL_modulez00_1727);} 
}



/* import-inline-wide-class-creators */
obj_t BGl_importzd2inlinezd2widezd2classzd2creatorsz00zzobject_creatorz00(BgL_tclassz00_bglt BgL_classz00_33, obj_t BgL_srczd2defzd2_34, obj_t BgL_modulez00_35)
{ AN_OBJECT;
{ /* ./Object/creator.scm 201 */
{ /* ./Object/creator.scm 203 */
obj_t BgL_mkzd2idzd2_596;
{ /* ./Object/creator.scm 203 */
obj_t BgL_arg2365z00_634;obj_t BgL_arg2366z00_635;
BgL_arg2365z00_634 = 
CNST_TABLE_REF(((long)3)); 
{ /* ./Object/creator.scm 203 */
BgL_typez00_bglt BgL_obj1003z00_1556;
BgL_obj1003z00_1556 = 
(BgL_typez00_bglt)(BgL_classz00_33); 
BgL_arg2366z00_635 = 
(((BgL_typez00_bglt)CREF(BgL_obj1003z00_1556))->BgL_idz00); } 
{ /* ./Object/creator.scm 203 */
obj_t BgL_list2368z00_636;
{ /* ./Object/creator.scm 203 */
obj_t BgL_arg2371z00_637;
BgL_arg2371z00_637 = 
MAKE_PAIR(BgL_arg2366z00_635, BNIL); 
BgL_list2368z00_636 = 
MAKE_PAIR(BgL_arg2365z00_634, BgL_arg2371z00_637); } 
BgL_mkzd2idzd2_596 = 
BGl_symbolzd2appendzd2zz__r4_symbols_6_4z00(BgL_list2368z00_636); } } 
{ /* ./Object/creator.scm 203 */
obj_t BgL_fillzd2idzd2_597;
{ /* ./Object/creator.scm 204 */
obj_t BgL_arg2350z00_628;obj_t BgL_arg2351z00_629;obj_t BgL_arg2353z00_630;
BgL_arg2350z00_628 = 
CNST_TABLE_REF(((long)1)); 
{ /* ./Object/creator.scm 204 */
BgL_typez00_bglt BgL_obj1003z00_1557;
BgL_obj1003z00_1557 = 
(BgL_typez00_bglt)(BgL_classz00_33); 
BgL_arg2351z00_629 = 
(((BgL_typez00_bglt)CREF(BgL_obj1003z00_1557))->BgL_idz00); } 
BgL_arg2353z00_630 = 
CNST_TABLE_REF(((long)2)); 
{ /* ./Object/creator.scm 204 */
obj_t BgL_list2355z00_631;
{ /* ./Object/creator.scm 204 */
obj_t BgL_arg2357z00_632;
{ /* ./Object/creator.scm 204 */
obj_t BgL_arg2360z00_633;
BgL_arg2360z00_633 = 
MAKE_PAIR(BgL_arg2353z00_630, BNIL); 
BgL_arg2357z00_632 = 
MAKE_PAIR(BgL_arg2351z00_629, BgL_arg2360z00_633); } 
BgL_list2355z00_631 = 
MAKE_PAIR(BgL_arg2350z00_628, BgL_arg2357z00_632); } 
BgL_fillzd2idzd2_597 = 
BGl_symbolzd2appendzd2zz__r4_symbols_6_4z00(BgL_list2355z00_631); } } 
{ /* ./Object/creator.scm 204 */
obj_t BgL_mkzd2tidzd2_598;
{ /* ./Object/creator.scm 205 */
obj_t BgL_arg2346z00_627;
{ /* ./Object/creator.scm 205 */
BgL_typez00_bglt BgL_obj1003z00_1558;
BgL_obj1003z00_1558 = 
(BgL_typez00_bglt)(BgL_classz00_33); 
BgL_arg2346z00_627 = 
(((BgL_typez00_bglt)CREF(BgL_obj1003z00_1558))->BgL_idz00); } 
BgL_mkzd2tidzd2_598 = 
BGl_makezd2typedzd2identz00zzast_identz00(BgL_mkzd2idzd2_596, BgL_arg2346z00_627); } 
{ /* ./Object/creator.scm 205 */
obj_t BgL_alloczd2widezd2_599;
{ /* ./Object/creator.scm 206 */
obj_t BgL_arg2335z00_623;obj_t BgL_arg2336z00_624;
BgL_arg2335z00_623 = 
CNST_TABLE_REF(((long)13)); 
{ /* ./Object/creator.scm 206 */
BgL_typez00_bglt BgL_obj1003z00_1559;
BgL_obj1003z00_1559 = 
(BgL_typez00_bglt)(BgL_classz00_33); 
BgL_arg2336z00_624 = 
(((BgL_typez00_bglt)CREF(BgL_obj1003z00_1559))->BgL_idz00); } 
{ /* ./Object/creator.scm 206 */
obj_t BgL_list2338z00_625;
{ /* ./Object/creator.scm 206 */
obj_t BgL_arg2341z00_626;
BgL_arg2341z00_626 = 
MAKE_PAIR(BgL_arg2336z00_624, BNIL); 
BgL_list2338z00_625 = 
MAKE_PAIR(BgL_arg2335z00_623, BgL_arg2341z00_626); } 
BgL_alloczd2widezd2_599 = 
BGl_symbolzd2appendzd2zz__r4_symbols_6_4z00(BgL_list2338z00_625); } } 
{ /* ./Object/creator.scm 206 */
obj_t BgL_talloczd2widezd2_600;
{ /* ./Object/creator.scm 207 */
obj_t BgL_arg2331z00_622;
{ /* ./Object/creator.scm 207 */
BgL_typez00_bglt BgL_obj1003z00_1560;
BgL_obj1003z00_1560 = 
(BgL_typez00_bglt)(BgL_classz00_33); 
BgL_arg2331z00_622 = 
(((BgL_typez00_bglt)CREF(BgL_obj1003z00_1560))->BgL_idz00); } 
BgL_talloczd2widezd2_600 = 
BGl_makezd2typedzd2identz00zzast_identz00(BgL_alloczd2widezd2_599, BgL_arg2331z00_622); } 
{ /* ./Object/creator.scm 207 */
obj_t BgL_fzd2idszd2_601;
{ /* ./Object/creator.scm 208 */
obj_t BgL_arg2327z00_621;
{ 
obj_t BgL_auxz00_2070;
{ /* ./Object/creator.scm 208 */
BgL_objectz00_bglt BgL_auxz00_2071;
BgL_auxz00_2071 = 
(BgL_objectz00_bglt)(BgL_classz00_33); 
BgL_auxz00_2070 = 
BGL_OBJECT_WIDENING(BgL_auxz00_2071); } 
BgL_arg2327z00_621 = 
(((BgL_tclassz00_bglt)CREF(BgL_auxz00_2070))->BgL_slotsz00); } 
BgL_fzd2idszd2_601 = 
BGl_makezd2classzd2makezd2formalszd2zzobject_slotsz00(BgL_arg2327z00_621); } 
{ /* ./Object/creator.scm 208 */
obj_t BgL_fzd2tidszd2_602;
{ /* ./Object/creator.scm 209 */
obj_t BgL_arg2323z00_620;
{ 
obj_t BgL_auxz00_2076;
{ /* ./Object/creator.scm 209 */
BgL_objectz00_bglt BgL_auxz00_2077;
BgL_auxz00_2077 = 
(BgL_objectz00_bglt)(BgL_classz00_33); 
BgL_auxz00_2076 = 
BGL_OBJECT_WIDENING(BgL_auxz00_2077); } 
BgL_arg2323z00_620 = 
(((BgL_tclassz00_bglt)CREF(BgL_auxz00_2076))->BgL_slotsz00); } 
BgL_fzd2tidszd2_602 = 
BGl_makezd2classzd2makezd2typedzd2formalsz00zzobject_slotsz00(BgL_fzd2idszd2_601, BgL_arg2323z00_620); } 
{ /* ./Object/creator.scm 209 */
obj_t BgL_toz00_603;
{ /* ./Object/creator.scm 210 */
obj_t BgL_arg2314z00_617;obj_t BgL_arg2315z00_618;
{ /* ./Object/creator.scm 210 */
obj_t BgL_arg2318z00_619;
BgL_arg2318z00_619 = 
PROCEDURE_ENTRY(BGl_gensymz00zz__r4_symbols_6_4z00)(BGl_gensymz00zz__r4_symbols_6_4z00, 
CNST_TABLE_REF(((long)12)), BEOA); 
BgL_arg2314z00_617 = 
BGl_markzd2symbolzd2nonzd2userz12zc0zzast_identz00(BgL_arg2318z00_619); } 
{ /* ./Object/creator.scm 210 */
BgL_typez00_bglt BgL_obj1003z00_1563;
BgL_obj1003z00_1563 = 
(BgL_typez00_bglt)(BgL_classz00_33); 
BgL_arg2315z00_618 = 
(((BgL_typez00_bglt)CREF(BgL_obj1003z00_1563))->BgL_idz00); } 
BgL_toz00_603 = 
BGl_makezd2typedzd2identz00zzast_identz00(BgL_arg2314z00_617, BgL_arg2315z00_618); } 
{ /* ./Object/creator.scm 210 */
obj_t BgL_alloczd2idzd2_604;
{ /* ./Object/creator.scm 211 */
obj_t BgL_arg2304z00_613;obj_t BgL_arg2305z00_614;
BgL_arg2304z00_613 = 
CNST_TABLE_REF(((long)7)); 
{ /* ./Object/creator.scm 211 */
BgL_typez00_bglt BgL_obj1003z00_1564;
BgL_obj1003z00_1564 = 
(BgL_typez00_bglt)(BgL_classz00_33); 
BgL_arg2305z00_614 = 
(((BgL_typez00_bglt)CREF(BgL_obj1003z00_1564))->BgL_idz00); } 
{ /* ./Object/creator.scm 211 */
obj_t BgL_list2307z00_615;
{ /* ./Object/creator.scm 211 */
obj_t BgL_arg2309z00_616;
BgL_arg2309z00_616 = 
MAKE_PAIR(BgL_arg2305z00_614, BNIL); 
BgL_list2307z00_615 = 
MAKE_PAIR(BgL_arg2304z00_613, BgL_arg2309z00_616); } 
BgL_alloczd2idzd2_604 = 
BGl_symbolzd2appendzd2zz__r4_symbols_6_4z00(BgL_list2307z00_615); } } 
{ /* ./Object/creator.scm 211 */
obj_t BgL_alloczd2tidzd2_605;
{ /* ./Object/creator.scm 212 */
obj_t BgL_arg2300z00_612;
{ /* ./Object/creator.scm 212 */
BgL_typez00_bglt BgL_obj1003z00_1565;
BgL_obj1003z00_1565 = 
(BgL_typez00_bglt)(BgL_classz00_33); 
BgL_arg2300z00_612 = 
(((BgL_typez00_bglt)CREF(BgL_obj1003z00_1565))->BgL_idz00); } 
BgL_alloczd2tidzd2_605 = 
BGl_makezd2typedzd2identz00zzast_identz00(BgL_alloczd2idzd2_604, BgL_arg2300z00_612); } 
{ /* ./Object/creator.scm 212 */

{ /* ./Object/creator.scm 214 */
obj_t BgL_arg2284z00_606;
BgL_arg2284z00_606 = 
MAKE_PAIR(BgL_alloczd2tidzd2_605, BNIL); 
BGl_importzd2parserzd2zzmodule_impusez00(BgL_modulez00_35, BgL_arg2284z00_606, BNIL); } 
{ /* ./Object/creator.scm 215 */
obj_t BgL_arg2289z00_608;
{ /* ./Object/creator.scm 215 */
obj_t BgL_arg2293z00_610;
{ /* ./Object/creator.scm 215 */
obj_t BgL_arg2296z00_611;
BgL_arg2296z00_611 = 
BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(BgL_fzd2tidszd2_602, BNIL); 
BgL_arg2293z00_610 = 
MAKE_PAIR(BgL_toz00_603, BgL_arg2296z00_611); } 
BgL_arg2289z00_608 = 
MAKE_PAIR(BgL_fillzd2idzd2_597, BgL_arg2293z00_610); } 
BGl_importzd2parserzd2zzmodule_impusez00(BgL_modulez00_35, BgL_arg2289z00_608, BNIL); } 
return BNIL;} } } } } } } } } } } } 
}



/* import-noinline-wide-class-creators */
obj_t BGl_importzd2noinlinezd2widezd2classzd2creatorsz00zzobject_creatorz00(BgL_tclassz00_bglt BgL_classz00_36, obj_t BgL_srczd2defzd2_37, obj_t BgL_modulez00_38)
{ AN_OBJECT;
{ /* ./Object/creator.scm 222 */
{ /* ./Object/creator.scm 224 */
obj_t BgL_mkzd2idzd2_639;
{ /* ./Object/creator.scm 224 */
obj_t BgL_arg2443z00_672;obj_t BgL_arg2444z00_673;
BgL_arg2443z00_672 = 
CNST_TABLE_REF(((long)3)); 
{ /* ./Object/creator.scm 224 */
BgL_typez00_bglt BgL_obj1003z00_1566;
BgL_obj1003z00_1566 = 
(BgL_typez00_bglt)(BgL_classz00_36); 
BgL_arg2444z00_673 = 
(((BgL_typez00_bglt)CREF(BgL_obj1003z00_1566))->BgL_idz00); } 
{ /* ./Object/creator.scm 224 */
obj_t BgL_list2446z00_674;
{ /* ./Object/creator.scm 224 */
obj_t BgL_arg2448z00_675;
BgL_arg2448z00_675 = 
MAKE_PAIR(BgL_arg2444z00_673, BNIL); 
BgL_list2446z00_674 = 
MAKE_PAIR(BgL_arg2443z00_672, BgL_arg2448z00_675); } 
BgL_mkzd2idzd2_639 = 
BGl_symbolzd2appendzd2zz__r4_symbols_6_4z00(BgL_list2446z00_674); } } 
{ /* ./Object/creator.scm 224 */
obj_t BgL_fillzd2idzd2_640;
{ /* ./Object/creator.scm 225 */
obj_t BgL_arg2429z00_666;obj_t BgL_arg2430z00_667;obj_t BgL_arg2431z00_668;
BgL_arg2429z00_666 = 
CNST_TABLE_REF(((long)1)); 
{ /* ./Object/creator.scm 225 */
BgL_typez00_bglt BgL_obj1003z00_1567;
BgL_obj1003z00_1567 = 
(BgL_typez00_bglt)(BgL_classz00_36); 
BgL_arg2430z00_667 = 
(((BgL_typez00_bglt)CREF(BgL_obj1003z00_1567))->BgL_idz00); } 
BgL_arg2431z00_668 = 
CNST_TABLE_REF(((long)2)); 
{ /* ./Object/creator.scm 225 */
obj_t BgL_list2433z00_669;
{ /* ./Object/creator.scm 225 */
obj_t BgL_arg2435z00_670;
{ /* ./Object/creator.scm 225 */
obj_t BgL_arg2438z00_671;
BgL_arg2438z00_671 = 
MAKE_PAIR(BgL_arg2431z00_668, BNIL); 
BgL_arg2435z00_670 = 
MAKE_PAIR(BgL_arg2430z00_667, BgL_arg2438z00_671); } 
BgL_list2433z00_669 = 
MAKE_PAIR(BgL_arg2429z00_666, BgL_arg2435z00_670); } 
BgL_fillzd2idzd2_640 = 
BGl_symbolzd2appendzd2zz__r4_symbols_6_4z00(BgL_list2433z00_669); } } 
{ /* ./Object/creator.scm 225 */
obj_t BgL_mkzd2tidzd2_641;
{ /* ./Object/creator.scm 226 */
obj_t BgL_arg2425z00_665;
{ /* ./Object/creator.scm 226 */
BgL_typez00_bglt BgL_obj1003z00_1568;
BgL_obj1003z00_1568 = 
(BgL_typez00_bglt)(BgL_classz00_36); 
BgL_arg2425z00_665 = 
(((BgL_typez00_bglt)CREF(BgL_obj1003z00_1568))->BgL_idz00); } 
BgL_mkzd2tidzd2_641 = 
BGl_makezd2typedzd2identz00zzast_identz00(BgL_mkzd2idzd2_639, BgL_arg2425z00_665); } 
{ /* ./Object/creator.scm 226 */
obj_t BgL_alloczd2widezd2_642;
{ /* ./Object/creator.scm 227 */
obj_t BgL_arg2415z00_661;obj_t BgL_arg2416z00_662;
BgL_arg2415z00_661 = 
CNST_TABLE_REF(((long)13)); 
{ /* ./Object/creator.scm 227 */
BgL_typez00_bglt BgL_obj1003z00_1569;
BgL_obj1003z00_1569 = 
(BgL_typez00_bglt)(BgL_classz00_36); 
BgL_arg2416z00_662 = 
(((BgL_typez00_bglt)CREF(BgL_obj1003z00_1569))->BgL_idz00); } 
{ /* ./Object/creator.scm 227 */
obj_t BgL_list2418z00_663;
{ /* ./Object/creator.scm 227 */
obj_t BgL_arg2420z00_664;
BgL_arg2420z00_664 = 
MAKE_PAIR(BgL_arg2416z00_662, BNIL); 
BgL_list2418z00_663 = 
MAKE_PAIR(BgL_arg2415z00_661, BgL_arg2420z00_664); } 
BgL_alloczd2widezd2_642 = 
BGl_symbolzd2appendzd2zz__r4_symbols_6_4z00(BgL_list2418z00_663); } } 
{ /* ./Object/creator.scm 227 */
obj_t BgL_tidz00_643;
if(
CBOOL(BGl_za2sawza2z00zzengine_paramz00))
{ /* ./Object/creator.scm 232 */
obj_t BgL_arg2411z00_660;
{ /* ./Object/creator.scm 232 */
BgL_typez00_bglt BgL_obj1003z00_1570;
BgL_obj1003z00_1570 = 
(BgL_typez00_bglt)(BgL_classz00_36); 
BgL_arg2411z00_660 = 
(((BgL_typez00_bglt)CREF(BgL_obj1003z00_1570))->BgL_idz00); } 
BgL_tidz00_643 = 
BGl_sawzd2widezd2classzd2idzd2zzobject_classz00(BgL_arg2411z00_660); }  else 
{ /* ./Object/creator.scm 232 */
BgL_tidz00_643 = 
CNST_TABLE_REF(((long)14)); } 
{ /* ./Object/creator.scm 232 */
obj_t BgL_talloczd2widezd2_644;
BgL_talloczd2widezd2_644 = 
BGl_makezd2typedzd2identz00zzast_identz00(BgL_alloczd2widezd2_642, BgL_tidz00_643); 
{ /* ./Object/creator.scm 233 */
obj_t BgL_fzd2idszd2_645;
{ /* ./Object/creator.scm 234 */
obj_t BgL_arg2406z00_659;
{ 
obj_t BgL_auxz00_2134;
{ /* ./Object/creator.scm 234 */
BgL_objectz00_bglt BgL_auxz00_2135;
BgL_auxz00_2135 = 
(BgL_objectz00_bglt)(BgL_classz00_36); 
BgL_auxz00_2134 = 
BGL_OBJECT_WIDENING(BgL_auxz00_2135); } 
BgL_arg2406z00_659 = 
(((BgL_tclassz00_bglt)CREF(BgL_auxz00_2134))->BgL_slotsz00); } 
BgL_fzd2idszd2_645 = 
BGl_makezd2classzd2makezd2formalszd2zzobject_slotsz00(BgL_arg2406z00_659); } 
{ /* ./Object/creator.scm 234 */
obj_t BgL_fzd2tidszd2_646;
{ /* ./Object/creator.scm 235 */
obj_t BgL_arg2402z00_658;
{ 
obj_t BgL_auxz00_2140;
{ /* ./Object/creator.scm 235 */
BgL_objectz00_bglt BgL_auxz00_2141;
BgL_auxz00_2141 = 
(BgL_objectz00_bglt)(BgL_classz00_36); 
BgL_auxz00_2140 = 
BGL_OBJECT_WIDENING(BgL_auxz00_2141); } 
BgL_arg2402z00_658 = 
(((BgL_tclassz00_bglt)CREF(BgL_auxz00_2140))->BgL_slotsz00); } 
BgL_fzd2tidszd2_646 = 
BGl_makezd2classzd2makezd2typedzd2formalsz00zzobject_slotsz00(BgL_fzd2idszd2_645, BgL_arg2402z00_658); } 
{ /* ./Object/creator.scm 235 */
obj_t BgL_sslotsz00_647;
{ /* ./Object/creator.scm 236 */
BgL_tclassz00_bglt BgL_obj1612z00_1574;
{ /* ./Object/creator.scm 236 */
obj_t BgL_auxz00_2146;
{ 
obj_t BgL_auxz00_2147;
{ /* ./Object/creator.scm 236 */
BgL_objectz00_bglt BgL_auxz00_2148;
BgL_auxz00_2148 = 
(BgL_objectz00_bglt)(BgL_classz00_36); 
BgL_auxz00_2147 = 
BGL_OBJECT_WIDENING(BgL_auxz00_2148); } 
BgL_auxz00_2146 = 
(((BgL_tclassz00_bglt)CREF(BgL_auxz00_2147))->BgL_itszd2superzd2); } 
BgL_obj1612z00_1574 = 
(BgL_tclassz00_bglt)(BgL_auxz00_2146); } 
{ 
obj_t BgL_auxz00_2153;
{ /* ./Object/creator.scm 236 */
BgL_objectz00_bglt BgL_auxz00_2154;
BgL_auxz00_2154 = 
(BgL_objectz00_bglt)(BgL_obj1612z00_1574); 
BgL_auxz00_2153 = 
BGL_OBJECT_WIDENING(BgL_auxz00_2154); } 
BgL_sslotsz00_647 = 
(((BgL_tclassz00_bglt)CREF(BgL_auxz00_2153))->BgL_slotsz00); } } 
{ /* ./Object/creator.scm 236 */
obj_t BgL_szd2idszd2_648;
BgL_szd2idszd2_648 = 
BGl_makezd2classzd2makezd2formalszd2zzobject_slotsz00(BgL_sslotsz00_647); 
{ /* ./Object/creator.scm 237 */
obj_t BgL_szd2tidszd2_649;
BgL_szd2tidszd2_649 = 
BGl_makezd2classzd2makezd2typedzd2formalsz00zzobject_slotsz00(BgL_szd2idszd2_648, BgL_sslotsz00_647); 
{ /* ./Object/creator.scm 238 */

{ /* ./Object/creator.scm 240 */
obj_t BgL_arg2376z00_650;
{ /* ./Object/creator.scm 240 */
obj_t BgL_arg2381z00_652;
BgL_arg2381z00_652 = 
BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(BgL_szd2tidszd2_649, 
BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(BgL_fzd2tidszd2_646, BNIL)); 
BgL_arg2376z00_650 = 
MAKE_PAIR(BgL_mkzd2tidzd2_641, BgL_arg2381z00_652); } 
BGl_importzd2parserzd2zzmodule_impusez00(BgL_modulez00_38, BgL_arg2376z00_650, BNIL); } 
{ /* ./Object/creator.scm 241 */
obj_t BgL_arg2388z00_654;
{ /* ./Object/creator.scm 241 */
obj_t BgL_arg2392z00_656;
BgL_arg2392z00_656 = 
BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(BgL_fzd2tidszd2_646, BNIL); 
BgL_arg2388z00_654 = 
MAKE_PAIR(BgL_talloczd2widezd2_644, BgL_arg2392z00_656); } 
BGl_importzd2parserzd2zzmodule_impusez00(BgL_modulez00_38, BgL_arg2388z00_654, BNIL); } 
return BNIL;} } } } } } } } } } } } } 
}



/* import-java-class-creator */
BGL_EXPORTED_DEF obj_t BGl_importzd2javazd2classzd2creatorzd2zzobject_creatorz00(BgL_jclassz00_bglt BgL_classz00_39, obj_t BgL_constrsz00_40, obj_t BgL_srczd2defzd2_41)
{ AN_OBJECT;
{ /* ./Object/creator.scm 248 */
{ /* ./Object/creator.scm 249 */
bool_t BgL_test2452z00_1575;
BgL_test2452z00_1575 = 
PAIRP(BgL_constrsz00_40); 
if(BgL_test2452z00_1575)
{ /* ./Object/creator.scm 249 */
return 
BGl_genzd2javazd2classzd2creatorzd2zzobject_creatorz00(BgL_classz00_39, BgL_srczd2defzd2_41);}  else 
{ /* ./Object/creator.scm 249 */
return BNIL;} } } 
}



/* _import-java-class-creator */
obj_t BGl__importzd2javazd2classzd2creatorzd2zzobject_creatorz00(obj_t BgL_envz00_1728, obj_t BgL_classz00_1729, obj_t BgL_constrsz00_1730, obj_t BgL_srczd2defzd2_1731)
{ AN_OBJECT;
{ /* ./Object/creator.scm 248 */
return 
BGl_importzd2javazd2classzd2creatorzd2zzobject_creatorz00(
(BgL_jclassz00_bglt)(BgL_classz00_1729), BgL_constrsz00_1730, BgL_srczd2defzd2_1731);} 
}



/* gen-java-class-constructors */
BGL_EXPORTED_DEF obj_t BGl_genzd2javazd2classzd2constructorszd2zzobject_creatorz00(BgL_jclassz00_bglt BgL_classz00_42, obj_t BgL_constrsz00_43, obj_t BgL_srczd2defzd2_44)
{ AN_OBJECT;
{ /* ./Object/creator.scm 256 */
{ /* ./Object/creator.scm 286 */
bool_t BgL_test2455z00_679;
BgL_test2455z00_679 = 
NULLP(BgL_constrsz00_43); 
if(BgL_test2455z00_679)
{ /* ./Object/creator.scm 286 */
return BNIL;}  else 
{ /* ./Object/creator.scm 286 */
obj_t BgL_head1918z00_680;
{ /* ./Object/creator.scm 286 */
obj_t BgL_arg2476z00_691;
{ /* ./Object/creator.scm 286 */
obj_t BgL_arg2480z00_693;
BgL_arg2480z00_693 = 
CAR(BgL_constrsz00_43); 
BgL_arg2476z00_691 = 
BGl_genzd2onezd2constructorz00zzobject_creatorz00(BgL_constrsz00_43, BgL_classz00_42, BgL_arg2480z00_693); } 
BgL_head1918z00_680 = 
MAKE_PAIR(BgL_arg2476z00_691, BNIL); } 
{ 
obj_t BgL_l1916z00_681;obj_t BgL_tail1919z00_682;
{ /* ./Object/creator.scm 286 */
obj_t BgL_arg2457z00_684;
BgL_arg2457z00_684 = 
CDR(BgL_constrsz00_43); 
BgL_l1916z00_681 = BgL_arg2457z00_684; 
BgL_tail1919z00_682 = BgL_head1918z00_680; 
BgL_map1917z00_683:
{ /* ./Object/creator.scm 286 */
bool_t BgL_test2460z00_685;
BgL_test2460z00_685 = 
NULLP(BgL_l1916z00_681); 
if(BgL_test2460z00_685)
{ /* ./Object/creator.scm 286 */
return BgL_head1918z00_680;}  else 
{ /* ./Object/creator.scm 286 */
obj_t BgL_newtail1920z00_686;
{ /* ./Object/creator.scm 286 */
obj_t BgL_arg2467z00_688;
{ /* ./Object/creator.scm 286 */
obj_t BgL_arg2471z00_690;
BgL_arg2471z00_690 = 
CAR(BgL_l1916z00_681); 
BgL_arg2467z00_688 = 
BGl_genzd2onezd2constructorz00zzobject_creatorz00(BgL_constrsz00_43, BgL_classz00_42, BgL_arg2471z00_690); } 
BgL_newtail1920z00_686 = 
MAKE_PAIR(BgL_arg2467z00_688, BNIL); } 
SET_CDR(BgL_tail1919z00_682, BgL_newtail1920z00_686); 
{ /* ./Object/creator.scm 286 */
obj_t BgL_arg2463z00_687;
BgL_arg2463z00_687 = 
CDR(BgL_l1916z00_681); 
{ 
obj_t BgL_tail1919z00_2186;obj_t BgL_l1916z00_2185;
BgL_l1916z00_2185 = BgL_arg2463z00_687; 
BgL_tail1919z00_2186 = BgL_newtail1920z00_686; 
BgL_tail1919z00_682 = BgL_tail1919z00_2186; 
BgL_l1916z00_681 = BgL_l1916z00_2185; 
goto BgL_map1917z00_683;} } } } } } } } } 
}



/* gen-one-constructor */
obj_t BGl_genzd2onezd2constructorz00zzobject_creatorz00(obj_t BgL_constrsz00_1737, BgL_jclassz00_bglt BgL_classz00_1736, obj_t BgL_constrz00_694)
{ AN_OBJECT;
{ /* ./Object/creator.scm 285 */
{ 
obj_t BgL_identz00_696;obj_t BgL_argszd2typezd2_697;
{ /* ./Object/creator.scm 285 */
bool_t BgL_test2485z00_700;
BgL_test2485z00_700 = 
PAIRP(BgL_constrz00_694); 
if(BgL_test2485z00_700)
{ /* ./Object/creator.scm 285 */
obj_t BgL_arg2487z00_701;obj_t BgL_arg2488z00_702;
BgL_arg2487z00_701 = 
CAR(BgL_constrz00_694); 
BgL_arg2488z00_702 = 
CDR(BgL_constrz00_694); 
BgL_identz00_696 = BgL_arg2487z00_701; 
BgL_argszd2typezd2_697 = BgL_arg2488z00_702; 
{ /* ./Object/creator.scm 263 */
obj_t BgL_jidz00_703;
{ /* ./Object/creator.scm 263 */
BgL_typez00_bglt BgL_obj1003z00_1592;
BgL_obj1003z00_1592 = 
(BgL_typez00_bglt)(BgL_classz00_1736); 
BgL_jidz00_703 = 
(((BgL_typez00_bglt)CREF(BgL_obj1003z00_1592))->BgL_idz00); } 
{ /* ./Object/creator.scm 263 */
obj_t BgL_locz00_704;
BgL_locz00_704 = 
BGl_findzd2locationzd2zztools_locationz00(BgL_constrsz00_1737); 
{ /* ./Object/creator.scm 264 */
obj_t BgL_cidz00_705;
BgL_cidz00_705 = 
BGl_fastzd2idzd2ofzd2idzd2zzast_identz00(BgL_identz00_696, BgL_locz00_704); 
{ /* ./Object/creator.scm 265 */
obj_t BgL_tidz00_706;
{ /* ./Object/creator.scm 266 */
obj_t BgL_arg2664z00_795;
{ /* ./Object/creator.scm 266 */
obj_t BgL_list2667z00_796;
{ /* ./Object/creator.scm 266 */
obj_t BgL_arg2669z00_797;
{ /* ./Object/creator.scm 266 */
obj_t BgL_arg2672z00_798;obj_t BgL_arg2673z00_799;
BgL_arg2672z00_798 = 
CNST_TABLE_REF(((long)5)); 
BgL_arg2673z00_799 = 
MAKE_PAIR(BgL_cidz00_705, BNIL); 
BgL_arg2669z00_797 = 
MAKE_PAIR(BgL_arg2672z00_798, BgL_arg2673z00_799); } 
BgL_list2667z00_796 = 
MAKE_PAIR(BgL_jidz00_703, BgL_arg2669z00_797); } 
BgL_arg2664z00_795 = 
BGl_symbolzd2appendzd2zz__r4_symbols_6_4z00(BgL_list2667z00_796); } 
BgL_tidz00_706 = 
BGl_makezd2typedzd2identz00zzast_identz00(BgL_arg2664z00_795, BgL_jidz00_703); } 
{ /* ./Object/creator.scm 266 */
obj_t BgL_argszd2idzd2_707;
{ /* ./Object/creator.scm 267 */
bool_t BgL_test2642z00_783;
BgL_test2642z00_783 = 
NULLP(BgL_argszd2typezd2_697); 
if(BgL_test2642z00_783)
{ /* ./Object/creator.scm 267 */
BgL_argszd2idzd2_707 = BNIL; }  else 
{ /* ./Object/creator.scm 267 */
obj_t BgL_head1907z00_784;
BgL_head1907z00_784 = 
MAKE_PAIR(BNIL, BNIL); 
{ 
obj_t BgL_l1905z00_785;obj_t BgL_tail1908z00_786;
BgL_l1905z00_785 = BgL_argszd2typezd2_697; 
BgL_tail1908z00_786 = BgL_head1907z00_784; 
BgL_map1906z00_787:
{ /* ./Object/creator.scm 267 */
bool_t BgL_test2644z00_788;
BgL_test2644z00_788 = 
NULLP(BgL_l1905z00_785); 
if(BgL_test2644z00_788)
{ /* ./Object/creator.scm 267 */
BgL_argszd2idzd2_707 = 
CDR(BgL_head1907z00_784); }  else 
{ /* ./Object/creator.scm 267 */
obj_t BgL_newtail1909z00_789;
{ /* ./Object/creator.scm 267 */
obj_t BgL_arg2652z00_791;
{ /* ./Object/creator.scm 267 */
obj_t BgL_arg2656z00_794;
BgL_arg2656z00_794 = 
PROCEDURE_ENTRY(BGl_gensymz00zz__r4_symbols_6_4z00)(BGl_gensymz00zz__r4_symbols_6_4z00, BEOA); 
BgL_arg2652z00_791 = 
BGl_markzd2symbolzd2nonzd2userz12zc0zzast_identz00(BgL_arg2656z00_794); } 
BgL_newtail1909z00_789 = 
MAKE_PAIR(BgL_arg2652z00_791, BNIL); } 
SET_CDR(BgL_tail1908z00_786, BgL_newtail1909z00_789); 
{ /* ./Object/creator.scm 267 */
obj_t BgL_arg2648z00_790;
BgL_arg2648z00_790 = 
CDR(BgL_l1905z00_785); 
{ 
obj_t BgL_tail1908z00_2214;obj_t BgL_l1905z00_2213;
BgL_l1905z00_2213 = BgL_arg2648z00_790; 
BgL_tail1908z00_2214 = BgL_newtail1909z00_789; 
BgL_tail1908z00_786 = BgL_tail1908z00_2214; 
BgL_l1905z00_785 = BgL_l1905z00_2213; 
goto BgL_map1906z00_787;} } } } } } } 
{ /* ./Object/creator.scm 267 */
obj_t BgL_selfz00_708;
{ /* ./Object/creator.scm 269 */
obj_t BgL_arg2639z00_781;
BgL_arg2639z00_781 = 
PROCEDURE_ENTRY(BGl_gensymz00zz__r4_symbols_6_4z00)(BGl_gensymz00zz__r4_symbols_6_4z00, BEOA); 
BgL_selfz00_708 = 
BGl_markzd2symbolzd2nonzd2userz12zc0zzast_identz00(BgL_arg2639z00_781); } 
{ /* ./Object/creator.scm 269 */
obj_t BgL_tselfz00_709;
BgL_tselfz00_709 = 
BGl_makezd2typedzd2identz00zzast_identz00(BgL_selfz00_708, BgL_jidz00_703); 
{ /* ./Object/creator.scm 270 */
obj_t BgL_targsz00_710;
{ /* ./Object/creator.scm 271 */
bool_t BgL_test2611z00_765;
BgL_test2611z00_765 = 
NULLP(BgL_argszd2idzd2_707); 
if(BgL_test2611z00_765)
{ /* ./Object/creator.scm 271 */
BgL_targsz00_710 = BNIL; }  else 
{ /* ./Object/creator.scm 271 */
obj_t BgL_head1912z00_766;
BgL_head1912z00_766 = 
MAKE_PAIR(BNIL, BNIL); 
{ 
obj_t BgL_ll1910z00_767;obj_t BgL_ll1911z00_768;obj_t BgL_tail1913z00_769;
BgL_ll1910z00_767 = BgL_argszd2idzd2_707; 
BgL_ll1911z00_768 = BgL_argszd2typezd2_697; 
BgL_tail1913z00_769 = BgL_head1912z00_766; 
BgL_map1915z00_770:
{ /* ./Object/creator.scm 271 */
bool_t BgL_test2613z00_771;
BgL_test2613z00_771 = 
NULLP(BgL_ll1910z00_767); 
if(BgL_test2613z00_771)
{ /* ./Object/creator.scm 271 */
BgL_targsz00_710 = 
CDR(BgL_head1912z00_766); }  else 
{ /* ./Object/creator.scm 272 */
obj_t BgL_newtail1914z00_772;
{ /* ./Object/creator.scm 272 */
obj_t BgL_arg2623z00_775;
{ /* ./Object/creator.scm 272 */
obj_t BgL_idz00_777;obj_t BgL_typez00_778;
BgL_idz00_777 = 
CAR(BgL_ll1910z00_767); 
BgL_typez00_778 = 
CAR(BgL_ll1911z00_768); 
{ /* ./Object/creator.scm 272 */
obj_t BgL_list2627z00_779;
{ /* ./Object/creator.scm 272 */
obj_t BgL_arg2629z00_780;
BgL_arg2629z00_780 = 
MAKE_PAIR(BgL_typez00_778, BNIL); 
BgL_list2627z00_779 = 
MAKE_PAIR(BgL_idz00_777, BgL_arg2629z00_780); } 
BgL_arg2623z00_775 = 
BGl_symbolzd2appendzd2zz__r4_symbols_6_4z00(BgL_list2627z00_779); } } 
BgL_newtail1914z00_772 = 
MAKE_PAIR(BgL_arg2623z00_775, BNIL); } 
SET_CDR(BgL_tail1913z00_769, BgL_newtail1914z00_772); 
{ /* ./Object/creator.scm 271 */
obj_t BgL_arg2617z00_773;obj_t BgL_arg2618z00_774;
BgL_arg2617z00_773 = 
CDR(BgL_ll1910z00_767); 
BgL_arg2618z00_774 = 
CDR(BgL_ll1911z00_768); 
{ 
obj_t BgL_tail1913z00_2236;obj_t BgL_ll1911z00_2235;obj_t BgL_ll1910z00_2234;
BgL_ll1910z00_2234 = BgL_arg2617z00_773; 
BgL_ll1911z00_2235 = BgL_arg2618z00_774; 
BgL_tail1913z00_2236 = BgL_newtail1914z00_772; 
BgL_tail1913z00_769 = BgL_tail1913z00_2236; 
BgL_ll1911z00_768 = BgL_ll1911z00_2235; 
BgL_ll1910z00_767 = BgL_ll1910z00_2234; 
goto BgL_map1915z00_770;} } } } } } } 
{ /* ./Object/creator.scm 271 */
obj_t BgL_defz00_711;
if(
CBOOL(BGl_za2sawza2z00zzengine_paramz00))
{ /* ./Object/creator.scm 277 */
obj_t BgL_arg2510z00_719;obj_t BgL_arg2511z00_720;
BgL_arg2510z00_719 = 
CNST_TABLE_REF(((long)15)); 
{ /* ./Object/creator.scm 275 */
obj_t BgL_arg2514z00_721;obj_t BgL_arg2515z00_722;
{ /* ./Object/creator.scm 275 */
obj_t BgL_arg2518z00_723;
BgL_arg2518z00_723 = 
BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(BgL_targsz00_710, BNIL); 
BgL_arg2514z00_721 = 
MAKE_PAIR(BgL_tidz00_706, BgL_arg2518z00_723); } 
{ /* ./Object/creator.scm 277 */
obj_t BgL_arg2522z00_724;
{ /* ./Object/creator.scm 277 */
obj_t BgL_runner2533z00_730;
{ /* ./Object/creator.scm 277 */
obj_t BgL_list2526z00_726;
{ /* ./Object/creator.scm 277 */
obj_t BgL_arg2528z00_727;
BgL_arg2528z00_727 = 
MAKE_PAIR(BgL_argszd2idzd2_707, BNIL); 
BgL_list2526z00_726 = 
MAKE_PAIR(BgL_jidz00_703, BgL_arg2528z00_727); } 
BgL_runner2533z00_730 = 
BGl_consza2za2zz__r4_pairs_and_lists_6_3z00(
CNST_TABLE_REF(((long)9)), BgL_list2526z00_726); } 
{ /* ./Object/creator.scm 277 */
obj_t BgL_aux2531z00_728;
{ /* ./Object/creator.scm 277 */
obj_t BgL_pairz00_1617;
BgL_pairz00_1617 = BgL_runner2533z00_730; 
BgL_aux2531z00_728 = 
CAR(BgL_pairz00_1617); } 
{ /* ./Object/creator.scm 277 */
obj_t BgL_pairz00_1618;
BgL_pairz00_1618 = BgL_runner2533z00_730; 
BgL_runner2533z00_730 = 
CDR(BgL_pairz00_1618); } 
{ /* ./Object/creator.scm 277 */
obj_t BgL_aux2532z00_729;
{ /* ./Object/creator.scm 277 */
obj_t BgL_pairz00_1619;
BgL_pairz00_1619 = BgL_runner2533z00_730; 
BgL_aux2532z00_729 = 
CAR(BgL_pairz00_1619); } 
{ /* ./Object/creator.scm 277 */
obj_t BgL_pairz00_1620;
BgL_pairz00_1620 = BgL_runner2533z00_730; 
BgL_runner2533z00_730 = 
CDR(BgL_pairz00_1620); } 
BgL_arg2522z00_724 = 
BGl_makezd2privatezd2sexpz00zzast_privatez00(BgL_aux2531z00_728, BgL_aux2532z00_729, BgL_runner2533z00_730); } } } 
BgL_arg2515z00_722 = 
MAKE_PAIR(BgL_arg2522z00_724, BNIL); } 
BgL_arg2511z00_720 = 
MAKE_PAIR(BgL_arg2514z00_721, BgL_arg2515z00_722); } 
BgL_defz00_711 = 
MAKE_PAIR(BgL_arg2510z00_719, BgL_arg2511z00_720); }  else 
{ /* ./Object/creator.scm 282 */
obj_t BgL_arg2539z00_731;obj_t BgL_arg2540z00_732;
BgL_arg2539z00_731 = 
CNST_TABLE_REF(((long)15)); 
{ /* ./Object/creator.scm 278 */
obj_t BgL_arg2543z00_733;obj_t BgL_arg2544z00_734;
{ /* ./Object/creator.scm 278 */
obj_t BgL_arg2547z00_735;
BgL_arg2547z00_735 = 
BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(BgL_targsz00_710, BNIL); 
BgL_arg2543z00_733 = 
MAKE_PAIR(BgL_tidz00_706, BgL_arg2547z00_735); } 
{ /* ./Object/creator.scm 279 */
obj_t BgL_arg2551z00_736;
{ /* ./Object/creator.scm 279 */
obj_t BgL_arg2555z00_738;obj_t BgL_arg2556z00_739;
BgL_arg2555z00_738 = 
CNST_TABLE_REF(((long)16)); 
{ /* ./Object/creator.scm 279 */
obj_t BgL_arg2559z00_740;obj_t BgL_arg2560z00_741;
{ /* ./Object/creator.scm 279 */
obj_t BgL_arg2563z00_742;
{ /* ./Object/creator.scm 279 */
obj_t BgL_arg2567z00_744;
{ /* ./Object/creator.scm 279 */
obj_t BgL_arg2570z00_745;
{ /* ./Object/creator.scm 279 */
obj_t BgL_arg2574z00_747;
{ /* ./Object/creator.scm 279 */
obj_t BgL_list2578z00_749;
{ /* ./Object/creator.scm 279 */
obj_t BgL_arg2580z00_750;obj_t BgL_arg2581z00_751;
BgL_arg2580z00_750 = 
CNST_TABLE_REF(((long)7)); 
BgL_arg2581z00_751 = 
MAKE_PAIR(BgL_jidz00_703, BNIL); 
BgL_list2578z00_749 = 
MAKE_PAIR(BgL_arg2580z00_750, BgL_arg2581z00_751); } 
BgL_arg2574z00_747 = 
BGl_symbolzd2appendzd2zz__r4_symbols_6_4z00(BgL_list2578z00_749); } 
BgL_arg2570z00_745 = 
MAKE_PAIR(BgL_arg2574z00_747, BNIL); } 
BgL_arg2567z00_744 = 
MAKE_PAIR(BgL_arg2570z00_745, BNIL); } 
BgL_arg2563z00_742 = 
MAKE_PAIR(BgL_tselfz00_709, BgL_arg2567z00_744); } 
BgL_arg2559z00_740 = 
MAKE_PAIR(BgL_arg2563z00_742, BNIL); } 
{ /* ./Object/creator.scm 281 */
obj_t BgL_arg2585z00_752;obj_t BgL_arg2586z00_753;
{ /* ./Object/creator.scm 281 */
obj_t BgL_arg2589z00_754;obj_t BgL_arg2590z00_755;
{ /* ./Object/creator.scm 281 */
obj_t BgL_list2593z00_756;
{ /* ./Object/creator.scm 281 */
obj_t BgL_arg2595z00_757;obj_t BgL_arg2596z00_758;
BgL_arg2595z00_757 = 
CNST_TABLE_REF(((long)17)); 
{ /* ./Object/creator.scm 281 */
obj_t BgL_arg2599z00_759;
{ /* ./Object/creator.scm 281 */
obj_t BgL_arg2602z00_760;obj_t BgL_arg2603z00_761;
BgL_arg2602z00_760 = 
CNST_TABLE_REF(((long)5)); 
BgL_arg2603z00_761 = 
MAKE_PAIR(BgL_cidz00_705, BNIL); 
BgL_arg2599z00_759 = 
MAKE_PAIR(BgL_arg2602z00_760, BgL_arg2603z00_761); } 
BgL_arg2596z00_758 = 
MAKE_PAIR(BgL_jidz00_703, BgL_arg2599z00_759); } 
BgL_list2593z00_756 = 
MAKE_PAIR(BgL_arg2595z00_757, BgL_arg2596z00_758); } 
BgL_arg2589z00_754 = 
BGl_symbolzd2appendzd2zz__r4_symbols_6_4z00(BgL_list2593z00_756); } 
{ /* ./Object/creator.scm 281 */
obj_t BgL_arg2607z00_762;
BgL_arg2607z00_762 = 
BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(BgL_argszd2idzd2_707, BNIL); 
BgL_arg2590z00_755 = 
MAKE_PAIR(BgL_selfz00_708, BgL_arg2607z00_762); } 
BgL_arg2585z00_752 = 
MAKE_PAIR(BgL_arg2589z00_754, BgL_arg2590z00_755); } 
BgL_arg2586z00_753 = 
MAKE_PAIR(BgL_selfz00_708, BNIL); 
BgL_arg2560z00_741 = 
MAKE_PAIR(BgL_arg2585z00_752, BgL_arg2586z00_753); } 
BgL_arg2556z00_739 = 
MAKE_PAIR(BgL_arg2559z00_740, BgL_arg2560z00_741); } 
BgL_arg2551z00_736 = 
MAKE_PAIR(BgL_arg2555z00_738, BgL_arg2556z00_739); } 
BgL_arg2544z00_734 = 
MAKE_PAIR(BgL_arg2551z00_736, BNIL); } 
BgL_arg2540z00_732 = 
MAKE_PAIR(BgL_arg2543z00_733, BgL_arg2544z00_734); } 
BgL_defz00_711 = 
MAKE_PAIR(BgL_arg2539z00_731, BgL_arg2540z00_732); } 
{ /* ./Object/creator.scm 274 */
obj_t BgL_modz00_712;
{ /* ./Object/creator.scm 283 */
obj_t BgL_arg2498z00_714;obj_t BgL_arg2499z00_715;
BgL_arg2498z00_714 = 
CNST_TABLE_REF(((long)10)); 
{ /* ./Object/creator.scm 283 */
obj_t BgL_arg2502z00_716;
{ /* ./Object/creator.scm 283 */
obj_t BgL_arg2506z00_718;
BgL_arg2506z00_718 = 
BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(BgL_argszd2typezd2_697, BNIL); 
BgL_arg2502z00_716 = 
MAKE_PAIR(BgL_tidz00_706, BgL_arg2506z00_718); } 
BgL_arg2499z00_715 = 
MAKE_PAIR(BgL_arg2502z00_716, BNIL); } 
BgL_modz00_712 = 
MAKE_PAIR(BgL_arg2498z00_714, BgL_arg2499z00_715); } 
{ /* ./Object/creator.scm 283 */

BGl_producezd2modulezd2clausez12z12zzmodule_modulez00(BgL_modz00_712); 
{ /* ./Object/creator.scm 285 */
obj_t BgL_list2495z00_713;
BgL_list2495z00_713 = 
MAKE_PAIR(BgL_constrz00_694, BNIL); 
return 
BGl_epairifyza2za2zztools_miscz00(BgL_defz00_711, BgL_list2495z00_713);} } } } } } } } } } } } }  else 
{ /* ./Object/creator.scm 285 */
return BFALSE;} } } } 
}



/* _gen-java-class-constructors */
obj_t BGl__genzd2javazd2classzd2constructorszd2zzobject_creatorz00(obj_t BgL_envz00_1732, obj_t BgL_classz00_1733, obj_t BgL_constrsz00_1734, obj_t BgL_srczd2defzd2_1735)
{ AN_OBJECT;
{ /* ./Object/creator.scm 256 */
return 
BGl_genzd2javazd2classzd2constructorszd2zzobject_creatorz00(
(BgL_jclassz00_bglt)(BgL_classz00_1733), BgL_constrsz00_1734, BgL_srczd2defzd2_1735);} 
}



/* gen-class-fill! */
obj_t BGl_genzd2classzd2fillz12z12zzobject_creatorz00(obj_t BgL_fillzd2idzd2_45, obj_t BgL_idz00_46, BgL_tclassz00_bglt BgL_typez00_47, obj_t BgL_srczd2defzd2_48, obj_t BgL_importz00_49)
{ AN_OBJECT;
{ /* ./Object/creator.scm 294 */
{ /* ./Object/creator.scm 295 */
obj_t BgL_tidz00_801;
{ /* ./Object/creator.scm 295 */
bool_t BgL_test2790z00_865;
{ /* ./Object/creator.scm 295 */
bool_t BgL_test2796z00_867;
BgL_test2796z00_867 = 
BGl_widezd2classzf3z21zzobject_classz00(
(obj_t)(BgL_typez00_47)); 
if(BgL_test2796z00_867)
{ /* ./Object/creator.scm 295 */
BgL_test2790z00_865 = 
CBOOL(BGl_za2sawza2z00zzengine_paramz00); }  else 
{ /* ./Object/creator.scm 295 */
BgL_test2790z00_865 = ((bool_t)0); } } 
if(BgL_test2790z00_865)
{ /* ./Object/creator.scm 297 */
obj_t BgL_arg2792z00_866;
{ /* ./Object/creator.scm 297 */
BgL_typez00_bglt BgL_obj1003z00_1621;
BgL_obj1003z00_1621 = 
(BgL_typez00_bglt)(BgL_typez00_47); 
BgL_arg2792z00_866 = 
(((BgL_typez00_bglt)CREF(BgL_obj1003z00_1621))->BgL_idz00); } 
BgL_tidz00_801 = 
BGl_sawzd2widezd2classzd2idzd2zzobject_classz00(BgL_arg2792z00_866); }  else 
{ /* ./Object/creator.scm 298 */
BgL_typez00_bglt BgL_obj1003z00_1622;
BgL_obj1003z00_1622 = 
(BgL_typez00_bglt)(BgL_typez00_47); 
BgL_tidz00_801 = 
(((BgL_typez00_bglt)CREF(BgL_obj1003z00_1622))->BgL_idz00); } } 
{ /* ./Object/creator.scm 295 */
obj_t BgL_slotsz00_802;
{ 
obj_t BgL_auxz00_2303;
{ /* ./Object/creator.scm 299 */
BgL_objectz00_bglt BgL_auxz00_2304;
BgL_auxz00_2304 = 
(BgL_objectz00_bglt)(BgL_typez00_47); 
BgL_auxz00_2303 = 
BGL_OBJECT_WIDENING(BgL_auxz00_2304); } 
BgL_slotsz00_802 = 
(((BgL_tclassz00_bglt)CREF(BgL_auxz00_2303))->BgL_slotsz00); } 
{ /* ./Object/creator.scm 299 */
obj_t BgL_constrsz00_803;
BgL_constrsz00_803 = 
BGl_findzd2classzd2constructorsz00zzobject_classz00(BgL_typez00_47); 
{ /* ./Object/creator.scm 300 */
obj_t BgL_fillzd2tidzd2_804;
{ /* ./Object/creator.scm 301 */
bool_t BgL_test2781z00_862;
{ /* ./Object/creator.scm 301 */
bool_t BgL_test2784z00_863;
BgL_test2784z00_863 = 
BGl_widezd2classzf3z21zzobject_classz00(
(obj_t)(BgL_typez00_47)); 
if(BgL_test2784z00_863)
{ /* ./Object/creator.scm 302 */
bool_t BgL_test2785z00_864;
{ /* ./Object/creator.scm 302 */
obj_t BgL_auxz00_2312;
BgL_auxz00_2312 = 
BGl_memqz00zz__r4_pairs_and_lists_6_3z00(BGl_za2targetzd2languageza2zd2zzengine_paramz00, 
CNST_TABLE_REF(((long)18))); 
BgL_test2785z00_864 = 
CBOOL(BgL_auxz00_2312); } 
if(BgL_test2785z00_864)
{ /* ./Object/creator.scm 302 */
if(
CBOOL(BGl_za2sawza2z00zzengine_paramz00))
{ /* ./Object/creator.scm 302 */
BgL_test2781z00_862 = ((bool_t)0); }  else 
{ /* ./Object/creator.scm 302 */
BgL_test2781z00_862 = ((bool_t)1); } }  else 
{ /* ./Object/creator.scm 302 */
BgL_test2781z00_862 = ((bool_t)0); } }  else 
{ /* ./Object/creator.scm 301 */
BgL_test2781z00_862 = ((bool_t)0); } } 
if(BgL_test2781z00_862)
{ /* ./Object/creator.scm 301 */
BgL_fillzd2tidzd2_804 = 
BGl_makezd2typedzd2identz00zzast_identz00(BgL_fillzd2idzd2_45, 
CNST_TABLE_REF(((long)14))); }  else 
{ /* ./Object/creator.scm 301 */
BgL_fillzd2tidzd2_804 = 
BGl_makezd2typedzd2identz00zzast_identz00(BgL_fillzd2idzd2_45, BgL_tidz00_801); } } 
{ /* ./Object/creator.scm 301 */
obj_t BgL_fzd2idszd2_805;
BgL_fzd2idszd2_805 = 
BGl_makezd2classzd2makezd2formalszd2zzobject_slotsz00(BgL_slotsz00_802); 
{ /* ./Object/creator.scm 306 */
obj_t BgL_fzd2tidszd2_806;
BgL_fzd2tidszd2_806 = 
BGl_makezd2classzd2makezd2typedzd2formalsz00zzobject_slotsz00(BgL_fzd2idszd2_805, BgL_slotsz00_802); 
{ /* ./Object/creator.scm 307 */
obj_t BgL_newz00_807;
{ /* ./Object/creator.scm 308 */
obj_t BgL_arg2776z00_861;
BgL_arg2776z00_861 = 
PROCEDURE_ENTRY(BGl_gensymz00zz__r4_symbols_6_4z00)(BGl_gensymz00zz__r4_symbols_6_4z00, 
CNST_TABLE_REF(((long)9)), BEOA); 
BgL_newz00_807 = 
BGl_markzd2symbolzd2nonzd2userz12zc0zzast_identz00(BgL_arg2776z00_861); } 
{ /* ./Object/creator.scm 308 */
obj_t BgL_tnewz00_808;
{ /* ./Object/creator.scm 309 */
bool_t BgL_test2769z00_859;
{ /* ./Object/creator.scm 309 */
bool_t BgL_test2772z00_860;
BgL_test2772z00_860 = 
BGl_widezd2classzf3z21zzobject_classz00(
(obj_t)(BgL_typez00_47)); 
if(BgL_test2772z00_860)
{ /* ./Object/creator.scm 310 */
obj_t BgL_auxz00_2332;
BgL_auxz00_2332 = 
BGl_memqz00zz__r4_pairs_and_lists_6_3z00(BGl_za2targetzd2languageza2zd2zzengine_paramz00, 
CNST_TABLE_REF(((long)18))); 
BgL_test2769z00_859 = 
CBOOL(BgL_auxz00_2332); }  else 
{ /* ./Object/creator.scm 309 */
BgL_test2769z00_859 = ((bool_t)0); } } 
if(BgL_test2769z00_859)
{ /* ./Object/creator.scm 309 */
BgL_tnewz00_808 = 
BGl_makezd2typedzd2identz00zzast_identz00(BgL_newz00_807, 
CNST_TABLE_REF(((long)14))); }  else 
{ /* ./Object/creator.scm 309 */
BgL_tnewz00_808 = 
BGl_makezd2typedzd2identz00zzast_identz00(BgL_newz00_807, BgL_tidz00_801); } } 
{ /* ./Object/creator.scm 309 */
obj_t BgL_ridz00_809;
{ /* ./Object/creator.scm 313 */
obj_t BgL_arg2766z00_858;
BgL_arg2766z00_858 = 
PROCEDURE_ENTRY(BGl_gensymz00zz__r4_symbols_6_4z00)(BGl_gensymz00zz__r4_symbols_6_4z00, 
CNST_TABLE_REF(((long)19)), BEOA); 
BgL_ridz00_809 = 
BGl_markzd2symbolzd2nonzd2userz12zc0zzast_identz00(BgL_arg2766z00_858); } 
{ /* ./Object/creator.scm 313 */
obj_t BgL_rtidz00_810;
{ /* ./Object/creator.scm 314 */
obj_t BgL_list2760z00_856;
{ /* ./Object/creator.scm 314 */
obj_t BgL_arg2762z00_857;
{ /* ./Object/creator.scm 314 */
obj_t BgL_auxz00_2344;
BgL_auxz00_2344 = 
CNST_TABLE_REF(((long)20)); 
BgL_arg2762z00_857 = 
MAKE_PAIR(BgL_auxz00_2344, BNIL); } 
BgL_list2760z00_856 = 
MAKE_PAIR(BgL_ridz00_809, BgL_arg2762z00_857); } 
BgL_rtidz00_810 = 
BGl_symbolzd2appendzd2zz__r4_symbols_6_4z00(BgL_list2760z00_856); } 
{ /* ./Object/creator.scm 314 */

{ 

{ /* ./Object/creator.scm 324 */
obj_t BgL_protoz00_812;obj_t BgL_bodyz00_813;
{ /* ./Object/creator.scm 324 */
obj_t BgL_arg2708z00_825;
BgL_arg2708z00_825 = 
MAKE_PAIR(BgL_tnewz00_808, BgL_fzd2tidszd2_806); 
BgL_protoz00_812 = 
MAKE_PAIR(BgL_fillzd2tidzd2_804, BgL_arg2708z00_825); } 
{ /* ./Object/creator.scm 317 */
obj_t BgL_alloczd2idzd2_828;
{ /* ./Object/creator.scm 318 */
obj_t BgL_list2752z00_852;
{ /* ./Object/creator.scm 318 */
obj_t BgL_arg2754z00_853;obj_t BgL_arg2755z00_854;
BgL_arg2754z00_853 = 
CNST_TABLE_REF(((long)7)); 
BgL_arg2755z00_854 = 
MAKE_PAIR(BgL_idz00_46, BNIL); 
BgL_list2752z00_852 = 
MAKE_PAIR(BgL_arg2754z00_853, BgL_arg2755z00_854); } 
BgL_alloczd2idzd2_828 = 
BGl_symbolzd2appendzd2zz__r4_symbols_6_4z00(BgL_list2752z00_852); } 
{ /* ./Object/creator.scm 318 */

{ /* ./Object/creator.scm 319 */
obj_t BgL_arg2714z00_829;obj_t BgL_arg2715z00_830;
BgL_arg2714z00_829 = 
CNST_TABLE_REF(((long)16)); 
{ /* ./Object/creator.scm 319 */
obj_t BgL_arg2718z00_831;obj_t BgL_arg2719z00_832;
{ /* ./Object/creator.scm 319 */
bool_t BgL_test2721z00_835;
BgL_test2721z00_835 = 
NULLP(BgL_fzd2tidszd2_806); 
if(BgL_test2721z00_835)
{ /* ./Object/creator.scm 319 */
BgL_arg2718z00_831 = BNIL; }  else 
{ /* ./Object/creator.scm 319 */
obj_t BgL_head1923z00_836;
BgL_head1923z00_836 = 
MAKE_PAIR(BNIL, BNIL); 
{ 
obj_t BgL_ll1921z00_837;obj_t BgL_ll1922z00_838;obj_t BgL_tail1924z00_839;
BgL_ll1921z00_837 = BgL_fzd2tidszd2_806; 
BgL_ll1922z00_838 = BgL_fzd2idszd2_805; 
BgL_tail1924z00_839 = BgL_head1923z00_836; 
BgL_map1926z00_840:
{ /* ./Object/creator.scm 319 */
bool_t BgL_test2723z00_841;
BgL_test2723z00_841 = 
NULLP(BgL_ll1921z00_837); 
if(BgL_test2723z00_841)
{ /* ./Object/creator.scm 319 */
BgL_arg2718z00_831 = 
CDR(BgL_head1923z00_836); }  else 
{ /* ./Object/creator.scm 319 */
obj_t BgL_newtail1925z00_842;
{ /* ./Object/creator.scm 319 */
obj_t BgL_arg2733z00_845;
{ /* ./Object/creator.scm 319 */
obj_t BgL_ftz00_847;obj_t BgL_fz00_848;
BgL_ftz00_847 = 
CAR(BgL_ll1921z00_837); 
BgL_fz00_848 = 
CAR(BgL_ll1922z00_838); 
{ /* ./Object/creator.scm 319 */
obj_t BgL_arg2737z00_849;
BgL_arg2737z00_849 = 
MAKE_PAIR(BgL_fz00_848, BNIL); 
BgL_arg2733z00_845 = 
MAKE_PAIR(BgL_ftz00_847, BgL_arg2737z00_849); } } 
BgL_newtail1925z00_842 = 
MAKE_PAIR(BgL_arg2733z00_845, BNIL); } 
SET_CDR(BgL_tail1924z00_839, BgL_newtail1925z00_842); 
{ /* ./Object/creator.scm 319 */
obj_t BgL_arg2727z00_843;obj_t BgL_arg2728z00_844;
BgL_arg2727z00_843 = 
CDR(BgL_ll1921z00_837); 
BgL_arg2728z00_844 = 
CDR(BgL_ll1922z00_838); 
{ 
obj_t BgL_tail1924z00_2372;obj_t BgL_ll1922z00_2371;obj_t BgL_ll1921z00_2370;
BgL_ll1921z00_2370 = BgL_arg2727z00_843; 
BgL_ll1922z00_2371 = BgL_arg2728z00_844; 
BgL_tail1924z00_2372 = BgL_newtail1925z00_842; 
BgL_tail1924z00_839 = BgL_tail1924z00_2372; 
BgL_ll1922z00_838 = BgL_ll1922z00_2371; 
BgL_ll1921z00_837 = BgL_ll1921z00_2370; 
goto BgL_map1926z00_840;} } } } } } } 
{ /* ./Object/creator.scm 320 */
obj_t BgL_arg2746z00_850;obj_t BgL_arg2747z00_851;
BgL_arg2746z00_850 = 
BGl_makezd2classzd2slotzd2makez12zc0zzobject_creatorz00(BgL_typez00_47, BgL_newz00_807, BgL_ridz00_809, BgL_rtidz00_810, BgL_slotsz00_802, BgL_fzd2idszd2_805); 
BgL_arg2747z00_851 = 
MAKE_PAIR(BgL_newz00_807, BNIL); 
BgL_arg2719z00_832 = 
BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(BgL_arg2746z00_850, BgL_arg2747z00_851); } 
BgL_arg2715z00_830 = 
MAKE_PAIR(BgL_arg2718z00_831, BgL_arg2719z00_832); } 
BgL_bodyz00_813 = 
MAKE_PAIR(BgL_arg2714z00_829, BgL_arg2715z00_830); } } } 
{ /* ./Object/creator.scm 327 */
obj_t BgL_arg2680z00_814;
{ /* ./Object/creator.scm 327 */
obj_t BgL_arg2683z00_815;
{ /* ./Object/creator.scm 327 */
obj_t BgL_arg2686z00_816;
{ /* ./Object/creator.scm 327 */
obj_t BgL_arg2690z00_818;obj_t BgL_arg2691z00_819;
BgL_arg2690z00_818 = 
CNST_TABLE_REF(((long)11)); 
BgL_arg2691z00_819 = 
BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(BgL_protoz00_812, BNIL); 
BgL_arg2686z00_816 = 
MAKE_PAIR(BgL_arg2690z00_818, BgL_arg2691z00_819); } 
BgL_arg2683z00_815 = 
MAKE_PAIR(BgL_arg2686z00_816, BNIL); } 
BgL_arg2680z00_814 = 
MAKE_PAIR(BgL_importz00_49, BgL_arg2683z00_815); } 
BGl_producezd2modulezd2clausez12z12zzmodule_modulez00(BgL_arg2680z00_814); } 
{ /* ./Object/creator.scm 329 */
obj_t BgL_arg2695z00_820;
{ /* ./Object/creator.scm 329 */
obj_t BgL_arg2700z00_822;obj_t BgL_arg2701z00_823;
BgL_arg2700z00_822 = 
CNST_TABLE_REF(((long)8)); 
{ /* ./Object/creator.scm 329 */
obj_t BgL_arg2704z00_824;
BgL_arg2704z00_824 = 
MAKE_PAIR(BgL_bodyz00_813, BNIL); 
BgL_arg2701z00_823 = 
MAKE_PAIR(BgL_protoz00_812, BgL_arg2704z00_824); } 
BgL_arg2695z00_820 = 
MAKE_PAIR(BgL_arg2700z00_822, BgL_arg2701z00_823); } 
{ /* ./Object/creator.scm 329 */
obj_t BgL_list2697z00_821;
BgL_list2697z00_821 = 
MAKE_PAIR(BgL_srczd2defzd2_48, BNIL); 
return 
BGl_epairifyza2za2zztools_miscz00(BgL_arg2695z00_820, BgL_list2697z00_821);} } } } } } } } } } } } } } } } 
}



/* gen-class-make! */
obj_t BGl_genzd2classzd2makez12z12zzobject_creatorz00(obj_t BgL_wideningz00_50, obj_t BgL_mkzd2idzd2_51, obj_t BgL_idz00_52, BgL_tclassz00_bglt BgL_typez00_53, obj_t BgL_srczd2defzd2_54, obj_t BgL_importz00_55)
{ AN_OBJECT;
{ /* ./Object/creator.scm 336 */
{ /* ./Object/creator.scm 337 */
obj_t BgL_tidz00_868;
{ /* ./Object/creator.scm 337 */
bool_t BgL_test3069z00_1011;
{ /* ./Object/creator.scm 337 */
bool_t BgL_test3075z00_1013;
{ /* ./Object/creator.scm 337 */
obj_t BgL_auxz00_2390;
BgL_auxz00_2390 = 
CNST_TABLE_REF(((long)6)); 
BgL_test3075z00_1013 = 
(BgL_wideningz00_50==BgL_auxz00_2390); } 
if(BgL_test3075z00_1013)
{ /* ./Object/creator.scm 338 */
bool_t BgL_test3076z00_1014;
BgL_test3076z00_1014 = 
BGl_widezd2classzf3z21zzobject_classz00(
(obj_t)(BgL_typez00_53)); 
if(BgL_test3076z00_1014)
{ /* ./Object/creator.scm 338 */
BgL_test3069z00_1011 = 
CBOOL(BGl_za2sawza2z00zzengine_paramz00); }  else 
{ /* ./Object/creator.scm 338 */
BgL_test3069z00_1011 = ((bool_t)0); } }  else 
{ /* ./Object/creator.scm 337 */
BgL_test3069z00_1011 = ((bool_t)0); } } 
if(BgL_test3069z00_1011)
{ /* ./Object/creator.scm 340 */
obj_t BgL_arg3071z00_1012;
{ /* ./Object/creator.scm 340 */
BgL_typez00_bglt BgL_obj1003z00_1638;
BgL_obj1003z00_1638 = 
(BgL_typez00_bglt)(BgL_typez00_53); 
BgL_arg3071z00_1012 = 
(((BgL_typez00_bglt)CREF(BgL_obj1003z00_1638))->BgL_idz00); } 
BgL_tidz00_868 = 
BGl_sawzd2widezd2classzd2idzd2zzobject_classz00(BgL_arg3071z00_1012); }  else 
{ /* ./Object/creator.scm 341 */
BgL_typez00_bglt BgL_obj1003z00_1639;
BgL_obj1003z00_1639 = 
(BgL_typez00_bglt)(BgL_typez00_53); 
BgL_tidz00_868 = 
(((BgL_typez00_bglt)CREF(BgL_obj1003z00_1639))->BgL_idz00); } } 
{ /* ./Object/creator.scm 337 */
obj_t BgL_slotsz00_869;
{ 
obj_t BgL_auxz00_2404;
{ /* ./Object/creator.scm 342 */
BgL_objectz00_bglt BgL_auxz00_2405;
BgL_auxz00_2405 = 
(BgL_objectz00_bglt)(BgL_typez00_53); 
BgL_auxz00_2404 = 
BGL_OBJECT_WIDENING(BgL_auxz00_2405); } 
BgL_slotsz00_869 = 
(((BgL_tclassz00_bglt)CREF(BgL_auxz00_2404))->BgL_slotsz00); } 
{ /* ./Object/creator.scm 343 */
obj_t BgL_constrsz00_871;
BgL_constrsz00_871 = 
BGl_findzd2classzd2constructorsz00zzobject_classz00(BgL_typez00_53); 
{ /* ./Object/creator.scm 344 */
obj_t BgL_mkzd2tidzd2_872;
{ /* ./Object/creator.scm 347 */
bool_t BgL_test3059z00_1008;
{ /* ./Object/creator.scm 347 */
bool_t BgL_test3062z00_1009;
{ /* ./Object/creator.scm 347 */
obj_t BgL_auxz00_2410;
BgL_auxz00_2410 = 
CNST_TABLE_REF(((long)6)); 
BgL_test3062z00_1009 = 
(BgL_wideningz00_50==BgL_auxz00_2410); } 
if(BgL_test3062z00_1009)
{ /* ./Object/creator.scm 348 */
bool_t BgL_test3063z00_1010;
{ /* ./Object/creator.scm 348 */
obj_t BgL_auxz00_2414;
BgL_auxz00_2414 = 
BGl_memqz00zz__r4_pairs_and_lists_6_3z00(BGl_za2targetzd2languageza2zd2zzengine_paramz00, 
CNST_TABLE_REF(((long)18))); 
BgL_test3063z00_1010 = 
CBOOL(BgL_auxz00_2414); } 
if(BgL_test3063z00_1010)
{ /* ./Object/creator.scm 348 */
if(
CBOOL(BGl_za2sawza2z00zzengine_paramz00))
{ /* ./Object/creator.scm 348 */
BgL_test3059z00_1008 = ((bool_t)0); }  else 
{ /* ./Object/creator.scm 348 */
BgL_test3059z00_1008 = ((bool_t)1); } }  else 
{ /* ./Object/creator.scm 348 */
BgL_test3059z00_1008 = ((bool_t)0); } }  else 
{ /* ./Object/creator.scm 347 */
BgL_test3059z00_1008 = ((bool_t)0); } } 
if(BgL_test3059z00_1008)
{ /* ./Object/creator.scm 347 */
BgL_mkzd2tidzd2_872 = 
BGl_makezd2typedzd2identz00zzast_identz00(BgL_mkzd2idzd2_51, 
CNST_TABLE_REF(((long)14))); }  else 
{ /* ./Object/creator.scm 347 */
BgL_mkzd2tidzd2_872 = 
BGl_makezd2typedzd2identz00zzast_identz00(BgL_mkzd2idzd2_51, BgL_tidz00_868); } } 
{ /* ./Object/creator.scm 347 */
obj_t BgL_fillzd2idzd2_873;
{ /* ./Object/creator.scm 352 */
obj_t BgL_list3050z00_1004;
{ /* ./Object/creator.scm 352 */
obj_t BgL_arg3052z00_1005;obj_t BgL_arg3053z00_1006;
BgL_arg3052z00_1005 = 
CNST_TABLE_REF(((long)1)); 
{ /* ./Object/creator.scm 352 */
obj_t BgL_arg3056z00_1007;
{ /* ./Object/creator.scm 352 */
obj_t BgL_auxz00_2426;
BgL_auxz00_2426 = 
CNST_TABLE_REF(((long)2)); 
BgL_arg3056z00_1007 = 
MAKE_PAIR(BgL_auxz00_2426, BNIL); } 
BgL_arg3053z00_1006 = 
MAKE_PAIR(BgL_idz00_52, BgL_arg3056z00_1007); } 
BgL_list3050z00_1004 = 
MAKE_PAIR(BgL_arg3052z00_1005, BgL_arg3053z00_1006); } 
BgL_fillzd2idzd2_873 = 
BGl_symbolzd2appendzd2zz__r4_symbols_6_4z00(BgL_list3050z00_1004); } 
{ /* ./Object/creator.scm 352 */
obj_t BgL_fzd2idszd2_874;
BgL_fzd2idszd2_874 = 
BGl_makezd2classzd2makezd2formalszd2zzobject_slotsz00(BgL_slotsz00_869); 
{ /* ./Object/creator.scm 353 */
obj_t BgL_fzd2tidszd2_875;
BgL_fzd2tidszd2_875 = 
BGl_makezd2classzd2makezd2typedzd2formalsz00zzobject_slotsz00(BgL_fzd2idszd2_874, BgL_slotsz00_869); 
{ /* ./Object/creator.scm 354 */
obj_t BgL_newz00_876;
{ /* ./Object/creator.scm 355 */
obj_t BgL_arg3044z00_1003;
BgL_arg3044z00_1003 = 
PROCEDURE_ENTRY(BGl_gensymz00zz__r4_symbols_6_4z00)(BGl_gensymz00zz__r4_symbols_6_4z00, 
CNST_TABLE_REF(((long)9)), BEOA); 
BgL_newz00_876 = 
BGl_markzd2symbolzd2nonzd2userz12zc0zzast_identz00(BgL_arg3044z00_1003); } 
{ /* ./Object/creator.scm 355 */
obj_t BgL_ridz00_877;
{ /* ./Object/creator.scm 356 */
obj_t BgL_arg3040z00_1002;
BgL_arg3040z00_1002 = 
PROCEDURE_ENTRY(BGl_gensymz00zz__r4_symbols_6_4z00)(BGl_gensymz00zz__r4_symbols_6_4z00, 
CNST_TABLE_REF(((long)19)), BEOA); 
BgL_ridz00_877 = 
BGl_markzd2symbolzd2nonzd2userz12zc0zzast_identz00(BgL_arg3040z00_1002); } 
{ /* ./Object/creator.scm 356 */
obj_t BgL_rtidz00_878;
{ /* ./Object/creator.scm 357 */
obj_t BgL_list3034z00_1000;
{ /* ./Object/creator.scm 357 */
obj_t BgL_arg3036z00_1001;
{ /* ./Object/creator.scm 357 */
obj_t BgL_auxz00_2442;
BgL_auxz00_2442 = 
CNST_TABLE_REF(((long)20)); 
BgL_arg3036z00_1001 = 
MAKE_PAIR(BgL_auxz00_2442, BNIL); } 
BgL_list3034z00_1000 = 
MAKE_PAIR(BgL_ridz00_877, BgL_arg3036z00_1001); } 
BgL_rtidz00_878 = 
BGl_symbolzd2appendzd2zz__r4_symbols_6_4z00(BgL_list3034z00_1000); } 
{ /* ./Object/creator.scm 357 */

{ 

{ /* ./Object/creator.scm 400 */
obj_t BgL_arg2799z00_882;
{ /* ./Object/creator.scm 400 */
obj_t BgL_arg2802z00_883;
{ /* ./Object/creator.scm 400 */
obj_t BgL_arg2805z00_884;
{ /* ./Object/creator.scm 400 */
obj_t BgL_arg2809z00_886;
BgL_arg2809z00_886 = 
BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(BgL_fzd2tidszd2_875, BNIL); 
BgL_arg2805z00_884 = 
MAKE_PAIR(BgL_mkzd2tidzd2_872, BgL_arg2809z00_886); } 
BgL_arg2802z00_883 = 
MAKE_PAIR(BgL_arg2805z00_884, BNIL); } 
BgL_arg2799z00_882 = 
MAKE_PAIR(BgL_importz00_55, BgL_arg2802z00_883); } 
BGl_producezd2modulezd2clausez12z12zzmodule_modulez00(BgL_arg2799z00_882); } 
{ /* ./Object/creator.scm 401 */
obj_t BgL_arg2813z00_887;
{ /* ./Object/creator.scm 401 */
obj_t BgL_arg2816z00_888;obj_t BgL_arg2817z00_889;
BgL_arg2816z00_888 = 
CNST_TABLE_REF(((long)24)); 
{ /* ./Object/creator.scm 401 */
obj_t BgL_arg2820z00_890;
{ /* ./Object/creator.scm 401 */
obj_t BgL_arg2824z00_892;
{ /* ./Object/creator.scm 401 */
obj_t BgL_auxz00_2453;
BgL_auxz00_2453 = 
CNST_TABLE_REF(((long)27)); 
BgL_arg2824z00_892 = 
MAKE_PAIR(BgL_auxz00_2453, BNIL); } 
BgL_arg2820z00_890 = 
MAKE_PAIR(BgL_mkzd2idzd2_51, BgL_arg2824z00_892); } 
BgL_arg2817z00_889 = 
MAKE_PAIR(BgL_arg2820z00_890, BNIL); } 
BgL_arg2813z00_887 = 
MAKE_PAIR(BgL_arg2816z00_888, BgL_arg2817z00_889); } 
BGl_producezd2modulezd2clausez12z12zzmodule_modulez00(BgL_arg2813z00_887); } 
{ /* ./Object/creator.scm 403 */
obj_t BgL_protoz00_893;obj_t BgL_bodyz00_894;
BgL_protoz00_893 = 
MAKE_PAIR(BgL_mkzd2tidzd2_872, BgL_fzd2tidszd2_875); 
{ /* ./Object/creator.scm 383 */
obj_t BgL_alloczd2idzd2_901;
{ /* ./Object/creator.scm 383 */
obj_t BgL_list2933z00_944;
{ /* ./Object/creator.scm 383 */
obj_t BgL_arg2935z00_945;obj_t BgL_arg2936z00_946;
BgL_arg2935z00_945 = 
CNST_TABLE_REF(((long)7)); 
BgL_arg2936z00_946 = 
MAKE_PAIR(BgL_idz00_52, BNIL); 
BgL_list2933z00_944 = 
MAKE_PAIR(BgL_arg2935z00_945, BgL_arg2936z00_946); } 
BgL_alloczd2idzd2_901 = 
BGl_symbolzd2appendzd2zz__r4_symbols_6_4z00(BgL_list2933z00_944); } 
{ /* ./Object/creator.scm 383 */

{ /* ./Object/creator.scm 384 */
obj_t BgL_arg2844z00_902;obj_t BgL_arg2845z00_903;
BgL_arg2844z00_902 = 
CNST_TABLE_REF(((long)16)); 
{ /* ./Object/creator.scm 384 */
obj_t BgL_arg2848z00_904;obj_t BgL_arg2849z00_905;
{ /* ./Object/creator.scm 384 */
obj_t BgL_arg2852z00_906;
{ /* ./Object/creator.scm 384 */
obj_t BgL_arg2856z00_908;obj_t BgL_arg2857z00_909;
BgL_arg2856z00_908 = 
BGl_makezd2typedzd2identz00zzast_identz00(BgL_newz00_876, BgL_tidz00_868); 
{ /* ./Object/creator.scm 385 */
obj_t BgL_arg2861z00_910;
{ /* ./Object/creator.scm 385 */
bool_t BgL_test2864z00_912;
{ /* ./Object/creator.scm 385 */
obj_t BgL_auxz00_2467;
BgL_auxz00_2467 = 
CNST_TABLE_REF(((long)6)); 
BgL_test2864z00_912 = 
(BgL_wideningz00_50==BgL_auxz00_2467); } 
if(BgL_test2864z00_912)
{ /* ./Object/creator.scm 385 */
{ 

{ /* ./Object/creator.scm 379 */
obj_t BgL_casezd2valuezd2_950;
BgL_casezd2valuezd2_950 = BGl_za2targetzd2languageza2zd2zzengine_paramz00; 
{ /* ./Object/creator.scm 379 */
bool_t BgL_test2940z00_951;
BgL_test2940z00_951 = 
BGl_eqvzf3zf3zz__r4_equivalence_6_2z00(BgL_casezd2valuezd2_950, 
CNST_TABLE_REF(((long)23))); 
if(BgL_test2940z00_951)
{ /* ./Object/creator.scm 379 */
{ /* ./Object/creator.scm 370 */
obj_t BgL_tnamez00_956;obj_t BgL_siza7eofza7_957;
{ /* ./Object/creator.scm 370 */
obj_t BgL_arg2977z00_969;
{ /* ./Object/creator.scm 370 */
BgL_typez00_bglt BgL_obj1004z00_1656;
BgL_obj1004z00_1656 = 
(BgL_typez00_bglt)(BgL_typez00_53); 
BgL_arg2977z00_969 = 
(((BgL_typez00_bglt)CREF(BgL_obj1004z00_1656))->BgL_namez00); } 
BgL_tnamez00_956 = 
BGl_stringzd2sanszd2z42z42zztype_toolsz00(BgL_arg2977z00_969); } 
{ /* ./Object/creator.scm 371 */
bool_t BgL_testz00_2477;
{ /* ./Object/creator.scm 371 */
obj_t BgL_auxz00_2478;
{ /* ./Object/creator.scm 371 */
BgL_typez00_bglt BgL_obj1007z00_1657;
BgL_obj1007z00_1657 = 
(BgL_typez00_bglt)(BgL_typez00_53); 
BgL_auxz00_2478 = 
(((BgL_typez00_bglt)CREF(BgL_obj1007z00_1657))->BgL_siza7eza7); } 
BgL_testz00_2477 = 
STRINGP(BgL_auxz00_2478); } 
if(BgL_testz00_2477)
{ /* ./Object/creator.scm 372 */
BgL_typez00_bglt BgL_obj1007z00_1659;
BgL_obj1007z00_1659 = 
(BgL_typez00_bglt)(BgL_typez00_53); 
BgL_siza7eofza7_957 = 
(((BgL_typez00_bglt)CREF(BgL_obj1007z00_1659))->BgL_siza7eza7); }  else 
{ /* ./Object/creator.scm 373 */
BgL_typez00_bglt BgL_obj1004z00_1660;
BgL_obj1004z00_1660 = 
(BgL_typez00_bglt)(BgL_typez00_53); 
BgL_siza7eofza7_957 = 
(((BgL_typez00_bglt)CREF(BgL_obj1004z00_1660))->BgL_namez00); } } 
{ /* ./Object/creator.scm 374 */
obj_t BgL_arg2951z00_958;obj_t BgL_arg2952z00_959;
BgL_arg2951z00_958 = 
BGl_makezd2typedzd2identz00zzast_identz00(
CNST_TABLE_REF(((long)22)), BgL_tidz00_868); 
{ /* ./Object/creator.scm 375 */
obj_t BgL_arg2956z00_960;
{ /* ./Object/creator.scm 375 */
obj_t BgL_list2960z00_962;
{ /* ./Object/creator.scm 375 */
obj_t BgL_arg2963z00_964;
{ /* ./Object/creator.scm 375 */
obj_t BgL_arg2966z00_965;
{ /* ./Object/creator.scm 375 */
obj_t BgL_arg2970z00_967;
{ /* ./Object/creator.scm 375 */
obj_t BgL_arg2973z00_968;
BgL_arg2973z00_968 = 
MAKE_PAIR(BGl_string4079z00zzobject_creatorz00, BNIL); 
BgL_arg2970z00_967 = 
MAKE_PAIR(BgL_siza7eofza7_957, BgL_arg2973z00_968); } 
BgL_arg2966z00_965 = 
MAKE_PAIR(BGl_string4080z00zzobject_creatorz00, BgL_arg2970z00_967); } 
BgL_arg2963z00_964 = 
MAKE_PAIR(BgL_tnamez00_956, BgL_arg2966z00_965); } 
BgL_list2960z00_962 = 
MAKE_PAIR(BGl_string4081z00zzobject_creatorz00, BgL_arg2963z00_964); } 
BgL_arg2956z00_960 = 
BGl_stringzd2appendzd2zz__r4_strings_6_7z00(BgL_list2960z00_962); } 
BgL_arg2952z00_959 = 
MAKE_PAIR(BgL_arg2956z00_960, BNIL); } 
BgL_arg2861z00_910 = 
MAKE_PAIR(BgL_arg2951z00_958, BgL_arg2952z00_959); } } }  else 
{ /* ./Object/creator.scm 379 */
bool_t BgL_test2942z00_952;
{ /* ./Object/creator.scm 379 */
obj_t BgL_auxz00_2496;
BgL_auxz00_2496 = 
BGl_memvz00zz__r4_pairs_and_lists_6_3z00(BgL_casezd2valuezd2_950, 
CNST_TABLE_REF(((long)18))); 
BgL_test2942z00_952 = 
CBOOL(BgL_auxz00_2496); } 
if(BgL_test2942z00_952)
{ /* ./Object/creator.scm 379 */
BgL_arg2861z00_910 = 
BGl_makezd2privatezd2sexpz00zzast_privatez00(
CNST_TABLE_REF(((long)9)), BgL_tidz00_868, BNIL); }  else 
{ /* ./Object/creator.scm 379 */
BgL_arg2861z00_910 = BUNSPEC; } } } } } }  else 
{ /* ./Object/creator.scm 385 */
BgL_arg2861z00_910 = 
MAKE_PAIR(BgL_alloczd2idzd2_901, BNIL); } } 
BgL_arg2857z00_909 = 
MAKE_PAIR(BgL_arg2861z00_910, BNIL); } 
BgL_arg2852z00_906 = 
MAKE_PAIR(BgL_arg2856z00_908, BgL_arg2857z00_909); } 
BgL_arg2848z00_904 = 
MAKE_PAIR(BgL_arg2852z00_906, BNIL); } 
{ /* ./Object/creator.scm 388 */
obj_t BgL_arg2869z00_913;obj_t BgL_arg2870z00_914;
{ /* ./Object/creator.scm 388 */
bool_t BgL_test2872z00_915;
{ /* ./Object/creator.scm 388 */
obj_t BgL_auxz00_2507;
BgL_auxz00_2507 = 
CNST_TABLE_REF(((long)6)); 
BgL_test2872z00_915 = 
(BgL_wideningz00_50==BgL_auxz00_2507); } 
if(BgL_test2872z00_915)
{ /* ./Object/creator.scm 389 */
obj_t BgL_arg2874z00_916;
{ /* ./Object/creator.scm 359 */
bool_t BgL_test2988z00_975;
{ /* ./Object/creator.scm 359 */
bool_t BgL_test3030z00_996;
{ /* ./Object/creator.scm 359 */
obj_t BgL_objz00_1661;
BgL_objz00_1661 = BGl_za2heapzd2debugza2zd2zzengine_paramz00; 
BgL_test3030z00_996 = 
INTEGERP(BgL_objz00_1661); } 
if(BgL_test3030z00_996)
{ /* ./Object/creator.scm 359 */
long BgL_n1z00_1662;
BgL_n1z00_1662 = 
(long)CINT(BGl_za2heapzd2debugza2zd2zzengine_paramz00); 
BgL_test2988z00_975 = 
(BgL_n1z00_1662>=((long)1)); }  else 
{ /* ./Object/creator.scm 359 */
BgL_test2988z00_975 = ((bool_t)0); } } 
if(BgL_test2988z00_975)
{ /* ./Object/creator.scm 360 */
obj_t BgL_casezd2valuezd2_976;
BgL_casezd2valuezd2_976 = BGl_za2targetzd2languageza2zd2zzengine_paramz00; 
{ /* ./Object/creator.scm 361 */
bool_t BgL_test2989z00_977;
BgL_test2989z00_977 = 
BGl_eqvzf3zf3zz__r4_equivalence_6_2z00(BgL_casezd2valuezd2_976, 
CNST_TABLE_REF(((long)23))); 
if(BgL_test2989z00_977)
{ /* ./Object/creator.scm 362 */
obj_t BgL_arg2991z00_978;obj_t BgL_arg2992z00_979;
BgL_arg2991z00_978 = 
CNST_TABLE_REF(((long)21)); 
{ /* ./Object/creator.scm 363 */
obj_t BgL_arg2995z00_980;obj_t BgL_arg2996z00_981;
{ /* ./Object/creator.scm 363 */
obj_t BgL_arg2999z00_982;obj_t BgL_arg3000z00_983;
BgL_arg2999z00_982 = 
CNST_TABLE_REF(((long)24)); 
{ /* ./Object/creator.scm 363 */
obj_t BgL_arg3004z00_985;
BgL_arg3004z00_985 = 
MAKE_PAIR(BgL_newz00_876, BNIL); 
BgL_arg3000z00_983 = 
MAKE_PAIR(BGl_string4082z00zzobject_creatorz00, BgL_arg3004z00_985); } 
BgL_arg2995z00_980 = 
MAKE_PAIR(BgL_arg2999z00_982, BgL_arg3000z00_983); } 
{ /* ./Object/creator.scm 364 */
obj_t BgL_arg3008z00_986;
{ /* ./Object/creator.scm 364 */
obj_t BgL_arg3012z00_988;obj_t BgL_arg3013z00_989;
BgL_arg3012z00_988 = 
CNST_TABLE_REF(((long)25)); 
BgL_arg3013z00_989 = 
MAKE_PAIR(BgL_newz00_876, BNIL); 
BgL_arg3008z00_986 = 
MAKE_PAIR(BgL_arg3012z00_988, BgL_arg3013z00_989); } 
BgL_arg2996z00_981 = 
MAKE_PAIR(BgL_arg3008z00_986, BNIL); } 
BgL_arg2992z00_979 = 
MAKE_PAIR(BgL_arg2995z00_980, BgL_arg2996z00_981); } 
BgL_arg2874z00_916 = 
MAKE_PAIR(BgL_arg2991z00_978, BgL_arg2992z00_979); }  else 
{ /* ./Object/creator.scm 361 */
bool_t BgL_test3016z00_990;
{ /* ./Object/creator.scm 361 */
obj_t BgL_auxz00_2530;
BgL_auxz00_2530 = 
BGl_memvz00zz__r4_pairs_and_lists_6_3z00(BgL_casezd2valuezd2_976, 
CNST_TABLE_REF(((long)18))); 
BgL_test3016z00_990 = 
CBOOL(BgL_auxz00_2530); } 
if(BgL_test3016z00_990)
{ /* ./Object/creator.scm 366 */
obj_t BgL_list3018z00_991;
{ /* ./Object/creator.scm 366 */
obj_t BgL_arg3020z00_992;obj_t BgL_arg3021z00_993;
BgL_arg3020z00_992 = 
CNST_TABLE_REF(((long)14)); 
{ /* ./Object/creator.scm 366 */
obj_t BgL_arg3025z00_995;
BgL_arg3025z00_995 = 
MAKE_PAIR(BgL_newz00_876, BNIL); 
BgL_arg3021z00_993 = 
MAKE_PAIR(BGl_string4083z00zzobject_creatorz00, BgL_arg3025z00_995); } 
BgL_list3018z00_991 = 
MAKE_PAIR(BgL_arg3020z00_992, BgL_arg3021z00_993); } 
BgL_arg2874z00_916 = 
BGl_makezd2privatezd2sexpz00zzast_privatez00(
CNST_TABLE_REF(((long)26)), 
CNST_TABLE_REF(((long)14)), BgL_list3018z00_991); }  else 
{ /* ./Object/creator.scm 361 */
BgL_arg2874z00_916 = BUNSPEC; } } } }  else 
{ /* ./Object/creator.scm 359 */
BgL_arg2874z00_916 = BUNSPEC; } } 
{ /* ./Object/creator.scm 389 */
obj_t BgL_list2876z00_917;
BgL_list2876z00_917 = 
MAKE_PAIR(BgL_arg2874z00_916, BNIL); 
BgL_arg2869z00_913 = BgL_list2876z00_917; } }  else 
{ /* ./Object/creator.scm 388 */
BgL_arg2869z00_913 = BNIL; } } 
{ /* ./Object/creator.scm 391 */
obj_t BgL_arg2882z00_918;
{ /* ./Object/creator.scm 391 */
obj_t BgL_arg2886z00_920;obj_t BgL_arg2887z00_921;
BgL_arg2886z00_920 = 
CNST_TABLE_REF(((long)21)); 
{ /* ./Object/creator.scm 393 */
obj_t BgL_arg2890z00_922;obj_t BgL_arg2891z00_923;
{ /* ./Object/creator.scm 393 */
obj_t BgL_arg2894z00_924;
{ /* ./Object/creator.scm 393 */
obj_t BgL_arg2897z00_925;
BgL_arg2897z00_925 = 
BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(BgL_fzd2idszd2_874, BNIL); 
BgL_arg2894z00_924 = 
MAKE_PAIR(BgL_newz00_876, BgL_arg2897z00_925); } 
BgL_arg2890z00_922 = 
MAKE_PAIR(BgL_fillzd2idzd2_873, BgL_arg2894z00_924); } 
{ /* ./Object/creator.scm 395 */
obj_t BgL_arg2901z00_926;obj_t BgL_arg2902z00_927;
{ /* ./Object/creator.scm 395 */
bool_t BgL_test2904z00_928;
if(
PAIRP(BgL_constrsz00_871))
{ /* ./Object/creator.scm 395 */
bool_t BgL_testz00_2549;
{ /* ./Object/creator.scm 395 */
obj_t BgL_auxz00_2550;
BgL_auxz00_2550 = 
CNST_TABLE_REF(((long)6)); 
BgL_testz00_2549 = 
(BgL_wideningz00_50==BgL_auxz00_2550); } 
if(BgL_testz00_2549)
{ /* ./Object/creator.scm 395 */
BgL_test2904z00_928 = ((bool_t)0); }  else 
{ /* ./Object/creator.scm 395 */
BgL_test2904z00_928 = ((bool_t)1); } }  else 
{ /* ./Object/creator.scm 395 */
BgL_test2904z00_928 = ((bool_t)0); } 
if(BgL_test2904z00_928)
{ /* ./Object/creator.scm 396 */
bool_t BgL_test2905z00_930;
BgL_test2905z00_930 = 
NULLP(BgL_constrsz00_871); 
if(BgL_test2905z00_930)
{ /* ./Object/creator.scm 396 */
BgL_arg2901z00_926 = BNIL; }  else 
{ /* ./Object/creator.scm 396 */
obj_t BgL_head1929z00_931;
BgL_head1929z00_931 = 
MAKE_PAIR(BNIL, BNIL); 
{ 
obj_t BgL_l1927z00_932;obj_t BgL_tail1930z00_933;
BgL_l1927z00_932 = BgL_constrsz00_871; 
BgL_tail1930z00_933 = BgL_head1929z00_931; 
BgL_map1928z00_934:
{ /* ./Object/creator.scm 396 */
bool_t BgL_test2907z00_935;
BgL_test2907z00_935 = 
NULLP(BgL_l1927z00_932); 
if(BgL_test2907z00_935)
{ /* ./Object/creator.scm 396 */
BgL_arg2901z00_926 = 
CDR(BgL_head1929z00_931); }  else 
{ /* ./Object/creator.scm 396 */
obj_t BgL_newtail1931z00_936;
{ /* ./Object/creator.scm 396 */
obj_t BgL_arg2916z00_938;
{ /* ./Object/creator.scm 396 */
obj_t BgL_constrz00_940;
BgL_constrz00_940 = 
CAR(BgL_l1927z00_932); 
{ /* ./Object/creator.scm 396 */
obj_t BgL_arg2920z00_941;
BgL_arg2920z00_941 = 
MAKE_PAIR(BgL_newz00_876, BNIL); 
BgL_arg2916z00_938 = 
MAKE_PAIR(BgL_constrz00_940, BgL_arg2920z00_941); } } 
BgL_newtail1931z00_936 = 
MAKE_PAIR(BgL_arg2916z00_938, BNIL); } 
SET_CDR(BgL_tail1930z00_933, BgL_newtail1931z00_936); 
{ /* ./Object/creator.scm 396 */
obj_t BgL_arg2912z00_937;
BgL_arg2912z00_937 = 
CDR(BgL_l1927z00_932); 
{ 
obj_t BgL_tail1930z00_2567;obj_t BgL_l1927z00_2566;
BgL_l1927z00_2566 = BgL_arg2912z00_937; 
BgL_tail1930z00_2567 = BgL_newtail1931z00_936; 
BgL_tail1930z00_933 = BgL_tail1930z00_2567; 
BgL_l1927z00_932 = BgL_l1927z00_2566; 
goto BgL_map1928z00_934;} } } } } } }  else 
{ /* ./Object/creator.scm 395 */
BgL_arg2901z00_926 = BNIL; } } 
BgL_arg2902z00_927 = 
MAKE_PAIR(BgL_newz00_876, BNIL); 
BgL_arg2891z00_923 = 
BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(BgL_arg2901z00_926, BgL_arg2902z00_927); } 
BgL_arg2887z00_921 = 
MAKE_PAIR(BgL_arg2890z00_922, BgL_arg2891z00_923); } 
BgL_arg2882z00_918 = 
MAKE_PAIR(BgL_arg2886z00_920, BgL_arg2887z00_921); } 
BgL_arg2870z00_914 = 
MAKE_PAIR(BgL_arg2882z00_918, BNIL); } 
BgL_arg2849z00_905 = 
BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(BgL_arg2869z00_913, BgL_arg2870z00_914); } 
BgL_arg2845z00_903 = 
MAKE_PAIR(BgL_arg2848z00_904, BgL_arg2849z00_905); } 
BgL_bodyz00_894 = 
MAKE_PAIR(BgL_arg2844z00_902, BgL_arg2845z00_903); } } } 
{ /* ./Object/creator.scm 405 */
obj_t BgL_arg2828z00_895;
{ /* ./Object/creator.scm 405 */
obj_t BgL_arg2833z00_897;obj_t BgL_arg2834z00_898;
BgL_arg2833z00_897 = 
CNST_TABLE_REF(((long)15)); 
{ /* ./Object/creator.scm 405 */
obj_t BgL_arg2837z00_899;
BgL_arg2837z00_899 = 
MAKE_PAIR(BgL_bodyz00_894, BNIL); 
BgL_arg2834z00_898 = 
MAKE_PAIR(BgL_protoz00_893, BgL_arg2837z00_899); } 
BgL_arg2828z00_895 = 
MAKE_PAIR(BgL_arg2833z00_897, BgL_arg2834z00_898); } 
{ /* ./Object/creator.scm 405 */
obj_t BgL_list2830z00_896;
BgL_list2830z00_896 = 
MAKE_PAIR(BgL_srczd2defzd2_54, BNIL); 
return 
BGl_epairifyza2za2zztools_miscz00(BgL_arg2828z00_895, BgL_list2830z00_896);} } } } } } } } } } } } } } } } 
}



/* make-class-slot-make! */
obj_t BGl_makezd2classzd2slotzd2makez12zc0zzobject_creatorz00(BgL_tclassz00_bglt BgL_typez00_56, obj_t BgL_newz00_57, obj_t BgL_ridz00_58, obj_t BgL_rtidz00_59, obj_t BgL_slotsz00_60, obj_t BgL_fzd2idszd2_61)
{ AN_OBJECT;
{ /* ./Object/creator.scm 410 */
{ 
obj_t BgL_slotz00_1032;obj_t BgL_formalz00_1033;obj_t BgL_flenz00_1034;
{ 
obj_t BgL_slotsz00_1016;obj_t BgL_fzd2idszd2_1017;obj_t BgL_resz00_1018;obj_t BgL_lenzd2idzd2_1019;
BgL_slotsz00_1016 = BgL_slotsz00_60; 
BgL_fzd2idszd2_1017 = BgL_fzd2idszd2_61; 
BgL_resz00_1018 = BNIL; 
BgL_lenzd2idzd2_1019 = BUNSPEC; 
BgL_loopz00_1020:
{ /* ./Object/creator.scm 448 */
bool_t BgL_test3080z00_1021;
BgL_test3080z00_1021 = 
NULLP(BgL_slotsz00_1016); 
if(BgL_test3080z00_1021)
{ /* ./Object/creator.scm 448 */
return 
BGl_reversez12z12zz__r4_pairs_and_lists_6_3z00(BgL_resz00_1018);}  else 
{ /* ./Object/creator.scm 450 */
bool_t BgL_test3082z00_1022;
{ /* ./Object/creator.scm 450 */
obj_t BgL_arg3106z00_1031;
BgL_arg3106z00_1031 = 
CAR(BgL_slotsz00_1016); 
BgL_test3082z00_1022 = 
BGl_slotzd2virtualzf3z21zzobject_slotsz00(
(BgL_slotz00_bglt)(BgL_arg3106z00_1031)); } 
if(BgL_test3082z00_1022)
{ /* ./Object/creator.scm 450 */
{ /* ./Object/creator.scm 451 */
obj_t BgL_arg3084z00_1023;
BgL_arg3084z00_1023 = 
CDR(BgL_slotsz00_1016); 
{ 
obj_t BgL_slotsz00_2590;
BgL_slotsz00_2590 = BgL_arg3084z00_1023; 
BgL_slotsz00_1016 = BgL_slotsz00_2590; 
goto BgL_loopz00_1020;} } }  else 
{ /* ./Object/creator.scm 450 */
{ /* ./Object/creator.scm 453 */
obj_t BgL_arg3088z00_1024;obj_t BgL_arg3089z00_1025;obj_t BgL_arg3090z00_1026;obj_t BgL_arg3091z00_1027;
BgL_arg3088z00_1024 = 
CDR(BgL_slotsz00_1016); 
BgL_arg3089z00_1025 = 
CDR(BgL_fzd2idszd2_1017); 
{ /* ./Object/creator.scm 455 */
obj_t BgL_arg3096z00_1028;
{ /* ./Object/creator.scm 455 */
obj_t BgL_arg3099z00_1029;obj_t BgL_arg3100z00_1030;
BgL_arg3099z00_1029 = 
CAR(BgL_slotsz00_1016); 
BgL_arg3100z00_1030 = 
CAR(BgL_fzd2idszd2_1017); 
BgL_slotz00_1032 = BgL_arg3099z00_1029; 
BgL_formalz00_1033 = BgL_arg3100z00_1030; 
BgL_flenz00_1034 = BgL_lenzd2idzd2_1019; 
{ /* ./Object/creator.scm 412 */
obj_t BgL_loopz00_1036;
{ /* ./Object/creator.scm 412 */
obj_t BgL_arg3224z00_1085;
BgL_arg3224z00_1085 = 
PROCEDURE_ENTRY(BGl_gensymz00zz__r4_symbols_6_4z00)(BGl_gensymz00zz__r4_symbols_6_4z00, 
CNST_TABLE_REF(((long)28)), BEOA); 
BgL_loopz00_1036 = 
BGl_markzd2symbolzd2nonzd2userz12zc0zzast_identz00(BgL_arg3224z00_1085); } 
{ /* ./Object/creator.scm 414 */
bool_t BgL_test3111z00_1037;
{ /* ./Object/creator.scm 414 */
BgL_slotz00_bglt BgL_obj1824z00_1672;
BgL_obj1824z00_1672 = 
(BgL_slotz00_bglt)(BgL_slotz00_1032); 
{ /* ./Object/creator.scm 414 */
obj_t BgL_auxz00_2600;
BgL_auxz00_2600 = 
(((BgL_slotz00_bglt)CREF(BgL_obj1824z00_1672))->BgL_indexedz00); 
BgL_test3111z00_1037 = 
CBOOL(BgL_auxz00_2600); } } 
if(BgL_test3111z00_1037)
{ /* ./Object/creator.scm 414 */
{ /* ./Object/creator.scm 418 */
bool_t BgL_test3112z00_1038;
{ /* ./Object/creator.scm 418 */
bool_t BgL_test3114z00_1039;
{ /* ./Object/creator.scm 418 */
obj_t BgL_objz00_1673;
BgL_objz00_1673 = BGl_za2heapzd2debugza2zd2zzengine_paramz00; 
BgL_test3114z00_1039 = 
INTEGERP(BgL_objz00_1673); } 
if(BgL_test3114z00_1039)
{ /* ./Object/creator.scm 419 */
long BgL_n1z00_1674;
BgL_n1z00_1674 = 
(long)CINT(BGl_za2heapzd2debugza2zd2zzengine_paramz00); 
BgL_test3112z00_1038 = 
(BgL_n1z00_1674>=((long)1)); }  else 
{ /* ./Object/creator.scm 418 */
BgL_test3112z00_1038 = ((bool_t)0); } } 
if(BgL_test3112z00_1038)
{ /* ./Object/creator.scm 418 */
FAILURE(BGl_string4084z00zzobject_creatorz00,BGl_string4085z00zzobject_creatorz00,BgL_slotz00_1032);}  else 
{ /* ./Object/creator.scm 418 */((bool_t)0); } } 
{ /* ./Object/creator.scm 425 */
obj_t BgL_arg3118z00_1040;obj_t BgL_arg3119z00_1041;
BgL_arg3118z00_1040 = 
CNST_TABLE_REF(((long)21)); 
{ /* ./Object/creator.scm 426 */
obj_t BgL_arg3122z00_1042;obj_t BgL_arg3123z00_1043;
BgL_arg3122z00_1042 = 
BGl_makezd2pragmazd2indexedzd2initzd2setz12z12zzobject_toolsz00(
(BgL_typez00_bglt)(BgL_typez00_56), 
(BgL_slotz00_bglt)(BgL_slotz00_1032), BgL_newz00_57, BgL_flenz00_1034); 
{ /* ./Object/creator.scm 428 */
obj_t BgL_arg3128z00_1044;
{ /* ./Object/creator.scm 428 */
obj_t BgL_arg3132z00_1046;obj_t BgL_arg3133z00_1047;
BgL_arg3132z00_1046 = 
CNST_TABLE_REF(((long)29)); 
{ /* ./Object/creator.scm 428 */
obj_t BgL_arg3136z00_1048;obj_t BgL_arg3137z00_1049;
{ /* ./Object/creator.scm 428 */
obj_t BgL_arg3140z00_1050;
{ /* ./Object/creator.scm 428 */
obj_t BgL_arg3144z00_1052;
{ /* ./Object/creator.scm 428 */
obj_t BgL_arg3147z00_1053;obj_t BgL_arg3148z00_1054;
BgL_arg3147z00_1053 = 
MAKE_PAIR(BgL_rtidz00_59, BNIL); 
{ /* ./Object/creator.scm 429 */
obj_t BgL_arg3152z00_1055;
{ /* ./Object/creator.scm 429 */
obj_t BgL_arg3156z00_1057;obj_t BgL_arg3157z00_1058;
BgL_arg3156z00_1057 = 
CNST_TABLE_REF(((long)30)); 
{ /* ./Object/creator.scm 429 */
obj_t BgL_arg3160z00_1059;obj_t BgL_arg3161z00_1060;
{ /* ./Object/creator.scm 429 */
obj_t BgL_arg3164z00_1061;obj_t BgL_arg3165z00_1062;
BgL_arg3164z00_1061 = 
CNST_TABLE_REF(((long)31)); 
{ /* ./Object/creator.scm 429 */
obj_t BgL_arg3168z00_1063;
BgL_arg3168z00_1063 = 
MAKE_PAIR(BgL_flenz00_1034, BNIL); 
BgL_arg3165z00_1062 = 
MAKE_PAIR(BgL_ridz00_58, BgL_arg3168z00_1063); } 
BgL_arg3160z00_1059 = 
MAKE_PAIR(BgL_arg3164z00_1061, BgL_arg3165z00_1062); } 
{ /* ./Object/creator.scm 430 */
obj_t BgL_arg3172z00_1064;obj_t BgL_arg3173z00_1065;
{ /* ./Object/creator.scm 430 */
obj_t BgL_arg3176z00_1066;obj_t BgL_arg3177z00_1067;
BgL_arg3176z00_1066 = 
CNST_TABLE_REF(((long)32)); 
{ /* ./Object/creator.scm 430 */
obj_t BgL_auxz00_2622;
BgL_auxz00_2622 = 
CNST_TABLE_REF(((long)33)); 
BgL_arg3177z00_1067 = 
MAKE_PAIR(BgL_auxz00_2622, BNIL); } 
BgL_arg3172z00_1064 = 
MAKE_PAIR(BgL_arg3176z00_1066, BgL_arg3177z00_1067); } 
{ /* ./Object/creator.scm 431 */
obj_t BgL_arg3181z00_1068;
{ /* ./Object/creator.scm 431 */
obj_t BgL_arg3186z00_1070;obj_t BgL_arg3187z00_1071;
BgL_arg3186z00_1070 = 
CNST_TABLE_REF(((long)21)); 
{ /* ./Object/creator.scm 432 */
obj_t BgL_arg3190z00_1072;obj_t BgL_arg3191z00_1073;
BgL_arg3190z00_1072 = 
BGl_makezd2pragmazd2indexedzd2setz12zf2wideningz32zzobject_toolsz00(
(BgL_typez00_bglt)(BgL_typez00_56), 
(BgL_slotz00_bglt)(BgL_slotz00_1032), BgL_newz00_57, BgL_formalz00_1033, BgL_ridz00_58, BFALSE); 
{ /* ./Object/creator.scm 439 */
obj_t BgL_arg3195z00_1074;
{ /* ./Object/creator.scm 439 */
obj_t BgL_arg3199z00_1076;
{ /* ./Object/creator.scm 439 */
obj_t BgL_arg3202z00_1077;
{ /* ./Object/creator.scm 439 */
obj_t BgL_arg3206z00_1079;obj_t BgL_arg3207z00_1080;
BgL_arg3206z00_1079 = 
CNST_TABLE_REF(((long)34)); 
{ /* ./Object/creator.scm 439 */
obj_t BgL_arg3210z00_1081;
{ /* ./Object/creator.scm 439 */
obj_t BgL_auxz00_2631;
BgL_auxz00_2631 = 
BINT(((long)1)); 
BgL_arg3210z00_1081 = 
MAKE_PAIR(BgL_auxz00_2631, BNIL); } 
BgL_arg3207z00_1080 = 
MAKE_PAIR(BgL_ridz00_58, BgL_arg3210z00_1081); } 
BgL_arg3202z00_1077 = 
MAKE_PAIR(BgL_arg3206z00_1079, BgL_arg3207z00_1080); } 
BgL_arg3199z00_1076 = 
MAKE_PAIR(BgL_arg3202z00_1077, BNIL); } 
BgL_arg3195z00_1074 = 
MAKE_PAIR(BgL_loopz00_1036, BgL_arg3199z00_1076); } 
BgL_arg3191z00_1073 = 
MAKE_PAIR(BgL_arg3195z00_1074, BNIL); } 
BgL_arg3187z00_1071 = 
MAKE_PAIR(BgL_arg3190z00_1072, BgL_arg3191z00_1073); } 
BgL_arg3181z00_1068 = 
MAKE_PAIR(BgL_arg3186z00_1070, BgL_arg3187z00_1071); } 
BgL_arg3173z00_1065 = 
MAKE_PAIR(BgL_arg3181z00_1068, BNIL); } 
BgL_arg3161z00_1060 = 
MAKE_PAIR(BgL_arg3172z00_1064, BgL_arg3173z00_1065); } 
BgL_arg3157z00_1058 = 
MAKE_PAIR(BgL_arg3160z00_1059, BgL_arg3161z00_1060); } 
BgL_arg3152z00_1055 = 
MAKE_PAIR(BgL_arg3156z00_1057, BgL_arg3157z00_1058); } 
BgL_arg3148z00_1054 = 
MAKE_PAIR(BgL_arg3152z00_1055, BNIL); } 
BgL_arg3144z00_1052 = 
MAKE_PAIR(BgL_arg3147z00_1053, BgL_arg3148z00_1054); } 
BgL_arg3140z00_1050 = 
MAKE_PAIR(BgL_loopz00_1036, BgL_arg3144z00_1052); } 
BgL_arg3136z00_1048 = 
MAKE_PAIR(BgL_arg3140z00_1050, BNIL); } 
{ /* ./Object/creator.scm 440 */
obj_t BgL_arg3214z00_1082;
{ /* ./Object/creator.scm 440 */
obj_t BgL_arg3218z00_1084;
{ /* ./Object/creator.scm 440 */
obj_t BgL_auxz00_2649;
BgL_auxz00_2649 = 
BINT(((long)0)); 
BgL_arg3218z00_1084 = 
MAKE_PAIR(BgL_auxz00_2649, BNIL); } 
BgL_arg3214z00_1082 = 
MAKE_PAIR(BgL_loopz00_1036, BgL_arg3218z00_1084); } 
BgL_arg3137z00_1049 = 
MAKE_PAIR(BgL_arg3214z00_1082, BNIL); } 
BgL_arg3133z00_1047 = 
MAKE_PAIR(BgL_arg3136z00_1048, BgL_arg3137z00_1049); } 
BgL_arg3128z00_1044 = 
MAKE_PAIR(BgL_arg3132z00_1046, BgL_arg3133z00_1047); } 
BgL_arg3123z00_1043 = 
MAKE_PAIR(BgL_arg3128z00_1044, BNIL); } 
BgL_arg3119z00_1041 = 
MAKE_PAIR(BgL_arg3122z00_1042, BgL_arg3123z00_1043); } 
BgL_arg3096z00_1028 = 
MAKE_PAIR(BgL_arg3118z00_1040, BgL_arg3119z00_1041); } }  else 
{ /* ./Object/creator.scm 414 */
BgL_arg3096z00_1028 = 
BGl_makezd2pragmazd2directzd2setz12zc0zzobject_toolsz00(
(BgL_typez00_bglt)(BgL_typez00_56), 
(BgL_slotz00_bglt)(BgL_slotz00_1032), BgL_newz00_57, BgL_formalz00_1033); } } } } 
BgL_arg3090z00_1026 = 
MAKE_PAIR(BgL_arg3096z00_1028, BgL_resz00_1018); } 
BgL_arg3091z00_1027 = 
CAR(BgL_fzd2idszd2_1017); 
{ 
obj_t BgL_lenzd2idzd2_2667;obj_t BgL_resz00_2666;obj_t BgL_fzd2idszd2_2665;obj_t BgL_slotsz00_2664;
BgL_slotsz00_2664 = BgL_arg3088z00_1024; 
BgL_fzd2idszd2_2665 = BgL_arg3089z00_1025; 
BgL_resz00_2666 = BgL_arg3090z00_1026; 
BgL_lenzd2idzd2_2667 = BgL_arg3091z00_1027; 
BgL_lenzd2idzd2_1019 = BgL_lenzd2idzd2_2667; 
BgL_resz00_1018 = BgL_resz00_2666; 
BgL_fzd2idszd2_1017 = BgL_fzd2idszd2_2665; 
BgL_slotsz00_1016 = BgL_slotsz00_2664; 
goto BgL_loopz00_1020;} } } } } } } } 
}



/* gen-class-allocate! */
obj_t BGl_genzd2classzd2allocatez12z12zzobject_creatorz00(obj_t BgL_idz00_62, obj_t BgL_typez00_63, BgL_globalz00_bglt BgL_holderz00_64, obj_t BgL_srczd2defzd2_65, obj_t BgL_importz00_66)
{ AN_OBJECT;
{ /* ./Object/creator.scm 461 */
{ /* ./Object/creator.scm 462 */
obj_t BgL_tidz00_1087;
{ /* ./Object/creator.scm 462 */
BgL_typez00_bglt BgL_obj1003z00_1679;
BgL_obj1003z00_1679 = 
(BgL_typez00_bglt)(BgL_typez00_63); 
BgL_tidz00_1087 = 
(((BgL_typez00_bglt)CREF(BgL_obj1003z00_1679))->BgL_idz00); } 
{ /* ./Object/creator.scm 462 */
obj_t BgL_alloczd2idzd2_1088;
{ /* ./Object/creator.scm 463 */
obj_t BgL_list3504z00_1219;
{ /* ./Object/creator.scm 463 */
obj_t BgL_arg3506z00_1220;obj_t BgL_arg3507z00_1221;
BgL_arg3506z00_1220 = 
CNST_TABLE_REF(((long)7)); 
BgL_arg3507z00_1221 = 
MAKE_PAIR(BgL_idz00_62, BNIL); 
BgL_list3504z00_1219 = 
MAKE_PAIR(BgL_arg3506z00_1220, BgL_arg3507z00_1221); } 
BgL_alloczd2idzd2_1088 = 
BGl_symbolzd2appendzd2zz__r4_symbols_6_4z00(BgL_list3504z00_1219); } 
{ /* ./Object/creator.scm 463 */
obj_t BgL_alloczd2tidzd2_1089;
BgL_alloczd2tidzd2_1089 = 
BGl_makezd2typedzd2identz00zzast_identz00(BgL_alloczd2idzd2_1088, BgL_tidz00_1087); 
{ /* ./Object/creator.scm 464 */
obj_t BgL_newz00_1090;
{ /* ./Object/creator.scm 465 */
obj_t BgL_arg3499z00_1218;
BgL_arg3499z00_1218 = 
PROCEDURE_ENTRY(BGl_gensymz00zz__r4_symbols_6_4z00)(BGl_gensymz00zz__r4_symbols_6_4z00, 
CNST_TABLE_REF(((long)9)), BEOA); 
BgL_newz00_1090 = 
BGl_markzd2symbolzd2nonzd2userz12zc0zzast_identz00(BgL_arg3499z00_1218); } 
{ /* ./Object/creator.scm 465 */

{ 
obj_t BgL_typez00_1196;
{ /* ./Object/creator.scm 496 */
obj_t BgL_arg3228z00_1094;
{ /* ./Object/creator.scm 496 */
obj_t BgL_arg3231z00_1095;
{ /* ./Object/creator.scm 496 */
obj_t BgL_arg3234z00_1096;
{ /* ./Object/creator.scm 496 */
obj_t BgL_arg3238z00_1098;obj_t BgL_arg3239z00_1099;
BgL_arg3238z00_1098 = 
CNST_TABLE_REF(((long)11)); 
BgL_arg3239z00_1099 = 
MAKE_PAIR(BgL_alloczd2tidzd2_1089, BNIL); 
BgL_arg3234z00_1096 = 
MAKE_PAIR(BgL_arg3238z00_1098, BgL_arg3239z00_1099); } 
BgL_arg3231z00_1095 = 
MAKE_PAIR(BgL_arg3234z00_1096, BNIL); } 
BgL_arg3228z00_1094 = 
MAKE_PAIR(BgL_importz00_66, BgL_arg3231z00_1095); } 
BGl_producezd2modulezd2clausez12z12zzmodule_modulez00(BgL_arg3228z00_1094); } 
{ /* ./Object/creator.scm 497 */
obj_t BgL_arg3243z00_1100;
{ /* ./Object/creator.scm 497 */
obj_t BgL_casezd2valuezd2_1102;
BgL_casezd2valuezd2_1102 = BGl_za2targetzd2languageza2zd2zzengine_paramz00; 
{ /* ./Object/creator.scm 497 */
bool_t BgL_test3247z00_1103;
BgL_test3247z00_1103 = 
BGl_eqvzf3zf3zz__r4_equivalence_6_2z00(BgL_casezd2valuezd2_1102, 
CNST_TABLE_REF(((long)23))); 
if(BgL_test3247z00_1103)
{ /* ./Object/creator.scm 497 */
{ /* ./Object/creator.scm 476 */
obj_t BgL_arg3354z00_1150;obj_t BgL_arg3355z00_1151;
BgL_arg3354z00_1150 = 
CNST_TABLE_REF(((long)8)); 
{ /* ./Object/creator.scm 476 */
obj_t BgL_arg3358z00_1152;obj_t BgL_arg3359z00_1153;
BgL_arg3358z00_1152 = 
MAKE_PAIR(BgL_alloczd2tidzd2_1089, BNIL); 
{ /* ./Object/creator.scm 477 */
obj_t BgL_arg3363z00_1154;
{ /* ./Object/creator.scm 477 */
obj_t BgL_arg3367z00_1156;obj_t BgL_arg3368z00_1157;
BgL_arg3367z00_1156 = 
CNST_TABLE_REF(((long)16)); 
{ /* ./Object/creator.scm 477 */
obj_t BgL_arg3371z00_1158;obj_t BgL_arg3372z00_1159;
{ /* ./Object/creator.scm 477 */
obj_t BgL_arg3375z00_1160;
{ /* ./Object/creator.scm 477 */
obj_t BgL_arg3379z00_1162;obj_t BgL_arg3380z00_1163;
BgL_arg3379z00_1162 = 
BGl_makezd2typedzd2identz00zzast_identz00(BgL_newz00_1090, BgL_tidz00_1087); 
{ /* ./Object/creator.scm 477 */
obj_t BgL_arg3384z00_1164;
BgL_typez00_1196 = BgL_typez00_63; 
{ /* ./Object/creator.scm 467 */
obj_t BgL_tidz00_1198;obj_t BgL_tnamez00_1199;obj_t BgL_siza7eofza7_1200;
{ /* ./Object/creator.scm 467 */
BgL_typez00_bglt BgL_obj1003z00_1684;
BgL_obj1003z00_1684 = 
(BgL_typez00_bglt)(BgL_typez00_1196); 
BgL_tidz00_1198 = 
(((BgL_typez00_bglt)CREF(BgL_obj1003z00_1684))->BgL_idz00); } 
{ /* ./Object/creator.scm 468 */
obj_t BgL_arg3487z00_1212;
{ /* ./Object/creator.scm 468 */
BgL_typez00_bglt BgL_obj1004z00_1685;
BgL_obj1004z00_1685 = 
(BgL_typez00_bglt)(BgL_typez00_1196); 
BgL_arg3487z00_1212 = 
(((BgL_typez00_bglt)CREF(BgL_obj1004z00_1685))->BgL_namez00); } 
BgL_tnamez00_1199 = 
BGl_stringzd2sanszd2z42z42zztype_toolsz00(BgL_arg3487z00_1212); } 
{ /* ./Object/creator.scm 469 */
bool_t BgL_testz00_2697;
{ /* ./Object/creator.scm 469 */
obj_t BgL_auxz00_2698;
{ /* ./Object/creator.scm 469 */
BgL_typez00_bglt BgL_obj1007z00_1686;
BgL_obj1007z00_1686 = 
(BgL_typez00_bglt)(BgL_typez00_1196); 
BgL_auxz00_2698 = 
(((BgL_typez00_bglt)CREF(BgL_obj1007z00_1686))->BgL_siza7eza7); } 
BgL_testz00_2697 = 
STRINGP(BgL_auxz00_2698); } 
if(BgL_testz00_2697)
{ /* ./Object/creator.scm 470 */
BgL_typez00_bglt BgL_obj1007z00_1688;
BgL_obj1007z00_1688 = 
(BgL_typez00_bglt)(BgL_typez00_1196); 
BgL_siza7eofza7_1200 = 
(((BgL_typez00_bglt)CREF(BgL_obj1007z00_1688))->BgL_siza7eza7); }  else 
{ /* ./Object/creator.scm 471 */
BgL_typez00_bglt BgL_obj1004z00_1689;
BgL_obj1004z00_1689 = 
(BgL_typez00_bglt)(BgL_typez00_1196); 
BgL_siza7eofza7_1200 = 
(((BgL_typez00_bglt)CREF(BgL_obj1004z00_1689))->BgL_namez00); } } 
{ /* ./Object/creator.scm 472 */
obj_t BgL_arg3459z00_1201;obj_t BgL_arg3460z00_1202;
BgL_arg3459z00_1201 = 
BGl_makezd2typedzd2identz00zzast_identz00(
CNST_TABLE_REF(((long)22)), BgL_tidz00_1198); 
{ /* ./Object/creator.scm 473 */
obj_t BgL_arg3465z00_1203;
{ /* ./Object/creator.scm 473 */
obj_t BgL_list3469z00_1205;
{ /* ./Object/creator.scm 473 */
obj_t BgL_arg3472z00_1207;
{ /* ./Object/creator.scm 473 */
obj_t BgL_arg3475z00_1208;
{ /* ./Object/creator.scm 473 */
obj_t BgL_arg3479z00_1210;
{ /* ./Object/creator.scm 473 */
obj_t BgL_arg3482z00_1211;
BgL_arg3482z00_1211 = 
MAKE_PAIR(BGl_string4086z00zzobject_creatorz00, BNIL); 
BgL_arg3479z00_1210 = 
MAKE_PAIR(BgL_siza7eofza7_1200, BgL_arg3482z00_1211); } 
BgL_arg3475z00_1208 = 
MAKE_PAIR(BGl_string4087z00zzobject_creatorz00, BgL_arg3479z00_1210); } 
BgL_arg3472z00_1207 = 
MAKE_PAIR(BgL_tnamez00_1199, BgL_arg3475z00_1208); } 
BgL_list3469z00_1205 = 
MAKE_PAIR(BGl_string4081z00zzobject_creatorz00, BgL_arg3472z00_1207); } 
BgL_arg3465z00_1203 = 
BGl_stringzd2appendzd2zz__r4_strings_6_7z00(BgL_list3469z00_1205); } 
BgL_arg3460z00_1202 = 
MAKE_PAIR(BgL_arg3465z00_1203, BNIL); } 
BgL_arg3384z00_1164 = 
MAKE_PAIR(BgL_arg3459z00_1201, BgL_arg3460z00_1202); } } 
BgL_arg3380z00_1163 = 
MAKE_PAIR(BgL_arg3384z00_1164, BNIL); } 
BgL_arg3375z00_1160 = 
MAKE_PAIR(BgL_arg3379z00_1162, BgL_arg3380z00_1163); } 
BgL_arg3371z00_1158 = 
MAKE_PAIR(BgL_arg3375z00_1160, BNIL); } 
{ /* ./Object/creator.scm 478 */
obj_t BgL_arg3389z00_1166;obj_t BgL_arg3390z00_1167;
{ /* ./Object/creator.scm 478 */
obj_t BgL_arg3393z00_1168;obj_t BgL_arg3394z00_1169;
BgL_arg3393z00_1168 = 
CNST_TABLE_REF(((long)35)); 
{ /* ./Object/creator.scm 479 */
obj_t BgL_arg3397z00_1170;
{ /* ./Object/creator.scm 479 */
obj_t BgL_arg3400z00_1171;
{ /* ./Object/creator.scm 479 */
obj_t BgL_arg3404z00_1173;obj_t BgL_arg3405z00_1174;
{ /* ./Object/creator.scm 479 */
obj_t BgL_arg3408z00_1175;obj_t BgL_arg3409z00_1176;
BgL_arg3408z00_1175 = 
CNST_TABLE_REF(((long)36)); 
{ /* ./Object/creator.scm 479 */
obj_t BgL_arg3412z00_1177;obj_t BgL_arg3413z00_1178;
BgL_arg3412z00_1177 = 
CNST_TABLE_REF(((long)37)); 
{ /* ./Object/creator.scm 479 */
obj_t BgL_auxz00_2722;
BgL_auxz00_2722 = 
CNST_TABLE_REF(((long)38)); 
BgL_arg3413z00_1178 = 
MAKE_PAIR(BgL_auxz00_2722, BNIL); } 
BgL_arg3409z00_1176 = 
MAKE_PAIR(BgL_arg3412z00_1177, BgL_arg3413z00_1178); } 
BgL_arg3404z00_1173 = 
MAKE_PAIR(BgL_arg3408z00_1175, BgL_arg3409z00_1176); } 
{ /* ./Object/creator.scm 480 */
obj_t BgL_arg3417z00_1179;
{ /* ./Object/creator.scm 480 */
obj_t BgL_arg3422z00_1181;obj_t BgL_arg3423z00_1182;
BgL_arg3422z00_1181 = 
CNST_TABLE_REF(((long)36)); 
{ /* ./Object/creator.scm 480 */
obj_t BgL_arg3426z00_1183;obj_t BgL_arg3427z00_1184;
{ /* ./Object/creator.scm 480 */
BgL_variablez00_bglt BgL_obj1093z00_1682;
BgL_obj1093z00_1682 = 
(BgL_variablez00_bglt)(BgL_holderz00_64); 
BgL_arg3426z00_1183 = 
(((BgL_variablez00_bglt)CREF(BgL_obj1093z00_1682))->BgL_idz00); } 
{ /* ./Object/creator.scm 481 */
obj_t BgL_arg3431z00_1185;
BgL_arg3431z00_1185 = 
(((BgL_globalz00_bglt)CREF(BgL_holderz00_64))->BgL_modulez00); 
BgL_arg3427z00_1184 = 
MAKE_PAIR(BgL_arg3431z00_1185, BNIL); } 
BgL_arg3423z00_1182 = 
MAKE_PAIR(BgL_arg3426z00_1183, BgL_arg3427z00_1184); } 
BgL_arg3417z00_1179 = 
MAKE_PAIR(BgL_arg3422z00_1181, BgL_arg3423z00_1182); } 
BgL_arg3405z00_1174 = 
MAKE_PAIR(BgL_arg3417z00_1179, BNIL); } 
BgL_arg3400z00_1171 = 
MAKE_PAIR(BgL_arg3404z00_1173, BgL_arg3405z00_1174); } 
BgL_arg3397z00_1170 = 
MAKE_PAIR(BgL_arg3400z00_1171, BNIL); } 
BgL_arg3394z00_1169 = 
MAKE_PAIR(BgL_newz00_1090, BgL_arg3397z00_1170); } 
BgL_arg3389z00_1166 = 
MAKE_PAIR(BgL_arg3393z00_1168, BgL_arg3394z00_1169); } 
{ /* ./Object/creator.scm 482 */
obj_t BgL_arg3436z00_1187;obj_t BgL_arg3437z00_1188;
{ /* ./Object/creator.scm 482 */
obj_t BgL_arg3440z00_1189;obj_t BgL_arg3441z00_1190;
BgL_arg3440z00_1189 = 
CNST_TABLE_REF(((long)39)); 
{ /* ./Object/creator.scm 482 */
obj_t BgL_arg3444z00_1191;
BgL_arg3444z00_1191 = 
MAKE_PAIR(BFALSE, BNIL); 
BgL_arg3441z00_1190 = 
MAKE_PAIR(BgL_newz00_1090, BgL_arg3444z00_1191); } 
BgL_arg3436z00_1187 = 
MAKE_PAIR(BgL_arg3440z00_1189, BgL_arg3441z00_1190); } 
{ /* ./Object/creator.scm 483 */
obj_t BgL_arg3448z00_1192;obj_t BgL_arg3449z00_1193;
{ /* ./Object/creator.scm 483 */
obj_t BgL_arg3452z00_1194;obj_t BgL_arg3453z00_1195;
BgL_arg3452z00_1194 = 
CNST_TABLE_REF(((long)25)); 
BgL_arg3453z00_1195 = 
MAKE_PAIR(BgL_newz00_1090, BNIL); 
BgL_arg3448z00_1192 = 
MAKE_PAIR(BgL_arg3452z00_1194, BgL_arg3453z00_1195); } 
BgL_arg3449z00_1193 = 
MAKE_PAIR(BgL_newz00_1090, BNIL); 
BgL_arg3437z00_1188 = 
MAKE_PAIR(BgL_arg3448z00_1192, BgL_arg3449z00_1193); } 
BgL_arg3390z00_1167 = 
MAKE_PAIR(BgL_arg3436z00_1187, BgL_arg3437z00_1188); } 
BgL_arg3372z00_1159 = 
MAKE_PAIR(BgL_arg3389z00_1166, BgL_arg3390z00_1167); } 
BgL_arg3368z00_1157 = 
MAKE_PAIR(BgL_arg3371z00_1158, BgL_arg3372z00_1159); } 
BgL_arg3363z00_1154 = 
MAKE_PAIR(BgL_arg3367z00_1156, BgL_arg3368z00_1157); } 
BgL_arg3359z00_1153 = 
MAKE_PAIR(BgL_arg3363z00_1154, BNIL); } 
BgL_arg3355z00_1151 = 
MAKE_PAIR(BgL_arg3358z00_1152, BgL_arg3359z00_1153); } 
BgL_arg3243z00_1100 = 
MAKE_PAIR(BgL_arg3354z00_1150, BgL_arg3355z00_1151); } }  else 
{ /* ./Object/creator.scm 497 */
bool_t BgL_test3249z00_1104;
{ /* ./Object/creator.scm 497 */
obj_t BgL_auxz00_2755;
BgL_auxz00_2755 = 
BGl_memvz00zz__r4_pairs_and_lists_6_3z00(BgL_casezd2valuezd2_1102, 
CNST_TABLE_REF(((long)18))); 
BgL_test3249z00_1104 = 
CBOOL(BgL_auxz00_2755); } 
if(BgL_test3249z00_1104)
{ /* ./Object/creator.scm 497 */
{ /* ./Object/creator.scm 486 */
obj_t BgL_arg3255z00_1106;obj_t BgL_arg3257z00_1107;
BgL_arg3255z00_1106 = 
CNST_TABLE_REF(((long)8)); 
{ /* ./Object/creator.scm 486 */
obj_t BgL_arg3260z00_1108;obj_t BgL_arg3261z00_1109;
BgL_arg3260z00_1108 = 
MAKE_PAIR(BgL_alloczd2tidzd2_1089, BNIL); 
{ /* ./Object/creator.scm 487 */
obj_t BgL_arg3265z00_1110;
{ /* ./Object/creator.scm 487 */
obj_t BgL_arg3269z00_1112;obj_t BgL_arg3270z00_1113;
BgL_arg3269z00_1112 = 
CNST_TABLE_REF(((long)16)); 
{ /* ./Object/creator.scm 487 */
obj_t BgL_arg3273z00_1114;obj_t BgL_arg3274z00_1115;
{ /* ./Object/creator.scm 487 */
obj_t BgL_arg3277z00_1116;
{ /* ./Object/creator.scm 487 */
obj_t BgL_arg3281z00_1118;obj_t BgL_arg3282z00_1119;
BgL_arg3281z00_1118 = 
BGl_makezd2typedzd2identz00zzast_identz00(BgL_newz00_1090, BgL_tidz00_1087); 
{ /* ./Object/creator.scm 488 */
obj_t BgL_arg3286z00_1120;
BgL_arg3286z00_1120 = 
BGl_makezd2privatezd2sexpz00zzast_privatez00(
CNST_TABLE_REF(((long)9)), BgL_tidz00_1087, BNIL); 
BgL_arg3282z00_1119 = 
MAKE_PAIR(BgL_arg3286z00_1120, BNIL); } 
BgL_arg3277z00_1116 = 
MAKE_PAIR(BgL_arg3281z00_1118, BgL_arg3282z00_1119); } 
BgL_arg3273z00_1114 = 
MAKE_PAIR(BgL_arg3277z00_1116, BNIL); } 
{ /* ./Object/creator.scm 489 */
obj_t BgL_arg3292z00_1123;obj_t BgL_arg3293z00_1124;
{ /* ./Object/creator.scm 489 */
obj_t BgL_arg3296z00_1125;obj_t BgL_arg3297z00_1126;
BgL_arg3296z00_1125 = 
CNST_TABLE_REF(((long)35)); 
{ /* ./Object/creator.scm 490 */
obj_t BgL_arg3300z00_1127;
{ /* ./Object/creator.scm 490 */
obj_t BgL_arg3303z00_1128;
{ /* ./Object/creator.scm 490 */
obj_t BgL_arg3307z00_1130;obj_t BgL_arg3308z00_1131;
{ /* ./Object/creator.scm 490 */
obj_t BgL_arg3311z00_1132;obj_t BgL_arg3312z00_1133;
BgL_arg3311z00_1132 = 
CNST_TABLE_REF(((long)36)); 
{ /* ./Object/creator.scm 490 */
obj_t BgL_arg3315z00_1134;obj_t BgL_arg3316z00_1135;
BgL_arg3315z00_1134 = 
CNST_TABLE_REF(((long)37)); 
{ /* ./Object/creator.scm 490 */
obj_t BgL_auxz00_2772;
BgL_auxz00_2772 = 
CNST_TABLE_REF(((long)38)); 
BgL_arg3316z00_1135 = 
MAKE_PAIR(BgL_auxz00_2772, BNIL); } 
BgL_arg3312z00_1133 = 
MAKE_PAIR(BgL_arg3315z00_1134, BgL_arg3316z00_1135); } 
BgL_arg3307z00_1130 = 
MAKE_PAIR(BgL_arg3311z00_1132, BgL_arg3312z00_1133); } 
{ /* ./Object/creator.scm 491 */
obj_t BgL_arg3320z00_1136;
{ /* ./Object/creator.scm 491 */
obj_t BgL_arg3324z00_1138;obj_t BgL_arg3325z00_1139;
BgL_arg3324z00_1138 = 
CNST_TABLE_REF(((long)36)); 
{ /* ./Object/creator.scm 491 */
obj_t BgL_arg3328z00_1140;obj_t BgL_arg3329z00_1141;
{ /* ./Object/creator.scm 491 */
BgL_variablez00_bglt BgL_obj1093z00_1680;
BgL_obj1093z00_1680 = 
(BgL_variablez00_bglt)(BgL_holderz00_64); 
BgL_arg3328z00_1140 = 
(((BgL_variablez00_bglt)CREF(BgL_obj1093z00_1680))->BgL_idz00); } 
{ /* ./Object/creator.scm 492 */
obj_t BgL_arg3333z00_1142;
BgL_arg3333z00_1142 = 
(((BgL_globalz00_bglt)CREF(BgL_holderz00_64))->BgL_modulez00); 
BgL_arg3329z00_1141 = 
MAKE_PAIR(BgL_arg3333z00_1142, BNIL); } 
BgL_arg3325z00_1139 = 
MAKE_PAIR(BgL_arg3328z00_1140, BgL_arg3329z00_1141); } 
BgL_arg3320z00_1136 = 
MAKE_PAIR(BgL_arg3324z00_1138, BgL_arg3325z00_1139); } 
BgL_arg3308z00_1131 = 
MAKE_PAIR(BgL_arg3320z00_1136, BNIL); } 
BgL_arg3303z00_1128 = 
MAKE_PAIR(BgL_arg3307z00_1130, BgL_arg3308z00_1131); } 
BgL_arg3300z00_1127 = 
MAKE_PAIR(BgL_arg3303z00_1128, BNIL); } 
BgL_arg3297z00_1126 = 
MAKE_PAIR(BgL_newz00_1090, BgL_arg3300z00_1127); } 
BgL_arg3292z00_1123 = 
MAKE_PAIR(BgL_arg3296z00_1125, BgL_arg3297z00_1126); } 
{ /* ./Object/creator.scm 493 */
obj_t BgL_arg3338z00_1144;obj_t BgL_arg3340z00_1145;
{ /* ./Object/creator.scm 493 */
obj_t BgL_arg3343z00_1146;obj_t BgL_arg3344z00_1147;
BgL_arg3343z00_1146 = 
CNST_TABLE_REF(((long)39)); 
{ /* ./Object/creator.scm 493 */
obj_t BgL_arg3347z00_1148;
BgL_arg3347z00_1148 = 
MAKE_PAIR(BFALSE, BNIL); 
BgL_arg3344z00_1147 = 
MAKE_PAIR(BgL_newz00_1090, BgL_arg3347z00_1148); } 
BgL_arg3338z00_1144 = 
MAKE_PAIR(BgL_arg3343z00_1146, BgL_arg3344z00_1147); } 
BgL_arg3340z00_1145 = 
MAKE_PAIR(BgL_newz00_1090, BNIL); 
BgL_arg3293z00_1124 = 
MAKE_PAIR(BgL_arg3338z00_1144, BgL_arg3340z00_1145); } 
BgL_arg3274z00_1115 = 
MAKE_PAIR(BgL_arg3292z00_1123, BgL_arg3293z00_1124); } 
BgL_arg3270z00_1113 = 
MAKE_PAIR(BgL_arg3273z00_1114, BgL_arg3274z00_1115); } 
BgL_arg3265z00_1110 = 
MAKE_PAIR(BgL_arg3269z00_1112, BgL_arg3270z00_1113); } 
BgL_arg3261z00_1109 = 
MAKE_PAIR(BgL_arg3265z00_1110, BNIL); } 
BgL_arg3257z00_1107 = 
MAKE_PAIR(BgL_arg3260z00_1108, BgL_arg3261z00_1109); } 
BgL_arg3243z00_1100 = 
MAKE_PAIR(BgL_arg3255z00_1106, BgL_arg3257z00_1107); } }  else 
{ /* ./Object/creator.scm 497 */
BgL_arg3243z00_1100 = BUNSPEC; } } } } 
{ /* ./Object/creator.scm 497 */
obj_t BgL_list3245z00_1101;
BgL_list3245z00_1101 = 
MAKE_PAIR(BgL_srczd2defzd2_65, BNIL); 
return 
BGl_epairifyza2za2zztools_miscz00(BgL_arg3243z00_1100, BgL_list3245z00_1101);} } } } } } } } } 
}



/* gen-wide-class-make! */
obj_t BGl_genzd2widezd2classzd2makez12zc0zzobject_creatorz00(obj_t BgL_idz00_67, BgL_tclassz00_bglt BgL_typez00_68, obj_t BgL_srczd2defzd2_69, obj_t BgL_importz00_70)
{ AN_OBJECT;
{ /* ./Object/creator.scm 505 */
{ /* ./Object/creator.scm 506 */
obj_t BgL_mkzd2heapzd2idz00_1222;
{ /* ./Object/creator.scm 506 */
obj_t BgL_list3758z00_1341;
{ /* ./Object/creator.scm 506 */
obj_t BgL_arg3760z00_1342;obj_t BgL_arg3761z00_1343;
BgL_arg3760z00_1342 = 
CNST_TABLE_REF(((long)3)); 
BgL_arg3761z00_1343 = 
MAKE_PAIR(BgL_idz00_67, BNIL); 
BgL_list3758z00_1341 = 
MAKE_PAIR(BgL_arg3760z00_1342, BgL_arg3761z00_1343); } 
BgL_mkzd2heapzd2idz00_1222 = 
BGl_symbolzd2appendzd2zz__r4_symbols_6_4z00(BgL_list3758z00_1341); } 
{ /* ./Object/creator.scm 506 */
obj_t BgL_superz00_1223;
{ 
obj_t BgL_auxz00_2807;
{ /* ./Object/creator.scm 507 */
BgL_objectz00_bglt BgL_auxz00_2808;
BgL_auxz00_2808 = 
(BgL_objectz00_bglt)(BgL_typez00_68); 
BgL_auxz00_2807 = 
BGL_OBJECT_WIDENING(BgL_auxz00_2808); } 
BgL_superz00_1223 = 
(((BgL_tclassz00_bglt)CREF(BgL_auxz00_2807))->BgL_itszd2superzd2); } 
{ /* ./Object/creator.scm 507 */
obj_t BgL_slotsz00_1224;
{ 
obj_t BgL_auxz00_2812;
{ /* ./Object/creator.scm 508 */
BgL_objectz00_bglt BgL_auxz00_2813;
BgL_auxz00_2813 = 
(BgL_objectz00_bglt)(BgL_typez00_68); 
BgL_auxz00_2812 = 
BGL_OBJECT_WIDENING(BgL_auxz00_2813); } 
BgL_slotsz00_1224 = 
(((BgL_tclassz00_bglt)CREF(BgL_auxz00_2812))->BgL_slotsz00); } 
{ /* ./Object/creator.scm 508 */
obj_t BgL_sslotsz00_1225;
{ /* ./Object/creator.scm 509 */
BgL_tclassz00_bglt BgL_obj1612z00_1692;
BgL_obj1612z00_1692 = 
(BgL_tclassz00_bglt)(BgL_superz00_1223); 
{ 
obj_t BgL_auxz00_2818;
{ /* ./Object/creator.scm 509 */
BgL_objectz00_bglt BgL_auxz00_2819;
BgL_auxz00_2819 = 
(BgL_objectz00_bglt)(BgL_obj1612z00_1692); 
BgL_auxz00_2818 = 
BGL_OBJECT_WIDENING(BgL_auxz00_2819); } 
BgL_sslotsz00_1225 = 
(((BgL_tclassz00_bglt)CREF(BgL_auxz00_2818))->BgL_slotsz00); } } 
{ /* ./Object/creator.scm 509 */
BgL_globalz00_bglt BgL_holderz00_1226;
{ 
obj_t BgL_auxz00_2823;
{ /* ./Object/creator.scm 510 */
BgL_objectz00_bglt BgL_auxz00_2824;
BgL_auxz00_2824 = 
(BgL_objectz00_bglt)(BgL_typez00_68); 
BgL_auxz00_2823 = 
BGL_OBJECT_WIDENING(BgL_auxz00_2824); } 
BgL_holderz00_1226 = 
(((BgL_tclassz00_bglt)CREF(BgL_auxz00_2823))->BgL_holderz00); } 
{ /* ./Object/creator.scm 510 */
obj_t BgL_constrsz00_1227;
BgL_constrsz00_1227 = 
BGl_findzd2classzd2constructorsz00zzobject_classz00(BgL_typez00_68); 
{ /* ./Object/creator.scm 511 */
obj_t BgL_tidz00_1228;
{ /* ./Object/creator.scm 512 */
BgL_typez00_bglt BgL_obj1003z00_1694;
BgL_obj1003z00_1694 = 
(BgL_typez00_bglt)(BgL_typez00_68); 
BgL_tidz00_1228 = 
(((BgL_typez00_bglt)CREF(BgL_obj1003z00_1694))->BgL_idz00); } 
{ /* ./Object/creator.scm 512 */
obj_t BgL_stidz00_1229;
{ /* ./Object/creator.scm 513 */
BgL_typez00_bglt BgL_obj1003z00_1695;
BgL_obj1003z00_1695 = 
(BgL_typez00_bglt)(BgL_superz00_1223); 
BgL_stidz00_1229 = 
(((BgL_typez00_bglt)CREF(BgL_obj1003z00_1695))->BgL_idz00); } 
{ /* ./Object/creator.scm 513 */
obj_t BgL_mkzd2tidzd2_1230;
{ /* ./Object/creator.scm 514 */
obj_t BgL_arg3741z00_1337;
{ /* ./Object/creator.scm 514 */
obj_t BgL_list3744z00_1338;
{ /* ./Object/creator.scm 514 */
obj_t BgL_arg3746z00_1339;obj_t BgL_arg3747z00_1340;
BgL_arg3746z00_1339 = 
CNST_TABLE_REF(((long)3)); 
BgL_arg3747z00_1340 = 
MAKE_PAIR(BgL_idz00_67, BNIL); 
BgL_list3744z00_1338 = 
MAKE_PAIR(BgL_arg3746z00_1339, BgL_arg3747z00_1340); } 
BgL_arg3741z00_1337 = 
BGl_symbolzd2appendzd2zz__r4_symbols_6_4z00(BgL_list3744z00_1338); } 
BgL_mkzd2tidzd2_1230 = 
BGl_makezd2typedzd2identz00zzast_identz00(BgL_arg3741z00_1337, BgL_tidz00_1228); } 
{ /* ./Object/creator.scm 514 */
obj_t BgL_fzd2idszd2_1231;
BgL_fzd2idszd2_1231 = 
BGl_makezd2classzd2makezd2formalszd2zzobject_slotsz00(BgL_slotsz00_1224); 
{ /* ./Object/creator.scm 515 */
obj_t BgL_sfzd2idszd2_1232;
BgL_sfzd2idszd2_1232 = 
BGl_makezd2classzd2makezd2formalszd2zzobject_slotsz00(BgL_sslotsz00_1225); 
{ /* ./Object/creator.scm 516 */
obj_t BgL_fzd2tidszd2_1233;
BgL_fzd2tidszd2_1233 = 
BGl_makezd2classzd2makezd2typedzd2formalsz00zzobject_slotsz00(BgL_fzd2idszd2_1231, BgL_slotsz00_1224); 
{ /* ./Object/creator.scm 517 */
obj_t BgL_sfzd2tidszd2_1234;
BgL_sfzd2tidszd2_1234 = 
BGl_makezd2classzd2makezd2typedzd2formalsz00zzobject_slotsz00(BgL_sfzd2idszd2_1232, BgL_sslotsz00_1225); 
{ /* ./Object/creator.scm 518 */
obj_t BgL_wideningz00_1235;
{ /* ./Object/creator.scm 519 */
obj_t BgL_arg3722z00_1331;obj_t BgL_arg3723z00_1332;obj_t BgL_arg3724z00_1333;
{ 
obj_t BgL_auxz00_2842;
{ /* ./Object/creator.scm 519 */
BgL_objectz00_bglt BgL_auxz00_2843;
BgL_auxz00_2843 = 
(BgL_objectz00_bglt)(BgL_typez00_68); 
BgL_auxz00_2842 = 
BGL_OBJECT_WIDENING(BgL_auxz00_2843); } 
BgL_arg3722z00_1331 = 
(((BgL_tclassz00_bglt)CREF(BgL_auxz00_2842))->BgL_wideningz00); } 
BgL_arg3723z00_1332 = 
CNST_TABLE_REF(((long)5)); 
{ /* ./Object/creator.scm 521 */
BgL_typez00_bglt BgL_obj1003z00_1697;
BgL_obj1003z00_1697 = 
(BgL_typez00_bglt)(BgL_typez00_68); 
BgL_arg3724z00_1333 = 
(((BgL_typez00_bglt)CREF(BgL_obj1003z00_1697))->BgL_idz00); } 
{ /* ./Object/creator.scm 519 */
obj_t BgL_list3726z00_1334;
{ /* ./Object/creator.scm 519 */
obj_t BgL_arg3728z00_1335;
{ /* ./Object/creator.scm 519 */
obj_t BgL_arg3731z00_1336;
BgL_arg3731z00_1336 = 
MAKE_PAIR(BgL_arg3724z00_1333, BNIL); 
BgL_arg3728z00_1335 = 
MAKE_PAIR(BgL_arg3723z00_1332, BgL_arg3731z00_1336); } 
BgL_list3726z00_1334 = 
MAKE_PAIR(BgL_arg3722z00_1331, BgL_arg3728z00_1335); } 
BgL_wideningz00_1235 = 
BGl_symbolzd2appendzd2zz__r4_symbols_6_4z00(BgL_list3726z00_1334); } } 
{ /* ./Object/creator.scm 519 */
obj_t BgL_auxz00_1236;
{ /* ./Object/creator.scm 522 */
obj_t BgL_arg3718z00_1330;
BgL_arg3718z00_1330 = 
PROCEDURE_ENTRY(BGl_gensymz00zz__r4_symbols_6_4z00)(BGl_gensymz00zz__r4_symbols_6_4z00, 
CNST_TABLE_REF(((long)40)), BEOA); 
BgL_auxz00_1236 = 
BGl_markzd2symbolzd2nonzd2userz12zc0zzast_identz00(BgL_arg3718z00_1330); } 
{ /* ./Object/creator.scm 522 */
obj_t BgL_newz00_1237;
{ /* ./Object/creator.scm 523 */
obj_t BgL_arg3714z00_1329;
BgL_arg3714z00_1329 = 
PROCEDURE_ENTRY(BGl_gensymz00zz__r4_symbols_6_4z00)(BGl_gensymz00zz__r4_symbols_6_4z00, 
CNST_TABLE_REF(((long)9)), BEOA); 
BgL_newz00_1237 = 
BGl_markzd2symbolzd2nonzd2userz12zc0zzast_identz00(BgL_arg3714z00_1329); } 
{ /* ./Object/creator.scm 523 */
obj_t BgL_mkzd2classzd2idz00_1238;
{ /* ./Object/creator.scm 524 */
obj_t BgL_list3707z00_1326;
{ /* ./Object/creator.scm 524 */
obj_t BgL_arg3709z00_1327;obj_t BgL_arg3710z00_1328;
BgL_arg3709z00_1327 = 
CNST_TABLE_REF(((long)3)); 
BgL_arg3710z00_1328 = 
MAKE_PAIR(BgL_stidz00_1229, BNIL); 
BgL_list3707z00_1326 = 
MAKE_PAIR(BgL_arg3709z00_1327, BgL_arg3710z00_1328); } 
BgL_mkzd2classzd2idz00_1238 = 
BGl_symbolzd2appendzd2zz__r4_symbols_6_4z00(BgL_list3707z00_1326); } 
{ /* ./Object/creator.scm 524 */

{ /* ./Object/creator.scm 526 */
obj_t BgL_arg3512z00_1239;
{ /* ./Object/creator.scm 526 */
obj_t BgL_arg3515z00_1240;
{ /* ./Object/creator.scm 526 */
obj_t BgL_arg3518z00_1241;
{ /* ./Object/creator.scm 526 */
obj_t BgL_arg3523z00_1243;
BgL_arg3523z00_1243 = 
BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(BgL_sfzd2tidszd2_1234, 
BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(BgL_fzd2tidszd2_1233, BNIL)); 
BgL_arg3518z00_1241 = 
MAKE_PAIR(BgL_mkzd2tidzd2_1230, BgL_arg3523z00_1243); } 
BgL_arg3515z00_1240 = 
MAKE_PAIR(BgL_arg3518z00_1241, BNIL); } 
BgL_arg3512z00_1239 = 
MAKE_PAIR(BgL_importz00_70, BgL_arg3515z00_1240); } 
BGl_producezd2modulezd2clausez12z12zzmodule_modulez00(BgL_arg3512z00_1239); } 
{ /* ./Object/creator.scm 528 */
obj_t BgL_arg3530z00_1245;
{ /* ./Object/creator.scm 528 */
obj_t BgL_arg3535z00_1247;obj_t BgL_arg3536z00_1248;
BgL_arg3535z00_1247 = 
CNST_TABLE_REF(((long)15)); 
{ /* ./Object/creator.scm 528 */
obj_t BgL_arg3541z00_1249;obj_t BgL_arg3542z00_1250;
{ /* ./Object/creator.scm 528 */
obj_t BgL_arg3545z00_1251;
BgL_arg3545z00_1251 = 
BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(BgL_sfzd2tidszd2_1234, 
BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(BgL_fzd2tidszd2_1233, BNIL)); 
BgL_arg3541z00_1249 = 
MAKE_PAIR(BgL_mkzd2tidzd2_1230, BgL_arg3545z00_1251); } 
{ /* ./Object/creator.scm 531 */
obj_t BgL_arg3552z00_1253;
{ /* ./Object/creator.scm 531 */
obj_t BgL_arg3556z00_1255;obj_t BgL_arg3557z00_1256;
BgL_arg3556z00_1255 = 
CNST_TABLE_REF(((long)16)); 
{ /* ./Object/creator.scm 531 */
obj_t BgL_arg3560z00_1257;obj_t BgL_arg3561z00_1258;
{ /* ./Object/creator.scm 531 */
obj_t BgL_arg3564z00_1259;
{ /* ./Object/creator.scm 531 */
obj_t BgL_arg3568z00_1261;obj_t BgL_arg3569z00_1262;
BgL_arg3568z00_1261 = 
BGl_makezd2typedzd2identz00zzast_identz00(BgL_auxz00_1236, BgL_stidz00_1229); 
{ /* ./Object/creator.scm 532 */
obj_t BgL_arg3573z00_1263;
{ /* ./Object/creator.scm 532 */
obj_t BgL_arg3577z00_1265;
BgL_arg3577z00_1265 = 
BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(BgL_sfzd2idszd2_1232, BNIL); 
BgL_arg3573z00_1263 = 
MAKE_PAIR(BgL_mkzd2classzd2idz00_1238, BgL_arg3577z00_1265); } 
BgL_arg3569z00_1262 = 
MAKE_PAIR(BgL_arg3573z00_1263, BNIL); } 
BgL_arg3564z00_1259 = 
MAKE_PAIR(BgL_arg3568z00_1261, BgL_arg3569z00_1262); } 
BgL_arg3560z00_1257 = 
MAKE_PAIR(BgL_arg3564z00_1259, BNIL); } 
{ /* ./Object/creator.scm 536 */
obj_t BgL_arg3581z00_1266;obj_t BgL_arg3582z00_1267;
{ /* ./Object/creator.scm 536 */
obj_t BgL_arg3585z00_1268;obj_t BgL_arg3586z00_1269;
BgL_arg3585z00_1268 = 
CNST_TABLE_REF(((long)35)); 
{ /* ./Object/creator.scm 538 */
obj_t BgL_arg3589z00_1270;
{ /* ./Object/creator.scm 538 */
obj_t BgL_arg3592z00_1271;
{ /* ./Object/creator.scm 538 */
obj_t BgL_arg3596z00_1273;obj_t BgL_arg3597z00_1274;
BgL_arg3596z00_1273 = 
CNST_TABLE_REF(((long)37)); 
{ /* ./Object/creator.scm 538 */
obj_t BgL_arg3600z00_1275;
{ /* ./Object/creator.scm 538 */
obj_t BgL_arg3604z00_1277;obj_t BgL_arg3605z00_1278;
BgL_arg3604z00_1277 = 
CNST_TABLE_REF(((long)36)); 
{ /* ./Object/creator.scm 538 */
obj_t BgL_arg3608z00_1279;obj_t BgL_arg3609z00_1280;
{ /* ./Object/creator.scm 538 */
BgL_variablez00_bglt BgL_obj1093z00_1698;
BgL_obj1093z00_1698 = 
(BgL_variablez00_bglt)(BgL_holderz00_1226); 
BgL_arg3608z00_1279 = 
(((BgL_variablez00_bglt)CREF(BgL_obj1093z00_1698))->BgL_idz00); } 
{ /* ./Object/creator.scm 539 */
obj_t BgL_arg3613z00_1281;
BgL_arg3613z00_1281 = 
(((BgL_globalz00_bglt)CREF(BgL_holderz00_1226))->BgL_modulez00); 
BgL_arg3609z00_1280 = 
MAKE_PAIR(BgL_arg3613z00_1281, BNIL); } 
BgL_arg3605z00_1278 = 
MAKE_PAIR(BgL_arg3608z00_1279, BgL_arg3609z00_1280); } 
BgL_arg3600z00_1275 = 
MAKE_PAIR(BgL_arg3604z00_1277, BgL_arg3605z00_1278); } 
BgL_arg3597z00_1274 = 
MAKE_PAIR(BgL_arg3600z00_1275, BNIL); } 
BgL_arg3592z00_1271 = 
MAKE_PAIR(BgL_arg3596z00_1273, BgL_arg3597z00_1274); } 
BgL_arg3589z00_1270 = 
MAKE_PAIR(BgL_arg3592z00_1271, BNIL); } 
BgL_arg3586z00_1269 = 
MAKE_PAIR(BgL_auxz00_1236, BgL_arg3589z00_1270); } 
BgL_arg3581z00_1266 = 
MAKE_PAIR(BgL_arg3585z00_1268, BgL_arg3586z00_1269); } 
{ /* ./Object/creator.scm 541 */
obj_t BgL_arg3618z00_1283;obj_t BgL_arg3619z00_1284;
{ /* ./Object/creator.scm 541 */
obj_t BgL_arg3623z00_1285;obj_t BgL_arg3624z00_1286;
BgL_arg3623z00_1285 = 
CNST_TABLE_REF(((long)39)); 
{ /* ./Object/creator.scm 541 */
obj_t BgL_arg3627z00_1287;
{ /* ./Object/creator.scm 541 */
obj_t BgL_arg3630z00_1288;
{ /* ./Object/creator.scm 541 */
obj_t BgL_arg3634z00_1290;
BgL_arg3634z00_1290 = 
BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(BgL_fzd2idszd2_1231, BNIL); 
BgL_arg3630z00_1288 = 
MAKE_PAIR(BgL_wideningz00_1235, BgL_arg3634z00_1290); } 
BgL_arg3627z00_1287 = 
MAKE_PAIR(BgL_arg3630z00_1288, BNIL); } 
BgL_arg3624z00_1286 = 
MAKE_PAIR(BgL_auxz00_1236, BgL_arg3627z00_1287); } 
BgL_arg3618z00_1283 = 
MAKE_PAIR(BgL_arg3623z00_1285, BgL_arg3624z00_1286); } 
{ /* ./Object/creator.scm 543 */
obj_t BgL_arg3638z00_1291;
{ /* ./Object/creator.scm 543 */
obj_t BgL_arg3642z00_1293;obj_t BgL_arg3643z00_1294;
BgL_arg3642z00_1293 = 
CNST_TABLE_REF(((long)16)); 
{ /* ./Object/creator.scm 543 */
obj_t BgL_arg3646z00_1295;obj_t BgL_arg3647z00_1296;
{ /* ./Object/creator.scm 543 */
obj_t BgL_arg3650z00_1297;
{ /* ./Object/creator.scm 543 */
obj_t BgL_arg3654z00_1299;obj_t BgL_arg3655z00_1300;
BgL_arg3654z00_1299 = 
BGl_makezd2typedzd2identz00zzast_identz00(BgL_newz00_1237, BgL_tidz00_1228); 
{ /* ./Object/creator.scm 544 */
obj_t BgL_arg3659z00_1301;
{ /* ./Object/creator.scm 544 */
obj_t BgL_list3663z00_1303;
BgL_list3663z00_1303 = 
MAKE_PAIR(BgL_auxz00_1236, BNIL); 
BgL_arg3659z00_1301 = 
BGl_makezd2privatezd2sexpz00zzast_privatez00(
CNST_TABLE_REF(((long)41)), BgL_tidz00_1228, BgL_list3663z00_1303); } 
BgL_arg3655z00_1300 = 
MAKE_PAIR(BgL_arg3659z00_1301, BNIL); } 
BgL_arg3650z00_1297 = 
MAKE_PAIR(BgL_arg3654z00_1299, BgL_arg3655z00_1300); } 
BgL_arg3646z00_1295 = 
MAKE_PAIR(BgL_arg3650z00_1297, BNIL); } 
{ /* ./Object/creator.scm 545 */
obj_t BgL_arg3666z00_1304;obj_t BgL_arg3667z00_1305;
{ /* ./Object/creator.scm 545 */
obj_t BgL_arg3670z00_1306;obj_t BgL_arg3671z00_1307;
BgL_arg3670z00_1306 = 
CNST_TABLE_REF(((long)25)); 
BgL_arg3671z00_1307 = 
MAKE_PAIR(BgL_newz00_1237, BNIL); 
BgL_arg3666z00_1304 = 
MAKE_PAIR(BgL_arg3670z00_1306, BgL_arg3671z00_1307); } 
{ /* ./Object/creator.scm 548 */
obj_t BgL_arg3675z00_1308;obj_t BgL_arg3676z00_1309;
{ /* ./Object/creator.scm 548 */
bool_t BgL_test3678z00_1310;
if(
PAIRP(BgL_constrsz00_1227))
{ /* ./Object/creator.scm 549 */
bool_t BgL_testz00_2916;
{ /* ./Object/creator.scm 549 */
obj_t BgL_auxz00_2917;
BgL_auxz00_2917 = 
CNST_TABLE_REF(((long)6)); 
BgL_testz00_2916 = 
(BgL_wideningz00_1235==BgL_auxz00_2917); } 
if(BgL_testz00_2916)
{ /* ./Object/creator.scm 549 */
BgL_test3678z00_1310 = ((bool_t)0); }  else 
{ /* ./Object/creator.scm 549 */
BgL_test3678z00_1310 = ((bool_t)1); } }  else 
{ /* ./Object/creator.scm 548 */
BgL_test3678z00_1310 = ((bool_t)0); } 
if(BgL_test3678z00_1310)
{ /* ./Object/creator.scm 550 */
bool_t BgL_test3679z00_1312;
BgL_test3679z00_1312 = 
NULLP(BgL_constrsz00_1227); 
if(BgL_test3679z00_1312)
{ /* ./Object/creator.scm 550 */
BgL_arg3675z00_1308 = BNIL; }  else 
{ /* ./Object/creator.scm 550 */
obj_t BgL_head1934z00_1313;
BgL_head1934z00_1313 = 
MAKE_PAIR(BNIL, BNIL); 
{ 
obj_t BgL_l1932z00_1314;obj_t BgL_tail1935z00_1315;
BgL_l1932z00_1314 = BgL_constrsz00_1227; 
BgL_tail1935z00_1315 = BgL_head1934z00_1313; 
BgL_map1933z00_1316:
{ /* ./Object/creator.scm 550 */
bool_t BgL_test3681z00_1317;
BgL_test3681z00_1317 = 
NULLP(BgL_l1932z00_1314); 
if(BgL_test3681z00_1317)
{ /* ./Object/creator.scm 550 */
BgL_arg3675z00_1308 = 
CDR(BgL_head1934z00_1313); }  else 
{ /* ./Object/creator.scm 550 */
obj_t BgL_newtail1936z00_1318;
{ /* ./Object/creator.scm 550 */
obj_t BgL_arg3689z00_1320;
{ /* ./Object/creator.scm 550 */
obj_t BgL_constrz00_1322;
BgL_constrz00_1322 = 
CAR(BgL_l1932z00_1314); 
{ /* ./Object/creator.scm 550 */
obj_t BgL_arg3694z00_1323;
BgL_arg3694z00_1323 = 
MAKE_PAIR(BgL_newz00_1237, BNIL); 
BgL_arg3689z00_1320 = 
MAKE_PAIR(BgL_constrz00_1322, BgL_arg3694z00_1323); } } 
BgL_newtail1936z00_1318 = 
MAKE_PAIR(BgL_arg3689z00_1320, BNIL); } 
SET_CDR(BgL_tail1935z00_1315, BgL_newtail1936z00_1318); 
{ /* ./Object/creator.scm 550 */
obj_t BgL_arg3685z00_1319;
BgL_arg3685z00_1319 = 
CDR(BgL_l1932z00_1314); 
{ 
obj_t BgL_tail1935z00_2934;obj_t BgL_l1932z00_2933;
BgL_l1932z00_2933 = BgL_arg3685z00_1319; 
BgL_tail1935z00_2934 = BgL_newtail1936z00_1318; 
BgL_tail1935z00_1315 = BgL_tail1935z00_2934; 
BgL_l1932z00_1314 = BgL_l1932z00_2933; 
goto BgL_map1933z00_1316;} } } } } } }  else 
{ /* ./Object/creator.scm 548 */
BgL_arg3675z00_1308 = BNIL; } } 
BgL_arg3676z00_1309 = 
MAKE_PAIR(BgL_newz00_1237, BNIL); 
BgL_arg3667z00_1305 = 
BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(BgL_arg3675z00_1308, BgL_arg3676z00_1309); } 
BgL_arg3647z00_1296 = 
MAKE_PAIR(BgL_arg3666z00_1304, BgL_arg3667z00_1305); } 
BgL_arg3643z00_1294 = 
MAKE_PAIR(BgL_arg3646z00_1295, BgL_arg3647z00_1296); } 
BgL_arg3638z00_1291 = 
MAKE_PAIR(BgL_arg3642z00_1293, BgL_arg3643z00_1294); } 
BgL_arg3619z00_1284 = 
MAKE_PAIR(BgL_arg3638z00_1291, BNIL); } 
BgL_arg3582z00_1267 = 
MAKE_PAIR(BgL_arg3618z00_1283, BgL_arg3619z00_1284); } 
BgL_arg3561z00_1258 = 
MAKE_PAIR(BgL_arg3581z00_1266, BgL_arg3582z00_1267); } 
BgL_arg3557z00_1256 = 
MAKE_PAIR(BgL_arg3560z00_1257, BgL_arg3561z00_1258); } 
BgL_arg3552z00_1253 = 
MAKE_PAIR(BgL_arg3556z00_1255, BgL_arg3557z00_1256); } 
BgL_arg3542z00_1250 = 
MAKE_PAIR(BgL_arg3552z00_1253, BNIL); } 
BgL_arg3536z00_1248 = 
MAKE_PAIR(BgL_arg3541z00_1249, BgL_arg3542z00_1250); } 
BgL_arg3530z00_1245 = 
MAKE_PAIR(BgL_arg3535z00_1247, BgL_arg3536z00_1248); } 
{ /* ./Object/creator.scm 528 */
obj_t BgL_list3532z00_1246;
BgL_list3532z00_1246 = 
MAKE_PAIR(BgL_srczd2defzd2_69, BNIL); 
return 
BGl_epairifyza2za2zztools_miscz00(BgL_arg3530z00_1245, BgL_list3532z00_1246);} } } } } } } } } } } } } } } } } } } } } 
}



/* method-init */
obj_t BGl_methodzd2initzd2zzobject_creatorz00()
{ AN_OBJECT;
{ /* ./Object/creator.scm 21 */
return BUNSPEC;} 
}



/* imported-modules-init */
obj_t BGl_importedzd2moduleszd2initz00zzobject_creatorz00()
{ AN_OBJECT;
{ /* ./Object/creator.scm 21 */
BGl_modulezd2initializa7ationz75zztools_tracez00(((long)59211), "object_creator"); 
BGl_modulezd2initializa7ationz75zztools_errorz00(((long)25566), "object_creator"); 
BGl_modulezd2initializa7ationz75zztools_miscz00(((long)64117), "object_creator"); 
BGl_modulezd2initializa7ationz75zztools_locationz00(((long)32118), "object_creator"); 
BGl_modulezd2initializa7ationz75zztype_typez00(((long)19090), "object_creator"); 
BGl_modulezd2initializa7ationz75zztype_envz00(((long)25186), "object_creator"); 
BGl_modulezd2initializa7ationz75zztype_toolsz00(((long)15091), "object_creator"); 
BGl_modulezd2initializa7ationz75zztype_cachez00(((long)25848), "object_creator"); 
BGl_modulezd2initializa7ationz75zzast_varz00(((long)44246), "object_creator"); 
BGl_modulezd2initializa7ationz75zzast_identz00(((long)51504), "object_creator"); 
BGl_modulezd2initializa7ationz75zzast_privatez00(((long)8704), "object_creator"); 
BGl_modulezd2initializa7ationz75zzobject_classz00(((long)30791), "object_creator"); 
BGl_modulezd2initializa7ationz75zzobject_structz00(((long)41062), "object_creator"); 
BGl_modulezd2initializa7ationz75zzobject_slotsz00(((long)44183), "object_creator"); 
BGl_modulezd2initializa7ationz75zzobject_toolsz00(((long)58597), "object_creator"); 
BGl_modulezd2initializa7ationz75zzmodule_modulez00(((long)8699), "object_creator"); 
BGl_modulezd2initializa7ationz75zzmodule_impusez00(((long)12782), "object_creator"); 
return 
BGl_modulezd2initializa7ationz75zzengine_paramz00(((long)14260), "object_creator");} 
}

