/*===========================================================================*/
/*   (Eval/expdargs.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/expdargs.scm -indent -o objs/obj_u/Eval/expdargs.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_ARGS_TYPE_DEFINITIONS
#define BGL___EXPANDER_ARGS_TYPE_DEFINITIONS
#endif													// BGL___EXPANDER_ARGS_TYPE_DEFINITIONS
#endif													// BGL_MODULE_TYPE_DEFINITIONS

	extern bool_t BGl_pairzd2orzd2nullzf3zf3zz__r4_pairs_and_lists_6_3z00(obj_t);
	static obj_t BGl_symbol2561z00zz__expander_argsz00 = BUNSPEC;
	static obj_t BGl_symbol2564z00zz__expander_argsz00 = BUNSPEC;
	static obj_t BGl_z62expandzd2argszd2parsez62zz__expander_argsz00(obj_t, obj_t,
		obj_t);
	static obj_t BGl_symbol2566z00zz__expander_argsz00 = BUNSPEC;
	extern obj_t BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
	static obj_t BGl_symbol2491z00zz__expander_argsz00 = BUNSPEC;
	static obj_t BGl_symbol2573z00zz__expander_argsz00 = BUNSPEC;
	static obj_t BGl_symbol2493z00zz__expander_argsz00 = BUNSPEC;
	static obj_t BGl_symbol2575z00zz__expander_argsz00 = BUNSPEC;
	static obj_t BGl_symbol2495z00zz__expander_argsz00 = BUNSPEC;
	static obj_t
		BGl_fetchzd2optionzd2embedzd2argumentzd2zz__expander_argsz00(obj_t);
	static obj_t BGl_symbol2577z00zz__expander_argsz00 = BUNSPEC;
	static obj_t BGl_symbol2497z00zz__expander_argsz00 = BUNSPEC;
	static obj_t BGl_symbol2499z00zz__expander_argsz00 = BUNSPEC;
	static obj_t BGl_requirezd2initializa7ationz75zz__expander_argsz00 = BUNSPEC;
	extern obj_t BGl_expandzd2errorzd2zz__expandz00(obj_t, obj_t, obj_t);
	static bool_t BGl_helpzd2messagezf3z21zz__expander_argsz00(obj_t);
	static obj_t BGl_dozd2expandzd2argszd2parsezd2zz__expander_argsz00(obj_t,
		obj_t);
	static obj_t BGl_bindzd2optionz12zc0zz__expander_argsz00(obj_t, obj_t, obj_t);
	static obj_t BGl_symbol2581z00zz__expander_argsz00 = BUNSPEC;
	static obj_t BGl_symbol2583z00zz__expander_argsz00 = BUNSPEC;
	static obj_t BGl_symbol2585z00zz__expander_argsz00 = BUNSPEC;
	static obj_t BGl_symbol2587z00zz__expander_argsz00 = BUNSPEC;
	static obj_t BGl_symbol2589z00zz__expander_argsz00 = BUNSPEC;
	extern obj_t bgl_display_obj(obj_t, obj_t);
	extern obj_t BGl_makezd2hashtablezd2zz__hashz00(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_argsz00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__expandz00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__prognz00(long, char *);
	extern obj_t
		BGl_modulezd2initializa7ationz75zz__r5_control_features_6_4z00(long,
		char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__r4_output_6_10_3z00(long,
		char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__r4_ports_6_10_1z00(long,
		char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__r4_vectors_6_8z00(long,
		char *);
	extern obj_t
		BGl_modulezd2initializa7ationz75zz__r4_control_features_6_9z00(long,
		char *);
	extern obj_t
		BGl_modulezd2initializa7ationz75zz__r4_pairs_and_lists_6_3z00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__r4_strings_6_7z00(long,
		char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__r4_symbols_6_4z00(long,
		char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__r4_booleans_6_1z00(long,
		char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__r4_equivalence_6_2z00(long,
		char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__r4_characters_6_6z00(long,
		char *);
	extern obj_t
		BGl_modulezd2initializa7ationz75zz__r4_numbers_6_5_flonum_dtoaz00(long,
		char *);
	extern obj_t
		BGl_modulezd2initializa7ationz75zz__r4_numbers_6_5_flonumz00(long, char *);
	extern obj_t
		BGl_modulezd2initializa7ationz75zz__r4_numbers_6_5_fixnumz00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__r4_numbers_6_5z00(long,
		char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__match_normaliza7eza7(long,
		char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__threadz00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__objectz00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__paramz00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__hashz00(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_concatze70ze7zz__expander_argsz00(obj_t);
	static obj_t BGl_symbol2591z00zz__expander_argsz00 = BUNSPEC;
	static obj_t BGl_symbol2593z00zz__expander_argsz00 = BUNSPEC;
	static obj_t BGl_symbol2595z00zz__expander_argsz00 = BUNSPEC;
	static obj_t BGl_makezd2simplezd2optzd2parserzd2zz__expander_argsz00(obj_t,
		obj_t);
	extern obj_t BGl_warningz00zz__errorz00(obj_t);
	extern obj_t BGl_stringzd2appendzd2zz__r4_strings_6_7z00(obj_t);
	BGL_EXPORTED_DECL obj_t
		BGl_expandzd2argszd2parsez00zz__expander_argsz00(obj_t, obj_t);
	BGL_EXPORTED_DECL obj_t
		BGl_argszd2parsezd2usagez00zz__expander_argsz00(obj_t);
	static obj_t BGl_cnstzd2initzd2zz__expander_argsz00(void);
	extern bool_t BGl_listzf3zf3zz__r4_pairs_and_lists_6_3z00(obj_t);
	static obj_t BGl_genericzd2initzd2zz__expander_argsz00(void);
	extern obj_t BGl_stringzd2copyzd2zz__r4_strings_6_7z00(obj_t);
	static obj_t BGl_importedzd2moduleszd2initz00zz__expander_argsz00(void);
	static obj_t BGl_gczd2rootszd2initz00zz__expander_argsz00(void);
	static obj_t BGl_makezd2multiplezd2optzd2parserzd2zz__expander_argsz00(obj_t,
		obj_t);
	static obj_t BGl_objectzd2initzd2zz__expander_argsz00(void);
	static bool_t BGl_synopsiszf3zf3zz__expander_argsz00(obj_t);
	static obj_t BGl_makezd2optzd2parserz00zz__expander_argsz00(obj_t, obj_t);
	extern obj_t BGl_consza2za2zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
	extern obj_t bgl_reverse_bang(obj_t);
	extern obj_t string_append_3(obj_t, obj_t, obj_t);
	static obj_t BGl_z62zc3z04anonymousza32107ze3ze5zz__expander_argsz00(obj_t,
		obj_t);
	static obj_t BGl_symbol2501z00zz__expander_argsz00 = BUNSPEC;
	extern obj_t bstring_to_symbol(obj_t);
	static obj_t BGl_symbol2503z00zz__expander_argsz00 = BUNSPEC;
	static obj_t BGl_symbol2507z00zz__expander_argsz00 = BUNSPEC;
	extern obj_t c_substring(obj_t, long, long);
	static obj_t BGl_symbol2509z00zz__expander_argsz00 = BUNSPEC;
	static obj_t BGl_bindzd2optionzd2argumentsz00zz__expander_argsz00(obj_t,
		obj_t, obj_t, obj_t);
	extern obj_t BGl_writez00zz__r4_output_6_10_3z00(obj_t, obj_t);
	extern obj_t BGl_gensymz00zz__r4_symbols_6_4z00(obj_t);
	extern obj_t BGl_hashtablezd2putz12zc0zz__hashz00(obj_t, obj_t, obj_t);
	static obj_t BGl_makezd2parserzd2zz__expander_argsz00(obj_t, obj_t);
	static obj_t BGl_symbol2511z00zz__expander_argsz00 = BUNSPEC;
	static obj_t BGl_symbol2513z00zz__expander_argsz00 = BUNSPEC;
	static obj_t BGl_methodzd2initzd2zz__expander_argsz00(void);
	static obj_t BGl_symbol2515z00zz__expander_argsz00 = BUNSPEC;
	static obj_t BGl_symbol2517z00zz__expander_argsz00 = BUNSPEC;
	static obj_t BGl_symbol2519z00zz__expander_argsz00 = BUNSPEC;
	static obj_t BGl_fetchzd2optionzd2argumentsz00zz__expander_argsz00(obj_t);
	static obj_t BGl_z62argszd2parsezd2usagez62zz__expander_argsz00(obj_t, obj_t);
	static obj_t BGl_symbol2521z00zz__expander_argsz00 = BUNSPEC;
	static obj_t BGl_symbol2523z00zz__expander_argsz00 = BUNSPEC;
	static obj_t BGl_symbol2605z00zz__expander_argsz00 = BUNSPEC;
	static obj_t BGl_symbol2525z00zz__expander_argsz00 = BUNSPEC;
	static obj_t BGl_symbol2527z00zz__expander_argsz00 = BUNSPEC;
	static obj_t BGl_symbol2529z00zz__expander_argsz00 = BUNSPEC;
	static obj_t BGl_loopze70ze7zz__expander_argsz00(obj_t, obj_t, obj_t);
	static obj_t BGl_loopze71ze7zz__expander_argsz00(obj_t, obj_t);
	static obj_t BGl_loopze72ze7zz__expander_argsz00(obj_t, obj_t);
	static obj_t BGl_makezd2helpzd2zz__expander_argsz00(obj_t);
	static obj_t BGl_symbol2531z00zz__expander_argsz00 = BUNSPEC;
	static obj_t BGl_makezd2synopsiszd2namez00zz__expander_argsz00(obj_t);
	static obj_t BGl_symbol2533z00zz__expander_argsz00 = BUNSPEC;
	static obj_t BGl_symbol2535z00zz__expander_argsz00 = BUNSPEC;
	extern obj_t make_string(long, unsigned char);
	static obj_t BGl_symbol2537z00zz__expander_argsz00 = BUNSPEC;
	static obj_t BGl_symbol2539z00zz__expander_argsz00 = BUNSPEC;
	extern obj_t BGl_lastzd2pairzd2zz__r4_pairs_and_lists_6_3z00(obj_t);
	extern obj_t string_append(obj_t, obj_t);
	static obj_t BGl_symbol2541z00zz__expander_argsz00 = BUNSPEC;
	static obj_t BGl_symbol2543z00zz__expander_argsz00 = BUNSPEC;
	extern obj_t BGl_stringzd2upcasezd2zz__r4_strings_6_7z00(obj_t);
	static obj_t BGl_symbol2545z00zz__expander_argsz00 = BUNSPEC;
	static obj_t BGl_symbol2547z00zz__expander_argsz00 = BUNSPEC;
	static obj_t BGl_fetchzd2argumentzd2namez00zz__expander_argsz00(obj_t, obj_t);
	static obj_t BGl_symbol2549z00zz__expander_argsz00 = BUNSPEC;
	static obj_t BGl_symbol2551z00zz__expander_argsz00 = BUNSPEC;
	static obj_t BGl_symbol2553z00zz__expander_argsz00 = BUNSPEC;
	static obj_t BGl_symbol2555z00zz__expander_argsz00 = BUNSPEC;
	static obj_t BGl_symbol2557z00zz__expander_argsz00 = BUNSPEC;
	static obj_t BGl_symbol2559z00zz__expander_argsz00 = BUNSPEC;
	extern obj_t BGl_hashtablezd2getzd2zz__hashz00(obj_t, obj_t);
	static obj_t *__cnst;


	   
		 
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_argszd2parsezd2usagezd2envzd2zz__expander_argsz00,
		BgL_bgl_za762argsza7d2parseza72609za7,
		BGl_z62argszd2parsezd2usagez62zz__expander_argsz00, 0L, BUNSPEC, 1);
	      BGL_DEFINE_STRING(BGl_string2500z00zz__expander_argsz00,
		BgL_bgl_string2500za700za7za7_2610za7, "quote", 5);
	      BGL_DEFINE_STRING(BGl_string2502z00zz__expander_argsz00,
		BgL_bgl_string2502za700za7za7_2611za7, "values", 6);
	      BGL_DEFINE_STRING(BGl_string2504z00zz__expander_argsz00,
		BgL_bgl_string2504za700za7za7_2612za7, "car", 3);
	      BGL_DEFINE_STRING(BGl_string2505z00zz__expander_argsz00,
		BgL_bgl_string2505za700za7za7_2613za7, "see -help", 9);
	      BGL_DEFINE_STRING(BGl_string2506z00zz__expander_argsz00,
		BgL_bgl_string2506za700za7za7_2614za7, "Illegal option", 14);
	      BGL_DEFINE_STRING(BGl_string2508z00zz__expander_argsz00,
		BgL_bgl_string2508za700za7za7_2615za7, "error", 5);
	      BGL_DEFINE_STRING(BGl_string2510z00zz__expander_argsz00,
		BgL_bgl_string2510za700za7za7_2616za7, "if", 2);
	      BGL_DEFINE_STRING(BGl_string2512z00zz__expander_argsz00,
		BgL_bgl_string2512za700za7za7_2617za7, "lambda", 6);
	      BGL_DEFINE_STRING(BGl_string2514z00zz__expander_argsz00,
		BgL_bgl_string2514za700za7za7_2618za7, "unquote", 7);
	      BGL_DEFINE_STRING(BGl_string2516z00zz__expander_argsz00,
		BgL_bgl_string2516za700za7za7_2619za7, "quasiquote", 10);
	      BGL_DEFINE_STRING(BGl_string2518z00zz__expander_argsz00,
		BgL_bgl_string2518za700za7za7_2620za7, "args-parse-usage", 16);
	      BGL_DEFINE_STRING(BGl_string2600z00zz__expander_argsz00,
		BgL_bgl_string2600za700za7za7_2621za7, "Illegal option argument", 23);
	      BGL_DEFINE_STRING(BGl_string2601z00zz__expander_argsz00,
		BgL_bgl_string2601za700za7za7_2622za7, "&args-parse-usage", 17);
	      BGL_DEFINE_STRING(BGl_string2520z00zz__expander_argsz00,
		BgL_bgl_string2520za700za7za7_2623za7, "list", 4);
	      BGL_DEFINE_STRING(BGl_string2602z00zz__expander_argsz00,
		BgL_bgl_string2602za700za7za7_2624za7, "(", 1);
	      BGL_DEFINE_STRING(BGl_string2603z00zz__expander_argsz00,
		BgL_bgl_string2603za700za7za7_2625za7, "   ", 3);
	      BGL_DEFINE_STRING(BGl_string2522z00zz__expander_argsz00,
		BgL_bgl_string2522za700za7za7_2626za7, "p*", 2);
	      BGL_DEFINE_STRING(BGl_string2604z00zz__expander_argsz00,
		BgL_bgl_string2604za700za7za7_2627za7, ":", 1);
	      BGL_DEFINE_STRING(BGl_string2524z00zz__expander_argsz00,
		BgL_bgl_string2524za700za7za7_2628za7, "a*", 2);
	      BGL_DEFINE_STRING(BGl_string2606z00zz__expander_argsz00,
		BgL_bgl_string2606za700za7za7_2629za7, "usage-done", 10);
	      BGL_DEFINE_STRING(BGl_string2607z00zz__expander_argsz00,
		BgL_bgl_string2607za700za7za7_2630za7, ")", 1);
	      BGL_DEFINE_STRING(BGl_string2526z00zz__expander_argsz00,
		BgL_bgl_string2526za700za7za7_2631za7, "cons", 4);
	      BGL_DEFINE_STRING(BGl_string2608z00zz__expander_argsz00,
		BgL_bgl_string2608za700za7za7_2632za7, "__expander_args", 15);
	      BGL_DEFINE_STRING(BGl_string2528z00zz__expander_argsz00,
		BgL_bgl_string2528za700za7za7_2633za7, "set!", 4);
	      BGL_DEFINE_STRING(BGl_string2530z00zz__expander_argsz00,
		BgL_bgl_string2530za700za7za7_2634za7, "list?", 5);
	      BGL_DEFINE_STRING(BGl_string2532z00zz__expander_argsz00,
		BgL_bgl_string2532za700za7za7_2635za7, "not", 3);
	      BGL_DEFINE_STRING(BGl_string2534z00zz__expander_argsz00,
		BgL_bgl_string2534za700za7za7_2636za7, "Illegal argument list", 21);
	      BGL_DEFINE_STRING(BGl_string2536z00zz__expander_argsz00,
		BgL_bgl_string2536za700za7za7_2637za7, "nv", 2);
	      BGL_DEFINE_STRING(BGl_string2538z00zz__expander_argsz00,
		BgL_bgl_string2538za700za7za7_2638za7, "na*", 3);
	      BGL_DEFINE_STRING(BGl_string2540z00zz__expander_argsz00,
		BgL_bgl_string2540za700za7za7_2639za7, "action", 6);
	      BGL_DEFINE_STRING(BGl_string2542z00zz__expander_argsz00,
		BgL_bgl_string2542za700za7za7_2640za7, "next", 4);
	      BGL_DEFINE_STRING(BGl_string2544z00zz__expander_argsz00,
		BgL_bgl_string2544za700za7za7_2641za7, "loop", 4);
	      BGL_DEFINE_STRING(BGl_string2546z00zz__expander_argsz00,
		BgL_bgl_string2546za700za7za7_2642za7, "fail", 4);
	      BGL_DEFINE_STRING(BGl_string2548z00zz__expander_argsz00,
		BgL_bgl_string2548za700za7za7_2643za7, "cdr", 3);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_expandzd2argszd2parsezd2envzd2zz__expander_argsz00,
		BgL_bgl_za762expandza7d2args2644z00,
		BGl_z62expandzd2argszd2parsez62zz__expander_argsz00, 0L, BUNSPEC, 2);
	      BGL_DEFINE_STRING(BGl_string2550z00zz__expander_argsz00,
		BgL_bgl_string2550za700za7za7_2645za7, "liip", 4);
	      BGL_DEFINE_STRING(BGl_string2552z00zz__expander_argsz00,
		BgL_bgl_string2552za700za7za7_2646za7, "case", 4);
	      BGL_DEFINE_STRING(BGl_string2554z00zz__expander_argsz00,
		BgL_bgl_string2554za700za7za7_2647za7, "multiple-value-bind", 19);
	      BGL_DEFINE_STRING(BGl_string2556z00zz__expander_argsz00,
		BgL_bgl_string2556za700za7za7_2648za7, "let", 3);
	      BGL_DEFINE_STRING(BGl_string2558z00zz__expander_argsz00,
		BgL_bgl_string2558za700za7za7_2649za7, "let*", 4);
	      BGL_DEFINE_STRING(BGl_string2560z00zz__expander_argsz00,
		BgL_bgl_string2560za700za7za7_2650za7, "help", 4);
	      BGL_DEFINE_STRING(BGl_string2562z00zz__expander_argsz00,
		BgL_bgl_string2562za700za7za7_2651za7, "synopsis", 8);
	      BGL_DEFINE_STRING(BGl_string2563z00zz__expander_argsz00,
		BgL_bgl_string2563za700za7za7_2652za7, "Illegal help message", 20);
	      BGL_DEFINE_STRING(BGl_string2565z00zz__expander_argsz00,
		BgL_bgl_string2565za700za7za7_2653za7, "section", 7);
	      BGL_DEFINE_STRING(BGl_string2485z00zz__expander_argsz00,
		BgL_bgl_string2485za700za7za7_2654za7, "args-parse", 10);
	      BGL_DEFINE_STRING(BGl_string2567z00zz__expander_argsz00,
		BgL_bgl_string2567za700za7za7_2655za7, "else", 4);
	      BGL_DEFINE_STRING(BGl_string2486z00zz__expander_argsz00,
		BgL_bgl_string2486za700za7za7_2656za7, "Illegal syntax", 14);
	      BGL_DEFINE_STRING(BGl_string2568z00zz__expander_argsz00,
		BgL_bgl_string2568za700za7za7_2657za7, " ", 1);
	      BGL_DEFINE_STRING(BGl_string2487z00zz__expander_argsz00,
		BgL_bgl_string2487za700za7za7_2658za7,
		"/tmp/bigloo/runtime/Eval/expdargs.scm", 37);
	      BGL_DEFINE_STRING(BGl_string2569z00zz__expander_argsz00,
		BgL_bgl_string2569za700za7za7_2659za7, "Illegal options", 15);
	      BGL_DEFINE_STRING(BGl_string2488z00zz__expander_argsz00,
		BgL_bgl_string2488za700za7za7_2660za7, "&expand-args-parse", 18);
	      BGL_DEFINE_STRING(BGl_string2489z00zz__expander_argsz00,
		BgL_bgl_string2489za700za7za7_2661za7, "pair-nil", 8);
	      BGL_DEFINE_STRING(BGl_string2570z00zz__expander_argsz00,
		BgL_bgl_string2570za700za7za7_2662za7, "Illegal clause", 14);
	      BGL_DEFINE_STRING(BGl_string2571z00zz__expander_argsz00,
		BgL_bgl_string2571za700za7za7_2663za7, "", 0);
	      BGL_DEFINE_STRING(BGl_string2490z00zz__expander_argsz00,
		BgL_bgl_string2490za700za7za7_2664za7, "procedure", 9);
	      BGL_DEFINE_STRING(BGl_string2572z00zz__expander_argsz00,
		BgL_bgl_string2572za700za7za7_2665za7, ",", 1);
	      BGL_DEFINE_STRING(BGl_string2492z00zz__expander_argsz00,
		BgL_bgl_string2492za700za7za7_2666za7, "v", 1);
	      BGL_DEFINE_STRING(BGl_string2574z00zz__expander_argsz00,
		BgL_bgl_string2574za700za7za7_2667za7, "begin", 5);
	      BGL_DEFINE_STRING(BGl_string2494z00zz__expander_argsz00,
		BgL_bgl_string2494za700za7za7_2668za7, "a", 1);
	      BGL_DEFINE_STRING(BGl_string2576z00zz__expander_argsz00,
		BgL_bgl_string2576za700za7za7_2669za7, "pair?", 5);
	      BGL_DEFINE_STRING(BGl_string2496z00zz__expander_argsz00,
		BgL_bgl_string2496za700za7za7_2670za7, "null?", 5);
	      BGL_DEFINE_STRING(BGl_string2578z00zz__expander_argsz00,
		BgL_bgl_string2578za700za7za7_2671za7, "rest", 4);
	      BGL_DEFINE_STRING(BGl_string2579z00zz__expander_argsz00,
		BgL_bgl_string2579za700za7za7_2672za7, "  ", 2);
	      BGL_DEFINE_STRING(BGl_string2498z00zz__expander_argsz00,
		BgL_bgl_string2498za700za7za7_2673za7, "end", 3);
	      BGL_DEFINE_STRING(BGl_string2580z00zz__expander_argsz00,
		BgL_bgl_string2580za700za7za7_2674za7, " -- Option overridden:", 22);
	      BGL_DEFINE_STRING(BGl_string2582z00zz__expander_argsz00,
		BgL_bgl_string2582za700za7za7_2675za7, "substring=?", 11);
	      BGL_DEFINE_STRING(BGl_string2584z00zz__expander_argsz00,
		BgL_bgl_string2584za700za7za7_2676za7, "and", 3);
	      BGL_DEFINE_STRING(BGl_string2586z00zz__expander_argsz00,
		BgL_bgl_string2586za700za7za7_2677za7, "string-length", 13);
	      BGL_DEFINE_STRING(BGl_string2588z00zz__expander_argsz00,
		BgL_bgl_string2588za700za7za7_2678za7, "substring", 9);
	      BGL_DEFINE_STRING(BGl_string2590z00zz__expander_argsz00,
		BgL_bgl_string2590za700za7za7_2679za7, "the-remaining-args", 18);
	      BGL_DEFINE_STRING(BGl_string2592z00zz__expander_argsz00,
		BgL_bgl_string2592za700za7za7_2680za7, "string=?", 8);
	      BGL_DEFINE_STRING(BGl_string2594z00zz__expander_argsz00,
		BgL_bgl_string2594za700za7za7_2681za7, "cond", 4);
	      BGL_DEFINE_STRING(BGl_string2596z00zz__expander_argsz00,
		BgL_bgl_string2596za700za7za7_2682za7, "or", 2);
	      BGL_DEFINE_STRING(BGl_string2597z00zz__expander_argsz00,
		BgL_bgl_string2597za700za7za7_2683za7, "missing argument", 16);
	      BGL_DEFINE_STRING(BGl_string2598z00zz__expander_argsz00,
		BgL_bgl_string2598za700za7za7_2684za7, "Illegal option argument `", 25);
	      BGL_DEFINE_STRING(BGl_string2599z00zz__expander_argsz00,
		BgL_bgl_string2599za700za7za7_2685za7, "'", 1);

/* contant bindings */
	static void bgl_constant_bindings()
	{
		BGL_BIND_STRING(BGl_string2599z00zz__expander_argsz00,
			BgL_bgl_string2599za700za7za7_2685za7);
		BGL_BIND_STRING(BGl_string2598z00zz__expander_argsz00,
			BgL_bgl_string2598za700za7za7_2684za7);
		BGL_BIND_STRING(BGl_string2597z00zz__expander_argsz00,
			BgL_bgl_string2597za700za7za7_2683za7);
		BGL_BIND_STRING(BGl_string2596z00zz__expander_argsz00,
			BgL_bgl_string2596za700za7za7_2682za7);
		BGL_BIND_STRING(BGl_string2594z00zz__expander_argsz00,
			BgL_bgl_string2594za700za7za7_2681za7);
		BGL_BIND_STRING(BGl_string2592z00zz__expander_argsz00,
			BgL_bgl_string2592za700za7za7_2680za7);
		BGL_BIND_STRING(BGl_string2590z00zz__expander_argsz00,
			BgL_bgl_string2590za700za7za7_2679za7);
		BGL_BIND_STRING(BGl_string2588z00zz__expander_argsz00,
			BgL_bgl_string2588za700za7za7_2678za7);
		BGL_BIND_STRING(BGl_string2586z00zz__expander_argsz00,
			BgL_bgl_string2586za700za7za7_2677za7);
		BGL_BIND_STRING(BGl_string2584z00zz__expander_argsz00,
			BgL_bgl_string2584za700za7za7_2676za7);
		BGL_BIND_STRING(BGl_string2582z00zz__expander_argsz00,
			BgL_bgl_string2582za700za7za7_2675za7);
		BGL_BIND_STRING(BGl_string2580z00zz__expander_argsz00,
			BgL_bgl_string2580za700za7za7_2674za7);
		BGL_BIND_STRING(BGl_string2498z00zz__expander_argsz00,
			BgL_bgl_string2498za700za7za7_2673za7);
		BGL_BIND_STRING(BGl_string2579z00zz__expander_argsz00,
			BgL_bgl_string2579za700za7za7_2672za7);
		BGL_BIND_STRING(BGl_string2578z00zz__expander_argsz00,
			BgL_bgl_string2578za700za7za7_2671za7);
		BGL_BIND_STRING(BGl_string2496z00zz__expander_argsz00,
			BgL_bgl_string2496za700za7za7_2670za7);
		BGL_BIND_STRING(BGl_string2576z00zz__expander_argsz00,
			BgL_bgl_string2576za700za7za7_2669za7);
		BGL_BIND_STRING(BGl_string2494z00zz__expander_argsz00,
			BgL_bgl_string2494za700za7za7_2668za7);
		BGL_BIND_STRING(BGl_string2574z00zz__expander_argsz00,
			BgL_bgl_string2574za700za7za7_2667za7);
		BGL_BIND_STRING(BGl_string2492z00zz__expander_argsz00,
			BgL_bgl_string2492za700za7za7_2666za7);
		BGL_BIND_STRING(BGl_string2572z00zz__expander_argsz00,
			BgL_bgl_string2572za700za7za7_2665za7);
		BGL_BIND_STRING(BGl_string2490z00zz__expander_argsz00,
			BgL_bgl_string2490za700za7za7_2664za7);
		BGL_BIND_STRING(BGl_string2571z00zz__expander_argsz00,
			BgL_bgl_string2571za700za7za7_2663za7);
		BGL_BIND_STRING(BGl_string2570z00zz__expander_argsz00,
			BgL_bgl_string2570za700za7za7_2662za7);
		BGL_BIND_STRING(BGl_string2489z00zz__expander_argsz00,
			BgL_bgl_string2489za700za7za7_2661za7);
		BGL_BIND_STRING(BGl_string2488z00zz__expander_argsz00,
			BgL_bgl_string2488za700za7za7_2660za7);
		BGL_BIND_STRING(BGl_string2569z00zz__expander_argsz00,
			BgL_bgl_string2569za700za7za7_2659za7);
		BGL_BIND_STRING(BGl_string2487z00zz__expander_argsz00,
			BgL_bgl_string2487za700za7za7_2658za7);
		BGL_BIND_STRING(BGl_string2568z00zz__expander_argsz00,
			BgL_bgl_string2568za700za7za7_2657za7);
		BGL_BIND_STRING(BGl_string2486z00zz__expander_argsz00,
			BgL_bgl_string2486za700za7za7_2656za7);
		BGL_BIND_STRING(BGl_string2567z00zz__expander_argsz00,
			BgL_bgl_string2567za700za7za7_2655za7);
		BGL_BIND_STRING(BGl_string2485z00zz__expander_argsz00,
			BgL_bgl_string2485za700za7za7_2654za7);
		BGL_BIND_STRING(BGl_string2565z00zz__expander_argsz00,
			BgL_bgl_string2565za700za7za7_2653za7);
		BGL_BIND_STRING(BGl_string2563z00zz__expander_argsz00,
			BgL_bgl_string2563za700za7za7_2652za7);
		BGL_BIND_STRING(BGl_string2562z00zz__expander_argsz00,
			BgL_bgl_string2562za700za7za7_2651za7);
		BGL_BIND_STRING(BGl_string2560z00zz__expander_argsz00,
			BgL_bgl_string2560za700za7za7_2650za7);
		BGL_BIND_STRING(BGl_string2558z00zz__expander_argsz00,
			BgL_bgl_string2558za700za7za7_2649za7);
		BGL_BIND_STRING(BGl_string2556z00zz__expander_argsz00,
			BgL_bgl_string2556za700za7za7_2648za7);
		BGL_BIND_STRING(BGl_string2554z00zz__expander_argsz00,
			BgL_bgl_string2554za700za7za7_2647za7);
		BGL_BIND_STRING(BGl_string2552z00zz__expander_argsz00,
			BgL_bgl_string2552za700za7za7_2646za7);
		BGL_BIND_STRING(BGl_string2550z00zz__expander_argsz00,
			BgL_bgl_string2550za700za7za7_2645za7);
		BGL_BIND_PROCEDURE(BGl_expandzd2argszd2parsezd2envzd2zz__expander_argsz00,
			BgL_bgl_za762expandza7d2args2644z00);
		BGL_BIND_STRING(BGl_string2548z00zz__expander_argsz00,
			BgL_bgl_string2548za700za7za7_2643za7);
		BGL_BIND_STRING(BGl_string2546z00zz__expander_argsz00,
			BgL_bgl_string2546za700za7za7_2642za7);
		BGL_BIND_STRING(BGl_string2544z00zz__expander_argsz00,
			BgL_bgl_string2544za700za7za7_2641za7);
		BGL_BIND_STRING(BGl_string2542z00zz__expander_argsz00,
			BgL_bgl_string2542za700za7za7_2640za7);
		BGL_BIND_STRING(BGl_string2540z00zz__expander_argsz00,
			BgL_bgl_string2540za700za7za7_2639za7);
		BGL_BIND_STRING(BGl_string2538z00zz__expander_argsz00,
			BgL_bgl_string2538za700za7za7_2638za7);
		BGL_BIND_STRING(BGl_string2536z00zz__expander_argsz00,
			BgL_bgl_string2536za700za7za7_2637za7);
		BGL_BIND_STRING(BGl_string2534z00zz__expander_argsz00,
			BgL_bgl_string2534za700za7za7_2636za7);
		BGL_BIND_STRING(BGl_string2532z00zz__expander_argsz00,
			BgL_bgl_string2532za700za7za7_2635za7);
		BGL_BIND_STRING(BGl_string2530z00zz__expander_argsz00,
			BgL_bgl_string2530za700za7za7_2634za7);
		BGL_BIND_STRING(BGl_string2528z00zz__expander_argsz00,
			BgL_bgl_string2528za700za7za7_2633za7);
		BGL_BIND_STRING(BGl_string2608z00zz__expander_argsz00,
			BgL_bgl_string2608za700za7za7_2632za7);
		BGL_BIND_STRING(BGl_string2526z00zz__expander_argsz00,
			BgL_bgl_string2526za700za7za7_2631za7);
		BGL_BIND_STRING(BGl_string2607z00zz__expander_argsz00,
			BgL_bgl_string2607za700za7za7_2630za7);
		BGL_BIND_STRING(BGl_string2606z00zz__expander_argsz00,
			BgL_bgl_string2606za700za7za7_2629za7);
		BGL_BIND_STRING(BGl_string2524z00zz__expander_argsz00,
			BgL_bgl_string2524za700za7za7_2628za7);
		BGL_BIND_STRING(BGl_string2604z00zz__expander_argsz00,
			BgL_bgl_string2604za700za7za7_2627za7);
		BGL_BIND_STRING(BGl_string2522z00zz__expander_argsz00,
			BgL_bgl_string2522za700za7za7_2626za7);
		BGL_BIND_STRING(BGl_string2603z00zz__expander_argsz00,
			BgL_bgl_string2603za700za7za7_2625za7);
		BGL_BIND_STRING(BGl_string2602z00zz__expander_argsz00,
			BgL_bgl_string2602za700za7za7_2624za7);
		BGL_BIND_STRING(BGl_string2520z00zz__expander_argsz00,
			BgL_bgl_string2520za700za7za7_2623za7);
		BGL_BIND_STRING(BGl_string2601z00zz__expander_argsz00,
			BgL_bgl_string2601za700za7za7_2622za7);
		BGL_BIND_STRING(BGl_string2600z00zz__expander_argsz00,
			BgL_bgl_string2600za700za7za7_2621za7);
		BGL_BIND_STRING(BGl_string2518z00zz__expander_argsz00,
			BgL_bgl_string2518za700za7za7_2620za7);
		BGL_BIND_STRING(BGl_string2516z00zz__expander_argsz00,
			BgL_bgl_string2516za700za7za7_2619za7);
		BGL_BIND_STRING(BGl_string2514z00zz__expander_argsz00,
			BgL_bgl_string2514za700za7za7_2618za7);
		BGL_BIND_STRING(BGl_string2512z00zz__expander_argsz00,
			BgL_bgl_string2512za700za7za7_2617za7);
		BGL_BIND_STRING(BGl_string2510z00zz__expander_argsz00,
			BgL_bgl_string2510za700za7za7_2616za7);
		BGL_BIND_STRING(BGl_string2508z00zz__expander_argsz00,
			BgL_bgl_string2508za700za7za7_2615za7);
		BGL_BIND_STRING(BGl_string2506z00zz__expander_argsz00,
			BgL_bgl_string2506za700za7za7_2614za7);
		BGL_BIND_STRING(BGl_string2505z00zz__expander_argsz00,
			BgL_bgl_string2505za700za7za7_2613za7);
		BGL_BIND_STRING(BGl_string2504z00zz__expander_argsz00,
			BgL_bgl_string2504za700za7za7_2612za7);
		BGL_BIND_STRING(BGl_string2502z00zz__expander_argsz00,
			BgL_bgl_string2502za700za7za7_2611za7);
		BGL_BIND_STRING(BGl_string2500z00zz__expander_argsz00,
			BgL_bgl_string2500za700za7za7_2610za7);
		BGL_BIND_PROCEDURE(BGl_argszd2parsezd2usagezd2envzd2zz__expander_argsz00,
			BgL_bgl_za762argsza7d2parseza72609za7);
	}

