/*===========================================================================*/
/*   (Eval/evobject.scm)                                                     */
/*   Bigloo (4.5b)                                                           */
/*   Inria -- Sophia Antipolis (c)       Fri Dec 22 05:17:06 PM CET 2023     */
/*===========================================================================*/
/* COMPILATION: (/home/serrano/prgm/project/bigloo/bigloo/bin/bigloo -ldopt -L/home/serrano/prgm/project/bigloo/bigloo/libbacktrace/home/serrano/prgm/project/bigloo/bigloo/lib/bigloo/4.5b  -srfi enable-gmp -srfi bigloo-unsafe -O3 -fcfa-arithmetic -q -lib-dir /home/serrano/prgm/project/bigloo/bigloo/lib/bigloo/4.5b -rm -copt -w -lib-dir /home/serrano/prgm/project/bigloo/bigloo/lib/bigloo/4.5b -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_list2450z00zz__evobjectz00 = BUNSPEC;
	static obj_t BGl_symbol2484z00zz__evobjectz00 = BUNSPEC;
	static obj_t BGl_list2453z00zz__evobjectz00 = BUNSPEC;
	static obj_t BGl_symbol2487z00zz__evobjectz00 = BUNSPEC;
	static obj_t BGl_z62zc3z04anonymousza31450ze3ze5zz__evobjectz00(obj_t, obj_t,
		obj_t);
	extern obj_t bgl_append2(obj_t, obj_t);
	static obj_t BGl_zc3z04anonymousza31970ze3ze70z60zz__evobjectz00(obj_t,
		obj_t);
	extern obj_t BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
	static obj_t BGl_symbol2490z00zz__evobjectz00 = BUNSPEC;
	static obj_t BGl_makezd2classzd2fieldsz00zz__evobjectz00(obj_t, obj_t, obj_t,
		long, obj_t);
	static obj_t BGl_symbol2492z00zz__evobjectz00 = BUNSPEC;
	extern obj_t BGl_classzd2constructorzd2zz__objectz00(obj_t);
	static obj_t BGl_symbol2497z00zz__evobjectz00 = BUNSPEC;
	static obj_t BGl_symbol2499z00zz__evobjectz00 = BUNSPEC;
	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_z62zc3z04anonymousza31517ze3ze5zz__evobjectz00(obj_t, obj_t,
		obj_t);
	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 obj_t BGl_za2classesza2z00zz__objectz00;
	extern bool_t BGl_classzd2fieldzd2defaultzd2valuezf3z21zz__objectz00(obj_t);
	BGL_EXPORTED_DECL obj_t
		BGl_evalzd2expandzd2instantiatez00zz__evobjectz00(obj_t);
	extern obj_t BGl_evalz12z12zz__evalz00(obj_t, obj_t);
	static obj_t BGl_z62evalzd2expandzd2instantiatez62zz__evobjectz00(obj_t,
		obj_t);
	static obj_t BGl_z62zc3z04anonymousza31380ze3ze5zz__evobjectz00(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_vector2442z00zz__evobjectz00 = BUNSPEC;
	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 bool_t BGl_patchzd2fieldzd2defaultzd2valuesz12zc0zz__evobjectz00(obj_t,
		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);
	static obj_t BGl_z62zc3z04anonymousza31545ze3ze5zz__evobjectz00(obj_t, 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_z62zc3z04anonymousza31367ze3ze5zz__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);
	BGL_EXPORTED_DECL obj_t
		BGl_evalzd2expandzd2duplicatez00zz__evobjectz00(obj_t);
	extern bool_t BGl_classzd2fieldzd2mutablezf3zf3zz__objectz00(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_zc3z04anonymousza31995ze3ze70z60zz__evobjectz00(obj_t,
		obj_t);
	static obj_t BGl_z62zc3z04anonymousza31660ze3ze5zz__evobjectz00(obj_t, obj_t,
		obj_t);
	extern obj_t BGl_errorzf2locationzf2zz__errorz00(obj_t, obj_t, obj_t, obj_t,
		obj_t);
	static obj_t BGl_z62zc3z04anonymousza31385ze3ze5zz__evobjectz00(obj_t, obj_t);
	extern bool_t BGl_classzd2abstractzf3z21zz__objectz00(obj_t);
	extern obj_t
		BGl_z52objectzd2wideningzd2setz12z40zz__objectz00(BgL_objectz00_bglt,
		obj_t);
	static obj_t BGl_zc3z04anonymousza31990ze3ze70z60zz__evobjectz00(obj_t,
		obj_t);
	extern bool_t BGl_evmodulezf3zf3zz__evmodulez00(obj_t);
	extern obj_t BGl_classzd2namezd2zz__objectz00(obj_t);
	extern obj_t BGl_getzd2sourcezd2locationz00zz__readerz00(obj_t);
	extern obj_t bstring_to_symbol(obj_t);
	static obj_t BGl_z62zc3z04anonymousza31564ze3ze5zz__evobjectz00(obj_t, obj_t,
		obj_t);
	static obj_t BGl_z62zc3z04anonymousza31475ze3ze5zz__evobjectz00(obj_t, obj_t);
	static obj_t BGl_z62zc3z04anonymousza31629ze3ze5zz__evobjectz00(obj_t, obj_t,
		obj_t);
	extern obj_t BGl_classzd2evdatazd2zz__objectz00(obj_t);
	static obj_t BGl_evalzd2registerzd2classz00zz__evobjectz00(obj_t, obj_t,
		obj_t, bool_t, obj_t, long, obj_t);
	static obj_t BGl_symbol2501z00zz__evobjectz00 = BUNSPEC;
	static obj_t BGl_symbol2503z00zz__evobjectz00 = BUNSPEC;
	extern obj_t BGl_classzd2fieldzd2mutatorz00zz__objectz00(obj_t);
	static obj_t BGl_symbol2505z00zz__evobjectz00 = BUNSPEC;
	extern obj_t make_vector(long, obj_t);
	extern obj_t c_substring(obj_t, long, long);
	static obj_t BGl_symbol2509z00zz__evobjectz00 = BUNSPEC;
	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_symbol2511z00zz__evobjectz00 = BUNSPEC;
	static obj_t BGl_decomposezd2identzd2zz__evobjectz00(obj_t);
	static obj_t BGl_symbol2513z00zz__evobjectz00 = BUNSPEC;
	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_symbol2519z00zz__evobjectz00 = BUNSPEC;
	static obj_t BGl_symbol2438z00zz__evobjectz00 = BUNSPEC;
	static obj_t BGl_z62zc3z04anonymousza31502ze3ze5zz__evobjectz00(obj_t, obj_t);
	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_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);
	BGL_EXPORTED_DECL obj_t
		BGl_evalzd2expandzd2withzd2accesszd2zz__evobjectz00(obj_t);
	static obj_t BGl_symbol2440z00zz__evobjectz00 = BUNSPEC;
	static obj_t BGl_symbol2522z00zz__evobjectz00 = BUNSPEC;
	static obj_t BGl_symbol2524z00zz__evobjectz00 = BUNSPEC;
	static obj_t BGl_z62evalzd2expandzd2withzd2accesszb0zz__evobjectz00(obj_t,
		obj_t);
	static obj_t BGl_symbol2444z00zz__evobjectz00 = BUNSPEC;
	static obj_t BGl_symbol2446z00zz__evobjectz00 = BUNSPEC;
	static obj_t BGl_symbol2448z00zz__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_z62zc3z04anonymousza31818ze3ze5zz__evobjectz00(obj_t, obj_t,
		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_symbol2451z00zz__evobjectz00 = BUNSPEC;
	static obj_t BGl_symbol2533z00zz__evobjectz00 = BUNSPEC;
	static obj_t BGl_symbol2454z00zz__evobjectz00 = BUNSPEC;
	static obj_t BGl_symbol2536z00zz__evobjectz00 = BUNSPEC;
	static obj_t BGl_symbol2456z00zz__evobjectz00 = BUNSPEC;
	extern bool_t BGl_evalzd2classzf3z21zz__objectz00(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_symbol2460z00zz__evobjectz00 = BUNSPEC;
	extern obj_t BGl_classzd2allocatorzd2zz__objectz00(obj_t);
	static obj_t BGl_symbol2465z00zz__evobjectz00 = BUNSPEC;
	extern obj_t BGl_classzd2fieldzd2accessorz00zz__objectz00(obj_t);
	static obj_t BGl_symbol2467z00zz__evobjectz00 = BUNSPEC;
	static obj_t BGl_symbol2469z00zz__evobjectz00 = BUNSPEC;
	static obj_t BGl_cozd2instantiatezd2ze3letze3zz__evobjectz00(obj_t, obj_t,
		obj_t, obj_t);
	static obj_t BGl_z62zc3z04anonymousza31682ze3ze5zz__evobjectz00(obj_t, obj_t,
		obj_t);
	extern long BGl_getzd2hashnumberzd2persistentz00zz__hashz00(obj_t);
	static obj_t BGl_symbol2473z00zz__evobjectz00 = BUNSPEC;
	static obj_t BGl_findzd2fieldzd2offsetz00zz__evobjectz00(obj_t, obj_t, obj_t,
		obj_t);
	extern obj_t BGl_defaultzd2environmentzd2zz__evalz00(void);
	static obj_t BGl_symbol2475z00zz__evobjectz00 = BUNSPEC;
	static obj_t BGl_list2443z00zz__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;
	extern obj_t BGl_expandzd2prognzd2zz__prognz00(obj_t);
	static obj_t *__cnst;


	   
		 
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_evalzd2cozd2instantiatezd2expanderzd2envz00zz__evobjectz00,
		BgL_bgl_za762evalza7d2coza7d2i2543za7,
		BGl_z62evalzd2cozd2instantiatezd2expanderzb0zz__evobjectz00, 0L, BUNSPEC,
		2);
	      DEFINE_STRING(BGl_string2500z00zz__evobjectz00,
		BgL_bgl_string2500za700za7za7_2544za7, "set!", 4);
	      DEFINE_STRING(BGl_string2502z00zz__evobjectz00,
		BgL_bgl_string2502za700za7za7_2545za7, "obj", 3);
	      DEFINE_EXPORT_BGL_PROCEDURE(BGl_evalzd2classzd2envz00zz__evobjectz00,
		BgL_bgl_za762evalza7d2classza72546za7,
		BGl_z62evalzd2classzb0zz__evobjectz00, 0L, BUNSPEC, 5);
	      DEFINE_STRING(BGl_string2504z00zz__evobjectz00,
		BgL_bgl_string2504za700za7za7_2547za7, "slot", 4);
	      DEFINE_STRING(BGl_string2506z00zz__evobjectz00,
		BgL_bgl_string2506za700za7za7_2548za7, "read-only", 9);
	      DEFINE_STRING(BGl_string2507z00zz__evobjectz00,
		BgL_bgl_string2507za700za7za7_2549za7, "eval", 4);
	      DEFINE_STRING(BGl_string2508z00zz__evobjectz00,
		BgL_bgl_string2508za700za7za7_2550za7, "Illegal slot declaration", 24);
	      DEFINE_STRING(BGl_string2510z00zz__evobjectz00,
		BgL_bgl_string2510za700za7za7_2551za7, "info", 4);
	      DEFINE_STRING(BGl_string2512z00zz__evobjectz00,
		BgL_bgl_string2512za700za7za7_2552za7, "get", 3);
	      DEFINE_STRING(BGl_string2514z00zz__evobjectz00,
		BgL_bgl_string2514za700za7za7_2553za7, "set", 3);
	      DEFINE_STRING(BGl_string2516z00zz__evobjectz00,
		BgL_bgl_string2516za700za7za7_2554za7, "default", 7);
	      DEFINE_STRING(BGl_string2517z00zz__evobjectz00,
		BgL_bgl_string2517za700za7za7_2555za7, "Missing virtual set", 19);
	      DEFINE_STRING(BGl_string2518z00zz__evobjectz00,
		BgL_bgl_string2518za700za7za7_2556za7, "Missing virtual get", 19);
	      DEFINE_STRING(BGl_string2437z00zz__evobjectz00,
		BgL_bgl_string2437za700za7za7_2557za7,
		"Wrong number of arguments for constructor (expecting ~a)", 56);
	      DEFINE_STRING(BGl_string2439z00zz__evobjectz00,
		BgL_bgl_string2439za700za7za7_2558za7, "lambda", 6);
	      DEFINE_STRING(BGl_string2520z00zz__evobjectz00,
		BgL_bgl_string2520za700za7za7_2559za7, "o", 1);
	      DEFINE_STRING(BGl_string2521z00zz__evobjectz00,
		BgL_bgl_string2521za700za7za7_2560za7, "Illegal class declaration", 25);
	      DEFINE_STRING(BGl_string2441z00zz__evobjectz00,
		BgL_bgl_string2441za700za7za7_2561za7, "", 0);
	      DEFINE_STRING(BGl_string2523z00zz__evobjectz00,
		BgL_bgl_string2523za700za7za7_2562za7, "object", 6);
	      DEFINE_STRING(BGl_string2525z00zz__evobjectz00,
		BgL_bgl_string2525za700za7za7_2563za7, "define", 6);
	      DEFINE_STRING(BGl_string2526z00zz__evobjectz00,
		BgL_bgl_string2526za700za7za7_2564za7, "Cannot find super class", 23);
	      DEFINE_STRING(BGl_string2445z00zz__evobjectz00,
		BgL_bgl_string2445za700za7za7_2565za7, "patch-field-default-values!", 27);
	      DEFINE_STRING(BGl_string2527z00zz__evobjectz00,
		BgL_bgl_string2527za700za7za7_2566za7, "&eval-class", 11);
	      DEFINE_STRING(BGl_string2528z00zz__evobjectz00,
		BgL_bgl_string2528za700za7za7_2567za7, "symbol", 6);
	      DEFINE_STRING(BGl_string2447z00zz__evobjectz00,
		BgL_bgl_string2447za700za7za7_2568za7, "slots", 5);
	      DEFINE_STRING(BGl_string2529z00zz__evobjectz00,
		BgL_bgl_string2529za700za7za7_2569za7, "pair-nil", 8);
	      DEFINE_STRING(BGl_string2449z00zz__evobjectz00,
		BgL_bgl_string2449za700za7za7_2570za7, "fields", 6);
	      DEFINE_STRING(BGl_string2530z00zz__evobjectz00,
		BgL_bgl_string2530za700za7za7_2571za7, "pair", 4);
	      DEFINE_STRING(BGl_string2531z00zz__evobjectz00,
		BgL_bgl_string2531za700za7za7_2572za7, "co-instantiate", 14);
	      DEFINE_STRING(BGl_string2532z00zz__evobjectz00,
		BgL_bgl_string2532za700za7za7_2573za7, "Illegal `co-instantiate' form", 29);
	      DEFINE_STRING(BGl_string2452z00zz__evobjectz00,
		BgL_bgl_string2452za700za7za7_2574za7, "patch-vfield-accessors!", 23);
	      DEFINE_STRING(BGl_string2534z00zz__evobjectz00,
		BgL_bgl_string2534za700za7za7_2575za7, "&eval-co-instantiate-expander", 29);
	      DEFINE_STRING(BGl_string2535z00zz__evobjectz00,
		BgL_bgl_string2535za700za7za7_2576za7, "procedure", 9);
	      DEFINE_STRING(BGl_string2455z00zz__evobjectz00,
		BgL_bgl_string2455za700za7za7_2577za7, "class-virtual", 13);
	      DEFINE_STRING(BGl_string2537z00zz__evobjectz00,
		BgL_bgl_string2537za700za7za7_2578za7, "instantiate", 11);
	      DEFINE_STRING(BGl_string2538z00zz__evobjectz00,
		BgL_bgl_string2538za700za7za7_2579za7,
		"Abstract classes can't be instantiated", 38);
	      DEFINE_STRING(BGl_string2457z00zz__evobjectz00,
		BgL_bgl_string2457za700za7za7_2580za7, "clazz", 5);
	      DEFINE_STRING(BGl_string2539z00zz__evobjectz00,
		BgL_bgl_string2539za700za7za7_2581za7, "Illegal class", 13);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_evalzd2expandzd2duplicatezd2envzd2zz__evobjectz00,
		BgL_bgl_za762evalza7d2expand2582z00,
		BGl_z62evalzd2expandzd2duplicatez62zz__evobjectz00, 0L, BUNSPEC, 1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_evalzd2expandzd2instantiatezd2envzd2zz__evobjectz00,
		BgL_bgl_za762evalza7d2expand2583z00,
		BGl_z62evalzd2expandzd2instantiatez62zz__evobjectz00, 0L, BUNSPEC, 1);
	      DEFINE_STRING(BGl_string2540z00zz__evobjectz00,
		BgL_bgl_string2540za700za7za7_2584za7, "Illegal binding", 15);
	      DEFINE_STRING(BGl_string2541z00zz__evobjectz00,
		BgL_bgl_string2541za700za7za7_2585za7, "Illegal variable type", 21);
	      DEFINE_STRING(BGl_string2542z00zz__evobjectz00,
		BgL_bgl_string2542za700za7za7_2586za7, "__evobject", 10);
	      DEFINE_STRING(BGl_string2461z00zz__evobjectz00,
		BgL_bgl_string2461za700za7za7_2587za7, "instantiate::", 13);
	      DEFINE_STRING(BGl_string2462z00zz__evobjectz00,
		BgL_bgl_string2462za700za7za7_2588za7,
		"/tmp/bigloo/runtime/Eval/evobject.scm", 37);
	      DEFINE_STRING(BGl_string2463z00zz__evobjectz00,
		BgL_bgl_string2463za700za7za7_2589za7, "&eval-expand-instantiate", 24);
	      DEFINE_STRING(BGl_string2464z00zz__evobjectz00,
		BgL_bgl_string2464za700za7za7_2590za7, "class", 5);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2458z00zz__evobjectz00,
		BgL_bgl_za762za7c3za704anonymo2591za7,
		BGl_z62zc3z04anonymousza31475ze3ze5zz__evobjectz00, 0L, BUNSPEC, 1);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2459z00zz__evobjectz00,
		BgL_bgl_za762za7c3za704anonymo2592za7,
		BGl_z62zc3z04anonymousza31502ze3ze5zz__evobjectz00, 0L, BUNSPEC, 1);
	      DEFINE_STRING(BGl_string2466z00zz__evobjectz00,
		BgL_bgl_string2466za700za7za7_2593za7, "__object", 8);
	      DEFINE_STRING(BGl_string2468z00zz__evobjectz00,
		BgL_bgl_string2468za700za7za7_2594za7, "class-field-default-value", 25);
	      DEFINE_STRING(BGl_string2470z00zz__evobjectz00,
		BgL_bgl_string2470za700za7za7_2595za7, "@", 1);
	      DEFINE_STRING(BGl_string2471z00zz__evobjectz00,
		BgL_bgl_string2471za700za7za7_2596za7, "Illegal argument", 16);
	      DEFINE_STRING(BGl_string2472z00zz__evobjectz00,
		BgL_bgl_string2472za700za7za7_2597za7, "Missing value for field \"~a\"",
		28);
	      DEFINE_STRING(BGl_string2474z00zz__evobjectz00,
		BgL_bgl_string2474za700za7za7_2598za7, "new", 3);
	      DEFINE_STRING(BGl_string2476z00zz__evobjectz00,
		BgL_bgl_string2476za700za7za7_2599za7, "begin", 5);
	      DEFINE_STRING(BGl_string2478z00zz__evobjectz00,
		BgL_bgl_string2478za700za7za7_2600za7, "let", 3);
	      DEFINE_STRING(BGl_string2480z00zz__evobjectz00,
		BgL_bgl_string2480za700za7za7_2601za7, "duplicate::", 11);
	      DEFINE_STRING(BGl_string2481z00zz__evobjectz00,
		BgL_bgl_string2481za700za7za7_2602za7, "&eval-expand-duplicate", 22);
	      DEFINE_STRING(BGl_string2482z00zz__evobjectz00,
		BgL_bgl_string2482za700za7za7_2603za7, "duplicate", 9);
	      DEFINE_STRING(BGl_string2483z00zz__evobjectz00,
		BgL_bgl_string2483za700za7za7_2604za7, "Illegal form", 12);
	      DEFINE_STRING(BGl_string2485z00zz__evobjectz00,
		BgL_bgl_string2485za700za7za7_2605za7, "duplicated", 10);
	      DEFINE_STRING(BGl_string2486z00zz__evobjectz00,
		BgL_bgl_string2486za700za7za7_2606za7, "Illegal ~a, field unknown \"~a\"",
		30);
	      DEFINE_STRING(BGl_string2488z00zz__evobjectz00,
		BgL_bgl_string2488za700za7za7_2607za7, "with-access::", 13);
	      DEFINE_STRING(BGl_string2489z00zz__evobjectz00,
		BgL_bgl_string2489za700za7za7_2608za7, "&eval-expand-with-access", 24);
	      DEFINE_STRING(BGl_string2491z00zz__evobjectz00,
		BgL_bgl_string2491za700za7za7_2609za7, "i", 1);
	      DEFINE_STRING(BGl_string2493z00zz__evobjectz00,
		BgL_bgl_string2493za700za7za7_2610za7, "::", 2);
	      DEFINE_STRING(BGl_string2494z00zz__evobjectz00,
		BgL_bgl_string2494za700za7za7_2611za7, "Illegal field", 13);
	      DEFINE_STRING(BGl_string2495z00zz__evobjectz00,
		BgL_bgl_string2495za700za7za7_2612za7, "with-access", 11);
	      DEFINE_STRING(BGl_string2496z00zz__evobjectz00,
		BgL_bgl_string2496za700za7za7_2613za7, "Illegal with-access", 19);
	      DEFINE_STRING(BGl_string2498z00zz__evobjectz00,
		BgL_bgl_string2498za700za7za7_2614za7, "->", 2);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_evalzd2expandzd2withzd2accesszd2envz00zz__evobjectz00,
		BgL_bgl_za762evalza7d2expand2615z00,
		BGl_z62evalzd2expandzd2withzd2accesszb0zz__evobjectz00, 0L, BUNSPEC, 1);

/* 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_list2450z00zz__evobjectz00));
		     ADD_ROOT((void *) (&BGl_symbol2484z00zz__evobjectz00));
		     ADD_ROOT((void *) (&BGl_list2453z00zz__evobjectz00));
		     ADD_ROOT((void *) (&BGl_symbol2487z00zz__evobjectz00));
		     ADD_ROOT((void *) (&BGl_symbol2490z00zz__evobjectz00));
		     ADD_ROOT((void *) (&BGl_symbol2492z00zz__evobjectz00));
		     ADD_ROOT((void *) (&BGl_symbol2497z00zz__evobjectz00));
		     ADD_ROOT((void *) (&BGl_symbol2499z00zz__evobjectz00));
		     ADD_ROOT((void *) (&BGl_requirezd2initializa7ationz75zz__evobjectz00));
		     ADD_ROOT((void *) (&BGl_vector2442z00zz__evobjectz00));
		     ADD_ROOT((void *) (&BGl_symbol2501z00zz__evobjectz00));
		     ADD_ROOT((void *) (&BGl_symbol2503z00zz__evobjectz00));
		     ADD_ROOT((void *) (&BGl_symbol2505z00zz__evobjectz00));
		     ADD_ROOT((void *) (&BGl_symbol2509z00zz__evobjectz00));
		     ADD_ROOT((void *) (&BGl_symbol2511z00zz__evobjectz00));
		     ADD_ROOT((void *) (&BGl_symbol2513z00zz__evobjectz00));
		     ADD_ROOT((void *) (&BGl_symbol2515z00zz__evobjectz00));
		     ADD_ROOT((void *) (&BGl_symbol2519z00zz__evobjectz00));
		     ADD_ROOT((void *) (&BGl_symbol2438z00zz__evobjectz00));
		     ADD_ROOT((void *) (&BGl_symbol2440z00zz__evobjectz00));
		     ADD_ROOT((void *) (&BGl_symbol2522z00zz__evobjectz00));
		     ADD_ROOT((void *) (&BGl_symbol2524z00zz__evobjectz00));
		     ADD_ROOT((void *) (&BGl_symbol2444z00zz__evobjectz00));
		     ADD_ROOT((void *) (&BGl_symbol2446z00zz__evobjectz00));
		     ADD_ROOT((void *) (&BGl_symbol2448z00zz__evobjectz00));
		     ADD_ROOT((void *) (&BGl_symbol2451z00zz__evobjectz00));
		     ADD_ROOT((void *) (&BGl_symbol2533z00zz__evobjectz00));
		     ADD_ROOT((void *) (&BGl_symbol2454z00zz__evobjectz00));
		     ADD_ROOT((void *) (&BGl_symbol2536z00zz__evobjectz00));
		     ADD_ROOT((void *) (&BGl_symbol2456z00zz__evobjectz00));
		     ADD_ROOT((void *) (&BGl_symbol2460z00zz__evobjectz00));
		     ADD_ROOT((void *) (&BGl_symbol2465z00zz__evobjectz00));
		     ADD_ROOT((void *) (&BGl_symbol2467z00zz__evobjectz00));
		     ADD_ROOT((void *) (&BGl_symbol2469z00zz__evobjectz00));
		     ADD_ROOT((void *) (&BGl_symbol2473z00zz__evobjectz00));
		     ADD_ROOT((void *) (&BGl_symbol2475z00zz__evobjectz00));
		     ADD_ROOT((void *) (&BGl_list2443z00zz__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_4607, char *BgL_fromz00_4608)
	{
		{
			if (CBOOL(BGl_requirezd2initializa7ationz75zz__evobjectz00))
				{
					BGl_requirezd2initializa7ationz75zz__evobjectz00 =
						BBOOL(((bool_t) 0));
					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_symbol2438z00zz__evobjectz00 =
				bstring_to_symbol(BGl_string2439z00zz__evobjectz00);
			BGl_symbol2440z00zz__evobjectz00 =
				bstring_to_symbol(BGl_string2441z00zz__evobjectz00);
			BGl_vector2442z00zz__evobjectz00 =
				BGl_listzd2ze3vectorz31zz__r4_vectors_6_8z00(BNIL);
			BGl_symbol2444z00zz__evobjectz00 =
				bstring_to_symbol(BGl_string2445z00zz__evobjectz00);
			BGl_symbol2446z00zz__evobjectz00 =
				bstring_to_symbol(BGl_string2447z00zz__evobjectz00);
			BGl_symbol2448z00zz__evobjectz00 =
				bstring_to_symbol(BGl_string2449z00zz__evobjectz00);
			BGl_list2443z00zz__evobjectz00 =
				MAKE_YOUNG_PAIR(BGl_symbol2444z00zz__evobjectz00,
				MAKE_YOUNG_PAIR(BGl_symbol2446z00zz__evobjectz00,
					MAKE_YOUNG_PAIR(BGl_symbol2448z00zz__evobjectz00, BNIL)));
			BGl_symbol2451z00zz__evobjectz00 =
				bstring_to_symbol(BGl_string2452z00zz__evobjectz00);
			BGl_symbol2454z00zz__evobjectz00 =
				bstring_to_symbol(BGl_string2455z00zz__evobjectz00);
			BGl_symbol2456z00zz__evobjectz00 =
				bstring_to_symbol(BGl_string2457z00zz__evobjectz00);
			BGl_list2453z00zz__evobjectz00 =
				MAKE_YOUNG_PAIR(BGl_symbol2454z00zz__evobjectz00,
				MAKE_YOUNG_PAIR(BGl_symbol2456z00zz__evobjectz00, BNIL));
			BGl_list2450z00zz__evobjectz00 =
				MAKE_YOUNG_PAIR(BGl_symbol2451z00zz__evobjectz00,
				MAKE_YOUNG_PAIR(BGl_symbol2446z00zz__evobjectz00,
					MAKE_YOUNG_PAIR(BGl_symbol2448z00zz__evobjectz00,
						MAKE_YOUNG_PAIR(BGl_list2453z00zz__evobjectz00, BNIL))));
			BGl_symbol2460z00zz__evobjectz00 =
				bstring_to_symbol(BGl_string2461z00zz__evobjectz00);
			BGl_symbol2465z00zz__evobjectz00 =
				bstring_to_symbol(BGl_string2466z00zz__evobjectz00);
			BGl_symbol2467z00zz__evobjectz00 =
				bstring_to_symbol(BGl_string2468z00zz__evobjectz00);
			BGl_symbol2469z00zz__evobjectz00 =
				bstring_to_symbol(BGl_string2470z00zz__evobjectz00);
			BGl_symbol2473z00zz__evobjectz00 =
				bstring_to_symbol(BGl_string2474z00zz__evobjectz00);
			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_symbol2484z00zz__evobjectz00 =
				bstring_to_symbol(BGl_string2485z00zz__evobjectz00);
			BGl_symbol2487z00zz__evobjectz00 =
				bstring_to_symbol(BGl_string2488z00zz__evobjectz00);
			BGl_symbol2490z00zz__evobjectz00 =
				bstring_to_symbol(BGl_string2491z00zz__evobjectz00);
			BGl_symbol2492z00zz__evobjectz00 =
				bstring_to_symbol(BGl_string2493z00zz__evobjectz00);
			BGl_symbol2497z00zz__evobjectz00 =
				bstring_to_symbol(BGl_string2498z00zz__evobjectz00);
			BGl_symbol2499z00zz__evobjectz00 =
				bstring_to_symbol(BGl_string2500z00zz__evobjectz00);
			BGl_symbol2501z00zz__evobjectz00 =
				bstring_to_symbol(BGl_string2502z00zz__evobjectz00);
			BGl_symbol2503z00zz__evobjectz00 =
				bstring_to_symbol(BGl_string2504z00zz__evobjectz00);
			BGl_symbol2505z00zz__evobjectz00 =
				bstring_to_symbol(BGl_string2506z00zz__evobjectz00);
			BGl_symbol2509z00zz__evobjectz00 =
				bstring_to_symbol(BGl_string2510z00zz__evobjectz00);
			BGl_symbol2511z00zz__evobjectz00 =
				bstring_to_symbol(BGl_string2512z00zz__evobjectz00);
			BGl_symbol2513z00zz__evobjectz00 =
				bstring_to_symbol(BGl_string2514z00zz__evobjectz00);
			BGl_symbol2515z00zz__evobjectz00 =
				bstring_to_symbol(BGl_string2516z00zz__evobjectz00);
			BGl_symbol2519z00zz__evobjectz00 =
				bstring_to_symbol(BGl_string2520z00zz__evobjectz00);
			BGl_symbol2522z00zz__evobjectz00 =
				bstring_to_symbol(BGl_string2523z00zz__evobjectz00);
			BGl_symbol2524z00zz__evobjectz00 =
				bstring_to_symbol(BGl_string2525z00zz__evobjectz00);
			BGl_symbol2533z00zz__evobjectz00 =
				bstring_to_symbol(BGl_string2531z00zz__evobjectz00);
			return (BGl_symbol2536z00zz__evobjectz00 =
				bstring_to_symbol(BGl_string2537z00zz__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)
	{
		{
			{
				obj_t BgL_headz00_1244;

				BgL_headz00_1244 = MAKE_YOUNG_PAIR(BNIL, BgL_l2z00_2);
				{
					obj_t BgL_prevz00_2855;
					obj_t BgL_tailz00_2856;

					BgL_prevz00_2855 = BgL_headz00_1244;
					BgL_tailz00_2856 = BgL_l1z00_1;
				BgL_loopz00_2854:
					if (PAIRP(BgL_tailz00_2856))
						{
							obj_t BgL_newzd2prevzd2_2862;

							BgL_newzd2prevzd2_2862 =
								MAKE_YOUNG_PAIR(CAR(BgL_tailz00_2856), BgL_l2z00_2);
							SET_CDR(BgL_prevz00_2855, BgL_newzd2prevzd2_2862);
							{
								obj_t BgL_tailz00_4668;
								obj_t BgL_prevz00_4667;

								BgL_prevz00_4667 = BgL_newzd2prevzd2_2862;
								BgL_tailz00_4668 = CDR(BgL_tailz00_2856);
								BgL_tailz00_2856 = BgL_tailz00_4668;
								BgL_prevz00_2855 = BgL_prevz00_4667;
								goto BgL_loopz00_2854;
							}
						}
					else
						{
							BNIL;
						}
				}
				return CDR(BgL_headz00_1244);
			}
		}

	}



/* 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_1254,
		long BgL_hashz00_1255)
	{
		{	/* Llib/object.sch 24 */
		BGl_loopze71ze7zz__evobjectz00:
			if (NULLP(BgL_defz00_1254))
				{	/* Llib/object.sch 27 */
					return BgL_hashz00_1255;
				}
			else
				{	/* Llib/object.sch 27 */
					if (PAIRP(BgL_defz00_1254))
						{
							long BgL_hashz00_4678;
							obj_t BgL_defz00_4676;

							BgL_defz00_4676 = CDR(BgL_defz00_1254);
							BgL_hashz00_4678 =
								BGl_loopze71ze7zz__evobjectz00(CAR(BgL_defz00_1254),
								(1966L ^ BgL_hashz00_1255));
							BgL_hashz00_1255 = BgL_hashz00_4678;
							BgL_defz00_1254 = BgL_defz00_4676;
							goto BGl_loopze71ze7zz__evobjectz00;
						}
					else
						{	/* Llib/object.sch 29 */
							return
								(
								(BGl_getzd2hashnumberzd2persistentz00zz__hashz00
									(BgL_defz00_1254) & 65535L) ^ BgL_hashz00_1255);
						}
				}
		}

	}



/* 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_1269;

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

					if (PAIRP(BgL_locz00_1269))
						{	/* Eval/evobject.scm 73 */
							bool_t BgL_test2623z00_4692;

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

								BgL_tmpz00_4693 = CDR(BgL_locz00_1269);
								BgL_test2623z00_4692 = PAIRP(BgL_tmpz00_4693);
							}
							if (BgL_test2623z00_4692)
								{	/* Eval/evobject.scm 73 */
									obj_t BgL_tmpz00_4696;

									BgL_tmpz00_4696 = CDR(CDR(BgL_locz00_1269));
									BgL_test2621z00_4689 = PAIRP(BgL_tmpz00_4696);
								}
							else
								{	/* Eval/evobject.scm 73 */
									BgL_test2621z00_4689 = ((bool_t) 0);
								}
						}
					else
						{	/* Eval/evobject.scm 73 */
							BgL_test2621z00_4689 = ((bool_t) 0);
						}
					if (BgL_test2621z00_4689)
						{	/* Eval/evobject.scm 73 */
							return
								BGl_errorzf2locationzf2zz__errorz00(BgL_pz00_4, BgL_mz00_5,
								BgL_xz00_6, CAR(CDR(BgL_locz00_1269)),
								CAR(CDR(CDR(BgL_locz00_1269))));
						}
					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_1300;

				BgL_stringz00_1300 = SYMBOL_TO_STRING(BgL_idz00_42);
				{	/* Eval/evobject.scm 93 */
					long BgL_lenz00_1301;

					BgL_lenz00_1301 = STRING_LENGTH(BgL_stringz00_1300);
					{	/* Eval/evobject.scm 94 */

						{
							long BgL_walkerz00_1303;

							BgL_walkerz00_1303 = 0L;
						BgL_zc3z04anonymousza31325ze3z87_1304:
							if ((BgL_walkerz00_1303 == BgL_lenz00_1301))
								{	/* Eval/evobject.scm 97 */
									{	/* Eval/evobject.scm 98 */
										int BgL_tmpz00_4711;

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

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

									if (
										(STRING_REF(BgL_stringz00_1300,
												BgL_walkerz00_1303) == ((unsigned char) ':')))
										{	/* Eval/evobject.scm 99 */
											if ((BgL_walkerz00_1303 < (BgL_lenz00_1301 - 1L)))
												{	/* Eval/evobject.scm 100 */
													BgL_test2625z00_4717 =
														(STRING_REF(BgL_stringz00_1300,
															(BgL_walkerz00_1303 + 1L)) ==
														((unsigned char) ':'));
												}
											else
												{	/* Eval/evobject.scm 100 */
													BgL_test2625z00_4717 = ((bool_t) 0);
												}
										}
									else
										{	/* Eval/evobject.scm 99 */
											BgL_test2625z00_4717 = ((bool_t) 0);
										}
									if (BgL_test2625z00_4717)
										{	/* Eval/evobject.scm 102 */
											obj_t BgL_val0_1097z00_1317;
											obj_t BgL_val1_1098z00_1318;

											BgL_val0_1097z00_1317 =
												bstring_to_symbol(c_substring(BgL_stringz00_1300, 0L,
													BgL_walkerz00_1303));
											BgL_val1_1098z00_1318 =
												bstring_to_symbol(c_substring(BgL_stringz00_1300,
													(BgL_walkerz00_1303 + 2L), BgL_lenz00_1301));
											{	/* Eval/evobject.scm 102 */
												int BgL_tmpz00_4732;

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

												BgL_tmpz00_4735 = (int) (1L);
												BGL_MVALUES_VAL_SET(BgL_tmpz00_4735,
													BgL_val1_1098z00_1318);
											}
											return BgL_val0_1097z00_1317;
										}
									else
										{
											long BgL_walkerz00_4738;

											BgL_walkerz00_4738 = (BgL_walkerz00_1303 + 1L);
											BgL_walkerz00_1303 = BgL_walkerz00_4738;
											goto BgL_zc3z04anonymousza31325ze3z87_1304;
										}
								}
						}
					}
				}
			}
		}

	}



