/*===========================================================================*/
/*   (Eval/expdstruct.scm)                                                   */
/*   Bigloo (4.7a)                                                           */
/*   Inria -- Sophia Antipolis (c)       Thu Feb 19 09:11:58 AM CET 2026     */
/*===========================================================================*/
/* COMPILATION: (/home/serrano/prgm/project/bigloo/4.7a/bin/bigloo -srfi bigloo-unsafe -O3 -fcfa-arithmetic -q -lib-dir /home/serrano/prgm/project/bigloo/4.7a/lib/bigloo/4.7a +rm -mklib -cc gcc -fsharing -q -no-hello -unsafe -safee -O4 -stdc -c Eval/expdstruct.scm -indent -o objs/obj_u/Eval/expdstruct.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___EXPANDER_STRUCT_TYPE_DEFINITIONS
#define BGL___EXPANDER_STRUCT_TYPE_DEFINITIONS
#endif													// BGL___EXPANDER_STRUCT_TYPE_DEFINITIONS
#endif													// BGL_MODULE_TYPE_DEFINITIONS

	static obj_t BGl_symbol1910z00zz__expander_structz00 = BUNSPEC;
	static obj_t BGl_symbol1912z00zz__expander_structz00 = BUNSPEC;
	static obj_t BGl_symbol1914z00zz__expander_structz00 = BUNSPEC;
	static obj_t BGl_symbol1916z00zz__expander_structz00 = BUNSPEC;
	static obj_t BGl_symbol1918z00zz__expander_structz00 = BUNSPEC;
	extern obj_t BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
	static obj_t BGl_symbol1920z00zz__expander_structz00 = BUNSPEC;
	static obj_t BGl_symbol1922z00zz__expander_structz00 = BUNSPEC;
	static obj_t BGl_symbol1924z00zz__expander_structz00 = BUNSPEC;
	static obj_t BGl_symbol1926z00zz__expander_structz00 = BUNSPEC;
	static obj_t BGl_symbol1928z00zz__expander_structz00 = BUNSPEC;
	static obj_t BGl_requirezd2initializa7ationz75zz__expander_structz00 =
		BUNSPEC;
	extern obj_t BGl_expandzd2errorzd2zz__expandz00(obj_t, obj_t, obj_t);
	BGL_EXPORTED_DECL obj_t
		BGl_expandzd2evalzd2definezd2structzd2zz__expander_structz00(obj_t, obj_t);
	static obj_t BGl_symbol1930z00zz__expander_structz00 = BUNSPEC;
	static obj_t BGl_symbol1932z00zz__expander_structz00 = BUNSPEC;
	static obj_t BGl_symbol1934z00zz__expander_structz00 = BUNSPEC;
	static obj_t BGl_symbol1936z00zz__expander_structz00 = BUNSPEC;
	static obj_t BGl_symbol1938z00zz__expander_structz00 = BUNSPEC;
	extern obj_t BGl_evepairifyz00zz__prognz00(obj_t, obj_t);
	BGL_EXPORTED_DECL obj_t
		BGl_modulezd2initializa7ationz75zz__expander_structz00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__expandz00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__prognz00(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__match_normaliza7eza7(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__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 *);
	static obj_t BGl_symbol1940z00zz__expander_structz00 = BUNSPEC;
	static obj_t BGl_symbol1944z00zz__expander_structz00 = BUNSPEC;
	static obj_t BGl_symbol1946z00zz__expander_structz00 = BUNSPEC;
	static obj_t BGl_symbol1948z00zz__expander_structz00 = BUNSPEC;
	static obj_t BGl_symbol1951z00zz__expander_structz00 = BUNSPEC;
	static obj_t BGl_symbol1953z00zz__expander_structz00 = BUNSPEC;
	static obj_t BGl_symbol1955z00zz__expander_structz00 = BUNSPEC;
	static obj_t BGl_symbol1958z00zz__expander_structz00 = BUNSPEC;
	extern obj_t BGl_symbolzd2appendzd2zz__r4_symbols_6_4z00(obj_t);
	static obj_t BGl_cnstzd2initzd2zz__expander_structz00(void);
	static obj_t BGl_genericzd2initzd2zz__expander_structz00(void);
	extern obj_t BGl_stringzd2copyzd2zz__r4_strings_6_7z00(obj_t);
	extern long bgl_list_length(obj_t);
	static obj_t BGl_importedzd2moduleszd2initz00zz__expander_structz00(void);
	static obj_t BGl_list1942z00zz__expander_structz00 = BUNSPEC;
	static obj_t BGl_list1943z00zz__expander_structz00 = BUNSPEC;
	static obj_t BGl_gczd2rootszd2initz00zz__expander_structz00(void);
	static obj_t BGl_objectzd2initzd2zz__expander_structz00(void);
	static obj_t BGl_list1899z00zz__expander_structz00 = BUNSPEC;
	extern obj_t bstring_to_symbol(obj_t);
	static obj_t BGl_methodzd2initzd2zz__expander_structz00(void);
	extern obj_t string_append(obj_t, obj_t);
	extern obj_t
		BGl_matchzd2definezd2structurez12z12zz__match_normaliza7eza7(obj_t);
	static obj_t
		BGl_z62expandzd2evalzd2definezd2structzb0zz__expander_structz00(obj_t,
		obj_t, obj_t);
	static obj_t BGl_symbol1900z00zz__expander_structz00 = BUNSPEC;
	static obj_t BGl_symbol1902z00zz__expander_structz00 = BUNSPEC;
	static obj_t BGl_symbol1904z00zz__expander_structz00 = BUNSPEC;
	static obj_t BGl_symbol1906z00zz__expander_structz00 = BUNSPEC;
	static obj_t BGl_symbol1908z00zz__expander_structz00 = BUNSPEC;
	static obj_t *__cnst;


	   
		 
		BGL_DEFINE_STRING(BGl_string1950z00zz__expander_structz00,
		BgL_bgl_string1950za700za7za7_1961za7, "struct-ref:not an instance of", 29);
	      BGL_DEFINE_STRING(BGl_string1952z00zz__expander_structz00,
		BgL_bgl_string1952za700za7za7_1962za7, "expand-error", 12);
	      BGL_DEFINE_STRING(BGl_string1954z00zz__expander_structz00,
		BgL_bgl_string1954za700za7za7_1963za7, "v", 1);
	      BGL_DEFINE_STRING(BGl_string1956z00zz__expander_structz00,
		BgL_bgl_string1956za700za7za7_1964za7, "struct-set!", 11);
	      BGL_DEFINE_STRING(BGl_string1957z00zz__expander_structz00,
		BgL_bgl_string1957za700za7za7_1965za7, "struct-set!:not an instance of",
		30);
	      BGL_DEFINE_STRING(BGl_string1959z00zz__expander_structz00,
		BgL_bgl_string1959za700za7za7_1966za7, "begin", 5);
	      BGL_DEFINE_STRING(BGl_string1960z00zz__expander_structz00,
		BgL_bgl_string1960za700za7za7_1967za7, "__expander_struct", 17);
	      BGL_DEFINE_STRING(BGl_string1897z00zz__expander_structz00,
		BgL_bgl_string1897za700za7za7_1968za7, "define-struct", 13);
	      BGL_DEFINE_STRING(BGl_string1898z00zz__expander_structz00,
		BgL_bgl_string1898za700za7za7_1969za7, "Illegal `define-struct' form", 28);
	      BGL_DEFINE_STRING(BGl_string1901z00zz__expander_structz00,
		BgL_bgl_string1901za700za7za7_1970za7, "quote", 5);
	      BGL_DEFINE_STRING(BGl_string1903z00zz__expander_structz00,
		BgL_bgl_string1903za700za7za7_1971za7, "make-", 5);
	      BGL_DEFINE_STRING(BGl_string1905z00zz__expander_structz00,
		BgL_bgl_string1905za700za7za7_1972za7, "init", 4);
	      BGL_DEFINE_STRING(BGl_string1907z00zz__expander_structz00,
		BgL_bgl_string1907za700za7za7_1973za7, "pair?", 5);
	      BGL_DEFINE_STRING(BGl_string1909z00zz__expander_structz00,
		BgL_bgl_string1909za700za7za7_1974za7, "cdr", 3);
	      BGL_DEFINE_STRING(BGl_string1911z00zz__expander_structz00,
		BgL_bgl_string1911za700za7za7_1975za7, "null?", 5);
	      BGL_DEFINE_STRING(BGl_string1913z00zz__expander_structz00,
		BgL_bgl_string1913za700za7za7_1976za7, "not", 3);
	      BGL_DEFINE_STRING(BGl_string1915z00zz__expander_structz00,
		BgL_bgl_string1915za700za7za7_1977za7, "apply", 5);
	      BGL_DEFINE_STRING(BGl_string1917z00zz__expander_structz00,
		BgL_bgl_string1917za700za7za7_1978za7, "car", 3);
	      BGL_DEFINE_STRING(BGl_string1919z00zz__expander_structz00,
		BgL_bgl_string1919za700za7za7_1979za7, "make-struct", 11);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_expandzd2evalzd2definezd2structzd2envz00zz__expander_structz00,
		BgL_bgl_za762expandza7d2eval1980z00,
		BGl_z62expandzd2evalzd2definezd2structzb0zz__expander_structz00, 0L,
		BUNSPEC, 2);
	      BGL_DEFINE_STRING(BGl_string1921z00zz__expander_structz00,
		BgL_bgl_string1921za700za7za7_1981za7, "if", 2);
	      BGL_DEFINE_STRING(BGl_string1923z00zz__expander_structz00,
		BgL_bgl_string1923za700za7za7_1982za7, "define-inline", 13);
	      BGL_DEFINE_STRING(BGl_string1925z00zz__expander_structz00,
		BgL_bgl_string1925za700za7za7_1983za7, "new", 3);
	      BGL_DEFINE_STRING(BGl_string1927z00zz__expander_structz00,
		BgL_bgl_string1927za700za7za7_1984za7, "-set!", 5);
	      BGL_DEFINE_STRING(BGl_string1929z00zz__expander_structz00,
		BgL_bgl_string1929za700za7za7_1985za7, "-", 1);
	      BGL_DEFINE_STRING(BGl_string1931z00zz__expander_structz00,
		BgL_bgl_string1931za700za7za7_1986za7, "let", 3);
	      BGL_DEFINE_STRING(BGl_string1933z00zz__expander_structz00,
		BgL_bgl_string1933za700za7za7_1987za7, "?", 1);
	      BGL_DEFINE_STRING(BGl_string1935z00zz__expander_structz00,
		BgL_bgl_string1935za700za7za7_1988za7, "o", 1);
	      BGL_DEFINE_STRING(BGl_string1937z00zz__expander_structz00,
		BgL_bgl_string1937za700za7za7_1989za7, "struct?", 7);
	      BGL_DEFINE_STRING(BGl_string1939z00zz__expander_structz00,
		BgL_bgl_string1939za700za7za7_1990za7, "struct-key", 10);
	      BGL_DEFINE_STRING(BGl_string1941z00zz__expander_structz00,
		BgL_bgl_string1941za700za7za7_1991za7, "eq?", 3);
	      BGL_DEFINE_STRING(BGl_string1945z00zz__expander_structz00,
		BgL_bgl_string1945za700za7za7_1992za7, "unspecified", 11);
	      BGL_DEFINE_STRING(BGl_string1947z00zz__expander_structz00,
		BgL_bgl_string1947za700za7za7_1993za7, "s", 1);
	      BGL_DEFINE_STRING(BGl_string1949z00zz__expander_structz00,
		BgL_bgl_string1949za700za7za7_1994za7, "struct-ref", 10);

/* contant bindings */
	static void bgl_constant_bindings()
	{
		BGL_BIND_STRING(BGl_string1949z00zz__expander_structz00,
			BgL_bgl_string1949za700za7za7_1994za7);
		BGL_BIND_STRING(BGl_string1947z00zz__expander_structz00,
			BgL_bgl_string1947za700za7za7_1993za7);
		BGL_BIND_STRING(BGl_string1945z00zz__expander_structz00,
			BgL_bgl_string1945za700za7za7_1992za7);
		BGL_BIND_STRING(BGl_string1941z00zz__expander_structz00,
			BgL_bgl_string1941za700za7za7_1991za7);
		BGL_BIND_STRING(BGl_string1939z00zz__expander_structz00,
			BgL_bgl_string1939za700za7za7_1990za7);
		BGL_BIND_STRING(BGl_string1937z00zz__expander_structz00,
			BgL_bgl_string1937za700za7za7_1989za7);
		BGL_BIND_STRING(BGl_string1935z00zz__expander_structz00,
			BgL_bgl_string1935za700za7za7_1988za7);
		BGL_BIND_STRING(BGl_string1933z00zz__expander_structz00,
			BgL_bgl_string1933za700za7za7_1987za7);
		BGL_BIND_STRING(BGl_string1931z00zz__expander_structz00,
			BgL_bgl_string1931za700za7za7_1986za7);
		BGL_BIND_STRING(BGl_string1929z00zz__expander_structz00,
			BgL_bgl_string1929za700za7za7_1985za7);
		BGL_BIND_STRING(BGl_string1927z00zz__expander_structz00,
			BgL_bgl_string1927za700za7za7_1984za7);
		BGL_BIND_STRING(BGl_string1925z00zz__expander_structz00,
			BgL_bgl_string1925za700za7za7_1983za7);
		BGL_BIND_STRING(BGl_string1923z00zz__expander_structz00,
			BgL_bgl_string1923za700za7za7_1982za7);
		BGL_BIND_STRING(BGl_string1921z00zz__expander_structz00,
			BgL_bgl_string1921za700za7za7_1981za7);
		BGL_BIND_PROCEDURE
			(BGl_expandzd2evalzd2definezd2structzd2envz00zz__expander_structz00,
			BgL_bgl_za762expandza7d2eval1980z00);
		BGL_BIND_STRING(BGl_string1919z00zz__expander_structz00,
			BgL_bgl_string1919za700za7za7_1979za7);
		BGL_BIND_STRING(BGl_string1917z00zz__expander_structz00,
			BgL_bgl_string1917za700za7za7_1978za7);
		BGL_BIND_STRING(BGl_string1915z00zz__expander_structz00,
			BgL_bgl_string1915za700za7za7_1977za7);
		BGL_BIND_STRING(BGl_string1913z00zz__expander_structz00,
			BgL_bgl_string1913za700za7za7_1976za7);
		BGL_BIND_STRING(BGl_string1911z00zz__expander_structz00,
			BgL_bgl_string1911za700za7za7_1975za7);
		BGL_BIND_STRING(BGl_string1909z00zz__expander_structz00,
			BgL_bgl_string1909za700za7za7_1974za7);
		BGL_BIND_STRING(BGl_string1907z00zz__expander_structz00,
			BgL_bgl_string1907za700za7za7_1973za7);
		BGL_BIND_STRING(BGl_string1905z00zz__expander_structz00,
			BgL_bgl_string1905za700za7za7_1972za7);
		BGL_BIND_STRING(BGl_string1903z00zz__expander_structz00,
			BgL_bgl_string1903za700za7za7_1971za7);
		BGL_BIND_STRING(BGl_string1901z00zz__expander_structz00,
			BgL_bgl_string1901za700za7za7_1970za7);
		BGL_BIND_STRING(BGl_string1898z00zz__expander_structz00,
			BgL_bgl_string1898za700za7za7_1969za7);
		BGL_BIND_STRING(BGl_string1897z00zz__expander_structz00,
			BgL_bgl_string1897za700za7za7_1968za7);
		BGL_BIND_STRING(BGl_string1960z00zz__expander_structz00,
			BgL_bgl_string1960za700za7za7_1967za7);
		BGL_BIND_STRING(BGl_string1959z00zz__expander_structz00,
			BgL_bgl_string1959za700za7za7_1966za7);
		BGL_BIND_STRING(BGl_string1957z00zz__expander_structz00,
			BgL_bgl_string1957za700za7za7_1965za7);
		BGL_BIND_STRING(BGl_string1956z00zz__expander_structz00,
			BgL_bgl_string1956za700za7za7_1964za7);
		BGL_BIND_STRING(BGl_string1954z00zz__expander_structz00,
			BgL_bgl_string1954za700za7za7_1963za7);
		BGL_BIND_STRING(BGl_string1952z00zz__expander_structz00,
			BgL_bgl_string1952za700za7za7_1962za7);
		BGL_BIND_STRING(BGl_string1950z00zz__expander_structz00,
			BgL_bgl_string1950za700za7za7_1961za7);
	}

