/*===========================================================================*/
/*   (Eval/evobject.scm)                                                     */
/*   Bigloo (4.7a)                                                           */
/*   Inria -- Sophia Antipolis (c)       Thu Feb 19 09:11:58 AM CET 2026     */
/*===========================================================================*/
/* COMPILATION: (/home/serrano/prgm/project/bigloo/4.7a/bin/bigloo -srfi bigloo-unsafe -O3 -fcfa-arithmetic -q -lib-dir /home/serrano/prgm/project/bigloo/4.7a/lib/bigloo/4.7a +rm -mklib -cc gcc -fsharing -q -no-hello -unsafe -safee -O4 -stdc -c Eval/evobject.scm -indent -o objs/obj_u/Eval/evobject.c) */
/* GC selection */
#define THE_GC BOEHM_GC

/* unsafe mode */
#define BIGLOO_UNSAFE 1

/* traces mode */
#define BIGLOO_TRACE 0

/* standard Bigloo include */
#include <bigloo.h>

#ifdef __cplusplus
extern "C"
{
#endif
#ifndef BGL_MODULE_TYPE_DEFINITIONS
#define BGL_MODULE_TYPE_DEFINITIONS
#ifndef BGL___EVOBJECT_TYPE_DEFINITIONS
#define BGL___EVOBJECT_TYPE_DEFINITIONS

/* object type definitions */

#endif													// BGL___EVOBJECT_TYPE_DEFINITIONS
#endif													// BGL_MODULE_TYPE_DEFINITIONS

	extern obj_t BGl_vectorzd2ze3listz31zz__r4_vectors_6_8z00(obj_t);
	static obj_t BGl_evalzd2instantiatezd2expanderz00zz__evobjectz00(obj_t);
	extern bool_t BGl_pairzd2orzd2nullzf3zf3zz__r4_pairs_and_lists_6_3z00(obj_t);
	static obj_t BGl_symbol2482z00zz__evobjectz00 = BUNSPEC;
	static obj_t BGl_symbol2564z00zz__evobjectz00 = BUNSPEC;
	static obj_t BGl_symbol2485z00zz__evobjectz00 = BUNSPEC;
	static obj_t BGl_symbol2567z00zz__evobjectz00 = BUNSPEC;
	static obj_t BGl_symbol2487z00zz__evobjectz00 = BUNSPEC;
	static obj_t BGl_zc3z04anonymousza32001ze3ze70z60zz__evobjectz00(obj_t,
		obj_t);
	static obj_t BGl_z62zc3z04anonymousza31515ze3ze5zz__evobjectz00(obj_t, obj_t,
		obj_t);
	static obj_t BGl_z62zc3z04anonymousza31684ze3ze5zz__evobjectz00(obj_t, obj_t,
		obj_t);
	extern obj_t bgl_append2(obj_t, obj_t);
	extern obj_t BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
	static obj_t BGl_makezd2classzd2fieldsz00zz__evobjectz00(obj_t, obj_t, obj_t,
		long, obj_t);
	static obj_t BGl_symbol2491z00zz__evobjectz00 = BUNSPEC;
	extern obj_t BGl_classzd2constructorzd2zz__objectz00(obj_t);
	static obj_t BGl_symbol2496z00zz__evobjectz00 = BUNSPEC;
	static obj_t BGl_symbol2498z00zz__evobjectz00 = BUNSPEC;
	static obj_t BGl_z62zc3z04anonymousza31451ze3ze5zz__evobjectz00(obj_t, obj_t,
		obj_t);
	static obj_t BGl_requirezd2initializa7ationz75zz__evobjectz00 = BUNSPEC;
	extern obj_t BGl_listzd2tailzd2zz__r4_pairs_and_lists_6_3z00(obj_t, long);
	static long BGl_getzd2classzd2hashz00zz__evobjectz00(obj_t);
	static obj_t BGl_expandzd2errorzd2zz__evobjectz00(obj_t, obj_t, obj_t);
	static obj_t BGl_makezd2classzd2virtualzd2fieldszd2zz__evobjectz00(obj_t);
	extern obj_t BGl_z52objectzd2wideningz80zz__objectz00(BgL_objectz00_bglt);
	static obj_t BGl_evalzd2parsezd2classzd2slotzd2zz__evobjectz00(obj_t, obj_t);
	extern obj_t BGl_takez00zz__r4_pairs_and_lists_6_3z00(obj_t, long);
	static obj_t BGl_list2474z00zz__evobjectz00 = BUNSPEC;
	extern obj_t BGl_classzd2evdatazd2setz12z12zz__objectz00(obj_t, obj_t);
	extern obj_t BGl_typezd2errorzd2zz__errorz00(obj_t, obj_t, obj_t, obj_t,
		obj_t);
	BGL_EXPORTED_DECL obj_t BGl_modulezd2initializa7ationz75zz__evobjectz00(long,
		char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__macroz00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__expandz00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__expander_definez00(long,
		char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__evmodulez00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__evalz00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__evcompilez00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__everrorz00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__evenvz00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__prognz00(long, char *);
	extern obj_t
		BGl_modulezd2initializa7ationz75zz__r5_control_features_6_4z00(long,
		char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__r4_output_6_10_3z00(long,
		char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__r4_ports_6_10_1z00(long,
		char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__r4_vectors_6_8z00(long,
		char *);
	extern obj_t
		BGl_modulezd2initializa7ationz75zz__r4_control_features_6_9z00(long,
		char *);
	extern obj_t
		BGl_modulezd2initializa7ationz75zz__r4_pairs_and_lists_6_3z00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__r4_strings_6_7z00(long,
		char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__r4_symbols_6_4z00(long,
		char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__r4_booleans_6_1z00(long,
		char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__r4_equivalence_6_2z00(long,
		char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__r4_characters_6_6z00(long,
		char *);
	extern obj_t
		BGl_modulezd2initializa7ationz75zz__r4_numbers_6_5_flonum_dtoaz00(long,
		char *);
	extern obj_t
		BGl_modulezd2initializa7ationz75zz__r4_numbers_6_5_flonumz00(long, char *);
	extern obj_t
		BGl_modulezd2initializa7ationz75zz__r4_numbers_6_5_fixnumz00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__r4_numbers_6_5z00(long,
		char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__readerz00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__hashz00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__threadz00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__objectz00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__paramz00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__bitz00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__osz00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__bignumz00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__bexitz00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__structurez00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__tvectorz00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__biglooz00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__errorz00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__typez00(long, char *);
	extern obj_t BGl_installzd2expanderzd2zz__macroz00(obj_t, obj_t);
	extern bool_t BGl_classzd2fieldzd2defaultzd2valuezf3z21zz__objectz00(obj_t);
	extern obj_t BGl_za2classesza2z00zz__objectz00;
	BGL_EXPORTED_DECL obj_t
		BGl_evalzd2expandzd2instantiatez00zz__evobjectz00(obj_t);
	extern obj_t BGl_evalz12z12zz__evalz00(obj_t, obj_t);
	static obj_t BGl_list2481z00zz__evobjectz00 = BUNSPEC;
	static obj_t BGl_z62evalzd2expandzd2instantiatez62zz__evobjectz00(obj_t,
		obj_t);
	static obj_t BGl_list2484z00zz__evobjectz00 = BUNSPEC;
	static obj_t BGl_z62zc3z04anonymousza31631ze3ze5zz__evobjectz00(obj_t, obj_t,
		obj_t);
	static obj_t BGl_z62zc3z04anonymousza31542ze3ze5zz__evobjectz00(obj_t, obj_t,
		obj_t);
	static obj_t BGl_z62zc3z04anonymousza31445ze3ze5zz__evobjectz00(obj_t, obj_t);
	extern bool_t BGl_classzf3zf3zz__objectz00(obj_t);
	extern obj_t BGl_listzd2ze3vectorz31zz__r4_vectors_6_8z00(obj_t);
	extern obj_t BGl_classzd2fieldszd2zz__objectz00(obj_t);
	static obj_t BGl_toplevelzd2initzd2zz__evobjectz00(void);
	static obj_t BGl_vectorzd2filterzd2mapz00zz__evobjectz00(obj_t, obj_t, obj_t);
	extern obj_t BGl_symbolzd2appendzd2zz__r4_symbols_6_4z00(obj_t);
	static obj_t BGl_zc3z04anonymousza31980ze3ze70z60zz__evobjectz00(obj_t,
		obj_t);
	static obj_t
		BGl_z62evalzd2cozd2instantiatezd2expanderzb0zz__evobjectz00(obj_t, obj_t,
		obj_t);
	extern obj_t BGl_formatz00zz__r4_output_6_10_3z00(obj_t, obj_t);
	extern obj_t create_struct(obj_t, int);
	extern obj_t BGl_z52withzd2lexicalz80zz__expandz00(obj_t, obj_t, obj_t,
		obj_t);
	static obj_t BGl_z62zc3z04anonymousza31382ze3ze5zz__evobjectz00(obj_t, obj_t);
	static bool_t BGl_patchzd2fieldzd2defaultzd2valuesz12zc0zz__evobjectz00(obj_t,
		obj_t, obj_t);
	static obj_t BGl_z62zc3z04anonymousza31366ze3ze5zz__evobjectz00(obj_t, obj_t);
	extern obj_t BGl_assqz00zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
	static obj_t BGl_cnstzd2initzd2zz__evobjectz00(void);
	extern bool_t BGl_listzf3zf3zz__r4_pairs_and_lists_6_3z00(obj_t);
	static obj_t BGl_genericzd2initzd2zz__evobjectz00(void);
	extern obj_t BGl_stringzd2copyzd2zz__r4_strings_6_7z00(obj_t);
	extern long bgl_list_length(obj_t);
	extern obj_t BGl_classzd2existszd2zz__objectz00(obj_t);
	extern obj_t BGl_registerzd2classz12zc0zz__objectz00(obj_t, obj_t, obj_t,
		long, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t);
	extern obj_t BGl_z52lexicalzd2stackz80zz__expandz00(void);
	static obj_t BGl_importedzd2moduleszd2initz00zz__evobjectz00(void);
	static bool_t BGl_patchzd2vfieldzd2accessorsz12z12zz__evobjectz00(obj_t,
		obj_t, obj_t, obj_t);
	extern obj_t BGl_iotaz00zz__r4_pairs_and_lists_6_3z00(int, obj_t);
	static obj_t BGl_gczd2rootszd2initz00zz__evobjectz00(void);
	extern obj_t BGl_filterzd2mapzd2zz__r4_control_features_6_9z00(obj_t, obj_t);
	extern obj_t BGl_makezd2classzd2fieldz00zz__objectz00(obj_t, obj_t, obj_t,
		bool_t, bool_t, obj_t, obj_t, obj_t);
	static obj_t BGl_evalzd2parsezd2classz00zz__evobjectz00(obj_t, obj_t);
	static obj_t BGl_classgenzd2slotzd2anonymousz00zz__evobjectz00(obj_t, obj_t,
		obj_t);
	static obj_t BGl_objectzd2initzd2zz__evobjectz00(void);
	BGL_EXPORTED_DECL obj_t
		BGl_evalzd2cozd2instantiatezd2expanderzd2zz__evobjectz00(obj_t, obj_t);
	extern bool_t BGl_classzd2fieldzd2mutablezf3zf3zz__objectz00(obj_t);
	BGL_EXPORTED_DECL obj_t
		BGl_evalzd2expandzd2duplicatez00zz__evobjectz00(obj_t);
	static obj_t BGl_duplicatezd2expanderzd2zz__evobjectz00(obj_t, obj_t, obj_t,
		obj_t, obj_t);
	extern obj_t BGl_findzd2classzd2zz__objectz00(obj_t);
	extern obj_t BGl_memqz00zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
	extern obj_t BGl_za2inheritancesza2z00zz__objectz00;
	static obj_t BGl_evalzd2withzd2accesszd2expanderzd2zz__evobjectz00(obj_t);
	extern obj_t BGl_objectz00zz__objectz00;
	extern obj_t bgl_reverse_bang(obj_t);
	static obj_t BGl_withzd2accesszd2expanderz00zz__evobjectz00(obj_t, obj_t,
		obj_t, obj_t);
	static obj_t BGl_vector2473z00zz__evobjectz00 = BUNSPEC;
	extern obj_t BGl_errorzf2locationzf2zz__errorz00(obj_t, obj_t, obj_t, obj_t,
		obj_t);
	extern bool_t BGl_classzd2abstractzf3z21zz__objectz00(obj_t);
	extern obj_t
		BGl_z52objectzd2wideningzd2setz12z40zz__objectz00(BgL_objectz00_bglt,
		obj_t);
	extern bool_t BGl_evmodulezf3zf3zz__evmodulez00(obj_t);
	extern obj_t BGl_getzd2sourcezd2locationz00zz__readerz00(obj_t);
	extern obj_t BGl_classzd2namezd2zz__objectz00(obj_t);
	static obj_t BGl_z62zc3z04anonymousza31661ze3ze5zz__evobjectz00(obj_t, obj_t,
		obj_t);
	static obj_t BGl_z62zc3z04anonymousza31564ze3ze5zz__evobjectz00(obj_t, obj_t,
		obj_t);
	static obj_t BGl_z62zc3z04anonymousza31378ze3ze5zz__evobjectz00(obj_t);
	extern obj_t BGl_classzd2evdatazd2zz__objectz00(obj_t);
	static obj_t BGl_symbol2500z00zz__evobjectz00 = BUNSPEC;
	static obj_t BGl_evalzd2registerzd2classz00zz__evobjectz00(obj_t, obj_t,
		obj_t, bool_t, obj_t, long, obj_t);
	extern obj_t bstring_to_symbol(obj_t);
	extern obj_t BGl_classzd2fieldzd2mutatorz00zz__objectz00(obj_t);
	static obj_t BGl_symbol2504z00zz__evobjectz00 = BUNSPEC;
	extern obj_t make_vector(long, obj_t);
	static obj_t BGl_symbol2506z00zz__evobjectz00 = BUNSPEC;
	static obj_t BGl_symbol2508z00zz__evobjectz00 = BUNSPEC;
	extern obj_t c_substring(obj_t, long, long);
	extern obj_t BGl_evmodulezd2namezd2zz__evmodulez00(obj_t);
	extern obj_t BGl_gensymz00zz__r4_symbols_6_4z00(obj_t);
	static obj_t BGl_appendzd221011zd2zz__evobjectz00(obj_t, obj_t);
	extern bool_t BGl_classzd2fieldzd2virtualzf3zf3zz__objectz00(obj_t);
	extern obj_t BGl_evcompilezd2errorzd2zz__evcompilez00(obj_t, obj_t, obj_t,
		obj_t);
	static obj_t BGl_symbol2510z00zz__evobjectz00 = BUNSPEC;
	static obj_t BGl_decomposezd2identzd2zz__evobjectz00(obj_t);
	static obj_t BGl_methodzd2initzd2zz__evobjectz00(void);
	extern obj_t BGl_bigloozd2typezd2errorz00zz__errorz00(obj_t, obj_t, obj_t);
	static obj_t BGl_symbol2515z00zz__evobjectz00 = BUNSPEC;
	static obj_t BGl_z62evalzd2expandzd2duplicatez62zz__evobjectz00(obj_t, obj_t);
	static obj_t BGl_evalzd2creatorzd2zz__evobjectz00(obj_t, obj_t, long, obj_t);
	static obj_t BGl_symbol2518z00zz__evobjectz00 = BUNSPEC;
	BGL_EXPORTED_DECL obj_t BGl_evalzd2classzd2zz__evobjectz00(obj_t, bool_t,
		obj_t, obj_t, obj_t);
	extern obj_t BGl_classzd2evfieldszd2setz12z12zz__objectz00(obj_t, obj_t);
	static obj_t BGl_z62zc3z04anonymousza31825ze3ze5zz__evobjectz00(obj_t, obj_t,
		obj_t);
	static obj_t BGl_localiza7eza7zz__evobjectz00(obj_t, obj_t);
	static obj_t BGl_z62zc3z04anonymousza31736ze3ze5zz__evobjectz00(obj_t, obj_t,
		obj_t);
	extern obj_t BGl_classzd2fieldzd2namez00zz__objectz00(obj_t);
	static obj_t BGl_z62zc3z04anonymousza31477ze3ze5zz__evobjectz00(obj_t, obj_t);
	BGL_EXPORTED_DECL obj_t
		BGl_evalzd2expandzd2withzd2accesszd2zz__evobjectz00(obj_t);
	static obj_t BGl_symbol2521z00zz__evobjectz00 = BUNSPEC;
	static obj_t BGl_symbol2523z00zz__evobjectz00 = BUNSPEC;
	static obj_t BGl_z62evalzd2expandzd2withzd2accesszb0zz__evobjectz00(obj_t,
		obj_t);
	static obj_t BGl_symbol2528z00zz__evobjectz00 = BUNSPEC;
	static obj_t BGl_loopze70ze7zz__evobjectz00(obj_t, obj_t);
	static long BGl_loopze71ze7zz__evobjectz00(obj_t, long);
	extern obj_t BGl_classzd2superzd2zz__objectz00(obj_t);
	extern obj_t BGl_classzd2creatorzd2zz__objectz00(obj_t);
	static obj_t BGl_evalzd2duplicatezd2expanderz00zz__evobjectz00(obj_t);
	static obj_t BGl_instantiatezd2fillzd2zz__evobjectz00(obj_t, obj_t, obj_t,
		obj_t, obj_t, obj_t, obj_t);
	extern obj_t BGl_evalzd2beginzd2expanderz00zz__expander_definez00(obj_t);
	static obj_t BGl_symbol2530z00zz__evobjectz00 = BUNSPEC;
	static obj_t BGl_symbol2532z00zz__evobjectz00 = BUNSPEC;
	static obj_t BGl_symbol2534z00zz__evobjectz00 = BUNSPEC;
	static obj_t BGl_symbol2536z00zz__evobjectz00 = BUNSPEC;
	extern bool_t BGl_evalzd2classzf3z21zz__objectz00(obj_t);
	static obj_t BGl_z62zc3z04anonymousza31504ze3ze5zz__evobjectz00(obj_t, obj_t);
	static obj_t BGl_z62evalzd2classzb0zz__evobjectz00(obj_t, obj_t, obj_t, obj_t,
		obj_t, obj_t);
	extern obj_t string_append(obj_t, obj_t);
	static obj_t BGl_symbol2540z00zz__evobjectz00 = BUNSPEC;
	static obj_t BGl_symbol2542z00zz__evobjectz00 = BUNSPEC;
	extern obj_t BGl_classzd2allocatorzd2zz__objectz00(obj_t);
	static obj_t BGl_symbol2544z00zz__evobjectz00 = BUNSPEC;
	static obj_t BGl_symbol2546z00zz__evobjectz00 = BUNSPEC;
	extern obj_t BGl_classzd2fieldzd2accessorz00zz__objectz00(obj_t);
	static obj_t BGl_symbol2469z00zz__evobjectz00 = BUNSPEC;
	static obj_t BGl_cozd2instantiatezd2ze3letze3zz__evobjectz00(obj_t, obj_t,
		obj_t, obj_t);
	extern long BGl_getzd2hashnumberzd2persistentz00zz__hashz00(obj_t);
	static obj_t BGl_symbol2550z00zz__evobjectz00 = BUNSPEC;
	static obj_t BGl_symbol2471z00zz__evobjectz00 = BUNSPEC;
	static obj_t BGl_symbol2553z00zz__evobjectz00 = BUNSPEC;
	static obj_t BGl_findzd2fieldzd2offsetz00zz__evobjectz00(obj_t, obj_t, obj_t,
		obj_t);
	static obj_t BGl_symbol2555z00zz__evobjectz00 = BUNSPEC;
	extern obj_t BGl_defaultzd2environmentzd2zz__evalz00(void);
	static obj_t BGl_symbol2475z00zz__evobjectz00 = BUNSPEC;
	static obj_t BGl_symbol2477z00zz__evobjectz00 = BUNSPEC;
	extern obj_t BGl_errorz00zz__errorz00(obj_t, obj_t, obj_t);
	static obj_t BGl_symbol2479z00zz__evobjectz00 = BUNSPEC;
	static obj_t BGl_zc3z04anonymousza32006ze3ze70z60zz__evobjectz00(obj_t,
		obj_t);
	extern obj_t BGl_expandzd2prognzd2zz__prognz00(obj_t);
	static obj_t *__cnst;


	   
		 
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_evalzd2cozd2instantiatezd2expanderzd2envz00zz__evobjectz00,
		BgL_bgl_za762evalza7d2coza7d2i2574za7,
		BGl_z62evalzd2cozd2instantiatezd2expanderzb0zz__evobjectz00, 0L, BUNSPEC,
		2);
	      BGL_DEFINE_STRING(BGl_string2501z00zz__evobjectz00,
		BgL_bgl_string2501za700za7za7_2575za7, "@", 1);
	      BGL_DEFINE_STRING(BGl_string2502z00zz__evobjectz00,
		BgL_bgl_string2502za700za7za7_2576za7, "Illegal argument", 16);
	      BGL_DEFINE_STRING(BGl_string2503z00zz__evobjectz00,
		BgL_bgl_string2503za700za7za7_2577za7, "Missing value for field \"~a\"",
		28);
	      DEFINE_EXPORT_BGL_PROCEDURE(BGl_evalzd2classzd2envz00zz__evobjectz00,
		BgL_bgl_za762evalza7d2classza72578za7,
		BGl_z62evalzd2classzb0zz__evobjectz00, 0L, BUNSPEC, 5);
	      BGL_DEFINE_STRING(BGl_string2505z00zz__evobjectz00,
		BgL_bgl_string2505za700za7za7_2579za7, "new", 3);
	      BGL_DEFINE_STRING(BGl_string2507z00zz__evobjectz00,
		BgL_bgl_string2507za700za7za7_2580za7, "begin", 5);
	      BGL_DEFINE_STRING(BGl_string2509z00zz__evobjectz00,
		BgL_bgl_string2509za700za7za7_2581za7, "let", 3);
	      BGL_DEFINE_STRING(BGl_string2511z00zz__evobjectz00,
		BgL_bgl_string2511za700za7za7_2582za7, "duplicate::", 11);
	      BGL_DEFINE_STRING(BGl_string2512z00zz__evobjectz00,
		BgL_bgl_string2512za700za7za7_2583za7, "&eval-expand-duplicate", 22);
	      BGL_DEFINE_STRING(BGl_string2513z00zz__evobjectz00,
		BgL_bgl_string2513za700za7za7_2584za7, "duplicate", 9);
	      BGL_DEFINE_STRING(BGl_string2514z00zz__evobjectz00,
		BgL_bgl_string2514za700za7za7_2585za7, "Illegal form", 12);
	      BGL_DEFINE_STRING(BGl_string2516z00zz__evobjectz00,
		BgL_bgl_string2516za700za7za7_2586za7, "duplicated", 10);
	      BGL_DEFINE_STRING(BGl_string2517z00zz__evobjectz00,
		BgL_bgl_string2517za700za7za7_2587za7, "Illegal ~a, field unknown \"~a\"",
		30);
	      BGL_DEFINE_STRING(BGl_string2519z00zz__evobjectz00,
		BgL_bgl_string2519za700za7za7_2588za7, "with-access::", 13);
	      BGL_DEFINE_STRING(BGl_string2520z00zz__evobjectz00,
		BgL_bgl_string2520za700za7za7_2589za7, "&eval-expand-with-access", 24);
	      BGL_DEFINE_STRING(BGl_string2522z00zz__evobjectz00,
		BgL_bgl_string2522za700za7za7_2590za7, "i", 1);
	      BGL_DEFINE_STRING(BGl_string2524z00zz__evobjectz00,
		BgL_bgl_string2524za700za7za7_2591za7, "::", 2);
	      BGL_DEFINE_STRING(BGl_string2525z00zz__evobjectz00,
		BgL_bgl_string2525za700za7za7_2592za7, "Illegal field", 13);
	      BGL_DEFINE_STRING(BGl_string2526z00zz__evobjectz00,
		BgL_bgl_string2526za700za7za7_2593za7, "with-access", 11);
	      BGL_DEFINE_STRING(BGl_string2527z00zz__evobjectz00,
		BgL_bgl_string2527za700za7za7_2594za7, "Illegal with-access", 19);
	      BGL_DEFINE_STRING(BGl_string2529z00zz__evobjectz00,
		BgL_bgl_string2529za700za7za7_2595za7, "->", 2);
	      BGL_DEFINE_STRING(BGl_string2531z00zz__evobjectz00,
		BgL_bgl_string2531za700za7za7_2596za7, "set!", 4);
	      BGL_DEFINE_STRING(BGl_string2533z00zz__evobjectz00,
		BgL_bgl_string2533za700za7za7_2597za7, "obj", 3);
	      BGL_DEFINE_STRING(BGl_string2535z00zz__evobjectz00,
		BgL_bgl_string2535za700za7za7_2598za7, "slot", 4);
	      BGL_DEFINE_STRING(BGl_string2537z00zz__evobjectz00,
		BgL_bgl_string2537za700za7za7_2599za7, "read-only", 9);
	      BGL_DEFINE_STRING(BGl_string2538z00zz__evobjectz00,
		BgL_bgl_string2538za700za7za7_2600za7, "eval", 4);
	      BGL_DEFINE_STRING(BGl_string2539z00zz__evobjectz00,
		BgL_bgl_string2539za700za7za7_2601za7, "Illegal slot declaration", 24);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_evalzd2expandzd2duplicatezd2envzd2zz__evobjectz00,
		BgL_bgl_za762evalza7d2expand2602z00,
		BGl_z62evalzd2expandzd2duplicatez62zz__evobjectz00, 0L, BUNSPEC, 1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_evalzd2expandzd2instantiatezd2envzd2zz__evobjectz00,
		BgL_bgl_za762evalza7d2expand2603z00,
		BGl_z62evalzd2expandzd2instantiatez62zz__evobjectz00, 0L, BUNSPEC, 1);
	      BGL_DEFINE_STRING(BGl_string2541z00zz__evobjectz00,
		BgL_bgl_string2541za700za7za7_2604za7, "info", 4);
	      BGL_DEFINE_STRING(BGl_string2543z00zz__evobjectz00,
		BgL_bgl_string2543za700za7za7_2605za7, "get", 3);
	      BGL_DEFINE_STRING(BGl_string2545z00zz__evobjectz00,
		BgL_bgl_string2545za700za7za7_2606za7, "set", 3);
	      BGL_DEFINE_STRING(BGl_string2547z00zz__evobjectz00,
		BgL_bgl_string2547za700za7za7_2607za7, "default", 7);
	      BGL_DEFINE_STRING(BGl_string2548z00zz__evobjectz00,
		BgL_bgl_string2548za700za7za7_2608za7, "Missing virtual set", 19);
	      BGL_DEFINE_STRING(BGl_string2549z00zz__evobjectz00,
		BgL_bgl_string2549za700za7za7_2609za7, "Missing virtual get", 19);
	      BGL_DEFINE_STRING(BGl_string2468z00zz__evobjectz00,
		BgL_bgl_string2468za700za7za7_2610za7,
		"Wrong number of arguments for constructor (expecting ~a)", 56);
	      BGL_DEFINE_STRING(BGl_string2551z00zz__evobjectz00,
		BgL_bgl_string2551za700za7za7_2611za7, "o", 1);
	      BGL_DEFINE_STRING(BGl_string2470z00zz__evobjectz00,
		BgL_bgl_string2470za700za7za7_2612za7, "lambda", 6);
	      BGL_DEFINE_STRING(BGl_string2552z00zz__evobjectz00,
		BgL_bgl_string2552za700za7za7_2613za7, "Illegal class declaration", 25);
	      BGL_DEFINE_STRING(BGl_string2472z00zz__evobjectz00,
		BgL_bgl_string2472za700za7za7_2614za7, "", 0);
	      BGL_DEFINE_STRING(BGl_string2554z00zz__evobjectz00,
		BgL_bgl_string2554za700za7za7_2615za7, "object", 6);
	      BGL_DEFINE_STRING(BGl_string2556z00zz__evobjectz00,
		BgL_bgl_string2556za700za7za7_2616za7, "define", 6);
	      BGL_DEFINE_STRING(BGl_string2557z00zz__evobjectz00,
		BgL_bgl_string2557za700za7za7_2617za7, "Cannot find super class", 23);
	      BGL_DEFINE_STRING(BGl_string2476z00zz__evobjectz00,
		BgL_bgl_string2476za700za7za7_2618za7, "patch-field-default-values!", 27);
	      BGL_DEFINE_STRING(BGl_string2558z00zz__evobjectz00,
		BgL_bgl_string2558za700za7za7_2619za7, "&eval-class", 11);
	      BGL_DEFINE_STRING(BGl_string2559z00zz__evobjectz00,
		BgL_bgl_string2559za700za7za7_2620za7, "symbol", 6);
	      BGL_DEFINE_STRING(BGl_string2478z00zz__evobjectz00,
		BgL_bgl_string2478za700za7za7_2621za7, "slots", 5);
	      BGL_DEFINE_STRING(BGl_string2560z00zz__evobjectz00,
		BgL_bgl_string2560za700za7za7_2622za7, "pair-nil", 8);
	      BGL_DEFINE_STRING(BGl_string2561z00zz__evobjectz00,
		BgL_bgl_string2561za700za7za7_2623za7, "pair", 4);
	      BGL_DEFINE_STRING(BGl_string2480z00zz__evobjectz00,
		BgL_bgl_string2480za700za7za7_2624za7, "fields", 6);
	      BGL_DEFINE_STRING(BGl_string2562z00zz__evobjectz00,
		BgL_bgl_string2562za700za7za7_2625za7, "co-instantiate", 14);
	      BGL_DEFINE_STRING(BGl_string2563z00zz__evobjectz00,
		BgL_bgl_string2563za700za7za7_2626za7, "Illegal `co-instantiate' form", 29);
	      BGL_DEFINE_STRING(BGl_string2483z00zz__evobjectz00,
		BgL_bgl_string2483za700za7za7_2627za7, "patch-vfield-accessors!", 23);
	      BGL_DEFINE_STRING(BGl_string2565z00zz__evobjectz00,
		BgL_bgl_string2565za700za7za7_2628za7, "&eval-co-instantiate-expander", 29);
	      BGL_DEFINE_STRING(BGl_string2566z00zz__evobjectz00,
		BgL_bgl_string2566za700za7za7_2629za7, "procedure", 9);
	      BGL_DEFINE_STRING(BGl_string2486z00zz__evobjectz00,
		BgL_bgl_string2486za700za7za7_2630za7, "class-virtual", 13);
	      BGL_DEFINE_STRING(BGl_string2568z00zz__evobjectz00,
		BgL_bgl_string2568za700za7za7_2631za7, "instantiate", 11);
	      BGL_DEFINE_STRING(BGl_string2569z00zz__evobjectz00,
		BgL_bgl_string2569za700za7za7_2632za7,
		"Abstract classes can't be instantiated", 38);
	      BGL_DEFINE_STRING(BGl_string2488z00zz__evobjectz00,
		BgL_bgl_string2488za700za7za7_2633za7, "clazz", 5);
	      BGL_DEFINE_STRING(BGl_string2570z00zz__evobjectz00,
		BgL_bgl_string2570za700za7za7_2634za7, "Illegal class", 13);
	      BGL_DEFINE_STRING(BGl_string2571z00zz__evobjectz00,
		BgL_bgl_string2571za700za7za7_2635za7, "Illegal binding", 15);
	      BGL_DEFINE_STRING(BGl_string2572z00zz__evobjectz00,
		BgL_bgl_string2572za700za7za7_2636za7, "Illegal variable type", 21);
	      BGL_DEFINE_STRING(BGl_string2573z00zz__evobjectz00,
		BgL_bgl_string2573za700za7za7_2637za7, "__evobject", 10);
	      BGL_DEFINE_STRING(BGl_string2492z00zz__evobjectz00,
		BgL_bgl_string2492za700za7za7_2638za7, "instantiate::", 13);
	      BGL_DEFINE_STRING(BGl_string2493z00zz__evobjectz00,
		BgL_bgl_string2493za700za7za7_2639za7,
		"/tmp/bigloo/runtime/Eval/evobject.scm", 37);
	      BGL_DEFINE_STRING(BGl_string2494z00zz__evobjectz00,
		BgL_bgl_string2494za700za7za7_2640za7, "&eval-expand-instantiate", 24);
	      BGL_DEFINE_STRING(BGl_string2495z00zz__evobjectz00,
		BgL_bgl_string2495za700za7za7_2641za7, "class", 5);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2489z00zz__evobjectz00,
		BgL_bgl_za762za7c3za704anonymo2642za7,
		BGl_z62zc3z04anonymousza31477ze3ze5zz__evobjectz00, 0L, BUNSPEC, 1);
	      BGL_DEFINE_STRING(BGl_string2497z00zz__evobjectz00,
		BgL_bgl_string2497za700za7za7_2643za7, "__object", 8);
	      BGL_DEFINE_STRING(BGl_string2499z00zz__evobjectz00,
		BgL_bgl_string2499za700za7za7_2644za7, "class-field-default-value", 25);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2490z00zz__evobjectz00,
		BgL_bgl_za762za7c3za704anonymo2645za7,
		BGl_z62zc3z04anonymousza31504ze3ze5zz__evobjectz00, 0L, BUNSPEC, 1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_evalzd2expandzd2withzd2accesszd2envz00zz__evobjectz00,
		BgL_bgl_za762evalza7d2expand2646z00,
		BGl_z62evalzd2expandzd2withzd2accesszb0zz__evobjectz00, 0L, BUNSPEC, 1);

/* contant bindings */
	static void bgl_constant_bindings()
	{
		BGL_BIND_PROCEDURE
			(BGl_evalzd2expandzd2withzd2accesszd2envz00zz__evobjectz00,
			BgL_bgl_za762evalza7d2expand2646z00);
		BGL_BIND_PROCEDURE(BGl_proc2490z00zz__evobjectz00,
			BgL_bgl_za762za7c3za704anonymo2645za7);
		BGL_BIND_STRING(BGl_string2499z00zz__evobjectz00,
			BgL_bgl_string2499za700za7za7_2644za7);
		BGL_BIND_STRING(BGl_string2497z00zz__evobjectz00,
			BgL_bgl_string2497za700za7za7_2643za7);
		BGL_BIND_PROCEDURE(BGl_proc2489z00zz__evobjectz00,
			BgL_bgl_za762za7c3za704anonymo2642za7);
		BGL_BIND_STRING(BGl_string2495z00zz__evobjectz00,
			BgL_bgl_string2495za700za7za7_2641za7);
		BGL_BIND_STRING(BGl_string2494z00zz__evobjectz00,
			BgL_bgl_string2494za700za7za7_2640za7);
		BGL_BIND_STRING(BGl_string2493z00zz__evobjectz00,
			BgL_bgl_string2493za700za7za7_2639za7);
		BGL_BIND_STRING(BGl_string2492z00zz__evobjectz00,
			BgL_bgl_string2492za700za7za7_2638za7);
		BGL_BIND_STRING(BGl_string2573z00zz__evobjectz00,
			BgL_bgl_string2573za700za7za7_2637za7);
		BGL_BIND_STRING(BGl_string2572z00zz__evobjectz00,
			BgL_bgl_string2572za700za7za7_2636za7);
		BGL_BIND_STRING(BGl_string2571z00zz__evobjectz00,
			BgL_bgl_string2571za700za7za7_2635za7);
		BGL_BIND_STRING(BGl_string2570z00zz__evobjectz00,
			BgL_bgl_string2570za700za7za7_2634za7);
		BGL_BIND_STRING(BGl_string2488z00zz__evobjectz00,
			BgL_bgl_string2488za700za7za7_2633za7);
		BGL_BIND_STRING(BGl_string2569z00zz__evobjectz00,
			BgL_bgl_string2569za700za7za7_2632za7);
		BGL_BIND_STRING(BGl_string2568z00zz__evobjectz00,
			BgL_bgl_string2568za700za7za7_2631za7);
		BGL_BIND_STRING(BGl_string2486z00zz__evobjectz00,
			BgL_bgl_string2486za700za7za7_2630za7);
		BGL_BIND_STRING(BGl_string2566z00zz__evobjectz00,
			BgL_bgl_string2566za700za7za7_2629za7);
		BGL_BIND_STRING(BGl_string2565z00zz__evobjectz00,
			BgL_bgl_string2565za700za7za7_2628za7);
		BGL_BIND_STRING(BGl_string2483z00zz__evobjectz00,
			BgL_bgl_string2483za700za7za7_2627za7);
		BGL_BIND_STRING(BGl_string2563z00zz__evobjectz00,
			BgL_bgl_string2563za700za7za7_2626za7);
		BGL_BIND_STRING(BGl_string2562z00zz__evobjectz00,
			BgL_bgl_string2562za700za7za7_2625za7);
		BGL_BIND_STRING(BGl_string2480z00zz__evobjectz00,
			BgL_bgl_string2480za700za7za7_2624za7);
		BGL_BIND_STRING(BGl_string2561z00zz__evobjectz00,
			BgL_bgl_string2561za700za7za7_2623za7);
		BGL_BIND_STRING(BGl_string2560z00zz__evobjectz00,
			BgL_bgl_string2560za700za7za7_2622za7);
		BGL_BIND_STRING(BGl_string2478z00zz__evobjectz00,
			BgL_bgl_string2478za700za7za7_2621za7);
		BGL_BIND_STRING(BGl_string2559z00zz__evobjectz00,
			BgL_bgl_string2559za700za7za7_2620za7);
		BGL_BIND_STRING(BGl_string2558z00zz__evobjectz00,
			BgL_bgl_string2558za700za7za7_2619za7);
		BGL_BIND_STRING(BGl_string2476z00zz__evobjectz00,
			BgL_bgl_string2476za700za7za7_2618za7);
		BGL_BIND_STRING(BGl_string2557z00zz__evobjectz00,
			BgL_bgl_string2557za700za7za7_2617za7);
		BGL_BIND_STRING(BGl_string2556z00zz__evobjectz00,
			BgL_bgl_string2556za700za7za7_2616za7);
		BGL_BIND_STRING(BGl_string2554z00zz__evobjectz00,
			BgL_bgl_string2554za700za7za7_2615za7);
		BGL_BIND_STRING(BGl_string2472z00zz__evobjectz00,
			BgL_bgl_string2472za700za7za7_2614za7);
		BGL_BIND_STRING(BGl_string2552z00zz__evobjectz00,
			BgL_bgl_string2552za700za7za7_2613za7);
		BGL_BIND_STRING(BGl_string2470z00zz__evobjectz00,
			BgL_bgl_string2470za700za7za7_2612za7);
		BGL_BIND_STRING(BGl_string2551z00zz__evobjectz00,
			BgL_bgl_string2551za700za7za7_2611za7);
		BGL_BIND_STRING(BGl_string2468z00zz__evobjectz00,
			BgL_bgl_string2468za700za7za7_2610za7);
		BGL_BIND_STRING(BGl_string2549z00zz__evobjectz00,
			BgL_bgl_string2549za700za7za7_2609za7);
		BGL_BIND_STRING(BGl_string2548z00zz__evobjectz00,
			BgL_bgl_string2548za700za7za7_2608za7);
		BGL_BIND_STRING(BGl_string2547z00zz__evobjectz00,
			BgL_bgl_string2547za700za7za7_2607za7);
		BGL_BIND_STRING(BGl_string2545z00zz__evobjectz00,
			BgL_bgl_string2545za700za7za7_2606za7);
		BGL_BIND_STRING(BGl_string2543z00zz__evobjectz00,
			BgL_bgl_string2543za700za7za7_2605za7);
		BGL_BIND_STRING(BGl_string2541z00zz__evobjectz00,
			BgL_bgl_string2541za700za7za7_2604za7);
		BGL_BIND_PROCEDURE(BGl_evalzd2expandzd2instantiatezd2envzd2zz__evobjectz00,
			BgL_bgl_za762evalza7d2expand2603z00);
		BGL_BIND_PROCEDURE(BGl_evalzd2expandzd2duplicatezd2envzd2zz__evobjectz00,
			BgL_bgl_za762evalza7d2expand2602z00);
		BGL_BIND_STRING(BGl_string2539z00zz__evobjectz00,
			BgL_bgl_string2539za700za7za7_2601za7);
		BGL_BIND_STRING(BGl_string2538z00zz__evobjectz00,
			BgL_bgl_string2538za700za7za7_2600za7);
		BGL_BIND_STRING(BGl_string2537z00zz__evobjectz00,
			BgL_bgl_string2537za700za7za7_2599za7);
		BGL_BIND_STRING(BGl_string2535z00zz__evobjectz00,
			BgL_bgl_string2535za700za7za7_2598za7);
		BGL_BIND_STRING(BGl_string2533z00zz__evobjectz00,
			BgL_bgl_string2533za700za7za7_2597za7);
		BGL_BIND_STRING(BGl_string2531z00zz__evobjectz00,
			BgL_bgl_string2531za700za7za7_2596za7);
		BGL_BIND_STRING(BGl_string2529z00zz__evobjectz00,
			BgL_bgl_string2529za700za7za7_2595za7);
		BGL_BIND_STRING(BGl_string2527z00zz__evobjectz00,
			BgL_bgl_string2527za700za7za7_2594za7);
		BGL_BIND_STRING(BGl_string2526z00zz__evobjectz00,
			BgL_bgl_string2526za700za7za7_2593za7);
		BGL_BIND_STRING(BGl_string2525z00zz__evobjectz00,
			BgL_bgl_string2525za700za7za7_2592za7);
		BGL_BIND_STRING(BGl_string2524z00zz__evobjectz00,
			BgL_bgl_string2524za700za7za7_2591za7);
		BGL_BIND_STRING(BGl_string2522z00zz__evobjectz00,
			BgL_bgl_string2522za700za7za7_2590za7);
		BGL_BIND_STRING(BGl_string2520z00zz__evobjectz00,
			BgL_bgl_string2520za700za7za7_2589za7);
		BGL_BIND_STRING(BGl_string2519z00zz__evobjectz00,
			BgL_bgl_string2519za700za7za7_2588za7);
		BGL_BIND_STRING(BGl_string2517z00zz__evobjectz00,
			BgL_bgl_string2517za700za7za7_2587za7);
		BGL_BIND_STRING(BGl_string2516z00zz__evobjectz00,
			BgL_bgl_string2516za700za7za7_2586za7);
		BGL_BIND_STRING(BGl_string2514z00zz__evobjectz00,
			BgL_bgl_string2514za700za7za7_2585za7);
		BGL_BIND_STRING(BGl_string2513z00zz__evobjectz00,
			BgL_bgl_string2513za700za7za7_2584za7);
		BGL_BIND_STRING(BGl_string2512z00zz__evobjectz00,
			BgL_bgl_string2512za700za7za7_2583za7);
		BGL_BIND_STRING(BGl_string2511z00zz__evobjectz00,
			BgL_bgl_string2511za700za7za7_2582za7);
		BGL_BIND_STRING(BGl_string2509z00zz__evobjectz00,
			BgL_bgl_string2509za700za7za7_2581za7);
		BGL_BIND_STRING(BGl_string2507z00zz__evobjectz00,
			BgL_bgl_string2507za700za7za7_2580za7);
		BGL_BIND_STRING(BGl_string2505z00zz__evobjectz00,
			BgL_bgl_string2505za700za7za7_2579za7);
		BGL_BIND_PROCEDURE(BGl_evalzd2classzd2envz00zz__evobjectz00,
			BgL_bgl_za762evalza7d2classza72578za7);
		BGL_BIND_STRING(BGl_string2503z00zz__evobjectz00,
			BgL_bgl_string2503za700za7za7_2577za7);
		BGL_BIND_STRING(BGl_string2502z00zz__evobjectz00,
			BgL_bgl_string2502za700za7za7_2576za7);
		BGL_BIND_STRING(BGl_string2501z00zz__evobjectz00,
			BgL_bgl_string2501za700za7za7_2575za7);
		BGL_BIND_PROCEDURE
			(BGl_evalzd2cozd2instantiatezd2expanderzd2envz00zz__evobjectz00,
			BgL_bgl_za762evalza7d2coza7d2i2574za7);
	}

/* GC roots registration */
	static obj_t bgl_gc_roots_register()
	{
#if defined( BGL_GC_ROOTS )
#define ADD_ROOT( addr ) (addr > roots_max ? roots_max = addr : (addr < roots_min ? roots_min = addr : 0))
		void *roots_min = (void *) ULONG_MAX, *roots_max = 0;

		ADD_ROOT((void *) (&BGl_symbol2482z00zz__evobjectz00));
		ADD_ROOT((void *) (&BGl_symbol2564z00zz__evobjectz00));
		ADD_ROOT((void *) (&BGl_symbol2485z00zz__evobjectz00));
		ADD_ROOT((void *) (&BGl_symbol2567z00zz__evobjectz00));
		ADD_ROOT((void *) (&BGl_symbol2487z00zz__evobjectz00));
		ADD_ROOT((void *) (&BGl_symbol2491z00zz__evobjectz00));
		ADD_ROOT((void *) (&BGl_symbol2496z00zz__evobjectz00));
		ADD_ROOT((void *) (&BGl_symbol2498z00zz__evobjectz00));
		ADD_ROOT((void *) (&BGl_requirezd2initializa7ationz75zz__evobjectz00));
		ADD_ROOT((void *) (&BGl_list2474z00zz__evobjectz00));
		ADD_ROOT((void *) (&BGl_list2481z00zz__evobjectz00));
		ADD_ROOT((void *) (&BGl_list2484z00zz__evobjectz00));
		ADD_ROOT((void *) (&BGl_vector2473z00zz__evobjectz00));
		ADD_ROOT((void *) (&BGl_symbol2500z00zz__evobjectz00));
		ADD_ROOT((void *) (&BGl_symbol2504z00zz__evobjectz00));
		ADD_ROOT((void *) (&BGl_symbol2506z00zz__evobjectz00));
		ADD_ROOT((void *) (&BGl_symbol2508z00zz__evobjectz00));
		ADD_ROOT((void *) (&BGl_symbol2510z00zz__evobjectz00));
		ADD_ROOT((void *) (&BGl_symbol2515z00zz__evobjectz00));
		ADD_ROOT((void *) (&BGl_symbol2518z00zz__evobjectz00));
		ADD_ROOT((void *) (&BGl_symbol2521z00zz__evobjectz00));
		ADD_ROOT((void *) (&BGl_symbol2523z00zz__evobjectz00));
		ADD_ROOT((void *) (&BGl_symbol2528z00zz__evobjectz00));
		ADD_ROOT((void *) (&BGl_symbol2530z00zz__evobjectz00));
		ADD_ROOT((void *) (&BGl_symbol2532z00zz__evobjectz00));
		ADD_ROOT((void *) (&BGl_symbol2534z00zz__evobjectz00));
		ADD_ROOT((void *) (&BGl_symbol2536z00zz__evobjectz00));
		ADD_ROOT((void *) (&BGl_symbol2540z00zz__evobjectz00));
		ADD_ROOT((void *) (&BGl_symbol2542z00zz__evobjectz00));
		ADD_ROOT((void *) (&BGl_symbol2544z00zz__evobjectz00));
		ADD_ROOT((void *) (&BGl_symbol2546z00zz__evobjectz00));
		ADD_ROOT((void *) (&BGl_symbol2469z00zz__evobjectz00));
		ADD_ROOT((void *) (&BGl_symbol2550z00zz__evobjectz00));
		ADD_ROOT((void *) (&BGl_symbol2471z00zz__evobjectz00));
		ADD_ROOT((void *) (&BGl_symbol2553z00zz__evobjectz00));
		ADD_ROOT((void *) (&BGl_symbol2555z00zz__evobjectz00));
		ADD_ROOT((void *) (&BGl_symbol2475z00zz__evobjectz00));
		ADD_ROOT((void *) (&BGl_symbol2477z00zz__evobjectz00));
		ADD_ROOT((void *) (&BGl_symbol2479z00zz__evobjectz00));
#undef ADD_ROOT
		if (roots_max > 0)
			GC_add_roots(roots_min, ((void **) roots_max) + 1);
#endif
		return BUNSPEC;
	}



/* module-initialization */
	BGL_EXPORTED_DEF obj_t BGl_modulezd2initializa7ationz75zz__evobjectz00(long
		BgL_checksumz00_4674, char *BgL_fromz00_4675)
	{
		{
			if (CBOOL(BGl_requirezd2initializa7ationz75zz__evobjectz00))
				{
					BGl_requirezd2initializa7ationz75zz__evobjectz00 =
						BBOOL(((bool_t) 0));
					bgl_constant_bindings();
					BGl_gczd2rootszd2initz00zz__evobjectz00();
					BGl_cnstzd2initzd2zz__evobjectz00();
					BGl_importedzd2moduleszd2initz00zz__evobjectz00();
					return BGl_toplevelzd2initzd2zz__evobjectz00();
				}
			else
				{
					return BUNSPEC;
				}
		}

	}



/* cnst-init */
	obj_t BGl_cnstzd2initzd2zz__evobjectz00(void)
	{
		{	/* Eval/evobject.scm 15 */
			BGl_symbol2469z00zz__evobjectz00 =
				bstring_to_symbol(BGl_string2470z00zz__evobjectz00);
			BGl_symbol2471z00zz__evobjectz00 =
				bstring_to_symbol(BGl_string2472z00zz__evobjectz00);
			BGl_vector2473z00zz__evobjectz00 =
				BGl_listzd2ze3vectorz31zz__r4_vectors_6_8z00(BNIL);
			BGl_symbol2475z00zz__evobjectz00 =
				bstring_to_symbol(BGl_string2476z00zz__evobjectz00);
			BGl_symbol2477z00zz__evobjectz00 =
				bstring_to_symbol(BGl_string2478z00zz__evobjectz00);
			BGl_symbol2479z00zz__evobjectz00 =
				bstring_to_symbol(BGl_string2480z00zz__evobjectz00);
			BGl_list2474z00zz__evobjectz00 =
				MAKE_YOUNG_PAIR(BGl_symbol2475z00zz__evobjectz00,
				MAKE_YOUNG_PAIR(BGl_symbol2477z00zz__evobjectz00,
					MAKE_YOUNG_PAIR(BGl_symbol2479z00zz__evobjectz00, BNIL)));
			BGl_symbol2482z00zz__evobjectz00 =
				bstring_to_symbol(BGl_string2483z00zz__evobjectz00);
			BGl_symbol2485z00zz__evobjectz00 =
				bstring_to_symbol(BGl_string2486z00zz__evobjectz00);
			BGl_symbol2487z00zz__evobjectz00 =
				bstring_to_symbol(BGl_string2488z00zz__evobjectz00);
			BGl_list2484z00zz__evobjectz00 =
				MAKE_YOUNG_PAIR(BGl_symbol2485z00zz__evobjectz00,
				MAKE_YOUNG_PAIR(BGl_symbol2487z00zz__evobjectz00, BNIL));
			BGl_list2481z00zz__evobjectz00 =
				MAKE_YOUNG_PAIR(BGl_symbol2482z00zz__evobjectz00,
				MAKE_YOUNG_PAIR(BGl_symbol2477z00zz__evobjectz00,
					MAKE_YOUNG_PAIR(BGl_symbol2479z00zz__evobjectz00,
						MAKE_YOUNG_PAIR(BGl_list2484z00zz__evobjectz00, BNIL))));
			BGl_symbol2491z00zz__evobjectz00 =
				bstring_to_symbol(BGl_string2492z00zz__evobjectz00);
			BGl_symbol2496z00zz__evobjectz00 =
				bstring_to_symbol(BGl_string2497z00zz__evobjectz00);
			BGl_symbol2498z00zz__evobjectz00 =
				bstring_to_symbol(BGl_string2499z00zz__evobjectz00);
			BGl_symbol2500z00zz__evobjectz00 =
				bstring_to_symbol(BGl_string2501z00zz__evobjectz00);
			BGl_symbol2504z00zz__evobjectz00 =
				bstring_to_symbol(BGl_string2505z00zz__evobjectz00);
			BGl_symbol2506z00zz__evobjectz00 =
				bstring_to_symbol(BGl_string2507z00zz__evobjectz00);
			BGl_symbol2508z00zz__evobjectz00 =
				bstring_to_symbol(BGl_string2509z00zz__evobjectz00);
			BGl_symbol2510z00zz__evobjectz00 =
				bstring_to_symbol(BGl_string2511z00zz__evobjectz00);
			BGl_symbol2515z00zz__evobjectz00 =
				bstring_to_symbol(BGl_string2516z00zz__evobjectz00);
			BGl_symbol2518z00zz__evobjectz00 =
				bstring_to_symbol(BGl_string2519z00zz__evobjectz00);
			BGl_symbol2521z00zz__evobjectz00 =
				bstring_to_symbol(BGl_string2522z00zz__evobjectz00);
			BGl_symbol2523z00zz__evobjectz00 =
				bstring_to_symbol(BGl_string2524z00zz__evobjectz00);
			BGl_symbol2528z00zz__evobjectz00 =
				bstring_to_symbol(BGl_string2529z00zz__evobjectz00);
			BGl_symbol2530z00zz__evobjectz00 =
				bstring_to_symbol(BGl_string2531z00zz__evobjectz00);
			BGl_symbol2532z00zz__evobjectz00 =
				bstring_to_symbol(BGl_string2533z00zz__evobjectz00);
			BGl_symbol2534z00zz__evobjectz00 =
				bstring_to_symbol(BGl_string2535z00zz__evobjectz00);
			BGl_symbol2536z00zz__evobjectz00 =
				bstring_to_symbol(BGl_string2537z00zz__evobjectz00);
			BGl_symbol2540z00zz__evobjectz00 =
				bstring_to_symbol(BGl_string2541z00zz__evobjectz00);
			BGl_symbol2542z00zz__evobjectz00 =
				bstring_to_symbol(BGl_string2543z00zz__evobjectz00);
			BGl_symbol2544z00zz__evobjectz00 =
				bstring_to_symbol(BGl_string2545z00zz__evobjectz00);
			BGl_symbol2546z00zz__evobjectz00 =
				bstring_to_symbol(BGl_string2547z00zz__evobjectz00);
			BGl_symbol2550z00zz__evobjectz00 =
				bstring_to_symbol(BGl_string2551z00zz__evobjectz00);
			BGl_symbol2553z00zz__evobjectz00 =
				bstring_to_symbol(BGl_string2554z00zz__evobjectz00);
			BGl_symbol2555z00zz__evobjectz00 =
				bstring_to_symbol(BGl_string2556z00zz__evobjectz00);
			BGl_symbol2564z00zz__evobjectz00 =
				bstring_to_symbol(BGl_string2562z00zz__evobjectz00);
			return (BGl_symbol2567z00zz__evobjectz00 =
				bstring_to_symbol(BGl_string2568z00zz__evobjectz00), BUNSPEC);
		}

	}



/* gc-roots-init */
	obj_t BGl_gczd2rootszd2initz00zz__evobjectz00(void)
	{
		{	/* Eval/evobject.scm 15 */
			return bgl_gc_roots_register();
		}

	}



/* toplevel-init */
	obj_t BGl_toplevelzd2initzd2zz__evobjectz00(void)
	{
		{	/* Eval/evobject.scm 15 */
			return BUNSPEC;
		}

	}



/* append-21011 */
	obj_t BGl_appendzd221011zd2zz__evobjectz00(obj_t BgL_l1z00_1,
		obj_t BgL_l2z00_2)
	{
		{
			if (NULLP(BgL_l1z00_1))
				{
					return BgL_l2z00_2;
				}
			else
				{
					obj_t BgL_headz00_1250;

					BgL_headz00_1250 = MAKE_YOUNG_PAIR(BNIL, BgL_l2z00_2);
					{
						obj_t BgL_prevz00_2866;
						obj_t BgL_tailz00_2867;

						BgL_prevz00_2866 = BgL_headz00_1250;
						BgL_tailz00_2867 = BgL_l1z00_1;
					BgL_loopz00_2865:
						if (PAIRP(BgL_tailz00_2867))
							{
								obj_t BgL_newzd2prevzd2_2873;

								BgL_newzd2prevzd2_2873 =
									MAKE_YOUNG_PAIR(CAR(BgL_tailz00_2867), BgL_l2z00_2);
								SET_CDR(BgL_prevz00_2866, BgL_newzd2prevzd2_2873);
								{
									obj_t BgL_tailz00_4738;
									obj_t BgL_prevz00_4737;

									BgL_prevz00_4737 = BgL_newzd2prevzd2_2873;
									BgL_tailz00_4738 = CDR(BgL_tailz00_2867);
									BgL_tailz00_2867 = BgL_tailz00_4738;
									BgL_prevz00_2866 = BgL_prevz00_4737;
									goto BgL_loopz00_2865;
								}
							}
						else
							{
								BNIL;
							}
					}
					return CDR(BgL_headz00_1250);
				}
		}

	}



/* get-class-hash */
	long BGl_getzd2classzd2hashz00zz__evobjectz00(obj_t BgL_defz00_3)
	{
		{	/* Llib/object.sch 19 */
			return BGl_loopze71ze7zz__evobjectz00(BgL_defz00_3, 1705L);
		}

	}



/* loop~1 */
	long BGl_loopze71ze7zz__evobjectz00(obj_t BgL_defz00_1260,
		long BgL_hashz00_1261)
	{
		{	/* Llib/object.sch 24 */
		BGl_loopze71ze7zz__evobjectz00:
			if (NULLP(BgL_defz00_1260))
				{	/* Llib/object.sch 27 */
					return BgL_hashz00_1261;
				}
			else
				{	/* Llib/object.sch 27 */
					if (PAIRP(BgL_defz00_1260))
						{
							long BgL_hashz00_4748;
							obj_t BgL_defz00_4746;

							BgL_defz00_4746 = CDR(BgL_defz00_1260);
							BgL_hashz00_4748 =
								BGl_loopze71ze7zz__evobjectz00(CAR(BgL_defz00_1260),
								(1966L ^ BgL_hashz00_1261));
							BgL_hashz00_1261 = BgL_hashz00_4748;
							BgL_defz00_1260 = BgL_defz00_4746;
							goto BGl_loopze71ze7zz__evobjectz00;
						}
					else
						{	/* Llib/object.sch 29 */
							return
								(
								(BGl_getzd2hashnumberzd2persistentz00zz__hashz00
									(BgL_defz00_1260) & 65535L) ^ BgL_hashz00_1261);
						}
				}
		}

	}



/* expand-error */
	obj_t BGl_expandzd2errorzd2zz__evobjectz00(obj_t BgL_pz00_4, obj_t BgL_mz00_5,
		obj_t BgL_xz00_6)
	{
		{	/* Eval/evobject.scm 71 */
			{	/* Eval/evobject.scm 72 */
				obj_t BgL_locz00_1275;

				if (EPAIRP(BgL_xz00_6))
					{	/* Eval/evobject.scm 72 */
						BgL_locz00_1275 = CER(((obj_t) BgL_xz00_6));
					}
				else
					{	/* Eval/evobject.scm 72 */
						BgL_locz00_1275 = BFALSE;
					}
				{	/* Eval/evobject.scm 73 */
					bool_t BgL_test2653z00_4759;

					if (PAIRP(BgL_locz00_1275))
						{	/* Eval/evobject.scm 73 */
							bool_t BgL_test2655z00_4762;

							{	/* Eval/evobject.scm 73 */
								obj_t BgL_tmpz00_4763;

								BgL_tmpz00_4763 = CDR(BgL_locz00_1275);
								BgL_test2655z00_4762 = PAIRP(BgL_tmpz00_4763);
							}
							if (BgL_test2655z00_4762)
								{	/* Eval/evobject.scm 73 */
									obj_t BgL_tmpz00_4766;

									BgL_tmpz00_4766 = CDR(CDR(BgL_locz00_1275));
									BgL_test2653z00_4759 = PAIRP(BgL_tmpz00_4766);
								}
							else
								{	/* Eval/evobject.scm 73 */
									BgL_test2653z00_4759 = ((bool_t) 0);
								}
						}
					else
						{	/* Eval/evobject.scm 73 */
							BgL_test2653z00_4759 = ((bool_t) 0);
						}
					if (BgL_test2653z00_4759)
						{	/* Eval/evobject.scm 73 */
							return
								BGl_errorzf2locationzf2zz__errorz00(BgL_pz00_4, BgL_mz00_5,
								BgL_xz00_6, CAR(CDR(BgL_locz00_1275)),
								CAR(CDR(CDR(BgL_locz00_1275))));
						}
					else
						{	/* Eval/evobject.scm 73 */
							return
								BGl_errorz00zz__errorz00(BgL_pz00_4, BgL_mz00_5, BgL_xz00_6);
						}
				}
			}
		}

	}



/* decompose-ident */
	obj_t BGl_decomposezd2identzd2zz__evobjectz00(obj_t BgL_idz00_42)
	{
		{	/* Eval/evobject.scm 92 */
			{	/* Eval/evobject.scm 93 */
				obj_t BgL_stringz00_1306;

				BgL_stringz00_1306 = SYMBOL_TO_STRING(BgL_idz00_42);
				{	/* Eval/evobject.scm 93 */
					long BgL_lenz00_1307;

					BgL_lenz00_1307 = STRING_LENGTH(BgL_stringz00_1306);
					{	/* Eval/evobject.scm 94 */

						{
							long BgL_walkerz00_1309;

							BgL_walkerz00_1309 = 0L;
						BgL_zc3z04anonymousza31299ze3z87_1310:
							if ((BgL_walkerz00_1309 == BgL_lenz00_1307))
								{	/* Eval/evobject.scm 97 */
									{	/* Eval/evobject.scm 98 */
										int BgL_tmpz00_4781;

										BgL_tmpz00_4781 = (int) (2L);
										BGL_MVALUES_NUMBER_SET(BgL_tmpz00_4781);
									}
									{	/* Eval/evobject.scm 98 */
										int BgL_tmpz00_4784;

										BgL_tmpz00_4784 = (int) (1L);
										BGL_MVALUES_VAL_SET(BgL_tmpz00_4784, BFALSE);
									}
									return BgL_idz00_42;
								}
							else
								{	/* Eval/evobject.scm 99 */
									bool_t BgL_test2657z00_4787;

									if (
										(STRING_REF(BgL_stringz00_1306,
												BgL_walkerz00_1309) == ((unsigned char) ':')))
										{	/* Eval/evobject.scm 99 */
											if ((BgL_walkerz00_1309 < (BgL_lenz00_1307 - 1L)))
												{	/* Eval/evobject.scm 100 */
													BgL_test2657z00_4787 =
														(STRING_REF(BgL_stringz00_1306,
															(BgL_walkerz00_1309 + 1L)) ==
														((unsigned char) ':'));
												}
											else
												{	/* Eval/evobject.scm 100 */
													BgL_test2657z00_4787 = ((bool_t) 0);
												}
										}
									else
										{	/* Eval/evobject.scm 99 */
											BgL_test2657z00_4787 = ((bool_t) 0);
										}
									if (BgL_test2657z00_4787)
										{	/* Eval/evobject.scm 102 */
											obj_t BgL_val0_1097z00_1323;
											obj_t BgL_val1_1098z00_1324;

											BgL_val0_1097z00_1323 =
												bstring_to_symbol(c_substring(BgL_stringz00_1306, 0L,
													BgL_walkerz00_1309));
											BgL_val1_1098z00_1324 =
												bstring_to_symbol(c_substring(BgL_stringz00_1306,
													(BgL_walkerz00_1309 + 2L), BgL_lenz00_1307));
											{	/* Eval/evobject.scm 102 */
												int BgL_tmpz00_4802;

												BgL_tmpz00_4802 = (int) (2L);
												BGL_MVALUES_NUMBER_SET(BgL_tmpz00_4802);
											}
											{	/* Eval/evobject.scm 102 */
												int BgL_tmpz00_4805;

												BgL_tmpz00_4805 = (int) (1L);
												BGL_MVALUES_VAL_SET(BgL_tmpz00_4805,
													BgL_val1_1098z00_1324);
											}
											return BgL_val0_1097z00_1323;
										}
									else
										{
											long BgL_walkerz00_4808;

											BgL_walkerz00_4808 = (BgL_walkerz00_1309 + 1L);
											BgL_walkerz00_1309 = BgL_walkerz00_4808;
											goto BgL_zc3z04anonymousza31299ze3z87_1310;
										}
								}
						}
					}
				}
			}
		}

	}



/* localize */
	obj_t BGl_localiza7eza7zz__evobjectz00(obj_t BgL_locz00_43, obj_t BgL_pz00_44)
	{
		{	/* Eval/evobject.scm 110 */
			{	/* Eval/evobject.scm 111 */
				bool_t BgL_test2660z00_4810;

				if (CBOOL(BgL_locz00_43))
					{	/* Eval/evobject.scm 111 */
						if (EPAIRP(BgL_locz00_43))
							{	/* Eval/evobject.scm 111 */
								BgL_test2660z00_4810 = ((bool_t) 0);
							}
						else
							{	/* Eval/evobject.scm 111 */
								BgL_test2660z00_4810 = ((bool_t) 1);
							}
					}
				else
					{	/* Eval/evobject.scm 111 */
						BgL_test2660z00_4810 = ((bool_t) 1);
					}
				if (BgL_test2660z00_4810)
					{	/* Eval/evobject.scm 111 */
						return BgL_pz00_44;
					}
				else
					{	/* Eval/evobject.scm 111 */
						BGL_TAIL return
							BGl_loopze70ze7zz__evobjectz00(BgL_locz00_43, BgL_pz00_44);
					}
			}
		}

	}



/* loop~0 */
	obj_t BGl_loopze70ze7zz__evobjectz00(obj_t BgL_locz00_4436,
		obj_t BgL_pz00_1339)
	{
		{	/* Eval/evobject.scm 113 */
			{	/* Eval/evobject.scm 114 */
				bool_t BgL_test2663z00_4816;

				if (EPAIRP(BgL_pz00_1339))
					{	/* Eval/evobject.scm 114 */
						BgL_test2663z00_4816 = ((bool_t) 1);
					}
				else
					{	/* Eval/evobject.scm 114 */
						if (PAIRP(BgL_pz00_1339))
							{	/* Eval/evobject.scm 114 */
								BgL_test2663z00_4816 = ((bool_t) 0);
							}
						else
							{	/* Eval/evobject.scm 114 */
								BgL_test2663z00_4816 = ((bool_t) 1);
							}
					}
				if (BgL_test2663z00_4816)
					{	/* Eval/evobject.scm 114 */
						return BgL_pz00_1339;
					}
				else
					{	/* Eval/evobject.scm 116 */
						obj_t BgL_arg1349z00_1344;
						obj_t BgL_arg1351z00_1345;
						obj_t BgL_arg1352z00_1346;

						{	/* Eval/evobject.scm 116 */
							obj_t BgL_arg1353z00_1347;

							BgL_arg1353z00_1347 = CAR(((obj_t) BgL_pz00_1339));
							BgL_arg1349z00_1344 =
								BGl_loopze70ze7zz__evobjectz00(BgL_locz00_4436,
								BgL_arg1353z00_1347);
						}
						{	/* Eval/evobject.scm 116 */
							obj_t BgL_arg1355z00_1348;

							BgL_arg1355z00_1348 = CDR(((obj_t) BgL_pz00_1339));
							BgL_arg1351z00_1345 =
								BGl_loopze70ze7zz__evobjectz00(BgL_locz00_4436,
								BgL_arg1355z00_1348);
						}
						BgL_arg1352z00_1346 = CER(((obj_t) BgL_locz00_4436));
						{	/* Eval/evobject.scm 116 */
							obj_t BgL_res2432z00_2959;

							BgL_res2432z00_2959 =
								MAKE_YOUNG_EPAIR(BgL_arg1349z00_1344, BgL_arg1351z00_1345,
								BgL_arg1352z00_1346);
							return BgL_res2432z00_2959;
						}
					}
			}
		}

	}



/* eval-creator */
	obj_t BGl_evalzd2creatorzd2zz__evobjectz00(obj_t BgL_idz00_45,
		obj_t BgL_nativez00_46, long BgL_lenz00_47, obj_t BgL_classnumz00_48)
	{
		{	/* Eval/evobject.scm 121 */
			{
				long BgL_nz00_1369;

				{	/* Eval/evobject.scm 137 */
					obj_t BgL_fieldsz00_1354;

					{	/* Eval/evobject.scm 137 */
						obj_t BgL_tmpz00_4830;

						BgL_tmpz00_4830 = ((obj_t) BgL_nativez00_46);
						BgL_fieldsz00_1354 = BGL_CLASS_ALL_FIELDS(BgL_tmpz00_4830);
					}
					{	/* Eval/evobject.scm 138 */
						long BgL_g1039z00_1355;

						BgL_g1039z00_1355 = (VECTOR_LENGTH(BgL_fieldsz00_1354) - 1L);
						{
							long BgL_iz00_2979;
							long BgL_nz00_2980;

							BgL_iz00_2979 = BgL_g1039z00_1355;
							BgL_nz00_2980 = 0L;
						BgL_loopz00_2978:
							if ((BgL_iz00_2979 == (-1L)))
								{	/* Eval/evobject.scm 141 */
									BgL_nz00_1369 = BgL_nz00_2980;
									{	/* Eval/evobject.scm 124 */
										obj_t BgL_creatorz00_1371;

										BgL_creatorz00_1371 =
											BGl_classzd2creatorzd2zz__objectz00(BgL_nativez00_46);
										{	/* Eval/evobject.scm 125 */
											obj_t BgL_zc3z04anonymousza31366ze3z87_4333;

											BgL_zc3z04anonymousza31366ze3z87_4333 =
												MAKE_VA_PROCEDURE
												(BGl_z62zc3z04anonymousza31366ze3ze5zz__evobjectz00,
												(int) ((-1L)), (int) (5L));
											PROCEDURE_SET(BgL_zc3z04anonymousza31366ze3z87_4333,
												(int) (0L), BINT(BgL_nz00_1369));
											PROCEDURE_SET(BgL_zc3z04anonymousza31366ze3z87_4333,
												(int) (1L), BINT(BgL_lenz00_47));
											PROCEDURE_SET(BgL_zc3z04anonymousza31366ze3z87_4333,
												(int) (2L), BgL_idz00_45);
											PROCEDURE_SET(BgL_zc3z04anonymousza31366ze3z87_4333,
												(int) (3L), BgL_creatorz00_1371);
											PROCEDURE_SET(BgL_zc3z04anonymousza31366ze3z87_4333,
												(int) (4L), BgL_classnumz00_48);
											return BgL_zc3z04anonymousza31366ze3z87_4333;
										}
									}
								}
							else
								{	/* Eval/evobject.scm 141 */
									if (BGl_classzd2fieldzd2virtualzf3zf3zz__objectz00(VECTOR_REF
											(BgL_fieldsz00_1354, BgL_iz00_2979)))
										{
											long BgL_iz00_4856;

											BgL_iz00_4856 = (BgL_iz00_2979 - 1L);
											BgL_iz00_2979 = BgL_iz00_4856;
											goto BgL_loopz00_2978;
										}
									else
										{
											long BgL_nz00_4860;
											long BgL_iz00_4858;

											BgL_iz00_4858 = (BgL_iz00_2979 - 1L);
											BgL_nz00_4860 = (BgL_nz00_2980 + 1L);
											BgL_nz00_2980 = BgL_nz00_4860;
											BgL_iz00_2979 = BgL_iz00_4858;
											goto BgL_loopz00_2978;
										}
								}
						}
					}
				}
			}
		}

	}



/* &<@anonymous:1366> */
	obj_t BGl_z62zc3z04anonymousza31366ze3ze5zz__evobjectz00(obj_t
		BgL_envz00_4334, obj_t BgL_lz00_4340)
	{
		{	/* Eval/evobject.scm 125 */
			{	/* Eval/evobject.scm 126 */
				long BgL_nz00_4335;
				long BgL_lenz00_4336;
				obj_t BgL_idz00_4337;
				obj_t BgL_creatorz00_4338;
				obj_t BgL_classnumz00_4339;

				BgL_nz00_4335 = (long) CINT(PROCEDURE_REF(BgL_envz00_4334, (int) (0L)));
				BgL_lenz00_4336 =
					(long) CINT(PROCEDURE_REF(BgL_envz00_4334, (int) (1L)));
				BgL_idz00_4337 = ((obj_t) PROCEDURE_REF(BgL_envz00_4334, (int) (2L)));
				BgL_creatorz00_4338 = PROCEDURE_REF(BgL_envz00_4334, (int) (3L));
				BgL_classnumz00_4339 =
					((obj_t) PROCEDURE_REF(BgL_envz00_4334, (int) (4L)));
				if (
					(bgl_list_length(BgL_lz00_4340) == (BgL_nz00_4335 + BgL_lenz00_4336)))
					{	/* Eval/evobject.scm 127 */
						obj_t BgL_oz00_4492;

						BgL_oz00_4492 =
							apply(BgL_creatorz00_4338,
							BGl_takez00zz__r4_pairs_and_lists_6_3z00(BgL_lz00_4340,
								BgL_nz00_4335));
						{	/* Eval/evobject.scm 128 */
							obj_t BgL_arg1370z00_4493;

							BgL_arg1370z00_4493 = CELL_REF(BgL_classnumz00_4339);
							{	/* Eval/evobject.scm 128 */
								long BgL_numz00_4494;

								BgL_numz00_4494 = (long) CINT(BgL_arg1370z00_4493);
								BGL_OBJECT_CLASS_NUM_SET(
									((BgL_objectz00_bglt) BgL_oz00_4492), BgL_numz00_4494);
						}}
						{	/* Eval/evobject.scm 129 */
							obj_t BgL_arg1371z00_4495;

							BgL_arg1371z00_4495 =
								BGl_listzd2ze3vectorz31zz__r4_vectors_6_8z00
								(BGl_listzd2tailzd2zz__r4_pairs_and_lists_6_3z00(BgL_lz00_4340,
									BgL_nz00_4335));
							BGl_z52objectzd2wideningzd2setz12z40zz__objectz00((
									(BgL_objectz00_bglt) BgL_oz00_4492), BgL_arg1371z00_4495);
						}
						return BgL_oz00_4492;
					}
				else
					{	/* Eval/evobject.scm 134 */
						obj_t BgL_arg1373z00_4496;

						{	/* Eval/evobject.scm 134 */
							long BgL_arg1374z00_4497;

							BgL_arg1374z00_4497 = (BgL_nz00_4335 + BgL_lenz00_4336);
							{	/* Eval/evobject.scm 132 */
								obj_t BgL_list1375z00_4498;

								BgL_list1375z00_4498 =
									MAKE_YOUNG_PAIR(BINT(BgL_arg1374z00_4497), BNIL);
								BgL_arg1373z00_4496 =
									BGl_formatz00zz__r4_output_6_10_3z00
									(BGl_string2468z00zz__evobjectz00, BgL_list1375z00_4498);
						}}
						return
							BGl_expandzd2errorzd2zz__evobjectz00(BgL_idz00_4337,
							BgL_arg1373z00_4496, BgL_lz00_4340);
					}
			}
		}

	}



/* patch-field-default-values! */
	bool_t BGl_patchzd2fieldzd2defaultzd2valuesz12zc0zz__evobjectz00(obj_t
		BgL_slotsz00_55, obj_t BgL_fieldsz00_56, obj_t BgL_modulez00_57)
	{
		{	/* Eval/evobject.scm 171 */
			{	/* Eval/evobject.scm 174 */
				obj_t BgL_g1102z00_1397;

				BgL_g1102z00_1397 =
					BGl_vectorzd2ze3listz31zz__r4_vectors_6_8z00(BgL_fieldsz00_56);
				{
					obj_t BgL_ll1099z00_1399;
					obj_t BgL_ll1100z00_1400;

					BgL_ll1099z00_1399 = BgL_g1102z00_1397;
					BgL_ll1100z00_1400 = BgL_slotsz00_55;
				BgL_zc3z04anonymousza31385ze3z87_1401:
					if (NULLP(BgL_ll1099z00_1399))
						{	/* Eval/evobject.scm 181 */
							return ((bool_t) 1);
						}
					else
						{	/* Eval/evobject.scm 181 */
							{	/* Eval/evobject.scm 177 */
								obj_t BgL_fieldz00_1403;
								obj_t BgL_slotz00_1404;

								BgL_fieldz00_1403 = CAR(((obj_t) BgL_ll1099z00_1399));
								BgL_slotz00_1404 = CAR(((obj_t) BgL_ll1100z00_1400));
								{	/* Eval/evobject.scm 179 */
									obj_t BgL_arg1387z00_1405;

									{	/* Eval/evobject.scm 179 */
										obj_t BgL_arg1388z00_1406;

										{	/* Eval/evobject.scm 179 */
											obj_t BgL_arg1389z00_1407;

											{	/* Eval/evobject.scm 179 */
												obj_t BgL_arg1390z00_1408;

												{	/* Eval/evobject.scm 179 */
													obj_t BgL_arg1391z00_1409;

													BgL_arg1391z00_1409 =
														STRUCT_REF(((obj_t) BgL_slotz00_1404), (int) (3L));
													BgL_arg1390z00_1408 =
														MAKE_YOUNG_PAIR(BgL_arg1391z00_1409, BNIL);
												}
												BgL_arg1389z00_1407 =
													MAKE_YOUNG_PAIR(BNIL, BgL_arg1390z00_1408);
											}
											BgL_arg1388z00_1406 =
												MAKE_YOUNG_PAIR(BGl_symbol2469z00zz__evobjectz00,
												BgL_arg1389z00_1407);
										}
										BgL_arg1387z00_1405 =
											BGl_evalz12z12zz__evalz00(BgL_arg1388z00_1406,
											BgL_modulez00_57);
									}
									VECTOR_SET(
										((obj_t) BgL_fieldz00_1403), 6L, BgL_arg1387z00_1405);
							}}
							{	/* Eval/evobject.scm 181 */
								obj_t BgL_arg1392z00_1410;
								obj_t BgL_arg1395z00_1411;

								BgL_arg1392z00_1410 = CDR(((obj_t) BgL_ll1099z00_1399));
								BgL_arg1395z00_1411 = CDR(((obj_t) BgL_ll1100z00_1400));
								{
									obj_t BgL_ll1100z00_4917;
									obj_t BgL_ll1099z00_4916;

									BgL_ll1099z00_4916 = BgL_arg1392z00_1410;
									BgL_ll1100z00_4917 = BgL_arg1395z00_1411;
									BgL_ll1100z00_1400 = BgL_ll1100z00_4917;
									BgL_ll1099z00_1399 = BgL_ll1099z00_4916;
									goto BgL_zc3z04anonymousza31385ze3z87_1401;
								}
							}
						}
				}
			}
		}

	}



/* patch-vfield-accessors! */
	bool_t BGl_patchzd2vfieldzd2accessorsz12z12zz__evobjectz00(obj_t
		BgL_slotsz00_58, obj_t BgL_fieldsz00_59, obj_t BgL_virtualsz00_60,
		obj_t BgL_modulez00_61)
	{
		{	/* Eval/evobject.scm 186 */
			{	/* Eval/evobject.scm 189 */
				obj_t BgL_g1107z00_1413;

				BgL_g1107z00_1413 =
					BGl_vectorzd2ze3listz31zz__r4_vectors_6_8z00(BgL_fieldsz00_59);
				{
					obj_t BgL_l1105z00_1415;

					BgL_l1105z00_1415 = BgL_g1107z00_1413;
				BgL_zc3z04anonymousza31396ze3z87_1416:
					if (PAIRP(BgL_l1105z00_1415))
						{	/* Eval/evobject.scm 203 */
							{	/* Eval/evobject.scm 190 */
								obj_t BgL_fieldz00_1418;

								BgL_fieldz00_1418 = CAR(BgL_l1105z00_1415);
								{	/* Eval/evobject.scm 190 */
									obj_t BgL_idz00_1419;

									BgL_idz00_1419 =
										BGl_classzd2fieldzd2namez00zz__objectz00(BgL_fieldz00_1418);
									{	/* Eval/evobject.scm 190 */
										obj_t BgL_slotz00_1420;

										{
											obj_t BgL_list1104z00_1433;

											BgL_list1104z00_1433 = BgL_slotsz00_58;
										BgL_zc3z04anonymousza31408ze3z87_1434:
											if (PAIRP(BgL_list1104z00_1433))
												{	/* Eval/evobject.scm 191 */
													if (
														(STRUCT_REF(CAR(BgL_list1104z00_1433),
																(int) (0L)) == BgL_idz00_1419))
														{	/* Eval/evobject.scm 191 */
															BgL_slotz00_1420 = CAR(BgL_list1104z00_1433);
														}
													else
														{
															obj_t BgL_list1104z00_4931;

															BgL_list1104z00_4931 = CDR(BgL_list1104z00_1433);
															BgL_list1104z00_1433 = BgL_list1104z00_4931;
															goto BgL_zc3z04anonymousza31408ze3z87_1434;
														}
												}
											else
												{	/* Eval/evobject.scm 191 */
													BgL_slotz00_1420 = BFALSE;
												}
										}
										{	/* Eval/evobject.scm 191 */

											if (CBOOL(STRUCT_REF(
														((obj_t) BgL_slotz00_1420), (int) (5L))))
												{	/* Eval/evobject.scm 194 */
													{	/* Eval/evobject.scm 195 */
														obj_t BgL_arg1399z00_1422;

														{	/* Eval/evobject.scm 195 */
															obj_t BgL_arg1400z00_1423;

															BgL_arg1400z00_1423 =
																STRUCT_REF(
																((obj_t) BgL_slotz00_1420), (int) (5L));
															BgL_arg1399z00_1422 =
																BGl_evalz12z12zz__evalz00(BgL_arg1400z00_1423,
																BgL_modulez00_61);
														}
														{	/* Eval/evobject.scm 80 */
															int BgL_auxz00_4944;
															obj_t BgL_tmpz00_4942;

															BgL_auxz00_4944 = (int) (5L);
															BgL_tmpz00_4942 = ((obj_t) BgL_slotz00_1420);
															STRUCT_SET(BgL_tmpz00_4942, BgL_auxz00_4944,
																BgL_arg1399z00_1422);
													}}
													{	/* Eval/evobject.scm 196 */
														obj_t BgL_arg1401z00_1424;

														{	/* Eval/evobject.scm 196 */
															obj_t BgL_arg1402z00_1425;

															BgL_arg1402z00_1425 =
																STRUCT_REF(
																((obj_t) BgL_slotz00_1420), (int) (6L));
															BgL_arg1401z00_1424 =
																BGl_evalz12z12zz__evalz00(BgL_arg1402z00_1425,
																BgL_modulez00_61);
														}
														{	/* Eval/evobject.scm 80 */
															int BgL_auxz00_4953;
															obj_t BgL_tmpz00_4951;

															BgL_auxz00_4953 = (int) (6L);
															BgL_tmpz00_4951 = ((obj_t) BgL_slotz00_1420);
															STRUCT_SET(BgL_tmpz00_4951, BgL_auxz00_4953,
																BgL_arg1401z00_1424);
													}}
													{	/* Eval/evobject.scm 197 */
														obj_t BgL_arg1403z00_1426;

														BgL_arg1403z00_1426 =
															STRUCT_REF(
															((obj_t) BgL_slotz00_1420), (int) (5L));
														VECTOR_SET(
															((obj_t) BgL_fieldz00_1418), 1L,
															BgL_arg1403z00_1426);
													}
													{	/* Eval/evobject.scm 198 */
														obj_t BgL_arg1404z00_1427;

														BgL_arg1404z00_1427 =
															STRUCT_REF(
															((obj_t) BgL_slotz00_1420), (int) (6L));
														VECTOR_SET(
															((obj_t) BgL_fieldz00_1418), 2L,
															BgL_arg1404z00_1427);
													}
													{	/* Eval/evobject.scm 199 */
														obj_t BgL_numz00_1428;

														BgL_numz00_1428 =
															STRUCT_REF(
															((obj_t) BgL_slotz00_1420), (int) (4L));
														{	/* Eval/evobject.scm 199 */
															obj_t BgL_vfieldz00_1429;

															BgL_vfieldz00_1429 =
																VECTOR_REF(BgL_virtualsz00_60,
																(long) CINT(BgL_numz00_1428));
															{	/* Eval/evobject.scm 200 */

																{	/* Eval/evobject.scm 201 */
																	obj_t BgL_arg1405z00_1430;

																	BgL_arg1405z00_1430 =
																		STRUCT_REF(
																		((obj_t) BgL_slotz00_1420), (int) (5L));
																	{	/* Eval/evobject.scm 201 */
																		obj_t BgL_tmpz00_4974;

																		BgL_tmpz00_4974 =
																			((obj_t) BgL_vfieldz00_1429);
																		SET_CAR(BgL_tmpz00_4974,
																			BgL_arg1405z00_1430);
																}}
																{	/* Eval/evobject.scm 202 */
																	obj_t BgL_arg1407z00_1431;

																	BgL_arg1407z00_1431 =
																		STRUCT_REF(
																		((obj_t) BgL_slotz00_1420), (int) (6L));
																	{	/* Eval/evobject.scm 202 */
																		obj_t BgL_tmpz00_4980;

																		BgL_tmpz00_4980 =
																			((obj_t) BgL_vfieldz00_1429);
																		SET_CDR(BgL_tmpz00_4980,
																			BgL_arg1407z00_1431);
												}}}}}}
											else
												{	/* Eval/evobject.scm 194 */
													BFALSE;
												}
										}
									}
								}
							}
							{
								obj_t BgL_l1105z00_4983;

								BgL_l1105z00_4983 = CDR(BgL_l1105z00_1415);
								BgL_l1105z00_1415 = BgL_l1105z00_4983;
								goto BgL_zc3z04anonymousza31396ze3z87_1416;
							}
						}
					else
						{	/* Eval/evobject.scm 203 */
							return ((bool_t) 1);
						}
				}
			}
		}

	}



/* eval-register-class */
	obj_t BGl_evalzd2registerzd2classz00zz__evobjectz00(obj_t BgL_idz00_62,
		obj_t BgL_modulez00_63, obj_t BgL_superz00_64, bool_t BgL_abstractz00_65,
		obj_t BgL_slotsz00_66, long BgL_hashz00_67, obj_t BgL_constrz00_68)
	{
		{	/* Eval/evobject.scm 208 */
			{	/* Eval/evobject.scm 209 */
				long BgL_siza7eza7_1445;

				{	/* Eval/evobject.scm 209 */
					obj_t BgL_arg1430z00_1470;

					{	/* Eval/evobject.scm 209 */
						obj_t BgL_hook1112z00_1471;

						BgL_hook1112z00_1471 = MAKE_YOUNG_PAIR(BFALSE, BNIL);
						{
							obj_t BgL_l1109z00_1473;
							obj_t BgL_h1110z00_1474;

							BgL_l1109z00_1473 = BgL_slotsz00_66;
							BgL_h1110z00_1474 = BgL_hook1112z00_1471;
						BgL_zc3z04anonymousza31431ze3z87_1475:
							if (NULLP(BgL_l1109z00_1473))
								{	/* Eval/evobject.scm 209 */
									BgL_arg1430z00_1470 = CDR(BgL_hook1112z00_1471);
								}
							else
								{	/* Eval/evobject.scm 209 */
									bool_t BgL_test2675z00_4989;

									{	/* Eval/evobject.scm 209 */
										bool_t BgL_test2676z00_4990;

										{	/* Eval/evobject.scm 80 */
											obj_t BgL_sz00_3042;

											BgL_sz00_3042 = CAR(((obj_t) BgL_l1109z00_1473));
											BgL_test2676z00_4990 =
												CBOOL(STRUCT_REF(BgL_sz00_3042, (int) (5L)));
										}
										if (BgL_test2676z00_4990)
											{	/* Eval/evobject.scm 209 */
												BgL_test2675z00_4989 = ((bool_t) 0);
											}
										else
											{	/* Eval/evobject.scm 209 */
												BgL_test2675z00_4989 = ((bool_t) 1);
											}
									}
									if (BgL_test2675z00_4989)
										{	/* Eval/evobject.scm 209 */
											obj_t BgL_nh1111z00_1480;

											{	/* Eval/evobject.scm 209 */
												obj_t BgL_arg1436z00_1482;

												BgL_arg1436z00_1482 = CAR(((obj_t) BgL_l1109z00_1473));
												BgL_nh1111z00_1480 =
													MAKE_YOUNG_PAIR(BgL_arg1436z00_1482, BNIL);
											}
											SET_CDR(BgL_h1110z00_1474, BgL_nh1111z00_1480);
											{	/* Eval/evobject.scm 209 */
												obj_t BgL_arg1435z00_1481;

												BgL_arg1435z00_1481 = CDR(((obj_t) BgL_l1109z00_1473));
												{
													obj_t BgL_h1110z00_5003;
													obj_t BgL_l1109z00_5002;

													BgL_l1109z00_5002 = BgL_arg1435z00_1481;
													BgL_h1110z00_5003 = BgL_nh1111z00_1480;
													BgL_h1110z00_1474 = BgL_h1110z00_5003;
													BgL_l1109z00_1473 = BgL_l1109z00_5002;
													goto BgL_zc3z04anonymousza31431ze3z87_1475;
												}
											}
										}
									else
										{	/* Eval/evobject.scm 209 */
											obj_t BgL_arg1437z00_1483;

											BgL_arg1437z00_1483 = CDR(((obj_t) BgL_l1109z00_1473));
											{
												obj_t BgL_l1109z00_5006;

												BgL_l1109z00_5006 = BgL_arg1437z00_1483;
												BgL_l1109z00_1473 = BgL_l1109z00_5006;
												goto BgL_zc3z04anonymousza31431ze3z87_1475;
											}
										}
								}
						}
					}
					BgL_siza7eza7_1445 = bgl_list_length(BgL_arg1430z00_1470);
				}
				{	/* Eval/evobject.scm 209 */
					obj_t BgL_offsetz00_1446;

					if (BGl_evalzd2classzf3z21zz__objectz00(BgL_superz00_64))
						{	/* Eval/evobject.scm 210 */
							BgL_offsetz00_1446 =
								BGl_classzd2evdatazd2zz__objectz00(BgL_superz00_64);
						}
					else
						{	/* Eval/evobject.scm 210 */
							BgL_offsetz00_1446 = BINT(0L);
						}
					{	/* Eval/evobject.scm 210 */
						obj_t BgL_nativez00_1447;

						{
							obj_t BgL_superz00_1462;

							BgL_superz00_1462 = BgL_superz00_64;
						BgL_zc3z04anonymousza31424ze3z87_1463:
							if (BGl_evalzd2classzf3z21zz__objectz00(BgL_superz00_1462))
								{
									obj_t BgL_superz00_5014;

									BgL_superz00_5014 =
										BGl_classzd2superzd2zz__objectz00(BgL_superz00_1462);
									BgL_superz00_1462 = BgL_superz00_5014;
									goto BgL_zc3z04anonymousza31424ze3z87_1463;
								}
							else
								{	/* Eval/evobject.scm 213 */
									if ((BgL_superz00_1462 == BGl_objectz00zz__objectz00))
										{	/* Eval/evobject.scm 214 */
											BgL_nativez00_1447 = BGl_objectz00zz__objectz00;
										}
									else
										{	/* Eval/evobject.scm 214 */
											if (BGl_classzd2abstractzf3z21zz__objectz00
												(BgL_superz00_1462))
												{
													obj_t BgL_superz00_5020;

													BgL_superz00_5020 =
														BGl_classzd2superzd2zz__objectz00
														(BgL_superz00_1462);
													BgL_superz00_1462 = BgL_superz00_5020;
													goto BgL_zc3z04anonymousza31424ze3z87_1463;
												}
											else
												{	/* Eval/evobject.scm 215 */
													BgL_nativez00_1447 = BgL_superz00_1462;
												}
										}
								}
						}
						{	/* Eval/evobject.scm 211 */
							long BgL_lengthz00_1448;

							BgL_lengthz00_1448 =
								((long) CINT(BgL_offsetz00_1446) + BgL_siza7eza7_1445);
							{	/* Eval/evobject.scm 217 */
								obj_t BgL_classnumz00_1449;

								BgL_classnumz00_1449 = MAKE_YOUNG_CELL(BINT((-1L)));
								{	/* Eval/evobject.scm 218 */
									obj_t BgL_claza7za7z00_1450;

									{	/* Eval/evobject.scm 223 */
										obj_t BgL_arg1416z00_1453;
										obj_t BgL_arg1417z00_1454;
										obj_t BgL_arg1419z00_1455;
										obj_t BgL_arg1420z00_1456;
										obj_t BgL_arg1421z00_1457;
										obj_t BgL_arg1422z00_1458;

										if (BGl_evmodulezf3zf3zz__evmodulez00(BgL_modulez00_63))
											{	/* Eval/evobject.scm 223 */
												BgL_arg1416z00_1453 =
													BGl_evmodulezd2namezd2zz__evmodulez00
													(BgL_modulez00_63);
											}
										else
											{	/* Eval/evobject.scm 223 */
												BgL_arg1416z00_1453 = BGl_symbol2471z00zz__evobjectz00;
											}
										BgL_arg1417z00_1454 =
											BGl_evalzd2creatorzd2zz__evobjectz00(BgL_idz00_62,
											BgL_nativez00_1447, BgL_lengthz00_1448,
											BgL_classnumz00_1449);
										{	/* Eval/evobject.scm 152 */
											obj_t BgL_allocz00_3049;

											BgL_allocz00_3049 =
												BGl_classzd2allocatorzd2zz__objectz00
												(BgL_nativez00_1447);
											{	/* Eval/evobject.scm 153 */
												obj_t BgL_zc3z04anonymousza31378ze3z87_4342;

												BgL_zc3z04anonymousza31378ze3z87_4342 =
													MAKE_FX_PROCEDURE
													(BGl_z62zc3z04anonymousza31378ze3ze5zz__evobjectz00,
													(int) (0L), (int) (3L));
												PROCEDURE_SET(BgL_zc3z04anonymousza31378ze3z87_4342,
													(int) (0L), BgL_allocz00_3049);
												PROCEDURE_SET(BgL_zc3z04anonymousza31378ze3z87_4342,
													(int) (1L), BgL_classnumz00_1449);
												PROCEDURE_SET(BgL_zc3z04anonymousza31378ze3z87_4342,
													(int) (2L), BINT(BgL_lengthz00_1448));
												BgL_arg1419z00_1455 =
													BgL_zc3z04anonymousza31378ze3z87_4342;
										}}
										if (CBOOL(BgL_constrz00_68))
											{	/* Eval/evobject.scm 235 */
												BgL_arg1420z00_1456 = BgL_constrz00_68;
											}
										else
											{
												obj_t BgL_cz00_3060;

												BgL_cz00_3060 = BgL_superz00_64;
											BgL_findzd2classzd2constructorz00_3059:
												{	/* Eval/evobject.scm 259 */
													obj_t BgL_constz00_3064;

													BgL_constz00_3064 =
														BGl_classzd2constructorzd2zz__objectz00
														(BgL_cz00_3060);
													if (CBOOL(BgL_constz00_3064))
														{	/* Eval/evobject.scm 260 */
															BgL_arg1420z00_1456 = BgL_constz00_3064;
														}
													else
														{	/* Eval/evobject.scm 262 */
															obj_t BgL_sz00_3065;

															BgL_sz00_3065 =
																BGl_classzd2superzd2zz__objectz00
																(BgL_cz00_3060);
															if (BGl_classzf3zf3zz__objectz00(BgL_sz00_3065))
																{
																	obj_t BgL_cz00_5049;

																	BgL_cz00_5049 = BgL_sz00_3065;
																	BgL_cz00_3060 = BgL_cz00_5049;
																	goto BgL_findzd2classzd2constructorz00_3059;
																}
															else
																{	/* Eval/evobject.scm 263 */
																	BgL_arg1420z00_1456 = BFALSE;
																}
														}
												}
											}
										{	/* Eval/evobject.scm 163 */
											obj_t BgL_zc3z04anonymousza31382ze3z87_4341;

											BgL_zc3z04anonymousza31382ze3z87_4341 =
												MAKE_FX_PROCEDURE
												(BGl_z62zc3z04anonymousza31382ze3ze5zz__evobjectz00,
												(int) (1L), (int) (2L));
											PROCEDURE_SET(BgL_zc3z04anonymousza31382ze3z87_4341,
												(int) (0L), BgL_classnumz00_1449);
											PROCEDURE_SET(BgL_zc3z04anonymousza31382ze3z87_4341,
												(int) (1L), BINT(BgL_lengthz00_1448));
											BgL_arg1421z00_1457 =
												BgL_zc3z04anonymousza31382ze3z87_4341;
										}
										BgL_arg1422z00_1458 =
											BGl_makezd2classzd2virtualzd2fieldszd2zz__evobjectz00
											(BgL_slotsz00_66);
										BgL_claza7za7z00_1450 =
											BGl_registerzd2classz12zc0zz__objectz00(BgL_idz00_62,
											BgL_arg1416z00_1453, BgL_superz00_64, BgL_hashz00_67,
											BgL_arg1417z00_1454, BgL_arg1419z00_1455,
											BgL_arg1420z00_1456, BgL_arg1421z00_1457, BFALSE,
											BGl_vector2473z00zz__evobjectz00, BgL_arg1422z00_1458);
									}
									{	/* Eval/evobject.scm 219 */

										{	/* Eval/evobject.scm 244 */
											long BgL_arg1415z00_1451;

											BgL_arg1415z00_1451 =
												BGL_CLASS_NUM(BgL_claza7za7z00_1450);
											CELL_SET(BgL_classnumz00_1449, BINT(BgL_arg1415z00_1451));
										}
										BGl_classzd2evdatazd2setz12z12zz__objectz00
											(BgL_claza7za7z00_1450, BINT(BgL_lengthz00_1448));
										{	/* Eval/evobject.scm 247 */
											obj_t BgL_fieldsz00_1452;

											BgL_fieldsz00_1452 =
												BGl_makezd2classzd2fieldsz00zz__evobjectz00
												(BgL_idz00_62, BgL_claza7za7z00_1450, BgL_slotsz00_66,
												BgL_siza7eza7_1445, BgL_offsetz00_1446);
											BGl_classzd2evfieldszd2setz12z12zz__objectz00
												(BgL_claza7za7z00_1450, BgL_fieldsz00_1452);
											BGl_list2474z00zz__evobjectz00;
											BGl_list2481z00zz__evobjectz00;
										}
										return BgL_claza7za7z00_1450;
									}
								}
							}
						}
					}
				}
			}
		}

	}



/* &<@anonymous:1382> */
	obj_t BGl_z62zc3z04anonymousza31382ze3ze5zz__evobjectz00(obj_t
		BgL_envz00_4343, obj_t BgL_oz00_4346)
	{
		{	/* Eval/evobject.scm 163 */
			{	/* Eval/evobject.scm 164 */
				obj_t BgL_classnumz00_4344;
				long BgL_lengthz00_4345;

				BgL_classnumz00_4344 =
					((obj_t) PROCEDURE_REF(BgL_envz00_4343, (int) (0L)));
				BgL_lengthz00_4345 =
					(long) CINT(PROCEDURE_REF(BgL_envz00_4343, (int) (1L)));
				{	/* Eval/evobject.scm 164 */
					obj_t BgL_arg1383z00_4499;

					BgL_arg1383z00_4499 = CELL_REF(BgL_classnumz00_4344);
					{	/* Eval/evobject.scm 164 */
						long BgL_numz00_4500;

						BgL_numz00_4500 = (long) CINT(BgL_arg1383z00_4499);
						BGL_OBJECT_CLASS_NUM_SET(
							((BgL_objectz00_bglt) BgL_oz00_4346), BgL_numz00_4500);
				}}
				{	/* Eval/evobject.scm 165 */
					obj_t BgL_arg1384z00_4501;

					BgL_arg1384z00_4501 = make_vector(BgL_lengthz00_4345, BFALSE);
					BGl_z52objectzd2wideningzd2setz12z40zz__objectz00(
						((BgL_objectz00_bglt) BgL_oz00_4346), BgL_arg1384z00_4501);
				}
				return BgL_oz00_4346;
			}
		}

	}



/* &<@anonymous:1378> */
	obj_t BGl_z62zc3z04anonymousza31378ze3ze5zz__evobjectz00(obj_t
		BgL_envz00_4347)
	{
		{	/* Eval/evobject.scm 153 */
			{	/* Eval/evobject.scm 154 */
				obj_t BgL_allocz00_4348;
				obj_t BgL_classnumz00_4349;
				long BgL_lengthz00_4350;

				BgL_allocz00_4348 =
					((obj_t) PROCEDURE_REF(BgL_envz00_4347, (int) (0L)));
				BgL_classnumz00_4349 =
					((obj_t) PROCEDURE_REF(BgL_envz00_4347, (int) (1L)));
				BgL_lengthz00_4350 =
					(long) CINT(PROCEDURE_REF(BgL_envz00_4347, (int) (2L)));
				{	/* Eval/evobject.scm 154 */
					obj_t BgL_oz00_4502;

					BgL_oz00_4502 = BGL_PROCEDURE_CALL0(BgL_allocz00_4348);
					{	/* Eval/evobject.scm 155 */
						obj_t BgL_arg1379z00_4503;

						BgL_arg1379z00_4503 = CELL_REF(BgL_classnumz00_4349);
						{	/* Eval/evobject.scm 155 */
							long BgL_numz00_4504;

							BgL_numz00_4504 = (long) CINT(BgL_arg1379z00_4503);
							BGL_OBJECT_CLASS_NUM_SET(
								((BgL_objectz00_bglt) BgL_oz00_4502), BgL_numz00_4504);
					}}
					{	/* Eval/evobject.scm 156 */
						obj_t BgL_arg1380z00_4505;

						BgL_arg1380z00_4505 = make_vector(BgL_lengthz00_4350, BUNSPEC);
						BGl_z52objectzd2wideningzd2setz12z40zz__objectz00(
							((BgL_objectz00_bglt) BgL_oz00_4502), BgL_arg1380z00_4505);
					}
					return BgL_oz00_4502;
				}
			}
		}

	}



/* classgen-slot-anonymous */
	obj_t BGl_classgenzd2slotzd2anonymousz00zz__evobjectz00(obj_t BgL_indexz00_70,
		obj_t BgL_sz00_71, obj_t BgL_classz00_72)
	{
		{	/* Eval/evobject.scm 273 */
			{	/* Eval/evobject.scm 276 */
				obj_t BgL_zc3z04anonymousza31451ze3z87_4352;
				obj_t BgL_zc3z04anonymousza31445ze3z87_4351;

				BgL_zc3z04anonymousza31451ze3z87_4352 =
					MAKE_FX_PROCEDURE(BGl_z62zc3z04anonymousza31451ze3ze5zz__evobjectz00,
					(int) (2L), (int) (3L));
				BgL_zc3z04anonymousza31445ze3z87_4351 =
					MAKE_FX_PROCEDURE(BGl_z62zc3z04anonymousza31445ze3ze5zz__evobjectz00,
					(int) (1L), (int) (3L));
				PROCEDURE_SET(BgL_zc3z04anonymousza31451ze3z87_4352,
					(int) (0L), BgL_sz00_71);
				PROCEDURE_SET(BgL_zc3z04anonymousza31451ze3z87_4352,
					(int) (1L), BgL_classz00_72);
				PROCEDURE_SET(BgL_zc3z04anonymousza31451ze3z87_4352,
					(int) (2L), BgL_indexz00_70);
				PROCEDURE_SET(BgL_zc3z04anonymousza31445ze3z87_4351,
					(int) (0L), BgL_sz00_71);
				PROCEDURE_SET(BgL_zc3z04anonymousza31445ze3z87_4351,
					(int) (1L), BgL_classz00_72);
				PROCEDURE_SET(BgL_zc3z04anonymousza31445ze3z87_4351,
					(int) (2L), BgL_indexz00_70);
				{	/* Eval/evobject.scm 274 */
					obj_t BgL_list1443z00_1492;

					{	/* Eval/evobject.scm 274 */
						obj_t BgL_arg1444z00_1493;

						BgL_arg1444z00_1493 =
							MAKE_YOUNG_PAIR(BgL_zc3z04anonymousza31451ze3z87_4352, BNIL);
						BgL_list1443z00_1492 =
							MAKE_YOUNG_PAIR(BgL_zc3z04anonymousza31445ze3z87_4351,
							BgL_arg1444z00_1493);
					}
					return BgL_list1443z00_1492;
				}
			}
		}

	}



/* &<@anonymous:1445> */
	obj_t BGl_z62zc3z04anonymousza31445ze3ze5zz__evobjectz00(obj_t
		BgL_envz00_4353, obj_t BgL_oz00_4357)
	{
		{	/* Eval/evobject.scm 275 */
			{	/* Eval/evobject.scm 276 */
				obj_t BgL_sz00_4354;
				obj_t BgL_classz00_4355;
				obj_t BgL_indexz00_4356;

				BgL_sz00_4354 = PROCEDURE_REF(BgL_envz00_4353, (int) (0L));
				BgL_classz00_4355 =
					((obj_t) PROCEDURE_REF(BgL_envz00_4353, (int) (1L)));
				BgL_indexz00_4356 = PROCEDURE_REF(BgL_envz00_4353, (int) (2L));
				{	/* Eval/evobject.scm 276 */
					bool_t BgL_test2685z00_5126;

					if (BGL_OBJECTP(BgL_oz00_4357))
						{	/* Eval/evobject.scm 276 */
							BgL_objectz00_bglt BgL_arg2395z00_4506;
							long BgL_arg2396z00_4507;

							BgL_arg2395z00_4506 = (BgL_objectz00_bglt) (BgL_oz00_4357);
							BgL_arg2396z00_4507 = BGL_CLASS_DEPTH(BgL_classz00_4355);
							if (BGL_CONDEXPAND_ISA_ARCH64())
								{	/* Eval/evobject.scm 276 */
									long BgL_idxz00_4508;

									BgL_idxz00_4508 =
										BGL_OBJECT_INHERITANCE_NUM(BgL_arg2395z00_4506);
									BgL_test2685z00_5126 =
										(VECTOR_REF(BGl_za2inheritancesza2z00zz__objectz00,
											(BgL_idxz00_4508 + BgL_arg2396z00_4507)) ==
										BgL_classz00_4355);
								}
							else
								{	/* Eval/evobject.scm 276 */
									bool_t BgL_res2435z00_4511;

									{	/* Eval/evobject.scm 276 */
										obj_t BgL_oclassz00_4512;

										{	/* Eval/evobject.scm 276 */
											obj_t BgL_arg2400z00_4513;
											long BgL_arg2402z00_4514;

											BgL_arg2400z00_4513 = (BGl_za2classesza2z00zz__objectz00);
											{	/* Eval/evobject.scm 276 */
												long BgL_arg2404z00_4515;

												BgL_arg2404z00_4515 =
													BGL_OBJECT_CLASS_NUM(BgL_arg2395z00_4506);
												BgL_arg2402z00_4514 =
													(BgL_arg2404z00_4515 - OBJECT_TYPE);
											}
											BgL_oclassz00_4512 =
												VECTOR_REF(BgL_arg2400z00_4513, BgL_arg2402z00_4514);
										}
										{	/* Eval/evobject.scm 276 */
											bool_t BgL__ortest_1092z00_4516;

											BgL__ortest_1092z00_4516 =
												(BgL_classz00_4355 == BgL_oclassz00_4512);
											if (BgL__ortest_1092z00_4516)
												{	/* Eval/evobject.scm 276 */
													BgL_res2435z00_4511 = BgL__ortest_1092z00_4516;
												}
											else
												{	/* Eval/evobject.scm 276 */
													long BgL_odepthz00_4517;

													{	/* Eval/evobject.scm 276 */
														obj_t BgL_arg2390z00_4518;

														BgL_arg2390z00_4518 = (BgL_oclassz00_4512);
														BgL_odepthz00_4517 =
															BGL_CLASS_DEPTH(BgL_arg2390z00_4518);
													}
													if ((BgL_arg2396z00_4507 < BgL_odepthz00_4517))
														{	/* Eval/evobject.scm 276 */
															obj_t BgL_arg2388z00_4519;

															{	/* Eval/evobject.scm 276 */
																obj_t BgL_arg2389z00_4520;

																BgL_arg2389z00_4520 = (BgL_oclassz00_4512);
																BgL_arg2388z00_4519 =
																	BGL_CLASS_ANCESTORS_REF(BgL_arg2389z00_4520,
																	BgL_arg2396z00_4507);
															}
															BgL_res2435z00_4511 =
																(BgL_arg2388z00_4519 == BgL_classz00_4355);
														}
													else
														{	/* Eval/evobject.scm 276 */
															BgL_res2435z00_4511 = ((bool_t) 0);
														}
												}
										}
									}
									BgL_test2685z00_5126 = BgL_res2435z00_4511;
								}
						}
					else
						{	/* Eval/evobject.scm 276 */
							BgL_test2685z00_5126 = ((bool_t) 0);
						}
					if (BgL_test2685z00_5126)
						{	/* Eval/evobject.scm 277 */
							obj_t BgL_arg1447z00_4521;

							BgL_arg1447z00_4521 =
								BGl_z52objectzd2wideningz80zz__objectz00(
								((BgL_objectz00_bglt) BgL_oz00_4357));
							{	/* Eval/evobject.scm 277 */
								long BgL_kz00_4522;

								BgL_kz00_4522 = (long) CINT(BgL_indexz00_4356);
								return VECTOR_REF(((obj_t) BgL_arg1447z00_4521), BgL_kz00_4522);
							}
						}
					else
						{	/* Eval/evobject.scm 278 */
							obj_t BgL_arg1448z00_4523;
							obj_t BgL_arg1450z00_4524;

							BgL_arg1448z00_4523 =
								STRUCT_REF(((obj_t) BgL_sz00_4354), (int) (0L));
							BgL_arg1450z00_4524 =
								BGl_classzd2namezd2zz__objectz00(BgL_classz00_4355);
							return
								BGl_bigloozd2typezd2errorz00zz__errorz00(BgL_arg1448z00_4523,
								BgL_arg1450z00_4524, BgL_oz00_4357);
						}
				}
			}
		}

	}



/* &<@anonymous:1451> */
	obj_t BGl_z62zc3z04anonymousza31451ze3ze5zz__evobjectz00(obj_t
		BgL_envz00_4358, obj_t BgL_oz00_4362, obj_t BgL_vz00_4363)
	{
		{	/* Eval/evobject.scm 279 */
			{	/* Eval/evobject.scm 280 */
				obj_t BgL_sz00_4359;
				obj_t BgL_classz00_4360;
				obj_t BgL_indexz00_4361;

				BgL_sz00_4359 = PROCEDURE_REF(BgL_envz00_4358, (int) (0L));
				BgL_classz00_4360 =
					((obj_t) PROCEDURE_REF(BgL_envz00_4358, (int) (1L)));
				BgL_indexz00_4361 = PROCEDURE_REF(BgL_envz00_4358, (int) (2L));
				{	/* Eval/evobject.scm 280 */
					bool_t BgL_test2690z00_5167;

					if (BGL_OBJECTP(BgL_oz00_4362))
						{	/* Eval/evobject.scm 280 */
							BgL_objectz00_bglt BgL_arg2395z00_4525;
							long BgL_arg2396z00_4526;

							BgL_arg2395z00_4525 = (BgL_objectz00_bglt) (BgL_oz00_4362);
							BgL_arg2396z00_4526 = BGL_CLASS_DEPTH(BgL_classz00_4360);
							if (BGL_CONDEXPAND_ISA_ARCH64())
								{	/* Eval/evobject.scm 280 */
									long BgL_idxz00_4527;

									BgL_idxz00_4527 =
										BGL_OBJECT_INHERITANCE_NUM(BgL_arg2395z00_4525);
									BgL_test2690z00_5167 =
										(VECTOR_REF(BGl_za2inheritancesza2z00zz__objectz00,
											(BgL_idxz00_4527 + BgL_arg2396z00_4526)) ==
										BgL_classz00_4360);
								}
							else
								{	/* Eval/evobject.scm 280 */
									bool_t BgL_res2436z00_4530;

									{	/* Eval/evobject.scm 280 */
										obj_t BgL_oclassz00_4531;

										{	/* Eval/evobject.scm 280 */
											obj_t BgL_arg2400z00_4532;
											long BgL_arg2402z00_4533;

											BgL_arg2400z00_4532 = (BGl_za2classesza2z00zz__objectz00);
											{	/* Eval/evobject.scm 280 */
												long BgL_arg2404z00_4534;

												BgL_arg2404z00_4534 =
													BGL_OBJECT_CLASS_NUM(BgL_arg2395z00_4525);
												BgL_arg2402z00_4533 =
													(BgL_arg2404z00_4534 - OBJECT_TYPE);
											}
											BgL_oclassz00_4531 =
												VECTOR_REF(BgL_arg2400z00_4532, BgL_arg2402z00_4533);
										}
										{	/* Eval/evobject.scm 280 */
											bool_t BgL__ortest_1092z00_4535;

											BgL__ortest_1092z00_4535 =
												(BgL_classz00_4360 == BgL_oclassz00_4531);
											if (BgL__ortest_1092z00_4535)
												{	/* Eval/evobject.scm 280 */
													BgL_res2436z00_4530 = BgL__ortest_1092z00_4535;
												}
											else
												{	/* Eval/evobject.scm 280 */
													long BgL_odepthz00_4536;

													{	/* Eval/evobject.scm 280 */
														obj_t BgL_arg2390z00_4537;

														BgL_arg2390z00_4537 = (BgL_oclassz00_4531);
														BgL_odepthz00_4536 =
															BGL_CLASS_DEPTH(BgL_arg2390z00_4537);
													}
													if ((BgL_arg2396z00_4526 < BgL_odepthz00_4536))
														{	/* Eval/evobject.scm 280 */
															obj_t BgL_arg2388z00_4538;

															{	/* Eval/evobject.scm 280 */
																obj_t BgL_arg2389z00_4539;

																BgL_arg2389z00_4539 = (BgL_oclassz00_4531);
																BgL_arg2388z00_4538 =
																	BGL_CLASS_ANCESTORS_REF(BgL_arg2389z00_4539,
																	BgL_arg2396z00_4526);
															}
															BgL_res2436z00_4530 =
																(BgL_arg2388z00_4538 == BgL_classz00_4360);
														}
													else
														{	/* Eval/evobject.scm 280 */
															BgL_res2436z00_4530 = ((bool_t) 0);
														}
												}
										}
									}
									BgL_test2690z00_5167 = BgL_res2436z00_4530;
								}
						}
					else
						{	/* Eval/evobject.scm 280 */
							BgL_test2690z00_5167 = ((bool_t) 0);
						}
					if (BgL_test2690z00_5167)
						{	/* Eval/evobject.scm 281 */
							obj_t BgL_arg1453z00_4540;

							BgL_arg1453z00_4540 =
								BGl_z52objectzd2wideningz80zz__objectz00(
								((BgL_objectz00_bglt) BgL_oz00_4362));
							{	/* Eval/evobject.scm 281 */
								long BgL_kz00_4541;

								BgL_kz00_4541 = (long) CINT(BgL_indexz00_4361);
								return
									VECTOR_SET(
									((obj_t) BgL_arg1453z00_4540), BgL_kz00_4541, BgL_vz00_4363);
							}
						}
					else
						{	/* Eval/evobject.scm 282 */
							obj_t BgL_arg1455z00_4542;
							obj_t BgL_arg1456z00_4543;

							BgL_arg1455z00_4542 =
								STRUCT_REF(((obj_t) BgL_sz00_4359), (int) (0L));
							BgL_arg1456z00_4543 =
								BGl_classzd2namezd2zz__objectz00(BgL_classz00_4360);
							return
								BGl_bigloozd2typezd2errorz00zz__errorz00(BgL_arg1455z00_4542,
								BgL_arg1456z00_4543, BgL_oz00_4362);
						}
				}
			}
		}

	}



/* make-class-fields */
	obj_t BGl_makezd2classzd2fieldsz00zz__evobjectz00(obj_t BgL_idz00_73,
		obj_t BgL_classz00_74, obj_t BgL_slotsz00_75, long BgL_siza7eza7_76,
		obj_t BgL_offsetz00_77)
	{
		{	/* Eval/evobject.scm 287 */
			{
				obj_t BgL_sz00_1566;
				obj_t BgL_iz00_1567;
				obj_t BgL_classz00_1568;

				{	/* Eval/evobject.scm 312 */
					obj_t BgL_arg1457z00_1511;

					{	/* Eval/evobject.scm 312 */
						obj_t BgL_arg1458z00_1512;
						obj_t BgL_arg1459z00_1513;

						{	/* Eval/evobject.scm 312 */
							obj_t BgL_ll1118z00_1514;
							obj_t BgL_ll1119z00_1515;

							{	/* Eval/evobject.scm 314 */
								obj_t BgL_hook1117z00_1531;

								BgL_hook1117z00_1531 = MAKE_YOUNG_PAIR(BFALSE, BNIL);
								{
									obj_t BgL_l1114z00_1533;
									obj_t BgL_h1115z00_1534;

									BgL_l1114z00_1533 = BgL_slotsz00_75;
									BgL_h1115z00_1534 = BgL_hook1117z00_1531;
								BgL_zc3z04anonymousza31467ze3z87_1535:
									if (NULLP(BgL_l1114z00_1533))
										{	/* Eval/evobject.scm 314 */
											BgL_ll1118z00_1514 = CDR(BgL_hook1117z00_1531);
										}
									else
										{	/* Eval/evobject.scm 314 */
											bool_t BgL_test2696z00_5205;

											{	/* Eval/evobject.scm 314 */
												bool_t BgL_test2697z00_5206;

												{	/* Eval/evobject.scm 80 */
													obj_t BgL_sz00_3194;

													BgL_sz00_3194 = CAR(((obj_t) BgL_l1114z00_1533));
													BgL_test2697z00_5206 =
														CBOOL(STRUCT_REF(BgL_sz00_3194, (int) (5L)));
												}
												if (BgL_test2697z00_5206)
													{	/* Eval/evobject.scm 314 */
														BgL_test2696z00_5205 = ((bool_t) 0);
													}
												else
													{	/* Eval/evobject.scm 314 */
														BgL_test2696z00_5205 = ((bool_t) 1);
													}
											}
											if (BgL_test2696z00_5205)
												{	/* Eval/evobject.scm 314 */
													obj_t BgL_nh1116z00_1540;

													{	/* Eval/evobject.scm 314 */
														obj_t BgL_arg1472z00_1542;

														BgL_arg1472z00_1542 =
															CAR(((obj_t) BgL_l1114z00_1533));
														BgL_nh1116z00_1540 =
															MAKE_YOUNG_PAIR(BgL_arg1472z00_1542, BNIL);
													}
													SET_CDR(BgL_h1115z00_1534, BgL_nh1116z00_1540);
													{	/* Eval/evobject.scm 314 */
														obj_t BgL_arg1471z00_1541;

														BgL_arg1471z00_1541 =
															CDR(((obj_t) BgL_l1114z00_1533));
														{
															obj_t BgL_h1115z00_5219;
															obj_t BgL_l1114z00_5218;

															BgL_l1114z00_5218 = BgL_arg1471z00_1541;
															BgL_h1115z00_5219 = BgL_nh1116z00_1540;
															BgL_h1115z00_1534 = BgL_h1115z00_5219;
															BgL_l1114z00_1533 = BgL_l1114z00_5218;
															goto BgL_zc3z04anonymousza31467ze3z87_1535;
														}
													}
												}
											else
												{	/* Eval/evobject.scm 314 */
													obj_t BgL_arg1473z00_1543;

													BgL_arg1473z00_1543 =
														CDR(((obj_t) BgL_l1114z00_1533));
													{
														obj_t BgL_l1114z00_5222;

														BgL_l1114z00_5222 = BgL_arg1473z00_1543;
														BgL_l1114z00_1533 = BgL_l1114z00_5222;
														goto BgL_zc3z04anonymousza31467ze3z87_1535;
													}
												}
										}
								}
							}
							{	/* Eval/evobject.scm 315 */
								obj_t BgL_list1474z00_1547;

								BgL_list1474z00_1547 = MAKE_YOUNG_PAIR(BgL_offsetz00_77, BNIL);
								BgL_ll1119z00_1515 =
									BGl_iotaz00zz__r4_pairs_and_lists_6_3z00(
									(int) (BgL_siza7eza7_76), BgL_list1474z00_1547);
							}
							if (NULLP(BgL_ll1118z00_1514))
								{	/* Eval/evobject.scm 312 */
									BgL_arg1458z00_1512 = BNIL;
								}
							else
								{	/* Eval/evobject.scm 312 */
									obj_t BgL_head1120z00_1517;

									BgL_head1120z00_1517 = MAKE_YOUNG_PAIR(BNIL, BNIL);
									{
										obj_t BgL_ll1118z00_3226;
										obj_t BgL_ll1119z00_3227;
										obj_t BgL_tail1121z00_3228;

										BgL_ll1118z00_3226 = BgL_ll1118z00_1514;
										BgL_ll1119z00_3227 = BgL_ll1119z00_1515;
										BgL_tail1121z00_3228 = BgL_head1120z00_1517;
									BgL_zc3z04anonymousza31461ze3z87_3225:
										if (NULLP(BgL_ll1118z00_3226))
											{	/* Eval/evobject.scm 312 */
												BgL_arg1458z00_1512 = CDR(BgL_head1120z00_1517);
											}
										else
											{	/* Eval/evobject.scm 312 */
												obj_t BgL_newtail1122z00_3237;

												{	/* Eval/evobject.scm 312 */
													obj_t BgL_arg1466z00_3238;

													{	/* Eval/evobject.scm 312 */
														obj_t BgL_slotz00_3239;
														obj_t BgL_indexz00_3240;

														BgL_slotz00_3239 =
															CAR(((obj_t) BgL_ll1118z00_3226));
														BgL_indexz00_3240 =
															CAR(((obj_t) BgL_ll1119z00_3227));
														BgL_sz00_1566 = BgL_slotz00_3239;
														BgL_iz00_1567 = BgL_indexz00_3240;
														BgL_classz00_1568 = BgL_classz00_74;
														{	/* Eval/evobject.scm 299 */
															obj_t BgL_defsz00_1570;

															BgL_defsz00_1570 =
																BGl_classgenzd2slotzd2anonymousz00zz__evobjectz00
																(BgL_iz00_1567, BgL_sz00_1566,
																BgL_classz00_1568);
															{	/* Eval/evobject.scm 301 */
																obj_t BgL_arg1491z00_1571;
																obj_t BgL_arg1492z00_1572;
																obj_t BgL_arg1494z00_1573;
																obj_t BgL_arg1495z00_1574;
																obj_t BgL_arg1497z00_1575;
																obj_t BgL_arg1498z00_1576;
																obj_t BgL_arg1499z00_1577;

																BgL_arg1491z00_1571 =
																	STRUCT_REF(
																	((obj_t) BgL_sz00_1566), (int) (0L));
																BgL_arg1492z00_1572 =
																	CAR(((obj_t) BgL_defsz00_1570));
																{	/* Eval/evobject.scm 302 */
																	obj_t BgL_pairz00_3187;

																	BgL_pairz00_3187 =
																		CDR(((obj_t) BgL_defsz00_1570));
																	BgL_arg1494z00_1573 = CAR(BgL_pairz00_3187);
																}
																BgL_arg1495z00_1574 =
																	STRUCT_REF(
																	((obj_t) BgL_sz00_1566), (int) (2L));
																{	/* Eval/evobject.scm 304 */
																	obj_t BgL_arg1500z00_1578;

																	BgL_arg1500z00_1578 =
																		STRUCT_REF(
																		((obj_t) BgL_sz00_1566), (int) (7L));
																	{	/* Eval/eval.scm 82 */
																		obj_t BgL_envz00_1580;

																		BgL_envz00_1580 =
																			BGl_defaultzd2environmentzd2zz__evalz00();
																		{	/* Eval/eval.scm 82 */

																			BgL_arg1497z00_1575 =
																				BGl_evalz12z12zz__evalz00
																				(BgL_arg1500z00_1578, BgL_envz00_1580);
																}}}
																BgL_arg1498z00_1576 =
																	STRUCT_REF(
																	((obj_t) BgL_sz00_1566), (int) (3L));
																BgL_arg1499z00_1577 =
																	STRUCT_REF(
																	((obj_t) BgL_sz00_1566), (int) (1L));
																BgL_arg1466z00_3238 =
																	BGl_makezd2classzd2fieldz00zz__objectz00
																	(BgL_arg1491z00_1571, BgL_arg1492z00_1572,
																	BgL_arg1494z00_1573,
																	CBOOL(BgL_arg1495z00_1574), ((bool_t) 0),
																	BgL_arg1497z00_1575, BgL_arg1498z00_1576,
																	BgL_arg1499z00_1577);
													}}}
													BgL_newtail1122z00_3237 =
														MAKE_YOUNG_PAIR(BgL_arg1466z00_3238, BNIL);
												}
												SET_CDR(BgL_tail1121z00_3228, BgL_newtail1122z00_3237);
												{	/* Eval/evobject.scm 312 */
													obj_t BgL_arg1464z00_3241;
													obj_t BgL_arg1465z00_3242;

													BgL_arg1464z00_3241 =
														CDR(((obj_t) BgL_ll1118z00_3226));
													BgL_arg1465z00_3242 =
														CDR(((obj_t) BgL_ll1119z00_3227));
													{
														obj_t BgL_tail1121z00_5269;
														obj_t BgL_ll1119z00_5268;
														obj_t BgL_ll1118z00_5267;

														BgL_ll1118z00_5267 = BgL_arg1464z00_3241;
														BgL_ll1119z00_5268 = BgL_arg1465z00_3242;
														BgL_tail1121z00_5269 = BgL_newtail1122z00_3237;
														BgL_tail1121z00_3228 = BgL_tail1121z00_5269;
														BgL_ll1119z00_3227 = BgL_ll1119z00_5268;
														BgL_ll1118z00_3226 = BgL_ll1118z00_5267;
														goto BgL_zc3z04anonymousza31461ze3z87_3225;
													}
												}
											}
									}
								}
						}
						{	/* Eval/evobject.scm 316 */
							obj_t BgL_list1476z00_1549;

							BgL_list1476z00_1549 = MAKE_YOUNG_PAIR(BgL_slotsz00_75, BNIL);
							BgL_arg1459z00_1513 =
								BGl_filterzd2mapzd2zz__r4_control_features_6_9z00
								(BGl_proc2489z00zz__evobjectz00, BgL_list1476z00_1549);
						}
						BgL_arg1457z00_1511 =
							BGl_appendzd221011zd2zz__evobjectz00(BgL_arg1458z00_1512,
							BgL_arg1459z00_1513);
					}
					return
						BGl_listzd2ze3vectorz31zz__r4_vectors_6_8z00(BgL_arg1457z00_1511);
				}
			}
		}

	}



/* &<@anonymous:1477> */
	obj_t BGl_z62zc3z04anonymousza31477ze3ze5zz__evobjectz00(obj_t
		BgL_envz00_4365, obj_t BgL_slotz00_4366)
	{
		{	/* Eval/evobject.scm 316 */
			{
				obj_t BgL_sz00_4545;

				if (CBOOL(STRUCT_REF(((obj_t) BgL_slotz00_4366), (int) (5L))))
					{	/* Eval/evobject.scm 317 */
						BgL_sz00_4545 = BgL_slotz00_4366;
						{	/* Eval/evobject.scm 291 */
							obj_t BgL_arg1480z00_4546;
							obj_t BgL_arg1481z00_4547;
							obj_t BgL_arg1482z00_4548;
							obj_t BgL_arg1483z00_4549;
							obj_t BgL_arg1484z00_4550;
							obj_t BgL_arg1486z00_4551;
							obj_t BgL_arg1487z00_4552;

							BgL_arg1480z00_4546 =
								STRUCT_REF(((obj_t) BgL_sz00_4545), (int) (0L));
							BgL_arg1481z00_4547 =
								STRUCT_REF(((obj_t) BgL_sz00_4545), (int) (5L));
							BgL_arg1482z00_4548 =
								STRUCT_REF(((obj_t) BgL_sz00_4545), (int) (6L));
							BgL_arg1483z00_4549 =
								STRUCT_REF(((obj_t) BgL_sz00_4545), (int) (2L));
							{	/* Eval/evobject.scm 294 */
								obj_t BgL_arg1488z00_4553;

								BgL_arg1488z00_4553 =
									STRUCT_REF(((obj_t) BgL_sz00_4545), (int) (7L));
								{	/* Eval/evobject.scm 294 */
									obj_t BgL_envz00_4554;

									BgL_envz00_4554 = BGl_defaultzd2environmentzd2zz__evalz00();
									{	/* Eval/evobject.scm 294 */

										BgL_arg1484z00_4550 =
											BGl_evalz12z12zz__evalz00(BgL_arg1488z00_4553,
											BgL_envz00_4554);
							}}}
							BgL_arg1486z00_4551 =
								STRUCT_REF(((obj_t) BgL_sz00_4545), (int) (3L));
							BgL_arg1487z00_4552 =
								STRUCT_REF(((obj_t) BgL_sz00_4545), (int) (1L));
							return
								BGl_makezd2classzd2fieldz00zz__objectz00(BgL_arg1480z00_4546,
								BgL_arg1481z00_4547, BgL_arg1482z00_4548,
								CBOOL(BgL_arg1483z00_4549), ((bool_t) 1), BgL_arg1484z00_4550,
								BgL_arg1486z00_4551, BgL_arg1487z00_4552);
						}
					}
				else
					{	/* Eval/evobject.scm 317 */
						return BFALSE;
					}
			}
		}

	}



/* make-class-virtual-fields */
	obj_t BGl_makezd2classzd2virtualzd2fieldszd2zz__evobjectz00(obj_t
		BgL_slotsz00_78)
	{
		{	/* Eval/evobject.scm 324 */
			{	/* Eval/evobject.scm 327 */
				obj_t BgL_arg1501z00_1583;

				{	/* Eval/evobject.scm 326 */
					obj_t BgL_list1503z00_1585;

					BgL_list1503z00_1585 = MAKE_YOUNG_PAIR(BgL_slotsz00_78, BNIL);
					BgL_arg1501z00_1583 =
						BGl_filterzd2mapzd2zz__r4_control_features_6_9z00
						(BGl_proc2490z00zz__evobjectz00, BgL_list1503z00_1585);
				}
				return
					BGl_listzd2ze3vectorz31zz__r4_vectors_6_8z00(BgL_arg1501z00_1583);
			}
		}

	}



/* &<@anonymous:1504> */
	obj_t BGl_z62zc3z04anonymousza31504ze3ze5zz__evobjectz00(obj_t
		BgL_envz00_4368, obj_t BgL_slotz00_4369)
	{
		{	/* Eval/evobject.scm 326 */
			if (CBOOL(STRUCT_REF(((obj_t) BgL_slotz00_4369), (int) (5L))))
				{	/* Eval/evobject.scm 328 */
					obj_t BgL_arg1506z00_4555;
					obj_t BgL_arg1507z00_4556;

					BgL_arg1506z00_4555 =
						STRUCT_REF(((obj_t) BgL_slotz00_4369), (int) (4L));
					{	/* Eval/evobject.scm 329 */
						obj_t BgL_arg1508z00_4557;
						obj_t BgL_arg1509z00_4558;

						BgL_arg1508z00_4557 =
							STRUCT_REF(((obj_t) BgL_slotz00_4369), (int) (5L));
						BgL_arg1509z00_4558 =
							STRUCT_REF(((obj_t) BgL_slotz00_4369), (int) (6L));
						BgL_arg1507z00_4556 =
							MAKE_YOUNG_PAIR(BgL_arg1508z00_4557, BgL_arg1509z00_4558);
					}
					return MAKE_YOUNG_PAIR(BgL_arg1506z00_4555, BgL_arg1507z00_4556);
				}
			else
				{	/* Eval/evobject.scm 327 */
					return BFALSE;
				}
		}

	}



/* eval-expand-instantiate */
	BGL_EXPORTED_DEF obj_t BGl_evalzd2expandzd2instantiatez00zz__evobjectz00(obj_t
		BgL_classz00_79)
	{
		{	/* Eval/evobject.scm 335 */
			{	/* Eval/evobject.scm 336 */
				obj_t BgL_widz00_1594;

				{	/* Eval/evobject.scm 336 */
					obj_t BgL_arg1511z00_1596;

					{	/* Eval/evobject.scm 336 */
						obj_t BgL_arg1512z00_1597;
						obj_t BgL_arg1513z00_1598;

						{	/* Eval/evobject.scm 336 */
							obj_t BgL_symbolz00_3255;

							BgL_symbolz00_3255 = BGl_symbol2491z00zz__evobjectz00;
							{	/* Eval/evobject.scm 336 */
								obj_t BgL_arg2224z00_3256;

								BgL_arg2224z00_3256 = SYMBOL_TO_STRING(BgL_symbolz00_3255);
								BgL_arg1512z00_1597 =
									BGl_stringzd2copyzd2zz__r4_strings_6_7z00
									(BgL_arg2224z00_3256);
							}
						}
						{	/* Eval/evobject.scm 336 */
							obj_t BgL_arg1514z00_1599;

							BgL_arg1514z00_1599 =
								BGl_classzd2namezd2zz__objectz00(BgL_classz00_79);
							{	/* Eval/evobject.scm 336 */
								obj_t BgL_arg2224z00_3258;

								BgL_arg2224z00_3258 = SYMBOL_TO_STRING(BgL_arg1514z00_1599);
								BgL_arg1513z00_1598 =
									BGl_stringzd2copyzd2zz__r4_strings_6_7z00
									(BgL_arg2224z00_3258);
							}
						}
						BgL_arg1511z00_1596 =
							string_append(BgL_arg1512z00_1597, BgL_arg1513z00_1598);
					}
					BgL_widz00_1594 = bstring_to_symbol(BgL_arg1511z00_1596);
				}
				return
					BGl_installzd2expanderzd2zz__macroz00(BgL_widz00_1594,
					BGl_evalzd2instantiatezd2expanderz00zz__evobjectz00(BgL_classz00_79));
			}
		}

	}



/* &eval-expand-instantiate */
	obj_t BGl_z62evalzd2expandzd2instantiatez62zz__evobjectz00(obj_t
		BgL_envz00_4370, obj_t BgL_classz00_4371)
	{
		{	/* Eval/evobject.scm 335 */
			{	/* Eval/evobject.scm 336 */
				obj_t BgL_auxz00_5332;

				if (BGl_classzf3zf3zz__objectz00(BgL_classz00_4371))
					{	/* Eval/evobject.scm 336 */
						BgL_auxz00_5332 = BgL_classz00_4371;
					}
				else
					{
						obj_t BgL_auxz00_5335;

						BgL_auxz00_5335 =
							BGl_typezd2errorzd2zz__errorz00(BGl_string2493z00zz__evobjectz00,
							BINT(12797L), BGl_string2494z00zz__evobjectz00,
							BGl_string2495z00zz__evobjectz00, BgL_classz00_4371);
						FAILURE(BgL_auxz00_5335, BFALSE, BFALSE);
					}
				return
					BGl_evalzd2expandzd2instantiatez00zz__evobjectz00(BgL_auxz00_5332);
			}
		}

	}



/* eval-instantiate-expander */
	obj_t BGl_evalzd2instantiatezd2expanderz00zz__evobjectz00(obj_t
		BgL_classz00_80)
	{
		{	/* Eval/evobject.scm 343 */
			{	/* Eval/evobject.scm 344 */
				obj_t BgL_zc3z04anonymousza31515ze3z87_4372;

				BgL_zc3z04anonymousza31515ze3z87_4372 =
					MAKE_FX_PROCEDURE(BGl_z62zc3z04anonymousza31515ze3ze5zz__evobjectz00,
					(int) (2L), (int) (1L));
				PROCEDURE_SET(BgL_zc3z04anonymousza31515ze3z87_4372,
					(int) (0L), BgL_classz00_80);
				return BgL_zc3z04anonymousza31515ze3z87_4372;
			}
		}

	}



/* &<@anonymous:1515> */
	obj_t BGl_z62zc3z04anonymousza31515ze3ze5zz__evobjectz00(obj_t
		BgL_envz00_4373, obj_t BgL_xz00_4375, obj_t BgL_ez00_4376)
	{
		{	/* Eval/evobject.scm 344 */
			{	/* Eval/evobject.scm 345 */
				obj_t BgL_classz00_4374;

				BgL_classz00_4374 =
					((obj_t) PROCEDURE_REF(BgL_envz00_4373, (int) (0L)));
				{	/* Eval/evobject.scm 345 */
					obj_t BgL_arg1516z00_4559;
					obj_t BgL_arg1517z00_4560;
					obj_t BgL_arg1520z00_4561;
					obj_t BgL_arg1521z00_4562;

					BgL_arg1516z00_4559 = CAR(((obj_t) BgL_xz00_4375));
					BgL_arg1517z00_4560 = CDR(((obj_t) BgL_xz00_4375));
					BgL_arg1520z00_4561 = BGL_CLASS_ALL_FIELDS(BgL_classz00_4374);
					{	/* Eval/evobject.scm 347 */
						obj_t BgL_arg1522z00_4563;

						BgL_arg1522z00_4563 =
							MAKE_YOUNG_PAIR(BGl_classzd2allocatorzd2zz__objectz00
							(BgL_classz00_4374), BNIL);
						BgL_arg1521z00_4562 =
							BGl_localiza7eza7zz__evobjectz00(BgL_xz00_4375,
							BgL_arg1522z00_4563);
					}
					return
						BGl_instantiatezd2fillzd2zz__evobjectz00(BgL_arg1516z00_4559,
						BgL_arg1517z00_4560, BgL_classz00_4374, BgL_arg1520z00_4561,
						BgL_arg1521z00_4562, BgL_xz00_4375, BgL_ez00_4376);
				}
			}
		}

	}



/* instantiate-fill */
	obj_t BGl_instantiatezd2fillzd2zz__evobjectz00(obj_t BgL_opz00_81,
		obj_t BgL_providedz00_82, obj_t BgL_classz00_83, obj_t BgL_fieldsz00_84,
		obj_t BgL_initz00_85, obj_t BgL_xz00_86, obj_t BgL_ez00_87)
	{
		{	/* Eval/evobject.scm 352 */
			{
				obj_t BgL_argsz00_1704;
				obj_t BgL_fieldsz00_1705;
				obj_t BgL_fieldsz00_1660;

				{	/* Eval/evobject.scm 403 */
					obj_t BgL_newz00_1611;

					BgL_newz00_1611 =
						BGl_gensymz00zz__r4_symbols_6_4z00
						(BGl_symbol2504z00zz__evobjectz00);
					{	/* Eval/evobject.scm 403 */
						obj_t BgL_argsz00_1612;

						BgL_fieldsz00_1660 = BgL_fieldsz00_84;
						{	/* Eval/evobject.scm 355 */
							obj_t BgL_vargsz00_1663;

							BgL_vargsz00_1663 =
								make_vector(VECTOR_LENGTH(BgL_fieldsz00_1660), BUNSPEC);
							{	/* Eval/evobject.scm 356 */

								{
									long BgL_iz00_1665;

									BgL_iz00_1665 = 0L;
								BgL_zc3z04anonymousza31577ze3z87_1666:
									if ((BgL_iz00_1665 < VECTOR_LENGTH(BgL_fieldsz00_1660)))
										{	/* Eval/evobject.scm 360 */
											obj_t BgL_sz00_1668;

											BgL_sz00_1668 =
												VECTOR_REF(BgL_fieldsz00_1660, BgL_iz00_1665);
											if (BGl_classzd2fieldzd2defaultzd2valuezf3z21zz__objectz00
												(BgL_sz00_1668))
												{	/* Eval/evobject.scm 365 */
													obj_t BgL_arg1581z00_1670;

													{	/* Eval/evobject.scm 365 */
														obj_t BgL_arg1582z00_1671;

														{	/* Eval/evobject.scm 365 */
															obj_t BgL_arg1584z00_1672;
															obj_t BgL_arg1586z00_1673;

															{	/* Eval/evobject.scm 365 */
																obj_t BgL_arg1587z00_1674;

																{	/* Eval/evobject.scm 365 */
																	obj_t BgL_arg1588z00_1675;

																	BgL_arg1588z00_1675 =
																		MAKE_YOUNG_PAIR
																		(BGl_symbol2496z00zz__evobjectz00, BNIL);
																	BgL_arg1587z00_1674 =
																		MAKE_YOUNG_PAIR
																		(BGl_symbol2498z00zz__evobjectz00,
																		BgL_arg1588z00_1675);
																}
																BgL_arg1584z00_1672 =
																	MAKE_YOUNG_PAIR
																	(BGl_symbol2500z00zz__evobjectz00,
																	BgL_arg1587z00_1674);
															}
															BgL_arg1586z00_1673 =
																MAKE_YOUNG_PAIR(BgL_sz00_1668, BNIL);
															BgL_arg1582z00_1671 =
																MAKE_YOUNG_PAIR(BgL_arg1584z00_1672,
																BgL_arg1586z00_1673);
														}
														BgL_arg1581z00_1670 =
															MAKE_YOUNG_PAIR(BTRUE, BgL_arg1582z00_1671);
													}
													VECTOR_SET(BgL_vargsz00_1663, BgL_iz00_1665,
														BgL_arg1581z00_1670);
												}
											else
												{	/* Eval/evobject.scm 368 */
													obj_t BgL_arg1592z00_1676;

													BgL_arg1592z00_1676 =
														MAKE_YOUNG_PAIR(BFALSE, BUNSPEC);
													VECTOR_SET(BgL_vargsz00_1663, BgL_iz00_1665,
														BgL_arg1592z00_1676);
												}
											{
												long BgL_iz00_5375;

												BgL_iz00_5375 = (BgL_iz00_1665 + 1L);
												BgL_iz00_1665 = BgL_iz00_5375;
												goto BgL_zc3z04anonymousza31577ze3z87_1666;
											}
										}
									else
										{	/* Eval/evobject.scm 359 */
											((bool_t) 0);
										}
								}
								{
									obj_t BgL_providedz00_1680;

									BgL_providedz00_1680 = BgL_providedz00_82;
								BgL_zc3z04anonymousza31594ze3z87_1681:
									if (PAIRP(BgL_providedz00_1680))
										{	/* Eval/evobject.scm 373 */
											obj_t BgL_pz00_1683;

											BgL_pz00_1683 = CAR(BgL_providedz00_1680);
											if (PAIRP(BgL_pz00_1683))
												{	/* Eval/evobject.scm 374 */
													obj_t BgL_carzd2108zd2_1690;
													obj_t BgL_cdrzd2109zd2_1691;

													BgL_carzd2108zd2_1690 = CAR(((obj_t) BgL_pz00_1683));
													BgL_cdrzd2109zd2_1691 = CDR(((obj_t) BgL_pz00_1683));
													if (SYMBOLP(BgL_carzd2108zd2_1690))
														{	/* Eval/evobject.scm 374 */
															if (PAIRP(BgL_cdrzd2109zd2_1691))
																{	/* Eval/evobject.scm 374 */
																	if (NULLP(CDR(BgL_cdrzd2109zd2_1691)))
																		{	/* Eval/evobject.scm 374 */
																			obj_t BgL_arg1602z00_1696;

																			BgL_arg1602z00_1696 =
																				CAR(BgL_cdrzd2109zd2_1691);
																			{	/* Eval/evobject.scm 377 */
																				obj_t BgL_pvalz00_3317;

																				{	/* Eval/evobject.scm 379 */
																					obj_t BgL_arg1605z00_3318;

																					BgL_arg1605z00_3318 =
																						BGl_findzd2fieldzd2offsetz00zz__evobjectz00
																						(BgL_fieldsz00_1660,
																						BgL_carzd2108zd2_1690, BgL_opz00_81,
																						BgL_pz00_1683);
																					BgL_pvalz00_3317 =
																						VECTOR_REF(BgL_vargsz00_1663,
																						(long) CINT(BgL_arg1605z00_3318));
																				}
																				{	/* Eval/evobject.scm 380 */
																					obj_t BgL_tmpz00_5397;

																					BgL_tmpz00_5397 =
																						((obj_t) BgL_pvalz00_3317);
																					SET_CAR(BgL_tmpz00_5397, BTRUE);
																				}
																				{	/* Eval/evobject.scm 381 */
																					obj_t BgL_arg1604z00_3319;

																					BgL_arg1604z00_3319 =
																						BGl_localiza7eza7zz__evobjectz00
																						(BgL_pz00_1683,
																						BgL_arg1602z00_1696);
																					{	/* Eval/evobject.scm 381 */
																						obj_t BgL_tmpz00_5401;

																						BgL_tmpz00_5401 =
																							((obj_t) BgL_pvalz00_3317);
																						SET_CDR(BgL_tmpz00_5401,
																							BgL_arg1604z00_3319);
																		}}}}
																	else
																		{	/* Eval/evobject.scm 374 */
																			BGl_expandzd2errorzd2zz__evobjectz00
																				(BgL_opz00_81,
																				BGl_string2502z00zz__evobjectz00,
																				BgL_pz00_1683);
																		}
																}
															else
																{	/* Eval/evobject.scm 374 */
																	BGl_expandzd2errorzd2zz__evobjectz00
																		(BgL_opz00_81,
																		BGl_string2502z00zz__evobjectz00,
																		BgL_pz00_1683);
																}
														}
													else
														{	/* Eval/evobject.scm 374 */
															BGl_expandzd2errorzd2zz__evobjectz00(BgL_opz00_81,
																BGl_string2502z00zz__evobjectz00,
																BgL_pz00_1683);
														}
												}
											else
												{	/* Eval/evobject.scm 374 */
													BGl_expandzd2errorzd2zz__evobjectz00(BgL_opz00_81,
														BGl_string2502z00zz__evobjectz00, BgL_pz00_1683);
												}
											{
												obj_t BgL_providedz00_5408;

												BgL_providedz00_5408 = CDR(BgL_providedz00_1680);
												BgL_providedz00_1680 = BgL_providedz00_5408;
												goto BgL_zc3z04anonymousza31594ze3z87_1681;
											}
										}
									else
										{	/* Eval/evobject.scm 372 */
											((bool_t) 0);
										}
								}
								BgL_argsz00_1612 = BgL_vargsz00_1663;
							}
						}
						{	/* Eval/evobject.scm 404 */

							BgL_argsz00_1704 = BgL_argsz00_1612;
							BgL_fieldsz00_1705 = BgL_fieldsz00_84;
							{
								long BgL_iz00_1709;

								BgL_iz00_1709 = 0L;
							BgL_zc3z04anonymousza31611ze3z87_1710:
								if ((BgL_iz00_1709 < VECTOR_LENGTH(BgL_fieldsz00_1705)))
									{	/* Eval/evobject.scm 391 */
										{	/* Eval/evobject.scm 392 */
											obj_t BgL_az00_1712;
											obj_t BgL_sz00_1713;

											BgL_az00_1712 =
												VECTOR_REF(BgL_argsz00_1704, BgL_iz00_1709);
											BgL_sz00_1713 =
												VECTOR_REF(BgL_fieldsz00_1705, BgL_iz00_1709);
											if (CBOOL(CAR(((obj_t) BgL_az00_1712))))
												{	/* Eval/evobject.scm 394 */
													BFALSE;
												}
											else
												{	/* Eval/evobject.scm 394 */
													if (BGl_classzd2fieldzd2virtualzf3zf3zz__objectz00
														(BgL_sz00_1713))
														{	/* Eval/evobject.scm 395 */
															BFALSE;
														}
													else
														{	/* Eval/evobject.scm 399 */
															obj_t BgL_arg1615z00_1716;

															{	/* Eval/evobject.scm 399 */
																obj_t BgL_arg1616z00_1717;

																BgL_arg1616z00_1717 =
																	BGl_classzd2fieldzd2namez00zz__objectz00
																	(BgL_sz00_1713);
																{	/* Eval/evobject.scm 398 */
																	obj_t BgL_list1617z00_1718;

																	BgL_list1617z00_1718 =
																		MAKE_YOUNG_PAIR(BgL_arg1616z00_1717, BNIL);
																	BgL_arg1615z00_1716 =
																		BGl_formatz00zz__r4_output_6_10_3z00
																		(BGl_string2503z00zz__evobjectz00,
																		BgL_list1617z00_1718);
																}
															}
															BGl_expandzd2errorzd2zz__evobjectz00(BgL_opz00_81,
																BgL_arg1615z00_1716, BgL_xz00_86);
														}
												}
										}
										{
											long BgL_iz00_5425;

											BgL_iz00_5425 = (BgL_iz00_1709 + 1L);
											BgL_iz00_1709 = BgL_iz00_5425;
											goto BgL_zc3z04anonymousza31611ze3z87_1710;
										}
									}
								else
									{	/* Eval/evobject.scm 391 */
										((bool_t) 0);
									}
							}
							{	/* Eval/evobject.scm 410 */
								obj_t BgL_arg1524z00_1613;

								{	/* Eval/evobject.scm 410 */
									obj_t BgL_arg1525z00_1614;

									{	/* Eval/evobject.scm 410 */
										obj_t BgL_arg1526z00_1615;
										obj_t BgL_arg1527z00_1616;

										{	/* Eval/evobject.scm 410 */
											obj_t BgL_arg1528z00_1617;

											{	/* Eval/evobject.scm 410 */
												obj_t BgL_arg1532z00_1618;

												{	/* Eval/evobject.scm 410 */
													obj_t BgL_arg1533z00_1619;

													BgL_arg1533z00_1619 =
														BGL_PROCEDURE_CALL2(BgL_ez00_87, BgL_initz00_85,
														BgL_ez00_87);
													BgL_arg1532z00_1618 =
														MAKE_YOUNG_PAIR(BgL_arg1533z00_1619, BNIL);
												}
												BgL_arg1528z00_1617 =
													MAKE_YOUNG_PAIR(BgL_newz00_1611, BgL_arg1532z00_1618);
											}
											BgL_arg1526z00_1615 =
												MAKE_YOUNG_PAIR(BgL_arg1528z00_1617, BNIL);
										}
										{	/* Eval/evobject.scm 415 */
											obj_t BgL_arg1534z00_1620;

											{	/* Eval/evobject.scm 415 */
												obj_t BgL_arg1537z00_1621;

												{	/* Eval/evobject.scm 415 */
													obj_t BgL_arg1538z00_1622;
													obj_t BgL_arg1540z00_1623;

													{	/* Eval/evobject.scm 415 */
														obj_t BgL_zc3z04anonymousza31542ze3z87_4378;

														{
															int BgL_tmpz00_5435;

															BgL_tmpz00_5435 = (int) (2L);
															BgL_zc3z04anonymousza31542ze3z87_4378 =
																MAKE_L_PROCEDURE
																(BGl_z62zc3z04anonymousza31542ze3ze5zz__evobjectz00,
																BgL_tmpz00_5435);
														}
														PROCEDURE_L_SET
															(BgL_zc3z04anonymousza31542ze3z87_4378,
															(int) (0L), BgL_ez00_87);
														PROCEDURE_L_SET
															(BgL_zc3z04anonymousza31542ze3z87_4378,
															(int) (1L), BgL_newz00_1611);
														BgL_arg1538z00_1622 =
															BGl_vectorzd2filterzd2mapz00zz__evobjectz00
															(BgL_zc3z04anonymousza31542ze3z87_4378,
															BgL_fieldsz00_84, BgL_argsz00_1612);
													}
													{	/* Eval/evobject.scm 421 */
														obj_t BgL_arg1552z00_1636;
														obj_t BgL_arg1554z00_1637;

														{	/* Eval/evobject.scm 421 */
															obj_t BgL_constrz00_1638;

															{
																obj_t BgL_cz00_3336;

																BgL_cz00_3336 = BgL_classz00_83;
															BgL_findzd2classzd2constructorz00_3335:
																{	/* Eval/evobject.scm 259 */
																	obj_t BgL_constz00_3340;

																	BgL_constz00_3340 =
																		BGl_classzd2constructorzd2zz__objectz00
																		(BgL_cz00_3336);
																	if (CBOOL(BgL_constz00_3340))
																		{	/* Eval/evobject.scm 260 */
																			BgL_constrz00_1638 = BgL_constz00_3340;
																		}
																	else
																		{	/* Eval/evobject.scm 262 */
																			obj_t BgL_sz00_3341;

																			BgL_sz00_3341 =
																				BGl_classzd2superzd2zz__objectz00
																				(BgL_cz00_3336);
																			if (BGl_classzf3zf3zz__objectz00
																				(BgL_sz00_3341))
																				{
																					obj_t BgL_cz00_5449;

																					BgL_cz00_5449 = BgL_sz00_3341;
																					BgL_cz00_3336 = BgL_cz00_5449;
																					goto
																						BgL_findzd2classzd2constructorz00_3335;
																				}
																			else
																				{	/* Eval/evobject.scm 263 */
																					BgL_constrz00_1638 = BFALSE;
																				}
																		}
																}
															}
															if (CBOOL(BgL_constrz00_1638))
																{	/* Eval/evobject.scm 423 */
																	obj_t BgL_arg1555z00_1639;

																	{	/* Eval/evobject.scm 423 */
																		obj_t BgL_arg1558z00_1640;

																		{	/* Eval/evobject.scm 423 */
																			obj_t BgL_arg1559z00_1641;

																			BgL_arg1559z00_1641 =
																				MAKE_YOUNG_PAIR(BgL_newz00_1611, BNIL);
																			BgL_arg1558z00_1640 =
																				MAKE_YOUNG_PAIR(BgL_constrz00_1638,
																				BgL_arg1559z00_1641);
																		}
																		BgL_arg1555z00_1639 =
																			BGl_localiza7eza7zz__evobjectz00
																			(BgL_xz00_86, BgL_arg1558z00_1640);
																	}
																	BgL_arg1552z00_1636 =
																		BGL_PROCEDURE_CALL2(BgL_ez00_87,
																		BgL_arg1555z00_1639, BgL_ez00_87);
																}
															else
																{	/* Eval/evobject.scm 422 */
																	BgL_arg1552z00_1636 = BFALSE;
																}
														}
														{	/* Eval/evobject.scm 427 */
															obj_t BgL_arg1561z00_1642;
															obj_t BgL_arg1562z00_1643;

															{	/* Eval/evobject.scm 427 */
																obj_t BgL_zc3z04anonymousza31564ze3z87_4377;

																{
																	int BgL_tmpz00_5460;

																	BgL_tmpz00_5460 = (int) (2L);
																	BgL_zc3z04anonymousza31564ze3z87_4377 =
																		MAKE_L_PROCEDURE
																		(BGl_z62zc3z04anonymousza31564ze3ze5zz__evobjectz00,
																		BgL_tmpz00_5460);
																}
																PROCEDURE_L_SET
																	(BgL_zc3z04anonymousza31564ze3z87_4377,
																	(int) (0L), BgL_ez00_87);
																PROCEDURE_L_SET
																	(BgL_zc3z04anonymousza31564ze3z87_4377,
																	(int) (1L), BgL_newz00_1611);
																BgL_arg1561z00_1642 =
																	BGl_vectorzd2filterzd2mapz00zz__evobjectz00
																	(BgL_zc3z04anonymousza31564ze3z87_4377,
																	BgL_fieldsz00_84, BgL_argsz00_1612);
															}
															BgL_arg1562z00_1643 =
																MAKE_YOUNG_PAIR(BgL_newz00_1611, BNIL);
															BgL_arg1554z00_1637 =
																BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00
																(BgL_arg1561z00_1642, BgL_arg1562z00_1643);
														}
														BgL_arg1540z00_1623 =
															MAKE_YOUNG_PAIR(BgL_arg1552z00_1636,
															BgL_arg1554z00_1637);
													}
													BgL_arg1537z00_1621 =
														BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00
														(BgL_arg1538z00_1622, BgL_arg1540z00_1623);
												}
												BgL_arg1534z00_1620 =
													MAKE_YOUNG_PAIR(BGl_symbol2506z00zz__evobjectz00,
													BgL_arg1537z00_1621);
											}
											BgL_arg1527z00_1616 =
												MAKE_YOUNG_PAIR(BgL_arg1534z00_1620, BNIL);
										}
										BgL_arg1525z00_1614 =
											MAKE_YOUNG_PAIR(BgL_arg1526z00_1615, BgL_arg1527z00_1616);
									}
									BgL_arg1524z00_1613 =
										MAKE_YOUNG_PAIR(BGl_symbol2508z00zz__evobjectz00,
										BgL_arg1525z00_1614);
								}
								return
									BGl_localiza7eza7zz__evobjectz00(BgL_xz00_86,
									BgL_arg1524z00_1613);
							}
						}
					}
				}
			}
		}

	}



/* &<@anonymous:1564> */
	obj_t BGl_z62zc3z04anonymousza31564ze3ze5zz__evobjectz00(obj_t
		BgL_envz00_4379, obj_t BgL_fieldz00_4382, obj_t BgL_valz00_4383)
	{
		{	/* Eval/evobject.scm 426 */
			{	/* Eval/evobject.scm 427 */
				obj_t BgL_ez00_4380;
				obj_t BgL_newz00_4381;

				BgL_ez00_4380 = PROCEDURE_L_REF(BgL_envz00_4379, (int) (0L));
				BgL_newz00_4381 =
					((obj_t) PROCEDURE_L_REF(BgL_envz00_4379, (int) (1L)));
				{	/* Eval/evobject.scm 427 */
					bool_t BgL_test2716z00_5482;

					if (BGl_classzd2fieldzd2virtualzf3zf3zz__objectz00(BgL_fieldz00_4382))
						{	/* Eval/evobject.scm 427 */
							if (BGl_classzd2fieldzd2mutablezf3zf3zz__objectz00
								(BgL_fieldz00_4382))
								{	/* Eval/evobject.scm 428 */
									BgL_test2716z00_5482 = CBOOL(CAR(((obj_t) BgL_valz00_4383)));
								}
							else
								{	/* Eval/evobject.scm 428 */
									BgL_test2716z00_5482 = ((bool_t) 0);
								}
						}
					else
						{	/* Eval/evobject.scm 427 */
							BgL_test2716z00_5482 = ((bool_t) 0);
						}
					if (BgL_test2716z00_5482)
						{	/* Eval/evobject.scm 430 */
							obj_t BgL_vz00_4564;

							{	/* Eval/evobject.scm 430 */
								obj_t BgL_arg1575z00_4565;

								BgL_arg1575z00_4565 = CDR(((obj_t) BgL_valz00_4383));
								BgL_vz00_4564 =
									BGL_PROCEDURE_CALL2(BgL_ez00_4380, BgL_arg1575z00_4565,
									BgL_ez00_4380);
							}
							{	/* Eval/evobject.scm 432 */
								obj_t BgL_arg1568z00_4566;

								{	/* Eval/evobject.scm 432 */
									obj_t BgL_arg1569z00_4567;
									obj_t BgL_arg1573z00_4568;

									BgL_arg1569z00_4567 =
										BGl_classzd2fieldzd2mutatorz00zz__objectz00
										(BgL_fieldz00_4382);
									{	/* Eval/evobject.scm 432 */
										obj_t BgL_arg1574z00_4569;

										BgL_arg1574z00_4569 = MAKE_YOUNG_PAIR(BgL_vz00_4564, BNIL);
										BgL_arg1573z00_4568 =
											MAKE_YOUNG_PAIR(BgL_newz00_4381, BgL_arg1574z00_4569);
									}
									BgL_arg1568z00_4566 =
										MAKE_YOUNG_PAIR(BgL_arg1569z00_4567, BgL_arg1573z00_4568);
								}
								return
									BGl_localiza7eza7zz__evobjectz00(BgL_valz00_4383,
									BgL_arg1568z00_4566);
							}
						}
					else
						{	/* Eval/evobject.scm 427 */
							return BFALSE;
						}
				}
			}
		}

	}



/* &<@anonymous:1542> */
	obj_t BGl_z62zc3z04anonymousza31542ze3ze5zz__evobjectz00(obj_t
		BgL_envz00_4384, obj_t BgL_fieldz00_4387, obj_t BgL_valz00_4388)
	{
		{	/* Eval/evobject.scm 414 */
			{	/* Eval/evobject.scm 415 */
				obj_t BgL_ez00_4385;
				obj_t BgL_newz00_4386;

				BgL_ez00_4385 = PROCEDURE_L_REF(BgL_envz00_4384, (int) (0L));
				BgL_newz00_4386 =
					((obj_t) PROCEDURE_L_REF(BgL_envz00_4384, (int) (1L)));
				if (BGl_classzd2fieldzd2virtualzf3zf3zz__objectz00(BgL_fieldz00_4387))
					{	/* Eval/evobject.scm 415 */
						return BFALSE;
					}
				else
					{	/* Eval/evobject.scm 416 */
						obj_t BgL_vz00_4570;

						{	/* Eval/evobject.scm 416 */
							obj_t BgL_arg1551z00_4571;

							BgL_arg1551z00_4571 = CDR(((obj_t) BgL_valz00_4388));
							BgL_vz00_4570 =
								BGL_PROCEDURE_CALL2(BgL_ez00_4385, BgL_arg1551z00_4571,
								BgL_ez00_4385);
						}
						{	/* Eval/evobject.scm 418 */
							obj_t BgL_arg1545z00_4572;

							{	/* Eval/evobject.scm 418 */
								obj_t BgL_arg1546z00_4573;
								obj_t BgL_arg1547z00_4574;

								BgL_arg1546z00_4573 =
									BGl_classzd2fieldzd2mutatorz00zz__objectz00
									(BgL_fieldz00_4387);
								{	/* Eval/evobject.scm 418 */
									obj_t BgL_arg1549z00_4575;

									BgL_arg1549z00_4575 = MAKE_YOUNG_PAIR(BgL_vz00_4570, BNIL);
									BgL_arg1547z00_4574 =
										MAKE_YOUNG_PAIR(BgL_newz00_4386, BgL_arg1549z00_4575);
								}
								BgL_arg1545z00_4572 =
									MAKE_YOUNG_PAIR(BgL_arg1546z00_4573, BgL_arg1547z00_4574);
							}
							return
								BGl_localiza7eza7zz__evobjectz00(BgL_valz00_4388,
								BgL_arg1545z00_4572);
						}
					}
			}
		}

	}



/* vector-filter-map */
	obj_t BGl_vectorzd2filterzd2mapz00zz__evobjectz00(obj_t BgL_fz00_88,
		obj_t BgL_v1z00_89, obj_t BgL_v2z00_90)
	{
		{	/* Eval/evobject.scm 440 */
			{
				long BgL_iz00_3354;
				obj_t BgL_accz00_3355;

				BgL_iz00_3354 = 0L;
				BgL_accz00_3355 = BNIL;
			BgL_loopz00_3353:
				if ((BgL_iz00_3354 == VECTOR_LENGTH(BgL_v1z00_89)))
					{	/* Eval/evobject.scm 444 */
						return bgl_reverse_bang(BgL_accz00_3355);
					}
				else
					{	/* Eval/evobject.scm 446 */
						obj_t BgL_vz00_3359;

						{	/* Eval/evobject.scm 446 */
							obj_t BgL_arg1624z00_3360;
							obj_t BgL_arg1625z00_3361;

							BgL_arg1624z00_3360 = VECTOR_REF(BgL_v1z00_89, BgL_iz00_3354);
							BgL_arg1625z00_3361 = VECTOR_REF(BgL_v2z00_90, BgL_iz00_3354);
							BgL_vz00_3359 =
								((obj_t(*)(obj_t, obj_t,
										obj_t)) PROCEDURE_L_ENTRY(BgL_fz00_88)) (BgL_fz00_88,
								BgL_arg1624z00_3360, BgL_arg1625z00_3361);
						}
						{	/* Eval/evobject.scm 447 */
							long BgL_arg1622z00_3366;
							obj_t BgL_arg1623z00_3367;

							BgL_arg1622z00_3366 = (BgL_iz00_3354 + 1L);
							if (CBOOL(BgL_vz00_3359))
								{	/* Eval/evobject.scm 447 */
									BgL_arg1623z00_3367 =
										MAKE_YOUNG_PAIR(BgL_vz00_3359, BgL_accz00_3355);
								}
							else
								{	/* Eval/evobject.scm 447 */
									BgL_arg1623z00_3367 = BgL_accz00_3355;
								}
							{
								obj_t BgL_accz00_5537;
								long BgL_iz00_5536;

								BgL_iz00_5536 = BgL_arg1622z00_3366;
								BgL_accz00_5537 = BgL_arg1623z00_3367;
								BgL_accz00_3355 = BgL_accz00_5537;
								BgL_iz00_3354 = BgL_iz00_5536;
								goto BgL_loopz00_3353;
							}
						}
					}
			}
		}

	}



/* eval-expand-duplicate */
	BGL_EXPORTED_DEF obj_t BGl_evalzd2expandzd2duplicatez00zz__evobjectz00(obj_t
		BgL_classz00_91)
	{
		{	/* Eval/evobject.scm 452 */
			{	/* Eval/evobject.scm 453 */
				obj_t BgL_didz00_1736;

				{	/* Eval/evobject.scm 453 */
					obj_t BgL_arg1627z00_1738;

					{	/* Eval/evobject.scm 453 */
						obj_t BgL_arg1628z00_1739;
						obj_t BgL_arg1629z00_1740;

						{	/* Eval/evobject.scm 453 */
							obj_t BgL_symbolz00_3369;

							BgL_symbolz00_3369 = BGl_symbol2510z00zz__evobjectz00;
							{	/* Eval/evobject.scm 453 */
								obj_t BgL_arg2224z00_3370;

								BgL_arg2224z00_3370 = SYMBOL_TO_STRING(BgL_symbolz00_3369);
								BgL_arg1628z00_1739 =
									BGl_stringzd2copyzd2zz__r4_strings_6_7z00
									(BgL_arg2224z00_3370);
							}
						}
						{	/* Eval/evobject.scm 453 */
							obj_t BgL_arg1630z00_1741;

							BgL_arg1630z00_1741 =
								BGl_classzd2namezd2zz__objectz00(BgL_classz00_91);
							{	/* Eval/evobject.scm 453 */
								obj_t BgL_arg2224z00_3372;

								BgL_arg2224z00_3372 = SYMBOL_TO_STRING(BgL_arg1630z00_1741);
								BgL_arg1629z00_1740 =
									BGl_stringzd2copyzd2zz__r4_strings_6_7z00
									(BgL_arg2224z00_3372);
							}
						}
						BgL_arg1627z00_1738 =
							string_append(BgL_arg1628z00_1739, BgL_arg1629z00_1740);
					}
					BgL_didz00_1736 = bstring_to_symbol(BgL_arg1627z00_1738);
				}
				return
					BGl_installzd2expanderzd2zz__macroz00(BgL_didz00_1736,
					BGl_evalzd2duplicatezd2expanderz00zz__evobjectz00(BgL_classz00_91));
			}
		}

	}



/* &eval-expand-duplicate */
	obj_t BGl_z62evalzd2expandzd2duplicatez62zz__evobjectz00(obj_t
		BgL_envz00_4389, obj_t BgL_classz00_4390)
	{
		{	/* Eval/evobject.scm 452 */
			{	/* Eval/evobject.scm 453 */
				obj_t BgL_auxz00_5547;

				if (BGl_classzf3zf3zz__objectz00(BgL_classz00_4390))
					{	/* Eval/evobject.scm 453 */
						BgL_auxz00_5547 = BgL_classz00_4390;
					}
				else
					{
						obj_t BgL_auxz00_5550;

						BgL_auxz00_5550 =
							BGl_typezd2errorzd2zz__errorz00(BGl_string2493z00zz__evobjectz00,
							BINT(16779L), BGl_string2512z00zz__evobjectz00,
							BGl_string2495z00zz__evobjectz00, BgL_classz00_4390);
						FAILURE(BgL_auxz00_5550, BFALSE, BFALSE);
					}
				return BGl_evalzd2expandzd2duplicatez00zz__evobjectz00(BgL_auxz00_5547);
			}
		}

	}



/* eval-duplicate-expander */
	obj_t BGl_evalzd2duplicatezd2expanderz00zz__evobjectz00(obj_t BgL_classz00_92)
	{
		{	/* Eval/evobject.scm 460 */
			{	/* Eval/evobject.scm 461 */
				obj_t BgL_zc3z04anonymousza31631ze3z87_4391;

				BgL_zc3z04anonymousza31631ze3z87_4391 =
					MAKE_FX_PROCEDURE(BGl_z62zc3z04anonymousza31631ze3ze5zz__evobjectz00,
					(int) (2L), (int) (1L));
				PROCEDURE_SET(BgL_zc3z04anonymousza31631ze3z87_4391,
					(int) (0L), BgL_classz00_92);
				return BgL_zc3z04anonymousza31631ze3z87_4391;
			}
		}

	}



/* &<@anonymous:1631> */
	obj_t BGl_z62zc3z04anonymousza31631ze3ze5zz__evobjectz00(obj_t
		BgL_envz00_4392, obj_t BgL_xz00_4394, obj_t BgL_ez00_4395)
	{
		{	/* Eval/evobject.scm 461 */
			{	/* Eval/evobject.scm 461 */
				obj_t BgL_classz00_4393;

				BgL_classz00_4393 =
					((obj_t) PROCEDURE_REF(BgL_envz00_4392, (int) (0L)));
				if (PAIRP(BgL_xz00_4394))
					{	/* Eval/evobject.scm 461 */
						obj_t BgL_cdrzd2127zd2_4576;

						BgL_cdrzd2127zd2_4576 = CDR(((obj_t) BgL_xz00_4394));
						if (PAIRP(BgL_cdrzd2127zd2_4576))
							{	/* Eval/evobject.scm 461 */
								return
									BGl_duplicatezd2expanderzd2zz__evobjectz00(BgL_classz00_4393,
									CAR(BgL_cdrzd2127zd2_4576),
									CDR(BgL_cdrzd2127zd2_4576), BgL_xz00_4394, BgL_ez00_4395);
							}
						else
							{	/* Eval/evobject.scm 461 */
								return
									BGl_expandzd2errorzd2zz__evobjectz00
									(BGl_string2513z00zz__evobjectz00,
									BGl_string2514z00zz__evobjectz00, BgL_xz00_4394);
							}
					}
				else
					{	/* Eval/evobject.scm 461 */
						return
							BGl_expandzd2errorzd2zz__evobjectz00
							(BGl_string2513z00zz__evobjectz00,
							BGl_string2514z00zz__evobjectz00, BgL_xz00_4394);
					}
			}
		}

	}



/* duplicate-expander */
	obj_t BGl_duplicatezd2expanderzd2zz__evobjectz00(obj_t BgL_classz00_93,
		obj_t BgL_duplicatedz00_94, obj_t BgL_providedz00_95, obj_t BgL_xz00_96,
		obj_t BgL_ez00_97)
	{
		{	/* Eval/evobject.scm 471 */
			{
				obj_t BgL_fieldsz00_1809;
				obj_t BgL_dupvarz00_1810;

				{	/* Eval/evobject.scm 505 */
					obj_t BgL_fieldsz00_1758;

					{	/* Eval/evobject.scm 505 */
						obj_t BgL_tmpz00_5574;

						BgL_tmpz00_5574 = ((obj_t) BgL_classz00_93);
						BgL_fieldsz00_1758 = BGL_CLASS_ALL_FIELDS(BgL_tmpz00_5574);
					}
					{	/* Eval/evobject.scm 505 */
						obj_t BgL_newz00_1759;

						BgL_newz00_1759 =
							BGl_gensymz00zz__r4_symbols_6_4z00
							(BGl_symbol2504z00zz__evobjectz00);
						{	/* Eval/evobject.scm 506 */
							obj_t BgL_dupvarz00_1760;

							BgL_dupvarz00_1760 =
								BGl_gensymz00zz__r4_symbols_6_4z00
								(BGl_symbol2515z00zz__evobjectz00);
							{	/* Eval/evobject.scm 507 */
								obj_t BgL_argsz00_1761;

								BgL_fieldsz00_1809 = BgL_fieldsz00_1758;
								BgL_dupvarz00_1810 = BgL_dupvarz00_1760;
								{	/* Eval/evobject.scm 474 */
									obj_t BgL_vargsz00_1813;

									BgL_vargsz00_1813 =
										make_vector(VECTOR_LENGTH(BgL_fieldsz00_1809), BUNSPEC);
									{	/* Eval/evobject.scm 475 */

										{
											obj_t BgL_providedz00_1815;

											BgL_providedz00_1815 = BgL_providedz00_95;
										BgL_zc3z04anonymousza31693ze3z87_1816:
											if (PAIRP(BgL_providedz00_1815))
												{	/* Eval/evobject.scm 479 */
													obj_t BgL_pz00_1818;

													BgL_pz00_1818 = CAR(BgL_providedz00_1815);
													if (PAIRP(BgL_pz00_1818))
														{	/* Eval/evobject.scm 480 */
															obj_t BgL_carzd2142zd2_1825;
															obj_t BgL_cdrzd2143zd2_1826;

															BgL_carzd2142zd2_1825 =
																CAR(((obj_t) BgL_pz00_1818));
															BgL_cdrzd2143zd2_1826 =
																CDR(((obj_t) BgL_pz00_1818));
															if (SYMBOLP(BgL_carzd2142zd2_1825))
																{	/* Eval/evobject.scm 480 */
																	if (PAIRP(BgL_cdrzd2143zd2_1826))
																		{	/* Eval/evobject.scm 480 */
																			if (NULLP(CDR(BgL_cdrzd2143zd2_1826)))
																				{	/* Eval/evobject.scm 480 */
																					obj_t BgL_arg1702z00_1831;

																					BgL_arg1702z00_1831 =
																						CAR(BgL_cdrzd2143zd2_1826);
																					{	/* Eval/evobject.scm 483 */
																						obj_t BgL_iz00_3461;

																						BgL_iz00_3461 =
																							BGl_findzd2fieldzd2offsetz00zz__evobjectz00
																							(BgL_fieldsz00_1809,
																							BgL_carzd2142zd2_1825,
																							BGl_string2513z00zz__evobjectz00,
																							BgL_pz00_1818);
																						{	/* Eval/evobject.scm 486 */
																							obj_t BgL_arg1705z00_3462;

																							BgL_arg1705z00_3462 =
																								MAKE_YOUNG_PAIR(BTRUE,
																								BGl_localiza7eza7zz__evobjectz00
																								(BgL_pz00_1818,
																									BgL_arg1702z00_1831));
																							VECTOR_SET(BgL_vargsz00_1813,
																								(long) CINT(BgL_iz00_3461),
																								BgL_arg1705z00_3462);
																				}}}
																			else
																				{	/* Eval/evobject.scm 480 */
																					BGl_expandzd2errorzd2zz__evobjectz00
																						(CAR(BgL_xz00_96),
																						BGl_string2514z00zz__evobjectz00,
																						BgL_xz00_96);
																				}
																		}
																	else
																		{	/* Eval/evobject.scm 480 */
																			BGl_expandzd2errorzd2zz__evobjectz00(CAR
																				(BgL_xz00_96),
																				BGl_string2514z00zz__evobjectz00,
																				BgL_xz00_96);
																		}
																}
															else
																{	/* Eval/evobject.scm 480 */
																	BGl_expandzd2errorzd2zz__evobjectz00(CAR
																		(BgL_xz00_96),
																		BGl_string2514z00zz__evobjectz00,
																		BgL_xz00_96);
																}
														}
													else
														{	/* Eval/evobject.scm 480 */
															BGl_expandzd2errorzd2zz__evobjectz00(CAR
																(BgL_xz00_96), BGl_string2514z00zz__evobjectz00,
																BgL_xz00_96);
														}
													{
														obj_t BgL_providedz00_5611;

														BgL_providedz00_5611 = CDR(BgL_providedz00_1815);
														BgL_providedz00_1815 = BgL_providedz00_5611;
														goto BgL_zc3z04anonymousza31693ze3z87_1816;
													}
												}
											else
												{	/* Eval/evobject.scm 478 */
													((bool_t) 0);
												}
										}
										{
											long BgL_iz00_1840;

											BgL_iz00_1840 = 0L;
										BgL_zc3z04anonymousza31709ze3z87_1841:
											if ((BgL_iz00_1840 < VECTOR_LENGTH(BgL_fieldsz00_1809)))
												{	/* Eval/evobject.scm 493 */
													obj_t BgL_valuez00_1843;

													BgL_valuez00_1843 =
														VECTOR_REF(BgL_vargsz00_1813, BgL_iz00_1840);
													if (PAIRP(BgL_valuez00_1843))
														{	/* Eval/evobject.scm 494 */
															BFALSE;
														}
													else
														{	/* Eval/evobject.scm 495 */
															obj_t BgL_fieldz00_1845;

															BgL_fieldz00_1845 =
																VECTOR_REF(BgL_fieldsz00_1809, BgL_iz00_1840);
															{	/* Eval/evobject.scm 500 */
																obj_t BgL_arg1712z00_1846;

																{	/* Eval/evobject.scm 500 */
																	obj_t BgL_arg1714z00_1847;

																	{	/* Eval/evobject.scm 500 */
																		obj_t BgL_arg1715z00_1848;
																		obj_t BgL_arg1716z00_1849;

																		BgL_arg1715z00_1848 =
																			BGl_classzd2fieldzd2accessorz00zz__objectz00
																			(BgL_fieldz00_1845);
																		BgL_arg1716z00_1849 =
																			MAKE_YOUNG_PAIR(BgL_dupvarz00_1810, BNIL);
																		BgL_arg1714z00_1847 =
																			MAKE_YOUNG_PAIR(BgL_arg1715z00_1848,
																			BgL_arg1716z00_1849);
																	}
																	BgL_arg1712z00_1846 =
																		MAKE_YOUNG_PAIR(BTRUE, BgL_arg1714z00_1847);
																}
																VECTOR_SET(BgL_vargsz00_1813, BgL_iz00_1840,
																	BgL_arg1712z00_1846);
															}
														}
													{
														long BgL_iz00_5625;

														BgL_iz00_5625 = (BgL_iz00_1840 + 1L);
														BgL_iz00_1840 = BgL_iz00_5625;
														goto BgL_zc3z04anonymousza31709ze3z87_1841;
													}
												}
											else
												{	/* Eval/evobject.scm 492 */
													((bool_t) 0);
												}
										}
										BgL_argsz00_1761 = BgL_vargsz00_1813;
									}
								}
								{	/* Eval/evobject.scm 508 */

									{	/* Eval/evobject.scm 511 */
										obj_t BgL_arg1637z00_1762;

										{	/* Eval/evobject.scm 511 */
											obj_t BgL_arg1639z00_1763;
											obj_t BgL_arg1641z00_1764;

											{	/* Eval/evobject.scm 511 */
												obj_t BgL_arg1642z00_1765;
												obj_t BgL_arg1643z00_1766;

												{	/* Eval/evobject.scm 511 */
													obj_t BgL_arg1644z00_1767;

													{	/* Eval/evobject.scm 511 */
														obj_t BgL_arg1645z00_1768;

														BgL_arg1645z00_1768 =
															BGL_PROCEDURE_CALL2(BgL_ez00_97,
															BgL_duplicatedz00_94, BgL_ez00_97);
														BgL_arg1644z00_1767 =
															MAKE_YOUNG_PAIR(BgL_arg1645z00_1768, BNIL);
													}
													BgL_arg1642z00_1765 =
														MAKE_YOUNG_PAIR(BgL_dupvarz00_1760,
														BgL_arg1644z00_1767);
												}
												{	/* Eval/evobject.scm 512 */
													obj_t BgL_arg1646z00_1769;

													{	/* Eval/evobject.scm 512 */
														obj_t BgL_arg1647z00_1770;

														{	/* Eval/evobject.scm 512 */
															obj_t BgL_arg1649z00_1771;

															{	/* Eval/evobject.scm 512 */
																obj_t BgL_arg1651z00_1772;

																BgL_arg1651z00_1772 =
																	MAKE_YOUNG_PAIR
																	(BGl_classzd2allocatorzd2zz__objectz00
																	(BgL_classz00_93), BNIL);
																BgL_arg1649z00_1771 =
																	BGL_PROCEDURE_CALL2(BgL_ez00_97,
																	BgL_arg1651z00_1772, BgL_ez00_97);
															}
															BgL_arg1647z00_1770 =
																MAKE_YOUNG_PAIR(BgL_arg1649z00_1771, BNIL);
														}
														BgL_arg1646z00_1769 =
															MAKE_YOUNG_PAIR(BgL_newz00_1759,
															BgL_arg1647z00_1770);
													}
													BgL_arg1643z00_1766 =
														MAKE_YOUNG_PAIR(BgL_arg1646z00_1769, BNIL);
												}
												BgL_arg1639z00_1763 =
													MAKE_YOUNG_PAIR(BgL_arg1642z00_1765,
													BgL_arg1643z00_1766);
											}
											{	/* Eval/evobject.scm 517 */
												obj_t BgL_arg1653z00_1774;

												{	/* Eval/evobject.scm 517 */
													obj_t BgL_arg1655z00_1775;

													{	/* Eval/evobject.scm 517 */
														obj_t BgL_arg1658z00_1776;
														obj_t BgL_arg1659z00_1777;

														{	/* Eval/evobject.scm 517 */
															obj_t BgL_zc3z04anonymousza31661ze3z87_4397;

															{
																int BgL_tmpz00_5645;

																BgL_tmpz00_5645 = (int) (2L);
																BgL_zc3z04anonymousza31661ze3z87_4397 =
																	MAKE_L_PROCEDURE
																	(BGl_z62zc3z04anonymousza31661ze3ze5zz__evobjectz00,
																	BgL_tmpz00_5645);
															}
															PROCEDURE_L_SET
																(BgL_zc3z04anonymousza31661ze3z87_4397,
																(int) (0L), BgL_ez00_97);
															PROCEDURE_L_SET
																(BgL_zc3z04anonymousza31661ze3z87_4397,
																(int) (1L), BgL_newz00_1759);
															BgL_arg1658z00_1776 =
																BGl_vectorzd2filterzd2mapz00zz__evobjectz00
																(BgL_zc3z04anonymousza31661ze3z87_4397,
																BgL_fieldsz00_1758, BgL_argsz00_1761);
														}
														{	/* Eval/evobject.scm 522 */
															obj_t BgL_arg1671z00_1789;
															obj_t BgL_arg1672z00_1790;

															{	/* Eval/evobject.scm 522 */
																obj_t BgL_constrz00_1791;

																{
																	obj_t BgL_cz00_3493;

																	BgL_cz00_3493 = BgL_classz00_93;
																BgL_findzd2classzd2constructorz00_3492:
																	{	/* Eval/evobject.scm 259 */
																		obj_t BgL_constz00_3497;

																		BgL_constz00_3497 =
																			BGl_classzd2constructorzd2zz__objectz00
																			(BgL_cz00_3493);
																		if (CBOOL(BgL_constz00_3497))
																			{	/* Eval/evobject.scm 260 */
																				BgL_constrz00_1791 = BgL_constz00_3497;
																			}
																		else
																			{	/* Eval/evobject.scm 262 */
																				obj_t BgL_sz00_3498;

																				BgL_sz00_3498 =
																					BGl_classzd2superzd2zz__objectz00
																					(BgL_cz00_3493);
																				if (BGl_classzf3zf3zz__objectz00
																					(BgL_sz00_3498))
																					{
																						obj_t BgL_cz00_5659;

																						BgL_cz00_5659 = BgL_sz00_3498;
																						BgL_cz00_3493 = BgL_cz00_5659;
																						goto
																							BgL_findzd2classzd2constructorz00_3492;
																					}
																				else
																					{	/* Eval/evobject.scm 263 */
																						BgL_constrz00_1791 = BFALSE;
																					}
																			}
																	}
																}
																if (CBOOL(BgL_constrz00_1791))
																	{	/* Eval/evobject.scm 524 */
																		obj_t BgL_arg1673z00_1792;

																		{	/* Eval/evobject.scm 524 */
																			obj_t BgL_arg1674z00_1793;

																			BgL_arg1674z00_1793 =
																				MAKE_YOUNG_PAIR(BgL_newz00_1759, BNIL);
																			BgL_arg1673z00_1792 =
																				MAKE_YOUNG_PAIR(BgL_constrz00_1791,
																				BgL_arg1674z00_1793);
																		}
																		BgL_arg1671z00_1789 =
																			BGL_PROCEDURE_CALL2(BgL_ez00_97,
																			BgL_arg1673z00_1792, BgL_ez00_97);
																	}
																else
																	{	/* Eval/evobject.scm 523 */
																		BgL_arg1671z00_1789 = BFALSE;
																	}
															}
															{	/* Eval/evobject.scm 528 */
																obj_t BgL_arg1675z00_1794;
																obj_t BgL_arg1681z00_1795;

																{	/* Eval/evobject.scm 528 */
																	obj_t BgL_zc3z04anonymousza31684ze3z87_4396;

																	{
																		int BgL_tmpz00_5669;

																		BgL_tmpz00_5669 = (int) (2L);
																		BgL_zc3z04anonymousza31684ze3z87_4396 =
																			MAKE_L_PROCEDURE
																			(BGl_z62zc3z04anonymousza31684ze3ze5zz__evobjectz00,
																			BgL_tmpz00_5669);
																	}
																	PROCEDURE_L_SET
																		(BgL_zc3z04anonymousza31684ze3z87_4396,
																		(int) (0L), BgL_ez00_97);
																	PROCEDURE_L_SET
																		(BgL_zc3z04anonymousza31684ze3z87_4396,
																		(int) (1L), BgL_newz00_1759);
																	BgL_arg1675z00_1794 =
																		BGl_vectorzd2filterzd2mapz00zz__evobjectz00
																		(BgL_zc3z04anonymousza31684ze3z87_4396,
																		BgL_fieldsz00_1758, BgL_argsz00_1761);
																}
																BgL_arg1681z00_1795 =
																	MAKE_YOUNG_PAIR(BgL_newz00_1759, BNIL);
																BgL_arg1672z00_1790 =
																	BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00
																	(BgL_arg1675z00_1794, BgL_arg1681z00_1795);
															}
															BgL_arg1659z00_1777 =
																MAKE_YOUNG_PAIR(BgL_arg1671z00_1789,
																BgL_arg1672z00_1790);
														}
														BgL_arg1655z00_1775 =
															BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00
															(BgL_arg1658z00_1776, BgL_arg1659z00_1777);
													}
													BgL_arg1653z00_1774 =
														MAKE_YOUNG_PAIR(BGl_symbol2506z00zz__evobjectz00,
														BgL_arg1655z00_1775);
												}
												BgL_arg1641z00_1764 =
													MAKE_YOUNG_PAIR(BgL_arg1653z00_1774, BNIL);
											}
											BgL_arg1637z00_1762 =
												MAKE_YOUNG_PAIR(BgL_arg1639z00_1763,
												BgL_arg1641z00_1764);
										}
										return
											MAKE_YOUNG_PAIR(BGl_symbol2508z00zz__evobjectz00,
											BgL_arg1637z00_1762);
									}
								}
							}
						}
					}
				}
			}
		}

	}



/* &<@anonymous:1684> */
	obj_t BGl_z62zc3z04anonymousza31684ze3ze5zz__evobjectz00(obj_t
		BgL_envz00_4398, obj_t BgL_fieldz00_4401, obj_t BgL_valz00_4402)
	{
		{	/* Eval/evobject.scm 527 */
			{	/* Eval/evobject.scm 528 */
				obj_t BgL_ez00_4399;
				obj_t BgL_newz00_4400;

				BgL_ez00_4399 = PROCEDURE_L_REF(BgL_envz00_4398, (int) (0L));
				BgL_newz00_4400 =
					((obj_t) PROCEDURE_L_REF(BgL_envz00_4398, (int) (1L)));
				{	/* Eval/evobject.scm 528 */
					bool_t BgL_test2735z00_5690;

					if (BGl_classzd2fieldzd2virtualzf3zf3zz__objectz00(BgL_fieldz00_4401))
						{	/* Eval/evobject.scm 528 */
							BgL_test2735z00_5690 =
								BGl_classzd2fieldzd2mutablezf3zf3zz__objectz00
								(BgL_fieldz00_4401);
						}
					else
						{	/* Eval/evobject.scm 528 */
							BgL_test2735z00_5690 = ((bool_t) 0);
						}
					if (BgL_test2735z00_5690)
						{	/* Eval/evobject.scm 530 */
							obj_t BgL_vz00_4577;

							{	/* Eval/evobject.scm 530 */
								obj_t BgL_arg1691z00_4578;

								BgL_arg1691z00_4578 = CDR(((obj_t) BgL_valz00_4402));
								BgL_vz00_4577 =
									BGL_PROCEDURE_CALL2(BgL_ez00_4399, BgL_arg1691z00_4578,
									BgL_ez00_4399);
							}
							{	/* Eval/evobject.scm 531 */
								obj_t BgL_arg1687z00_4579;
								obj_t BgL_arg1689z00_4580;

								BgL_arg1687z00_4579 =
									BGl_classzd2fieldzd2mutatorz00zz__objectz00
									(BgL_fieldz00_4401);
								{	/* Eval/evobject.scm 531 */
									obj_t BgL_arg1690z00_4581;

									BgL_arg1690z00_4581 = MAKE_YOUNG_PAIR(BgL_vz00_4577, BNIL);
									BgL_arg1689z00_4580 =
										MAKE_YOUNG_PAIR(BgL_newz00_4400, BgL_arg1690z00_4581);
								}
								return
									MAKE_YOUNG_PAIR(BgL_arg1687z00_4579, BgL_arg1689z00_4580);
							}
						}
					else
						{	/* Eval/evobject.scm 528 */
							return BFALSE;
						}
				}
			}
		}

	}



/* &<@anonymous:1661> */
	obj_t BGl_z62zc3z04anonymousza31661ze3ze5zz__evobjectz00(obj_t
		BgL_envz00_4403, obj_t BgL_fieldz00_4406, obj_t BgL_valz00_4407)
	{
		{	/* Eval/evobject.scm 516 */
			{	/* Eval/evobject.scm 517 */
				obj_t BgL_ez00_4404;
				obj_t BgL_newz00_4405;

				BgL_ez00_4404 = PROCEDURE_L_REF(BgL_envz00_4403, (int) (0L));
				BgL_newz00_4405 =
					((obj_t) PROCEDURE_L_REF(BgL_envz00_4403, (int) (1L)));
				if (BGl_classzd2fieldzd2virtualzf3zf3zz__objectz00(BgL_fieldz00_4406))
					{	/* Eval/evobject.scm 517 */
						return BFALSE;
					}
				else
					{	/* Eval/evobject.scm 518 */
						obj_t BgL_vz00_4582;

						{	/* Eval/evobject.scm 518 */
							obj_t BgL_arg1667z00_4583;

							BgL_arg1667z00_4583 = CDR(((obj_t) BgL_valz00_4407));
							BgL_vz00_4582 =
								BGL_PROCEDURE_CALL2(BgL_ez00_4404, BgL_arg1667z00_4583,
								BgL_ez00_4404);
						}
						{	/* Eval/evobject.scm 519 */
							obj_t BgL_arg1664z00_4584;
							obj_t BgL_arg1665z00_4585;

							BgL_arg1664z00_4584 =
								BGl_classzd2fieldzd2mutatorz00zz__objectz00(BgL_fieldz00_4406);
							{	/* Eval/evobject.scm 519 */
								obj_t BgL_arg1666z00_4586;

								BgL_arg1666z00_4586 = MAKE_YOUNG_PAIR(BgL_vz00_4582, BNIL);
								BgL_arg1665z00_4585 =
									MAKE_YOUNG_PAIR(BgL_newz00_4405, BgL_arg1666z00_4586);
							}
							return MAKE_YOUNG_PAIR(BgL_arg1664z00_4584, BgL_arg1665z00_4585);
						}
					}
			}
		}

	}



/* find-field-offset */
	obj_t BGl_findzd2fieldzd2offsetz00zz__evobjectz00(obj_t BgL_fieldsz00_98,
		obj_t BgL_namez00_99, obj_t BgL_formz00_100, obj_t BgL_sexpz00_101)
	{
		{	/* Eval/evobject.scm 539 */
			{
				long BgL_iz00_1856;

				BgL_iz00_1856 = 0L;
			BgL_zc3z04anonymousza31720ze3z87_1857:
				if ((BgL_iz00_1856 == VECTOR_LENGTH(BgL_fieldsz00_98)))
					{	/* Eval/evobject.scm 545 */
						obj_t BgL_arg1722z00_1859;

						{	/* Eval/evobject.scm 545 */
							obj_t BgL_list1723z00_1860;

							{	/* Eval/evobject.scm 545 */
								obj_t BgL_arg1724z00_1861;

								BgL_arg1724z00_1861 = MAKE_YOUNG_PAIR(BgL_namez00_99, BNIL);
								BgL_list1723z00_1860 =
									MAKE_YOUNG_PAIR(BgL_formz00_100, BgL_arg1724z00_1861);
							}
							BgL_arg1722z00_1859 =
								BGl_formatz00zz__r4_output_6_10_3z00
								(BGl_string2517z00zz__evobjectz00, BgL_list1723z00_1860);
						}
						return
							BGl_expandzd2errorzd2zz__evobjectz00(BgL_namez00_99,
							BgL_arg1722z00_1859, BgL_sexpz00_101);
					}
				else
					{	/* Eval/evobject.scm 543 */
						if (
							(BGl_classzd2fieldzd2namez00zz__objectz00(VECTOR_REF
									(BgL_fieldsz00_98, BgL_iz00_1856)) == BgL_namez00_99))
							{	/* Eval/evobject.scm 547 */
								return BINT(BgL_iz00_1856);
							}
						else
							{
								long BgL_iz00_5735;

								BgL_iz00_5735 = (BgL_iz00_1856 + 1L);
								BgL_iz00_1856 = BgL_iz00_5735;
								goto BgL_zc3z04anonymousza31720ze3z87_1857;
							}
					}
			}
		}

	}



/* eval-expand-with-access */
	BGL_EXPORTED_DEF obj_t
		BGl_evalzd2expandzd2withzd2accesszd2zz__evobjectz00(obj_t BgL_classz00_102)
	{
		{	/* Eval/evobject.scm 555 */
			{	/* Eval/evobject.scm 556 */
				obj_t BgL_widz00_1869;

				{	/* Eval/evobject.scm 556 */
					obj_t BgL_arg1732z00_1871;

					{	/* Eval/evobject.scm 556 */
						obj_t BgL_arg1733z00_1872;
						obj_t BgL_arg1734z00_1873;

						{	/* Eval/evobject.scm 556 */
							obj_t BgL_symbolz00_3507;

							BgL_symbolz00_3507 = BGl_symbol2518z00zz__evobjectz00;
							{	/* Eval/evobject.scm 556 */
								obj_t BgL_arg2224z00_3508;

								BgL_arg2224z00_3508 = SYMBOL_TO_STRING(BgL_symbolz00_3507);
								BgL_arg1733z00_1872 =
									BGl_stringzd2copyzd2zz__r4_strings_6_7z00
									(BgL_arg2224z00_3508);
							}
						}
						{	/* Eval/evobject.scm 556 */
							obj_t BgL_arg1735z00_1874;

							BgL_arg1735z00_1874 =
								BGl_classzd2namezd2zz__objectz00(BgL_classz00_102);
							{	/* Eval/evobject.scm 556 */
								obj_t BgL_arg2224z00_3510;

								BgL_arg2224z00_3510 = SYMBOL_TO_STRING(BgL_arg1735z00_1874);
								BgL_arg1734z00_1873 =
									BGl_stringzd2copyzd2zz__r4_strings_6_7z00
									(BgL_arg2224z00_3510);
							}
						}
						BgL_arg1732z00_1871 =
							string_append(BgL_arg1733z00_1872, BgL_arg1734z00_1873);
					}
					BgL_widz00_1869 = bstring_to_symbol(BgL_arg1732z00_1871);
				}
				return
					BGl_installzd2expanderzd2zz__macroz00(BgL_widz00_1869,
					BGl_evalzd2withzd2accesszd2expanderzd2zz__evobjectz00
					(BgL_classz00_102));
			}
		}

	}



/* &eval-expand-with-access */
	obj_t BGl_z62evalzd2expandzd2withzd2accesszb0zz__evobjectz00(obj_t
		BgL_envz00_4408, obj_t BgL_classz00_4409)
	{
		{	/* Eval/evobject.scm 555 */
			{	/* Eval/evobject.scm 556 */
				obj_t BgL_auxz00_5746;

				if (BGl_classzf3zf3zz__objectz00(BgL_classz00_4409))
					{	/* Eval/evobject.scm 556 */
						BgL_auxz00_5746 = BgL_classz00_4409;
					}
				else
					{
						obj_t BgL_auxz00_5749;

						BgL_auxz00_5749 =
							BGl_typezd2errorzd2zz__errorz00(BGl_string2493z00zz__evobjectz00,
							BINT(20459L), BGl_string2520z00zz__evobjectz00,
							BGl_string2495z00zz__evobjectz00, BgL_classz00_4409);
						FAILURE(BgL_auxz00_5749, BFALSE, BFALSE);
					}
				return
					BGl_evalzd2expandzd2withzd2accesszd2zz__evobjectz00(BgL_auxz00_5746);
			}
		}

	}



/* eval-with-access-expander */
	obj_t BGl_evalzd2withzd2accesszd2expanderzd2zz__evobjectz00(obj_t
		BgL_classz00_103)
	{
		{	/* Eval/evobject.scm 562 */
			{	/* Eval/evobject.scm 564 */
				obj_t BgL_zc3z04anonymousza31736ze3z87_4410;

				BgL_zc3z04anonymousza31736ze3z87_4410 =
					MAKE_FX_PROCEDURE(BGl_z62zc3z04anonymousza31736ze3ze5zz__evobjectz00,
					(int) (2L), (int) (1L));
				PROCEDURE_SET(BgL_zc3z04anonymousza31736ze3z87_4410,
					(int) (0L), BgL_classz00_103);
				return BgL_zc3z04anonymousza31736ze3z87_4410;
			}
		}

	}



/* &<@anonymous:1736> */
	obj_t BGl_z62zc3z04anonymousza31736ze3ze5zz__evobjectz00(obj_t
		BgL_envz00_4411, obj_t BgL_xz00_4413, obj_t BgL_ez00_4414)
	{
		{	/* Eval/evobject.scm 564 */
			{	/* Eval/evobject.scm 564 */
				obj_t BgL_classz00_4412;

				BgL_classz00_4412 =
					((obj_t) PROCEDURE_REF(BgL_envz00_4411, (int) (0L)));
				{
					obj_t BgL_waccessz00_4588;
					obj_t BgL_instancez00_4589;
					obj_t BgL_fieldsz00_4590;
					obj_t BgL_bodyz00_4591;

					if (PAIRP(BgL_xz00_4413))
						{	/* Eval/evobject.scm 564 */
							obj_t BgL_cdrzd2163zd2_4637;

							BgL_cdrzd2163zd2_4637 = CDR(((obj_t) BgL_xz00_4413));
							if (PAIRP(BgL_cdrzd2163zd2_4637))
								{	/* Eval/evobject.scm 564 */
									obj_t BgL_cdrzd2169zd2_4638;

									BgL_cdrzd2169zd2_4638 = CDR(BgL_cdrzd2163zd2_4637);
									if (PAIRP(BgL_cdrzd2169zd2_4638))
										{	/* Eval/evobject.scm 564 */
											obj_t BgL_carzd2173zd2_4639;
											obj_t BgL_cdrzd2174zd2_4640;

											BgL_carzd2173zd2_4639 = CAR(BgL_cdrzd2169zd2_4638);
											BgL_cdrzd2174zd2_4640 = CDR(BgL_cdrzd2169zd2_4638);
											if (PAIRP(BgL_carzd2173zd2_4639))
												{	/* Eval/evobject.scm 564 */
													if (PAIRP(BgL_cdrzd2174zd2_4640))
														{	/* Eval/evobject.scm 564 */
															obj_t BgL_arg1742z00_4641;
															obj_t BgL_arg1743z00_4642;

															BgL_arg1742z00_4641 =
																CAR(((obj_t) BgL_xz00_4413));
															BgL_arg1743z00_4642 = CAR(BgL_cdrzd2163zd2_4637);
															BgL_waccessz00_4588 = BgL_arg1742z00_4641;
															BgL_instancez00_4589 = BgL_arg1743z00_4642;
															BgL_fieldsz00_4590 = BgL_carzd2173zd2_4639;
															BgL_bodyz00_4591 = BgL_cdrzd2174zd2_4640;
															{
																obj_t BgL_sz00_4593;
																obj_t BgL_nfieldsz00_4594;

																BgL_sz00_4593 = BgL_fieldsz00_4590;
																BgL_nfieldsz00_4594 = BNIL;
															BgL_loopz00_4592:
																if (NULLP(BgL_sz00_4593))
																	{	/* Eval/evobject.scm 571 */
																		obj_t BgL_instancez00_4595;

																		BgL_instancez00_4595 =
																			BGL_PROCEDURE_CALL2(BgL_ez00_4414,
																			BgL_instancez00_4589, BgL_ez00_4414);
																		{	/* Eval/evobject.scm 571 */
																			obj_t BgL_auxz00_4596;

																			BgL_auxz00_4596 =
																				BGl_gensymz00zz__r4_symbols_6_4z00
																				(BGl_symbol2521z00zz__evobjectz00);
																			{	/* Eval/evobject.scm 572 */
																				obj_t BgL_tauxz00_4597;

																				{	/* Eval/evobject.scm 573 */
																					obj_t BgL_arg1769z00_4598;

																					BgL_arg1769z00_4598 =
																						BGl_classzd2namezd2zz__objectz00
																						(BgL_classz00_4412);
																					{	/* Eval/evobject.scm 573 */
																						obj_t BgL_list1770z00_4599;

																						{	/* Eval/evobject.scm 573 */
																							obj_t BgL_arg1771z00_4600;

																							{	/* Eval/evobject.scm 573 */
																								obj_t BgL_arg1772z00_4601;

																								BgL_arg1772z00_4601 =
																									MAKE_YOUNG_PAIR
																									(BgL_arg1769z00_4598, BNIL);
																								BgL_arg1771z00_4600 =
																									MAKE_YOUNG_PAIR
																									(BGl_symbol2523z00zz__evobjectz00,
																									BgL_arg1772z00_4601);
																							}
																							BgL_list1770z00_4599 =
																								MAKE_YOUNG_PAIR(BgL_auxz00_4596,
																								BgL_arg1771z00_4600);
																						}
																						BgL_tauxz00_4597 =
																							BGl_symbolzd2appendzd2zz__r4_symbols_6_4z00
																							(BgL_list1770z00_4599);
																					}
																				}
																				{	/* Eval/evobject.scm 573 */

																					{	/* Eval/evobject.scm 576 */
																						obj_t BgL_arg1747z00_4602;

																						{	/* Eval/evobject.scm 576 */
																							obj_t BgL_arg1748z00_4603;

																							{	/* Eval/evobject.scm 576 */
																								obj_t BgL_arg1749z00_4604;
																								obj_t BgL_arg1750z00_4605;

																								{	/* Eval/evobject.scm 576 */
																									obj_t BgL_arg1754z00_4606;

																									{	/* Eval/evobject.scm 576 */
																										obj_t BgL_arg1755z00_4607;

																										BgL_arg1755z00_4607 =
																											MAKE_YOUNG_PAIR
																											(BgL_instancez00_4595,
																											BNIL);
																										BgL_arg1754z00_4606 =
																											MAKE_YOUNG_PAIR
																											(BgL_tauxz00_4597,
																											BgL_arg1755z00_4607);
																									}
																									BgL_arg1749z00_4604 =
																										MAKE_YOUNG_PAIR
																										(BgL_arg1754z00_4606, BNIL);
																								}
																								{	/* Eval/evobject.scm 578 */
																									obj_t BgL_arg1756z00_4608;

																									{	/* Eval/evobject.scm 578 */
																										obj_t BgL_arg1757z00_4609;
																										obj_t BgL_arg1758z00_4610;
																										obj_t BgL_arg1759z00_4611;

																										if (NULLP
																											(BgL_nfieldsz00_4594))
																											{	/* Eval/evobject.scm 578 */
																												BgL_arg1757z00_4609 =
																													BNIL;
																											}
																										else
																											{	/* Eval/evobject.scm 578 */
																												obj_t
																													BgL_head1126z00_4612;
																												{	/* Eval/evobject.scm 578 */
																													obj_t
																														BgL_arg1766z00_4613;
																													{	/* Eval/evobject.scm 578 */
																														obj_t
																															BgL_pairz00_4614;
																														BgL_pairz00_4614 =
																															CAR(((obj_t)
																																BgL_nfieldsz00_4594));
																														BgL_arg1766z00_4613
																															=
																															CAR
																															(BgL_pairz00_4614);
																													}
																													BgL_head1126z00_4612 =
																														MAKE_YOUNG_PAIR
																														(BgL_arg1766z00_4613,
																														BNIL);
																												}
																												{	/* Eval/evobject.scm 578 */
																													obj_t
																														BgL_g1129z00_4615;
																													BgL_g1129z00_4615 =
																														CDR(((obj_t)
																															BgL_nfieldsz00_4594));
																													{
																														obj_t
																															BgL_l1124z00_4617;
																														obj_t
																															BgL_tail1127z00_4618;
																														BgL_l1124z00_4617 =
																															BgL_g1129z00_4615;
																														BgL_tail1127z00_4618
																															=
																															BgL_head1126z00_4612;
																													BgL_zc3z04anonymousza31761ze3z87_4616:
																														if (NULLP
																															(BgL_l1124z00_4617))
																															{	/* Eval/evobject.scm 578 */
																																BgL_arg1757z00_4609
																																	=
																																	BgL_head1126z00_4612;
																															}
																														else
																															{	/* Eval/evobject.scm 578 */
																																obj_t
																																	BgL_newtail1128z00_4619;
																																{	/* Eval/evobject.scm 578 */
																																	obj_t
																																		BgL_arg1764z00_4620;
																																	{	/* Eval/evobject.scm 578 */
																																		obj_t
																																			BgL_pairz00_4621;
																																		BgL_pairz00_4621
																																			=
																																			CAR((
																																				(obj_t)
																																				BgL_l1124z00_4617));
																																		BgL_arg1764z00_4620
																																			=
																																			CAR
																																			(BgL_pairz00_4621);
																																	}
																																	BgL_newtail1128z00_4619
																																		=
																																		MAKE_YOUNG_PAIR
																																		(BgL_arg1764z00_4620,
																																		BNIL);
																																}
																																SET_CDR
																																	(BgL_tail1127z00_4618,
																																	BgL_newtail1128z00_4619);
																																{	/* Eval/evobject.scm 578 */
																																	obj_t
																																		BgL_arg1763z00_4622;
																																	BgL_arg1763z00_4622
																																		=
																																		CDR(((obj_t)
																																			BgL_l1124z00_4617));
																																	{
																																		obj_t
																																			BgL_tail1127z00_5814;
																																		obj_t
																																			BgL_l1124z00_5813;
																																		BgL_l1124z00_5813
																																			=
																																			BgL_arg1763z00_4622;
																																		BgL_tail1127z00_5814
																																			=
																																			BgL_newtail1128z00_4619;
																																		BgL_tail1127z00_4618
																																			=
																																			BgL_tail1127z00_5814;
																																		BgL_l1124z00_4617
																																			=
																																			BgL_l1124z00_5813;
																																		goto
																																			BgL_zc3z04anonymousza31761ze3z87_4616;
																																	}
																																}
																															}
																													}
																												}
																											}
																										BgL_arg1758z00_4610 =
																											BGl_expandzd2prognzd2zz__prognz00
																											(BgL_bodyz00_4591);
																										BgL_arg1759z00_4611 =
																											BGl_evalzd2beginzd2expanderz00zz__expander_definez00
																											(BGl_withzd2accesszd2expanderz00zz__evobjectz00
																											(BgL_ez00_4414,
																												BgL_auxz00_4596,
																												BgL_nfieldsz00_4594,
																												BgL_xz00_4413));
																										BgL_arg1756z00_4608 =
																											BGl_z52withzd2lexicalz80zz__expandz00
																											(BgL_arg1757z00_4609,
																											BgL_arg1758z00_4610,
																											BgL_arg1759z00_4611,
																											BgL_auxz00_4596);
																									}
																									BgL_arg1750z00_4605 =
																										MAKE_YOUNG_PAIR
																										(BgL_arg1756z00_4608, BNIL);
																								}
																								BgL_arg1748z00_4603 =
																									MAKE_YOUNG_PAIR
																									(BgL_arg1749z00_4604,
																									BgL_arg1750z00_4605);
																							}
																							BgL_arg1747z00_4602 =
																								MAKE_YOUNG_PAIR
																								(BGl_symbol2508z00zz__evobjectz00,
																								BgL_arg1748z00_4603);
																						}
																						return
																							BGl_localiza7eza7zz__evobjectz00
																							(BgL_xz00_4413,
																							BgL_arg1747z00_4602);
																					}
																				}
																			}
																		}
																	}
																else
																	{	/* Eval/evobject.scm 570 */
																		if (PAIRP(BgL_sz00_4593))
																			{	/* Eval/evobject.scm 586 */
																				bool_t BgL_test2750z00_5825;

																				{	/* Eval/evobject.scm 586 */
																					obj_t BgL_tmpz00_5826;

																					BgL_tmpz00_5826 = CAR(BgL_sz00_4593);
																					BgL_test2750z00_5825 =
																						SYMBOLP(BgL_tmpz00_5826);
																				}
																				if (BgL_test2750z00_5825)
																					{	/* Eval/evobject.scm 587 */
																						obj_t BgL_arg1777z00_4623;
																						obj_t BgL_arg1778z00_4624;

																						BgL_arg1777z00_4623 =
																							CDR(BgL_sz00_4593);
																						{	/* Eval/evobject.scm 587 */
																							obj_t BgL_arg1779z00_4625;

																							{	/* Eval/evobject.scm 587 */
																								obj_t BgL_arg1781z00_4626;
																								obj_t BgL_arg1782z00_4627;

																								BgL_arg1781z00_4626 =
																									CAR(BgL_sz00_4593);
																								BgL_arg1782z00_4627 =
																									CAR(BgL_sz00_4593);
																								{	/* Eval/evobject.scm 587 */
																									obj_t BgL_list1783z00_4628;

																									{	/* Eval/evobject.scm 587 */
																										obj_t BgL_arg1784z00_4629;

																										BgL_arg1784z00_4629 =
																											MAKE_YOUNG_PAIR
																											(BgL_arg1782z00_4627,
																											BNIL);
																										BgL_list1783z00_4628 =
																											MAKE_YOUNG_PAIR
																											(BgL_arg1781z00_4626,
																											BgL_arg1784z00_4629);
																									}
																									BgL_arg1779z00_4625 =
																										BgL_list1783z00_4628;
																								}
																							}
																							BgL_arg1778z00_4624 =
																								MAKE_YOUNG_PAIR
																								(BgL_arg1779z00_4625,
																								BgL_nfieldsz00_4594);
																						}
																						{
																							obj_t BgL_nfieldsz00_5836;
																							obj_t BgL_sz00_5835;

																							BgL_sz00_5835 =
																								BgL_arg1777z00_4623;
																							BgL_nfieldsz00_5836 =
																								BgL_arg1778z00_4624;
																							BgL_nfieldsz00_4594 =
																								BgL_nfieldsz00_5836;
																							BgL_sz00_4593 = BgL_sz00_5835;
																							goto BgL_loopz00_4592;
																						}
																					}
																				else
																					{	/* Eval/evobject.scm 588 */
																						bool_t BgL_test2751z00_5837;

																						{	/* Eval/evobject.scm 588 */
																							bool_t BgL_test2752z00_5838;

																							{	/* Eval/evobject.scm 588 */
																								obj_t BgL_tmpz00_5839;

																								BgL_tmpz00_5839 =
																									CAR(BgL_sz00_4593);
																								BgL_test2752z00_5838 =
																									PAIRP(BgL_tmpz00_5839);
																							}
																							if (BgL_test2752z00_5838)
																								{	/* Eval/evobject.scm 589 */
																									bool_t BgL_test2753z00_5842;

																									{	/* Eval/evobject.scm 589 */
																										obj_t BgL_tmpz00_5843;

																										BgL_tmpz00_5843 =
																											CAR(CAR(BgL_sz00_4593));
																										BgL_test2753z00_5842 =
																											SYMBOLP(BgL_tmpz00_5843);
																									}
																									if (BgL_test2753z00_5842)
																										{	/* Eval/evobject.scm 590 */
																											bool_t
																												BgL_test2754z00_5847;
																											{	/* Eval/evobject.scm 590 */
																												obj_t BgL_tmpz00_5848;

																												BgL_tmpz00_5848 =
																													CDR(CAR
																													(BgL_sz00_4593));
																												BgL_test2754z00_5847 =
																													PAIRP
																													(BgL_tmpz00_5848);
																											}
																											if (BgL_test2754z00_5847)
																												{	/* Eval/evobject.scm 591 */
																													bool_t
																														BgL_test2755z00_5852;
																													{	/* Eval/evobject.scm 591 */
																														obj_t
																															BgL_tmpz00_5853;
																														{	/* Eval/evobject.scm 591 */
																															obj_t
																																BgL_pairz00_4630;
																															BgL_pairz00_4630 =
																																CAR
																																(BgL_sz00_4593);
																															BgL_tmpz00_5853 =
																																CAR(CDR
																																(BgL_pairz00_4630));
																														}
																														BgL_test2755z00_5852
																															=
																															SYMBOLP
																															(BgL_tmpz00_5853);
																													}
																													if (BgL_test2755z00_5852)
																														{	/* Eval/evobject.scm 592 */
																															obj_t
																																BgL_tmpz00_5858;
																															{	/* Eval/evobject.scm 592 */
																																obj_t
																																	BgL_pairz00_4631;
																																BgL_pairz00_4631
																																	=
																																	CAR
																																	(BgL_sz00_4593);
																																BgL_tmpz00_5858
																																	=
																																	CDR(CDR
																																	(BgL_pairz00_4631));
																															}
																															BgL_test2751z00_5837
																																=
																																NULLP
																																(BgL_tmpz00_5858);
																														}
																													else
																														{	/* Eval/evobject.scm 591 */
																															BgL_test2751z00_5837
																																= ((bool_t) 0);
																														}
																												}
																											else
																												{	/* Eval/evobject.scm 590 */
																													BgL_test2751z00_5837 =
																														((bool_t) 0);
																												}
																										}
																									else
																										{	/* Eval/evobject.scm 589 */
																											BgL_test2751z00_5837 =
																												((bool_t) 0);
																										}
																								}
																							else
																								{	/* Eval/evobject.scm 588 */
																									BgL_test2751z00_5837 =
																										((bool_t) 0);
																								}
																						}
																						if (BgL_test2751z00_5837)
																							{	/* Eval/evobject.scm 593 */
																								obj_t BgL_arg1809z00_4632;
																								obj_t BgL_arg1811z00_4633;

																								BgL_arg1809z00_4632 =
																									CDR(BgL_sz00_4593);
																								BgL_arg1811z00_4633 =
																									MAKE_YOUNG_PAIR(CAR
																									(BgL_sz00_4593),
																									BgL_nfieldsz00_4594);
																								{
																									obj_t BgL_nfieldsz00_5867;
																									obj_t BgL_sz00_5866;

																									BgL_sz00_5866 =
																										BgL_arg1809z00_4632;
																									BgL_nfieldsz00_5867 =
																										BgL_arg1811z00_4633;
																									BgL_nfieldsz00_4594 =
																										BgL_nfieldsz00_5867;
																									BgL_sz00_4593 = BgL_sz00_5866;
																									goto BgL_loopz00_4592;
																								}
																							}
																						else
																							{	/* Eval/evobject.scm 595 */
																								obj_t BgL_arg1813z00_4634;

																								BgL_arg1813z00_4634 =
																									CAR(BgL_sz00_4593);
																								{	/* Eval/evobject.scm 72 */
																									obj_t BgL_locz00_4635;

																									if (EPAIRP(BgL_xz00_4413))
																										{	/* Eval/evobject.scm 72 */
																											BgL_locz00_4635 =
																												CER(
																												((obj_t)
																													BgL_xz00_4413));
																										}
																									else
																										{	/* Eval/evobject.scm 72 */
																											BgL_locz00_4635 = BFALSE;
																										}
																									{	/* Eval/evobject.scm 73 */
																										bool_t BgL_test2757z00_5873;

																										if (PAIRP(BgL_locz00_4635))
																											{	/* Eval/evobject.scm 73 */
																												bool_t
																													BgL_test2759z00_5876;
																												{	/* Eval/evobject.scm 73 */
																													obj_t BgL_tmpz00_5877;

																													BgL_tmpz00_5877 =
																														CDR
																														(BgL_locz00_4635);
																													BgL_test2759z00_5876 =
																														PAIRP
																														(BgL_tmpz00_5877);
																												}
																												if (BgL_test2759z00_5876)
																													{	/* Eval/evobject.scm 73 */
																														obj_t
																															BgL_tmpz00_5880;
																														BgL_tmpz00_5880 =
																															CDR(CDR
																															(BgL_locz00_4635));
																														BgL_test2757z00_5873
																															=
																															PAIRP
																															(BgL_tmpz00_5880);
																													}
																												else
																													{	/* Eval/evobject.scm 73 */
																														BgL_test2757z00_5873
																															= ((bool_t) 0);
																													}
																											}
																										else
																											{	/* Eval/evobject.scm 73 */
																												BgL_test2757z00_5873 =
																													((bool_t) 0);
																											}
																										if (BgL_test2757z00_5873)
																											{	/* Eval/evobject.scm 73 */
																												return
																													BGl_errorzf2locationzf2zz__errorz00
																													(BgL_arg1813z00_4634,
																													BGl_string2514z00zz__evobjectz00,
																													BgL_xz00_4413,
																													CAR(CDR
																														(BgL_locz00_4635)),
																													CAR(CDR(CDR
																															(BgL_locz00_4635))));
																											}
																										else
																											{	/* Eval/evobject.scm 73 */
																												return
																													BGl_errorz00zz__errorz00
																													(BgL_arg1813z00_4634,
																													BGl_string2514z00zz__evobjectz00,
																													BgL_xz00_4413);
																											}
																									}
																								}
																							}
																					}
																			}
																		else
																			{	/* Eval/evobject.scm 72 */
																				obj_t BgL_locz00_4636;

																				if (EPAIRP(BgL_xz00_4413))
																					{	/* Eval/evobject.scm 72 */
																						BgL_locz00_4636 =
																							CER(((obj_t) BgL_xz00_4413));
																					}
																				else
																					{	/* Eval/evobject.scm 72 */
																						BgL_locz00_4636 = BFALSE;
																					}
																				{	/* Eval/evobject.scm 73 */
																					bool_t BgL_test2761z00_5895;

																					if (PAIRP(BgL_locz00_4636))
																						{	/* Eval/evobject.scm 73 */
																							bool_t BgL_test2763z00_5898;

																							{	/* Eval/evobject.scm 73 */
																								obj_t BgL_tmpz00_5899;

																								BgL_tmpz00_5899 =
																									CDR(BgL_locz00_4636);
																								BgL_test2763z00_5898 =
																									PAIRP(BgL_tmpz00_5899);
																							}
																							if (BgL_test2763z00_5898)
																								{	/* Eval/evobject.scm 73 */
																									obj_t BgL_tmpz00_5902;

																									BgL_tmpz00_5902 =
																										CDR(CDR(BgL_locz00_4636));
																									BgL_test2761z00_5895 =
																										PAIRP(BgL_tmpz00_5902);
																								}
																							else
																								{	/* Eval/evobject.scm 73 */
																									BgL_test2761z00_5895 =
																										((bool_t) 0);
																								}
																						}
																					else
																						{	/* Eval/evobject.scm 73 */
																							BgL_test2761z00_5895 =
																								((bool_t) 0);
																						}
																					if (BgL_test2761z00_5895)
																						{	/* Eval/evobject.scm 73 */
																							return
																								BGl_errorzf2locationzf2zz__errorz00
																								(BgL_sz00_4593,
																								BGl_string2525z00zz__evobjectz00,
																								BgL_xz00_4413,
																								CAR(CDR(BgL_locz00_4636)),
																								CAR(CDR(CDR(BgL_locz00_4636))));
																						}
																					else
																						{	/* Eval/evobject.scm 73 */
																							return
																								BGl_errorz00zz__errorz00
																								(BgL_sz00_4593,
																								BGl_string2525z00zz__evobjectz00,
																								BgL_xz00_4413);
																						}
																				}
																			}
																	}
															}
														}
													else
														{	/* Eval/evobject.scm 564 */
															return
																BGl_expandzd2errorzd2zz__evobjectz00
																(BGl_string2526z00zz__evobjectz00,
																BGl_string2527z00zz__evobjectz00,
																BgL_xz00_4413);
														}
												}
											else
												{	/* Eval/evobject.scm 564 */
													return
														BGl_expandzd2errorzd2zz__evobjectz00
														(BGl_string2526z00zz__evobjectz00,
														BGl_string2527z00zz__evobjectz00, BgL_xz00_4413);
												}
										}
									else
										{	/* Eval/evobject.scm 564 */
											return
												BGl_expandzd2errorzd2zz__evobjectz00
												(BGl_string2526z00zz__evobjectz00,
												BGl_string2527z00zz__evobjectz00, BgL_xz00_4413);
										}
								}
							else
								{	/* Eval/evobject.scm 564 */
									return
										BGl_expandzd2errorzd2zz__evobjectz00
										(BGl_string2526z00zz__evobjectz00,
										BGl_string2527z00zz__evobjectz00, BgL_xz00_4413);
								}
						}
					else
						{	/* Eval/evobject.scm 564 */
							return
								BGl_expandzd2errorzd2zz__evobjectz00
								(BGl_string2526z00zz__evobjectz00,
								BGl_string2527z00zz__evobjectz00, BgL_xz00_4413);
						}
				}
			}
		}

	}



/* with-access-expander */
	obj_t BGl_withzd2accesszd2expanderz00zz__evobjectz00(obj_t BgL_oldez00_104,
		obj_t BgL_iz00_105, obj_t BgL_fieldsz00_106, obj_t BgL_formz00_107)
	{
		{	/* Eval/evobject.scm 602 */
			{	/* Eval/evobject.scm 606 */
				obj_t BgL_idsz00_1987;

				if (NULLP(BgL_fieldsz00_106))
					{	/* Eval/evobject.scm 606 */
						BgL_idsz00_1987 = BNIL;
					}
				else
					{	/* Eval/evobject.scm 606 */
						obj_t BgL_head1132z00_2055;

						{	/* Eval/evobject.scm 606 */
							obj_t BgL_arg1879z00_2067;

							{	/* Eval/evobject.scm 606 */
								obj_t BgL_pairz00_3660;

								BgL_pairz00_3660 = CAR(((obj_t) BgL_fieldsz00_106));
								BgL_arg1879z00_2067 = CAR(BgL_pairz00_3660);
							}
							BgL_head1132z00_2055 = MAKE_YOUNG_PAIR(BgL_arg1879z00_2067, BNIL);
						}
						{	/* Eval/evobject.scm 606 */
							obj_t BgL_g1135z00_2056;

							BgL_g1135z00_2056 = CDR(((obj_t) BgL_fieldsz00_106));
							{
								obj_t BgL_l1130z00_3681;
								obj_t BgL_tail1133z00_3682;

								BgL_l1130z00_3681 = BgL_g1135z00_2056;
								BgL_tail1133z00_3682 = BgL_head1132z00_2055;
							BgL_zc3z04anonymousza31871ze3z87_3680:
								if (NULLP(BgL_l1130z00_3681))
									{	/* Eval/evobject.scm 606 */
										BgL_idsz00_1987 = BgL_head1132z00_2055;
									}
								else
									{	/* Eval/evobject.scm 606 */
										obj_t BgL_newtail1134z00_3689;

										{	/* Eval/evobject.scm 606 */
											obj_t BgL_arg1876z00_3690;

											{	/* Eval/evobject.scm 606 */
												obj_t BgL_pairz00_3694;

												BgL_pairz00_3694 = CAR(((obj_t) BgL_l1130z00_3681));
												BgL_arg1876z00_3690 = CAR(BgL_pairz00_3694);
											}
											BgL_newtail1134z00_3689 =
												MAKE_YOUNG_PAIR(BgL_arg1876z00_3690, BNIL);
										}
										SET_CDR(BgL_tail1133z00_3682, BgL_newtail1134z00_3689);
										{	/* Eval/evobject.scm 606 */
											obj_t BgL_arg1873z00_3692;

											BgL_arg1873z00_3692 = CDR(((obj_t) BgL_l1130z00_3681));
											{
												obj_t BgL_tail1133z00_5936;
												obj_t BgL_l1130z00_5935;

												BgL_l1130z00_5935 = BgL_arg1873z00_3692;
												BgL_tail1133z00_5936 = BgL_newtail1134z00_3689;
												BgL_tail1133z00_3682 = BgL_tail1133z00_5936;
												BgL_l1130z00_3681 = BgL_l1130z00_5935;
												goto BgL_zc3z04anonymousza31871ze3z87_3680;
											}
										}
									}
							}
						}
					}
				{	/* Eval/evobject.scm 607 */
					obj_t BgL_zc3z04anonymousza31825ze3z87_4415;

					BgL_zc3z04anonymousza31825ze3z87_4415 =
						MAKE_FX_PROCEDURE
						(BGl_z62zc3z04anonymousza31825ze3ze5zz__evobjectz00, (int) (2L),
						(int) (4L));
					PROCEDURE_SET(BgL_zc3z04anonymousza31825ze3z87_4415, (int) (0L),
						BgL_oldez00_104);
					PROCEDURE_SET(BgL_zc3z04anonymousza31825ze3z87_4415, (int) (1L),
						BgL_iz00_105);
					PROCEDURE_SET(BgL_zc3z04anonymousza31825ze3z87_4415, (int) (2L),
						BgL_fieldsz00_106);
					PROCEDURE_SET(BgL_zc3z04anonymousza31825ze3z87_4415, (int) (3L),
						BgL_idsz00_1987);
					return BgL_zc3z04anonymousza31825ze3z87_4415;
				}
			}
		}

	}



/* &<@anonymous:1825> */
	obj_t BGl_z62zc3z04anonymousza31825ze3ze5zz__evobjectz00(obj_t
		BgL_envz00_4416, obj_t BgL_xz00_4421, obj_t BgL_ez00_4422)
	{
		{	/* Eval/evobject.scm 607 */
			{	/* Eval/evobject.scm 607 */
				obj_t BgL_oldez00_4417;
				obj_t BgL_iz00_4418;
				obj_t BgL_fieldsz00_4419;
				obj_t BgL_idsz00_4420;

				BgL_oldez00_4417 = PROCEDURE_REF(BgL_envz00_4416, (int) (0L));
				BgL_iz00_4418 = ((obj_t) PROCEDURE_REF(BgL_envz00_4416, (int) (1L)));
				BgL_fieldsz00_4419 =
					((obj_t) PROCEDURE_REF(BgL_envz00_4416, (int) (2L)));
				BgL_idsz00_4420 = ((obj_t) PROCEDURE_REF(BgL_envz00_4416, (int) (3L)));
				{
					obj_t BgL_varz00_4664;
					obj_t BgL_varz00_4645;
					obj_t BgL_valz00_4646;

					if (SYMBOLP(BgL_xz00_4421))
						{	/* Eval/evobject.scm 607 */
							BgL_varz00_4664 = BgL_xz00_4421;
							{	/* Eval/evobject.scm 610 */
								bool_t BgL_test2767z00_5961;

								if (CBOOL(BGl_memqz00zz__r4_pairs_and_lists_6_3z00
										(BgL_varz00_4664, BgL_idsz00_4420)))
									{	/* Eval/evobject.scm 611 */
										obj_t BgL_cellz00_4665;

										BgL_cellz00_4665 =
											BGl_assqz00zz__r4_pairs_and_lists_6_3z00(BgL_varz00_4664,
											BGl_z52lexicalzd2stackz80zz__expandz00());
										if (PAIRP(BgL_cellz00_4665))
											{	/* Eval/evobject.scm 612 */
												BgL_test2767z00_5961 =
													(CDR(BgL_cellz00_4665) == BgL_iz00_4418);
											}
										else
											{	/* Eval/evobject.scm 612 */
												BgL_test2767z00_5961 = ((bool_t) 0);
											}
									}
								else
									{	/* Eval/evobject.scm 610 */
										BgL_test2767z00_5961 = ((bool_t) 0);
									}
								if (BgL_test2767z00_5961)
									{	/* Eval/evobject.scm 613 */
										obj_t BgL_arg1842z00_4666;

										{	/* Eval/evobject.scm 613 */
											obj_t BgL_arg1845z00_4667;
											obj_t BgL_arg1846z00_4668;

											BgL_arg1845z00_4667 =
												BGL_PROCEDURE_CALL2(BgL_oldez00_4417, BgL_iz00_4418,
												BgL_oldez00_4417);
											{	/* Eval/evobject.scm 613 */
												obj_t BgL_arg1847z00_4669;

												{	/* Eval/evobject.scm 604 */
													obj_t BgL_pairz00_4670;

													BgL_pairz00_4670 =
														BGl_assqz00zz__r4_pairs_and_lists_6_3z00
														(BgL_varz00_4664, BgL_fieldsz00_4419);
													BgL_arg1847z00_4669 = CAR(CDR(BgL_pairz00_4670));
												}
												BgL_arg1846z00_4668 =
													MAKE_YOUNG_PAIR(BgL_arg1847z00_4669, BNIL);
											}
											BgL_arg1842z00_4666 =
												MAKE_YOUNG_PAIR(BgL_arg1845z00_4667,
												BgL_arg1846z00_4668);
										}
										return
											MAKE_YOUNG_PAIR(BGl_symbol2528z00zz__evobjectz00,
											BgL_arg1842z00_4666);
									}
								else
									{	/* Eval/evobject.scm 610 */
										return
											BGL_PROCEDURE_CALL2(BgL_oldez00_4417, BgL_varz00_4664,
											BgL_oldez00_4417);
									}
							}
						}
					else
						{	/* Eval/evobject.scm 607 */
							if (PAIRP(BgL_xz00_4421))
								{	/* Eval/evobject.scm 607 */
									obj_t BgL_cdrzd2194zd2_4671;

									BgL_cdrzd2194zd2_4671 = CDR(((obj_t) BgL_xz00_4421));
									if (
										(CAR(
												((obj_t) BgL_xz00_4421)) ==
											BGl_symbol2530z00zz__evobjectz00))
										{	/* Eval/evobject.scm 607 */
											if (PAIRP(BgL_cdrzd2194zd2_4671))
												{	/* Eval/evobject.scm 607 */
													obj_t BgL_carzd2197zd2_4672;
													obj_t BgL_cdrzd2198zd2_4673;

													BgL_carzd2197zd2_4672 = CAR(BgL_cdrzd2194zd2_4671);
													BgL_cdrzd2198zd2_4673 = CDR(BgL_cdrzd2194zd2_4671);
													if (SYMBOLP(BgL_carzd2197zd2_4672))
														{	/* Eval/evobject.scm 607 */
															if (PAIRP(BgL_cdrzd2198zd2_4673))
																{	/* Eval/evobject.scm 607 */
																	if (NULLP(CDR(BgL_cdrzd2198zd2_4673)))
																		{	/* Eval/evobject.scm 607 */
																			BgL_varz00_4645 = BgL_carzd2197zd2_4672;
																			BgL_valz00_4646 =
																				CAR(BgL_cdrzd2198zd2_4673);
																			{	/* Eval/evobject.scm 616 */
																				obj_t BgL_valz00_4647;

																				BgL_valz00_4647 =
																					BGL_PROCEDURE_CALL2(BgL_ez00_4422,
																					BgL_valz00_4646, BgL_ez00_4422);
																				{	/* Eval/evobject.scm 617 */
																					bool_t BgL_test2776z00_6011;

																					if (CBOOL
																						(BGl_memqz00zz__r4_pairs_and_lists_6_3z00
																							(BgL_varz00_4645,
																								BgL_idsz00_4420)))
																						{	/* Eval/evobject.scm 618 */
																							obj_t BgL_cellz00_4648;

																							BgL_cellz00_4648 =
																								BGl_assqz00zz__r4_pairs_and_lists_6_3z00
																								(BgL_varz00_4645,
																								BGl_z52lexicalzd2stackz80zz__expandz00
																								());
																							if (PAIRP(BgL_cellz00_4648))
																								{	/* Eval/evobject.scm 619 */
																									BgL_test2776z00_6011 =
																										(CDR(BgL_cellz00_4648) ==
																										BgL_iz00_4418);
																								}
																							else
																								{	/* Eval/evobject.scm 619 */
																									BgL_test2776z00_6011 =
																										((bool_t) 0);
																								}
																						}
																					else
																						{	/* Eval/evobject.scm 617 */
																							BgL_test2776z00_6011 =
																								((bool_t) 0);
																						}
																					if (BgL_test2776z00_6011)
																						{	/* Eval/evobject.scm 620 */
																							obj_t BgL_arg1854z00_4649;

																							{	/* Eval/evobject.scm 620 */
																								obj_t BgL_arg1856z00_4650;
																								obj_t BgL_arg1857z00_4651;

																								{	/* Eval/evobject.scm 620 */
																									obj_t BgL_arg1858z00_4652;

																									{	/* Eval/evobject.scm 620 */
																										obj_t BgL_arg1859z00_4653;
																										obj_t BgL_arg1860z00_4654;

																										BgL_arg1859z00_4653 =
																											BGL_PROCEDURE_CALL2
																											(BgL_oldez00_4417,
																											BgL_iz00_4418,
																											BgL_oldez00_4417);
																										{	/* Eval/evobject.scm 620 */
																											obj_t BgL_arg1861z00_4655;

																											{	/* Eval/evobject.scm 604 */
																												obj_t BgL_pairz00_4656;

																												BgL_pairz00_4656 =
																													BGl_assqz00zz__r4_pairs_and_lists_6_3z00
																													(BgL_varz00_4645,
																													BgL_fieldsz00_4419);
																												BgL_arg1861z00_4655 =
																													CAR(CDR
																													(BgL_pairz00_4656));
																											}
																											BgL_arg1860z00_4654 =
																												MAKE_YOUNG_PAIR
																												(BgL_arg1861z00_4655,
																												BNIL);
																										}
																										BgL_arg1858z00_4652 =
																											MAKE_YOUNG_PAIR
																											(BgL_arg1859z00_4653,
																											BgL_arg1860z00_4654);
																									}
																									BgL_arg1856z00_4650 =
																										MAKE_YOUNG_PAIR
																										(BGl_symbol2528z00zz__evobjectz00,
																										BgL_arg1858z00_4652);
																								}
																								{	/* Eval/evobject.scm 620 */
																									obj_t BgL_arg1862z00_4657;

																									BgL_arg1862z00_4657 =
																										BGL_PROCEDURE_CALL2
																										(BgL_oldez00_4417,
																										BgL_valz00_4647,
																										BgL_oldez00_4417);
																									BgL_arg1857z00_4651 =
																										MAKE_YOUNG_PAIR
																										(BgL_arg1862z00_4657, BNIL);
																								}
																								BgL_arg1854z00_4649 =
																									MAKE_YOUNG_PAIR
																									(BgL_arg1856z00_4650,
																									BgL_arg1857z00_4651);
																							}
																							return
																								MAKE_YOUNG_PAIR
																								(BGl_symbol2530z00zz__evobjectz00,
																								BgL_arg1854z00_4649);
																						}
																					else
																						{	/* Eval/evobject.scm 621 */
																							obj_t BgL_arg1863z00_4658;

																							{	/* Eval/evobject.scm 621 */
																								obj_t BgL_arg1864z00_4659;

																								{	/* Eval/evobject.scm 621 */
																									obj_t BgL_arg1865z00_4660;

																									{	/* Eval/evobject.scm 621 */
																										obj_t BgL_arg1866z00_4661;
																										obj_t BgL_arg1867z00_4662;

																										{	/* Eval/evobject.scm 621 */
																											obj_t BgL_pairz00_4663;

																											BgL_pairz00_4663 =
																												CDR(
																												((obj_t)
																													BgL_xz00_4421));
																											BgL_arg1866z00_4661 =
																												CAR(BgL_pairz00_4663);
																										}
																										BgL_arg1867z00_4662 =
																											MAKE_YOUNG_PAIR
																											(BgL_valz00_4647, BNIL);
																										BgL_arg1865z00_4660 =
																											MAKE_YOUNG_PAIR
																											(BgL_arg1866z00_4661,
																											BgL_arg1867z00_4662);
																									}
																									BgL_arg1864z00_4659 =
																										MAKE_YOUNG_PAIR
																										(BGl_symbol2530z00zz__evobjectz00,
																										BgL_arg1865z00_4660);
																								}
																								BgL_arg1863z00_4658 =
																									BGL_PROCEDURE_CALL2
																									(BgL_oldez00_4417,
																									BgL_arg1864z00_4659,
																									BgL_oldez00_4417);
																							}
																							return
																								BGl_localiza7eza7zz__evobjectz00
																								(BgL_xz00_4421,
																								BgL_arg1863z00_4658);
																						}
																				}
																			}
																		}
																	else
																		{	/* Eval/evobject.scm 607 */
																			return
																				BGL_PROCEDURE_CALL2(BgL_oldez00_4417,
																				BgL_xz00_4421, BgL_ez00_4422);
																		}
																}
															else
																{	/* Eval/evobject.scm 607 */
																	return
																		BGL_PROCEDURE_CALL2(BgL_oldez00_4417,
																		BgL_xz00_4421, BgL_ez00_4422);
																}
														}
													else
														{	/* Eval/evobject.scm 607 */
															return
																BGL_PROCEDURE_CALL2(BgL_oldez00_4417,
																BgL_xz00_4421, BgL_ez00_4422);
														}
												}
											else
												{	/* Eval/evobject.scm 607 */
													return
														BGL_PROCEDURE_CALL2(BgL_oldez00_4417, BgL_xz00_4421,
														BgL_ez00_4422);
												}
										}
									else
										{	/* Eval/evobject.scm 607 */
											return
												BGL_PROCEDURE_CALL2(BgL_oldez00_4417, BgL_xz00_4421,
												BgL_ez00_4422);
										}
								}
							else
								{	/* Eval/evobject.scm 607 */
									return
										BGL_PROCEDURE_CALL2(BgL_oldez00_4417, BgL_xz00_4421,
										BgL_ez00_4422);
								}
						}
				}
			}
		}

	}



/* eval-parse-class-slot */
	obj_t BGl_evalzd2parsezd2classzd2slotzd2zz__evobjectz00(obj_t BgL_locz00_108,
		obj_t BgL_fz00_109)
	{
		{	/* Eval/evobject.scm 628 */
			if (SYMBOLP(BgL_fz00_109))
				{	/* Eval/evobject.scm 631 */
					obj_t BgL_idz00_2074;

					BgL_idz00_2074 =
						BGl_decomposezd2identzd2zz__evobjectz00(BgL_fz00_109);
					{	/* Eval/evobject.scm 632 */
						obj_t BgL_typez00_2075;

						{	/* Eval/evobject.scm 633 */
							obj_t BgL_tmpz00_3719;

							{	/* Eval/evobject.scm 633 */
								int BgL_tmpz00_6086;

								BgL_tmpz00_6086 = (int) (1L);
								BgL_tmpz00_3719 = BGL_MVALUES_VAL(BgL_tmpz00_6086);
							}
							{	/* Eval/evobject.scm 633 */
								int BgL_tmpz00_6089;

								BgL_tmpz00_6089 = (int) (1L);
								BGL_MVALUES_VAL_SET(BgL_tmpz00_6089, BUNSPEC);
							}
							BgL_typez00_2075 = BgL_tmpz00_3719;
						}
						{	/* Eval/evobject.scm 633 */
							obj_t BgL_arg1885z00_2076;

							{	/* Eval/evobject.scm 633 */
								obj_t BgL_arg1887z00_2078;

								if (CBOOL(BgL_typez00_2075))
									{	/* Eval/evobject.scm 633 */
										obj_t BgL__ortest_1045z00_2079;

										BgL__ortest_1045z00_2079 =
											BGl_classzd2existszd2zz__objectz00(BgL_typez00_2075);
										if (CBOOL(BgL__ortest_1045z00_2079))
											{	/* Eval/evobject.scm 633 */
												BgL_arg1887z00_2078 = BgL__ortest_1045z00_2079;
											}
										else
											{	/* Eval/evobject.scm 633 */
												BgL_arg1887z00_2078 = BgL_typez00_2075;
											}
									}
								else
									{	/* Eval/evobject.scm 633 */
										BgL_arg1887z00_2078 = BGl_symbol2532z00zz__evobjectz00;
									}
								{	/* Eval/evobject.scm 80 */
									obj_t BgL_newz00_3720;

									BgL_newz00_3720 =
										create_struct(BGl_symbol2534z00zz__evobjectz00, (int) (8L));
									{	/* Eval/evobject.scm 80 */
										int BgL_tmpz00_6099;

										BgL_tmpz00_6099 = (int) (7L);
										STRUCT_SET(BgL_newz00_3720, BgL_tmpz00_6099, BFALSE);
									}
									{	/* Eval/evobject.scm 80 */
										int BgL_tmpz00_6102;

										BgL_tmpz00_6102 = (int) (6L);
										STRUCT_SET(BgL_newz00_3720, BgL_tmpz00_6102, BFALSE);
									}
									{	/* Eval/evobject.scm 80 */
										int BgL_tmpz00_6105;

										BgL_tmpz00_6105 = (int) (5L);
										STRUCT_SET(BgL_newz00_3720, BgL_tmpz00_6105, BFALSE);
									}
									{	/* Eval/evobject.scm 80 */
										obj_t BgL_auxz00_6110;
										int BgL_tmpz00_6108;

										BgL_auxz00_6110 = BINT(0L);
										BgL_tmpz00_6108 = (int) (4L);
										STRUCT_SET(BgL_newz00_3720, BgL_tmpz00_6108,
											BgL_auxz00_6110);
									}
									{	/* Eval/evobject.scm 80 */
										int BgL_tmpz00_6113;

										BgL_tmpz00_6113 = (int) (3L);
										STRUCT_SET(BgL_newz00_3720, BgL_tmpz00_6113, BFALSE);
									}
									{	/* Eval/evobject.scm 80 */
										int BgL_tmpz00_6116;

										BgL_tmpz00_6116 = (int) (2L);
										STRUCT_SET(BgL_newz00_3720, BgL_tmpz00_6116, BFALSE);
									}
									{	/* Eval/evobject.scm 80 */
										int BgL_tmpz00_6119;

										BgL_tmpz00_6119 = (int) (1L);
										STRUCT_SET(BgL_newz00_3720, BgL_tmpz00_6119,
											BgL_arg1887z00_2078);
									}
									{	/* Eval/evobject.scm 80 */
										int BgL_tmpz00_6122;

										BgL_tmpz00_6122 = (int) (0L);
										STRUCT_SET(BgL_newz00_3720, BgL_tmpz00_6122,
											BgL_idz00_2074);
									}
									BgL_arg1885z00_2076 = BgL_newz00_3720;
							}}
							{	/* Eval/evobject.scm 633 */
								obj_t BgL_list1886z00_2077;

								BgL_list1886z00_2077 =
									MAKE_YOUNG_PAIR(BgL_arg1885z00_2076, BNIL);
								return BgL_list1886z00_2077;
							}
						}
					}
				}
			else
				{	/* Eval/evobject.scm 635 */
					bool_t BgL_test2782z00_6126;

					if (BGl_listzf3zf3zz__r4_pairs_and_lists_6_3z00(BgL_fz00_109))
						{	/* Eval/evobject.scm 635 */
							obj_t BgL_tmpz00_6129;

							BgL_tmpz00_6129 = CAR(((obj_t) BgL_fz00_109));
							BgL_test2782z00_6126 = SYMBOLP(BgL_tmpz00_6129);
						}
					else
						{	/* Eval/evobject.scm 635 */
							BgL_test2782z00_6126 = ((bool_t) 0);
						}
					if (BgL_test2782z00_6126)
						{	/* Eval/evobject.scm 639 */
							obj_t BgL_idz00_2083;
							obj_t BgL_attrsz00_2084;

							BgL_idz00_2083 = CAR(((obj_t) BgL_fz00_109));
							BgL_attrsz00_2084 = CDR(((obj_t) BgL_fz00_109));
							{	/* Eval/evobject.scm 641 */
								obj_t BgL_idz00_2085;

								BgL_idz00_2085 =
									BGl_decomposezd2identzd2zz__evobjectz00(BgL_idz00_2083);
								{	/* Eval/evobject.scm 642 */
									obj_t BgL_typez00_2086;

									{	/* Eval/evobject.scm 643 */
										obj_t BgL_tmpz00_3733;

										{	/* Eval/evobject.scm 643 */
											int BgL_tmpz00_6138;

											BgL_tmpz00_6138 = (int) (1L);
											BgL_tmpz00_3733 = BGL_MVALUES_VAL(BgL_tmpz00_6138);
										}
										{	/* Eval/evobject.scm 643 */
											int BgL_tmpz00_6141;

											BgL_tmpz00_6141 = (int) (1L);
											BGL_MVALUES_VAL_SET(BgL_tmpz00_6141, BUNSPEC);
										}
										BgL_typez00_2086 = BgL_tmpz00_3733;
									}
									{	/* Eval/evobject.scm 643 */
										obj_t BgL_defz00_2087;
										obj_t BgL_getz00_2088;
										obj_t BgL_setz00_2089;
										obj_t BgL_infoz00_2090;
										bool_t BgL_ronlyz00_2091;

										BgL_defz00_2087 = BFALSE;
										BgL_getz00_2088 = BFALSE;
										BgL_setz00_2089 = BFALSE;
										BgL_infoz00_2090 = BFALSE;
										BgL_ronlyz00_2091 = ((bool_t) 0);
										{
											obj_t BgL_l1136z00_2093;

											BgL_l1136z00_2093 = BgL_attrsz00_2084;
										BgL_zc3z04anonymousza31891ze3z87_2094:
											if (PAIRP(BgL_l1136z00_2093))
												{	/* Eval/evobject.scm 648 */
													{	/* Eval/evobject.scm 650 */
														obj_t BgL_attrz00_2096;

														BgL_attrz00_2096 = CAR(BgL_l1136z00_2093);
														if (
															(BgL_attrz00_2096 ==
																BGl_symbol2536z00zz__evobjectz00))
															{	/* Eval/evobject.scm 650 */
																BgL_ronlyz00_2091 = ((bool_t) 1);
															}
														else
															{
																obj_t BgL_exprz00_2101;
																obj_t BgL_exprz00_2099;

																if (PAIRP(BgL_attrz00_2096))
																	{	/* Eval/evobject.scm 653 */
																		obj_t BgL_cdrzd2216zd2_2108;

																		BgL_cdrzd2216zd2_2108 =
																			CDR(((obj_t) BgL_attrz00_2096));
																		if (
																			(CAR(
																					((obj_t) BgL_attrz00_2096)) ==
																				BGl_symbol2540z00zz__evobjectz00))
																			{	/* Eval/evobject.scm 653 */
																				if (PAIRP(BgL_cdrzd2216zd2_2108))
																					{	/* Eval/evobject.scm 653 */
																						if (NULLP(CDR
																								(BgL_cdrzd2216zd2_2108)))
																							{	/* Eval/evobject.scm 653 */
																								obj_t BgL_arg1899z00_2114;

																								BgL_arg1899z00_2114 =
																									CAR(BgL_cdrzd2216zd2_2108);
																								BgL_infoz00_2090 =
																									BgL_arg1899z00_2114;
																							}
																						else
																							{	/* Eval/evobject.scm 653 */
																							BgL_tagzd2210zd2_2105:
																								{	/* Eval/evobject.scm 673 */
																									obj_t BgL_arg1948z00_2164;

																									{	/* Eval/evobject.scm 673 */
																										obj_t
																											BgL__ortest_1047z00_2165;
																										BgL__ortest_1047z00_2165 =
																											BGl_getzd2sourcezd2locationz00zz__readerz00
																											(BgL_fz00_109);
																										if (CBOOL
																											(BgL__ortest_1047z00_2165))
																											{	/* Eval/evobject.scm 673 */
																												BgL_arg1948z00_2164 =
																													BgL__ortest_1047z00_2165;
																											}
																										else
																											{	/* Eval/evobject.scm 673 */
																												BgL_arg1948z00_2164 =
																													BgL_locz00_108;
																											}
																									}
																									BGl_evcompilezd2errorzd2zz__evcompilez00
																										(BgL_arg1948z00_2164,
																										BGl_string2538z00zz__evobjectz00,
																										BGl_string2539z00zz__evobjectz00,
																										BgL_fz00_109);
																								}
																							}
																					}
																				else
																					{	/* Eval/evobject.scm 653 */
																						goto BgL_tagzd2210zd2_2105;
																					}
																			}
																		else
																			{	/* Eval/evobject.scm 653 */
																				if (
																					(CAR(
																							((obj_t) BgL_attrz00_2096)) ==
																						BGl_symbol2542z00zz__evobjectz00))
																					{	/* Eval/evobject.scm 653 */
																						if (PAIRP(BgL_cdrzd2216zd2_2108))
																							{	/* Eval/evobject.scm 653 */
																								if (NULLP(CDR
																										(BgL_cdrzd2216zd2_2108)))
																									{	/* Eval/evobject.scm 653 */
																										BgL_exprz00_2099 =
																											CAR
																											(BgL_cdrzd2216zd2_2108);
																										if (SYMBOLP
																											(BgL_exprz00_2099))
																											{	/* Eval/evobject.scm 658 */
																												obj_t BgL_oz00_2145;

																												{	/* Eval/evobject.scm 658 */

																													{	/* Eval/evobject.scm 658 */

																														BgL_oz00_2145 =
																															BGl_gensymz00zz__r4_symbols_6_4z00
																															(BFALSE);
																													}
																												}
																												{	/* Eval/evobject.scm 659 */
																													obj_t
																														BgL_arg1935z00_2146;
																													{	/* Eval/evobject.scm 659 */
																														obj_t
																															BgL_arg1936z00_2147;
																														obj_t
																															BgL_arg1937z00_2148;
																														BgL_arg1936z00_2147
																															=
																															MAKE_YOUNG_PAIR
																															(BgL_oz00_2145,
																															BNIL);
																														{	/* Eval/evobject.scm 660 */
																															obj_t
																																BgL_arg1938z00_2149;
																															{	/* Eval/evobject.scm 660 */
																																obj_t
																																	BgL_arg1939z00_2150;
																																BgL_arg1939z00_2150
																																	=
																																	MAKE_YOUNG_PAIR
																																	(BgL_oz00_2145,
																																	BNIL);
																																BgL_arg1938z00_2149
																																	=
																																	MAKE_YOUNG_PAIR
																																	(BgL_exprz00_2099,
																																	BgL_arg1939z00_2150);
																															}
																															BgL_arg1937z00_2148
																																=
																																MAKE_YOUNG_PAIR
																																(BgL_arg1938z00_2149,
																																BNIL);
																														}
																														BgL_arg1935z00_2146
																															=
																															MAKE_YOUNG_PAIR
																															(BgL_arg1936z00_2147,
																															BgL_arg1937z00_2148);
																													}
																													BgL_getz00_2088 =
																														MAKE_YOUNG_PAIR
																														(BGl_symbol2469z00zz__evobjectz00,
																														BgL_arg1935z00_2146);
																												}
																											}
																										else
																											{	/* Eval/evobject.scm 657 */
																												BgL_getz00_2088 =
																													BgL_exprz00_2099;
																											}
																									}
																								else
																									{	/* Eval/evobject.scm 653 */
																										goto BgL_tagzd2210zd2_2105;
																									}
																							}
																						else
																							{	/* Eval/evobject.scm 653 */
																								goto BgL_tagzd2210zd2_2105;
																							}
																					}
																				else
																					{	/* Eval/evobject.scm 653 */
																						obj_t BgL_cdrzd2252zd2_2124;

																						BgL_cdrzd2252zd2_2124 =
																							CDR(((obj_t) BgL_attrz00_2096));
																						if (
																							(CAR(
																									((obj_t) BgL_attrz00_2096)) ==
																								BGl_symbol2544z00zz__evobjectz00))
																							{	/* Eval/evobject.scm 653 */
																								if (PAIRP
																									(BgL_cdrzd2252zd2_2124))
																									{	/* Eval/evobject.scm 653 */
																										if (NULLP(CDR
																												(BgL_cdrzd2252zd2_2124)))
																											{	/* Eval/evobject.scm 653 */
																												BgL_exprz00_2101 =
																													CAR
																													(BgL_cdrzd2252zd2_2124);
																												if (SYMBOLP
																													(BgL_exprz00_2101))
																													{	/* Eval/evobject.scm 664 */
																														obj_t BgL_oz00_2153;
																														obj_t BgL_vz00_2154;

																														{	/* Eval/evobject.scm 664 */

																															{	/* Eval/evobject.scm 664 */

																																BgL_oz00_2153 =
																																	BGl_gensymz00zz__r4_symbols_6_4z00
																																	(BFALSE);
																															}
																														}
																														{	/* Eval/evobject.scm 665 */

																															{	/* Eval/evobject.scm 665 */

																																BgL_vz00_2154 =
																																	BGl_gensymz00zz__r4_symbols_6_4z00
																																	(BFALSE);
																															}
																														}
																														{	/* Eval/evobject.scm 666 */
																															obj_t
																																BgL_arg1941z00_2155;
																															{	/* Eval/evobject.scm 666 */
																																obj_t
																																	BgL_arg1942z00_2156;
																																obj_t
																																	BgL_arg1943z00_2157;
																																{	/* Eval/evobject.scm 666 */
																																	obj_t
																																		BgL_arg1944z00_2158;
																																	BgL_arg1944z00_2158
																																		=
																																		MAKE_YOUNG_PAIR
																																		(BgL_vz00_2154,
																																		BNIL);
																																	BgL_arg1942z00_2156
																																		=
																																		MAKE_YOUNG_PAIR
																																		(BgL_oz00_2153,
																																		BgL_arg1944z00_2158);
																																}
																																{	/* Eval/evobject.scm 667 */
																																	obj_t
																																		BgL_arg1945z00_2159;
																																	{	/* Eval/evobject.scm 667 */
																																		obj_t
																																			BgL_arg1946z00_2160;
																																		{	/* Eval/evobject.scm 667 */
																																			obj_t
																																				BgL_arg1947z00_2161;
																																			BgL_arg1947z00_2161
																																				=
																																				MAKE_YOUNG_PAIR
																																				(BgL_vz00_2154,
																																				BNIL);
																																			BgL_arg1946z00_2160
																																				=
																																				MAKE_YOUNG_PAIR
																																				(BgL_oz00_2153,
																																				BgL_arg1947z00_2161);
																																		}
																																		BgL_arg1945z00_2159
																																			=
																																			MAKE_YOUNG_PAIR
																																			(BgL_exprz00_2101,
																																			BgL_arg1946z00_2160);
																																	}
																																	BgL_arg1943z00_2157
																																		=
																																		MAKE_YOUNG_PAIR
																																		(BgL_arg1945z00_2159,
																																		BNIL);
																																}
																																BgL_arg1941z00_2155
																																	=
																																	MAKE_YOUNG_PAIR
																																	(BgL_arg1942z00_2156,
																																	BgL_arg1943z00_2157);
																															}
																															BgL_setz00_2089 =
																																MAKE_YOUNG_PAIR
																																(BGl_symbol2469z00zz__evobjectz00,
																																BgL_arg1941z00_2155);
																														}
																													}
																												else
																													{	/* Eval/evobject.scm 663 */
																														BgL_setz00_2089 =
																															BgL_exprz00_2101;
																													}
																											}
																										else
																											{	/* Eval/evobject.scm 653 */
																												goto
																													BgL_tagzd2210zd2_2105;
																											}
																									}
																								else
																									{	/* Eval/evobject.scm 653 */
																										goto BgL_tagzd2210zd2_2105;
																									}
																							}
																						else
																							{	/* Eval/evobject.scm 653 */
																								if (
																									(CAR(
																											((obj_t)
																												BgL_attrz00_2096)) ==
																										BGl_symbol2546z00zz__evobjectz00))
																									{	/* Eval/evobject.scm 653 */
																										if (PAIRP
																											(BgL_cdrzd2252zd2_2124))
																											{	/* Eval/evobject.scm 653 */
																												if (NULLP(CDR
																														(BgL_cdrzd2252zd2_2124)))
																													{	/* Eval/evobject.scm 653 */
																														obj_t
																															BgL_arg1926z00_2138;
																														BgL_arg1926z00_2138
																															=
																															CAR
																															(BgL_cdrzd2252zd2_2124);
																														BgL_defz00_2087 =
																															BgL_arg1926z00_2138;
																													}
																												else
																													{	/* Eval/evobject.scm 653 */
																														goto
																															BgL_tagzd2210zd2_2105;
																													}
																											}
																										else
																											{	/* Eval/evobject.scm 653 */
																												goto
																													BgL_tagzd2210zd2_2105;
																											}
																									}
																								else
																									{	/* Eval/evobject.scm 653 */
																										goto BgL_tagzd2210zd2_2105;
																									}
																							}
																					}
																			}
																	}
																else
																	{	/* Eval/evobject.scm 653 */
																		goto BgL_tagzd2210zd2_2105;
																	}
															}
													}
													{
														obj_t BgL_l1136z00_6220;

														BgL_l1136z00_6220 = CDR(BgL_l1136z00_2093);
														BgL_l1136z00_2093 = BgL_l1136z00_6220;
														goto BgL_zc3z04anonymousza31891ze3z87_2094;
													}
												}
											else
												{	/* Eval/evobject.scm 648 */
													((bool_t) 1);
												}
										}
										{	/* Eval/evobject.scm 677 */
											bool_t BgL_test2802z00_6222;

											if (CBOOL(BgL_getz00_2088))
												{	/* Eval/evobject.scm 677 */
													if (BgL_ronlyz00_2091)
														{	/* Eval/evobject.scm 677 */
															BgL_test2802z00_6222 = ((bool_t) 0);
														}
													else
														{	/* Eval/evobject.scm 677 */
															if (CBOOL(BgL_setz00_2089))
																{	/* Eval/evobject.scm 677 */
																	BgL_test2802z00_6222 = ((bool_t) 0);
																}
															else
																{	/* Eval/evobject.scm 677 */
																	BgL_test2802z00_6222 = ((bool_t) 1);
																}
														}
												}
											else
												{	/* Eval/evobject.scm 677 */
													BgL_test2802z00_6222 = ((bool_t) 0);
												}
											if (BgL_test2802z00_6222)
												{	/* Eval/evobject.scm 679 */
													obj_t BgL_arg1953z00_2169;

													{	/* Eval/evobject.scm 679 */
														obj_t BgL__ortest_1048z00_2170;

														BgL__ortest_1048z00_2170 =
															BGl_getzd2sourcezd2locationz00zz__readerz00
															(BgL_fz00_109);
														if (CBOOL(BgL__ortest_1048z00_2170))
															{	/* Eval/evobject.scm 679 */
																BgL_arg1953z00_2169 = BgL__ortest_1048z00_2170;
															}
														else
															{	/* Eval/evobject.scm 679 */
																BgL_arg1953z00_2169 = BgL_locz00_108;
															}
													}
													return
														BGl_evcompilezd2errorzd2zz__evcompilez00
														(BgL_arg1953z00_2169,
														BGl_string2538z00zz__evobjectz00,
														BGl_string2548z00zz__evobjectz00, BgL_fz00_109);
												}
											else
												{	/* Eval/evobject.scm 681 */
													bool_t BgL_test2807z00_6232;

													if (CBOOL(BgL_setz00_2089))
														{	/* Eval/evobject.scm 681 */
															if (CBOOL(BgL_getz00_2088))
																{	/* Eval/evobject.scm 681 */
																	BgL_test2807z00_6232 = ((bool_t) 0);
																}
															else
																{	/* Eval/evobject.scm 681 */
																	BgL_test2807z00_6232 = ((bool_t) 1);
																}
														}
													else
														{	/* Eval/evobject.scm 681 */
															BgL_test2807z00_6232 = ((bool_t) 0);
														}
													if (BgL_test2807z00_6232)
														{	/* Eval/evobject.scm 683 */
															obj_t BgL_arg1955z00_2172;

															{	/* Eval/evobject.scm 683 */
																obj_t BgL__ortest_1049z00_2173;

																BgL__ortest_1049z00_2173 =
																	BGl_getzd2sourcezd2locationz00zz__readerz00
																	(BgL_fz00_109);
																if (CBOOL(BgL__ortest_1049z00_2173))
																	{	/* Eval/evobject.scm 683 */
																		BgL_arg1955z00_2172 =
																			BgL__ortest_1049z00_2173;
																	}
																else
																	{	/* Eval/evobject.scm 683 */
																		BgL_arg1955z00_2172 = BgL_locz00_108;
																	}
															}
															return
																BGl_evcompilezd2errorzd2zz__evcompilez00
																(BgL_arg1955z00_2172,
																BGl_string2538z00zz__evobjectz00,
																BGl_string2549z00zz__evobjectz00, BgL_fz00_109);
														}
													else
														{	/* Eval/evobject.scm 686 */
															obj_t BgL_sz00_2174;

															{	/* Eval/evobject.scm 687 */
																obj_t BgL_arg1957z00_2176;

																if (CBOOL(BgL_typez00_2086))
																	{	/* Eval/evobject.scm 687 */
																		obj_t BgL__ortest_1050z00_2177;

																		BgL__ortest_1050z00_2177 =
																			BGl_classzd2existszd2zz__objectz00
																			(BgL_typez00_2086);
																		if (CBOOL(BgL__ortest_1050z00_2177))
																			{	/* Eval/evobject.scm 687 */
																				BgL_arg1957z00_2176 =
																					BgL__ortest_1050z00_2177;
																			}
																		else
																			{	/* Eval/evobject.scm 687 */
																				BgL_arg1957z00_2176 = BgL_typez00_2086;
																			}
																	}
																else
																	{	/* Eval/evobject.scm 687 */
																		BgL_arg1957z00_2176 =
																			BGl_symbol2532z00zz__evobjectz00;
																	}
																{	/* Eval/evobject.scm 686 */
																	bool_t BgL_readzd2onlyzf3z21_3752;
																	obj_t BgL_defaultzd2valuezd2_3753;
																	obj_t BgL_getterz00_3754;
																	obj_t BgL_setterz00_3755;
																	obj_t BgL_userzd2infozd2_3756;

																	BgL_readzd2onlyzf3z21_3752 =
																		BgL_ronlyz00_2091;
																	BgL_defaultzd2valuezd2_3753 = BgL_defz00_2087;
																	BgL_getterz00_3754 = BgL_getz00_2088;
																	BgL_setterz00_3755 = BgL_setz00_2089;
																	BgL_userzd2infozd2_3756 = BgL_infoz00_2090;
																	{	/* Eval/evobject.scm 80 */
																		obj_t BgL_newz00_3757;

																		BgL_newz00_3757 =
																			create_struct
																			(BGl_symbol2534z00zz__evobjectz00,
																			(int) (8L));
																		{	/* Eval/evobject.scm 80 */
																			int BgL_tmpz00_6248;

																			BgL_tmpz00_6248 = (int) (7L);
																			STRUCT_SET(BgL_newz00_3757,
																				BgL_tmpz00_6248,
																				BgL_userzd2infozd2_3756);
																		}
																		{	/* Eval/evobject.scm 80 */
																			int BgL_tmpz00_6251;

																			BgL_tmpz00_6251 = (int) (6L);
																			STRUCT_SET(BgL_newz00_3757,
																				BgL_tmpz00_6251, BgL_setterz00_3755);
																		}
																		{	/* Eval/evobject.scm 80 */
																			int BgL_tmpz00_6254;

																			BgL_tmpz00_6254 = (int) (5L);
																			STRUCT_SET(BgL_newz00_3757,
																				BgL_tmpz00_6254, BgL_getterz00_3754);
																		}
																		{	/* Eval/evobject.scm 80 */
																			obj_t BgL_auxz00_6259;
																			int BgL_tmpz00_6257;

																			BgL_auxz00_6259 = BINT(0L);
																			BgL_tmpz00_6257 = (int) (4L);
																			STRUCT_SET(BgL_newz00_3757,
																				BgL_tmpz00_6257, BgL_auxz00_6259);
																		}
																		{	/* Eval/evobject.scm 80 */
																			int BgL_tmpz00_6262;

																			BgL_tmpz00_6262 = (int) (3L);
																			STRUCT_SET(BgL_newz00_3757,
																				BgL_tmpz00_6262,
																				BgL_defaultzd2valuezd2_3753);
																		}
																		{	/* Eval/evobject.scm 80 */
																			obj_t BgL_auxz00_6267;
																			int BgL_tmpz00_6265;

																			BgL_auxz00_6267 =
																				BBOOL(BgL_readzd2onlyzf3z21_3752);
																			BgL_tmpz00_6265 = (int) (2L);
																			STRUCT_SET(BgL_newz00_3757,
																				BgL_tmpz00_6265, BgL_auxz00_6267);
																		}
																		{	/* Eval/evobject.scm 80 */
																			int BgL_tmpz00_6270;

																			BgL_tmpz00_6270 = (int) (1L);
																			STRUCT_SET(BgL_newz00_3757,
																				BgL_tmpz00_6270, BgL_arg1957z00_2176);
																		}
																		{	/* Eval/evobject.scm 80 */
																			int BgL_tmpz00_6273;

																			BgL_tmpz00_6273 = (int) (0L);
																			STRUCT_SET(BgL_newz00_3757,
																				BgL_tmpz00_6273, BgL_idz00_2085);
																		}
																		BgL_sz00_2174 = BgL_newz00_3757;
															}}}
															{	/* Eval/evobject.scm 689 */
																obj_t BgL_list1956z00_2175;

																BgL_list1956z00_2175 =
																	MAKE_YOUNG_PAIR(BgL_sz00_2174, BNIL);
																return BgL_list1956z00_2175;
															}
														}
												}
										}
									}
								}
							}
						}
					else
						{	/* Eval/evobject.scm 636 */
							obj_t BgL_arg1959z00_2178;

							{	/* Eval/evobject.scm 636 */
								obj_t BgL__ortest_1046z00_2179;

								BgL__ortest_1046z00_2179 =
									BGl_getzd2sourcezd2locationz00zz__readerz00(BgL_fz00_109);
								if (CBOOL(BgL__ortest_1046z00_2179))
									{	/* Eval/evobject.scm 636 */
										BgL_arg1959z00_2178 = BgL__ortest_1046z00_2179;
									}
								else
									{	/* Eval/evobject.scm 636 */
										BgL_arg1959z00_2178 = BgL_locz00_108;
									}
							}
							return
								BGl_evcompilezd2errorzd2zz__evcompilez00(BgL_arg1959z00_2178,
								BGl_string2538z00zz__evobjectz00,
								BGl_string2539z00zz__evobjectz00, BgL_fz00_109);
						}
				}
		}

	}



/* eval-parse-class */
	obj_t BGl_evalzd2parsezd2classz00zz__evobjectz00(obj_t BgL_locz00_110,
		obj_t BgL_clausesz00_111)
	{
		{	/* Eval/evobject.scm 697 */
			{	/* Eval/evobject.scm 698 */
				obj_t BgL_locz00_2182;

				{	/* Eval/evobject.scm 698 */
					obj_t BgL__ortest_1051z00_2278;

					BgL__ortest_1051z00_2278 =
						BGl_getzd2sourcezd2locationz00zz__readerz00(BgL_clausesz00_111);
					if (CBOOL(BgL__ortest_1051z00_2278))
						{	/* Eval/evobject.scm 698 */
							BgL_locz00_2182 = BgL__ortest_1051z00_2278;
						}
					else
						{	/* Eval/evobject.scm 698 */
							BgL_locz00_2182 = BgL_locz00_110;
						}
				}
				if (NULLP(BgL_clausesz00_111))
					{	/* Eval/evobject.scm 700 */
						{	/* Eval/evobject.scm 701 */
							int BgL_tmpz00_6286;

							BgL_tmpz00_6286 = (int) (2L);
							BGL_MVALUES_NUMBER_SET(BgL_tmpz00_6286);
						}
						{	/* Eval/evobject.scm 701 */
							int BgL_tmpz00_6289;

							BgL_tmpz00_6289 = (int) (1L);
							BGL_MVALUES_VAL_SET(BgL_tmpz00_6289, BNIL);
						}
						return BFALSE;
					}
				else
					{	/* Eval/evobject.scm 700 */
						if (BGl_listzf3zf3zz__r4_pairs_and_lists_6_3z00(BgL_clausesz00_111))
							{	/* Eval/evobject.scm 705 */
								bool_t BgL_test2817z00_6294;

								{	/* Eval/evobject.scm 705 */
									obj_t BgL_ezd2277zd2_2270;

									BgL_ezd2277zd2_2270 = CAR(BgL_clausesz00_111);
									if (PAIRP(BgL_ezd2277zd2_2270))
										{	/* Eval/evobject.scm 705 */
											bool_t BgL_test2819z00_6298;

											{	/* Eval/evobject.scm 705 */
												obj_t BgL_tmpz00_6299;

												BgL_tmpz00_6299 = CAR(BgL_ezd2277zd2_2270);
												BgL_test2819z00_6298 = SYMBOLP(BgL_tmpz00_6299);
											}
											if (BgL_test2819z00_6298)
												{	/* Eval/evobject.scm 705 */
													BgL_test2817z00_6294 =
														NULLP(CDR(BgL_ezd2277zd2_2270));
												}
											else
												{	/* Eval/evobject.scm 705 */
													BgL_test2817z00_6294 = ((bool_t) 0);
												}
										}
									else
										{	/* Eval/evobject.scm 705 */
											BgL_test2817z00_6294 = ((bool_t) 0);
										}
								}
								if (BgL_test2817z00_6294)
									{	/* Eval/evobject.scm 708 */
										obj_t BgL_val0_1143z00_2198;
										obj_t BgL_val1_1144z00_2199;

										{	/* Eval/evobject.scm 708 */
											obj_t BgL_arg1971z00_2200;

											{	/* Eval/evobject.scm 708 */
												obj_t BgL_arg1972z00_2201;
												obj_t BgL_arg1975z00_2202;

												BgL_arg1972z00_2201 =
													MAKE_YOUNG_PAIR(BGl_symbol2550z00zz__evobjectz00,
													BNIL);
												{	/* Eval/evobject.scm 708 */
													obj_t BgL_arg1977z00_2203;

													{	/* Eval/evobject.scm 708 */
														obj_t BgL_arg1978z00_2204;
														obj_t BgL_arg1979z00_2205;

														BgL_arg1978z00_2204 = CAR(CAR(BgL_clausesz00_111));
														BgL_arg1979z00_2205 =
															MAKE_YOUNG_PAIR(BGl_symbol2550z00zz__evobjectz00,
															BNIL);
														BgL_arg1977z00_2203 =
															MAKE_YOUNG_PAIR(BgL_arg1978z00_2204,
															BgL_arg1979z00_2205);
													}
													BgL_arg1975z00_2202 =
														MAKE_YOUNG_PAIR(BgL_arg1977z00_2203, BNIL);
												}
												BgL_arg1971z00_2200 =
													MAKE_YOUNG_PAIR(BgL_arg1972z00_2201,
													BgL_arg1975z00_2202);
											}
											BgL_val0_1143z00_2198 =
												MAKE_YOUNG_PAIR(BGl_symbol2469z00zz__evobjectz00,
												BgL_arg1971z00_2200);
										}
										BgL_val1_1144z00_2199 =
											BGl_zc3z04anonymousza31980ze3ze70z60zz__evobjectz00
											(BgL_locz00_2182, CDR(BgL_clausesz00_111));
										{	/* Eval/evobject.scm 708 */
											int BgL_tmpz00_6314;

											BgL_tmpz00_6314 = (int) (2L);
											BGL_MVALUES_NUMBER_SET(BgL_tmpz00_6314);
										}
										{	/* Eval/evobject.scm 708 */
											int BgL_tmpz00_6317;

											BgL_tmpz00_6317 = (int) (1L);
											BGL_MVALUES_VAL_SET(BgL_tmpz00_6317,
												BgL_val1_1144z00_2199);
										}
										return BgL_val0_1143z00_2198;
									}
								else
									{	/* Eval/evobject.scm 712 */
										bool_t BgL_test2820z00_6320;

										{	/* Eval/evobject.scm 712 */
											obj_t BgL_ezd2282zd2_2260;

											BgL_ezd2282zd2_2260 = CAR(BgL_clausesz00_111);
											if (PAIRP(BgL_ezd2282zd2_2260))
												{	/* Eval/evobject.scm 712 */
													obj_t BgL_carzd2283zd2_2262;

													BgL_carzd2283zd2_2262 = CAR(BgL_ezd2282zd2_2260);
													if (PAIRP(BgL_carzd2283zd2_2262))
														{	/* Eval/evobject.scm 712 */
															if (
																(CAR(BgL_carzd2283zd2_2262) ==
																	BGl_symbol2469z00zz__evobjectz00))
																{	/* Eval/evobject.scm 712 */
																	BgL_test2820z00_6320 =
																		NULLP(CDR(BgL_ezd2282zd2_2260));
																}
															else
																{	/* Eval/evobject.scm 712 */
																	BgL_test2820z00_6320 = ((bool_t) 0);
																}
														}
													else
														{	/* Eval/evobject.scm 712 */
															BgL_test2820z00_6320 = ((bool_t) 0);
														}
												}
											else
												{	/* Eval/evobject.scm 712 */
													BgL_test2820z00_6320 = ((bool_t) 0);
												}
										}
										if (BgL_test2820z00_6320)
											{	/* Eval/evobject.scm 715 */
												obj_t BgL_val0_1148z00_2229;
												obj_t BgL_val1_1149z00_2230;

												{	/* Eval/evobject.scm 715 */
													obj_t BgL_arg1994z00_2231;

													{	/* Eval/evobject.scm 715 */
														obj_t BgL_arg1995z00_2232;
														obj_t BgL_arg1996z00_2233;

														BgL_arg1995z00_2232 =
															MAKE_YOUNG_PAIR(BGl_symbol2550z00zz__evobjectz00,
															BNIL);
														{	/* Eval/evobject.scm 715 */
															obj_t BgL_arg1998z00_2234;

															{	/* Eval/evobject.scm 715 */
																obj_t BgL_arg1999z00_2235;
																obj_t BgL_arg2000z00_2236;

																BgL_arg1999z00_2235 =
																	CAR(CAR(BgL_clausesz00_111));
																BgL_arg2000z00_2236 =
																	MAKE_YOUNG_PAIR
																	(BGl_symbol2550z00zz__evobjectz00, BNIL);
																BgL_arg1998z00_2234 =
																	MAKE_YOUNG_PAIR(BgL_arg1999z00_2235,
																	BgL_arg2000z00_2236);
															}
															BgL_arg1996z00_2233 =
																MAKE_YOUNG_PAIR(BgL_arg1998z00_2234, BNIL);
														}
														BgL_arg1994z00_2231 =
															MAKE_YOUNG_PAIR(BgL_arg1995z00_2232,
															BgL_arg1996z00_2233);
													}
													BgL_val0_1148z00_2229 =
														MAKE_YOUNG_PAIR(BGl_symbol2469z00zz__evobjectz00,
														BgL_arg1994z00_2231);
												}
												BgL_val1_1149z00_2230 =
													BGl_zc3z04anonymousza32001ze3ze70z60zz__evobjectz00
													(BgL_locz00_2182, CDR(BgL_clausesz00_111));
												{	/* Eval/evobject.scm 715 */
													int BgL_tmpz00_6342;

													BgL_tmpz00_6342 = (int) (2L);
													BGL_MVALUES_NUMBER_SET(BgL_tmpz00_6342);
												}
												{	/* Eval/evobject.scm 715 */
													int BgL_tmpz00_6345;

													BgL_tmpz00_6345 = (int) (1L);
													BGL_MVALUES_VAL_SET(BgL_tmpz00_6345,
														BgL_val1_1149z00_2230);
												}
												return BgL_val0_1148z00_2229;
											}
										else
											{	/* Eval/evobject.scm 720 */
												obj_t BgL_val1_1153z00_2248;

												BgL_val1_1153z00_2248 =
													BGl_zc3z04anonymousza32006ze3ze70z60zz__evobjectz00
													(BgL_locz00_2182, BgL_clausesz00_111);
												{	/* Eval/evobject.scm 720 */
													int BgL_tmpz00_6349;

													BgL_tmpz00_6349 = (int) (2L);
													BGL_MVALUES_NUMBER_SET(BgL_tmpz00_6349);
												}
												{	/* Eval/evobject.scm 720 */
													int BgL_tmpz00_6352;

													BgL_tmpz00_6352 = (int) (1L);
													BGL_MVALUES_VAL_SET(BgL_tmpz00_6352,
														BgL_val1_1153z00_2248);
												}
												return BFALSE;
											}
									}
							}
						else
							{	/* Eval/evobject.scm 703 */
								obj_t BgL_arg2018z00_2276;

								{	/* Eval/evobject.scm 703 */
									obj_t BgL__ortest_1052z00_2277;

									BgL__ortest_1052z00_2277 =
										BGl_getzd2sourcezd2locationz00zz__readerz00
										(BgL_clausesz00_111);
									if (CBOOL(BgL__ortest_1052z00_2277))
										{	/* Eval/evobject.scm 703 */
											BgL_arg2018z00_2276 = BgL__ortest_1052z00_2277;
										}
									else
										{	/* Eval/evobject.scm 703 */
											BgL_arg2018z00_2276 = BgL_locz00_2182;
										}
								}
								return
									BGl_evcompilezd2errorzd2zz__evcompilez00(BgL_arg2018z00_2276,
									BGl_string2538z00zz__evobjectz00,
									BGl_string2552z00zz__evobjectz00, BgL_clausesz00_111);
							}
					}
			}
		}

	}



/* <@anonymous:2006>~0 */
	obj_t BGl_zc3z04anonymousza32006ze3ze70z60zz__evobjectz00(obj_t
		BgL_locz00_4433, obj_t BgL_l1151z00_2250)
	{
		{	/* Eval/evobject.scm 721 */
			if (NULLP(BgL_l1151z00_2250))
				{	/* Eval/evobject.scm 721 */
					return BNIL;
				}
			else
				{	/* Eval/evobject.scm 722 */
					obj_t BgL_arg2008z00_2253;
					obj_t BgL_arg2009z00_2254;

					{	/* Eval/evobject.scm 722 */
						obj_t BgL_fz00_2255;

						BgL_fz00_2255 = CAR(((obj_t) BgL_l1151z00_2250));
						BgL_arg2008z00_2253 =
							BGl_evalzd2parsezd2classzd2slotzd2zz__evobjectz00(BgL_locz00_4433,
							BgL_fz00_2255);
					}
					{	/* Eval/evobject.scm 721 */
						obj_t BgL_arg2011z00_2256;

						BgL_arg2011z00_2256 = CDR(((obj_t) BgL_l1151z00_2250));
						BgL_arg2009z00_2254 =
							BGl_zc3z04anonymousza32006ze3ze70z60zz__evobjectz00
							(BgL_locz00_4433, BgL_arg2011z00_2256);
					}
					return bgl_append2(BgL_arg2008z00_2253, BgL_arg2009z00_2254);
				}
		}

	}



/* <@anonymous:2001>~0 */
	obj_t BGl_zc3z04anonymousza32001ze3ze70z60zz__evobjectz00(obj_t
		BgL_locz00_4434, obj_t BgL_l1146z00_2239)
	{
		{	/* Eval/evobject.scm 718 */
			if (NULLP(BgL_l1146z00_2239))
				{	/* Eval/evobject.scm 718 */
					return BNIL;
				}
			else
				{	/* Eval/evobject.scm 717 */
					obj_t BgL_arg2003z00_2242;
					obj_t BgL_arg2004z00_2243;

					{	/* Eval/evobject.scm 717 */
						obj_t BgL_fz00_2244;

						BgL_fz00_2244 = CAR(((obj_t) BgL_l1146z00_2239));
						BgL_arg2003z00_2242 =
							BGl_evalzd2parsezd2classzd2slotzd2zz__evobjectz00(BgL_locz00_4434,
							BgL_fz00_2244);
					}
					{	/* Eval/evobject.scm 718 */
						obj_t BgL_arg2005z00_2245;

						BgL_arg2005z00_2245 = CDR(((obj_t) BgL_l1146z00_2239));
						BgL_arg2004z00_2243 =
							BGl_zc3z04anonymousza32001ze3ze70z60zz__evobjectz00
							(BgL_locz00_4434, BgL_arg2005z00_2245);
					}
					return bgl_append2(BgL_arg2003z00_2242, BgL_arg2004z00_2243);
				}
		}

	}



/* <@anonymous:1980>~0 */
	obj_t BGl_zc3z04anonymousza31980ze3ze70z60zz__evobjectz00(obj_t
		BgL_locz00_4435, obj_t BgL_l1141z00_2208)
	{
		{	/* Eval/evobject.scm 711 */
			if (NULLP(BgL_l1141z00_2208))
				{	/* Eval/evobject.scm 711 */
					return BNIL;
				}
			else
				{	/* Eval/evobject.scm 710 */
					obj_t BgL_arg1982z00_2211;
					obj_t BgL_arg1983z00_2212;

					{	/* Eval/evobject.scm 710 */
						obj_t BgL_fz00_2213;

						BgL_fz00_2213 = CAR(((obj_t) BgL_l1141z00_2208));
						BgL_arg1982z00_2211 =
							BGl_evalzd2parsezd2classzd2slotzd2zz__evobjectz00(BgL_locz00_4435,
							BgL_fz00_2213);
					}
					{	/* Eval/evobject.scm 711 */
						obj_t BgL_arg1984z00_2214;

						BgL_arg1984z00_2214 = CDR(((obj_t) BgL_l1141z00_2208));
						BgL_arg1983z00_2212 =
							BGl_zc3z04anonymousza31980ze3ze70z60zz__evobjectz00
							(BgL_locz00_4435, BgL_arg1984z00_2214);
					}
					return bgl_append2(BgL_arg1982z00_2211, BgL_arg1983z00_2212);
				}
		}

	}



/* eval-class */
	BGL_EXPORTED_DEF obj_t BGl_evalzd2classzd2zz__evobjectz00(obj_t BgL_idz00_112,
		bool_t BgL_abstractz00_113, obj_t BgL_clausesz00_114, obj_t BgL_srcz00_115,
		obj_t BgL_modz00_116)
	{
		{	/* Eval/evobject.scm 728 */
			{	/* Eval/evobject.scm 729 */
				obj_t BgL_cidz00_2279;

				BgL_cidz00_2279 =
					BGl_decomposezd2identzd2zz__evobjectz00(BgL_idz00_112);
				{	/* Eval/evobject.scm 730 */
					obj_t BgL_sidz00_2280;

					{	/* Eval/evobject.scm 731 */
						obj_t BgL_tmpz00_3790;

						{	/* Eval/evobject.scm 731 */
							int BgL_tmpz00_6387;

							BgL_tmpz00_6387 = (int) (1L);
							BgL_tmpz00_3790 = BGL_MVALUES_VAL(BgL_tmpz00_6387);
						}
						{	/* Eval/evobject.scm 731 */
							int BgL_tmpz00_6390;

							BgL_tmpz00_6390 = (int) (1L);
							BGL_MVALUES_VAL_SET(BgL_tmpz00_6390, BUNSPEC);
						}
						BgL_sidz00_2280 = BgL_tmpz00_3790;
					}
					{	/* Eval/evobject.scm 731 */
						obj_t BgL_locz00_2281;

						BgL_locz00_2281 =
							BGl_getzd2sourcezd2locationz00zz__readerz00(BgL_srcz00_115);
						{	/* Eval/evobject.scm 731 */
							obj_t BgL_sidz00_2282;

							if (CBOOL(BgL_sidz00_2280))
								{	/* Eval/evobject.scm 732 */
									BgL_sidz00_2282 = BgL_sidz00_2280;
								}
							else
								{	/* Eval/evobject.scm 732 */
									BgL_sidz00_2282 = BGl_symbol2553z00zz__evobjectz00;
								}
							{	/* Eval/evobject.scm 732 */
								obj_t BgL_superz00_2283;

								BgL_superz00_2283 =
									BGl_findzd2classzd2zz__objectz00(BgL_sidz00_2282);
								{	/* Eval/evobject.scm 733 */

									if (BGl_classzf3zf3zz__objectz00(BgL_superz00_2283))
										{	/* Eval/evobject.scm 736 */
											obj_t BgL_constructorz00_2285;

											BgL_constructorz00_2285 =
												BGl_evalzd2parsezd2classz00zz__evobjectz00
												(BgL_locz00_2281, BgL_clausesz00_114);
											{	/* Eval/evobject.scm 737 */
												obj_t BgL_slotsz00_2286;

												{	/* Eval/evobject.scm 739 */
													obj_t BgL_tmpz00_3791;

													{	/* Eval/evobject.scm 739 */
														int BgL_tmpz00_6400;

														BgL_tmpz00_6400 = (int) (1L);
														BgL_tmpz00_3791 = BGL_MVALUES_VAL(BgL_tmpz00_6400);
													}
													{	/* Eval/evobject.scm 739 */
														int BgL_tmpz00_6403;

														BgL_tmpz00_6403 = (int) (1L);
														BGL_MVALUES_VAL_SET(BgL_tmpz00_6403, BUNSPEC);
													}
													BgL_slotsz00_2286 = BgL_tmpz00_3791;
												}
												{	/* Eval/evobject.scm 739 */
													obj_t BgL_claza7za7z00_2287;

													BgL_claza7za7z00_2287 =
														BGl_evalzd2registerzd2classz00zz__evobjectz00
														(BgL_cidz00_2279, BgL_modz00_116, BgL_superz00_2283,
														BgL_abstractz00_113, BgL_slotsz00_2286,
														BGl_getzd2classzd2hashz00zz__evobjectz00
														(BgL_srcz00_115),
														BGl_evalz12z12zz__evalz00(BgL_constructorz00_2285,
															BgL_modz00_116));
													{	/* Eval/evobject.scm 739 */

														{	/* Eval/evobject.scm 744 */
															obj_t BgL_arg2020z00_2288;

															{	/* Eval/evobject.scm 744 */
																obj_t BgL_arg2021z00_2291;

																{	/* Eval/evobject.scm 744 */
																	obj_t BgL_arg2022z00_2292;

																	BgL_arg2022z00_2292 =
																		MAKE_YOUNG_PAIR(BgL_claza7za7z00_2287,
																		BNIL);
																	BgL_arg2021z00_2291 =
																		MAKE_YOUNG_PAIR(BgL_cidz00_2279,
																		BgL_arg2022z00_2292);
																}
																BgL_arg2020z00_2288 =
																	MAKE_YOUNG_PAIR
																	(BGl_symbol2555z00zz__evobjectz00,
																	BgL_arg2021z00_2291);
															}
															{	/* Eval/eval.scm 82 */
																obj_t BgL_envz00_2290;

																BgL_envz00_2290 =
																	BGl_defaultzd2environmentzd2zz__evalz00();
																{	/* Eval/eval.scm 82 */

																	BGl_evalz12z12zz__evalz00(BgL_arg2020z00_2288,
																		BgL_envz00_2290);
														}}}
														BGl_evalzd2expandzd2withzd2accesszd2zz__evobjectz00
															(BgL_claza7za7z00_2287);
														{	/* Eval/evobject.scm 749 */
															obj_t BgL_fieldsz00_2293;

															BgL_fieldsz00_2293 =
																BGl_classzd2fieldszd2zz__objectz00
																(BgL_claza7za7z00_2287);
															BGl_patchzd2fieldzd2defaultzd2valuesz12zc0zz__evobjectz00
																(BgL_slotsz00_2286, BgL_fieldsz00_2293,
																BgL_modz00_116);
															{	/* Eval/evobject.scm 753 */
																obj_t BgL_arg2023z00_2294;

																BgL_arg2023z00_2294 =
																	BGL_CLASS_VIRTUAL_FIELDS
																	(BgL_claza7za7z00_2287);
																BGl_patchzd2vfieldzd2accessorsz12z12zz__evobjectz00
																	(BgL_slotsz00_2286, BgL_fieldsz00_2293,
																	BgL_arg2023z00_2294, BgL_modz00_116);
														}}
														if (BgL_abstractz00_113)
															{	/* Eval/evobject.scm 755 */
																BFALSE;
															}
														else
															{	/* Eval/evobject.scm 755 */
																BGl_evalzd2expandzd2instantiatez00zz__evobjectz00
																	(BgL_claza7za7z00_2287);
																BGl_evalzd2expandzd2duplicatez00zz__evobjectz00
																	(BgL_claza7za7z00_2287);
															}
														{	/* Eval/evobject.scm 758 */
															obj_t BgL_list2024z00_2295;

															BgL_list2024z00_2295 =
																MAKE_YOUNG_PAIR(BgL_cidz00_2279, BNIL);
															return BgL_list2024z00_2295;
														}
													}
												}
											}
										}
									else
										{	/* Eval/evobject.scm 734 */
											return
												BGl_evcompilezd2errorzd2zz__evcompilez00
												(BgL_locz00_2281, BGl_string2538z00zz__evobjectz00,
												BGl_string2557z00zz__evobjectz00, BgL_sidz00_2282);
										}
								}
							}
						}
					}
				}
			}
		}

	}



/* &eval-class */
	obj_t BGl_z62evalzd2classzb0zz__evobjectz00(obj_t BgL_envz00_4423,
		obj_t BgL_idz00_4424, obj_t BgL_abstractz00_4425, obj_t BgL_clausesz00_4426,
		obj_t BgL_srcz00_4427, obj_t BgL_modz00_4428)
	{
		{	/* Eval/evobject.scm 728 */
			{	/* Eval/evobject.scm 729 */
				obj_t BgL_auxz00_6439;
				obj_t BgL_auxz00_6431;
				obj_t BgL_auxz00_6424;

				if (PAIRP(BgL_srcz00_4427))
					{	/* Eval/evobject.scm 729 */
						BgL_auxz00_6439 = BgL_srcz00_4427;
					}
				else
					{
						obj_t BgL_auxz00_6442;

						BgL_auxz00_6442 =
							BGl_typezd2errorzd2zz__errorz00(BGl_string2493z00zz__evobjectz00,
							BINT(26399L), BGl_string2558z00zz__evobjectz00,
							BGl_string2561z00zz__evobjectz00, BgL_srcz00_4427);
						FAILURE(BgL_auxz00_6442, BFALSE, BFALSE);
					}
				if (BGl_pairzd2orzd2nullzf3zf3zz__r4_pairs_and_lists_6_3z00
					(BgL_clausesz00_4426))
					{	/* Eval/evobject.scm 729 */
						BgL_auxz00_6431 = BgL_clausesz00_4426;
					}
				else
					{
						obj_t BgL_auxz00_6435;

						BgL_auxz00_6435 =
							BGl_typezd2errorzd2zz__errorz00(BGl_string2493z00zz__evobjectz00,
							BINT(26399L), BGl_string2558z00zz__evobjectz00,
							BGl_string2560z00zz__evobjectz00, BgL_clausesz00_4426);
						FAILURE(BgL_auxz00_6435, BFALSE, BFALSE);
					}
				if (SYMBOLP(BgL_idz00_4424))
					{	/* Eval/evobject.scm 729 */
						BgL_auxz00_6424 = BgL_idz00_4424;
					}
				else
					{
						obj_t BgL_auxz00_6427;

						BgL_auxz00_6427 =
							BGl_typezd2errorzd2zz__errorz00(BGl_string2493z00zz__evobjectz00,
							BINT(26399L), BGl_string2558z00zz__evobjectz00,
							BGl_string2559z00zz__evobjectz00, BgL_idz00_4424);
						FAILURE(BgL_auxz00_6427, BFALSE, BFALSE);
					}
				return
					BGl_evalzd2classzd2zz__evobjectz00(BgL_auxz00_6424,
					CBOOL(BgL_abstractz00_4425), BgL_auxz00_6431, BgL_auxz00_6439,
					BgL_modz00_4428);
			}
		}

	}



/* eval-co-instantiate-expander */
	BGL_EXPORTED_DEF obj_t
		BGl_evalzd2cozd2instantiatezd2expanderzd2zz__evobjectz00(obj_t BgL_xz00_117,
		obj_t BgL_ez00_118)
	{
		{	/* Eval/evobject.scm 763 */
			if (NULLP(BgL_xz00_117))
				{	/* Eval/evobject.scm 764 */
					return
						BGl_expandzd2errorzd2zz__evobjectz00
						(BGl_string2562z00zz__evobjectz00, BGl_string2563z00zz__evobjectz00,
						BgL_xz00_117);
				}
			else
				{	/* Eval/evobject.scm 764 */
					obj_t BgL_cdrzd2295zd2_2305;

					BgL_cdrzd2295zd2_2305 = CDR(((obj_t) BgL_xz00_117));
					if ((CAR(((obj_t) BgL_xz00_117)) == BGl_symbol2564z00zz__evobjectz00))
						{	/* Eval/evobject.scm 764 */
							if (PAIRP(BgL_cdrzd2295zd2_2305))
								{	/* Eval/evobject.scm 764 */
									return
										BGl_cozd2instantiatezd2ze3letze3zz__evobjectz00(CAR
										(BgL_cdrzd2295zd2_2305), CDR(BgL_cdrzd2295zd2_2305),
										BgL_xz00_117, BgL_ez00_118);
								}
							else
								{	/* Eval/evobject.scm 764 */
									return
										BGl_expandzd2errorzd2zz__evobjectz00
										(BGl_string2562z00zz__evobjectz00,
										BGl_string2563z00zz__evobjectz00, BgL_xz00_117);
								}
						}
					else
						{	/* Eval/evobject.scm 764 */
							return
								BGl_expandzd2errorzd2zz__evobjectz00
								(BGl_string2562z00zz__evobjectz00,
								BGl_string2563z00zz__evobjectz00, BgL_xz00_117);
						}
				}
		}

	}



/* &eval-co-instantiate-expander */
	obj_t BGl_z62evalzd2cozd2instantiatezd2expanderzb0zz__evobjectz00(obj_t
		BgL_envz00_4429, obj_t BgL_xz00_4430, obj_t BgL_ez00_4431)
	{
		{	/* Eval/evobject.scm 763 */
			{	/* Eval/evobject.scm 764 */
				obj_t BgL_auxz00_6470;
				obj_t BgL_auxz00_6463;

				if (PROCEDUREP(BgL_ez00_4431))
					{	/* Eval/evobject.scm 764 */
						BgL_auxz00_6470 = BgL_ez00_4431;
					}
				else
					{
						obj_t BgL_auxz00_6473;

						BgL_auxz00_6473 =
							BGl_typezd2errorzd2zz__errorz00(BGl_string2493z00zz__evobjectz00,
							BINT(27757L), BGl_string2565z00zz__evobjectz00,
							BGl_string2566z00zz__evobjectz00, BgL_ez00_4431);
						FAILURE(BgL_auxz00_6473, BFALSE, BFALSE);
					}
				if (BGl_pairzd2orzd2nullzf3zf3zz__r4_pairs_and_lists_6_3z00
					(BgL_xz00_4430))
					{	/* Eval/evobject.scm 764 */
						BgL_auxz00_6463 = BgL_xz00_4430;
					}
				else
					{
						obj_t BgL_auxz00_6466;

						BgL_auxz00_6466 =
							BGl_typezd2errorzd2zz__errorz00(BGl_string2493z00zz__evobjectz00,
							BINT(27757L), BGl_string2565z00zz__evobjectz00,
							BGl_string2560z00zz__evobjectz00, BgL_xz00_4430);
						FAILURE(BgL_auxz00_6466, BFALSE, BFALSE);
					}
				return
					BGl_evalzd2cozd2instantiatezd2expanderzd2zz__evobjectz00
					(BgL_auxz00_6463, BgL_auxz00_6470);
			}
		}

	}



/* co-instantiate->let */
	obj_t BGl_cozd2instantiatezd2ze3letze3zz__evobjectz00(obj_t
		BgL_bindingsz00_121, obj_t BgL_bodyz00_122, obj_t BgL_xz00_123,
		obj_t BgL_ez00_124)
	{
		{	/* Eval/evobject.scm 779 */
			{
				obj_t BgL_exprz00_2409;
				obj_t BgL_bdgz00_2410;

				{	/* Eval/evobject.scm 805 */
					obj_t BgL_varsz00_2314;

					if (NULLP(BgL_bindingsz00_121))
						{	/* Eval/evobject.scm 805 */
							BgL_varsz00_2314 = BNIL;
						}
					else
						{	/* Eval/evobject.scm 805 */
							obj_t BgL_head1156z00_2368;

							BgL_head1156z00_2368 = MAKE_YOUNG_PAIR(BNIL, BNIL);
							{
								obj_t BgL_l1154z00_2370;
								obj_t BgL_tail1157z00_2371;

								BgL_l1154z00_2370 = BgL_bindingsz00_121;
								BgL_tail1157z00_2371 = BgL_head1156z00_2368;
							BgL_zc3z04anonymousza32066ze3z87_2372:
								if (NULLP(BgL_l1154z00_2370))
									{	/* Eval/evobject.scm 805 */
										BgL_varsz00_2314 = CDR(BgL_head1156z00_2368);
									}
								else
									{	/* Eval/evobject.scm 805 */
										obj_t BgL_newtail1158z00_2374;

										{	/* Eval/evobject.scm 805 */
											obj_t BgL_arg2069z00_2376;

											{	/* Eval/evobject.scm 805 */
												obj_t BgL_bdgz00_2377;

												BgL_bdgz00_2377 = CAR(((obj_t) BgL_l1154z00_2370));
												{
													obj_t BgL_varz00_2378;
													obj_t BgL_exprz00_2379;

													if (PAIRP(BgL_bdgz00_2377))
														{	/* Eval/evobject.scm 806 */
															obj_t BgL_carzd2320zd2_2384;
															obj_t BgL_cdrzd2321zd2_2385;

															BgL_carzd2320zd2_2384 =
																CAR(((obj_t) BgL_bdgz00_2377));
															BgL_cdrzd2321zd2_2385 =
																CDR(((obj_t) BgL_bdgz00_2377));
															if (SYMBOLP(BgL_carzd2320zd2_2384))
																{	/* Eval/evobject.scm 806 */
																	if (PAIRP(BgL_cdrzd2321zd2_2385))
																		{	/* Eval/evobject.scm 806 */
																			if (NULLP(CDR(BgL_cdrzd2321zd2_2385)))
																				{	/* Eval/evobject.scm 806 */
																					BgL_varz00_2378 =
																						BgL_carzd2320zd2_2384;
																					BgL_exprz00_2379 =
																						CAR(BgL_cdrzd2321zd2_2385);
																					{	/* Eval/evobject.scm 808 */
																						obj_t BgL_idzd2typezd2_2392;

																						{	/* Eval/evobject.scm 782 */
																							obj_t BgL_idz00_3935;

																							BgL_idz00_3935 =
																								BGl_decomposezd2identzd2zz__evobjectz00
																								(BgL_varz00_2378);
																							{	/* Eval/evobject.scm 783 */
																								obj_t BgL_typez00_3936;

																								{	/* Eval/evobject.scm 784 */
																									obj_t BgL_tmpz00_3937;

																									{	/* Eval/evobject.scm 784 */
																										int BgL_tmpz00_6500;

																										BgL_tmpz00_6500 =
																											(int) (1L);
																										BgL_tmpz00_3937 =
																											BGL_MVALUES_VAL
																											(BgL_tmpz00_6500);
																									}
																									{	/* Eval/evobject.scm 784 */
																										int BgL_tmpz00_6503;

																										BgL_tmpz00_6503 =
																											(int) (1L);
																										BGL_MVALUES_VAL_SET
																											(BgL_tmpz00_6503,
																											BUNSPEC);
																									}
																									BgL_typez00_3936 =
																										BgL_tmpz00_3937;
																								}
																								BgL_idzd2typezd2_2392 =
																									MAKE_YOUNG_PAIR
																									(BgL_idz00_3935,
																									BgL_typez00_3936);
																						}}
																						{	/* Eval/evobject.scm 808 */
																							obj_t BgL_idz00_2393;

																							BgL_idz00_2393 =
																								CAR(BgL_idzd2typezd2_2392);
																							{	/* Eval/evobject.scm 809 */
																								obj_t BgL_tz00_2394;

																								BgL_tz00_2394 =
																									CDR(BgL_idzd2typezd2_2392);
																								{	/* Eval/evobject.scm 810 */
																									obj_t BgL_klassz00_2395;

																									BgL_exprz00_2409 =
																										BgL_exprz00_2379;
																									BgL_bdgz00_2410 =
																										BgL_bdgz00_2377;
																									{
																										obj_t
																											BgL_instantiatez00_2412;
																										obj_t BgL_bodyz00_2413;

																										if (PAIRP(BgL_exprz00_2409))
																											{	/* Eval/evobject.scm 803 */
																												obj_t
																													BgL_arg2088z00_2418;
																												obj_t
																													BgL_arg2089z00_2419;
																												BgL_arg2088z00_2418 =
																													CAR(((obj_t)
																														BgL_exprz00_2409));
																												BgL_arg2089z00_2419 =
																													CDR(((obj_t)
																														BgL_exprz00_2409));
																												BgL_instantiatez00_2412
																													= BgL_arg2088z00_2418;
																												BgL_bodyz00_2413 =
																													BgL_arg2089z00_2419;
																												{	/* Eval/evobject.scm 789 */
																													obj_t
																														BgL_idzd2typezd2_2420;
																													{	/* Eval/evobject.scm 782 */
																														obj_t
																															BgL_idz00_3826;
																														BgL_idz00_3826 =
																															BGl_decomposezd2identzd2zz__evobjectz00
																															(BgL_instantiatez00_2412);
																														{	/* Eval/evobject.scm 783 */
																															obj_t
																																BgL_typez00_3827;
																															{	/* Eval/evobject.scm 784 */
																																obj_t
																																	BgL_tmpz00_3828;
																																{	/* Eval/evobject.scm 784 */
																																	int
																																		BgL_tmpz00_6516;
																																	BgL_tmpz00_6516
																																		=
																																		(int) (1L);
																																	BgL_tmpz00_3828
																																		=
																																		BGL_MVALUES_VAL
																																		(BgL_tmpz00_6516);
																																}
																																{	/* Eval/evobject.scm 784 */
																																	int
																																		BgL_tmpz00_6519;
																																	BgL_tmpz00_6519
																																		=
																																		(int) (1L);
																																	BGL_MVALUES_VAL_SET
																																		(BgL_tmpz00_6519,
																																		BUNSPEC);
																																}
																																BgL_typez00_3827
																																	=
																																	BgL_tmpz00_3828;
																															}
																															BgL_idzd2typezd2_2420
																																=
																																MAKE_YOUNG_PAIR
																																(BgL_idz00_3826,
																																BgL_typez00_3827);
																													}}
																													{	/* Eval/evobject.scm 789 */
																														obj_t
																															BgL_kclassz00_2421;
																														BgL_kclassz00_2421 =
																															BGl_findzd2classzd2zz__objectz00
																															(CDR
																															(BgL_idzd2typezd2_2420));
																														{	/* Eval/evobject.scm 790 */

																															if (
																																(CAR
																																	(BgL_idzd2typezd2_2420)
																																	==
																																	BGl_symbol2567z00zz__evobjectz00))
																																{	/* Eval/evobject.scm 792 */
																																	if (BGl_classzf3zf3zz__objectz00(BgL_kclassz00_2421))
																																		{	/* Eval/evobject.scm 794 */
																																			if (BGl_classzd2abstractzf3z21zz__objectz00(BgL_kclassz00_2421))
																																				{	/* Eval/evobject.scm 72 */
																																					obj_t
																																						BgL_locz00_3831;
																																					if (EPAIRP(BgL_bdgz00_2410))
																																						{	/* Eval/evobject.scm 72 */
																																							BgL_locz00_3831
																																								=
																																								CER
																																								(
																																								((obj_t) BgL_bdgz00_2410));
																																						}
																																					else
																																						{	/* Eval/evobject.scm 72 */
																																							BgL_locz00_3831
																																								=
																																								BFALSE;
																																						}
																																					{	/* Eval/evobject.scm 73 */
																																						bool_t
																																							BgL_test2850z00_6536;
																																						if (PAIRP(BgL_locz00_3831))
																																							{	/* Eval/evobject.scm 73 */
																																								bool_t
																																									BgL_test2852z00_6539;
																																								{	/* Eval/evobject.scm 73 */
																																									obj_t
																																										BgL_tmpz00_6540;
																																									BgL_tmpz00_6540
																																										=
																																										CDR
																																										(BgL_locz00_3831);
																																									BgL_test2852z00_6539
																																										=
																																										PAIRP
																																										(BgL_tmpz00_6540);
																																								}
																																								if (BgL_test2852z00_6539)
																																									{	/* Eval/evobject.scm 73 */
																																										obj_t
																																											BgL_tmpz00_6543;
																																										BgL_tmpz00_6543
																																											=
																																											CDR
																																											(CDR
																																											(BgL_locz00_3831));
																																										BgL_test2850z00_6536
																																											=
																																											PAIRP
																																											(BgL_tmpz00_6543);
																																									}
																																								else
																																									{	/* Eval/evobject.scm 73 */
																																										BgL_test2850z00_6536
																																											=
																																											(
																																											(bool_t)
																																											0);
																																									}
																																							}
																																						else
																																							{	/* Eval/evobject.scm 73 */
																																								BgL_test2850z00_6536
																																									=
																																									(
																																									(bool_t)
																																									0);
																																							}
																																						if (BgL_test2850z00_6536)
																																							{	/* Eval/evobject.scm 73 */
																																								BgL_klassz00_2395
																																									=
																																									BGl_errorzf2locationzf2zz__errorz00
																																									(BgL_instantiatez00_2412,
																																									BGl_string2569z00zz__evobjectz00,
																																									BgL_bdgz00_2410,
																																									CAR
																																									(CDR
																																										(BgL_locz00_3831)),
																																									CAR
																																									(CDR
																																										(CDR
																																											(BgL_locz00_3831))));
																																							}
																																						else
																																							{	/* Eval/evobject.scm 73 */
																																								BgL_klassz00_2395
																																									=
																																									BGl_errorz00zz__errorz00
																																									(BgL_instantiatez00_2412,
																																									BGl_string2569z00zz__evobjectz00,
																																									BgL_bdgz00_2410);
																																							}
																																					}
																																				}
																																			else
																																				{	/* Eval/evobject.scm 796 */
																																					BgL_klassz00_2395
																																						=
																																						BgL_kclassz00_2421;
																																				}
																																		}
																																	else
																																		{	/* Eval/evobject.scm 72 */
																																			obj_t
																																				BgL_locz00_3856;
																																			if (EPAIRP
																																				(BgL_bdgz00_2410))
																																				{	/* Eval/evobject.scm 72 */
																																					BgL_locz00_3856
																																						=
																																						CER(
																																						((obj_t) BgL_bdgz00_2410));
																																				}
																																			else
																																				{	/* Eval/evobject.scm 72 */
																																					BgL_locz00_3856
																																						=
																																						BFALSE;
																																				}
																																			{	/* Eval/evobject.scm 73 */
																																				bool_t
																																					BgL_test2854z00_6558;
																																				if (PAIRP(BgL_locz00_3856))
																																					{	/* Eval/evobject.scm 73 */
																																						bool_t
																																							BgL_test2856z00_6561;
																																						{	/* Eval/evobject.scm 73 */
																																							obj_t
																																								BgL_tmpz00_6562;
																																							BgL_tmpz00_6562
																																								=
																																								CDR
																																								(BgL_locz00_3856);
																																							BgL_test2856z00_6561
																																								=
																																								PAIRP
																																								(BgL_tmpz00_6562);
																																						}
																																						if (BgL_test2856z00_6561)
																																							{	/* Eval/evobject.scm 73 */
																																								obj_t
																																									BgL_tmpz00_6565;
																																								BgL_tmpz00_6565
																																									=
																																									CDR
																																									(CDR
																																									(BgL_locz00_3856));
																																								BgL_test2854z00_6558
																																									=
																																									PAIRP
																																									(BgL_tmpz00_6565);
																																							}
																																						else
																																							{	/* Eval/evobject.scm 73 */
																																								BgL_test2854z00_6558
																																									=
																																									(
																																									(bool_t)
																																									0);
																																							}
																																					}
																																				else
																																					{	/* Eval/evobject.scm 73 */
																																						BgL_test2854z00_6558
																																							=
																																							(
																																							(bool_t)
																																							0);
																																					}
																																				if (BgL_test2854z00_6558)
																																					{	/* Eval/evobject.scm 73 */
																																						BgL_klassz00_2395
																																							=
																																							BGl_errorzf2locationzf2zz__errorz00
																																							(BgL_instantiatez00_2412,
																																							BGl_string2570z00zz__evobjectz00,
																																							BgL_bdgz00_2410,
																																							CAR
																																							(CDR
																																								(BgL_locz00_3856)),
																																							CAR
																																							(CDR
																																								(CDR
																																									(BgL_locz00_3856))));
																																					}
																																				else
																																					{	/* Eval/evobject.scm 73 */
																																						BgL_klassz00_2395
																																							=
																																							BGl_errorz00zz__errorz00
																																							(BgL_instantiatez00_2412,
																																							BGl_string2570z00zz__evobjectz00,
																																							BgL_bdgz00_2410);
																																					}
																																			}
																																		}
																																}
																															else
																																{	/* Eval/evobject.scm 72 */
																																	obj_t
																																		BgL_locz00_3881;
																																	if (EPAIRP
																																		(BgL_bdgz00_2410))
																																		{	/* Eval/evobject.scm 72 */
																																			BgL_locz00_3881
																																				=
																																				CER((
																																					(obj_t)
																																					BgL_bdgz00_2410));
																																		}
																																	else
																																		{	/* Eval/evobject.scm 72 */
																																			BgL_locz00_3881
																																				=
																																				BFALSE;
																																		}
																																	{	/* Eval/evobject.scm 73 */
																																		bool_t
																																			BgL_test2858z00_6580;
																																		if (PAIRP
																																			(BgL_locz00_3881))
																																			{	/* Eval/evobject.scm 73 */
																																				bool_t
																																					BgL_test2860z00_6583;
																																				{	/* Eval/evobject.scm 73 */
																																					obj_t
																																						BgL_tmpz00_6584;
																																					BgL_tmpz00_6584
																																						=
																																						CDR
																																						(BgL_locz00_3881);
																																					BgL_test2860z00_6583
																																						=
																																						PAIRP
																																						(BgL_tmpz00_6584);
																																				}
																																				if (BgL_test2860z00_6583)
																																					{	/* Eval/evobject.scm 73 */
																																						obj_t
																																							BgL_tmpz00_6587;
																																						BgL_tmpz00_6587
																																							=
																																							CDR
																																							(CDR
																																							(BgL_locz00_3881));
																																						BgL_test2858z00_6580
																																							=
																																							PAIRP
																																							(BgL_tmpz00_6587);
																																					}
																																				else
																																					{	/* Eval/evobject.scm 73 */
																																						BgL_test2858z00_6580
																																							=
																																							(
																																							(bool_t)
																																							0);
																																					}
																																			}
																																		else
																																			{	/* Eval/evobject.scm 73 */
																																				BgL_test2858z00_6580
																																					=
																																					(
																																					(bool_t)
																																					0);
																																			}
																																		if (BgL_test2858z00_6580)
																																			{	/* Eval/evobject.scm 73 */
																																				BgL_klassz00_2395
																																					=
																																					BGl_errorzf2locationzf2zz__errorz00
																																					(BgL_instantiatez00_2412,
																																					BGl_string2571z00zz__evobjectz00,
																																					BgL_bdgz00_2410,
																																					CAR
																																					(CDR
																																						(BgL_locz00_3881)),
																																					CAR
																																					(CDR
																																						(CDR
																																							(BgL_locz00_3881))));
																																			}
																																		else
																																			{	/* Eval/evobject.scm 73 */
																																				BgL_klassz00_2395
																																					=
																																					BGl_errorz00zz__errorz00
																																					(BgL_instantiatez00_2412,
																																					BGl_string2571z00zz__evobjectz00,
																																					BgL_bdgz00_2410);
																																			}
																																	}
																																}
																														}
																													}
																												}
																											}
																										else
																											{	/* Eval/evobject.scm 803 */
																												BgL_klassz00_2395 =
																													BGl_expandzd2errorzd2zz__evobjectz00
																													(BGl_string2562z00zz__evobjectz00,
																													BGl_string2571z00zz__evobjectz00,
																													BgL_bdgz00_2410);
																											}
																									}
																									{	/* Eval/evobject.scm 811 */

																										{	/* Eval/evobject.scm 812 */
																											bool_t
																												BgL_test2861z00_6599;
																											if (CBOOL(BgL_tz00_2394))
																												{	/* Eval/evobject.scm 812 */
																													BgL_test2861z00_6599 =
																														(BgL_tz00_2394 ==
																														BGl_classzd2namezd2zz__objectz00
																														(BgL_klassz00_2395));
																												}
																											else
																												{	/* Eval/evobject.scm 812 */
																													BgL_test2861z00_6599 =
																														((bool_t) 1);
																												}
																											if (BgL_test2861z00_6599)
																												{	/* Eval/evobject.scm 813 */
																													obj_t
																														BgL_list2079z00_2398;
																													{	/* Eval/evobject.scm 813 */
																														obj_t
																															BgL_arg2080z00_2399;
																														{	/* Eval/evobject.scm 813 */
																															obj_t
																																BgL_arg2081z00_2400;
																															BgL_arg2081z00_2400
																																=
																																MAKE_YOUNG_PAIR
																																(BgL_exprz00_2379,
																																BNIL);
																															BgL_arg2080z00_2399
																																=
																																MAKE_YOUNG_PAIR
																																(BgL_klassz00_2395,
																																BgL_arg2081z00_2400);
																														}
																														BgL_list2079z00_2398
																															=
																															MAKE_YOUNG_PAIR
																															(BgL_idz00_2393,
																															BgL_arg2080z00_2399);
																													}
																													BgL_arg2069z00_2376 =
																														BgL_list2079z00_2398;
																												}
																											else
																												{	/* Eval/evobject.scm 814 */
																													obj_t
																														BgL_arg2082z00_2401;
																													BgL_arg2082z00_2401 =
																														CAR(BgL_xz00_123);
																													{	/* Eval/evobject.scm 72 */
																														obj_t
																															BgL_locz00_3942;
																														if (EPAIRP
																															(BgL_bdgz00_2377))
																															{	/* Eval/evobject.scm 72 */
																																BgL_locz00_3942
																																	=
																																	CER(((obj_t)
																																		BgL_bdgz00_2377));
																															}
																														else
																															{	/* Eval/evobject.scm 72 */
																																BgL_locz00_3942
																																	= BFALSE;
																															}
																														{	/* Eval/evobject.scm 73 */
																															bool_t
																																BgL_test2864z00_6612;
																															if (PAIRP
																																(BgL_locz00_3942))
																																{	/* Eval/evobject.scm 73 */
																																	bool_t
																																		BgL_test2866z00_6615;
																																	{	/* Eval/evobject.scm 73 */
																																		obj_t
																																			BgL_tmpz00_6616;
																																		BgL_tmpz00_6616
																																			=
																																			CDR
																																			(BgL_locz00_3942);
																																		BgL_test2866z00_6615
																																			=
																																			PAIRP
																																			(BgL_tmpz00_6616);
																																	}
																																	if (BgL_test2866z00_6615)
																																		{	/* Eval/evobject.scm 73 */
																																			obj_t
																																				BgL_tmpz00_6619;
																																			BgL_tmpz00_6619
																																				=
																																				CDR(CDR
																																				(BgL_locz00_3942));
																																			BgL_test2864z00_6612
																																				=
																																				PAIRP
																																				(BgL_tmpz00_6619);
																																		}
																																	else
																																		{	/* Eval/evobject.scm 73 */
																																			BgL_test2864z00_6612
																																				=
																																				(
																																				(bool_t)
																																				0);
																																		}
																																}
																															else
																																{	/* Eval/evobject.scm 73 */
																																	BgL_test2864z00_6612
																																		=
																																		((bool_t)
																																		0);
																																}
																															if (BgL_test2864z00_6612)
																																{	/* Eval/evobject.scm 73 */
																																	BgL_arg2069z00_2376
																																		=
																																		BGl_errorzf2locationzf2zz__errorz00
																																		(BgL_arg2082z00_2401,
																																		BGl_string2572z00zz__evobjectz00,
																																		BgL_bdgz00_2377,
																																		CAR(CDR
																																			(BgL_locz00_3942)),
																																		CAR(CDR(CDR
																																				(BgL_locz00_3942))));
																																}
																															else
																																{	/* Eval/evobject.scm 73 */
																																	BgL_arg2069z00_2376
																																		=
																																		BGl_errorz00zz__errorz00
																																		(BgL_arg2082z00_2401,
																																		BGl_string2572z00zz__evobjectz00,
																																		BgL_bdgz00_2377);
																																}
																														}
																													}
																												}
																										}
																									}
																								}
																							}
																						}
																					}
																				}
																			else
																				{	/* Eval/evobject.scm 806 */
																					BgL_arg2069z00_2376 =
																						BGl_expandzd2errorzd2zz__evobjectz00
																						(CAR(BgL_xz00_123),
																						BGl_string2571z00zz__evobjectz00,
																						BgL_bdgz00_2377);
																				}
																		}
																	else
																		{	/* Eval/evobject.scm 806 */
																			BgL_arg2069z00_2376 =
																				BGl_expandzd2errorzd2zz__evobjectz00(CAR
																				(BgL_xz00_123),
																				BGl_string2571z00zz__evobjectz00,
																				BgL_bdgz00_2377);
																		}
																}
															else
																{	/* Eval/evobject.scm 806 */
																	BgL_arg2069z00_2376 =
																		BGl_expandzd2errorzd2zz__evobjectz00(CAR
																		(BgL_xz00_123),
																		BGl_string2571z00zz__evobjectz00,
																		BgL_bdgz00_2377);
																}
														}
													else
														{	/* Eval/evobject.scm 806 */
															BgL_arg2069z00_2376 =
																BGl_expandzd2errorzd2zz__evobjectz00(CAR
																(BgL_xz00_123),
																BGl_string2571z00zz__evobjectz00,
																BgL_bdgz00_2377);
														}
												}
											}
											BgL_newtail1158z00_2374 =
												MAKE_YOUNG_PAIR(BgL_arg2069z00_2376, BNIL);
										}
										SET_CDR(BgL_tail1157z00_2371, BgL_newtail1158z00_2374);
										{	/* Eval/evobject.scm 805 */
											obj_t BgL_arg2068z00_2375;

											BgL_arg2068z00_2375 = CDR(((obj_t) BgL_l1154z00_2370));
											{
												obj_t BgL_tail1157z00_6644;
												obj_t BgL_l1154z00_6643;

												BgL_l1154z00_6643 = BgL_arg2068z00_2375;
												BgL_tail1157z00_6644 = BgL_newtail1158z00_2374;
												BgL_tail1157z00_2371 = BgL_tail1157z00_6644;
												BgL_l1154z00_2370 = BgL_l1154z00_6643;
												goto BgL_zc3z04anonymousza32066ze3z87_2372;
											}
										}
									}
							}
						}
					{	/* Eval/evobject.scm 819 */
						obj_t BgL_arg2034z00_2315;

						{	/* Eval/evobject.scm 819 */
							obj_t BgL_arg2035z00_2316;
							obj_t BgL_arg2037z00_2317;

							if (NULLP(BgL_varsz00_2314))
								{	/* Eval/evobject.scm 819 */
									BgL_arg2035z00_2316 = BNIL;
								}
							else
								{	/* Eval/evobject.scm 819 */
									obj_t BgL_head1161z00_2320;

									BgL_head1161z00_2320 = MAKE_YOUNG_PAIR(BNIL, BNIL);
									{
										obj_t BgL_l1159z00_2322;
										obj_t BgL_tail1162z00_2323;

										BgL_l1159z00_2322 = BgL_varsz00_2314;
										BgL_tail1162z00_2323 = BgL_head1161z00_2320;
									BgL_zc3z04anonymousza32039ze3z87_2324:
										if (NULLP(BgL_l1159z00_2322))
											{	/* Eval/evobject.scm 819 */
												BgL_arg2035z00_2316 = CDR(BgL_head1161z00_2320);
											}
										else
											{	/* Eval/evobject.scm 819 */
												obj_t BgL_newtail1163z00_2326;

												{	/* Eval/evobject.scm 819 */
													obj_t BgL_arg2042z00_2328;

													{	/* Eval/evobject.scm 819 */
														obj_t BgL_varz00_2329;

														BgL_varz00_2329 = CAR(((obj_t) BgL_l1159z00_2322));
														{	/* Eval/evobject.scm 820 */
															obj_t BgL_idz00_2330;
															obj_t BgL_klassz00_2331;

															BgL_idz00_2330 = CAR(((obj_t) BgL_varz00_2329));
															{	/* Eval/evobject.scm 821 */
																obj_t BgL_pairz00_4014;

																BgL_pairz00_4014 =
																	CDR(((obj_t) BgL_varz00_2329));
																BgL_klassz00_2331 = CAR(BgL_pairz00_4014);
															}
															{	/* Eval/evobject.scm 822 */
																obj_t BgL_arg2043z00_2332;
																obj_t BgL_arg2044z00_2333;

																{	/* Eval/evobject.scm 822 */
																	obj_t BgL_arg2045z00_2334;

																	BgL_arg2045z00_2334 =
																		BGl_classzd2namezd2zz__objectz00
																		(BgL_klassz00_2331);
																	{	/* Eval/evobject.scm 822 */
																		obj_t BgL_list2046z00_2335;

																		{	/* Eval/evobject.scm 822 */
																			obj_t BgL_arg2047z00_2336;

																			{	/* Eval/evobject.scm 822 */
																				obj_t BgL_arg2048z00_2337;

																				BgL_arg2048z00_2337 =
																					MAKE_YOUNG_PAIR(BgL_arg2045z00_2334,
																					BNIL);
																				BgL_arg2047z00_2336 =
																					MAKE_YOUNG_PAIR
																					(BGl_symbol2523z00zz__evobjectz00,
																					BgL_arg2048z00_2337);
																			}
																			BgL_list2046z00_2335 =
																				MAKE_YOUNG_PAIR(BgL_idz00_2330,
																				BgL_arg2047z00_2336);
																		}
																		BgL_arg2043z00_2332 =
																			BGl_symbolzd2appendzd2zz__r4_symbols_6_4z00
																			(BgL_list2046z00_2335);
																	}
																}
																{	/* Eval/evobject.scm 823 */
																	obj_t BgL_arg2049z00_2338;

																	BgL_arg2049z00_2338 =
																		MAKE_YOUNG_PAIR
																		(BGl_classzd2allocatorzd2zz__objectz00
																		(BgL_klassz00_2331), BNIL);
																	BgL_arg2044z00_2333 =
																		MAKE_YOUNG_PAIR(BgL_arg2049z00_2338, BNIL);
																}
																BgL_arg2042z00_2328 =
																	MAKE_YOUNG_PAIR(BgL_arg2043z00_2332,
																	BgL_arg2044z00_2333);
															}
														}
													}
													BgL_newtail1163z00_2326 =
														MAKE_YOUNG_PAIR(BgL_arg2042z00_2328, BNIL);
												}
												SET_CDR(BgL_tail1162z00_2323, BgL_newtail1163z00_2326);
												{	/* Eval/evobject.scm 819 */
													obj_t BgL_arg2041z00_2327;

													BgL_arg2041z00_2327 =
														CDR(((obj_t) BgL_l1159z00_2322));
													{
														obj_t BgL_tail1162z00_6672;
														obj_t BgL_l1159z00_6671;

														BgL_l1159z00_6671 = BgL_arg2041z00_2327;
														BgL_tail1162z00_6672 = BgL_newtail1163z00_2326;
														BgL_tail1162z00_2323 = BgL_tail1162z00_6672;
														BgL_l1159z00_2322 = BgL_l1159z00_6671;
														goto BgL_zc3z04anonymousza32039ze3z87_2324;
													}
												}
											}
									}
								}
							{	/* Eval/evobject.scm 826 */
								obj_t BgL_arg2051z00_2341;

								{	/* Eval/evobject.scm 826 */
									obj_t BgL_arg2052z00_2342;

									{	/* Eval/evobject.scm 826 */
										obj_t BgL_arg2053z00_2343;
										obj_t BgL_arg2054z00_2344;

										if (NULLP(BgL_varsz00_2314))
											{	/* Eval/evobject.scm 826 */
												BgL_arg2053z00_2343 = BNIL;
											}
										else
											{	/* Eval/evobject.scm 826 */
												obj_t BgL_head1166z00_2347;

												BgL_head1166z00_2347 = MAKE_YOUNG_PAIR(BNIL, BNIL);
												{
													obj_t BgL_l1164z00_2349;
													obj_t BgL_tail1167z00_2350;

													BgL_l1164z00_2349 = BgL_varsz00_2314;
													BgL_tail1167z00_2350 = BgL_head1166z00_2347;
												BgL_zc3z04anonymousza32056ze3z87_2351:
													if (NULLP(BgL_l1164z00_2349))
														{	/* Eval/evobject.scm 826 */
															BgL_arg2053z00_2343 = CDR(BgL_head1166z00_2347);
														}
													else
														{	/* Eval/evobject.scm 826 */
															obj_t BgL_newtail1168z00_2353;

															{	/* Eval/evobject.scm 826 */
																obj_t BgL_arg2059z00_2355;

																{	/* Eval/evobject.scm 826 */
																	obj_t BgL_varz00_2356;

																	BgL_varz00_2356 =
																		CAR(((obj_t) BgL_l1164z00_2349));
																	{	/* Eval/evobject.scm 827 */
																		obj_t BgL_idz00_2357;
																		obj_t BgL_klassz00_2358;
																		obj_t BgL_exprz00_2359;

																		BgL_idz00_2357 =
																			CAR(((obj_t) BgL_varz00_2356));
																		{	/* Eval/evobject.scm 828 */
																			obj_t BgL_pairz00_4023;

																			BgL_pairz00_4023 =
																				CDR(((obj_t) BgL_varz00_2356));
																			BgL_klassz00_2358 = CAR(BgL_pairz00_4023);
																		}
																		{	/* Eval/evobject.scm 829 */
																			obj_t BgL_pairz00_4029;

																			{	/* Eval/evobject.scm 829 */
																				obj_t BgL_pairz00_4028;

																				BgL_pairz00_4028 =
																					CDR(((obj_t) BgL_varz00_2356));
																				BgL_pairz00_4029 =
																					CDR(BgL_pairz00_4028);
																			}
																			BgL_exprz00_2359 = CAR(BgL_pairz00_4029);
																		}
																		{	/* Eval/evobject.scm 830 */
																			obj_t BgL_arg2060z00_2360;
																			obj_t BgL_arg2061z00_2361;
																			obj_t BgL_arg2062z00_2362;

																			BgL_arg2060z00_2360 =
																				CAR(((obj_t) BgL_exprz00_2359));
																			BgL_arg2061z00_2361 =
																				CDR(((obj_t) BgL_exprz00_2359));
																			{	/* Eval/evobject.scm 831 */
																				obj_t BgL_tmpz00_6694;

																				BgL_tmpz00_6694 =
																					((obj_t) BgL_klassz00_2358);
																				BgL_arg2062z00_2362 =
																					BGL_CLASS_ALL_FIELDS(BgL_tmpz00_6694);
																			}
																			BgL_arg2059z00_2355 =
																				BGl_instantiatezd2fillzd2zz__evobjectz00
																				(BgL_arg2060z00_2360,
																				BgL_arg2061z00_2361, BgL_klassz00_2358,
																				BgL_arg2062z00_2362, BgL_idz00_2357,
																				BgL_exprz00_2359, BgL_ez00_124);
																		}
																	}
																}
																BgL_newtail1168z00_2353 =
																	MAKE_YOUNG_PAIR(BgL_arg2059z00_2355, BNIL);
															}
															SET_CDR(BgL_tail1167z00_2350,
																BgL_newtail1168z00_2353);
															{	/* Eval/evobject.scm 826 */
																obj_t BgL_arg2058z00_2354;

																BgL_arg2058z00_2354 =
																	CDR(((obj_t) BgL_l1164z00_2349));
																{
																	obj_t BgL_tail1167z00_6703;
																	obj_t BgL_l1164z00_6702;

																	BgL_l1164z00_6702 = BgL_arg2058z00_2354;
																	BgL_tail1167z00_6703 =
																		BgL_newtail1168z00_2353;
																	BgL_tail1167z00_2350 = BgL_tail1167z00_6703;
																	BgL_l1164z00_2349 = BgL_l1164z00_6702;
																	goto BgL_zc3z04anonymousza32056ze3z87_2351;
																}
															}
														}
												}
											}
										{	/* Eval/evobject.scm 833 */
											obj_t BgL_arg2063z00_2364;

											{	/* Eval/evobject.scm 833 */
												obj_t BgL_arg2064z00_2365;

												BgL_arg2064z00_2365 =
													MAKE_YOUNG_PAIR(BGl_symbol2506z00zz__evobjectz00,
													BgL_bodyz00_122);
												BgL_arg2063z00_2364 =
													BGL_PROCEDURE_CALL2(BgL_ez00_124, BgL_arg2064z00_2365,
													BgL_ez00_124);
											}
											BgL_arg2054z00_2344 =
												MAKE_YOUNG_PAIR(BgL_arg2063z00_2364, BNIL);
										}
										BgL_arg2052z00_2342 =
											BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00
											(BgL_arg2053z00_2343, BgL_arg2054z00_2344);
									}
									BgL_arg2051z00_2341 =
										MAKE_YOUNG_PAIR(BGl_symbol2506z00zz__evobjectz00,
										BgL_arg2052z00_2342);
								}
								BgL_arg2037z00_2317 =
									MAKE_YOUNG_PAIR(BgL_arg2051z00_2341, BNIL);
							}
							BgL_arg2034z00_2315 =
								MAKE_YOUNG_PAIR(BgL_arg2035z00_2316, BgL_arg2037z00_2317);
						}
						return
							MAKE_YOUNG_PAIR(BGl_symbol2508z00zz__evobjectz00,
							BgL_arg2034z00_2315);
					}
				}
			}
		}

	}



/* object-init */
	obj_t BGl_objectzd2initzd2zz__evobjectz00(void)
	{
		{	/* Eval/evobject.scm 15 */
			return BUNSPEC;
		}

	}



/* generic-init */
	obj_t BGl_genericzd2initzd2zz__evobjectz00(void)
	{
		{	/* Eval/evobject.scm 15 */
			return BUNSPEC;
		}

	}



/* method-init */
	obj_t BGl_methodzd2initzd2zz__evobjectz00(void)
	{
		{	/* Eval/evobject.scm 15 */
			return BUNSPEC;
		}

	}



/* imported-modules-init */
	obj_t BGl_importedzd2moduleszd2initz00zz__evobjectz00(void)
	{
		{	/* Eval/evobject.scm 15 */
			BGl_modulezd2initializa7ationz75zz__typez00(393254000L,
				BSTRING_TO_STRING(BGl_string2573z00zz__evobjectz00));
			BGl_modulezd2initializa7ationz75zz__errorz00(88804785L,
				BSTRING_TO_STRING(BGl_string2573z00zz__evobjectz00));
			BGl_modulezd2initializa7ationz75zz__biglooz00(348684831L,
				BSTRING_TO_STRING(BGl_string2573z00zz__evobjectz00));
			BGl_modulezd2initializa7ationz75zz__tvectorz00(135276775L,
				BSTRING_TO_STRING(BGl_string2573z00zz__evobjectz00));
			BGl_modulezd2initializa7ationz75zz__structurez00(128205792L,
				BSTRING_TO_STRING(BGl_string2573z00zz__evobjectz00));
			BGl_modulezd2initializa7ationz75zz__bexitz00(443005284L,
				BSTRING_TO_STRING(BGl_string2573z00zz__evobjectz00));
			BGl_modulezd2initializa7ationz75zz__bignumz00(289561787L,
				BSTRING_TO_STRING(BGl_string2573z00zz__evobjectz00));
			BGl_modulezd2initializa7ationz75zz__osz00(310000171L,
				BSTRING_TO_STRING(BGl_string2573z00zz__evobjectz00));
			BGl_modulezd2initializa7ationz75zz__bitz00(377164741L,
				BSTRING_TO_STRING(BGl_string2573z00zz__evobjectz00));
			BGl_modulezd2initializa7ationz75zz__paramz00(453939141L,
				BSTRING_TO_STRING(BGl_string2573z00zz__evobjectz00));
			BGl_modulezd2initializa7ationz75zz__objectz00(475449627L,
				BSTRING_TO_STRING(BGl_string2573z00zz__evobjectz00));
			BGl_modulezd2initializa7ationz75zz__threadz00(149516032L,
				BSTRING_TO_STRING(BGl_string2573z00zz__evobjectz00));
			BGl_modulezd2initializa7ationz75zz__hashz00(254893342L,
				BSTRING_TO_STRING(BGl_string2573z00zz__evobjectz00));
			BGl_modulezd2initializa7ationz75zz__readerz00(220648206L,
				BSTRING_TO_STRING(BGl_string2573z00zz__evobjectz00));
			BGl_modulezd2initializa7ationz75zz__r4_numbers_6_5z00(26840973L,
				BSTRING_TO_STRING(BGl_string2573z00zz__evobjectz00));
			BGl_modulezd2initializa7ationz75zz__r4_numbers_6_5_fixnumz00(457511469L,
				BSTRING_TO_STRING(BGl_string2573z00zz__evobjectz00));
			BGl_modulezd2initializa7ationz75zz__r4_numbers_6_5_flonumz00(362050511L,
				BSTRING_TO_STRING(BGl_string2573z00zz__evobjectz00));
			BGl_modulezd2initializa7ationz75zz__r4_numbers_6_5_flonum_dtoaz00
				(268155843L, BSTRING_TO_STRING(BGl_string2573z00zz__evobjectz00));
			BGl_modulezd2initializa7ationz75zz__r4_characters_6_6z00(198620800L,
				BSTRING_TO_STRING(BGl_string2573z00zz__evobjectz00));
			BGl_modulezd2initializa7ationz75zz__r4_equivalence_6_2z00(111613887L,
				BSTRING_TO_STRING(BGl_string2573z00zz__evobjectz00));
			BGl_modulezd2initializa7ationz75zz__r4_booleans_6_1z00(459519430L,
				BSTRING_TO_STRING(BGl_string2573z00zz__evobjectz00));
			BGl_modulezd2initializa7ationz75zz__r4_symbols_6_4z00(115192690L,
				BSTRING_TO_STRING(BGl_string2573z00zz__evobjectz00));
			BGl_modulezd2initializa7ationz75zz__r4_strings_6_7z00((-44273703L),
				BSTRING_TO_STRING(BGl_string2573z00zz__evobjectz00));
			BGl_modulezd2initializa7ationz75zz__r4_pairs_and_lists_6_3z00(9614678L,
				BSTRING_TO_STRING(BGl_string2573z00zz__evobjectz00));
			BGl_modulezd2initializa7ationz75zz__r4_control_features_6_9z00(376927882L,
				BSTRING_TO_STRING(BGl_string2573z00zz__evobjectz00));
			BGl_modulezd2initializa7ationz75zz__r4_vectors_6_8z00(43892022L,
				BSTRING_TO_STRING(BGl_string2573z00zz__evobjectz00));
			BGl_modulezd2initializa7ationz75zz__r4_ports_6_10_1z00(185672289L,
				BSTRING_TO_STRING(BGl_string2573z00zz__evobjectz00));
			BGl_modulezd2initializa7ationz75zz__r4_output_6_10_3z00(86988580L,
				BSTRING_TO_STRING(BGl_string2573z00zz__evobjectz00));
			BGl_modulezd2initializa7ationz75zz__r5_control_features_6_4z00(228151370L,
				BSTRING_TO_STRING(BGl_string2573z00zz__evobjectz00));
			BGl_modulezd2initializa7ationz75zz__prognz00(177147622L,
				BSTRING_TO_STRING(BGl_string2573z00zz__evobjectz00));
			BGl_modulezd2initializa7ationz75zz__evenvz00(528345299L,
				BSTRING_TO_STRING(BGl_string2573z00zz__evobjectz00));
			BGl_modulezd2initializa7ationz75zz__everrorz00(375872221L,
				BSTRING_TO_STRING(BGl_string2573z00zz__evobjectz00));
			BGl_modulezd2initializa7ationz75zz__evcompilez00(492754569L,
				BSTRING_TO_STRING(BGl_string2573z00zz__evobjectz00));
			BGl_modulezd2initializa7ationz75zz__evalz00(35539458L,
				BSTRING_TO_STRING(BGl_string2573z00zz__evobjectz00));
			BGl_modulezd2initializa7ationz75zz__evmodulez00(505897955L,
				BSTRING_TO_STRING(BGl_string2573z00zz__evobjectz00));
			BGl_modulezd2initializa7ationz75zz__expander_definez00(380411245L,
				BSTRING_TO_STRING(BGl_string2573z00zz__evobjectz00));
			BGl_modulezd2initializa7ationz75zz__expandz00(414007149L,
				BSTRING_TO_STRING(BGl_string2573z00zz__evobjectz00));
			return BGl_modulezd2initializa7ationz75zz__macroz00(261397491L,
				BSTRING_TO_STRING(BGl_string2573z00zz__evobjectz00));
		}

	}

#ifdef __cplusplus
}
#endif