/* 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_test2628z00_4740;

				if (CBOOL(BgL_locz00_43))
					{	/* Eval/evobject.scm 111 */
						if (EPAIRP(BgL_locz00_43))
							{	/* Eval/evobject.scm 111 */
								BgL_test2628z00_4740 = ((bool_t) 0);
							}
						else
							{	/* Eval/evobject.scm 111 */
								BgL_test2628z00_4740 = ((bool_t) 1);
							}
					}
				else
					{	/* Eval/evobject.scm 111 */
						BgL_test2628z00_4740 = ((bool_t) 1);
					}
				if (BgL_test2628z00_4740)
					{	/* 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_4409,
		obj_t BgL_pz00_1333)
	{
		{	/* Eval/evobject.scm 113 */
			{	/* Eval/evobject.scm 114 */
				bool_t BgL_test2631z00_4746;

				if (EPAIRP(BgL_pz00_1333))
					{	/* Eval/evobject.scm 114 */
						BgL_test2631z00_4746 = ((bool_t) 1);
					}
				else
					{	/* Eval/evobject.scm 114 */
						if (PAIRP(BgL_pz00_1333))
							{	/* Eval/evobject.scm 114 */
								BgL_test2631z00_4746 = ((bool_t) 0);
							}
						else
							{	/* Eval/evobject.scm 114 */
								BgL_test2631z00_4746 = ((bool_t) 1);
							}
					}
				if (BgL_test2631z00_4746)
					{	/* Eval/evobject.scm 114 */
						return BgL_pz00_1333;
					}
				else
					{	/* Eval/evobject.scm 116 */
						obj_t BgL_arg1352z00_1338;
						obj_t BgL_arg1353z00_1339;
						obj_t BgL_arg1354z00_1340;

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

							BgL_arg1355z00_1341 = CAR(((obj_t) BgL_pz00_1333));
							BgL_arg1352z00_1338 =
								BGl_loopze70ze7zz__evobjectz00(BgL_locz00_4409,
								BgL_arg1355z00_1341);
						}
						{	/* Eval/evobject.scm 116 */
							obj_t BgL_arg1356z00_1342;

							BgL_arg1356z00_1342 = CDR(((obj_t) BgL_pz00_1333));
							BgL_arg1353z00_1339 =
								BGl_loopze70ze7zz__evobjectz00(BgL_locz00_4409,
								BgL_arg1356z00_1342);
						}
						BgL_arg1354z00_1340 = CER(((obj_t) BgL_locz00_4409));
						{	/* Eval/evobject.scm 116 */
							obj_t BgL_res2404z00_2948;

							BgL_res2404z00_2948 =
								MAKE_YOUNG_EPAIR(BgL_arg1352z00_1338, BgL_arg1353z00_1339,
								BgL_arg1354z00_1340);
							return BgL_res2404z00_2948;
						}
					}
			}
		}

	}



/* 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_1363;

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

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

						BgL_tmpz00_4760 = ((obj_t) BgL_nativez00_46);
						BgL_fieldsz00_1348 = BGL_CLASS_ALL_FIELDS(BgL_tmpz00_4760);
					}
					{	/* Eval/evobject.scm 138 */
						long BgL_g1039z00_1349;

						BgL_g1039z00_1349 = (VECTOR_LENGTH(BgL_fieldsz00_1348) - 1L);
						{
							long BgL_iz00_2968;
							long BgL_nz00_2969;

							BgL_iz00_2968 = BgL_g1039z00_1349;
							BgL_nz00_2969 = 0L;
						BgL_loopz00_2967:
							if ((BgL_iz00_2968 == -1L))
								{	/* Eval/evobject.scm 141 */
									BgL_nz00_1363 = BgL_nz00_2969;
									{	/* Eval/evobject.scm 124 */
										obj_t BgL_creatorz00_1365;

										BgL_creatorz00_1365 =
											BGl_classzd2creatorzd2zz__objectz00(BgL_nativez00_46);
										{	/* Eval/evobject.scm 125 */
											obj_t BgL_zc3z04anonymousza31367ze3z87_4306;

											BgL_zc3z04anonymousza31367ze3z87_4306 =
												MAKE_VA_PROCEDURE
												(BGl_z62zc3z04anonymousza31367ze3ze5zz__evobjectz00,
												(int) (-1L), (int) (5L));
											PROCEDURE_SET(BgL_zc3z04anonymousza31367ze3z87_4306,
												(int) (0L), BINT(BgL_nz00_1363));
											PROCEDURE_SET(BgL_zc3z04anonymousza31367ze3z87_4306,
												(int) (1L), BINT(BgL_lenz00_47));
											PROCEDURE_SET(BgL_zc3z04anonymousza31367ze3z87_4306,
												(int) (2L), BgL_idz00_45);
											PROCEDURE_SET(BgL_zc3z04anonymousza31367ze3z87_4306,
												(int) (3L), BgL_creatorz00_1365);
											PROCEDURE_SET(BgL_zc3z04anonymousza31367ze3z87_4306,
												(int) (4L), BgL_classnumz00_48);
											return BgL_zc3z04anonymousza31367ze3z87_4306;
										}
									}
								}
							else
								{	/* Eval/evobject.scm 141 */
									if (BGl_classzd2fieldzd2virtualzf3zf3zz__objectz00(VECTOR_REF
											(BgL_fieldsz00_1348, BgL_iz00_2968)))
										{
											long BgL_iz00_4786;

											BgL_iz00_4786 = (BgL_iz00_2968 - 1L);
											BgL_iz00_2968 = BgL_iz00_4786;
											goto BgL_loopz00_2967;
										}
									else
										{
											long BgL_nz00_4790;
											long BgL_iz00_4788;

											BgL_iz00_4788 = (BgL_iz00_2968 - 1L);
											BgL_nz00_4790 = (BgL_nz00_2969 + 1L);
											BgL_nz00_2969 = BgL_nz00_4790;
											BgL_iz00_2968 = BgL_iz00_4788;
											goto BgL_loopz00_2967;
										}
								}
						}
					}
				}
			}
		}

	}



/* &<@anonymous:1367> */
	obj_t BGl_z62zc3z04anonymousza31367ze3ze5zz__evobjectz00(obj_t
		BgL_envz00_4307, obj_t BgL_lz00_4313)
	{
		{	/* Eval/evobject.scm 125 */
			{	/* Eval/evobject.scm 126 */
				long BgL_nz00_4308;
				long BgL_lenz00_4309;
				obj_t BgL_idz00_4310;
				obj_t BgL_creatorz00_4311;
				obj_t BgL_classnumz00_4312;

				BgL_nz00_4308 = (long) CINT(PROCEDURE_REF(BgL_envz00_4307, (int) (0L)));
				BgL_lenz00_4309 =
					(long) CINT(PROCEDURE_REF(BgL_envz00_4307, (int) (1L)));
				BgL_idz00_4310 = ((obj_t) PROCEDURE_REF(BgL_envz00_4307, (int) (2L)));
				BgL_creatorz00_4311 = PROCEDURE_REF(BgL_envz00_4307, (int) (3L));
				BgL_classnumz00_4312 =
					((obj_t) PROCEDURE_REF(BgL_envz00_4307, (int) (4L)));
				if (
					(bgl_list_length(BgL_lz00_4313) == (BgL_nz00_4308 + BgL_lenz00_4309)))
					{	/* Eval/evobject.scm 127 */
						obj_t BgL_oz00_4431;

						BgL_oz00_4431 =
							apply(BgL_creatorz00_4311,
							BGl_takez00zz__r4_pairs_and_lists_6_3z00(BgL_lz00_4313,
								BgL_nz00_4308));
						{	/* Eval/evobject.scm 128 */
							obj_t BgL_arg1371z00_4432;

							BgL_arg1371z00_4432 = CELL_REF(BgL_classnumz00_4312);
							{	/* Eval/evobject.scm 128 */
								long BgL_numz00_4433;

								BgL_numz00_4433 = (long) CINT(BgL_arg1371z00_4432);
								BGL_OBJECT_CLASS_NUM_SET(
									((BgL_objectz00_bglt) BgL_oz00_4431), BgL_numz00_4433);
						}}
						{	/* Eval/evobject.scm 129 */
							obj_t BgL_arg1372z00_4434;

							BgL_arg1372z00_4434 =
								BGl_listzd2ze3vectorz31zz__r4_vectors_6_8z00
								(BGl_listzd2tailzd2zz__r4_pairs_and_lists_6_3z00(BgL_lz00_4313,
									BgL_nz00_4308));
							BGl_z52objectzd2wideningzd2setz12z40zz__objectz00((
									(BgL_objectz00_bglt) BgL_oz00_4431), BgL_arg1372z00_4434);
						}
						return BgL_oz00_4431;
					}
				else
					{	/* Eval/evobject.scm 134 */
						obj_t BgL_arg1374z00_4435;

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

							BgL_arg1375z00_4436 = (BgL_nz00_4308 + BgL_lenz00_4309);
							{	/* Eval/evobject.scm 132 */
								obj_t BgL_list1376z00_4437;

								BgL_list1376z00_4437 =
									MAKE_YOUNG_PAIR(BINT(BgL_arg1375z00_4436), BNIL);
								BgL_arg1374z00_4435 =
									BGl_formatz00zz__r4_output_6_10_3z00
									(BGl_string2437z00zz__evobjectz00, BgL_list1376z00_4437);
						}}
						return
							BGl_expandzd2errorzd2zz__evobjectz00(BgL_idz00_4310,
							BgL_arg1374z00_4435, BgL_lz00_4313);
					}
			}
		}

	}



/* 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_1391;

				BgL_g1102z00_1391 =
					BGl_vectorzd2ze3listz31zz__r4_vectors_6_8z00(BgL_fieldsz00_56);
				{
					obj_t BgL_ll1099z00_1393;
					obj_t BgL_ll1100z00_1394;

					BgL_ll1099z00_1393 = BgL_g1102z00_1391;
					BgL_ll1100z00_1394 = BgL_slotsz00_55;
				BgL_zc3z04anonymousza31388ze3z87_1395:
					if (NULLP(BgL_ll1099z00_1393))
						{	/* Eval/evobject.scm 181 */
							return ((bool_t) 1);
						}
					else
						{	/* Eval/evobject.scm 181 */
							{	/* Eval/evobject.scm 177 */
								obj_t BgL_fieldz00_1397;
								obj_t BgL_slotz00_1398;

								BgL_fieldz00_1397 = CAR(((obj_t) BgL_ll1099z00_1393));
								BgL_slotz00_1398 = CAR(((obj_t) BgL_ll1100z00_1394));
								{	/* Eval/evobject.scm 179 */
									obj_t BgL_arg1390z00_1399;

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

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

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

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

													BgL_arg1395z00_1403 =
														STRUCT_REF(((obj_t) BgL_slotz00_1398), (int) (3L));
													BgL_arg1394z00_1402 =
														MAKE_YOUNG_PAIR(BgL_arg1395z00_1403, BNIL);
												}
												BgL_arg1392z00_1401 =
													MAKE_YOUNG_PAIR(BNIL, BgL_arg1394z00_1402);
											}
											BgL_arg1391z00_1400 =
												MAKE_YOUNG_PAIR(BGl_symbol2438z00zz__evobjectz00,
												BgL_arg1392z00_1401);
										}
										BgL_arg1390z00_1399 =
											BGl_evalz12z12zz__evalz00(BgL_arg1391z00_1400,
											BgL_modulez00_57);
									}
									VECTOR_SET(
										((obj_t) BgL_fieldz00_1397), 6L, BgL_arg1390z00_1399);
							}}
							{	/* Eval/evobject.scm 181 */
								obj_t BgL_arg1396z00_1404;
								obj_t BgL_arg1397z00_1405;

								BgL_arg1396z00_1404 = CDR(((obj_t) BgL_ll1099z00_1393));
								BgL_arg1397z00_1405 = CDR(((obj_t) BgL_ll1100z00_1394));
								{
									obj_t BgL_ll1100z00_4847;
									obj_t BgL_ll1099z00_4846;

									BgL_ll1099z00_4846 = BgL_arg1396z00_1404;
									BgL_ll1100z00_4847 = BgL_arg1397z00_1405;
									BgL_ll1100z00_1394 = BgL_ll1100z00_4847;
									BgL_ll1099z00_1393 = BgL_ll1099z00_4846;
									goto BgL_zc3z04anonymousza31388ze3z87_1395;
								}
							}
						}
				}
			}
		}

	}



/* 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_1407;

				BgL_g1107z00_1407 =
					BGl_vectorzd2ze3listz31zz__r4_vectors_6_8z00(BgL_fieldsz00_59);
				{
					obj_t BgL_l1105z00_1409;

					BgL_l1105z00_1409 = BgL_g1107z00_1407;
				BgL_zc3z04anonymousza31398ze3z87_1410:
					if (PAIRP(BgL_l1105z00_1409))
						{	/* Eval/evobject.scm 203 */
							{	/* Eval/evobject.scm 190 */
								obj_t BgL_fieldz00_1412;

								BgL_fieldz00_1412 = CAR(BgL_l1105z00_1409);
								{	/* Eval/evobject.scm 190 */
									obj_t BgL_idz00_1413;

									BgL_idz00_1413 =
										BGl_classzd2fieldzd2namez00zz__objectz00(BgL_fieldz00_1412);
									{	/* Eval/evobject.scm 190 */
										obj_t BgL_slotz00_1414;

										{
											obj_t BgL_list1104z00_1427;

											BgL_list1104z00_1427 = BgL_slotsz00_58;
										BgL_zc3z04anonymousza31410ze3z87_1428:
											if (PAIRP(BgL_list1104z00_1427))
												{	/* Eval/evobject.scm 191 */
													if (
														(STRUCT_REF(CAR(BgL_list1104z00_1427),
																(int) (0L)) == BgL_idz00_1413))
														{	/* Eval/evobject.scm 191 */
															BgL_slotz00_1414 = CAR(BgL_list1104z00_1427);
														}
													else
														{
															obj_t BgL_list1104z00_4861;

															BgL_list1104z00_4861 = CDR(BgL_list1104z00_1427);
															BgL_list1104z00_1427 = BgL_list1104z00_4861;
															goto BgL_zc3z04anonymousza31410ze3z87_1428;
														}
												}
											else
												{	/* Eval/evobject.scm 191 */
													BgL_slotz00_1414 = BFALSE;
												}
										}
										{	/* Eval/evobject.scm 191 */

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

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

															BgL_arg1402z00_1417 =
																STRUCT_REF(
																((obj_t) BgL_slotz00_1414), (int) (5L));
															BgL_arg1401z00_1416 =
																BGl_evalz12z12zz__evalz00(BgL_arg1402z00_1417,
																BgL_modulez00_61);
														}
														{	/* Eval/evobject.scm 80 */
															int BgL_auxz00_4874;
															obj_t BgL_tmpz00_4872;

															BgL_auxz00_4874 = (int) (5L);
															BgL_tmpz00_4872 = ((obj_t) BgL_slotz00_1414);
															STRUCT_SET(BgL_tmpz00_4872, BgL_auxz00_4874,
																BgL_arg1401z00_1416);
													}}
													{	/* Eval/evobject.scm 196 */
														obj_t BgL_arg1403z00_1418;

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

															BgL_arg1405z00_1419 =
																STRUCT_REF(
																((obj_t) BgL_slotz00_1414), (int) (6L));
															BgL_arg1403z00_1418 =
																BGl_evalz12z12zz__evalz00(BgL_arg1405z00_1419,
																BgL_modulez00_61);
														}
														{	/* Eval/evobject.scm 80 */
															int BgL_auxz00_4883;
															obj_t BgL_tmpz00_4881;

															BgL_auxz00_4883 = (int) (6L);
															BgL_tmpz00_4881 = ((obj_t) BgL_slotz00_1414);
															STRUCT_SET(BgL_tmpz00_4881, BgL_auxz00_4883,
																BgL_arg1403z00_1418);
													}}
													{	/* Eval/evobject.scm 197 */
														obj_t BgL_arg1406z00_1420;

														BgL_arg1406z00_1420 =
															STRUCT_REF(
															((obj_t) BgL_slotz00_1414), (int) (5L));
														VECTOR_SET(
															((obj_t) BgL_fieldz00_1412), 1L,
															BgL_arg1406z00_1420);
													}
													{	/* Eval/evobject.scm 198 */
														obj_t BgL_arg1407z00_1421;

														BgL_arg1407z00_1421 =
															STRUCT_REF(
															((obj_t) BgL_slotz00_1414), (int) (6L));
														VECTOR_SET(
															((obj_t) BgL_fieldz00_1412), 2L,
															BgL_arg1407z00_1421);
													}
													{	/* Eval/evobject.scm 199 */
														obj_t BgL_numz00_1422;

														BgL_numz00_1422 =
															STRUCT_REF(
															((obj_t) BgL_slotz00_1414), (int) (4L));
														{	/* Eval/evobject.scm 199 */
															obj_t BgL_vfieldz00_1423;

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

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

																	BgL_arg1408z00_1424 =
																		STRUCT_REF(
																		((obj_t) BgL_slotz00_1414), (int) (5L));
																	{	/* Eval/evobject.scm 201 */
																		obj_t BgL_tmpz00_4904;

																		BgL_tmpz00_4904 =
																			((obj_t) BgL_vfieldz00_1423);
																		SET_CAR(BgL_tmpz00_4904,
																			BgL_arg1408z00_1424);
																}}
																{	/* Eval/evobject.scm 202 */
																	obj_t BgL_arg1409z00_1425;

																	BgL_arg1409z00_1425 =
																		STRUCT_REF(
																		((obj_t) BgL_slotz00_1414), (int) (6L));
																	{	/* Eval/evobject.scm 202 */
																		obj_t BgL_tmpz00_4910;

																		BgL_tmpz00_4910 =
																			((obj_t) BgL_vfieldz00_1423);
																		SET_CDR(BgL_tmpz00_4910,
																			BgL_arg1409z00_1425);
												}}}}}}
											else
												{	/* Eval/evobject.scm 194 */
													BFALSE;
												}
										}
									}
								}
							}
							{
								obj_t BgL_l1105z00_4913;

								BgL_l1105z00_4913 = CDR(BgL_l1105z00_1409);
								BgL_l1105z00_1409 = BgL_l1105z00_4913;
								goto BgL_zc3z04anonymousza31398ze3z87_1410;
							}
						}
					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_1439;

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

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

						BgL_hook1112z00_1465 = MAKE_YOUNG_PAIR(BFALSE, BNIL);
						{
							obj_t BgL_l1109z00_1467;
							obj_t BgL_h1110z00_1468;

							BgL_l1109z00_1467 = BgL_slotsz00_66;
							BgL_h1110z00_1468 = BgL_hook1112z00_1465;
						BgL_zc3z04anonymousza31433ze3z87_1469:
							if (NULLP(BgL_l1109z00_1467))
								{	/* Eval/evobject.scm 209 */
									BgL_arg1432z00_1464 = CDR(BgL_hook1112z00_1465);
								}
							else
								{	/* Eval/evobject.scm 209 */
									bool_t BgL_test2643z00_4919;

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

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

											BgL_sz00_3031 = CAR(((obj_t) BgL_l1109z00_1467));
											BgL_test2644z00_4920 =
												CBOOL(STRUCT_REF(BgL_sz00_3031, (int) (5L)));
										}
										if (BgL_test2644z00_4920)
											{	/* Eval/evobject.scm 209 */
												BgL_test2643z00_4919 = ((bool_t) 0);
											}
										else
											{	/* Eval/evobject.scm 209 */
												BgL_test2643z00_4919 = ((bool_t) 1);
											}
									}
									if (BgL_test2643z00_4919)
										{	/* Eval/evobject.scm 209 */
											obj_t BgL_nh1111z00_1474;

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

												BgL_arg1438z00_1476 = CAR(((obj_t) BgL_l1109z00_1467));
												BgL_nh1111z00_1474 =
													MAKE_YOUNG_PAIR(BgL_arg1438z00_1476, BNIL);
											}
											SET_CDR(BgL_h1110z00_1468, BgL_nh1111z00_1474);
											{	/* Eval/evobject.scm 209 */
												obj_t BgL_arg1437z00_1475;

												BgL_arg1437z00_1475 = CDR(((obj_t) BgL_l1109z00_1467));
												{
													obj_t BgL_h1110z00_4933;
													obj_t BgL_l1109z00_4932;

													BgL_l1109z00_4932 = BgL_arg1437z00_1475;
													BgL_h1110z00_4933 = BgL_nh1111z00_1474;
													BgL_h1110z00_1468 = BgL_h1110z00_4933;
													BgL_l1109z00_1467 = BgL_l1109z00_4932;
													goto BgL_zc3z04anonymousza31433ze3z87_1469;
												}
											}
										}
									else
										{	/* Eval/evobject.scm 209 */
											obj_t BgL_arg1439z00_1477;

											BgL_arg1439z00_1477 = CDR(((obj_t) BgL_l1109z00_1467));
											{
												obj_t BgL_l1109z00_4936;

												BgL_l1109z00_4936 = BgL_arg1439z00_1477;
												BgL_l1109z00_1467 = BgL_l1109z00_4936;
												goto BgL_zc3z04anonymousza31433ze3z87_1469;
											}
										}
								}
						}
					}
					BgL_siza7eza7_1439 = bgl_list_length(BgL_arg1432z00_1464);
				}
				{	/* Eval/evobject.scm 209 */
					obj_t BgL_offsetz00_1440;

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

						{
							obj_t BgL_superz00_1456;

							BgL_superz00_1456 = BgL_superz00_64;
						BgL_zc3z04anonymousza31425ze3z87_1457:
							if (BGl_evalzd2classzf3z21zz__objectz00(BgL_superz00_1456))
								{
									obj_t BgL_superz00_4944;

									BgL_superz00_4944 =
										BGl_classzd2superzd2zz__objectz00(BgL_superz00_1456);
									BgL_superz00_1456 = BgL_superz00_4944;
									goto BgL_zc3z04anonymousza31425ze3z87_1457;
								}
							else
								{	/* Eval/evobject.scm 213 */
									if ((BgL_superz00_1456 == BGl_objectz00zz__objectz00))
										{	/* Eval/evobject.scm 214 */
											BgL_nativez00_1441 = BGl_objectz00zz__objectz00;
										}
									else
										{	/* Eval/evobject.scm 214 */
											if (BGl_classzd2abstractzf3z21zz__objectz00
												(BgL_superz00_1456))
												{
													obj_t BgL_superz00_4950;

													BgL_superz00_4950 =
														BGl_classzd2superzd2zz__objectz00
														(BgL_superz00_1456);
													BgL_superz00_1456 = BgL_superz00_4950;
													goto BgL_zc3z04anonymousza31425ze3z87_1457;
												}
											else
												{	/* Eval/evobject.scm 215 */
													BgL_nativez00_1441 = BgL_superz00_1456;
												}
										}
								}
						}
						{	/* Eval/evobject.scm 211 */
							long BgL_lengthz00_1442;

							BgL_lengthz00_1442 =
								((long) CINT(BgL_offsetz00_1440) + BgL_siza7eza7_1439);
							{	/* Eval/evobject.scm 217 */
								obj_t BgL_classnumz00_1443;

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

									{	/* Eval/evobject.scm 223 */
										obj_t BgL_arg1418z00_1447;
										obj_t BgL_arg1419z00_1448;
										obj_t BgL_arg1420z00_1449;
										obj_t BgL_arg1421z00_1450;
										obj_t BgL_arg1422z00_1451;
										obj_t BgL_arg1423z00_1452;

										if (BGl_evmodulezf3zf3zz__evmodulez00(BgL_modulez00_63))
											{	/* Eval/evobject.scm 223 */
												BgL_arg1418z00_1447 =
													BGl_evmodulezd2namezd2zz__evmodulez00
													(BgL_modulez00_63);
											}
										else
											{	/* Eval/evobject.scm 223 */
												BgL_arg1418z00_1447 = BGl_symbol2440z00zz__evobjectz00;
											}
										BgL_arg1419z00_1448 =
											BGl_evalzd2creatorzd2zz__evobjectz00(BgL_idz00_62,
											BgL_nativez00_1441, BgL_lengthz00_1442,
											BgL_classnumz00_1443);
										{	/* Eval/evobject.scm 152 */
											obj_t BgL_allocz00_3038;

											BgL_allocz00_3038 =
												BGl_classzd2allocatorzd2zz__objectz00
												(BgL_nativez00_1441);
											{	/* Eval/evobject.scm 153 */
												obj_t BgL_zc3z04anonymousza31380ze3z87_4315;

												BgL_zc3z04anonymousza31380ze3z87_4315 =
													MAKE_FX_PROCEDURE
													(BGl_z62zc3z04anonymousza31380ze3ze5zz__evobjectz00,
													(int) (0L), (int) (3L));
												PROCEDURE_SET(BgL_zc3z04anonymousza31380ze3z87_4315,
													(int) (0L), BgL_allocz00_3038);
												PROCEDURE_SET(BgL_zc3z04anonymousza31380ze3z87_4315,
													(int) (1L), BgL_classnumz00_1443);
												PROCEDURE_SET(BgL_zc3z04anonymousza31380ze3z87_4315,
													(int) (2L), BINT(BgL_lengthz00_1442));
												BgL_arg1420z00_1449 =
													BgL_zc3z04anonymousza31380ze3z87_4315;
										}}
										if (CBOOL(BgL_constrz00_68))
											{	/* Eval/evobject.scm 235 */
												BgL_arg1421z00_1450 = BgL_constrz00_68;
											}
										else
											{
												obj_t BgL_cz00_3049;

												BgL_cz00_3049 = BgL_superz00_64;
											BgL_findzd2classzd2constructorz00_3048:
												{	/* Eval/evobject.scm 259 */
													obj_t BgL_constz00_3053;

													BgL_constz00_3053 =
														BGl_classzd2constructorzd2zz__objectz00
														(BgL_cz00_3049);
													if (CBOOL(BgL_constz00_3053))
														{	/* Eval/evobject.scm 260 */
															BgL_arg1421z00_1450 = BgL_constz00_3053;
														}
													else
														{	/* Eval/evobject.scm 262 */
															obj_t BgL_sz00_3054;

															BgL_sz00_3054 =
																BGl_classzd2superzd2zz__objectz00
																(BgL_cz00_3049);
															if (BGl_classzf3zf3zz__objectz00(BgL_sz00_3054))
																{
																	obj_t BgL_cz00_4979;

																	BgL_cz00_4979 = BgL_sz00_3054;
																	BgL_cz00_3049 = BgL_cz00_4979;
																	goto BgL_findzd2classzd2constructorz00_3048;
																}
															else
																{	/* Eval/evobject.scm 263 */
																	BgL_arg1421z00_1450 = BFALSE;
																}
														}
												}
											}
										{	/* Eval/evobject.scm 163 */
											obj_t BgL_zc3z04anonymousza31385ze3z87_4314;

											BgL_zc3z04anonymousza31385ze3z87_4314 =
												MAKE_FX_PROCEDURE
												(BGl_z62zc3z04anonymousza31385ze3ze5zz__evobjectz00,
												(int) (1L), (int) (2L));
											PROCEDURE_SET(BgL_zc3z04anonymousza31385ze3z87_4314,
												(int) (0L), BgL_classnumz00_1443);
											PROCEDURE_SET(BgL_zc3z04anonymousza31385ze3z87_4314,
												(int) (1L), BINT(BgL_lengthz00_1442));
											BgL_arg1422z00_1451 =
												BgL_zc3z04anonymousza31385ze3z87_4314;
										}
										BgL_arg1423z00_1452 =
											BGl_makezd2classzd2virtualzd2fieldszd2zz__evobjectz00
											(BgL_slotsz00_66);
										BgL_claza7za7z00_1444 =
											BGl_registerzd2classz12zc0zz__objectz00(BgL_idz00_62,
											BgL_arg1418z00_1447, BgL_superz00_64, BgL_hashz00_67,
											BgL_arg1419z00_1448, BgL_arg1420z00_1449,
											BgL_arg1421z00_1450, BgL_arg1422z00_1451, BFALSE,
											BGl_vector2442z00zz__evobjectz00, BgL_arg1423z00_1452);
									}
									{	/* Eval/evobject.scm 219 */

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

											BgL_arg1417z00_1445 =
												BGL_CLASS_NUM(BgL_claza7za7z00_1444);
											CELL_SET(BgL_classnumz00_1443, BINT(BgL_arg1417z00_1445));
										}
										BGl_classzd2evdatazd2setz12z12zz__objectz00
											(BgL_claza7za7z00_1444, BINT(BgL_lengthz00_1442));
										{	/* Eval/evobject.scm 247 */
											obj_t BgL_fieldsz00_1446;

											BgL_fieldsz00_1446 =
												BGl_makezd2classzd2fieldsz00zz__evobjectz00
												(BgL_idz00_62, BgL_claza7za7z00_1444, BgL_slotsz00_66,
												BgL_siza7eza7_1439, BgL_offsetz00_1440);
											BGl_classzd2evfieldszd2setz12z12zz__objectz00
												(BgL_claza7za7z00_1444, BgL_fieldsz00_1446);
											BGl_list2443z00zz__evobjectz00;
											BGl_list2450z00zz__evobjectz00;
										}
										return BgL_claza7za7z00_1444;
									}
								}
							}
						}
					}
				}
			}
		}

	}



/* &<@anonymous:1385> */
	obj_t BGl_z62zc3z04anonymousza31385ze3ze5zz__evobjectz00(obj_t
		BgL_envz00_4316, obj_t BgL_oz00_4319)
	{
		{	/* Eval/evobject.scm 163 */
			{	/* Eval/evobject.scm 164 */
				obj_t BgL_classnumz00_4317;
				long BgL_lengthz00_4318;

				BgL_classnumz00_4317 =
					((obj_t) PROCEDURE_REF(BgL_envz00_4316, (int) (0L)));
				BgL_lengthz00_4318 =
					(long) CINT(PROCEDURE_REF(BgL_envz00_4316, (int) (1L)));
				{	/* Eval/evobject.scm 164 */
					obj_t BgL_arg1386z00_4438;

					BgL_arg1386z00_4438 = CELL_REF(BgL_classnumz00_4317);
					{	/* Eval/evobject.scm 164 */
						long BgL_numz00_4439;

						BgL_numz00_4439 = (long) CINT(BgL_arg1386z00_4438);
						BGL_OBJECT_CLASS_NUM_SET(
							((BgL_objectz00_bglt) BgL_oz00_4319), BgL_numz00_4439);
				}}
				{	/* Eval/evobject.scm 165 */
					obj_t BgL_arg1387z00_4440;

					BgL_arg1387z00_4440 = make_vector(BgL_lengthz00_4318, BFALSE);
					BGl_z52objectzd2wideningzd2setz12z40zz__objectz00(
						((BgL_objectz00_bglt) BgL_oz00_4319), BgL_arg1387z00_4440);
				}
				return BgL_oz00_4319;
			}
		}

	}



/* &<@anonymous:1380> */
	obj_t BGl_z62zc3z04anonymousza31380ze3ze5zz__evobjectz00(obj_t
		BgL_envz00_4320)
	{
		{	/* Eval/evobject.scm 153 */
			{	/* Eval/evobject.scm 154 */
				obj_t BgL_allocz00_4321;
				obj_t BgL_classnumz00_4322;
				long BgL_lengthz00_4323;

				BgL_allocz00_4321 =
					((obj_t) PROCEDURE_REF(BgL_envz00_4320, (int) (0L)));
				BgL_classnumz00_4322 =
					((obj_t) PROCEDURE_REF(BgL_envz00_4320, (int) (1L)));
				BgL_lengthz00_4323 =
					(long) CINT(PROCEDURE_REF(BgL_envz00_4320, (int) (2L)));
				{	/* Eval/evobject.scm 154 */
					obj_t BgL_oz00_4441;

					BgL_oz00_4441 =
						(VA_PROCEDUREP(BgL_allocz00_4321) ? ((obj_t(*)(obj_t,
									...)) PROCEDURE_ENTRY(BgL_allocz00_4321)) (BgL_allocz00_4321,
							BEOA) : ((obj_t(*)(obj_t))
							PROCEDURE_ENTRY(BgL_allocz00_4321)) (BgL_allocz00_4321));
					{	/* Eval/evobject.scm 155 */
						obj_t BgL_arg1382z00_4442;

						BgL_arg1382z00_4442 = CELL_REF(BgL_classnumz00_4322);
						{	/* Eval/evobject.scm 155 */
							long BgL_numz00_4443;

							BgL_numz00_4443 = (long) CINT(BgL_arg1382z00_4442);
							BGL_OBJECT_CLASS_NUM_SET(
								((BgL_objectz00_bglt) BgL_oz00_4441), BgL_numz00_4443);
					}}
					{	/* Eval/evobject.scm 156 */
						obj_t BgL_arg1383z00_4444;

						BgL_arg1383z00_4444 = make_vector(BgL_lengthz00_4323, BUNSPEC);
						BGl_z52objectzd2wideningzd2setz12z40zz__objectz00(
							((BgL_objectz00_bglt) BgL_oz00_4441), BgL_arg1383z00_4444);
					}
					return BgL_oz00_4441;
				}
			}
		}

	}



/* 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_zc3z04anonymousza31450ze3z87_4325;
				obj_t BgL_zc3z04anonymousza31445ze3z87_4324;

				BgL_zc3z04anonymousza31450ze3z87_4325 =
					MAKE_FX_PROCEDURE(BGl_z62zc3z04anonymousza31450ze3ze5zz__evobjectz00,
					(int) (2L), (int) (3L));
				BgL_zc3z04anonymousza31445ze3z87_4324 =
					MAKE_FX_PROCEDURE(BGl_z62zc3z04anonymousza31445ze3ze5zz__evobjectz00,
					(int) (1L), (int) (3L));
				PROCEDURE_SET(BgL_zc3z04anonymousza31450ze3z87_4325,
					(int) (0L), BgL_sz00_71);
				PROCEDURE_SET(BgL_zc3z04anonymousza31450ze3z87_4325,
					(int) (1L), BgL_classz00_72);
				PROCEDURE_SET(BgL_zc3z04anonymousza31450ze3z87_4325,
					(int) (2L), BgL_indexz00_70);
				PROCEDURE_SET(BgL_zc3z04anonymousza31445ze3z87_4324,
					(int) (0L), BgL_sz00_71);
				PROCEDURE_SET(BgL_zc3z04anonymousza31445ze3z87_4324,
					(int) (1L), BgL_classz00_72);
				PROCEDURE_SET(BgL_zc3z04anonymousza31445ze3z87_4324,
					(int) (2L), BgL_indexz00_70);
				{	/* Eval/evobject.scm 274 */
					obj_t BgL_list1443z00_1486;

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

						BgL_arg1444z00_1487 =
							MAKE_YOUNG_PAIR(BgL_zc3z04anonymousza31450ze3z87_4325, BNIL);
						BgL_list1443z00_1486 =
							MAKE_YOUNG_PAIR(BgL_zc3z04anonymousza31445ze3z87_4324,
							BgL_arg1444z00_1487);
					}
					return BgL_list1443z00_1486;
				}
			}
		}

	}