/* 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_symbol2561z00zz__expander_argsz00));
		ADD_ROOT((void *) (&BGl_symbol2564z00zz__expander_argsz00));
		ADD_ROOT((void *) (&BGl_symbol2566z00zz__expander_argsz00));
		ADD_ROOT((void *) (&BGl_symbol2491z00zz__expander_argsz00));
		ADD_ROOT((void *) (&BGl_symbol2573z00zz__expander_argsz00));
		ADD_ROOT((void *) (&BGl_symbol2493z00zz__expander_argsz00));
		ADD_ROOT((void *) (&BGl_symbol2575z00zz__expander_argsz00));
		ADD_ROOT((void *) (&BGl_symbol2495z00zz__expander_argsz00));
		ADD_ROOT((void *) (&BGl_symbol2577z00zz__expander_argsz00));
		ADD_ROOT((void *) (&BGl_symbol2497z00zz__expander_argsz00));
		ADD_ROOT((void *) (&BGl_symbol2499z00zz__expander_argsz00));
		ADD_ROOT((void *) (&BGl_requirezd2initializa7ationz75zz__expander_argsz00));
		ADD_ROOT((void *) (&BGl_symbol2581z00zz__expander_argsz00));
		ADD_ROOT((void *) (&BGl_symbol2583z00zz__expander_argsz00));
		ADD_ROOT((void *) (&BGl_symbol2585z00zz__expander_argsz00));
		ADD_ROOT((void *) (&BGl_symbol2587z00zz__expander_argsz00));
		ADD_ROOT((void *) (&BGl_symbol2589z00zz__expander_argsz00));
		ADD_ROOT((void *) (&BGl_symbol2591z00zz__expander_argsz00));
		ADD_ROOT((void *) (&BGl_symbol2593z00zz__expander_argsz00));
		ADD_ROOT((void *) (&BGl_symbol2595z00zz__expander_argsz00));
		ADD_ROOT((void *) (&BGl_symbol2501z00zz__expander_argsz00));
		ADD_ROOT((void *) (&BGl_symbol2503z00zz__expander_argsz00));
		ADD_ROOT((void *) (&BGl_symbol2507z00zz__expander_argsz00));
		ADD_ROOT((void *) (&BGl_symbol2509z00zz__expander_argsz00));
		ADD_ROOT((void *) (&BGl_symbol2511z00zz__expander_argsz00));
		ADD_ROOT((void *) (&BGl_symbol2513z00zz__expander_argsz00));
		ADD_ROOT((void *) (&BGl_symbol2515z00zz__expander_argsz00));
		ADD_ROOT((void *) (&BGl_symbol2517z00zz__expander_argsz00));
		ADD_ROOT((void *) (&BGl_symbol2519z00zz__expander_argsz00));
		ADD_ROOT((void *) (&BGl_symbol2521z00zz__expander_argsz00));
		ADD_ROOT((void *) (&BGl_symbol2523z00zz__expander_argsz00));
		ADD_ROOT((void *) (&BGl_symbol2605z00zz__expander_argsz00));
		ADD_ROOT((void *) (&BGl_symbol2525z00zz__expander_argsz00));
		ADD_ROOT((void *) (&BGl_symbol2527z00zz__expander_argsz00));
		ADD_ROOT((void *) (&BGl_symbol2529z00zz__expander_argsz00));
		ADD_ROOT((void *) (&BGl_symbol2531z00zz__expander_argsz00));
		ADD_ROOT((void *) (&BGl_symbol2533z00zz__expander_argsz00));
		ADD_ROOT((void *) (&BGl_symbol2535z00zz__expander_argsz00));
		ADD_ROOT((void *) (&BGl_symbol2537z00zz__expander_argsz00));
		ADD_ROOT((void *) (&BGl_symbol2539z00zz__expander_argsz00));
		ADD_ROOT((void *) (&BGl_symbol2541z00zz__expander_argsz00));
		ADD_ROOT((void *) (&BGl_symbol2543z00zz__expander_argsz00));
		ADD_ROOT((void *) (&BGl_symbol2545z00zz__expander_argsz00));
		ADD_ROOT((void *) (&BGl_symbol2547z00zz__expander_argsz00));
		ADD_ROOT((void *) (&BGl_symbol2549z00zz__expander_argsz00));
		ADD_ROOT((void *) (&BGl_symbol2551z00zz__expander_argsz00));
		ADD_ROOT((void *) (&BGl_symbol2553z00zz__expander_argsz00));
		ADD_ROOT((void *) (&BGl_symbol2555z00zz__expander_argsz00));
		ADD_ROOT((void *) (&BGl_symbol2557z00zz__expander_argsz00));
		ADD_ROOT((void *) (&BGl_symbol2559z00zz__expander_argsz00));
#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_argsz00(long
		BgL_checksumz00_3288, char *BgL_fromz00_3289)
	{
		{
			if (CBOOL(BGl_requirezd2initializa7ationz75zz__expander_argsz00))
				{
					BGl_requirezd2initializa7ationz75zz__expander_argsz00 =
						BBOOL(((bool_t) 0));
					bgl_constant_bindings();
					BGl_gczd2rootszd2initz00zz__expander_argsz00();
					BGl_cnstzd2initzd2zz__expander_argsz00();
					BGl_importedzd2moduleszd2initz00zz__expander_argsz00();
					return BGl_methodzd2initzd2zz__expander_argsz00();
				}
			else
				{
					return BUNSPEC;
				}
		}

	}



/* cnst-init */
	obj_t BGl_cnstzd2initzd2zz__expander_argsz00(void)
	{
		{	/* Eval/expdargs.scm 19 */
			BGl_symbol2491z00zz__expander_argsz00 =
				bstring_to_symbol(BGl_string2492z00zz__expander_argsz00);
			BGl_symbol2493z00zz__expander_argsz00 =
				bstring_to_symbol(BGl_string2494z00zz__expander_argsz00);
			BGl_symbol2495z00zz__expander_argsz00 =
				bstring_to_symbol(BGl_string2496z00zz__expander_argsz00);
			BGl_symbol2497z00zz__expander_argsz00 =
				bstring_to_symbol(BGl_string2498z00zz__expander_argsz00);
			BGl_symbol2499z00zz__expander_argsz00 =
				bstring_to_symbol(BGl_string2500z00zz__expander_argsz00);
			BGl_symbol2501z00zz__expander_argsz00 =
				bstring_to_symbol(BGl_string2502z00zz__expander_argsz00);
			BGl_symbol2503z00zz__expander_argsz00 =
				bstring_to_symbol(BGl_string2504z00zz__expander_argsz00);
			BGl_symbol2507z00zz__expander_argsz00 =
				bstring_to_symbol(BGl_string2508z00zz__expander_argsz00);
			BGl_symbol2509z00zz__expander_argsz00 =
				bstring_to_symbol(BGl_string2510z00zz__expander_argsz00);
			BGl_symbol2511z00zz__expander_argsz00 =
				bstring_to_symbol(BGl_string2512z00zz__expander_argsz00);
			BGl_symbol2513z00zz__expander_argsz00 =
				bstring_to_symbol(BGl_string2514z00zz__expander_argsz00);
			BGl_symbol2515z00zz__expander_argsz00 =
				bstring_to_symbol(BGl_string2516z00zz__expander_argsz00);
			BGl_symbol2517z00zz__expander_argsz00 =
				bstring_to_symbol(BGl_string2518z00zz__expander_argsz00);
			BGl_symbol2519z00zz__expander_argsz00 =
				bstring_to_symbol(BGl_string2520z00zz__expander_argsz00);
			BGl_symbol2521z00zz__expander_argsz00 =
				bstring_to_symbol(BGl_string2522z00zz__expander_argsz00);
			BGl_symbol2523z00zz__expander_argsz00 =
				bstring_to_symbol(BGl_string2524z00zz__expander_argsz00);
			BGl_symbol2525z00zz__expander_argsz00 =
				bstring_to_symbol(BGl_string2526z00zz__expander_argsz00);
			BGl_symbol2527z00zz__expander_argsz00 =
				bstring_to_symbol(BGl_string2528z00zz__expander_argsz00);
			BGl_symbol2529z00zz__expander_argsz00 =
				bstring_to_symbol(BGl_string2530z00zz__expander_argsz00);
			BGl_symbol2531z00zz__expander_argsz00 =
				bstring_to_symbol(BGl_string2532z00zz__expander_argsz00);
			BGl_symbol2533z00zz__expander_argsz00 =
				bstring_to_symbol(BGl_string2485z00zz__expander_argsz00);
			BGl_symbol2535z00zz__expander_argsz00 =
				bstring_to_symbol(BGl_string2536z00zz__expander_argsz00);
			BGl_symbol2537z00zz__expander_argsz00 =
				bstring_to_symbol(BGl_string2538z00zz__expander_argsz00);
			BGl_symbol2539z00zz__expander_argsz00 =
				bstring_to_symbol(BGl_string2540z00zz__expander_argsz00);
			BGl_symbol2541z00zz__expander_argsz00 =
				bstring_to_symbol(BGl_string2542z00zz__expander_argsz00);
			BGl_symbol2543z00zz__expander_argsz00 =
				bstring_to_symbol(BGl_string2544z00zz__expander_argsz00);
			BGl_symbol2545z00zz__expander_argsz00 =
				bstring_to_symbol(BGl_string2546z00zz__expander_argsz00);
			BGl_symbol2547z00zz__expander_argsz00 =
				bstring_to_symbol(BGl_string2548z00zz__expander_argsz00);
			BGl_symbol2549z00zz__expander_argsz00 =
				bstring_to_symbol(BGl_string2550z00zz__expander_argsz00);
			BGl_symbol2551z00zz__expander_argsz00 =
				bstring_to_symbol(BGl_string2552z00zz__expander_argsz00);
			BGl_symbol2553z00zz__expander_argsz00 =
				bstring_to_symbol(BGl_string2554z00zz__expander_argsz00);
			BGl_symbol2555z00zz__expander_argsz00 =
				bstring_to_symbol(BGl_string2556z00zz__expander_argsz00);
			BGl_symbol2557z00zz__expander_argsz00 =
				bstring_to_symbol(BGl_string2558z00zz__expander_argsz00);
			BGl_symbol2559z00zz__expander_argsz00 =
				bstring_to_symbol(BGl_string2560z00zz__expander_argsz00);
			BGl_symbol2561z00zz__expander_argsz00 =
				bstring_to_symbol(BGl_string2562z00zz__expander_argsz00);
			BGl_symbol2564z00zz__expander_argsz00 =
				bstring_to_symbol(BGl_string2565z00zz__expander_argsz00);
			BGl_symbol2566z00zz__expander_argsz00 =
				bstring_to_symbol(BGl_string2567z00zz__expander_argsz00);
			BGl_symbol2573z00zz__expander_argsz00 =
				bstring_to_symbol(BGl_string2574z00zz__expander_argsz00);
			BGl_symbol2575z00zz__expander_argsz00 =
				bstring_to_symbol(BGl_string2576z00zz__expander_argsz00);
			BGl_symbol2577z00zz__expander_argsz00 =
				bstring_to_symbol(BGl_string2578z00zz__expander_argsz00);
			BGl_symbol2581z00zz__expander_argsz00 =
				bstring_to_symbol(BGl_string2582z00zz__expander_argsz00);
			BGl_symbol2583z00zz__expander_argsz00 =
				bstring_to_symbol(BGl_string2584z00zz__expander_argsz00);
			BGl_symbol2585z00zz__expander_argsz00 =
				bstring_to_symbol(BGl_string2586z00zz__expander_argsz00);
			BGl_symbol2587z00zz__expander_argsz00 =
				bstring_to_symbol(BGl_string2588z00zz__expander_argsz00);
			BGl_symbol2589z00zz__expander_argsz00 =
				bstring_to_symbol(BGl_string2590z00zz__expander_argsz00);
			BGl_symbol2591z00zz__expander_argsz00 =
				bstring_to_symbol(BGl_string2592z00zz__expander_argsz00);
			BGl_symbol2593z00zz__expander_argsz00 =
				bstring_to_symbol(BGl_string2594z00zz__expander_argsz00);
			BGl_symbol2595z00zz__expander_argsz00 =
				bstring_to_symbol(BGl_string2596z00zz__expander_argsz00);
			return (BGl_symbol2605z00zz__expander_argsz00 =
				bstring_to_symbol(BGl_string2606z00zz__expander_argsz00), BUNSPEC);
		}

	}



/* gc-roots-init */
	obj_t BGl_gczd2rootszd2initz00zz__expander_argsz00(void)
	{
		{	/* Eval/expdargs.scm 19 */
			return bgl_gc_roots_register();
		}

	}



/* expand-args-parse */
	BGL_EXPORTED_DEF obj_t BGl_expandzd2argszd2parsez00zz__expander_argsz00(obj_t
		BgL_xz00_6, obj_t BgL_ez00_7)
	{
		{	/* Eval/expdargs.scm 76 */
			if (NULLP(BgL_xz00_6))
				{	/* Eval/expdargs.scm 77 */
					return
						BGl_expandzd2errorzd2zz__expandz00
						(BGl_string2485z00zz__expander_argsz00,
						BGl_string2486z00zz__expander_argsz00, BgL_xz00_6);
				}
			else
				{	/* Eval/expdargs.scm 77 */
					obj_t BgL_cdrzd2105zd2_1163;

					BgL_cdrzd2105zd2_1163 = CDR(((obj_t) BgL_xz00_6));
					if (PAIRP(BgL_cdrzd2105zd2_1163))
						{	/* Eval/expdargs.scm 77 */
							bool_t BgL_test2689z00_3355;

							{	/* Eval/expdargs.scm 77 */
								obj_t BgL_tmpz00_3356;

								BgL_tmpz00_3356 = CDR(BgL_cdrzd2105zd2_1163);
								BgL_test2689z00_3355 = PAIRP(BgL_tmpz00_3356);
							}
							if (BgL_test2689z00_3355)
								{	/* Eval/expdargs.scm 79 */
									obj_t BgL_arg1258z00_2612;

									BgL_arg1258z00_2612 =
										BGl_dozd2expandzd2argszd2parsezd2zz__expander_argsz00
										(BgL_xz00_6, BgL_ez00_7);
									return BGL_PROCEDURE_CALL2(BgL_ez00_7, BgL_arg1258z00_2612,
										BgL_ez00_7);
								}
							else
								{	/* Eval/expdargs.scm 77 */
									return
										BGl_expandzd2errorzd2zz__expandz00
										(BGl_string2485z00zz__expander_argsz00,
										BGl_string2486z00zz__expander_argsz00, BgL_xz00_6);
								}
						}
					else
						{	/* Eval/expdargs.scm 77 */
							return
								BGl_expandzd2errorzd2zz__expandz00
								(BGl_string2485z00zz__expander_argsz00,
								BGl_string2486z00zz__expander_argsz00, BgL_xz00_6);
						}
				}
		}

	}



/* &expand-args-parse */
	obj_t BGl_z62expandzd2argszd2parsez62zz__expander_argsz00(obj_t
		BgL_envz00_3199, obj_t BgL_xz00_3200, obj_t BgL_ez00_3201)
	{
		{	/* Eval/expdargs.scm 76 */
			{	/* Eval/expdargs.scm 77 */
				obj_t BgL_auxz00_3374;
				obj_t BgL_auxz00_3367;

				if (PROCEDUREP(BgL_ez00_3201))
					{	/* Eval/expdargs.scm 77 */
						BgL_auxz00_3374 = BgL_ez00_3201;
					}
				else
					{
						obj_t BgL_auxz00_3377;

						BgL_auxz00_3377 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string2487z00zz__expander_argsz00, BINT(2941L),
							BGl_string2488z00zz__expander_argsz00,
							BGl_string2490z00zz__expander_argsz00, BgL_ez00_3201);
						FAILURE(BgL_auxz00_3377, BFALSE, BFALSE);
					}
				if (BGl_pairzd2orzd2nullzf3zf3zz__r4_pairs_and_lists_6_3z00
					(BgL_xz00_3200))
					{	/* Eval/expdargs.scm 77 */
						BgL_auxz00_3367 = BgL_xz00_3200;
					}
				else
					{
						obj_t BgL_auxz00_3370;

						BgL_auxz00_3370 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string2487z00zz__expander_argsz00, BINT(2941L),
							BGl_string2488z00zz__expander_argsz00,
							BGl_string2489z00zz__expander_argsz00, BgL_xz00_3200);
						FAILURE(BgL_auxz00_3370, BFALSE, BFALSE);
					}
				return
					BGl_expandzd2argszd2parsez00zz__expander_argsz00(BgL_auxz00_3367,
					BgL_auxz00_3374);
			}
		}

	}



