/*===========================================================================*/
/*   (Eval/expddefine.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/expddefine.scm -indent -o objs/obj_u/Eval/expddefine.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_DEFINE_TYPE_DEFINITIONS
#define BGL___EXPANDER_DEFINE_TYPE_DEFINITIONS
#endif													// BGL___EXPANDER_DEFINE_TYPE_DEFINITIONS
#endif													// BGL_MODULE_TYPE_DEFINITIONS

	static obj_t BGl_mapzb2zb2zz__expander_definez00(obj_t, obj_t);
	static obj_t BGl_lambdazd2defineszd2zz__expander_definez00(obj_t);
	static obj_t BGl_pairzd2ze3listze70zd6zz__expander_definez00(obj_t);
	static obj_t BGl_requirezd2initializa7ationz75zz__expander_definez00 =
		BUNSPEC;
	extern obj_t BGl_expandzd2errorzd2zz__expandz00(obj_t, obj_t, obj_t);
	BGL_EXPORTED_DECL obj_t
		BGl_expandzd2evalzd2lambdaz00zz__expander_definez00(obj_t, obj_t);
	extern obj_t BGl_evepairifyz00zz__prognz00(obj_t, obj_t);
	static obj_t BGl_z62newez62zz__expander_definez00(obj_t, obj_t, obj_t);
	extern obj_t BGl_typezd2errorzd2zz__errorz00(obj_t, obj_t, obj_t, obj_t,
		obj_t);
	BGL_EXPORTED_DECL obj_t
		BGl_modulezd2initializa7ationz75zz__expander_definez00(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__dssslz00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__readerz00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__threadz00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__paramz00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__objectz00(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_z62expandzd2evalzd2definezd2inlinezb0zz__expander_definez00(obj_t,
		obj_t, obj_t);
	static obj_t BGl_z62expandzd2evalzd2lambdaz62zz__expander_definez00(obj_t,
		obj_t, obj_t);
	static obj_t BGl_z62evalzd2beginzd2expanderz62zz__expander_definez00(obj_t,
		obj_t);
	extern obj_t BGl_makezd2dssslzd2functionzd2preludezd2zz__dssslz00(obj_t,
		obj_t, obj_t, obj_t);
	extern obj_t BGl_z52withzd2lexicalz80zz__expandz00(obj_t, obj_t, obj_t,
		obj_t);
	static obj_t BGl_cnstzd2initzd2zz__expander_definez00(void);
	extern bool_t BGl_listzf3zf3zz__r4_pairs_and_lists_6_3z00(obj_t);
	extern obj_t bgl_reverse(obj_t);
	static obj_t BGl_genericzd2initzd2zz__expander_definez00(void);
	extern obj_t BGl_stringzd2copyzd2zz__r4_strings_6_7z00(obj_t);
	static obj_t BGl_importedzd2moduleszd2initz00zz__expander_definez00(void);
	static obj_t BGl_gczd2rootszd2initz00zz__expander_definez00(void);
	extern obj_t BGl_filterzd2mapzd2zz__r4_control_features_6_9z00(obj_t, obj_t);
	extern obj_t BGl_argszd2ze3listz31zz__evutilsz00(obj_t);
	static obj_t BGl_objectzd2initzd2zz__expander_definez00(void);
	extern obj_t BGl_memqz00zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
	BGL_EXPORTED_DECL obj_t
		BGl_expandzd2evalzd2definezd2genericzd2zz__expander_definez00(obj_t, obj_t);
	BGL_EXPORTED_DECL obj_t
		BGl_expandzd2evalzd2definezd2inlinezd2zz__expander_definez00(obj_t, obj_t);
	static obj_t BGl_symbol2413z00zz__expander_definez00 = BUNSPEC;
	extern obj_t BGl_getzd2sourcezd2locationz00zz__readerz00(obj_t);
	static obj_t BGl_symbol2418z00zz__expander_definez00 = BUNSPEC;
	extern obj_t BGl_parsezd2formalzd2identz00zz__evutilsz00(obj_t, obj_t);
	static obj_t BGl_z62zc3z04anonymousza31653ze3ze5zz__expander_definez00(obj_t,
		obj_t);
	static obj_t
		BGl_z62expandzd2evalzd2definezd2genericzb0zz__expander_definez00(obj_t,
		obj_t, obj_t);
	static obj_t
		BGl_expandzd2evalzd2externalzd2definezd2zz__expander_definez00(obj_t,
		obj_t);
	extern obj_t bstring_to_symbol(obj_t);
	extern obj_t
		BGl_dssslzd2formalszd2ze3schemezd2typedzd2formalsze3zz__dssslz00(obj_t,
		obj_t, bool_t);
	static obj_t BGl_symbol2421z00zz__expander_definez00 = BUNSPEC;
	static obj_t BGl_symbol2423z00zz__expander_definez00 = BUNSPEC;
	static obj_t BGl_symbol2425z00zz__expander_definez00 = BUNSPEC;
	extern obj_t BGl_gensymz00zz__r4_symbols_6_4z00(obj_t);
	static obj_t BGl_appendzd221011zd2zz__expander_definez00(obj_t, obj_t);
	static obj_t BGl_symbol2430z00zz__expander_definez00 = BUNSPEC;
	static obj_t
		BGl_z62expandzd2evalzd2definezd2methodzb0zz__expander_definez00(obj_t,
		obj_t, obj_t);
	static obj_t BGl_symbol2433z00zz__expander_definez00 = BUNSPEC;
	static obj_t BGl_methodzd2initzd2zz__expander_definez00(void);
	static obj_t BGl_symbol2435z00zz__expander_definez00 = BUNSPEC;
	static obj_t BGl_symbol2437z00zz__expander_definez00 = BUNSPEC;
	static obj_t BGl_symbol2439z00zz__expander_definez00 = BUNSPEC;
	static obj_t BGl_z62zc3z04anonymousza31809ze3ze5zz__expander_definez00(obj_t,
		obj_t);
	static obj_t BGl_symbol2441z00zz__expander_definez00 = BUNSPEC;
	static obj_t BGl_symbol2443z00zz__expander_definez00 = BUNSPEC;
	static obj_t BGl_symbol2446z00zz__expander_definez00 = BUNSPEC;
	static obj_t BGl_loopze70ze7zz__expander_definez00(obj_t, obj_t);
	static obj_t BGl_symbol2449z00zz__expander_definez00 = BUNSPEC;
	BGL_EXPORTED_DECL obj_t
		BGl_evalzd2beginzd2expanderz00zz__expander_definez00(obj_t);
	static obj_t BGl_symbol2451z00zz__expander_definez00 = BUNSPEC;
	static obj_t BGl_symbol2454z00zz__expander_definez00 = BUNSPEC;
	static obj_t BGl_symbol2456z00zz__expander_definez00 = BUNSPEC;
	extern obj_t BGl_lastzd2pairzd2zz__r4_pairs_and_lists_6_3z00(obj_t);
	BGL_EXPORTED_DECL obj_t
		BGl_expandzd2evalzd2definez00zz__expander_definez00(obj_t, obj_t);
	static obj_t BGl_z62zc3z04anonymousza31819ze3ze5zz__expander_definez00(obj_t,
		obj_t);
	static obj_t BGl_symbol2460z00zz__expander_definez00 = BUNSPEC;
	static obj_t BGl_symbol2462z00zz__expander_definez00 = BUNSPEC;
	static obj_t BGl_symbol2464z00zz__expander_definez00 = BUNSPEC;
	static obj_t BGl_symbol2466z00zz__expander_definez00 = BUNSPEC;
	static obj_t BGl_z62zc3z04anonymousza31254ze3ze5zz__expander_definez00(obj_t,
		obj_t, obj_t);
	static bool_t BGl_allzf3zf3zz__expander_definez00(obj_t, obj_t);
	BGL_EXPORTED_DECL obj_t
		BGl_expandzd2evalzd2definezd2methodzd2zz__expander_definez00(obj_t, obj_t);
	static obj_t BGl_getzd2argsze70z35zz__expander_definez00(obj_t, obj_t);
	static obj_t BGl_dssslzd2formalszd2ze3namesze3zz__expander_definez00(obj_t);
	static obj_t BGl_z62zc3z04anonymousza32057ze3ze5zz__expander_definez00(obj_t,
		obj_t);
	extern bool_t BGl_dssslzd2namedzd2constantzf3zf3zz__dssslz00(obj_t);
	static obj_t BGl_z62expandzd2evalzd2definez62zz__expander_definez00(obj_t,
		obj_t, obj_t);
	extern obj_t BGl_expandzd2prognzd2zz__prognz00(obj_t);
	static obj_t
		BGl_expandzd2evalzd2internalzd2definezd2zz__expander_definez00(obj_t,
		obj_t);
	static obj_t *__cnst;


	   
		 
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_expandzd2evalzd2definezd2envzd2zz__expander_definez00,
		BgL_bgl_za762expandza7d2eval2472z00,
		BGl_z62expandzd2evalzd2definez62zz__expander_definez00, 0L, BUNSPEC, 2);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_expandzd2evalzd2definezd2genericzd2envz00zz__expander_definez00,
		BgL_bgl_za762expandza7d2eval2473z00,
		BGl_z62expandzd2evalzd2definezd2genericzb0zz__expander_definez00, 0L,
		BUNSPEC, 2);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_evalzd2beginzd2expanderzd2envzd2zz__expander_definez00,
		BgL_bgl_za762evalza7d2beginza72474za7,
		BGl_z62evalzd2beginzd2expanderz62zz__expander_definez00, 0L, BUNSPEC, 1);
	      BGL_DEFINE_STRING(BGl_string2408z00zz__expander_definez00,
		BgL_bgl_string2408za700za7za7_2475za7, "expand", 6);
	      BGL_DEFINE_STRING(BGl_string2409z00zz__expander_definez00,
		BgL_bgl_string2409za700za7za7_2476za7, "Illegal argument", 16);
	      BGL_DEFINE_STRING(BGl_string2410z00zz__expander_definez00,
		BgL_bgl_string2410za700za7za7_2477za7,
		"/tmp/bigloo/runtime/Eval/expddefine.scm", 39);
	      BGL_DEFINE_STRING(BGl_string2411z00zz__expander_definez00,
		BgL_bgl_string2411za700za7za7_2478za7, "&eval-begin-expander", 20);
	      BGL_DEFINE_STRING(BGl_string2412z00zz__expander_definez00,
		BgL_bgl_string2412za700za7za7_2479za7, "procedure", 9);
	      BGL_DEFINE_STRING(BGl_string2414z00zz__expander_definez00,
		BgL_bgl_string2414za700za7za7_2480za7, "begin", 5);
	      BGL_DEFINE_STRING(BGl_string2415z00zz__expander_definez00,
		BgL_bgl_string2415za700za7za7_2481za7, "Illegal `begin' form", 20);
	      BGL_DEFINE_STRING(BGl_string2416z00zz__expander_definez00,
		BgL_bgl_string2416za700za7za7_2482za7, "lambda", 6);
	      BGL_DEFINE_STRING(BGl_string2417z00zz__expander_definez00,
		BgL_bgl_string2417za700za7za7_2483za7, "Illegal form", 12);
	      BGL_DEFINE_STRING(BGl_string2419z00zz__expander_definez00,
		BgL_bgl_string2419za700za7za7_2484za7, "&expand-eval-lambda", 19);
	      BGL_DEFINE_STRING(BGl_string2420z00zz__expander_definez00,
		BgL_bgl_string2420za700za7za7_2485za7, "&expand-eval-define", 19);
	extern obj_t BGl_errorzd2envzd2zz__errorz00;
	   
		 
		BGL_DEFINE_STRING(BGl_string2422z00zz__expander_definez00,
		BgL_bgl_string2422za700za7za7_2486za7, "define", 6);
	      BGL_DEFINE_STRING(BGl_string2424z00zz__expander_definez00,
		BgL_bgl_string2424za700za7za7_2487za7, "set!", 4);
	      BGL_DEFINE_STRING(BGl_string2426z00zz__expander_definez00,
		BgL_bgl_string2426za700za7za7_2488za7, "let", 3);
	      BGL_DEFINE_STRING(BGl_string2427z00zz__expander_definez00,
		BgL_bgl_string2427za700za7za7_2489za7, "define-inline", 13);
	      BGL_DEFINE_STRING(BGl_string2428z00zz__expander_definez00,
		BgL_bgl_string2428za700za7za7_2490za7, "&expand-eval-define-inline", 26);
	      BGL_DEFINE_STRING(BGl_string2431z00zz__expander_definez00,
		BgL_bgl_string2431za700za7za7_2491za7, "generic-default", 15);
	      BGL_DEFINE_STRING(BGl_string2434z00zz__expander_definez00,
		BgL_bgl_string2434za700za7za7_2492za7, "apply", 5);
	      BGL_DEFINE_L_PROCEDURE(BGl_proc2429z00zz__expander_definez00,
		BgL_bgl_za762za7c3za704anonymo2493za7,
		BGl_z62zc3z04anonymousza31809ze3ze5zz__expander_definez00);
	      BGL_DEFINE_STRING(BGl_string2436z00zz__expander_definez00,
		BgL_bgl_string2436za700za7za7_2494za7, "object?", 7);
	      BGL_DEFINE_STRING(BGl_string2438z00zz__expander_definez00,
		BgL_bgl_string2438za700za7za7_2495za7, "find-method", 11);
	extern obj_t BGl_symbolzf3zd2envz21zz__r4_symbols_6_4z00;
	   
		 
		BGL_DEFINE_L_PROCEDURE(BGl_proc2432z00zz__expander_definez00,
		BgL_bgl_za762za7c3za704anonymo2496za7,
		BGl_z62zc3z04anonymousza31653ze3ze5zz__expander_definez00);
	      BGL_DEFINE_STRING(BGl_string2440z00zz__expander_definez00,
		BgL_bgl_string2440za700za7za7_2497za7, "and", 3);
	      BGL_DEFINE_STRING(BGl_string2442z00zz__expander_definez00,
		BgL_bgl_string2442za700za7za7_2498za7, "procedure?", 10);
	      BGL_DEFINE_STRING(BGl_string2444z00zz__expander_definez00,
		BgL_bgl_string2444za700za7za7_2499za7, "if", 2);
	      BGL_DEFINE_STRING(BGl_string2445z00zz__expander_definez00,
		BgL_bgl_string2445za700za7za7_2500za7,
		"generics can only use one DSSSL keyword", 39);
	      BGL_DEFINE_STRING(BGl_string2447z00zz__expander_definez00,
		BgL_bgl_string2447za700za7za7_2501za7, "args", 4);
	      BGL_DEFINE_STRING(BGl_string2448z00zz__expander_definez00,
		BgL_bgl_string2448za700za7za7_2502za7,
		"Illegal formal arguments for generic function", 45);
	      BGL_DEFINE_STRING(BGl_string2450z00zz__expander_definez00,
		BgL_bgl_string2450za700za7za7_2503za7, "procedure->generic", 18);
	      BGL_DEFINE_STRING(BGl_string2452z00zz__expander_definez00,
		BgL_bgl_string2452za700za7za7_2504za7, "quote", 5);
	      BGL_DEFINE_STRING(BGl_string2453z00zz__expander_definez00,
		BgL_bgl_string2453za700za7za7_2505za7, "No method for this object", 25);
	      BGL_DEFINE_STRING(BGl_string2455z00zz__expander_definez00,
		BgL_bgl_string2455za700za7za7_2506za7, "error", 5);
	      BGL_DEFINE_STRING(BGl_string2457z00zz__expander_definez00,
		BgL_bgl_string2457za700za7za7_2507za7, "register-generic!", 17);
	      BGL_DEFINE_STRING(BGl_string2458z00zz__expander_definez00,
		BgL_bgl_string2458za700za7za7_2508za7, "define-generic", 14);
	      BGL_DEFINE_STRING(BGl_string2459z00zz__expander_definez00,
		BgL_bgl_string2459za700za7za7_2509za7, "&expand-eval-define-generic", 27);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_expandzd2evalzd2definezd2methodzd2envz00zz__expander_definez00,
		BgL_bgl_za762expandza7d2eval2510z00,
		BGl_z62expandzd2evalzd2definezd2methodzb0zz__expander_definez00, 0L,
		BUNSPEC, 2);
	      BGL_DEFINE_STRING(BGl_string2461z00zz__expander_definez00,
		BgL_bgl_string2461za700za7za7_2511za7, "call-next-method", 16);
	      BGL_DEFINE_STRING(BGl_string2463z00zz__expander_definez00,
		BgL_bgl_string2463za700za7za7_2512za7, "find-super-class-method", 23);
	      BGL_DEFINE_STRING(BGl_string2465z00zz__expander_definez00,
		BgL_bgl_string2465za700za7za7_2513za7, "next", 4);
	      BGL_DEFINE_STRING(BGl_string2467z00zz__expander_definez00,
		BgL_bgl_string2467za700za7za7_2514za7, "generic-add-eval-method!", 24);
	      BGL_DEFINE_STRING(BGl_string2468z00zz__expander_definez00,
		BgL_bgl_string2468za700za7za7_2515za7, "define-method", 13);
	      BGL_DEFINE_STRING(BGl_string2469z00zz__expander_definez00,
		BgL_bgl_string2469za700za7za7_2516za7, "&expand-eval-define-method", 26);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_expandzd2evalzd2definezd2inlinezd2envz00zz__expander_definez00,
		BgL_bgl_za762expandza7d2eval2517z00,
		BGl_z62expandzd2evalzd2definezd2inlinezb0zz__expander_definez00, 0L,
		BUNSPEC, 2);
	      BGL_DEFINE_STRING(BGl_string2471z00zz__expander_definez00,
		BgL_bgl_string2471za700za7za7_2518za7, "__expander_define", 17);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2470z00zz__expander_definez00,
		BgL_bgl_za762za7c3za704anonymo2519za7,
		BGl_z62zc3z04anonymousza32057ze3ze5zz__expander_definez00, 0L, BUNSPEC, 1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_expandzd2evalzd2lambdazd2envzd2zz__expander_definez00,
		BgL_bgl_za762expandza7d2eval2520z00,
		BGl_z62expandzd2evalzd2lambdaz62zz__expander_definez00, 0L, BUNSPEC, 2);

/* contant bindings */
	static void bgl_constant_bindings()
	{
		BGL_BIND_PROCEDURE
			(BGl_expandzd2evalzd2lambdazd2envzd2zz__expander_definez00,
			BgL_bgl_za762expandza7d2eval2520z00);
		BGL_BIND_PROCEDURE(BGl_proc2470z00zz__expander_definez00,
			BgL_bgl_za762za7c3za704anonymo2519za7);
		BGL_BIND_STRING(BGl_string2471z00zz__expander_definez00,
			BgL_bgl_string2471za700za7za7_2518za7);
		BGL_BIND_PROCEDURE
			(BGl_expandzd2evalzd2definezd2inlinezd2envz00zz__expander_definez00,
			BgL_bgl_za762expandza7d2eval2517z00);
		BGL_BIND_STRING(BGl_string2469z00zz__expander_definez00,
			BgL_bgl_string2469za700za7za7_2516za7);
		BGL_BIND_STRING(BGl_string2468z00zz__expander_definez00,
			BgL_bgl_string2468za700za7za7_2515za7);
		BGL_BIND_STRING(BGl_string2467z00zz__expander_definez00,
			BgL_bgl_string2467za700za7za7_2514za7);
		BGL_BIND_STRING(BGl_string2465z00zz__expander_definez00,
			BgL_bgl_string2465za700za7za7_2513za7);
		BGL_BIND_STRING(BGl_string2463z00zz__expander_definez00,
			BgL_bgl_string2463za700za7za7_2512za7);
		BGL_BIND_STRING(BGl_string2461z00zz__expander_definez00,
			BgL_bgl_string2461za700za7za7_2511za7);
		BGL_BIND_PROCEDURE
			(BGl_expandzd2evalzd2definezd2methodzd2envz00zz__expander_definez00,
			BgL_bgl_za762expandza7d2eval2510z00);
		BGL_BIND_STRING(BGl_string2459z00zz__expander_definez00,
			BgL_bgl_string2459za700za7za7_2509za7);
		BGL_BIND_STRING(BGl_string2458z00zz__expander_definez00,
			BgL_bgl_string2458za700za7za7_2508za7);
		BGL_BIND_STRING(BGl_string2457z00zz__expander_definez00,
			BgL_bgl_string2457za700za7za7_2507za7);
		BGL_BIND_STRING(BGl_string2455z00zz__expander_definez00,
			BgL_bgl_string2455za700za7za7_2506za7);
		BGL_BIND_STRING(BGl_string2453z00zz__expander_definez00,
			BgL_bgl_string2453za700za7za7_2505za7);
		BGL_BIND_STRING(BGl_string2452z00zz__expander_definez00,
			BgL_bgl_string2452za700za7za7_2504za7);
		BGL_BIND_STRING(BGl_string2450z00zz__expander_definez00,
			BgL_bgl_string2450za700za7za7_2503za7);
		BGL_BIND_STRING(BGl_string2448z00zz__expander_definez00,
			BgL_bgl_string2448za700za7za7_2502za7);
		BGL_BIND_STRING(BGl_string2447z00zz__expander_definez00,
			BgL_bgl_string2447za700za7za7_2501za7);
		BGL_BIND_STRING(BGl_string2445z00zz__expander_definez00,
			BgL_bgl_string2445za700za7za7_2500za7);
		BGL_BIND_STRING(BGl_string2444z00zz__expander_definez00,
			BgL_bgl_string2444za700za7za7_2499za7);
		BGL_BIND_STRING(BGl_string2442z00zz__expander_definez00,
			BgL_bgl_string2442za700za7za7_2498za7);
		BGL_BIND_STRING(BGl_string2440z00zz__expander_definez00,
			BgL_bgl_string2440za700za7za7_2497za7);
		BGL_BIND_L_PROCEDURE(BGl_proc2432z00zz__expander_definez00,
			BgL_bgl_za762za7c3za704anonymo2496za7);
		BGL_BIND_STRING(BGl_string2438z00zz__expander_definez00,
			BgL_bgl_string2438za700za7za7_2495za7);
		BGL_BIND_STRING(BGl_string2436z00zz__expander_definez00,
			BgL_bgl_string2436za700za7za7_2494za7);
		BGL_BIND_L_PROCEDURE(BGl_proc2429z00zz__expander_definez00,
			BgL_bgl_za762za7c3za704anonymo2493za7);
		BGL_BIND_STRING(BGl_string2434z00zz__expander_definez00,
			BgL_bgl_string2434za700za7za7_2492za7);
		BGL_BIND_STRING(BGl_string2431z00zz__expander_definez00,
			BgL_bgl_string2431za700za7za7_2491za7);
		BGL_BIND_STRING(BGl_string2428z00zz__expander_definez00,
			BgL_bgl_string2428za700za7za7_2490za7);
		BGL_BIND_STRING(BGl_string2427z00zz__expander_definez00,
			BgL_bgl_string2427za700za7za7_2489za7);
		BGL_BIND_STRING(BGl_string2426z00zz__expander_definez00,
			BgL_bgl_string2426za700za7za7_2488za7);
		BGL_BIND_STRING(BGl_string2424z00zz__expander_definez00,
			BgL_bgl_string2424za700za7za7_2487za7);
		BGL_BIND_STRING(BGl_string2422z00zz__expander_definez00,
			BgL_bgl_string2422za700za7za7_2486za7);
		BGL_BIND_STRING(BGl_string2420z00zz__expander_definez00,
			BgL_bgl_string2420za700za7za7_2485za7);
		BGL_BIND_STRING(BGl_string2419z00zz__expander_definez00,
			BgL_bgl_string2419za700za7za7_2484za7);
		BGL_BIND_STRING(BGl_string2417z00zz__expander_definez00,
			BgL_bgl_string2417za700za7za7_2483za7);
		BGL_BIND_STRING(BGl_string2416z00zz__expander_definez00,
			BgL_bgl_string2416za700za7za7_2482za7);
		BGL_BIND_STRING(BGl_string2415z00zz__expander_definez00,
			BgL_bgl_string2415za700za7za7_2481za7);
		BGL_BIND_STRING(BGl_string2414z00zz__expander_definez00,
			BgL_bgl_string2414za700za7za7_2480za7);
		BGL_BIND_STRING(BGl_string2412z00zz__expander_definez00,
			BgL_bgl_string2412za700za7za7_2479za7);
		BGL_BIND_STRING(BGl_string2411z00zz__expander_definez00,
			BgL_bgl_string2411za700za7za7_2478za7);
		BGL_BIND_STRING(BGl_string2410z00zz__expander_definez00,
			BgL_bgl_string2410za700za7za7_2477za7);
		BGL_BIND_STRING(BGl_string2409z00zz__expander_definez00,
			BgL_bgl_string2409za700za7za7_2476za7);
		BGL_BIND_STRING(BGl_string2408z00zz__expander_definez00,
			BgL_bgl_string2408za700za7za7_2475za7);
		BGL_BIND_PROCEDURE
			(BGl_evalzd2beginzd2expanderzd2envzd2zz__expander_definez00,
			BgL_bgl_za762evalza7d2beginza72474za7);
		BGL_BIND_PROCEDURE
			(BGl_expandzd2evalzd2definezd2genericzd2envz00zz__expander_definez00,
			BgL_bgl_za762expandza7d2eval2473z00);
		BGL_BIND_PROCEDURE
			(BGl_expandzd2evalzd2definezd2envzd2zz__expander_definez00,
			BgL_bgl_za762expandza7d2eval2472z00);
	}

/* 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_requirezd2initializa7ationz75zz__expander_definez00));
		ADD_ROOT((void *) (&BGl_symbol2413z00zz__expander_definez00));
		ADD_ROOT((void *) (&BGl_symbol2418z00zz__expander_definez00));
		ADD_ROOT((void *) (&BGl_symbol2421z00zz__expander_definez00));
		ADD_ROOT((void *) (&BGl_symbol2423z00zz__expander_definez00));
		ADD_ROOT((void *) (&BGl_symbol2425z00zz__expander_definez00));
		ADD_ROOT((void *) (&BGl_symbol2430z00zz__expander_definez00));
		ADD_ROOT((void *) (&BGl_symbol2433z00zz__expander_definez00));
		ADD_ROOT((void *) (&BGl_symbol2435z00zz__expander_definez00));
		ADD_ROOT((void *) (&BGl_symbol2437z00zz__expander_definez00));
		ADD_ROOT((void *) (&BGl_symbol2439z00zz__expander_definez00));
		ADD_ROOT((void *) (&BGl_symbol2441z00zz__expander_definez00));
		ADD_ROOT((void *) (&BGl_symbol2443z00zz__expander_definez00));
		ADD_ROOT((void *) (&BGl_symbol2446z00zz__expander_definez00));
		ADD_ROOT((void *) (&BGl_symbol2449z00zz__expander_definez00));
		ADD_ROOT((void *) (&BGl_symbol2451z00zz__expander_definez00));
		ADD_ROOT((void *) (&BGl_symbol2454z00zz__expander_definez00));
		ADD_ROOT((void *) (&BGl_symbol2456z00zz__expander_definez00));
		ADD_ROOT((void *) (&BGl_symbol2460z00zz__expander_definez00));
		ADD_ROOT((void *) (&BGl_symbol2462z00zz__expander_definez00));
		ADD_ROOT((void *) (&BGl_symbol2464z00zz__expander_definez00));
		ADD_ROOT((void *) (&BGl_symbol2466z00zz__expander_definez00));
#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_definez00(long
		BgL_checksumz00_3237, char *BgL_fromz00_3238)
	{
		{
			if (CBOOL(BGl_requirezd2initializa7ationz75zz__expander_definez00))
				{
					BGl_requirezd2initializa7ationz75zz__expander_definez00 =
						BBOOL(((bool_t) 0));
					bgl_constant_bindings();
					BGl_gczd2rootszd2initz00zz__expander_definez00();
					BGl_cnstzd2initzd2zz__expander_definez00();
					BGl_importedzd2moduleszd2initz00zz__expander_definez00();
					return BGl_methodzd2initzd2zz__expander_definez00();
				}
			else
				{
					return BUNSPEC;
				}
		}

	}



/* cnst-init */
	obj_t BGl_cnstzd2initzd2zz__expander_definez00(void)
	{
		{	/* Eval/expddefine.scm 15 */
			BGl_symbol2413z00zz__expander_definez00 =
				bstring_to_symbol(BGl_string2414z00zz__expander_definez00);
			BGl_symbol2418z00zz__expander_definez00 =
				bstring_to_symbol(BGl_string2416z00zz__expander_definez00);
			BGl_symbol2421z00zz__expander_definez00 =
				bstring_to_symbol(BGl_string2422z00zz__expander_definez00);
			BGl_symbol2423z00zz__expander_definez00 =
				bstring_to_symbol(BGl_string2424z00zz__expander_definez00);
			BGl_symbol2425z00zz__expander_definez00 =
				bstring_to_symbol(BGl_string2426z00zz__expander_definez00);
			BGl_symbol2430z00zz__expander_definez00 =
				bstring_to_symbol(BGl_string2431z00zz__expander_definez00);
			BGl_symbol2433z00zz__expander_definez00 =
				bstring_to_symbol(BGl_string2434z00zz__expander_definez00);
			BGl_symbol2435z00zz__expander_definez00 =
				bstring_to_symbol(BGl_string2436z00zz__expander_definez00);
			BGl_symbol2437z00zz__expander_definez00 =
				bstring_to_symbol(BGl_string2438z00zz__expander_definez00);
			BGl_symbol2439z00zz__expander_definez00 =
				bstring_to_symbol(BGl_string2440z00zz__expander_definez00);
			BGl_symbol2441z00zz__expander_definez00 =
				bstring_to_symbol(BGl_string2442z00zz__expander_definez00);
			BGl_symbol2443z00zz__expander_definez00 =
				bstring_to_symbol(BGl_string2444z00zz__expander_definez00);
			BGl_symbol2446z00zz__expander_definez00 =
				bstring_to_symbol(BGl_string2447z00zz__expander_definez00);
			BGl_symbol2449z00zz__expander_definez00 =
				bstring_to_symbol(BGl_string2450z00zz__expander_definez00);
			BGl_symbol2451z00zz__expander_definez00 =
				bstring_to_symbol(BGl_string2452z00zz__expander_definez00);
			BGl_symbol2454z00zz__expander_definez00 =
				bstring_to_symbol(BGl_string2455z00zz__expander_definez00);
			BGl_symbol2456z00zz__expander_definez00 =
				bstring_to_symbol(BGl_string2457z00zz__expander_definez00);
			BGl_symbol2460z00zz__expander_definez00 =
				bstring_to_symbol(BGl_string2461z00zz__expander_definez00);
			BGl_symbol2462z00zz__expander_definez00 =
				bstring_to_symbol(BGl_string2463z00zz__expander_definez00);
			BGl_symbol2464z00zz__expander_definez00 =
				bstring_to_symbol(BGl_string2465z00zz__expander_definez00);
			return (BGl_symbol2466z00zz__expander_definez00 =
				bstring_to_symbol(BGl_string2467z00zz__expander_definez00), BUNSPEC);
		}

	}



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

	}



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

					BgL_headz00_1135 = MAKE_YOUNG_PAIR(BNIL, BgL_l2z00_2);
					{
						obj_t BgL_prevz00_2515;
						obj_t BgL_tailz00_2516;

						BgL_prevz00_2515 = BgL_headz00_1135;
						BgL_tailz00_2516 = BgL_l1z00_1;
					BgL_loopz00_2514:
						if (PAIRP(BgL_tailz00_2516))
							{
								obj_t BgL_newzd2prevzd2_2522;

								BgL_newzd2prevzd2_2522 =
									MAKE_YOUNG_PAIR(CAR(BgL_tailz00_2516), BgL_l2z00_2);
								SET_CDR(BgL_prevz00_2515, BgL_newzd2prevzd2_2522);
								{
									obj_t BgL_tailz00_3278;
									obj_t BgL_prevz00_3277;

									BgL_prevz00_3277 = BgL_newzd2prevzd2_2522;
									BgL_tailz00_3278 = CDR(BgL_tailz00_2516);
									BgL_tailz00_2516 = BgL_tailz00_3278;
									BgL_prevz00_2515 = BgL_prevz00_3277;
									goto BgL_loopz00_2514;
								}
							}
						else
							{
								BNIL;
							}
					}
					return CDR(BgL_headz00_1135);
				}
		}

	}