/* &<@anonymous:1445> */
	obj_t BGl_z62zc3z04anonymousza31445ze3ze5zz__evobjectz00(obj_t
		BgL_envz00_4326, obj_t BgL_oz00_4330)
	{
		{	/* Eval/evobject.scm 275 */
			{	/* Eval/evobject.scm 276 */
				obj_t BgL_sz00_4327;
				obj_t BgL_classz00_4328;
				obj_t BgL_indexz00_4329;

				BgL_sz00_4327 = PROCEDURE_REF(BgL_envz00_4326, (int) (0L));
				BgL_classz00_4328 =
					((obj_t) PROCEDURE_REF(BgL_envz00_4326, (int) (1L)));
				BgL_indexz00_4329 = PROCEDURE_REF(BgL_envz00_4326, (int) (2L));
				{	/* Eval/evobject.scm 276 */
					bool_t BgL_test2653z00_5056;

					if (BGL_OBJECTP(BgL_oz00_4330))
						{	/* Eval/evobject.scm 276 */
							BgL_objectz00_bglt BgL_arg2382z00_4445;
							long BgL_arg2383z00_4446;

							BgL_arg2382z00_4445 = (BgL_objectz00_bglt) (BgL_oz00_4330);
							BgL_arg2383z00_4446 = BGL_CLASS_DEPTH(BgL_classz00_4328);
							if (BGL_CONDEXPAND_ISA_ARCH64())
								{	/* Eval/evobject.scm 276 */
									long BgL_idxz00_4447;

									BgL_idxz00_4447 =
										BGL_OBJECT_INHERITANCE_NUM(BgL_arg2382z00_4445);
									BgL_test2653z00_5056 =
										(VECTOR_REF(BGl_za2inheritancesza2z00zz__objectz00,
											(BgL_idxz00_4447 + BgL_arg2383z00_4446)) ==
										BgL_classz00_4328);
								}
							else
								{	/* Eval/evobject.scm 276 */
									bool_t BgL_res2407z00_4450;

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

										{	/* Eval/evobject.scm 276 */
											long BgL_arg2388z00_4452;

											{	/* Eval/evobject.scm 276 */
												long BgL_arg2389z00_4453;

												BgL_arg2389z00_4453 =
													BGL_OBJECT_CLASS_NUM(BgL_arg2382z00_4445);
												BgL_arg2388z00_4452 =
													(BgL_arg2389z00_4453 - OBJECT_TYPE);
											}
											BgL_oclassz00_4451 =
												VECTOR_REF(BGl_za2classesza2z00zz__objectz00,
												BgL_arg2388z00_4452);
										}
										{	/* Eval/evobject.scm 276 */
											bool_t BgL__ortest_1092z00_4454;

											BgL__ortest_1092z00_4454 =
												(BgL_classz00_4328 == BgL_oclassz00_4451);
											if (BgL__ortest_1092z00_4454)
												{	/* Eval/evobject.scm 276 */
													BgL_res2407z00_4450 = BgL__ortest_1092z00_4454;
												}
											else
												{	/* Eval/evobject.scm 276 */
													long BgL_odepthz00_4455;

													BgL_odepthz00_4455 =
														BGL_CLASS_DEPTH(BgL_oclassz00_4451);
													if ((BgL_arg2383z00_4446 < BgL_odepthz00_4455))
														{	/* Eval/evobject.scm 276 */
															obj_t BgL_arg2377z00_4456;

															BgL_arg2377z00_4456 =
																BGL_CLASS_ANCESTORS_REF(BgL_oclassz00_4451,
																BgL_arg2383z00_4446);
															BgL_res2407z00_4450 =
																(BgL_arg2377z00_4456 == BgL_classz00_4328);
														}
													else
														{	/* Eval/evobject.scm 276 */
															BgL_res2407z00_4450 = ((bool_t) 0);
														}
												}
										}
									}
									BgL_test2653z00_5056 = BgL_res2407z00_4450;
								}
						}
					else
						{	/* Eval/evobject.scm 276 */
							BgL_test2653z00_5056 = ((bool_t) 0);
						}
					if (BgL_test2653z00_5056)
						{	/* Eval/evobject.scm 277 */
							obj_t BgL_arg1447z00_4457;

							BgL_arg1447z00_4457 =
								BGl_z52objectzd2wideningz80zz__objectz00(
								((BgL_objectz00_bglt) BgL_oz00_4330));
							{	/* Eval/evobject.scm 277 */
								long BgL_kz00_4458;

								BgL_kz00_4458 = (long) CINT(BgL_indexz00_4329);
								return VECTOR_REF(((obj_t) BgL_arg1447z00_4457), BgL_kz00_4458);
							}
						}
					else
						{	/* Eval/evobject.scm 278 */
							obj_t BgL_arg1448z00_4459;
							obj_t BgL_arg1449z00_4460;

							BgL_arg1448z00_4459 =
								STRUCT_REF(((obj_t) BgL_sz00_4327), (int) (0L));
							BgL_arg1449z00_4460 =
								BGl_classzd2namezd2zz__objectz00(BgL_classz00_4328);
							return
								BGl_bigloozd2typezd2errorz00zz__errorz00(BgL_arg1448z00_4459,
								BgL_arg1449z00_4460, BgL_oz00_4330);
						}
				}
			}
		}

	}



/* &<@anonymous:1450> */
	obj_t BGl_z62zc3z04anonymousza31450ze3ze5zz__evobjectz00(obj_t
		BgL_envz00_4331, obj_t BgL_oz00_4335, obj_t BgL_vz00_4336)
	{
		{	/* Eval/evobject.scm 279 */
			{	/* Eval/evobject.scm 280 */
				obj_t BgL_sz00_4332;
				obj_t BgL_classz00_4333;
				obj_t BgL_indexz00_4334;

				BgL_sz00_4332 = PROCEDURE_REF(BgL_envz00_4331, (int) (0L));
				BgL_classz00_4333 =
					((obj_t) PROCEDURE_REF(BgL_envz00_4331, (int) (1L)));
				BgL_indexz00_4334 = PROCEDURE_REF(BgL_envz00_4331, (int) (2L));
				{	/* Eval/evobject.scm 280 */
					bool_t BgL_test2658z00_5094;

					if (BGL_OBJECTP(BgL_oz00_4335))
						{	/* Eval/evobject.scm 280 */
							BgL_objectz00_bglt BgL_arg2382z00_4461;
							long BgL_arg2383z00_4462;

							BgL_arg2382z00_4461 = (BgL_objectz00_bglt) (BgL_oz00_4335);
							BgL_arg2383z00_4462 = BGL_CLASS_DEPTH(BgL_classz00_4333);
							if (BGL_CONDEXPAND_ISA_ARCH64())
								{	/* Eval/evobject.scm 280 */
									long BgL_idxz00_4463;

									BgL_idxz00_4463 =
										BGL_OBJECT_INHERITANCE_NUM(BgL_arg2382z00_4461);
									BgL_test2658z00_5094 =
										(VECTOR_REF(BGl_za2inheritancesza2z00zz__objectz00,
											(BgL_idxz00_4463 + BgL_arg2383z00_4462)) ==
										BgL_classz00_4333);
								}
							else
								{	/* Eval/evobject.scm 280 */
									bool_t BgL_res2408z00_4466;

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

										{	/* Eval/evobject.scm 280 */
											long BgL_arg2388z00_4468;

											{	/* Eval/evobject.scm 280 */
												long BgL_arg2389z00_4469;

												BgL_arg2389z00_4469 =
													BGL_OBJECT_CLASS_NUM(BgL_arg2382z00_4461);
												BgL_arg2388z00_4468 =
													(BgL_arg2389z00_4469 - OBJECT_TYPE);
											}
											BgL_oclassz00_4467 =
												VECTOR_REF(BGl_za2classesza2z00zz__objectz00,
												BgL_arg2388z00_4468);
										}
										{	/* Eval/evobject.scm 280 */
											bool_t BgL__ortest_1092z00_4470;

											BgL__ortest_1092z00_4470 =
												(BgL_classz00_4333 == BgL_oclassz00_4467);
											if (BgL__ortest_1092z00_4470)
												{	/* Eval/evobject.scm 280 */
													BgL_res2408z00_4466 = BgL__ortest_1092z00_4470;
												}
											else
												{	/* Eval/evobject.scm 280 */
													long BgL_odepthz00_4471;

													BgL_odepthz00_4471 =
														BGL_CLASS_DEPTH(BgL_oclassz00_4467);
													if ((BgL_arg2383z00_4462 < BgL_odepthz00_4471))
														{	/* Eval/evobject.scm 280 */
															obj_t BgL_arg2377z00_4472;

															BgL_arg2377z00_4472 =
																BGL_CLASS_ANCESTORS_REF(BgL_oclassz00_4467,
																BgL_arg2383z00_4462);
															BgL_res2408z00_4466 =
																(BgL_arg2377z00_4472 == BgL_classz00_4333);
														}
													else
														{	/* Eval/evobject.scm 280 */
															BgL_res2408z00_4466 = ((bool_t) 0);
														}
												}
										}
									}
									BgL_test2658z00_5094 = BgL_res2408z00_4466;
								}
						}
					else
						{	/* Eval/evobject.scm 280 */
							BgL_test2658z00_5094 = ((bool_t) 0);
						}
					if (BgL_test2658z00_5094)
						{	/* Eval/evobject.scm 281 */
							obj_t BgL_arg1452z00_4473;

							BgL_arg1452z00_4473 =
								BGl_z52objectzd2wideningz80zz__objectz00(
								((BgL_objectz00_bglt) BgL_oz00_4335));
							{	/* Eval/evobject.scm 281 */
								long BgL_kz00_4474;

								BgL_kz00_4474 = (long) CINT(BgL_indexz00_4334);
								return
									VECTOR_SET(
									((obj_t) BgL_arg1452z00_4473), BgL_kz00_4474, BgL_vz00_4336);
							}
						}
					else
						{	/* Eval/evobject.scm 282 */
							obj_t BgL_arg1453z00_4475;
							obj_t BgL_arg1454z00_4476;

							BgL_arg1453z00_4475 =
								STRUCT_REF(((obj_t) BgL_sz00_4332), (int) (0L));
							BgL_arg1454z00_4476 =
								BGl_classzd2namezd2zz__objectz00(BgL_classz00_4333);
							return
								BGl_bigloozd2typezd2errorz00zz__errorz00(BgL_arg1453z00_4475,
								BgL_arg1454z00_4476, BgL_oz00_4335);
						}
				}
			}
		}

	}



/* 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_1560;
				obj_t BgL_iz00_1561;
				obj_t BgL_classz00_1562;

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

					{	/* Eval/evobject.scm 312 */
						obj_t BgL_arg1456z00_1506;
						obj_t BgL_arg1457z00_1507;

						{	/* Eval/evobject.scm 312 */
							obj_t BgL_ll1118z00_1508;
							obj_t BgL_ll1119z00_1509;

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

								BgL_hook1117z00_1525 = MAKE_YOUNG_PAIR(BFALSE, BNIL);
								{
									obj_t BgL_l1114z00_1527;
									obj_t BgL_h1115z00_1528;

									BgL_l1114z00_1527 = BgL_slotsz00_75;
									BgL_h1115z00_1528 = BgL_hook1117z00_1525;
								BgL_zc3z04anonymousza31464ze3z87_1529:
									if (NULLP(BgL_l1114z00_1527))
										{	/* Eval/evobject.scm 314 */
											BgL_ll1118z00_1508 = CDR(BgL_hook1117z00_1525);
										}
									else
										{	/* Eval/evobject.scm 314 */
											bool_t BgL_test2664z00_5129;

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

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

													BgL_sz00_3177 = CAR(((obj_t) BgL_l1114z00_1527));
													BgL_test2665z00_5130 =
														CBOOL(STRUCT_REF(BgL_sz00_3177, (int) (5L)));
												}
												if (BgL_test2665z00_5130)
													{	/* Eval/evobject.scm 314 */
														BgL_test2664z00_5129 = ((bool_t) 0);
													}
												else
													{	/* Eval/evobject.scm 314 */
														BgL_test2664z00_5129 = ((bool_t) 1);
													}
											}
											if (BgL_test2664z00_5129)
												{	/* Eval/evobject.scm 314 */
													obj_t BgL_nh1116z00_1534;

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

														BgL_arg1469z00_1536 =
															CAR(((obj_t) BgL_l1114z00_1527));
														BgL_nh1116z00_1534 =
															MAKE_YOUNG_PAIR(BgL_arg1469z00_1536, BNIL);
													}
													SET_CDR(BgL_h1115z00_1528, BgL_nh1116z00_1534);
													{	/* Eval/evobject.scm 314 */
														obj_t BgL_arg1468z00_1535;

														BgL_arg1468z00_1535 =
															CDR(((obj_t) BgL_l1114z00_1527));
														{
															obj_t BgL_h1115z00_5143;
															obj_t BgL_l1114z00_5142;

															BgL_l1114z00_5142 = BgL_arg1468z00_1535;
															BgL_h1115z00_5143 = BgL_nh1116z00_1534;
															BgL_h1115z00_1528 = BgL_h1115z00_5143;
															BgL_l1114z00_1527 = BgL_l1114z00_5142;
															goto BgL_zc3z04anonymousza31464ze3z87_1529;
														}
													}
												}
											else
												{	/* Eval/evobject.scm 314 */
													obj_t BgL_arg1471z00_1537;

													BgL_arg1471z00_1537 =
														CDR(((obj_t) BgL_l1114z00_1527));
													{
														obj_t BgL_l1114z00_5146;

														BgL_l1114z00_5146 = BgL_arg1471z00_1537;
														BgL_l1114z00_1527 = BgL_l1114z00_5146;
														goto BgL_zc3z04anonymousza31464ze3z87_1529;
													}
												}
										}
								}
							}
							{	/* Eval/evobject.scm 315 */
								obj_t BgL_list1472z00_1541;

								BgL_list1472z00_1541 = MAKE_YOUNG_PAIR(BgL_offsetz00_77, BNIL);
								BgL_ll1119z00_1509 =
									BGl_iotaz00zz__r4_pairs_and_lists_6_3z00(
									(int) (BgL_siza7eza7_76), BgL_list1472z00_1541);
							}
							if (NULLP(BgL_ll1118z00_1508))
								{	/* Eval/evobject.scm 312 */
									BgL_arg1456z00_1506 = BNIL;
								}
							else
								{	/* Eval/evobject.scm 312 */
									obj_t BgL_head1120z00_1511;

									BgL_head1120z00_1511 = MAKE_YOUNG_PAIR(BNIL, BNIL);
									{
										obj_t BgL_ll1118z00_3209;
										obj_t BgL_ll1119z00_3210;
										obj_t BgL_tail1121z00_3211;

										BgL_ll1118z00_3209 = BgL_ll1118z00_1508;
										BgL_ll1119z00_3210 = BgL_ll1119z00_1509;
										BgL_tail1121z00_3211 = BgL_head1120z00_1511;
									BgL_zc3z04anonymousza31459ze3z87_3208:
										if (NULLP(BgL_ll1118z00_3209))
											{	/* Eval/evobject.scm 312 */
												BgL_arg1456z00_1506 = CDR(BgL_head1120z00_1511);
											}
										else
											{	/* Eval/evobject.scm 312 */
												obj_t BgL_newtail1122z00_3220;

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

													{	/* Eval/evobject.scm 312 */
														obj_t BgL_slotz00_3222;
														obj_t BgL_indexz00_3223;

														BgL_slotz00_3222 =
															CAR(((obj_t) BgL_ll1118z00_3209));
														BgL_indexz00_3223 =
															CAR(((obj_t) BgL_ll1119z00_3210));
														BgL_sz00_1560 = BgL_slotz00_3222;
														BgL_iz00_1561 = BgL_indexz00_3223;
														BgL_classz00_1562 = BgL_classz00_74;
														{	/* Eval/evobject.scm 299 */
															obj_t BgL_defsz00_1564;

															BgL_defsz00_1564 =
																BGl_classgenzd2slotzd2anonymousz00zz__evobjectz00
																(BgL_iz00_1561, BgL_sz00_1560,
																BgL_classz00_1562);
															{	/* Eval/evobject.scm 301 */
																obj_t BgL_arg1491z00_1565;
																obj_t BgL_arg1492z00_1566;
																obj_t BgL_arg1493z00_1567;
																obj_t BgL_arg1494z00_1568;
																obj_t BgL_arg1495z00_1569;
																obj_t BgL_arg1496z00_1570;
																obj_t BgL_arg1497z00_1571;

																BgL_arg1491z00_1565 =
																	STRUCT_REF(
																	((obj_t) BgL_sz00_1560), (int) (0L));
																BgL_arg1492z00_1566 =
																	CAR(((obj_t) BgL_defsz00_1564));
																{	/* Eval/evobject.scm 302 */
																	obj_t BgL_pairz00_3170;

																	BgL_pairz00_3170 =
																		CDR(((obj_t) BgL_defsz00_1564));
																	BgL_arg1493z00_1567 = CAR(BgL_pairz00_3170);
																}
																BgL_arg1494z00_1568 =
																	STRUCT_REF(
																	((obj_t) BgL_sz00_1560), (int) (2L));
																{	/* Eval/evobject.scm 304 */
																	obj_t BgL_arg1498z00_1572;

																	BgL_arg1498z00_1572 =
																		STRUCT_REF(
																		((obj_t) BgL_sz00_1560), (int) (7L));
																	{	/* Eval/eval.scm 82 */
																		obj_t BgL_envz00_1574;

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

																			BgL_arg1495z00_1569 =
																				BGl_evalz12z12zz__evalz00
																				(BgL_arg1498z00_1572, BgL_envz00_1574);
																}}}
																BgL_arg1496z00_1570 =
																	STRUCT_REF(
																	((obj_t) BgL_sz00_1560), (int) (3L));
																BgL_arg1497z00_1571 =
																	STRUCT_REF(
																	((obj_t) BgL_sz00_1560), (int) (1L));
																BgL_arg1463z00_3221 =
																	BGl_makezd2classzd2fieldz00zz__objectz00
																	(BgL_arg1491z00_1565, BgL_arg1492z00_1566,
																	BgL_arg1493z00_1567,
																	CBOOL(BgL_arg1494z00_1568), ((bool_t) 0),
																	BgL_arg1495z00_1569, BgL_arg1496z00_1570,
																	BgL_arg1497z00_1571);
													}}}
													BgL_newtail1122z00_3220 =
														MAKE_YOUNG_PAIR(BgL_arg1463z00_3221, BNIL);
												}
												SET_CDR(BgL_tail1121z00_3211, BgL_newtail1122z00_3220);
												{	/* Eval/evobject.scm 312 */
													obj_t BgL_arg1461z00_3224;
													obj_t BgL_arg1462z00_3225;

													BgL_arg1461z00_3224 =
														CDR(((obj_t) BgL_ll1118z00_3209));
													BgL_arg1462z00_3225 =
														CDR(((obj_t) BgL_ll1119z00_3210));
													{
														obj_t BgL_tail1121z00_5193;
														obj_t BgL_ll1119z00_5192;
														obj_t BgL_ll1118z00_5191;

														BgL_ll1118z00_5191 = BgL_arg1461z00_3224;
														BgL_ll1119z00_5192 = BgL_arg1462z00_3225;
														BgL_tail1121z00_5193 = BgL_newtail1122z00_3220;
														BgL_tail1121z00_3211 = BgL_tail1121z00_5193;
														BgL_ll1119z00_3210 = BgL_ll1119z00_5192;
														BgL_ll1118z00_3209 = BgL_ll1118z00_5191;
														goto BgL_zc3z04anonymousza31459ze3z87_3208;
													}
												}
											}
									}
								}
						}
						{	/* Eval/evobject.scm 316 */
							obj_t BgL_list1474z00_1543;

							BgL_list1474z00_1543 = MAKE_YOUNG_PAIR(BgL_slotsz00_75, BNIL);
							BgL_arg1457z00_1507 =
								BGl_filterzd2mapzd2zz__r4_control_features_6_9z00
								(BGl_proc2458z00zz__evobjectz00, BgL_list1474z00_1543);
						}
						BgL_arg1455z00_1505 =
							BGl_appendzd221011zd2zz__evobjectz00(BgL_arg1456z00_1506,
							BgL_arg1457z00_1507);
					}
					return
						BGl_listzd2ze3vectorz31zz__r4_vectors_6_8z00(BgL_arg1455z00_1505);
				}
			}
		}

	}



/* &<@anonymous:1475> */
	obj_t BGl_z62zc3z04anonymousza31475ze3ze5zz__evobjectz00(obj_t
		BgL_envz00_4338, obj_t BgL_slotz00_4339)
	{
		{	/* Eval/evobject.scm 316 */
			{
				obj_t BgL_sz00_4478;

				if (CBOOL(STRUCT_REF(((obj_t) BgL_slotz00_4339), (int) (5L))))
					{	/* Eval/evobject.scm 317 */
						BgL_sz00_4478 = BgL_slotz00_4339;
						{	/* Eval/evobject.scm 291 */
							obj_t BgL_arg1478z00_4479;
							obj_t BgL_arg1479z00_4480;
							obj_t BgL_arg1480z00_4481;
							obj_t BgL_arg1481z00_4482;
							obj_t BgL_arg1482z00_4483;
							obj_t BgL_arg1483z00_4484;
							obj_t BgL_arg1485z00_4485;

							BgL_arg1478z00_4479 =
								STRUCT_REF(((obj_t) BgL_sz00_4478), (int) (0L));
							BgL_arg1479z00_4480 =
								STRUCT_REF(((obj_t) BgL_sz00_4478), (int) (5L));
							BgL_arg1480z00_4481 =
								STRUCT_REF(((obj_t) BgL_sz00_4478), (int) (6L));
							BgL_arg1481z00_4482 =
								STRUCT_REF(((obj_t) BgL_sz00_4478), (int) (2L));
							{	/* Eval/evobject.scm 294 */
								obj_t BgL_arg1487z00_4486;

								BgL_arg1487z00_4486 =
									STRUCT_REF(((obj_t) BgL_sz00_4478), (int) (7L));
								{	/* Eval/evobject.scm 294 */
									obj_t BgL_envz00_4487;

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

										BgL_arg1482z00_4483 =
											BGl_evalz12z12zz__evalz00(BgL_arg1487z00_4486,
											BgL_envz00_4487);
							}}}
							BgL_arg1483z00_4484 =
								STRUCT_REF(((obj_t) BgL_sz00_4478), (int) (3L));
							BgL_arg1485z00_4485 =
								STRUCT_REF(((obj_t) BgL_sz00_4478), (int) (1L));
							return
								BGl_makezd2classzd2fieldz00zz__objectz00(BgL_arg1478z00_4479,
								BgL_arg1479z00_4480, BgL_arg1480z00_4481,
								CBOOL(BgL_arg1481z00_4482), ((bool_t) 1), BgL_arg1482z00_4483,
								BgL_arg1483z00_4484, BgL_arg1485z00_4485);
						}
					}
				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_arg1499z00_1577;

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

					BgL_list1501z00_1579 = MAKE_YOUNG_PAIR(BgL_slotsz00_78, BNIL);
					BgL_arg1499z00_1577 =
						BGl_filterzd2mapzd2zz__r4_control_features_6_9z00
						(BGl_proc2459z00zz__evobjectz00, BgL_list1501z00_1579);
				}
				return
					BGl_listzd2ze3vectorz31zz__r4_vectors_6_8z00(BgL_arg1499z00_1577);
			}
		}

	}



/* &<@anonymous:1502> */
	obj_t BGl_z62zc3z04anonymousza31502ze3ze5zz__evobjectz00(obj_t
		BgL_envz00_4341, obj_t BgL_slotz00_4342)
	{
		{	/* Eval/evobject.scm 326 */
			if (CBOOL(STRUCT_REF(((obj_t) BgL_slotz00_4342), (int) (5L))))
				{	/* Eval/evobject.scm 328 */
					obj_t BgL_arg1504z00_4488;
					obj_t BgL_arg1505z00_4489;

					BgL_arg1504z00_4488 =
						STRUCT_REF(((obj_t) BgL_slotz00_4342), (int) (4L));
					{	/* Eval/evobject.scm 329 */
						obj_t BgL_arg1506z00_4490;
						obj_t BgL_arg1507z00_4491;

						BgL_arg1506z00_4490 =
							STRUCT_REF(((obj_t) BgL_slotz00_4342), (int) (5L));
						BgL_arg1507z00_4491 =
							STRUCT_REF(((obj_t) BgL_slotz00_4342), (int) (6L));
						BgL_arg1505z00_4489 =
							MAKE_YOUNG_PAIR(BgL_arg1506z00_4490, BgL_arg1507z00_4491);
					}
					return MAKE_YOUNG_PAIR(BgL_arg1504z00_4488, BgL_arg1505z00_4489);
				}
			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_1588;

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

					{	/* Eval/evobject.scm 336 */
						obj_t BgL_arg1512z00_1591;
						obj_t BgL_arg1515z00_1592;

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

							BgL_symbolz00_3238 = BGl_symbol2460z00zz__evobjectz00;
							{	/* Eval/evobject.scm 336 */
								obj_t BgL_arg2221z00_3239;

								BgL_arg2221z00_3239 = SYMBOL_TO_STRING(BgL_symbolz00_3238);
								BgL_arg1512z00_1591 =
									BGl_stringzd2copyzd2zz__r4_strings_6_7z00
									(BgL_arg2221z00_3239);
							}
						}
						{	/* Eval/evobject.scm 336 */
							obj_t BgL_arg1516z00_1593;

							BgL_arg1516z00_1593 =
								BGl_classzd2namezd2zz__objectz00(BgL_classz00_79);
							{	/* Eval/evobject.scm 336 */
								obj_t BgL_arg2221z00_3241;

								BgL_arg2221z00_3241 = SYMBOL_TO_STRING(BgL_arg1516z00_1593);
								BgL_arg1515z00_1592 =
									BGl_stringzd2copyzd2zz__r4_strings_6_7z00
									(BgL_arg2221z00_3241);
							}
						}
						BgL_arg1509z00_1590 =
							string_append(BgL_arg1512z00_1591, BgL_arg1515z00_1592);
					}
					BgL_widz00_1588 = bstring_to_symbol(BgL_arg1509z00_1590);
				}
				return
					BGl_installzd2expanderzd2zz__macroz00(BgL_widz00_1588,
					BGl_evalzd2instantiatezd2expanderz00zz__evobjectz00(BgL_classz00_79));
			}
		}

	}



/* &eval-expand-instantiate */
	obj_t BGl_z62evalzd2expandzd2instantiatez62zz__evobjectz00(obj_t
		BgL_envz00_4343, obj_t BgL_classz00_4344)
	{
		{	/* Eval/evobject.scm 335 */
			{	/* Eval/evobject.scm 336 */
				obj_t BgL_auxz00_5256;

				if (BGl_classzf3zf3zz__objectz00(BgL_classz00_4344))
					{	/* Eval/evobject.scm 336 */
						BgL_auxz00_5256 = BgL_classz00_4344;
					}
				else
					{
						obj_t BgL_auxz00_5259;

						BgL_auxz00_5259 =
							BGl_typezd2errorzd2zz__errorz00(BGl_string2462z00zz__evobjectz00,
							BINT(12797L), BGl_string2463z00zz__evobjectz00,
							BGl_string2464z00zz__evobjectz00, BgL_classz00_4344);
						FAILURE(BgL_auxz00_5259, BFALSE, BFALSE);
					}
				return
					BGl_evalzd2expandzd2instantiatez00zz__evobjectz00(BgL_auxz00_5256);
			}
		}

	}



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

				BgL_zc3z04anonymousza31517ze3z87_4345 =
					MAKE_FX_PROCEDURE(BGl_z62zc3z04anonymousza31517ze3ze5zz__evobjectz00,
					(int) (2L), (int) (1L));
				PROCEDURE_SET(BgL_zc3z04anonymousza31517ze3z87_4345,
					(int) (0L), BgL_classz00_80);
				return BgL_zc3z04anonymousza31517ze3z87_4345;
			}
		}

	}



/* &<@anonymous:1517> */
	obj_t BGl_z62zc3z04anonymousza31517ze3ze5zz__evobjectz00(obj_t
		BgL_envz00_4346, obj_t BgL_xz00_4348, obj_t BgL_ez00_4349)
	{
		{	/* Eval/evobject.scm 344 */
			{	/* Eval/evobject.scm 345 */
				obj_t BgL_classz00_4347;

				BgL_classz00_4347 =
					((obj_t) PROCEDURE_REF(BgL_envz00_4346, (int) (0L)));
				{	/* Eval/evobject.scm 345 */
					obj_t BgL_arg1518z00_4492;
					obj_t BgL_arg1519z00_4493;
					obj_t BgL_arg1520z00_4494;
					obj_t BgL_arg1521z00_4495;

					BgL_arg1518z00_4492 = CAR(((obj_t) BgL_xz00_4348));
					BgL_arg1519z00_4493 = CDR(((obj_t) BgL_xz00_4348));
					BgL_arg1520z00_4494 = BGL_CLASS_ALL_FIELDS(BgL_classz00_4347);
					{	/* Eval/evobject.scm 347 */
						obj_t BgL_arg1522z00_4496;

						BgL_arg1522z00_4496 =
							MAKE_YOUNG_PAIR(BGl_classzd2allocatorzd2zz__objectz00
							(BgL_classz00_4347), BNIL);
						BgL_arg1521z00_4495 =
							BGl_localiza7eza7zz__evobjectz00(BgL_xz00_4348,
							BgL_arg1522z00_4496);
					}
					return
						BGl_instantiatezd2fillzd2zz__evobjectz00(BgL_arg1518z00_4492,
						BgL_arg1519z00_4493, BgL_classz00_4347, BgL_arg1520z00_4494,
						BgL_arg1521z00_4495, BgL_xz00_4348, BgL_ez00_4349);
				}
			}
		}

	}