/* do-expand-args-parse */
	obj_t BGl_dozd2expandzd2argszd2parsezd2zz__expander_argsz00(obj_t BgL_xz00_8,
		obj_t BgL_ez00_9)
	{
		{	/* Eval/expdargs.scm 86 */
			{	/* Eval/expdargs.scm 87 */
				obj_t BgL_expz00_1169;

				BgL_expz00_1169 = CAR(CDR(BgL_xz00_8));
				{	/* Eval/expdargs.scm 87 */
					obj_t BgL_clausesz00_1170;

					BgL_clausesz00_1170 = CDR(CDR(BgL_xz00_8));
					{	/* Eval/expdargs.scm 88 */
						obj_t BgL_otablez00_1171;

						{	/* Eval/expdargs.scm 89 */
							obj_t BgL_list1468z00_1384;

							BgL_list1468z00_1384 = MAKE_YOUNG_PAIR(BINT(20L), BNIL);
							BgL_otablez00_1171 =
								BGl_makezd2hashtablezd2zz__hashz00(BgL_list1468z00_1384);
						}
						{	/* Eval/expdargs.scm 89 */
							obj_t BgL_parsersz00_1172;

							if (NULLP(BgL_clausesz00_1170))
								{	/* Eval/expdargs.scm 90 */
									BgL_parsersz00_1172 = BNIL;
								}
							else
								{	/* Eval/expdargs.scm 90 */
									obj_t BgL_head1091z00_1373;

									BgL_head1091z00_1373 = MAKE_YOUNG_PAIR(BNIL, BNIL);
									{
										obj_t BgL_l1089z00_2640;
										obj_t BgL_tail1092z00_2641;

										BgL_l1089z00_2640 = BgL_clausesz00_1170;
										BgL_tail1092z00_2641 = BgL_head1091z00_1373;
									BgL_zc3z04anonymousza31464ze3z87_2639:
										if (NULLP(BgL_l1089z00_2640))
											{	/* Eval/expdargs.scm 90 */
												BgL_parsersz00_1172 = CDR(BgL_head1091z00_1373);
											}
										else
											{	/* Eval/expdargs.scm 90 */
												obj_t BgL_newtail1093z00_2648;

												{	/* Eval/expdargs.scm 90 */
													obj_t BgL_arg1467z00_2649;

													{	/* Eval/expdargs.scm 90 */
														obj_t BgL_cz00_2650;

														BgL_cz00_2650 = CAR(((obj_t) BgL_l1089z00_2640));
														BgL_arg1467z00_2649 =
															BGl_makezd2parserzd2zz__expander_argsz00
															(BgL_cz00_2650, BgL_otablez00_1171);
													}
													BgL_newtail1093z00_2648 =
														MAKE_YOUNG_PAIR(BgL_arg1467z00_2649, BNIL);
												}
												SET_CDR(BgL_tail1092z00_2641, BgL_newtail1093z00_2648);
												{	/* Eval/expdargs.scm 90 */
													obj_t BgL_arg1466z00_2651;

													BgL_arg1466z00_2651 =
														CDR(((obj_t) BgL_l1089z00_2640));
													{
														obj_t BgL_tail1092z00_3403;
														obj_t BgL_l1089z00_3402;

														BgL_l1089z00_3402 = BgL_arg1466z00_2651;
														BgL_tail1092z00_3403 = BgL_newtail1093z00_2648;
														BgL_tail1092z00_2641 = BgL_tail1092z00_3403;
														BgL_l1089z00_2640 = BgL_l1089z00_3402;
														goto BgL_zc3z04anonymousza31464ze3z87_2639;
													}
												}
											}
									}
								}
							{	/* Eval/expdargs.scm 90 */
								obj_t BgL_lastzd2parserzd2_1173;

								{	/* Eval/expdargs.scm 91 */
									obj_t BgL_arg1437z00_1349;

									{	/* Eval/expdargs.scm 91 */
										obj_t BgL_arg1438z00_1350;
										obj_t BgL_arg1439z00_1351;

										{	/* Eval/expdargs.scm 91 */
											obj_t BgL_arg1442z00_1352;

											BgL_arg1442z00_1352 =
												MAKE_YOUNG_PAIR(BGl_symbol2491z00zz__expander_argsz00,
												BNIL);
											BgL_arg1438z00_1350 =
												MAKE_YOUNG_PAIR(BGl_symbol2493z00zz__expander_argsz00,
												BgL_arg1442z00_1352);
										}
										{	/* Eval/expdargs.scm 92 */
											obj_t BgL_arg1443z00_1353;

											{	/* Eval/expdargs.scm 92 */
												obj_t BgL_arg1444z00_1354;

												{	/* Eval/expdargs.scm 92 */
													obj_t BgL_arg1445z00_1355;
													obj_t BgL_arg1446z00_1356;

													{	/* Eval/expdargs.scm 92 */
														obj_t BgL_arg1447z00_1357;

														BgL_arg1447z00_1357 =
															MAKE_YOUNG_PAIR
															(BGl_symbol2493z00zz__expander_argsz00, BNIL);
														BgL_arg1445z00_1355 =
															MAKE_YOUNG_PAIR
															(BGl_symbol2495z00zz__expander_argsz00,
															BgL_arg1447z00_1357);
													}
													{	/* Eval/expdargs.scm 93 */
														obj_t BgL_arg1448z00_1358;
														obj_t BgL_arg1450z00_1359;

														{	/* Eval/expdargs.scm 93 */
															obj_t BgL_arg1451z00_1360;

															{	/* Eval/expdargs.scm 93 */
																obj_t BgL_arg1452z00_1361;
																obj_t BgL_arg1453z00_1362;

																{	/* Eval/expdargs.scm 93 */
																	obj_t BgL_arg1455z00_1363;

																	BgL_arg1455z00_1363 =
																		MAKE_YOUNG_PAIR
																		(BGl_symbol2497z00zz__expander_argsz00,
																		BNIL);
																	BgL_arg1452z00_1361 =
																		MAKE_YOUNG_PAIR
																		(BGl_symbol2499z00zz__expander_argsz00,
																		BgL_arg1455z00_1363);
																}
																{	/* Eval/expdargs.scm 93 */
																	obj_t BgL_arg1456z00_1364;

																	BgL_arg1456z00_1364 =
																		MAKE_YOUNG_PAIR
																		(BGl_symbol2491z00zz__expander_argsz00,
																		BNIL);
																	BgL_arg1453z00_1362 =
																		MAKE_YOUNG_PAIR
																		(BGl_symbol2493z00zz__expander_argsz00,
																		BgL_arg1456z00_1364);
																}
																BgL_arg1451z00_1360 =
																	MAKE_YOUNG_PAIR(BgL_arg1452z00_1361,
																	BgL_arg1453z00_1362);
															}
															BgL_arg1448z00_1358 =
																MAKE_YOUNG_PAIR
																(BGl_symbol2501z00zz__expander_argsz00,
																BgL_arg1451z00_1360);
														}
														{	/* Eval/expdargs.scm 94 */
															obj_t BgL_arg1457z00_1365;

															{	/* Eval/expdargs.scm 94 */
																obj_t BgL_arg1458z00_1366;

																{	/* Eval/expdargs.scm 94 */
																	obj_t BgL_arg1459z00_1367;
																	obj_t BgL_arg1460z00_1368;

																	{	/* Eval/expdargs.scm 94 */
																		obj_t BgL_arg1461z00_1369;

																		BgL_arg1461z00_1369 =
																			MAKE_YOUNG_PAIR
																			(BGl_symbol2493z00zz__expander_argsz00,
																			BNIL);
																		BgL_arg1459z00_1367 =
																			MAKE_YOUNG_PAIR
																			(BGl_symbol2503z00zz__expander_argsz00,
																			BgL_arg1461z00_1369);
																	}
																	{	/* Eval/expdargs.scm 94 */
																		obj_t BgL_arg1462z00_1370;

																		BgL_arg1462z00_1370 =
																			MAKE_YOUNG_PAIR
																			(BGl_string2505z00zz__expander_argsz00,
																			BNIL);
																		BgL_arg1460z00_1368 =
																			MAKE_YOUNG_PAIR
																			(BGl_string2506z00zz__expander_argsz00,
																			BgL_arg1462z00_1370);
																	}
																	BgL_arg1458z00_1366 =
																		MAKE_YOUNG_PAIR(BgL_arg1459z00_1367,
																		BgL_arg1460z00_1368);
																}
																BgL_arg1457z00_1365 =
																	MAKE_YOUNG_PAIR
																	(BGl_symbol2507z00zz__expander_argsz00,
																	BgL_arg1458z00_1366);
															}
															BgL_arg1450z00_1359 =
																MAKE_YOUNG_PAIR(BgL_arg1457z00_1365, BNIL);
														}
														BgL_arg1446z00_1356 =
															MAKE_YOUNG_PAIR(BgL_arg1448z00_1358,
															BgL_arg1450z00_1359);
													}
													BgL_arg1444z00_1354 =
														MAKE_YOUNG_PAIR(BgL_arg1445z00_1355,
														BgL_arg1446z00_1356);
												}
												BgL_arg1443z00_1353 =
													MAKE_YOUNG_PAIR(BGl_symbol2509z00zz__expander_argsz00,
													BgL_arg1444z00_1354);
											}
											BgL_arg1439z00_1351 =
												MAKE_YOUNG_PAIR(BgL_arg1443z00_1353, BNIL);
										}
										BgL_arg1437z00_1349 =
											MAKE_YOUNG_PAIR(BgL_arg1438z00_1350, BgL_arg1439z00_1351);
									}
									BgL_lastzd2parserzd2_1173 =
										MAKE_YOUNG_PAIR(BGl_symbol2511z00zz__expander_argsz00,
										BgL_arg1437z00_1349);
								}
								{	/* Eval/expdargs.scm 91 */
									obj_t BgL_descrsz00_1174;

									{	/* Eval/expdargs.scm 95 */
										obj_t BgL_hook1104z00_1318;

										BgL_hook1104z00_1318 = MAKE_YOUNG_PAIR(BFALSE, BNIL);
										{	/* Eval/expdargs.scm 95 */
											obj_t BgL_g1105z00_1319;

											if (NULLP(BgL_clausesz00_1170))
												{	/* Eval/expdargs.scm 95 */
													BgL_g1105z00_1319 = BNIL;
												}
											else
												{	/* Eval/expdargs.scm 95 */
													obj_t BgL_head1096z00_1335;

													{	/* Eval/expdargs.scm 95 */
														obj_t BgL_arg1435z00_1347;

														{	/* Eval/expdargs.scm 95 */
															obj_t BgL_arg1436z00_1348;

															BgL_arg1436z00_1348 =
																CAR(((obj_t) BgL_clausesz00_1170));
															BgL_arg1435z00_1347 =
																BGl_makezd2helpzd2zz__expander_argsz00
																(BgL_arg1436z00_1348);
														}
														BgL_head1096z00_1335 =
															MAKE_YOUNG_PAIR(BgL_arg1435z00_1347, BNIL);
													}
													{	/* Eval/expdargs.scm 95 */
														obj_t BgL_g1099z00_1336;

														BgL_g1099z00_1336 =
															CDR(((obj_t) BgL_clausesz00_1170));
														{
															obj_t BgL_l1094z00_2675;
															obj_t BgL_tail1097z00_2676;

															BgL_l1094z00_2675 = BgL_g1099z00_1336;
															BgL_tail1097z00_2676 = BgL_head1096z00_1335;
														BgL_zc3z04anonymousza31430ze3z87_2674:
															if (NULLP(BgL_l1094z00_2675))
																{	/* Eval/expdargs.scm 95 */
																	BgL_g1105z00_1319 = BgL_head1096z00_1335;
																}
															else
																{	/* Eval/expdargs.scm 95 */
																	obj_t BgL_newtail1098z00_2683;

																	{	/* Eval/expdargs.scm 95 */
																		obj_t BgL_arg1433z00_2684;

																		{	/* Eval/expdargs.scm 95 */
																			obj_t BgL_arg1434z00_2685;

																			BgL_arg1434z00_2685 =
																				CAR(((obj_t) BgL_l1094z00_2675));
																			BgL_arg1433z00_2684 =
																				BGl_makezd2helpzd2zz__expander_argsz00
																				(BgL_arg1434z00_2685);
																		}
																		BgL_newtail1098z00_2683 =
																			MAKE_YOUNG_PAIR(BgL_arg1433z00_2684,
																			BNIL);
																	}
																	SET_CDR(BgL_tail1097z00_2676,
																		BgL_newtail1098z00_2683);
																	{	/* Eval/expdargs.scm 95 */
																		obj_t BgL_arg1432z00_2686;

																		BgL_arg1432z00_2686 =
																			CDR(((obj_t) BgL_l1094z00_2675));
																		{
																			obj_t BgL_tail1097z00_3446;
																			obj_t BgL_l1094z00_3445;

																			BgL_l1094z00_3445 = BgL_arg1432z00_2686;
																			BgL_tail1097z00_3446 =
																				BgL_newtail1098z00_2683;
																			BgL_tail1097z00_2676 =
																				BgL_tail1097z00_3446;
																			BgL_l1094z00_2675 = BgL_l1094z00_3445;
																			goto
																				BgL_zc3z04anonymousza31430ze3z87_2674;
																		}
																	}
																}
														}
													}
												}
											{
												obj_t BgL_l1101z00_1321;
												obj_t BgL_h1102z00_1322;

												BgL_l1101z00_1321 = BgL_g1105z00_1319;
												BgL_h1102z00_1322 = BgL_hook1104z00_1318;
											BgL_zc3z04anonymousza31423ze3z87_1323:
												if (NULLP(BgL_l1101z00_1321))
													{	/* Eval/expdargs.scm 95 */
														BgL_descrsz00_1174 = CDR(BgL_hook1104z00_1318);
													}
												else
													{	/* Eval/expdargs.scm 95 */
														if (CBOOL(CAR(((obj_t) BgL_l1101z00_1321))))
															{	/* Eval/expdargs.scm 95 */
																obj_t BgL_nh1103z00_1327;

																{	/* Eval/expdargs.scm 95 */
																	obj_t BgL_arg1427z00_1329;

																	BgL_arg1427z00_1329 =
																		CAR(((obj_t) BgL_l1101z00_1321));
																	BgL_nh1103z00_1327 =
																		MAKE_YOUNG_PAIR(BgL_arg1427z00_1329, BNIL);
																}
																SET_CDR(BgL_h1102z00_1322, BgL_nh1103z00_1327);
																{	/* Eval/expdargs.scm 95 */
																	obj_t BgL_arg1426z00_1328;

																	BgL_arg1426z00_1328 =
																		CDR(((obj_t) BgL_l1101z00_1321));
																	{
																		obj_t BgL_h1102z00_3461;
																		obj_t BgL_l1101z00_3460;

																		BgL_l1101z00_3460 = BgL_arg1426z00_1328;
																		BgL_h1102z00_3461 = BgL_nh1103z00_1327;
																		BgL_h1102z00_1322 = BgL_h1102z00_3461;
																		BgL_l1101z00_1321 = BgL_l1101z00_3460;
																		goto BgL_zc3z04anonymousza31423ze3z87_1323;
																	}
																}
															}
														else
															{	/* Eval/expdargs.scm 95 */
																obj_t BgL_arg1428z00_1330;

																BgL_arg1428z00_1330 =
																	CDR(((obj_t) BgL_l1101z00_1321));
																{
																	obj_t BgL_l1101z00_3464;

																	BgL_l1101z00_3464 = BgL_arg1428z00_1330;
																	BgL_l1101z00_1321 = BgL_l1101z00_3464;
																	goto BgL_zc3z04anonymousza31423ze3z87_1323;
																}
															}
													}
											}
										}
									}
									{	/* Eval/expdargs.scm 95 */

										{	/* Eval/expdargs.scm 98 */
											obj_t BgL_arg1259z00_1175;

											{	/* Eval/expdargs.scm 98 */
												obj_t BgL_arg1261z00_1176;
												obj_t BgL_arg1262z00_1177;

												{	/* Eval/expdargs.scm 98 */
													obj_t BgL_arg1263z00_1178;
													obj_t BgL_arg1265z00_1179;

													{	/* Eval/expdargs.scm 98 */
														obj_t BgL_arg1266z00_1180;

														{	/* Eval/expdargs.scm 98 */
															obj_t BgL_arg1267z00_1181;

															{	/* Eval/expdargs.scm 98 */
																obj_t BgL_arg1269z00_1182;

																{	/* Eval/expdargs.scm 98 */
																	obj_t BgL_arg1271z00_1183;

																	{	/* Eval/expdargs.scm 98 */
																		obj_t BgL_arg1274z00_1184;

																		{	/* Eval/expdargs.scm 98 */
																			bool_t BgL_test2698z00_3465;

																			{
																				obj_t BgL_l1106z00_1201;

																				BgL_l1106z00_1201 = BgL_descrsz00_1174;
																			BgL_zc3z04anonymousza31283ze3z87_1202:
																				if (NULLP(BgL_l1106z00_1201))
																					{	/* Eval/expdargs.scm 98 */
																						BgL_test2698z00_3465 = ((bool_t) 0);
																					}
																				else
																					{	/* Eval/expdargs.scm 99 */
																						bool_t BgL__ortest_1108z00_1204;

																						{	/* Eval/expdargs.scm 99 */
																							obj_t BgL_fz00_1206;

																							BgL_fz00_1206 =
																								CAR(
																								((obj_t) BgL_l1106z00_1201));
																							if (PAIRP(BgL_fz00_1206))
																								{	/* Eval/expdargs.scm 100 */
																									bool_t BgL_test2701z00_3472;

																									{	/* Eval/expdargs.scm 100 */
																										obj_t BgL_tmpz00_3473;

																										BgL_tmpz00_3473 =
																											CDR(BgL_fz00_1206);
																										BgL_test2701z00_3472 =
																											PAIRP(BgL_tmpz00_3473);
																									}
																									if (BgL_test2701z00_3472)
																										{	/* Eval/expdargs.scm 100 */
																											BgL__ortest_1108z00_1204 =
																												(CAR(CDR(BgL_fz00_1206))
																												==
																												BGl_symbol2513z00zz__expander_argsz00);
																										}
																									else
																										{	/* Eval/expdargs.scm 100 */
																											BgL__ortest_1108z00_1204 =
																												((bool_t) 0);
																										}
																								}
																							else
																								{	/* Eval/expdargs.scm 99 */
																									BgL__ortest_1108z00_1204 =
																										((bool_t) 0);
																								}
																						}
																						if (BgL__ortest_1108z00_1204)
																							{	/* Eval/expdargs.scm 98 */
																								BgL_test2698z00_3465 =
																									BgL__ortest_1108z00_1204;
																							}
																						else
																							{	/* Eval/expdargs.scm 98 */
																								obj_t BgL_arg1285z00_1205;

																								BgL_arg1285z00_1205 =
																									CDR(
																									((obj_t) BgL_l1106z00_1201));
																								{
																									obj_t BgL_l1106z00_3482;

																									BgL_l1106z00_3482 =
																										BgL_arg1285z00_1205;
																									BgL_l1106z00_1201 =
																										BgL_l1106z00_3482;
																									goto
																										BgL_zc3z04anonymousza31283ze3z87_1202;
																								}
																							}
																					}
																			}
																			if (BgL_test2698z00_3465)
																				{	/* Eval/expdargs.scm 98 */
																					BgL_arg1274z00_1184 =
																						BGl_symbol2515z00zz__expander_argsz00;
																				}
																			else
																				{	/* Eval/expdargs.scm 98 */
																					BgL_arg1274z00_1184 =
																						BGl_symbol2499z00zz__expander_argsz00;
																				}
																		}
																		{	/* Eval/expdargs.scm 98 */
																			obj_t BgL_list1275z00_1185;

																			{	/* Eval/expdargs.scm 98 */
																				obj_t BgL_arg1276z00_1186;

																				BgL_arg1276z00_1186 =
																					MAKE_YOUNG_PAIR(BgL_descrsz00_1174,
																					BNIL);
																				BgL_list1275z00_1185 =
																					MAKE_YOUNG_PAIR(BgL_arg1274z00_1184,
																					BgL_arg1276z00_1186);
																			}
																			BgL_arg1271z00_1183 =
																				BgL_list1275z00_1185;
																		}
																	}
																	BgL_arg1269z00_1182 =
																		MAKE_YOUNG_PAIR(BgL_arg1271z00_1183, BNIL);
																}
																BgL_arg1267z00_1181 =
																	MAKE_YOUNG_PAIR
																	(BGl_symbol2517z00zz__expander_argsz00,
																	BgL_arg1269z00_1182);
															}
															BgL_arg1266z00_1180 =
																MAKE_YOUNG_PAIR(BgL_arg1267z00_1181, BNIL);
														}
														BgL_arg1263z00_1178 =
															MAKE_YOUNG_PAIR
															(BGl_symbol2517z00zz__expander_argsz00,
															BgL_arg1266z00_1180);
													}
													{	/* Eval/expdargs.scm 106 */
														obj_t BgL_arg1292z00_1212;
														obj_t BgL_arg1293z00_1213;

														{	/* Eval/expdargs.scm 106 */
															obj_t BgL_arg1295z00_1214;

															{	/* Eval/expdargs.scm 106 */
																obj_t BgL_arg1296z00_1215;

																{	/* Eval/expdargs.scm 106 */
																	obj_t BgL_arg1298z00_1216;

																	BgL_arg1298z00_1216 =
																		MAKE_YOUNG_PAIR(BgL_lastzd2parserzd2_1173,
																		BNIL);
																	BgL_arg1296z00_1215 =
																		MAKE_YOUNG_PAIR
																		(BGl_symbol2519z00zz__expander_argsz00,
																		BgL_arg1298z00_1216);
																}
																BgL_arg1295z00_1214 =
																	MAKE_YOUNG_PAIR(BgL_arg1296z00_1215, BNIL);
															}
															BgL_arg1292z00_1212 =
																MAKE_YOUNG_PAIR
																(BGl_symbol2521z00zz__expander_argsz00,
																BgL_arg1295z00_1214);
														}
														{	/* Eval/expdargs.scm 107 */
															obj_t BgL_arg1301z00_1217;

															{	/* Eval/expdargs.scm 107 */
																obj_t BgL_arg1322z00_1218;

																BgL_arg1322z00_1218 =
																	MAKE_YOUNG_PAIR(BgL_expz00_1169, BNIL);
																BgL_arg1301z00_1217 =
																	MAKE_YOUNG_PAIR
																	(BGl_symbol2523z00zz__expander_argsz00,
																	BgL_arg1322z00_1218);
															}
															BgL_arg1293z00_1213 =
																MAKE_YOUNG_PAIR(BgL_arg1301z00_1217, BNIL);
														}
														BgL_arg1265z00_1179 =
															MAKE_YOUNG_PAIR(BgL_arg1292z00_1212,
															BgL_arg1293z00_1213);
													}
													BgL_arg1261z00_1176 =
														MAKE_YOUNG_PAIR(BgL_arg1263z00_1178,
														BgL_arg1265z00_1179);
												}
												{	/* Eval/expdargs.scm 108 */
													obj_t BgL_arg1329z00_1219;
													obj_t BgL_arg1330z00_1220;

													{	/* Eval/expdargs.scm 108 */
														obj_t BgL_l1114z00_1221;

														{	/* Eval/expdargs.scm 109 */
															obj_t BgL_arg1342z00_1239;

															{	/* Eval/expdargs.scm 109 */
																obj_t BgL_hook1113z00_1240;

																BgL_hook1113z00_1240 =
																	MAKE_YOUNG_PAIR(BFALSE, BNIL);
																{
																	obj_t BgL_l1110z00_1242;
																	obj_t BgL_h1111z00_1243;

																	BgL_l1110z00_1242 = BgL_parsersz00_1172;
																	BgL_h1111z00_1243 = BgL_hook1113z00_1240;
																BgL_zc3z04anonymousza31343ze3z87_1244:
																	if (NULLP(BgL_l1110z00_1242))
																		{	/* Eval/expdargs.scm 109 */
																			BgL_arg1342z00_1239 =
																				CDR(BgL_hook1113z00_1240);
																		}
																	else
																		{	/* Eval/expdargs.scm 109 */
																			bool_t BgL_test2704z00_3502;

																			{	/* Eval/expdargs.scm 109 */
																				obj_t BgL_tmpz00_3503;

																				BgL_tmpz00_3503 =
																					CAR(((obj_t) BgL_l1110z00_1242));
																				BgL_test2704z00_3502 =
																					PAIRP(BgL_tmpz00_3503);
																			}
																			if (BgL_test2704z00_3502)
																				{	/* Eval/expdargs.scm 109 */
																					obj_t BgL_nh1112z00_1248;

																					{	/* Eval/expdargs.scm 109 */
																						obj_t BgL_arg1349z00_1250;

																						BgL_arg1349z00_1250 =
																							CAR(((obj_t) BgL_l1110z00_1242));
																						BgL_nh1112z00_1248 =
																							MAKE_YOUNG_PAIR
																							(BgL_arg1349z00_1250, BNIL);
																					}
																					SET_CDR(BgL_h1111z00_1243,
																						BgL_nh1112z00_1248);
																					{	/* Eval/expdargs.scm 109 */
																						obj_t BgL_arg1347z00_1249;

																						BgL_arg1347z00_1249 =
																							CDR(((obj_t) BgL_l1110z00_1242));
																						{
																							obj_t BgL_h1111z00_3514;
																							obj_t BgL_l1110z00_3513;

																							BgL_l1110z00_3513 =
																								BgL_arg1347z00_1249;
																							BgL_h1111z00_3514 =
																								BgL_nh1112z00_1248;
																							BgL_h1111z00_1243 =
																								BgL_h1111z00_3514;
																							BgL_l1110z00_1242 =
																								BgL_l1110z00_3513;
																							goto
																								BgL_zc3z04anonymousza31343ze3z87_1244;
																						}
																					}
																				}
																			else
																				{	/* Eval/expdargs.scm 109 */
																					obj_t BgL_arg1351z00_1251;

																					BgL_arg1351z00_1251 =
																						CDR(((obj_t) BgL_l1110z00_1242));
																					{
																						obj_t BgL_l1110z00_3517;

																						BgL_l1110z00_3517 =
																							BgL_arg1351z00_1251;
																						BgL_l1110z00_1242 =
																							BgL_l1110z00_3517;
																						goto
																							BgL_zc3z04anonymousza31343ze3z87_1244;
																					}
																				}
																		}
																}
															}
															BgL_l1114z00_1221 =
																bgl_reverse_bang(BgL_arg1342z00_1239);
														}
														if (NULLP(BgL_l1114z00_1221))
															{	/* Eval/expdargs.scm 108 */
																BgL_arg1329z00_1219 = BNIL;
															}
														else
															{	/* Eval/expdargs.scm 108 */
																obj_t BgL_head1116z00_1223;

																BgL_head1116z00_1223 =
																	MAKE_YOUNG_PAIR(BNIL, BNIL);
																{
																	obj_t BgL_l1114z00_1225;
																	obj_t BgL_tail1117z00_1226;

																	BgL_l1114z00_1225 = BgL_l1114z00_1221;
																	BgL_tail1117z00_1226 = BgL_head1116z00_1223;
																BgL_zc3z04anonymousza31332ze3z87_1227:
																	if (NULLP(BgL_l1114z00_1225))
																		{	/* Eval/expdargs.scm 108 */
																			BgL_arg1329z00_1219 =
																				CDR(BgL_head1116z00_1223);
																		}
																	else
																		{	/* Eval/expdargs.scm 108 */
																			obj_t BgL_newtail1118z00_1229;

																			{	/* Eval/expdargs.scm 108 */
																				obj_t BgL_arg1335z00_1231;

																				{	/* Eval/expdargs.scm 108 */
																					obj_t BgL_pz00_1232;

																					BgL_pz00_1232 =
																						CAR(((obj_t) BgL_l1114z00_1225));
																					{	/* Eval/expdargs.scm 108 */
																						obj_t BgL_arg1336z00_1233;

																						{	/* Eval/expdargs.scm 108 */
																							obj_t BgL_arg1337z00_1234;

																							{	/* Eval/expdargs.scm 108 */
																								obj_t BgL_arg1338z00_1235;

																								{	/* Eval/expdargs.scm 108 */
																									obj_t BgL_arg1339z00_1236;

																									{	/* Eval/expdargs.scm 108 */
																										obj_t BgL_arg1341z00_1237;

																										BgL_arg1341z00_1237 =
																											MAKE_YOUNG_PAIR
																											(BGl_symbol2521z00zz__expander_argsz00,
																											BNIL);
																										BgL_arg1339z00_1236 =
																											MAKE_YOUNG_PAIR
																											(BgL_pz00_1232,
																											BgL_arg1341z00_1237);
																									}
																									BgL_arg1338z00_1235 =
																										MAKE_YOUNG_PAIR
																										(BGl_symbol2525z00zz__expander_argsz00,
																										BgL_arg1339z00_1236);
																								}
																								BgL_arg1337z00_1234 =
																									MAKE_YOUNG_PAIR
																									(BgL_arg1338z00_1235, BNIL);
																							}
																							BgL_arg1336z00_1233 =
																								MAKE_YOUNG_PAIR
																								(BGl_symbol2521z00zz__expander_argsz00,
																								BgL_arg1337z00_1234);
																						}
																						BgL_arg1335z00_1231 =
																							MAKE_YOUNG_PAIR
																							(BGl_symbol2527z00zz__expander_argsz00,
																							BgL_arg1336z00_1233);
																					}
																				}
																				BgL_newtail1118z00_1229 =
																					MAKE_YOUNG_PAIR(BgL_arg1335z00_1231,
																					BNIL);
																			}
																			SET_CDR(BgL_tail1117z00_1226,
																				BgL_newtail1118z00_1229);
																			{	/* Eval/expdargs.scm 108 */
																				obj_t BgL_arg1334z00_1230;

																				BgL_arg1334z00_1230 =
																					CDR(((obj_t) BgL_l1114z00_1225));
																				{
																					obj_t BgL_tail1117z00_3538;
																					obj_t BgL_l1114z00_3537;

																					BgL_l1114z00_3537 =
																						BgL_arg1334z00_1230;
																					BgL_tail1117z00_3538 =
																						BgL_newtail1118z00_1229;
																					BgL_tail1117z00_1226 =
																						BgL_tail1117z00_3538;
																					BgL_l1114z00_1225 = BgL_l1114z00_3537;
																					goto
																						BgL_zc3z04anonymousza31332ze3z87_1227;
																				}
																			}
																		}
																}
															}
													}
													{	/* Eval/expdargs.scm 110 */
														obj_t BgL_arg1353z00_1254;

														{	/* Eval/expdargs.scm 110 */
															obj_t BgL_arg1355z00_1255;

															{	/* Eval/expdargs.scm 110 */
																obj_t BgL_arg1356z00_1256;
																obj_t BgL_arg1357z00_1257;

																{	/* Eval/expdargs.scm 110 */
																	obj_t BgL_arg1358z00_1258;

																	{	/* Eval/expdargs.scm 110 */
																		obj_t BgL_arg1359z00_1259;

																		{	/* Eval/expdargs.scm 110 */
																			obj_t BgL_arg1360z00_1260;

																			BgL_arg1360z00_1260 =
																				MAKE_YOUNG_PAIR
																				(BGl_symbol2523z00zz__expander_argsz00,
																				BNIL);
																			BgL_arg1359z00_1259 =
																				MAKE_YOUNG_PAIR
																				(BGl_symbol2529z00zz__expander_argsz00,
																				BgL_arg1360z00_1260);
																		}
																		BgL_arg1358z00_1258 =
																			MAKE_YOUNG_PAIR(BgL_arg1359z00_1259,
																			BNIL);
																	}
																	BgL_arg1356z00_1256 =
																		MAKE_YOUNG_PAIR
																		(BGl_symbol2531z00zz__expander_argsz00,
																		BgL_arg1358z00_1258);
																}
																{	/* Eval/expdargs.scm 111 */
																	obj_t BgL_arg1361z00_1261;
																	obj_t BgL_arg1362z00_1262;

																	{	/* Eval/expdargs.scm 111 */
																		obj_t BgL_arg1363z00_1263;

																		{	/* Eval/expdargs.scm 111 */
																			obj_t BgL_arg1364z00_1264;
																			obj_t BgL_arg1365z00_1265;

																			{	/* Eval/expdargs.scm 111 */
																				obj_t BgL_arg1366z00_1266;

																				BgL_arg1366z00_1266 =
																					MAKE_YOUNG_PAIR
																					(BGl_symbol2533z00zz__expander_argsz00,
																					BNIL);
																				BgL_arg1364z00_1264 =
																					MAKE_YOUNG_PAIR
																					(BGl_symbol2499z00zz__expander_argsz00,
																					BgL_arg1366z00_1266);
																			}
																			{	/* Eval/expdargs.scm 111 */
																				obj_t BgL_arg1367z00_1267;

																				BgL_arg1367z00_1267 =
																					MAKE_YOUNG_PAIR
																					(BGl_symbol2523z00zz__expander_argsz00,
																					BNIL);
																				BgL_arg1365z00_1265 =
																					MAKE_YOUNG_PAIR
																					(BGl_string2534z00zz__expander_argsz00,
																					BgL_arg1367z00_1267);
																			}
																			BgL_arg1363z00_1263 =
																				MAKE_YOUNG_PAIR(BgL_arg1364z00_1264,
																				BgL_arg1365z00_1265);
																		}
																		BgL_arg1361z00_1261 =
																			MAKE_YOUNG_PAIR
																			(BGl_symbol2507z00zz__expander_argsz00,
																			BgL_arg1363z00_1263);
																	}
																	{	/* Eval/expdargs.scm 112 */
																		obj_t BgL_arg1368z00_1268;

																		{	/* Eval/expdargs.scm 112 */
																			obj_t BgL_arg1369z00_1269;

																			{	/* Eval/expdargs.scm 112 */
																				obj_t BgL_arg1370z00_1270;

																				{	/* Eval/expdargs.scm 112 */
																					obj_t BgL_arg1371z00_1271;
																					obj_t BgL_arg1372z00_1272;

																					{	/* Eval/expdargs.scm 112 */
																						obj_t BgL_arg1373z00_1273;
																						obj_t BgL_arg1374z00_1274;

																						{	/* Eval/expdargs.scm 112 */
																							obj_t BgL_arg1376z00_1275;

																							BgL_arg1376z00_1275 =
																								MAKE_YOUNG_PAIR
																								(BGl_symbol2523z00zz__expander_argsz00,
																								BNIL);
																							BgL_arg1373z00_1273 =
																								MAKE_YOUNG_PAIR
																								(BGl_symbol2523z00zz__expander_argsz00,
																								BgL_arg1376z00_1275);
																						}
																						{	/* Eval/expdargs.scm 113 */
																							obj_t BgL_arg1377z00_1276;

																							{	/* Eval/expdargs.scm 113 */
																								obj_t BgL_arg1378z00_1277;

																								BgL_arg1378z00_1277 =
																									MAKE_YOUNG_PAIR(BFALSE, BNIL);
																								BgL_arg1377z00_1276 =
																									MAKE_YOUNG_PAIR
																									(BGl_symbol2491z00zz__expander_argsz00,
																									BgL_arg1378z00_1277);
																							}
																							BgL_arg1374z00_1274 =
																								MAKE_YOUNG_PAIR
																								(BgL_arg1377z00_1276, BNIL);
																						}
																						BgL_arg1371z00_1271 =
																							MAKE_YOUNG_PAIR
																							(BgL_arg1373z00_1273,
																							BgL_arg1374z00_1274);
																					}
																					{	/* Eval/expdargs.scm 114 */
																						obj_t BgL_arg1379z00_1278;

																						{	/* Eval/expdargs.scm 114 */
																							obj_t BgL_arg1380z00_1279;

																							{	/* Eval/expdargs.scm 114 */
																								obj_t BgL_arg1381z00_1280;

																								{	/* Eval/expdargs.scm 114 */
																									obj_t BgL_arg1382z00_1281;
																									obj_t BgL_arg1383z00_1282;

																									{	/* Eval/expdargs.scm 114 */
																										obj_t BgL_arg1384z00_1283;

																										{	/* Eval/expdargs.scm 114 */
																											obj_t BgL_arg1385z00_1284;

																											BgL_arg1385z00_1284 =
																												MAKE_YOUNG_PAIR
																												(BGl_symbol2521z00zz__expander_argsz00,
																												BNIL);
																											BgL_arg1384z00_1283 =
																												MAKE_YOUNG_PAIR
																												(BGl_symbol2521z00zz__expander_argsz00,
																												BgL_arg1385z00_1284);
																										}
																										BgL_arg1382z00_1281 =
																											MAKE_YOUNG_PAIR
																											(BgL_arg1384z00_1283,
																											BNIL);
																									}
																									{	/* Eval/expdargs.scm 115 */
																										obj_t BgL_arg1386z00_1285;

																										{	/* Eval/expdargs.scm 115 */
																											obj_t BgL_arg1387z00_1286;

																											{	/* Eval/expdargs.scm 115 */
																												obj_t
																													BgL_arg1388z00_1287;
																												obj_t
																													BgL_arg1389z00_1288;
																												{	/* Eval/expdargs.scm 115 */
																													obj_t
																														BgL_arg1390z00_1289;
																													{	/* Eval/expdargs.scm 115 */
																														obj_t
																															BgL_arg1391z00_1290;
																														BgL_arg1391z00_1290
																															=
																															MAKE_YOUNG_PAIR
																															(BGl_symbol2535z00zz__expander_argsz00,
																															BNIL);
																														BgL_arg1390z00_1289
																															=
																															MAKE_YOUNG_PAIR
																															(BGl_symbol2537z00zz__expander_argsz00,
																															BgL_arg1391z00_1290);
																													}
																													BgL_arg1388z00_1287 =
																														MAKE_YOUNG_PAIR
																														(BGl_symbol2539z00zz__expander_argsz00,
																														BgL_arg1390z00_1289);
																												}
																												{	/* Eval/expdargs.scm 116 */
																													obj_t
																														BgL_arg1392z00_1291;
																													obj_t
																														BgL_arg1395z00_1292;
																													{	/* Eval/expdargs.scm 116 */
																														obj_t
																															BgL_arg1396z00_1293;
																														obj_t
																															BgL_arg1397z00_1294;
																														{	/* Eval/expdargs.scm 116 */
																															obj_t
																																BgL_arg1398z00_1295;
																															BgL_arg1398z00_1295
																																=
																																MAKE_YOUNG_PAIR
																																(BGl_symbol2521z00zz__expander_argsz00,
																																BNIL);
																															BgL_arg1396z00_1293
																																=
																																MAKE_YOUNG_PAIR
																																(BGl_symbol2503z00zz__expander_argsz00,
																																BgL_arg1398z00_1295);
																														}
																														{	/* Eval/expdargs.scm 116 */
																															obj_t
																																BgL_arg1399z00_1296;
																															BgL_arg1399z00_1296
																																=
																																MAKE_YOUNG_PAIR
																																(BGl_symbol2491z00zz__expander_argsz00,
																																BNIL);
																															BgL_arg1397z00_1294
																																=
																																MAKE_YOUNG_PAIR
																																(BGl_symbol2523z00zz__expander_argsz00,
																																BgL_arg1399z00_1296);
																														}
																														BgL_arg1392z00_1291
																															=
																															MAKE_YOUNG_PAIR
																															(BgL_arg1396z00_1293,
																															BgL_arg1397z00_1294);
																													}
																													{	/* Eval/expdargs.scm 118 */
																														obj_t
																															BgL_arg1400z00_1297;
																														{	/* Eval/expdargs.scm 118 */
																															obj_t
																																BgL_arg1401z00_1298;
																															{	/* Eval/expdargs.scm 118 */
																																obj_t
																																	BgL_arg1402z00_1299;
																																{	/* Eval/expdargs.scm 118 */
																																	obj_t
																																		BgL_arg1403z00_1300;
																																	obj_t
																																		BgL_arg1404z00_1301;
																																	{	/* Eval/expdargs.scm 118 */
																																		obj_t
																																			BgL_arg1405z00_1302;
																																		obj_t
																																			BgL_arg1407z00_1303;
																																		BgL_arg1405z00_1302
																																			=
																																			MAKE_YOUNG_PAIR
																																			(BGl_symbol2541z00zz__expander_argsz00,
																																			BNIL);
																																		{	/* Eval/expdargs.scm 119 */
																																			obj_t
																																				BgL_arg1408z00_1304;
																																			{	/* Eval/expdargs.scm 119 */
																																				obj_t
																																					BgL_arg1409z00_1305;
																																				{	/* Eval/expdargs.scm 119 */
																																					obj_t
																																						BgL_arg1410z00_1306;
																																					BgL_arg1410z00_1306
																																						=
																																						MAKE_YOUNG_PAIR
																																						(BGl_symbol2535z00zz__expander_argsz00,
																																						BNIL);
																																					BgL_arg1409z00_1305
																																						=
																																						MAKE_YOUNG_PAIR
																																						(BGl_symbol2537z00zz__expander_argsz00,
																																						BgL_arg1410z00_1306);
																																				}
																																				BgL_arg1408z00_1304
																																					=
																																					MAKE_YOUNG_PAIR
																																					(BGl_symbol2543z00zz__expander_argsz00,
																																					BgL_arg1409z00_1305);
																																			}
																																			BgL_arg1407z00_1303
																																				=
																																				MAKE_YOUNG_PAIR
																																				(BgL_arg1408z00_1304,
																																				BNIL);
																																		}
																																		BgL_arg1403z00_1300
																																			=
																																			MAKE_YOUNG_PAIR
																																			(BgL_arg1405z00_1302,
																																			BgL_arg1407z00_1303);
																																	}
																																	{	/* Eval/expdargs.scm 120 */
																																		obj_t
																																			BgL_arg1411z00_1307;
																																		obj_t
																																			BgL_arg1412z00_1308;
																																		{	/* Eval/expdargs.scm 120 */
																																			obj_t
																																				BgL_arg1413z00_1309;
																																			obj_t
																																				BgL_arg1414z00_1310;
																																			BgL_arg1413z00_1309
																																				=
																																				MAKE_YOUNG_PAIR
																																				(BGl_symbol2545z00zz__expander_argsz00,
																																				BNIL);
																																			{	/* Eval/expdargs.scm 121 */
																																				obj_t
																																					BgL_arg1415z00_1311;
																																				{	/* Eval/expdargs.scm 121 */
																																					obj_t
																																						BgL_arg1416z00_1312;
																																					{	/* Eval/expdargs.scm 121 */
																																						obj_t
																																							BgL_arg1417z00_1313;
																																						{	/* Eval/expdargs.scm 121 */
																																							obj_t
																																								BgL_arg1419z00_1314;
																																							BgL_arg1419z00_1314
																																								=
																																								MAKE_YOUNG_PAIR
																																								(BGl_symbol2521z00zz__expander_argsz00,
																																								BNIL);
																																							BgL_arg1417z00_1313
																																								=
																																								MAKE_YOUNG_PAIR
																																								(BGl_symbol2547z00zz__expander_argsz00,
																																								BgL_arg1419z00_1314);
																																						}
																																						BgL_arg1416z00_1312
																																							=
																																							MAKE_YOUNG_PAIR
																																							(BgL_arg1417z00_1313,
																																							BNIL);
																																					}
																																					BgL_arg1415z00_1311
																																						=
																																						MAKE_YOUNG_PAIR
																																						(BGl_symbol2549z00zz__expander_argsz00,
																																						BgL_arg1416z00_1312);
																																				}
																																				BgL_arg1414z00_1310
																																					=
																																					MAKE_YOUNG_PAIR
																																					(BgL_arg1415z00_1311,
																																					BNIL);
																																			}
																																			BgL_arg1411z00_1307
																																				=
																																				MAKE_YOUNG_PAIR
																																				(BgL_arg1413z00_1309,
																																				BgL_arg1414z00_1310);
																																		}
																																		{	/* Eval/expdargs.scm 122 */
																																			obj_t
																																				BgL_arg1420z00_1315;
																																			{	/* Eval/expdargs.scm 122 */
																																				obj_t
																																					BgL_arg1421z00_1316;
																																				obj_t
																																					BgL_arg1422z00_1317;
																																				BgL_arg1421z00_1316
																																					=
																																					MAKE_YOUNG_PAIR
																																					(BGl_symbol2497z00zz__expander_argsz00,
																																					BNIL);
																																				BgL_arg1422z00_1317
																																					=
																																					MAKE_YOUNG_PAIR
																																					(BGl_symbol2535z00zz__expander_argsz00,
																																					BNIL);
																																				BgL_arg1420z00_1315
																																					=
																																					MAKE_YOUNG_PAIR
																																					(BgL_arg1421z00_1316,
																																					BgL_arg1422z00_1317);
																																			}
																																			BgL_arg1412z00_1308
																																				=
																																				MAKE_YOUNG_PAIR
																																				(BgL_arg1420z00_1315,
																																				BNIL);
																																		}
																																		BgL_arg1404z00_1301
																																			=
																																			MAKE_YOUNG_PAIR
																																			(BgL_arg1411z00_1307,
																																			BgL_arg1412z00_1308);
																																	}
																																	BgL_arg1402z00_1299
																																		=
																																		MAKE_YOUNG_PAIR
																																		(BgL_arg1403z00_1300,
																																		BgL_arg1404z00_1301);
																																}
																																BgL_arg1401z00_1298
																																	=
																																	MAKE_YOUNG_PAIR
																																	(BGl_symbol2539z00zz__expander_argsz00,
																																	BgL_arg1402z00_1299);
																															}
																															BgL_arg1400z00_1297
																																=
																																MAKE_YOUNG_PAIR
																																(BGl_symbol2551z00zz__expander_argsz00,
																																BgL_arg1401z00_1298);
																														}
																														BgL_arg1395z00_1292
																															=
																															MAKE_YOUNG_PAIR
																															(BgL_arg1400z00_1297,
																															BNIL);
																													}
																													BgL_arg1389z00_1288 =
																														MAKE_YOUNG_PAIR
																														(BgL_arg1392z00_1291,
																														BgL_arg1395z00_1292);
																												}
																												BgL_arg1387z00_1286 =
																													MAKE_YOUNG_PAIR
																													(BgL_arg1388z00_1287,
																													BgL_arg1389z00_1288);
																											}
																											BgL_arg1386z00_1285 =
																												MAKE_YOUNG_PAIR
																												(BGl_symbol2553z00zz__expander_argsz00,
																												BgL_arg1387z00_1286);
																										}
																										BgL_arg1383z00_1282 =
																											MAKE_YOUNG_PAIR
																											(BgL_arg1386z00_1285,
																											BNIL);
																									}
																									BgL_arg1381z00_1280 =
																										MAKE_YOUNG_PAIR
																										(BgL_arg1382z00_1281,
																										BgL_arg1383z00_1282);
																								}
																								BgL_arg1380z00_1279 =
																									MAKE_YOUNG_PAIR
																									(BGl_symbol2549z00zz__expander_argsz00,
																									BgL_arg1381z00_1280);
																							}
																							BgL_arg1379z00_1278 =
																								MAKE_YOUNG_PAIR
																								(BGl_symbol2555z00zz__expander_argsz00,
																								BgL_arg1380z00_1279);
																						}
																						BgL_arg1372z00_1272 =
																							MAKE_YOUNG_PAIR
																							(BgL_arg1379z00_1278, BNIL);
																					}
																					BgL_arg1370z00_1270 =
																						MAKE_YOUNG_PAIR(BgL_arg1371z00_1271,
																						BgL_arg1372z00_1272);
																				}
																				BgL_arg1369z00_1269 =
																					MAKE_YOUNG_PAIR
																					(BGl_symbol2543z00zz__expander_argsz00,
																					BgL_arg1370z00_1270);
																			}
																			BgL_arg1368z00_1268 =
																				MAKE_YOUNG_PAIR
																				(BGl_symbol2555z00zz__expander_argsz00,
																				BgL_arg1369z00_1269);
																		}
																		BgL_arg1362z00_1262 =
																			MAKE_YOUNG_PAIR(BgL_arg1368z00_1268,
																			BNIL);
																	}
																	BgL_arg1357z00_1257 =
																		MAKE_YOUNG_PAIR(BgL_arg1361z00_1261,
																		BgL_arg1362z00_1262);
																}
																BgL_arg1355z00_1255 =
																	MAKE_YOUNG_PAIR(BgL_arg1356z00_1256,
																	BgL_arg1357z00_1257);
															}
															BgL_arg1353z00_1254 =
																MAKE_YOUNG_PAIR
																(BGl_symbol2509z00zz__expander_argsz00,
																BgL_arg1355z00_1255);
														}
														BgL_arg1330z00_1220 =
															MAKE_YOUNG_PAIR(BgL_arg1353z00_1254, BNIL);
													}
													BgL_arg1262z00_1177 =
														BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00
														(BgL_arg1329z00_1219, BgL_arg1330z00_1220);
												}
												BgL_arg1259z00_1175 =
													MAKE_YOUNG_PAIR(BgL_arg1261z00_1176,
													BgL_arg1262z00_1177);
											}
											return
												MAKE_YOUNG_PAIR(BGl_symbol2557z00zz__expander_argsz00,
												BgL_arg1259z00_1175);
										}
									}
								}
							}
						}
					}
				}
			}
		}

	}