/* loop~0 */
	obj_t BGl_loopze70ze7zz__expander_definez00(obj_t BgL_ez00_3186,
		obj_t BgL_argsz00_1144)
	{
		{	/* Eval/expddefine.scm 64 */
			if (NULLP(BgL_argsz00_1144))
				{	/* Eval/expddefine.scm 66 */
					return BNIL;
				}
			else
				{	/* Eval/expddefine.scm 66 */
					if (SYMBOLP(BgL_argsz00_1144))
						{	/* Eval/expddefine.scm 68 */
							return BgL_argsz00_1144;
						}
					else
						{	/* Eval/expddefine.scm 68 */
							if (PAIRP(BgL_argsz00_1144))
								{	/* Eval/expddefine.scm 72 */
									bool_t BgL_test2527z00_3287;

									{	/* Eval/expddefine.scm 72 */
										bool_t BgL_test2528z00_3288;

										{	/* Eval/expddefine.scm 72 */
											obj_t BgL_tmpz00_3289;

											BgL_tmpz00_3289 = CAR(BgL_argsz00_1144);
											BgL_test2528z00_3288 = PAIRP(BgL_tmpz00_3289);
										}
										if (BgL_test2528z00_3288)
											{	/* Eval/expddefine.scm 73 */
												bool_t BgL_test2529z00_3292;

												{	/* Eval/expddefine.scm 73 */
													obj_t BgL_tmpz00_3293;

													BgL_tmpz00_3293 = CDR(CAR(BgL_argsz00_1144));
													BgL_test2529z00_3292 = PAIRP(BgL_tmpz00_3293);
												}
												if (BgL_test2529z00_3292)
													{	/* Eval/expddefine.scm 74 */
														obj_t BgL_tmpz00_3297;

														{	/* Eval/expddefine.scm 74 */
															obj_t BgL_pairz00_2533;

															BgL_pairz00_2533 = CAR(BgL_argsz00_1144);
															BgL_tmpz00_3297 = CDR(CDR(BgL_pairz00_2533));
														}
														BgL_test2527z00_3287 = NULLP(BgL_tmpz00_3297);
													}
												else
													{	/* Eval/expddefine.scm 73 */
														BgL_test2527z00_3287 = ((bool_t) 0);
													}
											}
										else
											{	/* Eval/expddefine.scm 72 */
												BgL_test2527z00_3287 = ((bool_t) 0);
											}
									}
									if (BgL_test2527z00_3287)
										{	/* Eval/expddefine.scm 77 */
											obj_t BgL_arg1219z00_1160;
											obj_t BgL_arg1224z00_1161;

											{	/* Eval/expddefine.scm 77 */
												obj_t BgL_arg1225z00_1162;
												obj_t BgL_arg1226z00_1163;

												BgL_arg1225z00_1162 = CAR(CAR(BgL_argsz00_1144));
												{	/* Eval/expddefine.scm 77 */
													obj_t BgL_arg1232z00_1167;

													{	/* Eval/expddefine.scm 77 */
														obj_t BgL_pairz00_2540;

														BgL_pairz00_2540 = CAR(BgL_argsz00_1144);
														BgL_arg1232z00_1167 = CAR(CDR(BgL_pairz00_2540));
													}
													BgL_arg1226z00_1163 =
														BGL_PROCEDURE_CALL2(BgL_ez00_3186,
														BgL_arg1232z00_1167, BgL_ez00_3186);
												}
												{	/* Eval/expddefine.scm 77 */
													obj_t BgL_list1227z00_1164;

													{	/* Eval/expddefine.scm 77 */
														obj_t BgL_arg1230z00_1165;

														BgL_arg1230z00_1165 =
															MAKE_YOUNG_PAIR(BgL_arg1226z00_1163, BNIL);
														BgL_list1227z00_1164 =
															MAKE_YOUNG_PAIR(BgL_arg1225z00_1162,
															BgL_arg1230z00_1165);
													}
													BgL_arg1219z00_1160 = BgL_list1227z00_1164;
												}
											}
											BgL_arg1224z00_1161 =
												BGl_loopze70ze7zz__expander_definez00(BgL_ez00_3186,
												CDR(BgL_argsz00_1144));
											return
												MAKE_YOUNG_PAIR(BgL_arg1219z00_1160,
												BgL_arg1224z00_1161);
										}
									else
										{	/* Eval/expddefine.scm 72 */
											return
												MAKE_YOUNG_PAIR(CAR(BgL_argsz00_1144),
												BGl_loopze70ze7zz__expander_definez00(BgL_ez00_3186,
													CDR(BgL_argsz00_1144)));
										}
								}
							else
								{	/* Eval/expddefine.scm 70 */
									return
										BGl_expandzd2errorzd2zz__expandz00
										(BGl_string2408z00zz__expander_definez00,
										BGl_string2409z00zz__expander_definez00, BgL_argsz00_1144);
								}
						}
				}
		}

	}



/* eval-begin-expander */
	BGL_EXPORTED_DEF obj_t
		BGl_evalzd2beginzd2expanderz00zz__expander_definez00(obj_t BgL_oldez00_5)
	{
		{	/* Eval/expddefine.scm 83 */
			{	/* Eval/expddefine.scm 84 */
				obj_t BgL_zc3z04anonymousza31254ze3z87_3140;

				BgL_zc3z04anonymousza31254ze3z87_3140 =
					MAKE_FX_PROCEDURE
					(BGl_z62zc3z04anonymousza31254ze3ze5zz__expander_definez00,
					(int) (2L), (int) (1L));
				PROCEDURE_SET(BgL_zc3z04anonymousza31254ze3z87_3140, (int) (0L),
					((obj_t) BgL_oldez00_5));
				return BgL_zc3z04anonymousza31254ze3z87_3140;
			}
		}

	}



/* &eval-begin-expander */
	obj_t BGl_z62evalzd2beginzd2expanderz62zz__expander_definez00(obj_t
		BgL_envz00_3141, obj_t BgL_oldez00_3142)
	{
		{	/* Eval/expddefine.scm 83 */
			{	/* Eval/expddefine.scm 84 */
				obj_t BgL_auxz00_3328;

				if (PROCEDUREP(BgL_oldez00_3142))
					{	/* Eval/expddefine.scm 84 */
						BgL_auxz00_3328 = BgL_oldez00_3142;
					}
				else
					{
						obj_t BgL_auxz00_3331;

						BgL_auxz00_3331 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string2410z00zz__expander_definez00, BINT(2836L),
							BGl_string2411z00zz__expander_definez00,
							BGl_string2412z00zz__expander_definez00, BgL_oldez00_3142);
						FAILURE(BgL_auxz00_3331, BFALSE, BFALSE);
					}
				return
					BGl_evalzd2beginzd2expanderz00zz__expander_definez00(BgL_auxz00_3328);
			}
		}

	}



/* &<@anonymous:1254> */
	obj_t BGl_z62zc3z04anonymousza31254ze3ze5zz__expander_definez00(obj_t
		BgL_envz00_3143, obj_t BgL_xz00_3145, obj_t BgL_ez00_3146)
	{
		{	/* Eval/expddefine.scm 84 */
			{	/* Eval/expddefine.scm 85 */
				obj_t BgL_oldez00_3144;

				BgL_oldez00_3144 = PROCEDURE_REF(BgL_envz00_3143, (int) (0L));
				{	/* Eval/expddefine.scm 85 */
					obj_t BgL_resz00_3220;

					{
						obj_t BgL_restz00_3225;

						if (PAIRP(BgL_xz00_3145))
							{	/* Eval/expddefine.scm 85 */
								if (
									(CAR(
											((obj_t) BgL_xz00_3145)) ==
										BGl_symbol2413z00zz__expander_definez00))
									{	/* Eval/expddefine.scm 85 */
										if (NULLP(CDR(((obj_t) BgL_xz00_3145))))
											{	/* Eval/expddefine.scm 85 */
												BgL_resz00_3220 = BUNSPEC;
											}
										else
											{	/* Eval/expddefine.scm 85 */
												obj_t BgL_arg1263z00_3235;

												BgL_arg1263z00_3235 = CDR(((obj_t) BgL_xz00_3145));
												BgL_restz00_3225 = BgL_arg1263z00_3235;
												if (BGl_listzf3zf3zz__r4_pairs_and_lists_6_3z00
													(BgL_restz00_3225))
													{	/* Eval/expddefine.scm 91 */
														obj_t BgL_arg1269z00_3226;

														if (NULLP(BgL_restz00_3225))
															{	/* Eval/expddefine.scm 91 */
																BgL_arg1269z00_3226 = BNIL;
															}
														else
															{	/* Eval/expddefine.scm 91 */
																obj_t BgL_head1091z00_3227;

																BgL_head1091z00_3227 =
																	MAKE_YOUNG_PAIR(BNIL, BNIL);
																{
																	obj_t BgL_l1089z00_3229;
																	obj_t BgL_tail1092z00_3230;

																	BgL_l1089z00_3229 = BgL_restz00_3225;
																	BgL_tail1092z00_3230 = BgL_head1091z00_3227;
																BgL_zc3z04anonymousza31271ze3z87_3228:
																	if (NULLP(BgL_l1089z00_3229))
																		{	/* Eval/expddefine.scm 91 */
																			BgL_arg1269z00_3226 =
																				CDR(BgL_head1091z00_3227);
																		}
																	else
																		{	/* Eval/expddefine.scm 91 */
																			obj_t BgL_newtail1093z00_3231;

																			{	/* Eval/expddefine.scm 91 */
																				obj_t BgL_arg1276z00_3232;

																				{	/* Eval/expddefine.scm 91 */
																					obj_t BgL_xz00_3233;

																					BgL_xz00_3233 =
																						CAR(((obj_t) BgL_l1089z00_3229));
																					BgL_arg1276z00_3232 =
																						BGL_PROCEDURE_CALL2
																						(BgL_oldez00_3144, BgL_xz00_3233,
																						BgL_ez00_3146);
																				}
																				BgL_newtail1093z00_3231 =
																					MAKE_YOUNG_PAIR(BgL_arg1276z00_3232,
																					BNIL);
																			}
																			SET_CDR(BgL_tail1092z00_3230,
																				BgL_newtail1093z00_3231);
																			{	/* Eval/expddefine.scm 91 */
																				obj_t BgL_arg1274z00_3234;

																				BgL_arg1274z00_3234 =
																					CDR(((obj_t) BgL_l1089z00_3229));
																				{
																					obj_t BgL_tail1092z00_3370;
																					obj_t BgL_l1089z00_3369;

																					BgL_l1089z00_3369 =
																						BgL_arg1274z00_3234;
																					BgL_tail1092z00_3370 =
																						BgL_newtail1093z00_3231;
																					BgL_tail1092z00_3230 =
																						BgL_tail1092z00_3370;
																					BgL_l1089z00_3229 = BgL_l1089z00_3369;
																					goto
																						BgL_zc3z04anonymousza31271ze3z87_3228;
																				}
																			}
																		}
																}
															}
														BgL_resz00_3220 =
															BGl_lambdazd2defineszd2zz__expander_definez00
															(BgL_arg1269z00_3226);
													}
												else
													{	/* Eval/expddefine.scm 89 */
														BgL_resz00_3220 =
															BGl_expandzd2errorzd2zz__expandz00
															(BGl_string2414z00zz__expander_definez00,
															BGl_string2415z00zz__expander_definez00,
															BgL_xz00_3145);
													}
											}
									}
								else
									{	/* Eval/expddefine.scm 85 */
									BgL_tagzd2103zd2_3221:
										{	/* Eval/expddefine.scm 93 */
											obj_t BgL_nxz00_3223;

											BgL_nxz00_3223 =
												BGL_PROCEDURE_CALL2(BgL_oldez00_3144, BgL_xz00_3145,
												BgL_ez00_3146);
											if (PAIRP(BgL_nxz00_3223))
												{	/* Eval/expddefine.scm 94 */
													if (
														(CAR(
																((obj_t) BgL_nxz00_3223)) ==
															BGl_symbol2413z00zz__expander_definez00))
														{	/* Eval/expddefine.scm 94 */
															if (NULLP(CDR(((obj_t) BgL_nxz00_3223))))
																{	/* Eval/expddefine.scm 94 */
																	BgL_resz00_3220 = BUNSPEC;
																}
															else
																{	/* Eval/expddefine.scm 94 */
																	obj_t BgL_arg1282z00_3224;

																	BgL_arg1282z00_3224 =
																		CDR(((obj_t) BgL_nxz00_3223));
																	if (BGl_listzf3zf3zz__r4_pairs_and_lists_6_3z00(BgL_arg1282z00_3224))
																		{	/* Eval/expddefine.scm 98 */
																			BgL_resz00_3220 =
																				BGl_lambdazd2defineszd2zz__expander_definez00
																				(BgL_arg1282z00_3224);
																		}
																	else
																		{	/* Eval/expddefine.scm 98 */
																			BgL_resz00_3220 =
																				BGl_expandzd2errorzd2zz__expandz00
																				(BGl_string2414z00zz__expander_definez00,
																				BGl_string2415z00zz__expander_definez00,
																				BgL_xz00_3145);
																		}
																}
														}
													else
														{	/* Eval/expddefine.scm 94 */
															BgL_resz00_3220 = BgL_nxz00_3223;
														}
												}
											else
												{	/* Eval/expddefine.scm 94 */
													BgL_resz00_3220 = BgL_nxz00_3223;
												}
										}
									}
							}
						else
							{	/* Eval/expddefine.scm 85 */
								goto BgL_tagzd2103zd2_3221;
							}
					}
					return BGl_evepairifyz00zz__prognz00(BgL_resz00_3220, BgL_xz00_3145);
				}
			}
		}

	}



/* expand-eval-lambda */
	BGL_EXPORTED_DEF obj_t
		BGl_expandzd2evalzd2lambdaz00zz__expander_definez00(obj_t BgL_xz00_6,
		obj_t BgL_ez00_7)
	{
		{	/* Eval/expddefine.scm 108 */
			{	/* Eval/expddefine.scm 109 */
				obj_t BgL_resz00_1228;

				if (PAIRP(BgL_xz00_6))
					{	/* Eval/expddefine.scm 109 */
						obj_t BgL_cdrzd2141zd2_1235;

						BgL_cdrzd2141zd2_1235 = CDR(((obj_t) BgL_xz00_6));
						if (PAIRP(BgL_cdrzd2141zd2_1235))
							{	/* Eval/expddefine.scm 109 */
								obj_t BgL_cdrzd2145zd2_1237;

								BgL_cdrzd2145zd2_1237 = CDR(BgL_cdrzd2141zd2_1235);
								if (NULLP(BgL_cdrzd2145zd2_1237))
									{	/* Eval/expddefine.scm 109 */
										BgL_resz00_1228 =
											BGl_expandzd2errorzd2zz__expandz00
											(BGl_string2416z00zz__expander_definez00,
											BGl_string2417z00zz__expander_definez00, BgL_xz00_6);
									}
								else
									{	/* Eval/expddefine.scm 109 */
										obj_t BgL_arg1291z00_1239;

										BgL_arg1291z00_1239 = CAR(BgL_cdrzd2141zd2_1235);
										{	/* Eval/expddefine.scm 111 */
											obj_t BgL_eargsz00_2601;

											BgL_eargsz00_2601 =
												BGl_loopze70ze7zz__expander_definez00(BgL_ez00_7,
												BgL_arg1291z00_1239);
											{	/* Eval/expddefine.scm 111 */
												obj_t BgL_ebodyz00_2602;

												BgL_ebodyz00_2602 =
													BGl_expandzd2prognzd2zz__prognz00
													(BgL_cdrzd2145zd2_1237);
												{	/* Eval/expddefine.scm 112 */
													obj_t BgL_nez00_2603;

													BgL_nez00_2603 =
														BGl_evalzd2beginzd2expanderz00zz__expander_definez00
														(BgL_ez00_7);
													{	/* Eval/expddefine.scm 113 */

														{	/* Eval/expddefine.scm 115 */
															obj_t BgL_arg1292z00_2604;

															{	/* Eval/expddefine.scm 115 */
																obj_t BgL_arg1293z00_2605;

																BgL_arg1293z00_2605 =
																	MAKE_YOUNG_PAIR
																	(BGl_z52withzd2lexicalz80zz__expandz00
																	(BGl_argszd2ze3listz31zz__evutilsz00
																		(BgL_eargsz00_2601), BgL_ebodyz00_2602,
																		BgL_nez00_2603, BFALSE), BNIL);
																BgL_arg1292z00_2604 =
																	MAKE_YOUNG_PAIR(BgL_eargsz00_2601,
																	BgL_arg1293z00_2605);
															}
															BgL_resz00_1228 =
																MAKE_YOUNG_PAIR
																(BGl_symbol2418z00zz__expander_definez00,
																BgL_arg1292z00_2604);
														}
													}
												}
											}
										}
									}
							}
						else
							{	/* Eval/expddefine.scm 109 */
								BgL_resz00_1228 =
									BGl_expandzd2errorzd2zz__expandz00
									(BGl_string2416z00zz__expander_definez00,
									BGl_string2417z00zz__expander_definez00, BgL_xz00_6);
							}
					}
				else
					{	/* Eval/expddefine.scm 109 */
						BgL_resz00_1228 =
							BGl_expandzd2errorzd2zz__expandz00
							(BGl_string2416z00zz__expander_definez00,
							BGl_string2417z00zz__expander_definez00, BgL_xz00_6);
					}
				return BGl_evepairifyz00zz__prognz00(BgL_resz00_1228, BgL_xz00_6);
			}
		}

	}



/* &expand-eval-lambda */
	obj_t BGl_z62expandzd2evalzd2lambdaz62zz__expander_definez00(obj_t
		BgL_envz00_3147, obj_t BgL_xz00_3148, obj_t BgL_ez00_3149)
	{
		{	/* Eval/expddefine.scm 108 */
			{	/* Eval/expddefine.scm 109 */
				obj_t BgL_auxz00_3417;

				if (PROCEDUREP(BgL_ez00_3149))
					{	/* Eval/expddefine.scm 109 */
						BgL_auxz00_3417 = BgL_ez00_3149;
					}
				else
					{
						obj_t BgL_auxz00_3420;

						BgL_auxz00_3420 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string2410z00zz__expander_definez00, BINT(3621L),
							BGl_string2419z00zz__expander_definez00,
							BGl_string2412z00zz__expander_definez00, BgL_ez00_3149);
						FAILURE(BgL_auxz00_3420, BFALSE, BFALSE);
					}
				return
					BGl_expandzd2evalzd2lambdaz00zz__expander_definez00(BgL_xz00_3148,
					BgL_auxz00_3417);
			}
		}

	}



/* expand-eval-define */
	BGL_EXPORTED_DEF obj_t
		BGl_expandzd2evalzd2definez00zz__expander_definez00(obj_t BgL_xz00_8,
		obj_t BgL_oldez00_9)
	{
		{	/* Eval/expddefine.scm 127 */
			{	/* Eval/expddefine.scm 128 */
				obj_t BgL_newez00_3150;

				BgL_newez00_3150 =
					MAKE_FX_PROCEDURE(BGl_z62newez62zz__expander_definez00,
					(int) (2L), (int) (1L));
				PROCEDURE_SET(BgL_newez00_3150, (int) (0L), BgL_oldez00_9);
				BGL_TAIL return
					BGl_expandzd2evalzd2externalzd2definezd2zz__expander_definez00
					(BgL_xz00_8, BgL_newez00_3150);
			}
		}

	}



/* &expand-eval-define */
	obj_t BGl_z62expandzd2evalzd2definez62zz__expander_definez00(obj_t
		BgL_envz00_3151, obj_t BgL_xz00_3152, obj_t BgL_oldez00_3153)
	{
		{	/* Eval/expddefine.scm 127 */
			{	/* Eval/expddefine.scm 128 */
				obj_t BgL_auxz00_3431;

				if (PROCEDUREP(BgL_oldez00_3153))
					{	/* Eval/expddefine.scm 128 */
						BgL_auxz00_3431 = BgL_oldez00_3153;
					}
				else
					{
						obj_t BgL_auxz00_3434;

						BgL_auxz00_3434 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string2410z00zz__expander_definez00, BINT(4526L),
							BGl_string2420z00zz__expander_definez00,
							BGl_string2412z00zz__expander_definez00, BgL_oldez00_3153);
						FAILURE(BgL_auxz00_3434, BFALSE, BFALSE);
					}
				return
					BGl_expandzd2evalzd2definez00zz__expander_definez00(BgL_xz00_3152,
					BgL_auxz00_3431);
			}
		}

	}



/* &newe */
	obj_t BGl_z62newez62zz__expander_definez00(obj_t BgL_envz00_3154,
		obj_t BgL_xz00_3156, obj_t BgL_ez00_3157)
	{
		{	/* Eval/expddefine.scm 128 */
			{	/* Eval/expddefine.scm 128 */
				obj_t BgL_oldez00_3155;

				BgL_oldez00_3155 = ((obj_t) PROCEDURE_REF(BgL_envz00_3154, (int) (0L)));
				if (PAIRP(BgL_xz00_3156))
					{	/* Eval/expddefine.scm 128 */
						if (
							(CAR(
									((obj_t) BgL_xz00_3156)) ==
								BGl_symbol2421z00zz__expander_definez00))
							{	/* Eval/expddefine.scm 128 */
								return
									BGl_expandzd2evalzd2internalzd2definezd2zz__expander_definez00
									(BgL_xz00_3156, BgL_ez00_3157);
							}
						else
							{	/* Eval/expddefine.scm 128 */
								return
									BGL_PROCEDURE_CALL2(BgL_oldez00_3155, BgL_xz00_3156,
									BgL_ez00_3157);
							}
					}
				else
					{	/* Eval/expddefine.scm 128 */
						return
							BGL_PROCEDURE_CALL2(BgL_oldez00_3155, BgL_xz00_3156,
							BgL_ez00_3157);
					}
			}
		}

	}



/* expand-eval-external-define */
	obj_t BGl_expandzd2evalzd2externalzd2definezd2zz__expander_definez00(obj_t
		BgL_xz00_10, obj_t BgL_ez00_11)
	{
		{	/* Eval/expddefine.scm 139 */
			{	/* Eval/expddefine.scm 140 */
				obj_t BgL_ez00_1259;

				BgL_ez00_1259 =
					BGl_evalzd2beginzd2expanderz00zz__expander_definez00(BgL_ez00_11);
				{	/* Eval/expddefine.scm 141 */
					obj_t BgL_locz00_1261;

					BgL_locz00_1261 =
						BGl_getzd2sourcezd2locationz00zz__readerz00(BgL_xz00_10);
					{	/* Eval/expddefine.scm 142 */
						obj_t BgL_resz00_1262;

						{	/* Eval/expddefine.scm 143 */
							bool_t BgL_test2548z00_3461;

							if (PAIRP(BgL_xz00_10))
								{	/* Eval/expddefine.scm 143 */
									bool_t BgL_test2550z00_3464;

									{	/* Eval/expddefine.scm 143 */
										obj_t BgL_tmpz00_3465;

										BgL_tmpz00_3465 = CDR(BgL_xz00_10);
										BgL_test2550z00_3464 = PAIRP(BgL_tmpz00_3465);
									}
									if (BgL_test2550z00_3464)
										{	/* Eval/expddefine.scm 143 */
											obj_t BgL_tmpz00_3468;

											BgL_tmpz00_3468 = CDR(CDR(BgL_xz00_10));
											BgL_test2548z00_3461 = PAIRP(BgL_tmpz00_3468);
										}
									else
										{	/* Eval/expddefine.scm 143 */
											BgL_test2548z00_3461 = ((bool_t) 0);
										}
								}
							else
								{	/* Eval/expddefine.scm 143 */
									BgL_test2548z00_3461 = ((bool_t) 0);
								}
							if (BgL_test2548z00_3461)
								{	/* Eval/expddefine.scm 144 */
									obj_t BgL_typez00_1269;

									BgL_typez00_1269 = CAR(CDR(BgL_xz00_10));
									{	/* Eval/expddefine.scm 146 */
										bool_t BgL_test2551z00_3474;

										if (PAIRP(BgL_typez00_1269))
											{	/* Eval/expddefine.scm 146 */
												obj_t BgL_tmpz00_3477;

												BgL_tmpz00_3477 = CAR(BgL_typez00_1269);
												BgL_test2551z00_3474 = SYMBOLP(BgL_tmpz00_3477);
											}
										else
											{	/* Eval/expddefine.scm 146 */
												BgL_test2551z00_3474 = ((bool_t) 0);
											}
										if (BgL_test2551z00_3474)
											{	/* Eval/expddefine.scm 147 */
												obj_t BgL_arg1337z00_1273;

												{	/* Eval/expddefine.scm 147 */
													obj_t BgL_arg1338z00_1274;
													obj_t BgL_arg1339z00_1275;

													{	/* Eval/expddefine.scm 147 */
														obj_t BgL_arg1341z00_1276;

														BgL_arg1341z00_1276 =
															BGl_parsezd2formalzd2identz00zz__evutilsz00(CAR
															(BgL_typez00_1269), BgL_locz00_1261);
														BgL_arg1338z00_1274 =
															CAR(((obj_t) BgL_arg1341z00_1276));
													}
													{	/* Eval/expddefine.scm 148 */
														obj_t BgL_arg1343z00_1278;

														{	/* Eval/expddefine.scm 148 */
															obj_t BgL_arg1345z00_1279;

															{	/* Eval/expddefine.scm 148 */
																obj_t BgL_arg1346z00_1280;
																obj_t BgL_arg1347z00_1281;

																BgL_arg1346z00_1280 =
																	BGl_loopze70ze7zz__expander_definez00
																	(BgL_ez00_1259, CDR(BgL_typez00_1269));
																{	/* Eval/expddefine.scm 149 */
																	obj_t BgL_arg1351z00_1283;

																	{	/* Eval/expddefine.scm 149 */
																		obj_t BgL_arg1352z00_1284;

																		BgL_arg1352z00_1284 =
																			BGl_expandzd2prognzd2zz__prognz00(CDR(CDR
																				(BgL_xz00_10)));
																		BgL_arg1351z00_1283 =
																			BGL_PROCEDURE_CALL2(BgL_ez00_1259,
																			BgL_arg1352z00_1284, BgL_ez00_1259);
																	}
																	BgL_arg1347z00_1281 =
																		MAKE_YOUNG_PAIR(BgL_arg1351z00_1283, BNIL);
																}
																BgL_arg1345z00_1279 =
																	MAKE_YOUNG_PAIR(BgL_arg1346z00_1280,
																	BgL_arg1347z00_1281);
															}
															BgL_arg1343z00_1278 =
																MAKE_YOUNG_PAIR
																(BGl_symbol2418z00zz__expander_definez00,
																BgL_arg1345z00_1279);
														}
														BgL_arg1339z00_1275 =
															MAKE_YOUNG_PAIR(BgL_arg1343z00_1278, BNIL);
													}
													BgL_arg1337z00_1273 =
														MAKE_YOUNG_PAIR(BgL_arg1338z00_1274,
														BgL_arg1339z00_1275);
												}
												BgL_resz00_1262 =
													MAKE_YOUNG_PAIR
													(BGl_symbol2421z00zz__expander_definez00,
													BgL_arg1337z00_1273);
											}
										else
											{	/* Eval/expddefine.scm 146 */
												if (SYMBOLP(BgL_typez00_1269))
													{	/* Eval/expddefine.scm 151 */
														obj_t BgL_arg1355z00_1287;

														{	/* Eval/expddefine.scm 151 */
															obj_t BgL_arg1356z00_1288;
															obj_t BgL_arg1357z00_1289;

															{	/* Eval/expddefine.scm 151 */
																obj_t BgL_arg1358z00_1290;

																BgL_arg1358z00_1290 =
																	BGl_parsezd2formalzd2identz00zz__evutilsz00
																	(BgL_typez00_1269, BgL_locz00_1261);
																BgL_arg1356z00_1288 =
																	CAR(((obj_t) BgL_arg1358z00_1290));
															}
															{	/* Eval/expddefine.scm 152 */
																obj_t BgL_arg1359z00_1291;

																{	/* Eval/expddefine.scm 152 */
																	obj_t BgL_arg1360z00_1292;

																	BgL_arg1360z00_1292 =
																		BGl_expandzd2prognzd2zz__prognz00(CDR(CDR
																			(BgL_xz00_10)));
																	BgL_arg1359z00_1291 =
																		BGL_PROCEDURE_CALL2(BgL_ez00_1259,
																		BgL_arg1360z00_1292, BgL_ez00_1259);
																}
																BgL_arg1357z00_1289 =
																	MAKE_YOUNG_PAIR(BgL_arg1359z00_1291, BNIL);
															}
															BgL_arg1355z00_1287 =
																MAKE_YOUNG_PAIR(BgL_arg1356z00_1288,
																BgL_arg1357z00_1289);
														}
														BgL_resz00_1262 =
															MAKE_YOUNG_PAIR
															(BGl_symbol2421z00zz__expander_definez00,
															BgL_arg1355z00_1287);
													}
												else
													{	/* Eval/expddefine.scm 150 */
														BgL_resz00_1262 =
															BGl_expandzd2errorzd2zz__expandz00
															(BGl_string2422z00zz__expander_definez00,
															BGl_string2417z00zz__expander_definez00,
															BgL_xz00_10);
													}
											}
									}
								}
							else
								{	/* Eval/expddefine.scm 143 */
									BgL_resz00_1262 =
										BGl_expandzd2errorzd2zz__expandz00
										(BGl_string2422z00zz__expander_definez00,
										BGl_string2417z00zz__expander_definez00, BgL_xz00_10);
								}
						}
						{	/* Eval/expddefine.scm 143 */

							return
								BGl_evepairifyz00zz__prognz00(BgL_resz00_1262, BgL_xz00_10);
						}
					}
				}
			}
		}

	}