/* 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_1698;
				obj_t BgL_fieldsz00_1699;
				obj_t BgL_fieldsz00_1654;

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

					BgL_newz00_1605 =
						BGl_gensymz00zz__r4_symbols_6_4z00
						(BGl_symbol2473z00zz__evobjectz00);
					{	/* Eval/evobject.scm 403 */
						obj_t BgL_argsz00_1606;

						BgL_fieldsz00_1654 = BgL_fieldsz00_84;
						{	/* Eval/evobject.scm 355 */
							obj_t BgL_vargsz00_1657;

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

								{
									long BgL_iz00_1659;

									BgL_iz00_1659 = 0L;
								BgL_zc3z04anonymousza31579ze3z87_1660:
									if ((BgL_iz00_1659 < VECTOR_LENGTH(BgL_fieldsz00_1654)))
										{	/* Eval/evobject.scm 360 */
											obj_t BgL_sz00_1662;

											BgL_sz00_1662 =
												VECTOR_REF(BgL_fieldsz00_1654, BgL_iz00_1659);
											if (BGl_classzd2fieldzd2defaultzd2valuezf3z21zz__objectz00
												(BgL_sz00_1662))
												{	/* Eval/evobject.scm 365 */
													obj_t BgL_arg1582z00_1664;

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

														{	/* Eval/evobject.scm 365 */
															obj_t BgL_arg1584z00_1666;
															obj_t BgL_arg1586z00_1667;

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

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

																	BgL_arg1589z00_1669 =
																		MAKE_YOUNG_PAIR
																		(BGl_symbol2465z00zz__evobjectz00, BNIL);
																	BgL_arg1587z00_1668 =
																		MAKE_YOUNG_PAIR
																		(BGl_symbol2467z00zz__evobjectz00,
																		BgL_arg1589z00_1669);
																}
																BgL_arg1584z00_1666 =
																	MAKE_YOUNG_PAIR
																	(BGl_symbol2469z00zz__evobjectz00,
																	BgL_arg1587z00_1668);
															}
															BgL_arg1586z00_1667 =
																MAKE_YOUNG_PAIR(BgL_sz00_1662, BNIL);
															BgL_arg1583z00_1665 =
																MAKE_YOUNG_PAIR(BgL_arg1584z00_1666,
																BgL_arg1586z00_1667);
														}
														BgL_arg1582z00_1664 =
															MAKE_YOUNG_PAIR(BTRUE, BgL_arg1583z00_1665);
													}
													VECTOR_SET(BgL_vargsz00_1657, BgL_iz00_1659,
														BgL_arg1582z00_1664);
												}
											else
												{	/* Eval/evobject.scm 368 */
													obj_t BgL_arg1590z00_1670;

													BgL_arg1590z00_1670 =
														MAKE_YOUNG_PAIR(BFALSE, BUNSPEC);
													VECTOR_SET(BgL_vargsz00_1657, BgL_iz00_1659,
														BgL_arg1590z00_1670);
												}
											{
												long BgL_iz00_5299;

												BgL_iz00_5299 = (BgL_iz00_1659 + 1L);
												BgL_iz00_1659 = BgL_iz00_5299;
												goto BgL_zc3z04anonymousza31579ze3z87_1660;
											}
										}
									else
										{	/* Eval/evobject.scm 359 */
											((bool_t) 0);
										}
								}
								{
									obj_t BgL_providedz00_1674;

									BgL_providedz00_1674 = BgL_providedz00_82;
								BgL_zc3z04anonymousza31592ze3z87_1675:
									if (PAIRP(BgL_providedz00_1674))
										{	/* Eval/evobject.scm 373 */
											obj_t BgL_pz00_1677;

											BgL_pz00_1677 = CAR(BgL_providedz00_1674);
											if (PAIRP(BgL_pz00_1677))
												{	/* Eval/evobject.scm 374 */
													obj_t BgL_carzd2108zd2_1684;
													obj_t BgL_cdrzd2109zd2_1685;

													BgL_carzd2108zd2_1684 = CAR(((obj_t) BgL_pz00_1677));
													BgL_cdrzd2109zd2_1685 = CDR(((obj_t) BgL_pz00_1677));
													if (SYMBOLP(BgL_carzd2108zd2_1684))
														{	/* Eval/evobject.scm 374 */
															if (PAIRP(BgL_cdrzd2109zd2_1685))
																{	/* Eval/evobject.scm 374 */
																	if (NULLP(CDR(BgL_cdrzd2109zd2_1685)))
																		{	/* Eval/evobject.scm 374 */
																			obj_t BgL_arg1600z00_1690;

																			BgL_arg1600z00_1690 =
																				CAR(BgL_cdrzd2109zd2_1685);
																			{	/* Eval/evobject.scm 377 */
																				obj_t BgL_pvalz00_3300;

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

																					BgL_arg1604z00_3301 =
																						BGl_findzd2fieldzd2offsetz00zz__evobjectz00
																						(BgL_fieldsz00_1654,
																						BgL_carzd2108zd2_1684, BgL_opz00_81,
																						BgL_pz00_1677);
																					BgL_pvalz00_3300 =
																						VECTOR_REF(BgL_vargsz00_1657,
																						(long) CINT(BgL_arg1604z00_3301));
																				}
																				{	/* Eval/evobject.scm 380 */
																					obj_t BgL_tmpz00_5321;

																					BgL_tmpz00_5321 =
																						((obj_t) BgL_pvalz00_3300);
																					SET_CAR(BgL_tmpz00_5321, BTRUE);
																				}
																				{	/* Eval/evobject.scm 381 */
																					obj_t BgL_arg1603z00_3302;

																					BgL_arg1603z00_3302 =
																						BGl_localiza7eza7zz__evobjectz00
																						(BgL_pz00_1677,
																						BgL_arg1600z00_1690);
																					{	/* Eval/evobject.scm 381 */
																						obj_t BgL_tmpz00_5325;

																						BgL_tmpz00_5325 =
																							((obj_t) BgL_pvalz00_3300);
																						SET_CDR(BgL_tmpz00_5325,
																							BgL_arg1603z00_3302);
																		}}}}
																	else
																		{	/* Eval/evobject.scm 374 */
																			BGl_expandzd2errorzd2zz__evobjectz00
																				(BgL_opz00_81,
																				BGl_string2471z00zz__evobjectz00,
																				BgL_pz00_1677);
																		}
																}
															else
																{	/* Eval/evobject.scm 374 */
																	BGl_expandzd2errorzd2zz__evobjectz00
																		(BgL_opz00_81,
																		BGl_string2471z00zz__evobjectz00,
																		BgL_pz00_1677);
																}
														}
													else
														{	/* Eval/evobject.scm 374 */
															BGl_expandzd2errorzd2zz__evobjectz00(BgL_opz00_81,
																BGl_string2471z00zz__evobjectz00,
																BgL_pz00_1677);
														}
												}
											else
												{	/* Eval/evobject.scm 374 */
													BGl_expandzd2errorzd2zz__evobjectz00(BgL_opz00_81,
														BGl_string2471z00zz__evobjectz00, BgL_pz00_1677);
												}
											{
												obj_t BgL_providedz00_5332;

												BgL_providedz00_5332 = CDR(BgL_providedz00_1674);
												BgL_providedz00_1674 = BgL_providedz00_5332;
												goto BgL_zc3z04anonymousza31592ze3z87_1675;
											}
										}
									else
										{	/* Eval/evobject.scm 372 */
											((bool_t) 0);
										}
								}
								BgL_argsz00_1606 = BgL_vargsz00_1657;
							}
						}
						{	/* Eval/evobject.scm 404 */

							BgL_argsz00_1698 = BgL_argsz00_1606;
							BgL_fieldsz00_1699 = BgL_fieldsz00_84;
							{
								long BgL_iz00_1703;

								BgL_iz00_1703 = 0L;
							BgL_zc3z04anonymousza31608ze3z87_1704:
								if ((BgL_iz00_1703 < VECTOR_LENGTH(BgL_fieldsz00_1699)))
									{	/* Eval/evobject.scm 391 */
										{	/* Eval/evobject.scm 392 */
											obj_t BgL_az00_1706;
											obj_t BgL_sz00_1707;

											BgL_az00_1706 =
												VECTOR_REF(BgL_argsz00_1698, BgL_iz00_1703);
											BgL_sz00_1707 =
												VECTOR_REF(BgL_fieldsz00_1699, BgL_iz00_1703);
											if (CBOOL(CAR(((obj_t) BgL_az00_1706))))
												{	/* Eval/evobject.scm 394 */
													BFALSE;
												}
											else
												{	/* Eval/evobject.scm 394 */
													if (BGl_classzd2fieldzd2virtualzf3zf3zz__objectz00
														(BgL_sz00_1707))
														{	/* Eval/evobject.scm 395 */
															BFALSE;
														}
													else
														{	/* Eval/evobject.scm 399 */
															obj_t BgL_arg1613z00_1710;

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

																BgL_arg1614z00_1711 =
																	BGl_classzd2fieldzd2namez00zz__objectz00
																	(BgL_sz00_1707);
																{	/* Eval/evobject.scm 398 */
																	obj_t BgL_list1615z00_1712;

																	BgL_list1615z00_1712 =
																		MAKE_YOUNG_PAIR(BgL_arg1614z00_1711, BNIL);
																	BgL_arg1613z00_1710 =
																		BGl_formatz00zz__r4_output_6_10_3z00
																		(BGl_string2472z00zz__evobjectz00,
																		BgL_list1615z00_1712);
																}
															}
															BGl_expandzd2errorzd2zz__evobjectz00(BgL_opz00_81,
																BgL_arg1613z00_1710, BgL_xz00_86);
														}
												}
										}
										{
											long BgL_iz00_5349;

											BgL_iz00_5349 = (BgL_iz00_1703 + 1L);
											BgL_iz00_1703 = BgL_iz00_5349;
											goto BgL_zc3z04anonymousza31608ze3z87_1704;
										}
									}
								else
									{	/* Eval/evobject.scm 391 */
										((bool_t) 0);
									}
							}
							{	/* Eval/evobject.scm 410 */
								obj_t BgL_arg1524z00_1607;

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

									{	/* Eval/evobject.scm 410 */
										obj_t BgL_arg1526z00_1609;
										obj_t BgL_arg1528z00_1610;

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

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

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

													BgL_arg1534z00_1613 =
														(VA_PROCEDUREP(BgL_ez00_87) ? ((obj_t(*)(obj_t,
																	...))
															PROCEDURE_ENTRY(BgL_ez00_87)) (BgL_ez00_87,
															BgL_initz00_85, BgL_ez00_87,
															BEOA) : ((obj_t(*)(obj_t, obj_t,
																	obj_t))
															PROCEDURE_ENTRY(BgL_ez00_87)) (BgL_ez00_87,
															BgL_initz00_85, BgL_ez00_87));
													BgL_arg1532z00_1612 =
														MAKE_YOUNG_PAIR(BgL_arg1534z00_1613, BNIL);
												}
												BgL_arg1531z00_1611 =
													MAKE_YOUNG_PAIR(BgL_newz00_1605, BgL_arg1532z00_1612);
											}
											BgL_arg1526z00_1609 =
												MAKE_YOUNG_PAIR(BgL_arg1531z00_1611, BNIL);
										}
										{	/* Eval/evobject.scm 415 */
											obj_t BgL_arg1535z00_1614;

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

												{	/* Eval/evobject.scm 415 */
													obj_t BgL_arg1541z00_1616;
													obj_t BgL_arg1542z00_1617;

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

														{
															int BgL_tmpz00_5359;

															BgL_tmpz00_5359 = (int) (2L);
															BgL_zc3z04anonymousza31545ze3z87_4351 =
																MAKE_L_PROCEDURE
																(BGl_z62zc3z04anonymousza31545ze3ze5zz__evobjectz00,
																BgL_tmpz00_5359);
														}
														PROCEDURE_L_SET
															(BgL_zc3z04anonymousza31545ze3z87_4351,
															(int) (0L), BgL_ez00_87);
														PROCEDURE_L_SET
															(BgL_zc3z04anonymousza31545ze3z87_4351,
															(int) (1L), BgL_newz00_1605);
														BgL_arg1541z00_1616 =
															BGl_vectorzd2filterzd2mapz00zz__evobjectz00
															(BgL_zc3z04anonymousza31545ze3z87_4351,
															BgL_fieldsz00_84, BgL_argsz00_1606);
													}
													{	/* Eval/evobject.scm 421 */
														obj_t BgL_arg1554z00_1630;
														obj_t BgL_arg1555z00_1631;

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

															{
																obj_t BgL_cz00_3319;

																BgL_cz00_3319 = BgL_classz00_83;
															BgL_findzd2classzd2constructorz00_3318:
																{	/* Eval/evobject.scm 259 */
																	obj_t BgL_constz00_3323;

																	BgL_constz00_3323 =
																		BGl_classzd2constructorzd2zz__objectz00
																		(BgL_cz00_3319);
																	if (CBOOL(BgL_constz00_3323))
																		{	/* Eval/evobject.scm 260 */
																			BgL_constrz00_1632 = BgL_constz00_3323;
																		}
																	else
																		{	/* Eval/evobject.scm 262 */
																			obj_t BgL_sz00_3324;

																			BgL_sz00_3324 =
																				BGl_classzd2superzd2zz__objectz00
																				(BgL_cz00_3319);
																			if (BGl_classzf3zf3zz__objectz00
																				(BgL_sz00_3324))
																				{
																					obj_t BgL_cz00_5373;

																					BgL_cz00_5373 = BgL_sz00_3324;
																					BgL_cz00_3319 = BgL_cz00_5373;
																					goto
																						BgL_findzd2classzd2constructorz00_3318;
																				}
																			else
																				{	/* Eval/evobject.scm 263 */
																					BgL_constrz00_1632 = BFALSE;
																				}
																		}
																}
															}
															if (CBOOL(BgL_constrz00_1632))
																{	/* Eval/evobject.scm 423 */
																	obj_t BgL_arg1556z00_1633;

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

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

																			BgL_arg1558z00_1635 =
																				MAKE_YOUNG_PAIR(BgL_newz00_1605, BNIL);
																			BgL_arg1557z00_1634 =
																				MAKE_YOUNG_PAIR(BgL_constrz00_1632,
																				BgL_arg1558z00_1635);
																		}
																		BgL_arg1556z00_1633 =
																			BGl_localiza7eza7zz__evobjectz00
																			(BgL_xz00_86, BgL_arg1557z00_1634);
																	}
																	BgL_arg1554z00_1630 =
																		(VA_PROCEDUREP(BgL_ez00_87)
																		? ((obj_t(*)(obj_t,
																					...))
																			PROCEDURE_ENTRY(BgL_ez00_87))
																		(BgL_ez00_87, BgL_arg1556z00_1633,
																			BgL_ez00_87, BEOA) : ((obj_t(*)(obj_t,
																					obj_t,
																					obj_t))
																			PROCEDURE_ENTRY(BgL_ez00_87))
																		(BgL_ez00_87, BgL_arg1556z00_1633,
																			BgL_ez00_87));
																}
															else
																{	/* Eval/evobject.scm 422 */
																	BgL_arg1554z00_1630 = BFALSE;
																}
														}
														{	/* Eval/evobject.scm 427 */
															obj_t BgL_arg1559z00_1636;
															obj_t BgL_arg1560z00_1637;

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

																{
																	int BgL_tmpz00_5384;

																	BgL_tmpz00_5384 = (int) (2L);
																	BgL_zc3z04anonymousza31564ze3z87_4350 =
																		MAKE_L_PROCEDURE
																		(BGl_z62zc3z04anonymousza31564ze3ze5zz__evobjectz00,
																		BgL_tmpz00_5384);
																}
																PROCEDURE_L_SET
																	(BgL_zc3z04anonymousza31564ze3z87_4350,
																	(int) (0L), BgL_ez00_87);
																PROCEDURE_L_SET
																	(BgL_zc3z04anonymousza31564ze3z87_4350,
																	(int) (1L), BgL_newz00_1605);
																BgL_arg1559z00_1636 =
																	BGl_vectorzd2filterzd2mapz00zz__evobjectz00
																	(BgL_zc3z04anonymousza31564ze3z87_4350,
																	BgL_fieldsz00_84, BgL_argsz00_1606);
															}
															BgL_arg1560z00_1637 =
																MAKE_YOUNG_PAIR(BgL_newz00_1605, BNIL);
															BgL_arg1555z00_1631 =
																BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00
																(BgL_arg1559z00_1636, BgL_arg1560z00_1637);
														}
														BgL_arg1542z00_1617 =
															MAKE_YOUNG_PAIR(BgL_arg1554z00_1630,
															BgL_arg1555z00_1631);
													}
													BgL_arg1536z00_1615 =
														BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00
														(BgL_arg1541z00_1616, BgL_arg1542z00_1617);
												}
												BgL_arg1535z00_1614 =
													MAKE_YOUNG_PAIR(BGl_symbol2475z00zz__evobjectz00,
													BgL_arg1536z00_1615);
											}
											BgL_arg1528z00_1610 =
												MAKE_YOUNG_PAIR(BgL_arg1535z00_1614, BNIL);
										}
										BgL_arg1525z00_1608 =
											MAKE_YOUNG_PAIR(BgL_arg1526z00_1609, BgL_arg1528z00_1610);
									}
									BgL_arg1524z00_1607 =
										MAKE_YOUNG_PAIR(BGl_symbol2477z00zz__evobjectz00,
										BgL_arg1525z00_1608);
								}
								return
									BGl_localiza7eza7zz__evobjectz00(BgL_xz00_86,
									BgL_arg1524z00_1607);
							}
						}
					}
				}
			}
		}

	}



/* &<@anonymous:1564> */
	obj_t BGl_z62zc3z04anonymousza31564ze3ze5zz__evobjectz00(obj_t
		BgL_envz00_4352, obj_t BgL_fieldz00_4355, obj_t BgL_valz00_4356)
	{
		{	/* Eval/evobject.scm 426 */
			{	/* Eval/evobject.scm 427 */
				obj_t BgL_ez00_4353;
				obj_t BgL_newz00_4354;

				BgL_ez00_4353 = PROCEDURE_L_REF(BgL_envz00_4352, (int) (0L));
				BgL_newz00_4354 =
					((obj_t) PROCEDURE_L_REF(BgL_envz00_4352, (int) (1L)));
				{	/* Eval/evobject.scm 427 */
					bool_t BgL_test2684z00_5406;

					if (BGl_classzd2fieldzd2virtualzf3zf3zz__objectz00(BgL_fieldz00_4355))
						{	/* Eval/evobject.scm 427 */
							if (BGl_classzd2fieldzd2mutablezf3zf3zz__objectz00
								(BgL_fieldz00_4355))
								{	/* Eval/evobject.scm 428 */
									BgL_test2684z00_5406 = CBOOL(CAR(((obj_t) BgL_valz00_4356)));
								}
							else
								{	/* Eval/evobject.scm 428 */
									BgL_test2684z00_5406 = ((bool_t) 0);
								}
						}
					else
						{	/* Eval/evobject.scm 427 */
							BgL_test2684z00_5406 = ((bool_t) 0);
						}
					if (BgL_test2684z00_5406)
						{	/* Eval/evobject.scm 430 */
							obj_t BgL_vz00_4497;

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

								BgL_arg1577z00_4498 = CDR(((obj_t) BgL_valz00_4356));
								BgL_vz00_4497 =
									(VA_PROCEDUREP(BgL_ez00_4353) ? ((obj_t(*)(obj_t,
												...)) PROCEDURE_ENTRY(BgL_ez00_4353)) (BgL_ez00_4353,
										BgL_arg1577z00_4498, BgL_ez00_4353,
										BEOA) : ((obj_t(*)(obj_t, obj_t,
												obj_t)) PROCEDURE_ENTRY(BgL_ez00_4353)) (BgL_ez00_4353,
										BgL_arg1577z00_4498, BgL_ez00_4353));
							}
							{	/* Eval/evobject.scm 432 */
								obj_t BgL_arg1568z00_4499;

								{	/* Eval/evobject.scm 432 */
									obj_t BgL_arg1569z00_4500;
									obj_t BgL_arg1575z00_4501;

									BgL_arg1569z00_4500 =
										BGl_classzd2fieldzd2mutatorz00zz__objectz00
										(BgL_fieldz00_4355);
									{	/* Eval/evobject.scm 432 */
										obj_t BgL_arg1576z00_4502;

										BgL_arg1576z00_4502 = MAKE_YOUNG_PAIR(BgL_vz00_4497, BNIL);
										BgL_arg1575z00_4501 =
											MAKE_YOUNG_PAIR(BgL_newz00_4354, BgL_arg1576z00_4502);
									}
									BgL_arg1568z00_4499 =
										MAKE_YOUNG_PAIR(BgL_arg1569z00_4500, BgL_arg1575z00_4501);
								}
								return
									BGl_localiza7eza7zz__evobjectz00(BgL_valz00_4356,
									BgL_arg1568z00_4499);
							}
						}
					else
						{	/* Eval/evobject.scm 427 */
							return BFALSE;
						}
				}
			}
		}

	}



/* &<@anonymous:1545> */
	obj_t BGl_z62zc3z04anonymousza31545ze3ze5zz__evobjectz00(obj_t
		BgL_envz00_4357, obj_t BgL_fieldz00_4360, obj_t BgL_valz00_4361)
	{
		{	/* Eval/evobject.scm 414 */
			{	/* Eval/evobject.scm 415 */
				obj_t BgL_ez00_4358;
				obj_t BgL_newz00_4359;

				BgL_ez00_4358 = PROCEDURE_L_REF(BgL_envz00_4357, (int) (0L));
				BgL_newz00_4359 =
					((obj_t) PROCEDURE_L_REF(BgL_envz00_4357, (int) (1L)));
				if (BGl_classzd2fieldzd2virtualzf3zf3zz__objectz00(BgL_fieldz00_4360))
					{	/* Eval/evobject.scm 415 */
						return BFALSE;
					}
				else
					{	/* Eval/evobject.scm 416 */
						obj_t BgL_vz00_4503;

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

							BgL_arg1553z00_4504 = CDR(((obj_t) BgL_valz00_4361));
							BgL_vz00_4503 =
								(VA_PROCEDUREP(BgL_ez00_4358) ? ((obj_t(*)(obj_t,
											...)) PROCEDURE_ENTRY(BgL_ez00_4358)) (BgL_ez00_4358,
									BgL_arg1553z00_4504, BgL_ez00_4358, BEOA) : ((obj_t(*)(obj_t,
											obj_t,
											obj_t)) PROCEDURE_ENTRY(BgL_ez00_4358)) (BgL_ez00_4358,
									BgL_arg1553z00_4504, BgL_ez00_4358));
						}
						{	/* Eval/evobject.scm 418 */
							obj_t BgL_arg1547z00_4505;

							{	/* Eval/evobject.scm 418 */
								obj_t BgL_arg1548z00_4506;
								obj_t BgL_arg1550z00_4507;

								BgL_arg1548z00_4506 =
									BGl_classzd2fieldzd2mutatorz00zz__objectz00
									(BgL_fieldz00_4360);
								{	/* Eval/evobject.scm 418 */
									obj_t BgL_arg1552z00_4508;

									BgL_arg1552z00_4508 = MAKE_YOUNG_PAIR(BgL_vz00_4503, BNIL);
									BgL_arg1550z00_4507 =
										MAKE_YOUNG_PAIR(BgL_newz00_4359, BgL_arg1552z00_4508);
								}
								BgL_arg1547z00_4505 =
									MAKE_YOUNG_PAIR(BgL_arg1548z00_4506, BgL_arg1550z00_4507);
							}
							return
								BGl_localiza7eza7zz__evobjectz00(BgL_valz00_4361,
								BgL_arg1547z00_4505);
						}
					}
			}
		}

	}



/* 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_3337;
				obj_t BgL_accz00_3338;

				BgL_iz00_3337 = 0L;
				BgL_accz00_3338 = BNIL;
			BgL_loopz00_3336:
				if ((BgL_iz00_3337 == VECTOR_LENGTH(BgL_v1z00_89)))
					{	/* Eval/evobject.scm 444 */
						return bgl_reverse_bang(BgL_accz00_3338);
					}
				else
					{	/* Eval/evobject.scm 446 */
						obj_t BgL_vz00_3342;

						{	/* Eval/evobject.scm 446 */
							obj_t BgL_arg1621z00_3343;
							obj_t BgL_arg1622z00_3344;

							BgL_arg1621z00_3343 = VECTOR_REF(BgL_v1z00_89, BgL_iz00_3337);
							BgL_arg1622z00_3344 = VECTOR_REF(BgL_v2z00_90, BgL_iz00_3337);
							BgL_vz00_3342 =
								((obj_t(*)(obj_t, obj_t,
										obj_t)) PROCEDURE_L_ENTRY(BgL_fz00_88)) (BgL_fz00_88,
								BgL_arg1621z00_3343, BgL_arg1622z00_3344);
						}
						{	/* Eval/evobject.scm 447 */
							long BgL_arg1619z00_3349;
							obj_t BgL_arg1620z00_3350;

							BgL_arg1619z00_3349 = (BgL_iz00_3337 + 1L);
							if (CBOOL(BgL_vz00_3342))
								{	/* Eval/evobject.scm 447 */
									BgL_arg1620z00_3350 =
										MAKE_YOUNG_PAIR(BgL_vz00_3342, BgL_accz00_3338);
								}
							else
								{	/* Eval/evobject.scm 447 */
									BgL_arg1620z00_3350 = BgL_accz00_3338;
								}
							{
								obj_t BgL_accz00_5461;
								long BgL_iz00_5460;

								BgL_iz00_5460 = BgL_arg1619z00_3349;
								BgL_accz00_5461 = BgL_arg1620z00_3350;
								BgL_accz00_3338 = BgL_accz00_5461;
								BgL_iz00_3337 = BgL_iz00_5460;
								goto BgL_loopz00_3336;
							}
						}
					}
			}
		}

	}



/* 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_1730;

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

					{	/* Eval/evobject.scm 453 */
						obj_t BgL_arg1626z00_1733;
						obj_t BgL_arg1627z00_1734;

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

							BgL_symbolz00_3352 = BGl_symbol2479z00zz__evobjectz00;
							{	/* Eval/evobject.scm 453 */
								obj_t BgL_arg2221z00_3353;

								BgL_arg2221z00_3353 = SYMBOL_TO_STRING(BgL_symbolz00_3352);
								BgL_arg1626z00_1733 =
									BGl_stringzd2copyzd2zz__r4_strings_6_7z00
									(BgL_arg2221z00_3353);
							}
						}
						{	/* Eval/evobject.scm 453 */
							obj_t BgL_arg1628z00_1735;

							BgL_arg1628z00_1735 =
								BGl_classzd2namezd2zz__objectz00(BgL_classz00_91);
							{	/* Eval/evobject.scm 453 */
								obj_t BgL_arg2221z00_3355;

								BgL_arg2221z00_3355 = SYMBOL_TO_STRING(BgL_arg1628z00_1735);
								BgL_arg1627z00_1734 =
									BGl_stringzd2copyzd2zz__r4_strings_6_7z00
									(BgL_arg2221z00_3355);
							}
						}
						BgL_arg1625z00_1732 =
							string_append(BgL_arg1626z00_1733, BgL_arg1627z00_1734);
					}
					BgL_didz00_1730 = bstring_to_symbol(BgL_arg1625z00_1732);
				}
				return
					BGl_installzd2expanderzd2zz__macroz00(BgL_didz00_1730,
					BGl_evalzd2duplicatezd2expanderz00zz__evobjectz00(BgL_classz00_91));
			}
		}

	}



/* &eval-expand-duplicate */
	obj_t BGl_z62evalzd2expandzd2duplicatez62zz__evobjectz00(obj_t
		BgL_envz00_4362, obj_t BgL_classz00_4363)
	{
		{	/* Eval/evobject.scm 452 */
			{	/* Eval/evobject.scm 453 */
				obj_t BgL_auxz00_5471;

				if (BGl_classzf3zf3zz__objectz00(BgL_classz00_4363))
					{	/* Eval/evobject.scm 453 */
						BgL_auxz00_5471 = BgL_classz00_4363;
					}
				else
					{
						obj_t BgL_auxz00_5474;

						BgL_auxz00_5474 =
							BGl_typezd2errorzd2zz__errorz00(BGl_string2462z00zz__evobjectz00,
							BINT(16779L), BGl_string2481z00zz__evobjectz00,
							BGl_string2464z00zz__evobjectz00, BgL_classz00_4363);
						FAILURE(BgL_auxz00_5474, BFALSE, BFALSE);
					}
				return BGl_evalzd2expandzd2duplicatez00zz__evobjectz00(BgL_auxz00_5471);
			}
		}

	}



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

				BgL_zc3z04anonymousza31629ze3z87_4364 =
					MAKE_FX_PROCEDURE(BGl_z62zc3z04anonymousza31629ze3ze5zz__evobjectz00,
					(int) (2L), (int) (1L));
				PROCEDURE_SET(BgL_zc3z04anonymousza31629ze3z87_4364,
					(int) (0L), BgL_classz00_92);
				return BgL_zc3z04anonymousza31629ze3z87_4364;
			}
		}

	}



/* &<@anonymous:1629> */
	obj_t BGl_z62zc3z04anonymousza31629ze3ze5zz__evobjectz00(obj_t
		BgL_envz00_4365, obj_t BgL_xz00_4367, obj_t BgL_ez00_4368)
	{
		{	/* Eval/evobject.scm 461 */
			{	/* Eval/evobject.scm 461 */
				obj_t BgL_classz00_4366;

				BgL_classz00_4366 =
					((obj_t) PROCEDURE_REF(BgL_envz00_4365, (int) (0L)));
				if (PAIRP(BgL_xz00_4367))
					{	/* Eval/evobject.scm 461 */
						obj_t BgL_cdrzd2127zd2_4509;

						BgL_cdrzd2127zd2_4509 = CDR(((obj_t) BgL_xz00_4367));
						if (PAIRP(BgL_cdrzd2127zd2_4509))
							{	/* Eval/evobject.scm 461 */
								return
									BGl_duplicatezd2expanderzd2zz__evobjectz00(BgL_classz00_4366,
									CAR(BgL_cdrzd2127zd2_4509),
									CDR(BgL_cdrzd2127zd2_4509), BgL_xz00_4367, BgL_ez00_4368);
							}
						else
							{	/* Eval/evobject.scm 461 */
								return
									BGl_expandzd2errorzd2zz__evobjectz00
									(BGl_string2482z00zz__evobjectz00,
									BGl_string2483z00zz__evobjectz00, BgL_xz00_4367);
							}
					}
				else
					{	/* Eval/evobject.scm 461 */
						return
							BGl_expandzd2errorzd2zz__evobjectz00
							(BGl_string2482z00zz__evobjectz00,
							BGl_string2483z00zz__evobjectz00, BgL_xz00_4367);
					}
			}
		}

	}



/* 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_1803;
				obj_t BgL_dupvarz00_1804;

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

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

						BgL_tmpz00_5498 = ((obj_t) BgL_classz00_93);
						BgL_fieldsz00_1752 = BGL_CLASS_ALL_FIELDS(BgL_tmpz00_5498);
					}
					{	/* Eval/evobject.scm 505 */
						obj_t BgL_newz00_1753;

						BgL_newz00_1753 =
							BGl_gensymz00zz__r4_symbols_6_4z00
							(BGl_symbol2473z00zz__evobjectz00);
						{	/* Eval/evobject.scm 506 */
							obj_t BgL_dupvarz00_1754;

							BgL_dupvarz00_1754 =
								BGl_gensymz00zz__r4_symbols_6_4z00
								(BGl_symbol2484z00zz__evobjectz00);
							{	/* Eval/evobject.scm 507 */
								obj_t BgL_argsz00_1755;

								BgL_fieldsz00_1803 = BgL_fieldsz00_1752;
								BgL_dupvarz00_1804 = BgL_dupvarz00_1754;
								{	/* Eval/evobject.scm 474 */
									obj_t BgL_vargsz00_1807;

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

										{
											obj_t BgL_providedz00_1809;

											BgL_providedz00_1809 = BgL_providedz00_95;
										BgL_zc3z04anonymousza31692ze3z87_1810:
											if (PAIRP(BgL_providedz00_1809))
												{	/* Eval/evobject.scm 479 */
													obj_t BgL_pz00_1812;

													BgL_pz00_1812 = CAR(BgL_providedz00_1809);
													if (PAIRP(BgL_pz00_1812))
														{	/* Eval/evobject.scm 480 */
															obj_t BgL_carzd2142zd2_1819;
															obj_t BgL_cdrzd2143zd2_1820;

															BgL_carzd2142zd2_1819 =
																CAR(((obj_t) BgL_pz00_1812));
															BgL_cdrzd2143zd2_1820 =
																CDR(((obj_t) BgL_pz00_1812));
															if (SYMBOLP(BgL_carzd2142zd2_1819))
																{	/* Eval/evobject.scm 480 */
																	if (PAIRP(BgL_cdrzd2143zd2_1820))
																		{	/* Eval/evobject.scm 480 */
																			if (NULLP(CDR(BgL_cdrzd2143zd2_1820)))
																				{	/* Eval/evobject.scm 480 */
																					obj_t BgL_arg1703z00_1825;

																					BgL_arg1703z00_1825 =
																						CAR(BgL_cdrzd2143zd2_1820);
																					{	/* Eval/evobject.scm 483 */
																						obj_t BgL_iz00_3444;

																						BgL_iz00_3444 =
																							BGl_findzd2fieldzd2offsetz00zz__evobjectz00
																							(BgL_fieldsz00_1803,
																							BgL_carzd2142zd2_1819,
																							BGl_string2482z00zz__evobjectz00,
																							BgL_pz00_1812);
																						{	/* Eval/evobject.scm 486 */
																							obj_t BgL_arg1706z00_3445;

																							BgL_arg1706z00_3445 =
																								MAKE_YOUNG_PAIR(BTRUE,
																								BGl_localiza7eza7zz__evobjectz00
																								(BgL_pz00_1812,
																									BgL_arg1703z00_1825));
																							VECTOR_SET(BgL_vargsz00_1807,
																								(long) CINT(BgL_iz00_3444),
																								BgL_arg1706z00_3445);
																				}}}
																			else
																				{	/* Eval/evobject.scm 480 */
																					BGl_expandzd2errorzd2zz__evobjectz00
																						(CAR(BgL_xz00_96),
																						BGl_string2483z00zz__evobjectz00,
																						BgL_xz00_96);
																				}
																		}
																	else
																		{	/* Eval/evobject.scm 480 */
																			BGl_expandzd2errorzd2zz__evobjectz00(CAR
																				(BgL_xz00_96),
																				BGl_string2483z00zz__evobjectz00,
																				BgL_xz00_96);
																		}
																}
															else
																{	/* Eval/evobject.scm 480 */
																	BGl_expandzd2errorzd2zz__evobjectz00(CAR
																		(BgL_xz00_96),
																		BGl_string2483z00zz__evobjectz00,
																		BgL_xz00_96);
																}
														}
													else
														{	/* Eval/evobject.scm 480 */
															BGl_expandzd2errorzd2zz__evobjectz00(CAR
																(BgL_xz00_96), BGl_string2483z00zz__evobjectz00,
																BgL_xz00_96);
														}
													{
														obj_t BgL_providedz00_5535;

														BgL_providedz00_5535 = CDR(BgL_providedz00_1809);
														BgL_providedz00_1809 = BgL_providedz00_5535;
														goto BgL_zc3z04anonymousza31692ze3z87_1810;
													}
												}
											else
												{	/* Eval/evobject.scm 478 */
													((bool_t) 0);
												}
										}
										{
											long BgL_iz00_1834;

											BgL_iz00_1834 = 0L;
										BgL_zc3z04anonymousza31710ze3z87_1835:
											if ((BgL_iz00_1834 < VECTOR_LENGTH(BgL_fieldsz00_1803)))
												{	/* Eval/evobject.scm 493 */
													obj_t BgL_valuez00_1837;

													BgL_valuez00_1837 =
														VECTOR_REF(BgL_vargsz00_1807, BgL_iz00_1834);
													if (PAIRP(BgL_valuez00_1837))
														{	/* Eval/evobject.scm 494 */
															BFALSE;
														}
													else
														{	/* Eval/evobject.scm 495 */
															obj_t BgL_fieldz00_1839;

															BgL_fieldz00_1839 =
																VECTOR_REF(BgL_fieldsz00_1803, BgL_iz00_1834);
															{	/* Eval/evobject.scm 500 */
																obj_t BgL_arg1713z00_1840;

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

																	{	/* Eval/evobject.scm 500 */
																		obj_t BgL_arg1715z00_1842;
																		obj_t BgL_arg1716z00_1843;

																		BgL_arg1715z00_1842 =
																			BGl_classzd2fieldzd2accessorz00zz__objectz00
																			(BgL_fieldz00_1839);
																		BgL_arg1716z00_1843 =
																			MAKE_YOUNG_PAIR(BgL_dupvarz00_1804, BNIL);
																		BgL_arg1714z00_1841 =
																			MAKE_YOUNG_PAIR(BgL_arg1715z00_1842,
																			BgL_arg1716z00_1843);
																	}
																	BgL_arg1713z00_1840 =
																		MAKE_YOUNG_PAIR(BTRUE, BgL_arg1714z00_1841);
																}
																VECTOR_SET(BgL_vargsz00_1807, BgL_iz00_1834,
																	BgL_arg1713z00_1840);
															}
														}
													{
														long BgL_iz00_5549;

														BgL_iz00_5549 = (BgL_iz00_1834 + 1L);
														BgL_iz00_1834 = BgL_iz00_5549;
														goto BgL_zc3z04anonymousza31710ze3z87_1835;
													}
												}
											else
												{	/* Eval/evobject.scm 492 */
													((bool_t) 0);
												}
										}
										BgL_argsz00_1755 = BgL_vargsz00_1807;
									}
								}
								{	/* Eval/evobject.scm 508 */

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

										{	/* Eval/evobject.scm 511 */
											obj_t BgL_arg1636z00_1757;
											obj_t BgL_arg1637z00_1758;

											{	/* Eval/evobject.scm 511 */
												obj_t BgL_arg1638z00_1759;
												obj_t BgL_arg1639z00_1760;

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

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

														BgL_arg1642z00_1762 =
															(VA_PROCEDUREP(BgL_ez00_97) ? ((obj_t(*)(obj_t,
																		...))
																PROCEDURE_ENTRY(BgL_ez00_97)) (BgL_ez00_97,
																BgL_duplicatedz00_94, BgL_ez00_97,
																BEOA) : ((obj_t(*)(obj_t, obj_t,
																		obj_t))
																PROCEDURE_ENTRY(BgL_ez00_97)) (BgL_ez00_97,
																BgL_duplicatedz00_94, BgL_ez00_97));
														BgL_arg1640z00_1761 =
															MAKE_YOUNG_PAIR(BgL_arg1642z00_1762, BNIL);
													}
													BgL_arg1638z00_1759 =
														MAKE_YOUNG_PAIR(BgL_dupvarz00_1754,
														BgL_arg1640z00_1761);
												}
												{	/* Eval/evobject.scm 512 */
													obj_t BgL_arg1643z00_1763;

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

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

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

																BgL_arg1649z00_1766 =
																	MAKE_YOUNG_PAIR
																	(BGl_classzd2allocatorzd2zz__objectz00
																	(BgL_classz00_93), BNIL);
																BgL_arg1645z00_1765 =
																	(VA_PROCEDUREP(BgL_ez00_97)
																	? ((obj_t(*)(obj_t,
																				...))
																		PROCEDURE_ENTRY(BgL_ez00_97)) (BgL_ez00_97,
																		BgL_arg1649z00_1766, BgL_ez00_97,
																		BEOA) : ((obj_t(*)(obj_t, obj_t,
																				obj_t))
																		PROCEDURE_ENTRY(BgL_ez00_97)) (BgL_ez00_97,
																		BgL_arg1649z00_1766, BgL_ez00_97));
															}
															BgL_arg1644z00_1764 =
																MAKE_YOUNG_PAIR(BgL_arg1645z00_1765, BNIL);
														}
														BgL_arg1643z00_1763 =
															MAKE_YOUNG_PAIR(BgL_newz00_1753,
															BgL_arg1644z00_1764);
													}
													BgL_arg1639z00_1760 =
														MAKE_YOUNG_PAIR(BgL_arg1643z00_1763, BNIL);
												}
												BgL_arg1636z00_1757 =
													MAKE_YOUNG_PAIR(BgL_arg1638z00_1759,
													BgL_arg1639z00_1760);
											}
											{	/* Eval/evobject.scm 517 */
												obj_t BgL_arg1654z00_1768;

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

													{	/* Eval/evobject.scm 517 */
														obj_t BgL_arg1656z00_1770;
														obj_t BgL_arg1658z00_1771;

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

															{
																int BgL_tmpz00_5569;

																BgL_tmpz00_5569 = (int) (2L);
																BgL_zc3z04anonymousza31660ze3z87_4370 =
																	MAKE_L_PROCEDURE
																	(BGl_z62zc3z04anonymousza31660ze3ze5zz__evobjectz00,
																	BgL_tmpz00_5569);
															}
															PROCEDURE_L_SET
																(BgL_zc3z04anonymousza31660ze3z87_4370,
																(int) (0L), BgL_ez00_97);
															PROCEDURE_L_SET
																(BgL_zc3z04anonymousza31660ze3z87_4370,
																(int) (1L), BgL_newz00_1753);
															BgL_arg1656z00_1770 =
																BGl_vectorzd2filterzd2mapz00zz__evobjectz00
																(BgL_zc3z04anonymousza31660ze3z87_4370,
																BgL_fieldsz00_1752, BgL_argsz00_1755);
														}
														{	/* Eval/evobject.scm 522 */
															obj_t BgL_arg1670z00_1783;
															obj_t BgL_arg1671z00_1784;

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

																{
																	obj_t BgL_cz00_3476;

																	BgL_cz00_3476 = BgL_classz00_93;
																BgL_findzd2classzd2constructorz00_3475:
																	{	/* Eval/evobject.scm 259 */
																		obj_t BgL_constz00_3480;

																		BgL_constz00_3480 =
																			BGl_classzd2constructorzd2zz__objectz00
																			(BgL_cz00_3476);
																		if (CBOOL(BgL_constz00_3480))
																			{	/* Eval/evobject.scm 260 */
																				BgL_constrz00_1785 = BgL_constz00_3480;
																			}
																		else
																			{	/* Eval/evobject.scm 262 */
																				obj_t BgL_sz00_3481;

																				BgL_sz00_3481 =
																					BGl_classzd2superzd2zz__objectz00
																					(BgL_cz00_3476);
																				if (BGl_classzf3zf3zz__objectz00
																					(BgL_sz00_3481))
																					{
																						obj_t BgL_cz00_5583;

																						BgL_cz00_5583 = BgL_sz00_3481;
																						BgL_cz00_3476 = BgL_cz00_5583;
																						goto
																							BgL_findzd2classzd2constructorz00_3475;
																					}
																				else
																					{	/* Eval/evobject.scm 263 */
																						BgL_constrz00_1785 = BFALSE;
																					}
																			}
																	}
																}
																if (CBOOL(BgL_constrz00_1785))
																	{	/* Eval/evobject.scm 524 */
																		obj_t BgL_arg1672z00_1786;

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

																			BgL_arg1673z00_1787 =
																				MAKE_YOUNG_PAIR(BgL_newz00_1753, BNIL);
																			BgL_arg1672z00_1786 =
																				MAKE_YOUNG_PAIR(BgL_constrz00_1785,
																				BgL_arg1673z00_1787);
																		}
																		BgL_arg1670z00_1783 =
																			(VA_PROCEDUREP(BgL_ez00_97)
																			? ((obj_t(*)(obj_t,
																						...))
																				PROCEDURE_ENTRY(BgL_ez00_97))
																			(BgL_ez00_97, BgL_arg1672z00_1786,
																				BgL_ez00_97, BEOA) : ((obj_t(*)(obj_t,
																						obj_t,
																						obj_t))
																				PROCEDURE_ENTRY(BgL_ez00_97))
																			(BgL_ez00_97, BgL_arg1672z00_1786,
																				BgL_ez00_97));
																	}
																else
																	{	/* Eval/evobject.scm 523 */
																		BgL_arg1670z00_1783 = BFALSE;
																	}
															}
															{	/* Eval/evobject.scm 528 */
																obj_t BgL_arg1675z00_1788;
																obj_t BgL_arg1678z00_1789;

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

																	{
																		int BgL_tmpz00_5593;

																		BgL_tmpz00_5593 = (int) (2L);
																		BgL_zc3z04anonymousza31682ze3z87_4369 =
																			MAKE_L_PROCEDURE
																			(BGl_z62zc3z04anonymousza31682ze3ze5zz__evobjectz00,
																			BgL_tmpz00_5593);
																	}
																	PROCEDURE_L_SET
																		(BgL_zc3z04anonymousza31682ze3z87_4369,
																		(int) (0L), BgL_ez00_97);
																	PROCEDURE_L_SET
																		(BgL_zc3z04anonymousza31682ze3z87_4369,
																		(int) (1L), BgL_newz00_1753);
																	BgL_arg1675z00_1788 =
																		BGl_vectorzd2filterzd2mapz00zz__evobjectz00
																		(BgL_zc3z04anonymousza31682ze3z87_4369,
																		BgL_fieldsz00_1752, BgL_argsz00_1755);
																}
																BgL_arg1678z00_1789 =
																	MAKE_YOUNG_PAIR(BgL_newz00_1753, BNIL);
																BgL_arg1671z00_1784 =
																	BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00
																	(BgL_arg1675z00_1788, BgL_arg1678z00_1789);
															}
															BgL_arg1658z00_1771 =
																MAKE_YOUNG_PAIR(BgL_arg1670z00_1783,
																BgL_arg1671z00_1784);
														}
														BgL_arg1655z00_1769 =
															BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00
															(BgL_arg1656z00_1770, BgL_arg1658z00_1771);
													}
													BgL_arg1654z00_1768 =
														MAKE_YOUNG_PAIR(BGl_symbol2475z00zz__evobjectz00,
														BgL_arg1655z00_1769);
												}
												BgL_arg1637z00_1758 =
													MAKE_YOUNG_PAIR(BgL_arg1654z00_1768, BNIL);
											}
											BgL_arg1635z00_1756 =
												MAKE_YOUNG_PAIR(BgL_arg1636z00_1757,
												BgL_arg1637z00_1758);
										}
										return
											MAKE_YOUNG_PAIR(BGl_symbol2477z00zz__evobjectz00,
											BgL_arg1635z00_1756);
									}
								}
							}
						}
					}
				}
			}
		}

	}