/* make-help */
	obj_t BGl_makezd2helpzd2zz__expander_argsz00(obj_t BgL_clausez00_10)
	{
		{	/* Eval/expdargs.scm 128 */
			{
				obj_t BgL_optz00_1390;

				if (PAIRP(BgL_clausez00_10))
					{	/* Eval/expdargs.scm 129 */
						obj_t BgL_cdrzd2121zd2_1395;

						BgL_cdrzd2121zd2_1395 = CDR(((obj_t) BgL_clausez00_10));
						if (
							(CAR(
									((obj_t) BgL_clausez00_10)) ==
								BGl_symbol2564z00zz__expander_argsz00))
							{	/* Eval/expdargs.scm 129 */
								if (PAIRP(BgL_cdrzd2121zd2_1395))
									{	/* Eval/expdargs.scm 129 */
										if (NULLP(CDR(BgL_cdrzd2121zd2_1395)))
											{	/* Eval/expdargs.scm 129 */
												obj_t BgL_arg1475z00_1401;

												BgL_arg1475z00_1401 = CAR(BgL_cdrzd2121zd2_1395);
												return
													MAKE_YOUNG_PAIR(BGl_symbol2564z00zz__expander_argsz00,
													BgL_arg1475z00_1401);
											}
										else
											{	/* Eval/expdargs.scm 129 */
												obj_t BgL_carzd2129zd2_1402;

												BgL_carzd2129zd2_1402 = CAR(((obj_t) BgL_clausez00_10));
												if (PAIRP(BgL_carzd2129zd2_1402))
													{	/* Eval/expdargs.scm 129 */
														if (NULLP(CDR(BgL_carzd2129zd2_1402)))
															{	/* Eval/expdargs.scm 129 */
																return BFALSE;
															}
														else
															{	/* Eval/expdargs.scm 129 */
																BgL_optz00_1390 = BgL_carzd2129zd2_1402;
															BgL_tagzd2114zd2_1391:
																{	/* Eval/expdargs.scm 139 */
																	obj_t BgL_synz00_1431;

																	BgL_synz00_1431 =
																		CAR
																		(BGl_lastzd2pairzd2zz__r4_pairs_and_lists_6_3z00
																		(BgL_optz00_1390));
																	{
																		obj_t BgL_synopsisz00_1436;
																		obj_t BgL_msgz00_1437;

																		if (PAIRP(BgL_synz00_1431))
																			{	/* Eval/expdargs.scm 140 */
																				obj_t BgL_cdrzd2197zd2_1442;

																				BgL_cdrzd2197zd2_1442 =
																					CDR(((obj_t) BgL_synz00_1431));
																				if (PAIRP(BgL_cdrzd2197zd2_1442))
																					{	/* Eval/expdargs.scm 140 */
																						obj_t BgL_cdrzd2202zd2_1444;

																						BgL_cdrzd2202zd2_1444 =
																							CDR(BgL_cdrzd2197zd2_1442);
																						if (PAIRP(BgL_cdrzd2202zd2_1444))
																							{	/* Eval/expdargs.scm 140 */
																								if (NULLP(CDR
																										(BgL_cdrzd2202zd2_1444)))
																									{	/* Eval/expdargs.scm 140 */
																										obj_t BgL_arg1512z00_1448;
																										obj_t BgL_arg1513z00_1449;
																										obj_t BgL_arg1514z00_1450;

																										BgL_arg1512z00_1448 =
																											CAR(
																											((obj_t)
																												BgL_synz00_1431));
																										BgL_arg1513z00_1449 =
																											CAR
																											(BgL_cdrzd2197zd2_1442);
																										BgL_arg1514z00_1450 =
																											CAR
																											(BgL_cdrzd2202zd2_1444);
																										if (BGl_synopsiszf3zf3zz__expander_argsz00(BgL_arg1512z00_1448))
																											{	/* Eval/expdargs.scm 144 */
																												obj_t
																													BgL_arg1524z00_2731;
																												if (STRINGP
																													(BgL_arg1514z00_1450))
																													{	/* Eval/expdargs.scm 144 */
																														BgL_arg1524z00_2731
																															=
																															BgL_arg1514z00_1450;
																													}
																												else
																													{	/* Eval/expdargs.scm 144 */
																														obj_t
																															BgL_list1526z00_2733;
																														{	/* Eval/expdargs.scm 144 */
																															obj_t
																																BgL_arg1527z00_2734;
																															BgL_arg1527z00_2734
																																=
																																MAKE_YOUNG_PAIR
																																(BgL_arg1514z00_1450,
																																BNIL);
																															BgL_list1526z00_2733
																																=
																																MAKE_YOUNG_PAIR
																																(BGl_symbol2513z00zz__expander_argsz00,
																																BgL_arg1527z00_2734);
																														}
																														BgL_arg1524z00_2731
																															=
																															BgL_list1526z00_2733;
																													}
																												return
																													MAKE_YOUNG_PAIR
																													(BgL_arg1513z00_1449,
																													BgL_arg1524z00_2731);
																											}
																										else
																											{	/* Eval/expdargs.scm 142 */
																												return
																													BGl_expandzd2errorzd2zz__expandz00
																													(BGl_string2485z00zz__expander_argsz00,
																													BGl_string2563z00zz__expander_argsz00,
																													BgL_clausez00_10);
																											}
																									}
																								else
																									{	/* Eval/expdargs.scm 140 */
																										return BFALSE;
																									}
																							}
																						else
																							{	/* Eval/expdargs.scm 140 */
																								if (NULLP(CDR(
																											((obj_t)
																												BgL_cdrzd2197zd2_1442))))
																									{	/* Eval/expdargs.scm 140 */
																										obj_t BgL_arg1520z00_1455;
																										obj_t BgL_arg1521z00_1456;

																										BgL_arg1520z00_1455 =
																											CAR(
																											((obj_t)
																												BgL_synz00_1431));
																										BgL_arg1521z00_1456 =
																											CAR(((obj_t)
																												BgL_cdrzd2197zd2_1442));
																										BgL_synopsisz00_1436 =
																											BgL_arg1520z00_1455;
																										BgL_msgz00_1437 =
																											BgL_arg1521z00_1456;
																										{	/* Eval/expdargs.scm 146 */
																											bool_t
																												BgL_test2720z00_3663;
																											{	/* Eval/expdargs.scm 459 */
																												bool_t
																													BgL__ortest_1047z00_2722;
																												BgL__ortest_1047z00_2722
																													=
																													(BgL_synopsisz00_1436
																													==
																													BGl_symbol2559z00zz__expander_argsz00);
																												if (BgL__ortest_1047z00_2722)
																													{	/* Eval/expdargs.scm 459 */
																														BgL_test2720z00_3663
																															=
																															BgL__ortest_1047z00_2722;
																													}
																												else
																													{	/* Eval/expdargs.scm 459 */
																														BgL_test2720z00_3663
																															=
																															(BgL_synopsisz00_1436
																															==
																															BGl_symbol2561z00zz__expander_argsz00);
																													}
																											}
																											if (BgL_test2720z00_3663)
																												{	/* Eval/expdargs.scm 148 */
																													obj_t
																														BgL_arg1532z00_1464;
																													obj_t
																														BgL_arg1533z00_1465;
																													BgL_arg1532z00_1464 =
																														BGl_makezd2synopsiszd2namez00zz__expander_argsz00
																														(BgL_clausez00_10);
																													if (STRINGP
																														(BgL_msgz00_1437))
																														{	/* Eval/expdargs.scm 149 */
																															BgL_arg1533z00_1465
																																=
																																BgL_msgz00_1437;
																														}
																													else
																														{	/* Eval/expdargs.scm 149 */
																															obj_t
																																BgL_list1535z00_1467;
																															{	/* Eval/expdargs.scm 149 */
																																obj_t
																																	BgL_arg1537z00_1468;
																																BgL_arg1537z00_1468
																																	=
																																	MAKE_YOUNG_PAIR
																																	(BgL_msgz00_1437,
																																	BNIL);
																																BgL_list1535z00_1467
																																	=
																																	MAKE_YOUNG_PAIR
																																	(BGl_symbol2513z00zz__expander_argsz00,
																																	BgL_arg1537z00_1468);
																															}
																															BgL_arg1533z00_1465
																																=
																																BgL_list1535z00_1467;
																														}
																													return
																														MAKE_YOUNG_PAIR
																														(BgL_arg1532z00_1464,
																														BgL_arg1533z00_1465);
																												}
																											else
																												{	/* Eval/expdargs.scm 146 */
																													return
																														BGl_expandzd2errorzd2zz__expandz00
																														(BGl_string2485z00zz__expander_argsz00,
																														BGl_string2563z00zz__expander_argsz00,
																														BgL_clausez00_10);
																												}
																										}
																									}
																								else
																									{	/* Eval/expdargs.scm 140 */
																										return BFALSE;
																									}
																							}
																					}
																				else
																					{	/* Eval/expdargs.scm 140 */
																						return BFALSE;
																					}
																			}
																		else
																			{	/* Eval/expdargs.scm 140 */
																				return BFALSE;
																			}
																	}
																}
															}
													}
												else
													{
														obj_t BgL_optz00_3674;

														BgL_optz00_3674 = BgL_carzd2129zd2_1402;
														BgL_optz00_1390 = BgL_optz00_3674;
														goto BgL_tagzd2114zd2_1391;
													}
											}
									}
								else
									{	/* Eval/expdargs.scm 129 */
										obj_t BgL_carzd2146zd2_1410;

										BgL_carzd2146zd2_1410 = CAR(((obj_t) BgL_clausez00_10));
										if (PAIRP(BgL_carzd2146zd2_1410))
											{	/* Eval/expdargs.scm 129 */
												if (NULLP(CDR(BgL_carzd2146zd2_1410)))
													{	/* Eval/expdargs.scm 129 */
														return BFALSE;
													}
												else
													{
														obj_t BgL_optz00_3682;

														BgL_optz00_3682 = BgL_carzd2146zd2_1410;
														BgL_optz00_1390 = BgL_optz00_3682;
														goto BgL_tagzd2114zd2_1391;
													}
											}
										else
											{
												obj_t BgL_optz00_3683;

												BgL_optz00_3683 = BgL_carzd2146zd2_1410;
												BgL_optz00_1390 = BgL_optz00_3683;
												goto BgL_tagzd2114zd2_1391;
											}
									}
							}
						else
							{	/* Eval/expdargs.scm 129 */
								if (NULLP(CAR(((obj_t) BgL_clausez00_10))))
									{	/* Eval/expdargs.scm 129 */
										return BFALSE;
									}
								else
									{	/* Eval/expdargs.scm 129 */
										if (
											(CAR(
													((obj_t) BgL_clausez00_10)) ==
												BGl_symbol2566z00zz__expander_argsz00))
											{	/* Eval/expdargs.scm 129 */
												return BFALSE;
											}
										else
											{	/* Eval/expdargs.scm 129 */
												obj_t BgL_carzd2167zd2_1421;

												BgL_carzd2167zd2_1421 = CAR(((obj_t) BgL_clausez00_10));
												if (PAIRP(BgL_carzd2167zd2_1421))
													{	/* Eval/expdargs.scm 129 */
														if (NULLP(CDR(BgL_carzd2167zd2_1421)))
															{	/* Eval/expdargs.scm 129 */
																return BFALSE;
															}
														else
															{
																obj_t BgL_optz00_3699;

																BgL_optz00_3699 = BgL_carzd2167zd2_1421;
																BgL_optz00_1390 = BgL_optz00_3699;
																goto BgL_tagzd2114zd2_1391;
															}
													}
												else
													{
														obj_t BgL_optz00_3700;

														BgL_optz00_3700 = BgL_carzd2167zd2_1421;
														BgL_optz00_1390 = BgL_optz00_3700;
														goto BgL_tagzd2114zd2_1391;
													}
											}
									}
							}
					}
				else
					{	/* Eval/expdargs.scm 129 */
						return BFALSE;
					}
			}
		}

	}



/* make-synopsis-name */
	obj_t BGl_makezd2synopsiszd2namez00zz__expander_argsz00(obj_t
		BgL_clausez00_12)
	{
		{	/* Eval/expdargs.scm 164 */
			{
				obj_t BgL_optz00_1497;
				obj_t BgL_oz00_1498;
				obj_t BgL_argsz00_1499;
				obj_t BgL_optz00_1517;
				obj_t BgL_ozb2zb2_1518;
				obj_t BgL_argsz00_1519;

				{	/* Eval/expdargs.scm 222 */
					obj_t BgL_optz00_1472;

					BgL_optz00_1472 = CAR(((obj_t) BgL_clausez00_12));
					{	/* Eval/expdargs.scm 222 */
						obj_t BgL_oz00_1473;

						BgL_oz00_1473 = CAR(((obj_t) BgL_optz00_1472));
						{	/* Eval/expdargs.scm 223 */
							obj_t BgL_argsz00_1474;

							BgL_argsz00_1474 =
								BGl_fetchzd2optionzd2argumentsz00zz__expander_argsz00
								(BgL_optz00_1472);
							{	/* Eval/expdargs.scm 224 */

								if (STRINGP(BgL_oz00_1473))
									{	/* Eval/expdargs.scm 226 */
										BgL_optz00_1497 = BgL_optz00_1472;
										BgL_oz00_1498 = BgL_oz00_1473;
										BgL_argsz00_1499 = BgL_argsz00_1474;
										{	/* Eval/expdargs.scm 166 */
											obj_t BgL_oidz00_1501;

											BgL_oidz00_1501 =
												BGl_fetchzd2optionzd2embedzd2argumentzd2zz__expander_argsz00
												(BgL_oz00_1498);
											{	/* Eval/expdargs.scm 167 */
												obj_t BgL_aidz00_1502;

												{	/* Eval/expdargs.scm 169 */
													obj_t BgL_tmpz00_2758;

													{	/* Eval/expdargs.scm 169 */
														int BgL_tmpz00_3709;

														BgL_tmpz00_3709 = (int) (1L);
														BgL_tmpz00_2758 = BGL_MVALUES_VAL(BgL_tmpz00_3709);
													}
													{	/* Eval/expdargs.scm 169 */
														int BgL_tmpz00_3712;

														BgL_tmpz00_3712 = (int) (1L);
														BGL_MVALUES_VAL_SET(BgL_tmpz00_3712, BUNSPEC);
													}
													BgL_aidz00_1502 = BgL_tmpz00_2758;
												}
												{	/* Eval/expdargs.scm 169 */
													bool_t BgL_test2730z00_3715;

													if (CBOOL(BgL_aidz00_1502))
														{	/* Eval/expdargs.scm 169 */
															BgL_test2730z00_3715 = PAIRP(BgL_argsz00_1499);
														}
													else
														{	/* Eval/expdargs.scm 169 */
															BgL_test2730z00_3715 = ((bool_t) 0);
														}
													if (BgL_test2730z00_3715)
														{	/* Eval/expdargs.scm 169 */
															return
																BGl_expandzd2errorzd2zz__expandz00
																(BGl_string2485z00zz__expander_argsz00,
																BGl_string2570z00zz__expander_argsz00,
																BgL_clausez00_12);
														}
													else
														{	/* Eval/expdargs.scm 171 */
															bool_t BgL_test2732z00_3720;

															if (CBOOL(BgL_aidz00_1502))
																{	/* Eval/expdargs.scm 171 */
																	BgL_test2732z00_3720 = ((bool_t) 1);
																}
															else
																{	/* Eval/expdargs.scm 171 */
																	BgL_test2732z00_3720 =
																		PAIRP(BgL_argsz00_1499);
																}
															if (BgL_test2732z00_3720)
																{	/* Eval/expdargs.scm 171 */
																	if (CBOOL(BgL_aidz00_1502))
																		{	/* Eval/expdargs.scm 173 */
																			return
																				string_append(BgL_oidz00_1501,
																				BGl_stringzd2upcasezd2zz__r4_strings_6_7z00
																				(BgL_aidz00_1502));
																		}
																	else
																		{	/* Eval/expdargs.scm 173 */
																			return
																				string_append(BgL_oidz00_1501,
																				BGl_loopze71ze7zz__expander_argsz00
																				(BgL_clausez00_12, BgL_argsz00_1499));
																		}
																}
															else
																{	/* Eval/expdargs.scm 171 */
																	return BgL_oidz00_1501;
																}
														}
												}
											}
										}
									}
								else
									{	/* Eval/expdargs.scm 228 */
										bool_t BgL_test2735z00_3730;

										if (BGl_listzf3zf3zz__r4_pairs_and_lists_6_3z00
											(BgL_oz00_1473))
											{
												obj_t BgL_l1129z00_1489;

												BgL_l1129z00_1489 = BgL_oz00_1473;
											BgL_zc3z04anonymousza31547ze3z87_1490:
												if (NULLP(BgL_l1129z00_1489))
													{	/* Eval/expdargs.scm 228 */
														BgL_test2735z00_3730 = ((bool_t) 1);
													}
												else
													{	/* Eval/expdargs.scm 228 */
														bool_t BgL_test2738z00_3735;

														{	/* Eval/expdargs.scm 228 */
															obj_t BgL_tmpz00_3736;

															BgL_tmpz00_3736 =
																CAR(((obj_t) BgL_l1129z00_1489));
															BgL_test2738z00_3735 = STRINGP(BgL_tmpz00_3736);
														}
														if (BgL_test2738z00_3735)
															{
																obj_t BgL_l1129z00_3740;

																BgL_l1129z00_3740 =
																	CDR(((obj_t) BgL_l1129z00_1489));
																BgL_l1129z00_1489 = BgL_l1129z00_3740;
																goto BgL_zc3z04anonymousza31547ze3z87_1490;
															}
														else
															{	/* Eval/expdargs.scm 228 */
																BgL_test2735z00_3730 = ((bool_t) 0);
															}
													}
											}
										else
											{	/* Eval/expdargs.scm 228 */
												BgL_test2735z00_3730 = ((bool_t) 0);
											}
										if (BgL_test2735z00_3730)
											{	/* Eval/expdargs.scm 228 */
												BgL_optz00_1517 = BgL_optz00_1472;
												BgL_ozb2zb2_1518 = BgL_oz00_1473;
												BgL_argsz00_1519 = BgL_argsz00_1474;
												{	/* Eval/expdargs.scm 192 */
													obj_t BgL_oidzb2zb2_1522;

													{
														obj_t BgL_ozb2zb2_1578;
														obj_t BgL_oidzb2zb2_1579;
														obj_t BgL_aidzb2zb2_1580;

														BgL_ozb2zb2_1578 = BgL_ozb2zb2_1518;
														BgL_oidzb2zb2_1579 = BNIL;
														BgL_aidzb2zb2_1580 = BNIL;
													BgL_zc3z04anonymousza31603ze3z87_1581:
														if (NULLP(BgL_ozb2zb2_1578))
															{	/* Eval/expdargs.scm 197 */
																obj_t BgL_val0_1119z00_1583;
																obj_t BgL_val1_1120z00_1584;

																BgL_val0_1119z00_1583 =
																	bgl_reverse_bang(BgL_oidzb2zb2_1579);
																BgL_val1_1120z00_1584 =
																	bgl_reverse_bang(BgL_aidzb2zb2_1580);
																{	/* Eval/expdargs.scm 197 */
																	int BgL_tmpz00_3747;

																	BgL_tmpz00_3747 = (int) (2L);
																	BGL_MVALUES_NUMBER_SET(BgL_tmpz00_3747);
																}
																{	/* Eval/expdargs.scm 197 */
																	int BgL_tmpz00_3750;

																	BgL_tmpz00_3750 = (int) (1L);
																	BGL_MVALUES_VAL_SET(BgL_tmpz00_3750,
																		BgL_val1_1120z00_1584);
																}
																BgL_oidzb2zb2_1522 = BgL_val0_1119z00_1583;
															}
														else
															{	/* Eval/expdargs.scm 198 */
																obj_t BgL_oidz00_1585;

																{	/* Eval/expdargs.scm 199 */
																	obj_t BgL_arg1610z00_1590;

																	BgL_arg1610z00_1590 =
																		CAR(((obj_t) BgL_ozb2zb2_1578));
																	BgL_oidz00_1585 =
																		BGl_fetchzd2optionzd2embedzd2argumentzd2zz__expander_argsz00
																		(BgL_arg1610z00_1590);
																}
																{	/* Eval/expdargs.scm 199 */
																	obj_t BgL_aidz00_1586;

																	{	/* Eval/expdargs.scm 200 */
																		obj_t BgL_tmpz00_2766;

																		{	/* Eval/expdargs.scm 200 */
																			int BgL_tmpz00_3756;

																			BgL_tmpz00_3756 = (int) (1L);
																			BgL_tmpz00_2766 =
																				BGL_MVALUES_VAL(BgL_tmpz00_3756);
																		}
																		{	/* Eval/expdargs.scm 200 */
																			int BgL_tmpz00_3759;

																			BgL_tmpz00_3759 = (int) (1L);
																			BGL_MVALUES_VAL_SET(BgL_tmpz00_3759,
																				BUNSPEC);
																		}
																		BgL_aidz00_1586 = BgL_tmpz00_2766;
																	}
																	{	/* Eval/expdargs.scm 200 */
																		obj_t BgL_arg1605z00_1587;
																		obj_t BgL_arg1608z00_1588;
																		obj_t BgL_arg1609z00_1589;

																		BgL_arg1605z00_1587 =
																			CDR(((obj_t) BgL_ozb2zb2_1578));
																		BgL_arg1608z00_1588 =
																			MAKE_YOUNG_PAIR(BgL_oidz00_1585,
																			BgL_oidzb2zb2_1579);
																		BgL_arg1609z00_1589 =
																			MAKE_YOUNG_PAIR(BgL_aidz00_1586,
																			BgL_aidzb2zb2_1580);
																		{
																			obj_t BgL_aidzb2zb2_3768;
																			obj_t BgL_oidzb2zb2_3767;
																			obj_t BgL_ozb2zb2_3766;

																			BgL_ozb2zb2_3766 = BgL_arg1605z00_1587;
																			BgL_oidzb2zb2_3767 = BgL_arg1608z00_1588;
																			BgL_aidzb2zb2_3768 = BgL_arg1609z00_1589;
																			BgL_aidzb2zb2_1580 = BgL_aidzb2zb2_3768;
																			BgL_oidzb2zb2_1579 = BgL_oidzb2zb2_3767;
																			BgL_ozb2zb2_1578 = BgL_ozb2zb2_3766;
																			goto
																				BgL_zc3z04anonymousza31603ze3z87_1581;
																		}
																	}
																}
															}
													}
													{	/* Eval/expdargs.scm 193 */
														obj_t BgL_aidzb2zb2_1523;

														{	/* Eval/expdargs.scm 202 */
															obj_t BgL_tmpz00_2768;

															{	/* Eval/expdargs.scm 202 */
																int BgL_tmpz00_3769;

																BgL_tmpz00_3769 = (int) (1L);
																BgL_tmpz00_2768 =
																	BGL_MVALUES_VAL(BgL_tmpz00_3769);
															}
															{	/* Eval/expdargs.scm 202 */
																int BgL_tmpz00_3772;

																BgL_tmpz00_3772 = (int) (1L);
																BGL_MVALUES_VAL_SET(BgL_tmpz00_3772, BUNSPEC);
															}
															BgL_aidzb2zb2_1523 = BgL_tmpz00_2768;
														}
														{	/* Eval/expdargs.scm 202 */
															bool_t BgL_test2740z00_3775;

															if (PAIRP(BgL_aidzb2zb2_1523))
																{
																	obj_t BgL_l1121z00_2782;

																	{	/* Eval/expdargs.scm 202 */
																		obj_t BgL_tmpz00_3778;

																		BgL_l1121z00_2782 = BgL_aidzb2zb2_1523;
																	BgL_zc3z04anonymousza31601ze3z87_2781:
																		if (NULLP(BgL_l1121z00_2782))
																			{	/* Eval/expdargs.scm 202 */
																				BgL_tmpz00_3778 = BFALSE;
																			}
																		else
																			{	/* Eval/expdargs.scm 202 */
																				obj_t BgL__ortest_1123z00_2788;

																				BgL__ortest_1123z00_2788 =
																					CAR(((obj_t) BgL_l1121z00_2782));
																				if (CBOOL(BgL__ortest_1123z00_2788))
																					{	/* Eval/expdargs.scm 202 */
																						BgL_tmpz00_3778 =
																							BgL__ortest_1123z00_2788;
																					}
																				else
																					{
																						obj_t BgL_l1121z00_3785;

																						BgL_l1121z00_3785 =
																							CDR(((obj_t) BgL_l1121z00_2782));
																						BgL_l1121z00_2782 =
																							BgL_l1121z00_3785;
																						goto
																							BgL_zc3z04anonymousza31601ze3z87_2781;
																					}
																			}
																		BgL_test2740z00_3775 =
																			CBOOL(BgL_tmpz00_3778);
																	}
																}
															else
																{	/* Eval/expdargs.scm 202 */
																	BgL_test2740z00_3775 = ((bool_t) 0);
																}
															if (BgL_test2740z00_3775)
																{	/* Eval/expdargs.scm 202 */
																	if (NULLP(BgL_argsz00_1519))
																		{	/* Eval/expdargs.scm 215 */
																			obj_t BgL_runner1588z00_1553;

																			{	/* Eval/expdargs.scm 216 */
																				obj_t BgL_arg1577z00_1536;
																				obj_t BgL_arg1578z00_1537;

																				BgL_arg1577z00_1536 =
																					BGl_concatze70ze7zz__expander_argsz00
																					(BgL_oidzb2zb2_1522);
																				{	/* Eval/expdargs.scm 217 */
																					obj_t BgL_head1126z00_1541;

																					BgL_head1126z00_1541 =
																						MAKE_YOUNG_PAIR(BNIL, BNIL);
																					{
																						obj_t BgL_l1124z00_1543;
																						obj_t BgL_tail1127z00_1544;

																						BgL_l1124z00_1543 =
																							BgL_aidzb2zb2_1523;
																						BgL_tail1127z00_1544 =
																							BgL_head1126z00_1541;
																					BgL_zc3z04anonymousza31581ze3z87_1545:
																						if (NULLP
																							(BgL_l1124z00_1543))
																							{	/* Eval/expdargs.scm 217 */
																								BgL_arg1578z00_1537 =
																									CDR(BgL_head1126z00_1541);
																							}
																						else
																							{	/* Eval/expdargs.scm 217 */
																								obj_t BgL_newtail1128z00_1547;

																								{	/* Eval/expdargs.scm 217 */
																									obj_t BgL_arg1586z00_1549;

																									{	/* Eval/expdargs.scm 217 */
																										obj_t BgL_az00_1550;

																										BgL_az00_1550 =
																											CAR(
																											((obj_t)
																												BgL_l1124z00_1543));
																										BgL_arg1586z00_1549 =
																											string_append
																											(BGl_string2568z00zz__expander_argsz00,
																											BGl_stringzd2upcasezd2zz__r4_strings_6_7z00
																											(BgL_az00_1550));
																									}
																									BgL_newtail1128z00_1547 =
																										MAKE_YOUNG_PAIR
																										(BgL_arg1586z00_1549, BNIL);
																								}
																								SET_CDR(BgL_tail1127z00_1544,
																									BgL_newtail1128z00_1547);
																								{	/* Eval/expdargs.scm 217 */
																									obj_t BgL_arg1584z00_1548;

																									BgL_arg1584z00_1548 =
																										CDR(
																										((obj_t)
																											BgL_l1124z00_1543));
																									{
																										obj_t BgL_tail1127z00_3805;
																										obj_t BgL_l1124z00_3804;

																										BgL_l1124z00_3804 =
																											BgL_arg1584z00_1548;
																										BgL_tail1127z00_3805 =
																											BgL_newtail1128z00_1547;
																										BgL_tail1127z00_1544 =
																											BgL_tail1127z00_3805;
																										BgL_l1124z00_1543 =
																											BgL_l1124z00_3804;
																										goto
																											BgL_zc3z04anonymousza31581ze3z87_1545;
																									}
																								}
																							}
																					}
																				}
																				{	/* Eval/expdargs.scm 215 */
																					obj_t BgL_list1579z00_1538;

																					BgL_list1579z00_1538 =
																						MAKE_YOUNG_PAIR(BgL_arg1578z00_1537,
																						BNIL);
																					BgL_runner1588z00_1553 =
																						BGl_consza2za2zz__r4_pairs_and_lists_6_3z00
																						(BgL_arg1577z00_1536,
																						BgL_list1579z00_1538);
																				}
																			}
																			BGL_TAIL return
																				BGl_stringzd2appendzd2zz__r4_strings_6_7z00
																				(BgL_runner1588z00_1553);
																		}
																	else
																		{	/* Eval/expdargs.scm 212 */
																			return
																				BGl_expandzd2errorzd2zz__expandz00
																				(BGl_string2485z00zz__expander_argsz00,
																				BGl_string2569z00zz__expander_argsz00,
																				BgL_clausez00_12);
																		}
																}
															else
																{	/* Eval/expdargs.scm 202 */
																	return
																		string_append
																		(BGl_concatze70ze7zz__expander_argsz00
																		(BgL_oidzb2zb2_1522),
																		BGl_loopze72ze7zz__expander_argsz00
																		(BgL_clausez00_12, BgL_argsz00_1519));
																}
														}
													}
												}
											}
										else
											{	/* Eval/expdargs.scm 228 */
												return
													BGl_expandzd2errorzd2zz__expandz00
													(BGl_string2485z00zz__expander_argsz00,
													BGl_string2570z00zz__expander_argsz00,
													BgL_clausez00_12);
											}
									}
							}
						}
					}
				}
			}
		}

	}



/* loop~1 */
	obj_t BGl_loopze71ze7zz__expander_argsz00(obj_t BgL_clausez00_3210,
		obj_t BgL_argsz00_1508)
	{
		{	/* Eval/expdargs.scm 178 */
			if (NULLP(BgL_argsz00_1508))
				{	/* Eval/expdargs.scm 179 */
					return BGl_string2571z00zz__expander_argsz00;
				}
			else
				{	/* Eval/expdargs.scm 183 */
					obj_t BgL_arg1561z00_1511;
					obj_t BgL_arg1562z00_1512;

					{	/* Eval/expdargs.scm 183 */
						obj_t BgL_arg1563z00_1513;

						{	/* Eval/expdargs.scm 183 */
							obj_t BgL_arg1565z00_1514;

							BgL_arg1565z00_1514 = CAR(((obj_t) BgL_argsz00_1508));
							BgL_arg1563z00_1513 =
								BGl_fetchzd2argumentzd2namez00zz__expander_argsz00
								(BgL_arg1565z00_1514, BgL_clausez00_3210);
						}
						BgL_arg1561z00_1511 =
							BGl_stringzd2upcasezd2zz__r4_strings_6_7z00(BgL_arg1563z00_1513);
					}
					{	/* Eval/expdargs.scm 184 */
						obj_t BgL_arg1568z00_1515;

						BgL_arg1568z00_1515 = CDR(((obj_t) BgL_argsz00_1508));
						BgL_arg1562z00_1512 =
							BGl_loopze71ze7zz__expander_argsz00(BgL_clausez00_3210,
							BgL_arg1568z00_1515);
					}
					return
						string_append_3(BGl_string2568z00zz__expander_argsz00,
						BgL_arg1561z00_1511, BgL_arg1562z00_1512);
				}
		}

	}



/* loop~2 */
	obj_t BGl_loopze72ze7zz__expander_argsz00(obj_t BgL_clausez00_3211,
		obj_t BgL_argsz00_1557)
	{
		{	/* Eval/expdargs.scm 205 */
			if (NULLP(BgL_argsz00_1557))
				{	/* Eval/expdargs.scm 206 */
					return BGl_string2571z00zz__expander_argsz00;
				}
			else
				{	/* Eval/expdargs.scm 210 */
					obj_t BgL_arg1596z00_1560;
					obj_t BgL_arg1597z00_1561;

					{	/* Eval/expdargs.scm 210 */
						obj_t BgL_arg1598z00_1562;

						{	/* Eval/expdargs.scm 210 */
							obj_t BgL_arg1599z00_1563;

							BgL_arg1599z00_1563 = CAR(((obj_t) BgL_argsz00_1557));
							BgL_arg1598z00_1562 =
								BGl_fetchzd2argumentzd2namez00zz__expander_argsz00
								(BgL_arg1599z00_1563, BgL_clausez00_3211);
						}
						BgL_arg1596z00_1560 =
							BGl_stringzd2upcasezd2zz__r4_strings_6_7z00(BgL_arg1598z00_1562);
					}
					{	/* Eval/expdargs.scm 211 */
						obj_t BgL_arg1600z00_1564;

						BgL_arg1600z00_1564 = CDR(((obj_t) BgL_argsz00_1557));
						BgL_arg1597z00_1561 =
							BGl_loopze72ze7zz__expander_argsz00(BgL_clausez00_3211,
							BgL_arg1600z00_1564);
					}
					return
						string_append_3(BGl_string2568z00zz__expander_argsz00,
						BgL_arg1596z00_1560, BgL_arg1597z00_1561);
				}
		}

	}



/* concat~0 */
	obj_t BGl_concatze70ze7zz__expander_argsz00(obj_t BgL_lz00_1592)
	{
		{	/* Eval/expdargs.scm 191 */
			if (NULLP(CDR(((obj_t) BgL_lz00_1592))))
				{	/* Eval/expdargs.scm 187 */
					return CAR(((obj_t) BgL_lz00_1592));
				}
			else
				{	/* Eval/expdargs.scm 189 */
					obj_t BgL_arg1614z00_1596;
					obj_t BgL_arg1615z00_1597;

					BgL_arg1614z00_1596 = CAR(((obj_t) BgL_lz00_1592));
					{	/* Eval/expdargs.scm 191 */
						obj_t BgL_arg1616z00_1598;

						BgL_arg1616z00_1598 = CDR(((obj_t) BgL_lz00_1592));
						BgL_arg1615z00_1597 =
							BGl_concatze70ze7zz__expander_argsz00(BgL_arg1616z00_1598);
					}
					return
						string_append_3(BgL_arg1614z00_1596,
						BGl_string2572z00zz__expander_argsz00, BgL_arg1615z00_1597);
				}
		}

	}