/* expand-eval-internal-define */
	obj_t BGl_expandzd2evalzd2internalzd2definezd2zz__expander_definez00(obj_t
		BgL_xz00_12, obj_t BgL_ez00_13)
	{
		{	/* Eval/expddefine.scm 161 */
			{
				obj_t BgL_namez00_1302;
				obj_t BgL_argsz00_1303;
				obj_t BgL_bodyz00_1304;

				{	/* Eval/expddefine.scm 162 */
					obj_t BgL_cdrzd2170zd2_1312;

					BgL_cdrzd2170zd2_1312 = CDR(BgL_xz00_12);
					if (PAIRP(BgL_cdrzd2170zd2_1312))
						{	/* Eval/expddefine.scm 162 */
							obj_t BgL_carzd2174zd2_1314;
							obj_t BgL_cdrzd2175zd2_1315;

							BgL_carzd2174zd2_1314 = CAR(BgL_cdrzd2170zd2_1312);
							BgL_cdrzd2175zd2_1315 = CDR(BgL_cdrzd2170zd2_1312);
							if (PAIRP(BgL_carzd2174zd2_1314))
								{	/* Eval/expddefine.scm 162 */
									if (NULLP(BgL_cdrzd2175zd2_1315))
										{	/* Eval/expddefine.scm 162 */
											obj_t BgL_cdrzd2193zd2_1319;

											BgL_cdrzd2193zd2_1319 =
												CDR(((obj_t) BgL_cdrzd2170zd2_1312));
											if (PAIRP(BgL_cdrzd2193zd2_1319))
												{	/* Eval/expddefine.scm 162 */
													obj_t BgL_carzd2197zd2_1321;

													BgL_carzd2197zd2_1321 = CAR(BgL_cdrzd2193zd2_1319);
													if (PAIRP(BgL_carzd2197zd2_1321))
														{	/* Eval/expddefine.scm 162 */
															obj_t BgL_cdrzd2202zd2_1323;

															BgL_cdrzd2202zd2_1323 =
																CDR(BgL_carzd2197zd2_1321);
															if (
																(CAR(BgL_carzd2197zd2_1321) ==
																	BGl_symbol2418z00zz__expander_definez00))
																{	/* Eval/expddefine.scm 162 */
																	if (PAIRP(BgL_cdrzd2202zd2_1323))
																		{	/* Eval/expddefine.scm 162 */
																			obj_t BgL_cdrzd2206zd2_1327;

																			BgL_cdrzd2206zd2_1327 =
																				CDR(BgL_cdrzd2202zd2_1323);
																			if (NULLP(BgL_cdrzd2206zd2_1327))
																				{	/* Eval/expddefine.scm 162 */
																					obj_t BgL_cdrzd2215zd2_1329;

																					BgL_cdrzd2215zd2_1329 =
																						CDR(BgL_xz00_12);
																					{	/* Eval/expddefine.scm 162 */
																						obj_t BgL_cdrzd2219zd2_1330;

																						BgL_cdrzd2219zd2_1330 =
																							CDR(
																							((obj_t) BgL_cdrzd2215zd2_1329));
																						if (NULLP(CDR(
																									((obj_t)
																										BgL_cdrzd2219zd2_1330))))
																							{	/* Eval/expddefine.scm 162 */
																								obj_t BgL_arg1378z00_1333;
																								obj_t BgL_arg1379z00_1334;

																								BgL_arg1378z00_1333 =
																									CAR(
																									((obj_t)
																										BgL_cdrzd2215zd2_1329));
																								BgL_arg1379z00_1334 =
																									CAR(((obj_t)
																										BgL_cdrzd2219zd2_1330));
																								{	/* Eval/expddefine.scm 175 */
																									obj_t BgL_locz00_2654;

																									BgL_locz00_2654 =
																										BGl_getzd2sourcezd2locationz00zz__readerz00
																										(BgL_xz00_12);
																									{	/* Eval/expddefine.scm 175 */
																										obj_t BgL_resz00_2655;

																										{	/* Eval/expddefine.scm 176 */
																											obj_t BgL_arg1459z00_2656;

																											{	/* Eval/expddefine.scm 176 */
																												obj_t
																													BgL_arg1460z00_2657;
																												obj_t
																													BgL_arg1461z00_2658;
																												{	/* Eval/expddefine.scm 176 */
																													obj_t
																														BgL_arg1462z00_2659;
																													BgL_arg1462z00_2659 =
																														BGl_parsezd2formalzd2identz00zz__evutilsz00
																														(BgL_arg1378z00_1333,
																														BgL_locz00_2654);
																													BgL_arg1460z00_2657 =
																														CAR(((obj_t)
																															BgL_arg1462z00_2659));
																												}
																												{	/* Eval/expddefine.scm 176 */
																													obj_t
																														BgL_arg1464z00_2660;
																													BgL_arg1464z00_2660 =
																														BGL_PROCEDURE_CALL2
																														(BgL_ez00_13,
																														BgL_arg1379z00_1334,
																														BgL_ez00_13);
																													BgL_arg1461z00_2658 =
																														MAKE_YOUNG_PAIR
																														(BgL_arg1464z00_2660,
																														BNIL);
																												}
																												BgL_arg1459z00_2656 =
																													MAKE_YOUNG_PAIR
																													(BgL_arg1460z00_2657,
																													BgL_arg1461z00_2658);
																											}
																											BgL_resz00_2655 =
																												MAKE_YOUNG_PAIR
																												(BGl_symbol2421z00zz__expander_definez00,
																												BgL_arg1459z00_2656);
																										}
																										{	/* Eval/expddefine.scm 176 */

																											return
																												BGl_evepairifyz00zz__prognz00
																												(BgL_resz00_2655,
																												BgL_xz00_12);
																										}
																									}
																								}
																							}
																						else
																							{	/* Eval/expddefine.scm 162 */
																								return
																									BGl_expandzd2errorzd2zz__expandz00
																									(BGl_string2422z00zz__expander_definez00,
																									BGl_string2417z00zz__expander_definez00,
																									BgL_xz00_12);
																							}
																					}
																				}
																			else
																				{	/* Eval/expddefine.scm 162 */
																					if (NULLP(CDR(BgL_cdrzd2193zd2_1319)))
																						{	/* Eval/expddefine.scm 162 */
																							obj_t BgL_arg1383z00_1338;
																							obj_t BgL_arg1384z00_1339;

																							BgL_arg1383z00_1338 =
																								CAR(
																								((obj_t)
																									BgL_cdrzd2170zd2_1312));
																							BgL_arg1384z00_1339 =
																								CAR(BgL_cdrzd2202zd2_1323);
																							BgL_namez00_1302 =
																								BgL_arg1383z00_1338;
																							BgL_argsz00_1303 =
																								BgL_arg1384z00_1339;
																							BgL_bodyz00_1304 =
																								BgL_cdrzd2206zd2_1327;
																						BgL_tagzd2154zd2_1305:
																							{	/* Eval/expddefine.scm 166 */
																								obj_t BgL_locz00_1418;

																								BgL_locz00_1418 =
																									BGl_getzd2sourcezd2locationz00zz__readerz00
																									(BgL_xz00_12);
																								{	/* Eval/expddefine.scm 166 */
																									obj_t BgL_eargsz00_1419;

																									BgL_eargsz00_1419 =
																										BGl_loopze70ze7zz__expander_definez00
																										(BgL_ez00_13,
																										BgL_argsz00_1303);
																									{	/* Eval/expddefine.scm 167 */
																										obj_t BgL_resz00_1420;

																										{	/* Eval/expddefine.scm 168 */
																											obj_t BgL_arg1447z00_1421;

																											{	/* Eval/expddefine.scm 168 */
																												obj_t
																													BgL_arg1448z00_1422;
																												obj_t
																													BgL_arg1450z00_1423;
																												{	/* Eval/expddefine.scm 168 */
																													obj_t
																														BgL_arg1451z00_1424;
																													BgL_arg1451z00_1424 =
																														BGl_parsezd2formalzd2identz00zz__evutilsz00
																														(BgL_namez00_1302,
																														BgL_locz00_1418);
																													BgL_arg1448z00_1422 =
																														CAR(((obj_t)
																															BgL_arg1451z00_1424));
																												}
																												{	/* Eval/expddefine.scm 171 */
																													obj_t
																														BgL_arg1452z00_1425;
																													{	/* Eval/expddefine.scm 171 */
																														obj_t
																															BgL_arg1453z00_1426;
																														{	/* Eval/expddefine.scm 171 */
																															obj_t
																																BgL_arg1455z00_1427;
																															BgL_arg1455z00_1427
																																=
																																MAKE_YOUNG_PAIR
																																(BGl_z52withzd2lexicalz80zz__expandz00
																																(BGl_argszd2ze3listz31zz__evutilsz00
																																	(BgL_eargsz00_1419),
																																	BGl_expandzd2prognzd2zz__prognz00
																																	(BgL_bodyz00_1304),
																																	BgL_ez00_13,
																																	BFALSE),
																																BNIL);
																															BgL_arg1453z00_1426
																																=
																																MAKE_YOUNG_PAIR
																																(BgL_eargsz00_1419,
																																BgL_arg1455z00_1427);
																														}
																														BgL_arg1452z00_1425
																															=
																															MAKE_YOUNG_PAIR
																															(BGl_symbol2418z00zz__expander_definez00,
																															BgL_arg1453z00_1426);
																													}
																													BgL_arg1450z00_1423 =
																														MAKE_YOUNG_PAIR
																														(BgL_arg1452z00_1425,
																														BNIL);
																												}
																												BgL_arg1447z00_1421 =
																													MAKE_YOUNG_PAIR
																													(BgL_arg1448z00_1422,
																													BgL_arg1450z00_1423);
																											}
																											BgL_resz00_1420 =
																												MAKE_YOUNG_PAIR
																												(BGl_symbol2421z00zz__expander_definez00,
																												BgL_arg1447z00_1421);
																										}
																										{	/* Eval/expddefine.scm 168 */

																											return
																												BGl_evepairifyz00zz__prognz00
																												(BgL_resz00_1420,
																												BgL_xz00_12);
																										}
																									}
																								}
																							}
																						}
																					else
																						{	/* Eval/expddefine.scm 162 */
																							return
																								BGl_expandzd2errorzd2zz__expandz00
																								(BGl_string2422z00zz__expander_definez00,
																								BGl_string2417z00zz__expander_definez00,
																								BgL_xz00_12);
																						}
																				}
																		}
																	else
																		{	/* Eval/expddefine.scm 162 */
																			obj_t BgL_cdrzd2234zd2_1341;

																			BgL_cdrzd2234zd2_1341 = CDR(BgL_xz00_12);
																			{	/* Eval/expddefine.scm 162 */
																				obj_t BgL_cdrzd2238zd2_1342;

																				BgL_cdrzd2238zd2_1342 =
																					CDR(((obj_t) BgL_cdrzd2234zd2_1341));
																				if (NULLP(CDR(
																							((obj_t) BgL_cdrzd2238zd2_1342))))
																					{	/* Eval/expddefine.scm 162 */
																						obj_t BgL_arg1388z00_1345;
																						obj_t BgL_arg1389z00_1346;

																						BgL_arg1388z00_1345 =
																							CAR(
																							((obj_t) BgL_cdrzd2234zd2_1341));
																						BgL_arg1389z00_1346 =
																							CAR(
																							((obj_t) BgL_cdrzd2238zd2_1342));
																						{	/* Eval/expddefine.scm 175 */
																							obj_t BgL_locz00_2670;

																							BgL_locz00_2670 =
																								BGl_getzd2sourcezd2locationz00zz__readerz00
																								(BgL_xz00_12);
																							{	/* Eval/expddefine.scm 175 */
																								obj_t BgL_resz00_2671;

																								{	/* Eval/expddefine.scm 176 */
																									obj_t BgL_arg1459z00_2672;

																									{	/* Eval/expddefine.scm 176 */
																										obj_t BgL_arg1460z00_2673;
																										obj_t BgL_arg1461z00_2674;

																										{	/* Eval/expddefine.scm 176 */
																											obj_t BgL_arg1462z00_2675;

																											BgL_arg1462z00_2675 =
																												BGl_parsezd2formalzd2identz00zz__evutilsz00
																												(BgL_arg1388z00_1345,
																												BgL_locz00_2670);
																											BgL_arg1460z00_2673 =
																												CAR(((obj_t)
																													BgL_arg1462z00_2675));
																										}
																										{	/* Eval/expddefine.scm 176 */
																											obj_t BgL_arg1464z00_2676;

																											BgL_arg1464z00_2676 =
																												BGL_PROCEDURE_CALL2
																												(BgL_ez00_13,
																												BgL_arg1389z00_1346,
																												BgL_ez00_13);
																											BgL_arg1461z00_2674 =
																												MAKE_YOUNG_PAIR
																												(BgL_arg1464z00_2676,
																												BNIL);
																										}
																										BgL_arg1459z00_2672 =
																											MAKE_YOUNG_PAIR
																											(BgL_arg1460z00_2673,
																											BgL_arg1461z00_2674);
																									}
																									BgL_resz00_2671 =
																										MAKE_YOUNG_PAIR
																										(BGl_symbol2421z00zz__expander_definez00,
																										BgL_arg1459z00_2672);
																								}
																								{	/* Eval/expddefine.scm 176 */

																									return
																										BGl_evepairifyz00zz__prognz00
																										(BgL_resz00_2671,
																										BgL_xz00_12);
																								}
																							}
																						}
																					}
																				else
																					{	/* Eval/expddefine.scm 162 */
																						return
																							BGl_expandzd2errorzd2zz__expandz00
																							(BGl_string2422z00zz__expander_definez00,
																							BGl_string2417z00zz__expander_definez00,
																							BgL_xz00_12);
																					}
																			}
																		}
																}
															else
																{	/* Eval/expddefine.scm 162 */
																	obj_t BgL_cdrzd2249zd2_1348;

																	BgL_cdrzd2249zd2_1348 = CDR(BgL_xz00_12);
																	{	/* Eval/expddefine.scm 162 */
																		obj_t BgL_cdrzd2253zd2_1349;

																		BgL_cdrzd2253zd2_1349 =
																			CDR(((obj_t) BgL_cdrzd2249zd2_1348));
																		if (NULLP(CDR(
																					((obj_t) BgL_cdrzd2253zd2_1349))))
																			{	/* Eval/expddefine.scm 162 */
																				obj_t BgL_arg1395z00_1352;
																				obj_t BgL_arg1396z00_1353;

																				BgL_arg1395z00_1352 =
																					CAR(((obj_t) BgL_cdrzd2249zd2_1348));
																				BgL_arg1396z00_1353 =
																					CAR(((obj_t) BgL_cdrzd2253zd2_1349));
																				{	/* Eval/expddefine.scm 175 */
																					obj_t BgL_locz00_2683;

																					BgL_locz00_2683 =
																						BGl_getzd2sourcezd2locationz00zz__readerz00
																						(BgL_xz00_12);
																					{	/* Eval/expddefine.scm 175 */
																						obj_t BgL_resz00_2684;

																						{	/* Eval/expddefine.scm 176 */
																							obj_t BgL_arg1459z00_2685;

																							{	/* Eval/expddefine.scm 176 */
																								obj_t BgL_arg1460z00_2686;
																								obj_t BgL_arg1461z00_2687;

																								{	/* Eval/expddefine.scm 176 */
																									obj_t BgL_arg1462z00_2688;

																									BgL_arg1462z00_2688 =
																										BGl_parsezd2formalzd2identz00zz__evutilsz00
																										(BgL_arg1395z00_1352,
																										BgL_locz00_2683);
																									BgL_arg1460z00_2686 =
																										CAR(((obj_t)
																											BgL_arg1462z00_2688));
																								}
																								{	/* Eval/expddefine.scm 176 */
																									obj_t BgL_arg1464z00_2689;

																									BgL_arg1464z00_2689 =
																										BGL_PROCEDURE_CALL2
																										(BgL_ez00_13,
																										BgL_arg1396z00_1353,
																										BgL_ez00_13);
																									BgL_arg1461z00_2687 =
																										MAKE_YOUNG_PAIR
																										(BgL_arg1464z00_2689, BNIL);
																								}
																								BgL_arg1459z00_2685 =
																									MAKE_YOUNG_PAIR
																									(BgL_arg1460z00_2686,
																									BgL_arg1461z00_2687);
																							}
																							BgL_resz00_2684 =
																								MAKE_YOUNG_PAIR
																								(BGl_symbol2421z00zz__expander_definez00,
																								BgL_arg1459z00_2685);
																						}
																						{	/* Eval/expddefine.scm 176 */

																							return
																								BGl_evepairifyz00zz__prognz00
																								(BgL_resz00_2684, BgL_xz00_12);
																						}
																					}
																				}
																			}
																		else
																			{	/* Eval/expddefine.scm 162 */
																				return
																					BGl_expandzd2errorzd2zz__expandz00
																					(BGl_string2422z00zz__expander_definez00,
																					BGl_string2417z00zz__expander_definez00,
																					BgL_xz00_12);
																			}
																	}
																}
														}
													else
														{	/* Eval/expddefine.scm 162 */
															obj_t BgL_cdrzd2268zd2_1357;

															BgL_cdrzd2268zd2_1357 =
																CDR(((obj_t) BgL_cdrzd2170zd2_1312));
															if (NULLP(CDR(((obj_t) BgL_cdrzd2268zd2_1357))))
																{	/* Eval/expddefine.scm 162 */
																	obj_t BgL_arg1401z00_1360;
																	obj_t BgL_arg1402z00_1361;

																	BgL_arg1401z00_1360 =
																		CAR(((obj_t) BgL_cdrzd2170zd2_1312));
																	BgL_arg1402z00_1361 =
																		CAR(((obj_t) BgL_cdrzd2268zd2_1357));
																	{	/* Eval/expddefine.scm 175 */
																		obj_t BgL_locz00_2696;

																		BgL_locz00_2696 =
																			BGl_getzd2sourcezd2locationz00zz__readerz00
																			(BgL_xz00_12);
																		{	/* Eval/expddefine.scm 175 */
																			obj_t BgL_resz00_2697;

																			{	/* Eval/expddefine.scm 176 */
																				obj_t BgL_arg1459z00_2698;

																				{	/* Eval/expddefine.scm 176 */
																					obj_t BgL_arg1460z00_2699;
																					obj_t BgL_arg1461z00_2700;

																					{	/* Eval/expddefine.scm 176 */
																						obj_t BgL_arg1462z00_2701;

																						BgL_arg1462z00_2701 =
																							BGl_parsezd2formalzd2identz00zz__evutilsz00
																							(BgL_arg1401z00_1360,
																							BgL_locz00_2696);
																						BgL_arg1460z00_2699 =
																							CAR(((obj_t)
																								BgL_arg1462z00_2701));
																					}
																					{	/* Eval/expddefine.scm 176 */
																						obj_t BgL_arg1464z00_2702;

																						BgL_arg1464z00_2702 =
																							BGL_PROCEDURE_CALL2(BgL_ez00_13,
																							BgL_arg1402z00_1361, BgL_ez00_13);
																						BgL_arg1461z00_2700 =
																							MAKE_YOUNG_PAIR
																							(BgL_arg1464z00_2702, BNIL);
																					}
																					BgL_arg1459z00_2698 =
																						MAKE_YOUNG_PAIR(BgL_arg1460z00_2699,
																						BgL_arg1461z00_2700);
																				}
																				BgL_resz00_2697 =
																					MAKE_YOUNG_PAIR
																					(BGl_symbol2421z00zz__expander_definez00,
																					BgL_arg1459z00_2698);
																			}
																			{	/* Eval/expddefine.scm 176 */

																				return
																					BGl_evepairifyz00zz__prognz00
																					(BgL_resz00_2697, BgL_xz00_12);
																			}
																		}
																	}
																}
															else
																{	/* Eval/expddefine.scm 162 */
																	return
																		BGl_expandzd2errorzd2zz__expandz00
																		(BGl_string2422z00zz__expander_definez00,
																		BGl_string2417z00zz__expander_definez00,
																		BgL_xz00_12);
																}
														}
												}
											else
												{	/* Eval/expddefine.scm 162 */
													obj_t BgL_cdrzd2283zd2_1364;

													BgL_cdrzd2283zd2_1364 =
														CDR(((obj_t) BgL_cdrzd2170zd2_1312));
													if (PAIRP(BgL_cdrzd2283zd2_1364))
														{	/* Eval/expddefine.scm 162 */
															if (NULLP(CDR(BgL_cdrzd2283zd2_1364)))
																{	/* Eval/expddefine.scm 162 */
																	obj_t BgL_arg1407z00_1368;
																	obj_t BgL_arg1408z00_1369;

																	BgL_arg1407z00_1368 =
																		CAR(((obj_t) BgL_cdrzd2170zd2_1312));
																	BgL_arg1408z00_1369 =
																		CAR(BgL_cdrzd2283zd2_1364);
																	{	/* Eval/expddefine.scm 175 */
																		obj_t BgL_locz00_2709;

																		BgL_locz00_2709 =
																			BGl_getzd2sourcezd2locationz00zz__readerz00
																			(BgL_xz00_12);
																		{	/* Eval/expddefine.scm 175 */
																			obj_t BgL_resz00_2710;

																			{	/* Eval/expddefine.scm 176 */
																				obj_t BgL_arg1459z00_2711;

																				{	/* Eval/expddefine.scm 176 */
																					obj_t BgL_arg1460z00_2712;
																					obj_t BgL_arg1461z00_2713;

																					{	/* Eval/expddefine.scm 176 */
																						obj_t BgL_arg1462z00_2714;

																						BgL_arg1462z00_2714 =
																							BGl_parsezd2formalzd2identz00zz__evutilsz00
																							(BgL_arg1407z00_1368,
																							BgL_locz00_2709);
																						BgL_arg1460z00_2712 =
																							CAR(((obj_t)
																								BgL_arg1462z00_2714));
																					}
																					{	/* Eval/expddefine.scm 176 */
																						obj_t BgL_arg1464z00_2715;

																						BgL_arg1464z00_2715 =
																							BGL_PROCEDURE_CALL2(BgL_ez00_13,
																							BgL_arg1408z00_1369, BgL_ez00_13);
																						BgL_arg1461z00_2713 =
																							MAKE_YOUNG_PAIR
																							(BgL_arg1464z00_2715, BNIL);
																					}
																					BgL_arg1459z00_2711 =
																						MAKE_YOUNG_PAIR(BgL_arg1460z00_2712,
																						BgL_arg1461z00_2713);
																				}
																				BgL_resz00_2710 =
																					MAKE_YOUNG_PAIR
																					(BGl_symbol2421z00zz__expander_definez00,
																					BgL_arg1459z00_2711);
																			}
																			{	/* Eval/expddefine.scm 176 */

																				return
																					BGl_evepairifyz00zz__prognz00
																					(BgL_resz00_2710, BgL_xz00_12);
																			}
																		}
																	}
																}
															else
																{	/* Eval/expddefine.scm 162 */
																	return
																		BGl_expandzd2errorzd2zz__expandz00
																		(BGl_string2422z00zz__expander_definez00,
																		BGl_string2417z00zz__expander_definez00,
																		BgL_xz00_12);
																}
														}
													else
														{	/* Eval/expddefine.scm 162 */
															return
																BGl_expandzd2errorzd2zz__expandz00
																(BGl_string2422z00zz__expander_definez00,
																BGl_string2417z00zz__expander_definez00,
																BgL_xz00_12);
														}
												}
										}
									else
										{
											obj_t BgL_bodyz00_3694;
											obj_t BgL_argsz00_3692;
											obj_t BgL_namez00_3690;

											BgL_namez00_3690 = CAR(BgL_carzd2174zd2_1314);
											BgL_argsz00_3692 = CDR(BgL_carzd2174zd2_1314);
											BgL_bodyz00_3694 = BgL_cdrzd2175zd2_1315;
											BgL_bodyz00_1304 = BgL_bodyz00_3694;
											BgL_argsz00_1303 = BgL_argsz00_3692;
											BgL_namez00_1302 = BgL_namez00_3690;
											goto BgL_tagzd2154zd2_1305;
										}
								}
							else
								{	/* Eval/expddefine.scm 162 */
									obj_t BgL_cdrzd2298zd2_1374;

									BgL_cdrzd2298zd2_1374 = CDR(((obj_t) BgL_cdrzd2170zd2_1312));
									if (PAIRP(BgL_cdrzd2298zd2_1374))
										{	/* Eval/expddefine.scm 162 */
											obj_t BgL_carzd2302zd2_1376;

											BgL_carzd2302zd2_1376 = CAR(BgL_cdrzd2298zd2_1374);
											if (PAIRP(BgL_carzd2302zd2_1376))
												{	/* Eval/expddefine.scm 162 */
													obj_t BgL_cdrzd2307zd2_1378;

													BgL_cdrzd2307zd2_1378 = CDR(BgL_carzd2302zd2_1376);
													if (
														(CAR(BgL_carzd2302zd2_1376) ==
															BGl_symbol2418z00zz__expander_definez00))
														{	/* Eval/expddefine.scm 162 */
															if (PAIRP(BgL_cdrzd2307zd2_1378))
																{	/* Eval/expddefine.scm 162 */
																	obj_t BgL_cdrzd2311zd2_1382;

																	BgL_cdrzd2311zd2_1382 =
																		CDR(BgL_cdrzd2307zd2_1378);
																	if (NULLP(BgL_cdrzd2311zd2_1382))
																		{	/* Eval/expddefine.scm 162 */
																			obj_t BgL_cdrzd2321zd2_1384;

																			BgL_cdrzd2321zd2_1384 = CDR(BgL_xz00_12);
																			{	/* Eval/expddefine.scm 162 */
																				obj_t BgL_cdrzd2326zd2_1385;

																				BgL_cdrzd2326zd2_1385 =
																					CDR(((obj_t) BgL_cdrzd2321zd2_1384));
																				if (NULLP(CDR(
																							((obj_t) BgL_cdrzd2326zd2_1385))))
																					{	/* Eval/expddefine.scm 162 */
																						obj_t BgL_arg1421z00_1388;
																						obj_t BgL_arg1422z00_1389;

																						BgL_arg1421z00_1388 =
																							CAR(
																							((obj_t) BgL_cdrzd2321zd2_1384));
																						BgL_arg1422z00_1389 =
																							CAR(
																							((obj_t) BgL_cdrzd2326zd2_1385));
																						{	/* Eval/expddefine.scm 175 */
																							obj_t BgL_locz00_2730;

																							BgL_locz00_2730 =
																								BGl_getzd2sourcezd2locationz00zz__readerz00
																								(BgL_xz00_12);
																							{	/* Eval/expddefine.scm 175 */
																								obj_t BgL_resz00_2731;

																								{	/* Eval/expddefine.scm 176 */
																									obj_t BgL_arg1459z00_2732;

																									{	/* Eval/expddefine.scm 176 */
																										obj_t BgL_arg1460z00_2733;
																										obj_t BgL_arg1461z00_2734;

																										{	/* Eval/expddefine.scm 176 */
																											obj_t BgL_arg1462z00_2735;

																											BgL_arg1462z00_2735 =
																												BGl_parsezd2formalzd2identz00zz__evutilsz00
																												(BgL_arg1421z00_1388,
																												BgL_locz00_2730);
																											BgL_arg1460z00_2733 =
																												CAR(((obj_t)
																													BgL_arg1462z00_2735));
																										}
																										{	/* Eval/expddefine.scm 176 */
																											obj_t BgL_arg1464z00_2736;

																											BgL_arg1464z00_2736 =
																												BGL_PROCEDURE_CALL2
																												(BgL_ez00_13,
																												BgL_arg1422z00_1389,
																												BgL_ez00_13);
																											BgL_arg1461z00_2734 =
																												MAKE_YOUNG_PAIR
																												(BgL_arg1464z00_2736,
																												BNIL);
																										}
																										BgL_arg1459z00_2732 =
																											MAKE_YOUNG_PAIR
																											(BgL_arg1460z00_2733,
																											BgL_arg1461z00_2734);
																									}
																									BgL_resz00_2731 =
																										MAKE_YOUNG_PAIR
																										(BGl_symbol2421z00zz__expander_definez00,
																										BgL_arg1459z00_2732);
																								}
																								{	/* Eval/expddefine.scm 176 */

																									return
																										BGl_evepairifyz00zz__prognz00
																										(BgL_resz00_2731,
																										BgL_xz00_12);
																								}
																							}
																						}
																					}
																				else
																					{	/* Eval/expddefine.scm 162 */
																						return
																							BGl_expandzd2errorzd2zz__expandz00
																							(BGl_string2422z00zz__expander_definez00,
																							BGl_string2417z00zz__expander_definez00,
																							BgL_xz00_12);
																					}
																			}
																		}
																	else
																		{	/* Eval/expddefine.scm 162 */
																			if (NULLP(CDR(BgL_cdrzd2298zd2_1374)))
																				{	/* Eval/expddefine.scm 162 */
																					obj_t BgL_arg1426z00_1393;
																					obj_t BgL_arg1427z00_1394;

																					BgL_arg1426z00_1393 =
																						CAR(
																						((obj_t) BgL_cdrzd2170zd2_1312));
																					BgL_arg1427z00_1394 =
																						CAR(BgL_cdrzd2307zd2_1378);
																					{
																						obj_t BgL_bodyz00_3744;
																						obj_t BgL_argsz00_3743;
																						obj_t BgL_namez00_3742;

																						BgL_namez00_3742 =
																							BgL_arg1426z00_1393;
																						BgL_argsz00_3743 =
																							BgL_arg1427z00_1394;
																						BgL_bodyz00_3744 =
																							BgL_cdrzd2311zd2_1382;
																						BgL_bodyz00_1304 = BgL_bodyz00_3744;
																						BgL_argsz00_1303 = BgL_argsz00_3743;
																						BgL_namez00_1302 = BgL_namez00_3742;
																						goto BgL_tagzd2154zd2_1305;
																					}
																				}
																			else
																				{	/* Eval/expddefine.scm 162 */
																					return
																						BGl_expandzd2errorzd2zz__expandz00
																						(BGl_string2422z00zz__expander_definez00,
																						BGl_string2417z00zz__expander_definez00,
																						BgL_xz00_12);
																				}
																		}
																}
															else
																{	/* Eval/expddefine.scm 162 */
																	obj_t BgL_cdrzd2344zd2_1396;

																	BgL_cdrzd2344zd2_1396 = CDR(BgL_xz00_12);
																	{	/* Eval/expddefine.scm 162 */
																		obj_t BgL_cdrzd2349zd2_1397;

																		BgL_cdrzd2349zd2_1397 =
																			CDR(((obj_t) BgL_cdrzd2344zd2_1396));
																		if (NULLP(CDR(
																					((obj_t) BgL_cdrzd2349zd2_1397))))
																			{	/* Eval/expddefine.scm 162 */
																				obj_t BgL_arg1431z00_1400;
																				obj_t BgL_arg1432z00_1401;

																				BgL_arg1431z00_1400 =
																					CAR(((obj_t) BgL_cdrzd2344zd2_1396));
																				BgL_arg1432z00_1401 =
																					CAR(((obj_t) BgL_cdrzd2349zd2_1397));
																				{	/* Eval/expddefine.scm 175 */
																					obj_t BgL_locz00_2746;

																					BgL_locz00_2746 =
																						BGl_getzd2sourcezd2locationz00zz__readerz00
																						(BgL_xz00_12);
																					{	/* Eval/expddefine.scm 175 */
																						obj_t BgL_resz00_2747;

																						{	/* Eval/expddefine.scm 176 */
																							obj_t BgL_arg1459z00_2748;

																							{	/* Eval/expddefine.scm 176 */
																								obj_t BgL_arg1460z00_2749;
																								obj_t BgL_arg1461z00_2750;

																								{	/* Eval/expddefine.scm 176 */
																									obj_t BgL_arg1462z00_2751;

																									BgL_arg1462z00_2751 =
																										BGl_parsezd2formalzd2identz00zz__evutilsz00
																										(BgL_arg1431z00_1400,
																										BgL_locz00_2746);
																									BgL_arg1460z00_2749 =
																										CAR(((obj_t)
																											BgL_arg1462z00_2751));
																								}
																								{	/* Eval/expddefine.scm 176 */
																									obj_t BgL_arg1464z00_2752;

																									BgL_arg1464z00_2752 =
																										BGL_PROCEDURE_CALL2
																										(BgL_ez00_13,
																										BgL_arg1432z00_1401,
																										BgL_ez00_13);
																									BgL_arg1461z00_2750 =
																										MAKE_YOUNG_PAIR
																										(BgL_arg1464z00_2752, BNIL);
																								}
																								BgL_arg1459z00_2748 =
																									MAKE_YOUNG_PAIR
																									(BgL_arg1460z00_2749,
																									BgL_arg1461z00_2750);
																							}
																							BgL_resz00_2747 =
																								MAKE_YOUNG_PAIR
																								(BGl_symbol2421z00zz__expander_definez00,
																								BgL_arg1459z00_2748);
																						}
																						{	/* Eval/expddefine.scm 176 */

																							return
																								BGl_evepairifyz00zz__prognz00
																								(BgL_resz00_2747, BgL_xz00_12);
																						}
																					}
																				}
																			}
																		else
																			{	/* Eval/expddefine.scm 162 */
																				return
																					BGl_expandzd2errorzd2zz__expandz00
																					(BGl_string2422z00zz__expander_definez00,
																					BGl_string2417z00zz__expander_definez00,
																					BgL_xz00_12);
																			}
																	}
																}
														}
													else
														{	/* Eval/expddefine.scm 162 */
															obj_t BgL_cdrzd2362zd2_1403;

															BgL_cdrzd2362zd2_1403 = CDR(BgL_xz00_12);
															{	/* Eval/expddefine.scm 162 */
																obj_t BgL_cdrzd2367zd2_1404;

																BgL_cdrzd2367zd2_1404 =
																	CDR(((obj_t) BgL_cdrzd2362zd2_1403));
																if (NULLP(CDR(((obj_t) BgL_cdrzd2367zd2_1404))))
																	{	/* Eval/expddefine.scm 162 */
																		obj_t BgL_arg1436z00_1407;
																		obj_t BgL_arg1437z00_1408;

																		BgL_arg1436z00_1407 =
																			CAR(((obj_t) BgL_cdrzd2362zd2_1403));
																		BgL_arg1437z00_1408 =
																			CAR(((obj_t) BgL_cdrzd2367zd2_1404));
																		{	/* Eval/expddefine.scm 175 */
																			obj_t BgL_locz00_2759;

																			BgL_locz00_2759 =
																				BGl_getzd2sourcezd2locationz00zz__readerz00
																				(BgL_xz00_12);
																			{	/* Eval/expddefine.scm 175 */
																				obj_t BgL_resz00_2760;

																				{	/* Eval/expddefine.scm 176 */
																					obj_t BgL_arg1459z00_2761;

																					{	/* Eval/expddefine.scm 176 */
																						obj_t BgL_arg1460z00_2762;
																						obj_t BgL_arg1461z00_2763;

																						{	/* Eval/expddefine.scm 176 */
																							obj_t BgL_arg1462z00_2764;

																							BgL_arg1462z00_2764 =
																								BGl_parsezd2formalzd2identz00zz__evutilsz00
																								(BgL_arg1436z00_1407,
																								BgL_locz00_2759);
																							BgL_arg1460z00_2762 =
																								CAR(((obj_t)
																									BgL_arg1462z00_2764));
																						}
																						{	/* Eval/expddefine.scm 176 */
																							obj_t BgL_arg1464z00_2765;

																							BgL_arg1464z00_2765 =
																								BGL_PROCEDURE_CALL2(BgL_ez00_13,
																								BgL_arg1437z00_1408,
																								BgL_ez00_13);
																							BgL_arg1461z00_2763 =
																								MAKE_YOUNG_PAIR
																								(BgL_arg1464z00_2765, BNIL);
																						}
																						BgL_arg1459z00_2761 =
																							MAKE_YOUNG_PAIR
																							(BgL_arg1460z00_2762,
																							BgL_arg1461z00_2763);
																					}
																					BgL_resz00_2760 =
																						MAKE_YOUNG_PAIR
																						(BGl_symbol2421z00zz__expander_definez00,
																						BgL_arg1459z00_2761);
																				}
																				{	/* Eval/expddefine.scm 176 */

																					return
																						BGl_evepairifyz00zz__prognz00
																						(BgL_resz00_2760, BgL_xz00_12);
																				}
																			}
																		}
																	}
																else
																	{	/* Eval/expddefine.scm 162 */
																		return
																			BGl_expandzd2errorzd2zz__expandz00
																			(BGl_string2422z00zz__expander_definez00,
																			BGl_string2417z00zz__expander_definez00,
																			BgL_xz00_12);
																	}
															}
														}
												}
											else
												{	/* Eval/expddefine.scm 162 */
													obj_t BgL_cdrzd2385zd2_1412;

													BgL_cdrzd2385zd2_1412 =
														CDR(((obj_t) BgL_cdrzd2170zd2_1312));
													if (NULLP(CDR(((obj_t) BgL_cdrzd2385zd2_1412))))
														{	/* Eval/expddefine.scm 162 */
															obj_t BgL_arg1444z00_1415;
															obj_t BgL_arg1445z00_1416;

															BgL_arg1444z00_1415 =
																CAR(((obj_t) BgL_cdrzd2170zd2_1312));
															BgL_arg1445z00_1416 =
																CAR(((obj_t) BgL_cdrzd2385zd2_1412));
															{	/* Eval/expddefine.scm 175 */
																obj_t BgL_locz00_2772;

																BgL_locz00_2772 =
																	BGl_getzd2sourcezd2locationz00zz__readerz00
																	(BgL_xz00_12);
																{	/* Eval/expddefine.scm 175 */
																	obj_t BgL_resz00_2773;

																	{	/* Eval/expddefine.scm 176 */
																		obj_t BgL_arg1459z00_2774;

																		{	/* Eval/expddefine.scm 176 */
																			obj_t BgL_arg1460z00_2775;
																			obj_t BgL_arg1461z00_2776;

																			{	/* Eval/expddefine.scm 176 */
																				obj_t BgL_arg1462z00_2777;

																				BgL_arg1462z00_2777 =
																					BGl_parsezd2formalzd2identz00zz__evutilsz00
																					(BgL_arg1444z00_1415,
																					BgL_locz00_2772);
																				BgL_arg1460z00_2775 =
																					CAR(((obj_t) BgL_arg1462z00_2777));
																			}
																			{	/* Eval/expddefine.scm 176 */
																				obj_t BgL_arg1464z00_2778;

																				BgL_arg1464z00_2778 =
																					BGL_PROCEDURE_CALL2(BgL_ez00_13,
																					BgL_arg1445z00_1416, BgL_ez00_13);
																				BgL_arg1461z00_2776 =
																					MAKE_YOUNG_PAIR(BgL_arg1464z00_2778,
																					BNIL);
																			}
																			BgL_arg1459z00_2774 =
																				MAKE_YOUNG_PAIR(BgL_arg1460z00_2775,
																				BgL_arg1461z00_2776);
																		}
																		BgL_resz00_2773 =
																			MAKE_YOUNG_PAIR
																			(BGl_symbol2421z00zz__expander_definez00,
																			BgL_arg1459z00_2774);
																	}
																	{	/* Eval/expddefine.scm 176 */

																		return
																			BGl_evepairifyz00zz__prognz00
																			(BgL_resz00_2773, BgL_xz00_12);
																	}
																}
															}
														}
													else
														{	/* Eval/expddefine.scm 162 */
															return
																BGl_expandzd2errorzd2zz__expandz00
																(BGl_string2422z00zz__expander_definez00,
																BGl_string2417z00zz__expander_definez00,
																BgL_xz00_12);
														}
												}
										}
									else
										{	/* Eval/expddefine.scm 162 */
											return
												BGl_expandzd2errorzd2zz__expandz00
												(BGl_string2422z00zz__expander_definez00,
												BGl_string2417z00zz__expander_definez00, BgL_xz00_12);
										}
								}
						}
					else
						{	/* Eval/expddefine.scm 162 */
							return
								BGl_expandzd2errorzd2zz__expandz00
								(BGl_string2422z00zz__expander_definez00,
								BGl_string2417z00zz__expander_definez00, BgL_xz00_12);
						}
				}
			}
		}

	}