/* &<@anonymous:1682> */
	obj_t BGl_z62zc3z04anonymousza31682ze3ze5zz__evobjectz00(obj_t
		BgL_envz00_4371, obj_t BgL_fieldz00_4374, obj_t BgL_valz00_4375)
	{
		{	/* Eval/evobject.scm 527 */
			{	/* Eval/evobject.scm 528 */
				obj_t BgL_ez00_4372;
				obj_t BgL_newz00_4373;

				BgL_ez00_4372 = PROCEDURE_L_REF(BgL_envz00_4371, (int) (0L));
				BgL_newz00_4373 =
					((obj_t) PROCEDURE_L_REF(BgL_envz00_4371, (int) (1L)));
				{	/* Eval/evobject.scm 528 */
					bool_t BgL_test2703z00_5614;

					if (BGl_classzd2fieldzd2virtualzf3zf3zz__objectz00(BgL_fieldz00_4374))
						{	/* Eval/evobject.scm 528 */
							BgL_test2703z00_5614 =
								BGl_classzd2fieldzd2mutablezf3zf3zz__objectz00
								(BgL_fieldz00_4374);
						}
					else
						{	/* Eval/evobject.scm 528 */
							BgL_test2703z00_5614 = ((bool_t) 0);
						}
					if (BgL_test2703z00_5614)
						{	/* Eval/evobject.scm 530 */
							obj_t BgL_vz00_4510;

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

								BgL_arg1690z00_4511 = CDR(((obj_t) BgL_valz00_4375));
								BgL_vz00_4510 =
									(VA_PROCEDUREP(BgL_ez00_4372) ? ((obj_t(*)(obj_t,
												...)) PROCEDURE_ENTRY(BgL_ez00_4372)) (BgL_ez00_4372,
										BgL_arg1690z00_4511, BgL_ez00_4372,
										BEOA) : ((obj_t(*)(obj_t, obj_t,
												obj_t)) PROCEDURE_ENTRY(BgL_ez00_4372)) (BgL_ez00_4372,
										BgL_arg1690z00_4511, BgL_ez00_4372));
							}
							{	/* Eval/evobject.scm 531 */
								obj_t BgL_arg1685z00_4512;
								obj_t BgL_arg1686z00_4513;

								BgL_arg1685z00_4512 =
									BGl_classzd2fieldzd2mutatorz00zz__objectz00
									(BgL_fieldz00_4374);
								{	/* Eval/evobject.scm 531 */
									obj_t BgL_arg1689z00_4514;

									BgL_arg1689z00_4514 = MAKE_YOUNG_PAIR(BgL_vz00_4510, BNIL);
									BgL_arg1686z00_4513 =
										MAKE_YOUNG_PAIR(BgL_newz00_4373, BgL_arg1689z00_4514);
								}
								return
									MAKE_YOUNG_PAIR(BgL_arg1685z00_4512, BgL_arg1686z00_4513);
							}
						}
					else
						{	/* Eval/evobject.scm 528 */
							return BFALSE;
						}
				}
			}
		}

	}



/* &<@anonymous:1660> */
	obj_t BGl_z62zc3z04anonymousza31660ze3ze5zz__evobjectz00(obj_t
		BgL_envz00_4376, obj_t BgL_fieldz00_4379, obj_t BgL_valz00_4380)
	{
		{	/* Eval/evobject.scm 516 */
			{	/* Eval/evobject.scm 517 */
				obj_t BgL_ez00_4377;
				obj_t BgL_newz00_4378;

				BgL_ez00_4377 = PROCEDURE_L_REF(BgL_envz00_4376, (int) (0L));
				BgL_newz00_4378 =
					((obj_t) PROCEDURE_L_REF(BgL_envz00_4376, (int) (1L)));
				if (BGl_classzd2fieldzd2virtualzf3zf3zz__objectz00(BgL_fieldz00_4379))
					{	/* Eval/evobject.scm 517 */
						return BFALSE;
					}
				else
					{	/* Eval/evobject.scm 518 */
						obj_t BgL_vz00_4515;

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

							BgL_arg1669z00_4516 = CDR(((obj_t) BgL_valz00_4380));
							BgL_vz00_4515 =
								(VA_PROCEDUREP(BgL_ez00_4377) ? ((obj_t(*)(obj_t,
											...)) PROCEDURE_ENTRY(BgL_ez00_4377)) (BgL_ez00_4377,
									BgL_arg1669z00_4516, BgL_ez00_4377, BEOA) : ((obj_t(*)(obj_t,
											obj_t,
											obj_t)) PROCEDURE_ENTRY(BgL_ez00_4377)) (BgL_ez00_4377,
									BgL_arg1669z00_4516, BgL_ez00_4377));
						}
						{	/* Eval/evobject.scm 519 */
							obj_t BgL_arg1662z00_4517;
							obj_t BgL_arg1663z00_4518;

							BgL_arg1662z00_4517 =
								BGl_classzd2fieldzd2mutatorz00zz__objectz00(BgL_fieldz00_4379);
							{	/* Eval/evobject.scm 519 */
								obj_t BgL_arg1668z00_4519;

								BgL_arg1668z00_4519 = MAKE_YOUNG_PAIR(BgL_vz00_4515, BNIL);
								BgL_arg1663z00_4518 =
									MAKE_YOUNG_PAIR(BgL_newz00_4378, BgL_arg1668z00_4519);
							}
							return MAKE_YOUNG_PAIR(BgL_arg1662z00_4517, BgL_arg1663z00_4518);
						}
					}
			}
		}

	}



/* 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_1850;

				BgL_iz00_1850 = 0L;
			BgL_zc3z04anonymousza31719ze3z87_1851:
				if ((BgL_iz00_1850 == VECTOR_LENGTH(BgL_fieldsz00_98)))
					{	/* Eval/evobject.scm 545 */
						obj_t BgL_arg1721z00_1853;

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

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

								BgL_arg1723z00_1855 = MAKE_YOUNG_PAIR(BgL_namez00_99, BNIL);
								BgL_list1722z00_1854 =
									MAKE_YOUNG_PAIR(BgL_formz00_100, BgL_arg1723z00_1855);
							}
							BgL_arg1721z00_1853 =
								BGl_formatz00zz__r4_output_6_10_3z00
								(BGl_string2486z00zz__evobjectz00, BgL_list1722z00_1854);
						}
						return
							BGl_expandzd2errorzd2zz__evobjectz00(BgL_namez00_99,
							BgL_arg1721z00_1853, BgL_sexpz00_101);
					}
				else
					{	/* Eval/evobject.scm 543 */
						if (
							(BGl_classzd2fieldzd2namez00zz__objectz00(VECTOR_REF
									(BgL_fieldsz00_98, BgL_iz00_1850)) == BgL_namez00_99))
							{	/* Eval/evobject.scm 547 */
								return BINT(BgL_iz00_1850);
							}
						else
							{
								long BgL_iz00_5659;

								BgL_iz00_5659 = (BgL_iz00_1850 + 1L);
								BgL_iz00_1850 = BgL_iz00_5659;
								goto BgL_zc3z04anonymousza31719ze3z87_1851;
							}
					}
			}
		}

	}



/* 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_1863;

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

					{	/* Eval/evobject.scm 556 */
						obj_t BgL_arg1733z00_1866;
						obj_t BgL_arg1734z00_1867;

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

							BgL_symbolz00_3490 = BGl_symbol2487z00zz__evobjectz00;
							{	/* Eval/evobject.scm 556 */
								obj_t BgL_arg2221z00_3491;

								BgL_arg2221z00_3491 = SYMBOL_TO_STRING(BgL_symbolz00_3490);
								BgL_arg1733z00_1866 =
									BGl_stringzd2copyzd2zz__r4_strings_6_7z00
									(BgL_arg2221z00_3491);
							}
						}
						{	/* Eval/evobject.scm 556 */
							obj_t BgL_arg1735z00_1868;

							BgL_arg1735z00_1868 =
								BGl_classzd2namezd2zz__objectz00(BgL_classz00_102);
							{	/* Eval/evobject.scm 556 */
								obj_t BgL_arg2221z00_3493;

								BgL_arg2221z00_3493 = SYMBOL_TO_STRING(BgL_arg1735z00_1868);
								BgL_arg1734z00_1867 =
									BGl_stringzd2copyzd2zz__r4_strings_6_7z00
									(BgL_arg2221z00_3493);
							}
						}
						BgL_arg1732z00_1865 =
							string_append(BgL_arg1733z00_1866, BgL_arg1734z00_1867);
					}
					BgL_widz00_1863 = bstring_to_symbol(BgL_arg1732z00_1865);
				}
				return
					BGl_installzd2expanderzd2zz__macroz00(BgL_widz00_1863,
					BGl_evalzd2withzd2accesszd2expanderzd2zz__evobjectz00
					(BgL_classz00_102));
			}
		}

	}



/* &eval-expand-with-access */
	obj_t BGl_z62evalzd2expandzd2withzd2accesszb0zz__evobjectz00(obj_t
		BgL_envz00_4381, obj_t BgL_classz00_4382)
	{
		{	/* Eval/evobject.scm 555 */
			{	/* Eval/evobject.scm 556 */
				obj_t BgL_auxz00_5670;

				if (BGl_classzf3zf3zz__objectz00(BgL_classz00_4382))
					{	/* Eval/evobject.scm 556 */
						BgL_auxz00_5670 = BgL_classz00_4382;
					}
				else
					{
						obj_t BgL_auxz00_5673;

						BgL_auxz00_5673 =
							BGl_typezd2errorzd2zz__errorz00(BGl_string2462z00zz__evobjectz00,
							BINT(20459L), BGl_string2489z00zz__evobjectz00,
							BGl_string2464z00zz__evobjectz00, BgL_classz00_4382);
						FAILURE(BgL_auxz00_5673, BFALSE, BFALSE);
					}
				return
					BGl_evalzd2expandzd2withzd2accesszd2zz__evobjectz00(BgL_auxz00_5670);
			}
		}

	}



/* 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_4383;

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

	}



/* &<@anonymous:1736> */
	obj_t BGl_z62zc3z04anonymousza31736ze3ze5zz__evobjectz00(obj_t
		BgL_envz00_4384, obj_t BgL_xz00_4386, obj_t BgL_ez00_4387)
	{
		{	/* Eval/evobject.scm 564 */
			{	/* Eval/evobject.scm 564 */
				obj_t BgL_classz00_4385;

				BgL_classz00_4385 =
					((obj_t) PROCEDURE_REF(BgL_envz00_4384, (int) (0L)));
				{
					obj_t BgL_waccessz00_4521;
					obj_t BgL_instancez00_4522;
					obj_t BgL_fieldsz00_4523;
					obj_t BgL_bodyz00_4524;

					if (PAIRP(BgL_xz00_4386))
						{	/* Eval/evobject.scm 564 */
							obj_t BgL_cdrzd2163zd2_4570;

							BgL_cdrzd2163zd2_4570 = CDR(((obj_t) BgL_xz00_4386));
							if (PAIRP(BgL_cdrzd2163zd2_4570))
								{	/* Eval/evobject.scm 564 */
									obj_t BgL_cdrzd2169zd2_4571;

									BgL_cdrzd2169zd2_4571 = CDR(BgL_cdrzd2163zd2_4570);
									if (PAIRP(BgL_cdrzd2169zd2_4571))
										{	/* Eval/evobject.scm 564 */
											obj_t BgL_carzd2173zd2_4572;
											obj_t BgL_cdrzd2174zd2_4573;

											BgL_carzd2173zd2_4572 = CAR(BgL_cdrzd2169zd2_4571);
											BgL_cdrzd2174zd2_4573 = CDR(BgL_cdrzd2169zd2_4571);
											if (PAIRP(BgL_carzd2173zd2_4572))
												{	/* Eval/evobject.scm 564 */
													if (PAIRP(BgL_cdrzd2174zd2_4573))
														{	/* Eval/evobject.scm 564 */
															obj_t BgL_arg1742z00_4574;
															obj_t BgL_arg1743z00_4575;

															BgL_arg1742z00_4574 =
																CAR(((obj_t) BgL_xz00_4386));
															BgL_arg1743z00_4575 = CAR(BgL_cdrzd2163zd2_4570);
															BgL_waccessz00_4521 = BgL_arg1742z00_4574;
															BgL_instancez00_4522 = BgL_arg1743z00_4575;
															BgL_fieldsz00_4523 = BgL_carzd2173zd2_4572;
															BgL_bodyz00_4524 = BgL_cdrzd2174zd2_4573;
															{
																obj_t BgL_sz00_4526;
																obj_t BgL_nfieldsz00_4527;

																BgL_sz00_4526 = BgL_fieldsz00_4523;
																BgL_nfieldsz00_4527 = BNIL;
															BgL_loopz00_4525:
																if (NULLP(BgL_sz00_4526))
																	{	/* Eval/evobject.scm 571 */
																		obj_t BgL_instancez00_4528;

																		BgL_instancez00_4528 =
																			(VA_PROCEDUREP(BgL_ez00_4387)
																			? ((obj_t(*)(obj_t,
																						...))
																				PROCEDURE_ENTRY(BgL_ez00_4387))
																			(BgL_ez00_4387, BgL_instancez00_4522,
																				BgL_ez00_4387, BEOA) : ((obj_t(*)(obj_t,
																						obj_t,
																						obj_t))
																				PROCEDURE_ENTRY(BgL_ez00_4387))
																			(BgL_ez00_4387, BgL_instancez00_4522,
																				BgL_ez00_4387));
																		{	/* Eval/evobject.scm 571 */
																			obj_t BgL_auxz00_4529;

																			BgL_auxz00_4529 =
																				BGl_gensymz00zz__r4_symbols_6_4z00
																				(BGl_symbol2490z00zz__evobjectz00);
																			{	/* Eval/evobject.scm 572 */
																				obj_t BgL_tauxz00_4530;

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

																					BgL_arg1766z00_4531 =
																						BGl_classzd2namezd2zz__objectz00
																						(BgL_classz00_4385);
																					{	/* Eval/evobject.scm 573 */
																						obj_t BgL_list1767z00_4532;

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

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

																								BgL_arg1769z00_4534 =
																									MAKE_YOUNG_PAIR
																									(BgL_arg1766z00_4531, BNIL);
																								BgL_arg1768z00_4533 =
																									MAKE_YOUNG_PAIR
																									(BGl_symbol2492z00zz__evobjectz00,
																									BgL_arg1769z00_4534);
																							}
																							BgL_list1767z00_4532 =
																								MAKE_YOUNG_PAIR(BgL_auxz00_4529,
																								BgL_arg1768z00_4533);
																						}
																						BgL_tauxz00_4530 =
																							BGl_symbolzd2appendzd2zz__r4_symbols_6_4z00
																							(BgL_list1767z00_4532);
																					}
																				}
																				{	/* Eval/evobject.scm 573 */

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

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

																							{	/* Eval/evobject.scm 576 */
																								obj_t BgL_arg1748z00_4537;
																								obj_t BgL_arg1749z00_4538;

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

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

																										BgL_arg1751z00_4540 =
																											MAKE_YOUNG_PAIR
																											(BgL_instancez00_4528,
																											BNIL);
																										BgL_arg1750z00_4539 =
																											MAKE_YOUNG_PAIR
																											(BgL_tauxz00_4530,
																											BgL_arg1751z00_4540);
																									}
																									BgL_arg1748z00_4537 =
																										MAKE_YOUNG_PAIR
																										(BgL_arg1750z00_4539, BNIL);
																								}
																								{	/* Eval/evobject.scm 578 */
																									obj_t BgL_arg1752z00_4541;

																									{	/* Eval/evobject.scm 578 */
																										obj_t BgL_arg1753z00_4542;
																										obj_t BgL_arg1754z00_4543;
																										obj_t BgL_arg1755z00_4544;

																										if (NULLP
																											(BgL_nfieldsz00_4527))
																											{	/* Eval/evobject.scm 578 */
																												BgL_arg1753z00_4542 =
																													BNIL;
																											}
																										else
																											{	/* Eval/evobject.scm 578 */
																												obj_t
																													BgL_head1126z00_4545;
																												{	/* Eval/evobject.scm 578 */
																													obj_t
																														BgL_arg1762z00_4546;
																													{	/* Eval/evobject.scm 578 */
																														obj_t
																															BgL_pairz00_4547;
																														BgL_pairz00_4547 =
																															CAR(((obj_t)
																																BgL_nfieldsz00_4527));
																														BgL_arg1762z00_4546
																															=
																															CAR
																															(BgL_pairz00_4547);
																													}
																													BgL_head1126z00_4545 =
																														MAKE_YOUNG_PAIR
																														(BgL_arg1762z00_4546,
																														BNIL);
																												}
																												{	/* Eval/evobject.scm 578 */
																													obj_t
																														BgL_g1129z00_4548;
																													BgL_g1129z00_4548 =
																														CDR(((obj_t)
																															BgL_nfieldsz00_4527));
																													{
																														obj_t
																															BgL_l1124z00_4550;
																														obj_t
																															BgL_tail1127z00_4551;
																														BgL_l1124z00_4550 =
																															BgL_g1129z00_4548;
																														BgL_tail1127z00_4551
																															=
																															BgL_head1126z00_4545;
																													BgL_zc3z04anonymousza31757ze3z87_4549:
																														if (NULLP
																															(BgL_l1124z00_4550))
																															{	/* Eval/evobject.scm 578 */
																																BgL_arg1753z00_4542
																																	=
																																	BgL_head1126z00_4545;
																															}
																														else
																															{	/* Eval/evobject.scm 578 */
																																obj_t
																																	BgL_newtail1128z00_4552;
																																{	/* Eval/evobject.scm 578 */
																																	obj_t
																																		BgL_arg1760z00_4553;
																																	{	/* Eval/evobject.scm 578 */
																																		obj_t
																																			BgL_pairz00_4554;
																																		BgL_pairz00_4554
																																			=
																																			CAR((
																																				(obj_t)
																																				BgL_l1124z00_4550));
																																		BgL_arg1760z00_4553
																																			=
																																			CAR
																																			(BgL_pairz00_4554);
																																	}
																																	BgL_newtail1128z00_4552
																																		=
																																		MAKE_YOUNG_PAIR
																																		(BgL_arg1760z00_4553,
																																		BNIL);
																																}
																																SET_CDR
																																	(BgL_tail1127z00_4551,
																																	BgL_newtail1128z00_4552);
																																{	/* Eval/evobject.scm 578 */
																																	obj_t
																																		BgL_arg1759z00_4555;
																																	BgL_arg1759z00_4555
																																		=
																																		CDR(((obj_t)
																																			BgL_l1124z00_4550));
																																	{
																																		obj_t
																																			BgL_tail1127z00_5738;
																																		obj_t
																																			BgL_l1124z00_5737;
																																		BgL_l1124z00_5737
																																			=
																																			BgL_arg1759z00_4555;
																																		BgL_tail1127z00_5738
																																			=
																																			BgL_newtail1128z00_4552;
																																		BgL_tail1127z00_4551
																																			=
																																			BgL_tail1127z00_5738;
																																		BgL_l1124z00_4550
																																			=
																																			BgL_l1124z00_5737;
																																		goto
																																			BgL_zc3z04anonymousza31757ze3z87_4549;
																																	}
																																}
																															}
																													}
																												}
																											}
																										BgL_arg1754z00_4543 =
																											BGl_expandzd2prognzd2zz__prognz00
																											(BgL_bodyz00_4524);
																										BgL_arg1755z00_4544 =
																											BGl_evalzd2beginzd2expanderz00zz__expander_definez00
																											(BGl_withzd2accesszd2expanderz00zz__evobjectz00
																											(BgL_ez00_4387,
																												BgL_auxz00_4529,
																												BgL_nfieldsz00_4527,
																												BgL_xz00_4386));
																										BgL_arg1752z00_4541 =
																											BGl_z52withzd2lexicalz80zz__expandz00
																											(BgL_arg1753z00_4542,
																											BgL_arg1754z00_4543,
																											BgL_arg1755z00_4544,
																											BgL_auxz00_4529);
																									}
																									BgL_arg1749z00_4538 =
																										MAKE_YOUNG_PAIR
																										(BgL_arg1752z00_4541, BNIL);
																								}
																								BgL_arg1747z00_4536 =
																									MAKE_YOUNG_PAIR
																									(BgL_arg1748z00_4537,
																									BgL_arg1749z00_4538);
																							}
																							BgL_arg1746z00_4535 =
																								MAKE_YOUNG_PAIR
																								(BGl_symbol2477z00zz__evobjectz00,
																								BgL_arg1747z00_4536);
																						}
																						return
																							BGl_localiza7eza7zz__evobjectz00
																							(BgL_xz00_4386,
																							BgL_arg1746z00_4535);
																					}
																				}
																			}
																		}
																	}
																else
																	{	/* Eval/evobject.scm 570 */
																		if (PAIRP(BgL_sz00_4526))
																			{	/* Eval/evobject.scm 586 */
																				bool_t BgL_test2718z00_5749;

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

																					BgL_tmpz00_5750 = CAR(BgL_sz00_4526);
																					BgL_test2718z00_5749 =
																						SYMBOLP(BgL_tmpz00_5750);
																				}
																				if (BgL_test2718z00_5749)
																					{	/* Eval/evobject.scm 587 */
																						obj_t BgL_arg1773z00_4556;
																						obj_t BgL_arg1774z00_4557;

																						BgL_arg1773z00_4556 =
																							CDR(BgL_sz00_4526);
																						{	/* Eval/evobject.scm 587 */
																							obj_t BgL_arg1775z00_4558;

																							{	/* Eval/evobject.scm 587 */
																								obj_t BgL_arg1776z00_4559;
																								obj_t BgL_arg1777z00_4560;

																								BgL_arg1776z00_4559 =
																									CAR(BgL_sz00_4526);
																								BgL_arg1777z00_4560 =
																									CAR(BgL_sz00_4526);
																								{	/* Eval/evobject.scm 587 */
																									obj_t BgL_list1778z00_4561;

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

																										BgL_arg1779z00_4562 =
																											MAKE_YOUNG_PAIR
																											(BgL_arg1777z00_4560,
																											BNIL);
																										BgL_list1778z00_4561 =
																											MAKE_YOUNG_PAIR
																											(BgL_arg1776z00_4559,
																											BgL_arg1779z00_4562);
																									}
																									BgL_arg1775z00_4558 =
																										BgL_list1778z00_4561;
																								}
																							}
																							BgL_arg1774z00_4557 =
																								MAKE_YOUNG_PAIR
																								(BgL_arg1775z00_4558,
																								BgL_nfieldsz00_4527);
																						}
																						{
																							obj_t BgL_nfieldsz00_5760;
																							obj_t BgL_sz00_5759;

																							BgL_sz00_5759 =
																								BgL_arg1773z00_4556;
																							BgL_nfieldsz00_5760 =
																								BgL_arg1774z00_4557;
																							BgL_nfieldsz00_4527 =
																								BgL_nfieldsz00_5760;
																							BgL_sz00_4526 = BgL_sz00_5759;
																							goto BgL_loopz00_4525;
																						}
																					}
																				else
																					{	/* Eval/evobject.scm 588 */
																						bool_t BgL_test2719z00_5761;

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

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

																								BgL_tmpz00_5763 =
																									CAR(BgL_sz00_4526);
																								BgL_test2720z00_5762 =
																									PAIRP(BgL_tmpz00_5763);
																							}
																							if (BgL_test2720z00_5762)
																								{	/* Eval/evobject.scm 589 */
																									bool_t BgL_test2721z00_5766;

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

																										BgL_tmpz00_5767 =
																											CAR(CAR(BgL_sz00_4526));
																										BgL_test2721z00_5766 =
																											SYMBOLP(BgL_tmpz00_5767);
																									}
																									if (BgL_test2721z00_5766)
																										{	/* Eval/evobject.scm 590 */
																											bool_t
																												BgL_test2722z00_5771;
																											{	/* Eval/evobject.scm 590 */
																												obj_t BgL_tmpz00_5772;

																												BgL_tmpz00_5772 =
																													CDR(CAR
																													(BgL_sz00_4526));
																												BgL_test2722z00_5771 =
																													PAIRP
																													(BgL_tmpz00_5772);
																											}
																											if (BgL_test2722z00_5771)
																												{	/* Eval/evobject.scm 591 */
																													bool_t
																														BgL_test2723z00_5776;
																													{	/* Eval/evobject.scm 591 */
																														obj_t
																															BgL_tmpz00_5777;
																														{	/* Eval/evobject.scm 591 */
																															obj_t
																																BgL_pairz00_4563;
																															BgL_pairz00_4563 =
																																CAR
																																(BgL_sz00_4526);
																															BgL_tmpz00_5777 =
																																CAR(CDR
																																(BgL_pairz00_4563));
																														}
																														BgL_test2723z00_5776
																															=
																															SYMBOLP
																															(BgL_tmpz00_5777);
																													}
																													if (BgL_test2723z00_5776)
																														{	/* Eval/evobject.scm 592 */
																															obj_t
																																BgL_tmpz00_5782;
																															{	/* Eval/evobject.scm 592 */
																																obj_t
																																	BgL_pairz00_4564;
																																BgL_pairz00_4564
																																	=
																																	CAR
																																	(BgL_sz00_4526);
																																BgL_tmpz00_5782
																																	=
																																	CDR(CDR
																																	(BgL_pairz00_4564));
																															}
																															BgL_test2719z00_5761
																																=
																																NULLP
																																(BgL_tmpz00_5782);
																														}
																													else
																														{	/* Eval/evobject.scm 591 */
																															BgL_test2719z00_5761
																																= ((bool_t) 0);
																														}
																												}
																											else
																												{	/* Eval/evobject.scm 590 */
																													BgL_test2719z00_5761 =
																														((bool_t) 0);
																												}
																										}
																									else
																										{	/* Eval/evobject.scm 589 */
																											BgL_test2719z00_5761 =
																												((bool_t) 0);
																										}
																								}
																							else
																								{	/* Eval/evobject.scm 588 */
																									BgL_test2719z00_5761 =
																										((bool_t) 0);
																								}
																						}
																						if (BgL_test2719z00_5761)
																							{	/* Eval/evobject.scm 593 */
																								obj_t BgL_arg1801z00_4565;
																								obj_t BgL_arg1802z00_4566;

																								BgL_arg1801z00_4565 =
																									CDR(BgL_sz00_4526);
																								BgL_arg1802z00_4566 =
																									MAKE_YOUNG_PAIR(CAR
																									(BgL_sz00_4526),
																									BgL_nfieldsz00_4527);
																								{
																									obj_t BgL_nfieldsz00_5791;
																									obj_t BgL_sz00_5790;

																									BgL_sz00_5790 =
																										BgL_arg1801z00_4565;
																									BgL_nfieldsz00_5791 =
																										BgL_arg1802z00_4566;
																									BgL_nfieldsz00_4527 =
																										BgL_nfieldsz00_5791;
																									BgL_sz00_4526 = BgL_sz00_5790;
																									goto BgL_loopz00_4525;
																								}
																							}
																						else
																							{	/* Eval/evobject.scm 595 */
																								obj_t BgL_arg1804z00_4567;

																								BgL_arg1804z00_4567 =
																									CAR(BgL_sz00_4526);
																								{	/* Eval/evobject.scm 72 */
																									obj_t BgL_locz00_4568;

																									if (EPAIRP(BgL_xz00_4386))
																										{	/* Eval/evobject.scm 72 */
																											BgL_locz00_4568 =
																												CER(
																												((obj_t)
																													BgL_xz00_4386));
																										}
																									else
																										{	/* Eval/evobject.scm 72 */
																											BgL_locz00_4568 = BFALSE;
																										}
																									{	/* Eval/evobject.scm 73 */
																										bool_t BgL_test2725z00_5797;

																										if (PAIRP(BgL_locz00_4568))
																											{	/* Eval/evobject.scm 73 */
																												bool_t
																													BgL_test2727z00_5800;
																												{	/* Eval/evobject.scm 73 */
																													obj_t BgL_tmpz00_5801;

																													BgL_tmpz00_5801 =
																														CDR
																														(BgL_locz00_4568);
																													BgL_test2727z00_5800 =
																														PAIRP
																														(BgL_tmpz00_5801);
																												}
																												if (BgL_test2727z00_5800)
																													{	/* Eval/evobject.scm 73 */
																														obj_t
																															BgL_tmpz00_5804;
																														BgL_tmpz00_5804 =
																															CDR(CDR
																															(BgL_locz00_4568));
																														BgL_test2725z00_5797
																															=
																															PAIRP
																															(BgL_tmpz00_5804);
																													}
																												else
																													{	/* Eval/evobject.scm 73 */
																														BgL_test2725z00_5797
																															= ((bool_t) 0);
																													}
																											}
																										else
																											{	/* Eval/evobject.scm 73 */
																												BgL_test2725z00_5797 =
																													((bool_t) 0);
																											}
																										if (BgL_test2725z00_5797)
																											{	/* Eval/evobject.scm 73 */
																												return
																													BGl_errorzf2locationzf2zz__errorz00
																													(BgL_arg1804z00_4567,
																													BGl_string2483z00zz__evobjectz00,
																													BgL_xz00_4386,
																													CAR(CDR
																														(BgL_locz00_4568)),
																													CAR(CDR(CDR
																															(BgL_locz00_4568))));
																											}
																										else
																											{	/* Eval/evobject.scm 73 */
																												return
																													BGl_errorz00zz__errorz00
																													(BgL_arg1804z00_4567,
																													BGl_string2483z00zz__evobjectz00,
																													BgL_xz00_4386);
																											}
																									}
																								}
																							}
																					}
																			}
																		else
																			{	/* Eval/evobject.scm 72 */
																				obj_t BgL_locz00_4569;

																				if (EPAIRP(BgL_xz00_4386))
																					{	/* Eval/evobject.scm 72 */
																						BgL_locz00_4569 =
																							CER(((obj_t) BgL_xz00_4386));
																					}
																				else
																					{	/* Eval/evobject.scm 72 */
																						BgL_locz00_4569 = BFALSE;
																					}
																				{	/* Eval/evobject.scm 73 */
																					bool_t BgL_test2729z00_5819;

																					if (PAIRP(BgL_locz00_4569))
																						{	/* Eval/evobject.scm 73 */
																							bool_t BgL_test2731z00_5822;

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

																								BgL_tmpz00_5823 =
																									CDR(BgL_locz00_4569);
																								BgL_test2731z00_5822 =
																									PAIRP(BgL_tmpz00_5823);
																							}
																							if (BgL_test2731z00_5822)
																								{	/* Eval/evobject.scm 73 */
																									obj_t BgL_tmpz00_5826;

																									BgL_tmpz00_5826 =
																										CDR(CDR(BgL_locz00_4569));
																									BgL_test2729z00_5819 =
																										PAIRP(BgL_tmpz00_5826);
																								}
																							else
																								{	/* Eval/evobject.scm 73 */
																									BgL_test2729z00_5819 =
																										((bool_t) 0);
																								}
																						}
																					else
																						{	/* Eval/evobject.scm 73 */
																							BgL_test2729z00_5819 =
																								((bool_t) 0);
																						}
																					if (BgL_test2729z00_5819)
																						{	/* Eval/evobject.scm 73 */
																							return
																								BGl_errorzf2locationzf2zz__errorz00
																								(BgL_sz00_4526,
																								BGl_string2494z00zz__evobjectz00,
																								BgL_xz00_4386,
																								CAR(CDR(BgL_locz00_4569)),
																								CAR(CDR(CDR(BgL_locz00_4569))));
																						}
																					else
																						{	/* Eval/evobject.scm 73 */
																							return
																								BGl_errorz00zz__errorz00
																								(BgL_sz00_4526,
																								BGl_string2494z00zz__evobjectz00,
																								BgL_xz00_4386);
																						}
																				}
																			}
																	}
															}
														}
													else
														{	/* Eval/evobject.scm 564 */
															return
																BGl_expandzd2errorzd2zz__evobjectz00
																(BGl_string2495z00zz__evobjectz00,
																BGl_string2496z00zz__evobjectz00,
																BgL_xz00_4386);
														}
												}
											else
												{	/* Eval/evobject.scm 564 */
													return
														BGl_expandzd2errorzd2zz__evobjectz00
														(BGl_string2495z00zz__evobjectz00,
														BGl_string2496z00zz__evobjectz00, BgL_xz00_4386);
												}
										}
									else
										{	/* Eval/evobject.scm 564 */
											return
												BGl_expandzd2errorzd2zz__evobjectz00
												(BGl_string2495z00zz__evobjectz00,
												BGl_string2496z00zz__evobjectz00, BgL_xz00_4386);
										}
								}
							else
								{	/* Eval/evobject.scm 564 */
									return
										BGl_expandzd2errorzd2zz__evobjectz00
										(BGl_string2495z00zz__evobjectz00,
										BGl_string2496z00zz__evobjectz00, BgL_xz00_4386);
								}
						}
					else
						{	/* Eval/evobject.scm 564 */
							return
								BGl_expandzd2errorzd2zz__evobjectz00
								(BGl_string2495z00zz__evobjectz00,
								BGl_string2496z00zz__evobjectz00, BgL_xz00_4386);
						}
				}
			}
		}

	}