/* make-parser */
	obj_t BGl_makezd2parserzd2zz__expander_argsz00(obj_t BgL_clausez00_13,
		obj_t BgL_otablez00_14)
	{
		{	/* Eval/expdargs.scm 236 */
			{
				obj_t BgL_exprza2za2_1607;
				obj_t BgL_exprza2za2_1605;

				if (PAIRP(BgL_clausez00_13))
					{	/* Eval/expdargs.scm 237 */
						obj_t BgL_cdrzd2249zd2_1613;

						BgL_cdrzd2249zd2_1613 = CDR(((obj_t) BgL_clausez00_13));
						if (
							(CAR(
									((obj_t) BgL_clausez00_13)) ==
								BGl_symbol2564z00zz__expander_argsz00))
							{	/* Eval/expdargs.scm 237 */
								if (PAIRP(BgL_cdrzd2249zd2_1613))
									{	/* Eval/expdargs.scm 237 */
										if (NULLP(CDR(BgL_cdrzd2249zd2_1613)))
											{	/* Eval/expdargs.scm 237 */
												return BFALSE;
											}
										else
											{	/* Eval/expdargs.scm 237 */
												bool_t BgL_test2753z00_3859;

												{	/* Eval/expdargs.scm 237 */
													obj_t BgL_arg1627z00_1622;

													BgL_arg1627z00_1622 = CAR(((obj_t) BgL_clausez00_13));
													BgL_test2753z00_3859 =
														BGl_listzf3zf3zz__r4_pairs_and_lists_6_3z00
														(BgL_arg1627z00_1622);
												}
												if (BgL_test2753z00_3859)
													{	/* Eval/expdargs.scm 237 */
														return
															BGl_makezd2optzd2parserz00zz__expander_argsz00
															(BgL_clausez00_13, BgL_otablez00_14);
													}
												else
													{	/* Eval/expdargs.scm 237 */
														return
															BGl_expandzd2errorzd2zz__expandz00
															(BGl_string2485z00zz__expander_argsz00,
															BGl_string2570z00zz__expander_argsz00,
															BgL_clausez00_13);
													}
											}
									}
								else
									{	/* Eval/expdargs.scm 237 */
										bool_t BgL_test2754z00_3865;

										{	/* Eval/expdargs.scm 237 */
											obj_t BgL_arg1631z00_1626;

											BgL_arg1631z00_1626 = CAR(((obj_t) BgL_clausez00_13));
											BgL_test2754z00_3865 =
												BGl_listzf3zf3zz__r4_pairs_and_lists_6_3z00
												(BgL_arg1631z00_1626);
										}
										if (BgL_test2754z00_3865)
											{	/* Eval/expdargs.scm 237 */
												return
													BGl_makezd2optzd2parserz00zz__expander_argsz00
													(BgL_clausez00_13, BgL_otablez00_14);
											}
										else
											{	/* Eval/expdargs.scm 237 */
												return
													BGl_expandzd2errorzd2zz__expandz00
													(BGl_string2485z00zz__expander_argsz00,
													BGl_string2570z00zz__expander_argsz00,
													BgL_clausez00_13);
											}
									}
							}
						else
							{	/* Eval/expdargs.scm 237 */
								if (NULLP(CAR(((obj_t) BgL_clausez00_13))))
									{	/* Eval/expdargs.scm 237 */
										BgL_exprza2za2_1605 = BgL_cdrzd2249zd2_1613;
										{	/* Eval/expdargs.scm 241 */
											obj_t BgL_az00_1639;
											obj_t BgL_vz00_1640;

											{	/* Eval/expdargs.scm 241 */

												{	/* Eval/expdargs.scm 241 */

													BgL_az00_1639 =
														BGl_gensymz00zz__r4_symbols_6_4z00(BFALSE);
												}
											}
											{	/* Eval/expdargs.scm 242 */

												{	/* Eval/expdargs.scm 242 */

													BgL_vz00_1640 =
														BGl_gensymz00zz__r4_symbols_6_4z00(BFALSE);
												}
											}
											{	/* Eval/expdargs.scm 243 */
												obj_t BgL_arg1645z00_1641;

												{	/* Eval/expdargs.scm 243 */
													obj_t BgL_arg1646z00_1642;
													obj_t BgL_arg1647z00_1643;

													{	/* Eval/expdargs.scm 243 */
														obj_t BgL_arg1649z00_1644;

														BgL_arg1649z00_1644 =
															MAKE_YOUNG_PAIR(BgL_vz00_1640, BNIL);
														BgL_arg1646z00_1642 =
															MAKE_YOUNG_PAIR(BgL_az00_1639,
															BgL_arg1649z00_1644);
													}
													{	/* Eval/expdargs.scm 244 */
														obj_t BgL_arg1651z00_1645;

														{	/* Eval/expdargs.scm 244 */
															obj_t BgL_arg1652z00_1646;

															{	/* Eval/expdargs.scm 244 */
																obj_t BgL_arg1653z00_1647;
																obj_t BgL_arg1655z00_1648;

																{	/* Eval/expdargs.scm 244 */
																	obj_t BgL_arg1658z00_1649;

																	BgL_arg1658z00_1649 =
																		MAKE_YOUNG_PAIR(BgL_az00_1639, BNIL);
																	BgL_arg1653z00_1647 =
																		MAKE_YOUNG_PAIR
																		(BGl_symbol2495z00zz__expander_argsz00,
																		BgL_arg1658z00_1649);
																}
																{	/* Eval/expdargs.scm 245 */
																	obj_t BgL_arg1659z00_1650;
																	obj_t BgL_arg1660z00_1651;

																	{	/* Eval/expdargs.scm 245 */
																		obj_t BgL_arg1662z00_1652;

																		{	/* Eval/expdargs.scm 245 */
																			obj_t BgL_arg1664z00_1653;
																			obj_t BgL_arg1665z00_1654;

																			{	/* Eval/expdargs.scm 245 */
																				obj_t BgL_arg1666z00_1655;

																				BgL_arg1666z00_1655 =
																					MAKE_YOUNG_PAIR
																					(BGl_symbol2497z00zz__expander_argsz00,
																					BNIL);
																				BgL_arg1664z00_1653 =
																					MAKE_YOUNG_PAIR
																					(BGl_symbol2499z00zz__expander_argsz00,
																					BgL_arg1666z00_1655);
																			}
																			{	/* Eval/expdargs.scm 245 */
																				obj_t BgL_arg1667z00_1656;

																				{	/* Eval/expdargs.scm 245 */
																					obj_t BgL_arg1671z00_1657;

																					BgL_arg1671z00_1657 =
																						MAKE_YOUNG_PAIR
																						(BGl_symbol2573z00zz__expander_argsz00,
																						BgL_exprza2za2_1605);
																					BgL_arg1667z00_1656 =
																						MAKE_YOUNG_PAIR(BgL_arg1671z00_1657,
																						BNIL);
																				}
																				BgL_arg1665z00_1654 =
																					MAKE_YOUNG_PAIR(BgL_az00_1639,
																					BgL_arg1667z00_1656);
																			}
																			BgL_arg1662z00_1652 =
																				MAKE_YOUNG_PAIR(BgL_arg1664z00_1653,
																				BgL_arg1665z00_1654);
																		}
																		BgL_arg1659z00_1650 =
																			MAKE_YOUNG_PAIR
																			(BGl_symbol2501z00zz__expander_argsz00,
																			BgL_arg1662z00_1652);
																	}
																	{	/* Eval/expdargs.scm 246 */
																		obj_t BgL_arg1672z00_1658;

																		{	/* Eval/expdargs.scm 246 */
																			obj_t BgL_arg1673z00_1659;

																			{	/* Eval/expdargs.scm 246 */
																				obj_t BgL_arg1674z00_1660;
																				obj_t BgL_arg1675z00_1661;

																				{	/* Eval/expdargs.scm 246 */
																					obj_t BgL_arg1681z00_1662;

																					BgL_arg1681z00_1662 =
																						MAKE_YOUNG_PAIR
																						(BGl_symbol2545z00zz__expander_argsz00,
																						BNIL);
																					BgL_arg1674z00_1660 =
																						MAKE_YOUNG_PAIR
																						(BGl_symbol2499z00zz__expander_argsz00,
																						BgL_arg1681z00_1662);
																				}
																				{	/* Eval/expdargs.scm 246 */
																					obj_t BgL_arg1683z00_1663;

																					BgL_arg1683z00_1663 =
																						MAKE_YOUNG_PAIR(BgL_vz00_1640,
																						BNIL);
																					BgL_arg1675z00_1661 =
																						MAKE_YOUNG_PAIR(BgL_az00_1639,
																						BgL_arg1683z00_1663);
																				}
																				BgL_arg1673z00_1659 =
																					MAKE_YOUNG_PAIR(BgL_arg1674z00_1660,
																					BgL_arg1675z00_1661);
																			}
																			BgL_arg1672z00_1658 =
																				MAKE_YOUNG_PAIR
																				(BGl_symbol2501z00zz__expander_argsz00,
																				BgL_arg1673z00_1659);
																		}
																		BgL_arg1660z00_1651 =
																			MAKE_YOUNG_PAIR(BgL_arg1672z00_1658,
																			BNIL);
																	}
																	BgL_arg1655z00_1648 =
																		MAKE_YOUNG_PAIR(BgL_arg1659z00_1650,
																		BgL_arg1660z00_1651);
																}
																BgL_arg1652z00_1646 =
																	MAKE_YOUNG_PAIR(BgL_arg1653z00_1647,
																	BgL_arg1655z00_1648);
															}
															BgL_arg1651z00_1645 =
																MAKE_YOUNG_PAIR
																(BGl_symbol2509z00zz__expander_argsz00,
																BgL_arg1652z00_1646);
														}
														BgL_arg1647z00_1643 =
															MAKE_YOUNG_PAIR(BgL_arg1651z00_1645, BNIL);
													}
													BgL_arg1645z00_1641 =
														MAKE_YOUNG_PAIR(BgL_arg1646z00_1642,
														BgL_arg1647z00_1643);
												}
												return
													MAKE_YOUNG_PAIR(BGl_symbol2511z00zz__expander_argsz00,
													BgL_arg1645z00_1641);
											}
										}
									}
								else
									{	/* Eval/expdargs.scm 237 */
										if (
											(CAR(
													((obj_t) BgL_clausez00_13)) ==
												BGl_symbol2566z00zz__expander_argsz00))
											{	/* Eval/expdargs.scm 237 */
												BgL_exprza2za2_1607 = BgL_cdrzd2249zd2_1613;
												{	/* Eval/expdargs.scm 248 */
													obj_t BgL_az00_1666;
													obj_t BgL_vz00_1667;

													{	/* Eval/expdargs.scm 248 */

														{	/* Eval/expdargs.scm 248 */

															BgL_az00_1666 =
																BGl_gensymz00zz__r4_symbols_6_4z00(BFALSE);
														}
													}
													{	/* Eval/expdargs.scm 249 */

														{	/* Eval/expdargs.scm 249 */

															BgL_vz00_1667 =
																BGl_gensymz00zz__r4_symbols_6_4z00(BFALSE);
														}
													}
													{	/* Eval/expdargs.scm 250 */
														obj_t BgL_arg1687z00_1668;

														{	/* Eval/expdargs.scm 250 */
															obj_t BgL_arg1689z00_1669;
															obj_t BgL_arg1690z00_1670;

															{	/* Eval/expdargs.scm 250 */
																obj_t BgL_arg1691z00_1671;

																BgL_arg1691z00_1671 =
																	MAKE_YOUNG_PAIR(BgL_vz00_1667, BNIL);
																BgL_arg1689z00_1669 =
																	MAKE_YOUNG_PAIR(BgL_az00_1666,
																	BgL_arg1691z00_1671);
															}
															{	/* Eval/expdargs.scm 251 */
																obj_t BgL_arg1692z00_1672;

																{	/* Eval/expdargs.scm 251 */
																	obj_t BgL_arg1697z00_1673;

																	{	/* Eval/expdargs.scm 251 */
																		obj_t BgL_arg1698z00_1674;
																		obj_t BgL_arg1702z00_1675;

																		{	/* Eval/expdargs.scm 251 */
																			obj_t BgL_arg1703z00_1676;

																			BgL_arg1703z00_1676 =
																				MAKE_YOUNG_PAIR(BgL_az00_1666, BNIL);
																			BgL_arg1698z00_1674 =
																				MAKE_YOUNG_PAIR
																				(BGl_symbol2575z00zz__expander_argsz00,
																				BgL_arg1703z00_1676);
																		}
																		{	/* Eval/expdargs.scm 252 */
																			obj_t BgL_arg1705z00_1677;
																			obj_t BgL_arg1706z00_1678;

																			{	/* Eval/expdargs.scm 252 */
																				obj_t BgL_arg1707z00_1679;

																				{	/* Eval/expdargs.scm 252 */
																					obj_t BgL_arg1708z00_1680;
																					obj_t BgL_arg1709z00_1681;

																					{	/* Eval/expdargs.scm 252 */
																						obj_t BgL_arg1710z00_1682;
																						obj_t BgL_arg1711z00_1683;

																						{	/* Eval/expdargs.scm 252 */
																							obj_t BgL_arg1712z00_1684;

																							{	/* Eval/expdargs.scm 252 */
																								obj_t BgL_arg1714z00_1685;

																								{	/* Eval/expdargs.scm 252 */
																									obj_t BgL_arg1715z00_1686;

																									BgL_arg1715z00_1686 =
																										MAKE_YOUNG_PAIR
																										(BgL_az00_1666, BNIL);
																									BgL_arg1714z00_1685 =
																										MAKE_YOUNG_PAIR
																										(BGl_symbol2503z00zz__expander_argsz00,
																										BgL_arg1715z00_1686);
																								}
																								BgL_arg1712z00_1684 =
																									MAKE_YOUNG_PAIR
																									(BgL_arg1714z00_1685, BNIL);
																							}
																							BgL_arg1710z00_1682 =
																								MAKE_YOUNG_PAIR
																								(BGl_symbol2566z00zz__expander_argsz00,
																								BgL_arg1712z00_1684);
																						}
																						{	/* Eval/expdargs.scm 253 */
																							obj_t BgL_arg1716z00_1687;

																							{	/* Eval/expdargs.scm 253 */
																								obj_t BgL_arg1718z00_1688;

																								BgL_arg1718z00_1688 =
																									MAKE_YOUNG_PAIR(BgL_az00_1666,
																									BNIL);
																								BgL_arg1716z00_1687 =
																									MAKE_YOUNG_PAIR
																									(BGl_symbol2577z00zz__expander_argsz00,
																									BgL_arg1718z00_1688);
																							}
																							BgL_arg1711z00_1683 =
																								MAKE_YOUNG_PAIR
																								(BgL_arg1716z00_1687, BNIL);
																						}
																						BgL_arg1708z00_1680 =
																							MAKE_YOUNG_PAIR
																							(BgL_arg1710z00_1682,
																							BgL_arg1711z00_1683);
																					}
																					{	/* Eval/expdargs.scm 254 */
																						obj_t BgL_arg1719z00_1689;

																						{	/* Eval/expdargs.scm 254 */
																							obj_t BgL_arg1720z00_1690;

																							{	/* Eval/expdargs.scm 254 */
																								obj_t BgL_arg1721z00_1691;
																								obj_t BgL_arg1722z00_1692;

																								{	/* Eval/expdargs.scm 254 */
																									obj_t BgL_arg1723z00_1693;

																									BgL_arg1723z00_1693 =
																										MAKE_YOUNG_PAIR
																										(BGl_symbol2541z00zz__expander_argsz00,
																										BNIL);
																									BgL_arg1721z00_1691 =
																										MAKE_YOUNG_PAIR
																										(BGl_symbol2499z00zz__expander_argsz00,
																										BgL_arg1723z00_1693);
																								}
																								{	/* Eval/expdargs.scm 254 */
																									obj_t BgL_arg1724z00_1694;
																									obj_t BgL_arg1725z00_1695;

																									{	/* Eval/expdargs.scm 254 */
																										obj_t BgL_arg1726z00_1696;

																										BgL_arg1726z00_1696 =
																											MAKE_YOUNG_PAIR
																											(BgL_az00_1666, BNIL);
																										BgL_arg1724z00_1694 =
																											MAKE_YOUNG_PAIR
																											(BGl_symbol2547z00zz__expander_argsz00,
																											BgL_arg1726z00_1696);
																									}
																									{	/* Eval/expdargs.scm 254 */
																										obj_t BgL_arg1727z00_1697;

																										BgL_arg1727z00_1697 =
																											MAKE_YOUNG_PAIR
																											(BGl_symbol2573z00zz__expander_argsz00,
																											BgL_exprza2za2_1607);
																										BgL_arg1725z00_1695 =
																											MAKE_YOUNG_PAIR
																											(BgL_arg1727z00_1697,
																											BNIL);
																									}
																									BgL_arg1722z00_1692 =
																										MAKE_YOUNG_PAIR
																										(BgL_arg1724z00_1694,
																										BgL_arg1725z00_1695);
																								}
																								BgL_arg1720z00_1690 =
																									MAKE_YOUNG_PAIR
																									(BgL_arg1721z00_1691,
																									BgL_arg1722z00_1692);
																							}
																							BgL_arg1719z00_1689 =
																								MAKE_YOUNG_PAIR
																								(BGl_symbol2501z00zz__expander_argsz00,
																								BgL_arg1720z00_1690);
																						}
																						BgL_arg1709z00_1681 =
																							MAKE_YOUNG_PAIR
																							(BgL_arg1719z00_1689, BNIL);
																					}
																					BgL_arg1707z00_1679 =
																						MAKE_YOUNG_PAIR(BgL_arg1708z00_1680,
																						BgL_arg1709z00_1681);
																				}
																				BgL_arg1705z00_1677 =
																					MAKE_YOUNG_PAIR
																					(BGl_symbol2555z00zz__expander_argsz00,
																					BgL_arg1707z00_1679);
																			}
																			{	/* Eval/expdargs.scm 255 */
																				obj_t BgL_arg1728z00_1698;

																				{	/* Eval/expdargs.scm 255 */
																					obj_t BgL_arg1729z00_1699;

																					{	/* Eval/expdargs.scm 255 */
																						obj_t BgL_arg1730z00_1700;
																						obj_t BgL_arg1731z00_1701;

																						{	/* Eval/expdargs.scm 255 */
																							obj_t BgL_arg1732z00_1702;

																							BgL_arg1732z00_1702 =
																								MAKE_YOUNG_PAIR
																								(BGl_symbol2545z00zz__expander_argsz00,
																								BNIL);
																							BgL_arg1730z00_1700 =
																								MAKE_YOUNG_PAIR
																								(BGl_symbol2499z00zz__expander_argsz00,
																								BgL_arg1732z00_1702);
																						}
																						{	/* Eval/expdargs.scm 255 */
																							obj_t BgL_arg1733z00_1703;

																							BgL_arg1733z00_1703 =
																								MAKE_YOUNG_PAIR(BgL_vz00_1667,
																								BNIL);
																							BgL_arg1731z00_1701 =
																								MAKE_YOUNG_PAIR(BgL_az00_1666,
																								BgL_arg1733z00_1703);
																						}
																						BgL_arg1729z00_1699 =
																							MAKE_YOUNG_PAIR
																							(BgL_arg1730z00_1700,
																							BgL_arg1731z00_1701);
																					}
																					BgL_arg1728z00_1698 =
																						MAKE_YOUNG_PAIR
																						(BGl_symbol2501z00zz__expander_argsz00,
																						BgL_arg1729z00_1699);
																				}
																				BgL_arg1706z00_1678 =
																					MAKE_YOUNG_PAIR(BgL_arg1728z00_1698,
																					BNIL);
																			}
																			BgL_arg1702z00_1675 =
																				MAKE_YOUNG_PAIR(BgL_arg1705z00_1677,
																				BgL_arg1706z00_1678);
																		}
																		BgL_arg1697z00_1673 =
																			MAKE_YOUNG_PAIR(BgL_arg1698z00_1674,
																			BgL_arg1702z00_1675);
																	}
																	BgL_arg1692z00_1672 =
																		MAKE_YOUNG_PAIR
																		(BGl_symbol2509z00zz__expander_argsz00,
																		BgL_arg1697z00_1673);
																}
																BgL_arg1690z00_1670 =
																	MAKE_YOUNG_PAIR(BgL_arg1692z00_1672, BNIL);
															}
															BgL_arg1687z00_1668 =
																MAKE_YOUNG_PAIR(BgL_arg1689z00_1669,
																BgL_arg1690z00_1670);
														}
														return
															MAKE_YOUNG_PAIR
															(BGl_symbol2511z00zz__expander_argsz00,
															BgL_arg1687z00_1668);
													}
												}
											}
										else
											{	/* Eval/expdargs.scm 237 */
												bool_t BgL_test2757z00_3944;

												{	/* Eval/expdargs.scm 237 */
													obj_t BgL_arg1641z00_1635;

													BgL_arg1641z00_1635 = CAR(((obj_t) BgL_clausez00_13));
													BgL_test2757z00_3944 =
														BGl_listzf3zf3zz__r4_pairs_and_lists_6_3z00
														(BgL_arg1641z00_1635);
												}
												if (BgL_test2757z00_3944)
													{	/* Eval/expdargs.scm 237 */
														return
															BGl_makezd2optzd2parserz00zz__expander_argsz00
															(BgL_clausez00_13, BgL_otablez00_14);
													}
												else
													{	/* Eval/expdargs.scm 237 */
														return
															BGl_expandzd2errorzd2zz__expandz00
															(BGl_string2485z00zz__expander_argsz00,
															BGl_string2570z00zz__expander_argsz00,
															BgL_clausez00_13);
													}
											}
									}
							}
					}
				else
					{	/* Eval/expdargs.scm 237 */
						return
							BGl_expandzd2errorzd2zz__expandz00
							(BGl_string2485z00zz__expander_argsz00,
							BGl_string2570z00zz__expander_argsz00, BgL_clausez00_13);
					}
			}
		}

	}



/* bind-option! */
	obj_t BGl_bindzd2optionz12zc0zz__expander_argsz00(obj_t BgL_otablez00_15,
		obj_t BgL_oidz00_16, obj_t BgL_clausez00_17)
	{
		{	/* Eval/expdargs.scm 264 */
			{	/* Eval/expdargs.scm 265 */
				obj_t BgL_oldz00_1706;

				BgL_oldz00_1706 =
					BGl_hashtablezd2getzd2zz__hashz00(BgL_otablez00_15, BgL_oidz00_16);
				if (CBOOL(BgL_oldz00_1706))
					{	/* Eval/expdargs.scm 267 */
						obj_t BgL_list1734z00_1707;

						{	/* Eval/expdargs.scm 267 */
							obj_t BgL_arg1735z00_1708;

							{	/* Eval/expdargs.scm 267 */
								obj_t BgL_arg1739z00_1709;

								{	/* Eval/expdargs.scm 267 */
									obj_t BgL_arg1740z00_1710;

									{	/* Eval/expdargs.scm 267 */
										obj_t BgL_arg1741z00_1711;

										{	/* Eval/expdargs.scm 267 */
											obj_t BgL_arg1742z00_1712;

											{	/* Eval/expdargs.scm 267 */
												obj_t BgL_arg1743z00_1713;

												{	/* Eval/expdargs.scm 267 */
													obj_t BgL_arg1744z00_1714;

													{	/* Eval/expdargs.scm 267 */
														obj_t BgL_arg1745z00_1715;

														BgL_arg1745z00_1715 =
															MAKE_YOUNG_PAIR(BgL_clausez00_17, BNIL);
														BgL_arg1744z00_1714 =
															MAKE_YOUNG_PAIR
															(BGl_string2579z00zz__expander_argsz00,
															BgL_arg1745z00_1715);
													}
													BgL_arg1743z00_1713 =
														MAKE_YOUNG_PAIR(BCHAR(((unsigned char) 10)),
														BgL_arg1744z00_1714);
												}
												BgL_arg1742z00_1712 =
													MAKE_YOUNG_PAIR(BgL_oldz00_1706, BgL_arg1743z00_1713);
											}
											BgL_arg1741z00_1711 =
												MAKE_YOUNG_PAIR(BGl_string2579z00zz__expander_argsz00,
												BgL_arg1742z00_1712);
										}
										BgL_arg1740z00_1710 =
											MAKE_YOUNG_PAIR(BCHAR(((unsigned char) 10)),
											BgL_arg1741z00_1711);
									}
									BgL_arg1739z00_1709 =
										MAKE_YOUNG_PAIR(BGl_string2580z00zz__expander_argsz00,
										BgL_arg1740z00_1710);
								}
								BgL_arg1735z00_1708 =
									MAKE_YOUNG_PAIR(BgL_oidz00_16, BgL_arg1739z00_1709);
							}
							BgL_list1734z00_1707 =
								MAKE_YOUNG_PAIR(BGl_symbol2533z00zz__expander_argsz00,
								BgL_arg1735z00_1708);
						}
						return BGl_warningz00zz__errorz00(BgL_list1734z00_1707);
					}
				else
					{	/* Eval/expdargs.scm 266 */
						return
							BGl_hashtablezd2putz12zc0zz__hashz00(BgL_otablez00_15,
							BgL_oidz00_16, BgL_clausez00_17);
					}
			}
		}

	}



/* make-opt-parser */
	obj_t BGl_makezd2optzd2parserz00zz__expander_argsz00(obj_t BgL_clausez00_18,
		obj_t BgL_otablez00_19)
	{
		{	/* Eval/expdargs.scm 275 */
			{	/* Eval/expdargs.scm 276 */
				obj_t BgL_optz00_1716;

				BgL_optz00_1716 = CAR(BgL_clausez00_18);
				{	/* Eval/expdargs.scm 276 */
					obj_t BgL_oz00_1717;

					BgL_oz00_1717 = CAR(((obj_t) BgL_optz00_1716));
					{	/* Eval/expdargs.scm 277 */

						if (STRINGP(BgL_oz00_1717))
							{	/* Eval/expdargs.scm 279 */
								BGL_TAIL return
									BGl_makezd2simplezd2optzd2parserzd2zz__expander_argsz00
									(BgL_clausez00_18, BgL_otablez00_19);
							}
						else
							{	/* Eval/expdargs.scm 281 */
								bool_t BgL_test2760z00_3973;

								if (BGl_listzf3zf3zz__r4_pairs_and_lists_6_3z00(BgL_oz00_1717))
									{
										obj_t BgL_l1132z00_1732;

										BgL_l1132z00_1732 = BgL_oz00_1717;
									BgL_zc3z04anonymousza31756ze3z87_1733:
										if (NULLP(BgL_l1132z00_1732))
											{	/* Eval/expdargs.scm 281 */
												BgL_test2760z00_3973 = ((bool_t) 1);
											}
										else
											{	/* Eval/expdargs.scm 281 */
												bool_t BgL_test2763z00_3978;

												{	/* Eval/expdargs.scm 281 */
													obj_t BgL_tmpz00_3979;

													BgL_tmpz00_3979 = CAR(((obj_t) BgL_l1132z00_1732));
													BgL_test2763z00_3978 = STRINGP(BgL_tmpz00_3979);
												}
												if (BgL_test2763z00_3978)
													{
														obj_t BgL_l1132z00_3983;

														BgL_l1132z00_3983 =
															CDR(((obj_t) BgL_l1132z00_1732));
														BgL_l1132z00_1732 = BgL_l1132z00_3983;
														goto BgL_zc3z04anonymousza31756ze3z87_1733;
													}
												else
													{	/* Eval/expdargs.scm 281 */
														BgL_test2760z00_3973 = ((bool_t) 0);
													}
											}
									}
								else
									{	/* Eval/expdargs.scm 281 */
										BgL_test2760z00_3973 = ((bool_t) 0);
									}
								if (BgL_test2760z00_3973)
									{	/* Eval/expdargs.scm 281 */
										BGL_TAIL return
											BGl_makezd2multiplezd2optzd2parserzd2zz__expander_argsz00
											(BgL_clausez00_18, BgL_otablez00_19);
									}
								else
									{	/* Eval/expdargs.scm 281 */
										return
											BGl_expandzd2errorzd2zz__expandz00
											(BGl_string2485z00zz__expander_argsz00,
											BGl_string2506z00zz__expander_argsz00, BgL_clausez00_18);
									}
							}
					}
				}
			}
		}

	}