/* 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_symbol1910z00zz__expander_structz00));
		ADD_ROOT((void *) (&BGl_symbol1912z00zz__expander_structz00));
		ADD_ROOT((void *) (&BGl_symbol1914z00zz__expander_structz00));
		ADD_ROOT((void *) (&BGl_symbol1916z00zz__expander_structz00));
		ADD_ROOT((void *) (&BGl_symbol1918z00zz__expander_structz00));
		ADD_ROOT((void *) (&BGl_symbol1920z00zz__expander_structz00));
		ADD_ROOT((void *) (&BGl_symbol1922z00zz__expander_structz00));
		ADD_ROOT((void *) (&BGl_symbol1924z00zz__expander_structz00));
		ADD_ROOT((void *) (&BGl_symbol1926z00zz__expander_structz00));
		ADD_ROOT((void *) (&BGl_symbol1928z00zz__expander_structz00));
		ADD_ROOT((void
				*) (&BGl_requirezd2initializa7ationz75zz__expander_structz00));
		ADD_ROOT((void *) (&BGl_symbol1930z00zz__expander_structz00));
		ADD_ROOT((void *) (&BGl_symbol1932z00zz__expander_structz00));
		ADD_ROOT((void *) (&BGl_symbol1934z00zz__expander_structz00));
		ADD_ROOT((void *) (&BGl_symbol1936z00zz__expander_structz00));
		ADD_ROOT((void *) (&BGl_symbol1938z00zz__expander_structz00));
		ADD_ROOT((void *) (&BGl_symbol1940z00zz__expander_structz00));
		ADD_ROOT((void *) (&BGl_symbol1944z00zz__expander_structz00));
		ADD_ROOT((void *) (&BGl_symbol1946z00zz__expander_structz00));
		ADD_ROOT((void *) (&BGl_symbol1948z00zz__expander_structz00));
		ADD_ROOT((void *) (&BGl_symbol1951z00zz__expander_structz00));
		ADD_ROOT((void *) (&BGl_symbol1953z00zz__expander_structz00));
		ADD_ROOT((void *) (&BGl_symbol1955z00zz__expander_structz00));
		ADD_ROOT((void *) (&BGl_symbol1958z00zz__expander_structz00));
		ADD_ROOT((void *) (&BGl_list1942z00zz__expander_structz00));
		ADD_ROOT((void *) (&BGl_list1943z00zz__expander_structz00));
		ADD_ROOT((void *) (&BGl_list1899z00zz__expander_structz00));
		ADD_ROOT((void *) (&BGl_symbol1900z00zz__expander_structz00));
		ADD_ROOT((void *) (&BGl_symbol1902z00zz__expander_structz00));
		ADD_ROOT((void *) (&BGl_symbol1904z00zz__expander_structz00));
		ADD_ROOT((void *) (&BGl_symbol1906z00zz__expander_structz00));
		ADD_ROOT((void *) (&BGl_symbol1908z00zz__expander_structz00));
#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__expander_structz00(long
		BgL_checksumz00_2084, char *BgL_fromz00_2085)
	{
		{
			if (CBOOL(BGl_requirezd2initializa7ationz75zz__expander_structz00))
				{
					BGl_requirezd2initializa7ationz75zz__expander_structz00 =
						BBOOL(((bool_t) 0));
					bgl_constant_bindings();
					BGl_gczd2rootszd2initz00zz__expander_structz00();
					BGl_cnstzd2initzd2zz__expander_structz00();
					BGl_importedzd2moduleszd2initz00zz__expander_structz00();
					return BGl_methodzd2initzd2zz__expander_structz00();
				}
			else
				{
					return BUNSPEC;
				}
		}

	}



/* cnst-init */
	obj_t BGl_cnstzd2initzd2zz__expander_structz00(void)
	{
		{	/* Eval/expdstruct.scm 18 */
			BGl_symbol1900z00zz__expander_structz00 =
				bstring_to_symbol(BGl_string1901z00zz__expander_structz00);
			BGl_list1899z00zz__expander_structz00 =
				MAKE_YOUNG_PAIR(BGl_symbol1900z00zz__expander_structz00,
				MAKE_YOUNG_PAIR(BNIL, BNIL));
			BGl_symbol1902z00zz__expander_structz00 =
				bstring_to_symbol(BGl_string1903z00zz__expander_structz00);
			BGl_symbol1904z00zz__expander_structz00 =
				bstring_to_symbol(BGl_string1905z00zz__expander_structz00);
			BGl_symbol1906z00zz__expander_structz00 =
				bstring_to_symbol(BGl_string1907z00zz__expander_structz00);
			BGl_symbol1908z00zz__expander_structz00 =
				bstring_to_symbol(BGl_string1909z00zz__expander_structz00);
			BGl_symbol1910z00zz__expander_structz00 =
				bstring_to_symbol(BGl_string1911z00zz__expander_structz00);
			BGl_symbol1912z00zz__expander_structz00 =
				bstring_to_symbol(BGl_string1913z00zz__expander_structz00);
			BGl_symbol1914z00zz__expander_structz00 =
				bstring_to_symbol(BGl_string1915z00zz__expander_structz00);
			BGl_symbol1916z00zz__expander_structz00 =
				bstring_to_symbol(BGl_string1917z00zz__expander_structz00);
			BGl_symbol1918z00zz__expander_structz00 =
				bstring_to_symbol(BGl_string1919z00zz__expander_structz00);
			BGl_symbol1920z00zz__expander_structz00 =
				bstring_to_symbol(BGl_string1921z00zz__expander_structz00);
			BGl_symbol1922z00zz__expander_structz00 =
				bstring_to_symbol(BGl_string1923z00zz__expander_structz00);
			BGl_symbol1924z00zz__expander_structz00 =
				bstring_to_symbol(BGl_string1925z00zz__expander_structz00);
			BGl_symbol1926z00zz__expander_structz00 =
				bstring_to_symbol(BGl_string1927z00zz__expander_structz00);
			BGl_symbol1928z00zz__expander_structz00 =
				bstring_to_symbol(BGl_string1929z00zz__expander_structz00);
			BGl_symbol1930z00zz__expander_structz00 =
				bstring_to_symbol(BGl_string1931z00zz__expander_structz00);
			BGl_symbol1932z00zz__expander_structz00 =
				bstring_to_symbol(BGl_string1933z00zz__expander_structz00);
			BGl_symbol1934z00zz__expander_structz00 =
				bstring_to_symbol(BGl_string1935z00zz__expander_structz00);
			BGl_symbol1936z00zz__expander_structz00 =
				bstring_to_symbol(BGl_string1937z00zz__expander_structz00);
			BGl_symbol1938z00zz__expander_structz00 =
				bstring_to_symbol(BGl_string1939z00zz__expander_structz00);
			BGl_symbol1940z00zz__expander_structz00 =
				bstring_to_symbol(BGl_string1941z00zz__expander_structz00);
			BGl_symbol1944z00zz__expander_structz00 =
				bstring_to_symbol(BGl_string1945z00zz__expander_structz00);
			BGl_list1943z00zz__expander_structz00 =
				MAKE_YOUNG_PAIR(BGl_symbol1944z00zz__expander_structz00, BNIL);
			BGl_list1942z00zz__expander_structz00 =
				MAKE_YOUNG_PAIR(BGl_list1943z00zz__expander_structz00, BNIL);
			BGl_symbol1946z00zz__expander_structz00 =
				bstring_to_symbol(BGl_string1947z00zz__expander_structz00);
			BGl_symbol1948z00zz__expander_structz00 =
				bstring_to_symbol(BGl_string1949z00zz__expander_structz00);
			BGl_symbol1951z00zz__expander_structz00 =
				bstring_to_symbol(BGl_string1952z00zz__expander_structz00);
			BGl_symbol1953z00zz__expander_structz00 =
				bstring_to_symbol(BGl_string1954z00zz__expander_structz00);
			BGl_symbol1955z00zz__expander_structz00 =
				bstring_to_symbol(BGl_string1956z00zz__expander_structz00);
			return (BGl_symbol1958z00zz__expander_structz00 =
				bstring_to_symbol(BGl_string1959z00zz__expander_structz00), BUNSPEC);
		}

	}



/* gc-roots-init */
	obj_t BGl_gczd2rootszd2initz00zz__expander_structz00(void)
	{
		{	/* Eval/expdstruct.scm 18 */
			return bgl_gc_roots_register();
		}

	}