/* 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_1981;

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

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

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

								BgL_pairz00_3643 = CAR(((obj_t) BgL_fieldsz00_106));
								BgL_arg1875z00_2061 = CAR(BgL_pairz00_3643);
							}
							BgL_head1132z00_2049 = MAKE_YOUNG_PAIR(BgL_arg1875z00_2061, BNIL);
						}
						{	/* Eval/evobject.scm 606 */
							obj_t BgL_g1135z00_2050;

							BgL_g1135z00_2050 = CDR(((obj_t) BgL_fieldsz00_106));
							{
								obj_t BgL_l1130z00_3664;
								obj_t BgL_tail1133z00_3665;

								BgL_l1130z00_3664 = BgL_g1135z00_2050;
								BgL_tail1133z00_3665 = BgL_head1132z00_2049;
							BgL_zc3z04anonymousza31868ze3z87_3663:
								if (NULLP(BgL_l1130z00_3664))
									{	/* Eval/evobject.scm 606 */
										BgL_idsz00_1981 = BgL_head1132z00_2049;
									}
								else
									{	/* Eval/evobject.scm 606 */
										obj_t BgL_newtail1134z00_3672;

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

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

												BgL_pairz00_3677 = CAR(((obj_t) BgL_l1130z00_3664));
												BgL_arg1872z00_3673 = CAR(BgL_pairz00_3677);
											}
											BgL_newtail1134z00_3672 =
												MAKE_YOUNG_PAIR(BgL_arg1872z00_3673, BNIL);
										}
										SET_CDR(BgL_tail1133z00_3665, BgL_newtail1134z00_3672);
										{	/* Eval/evobject.scm 606 */
											obj_t BgL_arg1870z00_3675;

											BgL_arg1870z00_3675 = CDR(((obj_t) BgL_l1130z00_3664));
											{
												obj_t BgL_tail1133z00_5860;
												obj_t BgL_l1130z00_5859;

												BgL_l1130z00_5859 = BgL_arg1870z00_3675;
												BgL_tail1133z00_5860 = BgL_newtail1134z00_3672;
												BgL_tail1133z00_3665 = BgL_tail1133z00_5860;
												BgL_l1130z00_3664 = BgL_l1130z00_5859;
												goto BgL_zc3z04anonymousza31868ze3z87_3663;
											}
										}
									}
							}
						}
					}
				{	/* Eval/evobject.scm 607 */
					obj_t BgL_zc3z04anonymousza31818ze3z87_4388;

					BgL_zc3z04anonymousza31818ze3z87_4388 =
						MAKE_FX_PROCEDURE
						(BGl_z62zc3z04anonymousza31818ze3ze5zz__evobjectz00, (int) (2L),
						(int) (4L));
					PROCEDURE_SET(BgL_zc3z04anonymousza31818ze3z87_4388, (int) (0L),
						BgL_oldez00_104);
					PROCEDURE_SET(BgL_zc3z04anonymousza31818ze3z87_4388, (int) (1L),
						BgL_iz00_105);
					PROCEDURE_SET(BgL_zc3z04anonymousza31818ze3z87_4388, (int) (2L),
						BgL_fieldsz00_106);
					PROCEDURE_SET(BgL_zc3z04anonymousza31818ze3z87_4388, (int) (3L),
						BgL_idsz00_1981);
					return BgL_zc3z04anonymousza31818ze3z87_4388;
				}
			}
		}

	}



/* &<@anonymous:1818> */
	obj_t BGl_z62zc3z04anonymousza31818ze3ze5zz__evobjectz00(obj_t
		BgL_envz00_4389, obj_t BgL_xz00_4394, obj_t BgL_ez00_4395)
	{
		{	/* Eval/evobject.scm 607 */
			{	/* Eval/evobject.scm 607 */
				obj_t BgL_oldez00_4390;
				obj_t BgL_iz00_4391;
				obj_t BgL_fieldsz00_4392;
				obj_t BgL_idsz00_4393;

				BgL_oldez00_4390 = PROCEDURE_REF(BgL_envz00_4389, (int) (0L));
				BgL_iz00_4391 = ((obj_t) PROCEDURE_REF(BgL_envz00_4389, (int) (1L)));
				BgL_fieldsz00_4392 =
					((obj_t) PROCEDURE_REF(BgL_envz00_4389, (int) (2L)));
				BgL_idsz00_4393 = ((obj_t) PROCEDURE_REF(BgL_envz00_4389, (int) (3L)));
				{
					obj_t BgL_varz00_4597;
					obj_t BgL_varz00_4578;
					obj_t BgL_valz00_4579;

					if (SYMBOLP(BgL_xz00_4394))
						{	/* Eval/evobject.scm 607 */
							BgL_varz00_4597 = BgL_xz00_4394;
							{	/* Eval/evobject.scm 610 */
								bool_t BgL_test2735z00_5885;

								if (CBOOL(BGl_memqz00zz__r4_pairs_and_lists_6_3z00
										(BgL_varz00_4597, BgL_idsz00_4393)))
									{	/* Eval/evobject.scm 611 */
										obj_t BgL_cellz00_4598;

										BgL_cellz00_4598 =
											BGl_assqz00zz__r4_pairs_and_lists_6_3z00(BgL_varz00_4597,
											BGl_z52lexicalzd2stackz80zz__expandz00());
										if (PAIRP(BgL_cellz00_4598))
											{	/* Eval/evobject.scm 612 */
												BgL_test2735z00_5885 =
													(CDR(BgL_cellz00_4598) == BgL_iz00_4391);
											}
										else
											{	/* Eval/evobject.scm 612 */
												BgL_test2735z00_5885 = ((bool_t) 0);
											}
									}
								else
									{	/* Eval/evobject.scm 610 */
										BgL_test2735z00_5885 = ((bool_t) 0);
									}
								if (BgL_test2735z00_5885)
									{	/* Eval/evobject.scm 613 */
										obj_t BgL_arg1835z00_4599;

										{	/* Eval/evobject.scm 613 */
											obj_t BgL_arg1836z00_4600;
											obj_t BgL_arg1837z00_4601;

											BgL_arg1836z00_4600 =
												(VA_PROCEDUREP(BgL_oldez00_4390) ? ((obj_t(*)(obj_t,
															...))
													PROCEDURE_ENTRY(BgL_oldez00_4390)) (BgL_oldez00_4390,
													BgL_iz00_4391, BgL_oldez00_4390,
													BEOA) : ((obj_t(*)(obj_t, obj_t,
															obj_t))
													PROCEDURE_ENTRY(BgL_oldez00_4390)) (BgL_oldez00_4390,
													BgL_iz00_4391, BgL_oldez00_4390));
											{	/* Eval/evobject.scm 613 */
												obj_t BgL_arg1838z00_4602;

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

													BgL_pairz00_4603 =
														BGl_assqz00zz__r4_pairs_and_lists_6_3z00
														(BgL_varz00_4597, BgL_fieldsz00_4392);
													BgL_arg1838z00_4602 = CAR(CDR(BgL_pairz00_4603));
												}
												BgL_arg1837z00_4601 =
													MAKE_YOUNG_PAIR(BgL_arg1838z00_4602, BNIL);
											}
											BgL_arg1835z00_4599 =
												MAKE_YOUNG_PAIR(BgL_arg1836z00_4600,
												BgL_arg1837z00_4601);
										}
										return
											MAKE_YOUNG_PAIR(BGl_symbol2497z00zz__evobjectz00,
											BgL_arg1835z00_4599);
									}
								else
									{	/* Eval/evobject.scm 610 */
										return
											(VA_PROCEDUREP(BgL_oldez00_4390) ? ((obj_t(*)(obj_t,
														...))
												PROCEDURE_ENTRY(BgL_oldez00_4390)) (BgL_oldez00_4390,
												BgL_varz00_4597, BgL_oldez00_4390,
												BEOA) : ((obj_t(*)(obj_t, obj_t,
														obj_t))
												PROCEDURE_ENTRY(BgL_oldez00_4390)) (BgL_oldez00_4390,
												BgL_varz00_4597, BgL_oldez00_4390));
									}
							}
						}
					else
						{	/* Eval/evobject.scm 607 */
							if (PAIRP(BgL_xz00_4394))
								{	/* Eval/evobject.scm 607 */
									obj_t BgL_cdrzd2194zd2_4604;

									BgL_cdrzd2194zd2_4604 = CDR(((obj_t) BgL_xz00_4394));
									if (
										(CAR(
												((obj_t) BgL_xz00_4394)) ==
											BGl_symbol2499z00zz__evobjectz00))
										{	/* Eval/evobject.scm 607 */
											if (PAIRP(BgL_cdrzd2194zd2_4604))
												{	/* Eval/evobject.scm 607 */
													obj_t BgL_carzd2197zd2_4605;
													obj_t BgL_cdrzd2198zd2_4606;

													BgL_carzd2197zd2_4605 = CAR(BgL_cdrzd2194zd2_4604);
													BgL_cdrzd2198zd2_4606 = CDR(BgL_cdrzd2194zd2_4604);
													if (SYMBOLP(BgL_carzd2197zd2_4605))
														{	/* Eval/evobject.scm 607 */
															if (PAIRP(BgL_cdrzd2198zd2_4606))
																{	/* Eval/evobject.scm 607 */
																	if (NULLP(CDR(BgL_cdrzd2198zd2_4606)))
																		{	/* Eval/evobject.scm 607 */
																			BgL_varz00_4578 = BgL_carzd2197zd2_4605;
																			BgL_valz00_4579 =
																				CAR(BgL_cdrzd2198zd2_4606);
																			{	/* Eval/evobject.scm 616 */
																				obj_t BgL_valz00_4580;

																				BgL_valz00_4580 =
																					(VA_PROCEDUREP(BgL_ez00_4395)
																					? ((obj_t(*)(obj_t,
																								...))
																						PROCEDURE_ENTRY(BgL_ez00_4395))
																					(BgL_ez00_4395, BgL_valz00_4579,
																						BgL_ez00_4395,
																						BEOA) : ((obj_t(*)(obj_t, obj_t,
																								obj_t))
																						PROCEDURE_ENTRY(BgL_ez00_4395))
																					(BgL_ez00_4395, BgL_valz00_4579,
																						BgL_ez00_4395));
																				{	/* Eval/evobject.scm 617 */
																					bool_t BgL_test2744z00_5935;

																					if (CBOOL
																						(BGl_memqz00zz__r4_pairs_and_lists_6_3z00
																							(BgL_varz00_4578,
																								BgL_idsz00_4393)))
																						{	/* Eval/evobject.scm 618 */
																							obj_t BgL_cellz00_4581;

																							BgL_cellz00_4581 =
																								BGl_assqz00zz__r4_pairs_and_lists_6_3z00
																								(BgL_varz00_4578,
																								BGl_z52lexicalzd2stackz80zz__expandz00
																								());
																							if (PAIRP(BgL_cellz00_4581))
																								{	/* Eval/evobject.scm 619 */
																									BgL_test2744z00_5935 =
																										(CDR(BgL_cellz00_4581) ==
																										BgL_iz00_4391);
																								}
																							else
																								{	/* Eval/evobject.scm 619 */
																									BgL_test2744z00_5935 =
																										((bool_t) 0);
																								}
																						}
																					else
																						{	/* Eval/evobject.scm 617 */
																							BgL_test2744z00_5935 =
																								((bool_t) 0);
																						}
																					if (BgL_test2744z00_5935)
																						{	/* Eval/evobject.scm 620 */
																							obj_t BgL_arg1845z00_4582;

																							{	/* Eval/evobject.scm 620 */
																								obj_t BgL_arg1846z00_4583;
																								obj_t BgL_arg1848z00_4584;

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

																									{	/* Eval/evobject.scm 620 */
																										obj_t BgL_arg1851z00_4586;
																										obj_t BgL_arg1852z00_4587;

																										BgL_arg1851z00_4586 =
																											(VA_PROCEDUREP
																											(BgL_oldez00_4390)
																											? ((obj_t(*)(obj_t,
																														...))
																												PROCEDURE_ENTRY
																												(BgL_oldez00_4390))
																											(BgL_oldez00_4390,
																												BgL_iz00_4391,
																												BgL_oldez00_4390,
																												BEOA)
																											: ((obj_t(*)(obj_t, obj_t,
																														obj_t))
																												PROCEDURE_ENTRY
																												(BgL_oldez00_4390))
																											(BgL_oldez00_4390,
																												BgL_iz00_4391,
																												BgL_oldez00_4390));
																										{	/* Eval/evobject.scm 620 */
																											obj_t BgL_arg1853z00_4588;

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

																												BgL_pairz00_4589 =
																													BGl_assqz00zz__r4_pairs_and_lists_6_3z00
																													(BgL_varz00_4578,
																													BgL_fieldsz00_4392);
																												BgL_arg1853z00_4588 =
																													CAR(CDR
																													(BgL_pairz00_4589));
																											}
																											BgL_arg1852z00_4587 =
																												MAKE_YOUNG_PAIR
																												(BgL_arg1853z00_4588,
																												BNIL);
																										}
																										BgL_arg1850z00_4585 =
																											MAKE_YOUNG_PAIR
																											(BgL_arg1851z00_4586,
																											BgL_arg1852z00_4587);
																									}
																									BgL_arg1846z00_4583 =
																										MAKE_YOUNG_PAIR
																										(BGl_symbol2497z00zz__evobjectz00,
																										BgL_arg1850z00_4585);
																								}
																								{	/* Eval/evobject.scm 620 */
																									obj_t BgL_arg1854z00_4590;

																									BgL_arg1854z00_4590 =
																										(VA_PROCEDUREP
																										(BgL_oldez00_4390)
																										? ((obj_t(*)(obj_t,
																													...))
																											PROCEDURE_ENTRY
																											(BgL_oldez00_4390))
																										(BgL_oldez00_4390,
																											BgL_valz00_4580,
																											BgL_oldez00_4390,
																											BEOA) : ((obj_t(*)(obj_t,
																													obj_t,
																													obj_t))
																											PROCEDURE_ENTRY
																											(BgL_oldez00_4390))
																										(BgL_oldez00_4390,
																											BgL_valz00_4580,
																											BgL_oldez00_4390));
																									BgL_arg1848z00_4584 =
																										MAKE_YOUNG_PAIR
																										(BgL_arg1854z00_4590, BNIL);
																								}
																								BgL_arg1845z00_4582 =
																									MAKE_YOUNG_PAIR
																									(BgL_arg1846z00_4583,
																									BgL_arg1848z00_4584);
																							}
																							return
																								MAKE_YOUNG_PAIR
																								(BGl_symbol2499z00zz__evobjectz00,
																								BgL_arg1845z00_4582);
																						}
																					else
																						{	/* Eval/evobject.scm 621 */
																							obj_t BgL_arg1855z00_4591;

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

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

																									{	/* Eval/evobject.scm 621 */
																										obj_t BgL_arg1860z00_4594;
																										obj_t BgL_arg1861z00_4595;

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

																											BgL_pairz00_4596 =
																												CDR(
																												((obj_t)
																													BgL_xz00_4394));
																											BgL_arg1860z00_4594 =
																												CAR(BgL_pairz00_4596);
																										}
																										BgL_arg1861z00_4595 =
																											MAKE_YOUNG_PAIR
																											(BgL_valz00_4580, BNIL);
																										BgL_arg1857z00_4593 =
																											MAKE_YOUNG_PAIR
																											(BgL_arg1860z00_4594,
																											BgL_arg1861z00_4595);
																									}
																									BgL_arg1856z00_4592 =
																										MAKE_YOUNG_PAIR
																										(BGl_symbol2499z00zz__evobjectz00,
																										BgL_arg1857z00_4593);
																								}
																								BgL_arg1855z00_4591 =
																									(VA_PROCEDUREP
																									(BgL_oldez00_4390)
																									? ((obj_t(*)(obj_t,
																												...))
																										PROCEDURE_ENTRY
																										(BgL_oldez00_4390))
																									(BgL_oldez00_4390,
																										BgL_arg1856z00_4592,
																										BgL_oldez00_4390,
																										BEOA) : ((obj_t(*)(obj_t,
																												obj_t,
																												obj_t))
																										PROCEDURE_ENTRY
																										(BgL_oldez00_4390))
																									(BgL_oldez00_4390,
																										BgL_arg1856z00_4592,
																										BgL_oldez00_4390));
																							}
																							return
																								BGl_localiza7eza7zz__evobjectz00
																								(BgL_xz00_4394,
																								BgL_arg1855z00_4591);
																						}
																				}
																			}
																		}
																	else
																		{	/* Eval/evobject.scm 607 */
																			return
																				(VA_PROCEDUREP(BgL_oldez00_4390)
																				? ((obj_t(*)(obj_t,
																							...))
																					PROCEDURE_ENTRY(BgL_oldez00_4390))
																				(BgL_oldez00_4390, BgL_xz00_4394,
																					BgL_ez00_4395,
																					BEOA) : ((obj_t(*)(obj_t, obj_t,
																							obj_t))
																					PROCEDURE_ENTRY(BgL_oldez00_4390))
																				(BgL_oldez00_4390, BgL_xz00_4394,
																					BgL_ez00_4395));
																		}
																}
															else
																{	/* Eval/evobject.scm 607 */
																	return
																		(VA_PROCEDUREP(BgL_oldez00_4390)
																		? ((obj_t(*)(obj_t,
																					...))
																			PROCEDURE_ENTRY(BgL_oldez00_4390))
																		(BgL_oldez00_4390, BgL_xz00_4394,
																			BgL_ez00_4395, BEOA) : ((obj_t(*)(obj_t,
																					obj_t,
																					obj_t))
																			PROCEDURE_ENTRY(BgL_oldez00_4390))
																		(BgL_oldez00_4390, BgL_xz00_4394,
																			BgL_ez00_4395));
																}
														}
													else
														{	/* Eval/evobject.scm 607 */
															return
																(VA_PROCEDUREP(BgL_oldez00_4390)
																? ((obj_t(*)(obj_t,
																			...))
																	PROCEDURE_ENTRY(BgL_oldez00_4390))
																(BgL_oldez00_4390, BgL_xz00_4394, BgL_ez00_4395,
																	BEOA) : ((obj_t(*)(obj_t, obj_t,
																			obj_t))
																	PROCEDURE_ENTRY(BgL_oldez00_4390))
																(BgL_oldez00_4390, BgL_xz00_4394,
																	BgL_ez00_4395));
														}
												}
											else
												{	/* Eval/evobject.scm 607 */
													return
														(VA_PROCEDUREP(BgL_oldez00_4390) ? ((obj_t(*)(obj_t,
																	...))
															PROCEDURE_ENTRY(BgL_oldez00_4390))
														(BgL_oldez00_4390, BgL_xz00_4394, BgL_ez00_4395,
															BEOA) : ((obj_t(*)(obj_t, obj_t,
																	obj_t))
															PROCEDURE_ENTRY(BgL_oldez00_4390))
														(BgL_oldez00_4390, BgL_xz00_4394, BgL_ez00_4395));
												}
										}
									else
										{	/* Eval/evobject.scm 607 */
											return
												(VA_PROCEDUREP(BgL_oldez00_4390) ? ((obj_t(*)(obj_t,
															...))
													PROCEDURE_ENTRY(BgL_oldez00_4390)) (BgL_oldez00_4390,
													BgL_xz00_4394, BgL_ez00_4395,
													BEOA) : ((obj_t(*)(obj_t, obj_t,
															obj_t))
													PROCEDURE_ENTRY(BgL_oldez00_4390)) (BgL_oldez00_4390,
													BgL_xz00_4394, BgL_ez00_4395));
										}
								}
							else
								{	/* Eval/evobject.scm 607 */
									return
										(VA_PROCEDUREP(BgL_oldez00_4390) ? ((obj_t(*)(obj_t,
													...))
											PROCEDURE_ENTRY(BgL_oldez00_4390)) (BgL_oldez00_4390,
											BgL_xz00_4394, BgL_ez00_4395, BEOA) : ((obj_t(*)(obj_t,
													obj_t,
													obj_t))
											PROCEDURE_ENTRY(BgL_oldez00_4390)) (BgL_oldez00_4390,
											BgL_xz00_4394, BgL_ez00_4395));
								}
						}
				}
			}
		}

	}



/* 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_2068;

					BgL_idz00_2068 =
						BGl_decomposezd2identzd2zz__evobjectz00(BgL_fz00_109);
					{	/* Eval/evobject.scm 632 */
						obj_t BgL_typez00_2069;

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

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

								BgL_tmpz00_6010 = (int) (1L);
								BgL_tmpz00_3702 = BGL_MVALUES_VAL(BgL_tmpz00_6010);
							}
							{	/* Eval/evobject.scm 633 */
								int BgL_tmpz00_6013;

								BgL_tmpz00_6013 = (int) (1L);
								BGL_MVALUES_VAL_SET(BgL_tmpz00_6013, BUNSPEC);
							}
							BgL_typez00_2069 = BgL_tmpz00_3702;
						}
						{	/* Eval/evobject.scm 633 */
							obj_t BgL_arg1881z00_2070;

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

								if (CBOOL(BgL_typez00_2069))
									{	/* Eval/evobject.scm 633 */
										obj_t BgL__ortest_1045z00_2073;

										BgL__ortest_1045z00_2073 =
											BGl_classzd2existszd2zz__objectz00(BgL_typez00_2069);
										if (CBOOL(BgL__ortest_1045z00_2073))
											{	/* Eval/evobject.scm 633 */
												BgL_arg1883z00_2072 = BgL__ortest_1045z00_2073;
											}
										else
											{	/* Eval/evobject.scm 633 */
												BgL_arg1883z00_2072 = BgL_typez00_2069;
											}
									}
								else
									{	/* Eval/evobject.scm 633 */
										BgL_arg1883z00_2072 = BGl_symbol2501z00zz__evobjectz00;
									}
								{	/* Eval/evobject.scm 80 */
									obj_t BgL_newz00_3703;

									BgL_newz00_3703 =
										create_struct(BGl_symbol2503z00zz__evobjectz00, (int) (8L));
									{	/* Eval/evobject.scm 80 */
										int BgL_tmpz00_6023;

										BgL_tmpz00_6023 = (int) (7L);
										STRUCT_SET(BgL_newz00_3703, BgL_tmpz00_6023, BFALSE);
									}
									{	/* Eval/evobject.scm 80 */
										int BgL_tmpz00_6026;

										BgL_tmpz00_6026 = (int) (6L);
										STRUCT_SET(BgL_newz00_3703, BgL_tmpz00_6026, BFALSE);
									}
									{	/* Eval/evobject.scm 80 */
										int BgL_tmpz00_6029;

										BgL_tmpz00_6029 = (int) (5L);
										STRUCT_SET(BgL_newz00_3703, BgL_tmpz00_6029, BFALSE);
									}
									{	/* Eval/evobject.scm 80 */
										obj_t BgL_auxz00_6034;
										int BgL_tmpz00_6032;

										BgL_auxz00_6034 = BINT(0L);
										BgL_tmpz00_6032 = (int) (4L);
										STRUCT_SET(BgL_newz00_3703, BgL_tmpz00_6032,
											BgL_auxz00_6034);
									}
									{	/* Eval/evobject.scm 80 */
										int BgL_tmpz00_6037;

										BgL_tmpz00_6037 = (int) (3L);
										STRUCT_SET(BgL_newz00_3703, BgL_tmpz00_6037, BFALSE);
									}
									{	/* Eval/evobject.scm 80 */
										int BgL_tmpz00_6040;

										BgL_tmpz00_6040 = (int) (2L);
										STRUCT_SET(BgL_newz00_3703, BgL_tmpz00_6040, BFALSE);
									}
									{	/* Eval/evobject.scm 80 */
										int BgL_tmpz00_6043;

										BgL_tmpz00_6043 = (int) (1L);
										STRUCT_SET(BgL_newz00_3703, BgL_tmpz00_6043,
											BgL_arg1883z00_2072);
									}
									{	/* Eval/evobject.scm 80 */
										int BgL_tmpz00_6046;

										BgL_tmpz00_6046 = (int) (0L);
										STRUCT_SET(BgL_newz00_3703, BgL_tmpz00_6046,
											BgL_idz00_2068);
									}
									BgL_arg1881z00_2070 = BgL_newz00_3703;
							}}
							{	/* Eval/evobject.scm 633 */
								obj_t BgL_list1882z00_2071;

								BgL_list1882z00_2071 =
									MAKE_YOUNG_PAIR(BgL_arg1881z00_2070, BNIL);
								return BgL_list1882z00_2071;
							}
						}
					}
				}
			else
				{	/* Eval/evobject.scm 635 */
					bool_t BgL_test2750z00_6050;

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

							BgL_tmpz00_6053 = CAR(((obj_t) BgL_fz00_109));
							BgL_test2750z00_6050 = SYMBOLP(BgL_tmpz00_6053);
						}
					else
						{	/* Eval/evobject.scm 635 */
							BgL_test2750z00_6050 = ((bool_t) 0);
						}
					if (BgL_test2750z00_6050)
						{	/* Eval/evobject.scm 639 */
							obj_t BgL_idz00_2077;
							obj_t BgL_attrsz00_2078;

							BgL_idz00_2077 = CAR(((obj_t) BgL_fz00_109));
							BgL_attrsz00_2078 = CDR(((obj_t) BgL_fz00_109));
							{	/* Eval/evobject.scm 641 */
								obj_t BgL_idz00_2079;

								BgL_idz00_2079 =
									BGl_decomposezd2identzd2zz__evobjectz00(BgL_idz00_2077);
								{	/* Eval/evobject.scm 642 */
									obj_t BgL_typez00_2080;

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

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

											BgL_tmpz00_6062 = (int) (1L);
											BgL_tmpz00_3716 = BGL_MVALUES_VAL(BgL_tmpz00_6062);
										}
										{	/* Eval/evobject.scm 643 */
											int BgL_tmpz00_6065;

											BgL_tmpz00_6065 = (int) (1L);
											BGL_MVALUES_VAL_SET(BgL_tmpz00_6065, BUNSPEC);
										}
										BgL_typez00_2080 = BgL_tmpz00_3716;
									}
									{	/* Eval/evobject.scm 643 */
										obj_t BgL_defz00_2081;
										obj_t BgL_getz00_2082;
										obj_t BgL_setz00_2083;
										obj_t BgL_infoz00_2084;
										bool_t BgL_ronlyz00_2085;

										BgL_defz00_2081 = BFALSE;
										BgL_getz00_2082 = BFALSE;
										BgL_setz00_2083 = BFALSE;
										BgL_infoz00_2084 = BFALSE;
										BgL_ronlyz00_2085 = ((bool_t) 0);
										{
											obj_t BgL_l1136z00_2087;

											BgL_l1136z00_2087 = BgL_attrsz00_2078;
										BgL_zc3z04anonymousza31887ze3z87_2088:
											if (PAIRP(BgL_l1136z00_2087))
												{	/* Eval/evobject.scm 648 */
													{	/* Eval/evobject.scm 650 */
														obj_t BgL_attrz00_2090;

														BgL_attrz00_2090 = CAR(BgL_l1136z00_2087);
														if (
															(BgL_attrz00_2090 ==
																BGl_symbol2505z00zz__evobjectz00))
															{	/* Eval/evobject.scm 650 */
																BgL_ronlyz00_2085 = ((bool_t) 1);
															}
														else
															{
																obj_t BgL_exprz00_2095;
																obj_t BgL_exprz00_2093;

																if (PAIRP(BgL_attrz00_2090))
																	{	/* Eval/evobject.scm 653 */
																		obj_t BgL_cdrzd2216zd2_2102;

																		BgL_cdrzd2216zd2_2102 =
																			CDR(((obj_t) BgL_attrz00_2090));
																		if (
																			(CAR(
																					((obj_t) BgL_attrz00_2090)) ==
																				BGl_symbol2509z00zz__evobjectz00))
																			{	/* Eval/evobject.scm 653 */
																				if (PAIRP(BgL_cdrzd2216zd2_2102))
																					{	/* Eval/evobject.scm 653 */
																						if (NULLP(CDR
																								(BgL_cdrzd2216zd2_2102)))
																							{	/* Eval/evobject.scm 653 */
																								obj_t BgL_arg1895z00_2108;

																								BgL_arg1895z00_2108 =
																									CAR(BgL_cdrzd2216zd2_2102);
																								BgL_infoz00_2084 =
																									BgL_arg1895z00_2108;
																							}
																						else
																							{	/* Eval/evobject.scm 653 */
																							BgL_tagzd2210zd2_2099:
																								{	/* Eval/evobject.scm 673 */
																									obj_t BgL_arg1944z00_2158;

																									{	/* Eval/evobject.scm 673 */
																										obj_t
																											BgL__ortest_1047z00_2159;
																										BgL__ortest_1047z00_2159 =
																											BGl_getzd2sourcezd2locationz00zz__readerz00
																											(BgL_fz00_109);
																										if (CBOOL
																											(BgL__ortest_1047z00_2159))
																											{	/* Eval/evobject.scm 673 */
																												BgL_arg1944z00_2158 =
																													BgL__ortest_1047z00_2159;
																											}
																										else
																											{	/* Eval/evobject.scm 673 */
																												BgL_arg1944z00_2158 =
																													BgL_locz00_108;
																											}
																									}
																									BGl_evcompilezd2errorzd2zz__evcompilez00
																										(BgL_arg1944z00_2158,
																										BGl_string2507z00zz__evobjectz00,
																										BGl_string2508z00zz__evobjectz00,
																										BgL_fz00_109);
																								}
																							}
																					}
																				else
																					{	/* Eval/evobject.scm 653 */
																						goto BgL_tagzd2210zd2_2099;
																					}
																			}
																		else
																			{	/* Eval/evobject.scm 653 */
																				if (
																					(CAR(
																							((obj_t) BgL_attrz00_2090)) ==
																						BGl_symbol2511z00zz__evobjectz00))
																					{	/* Eval/evobject.scm 653 */
																						if (PAIRP(BgL_cdrzd2216zd2_2102))
																							{	/* Eval/evobject.scm 653 */
																								if (NULLP(CDR
																										(BgL_cdrzd2216zd2_2102)))
																									{	/* Eval/evobject.scm 653 */
																										BgL_exprz00_2093 =
																											CAR
																											(BgL_cdrzd2216zd2_2102);
																										if (SYMBOLP
																											(BgL_exprz00_2093))
																											{	/* Eval/evobject.scm 658 */
																												obj_t BgL_oz00_2139;

																												{	/* Eval/evobject.scm 658 */

																													{	/* Eval/evobject.scm 658 */

																														BgL_oz00_2139 =
																															BGl_gensymz00zz__r4_symbols_6_4z00
																															(BFALSE);
																													}
																												}
																												{	/* Eval/evobject.scm 659 */
																													obj_t
																														BgL_arg1930z00_2140;
																													{	/* Eval/evobject.scm 659 */
																														obj_t
																															BgL_arg1931z00_2141;
																														obj_t
																															BgL_arg1933z00_2142;
																														BgL_arg1931z00_2141
																															=
																															MAKE_YOUNG_PAIR
																															(BgL_oz00_2139,
																															BNIL);
																														{	/* Eval/evobject.scm 660 */
																															obj_t
																																BgL_arg1934z00_2143;
																															{	/* Eval/evobject.scm 660 */
																																obj_t
																																	BgL_arg1935z00_2144;
																																BgL_arg1935z00_2144
																																	=
																																	MAKE_YOUNG_PAIR
																																	(BgL_oz00_2139,
																																	BNIL);
																																BgL_arg1934z00_2143
																																	=
																																	MAKE_YOUNG_PAIR
																																	(BgL_exprz00_2093,
																																	BgL_arg1935z00_2144);
																															}
																															BgL_arg1933z00_2142
																																=
																																MAKE_YOUNG_PAIR
																																(BgL_arg1934z00_2143,
																																BNIL);
																														}
																														BgL_arg1930z00_2140
																															=
																															MAKE_YOUNG_PAIR
																															(BgL_arg1931z00_2141,
																															BgL_arg1933z00_2142);
																													}
																													BgL_getz00_2082 =
																														MAKE_YOUNG_PAIR
																														(BGl_symbol2438z00zz__evobjectz00,
																														BgL_arg1930z00_2140);
																												}
																											}
																										else
																											{	/* Eval/evobject.scm 657 */
																												BgL_getz00_2082 =
																													BgL_exprz00_2093;
																											}
																									}
																								else
																									{	/* Eval/evobject.scm 653 */
																										goto BgL_tagzd2210zd2_2099;
																									}
																							}
																						else
																							{	/* Eval/evobject.scm 653 */
																								goto BgL_tagzd2210zd2_2099;
																							}
																					}
																				else
																					{	/* Eval/evobject.scm 653 */
																						obj_t BgL_cdrzd2252zd2_2118;

																						BgL_cdrzd2252zd2_2118 =
																							CDR(((obj_t) BgL_attrz00_2090));
																						if (
																							(CAR(
																									((obj_t) BgL_attrz00_2090)) ==
																								BGl_symbol2513z00zz__evobjectz00))
																							{	/* Eval/evobject.scm 653 */
																								if (PAIRP
																									(BgL_cdrzd2252zd2_2118))
																									{	/* Eval/evobject.scm 653 */
																										if (NULLP(CDR
																												(BgL_cdrzd2252zd2_2118)))
																											{	/* Eval/evobject.scm 653 */
																												BgL_exprz00_2095 =
																													CAR
																													(BgL_cdrzd2252zd2_2118);
																												if (SYMBOLP
																													(BgL_exprz00_2095))
																													{	/* Eval/evobject.scm 664 */
																														obj_t BgL_oz00_2147;
																														obj_t BgL_vz00_2148;

																														{	/* Eval/evobject.scm 664 */

																															{	/* Eval/evobject.scm 664 */

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

																															{	/* Eval/evobject.scm 665 */

																																BgL_vz00_2148 =
																																	BGl_gensymz00zz__r4_symbols_6_4z00
																																	(BFALSE);
																															}
																														}
																														{	/* Eval/evobject.scm 666 */
																															obj_t
																																BgL_arg1937z00_2149;
																															{	/* Eval/evobject.scm 666 */
																																obj_t
																																	BgL_arg1938z00_2150;
																																obj_t
																																	BgL_arg1939z00_2151;
																																{	/* Eval/evobject.scm 666 */
																																	obj_t
																																		BgL_arg1940z00_2152;
																																	BgL_arg1940z00_2152
																																		=
																																		MAKE_YOUNG_PAIR
																																		(BgL_vz00_2148,
																																		BNIL);
																																	BgL_arg1938z00_2150
																																		=
																																		MAKE_YOUNG_PAIR
																																		(BgL_oz00_2147,
																																		BgL_arg1940z00_2152);
																																}
																																{	/* Eval/evobject.scm 667 */
																																	obj_t
																																		BgL_arg1941z00_2153;
																																	{	/* Eval/evobject.scm 667 */
																																		obj_t
																																			BgL_arg1942z00_2154;
																																		{	/* Eval/evobject.scm 667 */
																																			obj_t
																																				BgL_arg1943z00_2155;
																																			BgL_arg1943z00_2155
																																				=
																																				MAKE_YOUNG_PAIR
																																				(BgL_vz00_2148,
																																				BNIL);
																																			BgL_arg1942z00_2154
																																				=
																																				MAKE_YOUNG_PAIR
																																				(BgL_oz00_2147,
																																				BgL_arg1943z00_2155);
																																		}
																																		BgL_arg1941z00_2153
																																			=
																																			MAKE_YOUNG_PAIR
																																			(BgL_exprz00_2095,
																																			BgL_arg1942z00_2154);
																																	}
																																	BgL_arg1939z00_2151
																																		=
																																		MAKE_YOUNG_PAIR
																																		(BgL_arg1941z00_2153,
																																		BNIL);
																																}
																																BgL_arg1937z00_2149
																																	=
																																	MAKE_YOUNG_PAIR
																																	(BgL_arg1938z00_2150,
																																	BgL_arg1939z00_2151);
																															}
																															BgL_setz00_2083 =
																																MAKE_YOUNG_PAIR
																																(BGl_symbol2438z00zz__evobjectz00,
																																BgL_arg1937z00_2149);
																														}
																													}
																												else
																													{	/* Eval/evobject.scm 663 */
																														BgL_setz00_2083 =
																															BgL_exprz00_2095;
																													}
																											}
																										else
																											{	/* Eval/evobject.scm 653 */
																												goto
																													BgL_tagzd2210zd2_2099;
																											}
																									}
																								else
																									{	/* Eval/evobject.scm 653 */
																										goto BgL_tagzd2210zd2_2099;
																									}
																							}
																						else
																							{	/* Eval/evobject.scm 653 */
																								if (
																									(CAR(
																											((obj_t)
																												BgL_attrz00_2090)) ==
																										BGl_symbol2515z00zz__evobjectz00))
																									{	/* Eval/evobject.scm 653 */
																										if (PAIRP
																											(BgL_cdrzd2252zd2_2118))
																											{	/* Eval/evobject.scm 653 */
																												if (NULLP(CDR
																														(BgL_cdrzd2252zd2_2118)))
																													{	/* Eval/evobject.scm 653 */
																														obj_t
																															BgL_arg1923z00_2132;
																														BgL_arg1923z00_2132
																															=
																															CAR
																															(BgL_cdrzd2252zd2_2118);
																														BgL_defz00_2081 =
																															BgL_arg1923z00_2132;
																													}
																												else
																													{	/* Eval/evobject.scm 653 */
																														goto
																															BgL_tagzd2210zd2_2099;
																													}
																											}
																										else
																											{	/* Eval/evobject.scm 653 */
																												goto
																													BgL_tagzd2210zd2_2099;
																											}
																									}
																								else
																									{	/* Eval/evobject.scm 653 */
																										goto BgL_tagzd2210zd2_2099;
																									}
																							}
																					}
																			}
																	}
																else
																	{	/* Eval/evobject.scm 653 */
																		goto BgL_tagzd2210zd2_2099;
																	}
															}
													}
													{
														obj_t BgL_l1136z00_6144;

														BgL_l1136z00_6144 = CDR(BgL_l1136z00_2087);
														BgL_l1136z00_2087 = BgL_l1136z00_6144;
														goto BgL_zc3z04anonymousza31887ze3z87_2088;
													}
												}
											else
												{	/* Eval/evobject.scm 648 */
													((bool_t) 1);
												}
										}
										{	/* Eval/evobject.scm 677 */
											bool_t BgL_test2770z00_6146;

											if (CBOOL(BgL_getz00_2082))
												{	/* Eval/evobject.scm 677 */
													if (BgL_ronlyz00_2085)
														{	/* Eval/evobject.scm 677 */
															BgL_test2770z00_6146 = ((bool_t) 0);
														}
													else
														{	/* Eval/evobject.scm 677 */
															if (CBOOL(BgL_setz00_2083))
																{	/* Eval/evobject.scm 677 */
																	BgL_test2770z00_6146 = ((bool_t) 0);
																}
															else
																{	/* Eval/evobject.scm 677 */
																	BgL_test2770z00_6146 = ((bool_t) 1);
																}
														}
												}
											else
												{	/* Eval/evobject.scm 677 */
													BgL_test2770z00_6146 = ((bool_t) 0);
												}
											if (BgL_test2770z00_6146)
												{	/* Eval/evobject.scm 679 */
													obj_t BgL_arg1947z00_2163;

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

														BgL__ortest_1048z00_2164 =
															BGl_getzd2sourcezd2locationz00zz__readerz00
															(BgL_fz00_109);
														if (CBOOL(BgL__ortest_1048z00_2164))
															{	/* Eval/evobject.scm 679 */
																BgL_arg1947z00_2163 = BgL__ortest_1048z00_2164;
															}
														else
															{	/* Eval/evobject.scm 679 */
																BgL_arg1947z00_2163 = BgL_locz00_108;
															}
													}
													return
														BGl_evcompilezd2errorzd2zz__evcompilez00
														(BgL_arg1947z00_2163,
														BGl_string2507z00zz__evobjectz00,
														BGl_string2517z00zz__evobjectz00, BgL_fz00_109);
												}
											else
												{	/* Eval/evobject.scm 681 */
													bool_t BgL_test2775z00_6156;

													if (CBOOL(BgL_setz00_2083))
														{	/* Eval/evobject.scm 681 */
															if (CBOOL(BgL_getz00_2082))
																{	/* Eval/evobject.scm 681 */
																	BgL_test2775z00_6156 = ((bool_t) 0);
																}
															else
																{	/* Eval/evobject.scm 681 */
																	BgL_test2775z00_6156 = ((bool_t) 1);
																}
														}
													else
														{	/* Eval/evobject.scm 681 */
															BgL_test2775z00_6156 = ((bool_t) 0);
														}
													if (BgL_test2775z00_6156)
														{	/* Eval/evobject.scm 683 */
															obj_t BgL_arg1949z00_2166;

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

																BgL__ortest_1049z00_2167 =
																	BGl_getzd2sourcezd2locationz00zz__readerz00
																	(BgL_fz00_109);
																if (CBOOL(BgL__ortest_1049z00_2167))
																	{	/* Eval/evobject.scm 683 */
																		BgL_arg1949z00_2166 =
																			BgL__ortest_1049z00_2167;
																	}
																else
																	{	/* Eval/evobject.scm 683 */
																		BgL_arg1949z00_2166 = BgL_locz00_108;
																	}
															}
															return
																BGl_evcompilezd2errorzd2zz__evcompilez00
																(BgL_arg1949z00_2166,
																BGl_string2507z00zz__evobjectz00,
																BGl_string2518z00zz__evobjectz00, BgL_fz00_109);
														}
													else
														{	/* Eval/evobject.scm 686 */
															obj_t BgL_sz00_2168;

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

																if (CBOOL(BgL_typez00_2080))
																	{	/* Eval/evobject.scm 687 */
																		obj_t BgL__ortest_1050z00_2171;

																		BgL__ortest_1050z00_2171 =
																			BGl_classzd2existszd2zz__objectz00
																			(BgL_typez00_2080);
																		if (CBOOL(BgL__ortest_1050z00_2171))
																			{	/* Eval/evobject.scm 687 */
																				BgL_arg1951z00_2170 =
																					BgL__ortest_1050z00_2171;
																			}
																		else
																			{	/* Eval/evobject.scm 687 */
																				BgL_arg1951z00_2170 = BgL_typez00_2080;
																			}
																	}
																else
																	{	/* Eval/evobject.scm 687 */
																		BgL_arg1951z00_2170 =
																			BGl_symbol2501z00zz__evobjectz00;
																	}
																{	/* Eval/evobject.scm 686 */
																	bool_t BgL_readzd2onlyzf3z21_3735;
																	obj_t BgL_defaultzd2valuezd2_3736;
																	obj_t BgL_getterz00_3737;
																	obj_t BgL_setterz00_3738;
																	obj_t BgL_userzd2infozd2_3739;

																	BgL_readzd2onlyzf3z21_3735 =
																		BgL_ronlyz00_2085;
																	BgL_defaultzd2valuezd2_3736 = BgL_defz00_2081;
																	BgL_getterz00_3737 = BgL_getz00_2082;
																	BgL_setterz00_3738 = BgL_setz00_2083;
																	BgL_userzd2infozd2_3739 = BgL_infoz00_2084;
																	{	/* Eval/evobject.scm 80 */
																		obj_t BgL_newz00_3740;

																		BgL_newz00_3740 =
																			create_struct
																			(BGl_symbol2503z00zz__evobjectz00,
																			(int) (8L));
																		{	/* Eval/evobject.scm 80 */
																			int BgL_tmpz00_6172;

																			BgL_tmpz00_6172 = (int) (7L);
																			STRUCT_SET(BgL_newz00_3740,
																				BgL_tmpz00_6172,
																				BgL_userzd2infozd2_3739);
																		}
																		{	/* Eval/evobject.scm 80 */
																			int BgL_tmpz00_6175;

																			BgL_tmpz00_6175 = (int) (6L);
																			STRUCT_SET(BgL_newz00_3740,
																				BgL_tmpz00_6175, BgL_setterz00_3738);
																		}
																		{	/* Eval/evobject.scm 80 */
																			int BgL_tmpz00_6178;

																			BgL_tmpz00_6178 = (int) (5L);
																			STRUCT_SET(BgL_newz00_3740,
																				BgL_tmpz00_6178, BgL_getterz00_3737);
																		}
																		{	/* Eval/evobject.scm 80 */
																			obj_t BgL_auxz00_6183;
																			int BgL_tmpz00_6181;

																			BgL_auxz00_6183 = BINT(0L);
																			BgL_tmpz00_6181 = (int) (4L);
																			STRUCT_SET(BgL_newz00_3740,
																				BgL_tmpz00_6181, BgL_auxz00_6183);
																		}
																		{	/* Eval/evobject.scm 80 */
																			int BgL_tmpz00_6186;

																			BgL_tmpz00_6186 = (int) (3L);
																			STRUCT_SET(BgL_newz00_3740,
																				BgL_tmpz00_6186,
																				BgL_defaultzd2valuezd2_3736);
																		}
																		{	/* Eval/evobject.scm 80 */
																			obj_t BgL_auxz00_6191;
																			int BgL_tmpz00_6189;

																			BgL_auxz00_6191 =
																				BBOOL(BgL_readzd2onlyzf3z21_3735);
																			BgL_tmpz00_6189 = (int) (2L);
																			STRUCT_SET(BgL_newz00_3740,
																				BgL_tmpz00_6189, BgL_auxz00_6191);
																		}
																		{	/* Eval/evobject.scm 80 */
																			int BgL_tmpz00_6194;

																			BgL_tmpz00_6194 = (int) (1L);
																			STRUCT_SET(BgL_newz00_3740,
																				BgL_tmpz00_6194, BgL_arg1951z00_2170);
																		}
																		{	/* Eval/evobject.scm 80 */
																			int BgL_tmpz00_6197;

																			BgL_tmpz00_6197 = (int) (0L);
																			STRUCT_SET(BgL_newz00_3740,
																				BgL_tmpz00_6197, BgL_idz00_2079);
																		}
																		BgL_sz00_2168 = BgL_newz00_3740;
															}}}
															{	/* Eval/evobject.scm 689 */
																obj_t BgL_list1950z00_2169;

																BgL_list1950z00_2169 =
																	MAKE_YOUNG_PAIR(BgL_sz00_2168, BNIL);
																return BgL_list1950z00_2169;
															}
														}
												}
										}
									}
								}
							}
						}
					else
						{	/* Eval/evobject.scm 636 */
							obj_t BgL_arg1952z00_2172;

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

								BgL__ortest_1046z00_2173 =
									BGl_getzd2sourcezd2locationz00zz__readerz00(BgL_fz00_109);
								if (CBOOL(BgL__ortest_1046z00_2173))
									{	/* Eval/evobject.scm 636 */
										BgL_arg1952z00_2172 = BgL__ortest_1046z00_2173;
									}
								else
									{	/* Eval/evobject.scm 636 */
										BgL_arg1952z00_2172 = BgL_locz00_108;
									}
							}
							return
								BGl_evcompilezd2errorzd2zz__evcompilez00(BgL_arg1952z00_2172,
								BGl_string2507z00zz__evobjectz00,
								BGl_string2508z00zz__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_2176;

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

					BgL__ortest_1051z00_2272 =
						BGl_getzd2sourcezd2locationz00zz__readerz00(BgL_clausesz00_111);
					if (CBOOL(BgL__ortest_1051z00_2272))
						{	/* Eval/evobject.scm 698 */
							BgL_locz00_2176 = BgL__ortest_1051z00_2272;
						}
					else
						{	/* Eval/evobject.scm 698 */
							BgL_locz00_2176 = BgL_locz00_110;
						}
				}
				if (NULLP(BgL_clausesz00_111))
					{	/* Eval/evobject.scm 700 */
						{	/* Eval/evobject.scm 701 */
							int BgL_tmpz00_6210;

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

							BgL_tmpz00_6213 = (int) (1L);
							BGL_MVALUES_VAL_SET(BgL_tmpz00_6213, 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_test2785z00_6218;

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

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

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

												BgL_tmpz00_6223 = CAR(BgL_ezd2277zd2_2264);
												BgL_test2787z00_6222 = SYMBOLP(BgL_tmpz00_6223);
											}
											if (BgL_test2787z00_6222)
												{	/* Eval/evobject.scm 705 */
													BgL_test2785z00_6218 =
														NULLP(CDR(BgL_ezd2277zd2_2264));
												}
											else
												{	/* Eval/evobject.scm 705 */
													BgL_test2785z00_6218 = ((bool_t) 0);
												}
										}
									else
										{	/* Eval/evobject.scm 705 */
											BgL_test2785z00_6218 = ((bool_t) 0);
										}
								}
								if (BgL_test2785z00_6218)
									{	/* Eval/evobject.scm 708 */
										obj_t BgL_val0_1143z00_2192;
										obj_t BgL_val1_1144z00_2193;

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

											{	/* Eval/evobject.scm 708 */
												obj_t BgL_arg1965z00_2195;
												obj_t BgL_arg1966z00_2196;

												BgL_arg1965z00_2195 =
													MAKE_YOUNG_PAIR(BGl_symbol2519z00zz__evobjectz00,
													BNIL);
												{	/* Eval/evobject.scm 708 */
													obj_t BgL_arg1967z00_2197;

													{	/* Eval/evobject.scm 708 */
														obj_t BgL_arg1968z00_2198;
														obj_t BgL_arg1969z00_2199;

														BgL_arg1968z00_2198 = CAR(CAR(BgL_clausesz00_111));
														BgL_arg1969z00_2199 =
															MAKE_YOUNG_PAIR(BGl_symbol2519z00zz__evobjectz00,
															BNIL);
														BgL_arg1967z00_2197 =
															MAKE_YOUNG_PAIR(BgL_arg1968z00_2198,
															BgL_arg1969z00_2199);
													}
													BgL_arg1966z00_2196 =
														MAKE_YOUNG_PAIR(BgL_arg1967z00_2197, BNIL);
												}
												BgL_arg1964z00_2194 =
													MAKE_YOUNG_PAIR(BgL_arg1965z00_2195,
													BgL_arg1966z00_2196);
											}
											BgL_val0_1143z00_2192 =
												MAKE_YOUNG_PAIR(BGl_symbol2438z00zz__evobjectz00,
												BgL_arg1964z00_2194);
										}
										BgL_val1_1144z00_2193 =
											BGl_zc3z04anonymousza31970ze3ze70z60zz__evobjectz00
											(BgL_locz00_2176, CDR(BgL_clausesz00_111));
										{	/* Eval/evobject.scm 708 */
											int BgL_tmpz00_6238;

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

											BgL_tmpz00_6241 = (int) (1L);
											BGL_MVALUES_VAL_SET(BgL_tmpz00_6241,
												BgL_val1_1144z00_2193);
										}
										return BgL_val0_1143z00_2192;
									}
								else
									{	/* Eval/evobject.scm 712 */
										bool_t BgL_test2788z00_6244;

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

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

													BgL_carzd2283zd2_2256 = CAR(BgL_ezd2282zd2_2254);
													if (PAIRP(BgL_carzd2283zd2_2256))
														{	/* Eval/evobject.scm 712 */
															if (
																(CAR(BgL_carzd2283zd2_2256) ==
																	BGl_symbol2438z00zz__evobjectz00))
																{	/* Eval/evobject.scm 712 */
																	BgL_test2788z00_6244 =
																		NULLP(CDR(BgL_ezd2282zd2_2254));
																}
															else
																{	/* Eval/evobject.scm 712 */
																	BgL_test2788z00_6244 = ((bool_t) 0);
																}
														}
													else
														{	/* Eval/evobject.scm 712 */
															BgL_test2788z00_6244 = ((bool_t) 0);
														}
												}
											else
												{	/* Eval/evobject.scm 712 */
													BgL_test2788z00_6244 = ((bool_t) 0);
												}
										}
										if (BgL_test2788z00_6244)
											{	/* Eval/evobject.scm 715 */
												obj_t BgL_val0_1148z00_2223;
												obj_t BgL_val1_1149z00_2224;

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

													{	/* Eval/evobject.scm 715 */
														obj_t BgL_arg1985z00_2226;
														obj_t BgL_arg1986z00_2227;

														BgL_arg1985z00_2226 =
															MAKE_YOUNG_PAIR(BGl_symbol2519z00zz__evobjectz00,
															BNIL);
														{	/* Eval/evobject.scm 715 */
															obj_t BgL_arg1987z00_2228;

															{	/* Eval/evobject.scm 715 */
																obj_t BgL_arg1988z00_2229;
																obj_t BgL_arg1989z00_2230;

																BgL_arg1988z00_2229 =
																	CAR(CAR(BgL_clausesz00_111));
																BgL_arg1989z00_2230 =
																	MAKE_YOUNG_PAIR
																	(BGl_symbol2519z00zz__evobjectz00, BNIL);
																BgL_arg1987z00_2228 =
																	MAKE_YOUNG_PAIR(BgL_arg1988z00_2229,
																	BgL_arg1989z00_2230);
															}
															BgL_arg1986z00_2227 =
																MAKE_YOUNG_PAIR(BgL_arg1987z00_2228, BNIL);
														}
														BgL_arg1984z00_2225 =
															MAKE_YOUNG_PAIR(BgL_arg1985z00_2226,
															BgL_arg1986z00_2227);
													}
													BgL_val0_1148z00_2223 =
														MAKE_YOUNG_PAIR(BGl_symbol2438z00zz__evobjectz00,
														BgL_arg1984z00_2225);
												}
												BgL_val1_1149z00_2224 =
													BGl_zc3z04anonymousza31990ze3ze70z60zz__evobjectz00
													(BgL_locz00_2176, CDR(BgL_clausesz00_111));
												{	/* Eval/evobject.scm 715 */
													int BgL_tmpz00_6266;

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

													BgL_tmpz00_6269 = (int) (1L);
													BGL_MVALUES_VAL_SET(BgL_tmpz00_6269,
														BgL_val1_1149z00_2224);
												}
												return BgL_val0_1148z00_2223;
											}
										else
											{	/* Eval/evobject.scm 720 */
												obj_t BgL_val1_1153z00_2242;

												BgL_val1_1153z00_2242 =
													BGl_zc3z04anonymousza31995ze3ze70z60zz__evobjectz00
													(BgL_locz00_2176, BgL_clausesz00_111);
												{	/* Eval/evobject.scm 720 */
													int BgL_tmpz00_6273;

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

													BgL_tmpz00_6276 = (int) (1L);
													BGL_MVALUES_VAL_SET(BgL_tmpz00_6276,
														BgL_val1_1153z00_2242);
												}
												return BFALSE;
											}
									}
							}
						else
							{	/* Eval/evobject.scm 703 */
								obj_t BgL_arg2004z00_2270;

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

									BgL__ortest_1052z00_2271 =
										BGl_getzd2sourcezd2locationz00zz__readerz00
										(BgL_clausesz00_111);
									if (CBOOL(BgL__ortest_1052z00_2271))
										{	/* Eval/evobject.scm 703 */
											BgL_arg2004z00_2270 = BgL__ortest_1052z00_2271;
										}
									else
										{	/* Eval/evobject.scm 703 */
											BgL_arg2004z00_2270 = BgL_locz00_2176;
										}
								}
								return
									BGl_evcompilezd2errorzd2zz__evcompilez00(BgL_arg2004z00_2270,
									BGl_string2507z00zz__evobjectz00,
									BGl_string2521z00zz__evobjectz00, BgL_clausesz00_111);
							}
					}
			}
		}

	}