/* make-simple-opt-parser */
	obj_t BGl_makezd2simplezd2optzd2parserzd2zz__expander_argsz00(obj_t
		BgL_clausez00_20, obj_t BgL_otablez00_21)
	{
		{	/* Eval/expdargs.scm 289 */
			{	/* Eval/expdargs.scm 290 */
				obj_t BgL_optz00_1740;

				BgL_optz00_1740 = CAR(BgL_clausez00_20);
				{	/* Eval/expdargs.scm 290 */
					obj_t BgL_oz00_1741;

					BgL_oz00_1741 = CAR(((obj_t) BgL_optz00_1740));
					{	/* Eval/expdargs.scm 291 */
						obj_t BgL_argsz00_1742;

						BgL_argsz00_1742 =
							BGl_fetchzd2optionzd2argumentsz00zz__expander_argsz00
							(BgL_optz00_1740);
						{	/* Eval/expdargs.scm 292 */
							obj_t BgL_exprza2za2_1743;

							BgL_exprza2za2_1743 = CDR(BgL_clausez00_20);
							{	/* Eval/expdargs.scm 293 */

								{	/* Eval/expdargs.scm 294 */
									obj_t BgL_oidz00_1744;

									BgL_oidz00_1744 =
										BGl_fetchzd2optionzd2embedzd2argumentzd2zz__expander_argsz00
										(BgL_oz00_1741);
									{	/* Eval/expdargs.scm 295 */
										obj_t BgL_aidz00_1745;

										{	/* Eval/expdargs.scm 297 */
											obj_t BgL_tmpz00_2821;

											{	/* Eval/expdargs.scm 297 */
												int BgL_tmpz00_3994;

												BgL_tmpz00_3994 = (int) (1L);
												BgL_tmpz00_2821 = BGL_MVALUES_VAL(BgL_tmpz00_3994);
											}
											{	/* Eval/expdargs.scm 297 */
												int BgL_tmpz00_3997;

												BgL_tmpz00_3997 = (int) (1L);
												BGL_MVALUES_VAL_SET(BgL_tmpz00_3997, BUNSPEC);
											}
											BgL_aidz00_1745 = BgL_tmpz00_2821;
										}
										{	/* Eval/expdargs.scm 297 */
											bool_t BgL_test2764z00_4000;

											if (CBOOL(BgL_aidz00_1745))
												{	/* Eval/expdargs.scm 297 */
													BgL_test2764z00_4000 = PAIRP(BgL_argsz00_1742);
												}
											else
												{	/* Eval/expdargs.scm 297 */
													BgL_test2764z00_4000 = ((bool_t) 0);
												}
											if (BgL_test2764z00_4000)
												{	/* Eval/expdargs.scm 297 */
													return
														BGl_expandzd2errorzd2zz__expandz00
														(BGl_string2485z00zz__expander_argsz00,
														BGl_string2569z00zz__expander_argsz00,
														BgL_clausez00_20);
												}
											else
												{	/* Eval/expdargs.scm 297 */
													if (STRINGP(BgL_aidz00_1745))
														{	/* Eval/expdargs.scm 299 */
															BGl_bindzd2optionz12zc0zz__expander_argsz00
																(BgL_otablez00_21, BgL_oidz00_1744,
																BgL_clausez00_20);
															{	/* Eval/expdargs.scm 301 */
																obj_t BgL_az00_1748;
																obj_t BgL_vz00_1749;
																long BgL_oidlz00_1750;

																{	/* Eval/expdargs.scm 301 */

																	{	/* Eval/expdargs.scm 301 */

																		BgL_az00_1748 =
																			BGl_gensymz00zz__r4_symbols_6_4z00
																			(BFALSE);
																}}
																{	/* Eval/expdargs.scm 302 */

																	{	/* Eval/expdargs.scm 302 */

																		BgL_vz00_1749 =
																			BGl_gensymz00zz__r4_symbols_6_4z00
																			(BFALSE);
																}}
																BgL_oidlz00_1750 =
																	STRING_LENGTH(((obj_t) BgL_oidz00_1744));
																{	/* Eval/expdargs.scm 304 */
																	obj_t BgL_arg1761z00_1751;

																	{	/* Eval/expdargs.scm 304 */
																		obj_t BgL_arg1762z00_1752;
																		obj_t BgL_arg1763z00_1753;

																		{	/* Eval/expdargs.scm 304 */
																			obj_t BgL_arg1764z00_1754;

																			BgL_arg1764z00_1754 =
																				MAKE_YOUNG_PAIR(BgL_vz00_1749, BNIL);
																			BgL_arg1762z00_1752 =
																				MAKE_YOUNG_PAIR(BgL_az00_1748,
																				BgL_arg1764z00_1754);
																		}
																		{	/* Eval/expdargs.scm 305 */
																			obj_t BgL_arg1765z00_1755;

																			{	/* Eval/expdargs.scm 305 */
																				obj_t BgL_arg1766z00_1756;

																				{	/* Eval/expdargs.scm 305 */
																					obj_t BgL_arg1767z00_1757;
																					obj_t BgL_arg1768z00_1758;

																					{	/* Eval/expdargs.scm 305 */
																						obj_t BgL_arg1769z00_1759;

																						{	/* Eval/expdargs.scm 305 */
																							obj_t BgL_arg1770z00_1760;
																							obj_t BgL_arg1771z00_1761;

																							{	/* Eval/expdargs.scm 305 */
																								obj_t BgL_arg1772z00_1762;

																								BgL_arg1772z00_1762 =
																									MAKE_YOUNG_PAIR(BgL_az00_1748,
																									BNIL);
																								BgL_arg1770z00_1760 =
																									MAKE_YOUNG_PAIR
																									(BGl_symbol2575z00zz__expander_argsz00,
																									BgL_arg1772z00_1762);
																							}
																							{	/* Eval/expdargs.scm 306 */
																								obj_t BgL_arg1773z00_1763;

																								{	/* Eval/expdargs.scm 306 */
																									obj_t BgL_arg1775z00_1764;

																									{	/* Eval/expdargs.scm 306 */
																										obj_t BgL_arg1776z00_1765;

																										{	/* Eval/expdargs.scm 306 */
																											obj_t BgL_arg1777z00_1766;
																											obj_t BgL_arg1778z00_1767;

																											{	/* Eval/expdargs.scm 306 */
																												obj_t
																													BgL_arg1779z00_1768;
																												BgL_arg1779z00_1768 =
																													MAKE_YOUNG_PAIR
																													(BgL_az00_1748, BNIL);
																												BgL_arg1777z00_1766 =
																													MAKE_YOUNG_PAIR
																													(BGl_symbol2503z00zz__expander_argsz00,
																													BgL_arg1779z00_1768);
																											}
																											BgL_arg1778z00_1767 =
																												MAKE_YOUNG_PAIR(BINT
																												(BgL_oidlz00_1750),
																												BNIL);
																											BgL_arg1776z00_1765 =
																												MAKE_YOUNG_PAIR
																												(BgL_arg1777z00_1766,
																												BgL_arg1778z00_1767);
																										}
																										BgL_arg1775z00_1764 =
																											MAKE_YOUNG_PAIR
																											(BgL_oidz00_1744,
																											BgL_arg1776z00_1765);
																									}
																									BgL_arg1773z00_1763 =
																										MAKE_YOUNG_PAIR
																										(BGl_symbol2581z00zz__expander_argsz00,
																										BgL_arg1775z00_1764);
																								}
																								BgL_arg1771z00_1761 =
																									MAKE_YOUNG_PAIR
																									(BgL_arg1773z00_1763, BNIL);
																							}
																							BgL_arg1769z00_1759 =
																								MAKE_YOUNG_PAIR
																								(BgL_arg1770z00_1760,
																								BgL_arg1771z00_1761);
																						}
																						BgL_arg1767z00_1757 =
																							MAKE_YOUNG_PAIR
																							(BGl_symbol2583z00zz__expander_argsz00,
																							BgL_arg1769z00_1759);
																					}
																					{	/* Eval/expdargs.scm 307 */
																						obj_t BgL_arg1781z00_1769;
																						obj_t BgL_arg1782z00_1770;

																						{	/* Eval/expdargs.scm 307 */
																							obj_t BgL_arg1783z00_1771;

																							{	/* Eval/expdargs.scm 307 */
																								obj_t BgL_arg1784z00_1772;
																								obj_t BgL_arg1785z00_1773;

																								{	/* Eval/expdargs.scm 307 */
																									obj_t BgL_arg1786z00_1774;
																									obj_t BgL_arg1787z00_1775;

																									{	/* Eval/expdargs.scm 307 */
																										obj_t BgL_arg1788z00_1776;
																										obj_t BgL_arg1789z00_1777;

																										BgL_arg1788z00_1776 =
																											bstring_to_symbol
																											(BgL_aidz00_1745);
																										{	/* Eval/expdargs.scm 308 */
																											obj_t BgL_arg1790z00_1778;

																											{	/* Eval/expdargs.scm 308 */
																												obj_t
																													BgL_arg1791z00_1779;
																												{	/* Eval/expdargs.scm 308 */
																													obj_t
																														BgL_arg1792z00_1780;
																													obj_t
																														BgL_arg1793z00_1781;
																													{	/* Eval/expdargs.scm 308 */
																														obj_t
																															BgL_arg1794z00_1782;
																														BgL_arg1794z00_1782
																															=
																															MAKE_YOUNG_PAIR
																															(BgL_az00_1748,
																															BNIL);
																														BgL_arg1792z00_1780
																															=
																															MAKE_YOUNG_PAIR
																															(BGl_symbol2503z00zz__expander_argsz00,
																															BgL_arg1794z00_1782);
																													}
																													{	/* Eval/expdargs.scm 310 */
																														obj_t
																															BgL_arg1795z00_1783;
																														{	/* Eval/expdargs.scm 310 */
																															obj_t
																																BgL_arg1796z00_1784;
																															{	/* Eval/expdargs.scm 310 */
																																obj_t
																																	BgL_arg1798z00_1785;
																																{	/* Eval/expdargs.scm 310 */
																																	obj_t
																																		BgL_arg1799z00_1786;
																																	{	/* Eval/expdargs.scm 310 */
																																		obj_t
																																			BgL_arg1800z00_1787;
																																		BgL_arg1800z00_1787
																																			=
																																			MAKE_YOUNG_PAIR
																																			(BgL_az00_1748,
																																			BNIL);
																																		BgL_arg1799z00_1786
																																			=
																																			MAKE_YOUNG_PAIR
																																			(BGl_symbol2503z00zz__expander_argsz00,
																																			BgL_arg1800z00_1787);
																																	}
																																	BgL_arg1798z00_1785
																																		=
																																		MAKE_YOUNG_PAIR
																																		(BgL_arg1799z00_1786,
																																		BNIL);
																																}
																																BgL_arg1796z00_1784
																																	=
																																	MAKE_YOUNG_PAIR
																																	(BGl_symbol2585z00zz__expander_argsz00,
																																	BgL_arg1798z00_1785);
																															}
																															BgL_arg1795z00_1783
																																=
																																MAKE_YOUNG_PAIR
																																(BgL_arg1796z00_1784,
																																BNIL);
																														}
																														BgL_arg1793z00_1781
																															=
																															MAKE_YOUNG_PAIR
																															(BINT
																															(BgL_oidlz00_1750),
																															BgL_arg1795z00_1783);
																													}
																													BgL_arg1791z00_1779 =
																														MAKE_YOUNG_PAIR
																														(BgL_arg1792z00_1780,
																														BgL_arg1793z00_1781);
																												}
																												BgL_arg1790z00_1778 =
																													MAKE_YOUNG_PAIR
																													(BGl_symbol2587z00zz__expander_argsz00,
																													BgL_arg1791z00_1779);
																											}
																											BgL_arg1789z00_1777 =
																												MAKE_YOUNG_PAIR
																												(BgL_arg1790z00_1778,
																												BNIL);
																										}
																										BgL_arg1786z00_1774 =
																											MAKE_YOUNG_PAIR
																											(BgL_arg1788z00_1776,
																											BgL_arg1789z00_1777);
																									}
																									{	/* Eval/expdargs.scm 311 */
																										obj_t BgL_arg1801z00_1788;
																										obj_t BgL_arg1803z00_1789;

																										{	/* Eval/expdargs.scm 311 */
																											obj_t BgL_arg1804z00_1790;

																											{	/* Eval/expdargs.scm 311 */
																												obj_t
																													BgL_arg1805z00_1791;
																												{	/* Eval/expdargs.scm 311 */
																													obj_t
																														BgL_arg1807z00_1792;
																													BgL_arg1807z00_1792 =
																														MAKE_YOUNG_PAIR
																														(BgL_az00_1748,
																														BNIL);
																													BgL_arg1805z00_1791 =
																														MAKE_YOUNG_PAIR
																														(BGl_symbol2547z00zz__expander_argsz00,
																														BgL_arg1807z00_1792);
																												}
																												BgL_arg1804z00_1790 =
																													MAKE_YOUNG_PAIR
																													(BgL_arg1805z00_1791,
																													BNIL);
																											}
																											BgL_arg1801z00_1788 =
																												MAKE_YOUNG_PAIR
																												(BGl_symbol2589z00zz__expander_argsz00,
																												BgL_arg1804z00_1790);
																										}
																										{	/* Eval/expdargs.scm 312 */
																											obj_t BgL_arg1808z00_1793;

																											{	/* Eval/expdargs.scm 312 */
																												obj_t
																													BgL_arg1809z00_1794;
																												{	/* Eval/expdargs.scm 312 */
																													obj_t
																														BgL_arg1811z00_1795;
																													BgL_arg1811z00_1795 =
																														MAKE_YOUNG_PAIR
																														(BGl_symbol2573z00zz__expander_argsz00,
																														BgL_exprza2za2_1743);
																													BgL_arg1809z00_1794 =
																														MAKE_YOUNG_PAIR
																														(BgL_arg1811z00_1795,
																														BNIL);
																												}
																												BgL_arg1808z00_1793 =
																													MAKE_YOUNG_PAIR
																													(BGl_symbol2535z00zz__expander_argsz00,
																													BgL_arg1809z00_1794);
																											}
																											BgL_arg1803z00_1789 =
																												MAKE_YOUNG_PAIR
																												(BgL_arg1808z00_1793,
																												BNIL);
																										}
																										BgL_arg1787z00_1775 =
																											MAKE_YOUNG_PAIR
																											(BgL_arg1801z00_1788,
																											BgL_arg1803z00_1789);
																									}
																									BgL_arg1784z00_1772 =
																										MAKE_YOUNG_PAIR
																										(BgL_arg1786z00_1774,
																										BgL_arg1787z00_1775);
																								}
																								{	/* Eval/expdargs.scm 313 */
																									obj_t BgL_arg1812z00_1796;

																									{	/* Eval/expdargs.scm 313 */
																										obj_t BgL_arg1813z00_1797;

																										{	/* Eval/expdargs.scm 313 */
																											obj_t BgL_arg1814z00_1798;
																											obj_t BgL_arg1815z00_1799;

																											{	/* Eval/expdargs.scm 313 */
																												obj_t
																													BgL_arg1816z00_1800;
																												BgL_arg1816z00_1800 =
																													MAKE_YOUNG_PAIR
																													(BGl_symbol2541z00zz__expander_argsz00,
																													BNIL);
																												BgL_arg1814z00_1798 =
																													MAKE_YOUNG_PAIR
																													(BGl_symbol2499z00zz__expander_argsz00,
																													BgL_arg1816z00_1800);
																											}
																											{	/* Eval/expdargs.scm 313 */
																												obj_t
																													BgL_arg1817z00_1801;
																												BgL_arg1817z00_1801 =
																													MAKE_YOUNG_PAIR
																													(BGl_symbol2535z00zz__expander_argsz00,
																													BNIL);
																												BgL_arg1815z00_1799 =
																													MAKE_YOUNG_PAIR
																													(BGl_symbol2589z00zz__expander_argsz00,
																													BgL_arg1817z00_1801);
																											}
																											BgL_arg1813z00_1797 =
																												MAKE_YOUNG_PAIR
																												(BgL_arg1814z00_1798,
																												BgL_arg1815z00_1799);
																										}
																										BgL_arg1812z00_1796 =
																											MAKE_YOUNG_PAIR
																											(BGl_symbol2501z00zz__expander_argsz00,
																											BgL_arg1813z00_1797);
																									}
																									BgL_arg1785z00_1773 =
																										MAKE_YOUNG_PAIR
																										(BgL_arg1812z00_1796, BNIL);
																								}
																								BgL_arg1783z00_1771 =
																									MAKE_YOUNG_PAIR
																									(BgL_arg1784z00_1772,
																									BgL_arg1785z00_1773);
																							}
																							BgL_arg1781z00_1769 =
																								MAKE_YOUNG_PAIR
																								(BGl_symbol2557z00zz__expander_argsz00,
																								BgL_arg1783z00_1771);
																						}
																						{	/* Eval/expdargs.scm 314 */
																							obj_t BgL_arg1818z00_1802;

																							{	/* Eval/expdargs.scm 314 */
																								obj_t BgL_arg1819z00_1803;

																								{	/* Eval/expdargs.scm 314 */
																									obj_t BgL_arg1820z00_1804;
																									obj_t BgL_arg1821z00_1805;

																									{	/* Eval/expdargs.scm 314 */
																										obj_t BgL_arg1822z00_1806;

																										BgL_arg1822z00_1806 =
																											MAKE_YOUNG_PAIR
																											(BGl_symbol2545z00zz__expander_argsz00,
																											BNIL);
																										BgL_arg1820z00_1804 =
																											MAKE_YOUNG_PAIR
																											(BGl_symbol2499z00zz__expander_argsz00,
																											BgL_arg1822z00_1806);
																									}
																									{	/* Eval/expdargs.scm 314 */
																										obj_t BgL_arg1824z00_1807;

																										BgL_arg1824z00_1807 =
																											MAKE_YOUNG_PAIR
																											(BgL_vz00_1749, BNIL);
																										BgL_arg1821z00_1805 =
																											MAKE_YOUNG_PAIR
																											(BgL_az00_1748,
																											BgL_arg1824z00_1807);
																									}
																									BgL_arg1819z00_1803 =
																										MAKE_YOUNG_PAIR
																										(BgL_arg1820z00_1804,
																										BgL_arg1821z00_1805);
																								}
																								BgL_arg1818z00_1802 =
																									MAKE_YOUNG_PAIR
																									(BGl_symbol2501z00zz__expander_argsz00,
																									BgL_arg1819z00_1803);
																							}
																							BgL_arg1782z00_1770 =
																								MAKE_YOUNG_PAIR
																								(BgL_arg1818z00_1802, BNIL);
																						}
																						BgL_arg1768z00_1758 =
																							MAKE_YOUNG_PAIR
																							(BgL_arg1781z00_1769,
																							BgL_arg1782z00_1770);
																					}
																					BgL_arg1766z00_1756 =
																						MAKE_YOUNG_PAIR(BgL_arg1767z00_1757,
																						BgL_arg1768z00_1758);
																				}
																				BgL_arg1765z00_1755 =
																					MAKE_YOUNG_PAIR
																					(BGl_symbol2509z00zz__expander_argsz00,
																					BgL_arg1766z00_1756);
																			}
																			BgL_arg1763z00_1753 =
																				MAKE_YOUNG_PAIR(BgL_arg1765z00_1755,
																				BNIL);
																		}
																		BgL_arg1761z00_1751 =
																			MAKE_YOUNG_PAIR(BgL_arg1762z00_1752,
																			BgL_arg1763z00_1753);
																	}
																	return
																		MAKE_YOUNG_PAIR
																		(BGl_symbol2511z00zz__expander_argsz00,
																		BgL_arg1761z00_1751);
																}
															}
														}
													else
														{	/* Eval/expdargs.scm 299 */
															BGl_bindzd2optionz12zc0zz__expander_argsz00
																(BgL_otablez00_21, BgL_oidz00_1744,
																BgL_clausez00_20);
															{	/* Eval/expdargs.scm 317 */
																obj_t BgL_az00_1810;
																obj_t BgL_vz00_1811;
																obj_t BgL_naz00_1812;

																{	/* Eval/expdargs.scm 317 */

																	{	/* Eval/expdargs.scm 317 */

																		BgL_az00_1810 =
																			BGl_gensymz00zz__r4_symbols_6_4z00
																			(BFALSE);
																	}
																}
																{	/* Eval/expdargs.scm 318 */

																	{	/* Eval/expdargs.scm 318 */

																		BgL_vz00_1811 =
																			BGl_gensymz00zz__r4_symbols_6_4z00
																			(BFALSE);
																	}
																}
																BgL_naz00_1812 =
																	BGl_symbol2589z00zz__expander_argsz00;
																{	/* Eval/expdargs.scm 320 */
																	obj_t BgL_arg1825z00_1813;

																	{	/* Eval/expdargs.scm 320 */
																		obj_t BgL_arg1827z00_1814;
																		obj_t BgL_arg1828z00_1815;

																		{	/* Eval/expdargs.scm 320 */
																			obj_t BgL_arg1829z00_1816;

																			BgL_arg1829z00_1816 =
																				MAKE_YOUNG_PAIR(BgL_vz00_1811, BNIL);
																			BgL_arg1827z00_1814 =
																				MAKE_YOUNG_PAIR(BgL_az00_1810,
																				BgL_arg1829z00_1816);
																		}
																		{	/* Eval/expdargs.scm 321 */
																			obj_t BgL_arg1830z00_1817;

																			{	/* Eval/expdargs.scm 321 */
																				obj_t BgL_arg1832z00_1818;

																				{	/* Eval/expdargs.scm 321 */
																					obj_t BgL_arg1833z00_1819;
																					obj_t BgL_arg1834z00_1820;

																					{	/* Eval/expdargs.scm 321 */
																						obj_t BgL_arg1835z00_1821;

																						{	/* Eval/expdargs.scm 321 */
																							obj_t BgL_arg1836z00_1822;
																							obj_t BgL_arg1837z00_1823;

																							{	/* Eval/expdargs.scm 321 */
																								obj_t BgL_arg1839z00_1824;

																								BgL_arg1839z00_1824 =
																									MAKE_YOUNG_PAIR(BgL_az00_1810,
																									BNIL);
																								BgL_arg1836z00_1822 =
																									MAKE_YOUNG_PAIR
																									(BGl_symbol2575z00zz__expander_argsz00,
																									BgL_arg1839z00_1824);
																							}
																							{	/* Eval/expdargs.scm 321 */
																								obj_t BgL_arg1840z00_1825;

																								{	/* Eval/expdargs.scm 321 */
																									obj_t BgL_arg1841z00_1826;

																									{	/* Eval/expdargs.scm 321 */
																										obj_t BgL_arg1842z00_1827;

																										{	/* Eval/expdargs.scm 321 */
																											obj_t BgL_arg1845z00_1828;

																											{	/* Eval/expdargs.scm 321 */
																												obj_t
																													BgL_arg1846z00_1829;
																												BgL_arg1846z00_1829 =
																													MAKE_YOUNG_PAIR
																													(BgL_az00_1810, BNIL);
																												BgL_arg1845z00_1828 =
																													MAKE_YOUNG_PAIR
																													(BGl_symbol2503z00zz__expander_argsz00,
																													BgL_arg1846z00_1829);
																											}
																											BgL_arg1842z00_1827 =
																												MAKE_YOUNG_PAIR
																												(BgL_arg1845z00_1828,
																												BNIL);
																										}
																										BgL_arg1841z00_1826 =
																											MAKE_YOUNG_PAIR
																											(BgL_oidz00_1744,
																											BgL_arg1842z00_1827);
																									}
																									BgL_arg1840z00_1825 =
																										MAKE_YOUNG_PAIR
																										(BGl_symbol2591z00zz__expander_argsz00,
																										BgL_arg1841z00_1826);
																								}
																								BgL_arg1837z00_1823 =
																									MAKE_YOUNG_PAIR
																									(BgL_arg1840z00_1825, BNIL);
																							}
																							BgL_arg1835z00_1821 =
																								MAKE_YOUNG_PAIR
																								(BgL_arg1836z00_1822,
																								BgL_arg1837z00_1823);
																						}
																						BgL_arg1833z00_1819 =
																							MAKE_YOUNG_PAIR
																							(BGl_symbol2583z00zz__expander_argsz00,
																							BgL_arg1835z00_1821);
																					}
																					{	/* Eval/expdargs.scm 322 */
																						obj_t BgL_arg1847z00_1830;
																						obj_t BgL_arg1848z00_1831;

																						{	/* Eval/expdargs.scm 322 */
																							obj_t BgL_arg1849z00_1832;

																							{	/* Eval/expdargs.scm 322 */
																								obj_t BgL_arg1851z00_1833;
																								obj_t BgL_arg1852z00_1834;

																								{	/* Eval/expdargs.scm 322 */
																									obj_t BgL_arg1853z00_1835;
																									obj_t BgL_arg1854z00_1836;

																									BgL_arg1853z00_1835 =
																										BGl_bindzd2optionzd2argumentsz00zz__expander_argsz00
																										(BgL_argsz00_1742,
																										BgL_az00_1810,
																										BgL_naz00_1812,
																										BgL_clausez00_20);
																									{	/* Eval/expdargs.scm 323 */
																										obj_t BgL_arg1856z00_1837;

																										{	/* Eval/expdargs.scm 323 */
																											obj_t BgL_arg1857z00_1838;

																											{	/* Eval/expdargs.scm 323 */
																												obj_t
																													BgL_arg1858z00_1839;
																												BgL_arg1858z00_1839 =
																													MAKE_YOUNG_PAIR
																													(BGl_symbol2573z00zz__expander_argsz00,
																													BgL_exprza2za2_1743);
																												BgL_arg1857z00_1838 =
																													MAKE_YOUNG_PAIR
																													(BgL_arg1858z00_1839,
																													BNIL);
																											}
																											BgL_arg1856z00_1837 =
																												MAKE_YOUNG_PAIR
																												(BGl_symbol2535z00zz__expander_argsz00,
																												BgL_arg1857z00_1838);
																										}
																										BgL_arg1854z00_1836 =
																											MAKE_YOUNG_PAIR
																											(BgL_arg1856z00_1837,
																											BNIL);
																									}
																									BgL_arg1851z00_1833 =
																										BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00
																										(BgL_arg1853z00_1835,
																										BgL_arg1854z00_1836);
																								}
																								{	/* Eval/expdargs.scm 324 */
																									obj_t BgL_arg1859z00_1840;

																									{	/* Eval/expdargs.scm 324 */
																										obj_t BgL_arg1860z00_1841;

																										{	/* Eval/expdargs.scm 324 */
																											obj_t BgL_arg1861z00_1842;
																											obj_t BgL_arg1862z00_1843;

																											{	/* Eval/expdargs.scm 324 */
																												obj_t
																													BgL_arg1863z00_1844;
																												BgL_arg1863z00_1844 =
																													MAKE_YOUNG_PAIR
																													(BGl_symbol2541z00zz__expander_argsz00,
																													BNIL);
																												BgL_arg1861z00_1842 =
																													MAKE_YOUNG_PAIR
																													(BGl_symbol2499z00zz__expander_argsz00,
																													BgL_arg1863z00_1844);
																											}
																											{	/* Eval/expdargs.scm 324 */
																												obj_t
																													BgL_arg1864z00_1845;
																												BgL_arg1864z00_1845 =
																													MAKE_YOUNG_PAIR
																													(BGl_symbol2535z00zz__expander_argsz00,
																													BNIL);
																												BgL_arg1862z00_1843 =
																													MAKE_YOUNG_PAIR
																													(BgL_naz00_1812,
																													BgL_arg1864z00_1845);
																											}
																											BgL_arg1860z00_1841 =
																												MAKE_YOUNG_PAIR
																												(BgL_arg1861z00_1842,
																												BgL_arg1862z00_1843);
																										}
																										BgL_arg1859z00_1840 =
																											MAKE_YOUNG_PAIR
																											(BGl_symbol2501z00zz__expander_argsz00,
																											BgL_arg1860z00_1841);
																									}
																									BgL_arg1852z00_1834 =
																										MAKE_YOUNG_PAIR
																										(BgL_arg1859z00_1840, BNIL);
																								}
																								BgL_arg1849z00_1832 =
																									MAKE_YOUNG_PAIR
																									(BgL_arg1851z00_1833,
																									BgL_arg1852z00_1834);
																							}
																							BgL_arg1847z00_1830 =
																								MAKE_YOUNG_PAIR
																								(BGl_symbol2557z00zz__expander_argsz00,
																								BgL_arg1849z00_1832);
																						}
																						{	/* Eval/expdargs.scm 325 */
																							obj_t BgL_arg1865z00_1846;

																							{	/* Eval/expdargs.scm 325 */
																								obj_t BgL_arg1866z00_1847;

																								{	/* Eval/expdargs.scm 325 */
																									obj_t BgL_arg1867z00_1848;
																									obj_t BgL_arg1868z00_1849;

																									{	/* Eval/expdargs.scm 325 */
																										obj_t BgL_arg1869z00_1850;

																										BgL_arg1869z00_1850 =
																											MAKE_YOUNG_PAIR
																											(BGl_symbol2545z00zz__expander_argsz00,
																											BNIL);
																										BgL_arg1867z00_1848 =
																											MAKE_YOUNG_PAIR
																											(BGl_symbol2499z00zz__expander_argsz00,
																											BgL_arg1869z00_1850);
																									}
																									{	/* Eval/expdargs.scm 325 */
																										obj_t BgL_arg1870z00_1851;

																										BgL_arg1870z00_1851 =
																											MAKE_YOUNG_PAIR
																											(BgL_vz00_1811, BNIL);
																										BgL_arg1868z00_1849 =
																											MAKE_YOUNG_PAIR
																											(BgL_az00_1810,
																											BgL_arg1870z00_1851);
																									}
																									BgL_arg1866z00_1847 =
																										MAKE_YOUNG_PAIR
																										(BgL_arg1867z00_1848,
																										BgL_arg1868z00_1849);
																								}
																								BgL_arg1865z00_1846 =
																									MAKE_YOUNG_PAIR
																									(BGl_symbol2501z00zz__expander_argsz00,
																									BgL_arg1866z00_1847);
																							}
																							BgL_arg1848z00_1831 =
																								MAKE_YOUNG_PAIR
																								(BgL_arg1865z00_1846, BNIL);
																						}
																						BgL_arg1834z00_1820 =
																							MAKE_YOUNG_PAIR
																							(BgL_arg1847z00_1830,
																							BgL_arg1848z00_1831);
																					}
																					BgL_arg1832z00_1818 =
																						MAKE_YOUNG_PAIR(BgL_arg1833z00_1819,
																						BgL_arg1834z00_1820);
																				}
																				BgL_arg1830z00_1817 =
																					MAKE_YOUNG_PAIR
																					(BGl_symbol2509z00zz__expander_argsz00,
																					BgL_arg1832z00_1818);
																			}
																			BgL_arg1828z00_1815 =
																				MAKE_YOUNG_PAIR(BgL_arg1830z00_1817,
																				BNIL);
																		}
																		BgL_arg1825z00_1813 =
																			MAKE_YOUNG_PAIR(BgL_arg1827z00_1814,
																			BgL_arg1828z00_1815);
																	}
																	return
																		MAKE_YOUNG_PAIR
																		(BGl_symbol2511z00zz__expander_argsz00,
																		BgL_arg1825z00_1813);
																}
															}
														}
												}
										}
									}
								}
							}
						}
					}
				}
			}
		}

	}