/* lambda-defines */
	obj_t BGl_lambdazd2defineszd2zz__expander_definez00(obj_t BgL_bodyz00_14)
	{
		{	/* Eval/expddefine.scm 185 */
			{
				obj_t BgL_oldformsz00_1442;
				obj_t BgL_newformsz00_1443;
				obj_t BgL_varsz00_1444;
				obj_t BgL_setsz00_1445;

				BgL_oldformsz00_1442 = BgL_bodyz00_14;
				BgL_newformsz00_1443 = BNIL;
				BgL_varsz00_1444 = BNIL;
				BgL_setsz00_1445 = BNIL;
			BgL_zc3z04anonymousza31465ze3z87_1446:
				if (PAIRP(BgL_oldformsz00_1442))
					{	/* Eval/expddefine.scm 191 */
						obj_t BgL_formz00_1448;

						BgL_formz00_1448 = CAR(BgL_oldformsz00_1442);
						{	/* Eval/expddefine.scm 191 */
							obj_t BgL_locz00_1449;

							{	/* Eval/expddefine.scm 192 */
								obj_t BgL__ortest_1042z00_1471;

								BgL__ortest_1042z00_1471 =
									BGl_getzd2sourcezd2locationz00zz__readerz00(BgL_formz00_1448);
								if (CBOOL(BgL__ortest_1042z00_1471))
									{	/* Eval/expddefine.scm 192 */
										BgL_locz00_1449 = BgL__ortest_1042z00_1471;
									}
								else
									{	/* Eval/expddefine.scm 192 */
										BgL_locz00_1449 =
											BGl_getzd2sourcezd2locationz00zz__readerz00
											(BgL_oldformsz00_1442);
									}
							}
							{	/* Eval/expddefine.scm 192 */

								{	/* Eval/expddefine.scm 194 */
									bool_t BgL_test2581z00_3829;

									if (PAIRP(BgL_formz00_1448))
										{	/* Eval/expddefine.scm 194 */
											if (
												(CAR(BgL_formz00_1448) ==
													BGl_symbol2421z00zz__expander_definez00))
												{	/* Eval/expddefine.scm 195 */
													BgL_test2581z00_3829 = ((bool_t) 0);
												}
											else
												{	/* Eval/expddefine.scm 195 */
													BgL_test2581z00_3829 = ((bool_t) 1);
												}
										}
									else
										{	/* Eval/expddefine.scm 194 */
											BgL_test2581z00_3829 = ((bool_t) 1);
										}
									if (BgL_test2581z00_3829)
										{	/* Eval/expddefine.scm 196 */
											obj_t BgL_arg1472z00_1455;
											obj_t BgL_arg1473z00_1456;

											BgL_arg1472z00_1455 = CDR(BgL_oldformsz00_1442);
											BgL_arg1473z00_1456 =
												MAKE_YOUNG_PAIR(BgL_formz00_1448, BgL_newformsz00_1443);
											{
												obj_t BgL_newformsz00_3838;
												obj_t BgL_oldformsz00_3837;

												BgL_oldformsz00_3837 = BgL_arg1472z00_1455;
												BgL_newformsz00_3838 = BgL_arg1473z00_1456;
												BgL_newformsz00_1443 = BgL_newformsz00_3838;
												BgL_oldformsz00_1442 = BgL_oldformsz00_3837;
												goto BgL_zc3z04anonymousza31465ze3z87_1446;
											}
										}
									else
										{	/* Eval/expddefine.scm 200 */
											obj_t BgL_arg1474z00_1457;
											obj_t BgL_arg1475z00_1458;
											obj_t BgL_arg1476z00_1459;

											BgL_arg1474z00_1457 = CDR(BgL_oldformsz00_1442);
											{	/* Eval/expddefine.scm 201 */
												obj_t BgL_arg1479z00_1460;

												{	/* Eval/expddefine.scm 201 */
													obj_t BgL_pairz00_2787;

													BgL_pairz00_2787 = CDR(((obj_t) BgL_formz00_1448));
													BgL_arg1479z00_1460 = CAR(BgL_pairz00_2787);
												}
												BgL_arg1475z00_1458 =
													MAKE_YOUNG_PAIR(BgL_arg1479z00_1460,
													BgL_varsz00_1444);
											}
											{	/* Eval/expddefine.scm 202 */
												obj_t BgL_arg1480z00_1461;

												{	/* Eval/expddefine.scm 202 */
													obj_t BgL_arg1481z00_1462;

													{	/* Eval/expddefine.scm 202 */
														obj_t BgL_arg1482z00_1463;
														obj_t BgL_arg1483z00_1464;

														{	/* Eval/expddefine.scm 202 */
															obj_t BgL_arg1484z00_1465;

															{	/* Eval/expddefine.scm 202 */
																obj_t BgL_arg1486z00_1466;

																{	/* Eval/expddefine.scm 202 */
																	obj_t BgL_pairz00_2791;

																	BgL_pairz00_2791 =
																		CDR(((obj_t) BgL_formz00_1448));
																	BgL_arg1486z00_1466 = CAR(BgL_pairz00_2791);
																}
																BgL_arg1484z00_1465 =
																	BGl_parsezd2formalzd2identz00zz__evutilsz00
																	(BgL_arg1486z00_1466, BgL_locz00_1449);
															}
															BgL_arg1482z00_1463 =
																CAR(((obj_t) BgL_arg1484z00_1465));
														}
														{	/* Eval/expddefine.scm 203 */
															obj_t BgL_arg1487z00_1467;

															{	/* Eval/expddefine.scm 203 */
																obj_t BgL_pairz00_2798;

																{	/* Eval/expddefine.scm 203 */
																	obj_t BgL_pairz00_2797;

																	BgL_pairz00_2797 =
																		CDR(((obj_t) BgL_formz00_1448));
																	BgL_pairz00_2798 = CDR(BgL_pairz00_2797);
																}
																BgL_arg1487z00_1467 = CAR(BgL_pairz00_2798);
															}
															BgL_arg1483z00_1464 =
																MAKE_YOUNG_PAIR(BgL_arg1487z00_1467, BNIL);
														}
														BgL_arg1481z00_1462 =
															MAKE_YOUNG_PAIR(BgL_arg1482z00_1463,
															BgL_arg1483z00_1464);
													}
													BgL_arg1480z00_1461 =
														MAKE_YOUNG_PAIR
														(BGl_symbol2423z00zz__expander_definez00,
														BgL_arg1481z00_1462);
												}
												BgL_arg1476z00_1459 =
													MAKE_YOUNG_PAIR(BgL_arg1480z00_1461,
													BgL_setsz00_1445);
											}
											{
												obj_t BgL_setsz00_3860;
												obj_t BgL_varsz00_3859;
												obj_t BgL_oldformsz00_3858;

												BgL_oldformsz00_3858 = BgL_arg1474z00_1457;
												BgL_varsz00_3859 = BgL_arg1475z00_1458;
												BgL_setsz00_3860 = BgL_arg1476z00_1459;
												BgL_setsz00_1445 = BgL_setsz00_3860;
												BgL_varsz00_1444 = BgL_varsz00_3859;
												BgL_oldformsz00_1442 = BgL_oldformsz00_3858;
												goto BgL_zc3z04anonymousza31465ze3z87_1446;
											}
										}
								}
							}
						}
					}
				else
					{	/* Eval/expddefine.scm 190 */
						if (NULLP(BgL_varsz00_1444))
							{	/* Eval/expddefine.scm 205 */
								BGL_TAIL return
									BGl_expandzd2prognzd2zz__prognz00(BgL_bodyz00_14);
							}
						else
							{	/* Eval/expddefine.scm 206 */
								obj_t BgL_arg1490z00_1473;

								{	/* Eval/expddefine.scm 206 */
									obj_t BgL_arg1491z00_1474;
									obj_t BgL_arg1492z00_1475;

									{	/* Eval/expddefine.scm 206 */
										obj_t BgL_head1096z00_1478;

										BgL_head1096z00_1478 = MAKE_YOUNG_PAIR(BNIL, BNIL);
										{
											obj_t BgL_l1094z00_1480;
											obj_t BgL_tail1097z00_1481;

											BgL_l1094z00_1480 = BgL_varsz00_1444;
											BgL_tail1097z00_1481 = BgL_head1096z00_1478;
										BgL_zc3z04anonymousza31494ze3z87_1482:
											if (NULLP(BgL_l1094z00_1480))
												{	/* Eval/expddefine.scm 206 */
													BgL_arg1491z00_1474 = CDR(BgL_head1096z00_1478);
												}
											else
												{	/* Eval/expddefine.scm 206 */
													obj_t BgL_newtail1098z00_1484;

													{	/* Eval/expddefine.scm 206 */
														obj_t BgL_arg1498z00_1486;

														{	/* Eval/expddefine.scm 206 */
															obj_t BgL_vz00_1487;

															BgL_vz00_1487 = CAR(((obj_t) BgL_l1094z00_1480));
															{	/* Eval/expddefine.scm 206 */
																obj_t BgL_list1499z00_1488;

																{	/* Eval/expddefine.scm 206 */
																	obj_t BgL_arg1500z00_1489;

																	BgL_arg1500z00_1489 =
																		MAKE_YOUNG_PAIR(BUNSPEC, BNIL);
																	BgL_list1499z00_1488 =
																		MAKE_YOUNG_PAIR(BgL_vz00_1487,
																		BgL_arg1500z00_1489);
																}
																BgL_arg1498z00_1486 = BgL_list1499z00_1488;
															}
														}
														BgL_newtail1098z00_1484 =
															MAKE_YOUNG_PAIR(BgL_arg1498z00_1486, BNIL);
													}
													SET_CDR(BgL_tail1097z00_1481,
														BgL_newtail1098z00_1484);
													{	/* Eval/expddefine.scm 206 */
														obj_t BgL_arg1497z00_1485;

														BgL_arg1497z00_1485 =
															CDR(((obj_t) BgL_l1094z00_1480));
														{
															obj_t BgL_tail1097z00_3877;
															obj_t BgL_l1094z00_3876;

															BgL_l1094z00_3876 = BgL_arg1497z00_1485;
															BgL_tail1097z00_3877 = BgL_newtail1098z00_1484;
															BgL_tail1097z00_1481 = BgL_tail1097z00_3877;
															BgL_l1094z00_1480 = BgL_l1094z00_3876;
															goto BgL_zc3z04anonymousza31494ze3z87_1482;
														}
													}
												}
										}
									}
									BgL_arg1492z00_1475 =
										MAKE_YOUNG_PAIR(BGl_expandzd2prognzd2zz__prognz00
										(BGl_appendzd221011zd2zz__expander_definez00(bgl_reverse
												(BgL_setsz00_1445), bgl_reverse(BgL_newformsz00_1443))),
										BNIL);
									BgL_arg1490z00_1473 =
										MAKE_YOUNG_PAIR(BgL_arg1491z00_1474, BgL_arg1492z00_1475);
								}
								return
									MAKE_YOUNG_PAIR(BGl_symbol2425z00zz__expander_definez00,
									BgL_arg1490z00_1473);
							}
					}
			}
		}

	}



/* expand-eval-define-inline */
	BGL_EXPORTED_DEF obj_t
		BGl_expandzd2evalzd2definezd2inlinezd2zz__expander_definez00(obj_t
		BgL_xz00_15, obj_t BgL_ez00_16)
	{
		{	/* Eval/expddefine.scm 213 */
			{
				obj_t BgL_funz00_1496;
				obj_t BgL_formalsz00_1497;
				obj_t BgL_bodyz00_1498;

				if (PAIRP(BgL_xz00_15))
					{	/* Eval/expddefine.scm 214 */
						obj_t BgL_cdrzd2421zd2_1503;

						BgL_cdrzd2421zd2_1503 = CDR(((obj_t) BgL_xz00_15));
						if (PAIRP(BgL_cdrzd2421zd2_1503))
							{	/* Eval/expddefine.scm 214 */
								obj_t BgL_carzd2425zd2_1505;
								obj_t BgL_cdrzd2426zd2_1506;

								BgL_carzd2425zd2_1505 = CAR(BgL_cdrzd2421zd2_1503);
								BgL_cdrzd2426zd2_1506 = CDR(BgL_cdrzd2421zd2_1503);
								if (PAIRP(BgL_carzd2425zd2_1505))
									{	/* Eval/expddefine.scm 214 */
										if (NULLP(BgL_cdrzd2426zd2_1506))
											{	/* Eval/expddefine.scm 214 */
												return
													BGl_expandzd2errorzd2zz__expandz00
													(BGl_string2427z00zz__expander_definez00,
													BGl_string2417z00zz__expander_definez00, BgL_xz00_15);
											}
										else
											{	/* Eval/expddefine.scm 214 */
												BgL_funz00_1496 = CAR(BgL_carzd2425zd2_1505);
												BgL_formalsz00_1497 = CDR(BgL_carzd2425zd2_1505);
												BgL_bodyz00_1498 = BgL_cdrzd2426zd2_1506;
												{	/* Eval/expddefine.scm 216 */
													obj_t BgL_locz00_1511;

													BgL_locz00_1511 =
														BGl_getzd2sourcezd2locationz00zz__readerz00
														(BgL_xz00_15);
													{	/* Eval/expddefine.scm 216 */
														obj_t BgL_resz00_1512;

														{	/* Eval/expddefine.scm 217 */
															obj_t BgL_arg1513z00_1513;

															{	/* Eval/expddefine.scm 217 */
																obj_t BgL_arg1514z00_1514;
																obj_t BgL_arg1515z00_1515;

																{	/* Eval/expddefine.scm 217 */
																	obj_t BgL_arg1516z00_1516;

																	BgL_arg1516z00_1516 =
																		BGl_parsezd2formalzd2identz00zz__evutilsz00
																		(BgL_funz00_1496, BgL_locz00_1511);
																	BgL_arg1514z00_1514 =
																		CAR(((obj_t) BgL_arg1516z00_1516));
																}
																{	/* Eval/expddefine.scm 218 */
																	obj_t BgL_arg1517z00_1517;

																	{	/* Eval/expddefine.scm 218 */
																		obj_t BgL_arg1520z00_1518;

																		{	/* Eval/expddefine.scm 218 */
																			obj_t BgL_arg1521z00_1519;

																			{	/* Eval/expddefine.scm 218 */
																				obj_t BgL_arg1522z00_1520;
																				obj_t BgL_arg1523z00_1521;

																				BgL_arg1522z00_1520 =
																					BGl_loopze70ze7zz__expander_definez00
																					(BgL_ez00_16, BgL_formalsz00_1497);
																				BgL_arg1523z00_1521 =
																					MAKE_YOUNG_PAIR
																					(BGl_expandzd2prognzd2zz__prognz00
																					(BgL_bodyz00_1498), BNIL);
																				BgL_arg1521z00_1519 =
																					MAKE_YOUNG_PAIR(BgL_arg1522z00_1520,
																					BgL_arg1523z00_1521);
																			}
																			BgL_arg1520z00_1518 =
																				MAKE_YOUNG_PAIR
																				(BGl_symbol2418z00zz__expander_definez00,
																				BgL_arg1521z00_1519);
																		}
																		BgL_arg1517z00_1517 =
																			BGL_PROCEDURE_CALL2(BgL_ez00_16,
																			BgL_arg1520z00_1518, BgL_ez00_16);
																	}
																	BgL_arg1515z00_1515 =
																		MAKE_YOUNG_PAIR(BgL_arg1517z00_1517, BNIL);
																}
																BgL_arg1513z00_1513 =
																	MAKE_YOUNG_PAIR(BgL_arg1514z00_1514,
																	BgL_arg1515z00_1515);
															}
															BgL_resz00_1512 =
																MAKE_YOUNG_PAIR
																(BGl_symbol2421z00zz__expander_definez00,
																BgL_arg1513z00_1513);
														}
														{	/* Eval/expddefine.scm 217 */

															return
																BGl_evepairifyz00zz__prognz00(BgL_resz00_1512,
																BgL_xz00_15);
														}
													}
												}
											}
									}
								else
									{	/* Eval/expddefine.scm 214 */
										return
											BGl_expandzd2errorzd2zz__expandz00
											(BGl_string2427z00zz__expander_definez00,
											BGl_string2417z00zz__expander_definez00, BgL_xz00_15);
									}
							}
						else
							{	/* Eval/expddefine.scm 214 */
								return
									BGl_expandzd2errorzd2zz__expandz00
									(BGl_string2427z00zz__expander_definez00,
									BGl_string2417z00zz__expander_definez00, BgL_xz00_15);
							}
					}
				else
					{	/* Eval/expddefine.scm 214 */
						return
							BGl_expandzd2errorzd2zz__expandz00
							(BGl_string2427z00zz__expander_definez00,
							BGl_string2417z00zz__expander_definez00, BgL_xz00_15);
					}
			}
		}

	}



/* &expand-eval-define-inline */
	obj_t BGl_z62expandzd2evalzd2definezd2inlinezb0zz__expander_definez00(obj_t
		BgL_envz00_3158, obj_t BgL_xz00_3159, obj_t BgL_ez00_3160)
	{
		{	/* Eval/expddefine.scm 213 */
			{	/* Eval/expddefine.scm 214 */
				obj_t BgL_auxz00_3921;

				if (PROCEDUREP(BgL_ez00_3160))
					{	/* Eval/expddefine.scm 214 */
						BgL_auxz00_3921 = BgL_ez00_3160;
					}
				else
					{
						obj_t BgL_auxz00_3924;

						BgL_auxz00_3924 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string2410z00zz__expander_definez00, BINT(7844L),
							BGl_string2428z00zz__expander_definez00,
							BGl_string2412z00zz__expander_definez00, BgL_ez00_3160);
						FAILURE(BgL_auxz00_3924, BFALSE, BFALSE);
					}
				return
					BGl_expandzd2evalzd2definezd2inlinezd2zz__expander_definez00
					(BgL_xz00_3159, BgL_auxz00_3921);
			}
		}

	}



/* map+ */
	obj_t BGl_mapzb2zb2zz__expander_definez00(obj_t BgL_fz00_17,
		obj_t BgL_lstz00_18)
	{
		{	/* Eval/expddefine.scm 227 */
			if (NULLP(BgL_lstz00_18))
				{	/* Eval/expddefine.scm 229 */
					return BNIL;
				}
			else
				{	/* Eval/expddefine.scm 229 */
					if (PAIRP(BgL_lstz00_18))
						{	/* Eval/expddefine.scm 234 */
							obj_t BgL_arg1527z00_1525;
							obj_t BgL_arg1528z00_1526;

							{	/* Eval/expddefine.scm 234 */
								obj_t BgL_arg1532z00_1527;

								BgL_arg1532z00_1527 = CAR(BgL_lstz00_18);
								BgL_arg1527z00_1525 =
									((obj_t(*)(obj_t,
											obj_t)) PROCEDURE_L_ENTRY(BgL_fz00_17)) (BgL_fz00_17,
									BgL_arg1532z00_1527);
							}
							BgL_arg1528z00_1526 =
								BGl_mapzb2zb2zz__expander_definez00(BgL_fz00_17,
								CDR(BgL_lstz00_18));
							return MAKE_YOUNG_PAIR(BgL_arg1527z00_1525, BgL_arg1528z00_1526);
						}
					else
						{	/* Eval/expddefine.scm 231 */
							return
								((obj_t(*)(obj_t,
										obj_t)) PROCEDURE_L_ENTRY(BgL_fz00_17)) (BgL_fz00_17,
								BgL_lstz00_18);
						}
				}
		}

	}



/* all? */
	bool_t BGl_allzf3zf3zz__expander_definez00(obj_t BgL_predz00_19,
		obj_t BgL_pz00_20)
	{
		{	/* Eval/expddefine.scm 239 */
			{
				obj_t BgL_pz00_1530;

				BgL_pz00_1530 = BgL_pz00_20;
			BgL_zc3z04anonymousza31534ze3z87_1531:
				if (NULLP(BgL_pz00_1530))
					{	/* Eval/expddefine.scm 242 */
						return ((bool_t) 1);
					}
				else
					{	/* Eval/expddefine.scm 242 */
						if (PAIRP(BgL_pz00_1530))
							{	/* Eval/expddefine.scm 243 */
								bool_t BgL_test2595z00_3949;

								{	/* Eval/expddefine.scm 243 */
									obj_t BgL_arg1541z00_1537;

									BgL_arg1541z00_1537 = CAR(BgL_pz00_1530);
									BgL_test2595z00_3949 =
										CBOOL(BGL_PROCEDURE_CALL1(BgL_predz00_19,
											BgL_arg1541z00_1537));
								}
								if (BgL_test2595z00_3949)
									{
										obj_t BgL_pz00_3956;

										BgL_pz00_3956 = CDR(BgL_pz00_1530);
										BgL_pz00_1530 = BgL_pz00_3956;
										goto BgL_zc3z04anonymousza31534ze3z87_1531;
									}
								else
									{	/* Eval/expddefine.scm 243 */
										return ((bool_t) 0);
									}
							}
						else
							{	/* Eval/expddefine.scm 243 */
								return
									CBOOL(BGL_PROCEDURE_CALL1(BgL_predz00_19, BgL_pz00_1530));
							}
					}
			}
		}

	}