/* <@anonymous:1995>~0 */
	obj_t BGl_zc3z04anonymousza31995ze3ze70z60zz__evobjectz00(obj_t
		BgL_locz00_4406, obj_t BgL_l1151z00_2244)
	{
		{	/* Eval/evobject.scm 721 */
			if (NULLP(BgL_l1151z00_2244))
				{	/* Eval/evobject.scm 721 */
					return BNIL;
				}
			else
				{	/* Eval/evobject.scm 722 */
					obj_t BgL_arg1997z00_2247;
					obj_t BgL_arg1998z00_2248;

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

						BgL_fz00_2249 = CAR(((obj_t) BgL_l1151z00_2244));
						BgL_arg1997z00_2247 =
							BGl_evalzd2parsezd2classzd2slotzd2zz__evobjectz00(BgL_locz00_4406,
							BgL_fz00_2249);
					}
					{	/* Eval/evobject.scm 721 */
						obj_t BgL_arg1999z00_2250;

						BgL_arg1999z00_2250 = CDR(((obj_t) BgL_l1151z00_2244));
						BgL_arg1998z00_2248 =
							BGl_zc3z04anonymousza31995ze3ze70z60zz__evobjectz00
							(BgL_locz00_4406, BgL_arg1999z00_2250);
					}
					return bgl_append2(BgL_arg1997z00_2247, BgL_arg1998z00_2248);
				}
		}

	}



/* <@anonymous:1990>~0 */
	obj_t BGl_zc3z04anonymousza31990ze3ze70z60zz__evobjectz00(obj_t
		BgL_locz00_4407, obj_t BgL_l1146z00_2233)
	{
		{	/* Eval/evobject.scm 718 */
			if (NULLP(BgL_l1146z00_2233))
				{	/* Eval/evobject.scm 718 */
					return BNIL;
				}
			else
				{	/* Eval/evobject.scm 717 */
					obj_t BgL_arg1992z00_2236;
					obj_t BgL_arg1993z00_2237;

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

						BgL_fz00_2238 = CAR(((obj_t) BgL_l1146z00_2233));
						BgL_arg1992z00_2236 =
							BGl_evalzd2parsezd2classzd2slotzd2zz__evobjectz00(BgL_locz00_4407,
							BgL_fz00_2238);
					}
					{	/* Eval/evobject.scm 718 */
						obj_t BgL_arg1994z00_2239;

						BgL_arg1994z00_2239 = CDR(((obj_t) BgL_l1146z00_2233));
						BgL_arg1993z00_2237 =
							BGl_zc3z04anonymousza31990ze3ze70z60zz__evobjectz00
							(BgL_locz00_4407, BgL_arg1994z00_2239);
					}
					return bgl_append2(BgL_arg1992z00_2236, BgL_arg1993z00_2237);
				}
		}

	}



/* <@anonymous:1970>~0 */
	obj_t BGl_zc3z04anonymousza31970ze3ze70z60zz__evobjectz00(obj_t
		BgL_locz00_4408, obj_t BgL_l1141z00_2202)
	{
		{	/* Eval/evobject.scm 711 */
			if (NULLP(BgL_l1141z00_2202))
				{	/* Eval/evobject.scm 711 */
					return BNIL;
				}
			else
				{	/* Eval/evobject.scm 710 */
					obj_t BgL_arg1972z00_2205;
					obj_t BgL_arg1973z00_2206;

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

						BgL_fz00_2207 = CAR(((obj_t) BgL_l1141z00_2202));
						BgL_arg1972z00_2205 =
							BGl_evalzd2parsezd2classzd2slotzd2zz__evobjectz00(BgL_locz00_4408,
							BgL_fz00_2207);
					}
					{	/* Eval/evobject.scm 711 */
						obj_t BgL_arg1974z00_2208;

						BgL_arg1974z00_2208 = CDR(((obj_t) BgL_l1141z00_2202));
						BgL_arg1973z00_2206 =
							BGl_zc3z04anonymousza31970ze3ze70z60zz__evobjectz00
							(BgL_locz00_4408, BgL_arg1974z00_2208);
					}
					return bgl_append2(BgL_arg1972z00_2205, BgL_arg1973z00_2206);
				}
		}

	}



/* 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_2273;

				BgL_cidz00_2273 =
					BGl_decomposezd2identzd2zz__evobjectz00(BgL_idz00_112);
				{	/* Eval/evobject.scm 730 */
					obj_t BgL_sidz00_2274;

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

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

							BgL_tmpz00_6311 = (int) (1L);
							BgL_tmpz00_3773 = BGL_MVALUES_VAL(BgL_tmpz00_6311);
						}
						{	/* Eval/evobject.scm 731 */
							int BgL_tmpz00_6314;

							BgL_tmpz00_6314 = (int) (1L);
							BGL_MVALUES_VAL_SET(BgL_tmpz00_6314, BUNSPEC);
						}
						BgL_sidz00_2274 = BgL_tmpz00_3773;
					}
					{	/* Eval/evobject.scm 731 */
						obj_t BgL_locz00_2275;

						BgL_locz00_2275 =
							BGl_getzd2sourcezd2locationz00zz__readerz00(BgL_srcz00_115);
						{	/* Eval/evobject.scm 731 */
							obj_t BgL_sidz00_2276;

							if (CBOOL(BgL_sidz00_2274))
								{	/* Eval/evobject.scm 732 */
									BgL_sidz00_2276 = BgL_sidz00_2274;
								}
							else
								{	/* Eval/evobject.scm 732 */
									BgL_sidz00_2276 = BGl_symbol2522z00zz__evobjectz00;
								}
							{	/* Eval/evobject.scm 732 */
								obj_t BgL_superz00_2277;

								BgL_superz00_2277 =
									BGl_findzd2classzd2zz__objectz00(BgL_sidz00_2276);
								{	/* Eval/evobject.scm 733 */

									if (BGl_classzf3zf3zz__objectz00(BgL_superz00_2277))
										{	/* Eval/evobject.scm 736 */
											obj_t BgL_constructorz00_2279;

											BgL_constructorz00_2279 =
												BGl_evalzd2parsezd2classz00zz__evobjectz00
												(BgL_locz00_2275, BgL_clausesz00_114);
											{	/* Eval/evobject.scm 737 */
												obj_t BgL_slotsz00_2280;

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

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

														BgL_tmpz00_6324 = (int) (1L);
														BgL_tmpz00_3774 = BGL_MVALUES_VAL(BgL_tmpz00_6324);
													}
													{	/* Eval/evobject.scm 739 */
														int BgL_tmpz00_6327;

														BgL_tmpz00_6327 = (int) (1L);
														BGL_MVALUES_VAL_SET(BgL_tmpz00_6327, BUNSPEC);
													}
													BgL_slotsz00_2280 = BgL_tmpz00_3774;
												}
												{	/* Eval/evobject.scm 739 */
													obj_t BgL_claza7za7z00_2281;

													BgL_claza7za7z00_2281 =
														BGl_evalzd2registerzd2classz00zz__evobjectz00
														(BgL_cidz00_2273, BgL_modz00_116, BgL_superz00_2277,
														BgL_abstractz00_113, BgL_slotsz00_2280,
														BGl_getzd2classzd2hashz00zz__evobjectz00
														(BgL_srcz00_115),
														BGl_evalz12z12zz__evalz00(BgL_constructorz00_2279,
															BgL_modz00_116));
													{	/* Eval/evobject.scm 739 */

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

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

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

																	BgL_arg2008z00_2286 =
																		MAKE_YOUNG_PAIR(BgL_claza7za7z00_2281,
																		BNIL);
																	BgL_arg2007z00_2285 =
																		MAKE_YOUNG_PAIR(BgL_cidz00_2273,
																		BgL_arg2008z00_2286);
																}
																BgL_arg2006z00_2282 =
																	MAKE_YOUNG_PAIR
																	(BGl_symbol2524z00zz__evobjectz00,
																	BgL_arg2007z00_2285);
															}
															{	/* Eval/eval.scm 82 */
																obj_t BgL_envz00_2284;

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

																	BGl_evalz12z12zz__evalz00(BgL_arg2006z00_2282,
																		BgL_envz00_2284);
														}}}
														BGl_evalzd2expandzd2withzd2accesszd2zz__evobjectz00
															(BgL_claza7za7z00_2281);
														{	/* Eval/evobject.scm 749 */
															obj_t BgL_fieldsz00_2287;

															BgL_fieldsz00_2287 =
																BGl_classzd2fieldszd2zz__objectz00
																(BgL_claza7za7z00_2281);
															BGl_patchzd2fieldzd2defaultzd2valuesz12zc0zz__evobjectz00
																(BgL_slotsz00_2280, BgL_fieldsz00_2287,
																BgL_modz00_116);
															{	/* Eval/evobject.scm 753 */
																obj_t BgL_arg2009z00_2288;

																BgL_arg2009z00_2288 =
																	BGL_CLASS_VIRTUAL_FIELDS
																	(BgL_claza7za7z00_2281);
																BGl_patchzd2vfieldzd2accessorsz12z12zz__evobjectz00
																	(BgL_slotsz00_2280, BgL_fieldsz00_2287,
																	BgL_arg2009z00_2288, BgL_modz00_116);
														}}
														if (BgL_abstractz00_113)
															{	/* Eval/evobject.scm 755 */
																BFALSE;
															}
														else
															{	/* Eval/evobject.scm 755 */
																BGl_evalzd2expandzd2instantiatez00zz__evobjectz00
																	(BgL_claza7za7z00_2281);
																BGl_evalzd2expandzd2duplicatez00zz__evobjectz00
																	(BgL_claza7za7z00_2281);
															}
														{	/* Eval/evobject.scm 758 */
															obj_t BgL_list2010z00_2289;

															BgL_list2010z00_2289 =
																MAKE_YOUNG_PAIR(BgL_cidz00_2273, BNIL);
															return BgL_list2010z00_2289;
														}
													}
												}
											}
										}
									else
										{	/* Eval/evobject.scm 734 */
											return
												BGl_evcompilezd2errorzd2zz__evcompilez00
												(BgL_locz00_2275, BGl_string2507z00zz__evobjectz00,
												BGl_string2526z00zz__evobjectz00, BgL_sidz00_2276);
										}
								}
							}
						}
					}
				}
			}
		}

	}



/* &eval-class */
	obj_t BGl_z62evalzd2classzb0zz__evobjectz00(obj_t BgL_envz00_4396,
		obj_t BgL_idz00_4397, obj_t BgL_abstractz00_4398, obj_t BgL_clausesz00_4399,
		obj_t BgL_srcz00_4400, obj_t BgL_modz00_4401)
	{
		{	/* Eval/evobject.scm 728 */
			{	/* Eval/evobject.scm 729 */
				obj_t BgL_auxz00_6363;
				obj_t BgL_auxz00_6355;
				obj_t BgL_auxz00_6348;

				if (PAIRP(BgL_srcz00_4400))
					{	/* Eval/evobject.scm 729 */
						BgL_auxz00_6363 = BgL_srcz00_4400;
					}
				else
					{
						obj_t BgL_auxz00_6366;

						BgL_auxz00_6366 =
							BGl_typezd2errorzd2zz__errorz00(BGl_string2462z00zz__evobjectz00,
							BINT(26399L), BGl_string2527z00zz__evobjectz00,
							BGl_string2530z00zz__evobjectz00, BgL_srcz00_4400);
						FAILURE(BgL_auxz00_6366, BFALSE, BFALSE);
					}
				if (BGl_pairzd2orzd2nullzf3zf3zz__r4_pairs_and_lists_6_3z00
					(BgL_clausesz00_4399))
					{	/* Eval/evobject.scm 729 */
						BgL_auxz00_6355 = BgL_clausesz00_4399;
					}
				else
					{
						obj_t BgL_auxz00_6359;

						BgL_auxz00_6359 =
							BGl_typezd2errorzd2zz__errorz00(BGl_string2462z00zz__evobjectz00,
							BINT(26399L), BGl_string2527z00zz__evobjectz00,
							BGl_string2529z00zz__evobjectz00, BgL_clausesz00_4399);
						FAILURE(BgL_auxz00_6359, BFALSE, BFALSE);
					}
				if (SYMBOLP(BgL_idz00_4397))
					{	/* Eval/evobject.scm 729 */
						BgL_auxz00_6348 = BgL_idz00_4397;
					}
				else
					{
						obj_t BgL_auxz00_6351;

						BgL_auxz00_6351 =
							BGl_typezd2errorzd2zz__errorz00(BGl_string2462z00zz__evobjectz00,
							BINT(26399L), BGl_string2527z00zz__evobjectz00,
							BGl_string2528z00zz__evobjectz00, BgL_idz00_4397);
						FAILURE(BgL_auxz00_6351, BFALSE, BFALSE);
					}
				return
					BGl_evalzd2classzd2zz__evobjectz00(BgL_auxz00_6348,
					CBOOL(BgL_abstractz00_4398), BgL_auxz00_6355, BgL_auxz00_6363,
					BgL_modz00_4401);
			}
		}

	}



/* 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_string2531z00zz__evobjectz00, BGl_string2532z00zz__evobjectz00,
						BgL_xz00_117);
				}
			else
				{	/* Eval/evobject.scm 764 */
					obj_t BgL_cdrzd2295zd2_2299;

					BgL_cdrzd2295zd2_2299 = CDR(((obj_t) BgL_xz00_117));
					if ((CAR(((obj_t) BgL_xz00_117)) == BGl_symbol2533z00zz__evobjectz00))
						{	/* Eval/evobject.scm 764 */
							if (PAIRP(BgL_cdrzd2295zd2_2299))
								{	/* Eval/evobject.scm 764 */
									return
										BGl_cozd2instantiatezd2ze3letze3zz__evobjectz00(CAR
										(BgL_cdrzd2295zd2_2299), CDR(BgL_cdrzd2295zd2_2299),
										BgL_xz00_117, BgL_ez00_118);
								}
							else
								{	/* Eval/evobject.scm 764 */
									return
										BGl_expandzd2errorzd2zz__evobjectz00
										(BGl_string2531z00zz__evobjectz00,
										BGl_string2532z00zz__evobjectz00, BgL_xz00_117);
								}
						}
					else
						{	/* Eval/evobject.scm 764 */
							return
								BGl_expandzd2errorzd2zz__evobjectz00
								(BGl_string2531z00zz__evobjectz00,
								BGl_string2532z00zz__evobjectz00, BgL_xz00_117);
						}
				}
		}

	}



/* &eval-co-instantiate-expander */
	obj_t BGl_z62evalzd2cozd2instantiatezd2expanderzb0zz__evobjectz00(obj_t
		BgL_envz00_4402, obj_t BgL_xz00_4403, obj_t BgL_ez00_4404)
	{
		{	/* Eval/evobject.scm 763 */
			{	/* Eval/evobject.scm 764 */
				obj_t BgL_auxz00_6394;
				obj_t BgL_auxz00_6387;

				if (PROCEDUREP(BgL_ez00_4404))
					{	/* Eval/evobject.scm 764 */
						BgL_auxz00_6394 = BgL_ez00_4404;
					}
				else
					{
						obj_t BgL_auxz00_6397;

						BgL_auxz00_6397 =
							BGl_typezd2errorzd2zz__errorz00(BGl_string2462z00zz__evobjectz00,
							BINT(27757L), BGl_string2534z00zz__evobjectz00,
							BGl_string2535z00zz__evobjectz00, BgL_ez00_4404);
						FAILURE(BgL_auxz00_6397, BFALSE, BFALSE);
					}
				if (BGl_pairzd2orzd2nullzf3zf3zz__r4_pairs_and_lists_6_3z00
					(BgL_xz00_4403))
					{	/* Eval/evobject.scm 764 */
						BgL_auxz00_6387 = BgL_xz00_4403;
					}
				else
					{
						obj_t BgL_auxz00_6390;

						BgL_auxz00_6390 =
							BGl_typezd2errorzd2zz__errorz00(BGl_string2462z00zz__evobjectz00,
							BINT(27757L), BGl_string2534z00zz__evobjectz00,
							BGl_string2529z00zz__evobjectz00, BgL_xz00_4403);
						FAILURE(BgL_auxz00_6390, BFALSE, BFALSE);
					}
				return
					BGl_evalzd2cozd2instantiatezd2expanderzd2zz__evobjectz00
					(BgL_auxz00_6387, BgL_auxz00_6394);
			}
		}

	}