/* expand-eval-define-struct */
	BGL_EXPORTED_DEF obj_t
		BGl_expandzd2evalzd2definezd2structzd2zz__expander_structz00(obj_t
		BgL_xz00_3, obj_t BgL_ez00_4)
	{
		{	/* Eval/expdstruct.scm 60 */
			{
				obj_t BgL_namez00_1122;
				obj_t BgL_slotsz00_1123;

				if (PAIRP(BgL_xz00_3))
					{	/* Eval/expdstruct.scm 61 */
						obj_t BgL_cdrzd2109zd2_1128;

						BgL_cdrzd2109zd2_1128 = CDR(((obj_t) BgL_xz00_3));
						if (PAIRP(BgL_cdrzd2109zd2_1128))
							{	/* Eval/expdstruct.scm 61 */
								BgL_namez00_1122 = CAR(BgL_cdrzd2109zd2_1128);
								BgL_slotsz00_1123 = CDR(BgL_cdrzd2109zd2_1128);
								BGl_matchzd2definezd2structurez12z12zz__match_normaliza7eza7
									(BgL_xz00_3);
								{	/* Eval/expdstruct.scm 64 */
									long BgL_lenz00_1132;

									BgL_lenz00_1132 = bgl_list_length(BgL_slotsz00_1123);
									{	/* Eval/expdstruct.scm 64 */
										obj_t BgL_slotszd2namezd2_1133;

										if (NULLP(BgL_slotsz00_1123))
											{	/* Eval/expdstruct.scm 65 */
												BgL_slotszd2namezd2_1133 = BNIL;
											}
										else
											{	/* Eval/expdstruct.scm 65 */
												obj_t BgL_head1084z00_1381;

												BgL_head1084z00_1381 = MAKE_YOUNG_PAIR(BNIL, BNIL);
												{
													obj_t BgL_l1082z00_1383;
													obj_t BgL_tail1085z00_1384;

													BgL_l1082z00_1383 = BgL_slotsz00_1123;
													BgL_tail1085z00_1384 = BgL_head1084z00_1381;
												BgL_zc3z04anonymousza31505ze3z87_1385:
													if (NULLP(BgL_l1082z00_1383))
														{	/* Eval/expdstruct.scm 65 */
															BgL_slotszd2namezd2_1133 =
																CDR(BgL_head1084z00_1381);
														}
													else
														{	/* Eval/expdstruct.scm 65 */
															obj_t BgL_newtail1086z00_1387;

															{	/* Eval/expdstruct.scm 65 */
																obj_t BgL_arg1508z00_1389;

																{	/* Eval/expdstruct.scm 65 */
																	obj_t BgL_sz00_1390;

																	BgL_sz00_1390 =
																		CAR(((obj_t) BgL_l1082z00_1383));
																	if (PAIRP(BgL_sz00_1390))
																		{	/* Eval/expdstruct.scm 66 */
																			obj_t BgL_cdrzd2125zd2_1398;

																			BgL_cdrzd2125zd2_1398 =
																				CDR(((obj_t) BgL_sz00_1390));
																			if (PAIRP(BgL_cdrzd2125zd2_1398))
																				{	/* Eval/expdstruct.scm 66 */
																					if (NULLP(CDR(BgL_cdrzd2125zd2_1398)))
																						{	/* Eval/expdstruct.scm 66 */
																							BgL_arg1508z00_1389 =
																								CAR(((obj_t) BgL_sz00_1390));
																						}
																					else
																						{	/* Eval/expdstruct.scm 66 */
																							BgL_arg1508z00_1389 =
																								BGl_expandzd2errorzd2zz__expandz00
																								(BGl_string1897z00zz__expander_structz00,
																								BGl_string1898z00zz__expander_structz00,
																								BgL_xz00_3);
																						}
																				}
																			else
																				{	/* Eval/expdstruct.scm 66 */
																					BgL_arg1508z00_1389 =
																						BGl_expandzd2errorzd2zz__expandz00
																						(BGl_string1897z00zz__expander_structz00,
																						BGl_string1898z00zz__expander_structz00,
																						BgL_xz00_3);
																				}
																		}
																	else
																		{	/* Eval/expdstruct.scm 66 */
																			if (SYMBOLP(BgL_sz00_1390))
																				{	/* Eval/expdstruct.scm 66 */
																					BgL_arg1508z00_1389 = BgL_sz00_1390;
																				}
																			else
																				{	/* Eval/expdstruct.scm 66 */
																					BgL_arg1508z00_1389 =
																						BGl_expandzd2errorzd2zz__expandz00
																						(BGl_string1897z00zz__expander_structz00,
																						BGl_string1898z00zz__expander_structz00,
																						BgL_xz00_3);
																				}
																		}
																}
																BgL_newtail1086z00_1387 =
																	MAKE_YOUNG_PAIR(BgL_arg1508z00_1389, BNIL);
															}
															SET_CDR(BgL_tail1085z00_1384,
																BgL_newtail1086z00_1387);
															{	/* Eval/expdstruct.scm 65 */
																obj_t BgL_arg1507z00_1388;

																BgL_arg1507z00_1388 =
																	CDR(((obj_t) BgL_l1082z00_1383));
																{
																	obj_t BgL_tail1085z00_2164;
																	obj_t BgL_l1082z00_2163;

																	BgL_l1082z00_2163 = BgL_arg1507z00_1388;
																	BgL_tail1085z00_2164 =
																		BgL_newtail1086z00_1387;
																	BgL_tail1085z00_1384 = BgL_tail1085z00_2164;
																	BgL_l1082z00_1383 = BgL_l1082z00_2163;
																	goto BgL_zc3z04anonymousza31505ze3z87_1385;
																}
															}
														}
												}
											}
										{	/* Eval/expdstruct.scm 65 */
											bool_t BgL_slotszd2valzf3z21_1134;

											BgL_slotszd2valzf3z21_1134 = ((bool_t) 0);
											{	/* Eval/expdstruct.scm 76 */
												obj_t BgL_slotszd2valzd2_1135;

												if (NULLP(BgL_slotsz00_1123))
													{	/* Eval/expdstruct.scm 77 */
														BgL_slotszd2valzd2_1135 = BNIL;
													}
												else
													{	/* Eval/expdstruct.scm 77 */
														obj_t BgL_head1089z00_1353;

														BgL_head1089z00_1353 = MAKE_YOUNG_PAIR(BNIL, BNIL);
														{
															obj_t BgL_l1087z00_1355;
															obj_t BgL_tail1090z00_1356;

															BgL_l1087z00_1355 = BgL_slotsz00_1123;
															BgL_tail1090z00_1356 = BgL_head1089z00_1353;
														BgL_zc3z04anonymousza31490ze3z87_1357:
															if (NULLP(BgL_l1087z00_1355))
																{	/* Eval/expdstruct.scm 77 */
																	BgL_slotszd2valzd2_1135 =
																		CDR(BgL_head1089z00_1353);
																}
															else
																{	/* Eval/expdstruct.scm 77 */
																	obj_t BgL_newtail1091z00_1359;

																	{	/* Eval/expdstruct.scm 77 */
																		obj_t BgL_arg1494z00_1361;

																		{	/* Eval/expdstruct.scm 77 */
																			obj_t BgL_sz00_1362;

																			BgL_sz00_1362 =
																				CAR(((obj_t) BgL_l1087z00_1355));
																			if (PAIRP(BgL_sz00_1362))
																				{	/* Eval/expdstruct.scm 78 */
																					obj_t BgL_cdrzd2138zd2_1369;

																					BgL_cdrzd2138zd2_1369 =
																						CDR(((obj_t) BgL_sz00_1362));
																					if (PAIRP(BgL_cdrzd2138zd2_1369))
																						{	/* Eval/expdstruct.scm 78 */
																							if (NULLP(CDR
																									(BgL_cdrzd2138zd2_1369)))
																								{	/* Eval/expdstruct.scm 78 */
																									obj_t BgL_arg1499z00_1373;

																									BgL_arg1499z00_1373 =
																										CAR(BgL_cdrzd2138zd2_1369);
																									BgL_slotszd2valzf3z21_1134 =
																										((bool_t) 1);
																									BgL_arg1494z00_1361 =
																										BgL_arg1499z00_1373;
																								}
																							else
																								{	/* Eval/expdstruct.scm 78 */
																									BgL_arg1494z00_1361 =
																										BGl_expandzd2errorzd2zz__expandz00
																										(BGl_string1897z00zz__expander_structz00,
																										BGl_string1898z00zz__expander_structz00,
																										BgL_xz00_3);
																								}
																						}
																					else
																						{	/* Eval/expdstruct.scm 78 */
																							BgL_arg1494z00_1361 =
																								BGl_expandzd2errorzd2zz__expandz00
																								(BGl_string1897z00zz__expander_structz00,
																								BGl_string1898z00zz__expander_structz00,
																								BgL_xz00_3);
																						}
																				}
																			else
																				{	/* Eval/expdstruct.scm 78 */
																					if (SYMBOLP(BgL_sz00_1362))
																						{	/* Eval/expdstruct.scm 78 */
																							BgL_arg1494z00_1361 =
																								BGl_list1899z00zz__expander_structz00;
																						}
																					else
																						{	/* Eval/expdstruct.scm 78 */
																							BgL_arg1494z00_1361 =
																								BGl_expandzd2errorzd2zz__expandz00
																								(BGl_string1897z00zz__expander_structz00,
																								BGl_string1898z00zz__expander_structz00,
																								BgL_xz00_3);
																						}
																				}
																		}
																		BgL_newtail1091z00_1359 =
																			MAKE_YOUNG_PAIR(BgL_arg1494z00_1361,
																			BNIL);
																	}
																	SET_CDR(BgL_tail1090z00_1356,
																		BgL_newtail1091z00_1359);
																	{	/* Eval/expdstruct.scm 77 */
																		obj_t BgL_arg1492z00_1360;

																		BgL_arg1492z00_1360 =
																			CDR(((obj_t) BgL_l1087z00_1355));
																		{
																			obj_t BgL_tail1090z00_2193;
																			obj_t BgL_l1087z00_2192;

																			BgL_l1087z00_2192 = BgL_arg1492z00_1360;
																			BgL_tail1090z00_2193 =
																				BgL_newtail1091z00_1359;
																			BgL_tail1090z00_1356 =
																				BgL_tail1090z00_2193;
																			BgL_l1087z00_1355 = BgL_l1087z00_2192;
																			goto
																				BgL_zc3z04anonymousza31490ze3z87_1357;
																		}
																	}
																}
														}
													}
												{	/* Eval/expdstruct.scm 77 */

													{	/* Eval/expdstruct.scm 94 */
														obj_t BgL_arg1194z00_1136;

														{	/* Eval/expdstruct.scm 94 */
															obj_t BgL_arg1195z00_1137;
															obj_t BgL_arg1196z00_1138;

															{	/* Eval/expdstruct.scm 94 */
																obj_t BgL_arg1197z00_1139;

																{	/* Eval/expdstruct.scm 94 */
																	obj_t BgL_arg1201z00_1140;

																	{	/* Eval/expdstruct.scm 94 */
																		obj_t BgL_arg1202z00_1141;

																		{	/* Eval/expdstruct.scm 94 */
																			obj_t BgL_arg1203z00_1142;
																			obj_t BgL_arg1206z00_1143;

																			{	/* Eval/expdstruct.scm 94 */
																				obj_t BgL_arg1207z00_1144;

																				{	/* Eval/expdstruct.scm 94 */
																					obj_t BgL_arg1208z00_1145;

																					{	/* Eval/expdstruct.scm 94 */
																						obj_t BgL_arg1211z00_1146;
																						obj_t BgL_arg1213z00_1147;

																						{	/* Eval/expdstruct.scm 94 */
																							obj_t BgL_symbolz00_1841;

																							BgL_symbolz00_1841 =
																								BGl_symbol1902z00zz__expander_structz00;
																							{	/* Eval/expdstruct.scm 94 */
																								obj_t BgL_arg1687z00_1842;

																								BgL_arg1687z00_1842 =
																									SYMBOL_TO_STRING
																									(BgL_symbolz00_1841);
																								BgL_arg1211z00_1146 =
																									BGl_stringzd2copyzd2zz__r4_strings_6_7z00
																									(BgL_arg1687z00_1842);
																							}
																						}
																						{	/* Eval/expdstruct.scm 94 */
																							obj_t BgL_arg1687z00_1844;

																							BgL_arg1687z00_1844 =
																								SYMBOL_TO_STRING(
																								((obj_t) BgL_namez00_1122));
																							BgL_arg1213z00_1147 =
																								BGl_stringzd2copyzd2zz__r4_strings_6_7z00
																								(BgL_arg1687z00_1844);
																						}
																						BgL_arg1208z00_1145 =
																							string_append(BgL_arg1211z00_1146,
																							BgL_arg1213z00_1147);
																					}
																					BgL_arg1207z00_1144 =
																						bstring_to_symbol
																						(BgL_arg1208z00_1145);
																				}
																				BgL_arg1203z00_1142 =
																					MAKE_YOUNG_PAIR(BgL_arg1207z00_1144,
																					BGl_symbol1904z00zz__expander_structz00);
																			}
																			{	/* Eval/expdstruct.scm 95 */
																				obj_t BgL_arg1215z00_1148;

																				if (BgL_slotszd2valzf3z21_1134)
																					{	/* Eval/expdstruct.scm 96 */
																						obj_t BgL_arg1216z00_1149;

																						{	/* Eval/expdstruct.scm 96 */
																							obj_t BgL_arg1217z00_1150;
																							obj_t BgL_arg1219z00_1151;

																							{	/* Eval/expdstruct.scm 96 */
																								obj_t BgL_arg1224z00_1152;

																								BgL_arg1224z00_1152 =
																									MAKE_YOUNG_PAIR
																									(BGl_symbol1904z00zz__expander_structz00,
																									BNIL);
																								BgL_arg1217z00_1150 =
																									MAKE_YOUNG_PAIR
																									(BGl_symbol1906z00zz__expander_structz00,
																									BgL_arg1224z00_1152);
																							}
																							{	/* Eval/expdstruct.scm 97 */
																								obj_t BgL_arg1225z00_1153;
																								obj_t BgL_arg1226z00_1154;

																								{	/* Eval/expdstruct.scm 97 */
																									obj_t BgL_arg1230z00_1155;

																									{	/* Eval/expdstruct.scm 97 */
																										obj_t BgL_arg1231z00_1156;
																										obj_t BgL_arg1232z00_1157;

																										{	/* Eval/expdstruct.scm 97 */
																											obj_t BgL_arg1234z00_1158;

																											{	/* Eval/expdstruct.scm 97 */
																												obj_t
																													BgL_arg1235z00_1159;
																												{	/* Eval/expdstruct.scm 97 */
																													obj_t
																														BgL_arg1236z00_1160;
																													{	/* Eval/expdstruct.scm 97 */
																														obj_t
																															BgL_arg1239z00_1161;
																														{	/* Eval/expdstruct.scm 97 */
																															obj_t
																																BgL_arg1241z00_1162;
																															BgL_arg1241z00_1162
																																=
																																MAKE_YOUNG_PAIR
																																(BGl_symbol1904z00zz__expander_structz00,
																																BNIL);
																															BgL_arg1239z00_1161
																																=
																																MAKE_YOUNG_PAIR
																																(BGl_symbol1908z00zz__expander_structz00,
																																BgL_arg1241z00_1162);
																														}
																														BgL_arg1236z00_1160
																															=
																															MAKE_YOUNG_PAIR
																															(BgL_arg1239z00_1161,
																															BNIL);
																													}
																													BgL_arg1235z00_1159 =
																														MAKE_YOUNG_PAIR
																														(BGl_symbol1910z00zz__expander_structz00,
																														BgL_arg1236z00_1160);
																												}
																												BgL_arg1234z00_1158 =
																													MAKE_YOUNG_PAIR
																													(BgL_arg1235z00_1159,
																													BNIL);
																											}
																											BgL_arg1231z00_1156 =
																												MAKE_YOUNG_PAIR
																												(BGl_symbol1912z00zz__expander_structz00,
																												BgL_arg1234z00_1158);
																										}
																										{	/* Eval/expdstruct.scm 98 */
																											obj_t BgL_arg1242z00_1163;
																											obj_t BgL_arg1248z00_1164;

																											{	/* Eval/expdstruct.scm 98 */
																												obj_t
																													BgL_arg1249z00_1165;
																												{	/* Eval/expdstruct.scm 98 */
																													obj_t
																														BgL_arg1252z00_1166;
																													BgL_arg1252z00_1166 =
																														MAKE_YOUNG_PAIR
																														(BGl_symbol1904z00zz__expander_structz00,
																														BNIL);
																													BgL_arg1249z00_1165 =
																														MAKE_YOUNG_PAIR
																														(BgL_namez00_1122,
																														BgL_arg1252z00_1166);
																												}
																												BgL_arg1242z00_1163 =
																													MAKE_YOUNG_PAIR
																													(BGl_symbol1914z00zz__expander_structz00,
																													BgL_arg1249z00_1165);
																											}
																											{	/* Eval/expdstruct.scm 99 */
																												obj_t
																													BgL_arg1253z00_1167;
																												{	/* Eval/expdstruct.scm 99 */
																													obj_t
																														BgL_arg1254z00_1168;
																													{	/* Eval/expdstruct.scm 99 */
																														obj_t
																															BgL_arg1258z00_1169;
																														obj_t
																															BgL_arg1259z00_1170;
																														{	/* Eval/expdstruct.scm 99 */
																															obj_t
																																BgL_arg1261z00_1171;
																															BgL_arg1261z00_1171
																																=
																																MAKE_YOUNG_PAIR
																																(BgL_namez00_1122,
																																BNIL);
																															BgL_arg1258z00_1169
																																=
																																MAKE_YOUNG_PAIR
																																(BGl_symbol1900z00zz__expander_structz00,
																																BgL_arg1261z00_1171);
																														}
																														{	/* Eval/expdstruct.scm 99 */
																															obj_t
																																BgL_arg1262z00_1172;
																															{	/* Eval/expdstruct.scm 99 */
																																obj_t
																																	BgL_arg1263z00_1173;
																																{	/* Eval/expdstruct.scm 99 */
																																	obj_t
																																		BgL_arg1265z00_1174;
																																	BgL_arg1265z00_1174
																																		=
																																		MAKE_YOUNG_PAIR
																																		(BGl_symbol1904z00zz__expander_structz00,
																																		BNIL);
																																	BgL_arg1263z00_1173
																																		=
																																		MAKE_YOUNG_PAIR
																																		(BGl_symbol1916z00zz__expander_structz00,
																																		BgL_arg1265z00_1174);
																																}
																																BgL_arg1262z00_1172
																																	=
																																	MAKE_YOUNG_PAIR
																																	(BgL_arg1263z00_1173,
																																	BNIL);
																															}
																															BgL_arg1259z00_1170
																																=
																																MAKE_YOUNG_PAIR
																																(BINT
																																(BgL_lenz00_1132),
																																BgL_arg1262z00_1172);
																														}
																														BgL_arg1254z00_1168
																															=
																															MAKE_YOUNG_PAIR
																															(BgL_arg1258z00_1169,
																															BgL_arg1259z00_1170);
																													}
																													BgL_arg1253z00_1167 =
																														MAKE_YOUNG_PAIR
																														(BGl_symbol1918z00zz__expander_structz00,
																														BgL_arg1254z00_1168);
																												}
																												BgL_arg1248z00_1164 =
																													MAKE_YOUNG_PAIR
																													(BgL_arg1253z00_1167,
																													BNIL);
																											}
																											BgL_arg1232z00_1157 =
																												MAKE_YOUNG_PAIR
																												(BgL_arg1242z00_1163,
																												BgL_arg1248z00_1164);
																										}
																										BgL_arg1230z00_1155 =
																											MAKE_YOUNG_PAIR
																											(BgL_arg1231z00_1156,
																											BgL_arg1232z00_1157);
																									}
																									BgL_arg1225z00_1153 =
																										MAKE_YOUNG_PAIR
																										(BGl_symbol1920z00zz__expander_structz00,
																										BgL_arg1230z00_1155);
																								}
																								{	/* Eval/expdstruct.scm 100 */
																									obj_t BgL_arg1266z00_1175;

																									BgL_arg1266z00_1175 =
																										MAKE_YOUNG_PAIR
																										(BgL_namez00_1122,
																										BgL_slotszd2valzd2_1135);
																									BgL_arg1226z00_1154 =
																										MAKE_YOUNG_PAIR
																										(BgL_arg1266z00_1175, BNIL);
																								}
																								BgL_arg1219z00_1151 =
																									MAKE_YOUNG_PAIR
																									(BgL_arg1225z00_1153,
																									BgL_arg1226z00_1154);
																							}
																							BgL_arg1216z00_1149 =
																								MAKE_YOUNG_PAIR
																								(BgL_arg1217z00_1150,
																								BgL_arg1219z00_1151);
																						}
																						BgL_arg1215z00_1148 =
																							MAKE_YOUNG_PAIR
																							(BGl_symbol1920z00zz__expander_structz00,
																							BgL_arg1216z00_1149);
																					}
																				else
																					{	/* Eval/expdstruct.scm 101 */
																						obj_t BgL_arg1267z00_1176;

																						{	/* Eval/expdstruct.scm 101 */
																							obj_t BgL_arg1269z00_1177;
																							obj_t BgL_arg1271z00_1178;

																							{	/* Eval/expdstruct.scm 101 */
																								obj_t BgL_arg1274z00_1179;

																								BgL_arg1274z00_1179 =
																									MAKE_YOUNG_PAIR
																									(BGl_symbol1904z00zz__expander_structz00,
																									BNIL);
																								BgL_arg1269z00_1177 =
																									MAKE_YOUNG_PAIR
																									(BGl_symbol1906z00zz__expander_structz00,
																									BgL_arg1274z00_1179);
																							}
																							{	/* Eval/expdstruct.scm 102 */
																								obj_t BgL_arg1276z00_1180;
																								obj_t BgL_arg1278z00_1181;

																								{	/* Eval/expdstruct.scm 102 */
																									obj_t BgL_arg1279z00_1182;

																									{	/* Eval/expdstruct.scm 102 */
																										obj_t BgL_arg1280z00_1183;
																										obj_t BgL_arg1281z00_1184;

																										{	/* Eval/expdstruct.scm 102 */
																											obj_t BgL_arg1282z00_1185;

																											{	/* Eval/expdstruct.scm 102 */
																												obj_t
																													BgL_arg1283z00_1186;
																												{	/* Eval/expdstruct.scm 102 */
																													obj_t
																														BgL_arg1285z00_1187;
																													{	/* Eval/expdstruct.scm 102 */
																														obj_t
																															BgL_arg1287z00_1188;
																														{	/* Eval/expdstruct.scm 102 */
																															obj_t
																																BgL_arg1291z00_1189;
																															BgL_arg1291z00_1189
																																=
																																MAKE_YOUNG_PAIR
																																(BGl_symbol1904z00zz__expander_structz00,
																																BNIL);
																															BgL_arg1287z00_1188
																																=
																																MAKE_YOUNG_PAIR
																																(BGl_symbol1908z00zz__expander_structz00,
																																BgL_arg1291z00_1189);
																														}
																														BgL_arg1285z00_1187
																															=
																															MAKE_YOUNG_PAIR
																															(BgL_arg1287z00_1188,
																															BNIL);
																													}
																													BgL_arg1283z00_1186 =
																														MAKE_YOUNG_PAIR
																														(BGl_symbol1910z00zz__expander_structz00,
																														BgL_arg1285z00_1187);
																												}
																												BgL_arg1282z00_1185 =
																													MAKE_YOUNG_PAIR
																													(BgL_arg1283z00_1186,
																													BNIL);
																											}
																											BgL_arg1280z00_1183 =
																												MAKE_YOUNG_PAIR
																												(BGl_symbol1912z00zz__expander_structz00,
																												BgL_arg1282z00_1185);
																										}
																										{	/* Eval/expdstruct.scm 103 */
																											obj_t BgL_arg1292z00_1190;
																											obj_t BgL_arg1293z00_1191;

																											{	/* Eval/expdstruct.scm 103 */
																												obj_t
																													BgL_arg1295z00_1192;
																												{	/* Eval/expdstruct.scm 103 */
																													obj_t
																														BgL_arg1296z00_1193;
																													BgL_arg1296z00_1193 =
																														MAKE_YOUNG_PAIR
																														(BGl_symbol1904z00zz__expander_structz00,
																														BNIL);
																													BgL_arg1295z00_1192 =
																														MAKE_YOUNG_PAIR
																														(BgL_namez00_1122,
																														BgL_arg1296z00_1193);
																												}
																												BgL_arg1292z00_1190 =
																													MAKE_YOUNG_PAIR
																													(BGl_symbol1914z00zz__expander_structz00,
																													BgL_arg1295z00_1192);
																											}
																											{	/* Eval/expdstruct.scm 104 */
																												obj_t
																													BgL_arg1298z00_1194;
																												{	/* Eval/expdstruct.scm 104 */
																													obj_t
																														BgL_arg1301z00_1195;
																													{	/* Eval/expdstruct.scm 104 */
																														obj_t
																															BgL_arg1322z00_1196;
																														obj_t
																															BgL_arg1329z00_1197;
																														{	/* Eval/expdstruct.scm 104 */
																															obj_t
																																BgL_arg1330z00_1198;
																															BgL_arg1330z00_1198
																																=
																																MAKE_YOUNG_PAIR
																																(BgL_namez00_1122,
																																BNIL);
																															BgL_arg1322z00_1196
																																=
																																MAKE_YOUNG_PAIR
																																(BGl_symbol1900z00zz__expander_structz00,
																																BgL_arg1330z00_1198);
																														}
																														{	/* Eval/expdstruct.scm 104 */
																															obj_t
																																BgL_arg1331z00_1199;
																															{	/* Eval/expdstruct.scm 104 */
																																obj_t
																																	BgL_arg1332z00_1200;
																																{	/* Eval/expdstruct.scm 104 */
																																	obj_t
																																		BgL_arg1333z00_1201;
																																	BgL_arg1333z00_1201
																																		=
																																		MAKE_YOUNG_PAIR
																																		(BGl_symbol1904z00zz__expander_structz00,
																																		BNIL);
																																	BgL_arg1332z00_1200
																																		=
																																		MAKE_YOUNG_PAIR
																																		(BGl_symbol1916z00zz__expander_structz00,
																																		BgL_arg1333z00_1201);
																																}
																																BgL_arg1331z00_1199
																																	=
																																	MAKE_YOUNG_PAIR
																																	(BgL_arg1332z00_1200,
																																	BNIL);
																															}
																															BgL_arg1329z00_1197
																																=
																																MAKE_YOUNG_PAIR
																																(BINT
																																(BgL_lenz00_1132),
																																BgL_arg1331z00_1199);
																														}
																														BgL_arg1301z00_1195
																															=
																															MAKE_YOUNG_PAIR
																															(BgL_arg1322z00_1196,
																															BgL_arg1329z00_1197);
																													}
																													BgL_arg1298z00_1194 =
																														MAKE_YOUNG_PAIR
																														(BGl_symbol1918z00zz__expander_structz00,
																														BgL_arg1301z00_1195);
																												}
																												BgL_arg1293z00_1191 =
																													MAKE_YOUNG_PAIR
																													(BgL_arg1298z00_1194,
																													BNIL);
																											}
																											BgL_arg1281z00_1184 =
																												MAKE_YOUNG_PAIR
																												(BgL_arg1292z00_1190,
																												BgL_arg1293z00_1191);
																										}
																										BgL_arg1279z00_1182 =
																											MAKE_YOUNG_PAIR
																											(BgL_arg1280z00_1183,
																											BgL_arg1281z00_1184);
																									}
																									BgL_arg1276z00_1180 =
																										MAKE_YOUNG_PAIR
																										(BGl_symbol1920z00zz__expander_structz00,
																										BgL_arg1279z00_1182);
																								}
																								{	/* Eval/expdstruct.scm 105 */
																									obj_t BgL_arg1334z00_1202;

																									{	/* Eval/expdstruct.scm 105 */
																										obj_t BgL_arg1335z00_1203;

																										{	/* Eval/expdstruct.scm 105 */
																											obj_t BgL_arg1336z00_1204;
																											obj_t BgL_arg1337z00_1205;

																											{	/* Eval/expdstruct.scm 105 */
																												obj_t
																													BgL_arg1338z00_1206;
																												BgL_arg1338z00_1206 =
																													MAKE_YOUNG_PAIR
																													(BgL_namez00_1122,
																													BNIL);
																												BgL_arg1336z00_1204 =
																													MAKE_YOUNG_PAIR
																													(BGl_symbol1900z00zz__expander_structz00,
																													BgL_arg1338z00_1206);
																											}
																											{	/* Eval/expdstruct.scm 105 */
																												obj_t
																													BgL_arg1339z00_1207;
																												{	/* Eval/expdstruct.scm 105 */
																													obj_t
																														BgL_arg1341z00_1208;
																													{	/* Eval/expdstruct.scm 105 */
																														obj_t
																															BgL_arg1342z00_1209;
																														BgL_arg1342z00_1209
																															=
																															MAKE_YOUNG_PAIR
																															(BNIL, BNIL);
																														BgL_arg1341z00_1208
																															=
																															MAKE_YOUNG_PAIR
																															(BGl_symbol1900z00zz__expander_structz00,
																															BgL_arg1342z00_1209);
																													}
																													BgL_arg1339z00_1207 =
																														MAKE_YOUNG_PAIR
																														(BgL_arg1341z00_1208,
																														BNIL);
																												}
																												BgL_arg1337z00_1205 =
																													MAKE_YOUNG_PAIR(BINT
																													(BgL_lenz00_1132),
																													BgL_arg1339z00_1207);
																											}
																											BgL_arg1335z00_1203 =
																												MAKE_YOUNG_PAIR
																												(BgL_arg1336z00_1204,
																												BgL_arg1337z00_1205);
																										}
																										BgL_arg1334z00_1202 =
																											MAKE_YOUNG_PAIR
																											(BGl_symbol1918z00zz__expander_structz00,
																											BgL_arg1335z00_1203);
																									}
																									BgL_arg1278z00_1181 =
																										MAKE_YOUNG_PAIR
																										(BgL_arg1334z00_1202, BNIL);
																								}
																								BgL_arg1271z00_1178 =
																									MAKE_YOUNG_PAIR
																									(BgL_arg1276z00_1180,
																									BgL_arg1278z00_1181);
																							}
																							BgL_arg1267z00_1176 =
																								MAKE_YOUNG_PAIR
																								(BgL_arg1269z00_1177,
																								BgL_arg1271z00_1178);
																						}
																						BgL_arg1215z00_1148 =
																							MAKE_YOUNG_PAIR
																							(BGl_symbol1920z00zz__expander_structz00,
																							BgL_arg1267z00_1176);
																					}
																				BgL_arg1206z00_1143 =
																					MAKE_YOUNG_PAIR(BgL_arg1215z00_1148,
																					BNIL);
																			}
																			BgL_arg1202z00_1141 =
																				MAKE_YOUNG_PAIR(BgL_arg1203z00_1142,
																				BgL_arg1206z00_1143);
																		}
																		BgL_arg1201z00_1140 =
																			MAKE_YOUNG_PAIR
																			(BGl_symbol1922z00zz__expander_structz00,
																			BgL_arg1202z00_1141);
																	}
																	BgL_arg1197z00_1139 =
																		BGl_evepairifyz00zz__prognz00
																		(BgL_arg1201z00_1140, BgL_xz00_3);
																}
																BgL_arg1195z00_1137 =
																	BGL_PROCEDURE_CALL2(BgL_ez00_4,
																	BgL_arg1197z00_1139, BgL_ez00_4);
															}
															{	/* Eval/expdstruct.scm 110 */
																obj_t BgL_arg1343z00_1210;
																obj_t BgL_arg1345z00_1211;

																{	/* Eval/expdstruct.scm 110 */
																	obj_t BgL_arg1346z00_1212;

																	{	/* Eval/expdstruct.scm 110 */
																		obj_t BgL_arg1347z00_1213;

																		{	/* Eval/expdstruct.scm 110 */
																			obj_t BgL_arg1349z00_1214;

																			{	/* Eval/expdstruct.scm 110 */
																				obj_t BgL_arg1351z00_1215;
																				obj_t BgL_arg1352z00_1216;

																				BgL_arg1351z00_1215 =
																					MAKE_YOUNG_PAIR(BgL_namez00_1122,
																					BgL_slotszd2namezd2_1133);
																				{	/* Eval/expdstruct.scm 111 */
																					obj_t BgL_arg1353z00_1217;

																					{	/* Eval/expdstruct.scm 111 */
																						obj_t BgL_arg1355z00_1218;

																						{	/* Eval/expdstruct.scm 111 */
																							obj_t BgL_arg1356z00_1219;
																							obj_t BgL_arg1357z00_1220;

																							{	/* Eval/expdstruct.scm 111 */
																								obj_t BgL_arg1358z00_1221;

																								{	/* Eval/expdstruct.scm 111 */
																									obj_t BgL_arg1359z00_1222;

																									{	/* Eval/expdstruct.scm 111 */
																										obj_t BgL_arg1360z00_1223;

																										{	/* Eval/expdstruct.scm 111 */
																											obj_t BgL_arg1361z00_1224;

																											{	/* Eval/expdstruct.scm 111 */
																												obj_t
																													BgL_arg1362z00_1225;
																												obj_t
																													BgL_arg1363z00_1226;
																												{	/* Eval/expdstruct.scm 111 */
																													obj_t
																														BgL_arg1364z00_1227;
																													BgL_arg1364z00_1227 =
																														MAKE_YOUNG_PAIR
																														(BgL_namez00_1122,
																														BNIL);
																													BgL_arg1362z00_1225 =
																														MAKE_YOUNG_PAIR
																														(BGl_symbol1900z00zz__expander_structz00,
																														BgL_arg1364z00_1227);
																												}
																												{	/* Eval/expdstruct.scm 111 */
																													obj_t
																														BgL_arg1365z00_1228;
																													{	/* Eval/expdstruct.scm 111 */
																														obj_t
																															BgL_arg1366z00_1229;
																														{	/* Eval/expdstruct.scm 111 */
																															obj_t
																																BgL_arg1367z00_1230;
																															BgL_arg1367z00_1230
																																=
																																MAKE_YOUNG_PAIR
																																(BNIL, BNIL);
																															BgL_arg1366z00_1229
																																=
																																MAKE_YOUNG_PAIR
																																(BGl_symbol1900z00zz__expander_structz00,
																																BgL_arg1367z00_1230);
																														}
																														BgL_arg1365z00_1228
																															=
																															MAKE_YOUNG_PAIR
																															(BgL_arg1366z00_1229,
																															BNIL);
																													}
																													BgL_arg1363z00_1226 =
																														MAKE_YOUNG_PAIR(BINT
																														(BgL_lenz00_1132),
																														BgL_arg1365z00_1228);
																												}
																												BgL_arg1361z00_1224 =
																													MAKE_YOUNG_PAIR
																													(BgL_arg1362z00_1225,
																													BgL_arg1363z00_1226);
																											}
																											BgL_arg1360z00_1223 =
																												MAKE_YOUNG_PAIR
																												(BGl_symbol1918z00zz__expander_structz00,
																												BgL_arg1361z00_1224);
																										}
																										BgL_arg1359z00_1222 =
																											MAKE_YOUNG_PAIR
																											(BgL_arg1360z00_1223,
																											BNIL);
																									}
																									BgL_arg1358z00_1221 =
																										MAKE_YOUNG_PAIR
																										(BGl_symbol1924z00zz__expander_structz00,
																										BgL_arg1359z00_1222);
																								}
																								BgL_arg1356z00_1219 =
																									MAKE_YOUNG_PAIR
																									(BgL_arg1358z00_1221, BNIL);
																							}
																							{	/* Eval/expdstruct.scm 112 */
																								obj_t BgL_arg1368z00_1231;
																								obj_t BgL_arg1369z00_1232;

																								{
																									obj_t BgL_slotsz00_1235;
																									obj_t BgL_resz00_1236;

																									BgL_slotsz00_1235 =
																										BgL_slotszd2namezd2_1133;
																									BgL_resz00_1236 = BNIL;
																								BgL_zc3z04anonymousza31370ze3z87_1237:
																									if (NULLP
																										(BgL_slotsz00_1235))
																										{	/* Eval/expdstruct.scm 114 */
																											BgL_arg1368z00_1231 =
																												BgL_resz00_1236;
																										}
																									else
																										{	/* Eval/expdstruct.scm 116 */
																											obj_t BgL_arg1372z00_1239;
																											obj_t BgL_arg1373z00_1240;

																											BgL_arg1372z00_1239 =
																												CDR(
																												((obj_t)
																													BgL_slotsz00_1235));
																											{	/* Eval/expdstruct.scm 119 */
																												obj_t
																													BgL_arg1374z00_1241;
																												{	/* Eval/expdstruct.scm 119 */
																													obj_t
																														BgL_arg1376z00_1242;
																													obj_t
																														BgL_arg1377z00_1243;
																													{	/* Eval/expdstruct.scm 119 */
																														obj_t
																															BgL_arg1378z00_1244;
																														BgL_arg1378z00_1244
																															=
																															CAR(((obj_t)
																																BgL_slotsz00_1235));
																														{	/* Eval/expdstruct.scm 117 */
																															obj_t
																																BgL_list1379z00_1245;
																															{	/* Eval/expdstruct.scm 117 */
																																obj_t
																																	BgL_arg1380z00_1246;
																																{	/* Eval/expdstruct.scm 117 */
																																	obj_t
																																		BgL_arg1381z00_1247;
																																	{	/* Eval/expdstruct.scm 117 */
																																		obj_t
																																			BgL_arg1382z00_1248;
																																		BgL_arg1382z00_1248
																																			=
																																			MAKE_YOUNG_PAIR
																																			(BGl_symbol1926z00zz__expander_structz00,
																																			BNIL);
																																		BgL_arg1381z00_1247
																																			=
																																			MAKE_YOUNG_PAIR
																																			(BgL_arg1378z00_1244,
																																			BgL_arg1382z00_1248);
																																	}
																																	BgL_arg1380z00_1246
																																		=
																																		MAKE_YOUNG_PAIR
																																		(BGl_symbol1928z00zz__expander_structz00,
																																		BgL_arg1381z00_1247);
																																}
																																BgL_list1379z00_1245
																																	=
																																	MAKE_YOUNG_PAIR
																																	(BgL_namez00_1122,
																																	BgL_arg1380z00_1246);
																															}
																															BgL_arg1376z00_1242
																																=
																																BGl_symbolzd2appendzd2zz__r4_symbols_6_4z00
																																(BgL_list1379z00_1245);
																														}
																													}
																													{	/* Eval/expdstruct.scm 122 */
																														obj_t
																															BgL_arg1383z00_1249;
																														{	/* Eval/expdstruct.scm 122 */
																															obj_t
																																BgL_arg1384z00_1250;
																															BgL_arg1384z00_1250
																																=
																																CAR(((obj_t)
																																	BgL_slotsz00_1235));
																															BgL_arg1383z00_1249
																																=
																																MAKE_YOUNG_PAIR
																																(BgL_arg1384z00_1250,
																																BNIL);
																														}
																														BgL_arg1377z00_1243
																															=
																															MAKE_YOUNG_PAIR
																															(BGl_symbol1924z00zz__expander_structz00,
																															BgL_arg1383z00_1249);
																													}
																													BgL_arg1374z00_1241 =
																														MAKE_YOUNG_PAIR
																														(BgL_arg1376z00_1242,
																														BgL_arg1377z00_1243);
																												}
																												BgL_arg1373z00_1240 =
																													MAKE_YOUNG_PAIR
																													(BgL_arg1374z00_1241,
																													BgL_resz00_1236);
																											}
																											{
																												obj_t BgL_resz00_2309;
																												obj_t BgL_slotsz00_2308;

																												BgL_slotsz00_2308 =
																													BgL_arg1372z00_1239;
																												BgL_resz00_2309 =
																													BgL_arg1373z00_1240;
																												BgL_resz00_1236 =
																													BgL_resz00_2309;
																												BgL_slotsz00_1235 =
																													BgL_slotsz00_2308;
																												goto
																													BgL_zc3z04anonymousza31370ze3z87_1237;
																											}
																										}
																								}
																								BgL_arg1369z00_1232 =
																									MAKE_YOUNG_PAIR
																									(BGl_symbol1924z00zz__expander_structz00,
																									BNIL);
																								BgL_arg1357z00_1220 =
																									BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00
																									(BgL_arg1368z00_1231,
																									BgL_arg1369z00_1232);
																							}
																							BgL_arg1355z00_1218 =
																								MAKE_YOUNG_PAIR
																								(BgL_arg1356z00_1219,
																								BgL_arg1357z00_1220);
																						}
																						BgL_arg1353z00_1217 =
																							MAKE_YOUNG_PAIR
																							(BGl_symbol1930z00zz__expander_structz00,
																							BgL_arg1355z00_1218);
																					}
																					BgL_arg1352z00_1216 =
																						MAKE_YOUNG_PAIR(BgL_arg1353z00_1217,
																						BNIL);
																				}
																				BgL_arg1349z00_1214 =
																					MAKE_YOUNG_PAIR(BgL_arg1351z00_1215,
																					BgL_arg1352z00_1216);
																			}
																			BgL_arg1347z00_1213 =
																				MAKE_YOUNG_PAIR
																				(BGl_symbol1922z00zz__expander_structz00,
																				BgL_arg1349z00_1214);
																		}
																		BgL_arg1346z00_1212 =
																			BGl_evepairifyz00zz__prognz00
																			(BgL_arg1347z00_1213, BgL_xz00_3);
																	}
																	BgL_arg1343z00_1210 =
																		BGL_PROCEDURE_CALL2(BgL_ez00_4,
																		BgL_arg1346z00_1212, BgL_ez00_4);
																}
																{	/* Eval/expdstruct.scm 130 */
																	obj_t BgL_arg1385z00_1252;
																	obj_t BgL_arg1386z00_1253;

																	{	/* Eval/expdstruct.scm 130 */
																		obj_t BgL_arg1387z00_1254;

																		{	/* Eval/expdstruct.scm 130 */
																			obj_t BgL_arg1388z00_1255;

																			{	/* Eval/expdstruct.scm 130 */
																				obj_t BgL_arg1389z00_1256;

																				{	/* Eval/expdstruct.scm 130 */
																					obj_t BgL_arg1390z00_1257;
																					obj_t BgL_arg1391z00_1258;

																					{	/* Eval/expdstruct.scm 130 */
																						obj_t BgL_arg1392z00_1259;
																						obj_t BgL_arg1395z00_1260;

																						{	/* Eval/expdstruct.scm 130 */
																							obj_t BgL_arg1396z00_1261;

																							{	/* Eval/expdstruct.scm 130 */
																								obj_t BgL_arg1397z00_1262;
																								obj_t BgL_arg1398z00_1263;

																								{	/* Eval/expdstruct.scm 130 */
																									obj_t BgL_arg1687z00_1850;

																									BgL_arg1687z00_1850 =
																										SYMBOL_TO_STRING(
																										((obj_t) BgL_namez00_1122));
																									BgL_arg1397z00_1262 =
																										BGl_stringzd2copyzd2zz__r4_strings_6_7z00
																										(BgL_arg1687z00_1850);
																								}
																								{	/* Eval/expdstruct.scm 130 */
																									obj_t BgL_symbolz00_1851;

																									BgL_symbolz00_1851 =
																										BGl_symbol1932z00zz__expander_structz00;
																									{	/* Eval/expdstruct.scm 130 */
																										obj_t BgL_arg1687z00_1852;

																										BgL_arg1687z00_1852 =
																											SYMBOL_TO_STRING
																											(BgL_symbolz00_1851);
																										BgL_arg1398z00_1263 =
																											BGl_stringzd2copyzd2zz__r4_strings_6_7z00
																											(BgL_arg1687z00_1852);
																									}
																								}
																								BgL_arg1396z00_1261 =
																									string_append
																									(BgL_arg1397z00_1262,
																									BgL_arg1398z00_1263);
																							}
																							BgL_arg1392z00_1259 =
																								bstring_to_symbol
																								(BgL_arg1396z00_1261);
																						}
																						BgL_arg1395z00_1260 =
																							MAKE_YOUNG_PAIR
																							(BGl_symbol1934z00zz__expander_structz00,
																							BNIL);
																						BgL_arg1390z00_1257 =
																							MAKE_YOUNG_PAIR
																							(BgL_arg1392z00_1259,
																							BgL_arg1395z00_1260);
																					}
																					{	/* Eval/expdstruct.scm 131 */
																						obj_t BgL_arg1399z00_1264;

																						{	/* Eval/expdstruct.scm 131 */
																							obj_t BgL_arg1400z00_1265;

																							{	/* Eval/expdstruct.scm 131 */
																								obj_t BgL_arg1401z00_1266;
																								obj_t BgL_arg1402z00_1267;

																								{	/* Eval/expdstruct.scm 131 */
																									obj_t BgL_arg1403z00_1268;

																									BgL_arg1403z00_1268 =
																										MAKE_YOUNG_PAIR
																										(BGl_symbol1934z00zz__expander_structz00,
																										BNIL);
																									BgL_arg1401z00_1266 =
																										MAKE_YOUNG_PAIR
																										(BGl_symbol1936z00zz__expander_structz00,
																										BgL_arg1403z00_1268);
																								}
																								{	/* Eval/expdstruct.scm 132 */
																									obj_t BgL_arg1404z00_1269;
																									obj_t BgL_arg1405z00_1270;

																									{	/* Eval/expdstruct.scm 132 */
																										obj_t BgL_arg1407z00_1271;

																										{	/* Eval/expdstruct.scm 132 */
																											obj_t BgL_arg1408z00_1272;
																											obj_t BgL_arg1409z00_1273;

																											{	/* Eval/expdstruct.scm 132 */
																												obj_t
																													BgL_arg1410z00_1274;
																												BgL_arg1410z00_1274 =
																													MAKE_YOUNG_PAIR
																													(BGl_symbol1934z00zz__expander_structz00,
																													BNIL);
																												BgL_arg1408z00_1272 =
																													MAKE_YOUNG_PAIR
																													(BGl_symbol1938z00zz__expander_structz00,
																													BgL_arg1410z00_1274);
																											}
																											{	/* Eval/expdstruct.scm 132 */
																												obj_t
																													BgL_arg1411z00_1275;
																												{	/* Eval/expdstruct.scm 132 */
																													obj_t
																														BgL_arg1412z00_1276;
																													BgL_arg1412z00_1276 =
																														MAKE_YOUNG_PAIR
																														(BgL_namez00_1122,
																														BNIL);
																													BgL_arg1411z00_1275 =
																														MAKE_YOUNG_PAIR
																														(BGl_symbol1900z00zz__expander_structz00,
																														BgL_arg1412z00_1276);
																												}
																												BgL_arg1409z00_1273 =
																													MAKE_YOUNG_PAIR
																													(BgL_arg1411z00_1275,
																													BNIL);
																											}
																											BgL_arg1407z00_1271 =
																												MAKE_YOUNG_PAIR
																												(BgL_arg1408z00_1272,
																												BgL_arg1409z00_1273);
																										}
																										BgL_arg1404z00_1269 =
																											MAKE_YOUNG_PAIR
																											(BGl_symbol1940z00zz__expander_structz00,
																											BgL_arg1407z00_1271);
																									}
																									BgL_arg1405z00_1270 =
																										MAKE_YOUNG_PAIR(BFALSE,
																										BNIL);
																									BgL_arg1402z00_1267 =
																										MAKE_YOUNG_PAIR
																										(BgL_arg1404z00_1269,
																										BgL_arg1405z00_1270);
																								}
																								BgL_arg1400z00_1265 =
																									MAKE_YOUNG_PAIR
																									(BgL_arg1401z00_1266,
																									BgL_arg1402z00_1267);
																							}
																							BgL_arg1399z00_1264 =
																								MAKE_YOUNG_PAIR
																								(BGl_symbol1920z00zz__expander_structz00,
																								BgL_arg1400z00_1265);
																						}
																						BgL_arg1391z00_1258 =
																							MAKE_YOUNG_PAIR
																							(BgL_arg1399z00_1264, BNIL);
																					}
																					BgL_arg1389z00_1256 =
																						MAKE_YOUNG_PAIR(BgL_arg1390z00_1257,
																						BgL_arg1391z00_1258);
																				}
																				BgL_arg1388z00_1255 =
																					MAKE_YOUNG_PAIR
																					(BGl_symbol1922z00zz__expander_structz00,
																					BgL_arg1389z00_1256);
																			}
																			BgL_arg1387z00_1254 =
																				BGl_evepairifyz00zz__prognz00
																				(BgL_arg1388z00_1255, BgL_xz00_3);
																		}
																		BgL_arg1385z00_1252 =
																			BGL_PROCEDURE_CALL2(BgL_ez00_4,
																			BgL_arg1387z00_1254, BgL_ez00_4);
																	}
																	{	/* Eval/expdstruct.scm 137 */
																		obj_t BgL_g1040z00_1277;

																		BgL_g1040z00_1277 =
																			BGl_list1942z00zz__expander_structz00;
																		{
																			long BgL_iz00_1279;
																			obj_t BgL_slotsz00_1280;
																			obj_t BgL_resz00_1281;

																			BgL_iz00_1279 = 0L;
																			BgL_slotsz00_1280 =
																				BgL_slotszd2namezd2_1133;
																			BgL_resz00_1281 = BgL_g1040z00_1277;
																		BgL_zc3z04anonymousza31413ze3z87_1282:
																			if ((BgL_iz00_1279 == BgL_lenz00_1132))
																				{	/* Eval/expdstruct.scm 140 */
																					BgL_arg1386z00_1253 = BgL_resz00_1281;
																				}
																			else
																				{	/* Eval/expdstruct.scm 142 */
																					obj_t BgL_prz00_1284;

																					BgL_prz00_1284 =
																						CAR(((obj_t) BgL_slotsz00_1280));
																					{	/* Eval/expdstruct.scm 143 */
																						long BgL_arg1415z00_1285;
																						obj_t BgL_arg1416z00_1286;
																						obj_t BgL_arg1417z00_1287;

																						BgL_arg1415z00_1285 =
																							(BgL_iz00_1279 + 1L);
																						BgL_arg1416z00_1286 =
																							CDR(((obj_t) BgL_slotsz00_1280));
																						{	/* Eval/expdstruct.scm 149 */
																							obj_t BgL_arg1419z00_1288;
																							obj_t BgL_arg1420z00_1289;

																							{	/* Eval/expdstruct.scm 149 */
																								obj_t BgL_arg1421z00_1290;

																								{	/* Eval/expdstruct.scm 149 */
																									obj_t BgL_arg1422z00_1291;

																									{	/* Eval/expdstruct.scm 149 */
																										obj_t BgL_arg1423z00_1292;

																										{	/* Eval/expdstruct.scm 149 */
																											obj_t BgL_arg1424z00_1293;
																											obj_t BgL_arg1425z00_1294;

																											{	/* Eval/expdstruct.scm 149 */
																												obj_t
																													BgL_arg1426z00_1295;
																												obj_t
																													BgL_arg1427z00_1296;
																												{	/* Eval/expdstruct.scm 149 */
																													obj_t
																														BgL_list1428z00_1297;
																													{	/* Eval/expdstruct.scm 149 */
																														obj_t
																															BgL_arg1429z00_1298;
																														{	/* Eval/expdstruct.scm 149 */
																															obj_t
																																BgL_arg1430z00_1299;
																															BgL_arg1430z00_1299
																																=
																																MAKE_YOUNG_PAIR
																																(BgL_prz00_1284,
																																BNIL);
																															BgL_arg1429z00_1298
																																=
																																MAKE_YOUNG_PAIR
																																(BGl_symbol1928z00zz__expander_structz00,
																																BgL_arg1430z00_1299);
																														}
																														BgL_list1428z00_1297
																															=
																															MAKE_YOUNG_PAIR
																															(BgL_namez00_1122,
																															BgL_arg1429z00_1298);
																													}
																													BgL_arg1426z00_1295 =
																														BGl_symbolzd2appendzd2zz__r4_symbols_6_4z00
																														(BgL_list1428z00_1297);
																												}
																												BgL_arg1427z00_1296 =
																													MAKE_YOUNG_PAIR
																													(BGl_symbol1946z00zz__expander_structz00,
																													BNIL);
																												BgL_arg1424z00_1293 =
																													MAKE_YOUNG_PAIR
																													(BgL_arg1426z00_1295,
																													BgL_arg1427z00_1296);
																											}
																											{	/* Eval/expdstruct.scm 150 */
																												obj_t
																													BgL_arg1431z00_1300;
																												{	/* Eval/expdstruct.scm 150 */
																													obj_t
																														BgL_arg1432z00_1301;
																													{	/* Eval/expdstruct.scm 150 */
																														obj_t
																															BgL_arg1433z00_1302;
																														obj_t
																															BgL_arg1434z00_1303;
																														{	/* Eval/expdstruct.scm 150 */
																															obj_t
																																BgL_arg1435z00_1304;
																															obj_t
																																BgL_arg1436z00_1305;
																															{	/* Eval/expdstruct.scm 150 */
																																obj_t
																																	BgL_arg1437z00_1306;
																																{	/* Eval/expdstruct.scm 150 */
																																	obj_t
																																		BgL_arg1438z00_1307;
																																	obj_t
																																		BgL_arg1439z00_1308;
																																	{	/* Eval/expdstruct.scm 150 */
																																		obj_t
																																			BgL_arg1687z00_1860;
																																		BgL_arg1687z00_1860
																																			=
																																			SYMBOL_TO_STRING
																																			(((obj_t)
																																				BgL_namez00_1122));
																																		BgL_arg1438z00_1307
																																			=
																																			BGl_stringzd2copyzd2zz__r4_strings_6_7z00
																																			(BgL_arg1687z00_1860);
																																	}
																																	{	/* Eval/expdstruct.scm 150 */
																																		obj_t
																																			BgL_symbolz00_1861;
																																		BgL_symbolz00_1861
																																			=
																																			BGl_symbol1932z00zz__expander_structz00;
																																		{	/* Eval/expdstruct.scm 150 */
																																			obj_t
																																				BgL_arg1687z00_1862;
																																			BgL_arg1687z00_1862
																																				=
																																				SYMBOL_TO_STRING
																																				(BgL_symbolz00_1861);
																																			BgL_arg1439z00_1308
																																				=
																																				BGl_stringzd2copyzd2zz__r4_strings_6_7z00
																																				(BgL_arg1687z00_1862);
																																	}}
																																	BgL_arg1437z00_1306
																																		=
																																		string_append
																																		(BgL_arg1438z00_1307,
																																		BgL_arg1439z00_1308);
																																}
																																BgL_arg1435z00_1304
																																	=
																																	bstring_to_symbol
																																	(BgL_arg1437z00_1306);
																															}
																															BgL_arg1436z00_1305
																																=
																																MAKE_YOUNG_PAIR
																																(BGl_symbol1946z00zz__expander_structz00,
																																BNIL);
																															BgL_arg1433z00_1302
																																=
																																MAKE_YOUNG_PAIR
																																(BgL_arg1435z00_1304,
																																BgL_arg1436z00_1305);
																														}
																														{	/* Eval/expdstruct.scm 151 */
																															obj_t
																																BgL_arg1442z00_1309;
																															obj_t
																																BgL_arg1443z00_1310;
																															{	/* Eval/expdstruct.scm 151 */
																																obj_t
																																	BgL_arg1444z00_1311;
																																{	/* Eval/expdstruct.scm 151 */
																																	obj_t
																																		BgL_arg1445z00_1312;
																																	BgL_arg1445z00_1312
																																		=
																																		MAKE_YOUNG_PAIR
																																		(BINT
																																		(BgL_iz00_1279),
																																		BNIL);
																																	BgL_arg1444z00_1311
																																		=
																																		MAKE_YOUNG_PAIR
																																		(BGl_symbol1946z00zz__expander_structz00,
																																		BgL_arg1445z00_1312);
																																}
																																BgL_arg1442z00_1309
																																	=
																																	MAKE_YOUNG_PAIR
																																	(BGl_symbol1948z00zz__expander_structz00,
																																	BgL_arg1444z00_1311);
																															}
																															{	/* Eval/expdstruct.scm 154 */
																																obj_t
																																	BgL_arg1446z00_1313;
																																{	/* Eval/expdstruct.scm 154 */
																																	obj_t
																																		BgL_arg1447z00_1314;
																																	{	/* Eval/expdstruct.scm 154 */
																																		obj_t
																																			BgL_arg1448z00_1315;
																																		{	/* Eval/expdstruct.scm 154 */
																																			obj_t
																																				BgL_arg1450z00_1316;
																																			obj_t
																																				BgL_arg1451z00_1317;
																																			{	/* Eval/expdstruct.scm 154 */
																																				obj_t
																																					BgL_arg1687z00_1865;
																																				BgL_arg1687z00_1865
																																					=
																																					SYMBOL_TO_STRING
																																					(((obj_t) BgL_namez00_1122));
																																				BgL_arg1450z00_1316
																																					=
																																					BGl_stringzd2copyzd2zz__r4_strings_6_7z00
																																					(BgL_arg1687z00_1865);
																																			}
																																			BgL_arg1451z00_1317
																																				=
																																				MAKE_YOUNG_PAIR
																																				(BGl_symbol1946z00zz__expander_structz00,
																																				BNIL);
																																			BgL_arg1448z00_1315
																																				=
																																				MAKE_YOUNG_PAIR
																																				(BgL_arg1450z00_1316,
																																				BgL_arg1451z00_1317);
																																		}
																																		BgL_arg1447z00_1314
																																			=
																																			MAKE_YOUNG_PAIR
																																			(BGl_string1950z00zz__expander_structz00,
																																			BgL_arg1448z00_1315);
																																	}
																																	BgL_arg1446z00_1313
																																		=
																																		MAKE_YOUNG_PAIR
																																		(BGl_symbol1951z00zz__expander_structz00,
																																		BgL_arg1447z00_1314);
																																}
																																BgL_arg1443z00_1310
																																	=
																																	MAKE_YOUNG_PAIR
																																	(BgL_arg1446z00_1313,
																																	BNIL);
																															}
																															BgL_arg1434z00_1303
																																=
																																MAKE_YOUNG_PAIR
																																(BgL_arg1442z00_1309,
																																BgL_arg1443z00_1310);
																														}
																														BgL_arg1432z00_1301
																															=
																															MAKE_YOUNG_PAIR
																															(BgL_arg1433z00_1302,
																															BgL_arg1434z00_1303);
																													}
																													BgL_arg1431z00_1300 =
																														MAKE_YOUNG_PAIR
																														(BGl_symbol1920z00zz__expander_structz00,
																														BgL_arg1432z00_1301);
																												}
																												BgL_arg1425z00_1294 =
																													MAKE_YOUNG_PAIR
																													(BgL_arg1431z00_1300,
																													BNIL);
																											}
																											BgL_arg1423z00_1292 =
																												MAKE_YOUNG_PAIR
																												(BgL_arg1424z00_1293,
																												BgL_arg1425z00_1294);
																										}
																										BgL_arg1422z00_1291 =
																											MAKE_YOUNG_PAIR
																											(BGl_symbol1922z00zz__expander_structz00,
																											BgL_arg1423z00_1292);
																									}
																									BgL_arg1421z00_1290 =
																										BGl_evepairifyz00zz__prognz00
																										(BgL_arg1422z00_1291,
																										BgL_xz00_3);
																								}
																								BgL_arg1419z00_1288 =
																									BGL_PROCEDURE_CALL2
																									(BgL_ez00_4,
																									BgL_arg1421z00_1290,
																									BgL_ez00_4);
																							}
																							{	/* Eval/expdstruct.scm 162 */
																								obj_t BgL_arg1452z00_1318;

																								{	/* Eval/expdstruct.scm 162 */
																									obj_t BgL_arg1453z00_1319;

																									{	/* Eval/expdstruct.scm 162 */
																										obj_t BgL_arg1455z00_1320;

																										{	/* Eval/expdstruct.scm 162 */
																											obj_t BgL_arg1456z00_1321;

																											{	/* Eval/expdstruct.scm 162 */
																												obj_t
																													BgL_arg1457z00_1322;
																												obj_t
																													BgL_arg1458z00_1323;
																												{	/* Eval/expdstruct.scm 162 */
																													obj_t
																														BgL_arg1459z00_1324;
																													obj_t
																														BgL_arg1460z00_1325;
																													{	/* Eval/expdstruct.scm 162 */
																														obj_t
																															BgL_list1461z00_1326;
																														{	/* Eval/expdstruct.scm 162 */
																															obj_t
																																BgL_arg1462z00_1327;
																															{	/* Eval/expdstruct.scm 162 */
																																obj_t
																																	BgL_arg1464z00_1328;
																																{	/* Eval/expdstruct.scm 162 */
																																	obj_t
																																		BgL_arg1465z00_1329;
																																	BgL_arg1465z00_1329
																																		=
																																		MAKE_YOUNG_PAIR
																																		(BGl_symbol1926z00zz__expander_structz00,
																																		BNIL);
																																	BgL_arg1464z00_1328
																																		=
																																		MAKE_YOUNG_PAIR
																																		(BgL_prz00_1284,
																																		BgL_arg1465z00_1329);
																																}
																																BgL_arg1462z00_1327
																																	=
																																	MAKE_YOUNG_PAIR
																																	(BGl_symbol1928z00zz__expander_structz00,
																																	BgL_arg1464z00_1328);
																															}
																															BgL_list1461z00_1326
																																=
																																MAKE_YOUNG_PAIR
																																(BgL_namez00_1122,
																																BgL_arg1462z00_1327);
																														}
																														BgL_arg1459z00_1324
																															=
																															BGl_symbolzd2appendzd2zz__r4_symbols_6_4z00
																															(BgL_list1461z00_1326);
																													}
																													{	/* Eval/expdstruct.scm 162 */
																														obj_t
																															BgL_arg1466z00_1330;
																														BgL_arg1466z00_1330
																															=
																															MAKE_YOUNG_PAIR
																															(BGl_symbol1953z00zz__expander_structz00,
																															BNIL);
																														BgL_arg1460z00_1325
																															=
																															MAKE_YOUNG_PAIR
																															(BGl_symbol1946z00zz__expander_structz00,
																															BgL_arg1466z00_1330);
																													}
																													BgL_arg1457z00_1322 =
																														MAKE_YOUNG_PAIR
																														(BgL_arg1459z00_1324,
																														BgL_arg1460z00_1325);
																												}
																												{	/* Eval/expdstruct.scm 163 */
																													obj_t
																														BgL_arg1467z00_1331;
																													{	/* Eval/expdstruct.scm 163 */
																														obj_t
																															BgL_arg1468z00_1332;
																														{	/* Eval/expdstruct.scm 163 */
																															obj_t
																																BgL_arg1469z00_1333;
																															obj_t
																																BgL_arg1470z00_1334;
																															{	/* Eval/expdstruct.scm 163 */
																																obj_t
																																	BgL_arg1471z00_1335;
																																obj_t
																																	BgL_arg1472z00_1336;
																																{	/* Eval/expdstruct.scm 163 */
																																	obj_t
																																		BgL_arg1473z00_1337;
																																	{	/* Eval/expdstruct.scm 163 */
																																		obj_t
																																			BgL_arg1474z00_1338;
																																		obj_t
																																			BgL_arg1475z00_1339;
																																		{	/* Eval/expdstruct.scm 163 */
																																			obj_t
																																				BgL_arg1687z00_1867;
																																			BgL_arg1687z00_1867
																																				=
																																				SYMBOL_TO_STRING
																																				(((obj_t) BgL_namez00_1122));
																																			BgL_arg1474z00_1338
																																				=
																																				BGl_stringzd2copyzd2zz__r4_strings_6_7z00
																																				(BgL_arg1687z00_1867);
																																		}
																																		{	/* Eval/expdstruct.scm 163 */
																																			obj_t
																																				BgL_symbolz00_1868;
																																			BgL_symbolz00_1868
																																				=
																																				BGl_symbol1932z00zz__expander_structz00;
																																			{	/* Eval/expdstruct.scm 163 */
																																				obj_t
																																					BgL_arg1687z00_1869;
																																				BgL_arg1687z00_1869
																																					=
																																					SYMBOL_TO_STRING
																																					(BgL_symbolz00_1868);
																																				BgL_arg1475z00_1339
																																					=
																																					BGl_stringzd2copyzd2zz__r4_strings_6_7z00
																																					(BgL_arg1687z00_1869);
																																		}}
																																		BgL_arg1473z00_1337
																																			=
																																			string_append
																																			(BgL_arg1474z00_1338,
																																			BgL_arg1475z00_1339);
																																	}
																																	BgL_arg1471z00_1335
																																		=
																																		bstring_to_symbol
																																		(BgL_arg1473z00_1337);
																																}
																																BgL_arg1472z00_1336
																																	=
																																	MAKE_YOUNG_PAIR
																																	(BGl_symbol1946z00zz__expander_structz00,
																																	BNIL);
																																BgL_arg1469z00_1333
																																	=
																																	MAKE_YOUNG_PAIR
																																	(BgL_arg1471z00_1335,
																																	BgL_arg1472z00_1336);
																															}
																															{	/* Eval/expdstruct.scm 164 */
																																obj_t
																																	BgL_arg1476z00_1340;
																																obj_t
																																	BgL_arg1479z00_1341;
																																{	/* Eval/expdstruct.scm 164 */
																																	obj_t
																																		BgL_arg1480z00_1342;
																																	{	/* Eval/expdstruct.scm 164 */
																																		obj_t
																																			BgL_arg1481z00_1343;
																																		{	/* Eval/expdstruct.scm 164 */
																																			obj_t
																																				BgL_arg1482z00_1344;
																																			BgL_arg1482z00_1344
																																				=
																																				MAKE_YOUNG_PAIR
																																				(BGl_symbol1953z00zz__expander_structz00,
																																				BNIL);
																																			BgL_arg1481z00_1343
																																				=
																																				MAKE_YOUNG_PAIR
																																				(BINT
																																				(BgL_iz00_1279),
																																				BgL_arg1482z00_1344);
																																		}
																																		BgL_arg1480z00_1342
																																			=
																																			MAKE_YOUNG_PAIR
																																			(BGl_symbol1946z00zz__expander_structz00,
																																			BgL_arg1481z00_1343);
																																	}
																																	BgL_arg1476z00_1340
																																		=
																																		MAKE_YOUNG_PAIR
																																		(BGl_symbol1955z00zz__expander_structz00,
																																		BgL_arg1480z00_1342);
																																}
																																{	/* Eval/expdstruct.scm 167 */
																																	obj_t
																																		BgL_arg1483z00_1345;
																																	{	/* Eval/expdstruct.scm 167 */
																																		obj_t
																																			BgL_arg1484z00_1346;
																																		{	/* Eval/expdstruct.scm 167 */
																																			obj_t
																																				BgL_arg1486z00_1347;
																																			{	/* Eval/expdstruct.scm 167 */
																																				obj_t
																																					BgL_arg1487z00_1348;
																																				obj_t
																																					BgL_arg1488z00_1349;
																																				{	/* Eval/expdstruct.scm 167 */
																																					obj_t
																																						BgL_arg1687z00_1872;
																																					BgL_arg1687z00_1872
																																						=
																																						SYMBOL_TO_STRING
																																						(((obj_t) BgL_namez00_1122));
																																					BgL_arg1487z00_1348
																																						=
																																						BGl_stringzd2copyzd2zz__r4_strings_6_7z00
																																						(BgL_arg1687z00_1872);
																																				}
																																				BgL_arg1488z00_1349
																																					=
																																					MAKE_YOUNG_PAIR
																																					(BGl_symbol1946z00zz__expander_structz00,
																																					BNIL);
																																				BgL_arg1486z00_1347
																																					=
																																					MAKE_YOUNG_PAIR
																																					(BgL_arg1487z00_1348,
																																					BgL_arg1488z00_1349);
																																			}
																																			BgL_arg1484z00_1346
																																				=
																																				MAKE_YOUNG_PAIR
																																				(BGl_string1957z00zz__expander_structz00,
																																				BgL_arg1486z00_1347);
																																		}
																																		BgL_arg1483z00_1345
																																			=
																																			MAKE_YOUNG_PAIR
																																			(BGl_symbol1951z00zz__expander_structz00,
																																			BgL_arg1484z00_1346);
																																	}
																																	BgL_arg1479z00_1341
																																		=
																																		MAKE_YOUNG_PAIR
																																		(BgL_arg1483z00_1345,
																																		BNIL);
																																}
																																BgL_arg1470z00_1334
																																	=
																																	MAKE_YOUNG_PAIR
																																	(BgL_arg1476z00_1340,
																																	BgL_arg1479z00_1341);
																															}
																															BgL_arg1468z00_1332
																																=
																																MAKE_YOUNG_PAIR
																																(BgL_arg1469z00_1333,
																																BgL_arg1470z00_1334);
																														}
																														BgL_arg1467z00_1331
																															=
																															MAKE_YOUNG_PAIR
																															(BGl_symbol1920z00zz__expander_structz00,
																															BgL_arg1468z00_1332);
																													}
																													BgL_arg1458z00_1323 =
																														MAKE_YOUNG_PAIR
																														(BgL_arg1467z00_1331,
																														BNIL);
																												}
																												BgL_arg1456z00_1321 =
																													MAKE_YOUNG_PAIR
																													(BgL_arg1457z00_1322,
																													BgL_arg1458z00_1323);
																											}
																											BgL_arg1455z00_1320 =
																												MAKE_YOUNG_PAIR
																												(BGl_symbol1922z00zz__expander_structz00,
																												BgL_arg1456z00_1321);
																										}
																										BgL_arg1453z00_1319 =
																											BGl_evepairifyz00zz__prognz00
																											(BgL_arg1455z00_1320,
																											BgL_xz00_3);
																									}
																									BgL_arg1452z00_1318 =
																										BGL_PROCEDURE_CALL2
																										(BgL_ez00_4,
																										BgL_arg1453z00_1319,
																										BgL_ez00_4);
																								}
																								BgL_arg1420z00_1289 =
																									MAKE_YOUNG_PAIR
																									(BgL_arg1452z00_1318,
																									BgL_resz00_1281);
																							}
																							BgL_arg1417z00_1287 =
																								MAKE_YOUNG_PAIR
																								(BgL_arg1419z00_1288,
																								BgL_arg1420z00_1289);
																						}
																						{
																							obj_t BgL_resz00_2446;
																							obj_t BgL_slotsz00_2445;
																							long BgL_iz00_2444;

																							BgL_iz00_2444 =
																								BgL_arg1415z00_1285;
																							BgL_slotsz00_2445 =
																								BgL_arg1416z00_1286;
																							BgL_resz00_2446 =
																								BgL_arg1417z00_1287;
																							BgL_resz00_1281 = BgL_resz00_2446;
																							BgL_slotsz00_1280 =
																								BgL_slotsz00_2445;
																							BgL_iz00_1279 = BgL_iz00_2444;
																							goto
																								BgL_zc3z04anonymousza31413ze3z87_1282;
																						}
																					}
																				}
																		}
																	}
																	BgL_arg1345z00_1211 =
																		MAKE_YOUNG_PAIR(BgL_arg1385z00_1252,
																		BgL_arg1386z00_1253);
																}
																BgL_arg1196z00_1138 =
																	MAKE_YOUNG_PAIR(BgL_arg1343z00_1210,
																	BgL_arg1345z00_1211);
															}
															BgL_arg1194z00_1136 =
																MAKE_YOUNG_PAIR(BgL_arg1195z00_1137,
																BgL_arg1196z00_1138);
														}
														return
															MAKE_YOUNG_PAIR
															(BGl_symbol1958z00zz__expander_structz00,
															BgL_arg1194z00_1136);
													}
												}
											}
										}
									}
								}
							}
						else
							{	/* Eval/expdstruct.scm 61 */
								return
									BGl_expandzd2errorzd2zz__expandz00
									(BGl_string1897z00zz__expander_structz00,
									BGl_string1898z00zz__expander_structz00, BgL_xz00_3);
							}
					}
				else
					{	/* Eval/expdstruct.scm 61 */
						return
							BGl_expandzd2errorzd2zz__expandz00
							(BGl_string1897z00zz__expander_structz00,
							BGl_string1898z00zz__expander_structz00, BgL_xz00_3);
					}
			}
		}

	}