/* make-multiple-opt-parser */
	obj_t BGl_makezd2multiplezd2optzd2parserzd2zz__expander_argsz00(obj_t
		BgL_clausez00_22, obj_t BgL_otablez00_23)
	{
		{	/* Eval/expdargs.scm 330 */
			{	/* Eval/expdargs.scm 331 */
				obj_t BgL_optz00_1854;

				BgL_optz00_1854 = CAR(BgL_clausez00_22);
				{	/* Eval/expdargs.scm 331 */
					obj_t BgL_ozb2zb2_1855;

					BgL_ozb2zb2_1855 = CAR(((obj_t) BgL_optz00_1854));
					{	/* Eval/expdargs.scm 332 */
						obj_t BgL_argsz00_1856;

						BgL_argsz00_1856 =
							BGl_fetchzd2optionzd2argumentsz00zz__expander_argsz00
							(BgL_optz00_1854);
						{	/* Eval/expdargs.scm 333 */
							obj_t BgL_exprza2za2_1857;

							BgL_exprza2za2_1857 = CDR(BgL_clausez00_22);
							{	/* Eval/expdargs.scm 334 */

								{	/* Eval/expdargs.scm 335 */
									obj_t BgL_oidzb2zb2_1858;

									{
										obj_t BgL_ozb2zb2_2052;
										obj_t BgL_oidzb2zb2_2053;
										obj_t BgL_aidzb2zb2_2054;

										BgL_ozb2zb2_2052 = BgL_ozb2zb2_1855;
										BgL_oidzb2zb2_2053 = BNIL;
										BgL_aidzb2zb2_2054 = BNIL;
									BgL_zc3z04anonymousza32035ze3z87_2055:
										if (NULLP(BgL_ozb2zb2_2052))
											{	/* Eval/expdargs.scm 340 */
												obj_t BgL_val0_1135z00_2057;
												obj_t BgL_val1_1136z00_2058;

												BgL_val0_1135z00_2057 =
													bgl_reverse_bang(BgL_oidzb2zb2_2053);
												BgL_val1_1136z00_2058 =
													bgl_reverse_bang(BgL_aidzb2zb2_2054);
												{	/* Eval/expdargs.scm 340 */
													int BgL_tmpz00_4124;

													BgL_tmpz00_4124 = (int) (2L);
													BGL_MVALUES_NUMBER_SET(BgL_tmpz00_4124);
												}
												{	/* Eval/expdargs.scm 340 */
													int BgL_tmpz00_4127;

													BgL_tmpz00_4127 = (int) (1L);
													BGL_MVALUES_VAL_SET(BgL_tmpz00_4127,
														BgL_val1_1136z00_2058);
												}
												BgL_oidzb2zb2_1858 = BgL_val0_1135z00_2057;
											}
										else
											{	/* Eval/expdargs.scm 341 */
												obj_t BgL_oidz00_2059;

												{	/* Eval/expdargs.scm 342 */
													obj_t BgL_arg2041z00_2064;

													BgL_arg2041z00_2064 = CAR(((obj_t) BgL_ozb2zb2_2052));
													BgL_oidz00_2059 =
														BGl_fetchzd2optionzd2embedzd2argumentzd2zz__expander_argsz00
														(BgL_arg2041z00_2064);
												}
												{	/* Eval/expdargs.scm 342 */
													obj_t BgL_aidz00_2060;

													{	/* Eval/expdargs.scm 343 */
														obj_t BgL_tmpz00_2828;

														{	/* Eval/expdargs.scm 343 */
															int BgL_tmpz00_4133;

															BgL_tmpz00_4133 = (int) (1L);
															BgL_tmpz00_2828 =
																BGL_MVALUES_VAL(BgL_tmpz00_4133);
														}
														{	/* Eval/expdargs.scm 343 */
															int BgL_tmpz00_4136;

															BgL_tmpz00_4136 = (int) (1L);
															BGL_MVALUES_VAL_SET(BgL_tmpz00_4136, BUNSPEC);
														}
														BgL_aidz00_2060 = BgL_tmpz00_2828;
													}
													{	/* Eval/expdargs.scm 343 */
														obj_t BgL_arg2037z00_2061;
														obj_t BgL_arg2038z00_2062;
														obj_t BgL_arg2039z00_2063;

														BgL_arg2037z00_2061 =
															CDR(((obj_t) BgL_ozb2zb2_2052));
														BgL_arg2038z00_2062 =
															MAKE_YOUNG_PAIR(BgL_oidz00_2059,
															BgL_oidzb2zb2_2053);
														BgL_arg2039z00_2063 =
															MAKE_YOUNG_PAIR(BgL_aidz00_2060,
															BgL_aidzb2zb2_2054);
														{
															obj_t BgL_aidzb2zb2_4145;
															obj_t BgL_oidzb2zb2_4144;
															obj_t BgL_ozb2zb2_4143;

															BgL_ozb2zb2_4143 = BgL_arg2037z00_2061;
															BgL_oidzb2zb2_4144 = BgL_arg2038z00_2062;
															BgL_aidzb2zb2_4145 = BgL_arg2039z00_2063;
															BgL_aidzb2zb2_2054 = BgL_aidzb2zb2_4145;
															BgL_oidzb2zb2_2053 = BgL_oidzb2zb2_4144;
															BgL_ozb2zb2_2052 = BgL_ozb2zb2_4143;
															goto BgL_zc3z04anonymousza32035ze3z87_2055;
														}
													}
												}
											}
									}
									{	/* Eval/expdargs.scm 336 */
										obj_t BgL_aidzb2zb2_1859;

										{	/* Eval/expdargs.scm 345 */
											obj_t BgL_tmpz00_2830;

											{	/* Eval/expdargs.scm 345 */
												int BgL_tmpz00_4146;

												BgL_tmpz00_4146 = (int) (1L);
												BgL_tmpz00_2830 = BGL_MVALUES_VAL(BgL_tmpz00_4146);
											}
											{	/* Eval/expdargs.scm 345 */
												int BgL_tmpz00_4149;

												BgL_tmpz00_4149 = (int) (1L);
												BGL_MVALUES_VAL_SET(BgL_tmpz00_4149, BUNSPEC);
											}
											BgL_aidzb2zb2_1859 = BgL_tmpz00_2830;
										}
										{	/* Eval/expdargs.scm 345 */
											bool_t BgL_test2768z00_4152;

											if (PAIRP(BgL_aidzb2zb2_1859))
												{
													obj_t BgL_l1137z00_2844;

													{	/* Eval/expdargs.scm 345 */
														obj_t BgL_tmpz00_4155;

														BgL_l1137z00_2844 = BgL_aidzb2zb2_1859;
													BgL_zc3z04anonymousza32033ze3z87_2843:
														if (NULLP(BgL_l1137z00_2844))
															{	/* Eval/expdargs.scm 345 */
																BgL_tmpz00_4155 = BFALSE;
															}
														else
															{	/* Eval/expdargs.scm 345 */
																obj_t BgL__ortest_1139z00_2850;

																BgL__ortest_1139z00_2850 =
																	CAR(((obj_t) BgL_l1137z00_2844));
																if (CBOOL(BgL__ortest_1139z00_2850))
																	{	/* Eval/expdargs.scm 345 */
																		BgL_tmpz00_4155 = BgL__ortest_1139z00_2850;
																	}
																else
																	{
																		obj_t BgL_l1137z00_4162;

																		BgL_l1137z00_4162 =
																			CDR(((obj_t) BgL_l1137z00_2844));
																		BgL_l1137z00_2844 = BgL_l1137z00_4162;
																		goto BgL_zc3z04anonymousza32033ze3z87_2843;
																	}
															}
														BgL_test2768z00_4152 = CBOOL(BgL_tmpz00_4155);
													}
												}
											else
												{	/* Eval/expdargs.scm 345 */
													BgL_test2768z00_4152 = ((bool_t) 0);
												}
											if (BgL_test2768z00_4152)
												{	/* Eval/expdargs.scm 345 */
													if (NULLP(BgL_argsz00_1856))
														{	/* Eval/expdargs.scm 359 */
															{
																obj_t BgL_l1147z00_2866;

																BgL_l1147z00_2866 = BgL_oidzb2zb2_1858;
															BgL_zc3z04anonymousza31879ze3z87_2865:
																if (PAIRP(BgL_l1147z00_2866))
																	{	/* Eval/expdargs.scm 360 */
																		BGl_bindzd2optionz12zc0zz__expander_argsz00
																			(BgL_otablez00_23, CAR(BgL_l1147z00_2866),
																			BgL_clausez00_22);
																		{
																			obj_t BgL_l1147z00_4172;

																			BgL_l1147z00_4172 =
																				CDR(BgL_l1147z00_2866);
																			BgL_l1147z00_2866 = BgL_l1147z00_4172;
																			goto
																				BgL_zc3z04anonymousza31879ze3z87_2865;
																		}
																	}
																else
																	{	/* Eval/expdargs.scm 360 */
																		((bool_t) 1);
																	}
															}
															{	/* Eval/expdargs.scm 361 */
																obj_t BgL_az00_1878;
																obj_t BgL_vz00_1879;
																obj_t BgL_naz00_1880;

																{	/* Eval/expdargs.scm 361 */

																	{	/* Eval/expdargs.scm 361 */

																		BgL_az00_1878 =
																			BGl_gensymz00zz__r4_symbols_6_4z00
																			(BFALSE);
																	}
																}
																{	/* Eval/expdargs.scm 362 */

																	{	/* Eval/expdargs.scm 362 */

																		BgL_vz00_1879 =
																			BGl_gensymz00zz__r4_symbols_6_4z00
																			(BFALSE);
																	}
																}
																BgL_naz00_1880 =
																	BGl_symbol2589z00zz__expander_argsz00;
																{	/* Eval/expdargs.scm 364 */
																	obj_t BgL_arg1882z00_1881;

																	{	/* Eval/expdargs.scm 364 */
																		obj_t BgL_arg1883z00_1882;
																		obj_t BgL_arg1884z00_1883;

																		{	/* Eval/expdargs.scm 364 */
																			obj_t BgL_arg1885z00_1884;

																			BgL_arg1885z00_1884 =
																				MAKE_YOUNG_PAIR(BgL_vz00_1879, BNIL);
																			BgL_arg1883z00_1882 =
																				MAKE_YOUNG_PAIR(BgL_az00_1878,
																				BgL_arg1885z00_1884);
																		}
																		{	/* Eval/expdargs.scm 366 */
																			obj_t BgL_arg1886z00_1885;

																			{	/* Eval/expdargs.scm 366 */
																				obj_t BgL_arg1887z00_1886;

																				{	/* Eval/expdargs.scm 366 */
																					obj_t BgL_arg1888z00_1887;
																					obj_t BgL_arg1889z00_1888;

																					{	/* Eval/expdargs.scm 366 */
																						obj_t BgL_arg1890z00_1889;
																						obj_t BgL_arg1891z00_1890;

																						{	/* Eval/expdargs.scm 366 */
																							obj_t BgL_arg1892z00_1891;

																							BgL_arg1892z00_1891 =
																								MAKE_YOUNG_PAIR(BgL_az00_1878,
																								BNIL);
																							BgL_arg1890z00_1889 =
																								MAKE_YOUNG_PAIR
																								(BGl_symbol2575z00zz__expander_argsz00,
																								BgL_arg1892z00_1891);
																						}
																						{	/* Eval/expdargs.scm 367 */
																							obj_t BgL_arg1893z00_1892;

																							{	/* Eval/expdargs.scm 367 */
																								obj_t BgL_arg1894z00_1893;

																								{	/* Eval/expdargs.scm 367 */
																									obj_t BgL_arg1896z00_1894;
																									obj_t BgL_arg1897z00_1895;

																									if (NULLP(BgL_oidzb2zb2_1858))
																										{	/* Eval/expdargs.scm 367 */
																											BgL_arg1896z00_1894 =
																												BNIL;
																										}
																									else
																										{	/* Eval/expdargs.scm 367 */
																											obj_t
																												BgL_head1151z00_1899;
																											BgL_head1151z00_1899 =
																												MAKE_YOUNG_PAIR(BNIL,
																												BNIL);
																											{
																												obj_t
																													BgL_ll1149z00_1901;
																												obj_t
																													BgL_ll1150z00_1902;
																												obj_t
																													BgL_tail1152z00_1903;
																												BgL_ll1149z00_1901 =
																													BgL_oidzb2zb2_1858;
																												BgL_ll1150z00_1902 =
																													BgL_aidzb2zb2_1859;
																												BgL_tail1152z00_1903 =
																													BgL_head1151z00_1899;
																											BgL_zc3z04anonymousza31899ze3z87_1904:
																												if (NULLP
																													(BgL_ll1149z00_1901))
																													{	/* Eval/expdargs.scm 367 */
																														BgL_arg1896z00_1894
																															=
																															CDR
																															(BgL_head1151z00_1899);
																													}
																												else
																													{	/* Eval/expdargs.scm 367 */
																														obj_t
																															BgL_newtail1153z00_1906;
																														{	/* Eval/expdargs.scm 367 */
																															obj_t
																																BgL_arg1905z00_1909;
																															{	/* Eval/expdargs.scm 367 */
																																obj_t
																																	BgL_oidz00_1910;
																																obj_t
																																	BgL_aidz00_1911;
																																BgL_oidz00_1910
																																	=
																																	CAR(((obj_t)
																																		BgL_ll1149z00_1901));
																																BgL_aidz00_1911
																																	=
																																	CAR(((obj_t)
																																		BgL_ll1150z00_1902));
																																if (CBOOL
																																	(BgL_aidz00_1911))
																																	{	/* Eval/expdargs.scm 369 */
																																		long
																																			BgL_oidlz00_1912;
																																		BgL_oidlz00_1912
																																			=
																																			STRING_LENGTH
																																			(((obj_t)
																																				BgL_oidz00_1910));
																																		{	/* Eval/expdargs.scm 370 */
																																			obj_t
																																				BgL_arg1906z00_1913;
																																			obj_t
																																				BgL_arg1907z00_1914;
																																			{	/* Eval/expdargs.scm 370 */
																																				obj_t
																																					BgL_arg1908z00_1915;
																																				{	/* Eval/expdargs.scm 370 */
																																					obj_t
																																						BgL_arg1911z00_1916;
																																					{	/* Eval/expdargs.scm 370 */
																																						obj_t
																																							BgL_arg1914z00_1917;
																																						obj_t
																																							BgL_arg1915z00_1918;
																																						{	/* Eval/expdargs.scm 370 */
																																							obj_t
																																								BgL_arg1916z00_1919;
																																							BgL_arg1916z00_1919
																																								=
																																								MAKE_YOUNG_PAIR
																																								(BgL_az00_1878,
																																								BNIL);
																																							BgL_arg1914z00_1917
																																								=
																																								MAKE_YOUNG_PAIR
																																								(BGl_symbol2503z00zz__expander_argsz00,
																																								BgL_arg1916z00_1919);
																																						}
																																						BgL_arg1915z00_1918
																																							=
																																							MAKE_YOUNG_PAIR
																																							(BINT
																																							(BgL_oidlz00_1912),
																																							BNIL);
																																						BgL_arg1911z00_1916
																																							=
																																							MAKE_YOUNG_PAIR
																																							(BgL_arg1914z00_1917,
																																							BgL_arg1915z00_1918);
																																					}
																																					BgL_arg1908z00_1915
																																						=
																																						MAKE_YOUNG_PAIR
																																						(BgL_oidz00_1910,
																																						BgL_arg1911z00_1916);
																																				}
																																				BgL_arg1906z00_1913
																																					=
																																					MAKE_YOUNG_PAIR
																																					(BGl_symbol2581z00zz__expander_argsz00,
																																					BgL_arg1908z00_1915);
																																			}
																																			{	/* Eval/expdargs.scm 371 */
																																				obj_t
																																					BgL_arg1917z00_1920;
																																				{	/* Eval/expdargs.scm 371 */
																																					obj_t
																																						BgL_arg1918z00_1921;
																																					{	/* Eval/expdargs.scm 371 */
																																						obj_t
																																							BgL_arg1919z00_1922;
																																						obj_t
																																							BgL_arg1920z00_1923;
																																						{	/* Eval/expdargs.scm 371 */
																																							obj_t
																																								BgL_arg1921z00_1924;
																																							obj_t
																																								BgL_arg1922z00_1925;
																																							{	/* Eval/expdargs.scm 371 */
																																								obj_t
																																									BgL_arg1923z00_1926;
																																								obj_t
																																									BgL_arg1924z00_1927;
																																								BgL_arg1923z00_1926
																																									=
																																									bstring_to_symbol
																																									(
																																									((obj_t) BgL_aidz00_1911));
																																								{	/* Eval/expdargs.scm 373 */
																																									obj_t
																																										BgL_arg1925z00_1928;
																																									{	/* Eval/expdargs.scm 373 */
																																										obj_t
																																											BgL_arg1926z00_1929;
																																										{	/* Eval/expdargs.scm 373 */
																																											obj_t
																																												BgL_arg1927z00_1930;
																																											obj_t
																																												BgL_arg1928z00_1931;
																																											{	/* Eval/expdargs.scm 373 */
																																												obj_t
																																													BgL_arg1931z00_1932;
																																												BgL_arg1931z00_1932
																																													=
																																													MAKE_YOUNG_PAIR
																																													(BgL_az00_1878,
																																													BNIL);
																																												BgL_arg1927z00_1930
																																													=
																																													MAKE_YOUNG_PAIR
																																													(BGl_symbol2503z00zz__expander_argsz00,
																																													BgL_arg1931z00_1932);
																																											}
																																											{	/* Eval/expdargs.scm 375 */
																																												obj_t
																																													BgL_arg1932z00_1933;
																																												{	/* Eval/expdargs.scm 375 */
																																													obj_t
																																														BgL_arg1933z00_1934;
																																													{	/* Eval/expdargs.scm 375 */
																																														obj_t
																																															BgL_arg1934z00_1935;
																																														{	/* Eval/expdargs.scm 375 */
																																															obj_t
																																																BgL_arg1935z00_1936;
																																															{	/* Eval/expdargs.scm 375 */
																																																obj_t
																																																	BgL_arg1936z00_1937;
																																																BgL_arg1936z00_1937
																																																	=
																																																	MAKE_YOUNG_PAIR
																																																	(BgL_az00_1878,
																																																	BNIL);
																																																BgL_arg1935z00_1936
																																																	=
																																																	MAKE_YOUNG_PAIR
																																																	(BGl_symbol2503z00zz__expander_argsz00,
																																																	BgL_arg1936z00_1937);
																																															}
																																															BgL_arg1934z00_1935
																																																=
																																																MAKE_YOUNG_PAIR
																																																(BgL_arg1935z00_1936,
																																																BNIL);
																																														}
																																														BgL_arg1933z00_1934
																																															=
																																															MAKE_YOUNG_PAIR
																																															(BGl_symbol2585z00zz__expander_argsz00,
																																															BgL_arg1934z00_1935);
																																													}
																																													BgL_arg1932z00_1933
																																														=
																																														MAKE_YOUNG_PAIR
																																														(BgL_arg1933z00_1934,
																																														BNIL);
																																												}
																																												BgL_arg1928z00_1931
																																													=
																																													MAKE_YOUNG_PAIR
																																													(BINT
																																													(BgL_oidlz00_1912),
																																													BgL_arg1932z00_1933);
																																											}
																																											BgL_arg1926z00_1929
																																												=
																																												MAKE_YOUNG_PAIR
																																												(BgL_arg1927z00_1930,
																																												BgL_arg1928z00_1931);
																																										}
																																										BgL_arg1925z00_1928
																																											=
																																											MAKE_YOUNG_PAIR
																																											(BGl_symbol2587z00zz__expander_argsz00,
																																											BgL_arg1926z00_1929);
																																									}
																																									BgL_arg1924z00_1927
																																										=
																																										MAKE_YOUNG_PAIR
																																										(BgL_arg1925z00_1928,
																																										BNIL);
																																								}
																																								BgL_arg1921z00_1924
																																									=
																																									MAKE_YOUNG_PAIR
																																									(BgL_arg1923z00_1926,
																																									BgL_arg1924z00_1927);
																																							}
																																							{	/* Eval/expdargs.scm 376 */
																																								obj_t
																																									BgL_arg1937z00_1938;
																																								obj_t
																																									BgL_arg1938z00_1939;
																																								BgL_arg1937z00_1938
																																									=
																																									BGl_bindzd2optionzd2argumentsz00zz__expander_argsz00
																																									(BgL_argsz00_1856,
																																									BgL_az00_1878,
																																									BgL_naz00_1880,
																																									BgL_clausez00_22);
																																								{	/* Eval/expdargs.scm 377 */
																																									obj_t
																																										BgL_arg1939z00_1940;
																																									{	/* Eval/expdargs.scm 377 */
																																										obj_t
																																											BgL_arg1940z00_1941;
																																										{	/* Eval/expdargs.scm 377 */
																																											obj_t
																																												BgL_arg1941z00_1942;
																																											BgL_arg1941z00_1942
																																												=
																																												MAKE_YOUNG_PAIR
																																												(BGl_symbol2573z00zz__expander_argsz00,
																																												BgL_exprza2za2_1857);
																																											BgL_arg1940z00_1941
																																												=
																																												MAKE_YOUNG_PAIR
																																												(BgL_arg1941z00_1942,
																																												BNIL);
																																										}
																																										BgL_arg1939z00_1940
																																											=
																																											MAKE_YOUNG_PAIR
																																											(BGl_symbol2535z00zz__expander_argsz00,
																																											BgL_arg1940z00_1941);
																																									}
																																									BgL_arg1938z00_1939
																																										=
																																										MAKE_YOUNG_PAIR
																																										(BgL_arg1939z00_1940,
																																										BNIL);
																																								}
																																								BgL_arg1922z00_1925
																																									=
																																									BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00
																																									(BgL_arg1937z00_1938,
																																									BgL_arg1938z00_1939);
																																							}
																																							BgL_arg1919z00_1922
																																								=
																																								MAKE_YOUNG_PAIR
																																								(BgL_arg1921z00_1924,
																																								BgL_arg1922z00_1925);
																																						}
																																						{	/* Eval/expdargs.scm 378 */
																																							obj_t
																																								BgL_arg1942z00_1943;
																																							{	/* Eval/expdargs.scm 378 */
																																								obj_t
																																									BgL_arg1943z00_1944;
																																								{	/* Eval/expdargs.scm 378 */
																																									obj_t
																																										BgL_arg1944z00_1945;
																																									obj_t
																																										BgL_arg1945z00_1946;
																																									{	/* Eval/expdargs.scm 378 */
																																										obj_t
																																											BgL_arg1946z00_1947;
																																										BgL_arg1946z00_1947
																																											=
																																											MAKE_YOUNG_PAIR
																																											(BGl_symbol2541z00zz__expander_argsz00,
																																											BNIL);
																																										BgL_arg1944z00_1945
																																											=
																																											MAKE_YOUNG_PAIR
																																											(BGl_symbol2499z00zz__expander_argsz00,
																																											BgL_arg1946z00_1947);
																																									}
																																									{	/* Eval/expdargs.scm 378 */
																																										obj_t
																																											BgL_arg1947z00_1948;
																																										BgL_arg1947z00_1948
																																											=
																																											MAKE_YOUNG_PAIR
																																											(BGl_symbol2535z00zz__expander_argsz00,
																																											BNIL);
																																										BgL_arg1945z00_1946
																																											=
																																											MAKE_YOUNG_PAIR
																																											(BgL_naz00_1880,
																																											BgL_arg1947z00_1948);
																																									}
																																									BgL_arg1943z00_1944
																																										=
																																										MAKE_YOUNG_PAIR
																																										(BgL_arg1944z00_1945,
																																										BgL_arg1945z00_1946);
																																								}
																																								BgL_arg1942z00_1943
																																									=
																																									MAKE_YOUNG_PAIR
																																									(BGl_symbol2501z00zz__expander_argsz00,
																																									BgL_arg1943z00_1944);
																																							}
																																							BgL_arg1920z00_1923
																																								=
																																								MAKE_YOUNG_PAIR
																																								(BgL_arg1942z00_1943,
																																								BNIL);
																																						}
																																						BgL_arg1918z00_1921
																																							=
																																							MAKE_YOUNG_PAIR
																																							(BgL_arg1919z00_1922,
																																							BgL_arg1920z00_1923);
																																					}
																																					BgL_arg1917z00_1920
																																						=
																																						MAKE_YOUNG_PAIR
																																						(BGl_symbol2557z00zz__expander_argsz00,
																																						BgL_arg1918z00_1921);
																																				}
																																				BgL_arg1907z00_1914
																																					=
																																					MAKE_YOUNG_PAIR
																																					(BgL_arg1917z00_1920,
																																					BNIL);
																																			}
																																			BgL_arg1905z00_1909
																																				=
																																				MAKE_YOUNG_PAIR
																																				(BgL_arg1906z00_1913,
																																				BgL_arg1907z00_1914);
																																	}}
																																else
																																	{	/* Eval/expdargs.scm 379 */
																																		obj_t
																																			BgL_arg1948z00_1949;
																																		{	/* Eval/expdargs.scm 379 */
																																			obj_t
																																				BgL_arg1949z00_1950;
																																			{	/* Eval/expdargs.scm 379 */
																																				obj_t
																																					BgL_arg1950z00_1951;
																																				{	/* Eval/expdargs.scm 379 */
																																					obj_t
																																						BgL_arg1953z00_1952;
																																					obj_t
																																						BgL_arg1954z00_1953;
																																					{	/* Eval/expdargs.scm 379 */
																																						obj_t
																																							BgL_arg1955z00_1954;
																																						BgL_arg1955z00_1954
																																							=
																																							MAKE_YOUNG_PAIR
																																							(BGl_symbol2545z00zz__expander_argsz00,
																																							BNIL);
																																						BgL_arg1953z00_1952
																																							=
																																							MAKE_YOUNG_PAIR
																																							(BGl_symbol2499z00zz__expander_argsz00,
																																							BgL_arg1955z00_1954);
																																					}
																																					{	/* Eval/expdargs.scm 379 */
																																						obj_t
																																							BgL_arg1956z00_1955;
																																						BgL_arg1956z00_1955
																																							=
																																							MAKE_YOUNG_PAIR
																																							(BgL_vz00_1879,
																																							BNIL);
																																						BgL_arg1954z00_1953
																																							=
																																							MAKE_YOUNG_PAIR
																																							(BgL_az00_1878,
																																							BgL_arg1956z00_1955);
																																					}
																																					BgL_arg1950z00_1951
																																						=
																																						MAKE_YOUNG_PAIR
																																						(BgL_arg1953z00_1952,
																																						BgL_arg1954z00_1953);
																																				}
																																				BgL_arg1949z00_1950
																																					=
																																					MAKE_YOUNG_PAIR
																																					(BGl_symbol2501z00zz__expander_argsz00,
																																					BgL_arg1950z00_1951);
																																			}
																																			BgL_arg1948z00_1949
																																				=
																																				MAKE_YOUNG_PAIR
																																				(BgL_arg1949z00_1950,
																																				BNIL);
																																		}
																																		BgL_arg1905z00_1909
																																			=
																																			MAKE_YOUNG_PAIR
																																			(BGl_symbol2566z00zz__expander_argsz00,
																																			BgL_arg1948z00_1949);
																																	}
																															}
																															BgL_newtail1153z00_1906
																																=
																																MAKE_YOUNG_PAIR
																																(BgL_arg1905z00_1909,
																																BNIL);
																														}
																														SET_CDR
																															(BgL_tail1152z00_1903,
																															BgL_newtail1153z00_1906);
																														{	/* Eval/expdargs.scm 367 */
																															obj_t
																																BgL_arg1901z00_1907;
																															obj_t
																																BgL_arg1903z00_1908;
																															BgL_arg1901z00_1907
																																=
																																CDR(((obj_t)
																																	BgL_ll1149z00_1901));
																															BgL_arg1903z00_1908
																																=
																																CDR(((obj_t)
																																	BgL_ll1150z00_1902));
																															{
																																obj_t
																																	BgL_tail1152z00_4250;
																																obj_t
																																	BgL_ll1150z00_4249;
																																obj_t
																																	BgL_ll1149z00_4248;
																																BgL_ll1149z00_4248
																																	=
																																	BgL_arg1901z00_1907;
																																BgL_ll1150z00_4249
																																	=
																																	BgL_arg1903z00_1908;
																																BgL_tail1152z00_4250
																																	=
																																	BgL_newtail1153z00_1906;
																																BgL_tail1152z00_1903
																																	=
																																	BgL_tail1152z00_4250;
																																BgL_ll1150z00_1902
																																	=
																																	BgL_ll1150z00_4249;
																																BgL_ll1149z00_1901
																																	=
																																	BgL_ll1149z00_4248;
																																goto
																																	BgL_zc3z04anonymousza31899ze3z87_1904;
																															}
																														}
																													}
																											}
																										}
																									{	/* Eval/expdargs.scm 381 */
																										obj_t BgL_arg1957z00_1957;

																										{	/* Eval/expdargs.scm 381 */
																											obj_t BgL_arg1959z00_1958;

																											{	/* Eval/expdargs.scm 381 */
																												obj_t
																													BgL_arg1960z00_1959;
																												{	/* Eval/expdargs.scm 381 */
																													obj_t
																														BgL_arg1961z00_1960;
																													{	/* Eval/expdargs.scm 381 */
																														obj_t
																															BgL_arg1962z00_1961;
																														obj_t
																															BgL_arg1963z00_1962;
																														{	/* Eval/expdargs.scm 381 */
																															obj_t
																																BgL_arg1964z00_1963;
																															BgL_arg1964z00_1963
																																=
																																MAKE_YOUNG_PAIR
																																(BGl_symbol2545z00zz__expander_argsz00,
																																BNIL);
																															BgL_arg1962z00_1961
																																=
																																MAKE_YOUNG_PAIR
																																(BGl_symbol2499z00zz__expander_argsz00,
																																BgL_arg1964z00_1963);
																														}
																														{	/* Eval/expdargs.scm 381 */
																															obj_t
																																BgL_arg1965z00_1964;
																															BgL_arg1965z00_1964
																																=
																																MAKE_YOUNG_PAIR
																																(BgL_vz00_1879,
																																BNIL);
																															BgL_arg1963z00_1962
																																=
																																MAKE_YOUNG_PAIR
																																(BgL_az00_1878,
																																BgL_arg1965z00_1964);
																														}
																														BgL_arg1961z00_1960
																															=
																															MAKE_YOUNG_PAIR
																															(BgL_arg1962z00_1961,
																															BgL_arg1963z00_1962);
																													}
																													BgL_arg1960z00_1959 =
																														MAKE_YOUNG_PAIR
																														(BGl_symbol2501z00zz__expander_argsz00,
																														BgL_arg1961z00_1960);
																												}
																												BgL_arg1959z00_1958 =
																													MAKE_YOUNG_PAIR
																													(BgL_arg1960z00_1959,
																													BNIL);
																											}
																											BgL_arg1957z00_1957 =
																												MAKE_YOUNG_PAIR
																												(BGl_symbol2566z00zz__expander_argsz00,
																												BgL_arg1959z00_1958);
																										}
																										BgL_arg1897z00_1895 =
																											MAKE_YOUNG_PAIR
																											(BgL_arg1957z00_1957,
																											BNIL);
																									}
																									BgL_arg1894z00_1893 =
																										BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00
																										(BgL_arg1896z00_1894,
																										BgL_arg1897z00_1895);
																								}
																								BgL_arg1893z00_1892 =
																									MAKE_YOUNG_PAIR
																									(BGl_symbol2593z00zz__expander_argsz00,
																									BgL_arg1894z00_1893);
																							}
																							BgL_arg1891z00_1890 =
																								MAKE_YOUNG_PAIR
																								(BgL_arg1893z00_1892, BNIL);
																						}
																						BgL_arg1888z00_1887 =
																							MAKE_YOUNG_PAIR
																							(BgL_arg1890z00_1889,
																							BgL_arg1891z00_1890);
																					}
																					{	/* Eval/expdargs.scm 383 */
																						obj_t BgL_arg1966z00_1965;

																						{	/* Eval/expdargs.scm 383 */
																							obj_t BgL_arg1967z00_1966;

																							{	/* Eval/expdargs.scm 383 */
																								obj_t BgL_arg1968z00_1967;

																								{	/* Eval/expdargs.scm 383 */
																									obj_t BgL_arg1969z00_1968;

																									{	/* Eval/expdargs.scm 383 */
																										obj_t BgL_arg1970z00_1969;
																										obj_t BgL_arg1971z00_1970;

																										{	/* Eval/expdargs.scm 383 */
																											obj_t BgL_arg1972z00_1971;

																											BgL_arg1972z00_1971 =
																												MAKE_YOUNG_PAIR
																												(BGl_symbol2545z00zz__expander_argsz00,
																												BNIL);
																											BgL_arg1970z00_1969 =
																												MAKE_YOUNG_PAIR
																												(BGl_symbol2499z00zz__expander_argsz00,
																												BgL_arg1972z00_1971);
																										}
																										{	/* Eval/expdargs.scm 383 */
																											obj_t BgL_arg1975z00_1972;

																											BgL_arg1975z00_1972 =
																												MAKE_YOUNG_PAIR
																												(BgL_vz00_1879, BNIL);
																											BgL_arg1971z00_1970 =
																												MAKE_YOUNG_PAIR
																												(BgL_az00_1878,
																												BgL_arg1975z00_1972);
																										}
																										BgL_arg1969z00_1968 =
																											MAKE_YOUNG_PAIR
																											(BgL_arg1970z00_1969,
																											BgL_arg1971z00_1970);
																									}
																									BgL_arg1968z00_1967 =
																										MAKE_YOUNG_PAIR
																										(BGl_symbol2501z00zz__expander_argsz00,
																										BgL_arg1969z00_1968);
																								}
																								BgL_arg1967z00_1966 =
																									MAKE_YOUNG_PAIR
																									(BgL_arg1968z00_1967, BNIL);
																							}
																							BgL_arg1966z00_1965 =
																								MAKE_YOUNG_PAIR
																								(BGl_symbol2566z00zz__expander_argsz00,
																								BgL_arg1967z00_1966);
																						}
																						BgL_arg1889z00_1888 =
																							MAKE_YOUNG_PAIR
																							(BgL_arg1966z00_1965, BNIL);
																					}
																					BgL_arg1887z00_1886 =
																						MAKE_YOUNG_PAIR(BgL_arg1888z00_1887,
																						BgL_arg1889z00_1888);
																				}
																				BgL_arg1886z00_1885 =
																					MAKE_YOUNG_PAIR
																					(BGl_symbol2593z00zz__expander_argsz00,
																					BgL_arg1887z00_1886);
																			}
																			BgL_arg1884z00_1883 =
																				MAKE_YOUNG_PAIR(BgL_arg1886z00_1885,
																				BNIL);
																		}
																		BgL_arg1882z00_1881 =
																			MAKE_YOUNG_PAIR(BgL_arg1883z00_1882,
																			BgL_arg1884z00_1883);
																	}
																	return
																		MAKE_YOUNG_PAIR
																		(BGl_symbol2511z00zz__expander_argsz00,
																		BgL_arg1882z00_1881);
																}
															}
														}
													else
														{	/* Eval/expdargs.scm 359 */
															return
																BGl_expandzd2errorzd2zz__expandz00
																(BGl_string2485z00zz__expander_argsz00,
																BGl_string2569z00zz__expander_argsz00,
																BgL_clausez00_22);
														}
												}
											else
												{	/* Eval/expdargs.scm 345 */
													{
														obj_t BgL_l1140z00_2894;

														BgL_l1140z00_2894 = BgL_oidzb2zb2_1858;
													BgL_zc3z04anonymousza31976ze3z87_2893:
														if (PAIRP(BgL_l1140z00_2894))
															{	/* Eval/expdargs.scm 346 */
																BGl_bindzd2optionz12zc0zz__expander_argsz00
																	(BgL_otablez00_23, CAR(BgL_l1140z00_2894),
																	BgL_clausez00_22);
																{
																	obj_t BgL_l1140z00_4283;

																	BgL_l1140z00_4283 = CDR(BgL_l1140z00_2894);
																	BgL_l1140z00_2894 = BgL_l1140z00_4283;
																	goto BgL_zc3z04anonymousza31976ze3z87_2893;
																}
															}
														else
															{	/* Eval/expdargs.scm 346 */
																((bool_t) 1);
															}
													}
													{	/* Eval/expdargs.scm 347 */
														obj_t BgL_az00_1982;
														obj_t BgL_vz00_1983;
														obj_t BgL_naz00_1984;

														{	/* Eval/expdargs.scm 347 */

															{	/* Eval/expdargs.scm 347 */

																BgL_az00_1982 =
																	BGl_gensymz00zz__r4_symbols_6_4z00(BFALSE);
															}
														}
														{	/* Eval/expdargs.scm 348 */

															{	/* Eval/expdargs.scm 348 */

																BgL_vz00_1983 =
																	BGl_gensymz00zz__r4_symbols_6_4z00(BFALSE);
															}
														}
														BgL_naz00_1984 =
															BGl_symbol2589z00zz__expander_argsz00;
														{	/* Eval/expdargs.scm 350 */
															obj_t BgL_arg1979z00_1985;

															{	/* Eval/expdargs.scm 350 */
																obj_t BgL_arg1980z00_1986;
																obj_t BgL_arg1981z00_1987;

																{	/* Eval/expdargs.scm 350 */
																	obj_t BgL_arg1982z00_1988;

																	BgL_arg1982z00_1988 =
																		MAKE_YOUNG_PAIR(BgL_vz00_1983, BNIL);
																	BgL_arg1980z00_1986 =
																		MAKE_YOUNG_PAIR(BgL_az00_1982,
																		BgL_arg1982z00_1988);
																}
																{	/* Eval/expdargs.scm 351 */
																	obj_t BgL_arg1983z00_1989;

																	{	/* Eval/expdargs.scm 351 */
																		obj_t BgL_arg1984z00_1990;

																		{	/* Eval/expdargs.scm 351 */
																			obj_t BgL_arg1985z00_1991;
																			obj_t BgL_arg1987z00_1992;

																			{	/* Eval/expdargs.scm 351 */
																				obj_t BgL_arg1988z00_1993;

																				{	/* Eval/expdargs.scm 351 */
																					obj_t BgL_arg1989z00_1994;
																					obj_t BgL_arg1990z00_1995;

																					{	/* Eval/expdargs.scm 351 */
																						obj_t BgL_arg1991z00_1996;

																						BgL_arg1991z00_1996 =
																							MAKE_YOUNG_PAIR(BgL_az00_1982,
																							BNIL);
																						BgL_arg1989z00_1994 =
																							MAKE_YOUNG_PAIR
																							(BGl_symbol2575z00zz__expander_argsz00,
																							BgL_arg1991z00_1996);
																					}
																					{	/* Eval/expdargs.scm 352 */
																						obj_t BgL_arg1992z00_1997;

																						{	/* Eval/expdargs.scm 352 */
																							obj_t BgL_arg1993z00_1998;

																							if (NULLP(BgL_ozb2zb2_1855))
																								{	/* Eval/expdargs.scm 352 */
																									BgL_arg1993z00_1998 = BNIL;
																								}
																							else
																								{	/* Eval/expdargs.scm 352 */
																									obj_t BgL_head1144z00_2001;

																									BgL_head1144z00_2001 =
																										MAKE_YOUNG_PAIR(BNIL, BNIL);
																									{
																										obj_t BgL_l1142z00_2003;
																										obj_t BgL_tail1145z00_2004;

																										BgL_l1142z00_2003 =
																											BgL_ozb2zb2_1855;
																										BgL_tail1145z00_2004 =
																											BgL_head1144z00_2001;
																									BgL_zc3z04anonymousza31995ze3z87_2005:
																										if (NULLP
																											(BgL_l1142z00_2003))
																											{	/* Eval/expdargs.scm 352 */
																												BgL_arg1993z00_1998 =
																													CDR
																													(BgL_head1144z00_2001);
																											}
																										else
																											{	/* Eval/expdargs.scm 352 */
																												obj_t
																													BgL_newtail1146z00_2007;
																												{	/* Eval/expdargs.scm 352 */
																													obj_t
																														BgL_arg1999z00_2009;
																													{	/* Eval/expdargs.scm 352 */
																														obj_t BgL_oz00_2010;

																														BgL_oz00_2010 =
																															CAR(
																															((obj_t)
																																BgL_l1142z00_2003));
																														{	/* Eval/expdargs.scm 353 */
																															obj_t
																																BgL_arg2000z00_2011;
																															{	/* Eval/expdargs.scm 353 */
																																obj_t
																																	BgL_arg2002z00_2012;
																																{	/* Eval/expdargs.scm 353 */
																																	obj_t
																																		BgL_arg2003z00_2013;
																																	{	/* Eval/expdargs.scm 353 */
																																		obj_t
																																			BgL_arg2004z00_2014;
																																		BgL_arg2004z00_2014
																																			=
																																			MAKE_YOUNG_PAIR
																																			(BgL_az00_1982,
																																			BNIL);
																																		BgL_arg2003z00_2013
																																			=
																																			MAKE_YOUNG_PAIR
																																			(BGl_symbol2503z00zz__expander_argsz00,
																																			BgL_arg2004z00_2014);
																																	}
																																	BgL_arg2002z00_2012
																																		=
																																		MAKE_YOUNG_PAIR
																																		(BgL_arg2003z00_2013,
																																		BNIL);
																																}
																																BgL_arg2000z00_2011
																																	=
																																	MAKE_YOUNG_PAIR
																																	(BgL_oz00_2010,
																																	BgL_arg2002z00_2012);
																															}
																															BgL_arg1999z00_2009
																																=
																																MAKE_YOUNG_PAIR
																																(BGl_symbol2591z00zz__expander_argsz00,
																																BgL_arg2000z00_2011);
																														}
																													}
																													BgL_newtail1146z00_2007
																														=
																														MAKE_YOUNG_PAIR
																														(BgL_arg1999z00_2009,
																														BNIL);
																												}
																												SET_CDR
																													(BgL_tail1145z00_2004,
																													BgL_newtail1146z00_2007);
																												{	/* Eval/expdargs.scm 352 */
																													obj_t
																														BgL_arg1998z00_2008;
																													BgL_arg1998z00_2008 =
																														CDR(((obj_t)
																															BgL_l1142z00_2003));
																													{
																														obj_t
																															BgL_tail1145z00_4309;
																														obj_t
																															BgL_l1142z00_4308;
																														BgL_l1142z00_4308 =
																															BgL_arg1998z00_2008;
																														BgL_tail1145z00_4309
																															=
																															BgL_newtail1146z00_2007;
																														BgL_tail1145z00_2004
																															=
																															BgL_tail1145z00_4309;
																														BgL_l1142z00_2003 =
																															BgL_l1142z00_4308;
																														goto
																															BgL_zc3z04anonymousza31995ze3z87_2005;
																													}
																												}
																											}
																									}
																								}
																							BgL_arg1992z00_1997 =
																								MAKE_YOUNG_PAIR
																								(BGl_symbol2595z00zz__expander_argsz00,
																								BgL_arg1993z00_1998);
																						}
																						BgL_arg1990z00_1995 =
																							MAKE_YOUNG_PAIR
																							(BgL_arg1992z00_1997, BNIL);
																					}
																					BgL_arg1988z00_1993 =
																						MAKE_YOUNG_PAIR(BgL_arg1989z00_1994,
																						BgL_arg1990z00_1995);
																				}
																				BgL_arg1985z00_1991 =
																					MAKE_YOUNG_PAIR
																					(BGl_symbol2583z00zz__expander_argsz00,
																					BgL_arg1988z00_1993);
																			}
																			{	/* Eval/expdargs.scm 355 */
																				obj_t BgL_arg2005z00_2016;
																				obj_t BgL_arg2007z00_2017;

																				{	/* Eval/expdargs.scm 355 */
																					obj_t BgL_arg2008z00_2018;

																					{	/* Eval/expdargs.scm 355 */
																						obj_t BgL_arg2009z00_2019;
																						obj_t BgL_arg2011z00_2020;

																						{	/* Eval/expdargs.scm 355 */
																							obj_t BgL_arg2012z00_2021;
																							obj_t BgL_arg2013z00_2022;

																							BgL_arg2012z00_2021 =
																								BGl_bindzd2optionzd2argumentsz00zz__expander_argsz00
																								(BgL_argsz00_1856,
																								BgL_az00_1982, BgL_naz00_1984,
																								BgL_clausez00_22);
																							{	/* Eval/expdargs.scm 356 */
																								obj_t BgL_arg2016z00_2023;

																								{	/* Eval/expdargs.scm 356 */
																									obj_t BgL_arg2017z00_2024;

																									{	/* Eval/expdargs.scm 356 */
																										obj_t BgL_arg2018z00_2025;

																										BgL_arg2018z00_2025 =
																											MAKE_YOUNG_PAIR
																											(BGl_symbol2573z00zz__expander_argsz00,
																											BgL_exprza2za2_1857);
																										BgL_arg2017z00_2024 =
																											MAKE_YOUNG_PAIR
																											(BgL_arg2018z00_2025,
																											BNIL);
																									}
																									BgL_arg2016z00_2023 =
																										MAKE_YOUNG_PAIR
																										(BGl_symbol2535z00zz__expander_argsz00,
																										BgL_arg2017z00_2024);
																								}
																								BgL_arg2013z00_2022 =
																									MAKE_YOUNG_PAIR
																									(BgL_arg2016z00_2023, BNIL);
																							}
																							BgL_arg2009z00_2019 =
																								BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00
																								(BgL_arg2012z00_2021,
																								BgL_arg2013z00_2022);
																						}
																						{	/* Eval/expdargs.scm 357 */
																							obj_t BgL_arg2019z00_2026;

																							{	/* Eval/expdargs.scm 357 */
																								obj_t BgL_arg2020z00_2027;

																								{	/* Eval/expdargs.scm 357 */
																									obj_t BgL_arg2021z00_2028;
																									obj_t BgL_arg2022z00_2029;

																									{	/* Eval/expdargs.scm 357 */
																										obj_t BgL_arg2023z00_2030;

																										BgL_arg2023z00_2030 =
																											MAKE_YOUNG_PAIR
																											(BGl_symbol2541z00zz__expander_argsz00,
																											BNIL);
																										BgL_arg2021z00_2028 =
																											MAKE_YOUNG_PAIR
																											(BGl_symbol2499z00zz__expander_argsz00,
																											BgL_arg2023z00_2030);
																									}
																									{	/* Eval/expdargs.scm 357 */
																										obj_t BgL_arg2025z00_2031;

																										BgL_arg2025z00_2031 =
																											MAKE_YOUNG_PAIR
																											(BGl_symbol2535z00zz__expander_argsz00,
																											BNIL);
																										BgL_arg2022z00_2029 =
																											MAKE_YOUNG_PAIR
																											(BgL_naz00_1984,
																											BgL_arg2025z00_2031);
																									}
																									BgL_arg2020z00_2027 =
																										MAKE_YOUNG_PAIR
																										(BgL_arg2021z00_2028,
																										BgL_arg2022z00_2029);
																								}
																								BgL_arg2019z00_2026 =
																									MAKE_YOUNG_PAIR
																									(BGl_symbol2501z00zz__expander_argsz00,
																									BgL_arg2020z00_2027);
																							}
																							BgL_arg2011z00_2020 =
																								MAKE_YOUNG_PAIR
																								(BgL_arg2019z00_2026, BNIL);
																						}
																						BgL_arg2008z00_2018 =
																							MAKE_YOUNG_PAIR
																							(BgL_arg2009z00_2019,
																							BgL_arg2011z00_2020);
																					}
																					BgL_arg2005z00_2016 =
																						MAKE_YOUNG_PAIR
																						(BGl_symbol2557z00zz__expander_argsz00,
																						BgL_arg2008z00_2018);
																				}
																				{	/* Eval/expdargs.scm 358 */
																					obj_t BgL_arg2026z00_2032;

																					{	/* Eval/expdargs.scm 358 */
																						obj_t BgL_arg2028z00_2033;

																						{	/* Eval/expdargs.scm 358 */
																							obj_t BgL_arg2029z00_2034;
																							obj_t BgL_arg2030z00_2035;

																							{	/* Eval/expdargs.scm 358 */
																								obj_t BgL_arg2031z00_2036;

																								BgL_arg2031z00_2036 =
																									MAKE_YOUNG_PAIR
																									(BGl_symbol2545z00zz__expander_argsz00,
																									BNIL);
																								BgL_arg2029z00_2034 =
																									MAKE_YOUNG_PAIR
																									(BGl_symbol2499z00zz__expander_argsz00,
																									BgL_arg2031z00_2036);
																							}
																							{	/* Eval/expdargs.scm 358 */
																								obj_t BgL_arg2032z00_2037;

																								BgL_arg2032z00_2037 =
																									MAKE_YOUNG_PAIR(BgL_vz00_1983,
																									BNIL);
																								BgL_arg2030z00_2035 =
																									MAKE_YOUNG_PAIR(BgL_az00_1982,
																									BgL_arg2032z00_2037);
																							}
																							BgL_arg2028z00_2033 =
																								MAKE_YOUNG_PAIR
																								(BgL_arg2029z00_2034,
																								BgL_arg2030z00_2035);
																						}
																						BgL_arg2026z00_2032 =
																							MAKE_YOUNG_PAIR
																							(BGl_symbol2501z00zz__expander_argsz00,
																							BgL_arg2028z00_2033);
																					}
																					BgL_arg2007z00_2017 =
																						MAKE_YOUNG_PAIR(BgL_arg2026z00_2032,
																						BNIL);
																				}
																				BgL_arg1987z00_1992 =
																					MAKE_YOUNG_PAIR(BgL_arg2005z00_2016,
																					BgL_arg2007z00_2017);
																			}
																			BgL_arg1984z00_1990 =
																				MAKE_YOUNG_PAIR(BgL_arg1985z00_1991,
																				BgL_arg1987z00_1992);
																		}
																		BgL_arg1983z00_1989 =
																			MAKE_YOUNG_PAIR
																			(BGl_symbol2509z00zz__expander_argsz00,
																			BgL_arg1984z00_1990);
																	}
																	BgL_arg1981z00_1987 =
																		MAKE_YOUNG_PAIR(BgL_arg1983z00_1989, BNIL);
																}
																BgL_arg1979z00_1985 =
																	MAKE_YOUNG_PAIR(BgL_arg1980z00_1986,
																	BgL_arg1981z00_1987);
															}
															return
																MAKE_YOUNG_PAIR
																(BGl_symbol2511z00zz__expander_argsz00,
																BgL_arg1979z00_1985);
														}
													}
												}
										}
									}
								}
							}
						}
					}
				}
			}
		}

	}