/* expand-eval-define-generic */
	BGL_EXPORTED_DEF obj_t
		BGl_expandzd2evalzd2definezd2genericzd2zz__expander_definez00(obj_t
		BgL_xz00_21, obj_t BgL_ez00_22)
	{
		{	/* Eval/expddefine.scm 250 */
			{
				obj_t BgL_funz00_1540;
				obj_t BgL_f0z00_1541;
				obj_t BgL_formalsz00_1542;
				obj_t BgL_bodyz00_1543;

				if (PAIRP(BgL_xz00_21))
					{	/* Eval/expddefine.scm 251 */
						obj_t BgL_cdrzd2447zd2_1548;

						BgL_cdrzd2447zd2_1548 = CDR(((obj_t) BgL_xz00_21));
						if (PAIRP(BgL_cdrzd2447zd2_1548))
							{	/* Eval/expddefine.scm 251 */
								obj_t BgL_carzd2452zd2_1550;

								BgL_carzd2452zd2_1550 = CAR(BgL_cdrzd2447zd2_1548);
								if (PAIRP(BgL_carzd2452zd2_1550))
									{	/* Eval/expddefine.scm 251 */
										obj_t BgL_cdrzd2458zd2_1552;

										BgL_cdrzd2458zd2_1552 = CDR(BgL_carzd2452zd2_1550);
										if (PAIRP(BgL_cdrzd2458zd2_1552))
											{	/* Eval/expddefine.scm 251 */
												BgL_funz00_1540 = CAR(BgL_carzd2452zd2_1550);
												BgL_f0z00_1541 = CAR(BgL_cdrzd2458zd2_1552);
												BgL_formalsz00_1542 = CDR(BgL_cdrzd2458zd2_1552);
												BgL_bodyz00_1543 = CDR(BgL_cdrzd2447zd2_1548);
												{	/* Eval/expddefine.scm 253 */
													obj_t BgL_locz00_1558;

													BgL_locz00_1558 =
														BGl_getzd2sourcezd2locationz00zz__readerz00
														(BgL_xz00_21);
													{	/* Eval/expddefine.scm 253 */
														obj_t BgL_pfz00_1559;

														BgL_pfz00_1559 =
															BGl_parsezd2formalzd2identz00zz__evutilsz00
															(BgL_funz00_1540, BgL_locz00_1558);
														{	/* Eval/expddefine.scm 254 */
															obj_t BgL_idz00_1560;

															BgL_idz00_1560 = CAR(((obj_t) BgL_pfz00_1559));
															{	/* Eval/expddefine.scm 255 */
																obj_t BgL_paz00_1561;

																{	/* Eval/expddefine.scm 256 */
																	obj_t BgL_arg1818z00_1818;

																	BgL_arg1818z00_1818 =
																		MAKE_YOUNG_PAIR(BgL_f0z00_1541,
																		BgL_formalsz00_1542);
																	{	/* Eval/expddefine.scm 256 */
																		obj_t BgL_zc3z04anonymousza31819ze3z87_3163;

																		{
																			int BgL_tmpz00_3980;

																			BgL_tmpz00_3980 = (int) (1L);
																			BgL_zc3z04anonymousza31819ze3z87_3163 =
																				MAKE_L_PROCEDURE
																				(BGl_z62zc3z04anonymousza31819ze3ze5zz__expander_definez00,
																				BgL_tmpz00_3980);
																		}
																		PROCEDURE_L_SET
																			(BgL_zc3z04anonymousza31819ze3z87_3163,
																			(int) (0L), BgL_locz00_1558);
																		BgL_paz00_1561 =
																			BGl_mapzb2zb2zz__expander_definez00
																			(BgL_zc3z04anonymousza31819ze3z87_3163,
																			BgL_arg1818z00_1818);
																}}
																{	/* Eval/expddefine.scm 256 */
																	obj_t BgL_defz00_1562;

																	BgL_defz00_1562 =
																		BGl_gensymz00zz__r4_symbols_6_4z00
																		(BgL_idz00_1560);
																	{	/* Eval/expddefine.scm 258 */
																		obj_t BgL_epaz00_1563;

																		BgL_epaz00_1563 =
																			BGl_loopze70ze7zz__expander_definez00
																			(BgL_ez00_22, BgL_paz00_1561);
																		{	/* Eval/expddefine.scm 259 */
																			bool_t BgL_vaz00_1564;

																			if (NULLP(BgL_formalsz00_1542))
																				{	/* Eval/expddefine.scm 260 */
																					BgL_vaz00_1564 = ((bool_t) 0);
																				}
																			else
																				{	/* Eval/expddefine.scm 261 */
																					bool_t BgL__ortest_1044z00_1810;

																					if (PAIRP(BgL_formalsz00_1542))
																						{	/* Eval/expddefine.scm 261 */
																							BgL__ortest_1044z00_1810 =
																								((bool_t) 0);
																						}
																					else
																						{	/* Eval/expddefine.scm 261 */
																							BgL__ortest_1044z00_1810 =
																								((bool_t) 1);
																						}
																					if (BgL__ortest_1044z00_1810)
																						{	/* Eval/expddefine.scm 261 */
																							BgL_vaz00_1564 =
																								BgL__ortest_1044z00_1810;
																						}
																					else
																						{	/* Eval/expddefine.scm 261 */
																							if (NULLP(CDR
																									(BGl_lastzd2pairzd2zz__r4_pairs_and_lists_6_3z00
																										(BgL_formalsz00_1542))))
																								{	/* Eval/expddefine.scm 262 */
																									BgL_vaz00_1564 = ((bool_t) 0);
																								}
																							else
																								{	/* Eval/expddefine.scm 262 */
																									BgL_vaz00_1564 = ((bool_t) 1);
																								}
																						}
																				}
																			{	/* Eval/expddefine.scm 260 */
																				obj_t BgL_metz00_1565;

																				BgL_metz00_1565 =
																					BGl_gensymz00zz__r4_symbols_6_4z00
																					(BgL_idz00_1560);
																				{	/* Eval/expddefine.scm 263 */
																					obj_t BgL_metzd2bodyzd2_1566;

																					BgL_metzd2bodyzd2_1566 =
																						MAKE_YOUNG_PAIR(BgL_metz00_1565,
																						BGl_mapzb2zb2zz__expander_definez00
																						(BGl_proc2429z00zz__expander_definez00,
																							BgL_epaz00_1563));
																					{	/* Eval/expddefine.scm 264 */
																						obj_t BgL_procz00_1567;

																						{	/* Eval/expddefine.scm 268 */
																							bool_t BgL_test2604z00_4000;

																							{	/* Eval/expddefine.scm 268 */
																								obj_t BgL_arg1804z00_1801;

																								{	/* Eval/expddefine.scm 268 */
																									obj_t BgL_pairz00_2822;

																									{	/* Eval/expddefine.scm 268 */
																										obj_t BgL_pairz00_2821;

																										BgL_pairz00_2821 =
																											CDR(
																											((obj_t) BgL_xz00_21));
																										BgL_pairz00_2822 =
																											CAR(BgL_pairz00_2821);
																									}
																									BgL_arg1804z00_1801 =
																										CDR(BgL_pairz00_2822);
																								}
																								BgL_test2604z00_4000 =
																									BGl_allzf3zf3zz__expander_definez00
																									(BGl_symbolzf3zd2envz21zz__r4_symbols_6_4z00,
																									BgL_arg1804z00_1801);
																							}
																							if (BgL_test2604z00_4000)
																								{	/* Eval/expddefine.scm 269 */
																									obj_t BgL_defzd2bodyzd2_1602;

																									{	/* Eval/expddefine.scm 269 */
																										obj_t BgL_arg1647z00_1640;
																										obj_t BgL_arg1649z00_1641;

																										{	/* Eval/expddefine.scm 269 */
																											obj_t BgL_arg1651z00_1642;

																											BgL_arg1651z00_1642 =
																												MAKE_YOUNG_PAIR
																												(BgL_idz00_1560, BNIL);
																											BgL_arg1647z00_1640 =
																												MAKE_YOUNG_PAIR
																												(BGl_symbol2430z00zz__expander_definez00,
																												BgL_arg1651z00_1642);
																										}
																										BgL_arg1649z00_1641 =
																											BGl_mapzb2zb2zz__expander_definez00
																											(BGl_proc2432z00zz__expander_definez00,
																											BgL_epaz00_1563);
																										BgL_defzd2bodyzd2_1602 =
																											MAKE_YOUNG_PAIR
																											(BgL_arg1647z00_1640,
																											BgL_arg1649z00_1641);
																									}
																									{	/* Eval/expddefine.scm 273 */
																										obj_t BgL_arg1604z00_1603;

																										{	/* Eval/expddefine.scm 273 */
																											obj_t BgL_arg1605z00_1604;
																											obj_t BgL_arg1608z00_1605;

																											BgL_arg1605z00_1604 =
																												MAKE_YOUNG_PAIR
																												(BgL_f0z00_1541,
																												BgL_formalsz00_1542);
																											{	/* Eval/expddefine.scm 275 */
																												obj_t
																													BgL_arg1609z00_1606;
																												{	/* Eval/expddefine.scm 275 */
																													obj_t
																														BgL_arg1610z00_1607;
																													{	/* Eval/expddefine.scm 275 */
																														obj_t
																															BgL_arg1612z00_1608;
																														obj_t
																															BgL_arg1613z00_1609;
																														{	/* Eval/expddefine.scm 275 */
																															obj_t
																																BgL_arg1614z00_1610;
																															{	/* Eval/expddefine.scm 275 */
																																obj_t
																																	BgL_arg1615z00_1611;
																																{	/* Eval/expddefine.scm 275 */
																																	obj_t
																																		BgL_arg1616z00_1612;
																																	{	/* Eval/expddefine.scm 275 */
																																		obj_t
																																			BgL_arg1617z00_1613;
																																		{	/* Eval/expddefine.scm 275 */
																																			obj_t
																																				BgL_arg1619z00_1614;
																																			{	/* Eval/expddefine.scm 275 */
																																				obj_t
																																					BgL_arg1620z00_1615;
																																				if (BgL_vaz00_1564)
																																					{	/* Eval/expddefine.scm 275 */
																																						BgL_arg1620z00_1615
																																							=
																																							MAKE_YOUNG_PAIR
																																							(BGl_symbol2433z00zz__expander_definez00,
																																							BgL_defzd2bodyzd2_1602);
																																					}
																																				else
																																					{	/* Eval/expddefine.scm 275 */
																																						BgL_arg1620z00_1615
																																							=
																																							BgL_defzd2bodyzd2_1602;
																																					}
																																				BgL_arg1619z00_1614
																																					=
																																					MAKE_YOUNG_PAIR
																																					(BgL_arg1620z00_1615,
																																					BNIL);
																																			}
																																			BgL_arg1617z00_1613
																																				=
																																				MAKE_YOUNG_PAIR
																																				(BNIL,
																																				BgL_arg1619z00_1614);
																																		}
																																		BgL_arg1616z00_1612
																																			=
																																			MAKE_YOUNG_PAIR
																																			(BGl_symbol2418z00zz__expander_definez00,
																																			BgL_arg1617z00_1613);
																																	}
																																	BgL_arg1615z00_1611
																																		=
																																		MAKE_YOUNG_PAIR
																																		(BgL_arg1616z00_1612,
																																		BNIL);
																																}
																																BgL_arg1614z00_1610
																																	=
																																	MAKE_YOUNG_PAIR
																																	(BgL_defz00_1562,
																																	BgL_arg1615z00_1611);
																															}
																															BgL_arg1612z00_1608
																																=
																																MAKE_YOUNG_PAIR
																																(BgL_arg1614z00_1610,
																																BNIL);
																														}
																														{	/* Eval/expddefine.scm 278 */
																															obj_t
																																BgL_arg1621z00_1616;
																															{	/* Eval/expddefine.scm 278 */
																																obj_t
																																	BgL_arg1622z00_1617;
																																{	/* Eval/expddefine.scm 278 */
																																	obj_t
																																		BgL_arg1623z00_1618;
																																	obj_t
																																		BgL_arg1624z00_1619;
																																	{	/* Eval/expddefine.scm 278 */
																																		obj_t
																																			BgL_arg1625z00_1620;
																																		{	/* Eval/expddefine.scm 278 */
																																			obj_t
																																				BgL_arg1626z00_1621;
																																			{	/* Eval/expddefine.scm 278 */
																																				obj_t
																																					BgL_arg1627z00_1622;
																																				{	/* Eval/expddefine.scm 278 */
																																					obj_t
																																						BgL_arg1628z00_1623;
																																					{	/* Eval/expddefine.scm 278 */
																																						obj_t
																																							BgL_arg1629z00_1624;
																																						obj_t
																																							BgL_arg1630z00_1625;
																																						{	/* Eval/expddefine.scm 278 */
																																							obj_t
																																								BgL_arg1631z00_1626;
																																							{	/* Eval/expddefine.scm 278 */
																																								obj_t
																																									BgL_arg1632z00_1627;
																																								{	/* Eval/expddefine.scm 278 */
																																									obj_t
																																										BgL_pairz00_2828;
																																									BgL_pairz00_2828
																																										=
																																										CAR
																																										(
																																										((obj_t) BgL_paz00_1561));
																																									BgL_arg1632z00_1627
																																										=
																																										CAR
																																										(BgL_pairz00_2828);
																																								}
																																								BgL_arg1631z00_1626
																																									=
																																									MAKE_YOUNG_PAIR
																																									(BgL_arg1632z00_1627,
																																									BNIL);
																																							}
																																							BgL_arg1629z00_1624
																																								=
																																								MAKE_YOUNG_PAIR
																																								(BGl_symbol2435z00zz__expander_definez00,
																																								BgL_arg1631z00_1626);
																																						}
																																						{	/* Eval/expddefine.scm 279 */
																																							obj_t
																																								BgL_arg1633z00_1628;
																																							{	/* Eval/expddefine.scm 279 */
																																								obj_t
																																									BgL_arg1634z00_1629;
																																								{	/* Eval/expddefine.scm 279 */
																																									obj_t
																																										BgL_arg1635z00_1630;
																																									obj_t
																																										BgL_arg1636z00_1631;
																																									{	/* Eval/expddefine.scm 279 */
																																										obj_t
																																											BgL_pairz00_2832;
																																										BgL_pairz00_2832
																																											=
																																											CAR
																																											(
																																											((obj_t) BgL_paz00_1561));
																																										BgL_arg1635z00_1630
																																											=
																																											CAR
																																											(BgL_pairz00_2832);
																																									}
																																									BgL_arg1636z00_1631
																																										=
																																										MAKE_YOUNG_PAIR
																																										(BgL_idz00_1560,
																																										BNIL);
																																									BgL_arg1634z00_1629
																																										=
																																										MAKE_YOUNG_PAIR
																																										(BgL_arg1635z00_1630,
																																										BgL_arg1636z00_1631);
																																								}
																																								BgL_arg1633z00_1628
																																									=
																																									MAKE_YOUNG_PAIR
																																									(BGl_symbol2437z00zz__expander_definez00,
																																									BgL_arg1634z00_1629);
																																							}
																																							BgL_arg1630z00_1625
																																								=
																																								MAKE_YOUNG_PAIR
																																								(BgL_arg1633z00_1628,
																																								BNIL);
																																						}
																																						BgL_arg1628z00_1623
																																							=
																																							MAKE_YOUNG_PAIR
																																							(BgL_arg1629z00_1624,
																																							BgL_arg1630z00_1625);
																																					}
																																					BgL_arg1627z00_1622
																																						=
																																						MAKE_YOUNG_PAIR
																																						(BGl_symbol2439z00zz__expander_definez00,
																																						BgL_arg1628z00_1623);
																																				}
																																				BgL_arg1626z00_1621
																																					=
																																					MAKE_YOUNG_PAIR
																																					(BgL_arg1627z00_1622,
																																					BNIL);
																																			}
																																			BgL_arg1625z00_1620
																																				=
																																				MAKE_YOUNG_PAIR
																																				(BgL_metz00_1565,
																																				BgL_arg1626z00_1621);
																																		}
																																		BgL_arg1623z00_1618
																																			=
																																			MAKE_YOUNG_PAIR
																																			(BgL_arg1625z00_1620,
																																			BNIL);
																																	}
																																	{	/* Eval/expddefine.scm 280 */
																																		obj_t
																																			BgL_arg1637z00_1632;
																																		{	/* Eval/expddefine.scm 280 */
																																			obj_t
																																				BgL_arg1639z00_1633;
																																			{	/* Eval/expddefine.scm 280 */
																																				obj_t
																																					BgL_arg1641z00_1634;
																																				obj_t
																																					BgL_arg1642z00_1635;
																																				{	/* Eval/expddefine.scm 280 */
																																					obj_t
																																						BgL_arg1643z00_1636;
																																					BgL_arg1643z00_1636
																																						=
																																						MAKE_YOUNG_PAIR
																																						(BgL_metz00_1565,
																																						BNIL);
																																					BgL_arg1641z00_1634
																																						=
																																						MAKE_YOUNG_PAIR
																																						(BGl_symbol2441z00zz__expander_definez00,
																																						BgL_arg1643z00_1636);
																																				}
																																				{	/* Eval/expddefine.scm 281 */
																																					obj_t
																																						BgL_arg1644z00_1637;
																																					obj_t
																																						BgL_arg1645z00_1638;
																																					if (BgL_vaz00_1564)
																																						{	/* Eval/expddefine.scm 281 */
																																							BgL_arg1644z00_1637
																																								=
																																								MAKE_YOUNG_PAIR
																																								(BGl_symbol2433z00zz__expander_definez00,
																																								BgL_metzd2bodyzd2_1566);
																																						}
																																					else
																																						{	/* Eval/expddefine.scm 281 */
																																							BgL_arg1644z00_1637
																																								=
																																								BgL_metzd2bodyzd2_1566;
																																						}
																																					{	/* Eval/expddefine.scm 282 */
																																						obj_t
																																							BgL_arg1646z00_1639;
																																						BgL_arg1646z00_1639
																																							=
																																							MAKE_YOUNG_PAIR
																																							(BgL_defz00_1562,
																																							BNIL);
																																						BgL_arg1645z00_1638
																																							=
																																							MAKE_YOUNG_PAIR
																																							(BgL_arg1646z00_1639,
																																							BNIL);
																																					}
																																					BgL_arg1642z00_1635
																																						=
																																						MAKE_YOUNG_PAIR
																																						(BgL_arg1644z00_1637,
																																						BgL_arg1645z00_1638);
																																				}
																																				BgL_arg1639z00_1633
																																					=
																																					MAKE_YOUNG_PAIR
																																					(BgL_arg1641z00_1634,
																																					BgL_arg1642z00_1635);
																																			}
																																			BgL_arg1637z00_1632
																																				=
																																				MAKE_YOUNG_PAIR
																																				(BGl_symbol2443z00zz__expander_definez00,
																																				BgL_arg1639z00_1633);
																																		}
																																		BgL_arg1624z00_1619
																																			=
																																			MAKE_YOUNG_PAIR
																																			(BgL_arg1637z00_1632,
																																			BNIL);
																																	}
																																	BgL_arg1622z00_1617
																																		=
																																		MAKE_YOUNG_PAIR
																																		(BgL_arg1623z00_1618,
																																		BgL_arg1624z00_1619);
																																}
																																BgL_arg1621z00_1616
																																	=
																																	MAKE_YOUNG_PAIR
																																	(BGl_symbol2425z00zz__expander_definez00,
																																	BgL_arg1622z00_1617);
																															}
																															BgL_arg1613z00_1609
																																=
																																MAKE_YOUNG_PAIR
																																(BgL_arg1621z00_1616,
																																BNIL);
																														}
																														BgL_arg1610z00_1607
																															=
																															MAKE_YOUNG_PAIR
																															(BgL_arg1612z00_1608,
																															BgL_arg1613z00_1609);
																													}
																													BgL_arg1609z00_1606 =
																														MAKE_YOUNG_PAIR
																														(BGl_symbol2425z00zz__expander_definez00,
																														BgL_arg1610z00_1607);
																												}
																												BgL_arg1608z00_1605 =
																													MAKE_YOUNG_PAIR
																													(BgL_arg1609z00_1606,
																													BNIL);
																											}
																											BgL_arg1604z00_1603 =
																												MAKE_YOUNG_PAIR
																												(BgL_arg1605z00_1604,
																												BgL_arg1608z00_1605);
																										}
																										BgL_procz00_1567 =
																											MAKE_YOUNG_PAIR
																											(BGl_symbol2418z00zz__expander_definez00,
																											BgL_arg1604z00_1603);
																									}
																								}
																							else
																								{	/* Eval/expddefine.scm 283 */
																									bool_t BgL_test2607z00_4054;

																									if (BGl_listzf3zf3zz__r4_pairs_and_lists_6_3z00(BgL_formalsz00_1542))
																										{	/* Eval/expddefine.scm 283 */
																											BgL_test2607z00_4054 =
																												CBOOL
																												(BGl_memqz00zz__r4_pairs_and_lists_6_3z00
																												((BOPTIONAL),
																													BgL_formalsz00_1542));
																										}
																									else
																										{	/* Eval/expddefine.scm 283 */
																											BgL_test2607z00_4054 =
																												((bool_t) 0);
																										}
																									if (BgL_test2607z00_4054)
																										{	/* Eval/expddefine.scm 284 */
																											bool_t
																												BgL_test2609z00_4059;
																											{	/* Eval/expddefine.scm 284 */
																												obj_t
																													BgL_arg1730z00_1718;
																												{	/* Eval/expddefine.scm 284 */
																													obj_t
																														BgL_arg1731z00_1719;
																													{	/* Eval/expddefine.scm 284 */
																														obj_t
																															BgL_hook1103z00_1720;
																														BgL_hook1103z00_1720
																															=
																															MAKE_YOUNG_PAIR
																															(BFALSE, BNIL);
																														{
																															obj_t
																																BgL_l1100z00_1722;
																															obj_t
																																BgL_h1101z00_1723;
																															BgL_l1100z00_1722
																																=
																																BgL_formalsz00_1542;
																															BgL_h1101z00_1723
																																=
																																BgL_hook1103z00_1720;
																														BgL_zc3z04anonymousza31732ze3z87_1724:
																															if (NULLP
																																(BgL_l1100z00_1722))
																																{	/* Eval/expddefine.scm 284 */
																																	BgL_arg1731z00_1719
																																		=
																																		CDR
																																		(BgL_hook1103z00_1720);
																																}
																															else
																																{	/* Eval/expddefine.scm 284 */
																																	bool_t
																																		BgL_test2611z00_4064;
																																	{	/* Eval/expddefine.scm 284 */
																																		obj_t
																																			BgL_arg1739z00_1731;
																																		BgL_arg1739z00_1731
																																			=
																																			CAR((
																																				(obj_t)
																																				BgL_l1100z00_1722));
																																		BgL_test2611z00_4064
																																			=
																																			BGl_dssslzd2namedzd2constantzf3zf3zz__dssslz00
																																			(BgL_arg1739z00_1731);
																																	}
																																	if (BgL_test2611z00_4064)
																																		{	/* Eval/expddefine.scm 284 */
																																			obj_t
																																				BgL_nh1102z00_1727;
																																			{	/* Eval/expddefine.scm 284 */
																																				obj_t
																																					BgL_arg1734z00_1729;
																																				BgL_arg1734z00_1729
																																					=
																																					CAR((
																																						(obj_t)
																																						BgL_l1100z00_1722));
																																				BgL_nh1102z00_1727
																																					=
																																					MAKE_YOUNG_PAIR
																																					(BgL_arg1734z00_1729,
																																					BNIL);
																																			}
																																			SET_CDR
																																				(BgL_h1101z00_1723,
																																				BgL_nh1102z00_1727);
																																			{	/* Eval/expddefine.scm 284 */
																																				obj_t
																																					BgL_arg1733z00_1728;
																																				BgL_arg1733z00_1728
																																					=
																																					CDR((
																																						(obj_t)
																																						BgL_l1100z00_1722));
																																				{
																																					obj_t
																																						BgL_h1101z00_4075;
																																					obj_t
																																						BgL_l1100z00_4074;
																																					BgL_l1100z00_4074
																																						=
																																						BgL_arg1733z00_1728;
																																					BgL_h1101z00_4075
																																						=
																																						BgL_nh1102z00_1727;
																																					BgL_h1101z00_1723
																																						=
																																						BgL_h1101z00_4075;
																																					BgL_l1100z00_1722
																																						=
																																						BgL_l1100z00_4074;
																																					goto
																																						BgL_zc3z04anonymousza31732ze3z87_1724;
																																				}
																																			}
																																		}
																																	else
																																		{	/* Eval/expddefine.scm 284 */
																																			obj_t
																																				BgL_arg1735z00_1730;
																																			BgL_arg1735z00_1730
																																				=
																																				CDR((
																																					(obj_t)
																																					BgL_l1100z00_1722));
																																			{
																																				obj_t
																																					BgL_l1100z00_4078;
																																				BgL_l1100z00_4078
																																					=
																																					BgL_arg1735z00_1730;
																																				BgL_l1100z00_1722
																																					=
																																					BgL_l1100z00_4078;
																																				goto
																																					BgL_zc3z04anonymousza31732ze3z87_1724;
																																			}
																																		}
																																}
																														}
																													}
																													BgL_arg1730z00_1718 =
																														CDR(
																														((obj_t)
																															BgL_arg1731z00_1719));
																												}
																												BgL_test2609z00_4059 =
																													PAIRP
																													(BgL_arg1730z00_1718);
																											}
																											if (BgL_test2609z00_4059)
																												{	/* Eval/expddefine.scm 284 */
																													BgL_procz00_1567 =
																														BGl_expandzd2errorzd2zz__expandz00
																														(BgL_funz00_1540,
																														BGl_string2445z00zz__expander_definez00,
																														BgL_xz00_21);
																												}
																											else
																												{	/* Eval/expddefine.scm 288 */
																													obj_t BgL_locz00_1667;

																													BgL_locz00_1667 =
																														BGl_getzd2sourcezd2locationz00zz__readerz00
																														(BgL_xz00_21);
																													{	/* Eval/expddefine.scm 288 */
																														obj_t
																															BgL_argsz00_1668;
																														BgL_argsz00_1668 =
																															BGl_gensymz00zz__r4_symbols_6_4z00
																															(BGl_symbol2446z00zz__expander_definez00);
																														{	/* Eval/expddefine.scm 289 */
																															obj_t
																																BgL_namesz00_1669;
																															BgL_namesz00_1669
																																=
																																BGl_dssslzd2formalszd2ze3namesze3zz__expander_definez00
																																(BgL_formalsz00_1542);
																															{	/* Eval/expddefine.scm 290 */
																																obj_t
																																	BgL_unamesz00_1670;
																																if (NULLP
																																	(BgL_namesz00_1669))
																																	{	/* Eval/expddefine.scm 291 */
																																		BgL_unamesz00_1670
																																			= BNIL;
																																	}
																																else
																																	{	/* Eval/expddefine.scm 291 */
																																		obj_t
																																			BgL_head1106z00_1706;
																																		BgL_head1106z00_1706
																																			=
																																			MAKE_YOUNG_PAIR
																																			(BNIL,
																																			BNIL);
																																		{
																																			obj_t
																																				BgL_l1104z00_1708;
																																			obj_t
																																				BgL_tail1107z00_1709;
																																			BgL_l1104z00_1708
																																				=
																																				BgL_namesz00_1669;
																																			BgL_tail1107z00_1709
																																				=
																																				BgL_head1106z00_1706;
																																		BgL_zc3z04anonymousza31725ze3z87_1710:
																																			if (NULLP
																																				(BgL_l1104z00_1708))
																																				{	/* Eval/expddefine.scm 291 */
																																					BgL_unamesz00_1670
																																						=
																																						CDR
																																						(BgL_head1106z00_1706);
																																				}
																																			else
																																				{	/* Eval/expddefine.scm 291 */
																																					obj_t
																																						BgL_newtail1108z00_1712;
																																					{	/* Eval/expddefine.scm 291 */
																																						obj_t
																																							BgL_arg1728z00_1714;
																																						{	/* Eval/expddefine.scm 291 */
																																							obj_t
																																								BgL_fz00_1715;
																																							BgL_fz00_1715
																																								=
																																								CAR
																																								(
																																								((obj_t) BgL_l1104z00_1708));
																																							{	/* Eval/expddefine.scm 291 */
																																								obj_t
																																									BgL_arg1729z00_1716;
																																								BgL_arg1729z00_1716
																																									=
																																									BGl_parsezd2formalzd2identz00zz__evutilsz00
																																									(BgL_fz00_1715,
																																									BgL_locz00_1667);
																																								BgL_arg1728z00_1714
																																									=
																																									CAR
																																									(
																																									((obj_t) BgL_arg1729z00_1716));
																																							}
																																						}
																																						BgL_newtail1108z00_1712
																																							=
																																							MAKE_YOUNG_PAIR
																																							(BgL_arg1728z00_1714,
																																							BNIL);
																																					}
																																					SET_CDR
																																						(BgL_tail1107z00_1709,
																																						BgL_newtail1108z00_1712);
																																					{	/* Eval/expddefine.scm 291 */
																																						obj_t
																																							BgL_arg1727z00_1713;
																																						BgL_arg1727z00_1713
																																							=
																																							CDR
																																							(((obj_t) BgL_l1104z00_1708));
																																						{
																																							obj_t
																																								BgL_tail1107z00_4102;
																																							obj_t
																																								BgL_l1104z00_4101;
																																							BgL_l1104z00_4101
																																								=
																																								BgL_arg1727z00_1713;
																																							BgL_tail1107z00_4102
																																								=
																																								BgL_newtail1108z00_1712;
																																							BgL_tail1107z00_1709
																																								=
																																								BgL_tail1107z00_4102;
																																							BgL_l1104z00_1708
																																								=
																																								BgL_l1104z00_4101;
																																							goto
																																								BgL_zc3z04anonymousza31725ze3z87_1710;
																																						}
																																					}
																																				}
																																		}
																																	}
																																{	/* Eval/expddefine.scm 291 */

																																	{	/* Eval/expddefine.scm 292 */
																																		obj_t
																																			BgL_arg1671z00_1671;
																																		{	/* Eval/expddefine.scm 292 */
																																			obj_t
																																				BgL_arg1672z00_1672;
																																			obj_t
																																				BgL_arg1673z00_1673;
																																			BgL_arg1672z00_1672
																																				=
																																				MAKE_YOUNG_PAIR
																																				(BgL_f0z00_1541,
																																				BgL_formalsz00_1542);
																																			{	/* Eval/expddefine.scm 293 */
																																				obj_t
																																					BgL_arg1674z00_1674;
																																				{	/* Eval/expddefine.scm 293 */
																																					obj_t
																																						BgL_arg1675z00_1675;
																																					{	/* Eval/expddefine.scm 293 */
																																						obj_t
																																							BgL_arg1681z00_1676;
																																						obj_t
																																							BgL_arg1683z00_1677;
																																						{	/* Eval/expddefine.scm 293 */
																																							obj_t
																																								BgL_arg1687z00_1678;
																																							{	/* Eval/expddefine.scm 293 */
																																								obj_t
																																									BgL_arg1689z00_1679;
																																								{	/* Eval/expddefine.scm 293 */
																																									obj_t
																																										BgL_arg1690z00_1680;
																																									{	/* Eval/expddefine.scm 293 */
																																										obj_t
																																											BgL_arg1691z00_1681;
																																										{	/* Eval/expddefine.scm 293 */
																																											obj_t
																																												BgL_arg1692z00_1682;
																																											obj_t
																																												BgL_arg1697z00_1683;
																																											{	/* Eval/expddefine.scm 293 */
																																												obj_t
																																													BgL_arg1698z00_1684;
																																												{	/* Eval/expddefine.scm 293 */
																																													obj_t
																																														BgL_arg1702z00_1685;
																																													{	/* Eval/expddefine.scm 293 */
																																														obj_t
																																															BgL_pairz00_2848;
																																														BgL_pairz00_2848
																																															=
																																															CAR
																																															(
																																															((obj_t) BgL_paz00_1561));
																																														BgL_arg1702z00_1685
																																															=
																																															CAR
																																															(BgL_pairz00_2848);
																																													}
																																													BgL_arg1698z00_1684
																																														=
																																														MAKE_YOUNG_PAIR
																																														(BgL_arg1702z00_1685,
																																														BNIL);
																																												}
																																												BgL_arg1692z00_1682
																																													=
																																													MAKE_YOUNG_PAIR
																																													(BGl_symbol2435z00zz__expander_definez00,
																																													BgL_arg1698z00_1684);
																																											}
																																											{	/* Eval/expddefine.scm 294 */
																																												obj_t
																																													BgL_arg1703z00_1686;
																																												{	/* Eval/expddefine.scm 294 */
																																													obj_t
																																														BgL_arg1705z00_1687;
																																													{	/* Eval/expddefine.scm 294 */
																																														obj_t
																																															BgL_arg1706z00_1688;
																																														obj_t
																																															BgL_arg1707z00_1689;
																																														{	/* Eval/expddefine.scm 294 */
																																															obj_t
																																																BgL_pairz00_2852;
																																															BgL_pairz00_2852
																																																=
																																																CAR
																																																(
																																																((obj_t) BgL_paz00_1561));
																																															BgL_arg1706z00_1688
																																																=
																																																CAR
																																																(BgL_pairz00_2852);
																																														}
																																														BgL_arg1707z00_1689
																																															=
																																															MAKE_YOUNG_PAIR
																																															(BgL_idz00_1560,
																																															BNIL);
																																														BgL_arg1705z00_1687
																																															=
																																															MAKE_YOUNG_PAIR
																																															(BgL_arg1706z00_1688,
																																															BgL_arg1707z00_1689);
																																													}
																																													BgL_arg1703z00_1686
																																														=
																																														MAKE_YOUNG_PAIR
																																														(BGl_symbol2437z00zz__expander_definez00,
																																														BgL_arg1705z00_1687);
																																												}
																																												BgL_arg1697z00_1683
																																													=
																																													MAKE_YOUNG_PAIR
																																													(BgL_arg1703z00_1686,
																																													BNIL);
																																											}
																																											BgL_arg1691z00_1681
																																												=
																																												MAKE_YOUNG_PAIR
																																												(BgL_arg1692z00_1682,
																																												BgL_arg1697z00_1683);
																																										}
																																										BgL_arg1690z00_1680
																																											=
																																											MAKE_YOUNG_PAIR
																																											(BGl_symbol2439z00zz__expander_definez00,
																																											BgL_arg1691z00_1681);
																																									}
																																									BgL_arg1689z00_1679
																																										=
																																										MAKE_YOUNG_PAIR
																																										(BgL_arg1690z00_1680,
																																										BNIL);
																																								}
																																								BgL_arg1687z00_1678
																																									=
																																									MAKE_YOUNG_PAIR
																																									(BgL_metz00_1565,
																																									BgL_arg1689z00_1679);
																																							}
																																							BgL_arg1681z00_1676
																																								=
																																								MAKE_YOUNG_PAIR
																																								(BgL_arg1687z00_1678,
																																								BNIL);
																																						}
																																						{	/* Eval/expddefine.scm 295 */
																																							obj_t
																																								BgL_arg1708z00_1690;
																																							{	/* Eval/expddefine.scm 295 */
																																								obj_t
																																									BgL_arg1709z00_1691;
																																								{	/* Eval/expddefine.scm 295 */
																																									obj_t
																																										BgL_arg1710z00_1692;
																																									obj_t
																																										BgL_arg1711z00_1693;
																																									{	/* Eval/expddefine.scm 295 */
																																										obj_t
																																											BgL_arg1712z00_1694;
																																										BgL_arg1712z00_1694
																																											=
																																											MAKE_YOUNG_PAIR
																																											(BgL_metz00_1565,
																																											BNIL);
																																										BgL_arg1710z00_1692
																																											=
																																											MAKE_YOUNG_PAIR
																																											(BGl_symbol2441z00zz__expander_definez00,
																																											BgL_arg1712z00_1694);
																																									}
																																									{	/* Eval/expddefine.scm 296 */
																																										obj_t
																																											BgL_arg1714z00_1695;
																																										obj_t
																																											BgL_arg1715z00_1696;
																																										{	/* Eval/expddefine.scm 296 */
																																											obj_t
																																												BgL_arg1716z00_1697;
																																											{	/* Eval/expddefine.scm 296 */
																																												obj_t
																																													BgL_arg1718z00_1698;
																																												{	/* Eval/expddefine.scm 296 */
																																													obj_t
																																														BgL_pairz00_2856;
																																													BgL_pairz00_2856
																																														=
																																														CAR
																																														(
																																														((obj_t) BgL_paz00_1561));
																																													BgL_arg1718z00_1698
																																														=
																																														CAR
																																														(BgL_pairz00_2856);
																																												}
																																												BgL_arg1716z00_1697
																																													=
																																													MAKE_YOUNG_PAIR
																																													(BgL_arg1718z00_1698,
																																													BgL_unamesz00_1670);
																																											}
																																											BgL_arg1714z00_1695
																																												=
																																												MAKE_YOUNG_PAIR
																																												(BgL_metz00_1565,
																																												BgL_arg1716z00_1697);
																																										}
																																										{	/* Eval/expddefine.scm 297 */
																																											obj_t
																																												BgL_arg1719z00_1699;
																																											{	/* Eval/expddefine.scm 297 */
																																												obj_t
																																													BgL_arg1720z00_1700;
																																												obj_t
																																													BgL_arg1721z00_1701;
																																												{	/* Eval/expddefine.scm 297 */
																																													obj_t
																																														BgL_arg1722z00_1702;
																																													BgL_arg1722z00_1702
																																														=
																																														MAKE_YOUNG_PAIR
																																														(BgL_idz00_1560,
																																														BNIL);
																																													BgL_arg1720z00_1700
																																														=
																																														MAKE_YOUNG_PAIR
																																														(BGl_symbol2430z00zz__expander_definez00,
																																														BgL_arg1722z00_1702);
																																												}
																																												{	/* Eval/expddefine.scm 297 */
																																													obj_t
																																														BgL_arg1723z00_1703;
																																													{	/* Eval/expddefine.scm 297 */
																																														obj_t
																																															BgL_pairz00_2860;
																																														BgL_pairz00_2860
																																															=
																																															CAR
																																															(
																																															((obj_t) BgL_paz00_1561));
																																														BgL_arg1723z00_1703
																																															=
																																															CAR
																																															(BgL_pairz00_2860);
																																													}
																																													BgL_arg1721z00_1701
																																														=
																																														MAKE_YOUNG_PAIR
																																														(BgL_arg1723z00_1703,
																																														BgL_unamesz00_1670);
																																												}
																																												BgL_arg1719z00_1699
																																													=
																																													MAKE_YOUNG_PAIR
																																													(BgL_arg1720z00_1700,
																																													BgL_arg1721z00_1701);
																																											}
																																											BgL_arg1715z00_1696
																																												=
																																												MAKE_YOUNG_PAIR
																																												(BgL_arg1719z00_1699,
																																												BNIL);
																																										}
																																										BgL_arg1711z00_1693
																																											=
																																											MAKE_YOUNG_PAIR
																																											(BgL_arg1714z00_1695,
																																											BgL_arg1715z00_1696);
																																									}
																																									BgL_arg1709z00_1691
																																										=
																																										MAKE_YOUNG_PAIR
																																										(BgL_arg1710z00_1692,
																																										BgL_arg1711z00_1693);
																																								}
																																								BgL_arg1708z00_1690
																																									=
																																									MAKE_YOUNG_PAIR
																																									(BGl_symbol2443z00zz__expander_definez00,
																																									BgL_arg1709z00_1691);
																																							}
																																							BgL_arg1683z00_1677
																																								=
																																								MAKE_YOUNG_PAIR
																																								(BgL_arg1708z00_1690,
																																								BNIL);
																																						}
																																						BgL_arg1675z00_1675
																																							=
																																							MAKE_YOUNG_PAIR
																																							(BgL_arg1681z00_1676,
																																							BgL_arg1683z00_1677);
																																					}
																																					BgL_arg1674z00_1674
																																						=
																																						MAKE_YOUNG_PAIR
																																						(BGl_symbol2425z00zz__expander_definez00,
																																						BgL_arg1675z00_1675);
																																				}
																																				BgL_arg1673z00_1673
																																					=
																																					MAKE_YOUNG_PAIR
																																					(BgL_arg1674z00_1674,
																																					BNIL);
																																			}
																																			BgL_arg1671z00_1671
																																				=
																																				MAKE_YOUNG_PAIR
																																				(BgL_arg1672z00_1672,
																																				BgL_arg1673z00_1673);
																																		}
																																		BgL_procz00_1567
																																			=
																																			MAKE_YOUNG_PAIR
																																			(BGl_symbol2418z00zz__expander_definez00,
																																			BgL_arg1671z00_1671);
																																	}
																																}
																															}
																														}
																													}
																												}
																										}
																									else
																										{	/* Eval/expddefine.scm 298 */
																											bool_t
																												BgL_test2614z00_4145;
																											if (BGl_listzf3zf3zz__r4_pairs_and_lists_6_3z00(BgL_formalsz00_1542))
																												{
																													obj_t
																														BgL_l1109z00_1793;
																													BgL_l1109z00_1793 =
																														BgL_formalsz00_1542;
																												BgL_zc3z04anonymousza31800ze3z87_1794:
																													if (NULLP
																														(BgL_l1109z00_1793))
																														{	/* Eval/expddefine.scm 298 */
																															BgL_test2614z00_4145
																																= ((bool_t) 0);
																														}
																													else
																														{	/* Eval/expddefine.scm 298 */
																															bool_t
																																BgL__ortest_1111z00_1796;
																															{	/* Eval/expddefine.scm 298 */
																																obj_t
																																	BgL_arg1803z00_1798;
																																BgL_arg1803z00_1798
																																	=
																																	CAR(((obj_t)
																																		BgL_l1109z00_1793));
																																BgL__ortest_1111z00_1796
																																	=
																																	BGl_dssslzd2namedzd2constantzf3zf3zz__dssslz00
																																	(BgL_arg1803z00_1798);
																															}
																															if (BgL__ortest_1111z00_1796)
																																{	/* Eval/expddefine.scm 298 */
																																	BgL_test2614z00_4145
																																		=
																																		BgL__ortest_1111z00_1796;
																																}
																															else
																																{	/* Eval/expddefine.scm 298 */
																																	obj_t
																																		BgL_arg1801z00_1797;
																																	BgL_arg1801z00_1797
																																		=
																																		CDR(((obj_t)
																																			BgL_l1109z00_1793));
																																	{
																																		obj_t
																																			BgL_l1109z00_4156;
																																		BgL_l1109z00_4156
																																			=
																																			BgL_arg1801z00_1797;
																																		BgL_l1109z00_1793
																																			=
																																			BgL_l1109z00_4156;
																																		goto
																																			BgL_zc3z04anonymousza31800ze3z87_1794;
																																	}
																																}
																														}
																												}
																											else
																												{	/* Eval/expddefine.scm 298 */
																													BgL_test2614z00_4145 =
																														((bool_t) 0);
																												}
																											if (BgL_test2614z00_4145)
																												{	/* Eval/expddefine.scm 299 */
																													obj_t
																														BgL_argsz00_1743;
																													BgL_argsz00_1743 =
																														BGl_gensymz00zz__r4_symbols_6_4z00
																														(BGl_symbol2446z00zz__expander_definez00);
																													{	/* Eval/expddefine.scm 300 */
																														obj_t
																															BgL_arg1747z00_1744;
																														{	/* Eval/expddefine.scm 300 */
																															obj_t
																																BgL_arg1748z00_1745;
																															obj_t
																																BgL_arg1749z00_1746;
																															BgL_arg1748z00_1745
																																=
																																MAKE_YOUNG_PAIR
																																(BgL_f0z00_1541,
																																BgL_argsz00_1743);
																															{	/* Eval/expddefine.scm 302 */
																																obj_t
																																	BgL_arg1750z00_1747;
																																{	/* Eval/expddefine.scm 302 */
																																	obj_t
																																		BgL_arg1754z00_1748;
																																	{	/* Eval/expddefine.scm 302 */
																																		obj_t
																																			BgL_arg1755z00_1749;
																																		obj_t
																																			BgL_arg1756z00_1750;
																																		{	/* Eval/expddefine.scm 302 */
																																			obj_t
																																				BgL_arg1757z00_1751;
																																			{	/* Eval/expddefine.scm 302 */
																																				obj_t
																																					BgL_arg1758z00_1752;
																																				{	/* Eval/expddefine.scm 302 */
																																					obj_t
																																						BgL_arg1759z00_1753;
																																					{	/* Eval/expddefine.scm 302 */
																																						obj_t
																																							BgL_arg1760z00_1754;
																																						{	/* Eval/expddefine.scm 302 */
																																							obj_t
																																								BgL_arg1761z00_1755;
																																							{	/* Eval/expddefine.scm 302 */
																																								obj_t
																																									BgL_arg1762z00_1756;
																																								{	/* Eval/expddefine.scm 302 */
																																									obj_t
																																										BgL_arg1763z00_1757;
																																									{	/* Eval/expddefine.scm 302 */
																																										obj_t
																																											BgL_arg1764z00_1758;
																																										obj_t
																																											BgL_arg1765z00_1759;
																																										{	/* Eval/expddefine.scm 302 */
																																											obj_t
																																												BgL_arg1766z00_1760;
																																											BgL_arg1766z00_1760
																																												=
																																												MAKE_YOUNG_PAIR
																																												(BgL_idz00_1560,
																																												BNIL);
																																											BgL_arg1764z00_1758
																																												=
																																												MAKE_YOUNG_PAIR
																																												(BGl_symbol2430z00zz__expander_definez00,
																																												BgL_arg1766z00_1760);
																																										}
																																										{	/* Eval/expddefine.scm 302 */
																																											obj_t
																																												BgL_arg1767z00_1761;
																																											obj_t
																																												BgL_arg1768z00_1762;
																																											{	/* Eval/expddefine.scm 302 */
																																												obj_t
																																													BgL_pairz00_2866;
																																												BgL_pairz00_2866
																																													=
																																													CAR
																																													(
																																													((obj_t) BgL_paz00_1561));
																																												BgL_arg1767z00_1761
																																													=
																																													CAR
																																													(BgL_pairz00_2866);
																																											}
																																											BgL_arg1768z00_1762
																																												=
																																												MAKE_YOUNG_PAIR
																																												(BgL_argsz00_1743,
																																												BNIL);
																																											BgL_arg1765z00_1759
																																												=
																																												MAKE_YOUNG_PAIR
																																												(BgL_arg1767z00_1761,
																																												BgL_arg1768z00_1762);
																																										}
																																										BgL_arg1763z00_1757
																																											=
																																											MAKE_YOUNG_PAIR
																																											(BgL_arg1764z00_1758,
																																											BgL_arg1765z00_1759);
																																									}
																																									BgL_arg1762z00_1756
																																										=
																																										MAKE_YOUNG_PAIR
																																										(BGl_symbol2433z00zz__expander_definez00,
																																										BgL_arg1763z00_1757);
																																								}
																																								BgL_arg1761z00_1755
																																									=
																																									MAKE_YOUNG_PAIR
																																									(BgL_arg1762z00_1756,
																																									BNIL);
																																							}
																																							BgL_arg1760z00_1754
																																								=
																																								MAKE_YOUNG_PAIR
																																								(BNIL,
																																								BgL_arg1761z00_1755);
																																						}
																																						BgL_arg1759z00_1753
																																							=
																																							MAKE_YOUNG_PAIR
																																							(BGl_symbol2418z00zz__expander_definez00,
																																							BgL_arg1760z00_1754);
																																					}
																																					BgL_arg1758z00_1752
																																						=
																																						MAKE_YOUNG_PAIR
																																						(BgL_arg1759z00_1753,
																																						BNIL);
																																				}
																																				BgL_arg1757z00_1751
																																					=
																																					MAKE_YOUNG_PAIR
																																					(BgL_defz00_1562,
																																					BgL_arg1758z00_1752);
																																			}
																																			BgL_arg1755z00_1749
																																				=
																																				MAKE_YOUNG_PAIR
																																				(BgL_arg1757z00_1751,
																																				BNIL);
																																		}
																																		{	/* Eval/expddefine.scm 303 */
																																			obj_t
																																				BgL_arg1769z00_1763;
																																			{	/* Eval/expddefine.scm 303 */
																																				obj_t
																																					BgL_arg1770z00_1764;
																																				{	/* Eval/expddefine.scm 303 */
																																					obj_t
																																						BgL_arg1771z00_1765;
																																					obj_t
																																						BgL_arg1772z00_1766;
																																					{	/* Eval/expddefine.scm 303 */
																																						obj_t
																																							BgL_arg1773z00_1767;
																																						{	/* Eval/expddefine.scm 303 */
																																							obj_t
																																								BgL_arg1775z00_1768;
																																							{	/* Eval/expddefine.scm 303 */
																																								obj_t
																																									BgL_arg1776z00_1769;
																																								{	/* Eval/expddefine.scm 303 */
																																									obj_t
																																										BgL_arg1777z00_1770;
																																									{	/* Eval/expddefine.scm 303 */
																																										obj_t
																																											BgL_arg1778z00_1771;
																																										obj_t
																																											BgL_arg1779z00_1772;
																																										{	/* Eval/expddefine.scm 303 */
																																											obj_t
																																												BgL_arg1781z00_1773;
																																											{	/* Eval/expddefine.scm 303 */
																																												obj_t
																																													BgL_arg1782z00_1774;
																																												{	/* Eval/expddefine.scm 303 */
																																													obj_t
																																														BgL_pairz00_2870;
																																													BgL_pairz00_2870
																																														=
																																														CAR
																																														(
																																														((obj_t) BgL_paz00_1561));
																																													BgL_arg1782z00_1774
																																														=
																																														CAR
																																														(BgL_pairz00_2870);
																																												}
																																												BgL_arg1781z00_1773
																																													=
																																													MAKE_YOUNG_PAIR
																																													(BgL_arg1782z00_1774,
																																													BNIL);
																																											}
																																											BgL_arg1778z00_1771
																																												=
																																												MAKE_YOUNG_PAIR
																																												(BGl_symbol2435z00zz__expander_definez00,
																																												BgL_arg1781z00_1773);
																																										}
																																										{	/* Eval/expddefine.scm 304 */
																																											obj_t
																																												BgL_arg1783z00_1775;
																																											{	/* Eval/expddefine.scm 304 */
																																												obj_t
																																													BgL_arg1784z00_1776;
																																												{	/* Eval/expddefine.scm 304 */
																																													obj_t
																																														BgL_arg1785z00_1777;
																																													obj_t
																																														BgL_arg1786z00_1778;
																																													{	/* Eval/expddefine.scm 304 */
																																														obj_t
																																															BgL_pairz00_2874;
																																														BgL_pairz00_2874
																																															=
																																															CAR
																																															(
																																															((obj_t) BgL_paz00_1561));
																																														BgL_arg1785z00_1777
																																															=
																																															CAR
																																															(BgL_pairz00_2874);
																																													}
																																													BgL_arg1786z00_1778
																																														=
																																														MAKE_YOUNG_PAIR
																																														(BgL_idz00_1560,
																																														BNIL);
																																													BgL_arg1784z00_1776
																																														=
																																														MAKE_YOUNG_PAIR
																																														(BgL_arg1785z00_1777,
																																														BgL_arg1786z00_1778);
																																												}
																																												BgL_arg1783z00_1775
																																													=
																																													MAKE_YOUNG_PAIR
																																													(BGl_symbol2437z00zz__expander_definez00,
																																													BgL_arg1784z00_1776);
																																											}
																																											BgL_arg1779z00_1772
																																												=
																																												MAKE_YOUNG_PAIR
																																												(BgL_arg1783z00_1775,
																																												BNIL);
																																										}
																																										BgL_arg1777z00_1770
																																											=
																																											MAKE_YOUNG_PAIR
																																											(BgL_arg1778z00_1771,
																																											BgL_arg1779z00_1772);
																																									}
																																									BgL_arg1776z00_1769
																																										=
																																										MAKE_YOUNG_PAIR
																																										(BGl_symbol2439z00zz__expander_definez00,
																																										BgL_arg1777z00_1770);
																																								}
																																								BgL_arg1775z00_1768
																																									=
																																									MAKE_YOUNG_PAIR
																																									(BgL_arg1776z00_1769,
																																									BNIL);
																																							}
																																							BgL_arg1773z00_1767
																																								=
																																								MAKE_YOUNG_PAIR
																																								(BgL_metz00_1565,
																																								BgL_arg1775z00_1768);
																																						}
																																						BgL_arg1771z00_1765
																																							=
																																							MAKE_YOUNG_PAIR
																																							(BgL_arg1773z00_1767,
																																							BNIL);
																																					}
																																					{	/* Eval/expddefine.scm 305 */
																																						obj_t
																																							BgL_arg1787z00_1779;
																																						{	/* Eval/expddefine.scm 305 */
																																							obj_t
																																								BgL_arg1788z00_1780;
																																							{	/* Eval/expddefine.scm 305 */
																																								obj_t
																																									BgL_arg1789z00_1781;
																																								obj_t
																																									BgL_arg1790z00_1782;
																																								{	/* Eval/expddefine.scm 305 */
																																									obj_t
																																										BgL_arg1791z00_1783;
																																									BgL_arg1791z00_1783
																																										=
																																										MAKE_YOUNG_PAIR
																																										(BgL_metz00_1565,
																																										BNIL);
																																									BgL_arg1789z00_1781
																																										=
																																										MAKE_YOUNG_PAIR
																																										(BGl_symbol2441z00zz__expander_definez00,
																																										BgL_arg1791z00_1783);
																																								}
																																								{	/* Eval/expddefine.scm 306 */
																																									obj_t
																																										BgL_arg1792z00_1784;
																																									obj_t
																																										BgL_arg1793z00_1785;
																																									{	/* Eval/expddefine.scm 306 */
																																										obj_t
																																											BgL_arg1794z00_1786;
																																										{	/* Eval/expddefine.scm 306 */
																																											obj_t
																																												BgL_arg1795z00_1787;
																																											{	/* Eval/expddefine.scm 306 */
																																												obj_t
																																													BgL_arg1796z00_1788;
																																												obj_t
																																													BgL_arg1798z00_1789;
																																												{	/* Eval/expddefine.scm 306 */
																																													obj_t
																																														BgL_pairz00_2878;
																																													BgL_pairz00_2878
																																														=
																																														CAR
																																														(
																																														((obj_t) BgL_paz00_1561));
																																													BgL_arg1796z00_1788
																																														=
																																														CAR
																																														(BgL_pairz00_2878);
																																												}
																																												BgL_arg1798z00_1789
																																													=
																																													MAKE_YOUNG_PAIR
																																													(BgL_argsz00_1743,
																																													BNIL);
																																												BgL_arg1795z00_1787
																																													=
																																													MAKE_YOUNG_PAIR
																																													(BgL_arg1796z00_1788,
																																													BgL_arg1798z00_1789);
																																											}
																																											BgL_arg1794z00_1786
																																												=
																																												MAKE_YOUNG_PAIR
																																												(BgL_metz00_1565,
																																												BgL_arg1795z00_1787);
																																										}
																																										BgL_arg1792z00_1784
																																											=
																																											MAKE_YOUNG_PAIR
																																											(BGl_symbol2433z00zz__expander_definez00,
																																											BgL_arg1794z00_1786);
																																									}
																																									{	/* Eval/expddefine.scm 307 */
																																										obj_t
																																											BgL_arg1799z00_1790;
																																										BgL_arg1799z00_1790
																																											=
																																											MAKE_YOUNG_PAIR
																																											(BgL_defz00_1562,
																																											BNIL);
																																										BgL_arg1793z00_1785
																																											=
																																											MAKE_YOUNG_PAIR
																																											(BgL_arg1799z00_1790,
																																											BNIL);
																																									}
																																									BgL_arg1790z00_1782
																																										=
																																										MAKE_YOUNG_PAIR
																																										(BgL_arg1792z00_1784,
																																										BgL_arg1793z00_1785);
																																								}
																																								BgL_arg1788z00_1780
																																									=
																																									MAKE_YOUNG_PAIR
																																									(BgL_arg1789z00_1781,
																																									BgL_arg1790z00_1782);
																																							}
																																							BgL_arg1787z00_1779
																																								=
																																								MAKE_YOUNG_PAIR
																																								(BGl_symbol2443z00zz__expander_definez00,
																																								BgL_arg1788z00_1780);
																																						}
																																						BgL_arg1772z00_1766
																																							=
																																							MAKE_YOUNG_PAIR
																																							(BgL_arg1787z00_1779,
																																							BNIL);
																																					}
																																					BgL_arg1770z00_1764
																																						=
																																						MAKE_YOUNG_PAIR
																																						(BgL_arg1771z00_1765,
																																						BgL_arg1772z00_1766);
																																				}
																																				BgL_arg1769z00_1763
																																					=
																																					MAKE_YOUNG_PAIR
																																					(BGl_symbol2425z00zz__expander_definez00,
																																					BgL_arg1770z00_1764);
																																			}
																																			BgL_arg1756z00_1750
																																				=
																																				MAKE_YOUNG_PAIR
																																				(BgL_arg1769z00_1763,
																																				BNIL);
																																		}
																																		BgL_arg1754z00_1748
																																			=
																																			MAKE_YOUNG_PAIR
																																			(BgL_arg1755z00_1749,
																																			BgL_arg1756z00_1750);
																																	}
																																	BgL_arg1750z00_1747
																																		=
																																		MAKE_YOUNG_PAIR
																																		(BGl_symbol2425z00zz__expander_definez00,
																																		BgL_arg1754z00_1748);
																																}
																																BgL_arg1749z00_1746
																																	=
																																	MAKE_YOUNG_PAIR
																																	(BgL_arg1750z00_1747,
																																	BNIL);
																															}
																															BgL_arg1747z00_1744
																																=
																																MAKE_YOUNG_PAIR
																																(BgL_arg1748z00_1745,
																																BgL_arg1749z00_1746);
																														}
																														BgL_procz00_1567 =
																															MAKE_YOUNG_PAIR
																															(BGl_symbol2418z00zz__expander_definez00,
																															BgL_arg1747z00_1744);
																													}
																												}
																											else
																												{	/* Eval/expddefine.scm 298 */
																													BgL_procz00_1567 =
																														BGl_expandzd2errorzd2zz__expandz00
																														(BgL_funz00_1540,
																														BGl_string2448z00zz__expander_definez00,
																														BgL_xz00_21);
																												}
																										}
																								}
																						}
																						{	/* Eval/expddefine.scm 267 */

																							{	/* Eval/expddefine.scm 313 */
																								obj_t BgL_arg1554z00_1568;

																								{	/* Eval/expddefine.scm 313 */
																									obj_t BgL_arg1555z00_1569;

																									{	/* Eval/expddefine.scm 313 */
																										obj_t BgL_arg1558z00_1570;
																										obj_t BgL_arg1559z00_1571;

																										{	/* Eval/expddefine.scm 313 */
																											obj_t BgL_arg1561z00_1572;

																											{	/* Eval/expddefine.scm 313 */
																												obj_t
																													BgL_arg1562z00_1573;
																												{	/* Eval/expddefine.scm 313 */
																													obj_t
																														BgL_arg1563z00_1574;
																													{	/* Eval/expddefine.scm 313 */
																														obj_t
																															BgL_arg1565z00_1575;
																														BgL_arg1565z00_1575
																															=
																															MAKE_YOUNG_PAIR
																															(BgL_procz00_1567,
																															BNIL);
																														BgL_arg1563z00_1574
																															=
																															MAKE_YOUNG_PAIR
																															(BGl_symbol2449z00zz__expander_definez00,
																															BgL_arg1565z00_1575);
																													}
																													BgL_arg1562z00_1573 =
																														MAKE_YOUNG_PAIR
																														(BgL_arg1563z00_1574,
																														BNIL);
																												}
																												BgL_arg1561z00_1572 =
																													MAKE_YOUNG_PAIR
																													(BgL_funz00_1540,
																													BgL_arg1562z00_1573);
																											}
																											BgL_arg1558z00_1570 =
																												MAKE_YOUNG_PAIR
																												(BGl_symbol2421z00zz__expander_definez00,
																												BgL_arg1561z00_1572);
																										}
																										{	/* Eval/expddefine.scm 316 */
																											obj_t BgL_arg1568z00_1576;

																											{	/* Eval/expddefine.scm 316 */
																												obj_t
																													BgL_arg1569z00_1577;
																												{	/* Eval/expddefine.scm 316 */
																													obj_t
																														BgL_arg1573z00_1578;
																													{	/* Eval/expddefine.scm 316 */
																														obj_t
																															BgL_arg1574z00_1579;
																														obj_t
																															BgL_arg1575z00_1580;
																														{	/* Eval/expddefine.scm 316 */
																															obj_t
																																BgL_arg1577z00_1581;
																															{	/* Eval/expddefine.scm 316 */
																																obj_t
																																	BgL_arg1578z00_1582;
																																obj_t
																																	BgL_arg1579z00_1583;
																																{	/* Eval/expddefine.scm 316 */
																																	obj_t
																																		BgL_arg1580z00_1584;
																																	if (CBOOL
																																		(BGl_memqz00zz__r4_pairs_and_lists_6_3z00
																																			((BOPTIONAL), BgL_formalsz00_1542)))
																																		{	/* Eval/expddefine.scm 316 */
																																			BgL_arg1580z00_1584
																																				=
																																				BGl_dssslzd2formalszd2ze3namesze3zz__expander_definez00
																																				(BgL_formalsz00_1542);
																																		}
																																	else
																																		{	/* Eval/expddefine.scm 316 */
																																			BgL_arg1580z00_1584
																																				=
																																				BgL_formalsz00_1542;
																																		}
																																	BgL_arg1578z00_1582
																																		=
																																		MAKE_YOUNG_PAIR
																																		(BgL_f0z00_1541,
																																		BgL_arg1580z00_1584);
																																}
																																{	/* Eval/expddefine.scm 319 */
																																	obj_t
																																		BgL_arg1582z00_1586;
																																	if (PAIRP
																																		(BgL_bodyz00_1543))
																																		{	/* Eval/expddefine.scm 319 */
																																			BgL_arg1582z00_1586
																																				=
																																				MAKE_YOUNG_PAIR
																																				(BGl_symbol2413z00zz__expander_definez00,
																																				BgL_bodyz00_1543);
																																		}
																																	else
																																		{	/* Eval/expddefine.scm 321 */
																																			obj_t
																																				BgL_arg1584z00_1588;
																																			{	/* Eval/expddefine.scm 321 */
																																				obj_t
																																					BgL_arg1586z00_1589;
																																				obj_t
																																					BgL_arg1587z00_1590;
																																				{	/* Eval/expddefine.scm 321 */
																																					obj_t
																																						BgL_arg1588z00_1591;
																																					BgL_arg1588z00_1591
																																						=
																																						CAR(
																																						((obj_t) BgL_pfz00_1559));
																																					{	/* Eval/expddefine.scm 321 */
																																						obj_t
																																							BgL_arg2189z00_2881;
																																						BgL_arg2189z00_2881
																																							=
																																							SYMBOL_TO_STRING
																																							(((obj_t) BgL_arg1588z00_1591));
																																						BgL_arg1586z00_1589
																																							=
																																							BGl_stringzd2copyzd2zz__r4_strings_6_7z00
																																							(BgL_arg2189z00_2881);
																																					}
																																				}
																																				{	/* Eval/expddefine.scm 323 */
																																					obj_t
																																						BgL_arg1592z00_1592;
																																					{	/* Eval/expddefine.scm 323 */
																																						obj_t
																																							BgL_arg1593z00_1593;
																																						{	/* Eval/expddefine.scm 323 */
																																							obj_t
																																								BgL_arg1595z00_1594;
																																							{	/* Eval/expddefine.scm 323 */
																																								obj_t
																																									BgL_arg1596z00_1595;
																																								{	/* Eval/expddefine.scm 323 */
																																									obj_t
																																										BgL_pairz00_2883;
																																									BgL_pairz00_2883
																																										=
																																										CAR
																																										(
																																										((obj_t) BgL_paz00_1561));
																																									BgL_arg1596z00_1595
																																										=
																																										CAR
																																										(BgL_pairz00_2883);
																																								}
																																								BgL_arg1595z00_1594
																																									=
																																									MAKE_YOUNG_PAIR
																																									(BgL_arg1596z00_1595,
																																									BNIL);
																																							}
																																							BgL_arg1593z00_1593
																																								=
																																								MAKE_YOUNG_PAIR
																																								(BGl_symbol2451z00zz__expander_definez00,
																																								BgL_arg1595z00_1594);
																																						}
																																						BgL_arg1592z00_1592
																																							=
																																							MAKE_YOUNG_PAIR
																																							(BgL_arg1593z00_1593,
																																							BNIL);
																																					}
																																					BgL_arg1587z00_1590
																																						=
																																						MAKE_YOUNG_PAIR
																																						(BGl_string2453z00zz__expander_definez00,
																																						BgL_arg1592z00_1592);
																																				}
																																				BgL_arg1584z00_1588
																																					=
																																					MAKE_YOUNG_PAIR
																																					(BgL_arg1586z00_1589,
																																					BgL_arg1587z00_1590);
																																			}
																																			BgL_arg1582z00_1586
																																				=
																																				MAKE_YOUNG_PAIR
																																				(BGl_symbol2454z00zz__expander_definez00,
																																				BgL_arg1584z00_1588);
																																		}
																																	BgL_arg1579z00_1583
																																		=
																																		MAKE_YOUNG_PAIR
																																		(BgL_arg1582z00_1586,
																																		BNIL);
																																}
																																BgL_arg1577z00_1581
																																	=
																																	MAKE_YOUNG_PAIR
																																	(BgL_arg1578z00_1582,
																																	BgL_arg1579z00_1583);
																															}
																															BgL_arg1574z00_1579
																																=
																																MAKE_YOUNG_PAIR
																																(BGl_symbol2418z00zz__expander_definez00,
																																BgL_arg1577z00_1581);
																														}
																														{	/* Eval/expddefine.scm 325 */
																															obj_t
																																BgL_arg1598z00_1597;
																															{	/* Eval/expddefine.scm 325 */
																																obj_t
																																	BgL_arg1599z00_1598;
																																{	/* Eval/expddefine.scm 325 */
																																	obj_t
																																		BgL_arg2189z00_2885;
																																	BgL_arg2189z00_2885
																																		=
																																		SYMBOL_TO_STRING
																																		(((obj_t)
																																			BgL_idz00_1560));
																																	BgL_arg1599z00_1598
																																		=
																																		BGl_stringzd2copyzd2zz__r4_strings_6_7z00
																																		(BgL_arg2189z00_2885);
																																}
																																BgL_arg1598z00_1597
																																	=
																																	MAKE_YOUNG_PAIR
																																	(BgL_arg1599z00_1598,
																																	BNIL);
																															}
																															BgL_arg1575z00_1580
																																=
																																MAKE_YOUNG_PAIR
																																(BFALSE,
																																BgL_arg1598z00_1597);
																														}
																														BgL_arg1573z00_1578
																															=
																															MAKE_YOUNG_PAIR
																															(BgL_arg1574z00_1579,
																															BgL_arg1575z00_1580);
																													}
																													BgL_arg1569z00_1577 =
																														MAKE_YOUNG_PAIR
																														(BgL_idz00_1560,
																														BgL_arg1573z00_1578);
																												}
																												BgL_arg1568z00_1576 =
																													MAKE_YOUNG_PAIR
																													(BGl_symbol2456z00zz__expander_definez00,
																													BgL_arg1569z00_1577);
																											}
																											BgL_arg1559z00_1571 =
																												MAKE_YOUNG_PAIR
																												(BgL_arg1568z00_1576,
																												BNIL);
																										}
																										BgL_arg1555z00_1569 =
																											MAKE_YOUNG_PAIR
																											(BgL_arg1558z00_1570,
																											BgL_arg1559z00_1571);
																									}
																									BgL_arg1554z00_1568 =
																										MAKE_YOUNG_PAIR
																										(BGl_symbol2413z00zz__expander_definez00,
																										BgL_arg1555z00_1569);
																								}
																								return
																									BGL_PROCEDURE_CALL2
																									(BgL_ez00_22,
																									BgL_arg1554z00_1568,
																									BgL_ez00_22);
																							}
																						}
																					}
																				}
																			}
																		}
																	}
																}
															}
														}
													}
												}
											}
										else
											{	/* Eval/expddefine.scm 251 */
												return
													BGl_expandzd2errorzd2zz__expandz00
													(BGl_string2458z00zz__expander_definez00,
													BGl_string2417z00zz__expander_definez00, BgL_xz00_21);
											}
									}
								else
									{	/* Eval/expddefine.scm 251 */
										return
											BGl_expandzd2errorzd2zz__expandz00
											(BGl_string2458z00zz__expander_definez00,
											BGl_string2417z00zz__expander_definez00, BgL_xz00_21);
									}
							}
						else
							{	/* Eval/expddefine.scm 251 */
								return
									BGl_expandzd2errorzd2zz__expandz00
									(BGl_string2458z00zz__expander_definez00,
									BGl_string2417z00zz__expander_definez00, BgL_xz00_21);
							}
					}
				else
					{	/* Eval/expddefine.scm 251 */
						return
							BGl_expandzd2errorzd2zz__expandz00
							(BGl_string2458z00zz__expander_definez00,
							BGl_string2417z00zz__expander_definez00, BgL_xz00_21);
					}
			}
		}

	}