/* 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_2404;
				obj_t BgL_bdgz00_2405;

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

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

							BgL_head1156z00_2363 = MAKE_YOUNG_PAIR(BNIL, BNIL);
							{
								obj_t BgL_l1154z00_2365;
								obj_t BgL_tail1157z00_2366;

								BgL_l1154z00_2365 = BgL_bindingsz00_121;
								BgL_tail1157z00_2366 = BgL_head1156z00_2363;
							BgL_zc3z04anonymousza32057ze3z87_2367:
								if (NULLP(BgL_l1154z00_2365))
									{	/* Eval/evobject.scm 805 */
										BgL_varsz00_2308 = CDR(BgL_head1156z00_2363);
									}
								else
									{	/* Eval/evobject.scm 805 */
										obj_t BgL_newtail1158z00_2369;

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

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

												BgL_bdgz00_2372 = CAR(((obj_t) BgL_l1154z00_2365));
												{
													obj_t BgL_varz00_2373;
													obj_t BgL_exprz00_2374;

													if (PAIRP(BgL_bdgz00_2372))
														{	/* Eval/evobject.scm 806 */
															obj_t BgL_carzd2320zd2_2379;
															obj_t BgL_cdrzd2321zd2_2380;

															BgL_carzd2320zd2_2379 =
																CAR(((obj_t) BgL_bdgz00_2372));
															BgL_cdrzd2321zd2_2380 =
																CDR(((obj_t) BgL_bdgz00_2372));
															if (SYMBOLP(BgL_carzd2320zd2_2379))
																{	/* Eval/evobject.scm 806 */
																	if (PAIRP(BgL_cdrzd2321zd2_2380))
																		{	/* Eval/evobject.scm 806 */
																			if (NULLP(CDR(BgL_cdrzd2321zd2_2380)))
																				{	/* Eval/evobject.scm 806 */
																					BgL_varz00_2373 =
																						BgL_carzd2320zd2_2379;
																					BgL_exprz00_2374 =
																						CAR(BgL_cdrzd2321zd2_2380);
																					{	/* Eval/evobject.scm 808 */
																						obj_t BgL_idzd2typezd2_2387;

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

																							BgL_idz00_3918 =
																								BGl_decomposezd2identzd2zz__evobjectz00
																								(BgL_varz00_2373);
																							{	/* Eval/evobject.scm 783 */
																								obj_t BgL_typez00_3919;

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

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

																										BgL_tmpz00_6424 =
																											(int) (1L);
																										BgL_tmpz00_3920 =
																											BGL_MVALUES_VAL
																											(BgL_tmpz00_6424);
																									}
																									{	/* Eval/evobject.scm 784 */
																										int BgL_tmpz00_6427;

																										BgL_tmpz00_6427 =
																											(int) (1L);
																										BGL_MVALUES_VAL_SET
																											(BgL_tmpz00_6427,
																											BUNSPEC);
																									}
																									BgL_typez00_3919 =
																										BgL_tmpz00_3920;
																								}
																								BgL_idzd2typezd2_2387 =
																									MAKE_YOUNG_PAIR
																									(BgL_idz00_3918,
																									BgL_typez00_3919);
																						}}
																						{	/* Eval/evobject.scm 808 */
																							obj_t BgL_idz00_2388;

																							BgL_idz00_2388 =
																								CAR(BgL_idzd2typezd2_2387);
																							{	/* Eval/evobject.scm 809 */
																								obj_t BgL_tz00_2389;

																								BgL_tz00_2389 =
																									CDR(BgL_idzd2typezd2_2387);
																								{	/* Eval/evobject.scm 810 */
																									obj_t BgL_klassz00_2390;

																									BgL_exprz00_2404 =
																										BgL_exprz00_2374;
																									BgL_bdgz00_2405 =
																										BgL_bdgz00_2372;
																									{
																										obj_t
																											BgL_instantiatez00_2407;
																										obj_t BgL_bodyz00_2408;

																										if (PAIRP(BgL_exprz00_2404))
																											{	/* Eval/evobject.scm 803 */
																												obj_t
																													BgL_arg2083z00_2413;
																												obj_t
																													BgL_arg2085z00_2414;
																												BgL_arg2083z00_2413 =
																													CAR(((obj_t)
																														BgL_exprz00_2404));
																												BgL_arg2085z00_2414 =
																													CDR(((obj_t)
																														BgL_exprz00_2404));
																												BgL_instantiatez00_2407
																													= BgL_arg2083z00_2413;
																												BgL_bodyz00_2408 =
																													BgL_arg2085z00_2414;
																												{	/* Eval/evobject.scm 789 */
																													obj_t
																														BgL_idzd2typezd2_2415;
																													{	/* Eval/evobject.scm 782 */
																														obj_t
																															BgL_idz00_3809;
																														BgL_idz00_3809 =
																															BGl_decomposezd2identzd2zz__evobjectz00
																															(BgL_instantiatez00_2407);
																														{	/* Eval/evobject.scm 783 */
																															obj_t
																																BgL_typez00_3810;
																															{	/* Eval/evobject.scm 784 */
																																obj_t
																																	BgL_tmpz00_3811;
																																{	/* Eval/evobject.scm 784 */
																																	int
																																		BgL_tmpz00_6440;
																																	BgL_tmpz00_6440
																																		=
																																		(int) (1L);
																																	BgL_tmpz00_3811
																																		=
																																		BGL_MVALUES_VAL
																																		(BgL_tmpz00_6440);
																																}
																																{	/* Eval/evobject.scm 784 */
																																	int
																																		BgL_tmpz00_6443;
																																	BgL_tmpz00_6443
																																		=
																																		(int) (1L);
																																	BGL_MVALUES_VAL_SET
																																		(BgL_tmpz00_6443,
																																		BUNSPEC);
																																}
																																BgL_typez00_3810
																																	=
																																	BgL_tmpz00_3811;
																															}
																															BgL_idzd2typezd2_2415
																																=
																																MAKE_YOUNG_PAIR
																																(BgL_idz00_3809,
																																BgL_typez00_3810);
																													}}
																													{	/* Eval/evobject.scm 789 */
																														obj_t
																															BgL_kclassz00_2416;
																														BgL_kclassz00_2416 =
																															BGl_findzd2classzd2zz__objectz00
																															(CDR
																															(BgL_idzd2typezd2_2415));
																														{	/* Eval/evobject.scm 790 */

																															if (
																																(CAR
																																	(BgL_idzd2typezd2_2415)
																																	==
																																	BGl_symbol2536z00zz__evobjectz00))
																																{	/* Eval/evobject.scm 792 */
																																	if (BGl_classzf3zf3zz__objectz00(BgL_kclassz00_2416))
																																		{	/* Eval/evobject.scm 794 */
																																			if (BGl_classzd2abstractzf3z21zz__objectz00(BgL_kclassz00_2416))
																																				{	/* Eval/evobject.scm 72 */
																																					obj_t
																																						BgL_locz00_3814;
																																					if (EPAIRP(BgL_bdgz00_2405))
																																						{	/* Eval/evobject.scm 72 */
																																							BgL_locz00_3814
																																								=
																																								CER
																																								(
																																								((obj_t) BgL_bdgz00_2405));
																																						}
																																					else
																																						{	/* Eval/evobject.scm 72 */
																																							BgL_locz00_3814
																																								=
																																								BFALSE;
																																						}
																																					{	/* Eval/evobject.scm 73 */
																																						bool_t
																																							BgL_test2818z00_6460;
																																						if (PAIRP(BgL_locz00_3814))
																																							{	/* Eval/evobject.scm 73 */
																																								bool_t
																																									BgL_test2820z00_6463;
																																								{	/* Eval/evobject.scm 73 */
																																									obj_t
																																										BgL_tmpz00_6464;
																																									BgL_tmpz00_6464
																																										=
																																										CDR
																																										(BgL_locz00_3814);
																																									BgL_test2820z00_6463
																																										=
																																										PAIRP
																																										(BgL_tmpz00_6464);
																																								}
																																								if (BgL_test2820z00_6463)
																																									{	/* Eval/evobject.scm 73 */
																																										obj_t
																																											BgL_tmpz00_6467;
																																										BgL_tmpz00_6467
																																											=
																																											CDR
																																											(CDR
																																											(BgL_locz00_3814));
																																										BgL_test2818z00_6460
																																											=
																																											PAIRP
																																											(BgL_tmpz00_6467);
																																									}
																																								else
																																									{	/* Eval/evobject.scm 73 */
																																										BgL_test2818z00_6460
																																											=
																																											(
																																											(bool_t)
																																											0);
																																									}
																																							}
																																						else
																																							{	/* Eval/evobject.scm 73 */
																																								BgL_test2818z00_6460
																																									=
																																									(
																																									(bool_t)
																																									0);
																																							}
																																						if (BgL_test2818z00_6460)
																																							{	/* Eval/evobject.scm 73 */
																																								BgL_klassz00_2390
																																									=
																																									BGl_errorzf2locationzf2zz__errorz00
																																									(BgL_instantiatez00_2407,
																																									BGl_string2538z00zz__evobjectz00,
																																									BgL_bdgz00_2405,
																																									CAR
																																									(CDR
																																										(BgL_locz00_3814)),
																																									CAR
																																									(CDR
																																										(CDR
																																											(BgL_locz00_3814))));
																																							}
																																						else
																																							{	/* Eval/evobject.scm 73 */
																																								BgL_klassz00_2390
																																									=
																																									BGl_errorz00zz__errorz00
																																									(BgL_instantiatez00_2407,
																																									BGl_string2538z00zz__evobjectz00,
																																									BgL_bdgz00_2405);
																																							}
																																					}
																																				}
																																			else
																																				{	/* Eval/evobject.scm 796 */
																																					BgL_klassz00_2390
																																						=
																																						BgL_kclassz00_2416;
																																				}
																																		}
																																	else
																																		{	/* Eval/evobject.scm 72 */
																																			obj_t
																																				BgL_locz00_3839;
																																			if (EPAIRP
																																				(BgL_bdgz00_2405))
																																				{	/* Eval/evobject.scm 72 */
																																					BgL_locz00_3839
																																						=
																																						CER(
																																						((obj_t) BgL_bdgz00_2405));
																																				}
																																			else
																																				{	/* Eval/evobject.scm 72 */
																																					BgL_locz00_3839
																																						=
																																						BFALSE;
																																				}
																																			{	/* Eval/evobject.scm 73 */
																																				bool_t
																																					BgL_test2822z00_6482;
																																				if (PAIRP(BgL_locz00_3839))
																																					{	/* Eval/evobject.scm 73 */
																																						bool_t
																																							BgL_test2824z00_6485;
																																						{	/* Eval/evobject.scm 73 */
																																							obj_t
																																								BgL_tmpz00_6486;
																																							BgL_tmpz00_6486
																																								=
																																								CDR
																																								(BgL_locz00_3839);
																																							BgL_test2824z00_6485
																																								=
																																								PAIRP
																																								(BgL_tmpz00_6486);
																																						}
																																						if (BgL_test2824z00_6485)
																																							{	/* Eval/evobject.scm 73 */
																																								obj_t
																																									BgL_tmpz00_6489;
																																								BgL_tmpz00_6489
																																									=
																																									CDR
																																									(CDR
																																									(BgL_locz00_3839));
																																								BgL_test2822z00_6482
																																									=
																																									PAIRP
																																									(BgL_tmpz00_6489);
																																							}
																																						else
																																							{	/* Eval/evobject.scm 73 */
																																								BgL_test2822z00_6482
																																									=
																																									(
																																									(bool_t)
																																									0);
																																							}
																																					}
																																				else
																																					{	/* Eval/evobject.scm 73 */
																																						BgL_test2822z00_6482
																																							=
																																							(
																																							(bool_t)
																																							0);
																																					}
																																				if (BgL_test2822z00_6482)
																																					{	/* Eval/evobject.scm 73 */
																																						BgL_klassz00_2390
																																							=
																																							BGl_errorzf2locationzf2zz__errorz00
																																							(BgL_instantiatez00_2407,
																																							BGl_string2539z00zz__evobjectz00,
																																							BgL_bdgz00_2405,
																																							CAR
																																							(CDR
																																								(BgL_locz00_3839)),
																																							CAR
																																							(CDR
																																								(CDR
																																									(BgL_locz00_3839))));
																																					}
																																				else
																																					{	/* Eval/evobject.scm 73 */
																																						BgL_klassz00_2390
																																							=
																																							BGl_errorz00zz__errorz00
																																							(BgL_instantiatez00_2407,
																																							BGl_string2539z00zz__evobjectz00,
																																							BgL_bdgz00_2405);
																																					}
																																			}
																																		}
																																}
																															else
																																{	/* Eval/evobject.scm 72 */
																																	obj_t
																																		BgL_locz00_3864;
																																	if (EPAIRP
																																		(BgL_bdgz00_2405))
																																		{	/* Eval/evobject.scm 72 */
																																			BgL_locz00_3864
																																				=
																																				CER((
																																					(obj_t)
																																					BgL_bdgz00_2405));
																																		}
																																	else
																																		{	/* Eval/evobject.scm 72 */
																																			BgL_locz00_3864
																																				=
																																				BFALSE;
																																		}
																																	{	/* Eval/evobject.scm 73 */
																																		bool_t
																																			BgL_test2826z00_6504;
																																		if (PAIRP
																																			(BgL_locz00_3864))
																																			{	/* Eval/evobject.scm 73 */
																																				bool_t
																																					BgL_test2828z00_6507;
																																				{	/* Eval/evobject.scm 73 */
																																					obj_t
																																						BgL_tmpz00_6508;
																																					BgL_tmpz00_6508
																																						=
																																						CDR
																																						(BgL_locz00_3864);
																																					BgL_test2828z00_6507
																																						=
																																						PAIRP
																																						(BgL_tmpz00_6508);
																																				}
																																				if (BgL_test2828z00_6507)
																																					{	/* Eval/evobject.scm 73 */
																																						obj_t
																																							BgL_tmpz00_6511;
																																						BgL_tmpz00_6511
																																							=
																																							CDR
																																							(CDR
																																							(BgL_locz00_3864));
																																						BgL_test2826z00_6504
																																							=
																																							PAIRP
																																							(BgL_tmpz00_6511);
																																					}
																																				else
																																					{	/* Eval/evobject.scm 73 */
																																						BgL_test2826z00_6504
																																							=
																																							(
																																							(bool_t)
																																							0);
																																					}
																																			}
																																		else
																																			{	/* Eval/evobject.scm 73 */
																																				BgL_test2826z00_6504
																																					=
																																					(
																																					(bool_t)
																																					0);
																																			}
																																		if (BgL_test2826z00_6504)
																																			{	/* Eval/evobject.scm 73 */
																																				BgL_klassz00_2390
																																					=
																																					BGl_errorzf2locationzf2zz__errorz00
																																					(BgL_instantiatez00_2407,
																																					BGl_string2540z00zz__evobjectz00,
																																					BgL_bdgz00_2405,
																																					CAR
																																					(CDR
																																						(BgL_locz00_3864)),
																																					CAR
																																					(CDR
																																						(CDR
																																							(BgL_locz00_3864))));
																																			}
																																		else
																																			{	/* Eval/evobject.scm 73 */
																																				BgL_klassz00_2390
																																					=
																																					BGl_errorz00zz__errorz00
																																					(BgL_instantiatez00_2407,
																																					BGl_string2540z00zz__evobjectz00,
																																					BgL_bdgz00_2405);
																																			}
																																	}
																																}
																														}
																													}
																												}
																											}
																										else
																											{	/* Eval/evobject.scm 803 */
																												BgL_klassz00_2390 =
																													BGl_expandzd2errorzd2zz__evobjectz00
																													(BGl_string2531z00zz__evobjectz00,
																													BGl_string2540z00zz__evobjectz00,
																													BgL_bdgz00_2405);
																											}
																									}
																									{	/* Eval/evobject.scm 811 */

																										{	/* Eval/evobject.scm 812 */
																											bool_t
																												BgL_test2829z00_6523;
																											if (CBOOL(BgL_tz00_2389))
																												{	/* Eval/evobject.scm 812 */
																													BgL_test2829z00_6523 =
																														(BgL_tz00_2389 ==
																														BGl_classzd2namezd2zz__objectz00
																														(BgL_klassz00_2390));
																												}
																											else
																												{	/* Eval/evobject.scm 812 */
																													BgL_test2829z00_6523 =
																														((bool_t) 1);
																												}
																											if (BgL_test2829z00_6523)
																												{	/* Eval/evobject.scm 813 */
																													obj_t
																														BgL_list2073z00_2393;
																													{	/* Eval/evobject.scm 813 */
																														obj_t
																															BgL_arg2074z00_2394;
																														{	/* Eval/evobject.scm 813 */
																															obj_t
																																BgL_arg2076z00_2395;
																															BgL_arg2076z00_2395
																																=
																																MAKE_YOUNG_PAIR
																																(BgL_exprz00_2374,
																																BNIL);
																															BgL_arg2074z00_2394
																																=
																																MAKE_YOUNG_PAIR
																																(BgL_klassz00_2390,
																																BgL_arg2076z00_2395);
																														}
																														BgL_list2073z00_2393
																															=
																															MAKE_YOUNG_PAIR
																															(BgL_idz00_2388,
																															BgL_arg2074z00_2394);
																													}
																													BgL_arg2060z00_2371 =
																														BgL_list2073z00_2393;
																												}
																											else
																												{	/* Eval/evobject.scm 814 */
																													obj_t
																														BgL_arg2077z00_2396;
																													BgL_arg2077z00_2396 =
																														CAR(BgL_xz00_123);
																													{	/* Eval/evobject.scm 72 */
																														obj_t
																															BgL_locz00_3925;
																														if (EPAIRP
																															(BgL_bdgz00_2372))
																															{	/* Eval/evobject.scm 72 */
																																BgL_locz00_3925
																																	=
																																	CER(((obj_t)
																																		BgL_bdgz00_2372));
																															}
																														else
																															{	/* Eval/evobject.scm 72 */
																																BgL_locz00_3925
																																	= BFALSE;
																															}
																														{	/* Eval/evobject.scm 73 */
																															bool_t
																																BgL_test2832z00_6536;
																															if (PAIRP
																																(BgL_locz00_3925))
																																{	/* Eval/evobject.scm 73 */
																																	bool_t
																																		BgL_test2834z00_6539;
																																	{	/* Eval/evobject.scm 73 */
																																		obj_t
																																			BgL_tmpz00_6540;
																																		BgL_tmpz00_6540
																																			=
																																			CDR
																																			(BgL_locz00_3925);
																																		BgL_test2834z00_6539
																																			=
																																			PAIRP
																																			(BgL_tmpz00_6540);
																																	}
																																	if (BgL_test2834z00_6539)
																																		{	/* Eval/evobject.scm 73 */
																																			obj_t
																																				BgL_tmpz00_6543;
																																			BgL_tmpz00_6543
																																				=
																																				CDR(CDR
																																				(BgL_locz00_3925));
																																			BgL_test2832z00_6536
																																				=
																																				PAIRP
																																				(BgL_tmpz00_6543);
																																		}
																																	else
																																		{	/* Eval/evobject.scm 73 */
																																			BgL_test2832z00_6536
																																				=
																																				(
																																				(bool_t)
																																				0);
																																		}
																																}
																															else
																																{	/* Eval/evobject.scm 73 */
																																	BgL_test2832z00_6536
																																		=
																																		((bool_t)
																																		0);
																																}
																															if (BgL_test2832z00_6536)
																																{	/* Eval/evobject.scm 73 */
																																	BgL_arg2060z00_2371
																																		=
																																		BGl_errorzf2locationzf2zz__errorz00
																																		(BgL_arg2077z00_2396,
																																		BGl_string2541z00zz__evobjectz00,
																																		BgL_bdgz00_2372,
																																		CAR(CDR
																																			(BgL_locz00_3925)),
																																		CAR(CDR(CDR
																																				(BgL_locz00_3925))));
																																}
																															else
																																{	/* Eval/evobject.scm 73 */
																																	BgL_arg2060z00_2371
																																		=
																																		BGl_errorz00zz__errorz00
																																		(BgL_arg2077z00_2396,
																																		BGl_string2541z00zz__evobjectz00,
																																		BgL_bdgz00_2372);
																																}
																														}
																													}
																												}
																										}
																									}
																								}
																							}
																						}
																					}
																				}
																			else
																				{	/* Eval/evobject.scm 806 */
																					BgL_arg2060z00_2371 =
																						BGl_expandzd2errorzd2zz__evobjectz00
																						(CAR(BgL_xz00_123),
																						BGl_string2540z00zz__evobjectz00,
																						BgL_bdgz00_2372);
																				}
																		}
																	else
																		{	/* Eval/evobject.scm 806 */
																			BgL_arg2060z00_2371 =
																				BGl_expandzd2errorzd2zz__evobjectz00(CAR
																				(BgL_xz00_123),
																				BGl_string2540z00zz__evobjectz00,
																				BgL_bdgz00_2372);
																		}
																}
															else
																{	/* Eval/evobject.scm 806 */
																	BgL_arg2060z00_2371 =
																		BGl_expandzd2errorzd2zz__evobjectz00(CAR
																		(BgL_xz00_123),
																		BGl_string2540z00zz__evobjectz00,
																		BgL_bdgz00_2372);
																}
														}
													else
														{	/* Eval/evobject.scm 806 */
															BgL_arg2060z00_2371 =
																BGl_expandzd2errorzd2zz__evobjectz00(CAR
																(BgL_xz00_123),
																BGl_string2540z00zz__evobjectz00,
																BgL_bdgz00_2372);
														}
												}
											}
											BgL_newtail1158z00_2369 =
												MAKE_YOUNG_PAIR(BgL_arg2060z00_2371, BNIL);
										}
										SET_CDR(BgL_tail1157z00_2366, BgL_newtail1158z00_2369);
										{	/* Eval/evobject.scm 805 */
											obj_t BgL_arg2059z00_2370;

											BgL_arg2059z00_2370 = CDR(((obj_t) BgL_l1154z00_2365));
											{
												obj_t BgL_tail1157z00_6568;
												obj_t BgL_l1154z00_6567;

												BgL_l1154z00_6567 = BgL_arg2059z00_2370;
												BgL_tail1157z00_6568 = BgL_newtail1158z00_2369;
												BgL_tail1157z00_2366 = BgL_tail1157z00_6568;
												BgL_l1154z00_2365 = BgL_l1154z00_6567;
												goto BgL_zc3z04anonymousza32057ze3z87_2367;
											}
										}
									}
							}
						}
					{	/* Eval/evobject.scm 819 */
						obj_t BgL_arg2021z00_2309;

						{	/* Eval/evobject.scm 819 */
							obj_t BgL_arg2023z00_2310;
							obj_t BgL_arg2024z00_2311;

							if (NULLP(BgL_varsz00_2308))
								{	/* Eval/evobject.scm 819 */
									BgL_arg2023z00_2310 = BNIL;
								}
							else
								{	/* Eval/evobject.scm 819 */
									obj_t BgL_head1161z00_2314;

									BgL_head1161z00_2314 = MAKE_YOUNG_PAIR(BNIL, BNIL);
									{
										obj_t BgL_l1159z00_2316;
										obj_t BgL_tail1162z00_2317;

										BgL_l1159z00_2316 = BgL_varsz00_2308;
										BgL_tail1162z00_2317 = BgL_head1161z00_2314;
									BgL_zc3z04anonymousza32026ze3z87_2318:
										if (NULLP(BgL_l1159z00_2316))
											{	/* Eval/evobject.scm 819 */
												BgL_arg2023z00_2310 = CDR(BgL_head1161z00_2314);
											}
										else
											{	/* Eval/evobject.scm 819 */
												obj_t BgL_newtail1163z00_2320;

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

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

														BgL_varz00_2323 = CAR(((obj_t) BgL_l1159z00_2316));
														{	/* Eval/evobject.scm 820 */
															obj_t BgL_idz00_2324;
															obj_t BgL_klassz00_2325;

															BgL_idz00_2324 = CAR(((obj_t) BgL_varz00_2323));
															{	/* Eval/evobject.scm 821 */
																obj_t BgL_pairz00_3997;

																BgL_pairz00_3997 =
																	CDR(((obj_t) BgL_varz00_2323));
																BgL_klassz00_2325 = CAR(BgL_pairz00_3997);
															}
															{	/* Eval/evobject.scm 822 */
																obj_t BgL_arg2031z00_2326;
																obj_t BgL_arg2032z00_2327;

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

																	BgL_arg2033z00_2328 =
																		BGl_classzd2namezd2zz__objectz00
																		(BgL_klassz00_2325);
																	{	/* Eval/evobject.scm 822 */
																		obj_t BgL_list2034z00_2329;

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

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

																				BgL_arg2037z00_2331 =
																					MAKE_YOUNG_PAIR(BgL_arg2033z00_2328,
																					BNIL);
																				BgL_arg2036z00_2330 =
																					MAKE_YOUNG_PAIR
																					(BGl_symbol2492z00zz__evobjectz00,
																					BgL_arg2037z00_2331);
																			}
																			BgL_list2034z00_2329 =
																				MAKE_YOUNG_PAIR(BgL_idz00_2324,
																				BgL_arg2036z00_2330);
																		}
																		BgL_arg2031z00_2326 =
																			BGl_symbolzd2appendzd2zz__r4_symbols_6_4z00
																			(BgL_list2034z00_2329);
																	}
																}
																{	/* Eval/evobject.scm 823 */
																	obj_t BgL_arg2038z00_2332;

																	BgL_arg2038z00_2332 =
																		MAKE_YOUNG_PAIR
																		(BGl_classzd2allocatorzd2zz__objectz00
																		(BgL_klassz00_2325), BNIL);
																	BgL_arg2032z00_2327 =
																		MAKE_YOUNG_PAIR(BgL_arg2038z00_2332, BNIL);
																}
																BgL_arg2029z00_2322 =
																	MAKE_YOUNG_PAIR(BgL_arg2031z00_2326,
																	BgL_arg2032z00_2327);
															}
														}
													}
													BgL_newtail1163z00_2320 =
														MAKE_YOUNG_PAIR(BgL_arg2029z00_2322, BNIL);
												}
												SET_CDR(BgL_tail1162z00_2317, BgL_newtail1163z00_2320);
												{	/* Eval/evobject.scm 819 */
													obj_t BgL_arg2028z00_2321;

													BgL_arg2028z00_2321 =
														CDR(((obj_t) BgL_l1159z00_2316));
													{
														obj_t BgL_tail1162z00_6596;
														obj_t BgL_l1159z00_6595;

														BgL_l1159z00_6595 = BgL_arg2028z00_2321;
														BgL_tail1162z00_6596 = BgL_newtail1163z00_2320;
														BgL_tail1162z00_2317 = BgL_tail1162z00_6596;
														BgL_l1159z00_2316 = BgL_l1159z00_6595;
														goto BgL_zc3z04anonymousza32026ze3z87_2318;
													}
												}
											}
									}
								}
							{	/* Eval/evobject.scm 826 */
								obj_t BgL_arg2040z00_2335;

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

									{	/* Eval/evobject.scm 826 */
										obj_t BgL_arg2042z00_2337;
										obj_t BgL_arg2043z00_2338;

										if (NULLP(BgL_varsz00_2308))
											{	/* Eval/evobject.scm 826 */
												BgL_arg2042z00_2337 = BNIL;
											}
										else
											{	/* Eval/evobject.scm 826 */
												obj_t BgL_head1166z00_2341;

												BgL_head1166z00_2341 = MAKE_YOUNG_PAIR(BNIL, BNIL);
												{
													obj_t BgL_l1164z00_2343;
													obj_t BgL_tail1167z00_2344;

													BgL_l1164z00_2343 = BgL_varsz00_2308;
													BgL_tail1167z00_2344 = BgL_head1166z00_2341;
												BgL_zc3z04anonymousza32045ze3z87_2345:
													if (NULLP(BgL_l1164z00_2343))
														{	/* Eval/evobject.scm 826 */
															BgL_arg2042z00_2337 = CDR(BgL_head1166z00_2341);
														}
													else
														{	/* Eval/evobject.scm 826 */
															obj_t BgL_newtail1168z00_2347;

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

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

																	BgL_varz00_2350 =
																		CAR(((obj_t) BgL_l1164z00_2343));
																	{	/* Eval/evobject.scm 827 */
																		obj_t BgL_idz00_2351;
																		obj_t BgL_klassz00_2352;
																		obj_t BgL_exprz00_2353;

																		BgL_idz00_2351 =
																			CAR(((obj_t) BgL_varz00_2350));
																		{	/* Eval/evobject.scm 828 */
																			obj_t BgL_pairz00_4006;

																			BgL_pairz00_4006 =
																				CDR(((obj_t) BgL_varz00_2350));
																			BgL_klassz00_2352 = CAR(BgL_pairz00_4006);
																		}
																		{	/* Eval/evobject.scm 829 */
																			obj_t BgL_pairz00_4012;

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

																				BgL_pairz00_4011 =
																					CDR(((obj_t) BgL_varz00_2350));
																				BgL_pairz00_4012 =
																					CDR(BgL_pairz00_4011);
																			}
																			BgL_exprz00_2353 = CAR(BgL_pairz00_4012);
																		}
																		{	/* Eval/evobject.scm 830 */
																			obj_t BgL_arg2049z00_2354;
																			obj_t BgL_arg2050z00_2355;
																			obj_t BgL_arg2051z00_2356;

																			BgL_arg2049z00_2354 =
																				CAR(((obj_t) BgL_exprz00_2353));
																			BgL_arg2050z00_2355 =
																				CDR(((obj_t) BgL_exprz00_2353));
																			{	/* Eval/evobject.scm 831 */
																				obj_t BgL_tmpz00_6618;

																				BgL_tmpz00_6618 =
																					((obj_t) BgL_klassz00_2352);
																				BgL_arg2051z00_2356 =
																					BGL_CLASS_ALL_FIELDS(BgL_tmpz00_6618);
																			}
																			BgL_arg2048z00_2349 =
																				BGl_instantiatezd2fillzd2zz__evobjectz00
																				(BgL_arg2049z00_2354,
																				BgL_arg2050z00_2355, BgL_klassz00_2352,
																				BgL_arg2051z00_2356, BgL_idz00_2351,
																				BgL_exprz00_2353, BgL_ez00_124);
																		}
																	}
																}
																BgL_newtail1168z00_2347 =
																	MAKE_YOUNG_PAIR(BgL_arg2048z00_2349, BNIL);
															}
															SET_CDR(BgL_tail1167z00_2344,
																BgL_newtail1168z00_2347);
															{	/* Eval/evobject.scm 826 */
																obj_t BgL_arg2047z00_2348;

																BgL_arg2047z00_2348 =
																	CDR(((obj_t) BgL_l1164z00_2343));
																{
																	obj_t BgL_tail1167z00_6627;
																	obj_t BgL_l1164z00_6626;

																	BgL_l1164z00_6626 = BgL_arg2047z00_2348;
																	BgL_tail1167z00_6627 =
																		BgL_newtail1168z00_2347;
																	BgL_tail1167z00_2344 = BgL_tail1167z00_6627;
																	BgL_l1164z00_2343 = BgL_l1164z00_6626;
																	goto BgL_zc3z04anonymousza32045ze3z87_2345;
																}
															}
														}
												}
											}
										{	/* Eval/evobject.scm 833 */
											obj_t BgL_arg2053z00_2358;

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

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

													BgL_arg2055z00_2360 =
														BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00
														(BgL_bodyz00_122, BNIL);
													BgL_arg2054z00_2359 =
														MAKE_YOUNG_PAIR(BGl_symbol2475z00zz__evobjectz00,
														BgL_arg2055z00_2360);
												}
												BgL_arg2053z00_2358 =
													(VA_PROCEDUREP(BgL_ez00_124) ? ((obj_t(*)(obj_t,
																...))
														PROCEDURE_ENTRY(BgL_ez00_124)) (BgL_ez00_124,
														BgL_arg2054z00_2359, BgL_ez00_124,
														BEOA) : ((obj_t(*)(obj_t, obj_t,
																obj_t))
														PROCEDURE_ENTRY(BgL_ez00_124)) (BgL_ez00_124,
														BgL_arg2054z00_2359, BgL_ez00_124));
											}
											BgL_arg2043z00_2338 =
												MAKE_YOUNG_PAIR(BgL_arg2053z00_2358, BNIL);
										}
										BgL_arg2041z00_2336 =
											BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00
											(BgL_arg2042z00_2337, BgL_arg2043z00_2338);
									}
									BgL_arg2040z00_2335 =
										MAKE_YOUNG_PAIR(BGl_symbol2475z00zz__evobjectz00,
										BgL_arg2041z00_2336);
								}
								BgL_arg2024z00_2311 =
									MAKE_YOUNG_PAIR(BgL_arg2040z00_2335, BNIL);
							}
							BgL_arg2021z00_2309 =
								MAKE_YOUNG_PAIR(BgL_arg2023z00_2310, BgL_arg2024z00_2311);
						}
						return
							MAKE_YOUNG_PAIR(BGl_symbol2477z00zz__evobjectz00,
							BgL_arg2021z00_2309);
					}
				}
			}
		}

	}



/* 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(121046086L,
				BSTRING_TO_STRING(BGl_string2542z00zz__evobjectz00));
			BGl_modulezd2initializa7ationz75zz__errorz00(88804785L,
				BSTRING_TO_STRING(BGl_string2542z00zz__evobjectz00));
			BGl_modulezd2initializa7ationz75zz__biglooz00(536217185L,
				BSTRING_TO_STRING(BGl_string2542z00zz__evobjectz00));
			BGl_modulezd2initializa7ationz75zz__tvectorz00(135276775L,
				BSTRING_TO_STRING(BGl_string2542z00zz__evobjectz00));
			BGl_modulezd2initializa7ationz75zz__structurez00(128218210L,
				BSTRING_TO_STRING(BGl_string2542z00zz__evobjectz00));
			BGl_modulezd2initializa7ationz75zz__bexitz00(43287392L,
				BSTRING_TO_STRING(BGl_string2542z00zz__evobjectz00));
			BGl_modulezd2initializa7ationz75zz__bignumz00(6519932L,
				BSTRING_TO_STRING(BGl_string2542z00zz__evobjectz00));
			BGl_modulezd2initializa7ationz75zz__osz00(310000171L,
				BSTRING_TO_STRING(BGl_string2542z00zz__evobjectz00));
			BGl_modulezd2initializa7ationz75zz__bitz00(377164741L,
				BSTRING_TO_STRING(BGl_string2542z00zz__evobjectz00));
			BGl_modulezd2initializa7ationz75zz__paramz00(453939141L,
				BSTRING_TO_STRING(BGl_string2542z00zz__evobjectz00));
			BGl_modulezd2initializa7ationz75zz__objectz00(475449627L,
				BSTRING_TO_STRING(BGl_string2542z00zz__evobjectz00));
			BGl_modulezd2initializa7ationz75zz__threadz00(149516032L,
				BSTRING_TO_STRING(BGl_string2542z00zz__evobjectz00));
			BGl_modulezd2initializa7ationz75zz__hashz00(482391669L,
				BSTRING_TO_STRING(BGl_string2542z00zz__evobjectz00));
			BGl_modulezd2initializa7ationz75zz__readerz00(220648206L,
				BSTRING_TO_STRING(BGl_string2542z00zz__evobjectz00));
			BGl_modulezd2initializa7ationz75zz__r4_numbers_6_5z00(481261960L,
				BSTRING_TO_STRING(BGl_string2542z00zz__evobjectz00));
			BGl_modulezd2initializa7ationz75zz__r4_numbers_6_5_fixnumz00(54297095L,
				BSTRING_TO_STRING(BGl_string2542z00zz__evobjectz00));
			BGl_modulezd2initializa7ationz75zz__r4_numbers_6_5_flonumz00(237870368L,
				BSTRING_TO_STRING(BGl_string2542z00zz__evobjectz00));
			BGl_modulezd2initializa7ationz75zz__r4_numbers_6_5_flonum_dtoaz00
				(268155843L, BSTRING_TO_STRING(BGl_string2542z00zz__evobjectz00));
			BGl_modulezd2initializa7ationz75zz__r4_characters_6_6z00(198620800L,
				BSTRING_TO_STRING(BGl_string2542z00zz__evobjectz00));
			BGl_modulezd2initializa7ationz75zz__r4_equivalence_6_2z00(473309430L,
				BSTRING_TO_STRING(BGl_string2542z00zz__evobjectz00));
			BGl_modulezd2initializa7ationz75zz__r4_booleans_6_1z00(459519430L,
				BSTRING_TO_STRING(BGl_string2542z00zz__evobjectz00));
			BGl_modulezd2initializa7ationz75zz__r4_symbols_6_4z00(460262918L,
				BSTRING_TO_STRING(BGl_string2542z00zz__evobjectz00));
			BGl_modulezd2initializa7ationz75zz__r4_strings_6_7z00(-44273703L,
				BSTRING_TO_STRING(BGl_string2542z00zz__evobjectz00));
			BGl_modulezd2initializa7ationz75zz__r4_pairs_and_lists_6_3z00(9614678L,
				BSTRING_TO_STRING(BGl_string2542z00zz__evobjectz00));
			BGl_modulezd2initializa7ationz75zz__r4_control_features_6_9z00(376927882L,
				BSTRING_TO_STRING(BGl_string2542z00zz__evobjectz00));
			BGl_modulezd2initializa7ationz75zz__r4_vectors_6_8z00(43892022L,
				BSTRING_TO_STRING(BGl_string2542z00zz__evobjectz00));
			BGl_modulezd2initializa7ationz75zz__r4_ports_6_10_1z00(496722665L,
				BSTRING_TO_STRING(BGl_string2542z00zz__evobjectz00));
			BGl_modulezd2initializa7ationz75zz__r4_output_6_10_3z00(86988580L,
				BSTRING_TO_STRING(BGl_string2542z00zz__evobjectz00));
			BGl_modulezd2initializa7ationz75zz__r5_control_features_6_4z00(228151370L,
				BSTRING_TO_STRING(BGl_string2542z00zz__evobjectz00));
			BGl_modulezd2initializa7ationz75zz__prognz00(177147622L,
				BSTRING_TO_STRING(BGl_string2542z00zz__evobjectz00));
			BGl_modulezd2initializa7ationz75zz__evenvz00(528345299L,
				BSTRING_TO_STRING(BGl_string2542z00zz__evobjectz00));
			BGl_modulezd2initializa7ationz75zz__everrorz00(375872221L,
				BSTRING_TO_STRING(BGl_string2542z00zz__evobjectz00));
			BGl_modulezd2initializa7ationz75zz__evcompilez00(492754569L,
				BSTRING_TO_STRING(BGl_string2542z00zz__evobjectz00));
			BGl_modulezd2initializa7ationz75zz__evalz00(35539458L,
				BSTRING_TO_STRING(BGl_string2542z00zz__evobjectz00));
			BGl_modulezd2initializa7ationz75zz__evmodulez00(505897955L,
				BSTRING_TO_STRING(BGl_string2542z00zz__evobjectz00));
			BGl_modulezd2initializa7ationz75zz__expander_definez00(380411245L,
				BSTRING_TO_STRING(BGl_string2542z00zz__evobjectz00));
			BGl_modulezd2initializa7ationz75zz__expandz00(414007149L,
				BSTRING_TO_STRING(BGl_string2542z00zz__evobjectz00));
			return BGl_modulezd2initializa7ationz75zz__macroz00(261397491L,
				BSTRING_TO_STRING(BGl_string2542z00zz__evobjectz00));
		}

	}

#ifdef __cplusplus
}
#endif