/* fetch-option-arguments */
	obj_t BGl_fetchzd2optionzd2argumentsz00zz__expander_argsz00(obj_t
		BgL_optz00_24)
	{
		{	/* Eval/expdargs.scm 392 */
			{	/* Eval/expdargs.scm 393 */
				obj_t BgL_g1045z00_2066;

				BgL_g1045z00_2066 = CDR(((obj_t) BgL_optz00_24));
				{
					obj_t BgL_iz00_2927;
					obj_t BgL_resz00_2928;

					BgL_iz00_2927 = BgL_g1045z00_2066;
					BgL_resz00_2928 = BNIL;
				BgL_loopz00_2926:
					{	/* Eval/expdargs.scm 396 */
						bool_t BgL_test2780z00_4344;

						if (NULLP(BgL_iz00_2927))
							{	/* Eval/expdargs.scm 396 */
								BgL_test2780z00_4344 = ((bool_t) 1);
							}
						else
							{	/* Eval/expdargs.scm 396 */
								BgL_test2780z00_4344 =
									BGl_helpzd2messagezf3z21zz__expander_argsz00(CAR(
										((obj_t) BgL_iz00_2927)));
							}
						if (BgL_test2780z00_4344)
							{	/* Eval/expdargs.scm 396 */
								return bgl_reverse_bang(BgL_resz00_2928);
							}
						else
							{	/* Eval/expdargs.scm 399 */
								obj_t BgL_arg2046z00_2938;
								obj_t BgL_arg2047z00_2939;

								BgL_arg2046z00_2938 = CDR(((obj_t) BgL_iz00_2927));
								{	/* Eval/expdargs.scm 399 */
									obj_t BgL_arg2048z00_2940;

									BgL_arg2048z00_2940 = CAR(((obj_t) BgL_iz00_2927));
									BgL_arg2047z00_2939 =
										MAKE_YOUNG_PAIR(BgL_arg2048z00_2940, BgL_resz00_2928);
								}
								{
									obj_t BgL_resz00_4357;
									obj_t BgL_iz00_4356;

									BgL_iz00_4356 = BgL_arg2046z00_2938;
									BgL_resz00_4357 = BgL_arg2047z00_2939;
									BgL_resz00_2928 = BgL_resz00_4357;
									BgL_iz00_2927 = BgL_iz00_4356;
									goto BgL_loopz00_2926;
								}
							}
					}
				}
			}
		}

	}



/* bind-option-arguments */
	obj_t BGl_bindzd2optionzd2argumentsz00zz__expander_argsz00(obj_t
		BgL_argsz00_25, obj_t BgL_azb2zb2_26, obj_t BgL_naz00_27,
		obj_t BgL_clausez00_28)
	{
		{	/* Eval/expdargs.scm 404 */
			{	/* Eval/expdargs.scm 405 */
				obj_t BgL_arg2050z00_2081;
				obj_t BgL_arg2051z00_2082;

				{	/* Eval/expdargs.scm 405 */
					obj_t BgL_arg2052z00_2083;

					{	/* Eval/expdargs.scm 405 */
						obj_t BgL_arg2053z00_2084;

						{	/* Eval/expdargs.scm 405 */
							obj_t BgL_arg2054z00_2085;

							BgL_arg2054z00_2085 = MAKE_YOUNG_PAIR(BgL_azb2zb2_26, BNIL);
							BgL_arg2053z00_2084 =
								MAKE_YOUNG_PAIR(BGl_symbol2547z00zz__expander_argsz00,
								BgL_arg2054z00_2085);
						}
						BgL_arg2052z00_2083 = MAKE_YOUNG_PAIR(BgL_arg2053z00_2084, BNIL);
					}
					BgL_arg2050z00_2081 =
						MAKE_YOUNG_PAIR(BgL_naz00_27, BgL_arg2052z00_2083);
				}
				BgL_arg2051z00_2082 =
					BGl_loopze70ze7zz__expander_argsz00(BgL_naz00_27, BgL_clausez00_28,
					BgL_argsz00_25);
				return MAKE_YOUNG_PAIR(BgL_arg2050z00_2081, BgL_arg2051z00_2082);
			}
		}

	}



/* loop~0 */
	obj_t BGl_loopze70ze7zz__expander_argsz00(obj_t BgL_naz00_3209,
		obj_t BgL_clausez00_3208, obj_t BgL_argsz00_2087)
	{
		{	/* Eval/expdargs.scm 406 */
			if (PAIRP(BgL_argsz00_2087))
				{	/* Eval/expdargs.scm 408 */
					obj_t BgL_idz00_2090;

					BgL_idz00_2090 =
						BGl_fetchzd2argumentzd2namez00zz__expander_argsz00(CAR
						(BgL_argsz00_2087), BgL_clausez00_3208);
					{	/* Eval/expdargs.scm 409 */
						obj_t BgL_arg2058z00_2091;
						obj_t BgL_arg2059z00_2092;

						{	/* Eval/expdargs.scm 409 */
							obj_t BgL_arg2060z00_2093;
							obj_t BgL_arg2061z00_2094;

							BgL_arg2060z00_2093 = bstring_to_symbol(((obj_t) BgL_idz00_2090));
							{	/* Eval/expdargs.scm 410 */
								obj_t BgL_arg2062z00_2095;

								{	/* Eval/expdargs.scm 410 */
									obj_t BgL_arg2063z00_2096;

									{	/* Eval/expdargs.scm 410 */
										obj_t BgL_arg2064z00_2097;
										obj_t BgL_arg2065z00_2098;

										{	/* Eval/expdargs.scm 410 */
											obj_t BgL_arg2067z00_2099;

											BgL_arg2067z00_2099 =
												MAKE_YOUNG_PAIR(BgL_naz00_3209, BNIL);
											BgL_arg2064z00_2097 =
												MAKE_YOUNG_PAIR(BGl_symbol2575z00zz__expander_argsz00,
												BgL_arg2067z00_2099);
										}
										{	/* Eval/expdargs.scm 411 */
											obj_t BgL_arg2068z00_2100;
											obj_t BgL_arg2069z00_2101;

											{	/* Eval/expdargs.scm 411 */
												obj_t BgL_arg2070z00_2102;

												BgL_arg2070z00_2102 =
													MAKE_YOUNG_PAIR(BgL_naz00_3209, BNIL);
												BgL_arg2068z00_2100 =
													MAKE_YOUNG_PAIR(BGl_symbol2503z00zz__expander_argsz00,
													BgL_arg2070z00_2102);
											}
											{	/* Eval/expdargs.scm 412 */
												obj_t BgL_arg2071z00_2103;

												{	/* Eval/expdargs.scm 412 */
													obj_t BgL_arg2072z00_2104;

													{	/* Eval/expdargs.scm 412 */
														obj_t BgL_arg2073z00_2105;
														obj_t BgL_arg2074z00_2106;

														{	/* Eval/expdargs.scm 412 */
															obj_t BgL_arg2075z00_2107;

															BgL_arg2075z00_2107 =
																MAKE_YOUNG_PAIR(CAR(BgL_argsz00_2087), BNIL);
															BgL_arg2073z00_2105 =
																MAKE_YOUNG_PAIR
																(BGl_symbol2499z00zz__expander_argsz00,
																BgL_arg2075z00_2107);
														}
														{	/* Eval/expdargs.scm 412 */
															obj_t BgL_arg2077z00_2109;

															{	/* Eval/expdargs.scm 412 */
																obj_t BgL_arg2078z00_2110;

																{	/* Eval/expdargs.scm 412 */
																	obj_t BgL_arg2079z00_2111;

																	BgL_arg2079z00_2111 =
																		MAKE_YOUNG_PAIR(BgL_clausez00_3208, BNIL);
																	BgL_arg2078z00_2110 =
																		MAKE_YOUNG_PAIR
																		(BGl_symbol2499z00zz__expander_argsz00,
																		BgL_arg2079z00_2111);
																}
																BgL_arg2077z00_2109 =
																	MAKE_YOUNG_PAIR(BgL_arg2078z00_2110, BNIL);
															}
															BgL_arg2074z00_2106 =
																MAKE_YOUNG_PAIR
																(BGl_string2597z00zz__expander_argsz00,
																BgL_arg2077z00_2109);
														}
														BgL_arg2072z00_2104 =
															MAKE_YOUNG_PAIR(BgL_arg2073z00_2105,
															BgL_arg2074z00_2106);
													}
													BgL_arg2071z00_2103 =
														MAKE_YOUNG_PAIR
														(BGl_symbol2507z00zz__expander_argsz00,
														BgL_arg2072z00_2104);
												}
												BgL_arg2069z00_2101 =
													MAKE_YOUNG_PAIR(BgL_arg2071z00_2103, BNIL);
											}
											BgL_arg2065z00_2098 =
												MAKE_YOUNG_PAIR(BgL_arg2068z00_2100,
												BgL_arg2069z00_2101);
										}
										BgL_arg2063z00_2096 =
											MAKE_YOUNG_PAIR(BgL_arg2064z00_2097, BgL_arg2065z00_2098);
									}
									BgL_arg2062z00_2095 =
										MAKE_YOUNG_PAIR(BGl_symbol2509z00zz__expander_argsz00,
										BgL_arg2063z00_2096);
								}
								BgL_arg2061z00_2094 =
									MAKE_YOUNG_PAIR(BgL_arg2062z00_2095, BNIL);
							}
							BgL_arg2058z00_2091 =
								MAKE_YOUNG_PAIR(BgL_arg2060z00_2093, BgL_arg2061z00_2094);
						}
						{	/* Eval/expdargs.scm 413 */
							obj_t BgL_arg2080z00_2112;
							obj_t BgL_arg2081z00_2113;

							{	/* Eval/expdargs.scm 413 */
								obj_t BgL_arg2082z00_2114;

								{	/* Eval/expdargs.scm 413 */
									obj_t BgL_arg2083z00_2115;

									{	/* Eval/expdargs.scm 413 */
										obj_t BgL_arg2084z00_2116;

										BgL_arg2084z00_2116 = MAKE_YOUNG_PAIR(BgL_naz00_3209, BNIL);
										BgL_arg2083z00_2115 =
											MAKE_YOUNG_PAIR(BGl_symbol2547z00zz__expander_argsz00,
											BgL_arg2084z00_2116);
									}
									BgL_arg2082z00_2114 =
										MAKE_YOUNG_PAIR(BgL_arg2083z00_2115, BNIL);
								}
								BgL_arg2080z00_2112 =
									MAKE_YOUNG_PAIR(BgL_naz00_3209, BgL_arg2082z00_2114);
							}
							BgL_arg2081z00_2113 =
								BGl_loopze70ze7zz__expander_argsz00(BgL_naz00_3209,
								BgL_clausez00_3208, CDR(BgL_argsz00_2087));
							BgL_arg2059z00_2092 =
								MAKE_YOUNG_PAIR(BgL_arg2080z00_2112, BgL_arg2081z00_2113);
						}
						return MAKE_YOUNG_PAIR(BgL_arg2058z00_2091, BgL_arg2059z00_2092);
					}
				}
			else
				{	/* Eval/expdargs.scm 407 */
					return BNIL;
				}
		}

	}



/* fetch-argument-name */
	obj_t BGl_fetchzd2argumentzd2namez00zz__expander_argsz00(obj_t BgL_az00_29,
		obj_t BgL_clausez00_30)
	{
		{	/* Eval/expdargs.scm 420 */
			if (SYMBOLP(BgL_az00_29))
				{	/* Eval/expdargs.scm 423 */
					obj_t BgL_sz00_2121;

					{	/* Eval/expdargs.scm 423 */
						obj_t BgL_arg2253z00_2949;

						BgL_arg2253z00_2949 = SYMBOL_TO_STRING(BgL_az00_29);
						BgL_sz00_2121 =
							BGl_stringzd2copyzd2zz__r4_strings_6_7z00(BgL_arg2253z00_2949);
					}
					if ((STRING_REF(BgL_sz00_2121, 0L) == ((unsigned char) '?')))
						{	/* Eval/expdargs.scm 424 */
							return
								c_substring(BgL_sz00_2121, 1L, STRING_LENGTH(BgL_sz00_2121));
						}
					else
						{	/* Eval/expdargs.scm 424 */
							return
								BGl_expandzd2errorzd2zz__expandz00
								(BGl_string2485z00zz__expander_argsz00,
								string_append_3(BGl_string2598z00zz__expander_argsz00,
									BgL_sz00_2121, BGl_string2599z00zz__expander_argsz00),
								BgL_clausez00_30);
						}
				}
			else
				{	/* Eval/expdargs.scm 421 */
					return
						BGl_expandzd2errorzd2zz__expandz00
						(BGl_string2485z00zz__expander_argsz00,
						BGl_string2600z00zz__expander_argsz00, BgL_clausez00_30);
				}
		}

	}



/* fetch-option-embed-argument */
	obj_t BGl_fetchzd2optionzd2embedzd2argumentzd2zz__expander_argsz00(obj_t
		BgL_optz00_31)
	{
		{	/* Eval/expdargs.scm 435 */
			{	/* Eval/expdargs.scm 436 */
				long BgL_lenz00_2127;

				BgL_lenz00_2127 = (STRING_LENGTH(((obj_t) BgL_optz00_31)) - 1L);
				{
					long BgL_iz00_2129;

					BgL_iz00_2129 = 0L;
				BgL_zc3z04anonymousza32093ze3z87_2130:
					if ((BgL_iz00_2129 >= BgL_lenz00_2127))
						{	/* Eval/expdargs.scm 439 */
							{	/* Eval/expdargs.scm 440 */
								int BgL_tmpz00_4414;

								BgL_tmpz00_4414 = (int) (2L);
								BGL_MVALUES_NUMBER_SET(BgL_tmpz00_4414);
							}
							{	/* Eval/expdargs.scm 440 */
								int BgL_tmpz00_4417;

								BgL_tmpz00_4417 = (int) (1L);
								BGL_MVALUES_VAL_SET(BgL_tmpz00_4417, BFALSE);
							}
							return BgL_optz00_31;
						}
					else
						{	/* Eval/expdargs.scm 439 */
							if (
								(STRING_REF(
										((obj_t) BgL_optz00_31),
										BgL_iz00_2129) == ((unsigned char) '?')))
								{	/* Eval/expdargs.scm 442 */
									obj_t BgL_val0_1157z00_2136;
									obj_t BgL_val1_1158z00_2137;

									BgL_val0_1157z00_2136 =
										c_substring(((obj_t) BgL_optz00_31), 0L, BgL_iz00_2129);
									{	/* Eval/expdargs.scm 443 */
										long BgL_arg2097z00_2138;
										long BgL_arg2098z00_2139;

										BgL_arg2097z00_2138 = (1L + BgL_iz00_2129);
										BgL_arg2098z00_2139 = (BgL_lenz00_2127 + 1L);
										BgL_val1_1158z00_2137 =
											c_substring(
											((obj_t) BgL_optz00_31), BgL_arg2097z00_2138,
											BgL_arg2098z00_2139);
									}
									{	/* Eval/expdargs.scm 442 */
										int BgL_tmpz00_4430;

										BgL_tmpz00_4430 = (int) (2L);
										BGL_MVALUES_NUMBER_SET(BgL_tmpz00_4430);
									}
									{	/* Eval/expdargs.scm 442 */
										int BgL_tmpz00_4433;

										BgL_tmpz00_4433 = (int) (1L);
										BGL_MVALUES_VAL_SET(BgL_tmpz00_4433, BgL_val1_1158z00_2137);
									}
									return BgL_val0_1157z00_2136;
								}
							else
								{
									long BgL_iz00_4436;

									BgL_iz00_4436 = (BgL_iz00_2129 + 1L);
									BgL_iz00_2129 = BgL_iz00_4436;
									goto BgL_zc3z04anonymousza32093ze3z87_2130;
								}
						}
				}
			}
		}

	}



/* help-message? */
	bool_t BGl_helpzd2messagezf3z21zz__expander_argsz00(obj_t BgL_expz00_32)
	{
		{	/* Eval/expdargs.scm 450 */
			if (PAIRP(BgL_expz00_32))
				{	/* Eval/expdargs.scm 451 */
					obj_t BgL_arg2106z00_2150;

					BgL_arg2106z00_2150 = CAR(BgL_expz00_32);
					{	/* Eval/expdargs.scm 459 */
						bool_t BgL__ortest_1047z00_2973;

						BgL__ortest_1047z00_2973 =
							(BgL_arg2106z00_2150 == BGl_symbol2559z00zz__expander_argsz00);
						if (BgL__ortest_1047z00_2973)
							{	/* Eval/expdargs.scm 459 */
								return BgL__ortest_1047z00_2973;
							}
						else
							{	/* Eval/expdargs.scm 459 */
								return
									(BgL_arg2106z00_2150 ==
									BGl_symbol2561z00zz__expander_argsz00);
							}
					}
				}
			else
				{	/* Eval/expdargs.scm 451 */
					return ((bool_t) 0);
				}
		}

	}



/* synopsis? */
	bool_t BGl_synopsiszf3zf3zz__expander_argsz00(obj_t BgL_symz00_33)
	{
		{	/* Eval/expdargs.scm 458 */
			{	/* Eval/expdargs.scm 459 */
				bool_t BgL__ortest_1047z00_2974;

				BgL__ortest_1047z00_2974 =
					(BgL_symz00_33 == BGl_symbol2559z00zz__expander_argsz00);
				if (BgL__ortest_1047z00_2974)
					{	/* Eval/expdargs.scm 459 */
						return BgL__ortest_1047z00_2974;
					}
				else
					{	/* Eval/expdargs.scm 459 */
						return (BgL_symz00_33 == BGl_symbol2561z00zz__expander_argsz00);
					}
			}
		}

	}



/* args-parse-usage */
	BGL_EXPORTED_DEF obj_t BGl_argszd2parsezd2usagez00zz__expander_argsz00(obj_t
		BgL_descrsz00_34)
	{
		{	/* Eval/expdargs.scm 464 */
			{	/* Eval/expdargs.scm 465 */
				obj_t BgL_zc3z04anonymousza32107ze3z87_3202;

				BgL_zc3z04anonymousza32107ze3z87_3202 =
					MAKE_FX_PROCEDURE
					(BGl_z62zc3z04anonymousza32107ze3ze5zz__expander_argsz00, (int) (1L),
					(int) (1L));
				PROCEDURE_SET(BgL_zc3z04anonymousza32107ze3z87_3202, (int) (0L),
					BgL_descrsz00_34);
				return BgL_zc3z04anonymousza32107ze3z87_3202;
			}
		}

	}



/* &args-parse-usage */
	obj_t BGl_z62argszd2parsezd2usagez62zz__expander_argsz00(obj_t
		BgL_envz00_3203, obj_t BgL_descrsz00_3204)
	{
		{	/* Eval/expdargs.scm 464 */
			{	/* Eval/expdargs.scm 465 */
				obj_t BgL_auxz00_4452;

				if (BGl_pairzd2orzd2nullzf3zf3zz__r4_pairs_and_lists_6_3z00
					(BgL_descrsz00_3204))
					{	/* Eval/expdargs.scm 465 */
						BgL_auxz00_4452 = BgL_descrsz00_3204;
					}
				else
					{
						obj_t BgL_auxz00_4455;

						BgL_auxz00_4455 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string2487z00zz__expander_argsz00, BINT(16196L),
							BGl_string2601z00zz__expander_argsz00,
							BGl_string2489z00zz__expander_argsz00, BgL_descrsz00_3204);
						FAILURE(BgL_auxz00_4455, BFALSE, BFALSE);
					}
				return BGl_argszd2parsezd2usagez00zz__expander_argsz00(BgL_auxz00_4452);
			}
		}

	}



/* &<@anonymous:2107> */
	obj_t BGl_z62zc3z04anonymousza32107ze3ze5zz__expander_argsz00(obj_t
		BgL_envz00_3205, obj_t BgL_manualzf3zf3_3207)
	{
		{	/* Eval/expdargs.scm 465 */
			{	/* Eval/expdargs.scm 466 */
				obj_t BgL_descrsz00_3206;

				BgL_descrsz00_3206 =
					((obj_t) PROCEDURE_REF(BgL_envz00_3205, (int) (0L)));
				if (CBOOL(BgL_manualzf3zf3_3207))
					{	/* Eval/expdargs.scm 466 */
						obj_t BgL_port1159z00_3267;

						{	/* Eval/expdargs.scm 466 */
							obj_t BgL_tmpz00_4465;

							BgL_tmpz00_4465 = BGL_CURRENT_DYNAMIC_ENV();
							BgL_port1159z00_3267 =
								BGL_ENV_CURRENT_OUTPUT_PORT(BgL_tmpz00_4465);
						}
						bgl_display_string(BGl_string2602z00zz__expander_argsz00,
							BgL_port1159z00_3267);
						bgl_display_char(((unsigned char) 10), BgL_port1159z00_3267);
					}
				else
					{	/* Eval/expdargs.scm 466 */
						BFALSE;
					}
				{	/* Eval/expdargs.scm 467 */
					long BgL_mlenzd2symzd2_3268;

					BgL_mlenzd2symzd2_3268 = 0L;
					{
						obj_t BgL_l1160z00_3270;

						BgL_l1160z00_3270 = BgL_descrsz00_3206;
					BgL_zc3z04anonymousza32108ze3z87_3269:
						if (PAIRP(BgL_l1160z00_3270))
							{	/* Eval/expdargs.scm 469 */
								{	/* Eval/expdargs.scm 470 */
									obj_t BgL_optz00_3271;

									BgL_optz00_3271 = CAR(BgL_l1160z00_3270);
									{	/* Eval/expdargs.scm 470 */
										obj_t BgL_namez00_3272;

										BgL_namez00_3272 = CAR(((obj_t) BgL_optz00_3271));
										if (STRINGP(BgL_namez00_3272))
											{	/* Eval/expdargs.scm 472 */
												long BgL_lenz00_3273;

												BgL_lenz00_3273 = STRING_LENGTH(BgL_namez00_3272);
												if ((BgL_lenz00_3273 > BgL_mlenzd2symzd2_3268))
													{	/* Eval/expdargs.scm 473 */
														BgL_mlenzd2symzd2_3268 = BgL_lenz00_3273;
													}
												else
													{	/* Eval/expdargs.scm 473 */
														BFALSE;
													}
											}
										else
											{	/* Eval/expdargs.scm 471 */
												BFALSE;
											}
									}
								}
								{
									obj_t BgL_l1160z00_4480;

									BgL_l1160z00_4480 = CDR(BgL_l1160z00_3270);
									BgL_l1160z00_3270 = BgL_l1160z00_4480;
									goto BgL_zc3z04anonymousza32108ze3z87_3269;
								}
							}
						else
							{	/* Eval/expdargs.scm 469 */
								((bool_t) 1);
							}
					}
					{
						obj_t BgL_l1164z00_3275;

						BgL_l1164z00_3275 = BgL_descrsz00_3206;
					BgL_zc3z04anonymousza32113ze3z87_3274:
						if (PAIRP(BgL_l1164z00_3275))
							{	/* Eval/expdargs.scm 476 */
								{	/* Eval/expdargs.scm 477 */
									obj_t BgL_optz00_3276;

									BgL_optz00_3276 = CAR(BgL_l1164z00_3275);
									{	/* Eval/expdargs.scm 477 */
										obj_t BgL_namez00_3277;

										BgL_namez00_3277 = CAR(((obj_t) BgL_optz00_3276));
										if (STRINGP(BgL_namez00_3277))
											{	/* Eval/expdargs.scm 480 */
												long BgL_lenz00_3278;

												BgL_lenz00_3278 =
													STRING_LENGTH(((obj_t) BgL_namez00_3277));
												{	/* Eval/expdargs.scm 481 */
													obj_t BgL_descz00_3279;

													BgL_descz00_3279 = CDR(((obj_t) BgL_optz00_3276));
													{	/* Eval/expdargs.scm 482 */
														obj_t BgL_tabz00_3280;

														BgL_tabz00_3280 =
															make_string(
															(BgL_mlenzd2symzd2_3268 - BgL_lenz00_3278),
															((unsigned char) ' '));
														{	/* Eval/expdargs.scm 483 */

															if (CBOOL(BgL_manualzf3zf3_3207))
																{	/* Eval/expdargs.scm 485 */
																	{	/* Eval/expdargs.scm 487 */
																		obj_t BgL_arg2116z00_3281;

																		{	/* Eval/expdargs.scm 487 */
																			obj_t BgL_arg2118z00_3282;

																			BgL_arg2118z00_3282 =
																				MAKE_YOUNG_PAIR(BgL_descz00_3279, BNIL);
																			BgL_arg2116z00_3281 =
																				MAKE_YOUNG_PAIR(BgL_namez00_3277,
																				BgL_arg2118z00_3282);
																		}
																		BGl_writez00zz__r4_output_6_10_3z00
																			(BgL_arg2116z00_3281, BNIL);
																	}
																	{	/* Eval/expdargs.scm 488 */
																		obj_t BgL_arg2119z00_3283;

																		{	/* Eval/expdargs.scm 488 */
																			obj_t BgL_tmpz00_4500;

																			BgL_tmpz00_4500 =
																				BGL_CURRENT_DYNAMIC_ENV();
																			BgL_arg2119z00_3283 =
																				BGL_ENV_CURRENT_OUTPUT_PORT
																				(BgL_tmpz00_4500);
																		}
																		bgl_display_char(((unsigned char) 10),
																			BgL_arg2119z00_3283);
																}}
															else
																{	/* Eval/expdargs.scm 489 */
																	obj_t BgL_port1162z00_3284;

																	{	/* Eval/expdargs.scm 489 */
																		obj_t BgL_tmpz00_4504;

																		BgL_tmpz00_4504 = BGL_CURRENT_DYNAMIC_ENV();
																		BgL_port1162z00_3284 =
																			BGL_ENV_CURRENT_OUTPUT_PORT
																			(BgL_tmpz00_4504);
																	}
																	bgl_display_string
																		(BGl_string2603z00zz__expander_argsz00,
																		BgL_port1162z00_3284);
																	bgl_display_obj(BgL_namez00_3277,
																		BgL_port1162z00_3284);
																	bgl_display_obj(BgL_tabz00_3280,
																		BgL_port1162z00_3284);
																	bgl_display_string
																		(BGl_string2568z00zz__expander_argsz00,
																		BgL_port1162z00_3284);
																	bgl_display_obj(BgL_descz00_3279,
																		BgL_port1162z00_3284);
																	bgl_display_char(((unsigned char) 10),
																		BgL_port1162z00_3284);
											}}}}}
										else
											{	/* Eval/expdargs.scm 479 */
												if (
													(BgL_namez00_3277 ==
														BGl_symbol2564z00zz__expander_argsz00))
													{	/* Eval/expdargs.scm 491 */
														obj_t BgL_port1163z00_3285;

														{	/* Eval/expdargs.scm 491 */
															obj_t BgL_tmpz00_4515;

															BgL_tmpz00_4515 = BGL_CURRENT_DYNAMIC_ENV();
															BgL_port1163z00_3285 =
																BGL_ENV_CURRENT_OUTPUT_PORT(BgL_tmpz00_4515);
														}
														bgl_display_char(((unsigned char) 10),
															BgL_port1163z00_3285);
														{	/* Eval/expdargs.scm 491 */
															obj_t BgL_arg2121z00_3286;

															BgL_arg2121z00_3286 =
																CDR(((obj_t) BgL_optz00_3276));
															bgl_display_obj(BgL_arg2121z00_3286,
																BgL_port1163z00_3285);
														}
														bgl_display_string
															(BGl_string2604z00zz__expander_argsz00,
															BgL_port1163z00_3285);
														bgl_display_char(((unsigned char) 10),
															BgL_port1163z00_3285);
													}
												else
													{	/* Eval/expdargs.scm 490 */
														BFALSE;
													}
											}
									}
								}
								{
									obj_t BgL_l1164z00_4524;

									BgL_l1164z00_4524 = CDR(BgL_l1164z00_3275);
									BgL_l1164z00_3275 = BgL_l1164z00_4524;
									goto BgL_zc3z04anonymousza32113ze3z87_3274;
								}
							}
						else
							{	/* Eval/expdargs.scm 476 */
								((bool_t) 1);
							}
					}
					BGl_symbol2605z00zz__expander_argsz00;
				}
				if (CBOOL(BgL_manualzf3zf3_3207))
					{	/* Eval/expdargs.scm 494 */
						obj_t BgL_port1166z00_3287;

						{	/* Eval/expdargs.scm 494 */
							obj_t BgL_tmpz00_4528;

							BgL_tmpz00_4528 = BGL_CURRENT_DYNAMIC_ENV();
							BgL_port1166z00_3287 =
								BGL_ENV_CURRENT_OUTPUT_PORT(BgL_tmpz00_4528);
						}
						bgl_display_string(BGl_string2607z00zz__expander_argsz00,
							BgL_port1166z00_3287);
						return bgl_display_char(((unsigned char) 10), BgL_port1166z00_3287);
					}
				else
					{	/* Eval/expdargs.scm 494 */
						return BFALSE;
					}
			}
		}

	}



/* object-init */
	obj_t BGl_objectzd2initzd2zz__expander_argsz00(void)
	{
		{	/* Eval/expdargs.scm 19 */
			return BUNSPEC;
		}

	}



/* generic-init */
	obj_t BGl_genericzd2initzd2zz__expander_argsz00(void)
	{
		{	/* Eval/expdargs.scm 19 */
			return BUNSPEC;
		}

	}



/* method-init */
	obj_t BGl_methodzd2initzd2zz__expander_argsz00(void)
	{
		{	/* Eval/expdargs.scm 19 */
			return BUNSPEC;
		}

	}



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

	}

#ifdef __cplusplus
}
#endif