/* &expand-eval-define-generic */
	obj_t BGl_z62expandzd2evalzd2definezd2genericzb0zz__expander_definez00(obj_t
		BgL_envz00_3164, obj_t BgL_xz00_3165, obj_t BgL_ez00_3166)
	{
		{	/* Eval/expddefine.scm 250 */
			{	/* Eval/expddefine.scm 251 */
				obj_t BgL_auxz00_4269;

				if (PROCEDUREP(BgL_ez00_3166))
					{	/* Eval/expddefine.scm 251 */
						BgL_auxz00_4269 = BgL_ez00_3166;
					}
				else
					{
						obj_t BgL_auxz00_4272;

						BgL_auxz00_4272 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string2410z00zz__expander_definez00, BINT(9224L),
							BGl_string2459z00zz__expander_definez00,
							BGl_string2412z00zz__expander_definez00, BgL_ez00_3166);
						FAILURE(BgL_auxz00_4272, BFALSE, BFALSE);
					}
				return
					BGl_expandzd2evalzd2definezd2genericzd2zz__expander_definez00
					(BgL_xz00_3165, BgL_auxz00_4269);
			}
		}

	}



/* &<@anonymous:1653> */
	obj_t BGl_z62zc3z04anonymousza31653ze3ze5zz__expander_definez00(obj_t
		BgL_envz00_3167, obj_t BgL_az00_3168)
	{
		{	/* Eval/expddefine.scm 270 */
			if (PAIRP(BgL_az00_3168))
				{	/* Eval/expddefine.scm 271 */
					return CAR(BgL_az00_3168);
				}
			else
				{	/* Eval/expddefine.scm 271 */
					return BgL_az00_3168;
				}
		}

	}