/* &expand-eval-define-struct */
	obj_t BGl_z62expandzd2evalzd2definezd2structzb0zz__expander_structz00(obj_t
		BgL_envz00_2053, obj_t BgL_xz00_2054, obj_t BgL_ez00_2055)
	{
		{	/* Eval/expdstruct.scm 60 */
			return
				BGl_expandzd2evalzd2definezd2structzd2zz__expander_structz00
				(BgL_xz00_2054, BgL_ez00_2055);
		}

	}



/* object-init */
	obj_t BGl_objectzd2initzd2zz__expander_structz00(void)
	{
		{	/* Eval/expdstruct.scm 18 */
			return BUNSPEC;
		}

	}



/* generic-init */
	obj_t BGl_genericzd2initzd2zz__expander_structz00(void)
	{
		{	/* Eval/expdstruct.scm 18 */
			return BUNSPEC;
		}

	}



/* method-init */
	obj_t BGl_methodzd2initzd2zz__expander_structz00(void)
	{
		{	/* Eval/expdstruct.scm 18 */
			return BUNSPEC;
		}

	}



/* imported-modules-init */
	obj_t BGl_importedzd2moduleszd2initz00zz__expander_structz00(void)
	{
		{	/* Eval/expdstruct.scm 18 */
			BGl_modulezd2initializa7ationz75zz__errorz00(88804785L,
				BSTRING_TO_STRING(BGl_string1960z00zz__expander_structz00));
			BGl_modulezd2initializa7ationz75zz__biglooz00(348684831L,
				BSTRING_TO_STRING(BGl_string1960z00zz__expander_structz00));
			BGl_modulezd2initializa7ationz75zz__tvectorz00(135276775L,
				BSTRING_TO_STRING(BGl_string1960z00zz__expander_structz00));
			BGl_modulezd2initializa7ationz75zz__structurez00(128205792L,
				BSTRING_TO_STRING(BGl_string1960z00zz__expander_structz00));
			BGl_modulezd2initializa7ationz75zz__bexitz00(443005284L,
				BSTRING_TO_STRING(BGl_string1960z00zz__expander_structz00));
			BGl_modulezd2initializa7ationz75zz__bignumz00(289561787L,
				BSTRING_TO_STRING(BGl_string1960z00zz__expander_structz00));
			BGl_modulezd2initializa7ationz75zz__paramz00(453939141L,
				BSTRING_TO_STRING(BGl_string1960z00zz__expander_structz00));
			BGl_modulezd2initializa7ationz75zz__objectz00(475449627L,
				BSTRING_TO_STRING(BGl_string1960z00zz__expander_structz00));
			BGl_modulezd2initializa7ationz75zz__threadz00(149516032L,
				BSTRING_TO_STRING(BGl_string1960z00zz__expander_structz00));
			BGl_modulezd2initializa7ationz75zz__match_normaliza7eza7(515155867L,
				BSTRING_TO_STRING(BGl_string1960z00zz__expander_structz00));
			BGl_modulezd2initializa7ationz75zz__r4_numbers_6_5z00(26840973L,
				BSTRING_TO_STRING(BGl_string1960z00zz__expander_structz00));
			BGl_modulezd2initializa7ationz75zz__r4_numbers_6_5_fixnumz00(457511469L,
				BSTRING_TO_STRING(BGl_string1960z00zz__expander_structz00));
			BGl_modulezd2initializa7ationz75zz__r4_numbers_6_5_flonumz00(362050511L,
				BSTRING_TO_STRING(BGl_string1960z00zz__expander_structz00));
			BGl_modulezd2initializa7ationz75zz__r4_numbers_6_5_flonum_dtoaz00
				(268155843L,
				BSTRING_TO_STRING(BGl_string1960z00zz__expander_structz00));
			BGl_modulezd2initializa7ationz75zz__r4_characters_6_6z00(198620800L,
				BSTRING_TO_STRING(BGl_string1960z00zz__expander_structz00));
			BGl_modulezd2initializa7ationz75zz__r4_equivalence_6_2z00(111613887L,
				BSTRING_TO_STRING(BGl_string1960z00zz__expander_structz00));
			BGl_modulezd2initializa7ationz75zz__r4_booleans_6_1z00(459519430L,
				BSTRING_TO_STRING(BGl_string1960z00zz__expander_structz00));
			BGl_modulezd2initializa7ationz75zz__r4_symbols_6_4z00(115192690L,
				BSTRING_TO_STRING(BGl_string1960z00zz__expander_structz00));
			BGl_modulezd2initializa7ationz75zz__r4_strings_6_7z00((-44273703L),
				BSTRING_TO_STRING(BGl_string1960z00zz__expander_structz00));
			BGl_modulezd2initializa7ationz75zz__r4_pairs_and_lists_6_3z00(9614678L,
				BSTRING_TO_STRING(BGl_string1960z00zz__expander_structz00));
			BGl_modulezd2initializa7ationz75zz__r4_control_features_6_9z00(376927882L,
				BSTRING_TO_STRING(BGl_string1960z00zz__expander_structz00));
			BGl_modulezd2initializa7ationz75zz__r4_vectors_6_8z00(43892022L,
				BSTRING_TO_STRING(BGl_string1960z00zz__expander_structz00));
			BGl_modulezd2initializa7ationz75zz__r4_ports_6_10_1z00(185672289L,
				BSTRING_TO_STRING(BGl_string1960z00zz__expander_structz00));
			BGl_modulezd2initializa7ationz75zz__r4_output_6_10_3z00(86988580L,
				BSTRING_TO_STRING(BGl_string1960z00zz__expander_structz00));
			BGl_modulezd2initializa7ationz75zz__prognz00(177147622L,
				BSTRING_TO_STRING(BGl_string1960z00zz__expander_structz00));
			return BGl_modulezd2initializa7ationz75zz__expandz00(414007149L,
				BSTRING_TO_STRING(BGl_string1960z00zz__expander_structz00));
		}

	}

#ifdef __cplusplus
}
#endif