/* &<@anonymous:1809> */
	obj_t BGl_z62zc3z04anonymousza31809ze3ze5zz__expander_definez00(obj_t
		BgL_envz00_3169, obj_t BgL_az00_3170)
	{
		{	/* Eval/expddefine.scm 264 */
			if (PAIRP(BgL_az00_3170))
				{	/* Eval/expddefine.scm 265 */
					return CAR(BgL_az00_3170);
				}
			else
				{	/* Eval/expddefine.scm 265 */
					return BgL_az00_3170;
				}
		}

	}



/* &<@anonymous:1819> */
	obj_t BGl_z62zc3z04anonymousza31819ze3ze5zz__expander_definez00(obj_t
		BgL_envz00_3171, obj_t BgL_iz00_3173)
	{
		{	/* Eval/expddefine.scm 256 */
			return
				BGl_parsezd2formalzd2identz00zz__evutilsz00(BgL_iz00_3173,
				PROCEDURE_L_REF(BgL_envz00_3171, (int) (0L)));
		}

	}



/* expand-eval-define-method */
	BGL_EXPORTED_DEF obj_t
		BGl_expandzd2evalzd2definezd2methodzd2zz__expander_definez00(obj_t
		BgL_xz00_23, obj_t BgL_ez00_24)
	{
		{	/* Eval/expddefine.scm 333 */
			{
				obj_t BgL_funz00_1825;
				obj_t BgL_f0z00_1826;
				obj_t BgL_formalsz00_1827;
				obj_t BgL_bodyz00_1828;

				if (PAIRP(BgL_xz00_23))
					{	/* Eval/expddefine.scm 357 */
						obj_t BgL_cdrzd2479zd2_1833;

						BgL_cdrzd2479zd2_1833 = CDR(((obj_t) BgL_xz00_23));
						if (PAIRP(BgL_cdrzd2479zd2_1833))
							{	/* Eval/expddefine.scm 357 */
								obj_t BgL_carzd2484zd2_1835;
								obj_t BgL_cdrzd2485zd2_1836;

								BgL_carzd2484zd2_1835 = CAR(BgL_cdrzd2479zd2_1833);
								BgL_cdrzd2485zd2_1836 = CDR(BgL_cdrzd2479zd2_1833);
								if (PAIRP(BgL_carzd2484zd2_1835))
									{	/* Eval/expddefine.scm 357 */
										obj_t BgL_cdrzd2490zd2_1838;

										BgL_cdrzd2490zd2_1838 = CDR(BgL_carzd2484zd2_1835);
										if (PAIRP(BgL_cdrzd2490zd2_1838))
											{	/* Eval/expddefine.scm 357 */
												if (NULLP(BgL_cdrzd2485zd2_1836))
													{	/* Eval/expddefine.scm 357 */
														return
															BGl_expandzd2errorzd2zz__expandz00
															(BGl_string2468z00zz__expander_definez00,
															BGl_string2417z00zz__expander_definez00,
															BgL_xz00_23);
													}
												else
													{	/* Eval/expddefine.scm 357 */
														BgL_funz00_1825 = CAR(BgL_carzd2484zd2_1835);
														BgL_f0z00_1826 = CAR(BgL_cdrzd2490zd2_1838);
														BgL_formalsz00_1827 = CDR(BgL_cdrzd2490zd2_1838);
														BgL_bodyz00_1828 = BgL_cdrzd2485zd2_1836;
														{	/* Eval/expddefine.scm 359 */
															obj_t BgL_locz00_1844;

															BgL_locz00_1844 =
																BGl_getzd2sourcezd2locationz00zz__readerz00
																(BgL_xz00_23);
															{	/* Eval/expddefine.scm 359 */
																obj_t BgL_pfz00_1845;

																BgL_pfz00_1845 =
																	BGl_parsezd2formalzd2identz00zz__evutilsz00
																	(BgL_funz00_1825, BgL_locz00_1844);
																{	/* Eval/expddefine.scm 360 */
																	obj_t BgL_p0z00_1846;

																	BgL_p0z00_1846 =
																		BGl_parsezd2formalzd2identz00zz__evutilsz00
																		(BgL_f0z00_1826, BgL_locz00_1844);
																	{	/* Eval/expddefine.scm 361 */
																		obj_t BgL_restz00_1847;

																		BgL_restz00_1847 =
																			BGl_getzd2argsze70z35zz__expander_definez00
																			(BgL_formalsz00_1827, BgL_locz00_1844);
																		{	/* Eval/expddefine.scm 362 */
																			bool_t BgL_vaz00_1848;

																			if (NULLP(BgL_formalsz00_1827))
																				{	/* Eval/expddefine.scm 363 */
																					BgL_vaz00_1848 = ((bool_t) 0);
																				}
																			else
																				{	/* Eval/expddefine.scm 364 */
																					bool_t BgL__ortest_1047z00_2040;

																					if (PAIRP(BgL_formalsz00_1827))
																						{	/* Eval/expddefine.scm 364 */
																							BgL__ortest_1047z00_2040 =
																								((bool_t) 0);
																						}
																					else
																						{	/* Eval/expddefine.scm 364 */
																							BgL__ortest_1047z00_2040 =
																								((bool_t) 1);
																						}
																					if (BgL__ortest_1047z00_2040)
																						{	/* Eval/expddefine.scm 364 */
																							BgL_vaz00_1848 =
																								BgL__ortest_1047z00_2040;
																						}
																					else
																						{	/* Eval/expddefine.scm 364 */
																							if (NULLP(CDR
																									(BGl_lastzd2pairzd2zz__r4_pairs_and_lists_6_3z00
																										(BgL_formalsz00_1827))))
																								{	/* Eval/expddefine.scm 365 */
																									BgL_vaz00_1848 = ((bool_t) 0);
																								}
																							else
																								{	/* Eval/expddefine.scm 365 */
																									BgL_vaz00_1848 = ((bool_t) 1);
																								}
																						}
																				}
																			{	/* Eval/expddefine.scm 363 */

																				{	/* Eval/expddefine.scm 366 */
																					bool_t BgL_test2632z00_4315;

																					if (PAIRP(BgL_p0z00_1846))
																						{	/* Eval/expddefine.scm 366 */
																							obj_t BgL_tmpz00_4318;

																							BgL_tmpz00_4318 =
																								CDR(BgL_p0z00_1846);
																							BgL_test2632z00_4315 =
																								SYMBOLP(BgL_tmpz00_4318);
																						}
																					else
																						{	/* Eval/expddefine.scm 366 */
																							BgL_test2632z00_4315 =
																								((bool_t) 0);
																						}
																					if (BgL_test2632z00_4315)
																						{	/* Eval/expddefine.scm 368 */
																							bool_t BgL_test2634z00_4321;

																							if (BGl_listzf3zf3zz__r4_pairs_and_lists_6_3z00(BgL_formalsz00_1827))
																								{	/* Eval/expddefine.scm 368 */
																									bool_t BgL_test2636z00_4324;

																									{
																										obj_t BgL_l1112z00_2030;

																										BgL_l1112z00_2030 =
																											BgL_formalsz00_1827;
																									BgL_zc3z04anonymousza32023ze3z87_2031:
																										if (NULLP
																											(BgL_l1112z00_2030))
																											{	/* Eval/expddefine.scm 368 */
																												BgL_test2636z00_4324 =
																													((bool_t) 0);
																											}
																										else
																											{	/* Eval/expddefine.scm 368 */
																												bool_t
																													BgL__ortest_1114z00_2033;
																												{	/* Eval/expddefine.scm 368 */
																													obj_t
																														BgL_arg2026z00_2035;
																													BgL_arg2026z00_2035 =
																														CAR(((obj_t)
																															BgL_l1112z00_2030));
																													BgL__ortest_1114z00_2033
																														=
																														BGl_dssslzd2namedzd2constantzf3zf3zz__dssslz00
																														(BgL_arg2026z00_2035);
																												}
																												if (BgL__ortest_1114z00_2033)
																													{	/* Eval/expddefine.scm 368 */
																														BgL_test2636z00_4324
																															=
																															BgL__ortest_1114z00_2033;
																													}
																												else
																													{	/* Eval/expddefine.scm 368 */
																														obj_t
																															BgL_arg2025z00_2034;
																														BgL_arg2025z00_2034
																															=
																															CDR(((obj_t)
																																BgL_l1112z00_2030));
																														{
																															obj_t
																																BgL_l1112z00_4333;
																															BgL_l1112z00_4333
																																=
																																BgL_arg2025z00_2034;
																															BgL_l1112z00_2030
																																=
																																BgL_l1112z00_4333;
																															goto
																																BgL_zc3z04anonymousza32023ze3z87_2031;
																														}
																													}
																											}
																									}
																									if (BgL_test2636z00_4324)
																										{	/* Eval/expddefine.scm 368 */
																											BgL_test2634z00_4321 =
																												((bool_t) 0);
																										}
																									else
																										{	/* Eval/expddefine.scm 368 */
																											BgL_test2634z00_4321 =
																												((bool_t) 1);
																										}
																								}
																							else
																								{	/* Eval/expddefine.scm 368 */
																									BgL_test2634z00_4321 =
																										((bool_t) 1);
																								}
																							if (BgL_test2634z00_4321)
																								{	/* Eval/expddefine.scm 369 */
																									obj_t BgL_resz00_1871;

																									{	/* Eval/expddefine.scm 370 */
																										obj_t BgL_arg1842z00_1872;

																										{	/* Eval/expddefine.scm 370 */
																											obj_t BgL_arg1845z00_1873;
																											obj_t BgL_arg1846z00_1874;

																											BgL_arg1845z00_1873 =
																												CAR(
																												((obj_t)
																													BgL_pfz00_1845));
																											{	/* Eval/expddefine.scm 371 */
																												obj_t
																													BgL_arg1847z00_1875;
																												obj_t
																													BgL_arg1848z00_1876;
																												BgL_arg1847z00_1875 =
																													CDR(BgL_p0z00_1846);
																												{	/* Eval/expddefine.scm 372 */
																													obj_t
																														BgL_arg1849z00_1877;
																													obj_t
																														BgL_arg1851z00_1878;
																													{	/* Eval/expddefine.scm 372 */
																														obj_t
																															BgL_arg1852z00_1879;
																														{	/* Eval/expddefine.scm 372 */
																															obj_t
																																BgL_arg1853z00_1880;
																															{	/* Eval/expddefine.scm 372 */
																																obj_t
																																	BgL_arg1854z00_1881;
																																obj_t
																																	BgL_arg1856z00_1882;
																																{	/* Eval/expddefine.scm 372 */
																																	obj_t
																																		BgL_arg1857z00_1883;
																																	BgL_arg1857z00_1883
																																		=
																																		MAKE_YOUNG_PAIR
																																		(BgL_f0z00_1826,
																																		BgL_formalsz00_1827);
																																	BgL_arg1854z00_1881
																																		=
																																		BGl_loopze70ze7zz__expander_definez00
																																		(BgL_ez00_24,
																																		BgL_arg1857z00_1883);
																																}
																																{	/* Eval/expddefine.scm 373 */
																																	obj_t
																																		BgL_arg1858z00_1884;
																																	{	/* Eval/expddefine.scm 373 */
																																		obj_t
																																			BgL_arg1859z00_1885;
																																		{	/* Eval/expddefine.scm 373 */
																																			obj_t
																																				BgL_arg1860z00_1886;
																																			obj_t
																																				BgL_arg1861z00_1887;
																																			BgL_arg1860z00_1886
																																				=
																																				MAKE_YOUNG_PAIR
																																				(BGl_symbol2460z00zz__expander_definez00,
																																				BNIL);
																																			{	/* Eval/expddefine.scm 375 */
																																				obj_t
																																					BgL_arg1862z00_1888;
																																				{	/* Eval/expddefine.scm 375 */
																																					obj_t
																																						BgL_arg1863z00_1889;
																																					{	/* Eval/expddefine.scm 375 */
																																						obj_t
																																							BgL_arg1864z00_1890;
																																						obj_t
																																							BgL_arg1865z00_1891;
																																						{	/* Eval/expddefine.scm 375 */
																																							obj_t
																																								BgL_arg1866z00_1892;
																																							{	/* Eval/expddefine.scm 375 */
																																								obj_t
																																									BgL_arg1867z00_1893;
																																								{	/* Eval/expddefine.scm 375 */
																																									obj_t
																																										BgL_arg1868z00_1894;
																																									{	/* Eval/expddefine.scm 375 */
																																										obj_t
																																											BgL_arg1869z00_1895;
																																										{	/* Eval/expddefine.scm 375 */
																																											obj_t
																																												BgL_arg1870z00_1896;
																																											obj_t
																																												BgL_arg1873z00_1897;
																																											BgL_arg1870z00_1896
																																												=
																																												CAR
																																												(BgL_p0z00_1846);
																																											{	/* Eval/expddefine.scm 376 */
																																												obj_t
																																													BgL_arg1876z00_1898;
																																												obj_t
																																													BgL_arg1878z00_1899;
																																												BgL_arg1876z00_1898
																																													=
																																													CAR
																																													(
																																													((obj_t) BgL_pfz00_1845));
																																												BgL_arg1878z00_1899
																																													=
																																													MAKE_YOUNG_PAIR
																																													(CDR
																																													(BgL_p0z00_1846),
																																													BNIL);
																																												BgL_arg1873z00_1897
																																													=
																																													MAKE_YOUNG_PAIR
																																													(BgL_arg1876z00_1898,
																																													BgL_arg1878z00_1899);
																																											}
																																											BgL_arg1869z00_1895
																																												=
																																												MAKE_YOUNG_PAIR
																																												(BgL_arg1870z00_1896,
																																												BgL_arg1873z00_1897);
																																										}
																																										BgL_arg1868z00_1894
																																											=
																																											MAKE_YOUNG_PAIR
																																											(BGl_symbol2462z00zz__expander_definez00,
																																											BgL_arg1869z00_1895);
																																									}
																																									BgL_arg1867z00_1893
																																										=
																																										MAKE_YOUNG_PAIR
																																										(BgL_arg1868z00_1894,
																																										BNIL);
																																								}
																																								BgL_arg1866z00_1892
																																									=
																																									MAKE_YOUNG_PAIR
																																									(BGl_symbol2464z00zz__expander_definez00,
																																									BgL_arg1867z00_1893);
																																							}
																																							BgL_arg1864z00_1890
																																								=
																																								MAKE_YOUNG_PAIR
																																								(BgL_arg1866z00_1892,
																																								BNIL);
																																						}
																																						{	/* Eval/expddefine.scm 378 */
																																							obj_t
																																								BgL_arg1881z00_1901;
																																							{	/* Eval/expddefine.scm 378 */
																																								obj_t
																																									BgL_arg1882z00_1902;
																																								{	/* Eval/expddefine.scm 378 */
																																									obj_t
																																										BgL_arg1883z00_1903;
																																									obj_t
																																										BgL_arg1884z00_1904;
																																									{	/* Eval/expddefine.scm 378 */
																																										obj_t
																																											BgL_arg1885z00_1905;
																																										BgL_arg1885z00_1905
																																											=
																																											MAKE_YOUNG_PAIR
																																											(BGl_symbol2464z00zz__expander_definez00,
																																											BNIL);
																																										BgL_arg1883z00_1903
																																											=
																																											MAKE_YOUNG_PAIR
																																											(BGl_symbol2441z00zz__expander_definez00,
																																											BgL_arg1885z00_1905);
																																									}
																																									{	/* Eval/expddefine.scm 379 */
																																										obj_t
																																											BgL_arg1886z00_1906;
																																										obj_t
																																											BgL_arg1887z00_1907;
																																										if (BgL_vaz00_1848)
																																											{	/* Eval/expddefine.scm 380 */
																																												obj_t
																																													BgL_arg1888z00_1908;
																																												{	/* Eval/expddefine.scm 380 */
																																													obj_t
																																														BgL_arg1889z00_1909;
																																													BgL_arg1889z00_1909
																																														=
																																														MAKE_YOUNG_PAIR
																																														(CAR
																																														(BgL_p0z00_1846),
																																														BgL_restz00_1847);
																																													BgL_arg1888z00_1908
																																														=
																																														MAKE_YOUNG_PAIR
																																														(BGl_symbol2464z00zz__expander_definez00,
																																														BgL_arg1889z00_1909);
																																												}
																																												BgL_arg1886z00_1906
																																													=
																																													MAKE_YOUNG_PAIR
																																													(BGl_symbol2433z00zz__expander_definez00,
																																													BgL_arg1888z00_1908);
																																											}
																																										else
																																											{	/* Eval/expddefine.scm 381 */
																																												obj_t
																																													BgL_arg1891z00_1911;
																																												BgL_arg1891z00_1911
																																													=
																																													MAKE_YOUNG_PAIR
																																													(CAR
																																													(BgL_p0z00_1846),
																																													BgL_restz00_1847);
																																												BgL_arg1886z00_1906
																																													=
																																													MAKE_YOUNG_PAIR
																																													(BGl_symbol2464z00zz__expander_definez00,
																																													BgL_arg1891z00_1911);
																																											}
																																										{	/* Eval/expddefine.scm 382 */
																																											obj_t
																																												BgL_arg1893z00_1913;
																																											if (BgL_vaz00_1848)
																																												{	/* Eval/expddefine.scm 383 */
																																													obj_t
																																														BgL_arg1894z00_1914;
																																													{	/* Eval/expddefine.scm 383 */
																																														obj_t
																																															BgL_arg1896z00_1915;
																																														obj_t
																																															BgL_arg1897z00_1916;
																																														BgL_arg1896z00_1915
																																															=
																																															CAR
																																															(
																																															((obj_t) BgL_pfz00_1845));
																																														BgL_arg1897z00_1916
																																															=
																																															MAKE_YOUNG_PAIR
																																															(CAR
																																															(BgL_p0z00_1846),
																																															BgL_restz00_1847);
																																														BgL_arg1894z00_1914
																																															=
																																															MAKE_YOUNG_PAIR
																																															(BgL_arg1896z00_1915,
																																															BgL_arg1897z00_1916);
																																													}
																																													BgL_arg1893z00_1913
																																														=
																																														MAKE_YOUNG_PAIR
																																														(BGl_symbol2433z00zz__expander_definez00,
																																														BgL_arg1894z00_1914);
																																												}
																																											else
																																												{	/* Eval/expddefine.scm 384 */
																																													obj_t
																																														BgL_arg1899z00_1918;
																																													obj_t
																																														BgL_arg1901z00_1919;
																																													BgL_arg1899z00_1918
																																														=
																																														CAR
																																														(
																																														((obj_t) BgL_pfz00_1845));
																																													BgL_arg1901z00_1919
																																														=
																																														MAKE_YOUNG_PAIR
																																														(CAR
																																														(BgL_p0z00_1846),
																																														BgL_restz00_1847);
																																													BgL_arg1893z00_1913
																																														=
																																														MAKE_YOUNG_PAIR
																																														(BgL_arg1899z00_1918,
																																														BgL_arg1901z00_1919);
																																												}
																																											BgL_arg1887z00_1907
																																												=
																																												MAKE_YOUNG_PAIR
																																												(BgL_arg1893z00_1913,
																																												BNIL);
																																										}
																																										BgL_arg1884z00_1904
																																											=
																																											MAKE_YOUNG_PAIR
																																											(BgL_arg1886z00_1906,
																																											BgL_arg1887z00_1907);
																																									}
																																									BgL_arg1882z00_1902
																																										=
																																										MAKE_YOUNG_PAIR
																																										(BgL_arg1883z00_1903,
																																										BgL_arg1884z00_1904);
																																								}
																																								BgL_arg1881z00_1901
																																									=
																																									MAKE_YOUNG_PAIR
																																									(BGl_symbol2443z00zz__expander_definez00,
																																									BgL_arg1882z00_1902);
																																							}
																																							BgL_arg1865z00_1891
																																								=
																																								MAKE_YOUNG_PAIR
																																								(BgL_arg1881z00_1901,
																																								BNIL);
																																						}
																																						BgL_arg1863z00_1889
																																							=
																																							MAKE_YOUNG_PAIR
																																							(BgL_arg1864z00_1890,
																																							BgL_arg1865z00_1891);
																																					}
																																					BgL_arg1862z00_1888
																																						=
																																						MAKE_YOUNG_PAIR
																																						(BGl_symbol2425z00zz__expander_definez00,
																																						BgL_arg1863z00_1889);
																																				}
																																				BgL_arg1861z00_1887
																																					=
																																					MAKE_YOUNG_PAIR
																																					(BgL_arg1862z00_1888,
																																					BNIL);
																																			}
																																			BgL_arg1859z00_1885
																																				=
																																				MAKE_YOUNG_PAIR
																																				(BgL_arg1860z00_1886,
																																				BgL_arg1861z00_1887);
																																		}
																																		BgL_arg1858z00_1884
																																			=
																																			MAKE_YOUNG_PAIR
																																			(BGl_symbol2421z00zz__expander_definez00,
																																			BgL_arg1859z00_1885);
																																	}
																																	BgL_arg1856z00_1882
																																		=
																																		MAKE_YOUNG_PAIR
																																		(BgL_arg1858z00_1884,
																																		BgL_bodyz00_1828);
																																}
																																BgL_arg1853z00_1880
																																	=
																																	MAKE_YOUNG_PAIR
																																	(BgL_arg1854z00_1881,
																																	BgL_arg1856z00_1882);
																															}
																															BgL_arg1852z00_1879
																																=
																																MAKE_YOUNG_PAIR
																																(BGl_symbol2418z00zz__expander_definez00,
																																BgL_arg1853z00_1880);
																														}
																														BgL_arg1849z00_1877
																															=
																															BGL_PROCEDURE_CALL2
																															(BgL_ez00_24,
																															BgL_arg1852z00_1879,
																															BgL_ez00_24);
																													}
																													{	/* Eval/expddefine.scm 386 */
																														obj_t
																															BgL_arg1905z00_1921;
																														{	/* Eval/expddefine.scm 386 */
																															obj_t
																																BgL_arg1906z00_1922;
																															BgL_arg1906z00_1922
																																=
																																MAKE_YOUNG_PAIR
																																(BgL_f0z00_1826,
																																BNIL);
																															BgL_arg1905z00_1921
																																=
																																MAKE_YOUNG_PAIR
																																(BGl_symbol2451z00zz__expander_definez00,
																																BgL_arg1906z00_1922);
																														}
																														BgL_arg1851z00_1878
																															=
																															MAKE_YOUNG_PAIR
																															(BgL_arg1905z00_1921,
																															BNIL);
																													}
																													BgL_arg1848z00_1876 =
																														MAKE_YOUNG_PAIR
																														(BgL_arg1849z00_1877,
																														BgL_arg1851z00_1878);
																												}
																												BgL_arg1846z00_1874 =
																													MAKE_YOUNG_PAIR
																													(BgL_arg1847z00_1875,
																													BgL_arg1848z00_1876);
																											}
																											BgL_arg1842z00_1872 =
																												MAKE_YOUNG_PAIR
																												(BgL_arg1845z00_1873,
																												BgL_arg1846z00_1874);
																										}
																										BgL_resz00_1871 =
																											MAKE_YOUNG_PAIR
																											(BGl_symbol2466z00zz__expander_definez00,
																											BgL_arg1842z00_1872);
																									}
																									{	/* Eval/expddefine.scm 369 */

																										return
																											BGl_evepairifyz00zz__prognz00
																											(BgL_resz00_1871,
																											BgL_xz00_23);
																									}
																								}
																							else
																								{	/* Eval/expddefine.scm 368 */
																									if (CBOOL
																										(BGl_memqz00zz__r4_pairs_and_lists_6_3z00
																											((BOPTIONAL),
																												BgL_formalsz00_1827)))
																										{	/* Eval/expddefine.scm 389 */
																											obj_t
																												BgL_tformalsz00_1924;
																											BgL_tformalsz00_1924 =
																												BGl_dssslzd2formalszd2ze3schemezd2typedzd2formalsze3zz__dssslz00
																												(BgL_formalsz00_1827,
																												BGl_errorzd2envzd2zz__errorz00,
																												((bool_t) 1));
																											{	/* Eval/expddefine.scm 389 */
																												obj_t
																													BgL_uformalsz00_1925;
																												BgL_uformalsz00_1925 =
																													BGl_dssslzd2formalszd2ze3schemezd2typedzd2formalsze3zz__dssslz00
																													(BgL_formalsz00_1827,
																													BGl_errorzd2envzd2zz__errorz00,
																													((bool_t) 0));
																												{	/* Eval/expddefine.scm 390 */
																													obj_t
																														BgL_namesz00_1926;
																													BgL_namesz00_1926 =
																														BGl_dssslzd2formalszd2ze3namesze3zz__expander_definez00
																														(BgL_formalsz00_1827);
																													{	/* Eval/expddefine.scm 391 */
																														obj_t
																															BgL_resz00_1927;
																														{	/* Eval/expddefine.scm 393 */
																															obj_t
																																BgL_arg1908z00_1928;
																															{	/* Eval/expddefine.scm 393 */
																																obj_t
																																	BgL_arg1911z00_1929;
																																obj_t
																																	BgL_arg1914z00_1930;
																																BgL_arg1911z00_1929
																																	=
																																	CAR(((obj_t)
																																		BgL_pfz00_1845));
																																{	/* Eval/expddefine.scm 394 */
																																	obj_t
																																		BgL_arg1915z00_1931;
																																	obj_t
																																		BgL_arg1916z00_1932;
																																	BgL_arg1915z00_1931
																																		=
																																		CDR
																																		(BgL_p0z00_1846);
																																	{	/* Eval/expddefine.scm 395 */
																																		obj_t
																																			BgL_arg1917z00_1933;
																																		obj_t
																																			BgL_arg1918z00_1934;
																																		{	/* Eval/expddefine.scm 395 */
																																			obj_t
																																				BgL_arg1919z00_1935;
																																			{	/* Eval/expddefine.scm 395 */
																																				obj_t
																																					BgL_arg1920z00_1936;
																																				{	/* Eval/expddefine.scm 395 */
																																					obj_t
																																						BgL_arg1921z00_1937;
																																					obj_t
																																						BgL_arg1922z00_1938;
																																					{	/* Eval/expddefine.scm 395 */
																																						obj_t
																																							BgL_arg1923z00_1939;
																																						BgL_arg1923z00_1939
																																							=
																																							MAKE_YOUNG_PAIR
																																							(BgL_f0z00_1826,
																																							BgL_namesz00_1926);
																																						BgL_arg1921z00_1937
																																							=
																																							BGl_loopze70ze7zz__expander_definez00
																																							(BgL_ez00_24,
																																							BgL_arg1923z00_1939);
																																					}
																																					{	/* Eval/expddefine.scm 396 */
																																						obj_t
																																							BgL_arg1924z00_1940;
																																						{	/* Eval/expddefine.scm 396 */
																																							obj_t
																																								BgL_arg1925z00_1941;
																																							{	/* Eval/expddefine.scm 396 */
																																								obj_t
																																									BgL_arg1926z00_1942;
																																								obj_t
																																									BgL_arg1927z00_1943;
																																								BgL_arg1926z00_1942
																																									=
																																									MAKE_YOUNG_PAIR
																																									(BGl_symbol2460z00zz__expander_definez00,
																																									BNIL);
																																								{	/* Eval/expddefine.scm 397 */
																																									obj_t
																																										BgL_arg1928z00_1944;
																																									{	/* Eval/expddefine.scm 397 */
																																										obj_t
																																											BgL_arg1931z00_1945;
																																										{	/* Eval/expddefine.scm 397 */
																																											obj_t
																																												BgL_arg1932z00_1946;
																																											obj_t
																																												BgL_arg1933z00_1947;
																																											{	/* Eval/expddefine.scm 397 */
																																												obj_t
																																													BgL_arg1934z00_1948;
																																												{	/* Eval/expddefine.scm 397 */
																																													obj_t
																																														BgL_arg1935z00_1949;
																																													{	/* Eval/expddefine.scm 397 */
																																														obj_t
																																															BgL_arg1936z00_1950;
																																														{	/* Eval/expddefine.scm 397 */
																																															obj_t
																																																BgL_arg1937z00_1951;
																																															{	/* Eval/expddefine.scm 397 */
																																																obj_t
																																																	BgL_arg1938z00_1952;
																																																obj_t
																																																	BgL_arg1939z00_1953;
																																																BgL_arg1938z00_1952
																																																	=
																																																	CAR
																																																	(BgL_p0z00_1846);
																																																{	/* Eval/expddefine.scm 398 */
																																																	obj_t
																																																		BgL_arg1940z00_1954;
																																																	obj_t
																																																		BgL_arg1941z00_1955;
																																																	BgL_arg1940z00_1954
																																																		=
																																																		CAR
																																																		(
																																																		((obj_t) BgL_pfz00_1845));
																																																	BgL_arg1941z00_1955
																																																		=
																																																		MAKE_YOUNG_PAIR
																																																		(CDR
																																																		(BgL_p0z00_1846),
																																																		BNIL);
																																																	BgL_arg1939z00_1953
																																																		=
																																																		MAKE_YOUNG_PAIR
																																																		(BgL_arg1940z00_1954,
																																																		BgL_arg1941z00_1955);
																																																}
																																																BgL_arg1937z00_1951
																																																	=
																																																	MAKE_YOUNG_PAIR
																																																	(BgL_arg1938z00_1952,
																																																	BgL_arg1939z00_1953);
																																															}
																																															BgL_arg1936z00_1950
																																																=
																																																MAKE_YOUNG_PAIR
																																																(BGl_symbol2462z00zz__expander_definez00,
																																																BgL_arg1937z00_1951);
																																														}
																																														BgL_arg1935z00_1949
																																															=
																																															MAKE_YOUNG_PAIR
																																															(BgL_arg1936z00_1950,
																																															BNIL);
																																													}
																																													BgL_arg1934z00_1948
																																														=
																																														MAKE_YOUNG_PAIR
																																														(BGl_symbol2464z00zz__expander_definez00,
																																														BgL_arg1935z00_1949);
																																												}
																																												BgL_arg1932z00_1946
																																													=
																																													MAKE_YOUNG_PAIR
																																													(BgL_arg1934z00_1948,
																																													BNIL);
																																											}
																																											{	/* Eval/expddefine.scm 400 */
																																												obj_t
																																													BgL_arg1943z00_1957;
																																												{	/* Eval/expddefine.scm 400 */
																																													obj_t
																																														BgL_arg1944z00_1958;
																																													{	/* Eval/expddefine.scm 400 */
																																														obj_t
																																															BgL_arg1945z00_1959;
																																														obj_t
																																															BgL_arg1946z00_1960;
																																														{	/* Eval/expddefine.scm 400 */
																																															obj_t
																																																BgL_arg1947z00_1961;
																																															BgL_arg1947z00_1961
																																																=
																																																MAKE_YOUNG_PAIR
																																																(BGl_symbol2464z00zz__expander_definez00,
																																																BNIL);
																																															BgL_arg1945z00_1959
																																																=
																																																MAKE_YOUNG_PAIR
																																																(BGl_symbol2441z00zz__expander_definez00,
																																																BgL_arg1947z00_1961);
																																														}
																																														{	/* Eval/expddefine.scm 401 */
																																															obj_t
																																																BgL_arg1948z00_1962;
																																															obj_t
																																																BgL_arg1949z00_1963;
																																															{	/* Eval/expddefine.scm 401 */
																																																obj_t
																																																	BgL_arg1950z00_1964;
																																																BgL_arg1950z00_1964
																																																	=
																																																	MAKE_YOUNG_PAIR
																																																	(CAR
																																																	(BgL_p0z00_1846),
																																																	BgL_namesz00_1926);
																																																BgL_arg1948z00_1962
																																																	=
																																																	MAKE_YOUNG_PAIR
																																																	(BGl_symbol2464z00zz__expander_definez00,
																																																	BgL_arg1950z00_1964);
																																															}
																																															{	/* Eval/expddefine.scm 402 */
																																																obj_t
																																																	BgL_arg1954z00_1966;
																																																{	/* Eval/expddefine.scm 402 */
																																																	obj_t
																																																		BgL_arg1955z00_1967;
																																																	{	/* Eval/expddefine.scm 402 */
																																																		obj_t
																																																			BgL_arg1956z00_1968;
																																																		obj_t
																																																			BgL_arg1957z00_1969;
																																																		BgL_arg1956z00_1968
																																																			=
																																																			CAR
																																																			(
																																																			((obj_t) BgL_pfz00_1845));
																																																		BgL_arg1957z00_1969
																																																			=
																																																			MAKE_YOUNG_PAIR
																																																			(CAR
																																																			(BgL_p0z00_1846),
																																																			BgL_namesz00_1926);
																																																		BgL_arg1955z00_1967
																																																			=
																																																			MAKE_YOUNG_PAIR
																																																			(BgL_arg1956z00_1968,
																																																			BgL_arg1957z00_1969);
																																																	}
																																																	BgL_arg1954z00_1966
																																																		=
																																																		MAKE_YOUNG_PAIR
																																																		(BGl_symbol2433z00zz__expander_definez00,
																																																		BgL_arg1955z00_1967);
																																																}
																																																BgL_arg1949z00_1963
																																																	=
																																																	MAKE_YOUNG_PAIR
																																																	(BgL_arg1954z00_1966,
																																																	BNIL);
																																															}
																																															BgL_arg1946z00_1960
																																																=
																																																MAKE_YOUNG_PAIR
																																																(BgL_arg1948z00_1962,
																																																BgL_arg1949z00_1963);
																																														}
																																														BgL_arg1944z00_1958
																																															=
																																															MAKE_YOUNG_PAIR
																																															(BgL_arg1945z00_1959,
																																															BgL_arg1946z00_1960);
																																													}
																																													BgL_arg1943z00_1957
																																														=
																																														MAKE_YOUNG_PAIR
																																														(BGl_symbol2443z00zz__expander_definez00,
																																														BgL_arg1944z00_1958);
																																												}
																																												BgL_arg1933z00_1947
																																													=
																																													MAKE_YOUNG_PAIR
																																													(BgL_arg1943z00_1957,
																																													BNIL);
																																											}
																																											BgL_arg1931z00_1945
																																												=
																																												MAKE_YOUNG_PAIR
																																												(BgL_arg1932z00_1946,
																																												BgL_arg1933z00_1947);
																																										}
																																										BgL_arg1928z00_1944
																																											=
																																											MAKE_YOUNG_PAIR
																																											(BGl_symbol2425z00zz__expander_definez00,
																																											BgL_arg1931z00_1945);
																																									}
																																									BgL_arg1927z00_1943
																																										=
																																										MAKE_YOUNG_PAIR
																																										(BgL_arg1928z00_1944,
																																										BNIL);
																																								}
																																								BgL_arg1925z00_1941
																																									=
																																									MAKE_YOUNG_PAIR
																																									(BgL_arg1926z00_1942,
																																									BgL_arg1927z00_1943);
																																							}
																																							BgL_arg1924z00_1940
																																								=
																																								MAKE_YOUNG_PAIR
																																								(BGl_symbol2421z00zz__expander_definez00,
																																								BgL_arg1925z00_1941);
																																						}
																																						BgL_arg1922z00_1938
																																							=
																																							MAKE_YOUNG_PAIR
																																							(BgL_arg1924z00_1940,
																																							BgL_bodyz00_1828);
																																					}
																																					BgL_arg1920z00_1936
																																						=
																																						MAKE_YOUNG_PAIR
																																						(BgL_arg1921z00_1937,
																																						BgL_arg1922z00_1938);
																																				}
																																				BgL_arg1919z00_1935
																																					=
																																					MAKE_YOUNG_PAIR
																																					(BGl_symbol2418z00zz__expander_definez00,
																																					BgL_arg1920z00_1936);
																																			}
																																			BgL_arg1917z00_1933
																																				=
																																				BGL_PROCEDURE_CALL2
																																				(BgL_ez00_24,
																																				BgL_arg1919z00_1935,
																																				BgL_ez00_24);
																																		}
																																		{	/* Eval/expddefine.scm 405 */
																																			obj_t
																																				BgL_arg1960z00_1971;
																																			{	/* Eval/expddefine.scm 405 */
																																				obj_t
																																					BgL_arg1961z00_1972;
																																				BgL_arg1961z00_1972
																																					=
																																					MAKE_YOUNG_PAIR
																																					(BgL_f0z00_1826,
																																					BNIL);
																																				BgL_arg1960z00_1971
																																					=
																																					MAKE_YOUNG_PAIR
																																					(BGl_symbol2451z00zz__expander_definez00,
																																					BgL_arg1961z00_1972);
																																			}
																																			BgL_arg1918z00_1934
																																				=
																																				MAKE_YOUNG_PAIR
																																				(BgL_arg1960z00_1971,
																																				BNIL);
																																		}
																																		BgL_arg1916z00_1932
																																			=
																																			MAKE_YOUNG_PAIR
																																			(BgL_arg1917z00_1933,
																																			BgL_arg1918z00_1934);
																																	}
																																	BgL_arg1914z00_1930
																																		=
																																		MAKE_YOUNG_PAIR
																																		(BgL_arg1915z00_1931,
																																		BgL_arg1916z00_1932);
																																}
																																BgL_arg1908z00_1928
																																	=
																																	MAKE_YOUNG_PAIR
																																	(BgL_arg1911z00_1929,
																																	BgL_arg1914z00_1930);
																															}
																															BgL_resz00_1927 =
																																MAKE_YOUNG_PAIR
																																(BGl_symbol2466z00zz__expander_definez00,
																																BgL_arg1908z00_1928);
																														}
																														{	/* Eval/expddefine.scm 392 */

																															return
																																BGl_evepairifyz00zz__prognz00
																																(BgL_resz00_1927,
																																BgL_xz00_23);
																														}
																													}
																												}
																											}
																										}
																									else
																										{	/* Eval/expddefine.scm 409 */
																											obj_t
																												BgL_tformalsz00_1973;
																											BgL_tformalsz00_1973 =
																												BGl_dssslzd2formalszd2ze3schemezd2typedzd2formalsze3zz__dssslz00
																												(BgL_formalsz00_1827,
																												BGl_errorzd2envzd2zz__errorz00,
																												((bool_t) 1));
																											{	/* Eval/expddefine.scm 409 */
																												obj_t
																													BgL_uformalsz00_1974;
																												BgL_uformalsz00_1974 =
																													BGl_dssslzd2formalszd2ze3schemezd2typedzd2formalsze3zz__dssslz00
																													(BgL_formalsz00_1827,
																													BGl_errorzd2envzd2zz__errorz00,
																													((bool_t) 0));
																												{	/* Eval/expddefine.scm 410 */
																													obj_t BgL_resz00_1975;

																													{	/* Eval/expddefine.scm 412 */
																														obj_t
																															BgL_arg1962z00_1976;
																														{	/* Eval/expddefine.scm 412 */
																															obj_t
																																BgL_arg1963z00_1977;
																															obj_t
																																BgL_arg1964z00_1978;
																															BgL_arg1963z00_1977
																																=
																																CAR(((obj_t)
																																	BgL_pfz00_1845));
																															{	/* Eval/expddefine.scm 413 */
																																obj_t
																																	BgL_arg1965z00_1979;
																																obj_t
																																	BgL_arg1966z00_1980;
																																BgL_arg1965z00_1979
																																	=
																																	CDR
																																	(BgL_p0z00_1846);
																																{	/* Eval/expddefine.scm 414 */
																																	obj_t
																																		BgL_arg1967z00_1981;
																																	obj_t
																																		BgL_arg1968z00_1982;
																																	{	/* Eval/expddefine.scm 414 */
																																		obj_t
																																			BgL_arg1969z00_1983;
																																		{	/* Eval/expddefine.scm 414 */
																																			obj_t
																																				BgL_arg1970z00_1984;
																																			{	/* Eval/expddefine.scm 414 */
																																				obj_t
																																					BgL_arg1971z00_1985;
																																				obj_t
																																					BgL_arg1972z00_1986;
																																				{	/* Eval/expddefine.scm 414 */
																																					obj_t
																																						BgL_arg1975z00_1987;
																																					BgL_arg1975z00_1987
																																						=
																																						MAKE_YOUNG_PAIR
																																						(BgL_f0z00_1826,
																																						BgL_tformalsz00_1973);
																																					BgL_arg1971z00_1985
																																						=
																																						BGl_loopze70ze7zz__expander_definez00
																																						(BgL_ez00_24,
																																						BgL_arg1975z00_1987);
																																				}
																																				{	/* Eval/expddefine.scm 415 */
																																					obj_t
																																						BgL_arg1977z00_1988;
																																					obj_t
																																						BgL_arg1978z00_1989;
																																					{	/* Eval/expddefine.scm 415 */
																																						obj_t
																																							BgL_arg1979z00_1990;
																																						{	/* Eval/expddefine.scm 415 */
																																							obj_t
																																								BgL_arg1980z00_1991;
																																							obj_t
																																								BgL_arg1981z00_1992;
																																							BgL_arg1980z00_1991
																																								=
																																								MAKE_YOUNG_PAIR
																																								(BGl_symbol2460z00zz__expander_definez00,
																																								BNIL);
																																							{	/* Eval/expddefine.scm 416 */
																																								obj_t
																																									BgL_arg1982z00_1993;
																																								{	/* Eval/expddefine.scm 416 */
																																									obj_t
																																										BgL_arg1983z00_1994;
																																									{	/* Eval/expddefine.scm 416 */
																																										obj_t
																																											BgL_arg1984z00_1995;
																																										obj_t
																																											BgL_arg1985z00_1996;
																																										{	/* Eval/expddefine.scm 416 */
																																											obj_t
																																												BgL_arg1987z00_1997;
																																											{	/* Eval/expddefine.scm 416 */
																																												obj_t
																																													BgL_arg1988z00_1998;
																																												{	/* Eval/expddefine.scm 416 */
																																													obj_t
																																														BgL_arg1989z00_1999;
																																													{	/* Eval/expddefine.scm 416 */
																																														obj_t
																																															BgL_arg1990z00_2000;
																																														{	/* Eval/expddefine.scm 416 */
																																															obj_t
																																																BgL_arg1991z00_2001;
																																															obj_t
																																																BgL_arg1992z00_2002;
																																															BgL_arg1991z00_2001
																																																=
																																																CAR
																																																(BgL_p0z00_1846);
																																															{	/* Eval/expddefine.scm 417 */
																																																obj_t
																																																	BgL_arg1993z00_2003;
																																																obj_t
																																																	BgL_arg1994z00_2004;
																																																BgL_arg1993z00_2003
																																																	=
																																																	CAR
																																																	(
																																																	((obj_t) BgL_pfz00_1845));
																																																BgL_arg1994z00_2004
																																																	=
																																																	MAKE_YOUNG_PAIR
																																																	(CDR
																																																	(BgL_p0z00_1846),
																																																	BNIL);
																																																BgL_arg1992z00_2002
																																																	=
																																																	MAKE_YOUNG_PAIR
																																																	(BgL_arg1993z00_2003,
																																																	BgL_arg1994z00_2004);
																																															}
																																															BgL_arg1990z00_2000
																																																=
																																																MAKE_YOUNG_PAIR
																																																(BgL_arg1991z00_2001,
																																																BgL_arg1992z00_2002);
																																														}
																																														BgL_arg1989z00_1999
																																															=
																																															MAKE_YOUNG_PAIR
																																															(BGl_symbol2462z00zz__expander_definez00,
																																															BgL_arg1990z00_2000);
																																													}
																																													BgL_arg1988z00_1998
																																														=
																																														MAKE_YOUNG_PAIR
																																														(BgL_arg1989z00_1999,
																																														BNIL);
																																												}
																																												BgL_arg1987z00_1997
																																													=
																																													MAKE_YOUNG_PAIR
																																													(BGl_symbol2464z00zz__expander_definez00,
																																													BgL_arg1988z00_1998);
																																											}
																																											BgL_arg1984z00_1995
																																												=
																																												MAKE_YOUNG_PAIR
																																												(BgL_arg1987z00_1997,
																																												BNIL);
																																										}
																																										{	/* Eval/expddefine.scm 419 */
																																											obj_t
																																												BgL_arg1996z00_2006;
																																											{	/* Eval/expddefine.scm 419 */
																																												obj_t
																																													BgL_arg1998z00_2007;
																																												{	/* Eval/expddefine.scm 419 */
																																													obj_t
																																														BgL_arg1999z00_2008;
																																													obj_t
																																														BgL_arg2000z00_2009;
																																													{	/* Eval/expddefine.scm 419 */
																																														obj_t
																																															BgL_arg2002z00_2010;
																																														BgL_arg2002z00_2010
																																															=
																																															MAKE_YOUNG_PAIR
																																															(BGl_symbol2464z00zz__expander_definez00,
																																															BNIL);
																																														BgL_arg1999z00_2008
																																															=
																																															MAKE_YOUNG_PAIR
																																															(BGl_symbol2441z00zz__expander_definez00,
																																															BgL_arg2002z00_2010);
																																													}
																																													{	/* Eval/expddefine.scm 420 */
																																														obj_t
																																															BgL_arg2003z00_2011;
																																														obj_t
																																															BgL_arg2004z00_2012;
																																														{	/* Eval/expddefine.scm 420 */
																																															obj_t
																																																BgL_arg2005z00_2013;
																																															{	/* Eval/expddefine.scm 420 */
																																																obj_t
																																																	BgL_arg2007z00_2014;
																																																BgL_arg2007z00_2014
																																																	=
																																																	MAKE_YOUNG_PAIR
																																																	(CAR
																																																	(BgL_p0z00_1846),
																																																	BGl_pairzd2ze3listze70zd6zz__expander_definez00
																																																	(BgL_uformalsz00_1974));
																																																BgL_arg2005z00_2013
																																																	=
																																																	MAKE_YOUNG_PAIR
																																																	(BGl_symbol2464z00zz__expander_definez00,
																																																	BgL_arg2007z00_2014);
																																															}
																																															BgL_arg2003z00_2011
																																																=
																																																MAKE_YOUNG_PAIR
																																																(BGl_symbol2433z00zz__expander_definez00,
																																																BgL_arg2005z00_2013);
																																														}
																																														{	/* Eval/expddefine.scm 422 */
																																															obj_t
																																																BgL_arg2011z00_2017;
																																															{	/* Eval/expddefine.scm 422 */
																																																obj_t
																																																	BgL_arg2012z00_2018;
																																																{	/* Eval/expddefine.scm 422 */
																																																	obj_t
																																																		BgL_arg2013z00_2019;
																																																	obj_t
																																																		BgL_arg2016z00_2020;
																																																	BgL_arg2013z00_2019
																																																		=
																																																		CAR
																																																		(
																																																		((obj_t) BgL_pfz00_1845));
																																																	BgL_arg2016z00_2020
																																																		=
																																																		MAKE_YOUNG_PAIR
																																																		(CAR
																																																		(BgL_p0z00_1846),
																																																		BGl_pairzd2ze3listze70zd6zz__expander_definez00
																																																		(BgL_uformalsz00_1974));
																																																	BgL_arg2012z00_2018
																																																		=
																																																		MAKE_YOUNG_PAIR
																																																		(BgL_arg2013z00_2019,
																																																		BgL_arg2016z00_2020);
																																																}
																																																BgL_arg2011z00_2017
																																																	=
																																																	MAKE_YOUNG_PAIR
																																																	(BGl_symbol2433z00zz__expander_definez00,
																																																	BgL_arg2012z00_2018);
																																															}
																																															BgL_arg2004z00_2012
																																																=
																																																MAKE_YOUNG_PAIR
																																																(BgL_arg2011z00_2017,
																																																BNIL);
																																														}
																																														BgL_arg2000z00_2009
																																															=
																																															MAKE_YOUNG_PAIR
																																															(BgL_arg2003z00_2011,
																																															BgL_arg2004z00_2012);
																																													}
																																													BgL_arg1998z00_2007
																																														=
																																														MAKE_YOUNG_PAIR
																																														(BgL_arg1999z00_2008,
																																														BgL_arg2000z00_2009);
																																												}
																																												BgL_arg1996z00_2006
																																													=
																																													MAKE_YOUNG_PAIR
																																													(BGl_symbol2443z00zz__expander_definez00,
																																													BgL_arg1998z00_2007);
																																											}
																																											BgL_arg1985z00_1996
																																												=
																																												MAKE_YOUNG_PAIR
																																												(BgL_arg1996z00_2006,
																																												BNIL);
																																										}
																																										BgL_arg1983z00_1994
																																											=
																																											MAKE_YOUNG_PAIR
																																											(BgL_arg1984z00_1995,
																																											BgL_arg1985z00_1996);
																																									}
																																									BgL_arg1982z00_1993
																																										=
																																										MAKE_YOUNG_PAIR
																																										(BGl_symbol2425z00zz__expander_definez00,
																																										BgL_arg1983z00_1994);
																																								}
																																								BgL_arg1981z00_1992
																																									=
																																									MAKE_YOUNG_PAIR
																																									(BgL_arg1982z00_1993,
																																									BNIL);
																																							}
																																							BgL_arg1979z00_1990
																																								=
																																								MAKE_YOUNG_PAIR
																																								(BgL_arg1980z00_1991,
																																								BgL_arg1981z00_1992);
																																						}
																																						BgL_arg1977z00_1988
																																							=
																																							MAKE_YOUNG_PAIR
																																							(BGl_symbol2421z00zz__expander_definez00,
																																							BgL_arg1979z00_1990);
																																					}
																																					{	/* Eval/expddefine.scm 425 */
																																						obj_t
																																							BgL_arg2019z00_2023;
																																						{	/* Eval/expddefine.scm 425 */
																																							obj_t
																																								BgL_arg2020z00_2024;
																																							BgL_arg2020z00_2024
																																								=
																																								MAKE_YOUNG_PAIR
																																								(BGl_symbol2413z00zz__expander_definez00,
																																								BgL_bodyz00_1828);
																																							BgL_arg2019z00_2023
																																								=
																																								BGl_makezd2dssslzd2functionzd2preludezd2zz__dssslz00
																																								(BgL_funz00_1825,
																																								BgL_formalsz00_1827,
																																								BgL_arg2020z00_2024,
																																								BGl_errorzd2envzd2zz__errorz00);
																																						}
																																						BgL_arg1978z00_1989
																																							=
																																							MAKE_YOUNG_PAIR
																																							(BgL_arg2019z00_2023,
																																							BNIL);
																																					}
																																					BgL_arg1972z00_1986
																																						=
																																						MAKE_YOUNG_PAIR
																																						(BgL_arg1977z00_1988,
																																						BgL_arg1978z00_1989);
																																				}
																																				BgL_arg1970z00_1984
																																					=
																																					MAKE_YOUNG_PAIR
																																					(BgL_arg1971z00_1985,
																																					BgL_arg1972z00_1986);
																																			}
																																			BgL_arg1969z00_1983
																																				=
																																				MAKE_YOUNG_PAIR
																																				(BGl_symbol2418z00zz__expander_definez00,
																																				BgL_arg1970z00_1984);
																																		}
																																		BgL_arg1967z00_1981
																																			=
																																			BGL_PROCEDURE_CALL2
																																			(BgL_ez00_24,
																																			BgL_arg1969z00_1983,
																																			BgL_ez00_24);
																																	}
																																	{	/* Eval/expddefine.scm 427 */
																																		obj_t
																																			BgL_arg2021z00_2025;
																																		{	/* Eval/expddefine.scm 427 */
																																			obj_t
																																				BgL_arg2022z00_2026;
																																			BgL_arg2022z00_2026
																																				=
																																				MAKE_YOUNG_PAIR
																																				(BgL_f0z00_1826,
																																				BNIL);
																																			BgL_arg2021z00_2025
																																				=
																																				MAKE_YOUNG_PAIR
																																				(BGl_symbol2451z00zz__expander_definez00,
																																				BgL_arg2022z00_2026);
																																		}
																																		BgL_arg1968z00_1982
																																			=
																																			MAKE_YOUNG_PAIR
																																			(BgL_arg2021z00_2025,
																																			BNIL);
																																	}
																																	BgL_arg1966z00_1980
																																		=
																																		MAKE_YOUNG_PAIR
																																		(BgL_arg1967z00_1981,
																																		BgL_arg1968z00_1982);
																																}
																																BgL_arg1964z00_1978
																																	=
																																	MAKE_YOUNG_PAIR
																																	(BgL_arg1965z00_1979,
																																	BgL_arg1966z00_1980);
																															}
																															BgL_arg1962z00_1976
																																=
																																MAKE_YOUNG_PAIR
																																(BgL_arg1963z00_1977,
																																BgL_arg1964z00_1978);
																														}
																														BgL_resz00_1975 =
																															MAKE_YOUNG_PAIR
																															(BGl_symbol2466z00zz__expander_definez00,
																															BgL_arg1962z00_1976);
																													}
																													{	/* Eval/expddefine.scm 411 */

																														return
																															BGl_evepairifyz00zz__prognz00
																															(BgL_resz00_1975,
																															BgL_xz00_23);
																													}
																												}
																											}
																										}
																								}
																						}
																					else
																						{	/* Eval/expddefine.scm 366 */
																							return
																								BGl_expandzd2errorzd2zz__expandz00
																								(BGl_string2468z00zz__expander_definez00,
																								BGl_string2417z00zz__expander_definez00,
																								BgL_xz00_23);
																						}
																				}
																			}
																		}
																	}
																}
															}
														}
													}
											}
										else
											{	/* Eval/expddefine.scm 357 */
												return
													BGl_expandzd2errorzd2zz__expandz00
													(BGl_string2468z00zz__expander_definez00,
													BGl_string2417z00zz__expander_definez00, BgL_xz00_23);
											}
									}
								else
									{	/* Eval/expddefine.scm 357 */
										return
											BGl_expandzd2errorzd2zz__expandz00
											(BGl_string2468z00zz__expander_definez00,
											BGl_string2417z00zz__expander_definez00, BgL_xz00_23);
									}
							}
						else
							{	/* Eval/expddefine.scm 357 */
								return
									BGl_expandzd2errorzd2zz__expandz00
									(BGl_string2468z00zz__expander_definez00,
									BGl_string2417z00zz__expander_definez00, BgL_xz00_23);
							}
					}
				else
					{	/* Eval/expddefine.scm 357 */
						return
							BGl_expandzd2errorzd2zz__expandz00
							(BGl_string2468z00zz__expander_definez00,
							BGl_string2417z00zz__expander_definez00, BgL_xz00_23);
					}
			}
		}

	}



/* get-args~0 */
	obj_t BGl_getzd2argsze70z35zz__expander_definez00(obj_t BgL_argsz00_2052,
		obj_t BgL_locz00_2053)
	{
		{	/* Eval/expddefine.scm 349 */
			if (NULLP(BgL_argsz00_2052))
				{	/* Eval/expddefine.scm 343 */
					return BNIL;
				}
			else
				{	/* Eval/expddefine.scm 343 */
					if (PAIRP(BgL_argsz00_2052))
						{	/* Eval/expddefine.scm 346 */
							obj_t BgL_arg2041z00_2057;
							obj_t BgL_arg2042z00_2058;

							{	/* Eval/expddefine.scm 346 */
								obj_t BgL_arg2043z00_2059;
								obj_t BgL_arg2044z00_2060;

								BgL_arg2043z00_2059 = CAR(BgL_argsz00_2052);
								{	/* Eval/expddefine.scm 346 */
									obj_t BgL__ortest_1045z00_2061;

									BgL__ortest_1045z00_2061 =
										BGl_getzd2sourcezd2locationz00zz__readerz00
										(BgL_argsz00_2052);
									if (CBOOL(BgL__ortest_1045z00_2061))
										{	/* Eval/expddefine.scm 346 */
											BgL_arg2044z00_2060 = BgL__ortest_1045z00_2061;
										}
									else
										{	/* Eval/expddefine.scm 346 */
											BgL_arg2044z00_2060 = BgL_locz00_2053;
										}
								}
								{	/* Eval/expddefine.scm 336 */
									obj_t BgL_rz00_2897;

									BgL_rz00_2897 =
										BGl_parsezd2formalzd2identz00zz__evutilsz00
										(BgL_arg2043z00_2059, BgL_arg2044z00_2060);
									if (PAIRP(BgL_rz00_2897))
										{	/* Eval/expddefine.scm 337 */
											BgL_arg2041z00_2057 = CAR(BgL_rz00_2897);
										}
									else
										{	/* Eval/expddefine.scm 337 */
											BgL_arg2041z00_2057 = BgL_rz00_2897;
										}
								}
							}
							BgL_arg2042z00_2058 =
								BGl_getzd2argsze70z35zz__expander_definez00(CDR
								(BgL_argsz00_2052), BgL_locz00_2053);
							return MAKE_YOUNG_PAIR(BgL_arg2041z00_2057, BgL_arg2042z00_2058);
						}
					else
						{	/* Eval/expddefine.scm 349 */
							obj_t BgL_arg2046z00_2063;

							{	/* Eval/expddefine.scm 336 */
								obj_t BgL_rz00_2901;

								BgL_rz00_2901 =
									BGl_parsezd2formalzd2identz00zz__evutilsz00(BgL_argsz00_2052,
									BgL_locz00_2053);
								if (PAIRP(BgL_rz00_2901))
									{	/* Eval/expddefine.scm 337 */
										BgL_arg2046z00_2063 = CAR(BgL_rz00_2901);
									}
								else
									{	/* Eval/expddefine.scm 337 */
										BgL_arg2046z00_2063 = BgL_rz00_2901;
									}
							}
							{	/* Eval/expddefine.scm 349 */
								obj_t BgL_list2047z00_2064;

								BgL_list2047z00_2064 =
									MAKE_YOUNG_PAIR(BgL_arg2046z00_2063, BNIL);
								return BgL_list2047z00_2064;
							}
						}
				}
		}

	}



/* pair->list~0 */
	obj_t BGl_pairzd2ze3listze70zd6zz__expander_definez00(obj_t BgL_pz00_2065)
	{
		{	/* Eval/expddefine.scm 355 */
			if (PAIRP(BgL_pz00_2065))
				{	/* Eval/expddefine.scm 353 */
					return
						MAKE_YOUNG_PAIR(CAR(BgL_pz00_2065),
						BGl_pairzd2ze3listze70zd6zz__expander_definez00(CDR
							(BgL_pz00_2065)));
				}
			else
				{	/* Eval/expddefine.scm 353 */
					if (NULLP(BgL_pz00_2065))
						{	/* Eval/expddefine.scm 354 */
							return BNIL;
						}
					else
						{	/* Eval/expddefine.scm 355 */
							obj_t BgL_list2054z00_2072;

							BgL_list2054z00_2072 = MAKE_YOUNG_PAIR(BgL_pz00_2065, BNIL);
							return BgL_list2054z00_2072;
						}
				}
		}

	}



/* &expand-eval-define-method */
	obj_t BGl_z62expandzd2evalzd2definezd2methodzb0zz__expander_definez00(obj_t
		BgL_envz00_3176, obj_t BgL_xz00_3177, obj_t BgL_ez00_3178)
	{
		{	/* Eval/expddefine.scm 333 */
			{	/* Eval/expddefine.scm 336 */
				obj_t BgL_auxz00_4558;

				if (PROCEDUREP(BgL_ez00_3178))
					{	/* Eval/expddefine.scm 336 */
						BgL_auxz00_4558 = BgL_ez00_3178;
					}
				else
					{
						obj_t BgL_auxz00_4561;

						BgL_auxz00_4561 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string2410z00zz__expander_definez00, BINT(12172L),
							BGl_string2469z00zz__expander_definez00,
							BGl_string2412z00zz__expander_definez00, BgL_ez00_3178);
						FAILURE(BgL_auxz00_4561, BFALSE, BFALSE);
					}
				return
					BGl_expandzd2evalzd2definezd2methodzd2zz__expander_definez00
					(BgL_xz00_3177, BgL_auxz00_4558);
			}
		}

	}



/* dsssl-formals->names */
	obj_t BGl_dssslzd2formalszd2ze3namesze3zz__expander_definez00(obj_t
		BgL_formalsz00_25)
	{
		{	/* Eval/expddefine.scm 438 */
			{	/* Eval/expddefine.scm 439 */
				obj_t BgL_list2056z00_2077;

				BgL_list2056z00_2077 = MAKE_YOUNG_PAIR(BgL_formalsz00_25, BNIL);
				return
					BGl_filterzd2mapzd2zz__r4_control_features_6_9z00
					(BGl_proc2470z00zz__expander_definez00, BgL_list2056z00_2077);
			}
		}

	}



/* &<@anonymous:2057> */
	obj_t BGl_z62zc3z04anonymousza32057ze3ze5zz__expander_definez00(obj_t
		BgL_envz00_3184, obj_t BgL_pz00_3185)
	{
		{	/* Eval/expddefine.scm 439 */
			if (SYMBOLP(BgL_pz00_3185))
				{	/* Eval/expddefine.scm 441 */
					return BgL_pz00_3185;
				}
			else
				{	/* Eval/expddefine.scm 441 */
					if (PAIRP(BgL_pz00_3185))
						{	/* Eval/expddefine.scm 442 */
							return CAR(BgL_pz00_3185);
						}
					else
						{	/* Eval/expddefine.scm 442 */
							return BFALSE;
						}
				}
		}

	}



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

	}



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

	}



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

	}



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

	}

#ifdef __cplusplus
}
#endif
