/*===========================================================================*/
/*   (Eval/expdargs.scm)                                                     */
/*   Bigloo (2.6b)                                                           */
/*   Inria -- Sophia Antipolis (c)       Mon Dec 15 12:14:36 CET 2003        */
/*===========================================================================*/
/* COMPILATION: (/users/serrano/prgm/project/bigloo/bin/bigloo -O4 -mklib -cc gcc-2.95 -fsharing -q -s -copt -DBGL_NO_PIC -unsafe -c Eval/expdargs.scm -indent -o objs/obj_u/Eval/expdargs.c)*/
/* GC selection */
#define THE_GC BOEHM_GC

#include <bigloo.h>
#include <signal.h>

static obj_t BGl_loopz00zz__expander_argsz00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_modulezd2initializa7ationz75zz__expander_argsz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zz__errorz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zz__biglooz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zz__tvectorz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zz__structurez00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zz__bexitz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zz__hashz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zz__match_normaliza7eza7(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zz__r4_numbers_6_5z00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zz__r4_numbers_6_5_fixnumz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zz__r4_numbers_6_5_flonumz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zz__r4_characters_6_6z00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zz__r4_equivalence_6_2z00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zz__r4_booleans_6_1z00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zz__r4_symbols_6_4z00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zz__r4_strings_6_7z00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zz__r4_pairs_and_lists_6_3z00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zz__r4_input_6_10_2z00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zz__r4_control_features_6_9z00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zz__r4_vectors_6_8z00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zz__r4_ports_6_10_1z00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zz__r4_output_6_10_3z00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zz__r5_control_features_6_4z00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zz__prognz00(long, char *);
static obj_t BGl_fetchzd2optionzd2embedzd2argumentzd2zz__expander_argsz00(obj_t);
static obj_t BGl__argszd2parsezd2usagez00zz__expander_argsz00(obj_t, obj_t);
static obj_t BGl_makezd2multiplezd2optzd2parserzd2zz__expander_argsz00(obj_t, obj_t);
extern obj_t BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
extern obj_t make_string(int, unsigned char);
extern obj_t BGl_reversez12z12zz__r4_pairs_and_lists_6_3z00(obj_t);
static obj_t BGl_zc3anonymousza32655ze3z83zz__expander_argsz00(obj_t, obj_t, obj_t);
extern obj_t BGl_hashtablezd2putz12zc0zz__hashz00(obj_t, obj_t, obj_t);
static obj_t BGl_loopz72z72z00zz__expander_argsz00(obj_t, obj_t);
static obj_t BGl_dozd2expandzd2argszd2parsezd2zz__expander_argsz00(obj_t, obj_t);
extern obj_t BGl_writez00zz__r4_output_6_10_3z00(obj_t, obj_t);
extern obj_t BGl_lastzd2pairzd2zz__r4_pairs_and_lists_6_3z00(obj_t);
extern obj_t BGl_hashtablezd2getzd2zz__hashz00(obj_t, obj_t);
static obj_t BGl_cnstzd2initzd2zz__expander_argsz00();
static obj_t BGl_loopz72z72zz__expander_argsz00(obj_t, obj_t);
static bool_t BGl_helpzd2messagezf3z21zz__expander_argsz00(obj_t);
static obj_t BGl_fetchzd2argumentzd2namez00zz__expander_argsz00(obj_t, obj_t);
extern obj_t string_to_symbol(char *);
extern obj_t display_char(obj_t, obj_t);
extern obj_t c_substring(obj_t, int, int);
extern obj_t BGl_mapz00zz__r4_control_features_6_9z00(obj_t, obj_t);
extern obj_t BGl_consza2za2zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
extern obj_t BGl_stringzd2upcasezd2zz__r4_strings_6_7z00(obj_t);
extern obj_t string_append(obj_t, obj_t);
extern obj_t BGl_displayzd22zd2zz__r4_output_6_10_3z00(obj_t, obj_t);
static obj_t BGl_fetchzd2optionzd2argumentsz00zz__expander_argsz00(obj_t);
static obj_t BGl__expandzd2argszd2parsez00zz__expander_argsz00(obj_t, obj_t, obj_t);
extern obj_t BGl_stringzd2appendzd2zz__r4_strings_6_7z00(obj_t);
static obj_t BGl_importedzd2moduleszd2initz00zz__expander_argsz00();
extern obj_t BGl_warningz00zz__errorz00(obj_t);
extern obj_t BGl_makezd2hashtablezd2zz__hashz00(obj_t);
static obj_t BGl_requirezd2initializa7ationz75zz__expander_argsz00 = BUNSPEC;
static obj_t BGl_bindzd2optionz12zc0zz__expander_argsz00(obj_t, obj_t, obj_t);
static obj_t BGl_makezd2helpzd2zz__expander_argsz00(obj_t);
static obj_t BGl_concatz00zz__expander_argsz00(obj_t);
extern obj_t BGl_filterz00zz__r4_control_features_6_9z00(obj_t, obj_t);
static obj_t BGl_makezd2parserzd2zz__expander_argsz00(obj_t, obj_t);
extern bool_t BGl_listzf3zf3zz__r4_pairs_and_lists_6_3z00(obj_t);
static bool_t BGl_synopsiszf3zf3zz__expander_argsz00(obj_t);
static obj_t BGl_zc3anonymousza33234ze3z83zz__expander_argsz00(obj_t, obj_t);
static obj_t BGl_zc3anonymousza31452ze3z83zz__expander_argsz00(obj_t, obj_t);
static obj_t BGl_makezd2synopsiszd2namez00zz__expander_argsz00(obj_t);
static obj_t BGl_symbol4198z00zz__expander_argsz00 = BUNSPEC;
BGL_EXPORTED_DECL obj_t BGl_expandzd2argszd2parsez00zz__expander_argsz00(obj_t, obj_t);
static obj_t BGl_symbol4197z00zz__expander_argsz00 = BUNSPEC;
static obj_t BGl_symbol4202z00zz__expander_argsz00 = BUNSPEC;
static obj_t BGl_symbol4191z00zz__expander_argsz00 = BUNSPEC;
static obj_t BGl_symbol4190z00zz__expander_argsz00 = BUNSPEC;
static obj_t BGl_symbol4189z00zz__expander_argsz00 = BUNSPEC;
static obj_t BGl_symbol4188z00zz__expander_argsz00 = BUNSPEC;
static obj_t BGl_symbol4187z00zz__expander_argsz00 = BUNSPEC;
extern obj_t BGl_bigloozd2typezd2errorz00zz__errorz00(obj_t, obj_t, obj_t);
static obj_t BGl_symbol4186z00zz__expander_argsz00 = BUNSPEC;
static obj_t BGl_symbol4185z00zz__expander_argsz00 = BUNSPEC;
static obj_t BGl_symbol4184z00zz__expander_argsz00 = BUNSPEC;
static obj_t BGl_symbol4181z00zz__expander_argsz00 = BUNSPEC;
static obj_t BGl_symbol4175z00zz__expander_argsz00 = BUNSPEC;
static obj_t BGl_makezd2optzd2parserz00zz__expander_argsz00(obj_t, obj_t);
static obj_t BGl_symbol4173z00zz__expander_argsz00 = BUNSPEC;
static obj_t BGl_symbol4172z00zz__expander_argsz00 = BUNSPEC;
static obj_t BGl_symbol4171z00zz__expander_argsz00 = BUNSPEC;
static obj_t BGl_symbol4170z00zz__expander_argsz00 = BUNSPEC;
static obj_t BGl_symbol4169z00zz__expander_argsz00 = BUNSPEC;
static obj_t BGl_symbol4168z00zz__expander_argsz00 = BUNSPEC;
static obj_t BGl_symbol4167z00zz__expander_argsz00 = BUNSPEC;
static obj_t BGl_symbol4166z00zz__expander_argsz00 = BUNSPEC;
static obj_t BGl_symbol4165z00zz__expander_argsz00 = BUNSPEC;
static obj_t BGl_symbol4164z00zz__expander_argsz00 = BUNSPEC;
static obj_t BGl_symbol4163z00zz__expander_argsz00 = BUNSPEC;
static obj_t BGl_symbol4162z00zz__expander_argsz00 = BUNSPEC;
extern obj_t BGl_gensymz00zz__r4_symbols_6_4z00;
static obj_t BGl_symbol4160z00zz__expander_argsz00 = BUNSPEC;
static obj_t BGl_symbol4159z00zz__expander_argsz00 = BUNSPEC;
static obj_t BGl_symbol4158z00zz__expander_argsz00 = BUNSPEC;
static obj_t BGl_bindzd2optionzd2argumentsz00zz__expander_argsz00(obj_t, obj_t, obj_t, obj_t);
static obj_t BGl_symbol4157z00zz__expander_argsz00 = BUNSPEC;
static obj_t BGl_makezd2simplezd2optzd2parserzd2zz__expander_argsz00(obj_t, obj_t);
static obj_t BGl_symbol4156z00zz__expander_argsz00 = BUNSPEC;
static obj_t BGl_symbol4155z00zz__expander_argsz00 = BUNSPEC;
static obj_t BGl_symbol4154z00zz__expander_argsz00 = BUNSPEC;
static obj_t BGl_symbol4153z00zz__expander_argsz00 = BUNSPEC;
static obj_t BGl_symbol4152z00zz__expander_argsz00 = BUNSPEC;
static obj_t BGl_symbol4151z00zz__expander_argsz00 = BUNSPEC;
static obj_t BGl_symbol4150z00zz__expander_argsz00 = BUNSPEC;
static obj_t BGl_symbol4146z00zz__expander_argsz00 = BUNSPEC;
static obj_t BGl_symbol4145z00zz__expander_argsz00 = BUNSPEC;
static obj_t BGl_symbol4144z00zz__expander_argsz00 = BUNSPEC;
static obj_t BGl_symbol4143z00zz__expander_argsz00 = BUNSPEC;
static obj_t BGl_symbol4142z00zz__expander_argsz00 = BUNSPEC;
static obj_t BGl_symbol4141z00zz__expander_argsz00 = BUNSPEC;
static obj_t BGl_symbol4140z00zz__expander_argsz00 = BUNSPEC;
static obj_t BGl_symbol4139z00zz__expander_argsz00 = BUNSPEC;
BGL_EXPORTED_DECL obj_t BGl_argszd2parsezd2usagez00zz__expander_argsz00(obj_t);
static obj_t BGl_symbol4138z00zz__expander_argsz00 = BUNSPEC;
static obj_t BGl_symbol4137z00zz__expander_argsz00 = BUNSPEC;
extern obj_t display_string(obj_t, obj_t);
extern obj_t string_append_3(obj_t, obj_t, obj_t);
static obj_t *__cnst;


DEFINE_STRING( BGl_string4147z00zz__expander_argsz00, BgL_bgl_string4147za700za7za7__expander_argsza7004209z00, "see -help", 9 );
DEFINE_STRING( BGl_string4136z00zz__expander_argsz00, BgL_bgl_string4136za700za7za7__expander_argsza7004210z00, "Illegal syntax", 14 );
DEFINE_STRING( BGl_string4135z00zz__expander_argsz00, BgL_bgl_string4135za700za7za7__expander_argsza7004211z00, "args-parse", 10 );
DEFINE_EXPORT_PROCEDURE( BGl_argszd2parsezd2usagezd2envzd2zz__expander_argsz00, BgL_bgl__argsza7d2parseza7d2usageza700za7za7__expander_argsza7004212z00, BGl__argszd2parsezd2usagez00zz__expander_argsz00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_expandzd2argszd2parsezd2envzd2zz__expander_argsz00, BgL_bgl__expandza7d2argsza7d2parseza700za7za7__expander_argsza7004213z00, BGl__expandzd2argszd2parsez00zz__expander_argsz00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc4149z00zz__expander_argsz00, BgL_bgl_za7c3anonymousza7a31452za7e3za783za7za7__expander_argsza7004214za7, BGl_zc3anonymousza31452ze3z83zz__expander_argsz00, 0L, 1 );
extern obj_t BGl_pairzf3zd2envz21zz__r4_pairs_and_lists_6_3z00;
DEFINE_STRING( BGl_string4199z00zz__expander_argsz00, BgL_bgl_string4199za700za7za7__expander_argsza7004215z00, "(", 1 );
DEFINE_STRING( BGl_string4196z00zz__expander_argsz00, BgL_bgl_string4196za700za7za7__expander_argsza7004216z00, "Illegal option argument", 23 );
DEFINE_STRING( BGl_string4195z00zz__expander_argsz00, BgL_bgl_string4195za700za7za7__expander_argsza7004217z00, "'", 1 );
DEFINE_STRING( BGl_string4194z00zz__expander_argsz00, BgL_bgl_string4194za700za7za7__expander_argsza7004218z00, "Illegal option argument `", 25 );
DEFINE_STRING( BGl_string4203z00zz__expander_argsz00, BgL_bgl_string4203za700za7za7__expander_argsza7004219z00, ")", 1 );
DEFINE_STRING( BGl_string4193z00zz__expander_argsz00, BgL_bgl_string4193za700za7za7__expander_argsza7004220z00, "missing argument", 16 );
DEFINE_STRING( BGl_string4192z00zz__expander_argsz00, BgL_bgl_string4192za700za7za7__expander_argsza7004221z00, "procedure", 9 );
DEFINE_STRING( BGl_string4201z00zz__expander_argsz00, BgL_bgl_string4201za700za7za7__expander_argsza7004222z00, ":", 1 );
DEFINE_STRING( BGl_string4200z00zz__expander_argsz00, BgL_bgl_string4200za700za7za7__expander_argsza7004223z00, "   ", 3 );
DEFINE_STRING( BGl_string4183z00zz__expander_argsz00, BgL_bgl_string4183za700za7za7__expander_argsza7004224z00, " -- Option overridden:", 22 );
DEFINE_STRING( BGl_string4182z00zz__expander_argsz00, BgL_bgl_string4182za700za7za7__expander_argsza7004225z00, "  ", 2 );
DEFINE_STRING( BGl_string4180z00zz__expander_argsz00, BgL_bgl_string4180za700za7za7__expander_argsza7004226z00, ",", 1 );
DEFINE_STRING( BGl_string4179z00zz__expander_argsz00, BgL_bgl_string4179za700za7za7__expander_argsza7004227z00, "", 0 );
DEFINE_STRING( BGl_string4178z00zz__expander_argsz00, BgL_bgl_string4178za700za7za7__expander_argsza7004228z00, "Illegal options", 15 );
DEFINE_STRING( BGl_string4177z00zz__expander_argsz00, BgL_bgl_string4177za700za7za7__expander_argsza7004229z00, " ", 1 );
DEFINE_STRING( BGl_string4176z00zz__expander_argsz00, BgL_bgl_string4176za700za7za7__expander_argsza7004230z00, "Illegal clause", 14 );
DEFINE_STRING( BGl_string4174z00zz__expander_argsz00, BgL_bgl_string4174za700za7za7__expander_argsza7004231z00, "Illegal help message", 20 );
DEFINE_STRING( BGl_string4161z00zz__expander_argsz00, BgL_bgl_string4161za700za7za7__expander_argsza7004232z00, "Illegal argument list", 21 );
DEFINE_STRING( BGl_string4148z00zz__expander_argsz00, BgL_bgl_string4148za700za7za7__expander_argsza7004233z00, "Illegal option", 14 );



/* module-initialization */
BGL_EXPORTED_DEF obj_t BGl_modulezd2initializa7ationz75zz__expander_argsz00(long BgL_checksumz00_2319, char * BgL_fromz00_2320)
{ AN_OBJECT;
{ 
if(
CBOOL(BGl_requirezd2initializa7ationz75zz__expander_argsz00))
{ 
BGl_requirezd2initializa7ationz75zz__expander_argsz00 = 
BBOOL(((bool_t)0)); 
BGl_cnstzd2initzd2zz__expander_argsz00(); 
BGl_importedzd2moduleszd2initz00zz__expander_argsz00(); 
return BUNSPEC;}  else 
{ 
return BUNSPEC;} } 
}



/* cnst-init */
obj_t BGl_cnstzd2initzd2zz__expander_argsz00()
{ AN_OBJECT;
{ /* ./Eval/expdargs.scm 19 */
BGl_symbol4137z00zz__expander_argsz00 = 
string_to_symbol("lambda"); 
BGl_symbol4138z00zz__expander_argsz00 = 
string_to_symbol("a"); 
BGl_symbol4139z00zz__expander_argsz00 = 
string_to_symbol("v"); 
BGl_symbol4140z00zz__expander_argsz00 = 
string_to_symbol("if"); 
BGl_symbol4141z00zz__expander_argsz00 = 
string_to_symbol("null?"); 
BGl_symbol4142z00zz__expander_argsz00 = 
string_to_symbol("values"); 
BGl_symbol4143z00zz__expander_argsz00 = 
string_to_symbol("quote"); 
BGl_symbol4144z00zz__expander_argsz00 = 
string_to_symbol("end"); 
BGl_symbol4145z00zz__expander_argsz00 = 
string_to_symbol("error"); 
BGl_symbol4146z00zz__expander_argsz00 = 
string_to_symbol("car"); 
BGl_symbol4150z00zz__expander_argsz00 = 
string_to_symbol("let*"); 
BGl_symbol4151z00zz__expander_argsz00 = 
string_to_symbol("args-parse-usage"); 
BGl_symbol4152z00zz__expander_argsz00 = 
string_to_symbol("p*"); 
BGl_symbol4153z00zz__expander_argsz00 = 
string_to_symbol("list"); 
BGl_symbol4154z00zz__expander_argsz00 = 
string_to_symbol("a*"); 
BGl_symbol4155z00zz__expander_argsz00 = 
string_to_symbol("set!"); 
BGl_symbol4156z00zz__expander_argsz00 = 
string_to_symbol("cons"); 
BGl_symbol4157z00zz__expander_argsz00 = 
string_to_symbol("cond"); 
BGl_symbol4158z00zz__expander_argsz00 = 
string_to_symbol("not"); 
BGl_symbol4159z00zz__expander_argsz00 = 
string_to_symbol("pair?"); 
BGl_symbol4160z00zz__expander_argsz00 = 
string_to_symbol("args-parse"); 
BGl_symbol4162z00zz__expander_argsz00 = 
string_to_symbol("else"); 
BGl_symbol4163z00zz__expander_argsz00 = 
string_to_symbol("let"); 
BGl_symbol4164z00zz__expander_argsz00 = 
string_to_symbol("loop"); 
BGl_symbol4165z00zz__expander_argsz00 = 
string_to_symbol("liip"); 
BGl_symbol4166z00zz__expander_argsz00 = 
string_to_symbol("multiple-value-bind"); 
BGl_symbol4167z00zz__expander_argsz00 = 
string_to_symbol("action"); 
BGl_symbol4168z00zz__expander_argsz00 = 
string_to_symbol("na*"); 
BGl_symbol4169z00zz__expander_argsz00 = 
string_to_symbol("nv"); 
BGl_symbol4170z00zz__expander_argsz00 = 
string_to_symbol("case"); 
BGl_symbol4171z00zz__expander_argsz00 = 
string_to_symbol("next"); 
BGl_symbol4172z00zz__expander_argsz00 = 
string_to_symbol("fail"); 
BGl_symbol4173z00zz__expander_argsz00 = 
string_to_symbol("cdr"); 
BGl_symbol4175z00zz__expander_argsz00 = 
string_to_symbol("section"); 
BGl_symbol4181z00zz__expander_argsz00 = 
string_to_symbol("begin"); 
BGl_symbol4184z00zz__expander_argsz00 = 
string_to_symbol("and"); 
BGl_symbol4185z00zz__expander_argsz00 = 
string_to_symbol("substring=?"); 
BGl_symbol4186z00zz__expander_argsz00 = 
string_to_symbol("substring"); 
BGl_symbol4187z00zz__expander_argsz00 = 
string_to_symbol("string-length"); 
BGl_symbol4188z00zz__expander_argsz00 = 
string_to_symbol("the-remaining-args"); 
BGl_symbol4189z00zz__expander_argsz00 = 
string_to_symbol("string=?"); 
BGl_symbol4190z00zz__expander_argsz00 = 
string_to_symbol("or"); 
BGl_symbol4191z00zz__expander_argsz00 = 
string_to_symbol("<anonymous:2655>"); 
BGl_symbol4197z00zz__expander_argsz00 = 
string_to_symbol("help"); 
BGl_symbol4198z00zz__expander_argsz00 = 
string_to_symbol("synopsis"); 
return ( 
BGl_symbol4202z00zz__expander_argsz00 = 
string_to_symbol("usage-done"), BUNSPEC) ;} 
}



/* expand-args-parse */
BGL_EXPORTED_DEF obj_t BGl_expandzd2argszd2parsez00zz__expander_argsz00(obj_t BgL_xz00_4, obj_t BgL_ez00_5)
{ AN_OBJECT;
{ /* ./Eval/expdargs.scm 72 */
if(
PAIRP(BgL_xz00_4))
{ /* ./Eval/expdargs.scm 73 */
obj_t BgL_cdrzd2105zd2_412;
BgL_cdrzd2105zd2_412 = 
CDR(BgL_xz00_4); 
if(
PAIRP(BgL_cdrzd2105zd2_412))
{ /* ./Eval/expdargs.scm 73 */
bool_t BgL_testz00_2377;
{ /* ./Eval/expdargs.scm 73 */
obj_t BgL_auxz00_2378;
BgL_auxz00_2378 = 
CDR(BgL_cdrzd2105zd2_412); 
BgL_testz00_2377 = 
PAIRP(BgL_auxz00_2378); } 
if(BgL_testz00_2377)
{ /* ./Eval/expdargs.scm 73 */
obj_t BgL_arg1076z00_1655;
BgL_arg1076z00_1655 = 
BGl_dozd2expandzd2argszd2parsezd2zz__expander_argsz00(BgL_xz00_4, BgL_ez00_5); 
return 
PROCEDURE_ENTRY(BgL_ez00_5)(BgL_ez00_5, BgL_arg1076z00_1655, BgL_ez00_5, BEOA);}  else 
{ /* ./Eval/expdargs.scm 73 */
FAILURE(BGl_string4135z00zz__expander_argsz00,BGl_string4136z00zz__expander_argsz00,BgL_xz00_4);} }  else 
{ /* ./Eval/expdargs.scm 73 */
FAILURE(BGl_string4135z00zz__expander_argsz00,BGl_string4136z00zz__expander_argsz00,BgL_xz00_4);} }  else 
{ /* ./Eval/expdargs.scm 73 */
FAILURE(BGl_string4135z00zz__expander_argsz00,BGl_string4136z00zz__expander_argsz00,BgL_xz00_4);} } 
}



/* _expand-args-parse */
obj_t BGl__expandzd2argszd2parsez00zz__expander_argsz00(obj_t BgL_envz00_2293, obj_t BgL_xz00_2294, obj_t BgL_ez00_2295)
{ AN_OBJECT;
{ /* ./Eval/expdargs.scm 72 */
return 
BGl_expandzd2argszd2parsez00zz__expander_argsz00(BgL_xz00_2294, BgL_ez00_2295);} 
}



/* do-expand-args-parse */
obj_t BGl_dozd2expandzd2argszd2parsezd2zz__expander_argsz00(obj_t BgL_xz00_6, obj_t BgL_ez00_7)
{ AN_OBJECT;
{ /* ./Eval/expdargs.scm 82 */
{ /* ./Eval/expdargs.scm 83 */
obj_t BgL_expz00_417;
{ /* ./Eval/expdargs.scm 83 */
obj_t BgL_auxz00_2388;
BgL_auxz00_2388 = 
CDR(BgL_xz00_6); 
BgL_expz00_417 = 
CAR(BgL_auxz00_2388); } 
{ /* ./Eval/expdargs.scm 83 */
obj_t BgL_clausesz00_418;
{ /* ./Eval/expdargs.scm 84 */
obj_t BgL_auxz00_2391;
BgL_auxz00_2391 = 
CDR(BgL_xz00_6); 
BgL_clausesz00_418 = 
CDR(BgL_auxz00_2391); } 
{ /* ./Eval/expdargs.scm 84 */
obj_t BgL_otablez00_419;
{ /* ./Eval/expdargs.scm 85 */
obj_t BgL_list1577z00_654;
{ /* ./Eval/expdargs.scm 85 */
obj_t BgL_auxz00_2394;
BgL_auxz00_2394 = 
BINT(((long)20)); 
BgL_list1577z00_654 = 
MAKE_PAIR(BgL_auxz00_2394, BNIL); } 
BgL_otablez00_419 = 
BGl_makezd2hashtablezd2zz__hashz00(BgL_list1577z00_654); } 
{ /* ./Eval/expdargs.scm 85 */
obj_t BgL_parsersz00_420;
if(
NULLP(BgL_clausesz00_418))
{ /* ./Eval/expdargs.scm 86 */
BgL_parsersz00_420 = BNIL; }  else 
{ /* ./Eval/expdargs.scm 86 */
obj_t BgL_head1005z00_644;
BgL_head1005z00_644 = 
MAKE_PAIR(BNIL, BNIL); 
{ 
obj_t BgL_l1003z00_1685;obj_t BgL_tail1006z00_1686;
BgL_l1003z00_1685 = BgL_clausesz00_418; 
BgL_tail1006z00_1686 = BgL_head1005z00_644; 
BgL_map1004z00_1684:
if(
NULLP(BgL_l1003z00_1685))
{ /* ./Eval/expdargs.scm 86 */
BgL_parsersz00_420 = 
CDR(BgL_head1005z00_644); }  else 
{ /* ./Eval/expdargs.scm 86 */
obj_t BgL_newtail1007z00_1694;
{ /* ./Eval/expdargs.scm 86 */
obj_t BgL_auxz00_2404;
BgL_auxz00_2404 = 
BGl_makezd2parserzd2zz__expander_argsz00(
CAR(BgL_l1003z00_1685), BgL_otablez00_419); 
BgL_newtail1007z00_1694 = 
MAKE_PAIR(BgL_auxz00_2404, BNIL); } 
SET_CDR(BgL_tail1006z00_1686, BgL_newtail1007z00_1694); 
{ 
obj_t BgL_tail1006z00_2411;obj_t BgL_l1003z00_2409;
BgL_l1003z00_2409 = 
CDR(BgL_l1003z00_1685); 
BgL_tail1006z00_2411 = BgL_newtail1007z00_1694; 
BgL_tail1006z00_1686 = BgL_tail1006z00_2411; 
BgL_l1003z00_1685 = BgL_l1003z00_2409; 
goto BgL_map1004z00_1684;} } } } 
{ /* ./Eval/expdargs.scm 86 */
obj_t BgL_lastzd2parserzd2_421;
{ /* ./Eval/expdargs.scm 87 */
obj_t BgL_arg1483z00_608;obj_t BgL_arg1484z00_609;
BgL_arg1483z00_608 = BGl_symbol4137z00zz__expander_argsz00; 
{ /* ./Eval/expdargs.scm 87 */
obj_t BgL_arg1487z00_610;obj_t BgL_arg1488z00_611;
{ /* ./Eval/expdargs.scm 87 */
obj_t BgL_arg1491z00_612;obj_t BgL_arg1492z00_613;
BgL_arg1491z00_612 = BGl_symbol4138z00zz__expander_argsz00; 
BgL_arg1492z00_613 = 
MAKE_PAIR(BGl_symbol4139z00zz__expander_argsz00, BNIL); 
BgL_arg1487z00_610 = 
MAKE_PAIR(BgL_arg1491z00_612, BgL_arg1492z00_613); } 
{ /* ./Eval/expdargs.scm 88 */
obj_t BgL_arg1496z00_614;
{ /* ./Eval/expdargs.scm 88 */
obj_t BgL_arg1500z00_616;obj_t BgL_arg1501z00_617;
BgL_arg1500z00_616 = BGl_symbol4140z00zz__expander_argsz00; 
{ /* ./Eval/expdargs.scm 88 */
obj_t BgL_arg1504z00_618;obj_t BgL_arg1505z00_619;
{ /* ./Eval/expdargs.scm 88 */
obj_t BgL_arg1508z00_620;obj_t BgL_arg1509z00_621;
BgL_arg1508z00_620 = BGl_symbol4141z00zz__expander_argsz00; 
BgL_arg1509z00_621 = 
MAKE_PAIR(BGl_symbol4138z00zz__expander_argsz00, BNIL); 
BgL_arg1504z00_618 = 
MAKE_PAIR(BgL_arg1508z00_620, BgL_arg1509z00_621); } 
{ /* ./Eval/expdargs.scm 89 */
obj_t BgL_arg1513z00_622;obj_t BgL_arg1514z00_623;
{ /* ./Eval/expdargs.scm 89 */
obj_t BgL_arg1518z00_624;obj_t BgL_arg1519z00_625;
BgL_arg1518z00_624 = BGl_symbol4142z00zz__expander_argsz00; 
{ /* ./Eval/expdargs.scm 89 */
obj_t BgL_arg1522z00_626;obj_t BgL_arg1524z00_627;
{ /* ./Eval/expdargs.scm 89 */
obj_t BgL_arg1527z00_628;obj_t BgL_arg1528z00_629;
BgL_arg1527z00_628 = BGl_symbol4143z00zz__expander_argsz00; 
BgL_arg1528z00_629 = 
MAKE_PAIR(BGl_symbol4144z00zz__expander_argsz00, BNIL); 
BgL_arg1522z00_626 = 
MAKE_PAIR(BgL_arg1527z00_628, BgL_arg1528z00_629); } 
{ /* ./Eval/expdargs.scm 89 */
obj_t BgL_arg1532z00_630;obj_t BgL_arg1533z00_631;
BgL_arg1532z00_630 = BGl_symbol4138z00zz__expander_argsz00; 
BgL_arg1533z00_631 = 
MAKE_PAIR(BGl_symbol4139z00zz__expander_argsz00, BNIL); 
BgL_arg1524z00_627 = 
MAKE_PAIR(BgL_arg1532z00_630, BgL_arg1533z00_631); } 
BgL_arg1519z00_625 = 
MAKE_PAIR(BgL_arg1522z00_626, BgL_arg1524z00_627); } 
BgL_arg1513z00_622 = 
MAKE_PAIR(BgL_arg1518z00_624, BgL_arg1519z00_625); } 
{ /* ./Eval/expdargs.scm 90 */
obj_t BgL_arg1537z00_632;
{ /* ./Eval/expdargs.scm 90 */
obj_t BgL_arg1541z00_634;obj_t BgL_arg1542z00_635;
BgL_arg1541z00_634 = BGl_symbol4145z00zz__expander_argsz00; 
{ /* ./Eval/expdargs.scm 90 */
obj_t BgL_arg1545z00_636;obj_t BgL_arg1546z00_637;
{ /* ./Eval/expdargs.scm 90 */
obj_t BgL_arg1549z00_638;obj_t BgL_arg1550z00_639;
BgL_arg1549z00_638 = BGl_symbol4146z00zz__expander_argsz00; 
BgL_arg1550z00_639 = 
MAKE_PAIR(BGl_symbol4138z00zz__expander_argsz00, BNIL); 
BgL_arg1545z00_636 = 
MAKE_PAIR(BgL_arg1549z00_638, BgL_arg1550z00_639); } 
{ /* ./Eval/expdargs.scm 90 */
obj_t BgL_arg1555z00_641;
BgL_arg1555z00_641 = 
MAKE_PAIR(BGl_string4147z00zz__expander_argsz00, BNIL); 
BgL_arg1546z00_637 = 
MAKE_PAIR(BGl_string4148z00zz__expander_argsz00, BgL_arg1555z00_641); } 
BgL_arg1542z00_635 = 
MAKE_PAIR(BgL_arg1545z00_636, BgL_arg1546z00_637); } 
BgL_arg1537z00_632 = 
MAKE_PAIR(BgL_arg1541z00_634, BgL_arg1542z00_635); } 
BgL_arg1514z00_623 = 
MAKE_PAIR(BgL_arg1537z00_632, BNIL); } 
BgL_arg1505z00_619 = 
MAKE_PAIR(BgL_arg1513z00_622, BgL_arg1514z00_623); } 
BgL_arg1501z00_617 = 
MAKE_PAIR(BgL_arg1504z00_618, BgL_arg1505z00_619); } 
BgL_arg1496z00_614 = 
MAKE_PAIR(BgL_arg1500z00_616, BgL_arg1501z00_617); } 
BgL_arg1488z00_611 = 
MAKE_PAIR(BgL_arg1496z00_614, BNIL); } 
BgL_arg1484z00_609 = 
MAKE_PAIR(BgL_arg1487z00_610, BgL_arg1488z00_611); } 
BgL_lastzd2parserzd2_421 = 
MAKE_PAIR(BgL_arg1483z00_608, BgL_arg1484z00_609); } 
{ /* ./Eval/expdargs.scm 87 */
obj_t BgL_descrsz00_422;
{ /* ./Eval/expdargs.scm 91 */
obj_t BgL_arg1450z00_588;
if(
NULLP(BgL_clausesz00_418))
{ /* ./Eval/expdargs.scm 92 */
BgL_arg1450z00_588 = BNIL; }  else 
{ /* ./Eval/expdargs.scm 92 */
obj_t BgL_head1010z00_593;
{ /* ./Eval/expdargs.scm 92 */
obj_t BgL_auxz00_2437;
BgL_auxz00_2437 = 
BGl_makezd2helpzd2zz__expander_argsz00(
CAR(BgL_clausesz00_418)); 
BgL_head1010z00_593 = 
MAKE_PAIR(BgL_auxz00_2437, BNIL); } 
{ /* ./Eval/expdargs.scm 92 */
obj_t BgL_arg1455z00_597;
BgL_arg1455z00_597 = 
CDR(BgL_clausesz00_418); 
{ 
obj_t BgL_l1008z00_1743;obj_t BgL_tail1011z00_1744;
BgL_l1008z00_1743 = BgL_arg1455z00_597; 
BgL_tail1011z00_1744 = BgL_head1010z00_593; 
BgL_map1009z00_1742:
if(
NULLP(BgL_l1008z00_1743))
{ /* ./Eval/expdargs.scm 92 */
BgL_arg1450z00_588 = BgL_head1010z00_593; }  else 
{ /* ./Eval/expdargs.scm 92 */
obj_t BgL_newtail1012z00_1752;
{ /* ./Eval/expdargs.scm 92 */
obj_t BgL_auxz00_2444;
BgL_auxz00_2444 = 
BGl_makezd2helpzd2zz__expander_argsz00(
CAR(BgL_l1008z00_1743)); 
BgL_newtail1012z00_1752 = 
MAKE_PAIR(BgL_auxz00_2444, BNIL); } 
SET_CDR(BgL_tail1011z00_1744, BgL_newtail1012z00_1752); 
{ 
obj_t BgL_tail1011z00_2451;obj_t BgL_l1008z00_2449;
BgL_l1008z00_2449 = 
CDR(BgL_l1008z00_1743); 
BgL_tail1011z00_2451 = BgL_newtail1012z00_1752; 
BgL_tail1011z00_1744 = BgL_tail1011z00_2451; 
BgL_l1008z00_1743 = BgL_l1008z00_2449; 
goto BgL_map1009z00_1742;} } } } } 
BgL_descrsz00_422 = 
BGl_filterz00zz__r4_control_features_6_9z00(BGl_proc4149z00zz__expander_argsz00, BgL_arg1450z00_588); } 
{ /* ./Eval/expdargs.scm 91 */

{ /* ./Eval/expdargs.scm 93 */
obj_t BgL_arg1081z00_423;obj_t BgL_arg1083z00_424;
BgL_arg1081z00_423 = BGl_symbol4150z00zz__expander_argsz00; 
{ /* ./Eval/expdargs.scm 93 */
obj_t BgL_arg1086z00_425;obj_t BgL_arg1087z00_426;
{ /* ./Eval/expdargs.scm 93 */
obj_t BgL_arg1090z00_427;obj_t BgL_arg1091z00_428;
{ /* ./Eval/expdargs.scm 93 */
obj_t BgL_arg1094z00_429;obj_t BgL_arg1095z00_430;
BgL_arg1094z00_429 = BGl_symbol4151z00zz__expander_argsz00; 
{ /* ./Eval/expdargs.scm 93 */
obj_t BgL_arg1098z00_431;
{ /* ./Eval/expdargs.scm 93 */
obj_t BgL_arg1102z00_433;obj_t BgL_arg1103z00_434;
BgL_arg1102z00_433 = BGl_symbol4151z00zz__expander_argsz00; 
{ /* ./Eval/expdargs.scm 93 */
obj_t BgL_arg1106z00_435;
{ /* ./Eval/expdargs.scm 93 */
obj_t BgL_arg1110z00_437;obj_t BgL_arg1111z00_438;
BgL_arg1110z00_437 = BGl_symbol4143z00zz__expander_argsz00; 
BgL_arg1111z00_438 = 
MAKE_PAIR(BgL_descrsz00_422, BNIL); 
BgL_arg1106z00_435 = 
MAKE_PAIR(BgL_arg1110z00_437, BgL_arg1111z00_438); } 
BgL_arg1103z00_434 = 
MAKE_PAIR(BgL_arg1106z00_435, BNIL); } 
BgL_arg1098z00_431 = 
MAKE_PAIR(BgL_arg1102z00_433, BgL_arg1103z00_434); } 
BgL_arg1095z00_430 = 
MAKE_PAIR(BgL_arg1098z00_431, BNIL); } 
BgL_arg1090z00_427 = 
MAKE_PAIR(BgL_arg1094z00_429, BgL_arg1095z00_430); } 
{ /* ./Eval/expdargs.scm 94 */
obj_t BgL_arg1115z00_439;obj_t BgL_arg1117z00_440;
{ /* ./Eval/expdargs.scm 94 */
obj_t BgL_arg1120z00_441;obj_t BgL_arg1121z00_442;
BgL_arg1120z00_441 = BGl_symbol4152z00zz__expander_argsz00; 
{ /* ./Eval/expdargs.scm 94 */
obj_t BgL_arg1124z00_443;
{ /* ./Eval/expdargs.scm 94 */
obj_t BgL_arg1128z00_445;obj_t BgL_arg1130z00_446;
BgL_arg1128z00_445 = BGl_symbol4153z00zz__expander_argsz00; 
BgL_arg1130z00_446 = 
MAKE_PAIR(BgL_lastzd2parserzd2_421, BNIL); 
BgL_arg1124z00_443 = 
MAKE_PAIR(BgL_arg1128z00_445, BgL_arg1130z00_446); } 
BgL_arg1121z00_442 = 
MAKE_PAIR(BgL_arg1124z00_443, BNIL); } 
BgL_arg1115z00_439 = 
MAKE_PAIR(BgL_arg1120z00_441, BgL_arg1121z00_442); } 
{ /* ./Eval/expdargs.scm 95 */
obj_t BgL_arg1134z00_447;
{ /* ./Eval/expdargs.scm 95 */
obj_t BgL_arg1138z00_449;obj_t BgL_arg1140z00_450;
BgL_arg1138z00_449 = BGl_symbol4154z00zz__expander_argsz00; 
BgL_arg1140z00_450 = 
MAKE_PAIR(BgL_expz00_417, BNIL); 
BgL_arg1134z00_447 = 
MAKE_PAIR(BgL_arg1138z00_449, BgL_arg1140z00_450); } 
BgL_arg1117z00_440 = 
MAKE_PAIR(BgL_arg1134z00_447, BNIL); } 
BgL_arg1091z00_428 = 
MAKE_PAIR(BgL_arg1115z00_439, BgL_arg1117z00_440); } 
BgL_arg1086z00_425 = 
MAKE_PAIR(BgL_arg1090z00_427, BgL_arg1091z00_428); } 
{ /* ./Eval/expdargs.scm 96 */
obj_t BgL_arg1144z00_451;obj_t BgL_arg1146z00_452;
{ /* ./Eval/expdargs.scm 96 */
obj_t BgL_l1013z00_453;
BgL_l1013z00_453 = 
BGl_reversez12z12zz__r4_pairs_and_lists_6_3z00(
BGl_filterz00zz__r4_control_features_6_9z00(BGl_pairzf3zd2envz21zz__r4_pairs_and_lists_6_3z00, BgL_parsersz00_420)); 
if(
NULLP(BgL_l1013z00_453))
{ /* ./Eval/expdargs.scm 96 */
BgL_arg1144z00_451 = BNIL; }  else 
{ /* ./Eval/expdargs.scm 96 */
obj_t BgL_head1015z00_455;
BgL_head1015z00_455 = 
MAKE_PAIR(BNIL, BNIL); 
{ 
obj_t BgL_l1013z00_456;obj_t BgL_tail1016z00_457;
BgL_l1013z00_456 = BgL_l1013z00_453; 
BgL_tail1016z00_457 = BgL_head1015z00_455; 
BgL_map1014z00_458:
if(
NULLP(BgL_l1013z00_456))
{ /* ./Eval/expdargs.scm 96 */
BgL_arg1144z00_451 = 
CDR(BgL_head1015z00_455); }  else 
{ /* ./Eval/expdargs.scm 96 */
obj_t BgL_newtail1017z00_460;
{ /* ./Eval/expdargs.scm 96 */
obj_t BgL_arg1158z00_462;
{ /* ./Eval/expdargs.scm 96 */
obj_t BgL_pz00_464;
BgL_pz00_464 = 
CAR(BgL_l1013z00_456); 
{ /* ./Eval/expdargs.scm 96 */
obj_t BgL_arg1163z00_465;obj_t BgL_arg1164z00_466;
BgL_arg1163z00_465 = BGl_symbol4155z00zz__expander_argsz00; 
{ /* ./Eval/expdargs.scm 96 */
obj_t BgL_arg1169z00_467;obj_t BgL_arg1171z00_468;
BgL_arg1169z00_467 = BGl_symbol4152z00zz__expander_argsz00; 
{ /* ./Eval/expdargs.scm 96 */
obj_t BgL_arg1174z00_469;
{ /* ./Eval/expdargs.scm 96 */
obj_t BgL_arg1178z00_471;obj_t BgL_arg1179z00_472;
BgL_arg1178z00_471 = BGl_symbol4156z00zz__expander_argsz00; 
{ /* ./Eval/expdargs.scm 96 */
obj_t BgL_arg1182z00_473;
BgL_arg1182z00_473 = 
MAKE_PAIR(BGl_symbol4152z00zz__expander_argsz00, BNIL); 
BgL_arg1179z00_472 = 
MAKE_PAIR(BgL_pz00_464, BgL_arg1182z00_473); } 
BgL_arg1174z00_469 = 
MAKE_PAIR(BgL_arg1178z00_471, BgL_arg1179z00_472); } 
BgL_arg1171z00_468 = 
MAKE_PAIR(BgL_arg1174z00_469, BNIL); } 
BgL_arg1164z00_466 = 
MAKE_PAIR(BgL_arg1169z00_467, BgL_arg1171z00_468); } 
BgL_arg1158z00_462 = 
MAKE_PAIR(BgL_arg1163z00_465, BgL_arg1164z00_466); } } 
BgL_newtail1017z00_460 = 
MAKE_PAIR(BgL_arg1158z00_462, BNIL); } 
SET_CDR(BgL_tail1016z00_457, BgL_newtail1017z00_460); 
{ 
obj_t BgL_tail1016z00_2487;obj_t BgL_l1013z00_2485;
BgL_l1013z00_2485 = 
CDR(BgL_l1013z00_456); 
BgL_tail1016z00_2487 = BgL_newtail1017z00_460; 
BgL_tail1016z00_457 = BgL_tail1016z00_2487; 
BgL_l1013z00_456 = BgL_l1013z00_2485; 
goto BgL_map1014z00_458;} } } } } 
{ /* ./Eval/expdargs.scm 98 */
obj_t BgL_arg1194z00_475;
{ /* ./Eval/expdargs.scm 98 */
obj_t BgL_arg1198z00_477;obj_t BgL_arg1199z00_478;
BgL_arg1198z00_477 = BGl_symbol4157z00zz__expander_argsz00; 
{ /* ./Eval/expdargs.scm 99 */
obj_t BgL_arg1202z00_479;obj_t BgL_arg1203z00_480;
{ /* ./Eval/expdargs.scm 99 */
obj_t BgL_arg1206z00_481;obj_t BgL_arg1207z00_482;
{ /* ./Eval/expdargs.scm 99 */
obj_t BgL_arg1210z00_483;obj_t BgL_arg1211z00_484;
BgL_arg1210z00_483 = BGl_symbol4141z00zz__expander_argsz00; 
BgL_arg1211z00_484 = 
MAKE_PAIR(BGl_symbol4154z00zz__expander_argsz00, BNIL); 
BgL_arg1206z00_481 = 
MAKE_PAIR(BgL_arg1210z00_483, BgL_arg1211z00_484); } 
BgL_arg1207z00_482 = 
MAKE_PAIR(BUNSPEC, BNIL); 
BgL_arg1202z00_479 = 
MAKE_PAIR(BgL_arg1206z00_481, BgL_arg1207z00_482); } 
{ /* ./Eval/expdargs.scm 101 */
obj_t BgL_arg1216z00_485;obj_t BgL_arg1217z00_486;
{ /* ./Eval/expdargs.scm 101 */
obj_t BgL_arg1220z00_487;obj_t BgL_arg1221z00_488;
{ /* ./Eval/expdargs.scm 101 */
obj_t BgL_arg1224z00_489;obj_t BgL_arg1225z00_490;
BgL_arg1224z00_489 = BGl_symbol4158z00zz__expander_argsz00; 
{ /* ./Eval/expdargs.scm 101 */
obj_t BgL_arg1228z00_491;
{ /* ./Eval/expdargs.scm 101 */
obj_t BgL_arg1233z00_493;obj_t BgL_arg1234z00_494;
BgL_arg1233z00_493 = BGl_symbol4159z00zz__expander_argsz00; 
BgL_arg1234z00_494 = 
MAKE_PAIR(BGl_symbol4154z00zz__expander_argsz00, BNIL); 
BgL_arg1228z00_491 = 
MAKE_PAIR(BgL_arg1233z00_493, BgL_arg1234z00_494); } 
BgL_arg1225z00_490 = 
MAKE_PAIR(BgL_arg1228z00_491, BNIL); } 
BgL_arg1220z00_487 = 
MAKE_PAIR(BgL_arg1224z00_489, BgL_arg1225z00_490); } 
{ /* ./Eval/expdargs.scm 102 */
obj_t BgL_arg1238z00_495;
{ /* ./Eval/expdargs.scm 102 */
obj_t BgL_arg1243z00_497;obj_t BgL_arg1244z00_498;
BgL_arg1243z00_497 = BGl_symbol4145z00zz__expander_argsz00; 
{ /* ./Eval/expdargs.scm 102 */
obj_t BgL_arg1249z00_499;obj_t BgL_arg1250z00_500;
{ /* ./Eval/expdargs.scm 102 */
obj_t BgL_arg1254z00_501;obj_t BgL_arg1255z00_502;
BgL_arg1254z00_501 = BGl_symbol4143z00zz__expander_argsz00; 
BgL_arg1255z00_502 = 
MAKE_PAIR(BGl_symbol4160z00zz__expander_argsz00, BNIL); 
BgL_arg1249z00_499 = 
MAKE_PAIR(BgL_arg1254z00_501, BgL_arg1255z00_502); } 
{ /* ./Eval/expdargs.scm 102 */
obj_t BgL_arg1260z00_504;
BgL_arg1260z00_504 = 
MAKE_PAIR(BGl_symbol4154z00zz__expander_argsz00, BNIL); 
BgL_arg1250z00_500 = 
MAKE_PAIR(BGl_string4161z00zz__expander_argsz00, BgL_arg1260z00_504); } 
BgL_arg1244z00_498 = 
MAKE_PAIR(BgL_arg1249z00_499, BgL_arg1250z00_500); } 
BgL_arg1238z00_495 = 
MAKE_PAIR(BgL_arg1243z00_497, BgL_arg1244z00_498); } 
BgL_arg1221z00_488 = 
MAKE_PAIR(BgL_arg1238z00_495, BNIL); } 
BgL_arg1216z00_485 = 
MAKE_PAIR(BgL_arg1220z00_487, BgL_arg1221z00_488); } 
{ /* ./Eval/expdargs.scm 103 */
obj_t BgL_arg1265z00_505;
{ /* ./Eval/expdargs.scm 103 */
obj_t BgL_arg1269z00_507;obj_t BgL_arg1270z00_508;
BgL_arg1269z00_507 = BGl_symbol4162z00zz__expander_argsz00; 
{ /* ./Eval/expdargs.scm 104 */
obj_t BgL_arg1273z00_509;
{ /* ./Eval/expdargs.scm 104 */
obj_t BgL_arg1277z00_511;obj_t BgL_arg1278z00_512;
BgL_arg1277z00_511 = BGl_symbol4163z00zz__expander_argsz00; 
{ /* ./Eval/expdargs.scm 104 */
obj_t BgL_arg1281z00_513;obj_t BgL_arg1282z00_514;
BgL_arg1281z00_513 = BGl_symbol4164z00zz__expander_argsz00; 
{ /* ./Eval/expdargs.scm 104 */
obj_t BgL_arg1285z00_515;obj_t BgL_arg1286z00_516;
{ /* ./Eval/expdargs.scm 104 */
obj_t BgL_arg1289z00_517;obj_t BgL_arg1290z00_518;
{ /* ./Eval/expdargs.scm 104 */
obj_t BgL_arg1293z00_519;obj_t BgL_arg1294z00_520;
BgL_arg1293z00_519 = BGl_symbol4154z00zz__expander_argsz00; 
BgL_arg1294z00_520 = 
MAKE_PAIR(BGl_symbol4154z00zz__expander_argsz00, BNIL); 
BgL_arg1289z00_517 = 
MAKE_PAIR(BgL_arg1293z00_519, BgL_arg1294z00_520); } 
{ /* ./Eval/expdargs.scm 105 */
obj_t BgL_arg1298z00_521;
{ /* ./Eval/expdargs.scm 105 */
obj_t BgL_arg1302z00_523;obj_t BgL_arg1303z00_524;
BgL_arg1302z00_523 = BGl_symbol4139z00zz__expander_argsz00; 
BgL_arg1303z00_524 = 
MAKE_PAIR(BFALSE, BNIL); 
BgL_arg1298z00_521 = 
MAKE_PAIR(BgL_arg1302z00_523, BgL_arg1303z00_524); } 
BgL_arg1290z00_518 = 
MAKE_PAIR(BgL_arg1298z00_521, BNIL); } 
BgL_arg1285z00_515 = 
MAKE_PAIR(BgL_arg1289z00_517, BgL_arg1290z00_518); } 
{ /* ./Eval/expdargs.scm 106 */
obj_t BgL_arg1307z00_525;
{ /* ./Eval/expdargs.scm 106 */
obj_t BgL_arg1311z00_527;obj_t BgL_arg1312z00_528;
BgL_arg1311z00_527 = BGl_symbol4163z00zz__expander_argsz00; 
{ /* ./Eval/expdargs.scm 106 */
obj_t BgL_arg1315z00_529;obj_t BgL_arg1316z00_530;
BgL_arg1315z00_529 = BGl_symbol4165z00zz__expander_argsz00; 
{ /* ./Eval/expdargs.scm 106 */
obj_t BgL_arg1319z00_531;obj_t BgL_arg1320z00_532;
{ /* ./Eval/expdargs.scm 106 */
obj_t BgL_arg1323z00_533;
{ /* ./Eval/expdargs.scm 106 */
obj_t BgL_arg1327z00_535;obj_t BgL_arg1328z00_536;
BgL_arg1327z00_535 = BGl_symbol4152z00zz__expander_argsz00; 
BgL_arg1328z00_536 = 
MAKE_PAIR(BGl_symbol4152z00zz__expander_argsz00, BNIL); 
BgL_arg1323z00_533 = 
MAKE_PAIR(BgL_arg1327z00_535, BgL_arg1328z00_536); } 
BgL_arg1319z00_531 = 
MAKE_PAIR(BgL_arg1323z00_533, BNIL); } 
{ /* ./Eval/expdargs.scm 107 */
obj_t BgL_arg1332z00_537;
{ /* ./Eval/expdargs.scm 107 */
obj_t BgL_arg1336z00_539;obj_t BgL_arg1337z00_540;
BgL_arg1336z00_539 = BGl_symbol4166z00zz__expander_argsz00; 
{ /* ./Eval/expdargs.scm 107 */
obj_t BgL_arg1340z00_541;obj_t BgL_arg1341z00_542;
{ /* ./Eval/expdargs.scm 107 */
obj_t BgL_arg1344z00_543;obj_t BgL_arg1345z00_544;
BgL_arg1344z00_543 = BGl_symbol4167z00zz__expander_argsz00; 
{ /* ./Eval/expdargs.scm 107 */
obj_t BgL_arg1348z00_545;obj_t BgL_arg1349z00_546;
BgL_arg1348z00_545 = BGl_symbol4168z00zz__expander_argsz00; 
BgL_arg1349z00_546 = 
MAKE_PAIR(BGl_symbol4169z00zz__expander_argsz00, BNIL); 
BgL_arg1345z00_544 = 
MAKE_PAIR(BgL_arg1348z00_545, BgL_arg1349z00_546); } 
BgL_arg1340z00_541 = 
MAKE_PAIR(BgL_arg1344z00_543, BgL_arg1345z00_544); } 
{ /* ./Eval/expdargs.scm 108 */
obj_t BgL_arg1354z00_547;obj_t BgL_arg1355z00_548;
{ /* ./Eval/expdargs.scm 108 */
obj_t BgL_arg1358z00_549;obj_t BgL_arg1359z00_550;
{ /* ./Eval/expdargs.scm 108 */
obj_t BgL_arg1362z00_551;obj_t BgL_arg1363z00_552;
BgL_arg1362z00_551 = BGl_symbol4146z00zz__expander_argsz00; 
BgL_arg1363z00_552 = 
MAKE_PAIR(BGl_symbol4152z00zz__expander_argsz00, BNIL); 
BgL_arg1358z00_549 = 
MAKE_PAIR(BgL_arg1362z00_551, BgL_arg1363z00_552); } 
{ /* ./Eval/expdargs.scm 108 */
obj_t BgL_arg1368z00_553;obj_t BgL_arg1370z00_554;
BgL_arg1368z00_553 = BGl_symbol4154z00zz__expander_argsz00; 
BgL_arg1370z00_554 = 
MAKE_PAIR(BGl_symbol4139z00zz__expander_argsz00, BNIL); 
BgL_arg1359z00_550 = 
MAKE_PAIR(BgL_arg1368z00_553, BgL_arg1370z00_554); } 
BgL_arg1354z00_547 = 
MAKE_PAIR(BgL_arg1358z00_549, BgL_arg1359z00_550); } 
{ /* ./Eval/expdargs.scm 109 */
obj_t BgL_arg1374z00_555;
{ /* ./Eval/expdargs.scm 109 */
obj_t BgL_arg1378z00_557;obj_t BgL_arg1380z00_558;
BgL_arg1378z00_557 = BGl_symbol4170z00zz__expander_argsz00; 
{ /* ./Eval/expdargs.scm 109 */
obj_t BgL_arg1383z00_559;obj_t BgL_arg1384z00_560;
BgL_arg1383z00_559 = BGl_symbol4167z00zz__expander_argsz00; 
{ /* ./Eval/expdargs.scm 110 */
obj_t BgL_arg1387z00_561;obj_t BgL_arg1388z00_562;
{ /* ./Eval/expdargs.scm 110 */
obj_t BgL_arg1392z00_563;obj_t BgL_arg1393z00_564;
BgL_arg1392z00_563 = 
MAKE_PAIR(BGl_symbol4171z00zz__expander_argsz00, BNIL); 
{ /* ./Eval/expdargs.scm 111 */
obj_t BgL_arg1397z00_565;
{ /* ./Eval/expdargs.scm 111 */
obj_t BgL_arg1401z00_567;obj_t BgL_arg1402z00_568;
BgL_arg1401z00_567 = BGl_symbol4164z00zz__expander_argsz00; 
{ /* ./Eval/expdargs.scm 111 */
obj_t BgL_arg1406z00_569;obj_t BgL_arg1407z00_570;
BgL_arg1406z00_569 = BGl_symbol4168z00zz__expander_argsz00; 
BgL_arg1407z00_570 = 
MAKE_PAIR(BGl_symbol4169z00zz__expander_argsz00, BNIL); 
BgL_arg1402z00_568 = 
MAKE_PAIR(BgL_arg1406z00_569, BgL_arg1407z00_570); } 
BgL_arg1397z00_565 = 
MAKE_PAIR(BgL_arg1401z00_567, BgL_arg1402z00_568); } 
BgL_arg1393z00_564 = 
MAKE_PAIR(BgL_arg1397z00_565, BNIL); } 
BgL_arg1387z00_561 = 
MAKE_PAIR(BgL_arg1392z00_563, BgL_arg1393z00_564); } 
{ /* ./Eval/expdargs.scm 112 */
obj_t BgL_arg1412z00_571;obj_t BgL_arg1413z00_572;
{ /* ./Eval/expdargs.scm 112 */
obj_t BgL_arg1416z00_573;obj_t BgL_arg1417z00_574;
BgL_arg1416z00_573 = 
MAKE_PAIR(BGl_symbol4172z00zz__expander_argsz00, BNIL); 
{ /* ./Eval/expdargs.scm 113 */
obj_t BgL_arg1421z00_575;
{ /* ./Eval/expdargs.scm 113 */
obj_t BgL_arg1425z00_577;obj_t BgL_arg1426z00_578;
BgL_arg1425z00_577 = BGl_symbol4165z00zz__expander_argsz00; 
{ /* ./Eval/expdargs.scm 113 */
obj_t BgL_arg1429z00_579;
{ /* ./Eval/expdargs.scm 113 */
obj_t BgL_arg1433z00_581;obj_t BgL_arg1434z00_582;
BgL_arg1433z00_581 = BGl_symbol4173z00zz__expander_argsz00; 
BgL_arg1434z00_582 = 
MAKE_PAIR(BGl_symbol4152z00zz__expander_argsz00, BNIL); 
BgL_arg1429z00_579 = 
MAKE_PAIR(BgL_arg1433z00_581, BgL_arg1434z00_582); } 
BgL_arg1426z00_578 = 
MAKE_PAIR(BgL_arg1429z00_579, BNIL); } 
BgL_arg1421z00_575 = 
MAKE_PAIR(BgL_arg1425z00_577, BgL_arg1426z00_578); } 
BgL_arg1417z00_574 = 
MAKE_PAIR(BgL_arg1421z00_575, BNIL); } 
BgL_arg1412z00_571 = 
MAKE_PAIR(BgL_arg1416z00_573, BgL_arg1417z00_574); } 
{ /* ./Eval/expdargs.scm 114 */
obj_t BgL_arg1438z00_583;
{ /* ./Eval/expdargs.scm 114 */
obj_t BgL_arg1442z00_585;obj_t BgL_arg1444z00_586;
BgL_arg1442z00_585 = 
MAKE_PAIR(BGl_symbol4144z00zz__expander_argsz00, BNIL); 
BgL_arg1444z00_586 = 
MAKE_PAIR(BGl_symbol4169z00zz__expander_argsz00, BNIL); 
BgL_arg1438z00_583 = 
MAKE_PAIR(BgL_arg1442z00_585, BgL_arg1444z00_586); } 
BgL_arg1413z00_572 = 
MAKE_PAIR(BgL_arg1438z00_583, BNIL); } 
BgL_arg1388z00_562 = 
MAKE_PAIR(BgL_arg1412z00_571, BgL_arg1413z00_572); } 
BgL_arg1384z00_560 = 
MAKE_PAIR(BgL_arg1387z00_561, BgL_arg1388z00_562); } 
BgL_arg1380z00_558 = 
MAKE_PAIR(BgL_arg1383z00_559, BgL_arg1384z00_560); } 
BgL_arg1374z00_555 = 
MAKE_PAIR(BgL_arg1378z00_557, BgL_arg1380z00_558); } 
BgL_arg1355z00_548 = 
MAKE_PAIR(BgL_arg1374z00_555, BNIL); } 
BgL_arg1341z00_542 = 
MAKE_PAIR(BgL_arg1354z00_547, BgL_arg1355z00_548); } 
BgL_arg1337z00_540 = 
MAKE_PAIR(BgL_arg1340z00_541, BgL_arg1341z00_542); } 
BgL_arg1332z00_537 = 
MAKE_PAIR(BgL_arg1336z00_539, BgL_arg1337z00_540); } 
BgL_arg1320z00_532 = 
MAKE_PAIR(BgL_arg1332z00_537, BNIL); } 
BgL_arg1316z00_530 = 
MAKE_PAIR(BgL_arg1319z00_531, BgL_arg1320z00_532); } 
BgL_arg1312z00_528 = 
MAKE_PAIR(BgL_arg1315z00_529, BgL_arg1316z00_530); } 
BgL_arg1307z00_525 = 
MAKE_PAIR(BgL_arg1311z00_527, BgL_arg1312z00_528); } 
BgL_arg1286z00_516 = 
MAKE_PAIR(BgL_arg1307z00_525, BNIL); } 
BgL_arg1282z00_514 = 
MAKE_PAIR(BgL_arg1285z00_515, BgL_arg1286z00_516); } 
BgL_arg1278z00_512 = 
MAKE_PAIR(BgL_arg1281z00_513, BgL_arg1282z00_514); } 
BgL_arg1273z00_509 = 
MAKE_PAIR(BgL_arg1277z00_511, BgL_arg1278z00_512); } 
BgL_arg1270z00_508 = 
MAKE_PAIR(BgL_arg1273z00_509, BNIL); } 
BgL_arg1265z00_505 = 
MAKE_PAIR(BgL_arg1269z00_507, BgL_arg1270z00_508); } 
BgL_arg1217z00_486 = 
MAKE_PAIR(BgL_arg1265z00_505, BNIL); } 
BgL_arg1203z00_480 = 
MAKE_PAIR(BgL_arg1216z00_485, BgL_arg1217z00_486); } 
BgL_arg1199z00_478 = 
MAKE_PAIR(BgL_arg1202z00_479, BgL_arg1203z00_480); } 
BgL_arg1194z00_475 = 
MAKE_PAIR(BgL_arg1198z00_477, BgL_arg1199z00_478); } 
BgL_arg1146z00_452 = 
MAKE_PAIR(BgL_arg1194z00_475, BNIL); } 
BgL_arg1087z00_426 = 
BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(BgL_arg1144z00_451, BgL_arg1146z00_452); } 
BgL_arg1083z00_424 = 
MAKE_PAIR(BgL_arg1086z00_425, BgL_arg1087z00_426); } 
return 
MAKE_PAIR(BgL_arg1081z00_423, BgL_arg1083z00_424);} } } } } } } } } 
}



/* <anonymous:1452> */
obj_t BGl_zc3anonymousza31452ze3z83zz__expander_argsz00(obj_t BgL_envz00_2297, obj_t BgL_xz00_2298)
{ AN_OBJECT;
{ /* ./Eval/expdargs.scm 91 */
return BgL_xz00_2298;} 
}



/* make-help */
obj_t BGl_makezd2helpzd2zz__expander_argsz00(obj_t BgL_clausez00_8)
{ AN_OBJECT;
{ /* ./Eval/expdargs.scm 120 */
{ 
obj_t BgL_optz00_660;
if(
PAIRP(BgL_clausez00_8))
{ /* ./Eval/expdargs.scm 121 */
obj_t BgL_cdrzd2121zd2_665;
BgL_cdrzd2121zd2_665 = 
CDR(BgL_clausez00_8); 
{ /* ./Eval/expdargs.scm 121 */
bool_t BgL_testz00_2567;
{ /* ./Eval/expdargs.scm 121 */
obj_t BgL_auxz00_2568;
BgL_auxz00_2568 = 
CAR(BgL_clausez00_8); 
BgL_testz00_2567 = 
(BgL_auxz00_2568==BGl_symbol4175z00zz__expander_argsz00); } 
if(BgL_testz00_2567)
{ /* ./Eval/expdargs.scm 121 */
if(
PAIRP(BgL_cdrzd2121zd2_665))
{ /* ./Eval/expdargs.scm 121 */
bool_t BgL_testz00_2573;
{ /* ./Eval/expdargs.scm 121 */
obj_t BgL_auxz00_2574;
BgL_auxz00_2574 = 
CDR(BgL_cdrzd2121zd2_665); 
BgL_testz00_2573 = 
NULLP(BgL_auxz00_2574); } 
if(BgL_testz00_2573)
{ /* ./Eval/expdargs.scm 121 */
obj_t BgL_arg1586z00_669;
BgL_arg1586z00_669 = 
CAR(BgL_cdrzd2121zd2_665); 
return 
MAKE_PAIR(BGl_symbol4175z00zz__expander_argsz00, BgL_arg1586z00_669);}  else 
{ /* ./Eval/expdargs.scm 121 */
obj_t BgL_carzd2129zd2_670;
BgL_carzd2129zd2_670 = 
CAR(BgL_clausez00_8); 
if(
PAIRP(BgL_carzd2129zd2_670))
{ /* ./Eval/expdargs.scm 121 */
bool_t BgL_testz00_2582;
{ /* ./Eval/expdargs.scm 121 */
obj_t BgL_auxz00_2583;
BgL_auxz00_2583 = 
CDR(BgL_carzd2129zd2_670); 
BgL_testz00_2582 = 
NULLP(BgL_auxz00_2583); } 
if(BgL_testz00_2582)
{ /* ./Eval/expdargs.scm 121 */
return BFALSE;}  else 
{ /* ./Eval/expdargs.scm 121 */
BgL_optz00_660 = BgL_carzd2129zd2_670; 
BgL_tagzd2114zd2_661:
{ /* ./Eval/expdargs.scm 131 */
obj_t BgL_synz00_696;
{ /* ./Eval/expdargs.scm 131 */
obj_t BgL_auxz00_2586;
BgL_auxz00_2586 = 
BGl_lastzd2pairzd2zz__r4_pairs_and_lists_6_3z00(BgL_optz00_660); 
BgL_synz00_696 = 
CAR(BgL_auxz00_2586); } 
if(
PAIRP(BgL_synz00_696))
{ /* ./Eval/expdargs.scm 132 */
obj_t BgL_cdrzd2197zd2_707;
BgL_cdrzd2197zd2_707 = 
CDR(BgL_synz00_696); 
if(
PAIRP(BgL_cdrzd2197zd2_707))
{ /* ./Eval/expdargs.scm 132 */
obj_t BgL_cdrzd2202zd2_709;
BgL_cdrzd2202zd2_709 = 
CDR(BgL_cdrzd2197zd2_707); 
if(
PAIRP(BgL_cdrzd2202zd2_709))
{ /* ./Eval/expdargs.scm 132 */
bool_t BgL_testz00_2597;
{ /* ./Eval/expdargs.scm 132 */
obj_t BgL_auxz00_2598;
BgL_auxz00_2598 = 
CDR(BgL_cdrzd2202zd2_709); 
BgL_testz00_2597 = 
NULLP(BgL_auxz00_2598); } 
if(BgL_testz00_2597)
{ /* ./Eval/expdargs.scm 132 */
obj_t BgL_arg1672z00_712;obj_t BgL_arg1673z00_713;obj_t BgL_arg1674z00_714;
BgL_arg1672z00_712 = 
CAR(BgL_synz00_696); 
BgL_arg1673z00_713 = 
CAR(BgL_cdrzd2197zd2_707); 
BgL_arg1674z00_714 = 
CAR(BgL_cdrzd2202zd2_709); 
if(
BGl_synopsiszf3zf3zz__expander_argsz00(BgL_arg1672z00_712))
{ /* ./Eval/expdargs.scm 132 */
return 
MAKE_PAIR(BgL_arg1673z00_713, BgL_arg1674z00_714);}  else 
{ /* ./Eval/expdargs.scm 132 */
FAILURE(BGl_string4135z00zz__expander_argsz00,BGl_string4174z00zz__expander_argsz00,BgL_clausez00_8);} }  else 
{ /* ./Eval/expdargs.scm 132 */
return BFALSE;} }  else 
{ /* ./Eval/expdargs.scm 132 */
bool_t BgL_testz00_2608;
{ /* ./Eval/expdargs.scm 132 */
obj_t BgL_auxz00_2609;
BgL_auxz00_2609 = 
CDR(BgL_cdrzd2197zd2_707); 
BgL_testz00_2608 = 
NULLP(BgL_auxz00_2609); } 
if(BgL_testz00_2608)
{ /* ./Eval/expdargs.scm 132 */
obj_t BgL_arg1686z00_718;obj_t BgL_arg1687z00_719;
BgL_arg1686z00_718 = 
CAR(BgL_synz00_696); 
BgL_arg1687z00_719 = 
CAR(BgL_cdrzd2197zd2_707); 
if(
BGl_synopsiszf3zf3zz__expander_argsz00(BgL_arg1686z00_718))
{ /* ./Eval/expdargs.scm 132 */
obj_t BgL_auxz00_2616;
BgL_auxz00_2616 = 
BGl_makezd2synopsiszd2namez00zz__expander_argsz00(BgL_clausez00_8); 
return 
MAKE_PAIR(BgL_auxz00_2616, BgL_arg1687z00_719);}  else 
{ /* ./Eval/expdargs.scm 132 */
FAILURE(BGl_string4135z00zz__expander_argsz00,BGl_string4174z00zz__expander_argsz00,BgL_clausez00_8);} }  else 
{ /* ./Eval/expdargs.scm 132 */
return BFALSE;} } }  else 
{ /* ./Eval/expdargs.scm 132 */
return BFALSE;} }  else 
{ /* ./Eval/expdargs.scm 132 */
return BFALSE;} } } }  else 
{ 
obj_t BgL_optz00_2620;
BgL_optz00_2620 = BgL_carzd2129zd2_670; 
BgL_optz00_660 = BgL_optz00_2620; 
goto BgL_tagzd2114zd2_661;} } }  else 
{ /* ./Eval/expdargs.scm 121 */
obj_t BgL_carzd2146zd2_677;
BgL_carzd2146zd2_677 = 
CAR(BgL_clausez00_8); 
if(
PAIRP(BgL_carzd2146zd2_677))
{ /* ./Eval/expdargs.scm 121 */
bool_t BgL_testz00_2624;
{ /* ./Eval/expdargs.scm 121 */
obj_t BgL_auxz00_2625;
BgL_auxz00_2625 = 
CDR(BgL_carzd2146zd2_677); 
BgL_testz00_2624 = 
NULLP(BgL_auxz00_2625); } 
if(BgL_testz00_2624)
{ /* ./Eval/expdargs.scm 121 */
return BFALSE;}  else 
{ 
obj_t BgL_optz00_2628;
BgL_optz00_2628 = BgL_carzd2146zd2_677; 
BgL_optz00_660 = BgL_optz00_2628; 
goto BgL_tagzd2114zd2_661;} }  else 
{ 
obj_t BgL_optz00_2629;
BgL_optz00_2629 = BgL_carzd2146zd2_677; 
BgL_optz00_660 = BgL_optz00_2629; 
goto BgL_tagzd2114zd2_661;} } }  else 
{ /* ./Eval/expdargs.scm 121 */
bool_t BgL_testz00_2630;
{ /* ./Eval/expdargs.scm 121 */
obj_t BgL_auxz00_2631;
BgL_auxz00_2631 = 
CAR(BgL_clausez00_8); 
BgL_testz00_2630 = 
NULLP(BgL_auxz00_2631); } 
if(BgL_testz00_2630)
{ /* ./Eval/expdargs.scm 121 */
return BFALSE;}  else 
{ /* ./Eval/expdargs.scm 121 */
bool_t BgL_testz00_2634;
{ /* ./Eval/expdargs.scm 121 */
obj_t BgL_auxz00_2635;
BgL_auxz00_2635 = 
CAR(BgL_clausez00_8); 
BgL_testz00_2634 = 
(BgL_auxz00_2635==BGl_symbol4162z00zz__expander_argsz00); } 
if(BgL_testz00_2634)
{ /* ./Eval/expdargs.scm 121 */
return BFALSE;}  else 
{ /* ./Eval/expdargs.scm 121 */
obj_t BgL_carzd2167zd2_685;
BgL_carzd2167zd2_685 = 
CAR(BgL_clausez00_8); 
if(
PAIRP(BgL_carzd2167zd2_685))
{ /* ./Eval/expdargs.scm 121 */
bool_t BgL_testz00_2641;
{ /* ./Eval/expdargs.scm 121 */
obj_t BgL_auxz00_2642;
BgL_auxz00_2642 = 
CDR(BgL_carzd2167zd2_685); 
BgL_testz00_2641 = 
NULLP(BgL_auxz00_2642); } 
if(BgL_testz00_2641)
{ /* ./Eval/expdargs.scm 121 */
return BFALSE;}  else 
{ 
obj_t BgL_optz00_2645;
BgL_optz00_2645 = BgL_carzd2167zd2_685; 
BgL_optz00_660 = BgL_optz00_2645; 
goto BgL_tagzd2114zd2_661;} }  else 
{ 
obj_t BgL_optz00_2646;
BgL_optz00_2646 = BgL_carzd2167zd2_685; 
BgL_optz00_660 = BgL_optz00_2646; 
goto BgL_tagzd2114zd2_661;} } } } } }  else 
{ /* ./Eval/expdargs.scm 121 */
return BFALSE;} } } 
}



/* make-synopsis-name */
obj_t BGl_makezd2synopsiszd2namez00zz__expander_argsz00(obj_t BgL_clausez00_10)
{ AN_OBJECT;
{ /* ./Eval/expdargs.scm 155 */
{ 
obj_t BgL_optz00_739;obj_t BgL_ozb2zb2_740;obj_t BgL_argsz00_741;obj_t BgL_optz00_807;obj_t BgL_oz00_808;obj_t BgL_argsz00_809;
{ /* ./Eval/expdargs.scm 213 */
obj_t BgL_optz00_727;
BgL_optz00_727 = 
CAR(BgL_clausez00_10); 
{ /* ./Eval/expdargs.scm 213 */
obj_t BgL_oz00_728;
BgL_oz00_728 = 
CAR(BgL_optz00_727); 
{ /* ./Eval/expdargs.scm 214 */
obj_t BgL_argsz00_729;
BgL_argsz00_729 = 
BGl_fetchzd2optionzd2argumentsz00zz__expander_argsz00(BgL_optz00_727); 
{ /* ./Eval/expdargs.scm 215 */

if(
STRINGP(BgL_oz00_728))
{ /* ./Eval/expdargs.scm 217 */
BgL_optz00_807 = BgL_optz00_727; 
BgL_oz00_808 = BgL_oz00_728; 
BgL_argsz00_809 = BgL_argsz00_729; 
{ /* ./Eval/expdargs.scm 157 */
obj_t BgL_oidz00_811;
BgL_oidz00_811 = 
BGl_fetchzd2optionzd2embedzd2argumentzd2zz__expander_argsz00(BgL_oz00_808); 
{ /* ./Eval/expdargs.scm 160 */
obj_t BgL_aidz00_812;
{ /* ./Eval/expdargs.scm 160 */
int BgL_auxz00_2653;
BgL_auxz00_2653 = 
(int)(((long)1)); 
BgL_aidz00_812 = 
BGL_MVALUES_VAL(BgL_auxz00_2653); } 
{ /* ./Eval/expdargs.scm 160 */
bool_t BgL_test1859z00_813;
if(
CBOOL(BgL_aidz00_812))
{ /* ./Eval/expdargs.scm 160 */
BgL_test1859z00_813 = 
PAIRP(BgL_argsz00_809); }  else 
{ /* ./Eval/expdargs.scm 160 */
BgL_test1859z00_813 = ((bool_t)0); } 
if(BgL_test1859z00_813)
{ /* ./Eval/expdargs.scm 160 */
FAILURE(BGl_string4135z00zz__expander_argsz00,BGl_string4176z00zz__expander_argsz00,BgL_clausez00_10);}  else 
{ /* ./Eval/expdargs.scm 162 */
bool_t BgL_test1861z00_814;
if(
CBOOL(BgL_aidz00_812))
{ /* ./Eval/expdargs.scm 162 */
BgL_test1861z00_814 = ((bool_t)1); }  else 
{ /* ./Eval/expdargs.scm 162 */
BgL_test1861z00_814 = 
PAIRP(BgL_argsz00_809); } 
if(BgL_test1861z00_814)
{ /* ./Eval/expdargs.scm 162 */
if(
CBOOL(BgL_aidz00_812))
{ /* ./Eval/expdargs.scm 164 */
{ /* ./Eval/expdargs.scm 165 */
obj_t BgL_auxz00_2667;
BgL_auxz00_2667 = 
BGl_stringzd2upcasezd2zz__r4_strings_6_7z00(BgL_aidz00_812); 
return 
string_append(BgL_oidz00_811, BgL_auxz00_2667);} }  else 
{ /* ./Eval/expdargs.scm 164 */
{ /* ./Eval/expdargs.scm 167 */
obj_t BgL_auxz00_2670;
BgL_auxz00_2670 = 
BGl_loopz72z72z00zz__expander_argsz00(BgL_clausez00_10, BgL_argsz00_809); 
return 
string_append(BgL_oidz00_811, BgL_auxz00_2670);} } }  else 
{ /* ./Eval/expdargs.scm 162 */
return BgL_oidz00_811;} } } } } }  else 
{ /* ./Eval/expdargs.scm 219 */
bool_t BgL_test1722z00_731;
if(
BGl_listzf3zf3zz__r4_pairs_and_lists_6_3z00(BgL_oz00_728))
{ 
obj_t BgL_l1028z00_733;
BgL_l1028z00_733 = BgL_oz00_728; 
BgL_every1029z00_734:
if(
NULLP(BgL_l1028z00_733))
{ /* ./Eval/expdargs.scm 219 */
BgL_test1722z00_731 = ((bool_t)1); }  else 
{ /* ./Eval/expdargs.scm 219 */
bool_t BgL_testz00_2677;
{ /* ./Eval/expdargs.scm 219 */
obj_t BgL_auxz00_2678;
BgL_auxz00_2678 = 
CAR(BgL_l1028z00_733); 
BgL_testz00_2677 = 
STRINGP(BgL_auxz00_2678); } 
if(BgL_testz00_2677)
{ /* ./Eval/expdargs.scm 219 */
{ 
obj_t BgL_l1028z00_2681;
BgL_l1028z00_2681 = 
CDR(BgL_l1028z00_733); 
BgL_l1028z00_733 = BgL_l1028z00_2681; 
goto BgL_every1029z00_734;} }  else 
{ /* ./Eval/expdargs.scm 219 */
BgL_test1722z00_731 = ((bool_t)0); } } }  else 
{ /* ./Eval/expdargs.scm 219 */
BgL_test1722z00_731 = ((bool_t)0); } 
if(BgL_test1722z00_731)
{ /* ./Eval/expdargs.scm 219 */
BgL_optz00_739 = BgL_optz00_727; 
BgL_ozb2zb2_740 = BgL_oz00_728; 
BgL_argsz00_741 = BgL_argsz00_729; 
{ /* ./Eval/expdargs.scm 183 */
obj_t BgL_oidzb2zb2_744;
{ 
obj_t BgL_ozb2zb2_785;obj_t BgL_oidzb2zb2_786;obj_t BgL_aidzb2zb2_787;
BgL_ozb2zb2_785 = BgL_ozb2zb2_740; 
BgL_oidzb2zb2_786 = BNIL; 
BgL_aidzb2zb2_787 = BNIL; 
BgL_loopz00_788:
if(
NULLP(BgL_ozb2zb2_785))
{ /* ./Eval/expdargs.scm 188 */
obj_t BgL_val0_1018z00_790;obj_t BgL_val1_1019z00_791;
BgL_val0_1018z00_790 = 
BGl_reversez12z12zz__r4_pairs_and_lists_6_3z00(BgL_oidzb2zb2_786); 
BgL_val1_1019z00_791 = 
BGl_reversez12z12zz__r4_pairs_and_lists_6_3z00(BgL_aidzb2zb2_787); 
{ /* ./Eval/expdargs.scm 188 */
int BgL_auxz00_2688;
BgL_auxz00_2688 = 
(int)(((long)2)); 
BGL_MVALUES_NUMBER_SET(BgL_auxz00_2688); } 
{ /* ./Eval/expdargs.scm 188 */
int BgL_auxz00_2691;
BgL_auxz00_2691 = 
(int)(((long)1)); 
BGL_MVALUES_VAL_SET(BgL_auxz00_2691, BgL_val1_1019z00_791); } 
BgL_oidzb2zb2_744 = BgL_val0_1018z00_790; }  else 
{ /* ./Eval/expdargs.scm 189 */
obj_t BgL_oidz00_792;
BgL_oidz00_792 = 
BGl_fetchzd2optionzd2embedzd2argumentzd2zz__expander_argsz00(
CAR(BgL_ozb2zb2_785)); 
{ /* ./Eval/expdargs.scm 190 */
obj_t BgL_aidz00_793;
{ /* ./Eval/expdargs.scm 191 */
int BgL_auxz00_2696;
BgL_auxz00_2696 = 
(int)(((long)1)); 
BgL_aidz00_793 = 
BGL_MVALUES_VAL(BgL_auxz00_2696); } 
{ /* ./Eval/expdargs.scm 191 */
obj_t BgL_arg1826z00_794;obj_t BgL_arg1827z00_795;obj_t BgL_arg1829z00_796;
BgL_arg1826z00_794 = 
CDR(BgL_ozb2zb2_785); 
BgL_arg1827z00_795 = 
MAKE_PAIR(BgL_oidz00_792, BgL_oidzb2zb2_786); 
BgL_arg1829z00_796 = 
MAKE_PAIR(BgL_aidz00_793, BgL_aidzb2zb2_787); 
{ 
obj_t BgL_aidzb2zb2_2704;obj_t BgL_oidzb2zb2_2703;obj_t BgL_ozb2zb2_2702;
BgL_ozb2zb2_2702 = BgL_arg1826z00_794; 
BgL_oidzb2zb2_2703 = BgL_arg1827z00_795; 
BgL_aidzb2zb2_2704 = BgL_arg1829z00_796; 
BgL_aidzb2zb2_787 = BgL_aidzb2zb2_2704; 
BgL_oidzb2zb2_786 = BgL_oidzb2zb2_2703; 
BgL_ozb2zb2_785 = BgL_ozb2zb2_2702; 
goto BgL_loopz00_788;} } } } } 
{ /* ./Eval/expdargs.scm 193 */
obj_t BgL_aidzb2zb2_745;
{ /* ./Eval/expdargs.scm 193 */
int BgL_auxz00_2705;
BgL_auxz00_2705 = 
(int)(((long)1)); 
BgL_aidzb2zb2_745 = 
BGL_MVALUES_VAL(BgL_auxz00_2705); } 
{ /* ./Eval/expdargs.scm 193 */
bool_t BgL_test1745z00_746;
if(
PAIRP(BgL_aidzb2zb2_745))
{ 
obj_t BgL_l1020z00_1905;
BgL_l1020z00_1905 = BgL_aidzb2zb2_745; 
BgL_any1021z00_1904:
if(
NULLP(BgL_l1020z00_1905))
{ /* ./Eval/expdargs.scm 193 */
BgL_test1745z00_746 = ((bool_t)0); }  else 
{ /* ./Eval/expdargs.scm 193 */
bool_t BgL_testz00_2712;
{ /* ./Eval/expdargs.scm 193 */
obj_t BgL_auxz00_2713;
BgL_auxz00_2713 = 
CAR(BgL_l1020z00_1905); 
BgL_testz00_2712 = 
CBOOL(BgL_auxz00_2713); } 
if(BgL_testz00_2712)
{ /* ./Eval/expdargs.scm 193 */
BgL_test1745z00_746 = ((bool_t)1); }  else 
{ /* ./Eval/expdargs.scm 193 */
{ 
obj_t BgL_l1020z00_2716;
BgL_l1020z00_2716 = 
CDR(BgL_l1020z00_1905); 
BgL_l1020z00_1905 = BgL_l1020z00_2716; 
goto BgL_any1021z00_1904;} } } }  else 
{ /* ./Eval/expdargs.scm 193 */
BgL_test1745z00_746 = ((bool_t)0); } 
if(BgL_test1745z00_746)
{ /* ./Eval/expdargs.scm 193 */
if(
NULLP(BgL_argsz00_741))
{ /* ./Eval/expdargs.scm 203 */
{ /* ./Eval/expdargs.scm 204 */
bool_t BgL_test1747z00_748;
BgL_test1747z00_748 = 
NULLP(BgL_aidzb2zb2_745); 
if(BgL_test1747z00_748)
{ /* ./Eval/expdargs.scm 204 */
return 
BGl_concatz00zz__expander_argsz00(BgL_oidzb2zb2_744);}  else 
{ /* ./Eval/expdargs.scm 206 */
obj_t BgL_runner1779z00_766;
{ /* ./Eval/expdargs.scm 207 */
obj_t BgL_arg1750z00_749;obj_t BgL_arg1752z00_750;
BgL_arg1750z00_749 = 
BGl_concatz00zz__expander_argsz00(BgL_oidzb2zb2_744); 
if(BgL_test1747z00_748)
{ /* ./Eval/expdargs.scm 208 */
BgL_arg1752z00_750 = BNIL; }  else 
{ /* ./Eval/expdargs.scm 208 */
obj_t BgL_head1025z00_754;
BgL_head1025z00_754 = 
MAKE_PAIR(BNIL, BNIL); 
{ 
obj_t BgL_l1023z00_755;obj_t BgL_tail1026z00_756;
BgL_l1023z00_755 = BgL_aidzb2zb2_745; 
BgL_tail1026z00_756 = BgL_head1025z00_754; 
BgL_map1024z00_757:
if(
NULLP(BgL_l1023z00_755))
{ /* ./Eval/expdargs.scm 208 */
BgL_arg1752z00_750 = 
CDR(BgL_head1025z00_754); }  else 
{ /* ./Eval/expdargs.scm 209 */
obj_t BgL_newtail1027z00_759;
{ /* ./Eval/expdargs.scm 209 */
obj_t BgL_arg1767z00_761;
{ /* ./Eval/expdargs.scm 209 */
obj_t BgL_az00_763;
BgL_az00_763 = 
CAR(BgL_l1023z00_755); 
{ /* ./Eval/expdargs.scm 209 */
obj_t BgL_auxz00_2731;
BgL_auxz00_2731 = 
BGl_stringzd2upcasezd2zz__r4_strings_6_7z00(BgL_az00_763); 
BgL_arg1767z00_761 = 
string_append(BGl_string4177z00zz__expander_argsz00, BgL_auxz00_2731); } } 
BgL_newtail1027z00_759 = 
MAKE_PAIR(BgL_arg1767z00_761, BNIL); } 
SET_CDR(BgL_tail1026z00_756, BgL_newtail1027z00_759); 
{ 
obj_t BgL_tail1026z00_2738;obj_t BgL_l1023z00_2736;
BgL_l1023z00_2736 = 
CDR(BgL_l1023z00_755); 
BgL_tail1026z00_2738 = BgL_newtail1027z00_759; 
BgL_tail1026z00_756 = BgL_tail1026z00_2738; 
BgL_l1023z00_755 = BgL_l1023z00_2736; 
goto BgL_map1024z00_757;} } } } 
{ /* ./Eval/expdargs.scm 207 */
obj_t BgL_list1754z00_751;
BgL_list1754z00_751 = 
MAKE_PAIR(BgL_arg1752z00_750, BNIL); 
BgL_runner1779z00_766 = 
BGl_consza2za2zz__r4_pairs_and_lists_6_3z00(BgL_arg1750z00_749, BgL_list1754z00_751); } } 
return 
BGl_stringzd2appendzd2zz__r4_strings_6_7z00(BgL_runner1779z00_766);} } }  else 
{ /* ./Eval/expdargs.scm 203 */
FAILURE(BGl_string4135z00zz__expander_argsz00,BGl_string4178z00zz__expander_argsz00,BgL_clausez00_10);} }  else 
{ /* ./Eval/expdargs.scm 193 */
{ /* ./Eval/expdargs.scm 194 */
obj_t BgL_auxz00_2745;obj_t BgL_auxz00_2743;
BgL_auxz00_2745 = 
BGl_loopz72z72zz__expander_argsz00(BgL_clausez00_10, BgL_argsz00_741); 
BgL_auxz00_2743 = 
BGl_concatz00zz__expander_argsz00(BgL_oidzb2zb2_744); 
return 
string_append(BgL_auxz00_2743, BgL_auxz00_2745);} } } } } }  else 
{ /* ./Eval/expdargs.scm 219 */
FAILURE(BGl_string4135z00zz__expander_argsz00,BGl_string4176z00zz__expander_argsz00,BgL_clausez00_10);} } } } } } } } 
}



/* loop' */
obj_t BGl_loopz72z72zz__expander_argsz00(obj_t BgL_clausez00_2315, obj_t BgL_argsz00_769)
{ AN_OBJECT;
{ /* ./Eval/expdargs.scm 196 */
if(
NULLP(BgL_argsz00_769))
{ /* ./Eval/expdargs.scm 197 */
return BGl_string4179z00zz__expander_argsz00;}  else 
{ /* ./Eval/expdargs.scm 199 */
obj_t BgL_auxz00_2755;obj_t BgL_auxz00_2751;
BgL_auxz00_2755 = 
BGl_loopz72z72zz__expander_argsz00(BgL_clausez00_2315, 
CDR(BgL_argsz00_769)); 
BgL_auxz00_2751 = 
BGl_stringzd2upcasezd2zz__r4_strings_6_7z00(
BGl_fetchzd2argumentzd2namez00zz__expander_argsz00(
CAR(BgL_argsz00_769), BgL_clausez00_2315)); 
return 
string_append_3(BGl_string4177z00zz__expander_argsz00, BgL_auxz00_2751, BgL_auxz00_2755);} } 
}



/* concat */
obj_t BGl_concatz00zz__expander_argsz00(obj_t BgL_lz00_798)
{ AN_OBJECT;
{ /* ./Eval/expdargs.scm 182 */
{ /* ./Eval/expdargs.scm 178 */
bool_t BgL_testz00_2759;
{ /* ./Eval/expdargs.scm 178 */
obj_t BgL_auxz00_2760;
BgL_auxz00_2760 = 
CDR(BgL_lz00_798); 
BgL_testz00_2759 = 
NULLP(BgL_auxz00_2760); } 
if(BgL_testz00_2759)
{ /* ./Eval/expdargs.scm 178 */
return 
CAR(BgL_lz00_798);}  else 
{ /* ./Eval/expdargs.scm 180 */
obj_t BgL_auxz00_2766;obj_t BgL_auxz00_2764;
BgL_auxz00_2766 = 
BGl_concatz00zz__expander_argsz00(
CDR(BgL_lz00_798)); 
BgL_auxz00_2764 = 
CAR(BgL_lz00_798); 
return 
string_append_3(BgL_auxz00_2764, BGl_string4180z00zz__expander_argsz00, BgL_auxz00_2766);} } } 
}



/* loop'' */
obj_t BGl_loopz72z72z00zz__expander_argsz00(obj_t BgL_clausez00_2316, obj_t BgL_argsz00_817)
{ AN_OBJECT;
{ /* ./Eval/expdargs.scm 169 */
if(
NULLP(BgL_argsz00_817))
{ /* ./Eval/expdargs.scm 170 */
return BGl_string4179z00zz__expander_argsz00;}  else 
{ /* ./Eval/expdargs.scm 172 */
obj_t BgL_auxz00_2776;obj_t BgL_auxz00_2772;
BgL_auxz00_2776 = 
BGl_loopz72z72z00zz__expander_argsz00(BgL_clausez00_2316, 
CDR(BgL_argsz00_817)); 
BgL_auxz00_2772 = 
BGl_stringzd2upcasezd2zz__r4_strings_6_7z00(
BGl_fetchzd2argumentzd2namez00zz__expander_argsz00(
CAR(BgL_argsz00_817), BgL_clausez00_2316)); 
return 
string_append_3(BGl_string4177z00zz__expander_argsz00, BgL_auxz00_2772, BgL_auxz00_2776);} } 
}



/* make-parser */
obj_t BGl_makezd2parserzd2zz__expander_argsz00(obj_t BgL_clausez00_11, obj_t BgL_otablez00_12)
{ AN_OBJECT;
{ /* ./Eval/expdargs.scm 227 */
{ 
obj_t BgL_exprza2za2_832;obj_t BgL_exprza2za2_830;
if(
PAIRP(BgL_clausez00_11))
{ /* ./Eval/expdargs.scm 228 */
obj_t BgL_cdrzd2249zd2_838;
BgL_cdrzd2249zd2_838 = 
CDR(BgL_clausez00_11); 
{ /* ./Eval/expdargs.scm 228 */
bool_t BgL_testz00_2783;
{ /* ./Eval/expdargs.scm 228 */
obj_t BgL_auxz00_2784;
BgL_auxz00_2784 = 
CAR(BgL_clausez00_11); 
BgL_testz00_2783 = 
(BgL_auxz00_2784==BGl_symbol4175z00zz__expander_argsz00); } 
if(BgL_testz00_2783)
{ /* ./Eval/expdargs.scm 228 */
if(
PAIRP(BgL_cdrzd2249zd2_838))
{ /* ./Eval/expdargs.scm 228 */
bool_t BgL_testz00_2789;
{ /* ./Eval/expdargs.scm 228 */
obj_t BgL_auxz00_2790;
BgL_auxz00_2790 = 
CDR(BgL_cdrzd2249zd2_838); 
BgL_testz00_2789 = 
NULLP(BgL_auxz00_2790); } 
if(BgL_testz00_2789)
{ /* ./Eval/expdargs.scm 228 */
return BFALSE;}  else 
{ /* ./Eval/expdargs.scm 228 */
if(
BGl_listzf3zf3zz__r4_pairs_and_lists_6_3z00(
CAR(BgL_clausez00_11)))
{ /* ./Eval/expdargs.scm 228 */
return 
BGl_makezd2optzd2parserz00zz__expander_argsz00(BgL_clausez00_11, BgL_otablez00_12);}  else 
{ /* ./Eval/expdargs.scm 228 */
FAILURE(BGl_string4135z00zz__expander_argsz00,BGl_string4176z00zz__expander_argsz00,BgL_clausez00_11);} } }  else 
{ /* ./Eval/expdargs.scm 228 */
if(
BGl_listzf3zf3zz__r4_pairs_and_lists_6_3z00(
CAR(BgL_clausez00_11)))
{ /* ./Eval/expdargs.scm 228 */
return 
BGl_makezd2optzd2parserz00zz__expander_argsz00(BgL_clausez00_11, BgL_otablez00_12);}  else 
{ /* ./Eval/expdargs.scm 228 */
FAILURE(BGl_string4135z00zz__expander_argsz00,BGl_string4176z00zz__expander_argsz00,BgL_clausez00_11);} } }  else 
{ /* ./Eval/expdargs.scm 228 */
bool_t BgL_testz00_2803;
{ /* ./Eval/expdargs.scm 228 */
obj_t BgL_auxz00_2804;
BgL_auxz00_2804 = 
CAR(BgL_clausez00_11); 
BgL_testz00_2803 = 
NULLP(BgL_auxz00_2804); } 
if(BgL_testz00_2803)
{ /* ./Eval/expdargs.scm 228 */
BgL_exprza2za2_830 = BgL_cdrzd2249zd2_838; 
{ /* ./Eval/expdargs.scm 232 */
obj_t BgL_az00_859;obj_t BgL_vz00_860;
BgL_az00_859 = 
PROCEDURE_ENTRY(BGl_gensymz00zz__r4_symbols_6_4z00)(BGl_gensymz00zz__r4_symbols_6_4z00, BGl_symbol4138z00zz__expander_argsz00, BEOA); 
BgL_vz00_860 = 
PROCEDURE_ENTRY(BGl_gensymz00zz__r4_symbols_6_4z00)(BGl_gensymz00zz__r4_symbols_6_4z00, BGl_symbol4139z00zz__expander_argsz00, BEOA); 
{ /* ./Eval/expdargs.scm 234 */
obj_t BgL_arg1961z00_861;obj_t BgL_arg1962z00_862;
BgL_arg1961z00_861 = BGl_symbol4137z00zz__expander_argsz00; 
{ /* ./Eval/expdargs.scm 234 */
obj_t BgL_arg1965z00_863;obj_t BgL_arg1966z00_864;
{ /* ./Eval/expdargs.scm 234 */
obj_t BgL_arg1969z00_865;
BgL_arg1969z00_865 = 
MAKE_PAIR(BgL_vz00_860, BNIL); 
BgL_arg1965z00_863 = 
MAKE_PAIR(BgL_az00_859, BgL_arg1969z00_865); } 
{ /* ./Eval/expdargs.scm 235 */
obj_t BgL_arg1973z00_866;
{ /* ./Eval/expdargs.scm 235 */
obj_t BgL_arg1977z00_868;obj_t BgL_arg1978z00_869;
BgL_arg1977z00_868 = BGl_symbol4140z00zz__expander_argsz00; 
{ /* ./Eval/expdargs.scm 235 */
obj_t BgL_arg1981z00_870;obj_t BgL_arg1982z00_871;
{ /* ./Eval/expdargs.scm 235 */
obj_t BgL_arg1985z00_872;obj_t BgL_arg1986z00_873;
BgL_arg1985z00_872 = BGl_symbol4141z00zz__expander_argsz00; 
BgL_arg1986z00_873 = 
MAKE_PAIR(BgL_az00_859, BNIL); 
BgL_arg1981z00_870 = 
MAKE_PAIR(BgL_arg1985z00_872, BgL_arg1986z00_873); } 
{ /* ./Eval/expdargs.scm 236 */
obj_t BgL_arg1990z00_874;obj_t BgL_arg1991z00_875;
{ /* ./Eval/expdargs.scm 236 */
obj_t BgL_arg1994z00_876;obj_t BgL_arg1995z00_877;
BgL_arg1994z00_876 = BGl_symbol4142z00zz__expander_argsz00; 
{ /* ./Eval/expdargs.scm 236 */
obj_t BgL_arg1998z00_878;obj_t BgL_arg2000z00_879;
{ /* ./Eval/expdargs.scm 236 */
obj_t BgL_arg2004z00_880;obj_t BgL_arg2005z00_881;
BgL_arg2004z00_880 = BGl_symbol4143z00zz__expander_argsz00; 
BgL_arg2005z00_881 = 
MAKE_PAIR(BGl_symbol4144z00zz__expander_argsz00, BNIL); 
BgL_arg1998z00_878 = 
MAKE_PAIR(BgL_arg2004z00_880, BgL_arg2005z00_881); } 
{ /* ./Eval/expdargs.scm 236 */
obj_t BgL_arg2010z00_882;
{ /* ./Eval/expdargs.scm 236 */
obj_t BgL_arg2014z00_883;
{ /* ./Eval/expdargs.scm 236 */
obj_t BgL_auxz00_2817;
BgL_auxz00_2817 = 
BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(BgL_exprza2za2_830, BNIL); 
BgL_arg2014z00_883 = 
MAKE_PAIR(BGl_symbol4181z00zz__expander_argsz00, BgL_auxz00_2817); } 
BgL_arg2010z00_882 = 
MAKE_PAIR(BgL_arg2014z00_883, BNIL); } 
BgL_arg2000z00_879 = 
MAKE_PAIR(BgL_az00_859, BgL_arg2010z00_882); } 
BgL_arg1995z00_877 = 
MAKE_PAIR(BgL_arg1998z00_878, BgL_arg2000z00_879); } 
BgL_arg1990z00_874 = 
MAKE_PAIR(BgL_arg1994z00_876, BgL_arg1995z00_877); } 
{ /* ./Eval/expdargs.scm 237 */
obj_t BgL_arg2023z00_887;
{ /* ./Eval/expdargs.scm 237 */
obj_t BgL_arg2027z00_889;obj_t BgL_arg2029z00_890;
BgL_arg2027z00_889 = BGl_symbol4142z00zz__expander_argsz00; 
{ /* ./Eval/expdargs.scm 237 */
obj_t BgL_arg2032z00_891;obj_t BgL_arg2033z00_892;
{ /* ./Eval/expdargs.scm 237 */
obj_t BgL_arg2036z00_893;obj_t BgL_arg2037z00_894;
BgL_arg2036z00_893 = BGl_symbol4143z00zz__expander_argsz00; 
BgL_arg2037z00_894 = 
MAKE_PAIR(BGl_symbol4172z00zz__expander_argsz00, BNIL); 
BgL_arg2032z00_891 = 
MAKE_PAIR(BgL_arg2036z00_893, BgL_arg2037z00_894); } 
{ /* ./Eval/expdargs.scm 237 */
obj_t BgL_arg2041z00_895;
BgL_arg2041z00_895 = 
MAKE_PAIR(BgL_vz00_860, BNIL); 
BgL_arg2033z00_892 = 
MAKE_PAIR(BgL_az00_859, BgL_arg2041z00_895); } 
BgL_arg2029z00_890 = 
MAKE_PAIR(BgL_arg2032z00_891, BgL_arg2033z00_892); } 
BgL_arg2023z00_887 = 
MAKE_PAIR(BgL_arg2027z00_889, BgL_arg2029z00_890); } 
BgL_arg1991z00_875 = 
MAKE_PAIR(BgL_arg2023z00_887, BNIL); } 
BgL_arg1982z00_871 = 
MAKE_PAIR(BgL_arg1990z00_874, BgL_arg1991z00_875); } 
BgL_arg1978z00_869 = 
MAKE_PAIR(BgL_arg1981z00_870, BgL_arg1982z00_871); } 
BgL_arg1973z00_866 = 
MAKE_PAIR(BgL_arg1977z00_868, BgL_arg1978z00_869); } 
BgL_arg1966z00_864 = 
MAKE_PAIR(BgL_arg1973z00_866, BNIL); } 
BgL_arg1962z00_862 = 
MAKE_PAIR(BgL_arg1965z00_863, BgL_arg1966z00_864); } 
return 
MAKE_PAIR(BgL_arg1961z00_861, BgL_arg1962z00_862);} } }  else 
{ /* ./Eval/expdargs.scm 228 */
bool_t BgL_testz00_2837;
{ /* ./Eval/expdargs.scm 228 */
obj_t BgL_auxz00_2838;
BgL_auxz00_2838 = 
CAR(BgL_clausez00_11); 
BgL_testz00_2837 = 
(BgL_auxz00_2838==BGl_symbol4162z00zz__expander_argsz00); } 
if(BgL_testz00_2837)
{ /* ./Eval/expdargs.scm 228 */
BgL_exprza2za2_832 = BgL_cdrzd2249zd2_838; 
{ /* ./Eval/expdargs.scm 239 */
obj_t BgL_az00_896;obj_t BgL_vz00_897;
BgL_az00_896 = 
PROCEDURE_ENTRY(BGl_gensymz00zz__r4_symbols_6_4z00)(BGl_gensymz00zz__r4_symbols_6_4z00, BGl_symbol4138z00zz__expander_argsz00, BEOA); 
BgL_vz00_897 = 
PROCEDURE_ENTRY(BGl_gensymz00zz__r4_symbols_6_4z00)(BGl_gensymz00zz__r4_symbols_6_4z00, BGl_symbol4139z00zz__expander_argsz00, BEOA); 
{ /* ./Eval/expdargs.scm 241 */
obj_t BgL_arg2047z00_898;obj_t BgL_arg2048z00_899;
BgL_arg2047z00_898 = BGl_symbol4137z00zz__expander_argsz00; 
{ /* ./Eval/expdargs.scm 241 */
obj_t BgL_arg2051z00_900;obj_t BgL_arg2052z00_901;
{ /* ./Eval/expdargs.scm 241 */
obj_t BgL_arg2055z00_902;
BgL_arg2055z00_902 = 
MAKE_PAIR(BgL_vz00_897, BNIL); 
BgL_arg2051z00_900 = 
MAKE_PAIR(BgL_az00_896, BgL_arg2055z00_902); } 
{ /* ./Eval/expdargs.scm 242 */
obj_t BgL_arg2059z00_903;
{ /* ./Eval/expdargs.scm 242 */
obj_t BgL_arg2064z00_905;obj_t BgL_arg2065z00_906;
BgL_arg2064z00_905 = BGl_symbol4140z00zz__expander_argsz00; 
{ /* ./Eval/expdargs.scm 242 */
obj_t BgL_arg2068z00_907;obj_t BgL_arg2069z00_908;
{ /* ./Eval/expdargs.scm 242 */
obj_t BgL_arg2072z00_909;obj_t BgL_arg2073z00_910;
BgL_arg2072z00_909 = BGl_symbol4159z00zz__expander_argsz00; 
BgL_arg2073z00_910 = 
MAKE_PAIR(BgL_az00_896, BNIL); 
BgL_arg2068z00_907 = 
MAKE_PAIR(BgL_arg2072z00_909, BgL_arg2073z00_910); } 
{ /* ./Eval/expdargs.scm 243 */
obj_t BgL_arg2077z00_911;obj_t BgL_arg2078z00_912;
{ /* ./Eval/expdargs.scm 243 */
obj_t BgL_arg2081z00_913;obj_t BgL_arg2082z00_914;
BgL_arg2081z00_913 = BGl_symbol4163z00zz__expander_argsz00; 
{ /* ./Eval/expdargs.scm 243 */
obj_t BgL_arg2085z00_915;obj_t BgL_arg2086z00_916;
{ /* ./Eval/expdargs.scm 243 */
obj_t BgL_arg2089z00_917;
{ /* ./Eval/expdargs.scm 243 */
obj_t BgL_arg2093z00_919;obj_t BgL_arg2094z00_920;
BgL_arg2093z00_919 = BGl_symbol4162z00zz__expander_argsz00; 
{ /* ./Eval/expdargs.scm 243 */
obj_t BgL_arg2097z00_921;
{ /* ./Eval/expdargs.scm 243 */
obj_t BgL_arg2101z00_923;obj_t BgL_arg2102z00_924;
BgL_arg2101z00_923 = BGl_symbol4146z00zz__expander_argsz00; 
BgL_arg2102z00_924 = 
MAKE_PAIR(BgL_az00_896, BNIL); 
BgL_arg2097z00_921 = 
MAKE_PAIR(BgL_arg2101z00_923, BgL_arg2102z00_924); } 
BgL_arg2094z00_920 = 
MAKE_PAIR(BgL_arg2097z00_921, BNIL); } 
BgL_arg2089z00_917 = 
MAKE_PAIR(BgL_arg2093z00_919, BgL_arg2094z00_920); } 
BgL_arg2085z00_915 = 
MAKE_PAIR(BgL_arg2089z00_917, BNIL); } 
{ /* ./Eval/expdargs.scm 244 */
obj_t BgL_arg2106z00_925;
{ /* ./Eval/expdargs.scm 244 */
obj_t BgL_arg2111z00_927;obj_t BgL_arg2112z00_928;
BgL_arg2111z00_927 = BGl_symbol4142z00zz__expander_argsz00; 
{ /* ./Eval/expdargs.scm 244 */
obj_t BgL_arg2115z00_929;obj_t BgL_arg2116z00_930;
{ /* ./Eval/expdargs.scm 244 */
obj_t BgL_arg2119z00_931;obj_t BgL_arg2120z00_932;
BgL_arg2119z00_931 = BGl_symbol4143z00zz__expander_argsz00; 
BgL_arg2120z00_932 = 
MAKE_PAIR(BGl_symbol4171z00zz__expander_argsz00, BNIL); 
BgL_arg2115z00_929 = 
MAKE_PAIR(BgL_arg2119z00_931, BgL_arg2120z00_932); } 
{ /* ./Eval/expdargs.scm 244 */
obj_t BgL_arg2124z00_933;obj_t BgL_arg2125z00_934;
{ /* ./Eval/expdargs.scm 244 */
obj_t BgL_arg2128z00_935;obj_t BgL_arg2129z00_936;
BgL_arg2128z00_935 = BGl_symbol4173z00zz__expander_argsz00; 
BgL_arg2129z00_936 = 
MAKE_PAIR(BgL_az00_896, BNIL); 
BgL_arg2124z00_933 = 
MAKE_PAIR(BgL_arg2128z00_935, BgL_arg2129z00_936); } 
{ /* ./Eval/expdargs.scm 244 */
obj_t BgL_arg2133z00_937;
{ /* ./Eval/expdargs.scm 244 */
obj_t BgL_auxz00_2858;
BgL_auxz00_2858 = 
BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(BgL_exprza2za2_832, BNIL); 
BgL_arg2133z00_937 = 
MAKE_PAIR(BGl_symbol4181z00zz__expander_argsz00, BgL_auxz00_2858); } 
BgL_arg2125z00_934 = 
MAKE_PAIR(BgL_arg2133z00_937, BNIL); } 
BgL_arg2116z00_930 = 
MAKE_PAIR(BgL_arg2124z00_933, BgL_arg2125z00_934); } 
BgL_arg2112z00_928 = 
MAKE_PAIR(BgL_arg2115z00_929, BgL_arg2116z00_930); } 
BgL_arg2106z00_925 = 
MAKE_PAIR(BgL_arg2111z00_927, BgL_arg2112z00_928); } 
BgL_arg2086z00_916 = 
MAKE_PAIR(BgL_arg2106z00_925, BNIL); } 
BgL_arg2082z00_914 = 
MAKE_PAIR(BgL_arg2085z00_915, BgL_arg2086z00_916); } 
BgL_arg2077z00_911 = 
MAKE_PAIR(BgL_arg2081z00_913, BgL_arg2082z00_914); } 
{ /* ./Eval/expdargs.scm 245 */
obj_t BgL_arg2143z00_941;
{ /* ./Eval/expdargs.scm 245 */
obj_t BgL_arg2147z00_943;obj_t BgL_arg2148z00_944;
BgL_arg2147z00_943 = BGl_symbol4142z00zz__expander_argsz00; 
{ /* ./Eval/expdargs.scm 245 */
obj_t BgL_arg2151z00_945;obj_t BgL_arg2152z00_946;
{ /* ./Eval/expdargs.scm 245 */
obj_t BgL_arg2155z00_947;obj_t BgL_arg2156z00_948;
BgL_arg2155z00_947 = BGl_symbol4143z00zz__expander_argsz00; 
BgL_arg2156z00_948 = 
MAKE_PAIR(BGl_symbol4172z00zz__expander_argsz00, BNIL); 
BgL_arg2151z00_945 = 
MAKE_PAIR(BgL_arg2155z00_947, BgL_arg2156z00_948); } 
{ /* ./Eval/expdargs.scm 245 */
obj_t BgL_arg2160z00_949;
BgL_arg2160z00_949 = 
MAKE_PAIR(BgL_vz00_897, BNIL); 
BgL_arg2152z00_946 = 
MAKE_PAIR(BgL_az00_896, BgL_arg2160z00_949); } 
BgL_arg2148z00_944 = 
MAKE_PAIR(BgL_arg2151z00_945, BgL_arg2152z00_946); } 
BgL_arg2143z00_941 = 
MAKE_PAIR(BgL_arg2147z00_943, BgL_arg2148z00_944); } 
BgL_arg2078z00_912 = 
MAKE_PAIR(BgL_arg2143z00_941, BNIL); } 
BgL_arg2069z00_908 = 
MAKE_PAIR(BgL_arg2077z00_911, BgL_arg2078z00_912); } 
BgL_arg2065z00_906 = 
MAKE_PAIR(BgL_arg2068z00_907, BgL_arg2069z00_908); } 
BgL_arg2059z00_903 = 
MAKE_PAIR(BgL_arg2064z00_905, BgL_arg2065z00_906); } 
BgL_arg2052z00_901 = 
MAKE_PAIR(BgL_arg2059z00_903, BNIL); } 
BgL_arg2048z00_899 = 
MAKE_PAIR(BgL_arg2051z00_900, BgL_arg2052z00_901); } 
return 
MAKE_PAIR(BgL_arg2047z00_898, BgL_arg2048z00_899);} } }  else 
{ /* ./Eval/expdargs.scm 228 */
if(
BGl_listzf3zf3zz__r4_pairs_and_lists_6_3z00(
CAR(BgL_clausez00_11)))
{ /* ./Eval/expdargs.scm 228 */
return 
BGl_makezd2optzd2parserz00zz__expander_argsz00(BgL_clausez00_11, BgL_otablez00_12);}  else 
{ /* ./Eval/expdargs.scm 228 */
FAILURE(BGl_string4135z00zz__expander_argsz00,BGl_string4176z00zz__expander_argsz00,BgL_clausez00_11);} } } } } }  else 
{ /* ./Eval/expdargs.scm 228 */
FAILURE(BGl_string4135z00zz__expander_argsz00,BGl_string4176z00zz__expander_argsz00,BgL_clausez00_11);} } } 
}



/* bind-option! */
obj_t BGl_bindzd2optionz12zc0zz__expander_argsz00(obj_t BgL_otablez00_13, obj_t BgL_oidz00_14, obj_t BgL_clausez00_15)
{ AN_OBJECT;
{ /* ./Eval/expdargs.scm 254 */
{ /* ./Eval/expdargs.scm 255 */
obj_t BgL_oldz00_950;
BgL_oldz00_950 = 
BGl_hashtablezd2getzd2zz__hashz00(BgL_otablez00_13, BgL_oidz00_14); 
if(
CBOOL(BgL_oldz00_950))
{ /* ./Eval/expdargs.scm 257 */
obj_t BgL_list2168z00_951;
{ /* ./Eval/expdargs.scm 257 */
obj_t BgL_arg2170z00_952;obj_t BgL_arg2171z00_953;
BgL_arg2170z00_952 = BGl_symbol4160z00zz__expander_argsz00; 
{ /* ./Eval/expdargs.scm 257 */
obj_t BgL_arg2174z00_954;
{ /* ./Eval/expdargs.scm 257 */
obj_t BgL_arg2178z00_956;
{ /* ./Eval/expdargs.scm 257 */
obj_t BgL_arg2181z00_957;
{ /* ./Eval/expdargs.scm 257 */
obj_t BgL_arg2185z00_959;
{ /* ./Eval/expdargs.scm 257 */
obj_t BgL_arg2188z00_960;
{ /* ./Eval/expdargs.scm 257 */
obj_t BgL_arg2191z00_961;
{ /* ./Eval/expdargs.scm 257 */
obj_t BgL_arg2195z00_963;
BgL_arg2195z00_963 = 
MAKE_PAIR(BgL_clausez00_15, BNIL); 
BgL_arg2191z00_961 = 
MAKE_PAIR(BGl_string4182z00zz__expander_argsz00, BgL_arg2195z00_963); } 
{ /* ./Eval/expdargs.scm 257 */
obj_t BgL_auxz00_2892;
BgL_auxz00_2892 = 
BCHAR(((unsigned char)'\n')); 
BgL_arg2188z00_960 = 
MAKE_PAIR(BgL_auxz00_2892, BgL_arg2191z00_961); } } 
BgL_arg2185z00_959 = 
MAKE_PAIR(BgL_oldz00_950, BgL_arg2188z00_960); } 
BgL_arg2181z00_957 = 
MAKE_PAIR(BGl_string4182z00zz__expander_argsz00, BgL_arg2185z00_959); } 
{ /* ./Eval/expdargs.scm 257 */
obj_t BgL_auxz00_2897;
BgL_auxz00_2897 = 
BCHAR(((unsigned char)'\n')); 
BgL_arg2178z00_956 = 
MAKE_PAIR(BgL_auxz00_2897, BgL_arg2181z00_957); } } 
BgL_arg2174z00_954 = 
MAKE_PAIR(BGl_string4183z00zz__expander_argsz00, BgL_arg2178z00_956); } 
BgL_arg2171z00_953 = 
MAKE_PAIR(BgL_oidz00_14, BgL_arg2174z00_954); } 
BgL_list2168z00_951 = 
MAKE_PAIR(BgL_arg2170z00_952, BgL_arg2171z00_953); } 
return 
BGl_warningz00zz__errorz00(BgL_list2168z00_951);}  else 
{ /* ./Eval/expdargs.scm 256 */
return 
BGl_hashtablezd2putz12zc0zz__hashz00(BgL_otablez00_13, BgL_oidz00_14, BgL_clausez00_15);} } } 
}



/* make-opt-parser */
obj_t BGl_makezd2optzd2parserz00zz__expander_argsz00(obj_t BgL_clausez00_16, obj_t BgL_otablez00_17)
{ AN_OBJECT;
{ /* ./Eval/expdargs.scm 265 */
{ /* ./Eval/expdargs.scm 266 */
obj_t BgL_optz00_964;
BgL_optz00_964 = 
CAR(BgL_clausez00_16); 
{ /* ./Eval/expdargs.scm 266 */
obj_t BgL_oz00_965;
BgL_oz00_965 = 
CAR(BgL_optz00_964); 
{ /* ./Eval/expdargs.scm 267 */

if(
STRINGP(BgL_oz00_965))
{ /* ./Eval/expdargs.scm 269 */
return 
BGl_makezd2simplezd2optzd2parserzd2zz__expander_argsz00(BgL_clausez00_16, BgL_otablez00_17);}  else 
{ /* ./Eval/expdargs.scm 271 */
bool_t BgL_test2202z00_967;
if(
BGl_listzf3zf3zz__r4_pairs_and_lists_6_3z00(BgL_oz00_965))
{ 
obj_t BgL_l1030z00_969;
BgL_l1030z00_969 = BgL_oz00_965; 
BgL_every1031z00_970:
if(
NULLP(BgL_l1030z00_969))
{ /* ./Eval/expdargs.scm 271 */
BgL_test2202z00_967 = ((bool_t)1); }  else 
{ /* ./Eval/expdargs.scm 271 */
bool_t BgL_testz00_2914;
{ /* ./Eval/expdargs.scm 271 */
obj_t BgL_auxz00_2915;
BgL_auxz00_2915 = 
CAR(BgL_l1030z00_969); 
BgL_testz00_2914 = 
STRINGP(BgL_auxz00_2915); } 
if(BgL_testz00_2914)
{ /* ./Eval/expdargs.scm 271 */
{ 
obj_t BgL_l1030z00_2918;
BgL_l1030z00_2918 = 
CDR(BgL_l1030z00_969); 
BgL_l1030z00_969 = BgL_l1030z00_2918; 
goto BgL_every1031z00_970;} }  else 
{ /* ./Eval/expdargs.scm 271 */
BgL_test2202z00_967 = ((bool_t)0); } } }  else 
{ /* ./Eval/expdargs.scm 271 */
BgL_test2202z00_967 = ((bool_t)0); } 
if(BgL_test2202z00_967)
{ /* ./Eval/expdargs.scm 271 */
return 
BGl_makezd2multiplezd2optzd2parserzd2zz__expander_argsz00(BgL_clausez00_16, BgL_otablez00_17);}  else 
{ /* ./Eval/expdargs.scm 271 */
FAILURE(BGl_string4135z00zz__expander_argsz00,BGl_string4148z00zz__expander_argsz00,BgL_clausez00_16);} } } } } } 
}



/* make-simple-opt-parser */
obj_t BGl_makezd2simplezd2optzd2parserzd2zz__expander_argsz00(obj_t BgL_clausez00_18, obj_t BgL_otablez00_19)
{ AN_OBJECT;
{ /* ./Eval/expdargs.scm 279 */
{ /* ./Eval/expdargs.scm 280 */
obj_t BgL_optz00_975;
BgL_optz00_975 = 
CAR(BgL_clausez00_18); 
{ /* ./Eval/expdargs.scm 280 */
obj_t BgL_oz00_976;
BgL_oz00_976 = 
CAR(BgL_optz00_975); 
{ /* ./Eval/expdargs.scm 281 */
obj_t BgL_argsz00_977;
BgL_argsz00_977 = 
BGl_fetchzd2optionzd2argumentsz00zz__expander_argsz00(BgL_optz00_975); 
{ /* ./Eval/expdargs.scm 282 */
obj_t BgL_exprza2za2_978;
BgL_exprza2za2_978 = 
CDR(BgL_clausez00_18); 
{ /* ./Eval/expdargs.scm 283 */

{ /* ./Eval/expdargs.scm 284 */
obj_t BgL_oidz00_979;
BgL_oidz00_979 = 
BGl_fetchzd2optionzd2embedzd2argumentzd2zz__expander_argsz00(BgL_oz00_976); 
{ /* ./Eval/expdargs.scm 287 */
obj_t BgL_aidz00_980;
{ /* ./Eval/expdargs.scm 287 */
int BgL_auxz00_2928;
BgL_auxz00_2928 = 
(int)(((long)1)); 
BgL_aidz00_980 = 
BGL_MVALUES_VAL(BgL_auxz00_2928); } 
{ /* ./Eval/expdargs.scm 287 */
bool_t BgL_test2222z00_981;
if(
CBOOL(BgL_aidz00_980))
{ /* ./Eval/expdargs.scm 287 */
BgL_test2222z00_981 = 
PAIRP(BgL_argsz00_977); }  else 
{ /* ./Eval/expdargs.scm 287 */
BgL_test2222z00_981 = ((bool_t)0); } 
if(BgL_test2222z00_981)
{ /* ./Eval/expdargs.scm 287 */
FAILURE(BGl_string4135z00zz__expander_argsz00,BGl_string4178z00zz__expander_argsz00,BgL_clausez00_18);}  else 
{ /* ./Eval/expdargs.scm 287 */
if(
STRINGP(BgL_aidz00_980))
{ /* ./Eval/expdargs.scm 289 */
BGl_bindzd2optionz12zc0zz__expander_argsz00(BgL_otablez00_19, BgL_oidz00_979, BgL_clausez00_18); 
{ /* ./Eval/expdargs.scm 291 */
obj_t BgL_az00_983;obj_t BgL_vz00_984;int BgL_oidlz00_985;
BgL_az00_983 = 
PROCEDURE_ENTRY(BGl_gensymz00zz__r4_symbols_6_4z00)(BGl_gensymz00zz__r4_symbols_6_4z00, BGl_symbol4138z00zz__expander_argsz00, BEOA); 
BgL_vz00_984 = 
PROCEDURE_ENTRY(BGl_gensymz00zz__r4_symbols_6_4z00)(BGl_gensymz00zz__r4_symbols_6_4z00, BGl_symbol4139z00zz__expander_argsz00, BEOA); 
BgL_oidlz00_985 = 
STRING_LENGTH(BgL_oidz00_979); 
{ /* ./Eval/expdargs.scm 294 */
obj_t BgL_arg2227z00_986;obj_t BgL_arg2228z00_987;
BgL_arg2227z00_986 = BGl_symbol4137z00zz__expander_argsz00; 
{ /* ./Eval/expdargs.scm 294 */
obj_t BgL_arg2231z00_988;obj_t BgL_arg2232z00_989;
{ /* ./Eval/expdargs.scm 294 */
obj_t BgL_arg2235z00_990;
BgL_arg2235z00_990 = 
MAKE_PAIR(BgL_vz00_984, BNIL); 
BgL_arg2231z00_988 = 
MAKE_PAIR(BgL_az00_983, BgL_arg2235z00_990); } 
{ /* ./Eval/expdargs.scm 295 */
obj_t BgL_arg2239z00_991;
{ /* ./Eval/expdargs.scm 295 */
obj_t BgL_arg2243z00_993;obj_t BgL_arg2244z00_994;
BgL_arg2243z00_993 = BGl_symbol4140z00zz__expander_argsz00; 
{ /* ./Eval/expdargs.scm 295 */
obj_t BgL_arg2247z00_995;obj_t BgL_arg2248z00_996;
{ /* ./Eval/expdargs.scm 295 */
obj_t BgL_arg2251z00_997;obj_t BgL_arg2252z00_998;
BgL_arg2251z00_997 = BGl_symbol4184z00zz__expander_argsz00; 
{ /* ./Eval/expdargs.scm 295 */
obj_t BgL_arg2255z00_999;obj_t BgL_arg2256z00_1000;
{ /* ./Eval/expdargs.scm 295 */
obj_t BgL_arg2260z00_1001;obj_t BgL_arg2261z00_1002;
BgL_arg2260z00_1001 = BGl_symbol4159z00zz__expander_argsz00; 
BgL_arg2261z00_1002 = 
MAKE_PAIR(BgL_az00_983, BNIL); 
BgL_arg2255z00_999 = 
MAKE_PAIR(BgL_arg2260z00_1001, BgL_arg2261z00_1002); } 
{ /* ./Eval/expdargs.scm 296 */
obj_t BgL_arg2265z00_1003;
{ /* ./Eval/expdargs.scm 296 */
obj_t BgL_arg2269z00_1005;obj_t BgL_arg2270z00_1006;
BgL_arg2269z00_1005 = BGl_symbol4185z00zz__expander_argsz00; 
{ /* ./Eval/expdargs.scm 296 */
obj_t BgL_arg2273z00_1007;
{ /* ./Eval/expdargs.scm 296 */
obj_t BgL_arg2276z00_1008;obj_t BgL_arg2277z00_1009;
{ /* ./Eval/expdargs.scm 296 */
obj_t BgL_arg2280z00_1010;obj_t BgL_arg2281z00_1011;
BgL_arg2280z00_1010 = BGl_symbol4146z00zz__expander_argsz00; 
BgL_arg2281z00_1011 = 
MAKE_PAIR(BgL_az00_983, BNIL); 
BgL_arg2276z00_1008 = 
MAKE_PAIR(BgL_arg2280z00_1010, BgL_arg2281z00_1011); } 
{ /* ./Eval/expdargs.scm 296 */
obj_t BgL_auxz00_2950;
BgL_auxz00_2950 = 
BINT(BgL_oidlz00_985); 
BgL_arg2277z00_1009 = 
MAKE_PAIR(BgL_auxz00_2950, BNIL); } 
BgL_arg2273z00_1007 = 
MAKE_PAIR(BgL_arg2276z00_1008, BgL_arg2277z00_1009); } 
BgL_arg2270z00_1006 = 
MAKE_PAIR(BgL_oidz00_979, BgL_arg2273z00_1007); } 
BgL_arg2265z00_1003 = 
MAKE_PAIR(BgL_arg2269z00_1005, BgL_arg2270z00_1006); } 
BgL_arg2256z00_1000 = 
MAKE_PAIR(BgL_arg2265z00_1003, BNIL); } 
BgL_arg2252z00_998 = 
MAKE_PAIR(BgL_arg2255z00_999, BgL_arg2256z00_1000); } 
BgL_arg2247z00_995 = 
MAKE_PAIR(BgL_arg2251z00_997, BgL_arg2252z00_998); } 
{ /* ./Eval/expdargs.scm 297 */
obj_t BgL_arg2286z00_1012;obj_t BgL_arg2287z00_1013;
{ /* ./Eval/expdargs.scm 297 */
obj_t BgL_arg2290z00_1014;obj_t BgL_arg2291z00_1015;
BgL_arg2290z00_1014 = BGl_symbol4150z00zz__expander_argsz00; 
{ /* ./Eval/expdargs.scm 297 */
obj_t BgL_arg2294z00_1016;obj_t BgL_arg2295z00_1017;
{ /* ./Eval/expdargs.scm 297 */
obj_t BgL_arg2298z00_1018;obj_t BgL_arg2299z00_1019;
{ /* ./Eval/expdargs.scm 297 */
obj_t BgL_arg2303z00_1020;obj_t BgL_arg2304z00_1021;
{ /* ./Eval/expdargs.scm 297 */
char * BgL_auxz00_2959;
BgL_auxz00_2959 = 
BSTRING_TO_STRING(BgL_aidz00_980); 
BgL_arg2303z00_1020 = 
string_to_symbol(BgL_auxz00_2959); } 
{ /* ./Eval/expdargs.scm 298 */
obj_t BgL_arg2308z00_1022;
{ /* ./Eval/expdargs.scm 298 */
obj_t BgL_arg2312z00_1024;obj_t BgL_arg2313z00_1025;
BgL_arg2312z00_1024 = BGl_symbol4186z00zz__expander_argsz00; 
{ /* ./Eval/expdargs.scm 298 */
obj_t BgL_arg2316z00_1026;obj_t BgL_arg2317z00_1027;
{ /* ./Eval/expdargs.scm 298 */
obj_t BgL_arg2320z00_1028;obj_t BgL_arg2321z00_1029;
BgL_arg2320z00_1028 = BGl_symbol4146z00zz__expander_argsz00; 
BgL_arg2321z00_1029 = 
MAKE_PAIR(BgL_az00_983, BNIL); 
BgL_arg2316z00_1026 = 
MAKE_PAIR(BgL_arg2320z00_1028, BgL_arg2321z00_1029); } 
{ /* ./Eval/expdargs.scm 300 */
obj_t BgL_arg2325z00_1030;
{ /* ./Eval/expdargs.scm 300 */
obj_t BgL_arg2328z00_1031;
{ /* ./Eval/expdargs.scm 300 */
obj_t BgL_arg2332z00_1033;obj_t BgL_arg2333z00_1034;
BgL_arg2332z00_1033 = BGl_symbol4187z00zz__expander_argsz00; 
{ /* ./Eval/expdargs.scm 300 */
obj_t BgL_arg2336z00_1035;
{ /* ./Eval/expdargs.scm 300 */
obj_t BgL_arg2341z00_1037;obj_t BgL_arg2342z00_1038;
BgL_arg2341z00_1037 = BGl_symbol4146z00zz__expander_argsz00; 
BgL_arg2342z00_1038 = 
MAKE_PAIR(BgL_az00_983, BNIL); 
BgL_arg2336z00_1035 = 
MAKE_PAIR(BgL_arg2341z00_1037, BgL_arg2342z00_1038); } 
BgL_arg2333z00_1034 = 
MAKE_PAIR(BgL_arg2336z00_1035, BNIL); } 
BgL_arg2328z00_1031 = 
MAKE_PAIR(BgL_arg2332z00_1033, BgL_arg2333z00_1034); } 
BgL_arg2325z00_1030 = 
MAKE_PAIR(BgL_arg2328z00_1031, BNIL); } 
{ /* ./Eval/expdargs.scm 298 */
obj_t BgL_auxz00_2969;
BgL_auxz00_2969 = 
BINT(BgL_oidlz00_985); 
BgL_arg2317z00_1027 = 
MAKE_PAIR(BgL_auxz00_2969, BgL_arg2325z00_1030); } } 
BgL_arg2313z00_1025 = 
MAKE_PAIR(BgL_arg2316z00_1026, BgL_arg2317z00_1027); } 
BgL_arg2308z00_1022 = 
MAKE_PAIR(BgL_arg2312z00_1024, BgL_arg2313z00_1025); } 
BgL_arg2304z00_1021 = 
MAKE_PAIR(BgL_arg2308z00_1022, BNIL); } 
BgL_arg2298z00_1018 = 
MAKE_PAIR(BgL_arg2303z00_1020, BgL_arg2304z00_1021); } 
{ /* ./Eval/expdargs.scm 301 */
obj_t BgL_arg2346z00_1039;obj_t BgL_arg2348z00_1040;
{ /* ./Eval/expdargs.scm 301 */
obj_t BgL_arg2351z00_1041;obj_t BgL_arg2353z00_1042;
BgL_arg2351z00_1041 = BGl_symbol4188z00zz__expander_argsz00; 
{ /* ./Eval/expdargs.scm 301 */
obj_t BgL_arg2356z00_1043;
{ /* ./Eval/expdargs.scm 301 */
obj_t BgL_arg2360z00_1045;obj_t BgL_arg2361z00_1046;
BgL_arg2360z00_1045 = BGl_symbol4173z00zz__expander_argsz00; 
BgL_arg2361z00_1046 = 
MAKE_PAIR(BgL_az00_983, BNIL); 
BgL_arg2356z00_1043 = 
MAKE_PAIR(BgL_arg2360z00_1045, BgL_arg2361z00_1046); } 
BgL_arg2353z00_1042 = 
MAKE_PAIR(BgL_arg2356z00_1043, BNIL); } 
BgL_arg2346z00_1039 = 
MAKE_PAIR(BgL_arg2351z00_1041, BgL_arg2353z00_1042); } 
{ /* ./Eval/expdargs.scm 302 */
obj_t BgL_arg2365z00_1047;
{ /* ./Eval/expdargs.scm 302 */
obj_t BgL_arg2369z00_1049;obj_t BgL_arg2371z00_1050;
BgL_arg2369z00_1049 = BGl_symbol4169z00zz__expander_argsz00; 
{ /* ./Eval/expdargs.scm 302 */
obj_t BgL_arg2374z00_1051;
{ /* ./Eval/expdargs.scm 302 */
obj_t BgL_auxz00_2980;
BgL_auxz00_2980 = 
BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(BgL_exprza2za2_978, BNIL); 
BgL_arg2374z00_1051 = 
MAKE_PAIR(BGl_symbol4181z00zz__expander_argsz00, BgL_auxz00_2980); } 
BgL_arg2371z00_1050 = 
MAKE_PAIR(BgL_arg2374z00_1051, BNIL); } 
BgL_arg2365z00_1047 = 
MAKE_PAIR(BgL_arg2369z00_1049, BgL_arg2371z00_1050); } 
BgL_arg2348z00_1040 = 
MAKE_PAIR(BgL_arg2365z00_1047, BNIL); } 
BgL_arg2299z00_1019 = 
MAKE_PAIR(BgL_arg2346z00_1039, BgL_arg2348z00_1040); } 
BgL_arg2294z00_1016 = 
MAKE_PAIR(BgL_arg2298z00_1018, BgL_arg2299z00_1019); } 
{ /* ./Eval/expdargs.scm 303 */
obj_t BgL_arg2385z00_1055;
{ /* ./Eval/expdargs.scm 303 */
obj_t BgL_arg2389z00_1057;obj_t BgL_arg2390z00_1058;
BgL_arg2389z00_1057 = BGl_symbol4142z00zz__expander_argsz00; 
{ /* ./Eval/expdargs.scm 303 */
obj_t BgL_arg2393z00_1059;obj_t BgL_arg2394z00_1060;
{ /* ./Eval/expdargs.scm 303 */
obj_t BgL_arg2397z00_1061;obj_t BgL_arg2398z00_1062;
BgL_arg2397z00_1061 = BGl_symbol4143z00zz__expander_argsz00; 
BgL_arg2398z00_1062 = 
MAKE_PAIR(BGl_symbol4171z00zz__expander_argsz00, BNIL); 
BgL_arg2393z00_1059 = 
MAKE_PAIR(BgL_arg2397z00_1061, BgL_arg2398z00_1062); } 
{ /* ./Eval/expdargs.scm 303 */
obj_t BgL_arg2402z00_1063;obj_t BgL_arg2403z00_1064;
BgL_arg2402z00_1063 = BGl_symbol4188z00zz__expander_argsz00; 
BgL_arg2403z00_1064 = 
MAKE_PAIR(BGl_symbol4169z00zz__expander_argsz00, BNIL); 
BgL_arg2394z00_1060 = 
MAKE_PAIR(BgL_arg2402z00_1063, BgL_arg2403z00_1064); } 
BgL_arg2390z00_1058 = 
MAKE_PAIR(BgL_arg2393z00_1059, BgL_arg2394z00_1060); } 
BgL_arg2385z00_1055 = 
MAKE_PAIR(BgL_arg2389z00_1057, BgL_arg2390z00_1058); } 
BgL_arg2295z00_1017 = 
MAKE_PAIR(BgL_arg2385z00_1055, BNIL); } 
BgL_arg2291z00_1015 = 
MAKE_PAIR(BgL_arg2294z00_1016, BgL_arg2295z00_1017); } 
BgL_arg2286z00_1012 = 
MAKE_PAIR(BgL_arg2290z00_1014, BgL_arg2291z00_1015); } 
{ /* ./Eval/expdargs.scm 304 */
obj_t BgL_arg2407z00_1065;
{ /* ./Eval/expdargs.scm 304 */
obj_t BgL_arg2411z00_1067;obj_t BgL_arg2412z00_1068;
BgL_arg2411z00_1067 = BGl_symbol4142z00zz__expander_argsz00; 
{ /* ./Eval/expdargs.scm 304 */
obj_t BgL_arg2415z00_1069;obj_t BgL_arg2416z00_1070;
{ /* ./Eval/expdargs.scm 304 */
obj_t BgL_arg2419z00_1071;obj_t BgL_arg2420z00_1072;
BgL_arg2419z00_1071 = BGl_symbol4143z00zz__expander_argsz00; 
BgL_arg2420z00_1072 = 
MAKE_PAIR(BGl_symbol4172z00zz__expander_argsz00, BNIL); 
BgL_arg2415z00_1069 = 
MAKE_PAIR(BgL_arg2419z00_1071, BgL_arg2420z00_1072); } 
{ /* ./Eval/expdargs.scm 304 */
obj_t BgL_arg2424z00_1073;
BgL_arg2424z00_1073 = 
MAKE_PAIR(BgL_vz00_984, BNIL); 
BgL_arg2416z00_1070 = 
MAKE_PAIR(BgL_az00_983, BgL_arg2424z00_1073); } 
BgL_arg2412z00_1068 = 
MAKE_PAIR(BgL_arg2415z00_1069, BgL_arg2416z00_1070); } 
BgL_arg2407z00_1065 = 
MAKE_PAIR(BgL_arg2411z00_1067, BgL_arg2412z00_1068); } 
BgL_arg2287z00_1013 = 
MAKE_PAIR(BgL_arg2407z00_1065, BNIL); } 
BgL_arg2248z00_996 = 
MAKE_PAIR(BgL_arg2286z00_1012, BgL_arg2287z00_1013); } 
BgL_arg2244z00_994 = 
MAKE_PAIR(BgL_arg2247z00_995, BgL_arg2248z00_996); } 
BgL_arg2239z00_991 = 
MAKE_PAIR(BgL_arg2243z00_993, BgL_arg2244z00_994); } 
BgL_arg2232z00_989 = 
MAKE_PAIR(BgL_arg2239z00_991, BNIL); } 
BgL_arg2228z00_987 = 
MAKE_PAIR(BgL_arg2231z00_988, BgL_arg2232z00_989); } 
return 
MAKE_PAIR(BgL_arg2227z00_986, BgL_arg2228z00_987);} } }  else 
{ /* ./Eval/expdargs.scm 289 */
BGl_bindzd2optionz12zc0zz__expander_argsz00(BgL_otablez00_19, BgL_oidz00_979, BgL_clausez00_18); 
{ /* ./Eval/expdargs.scm 307 */
obj_t BgL_az00_1074;obj_t BgL_vz00_1075;obj_t BgL_naz00_1076;
BgL_az00_1074 = 
PROCEDURE_ENTRY(BGl_gensymz00zz__r4_symbols_6_4z00)(BGl_gensymz00zz__r4_symbols_6_4z00, BGl_symbol4138z00zz__expander_argsz00, BEOA); 
BgL_vz00_1075 = 
PROCEDURE_ENTRY(BGl_gensymz00zz__r4_symbols_6_4z00)(BGl_gensymz00zz__r4_symbols_6_4z00, BGl_symbol4139z00zz__expander_argsz00, BEOA); 
BgL_naz00_1076 = BGl_symbol4188z00zz__expander_argsz00; 
{ /* ./Eval/expdargs.scm 310 */
obj_t BgL_arg2432z00_1077;obj_t BgL_arg2433z00_1078;
BgL_arg2432z00_1077 = BGl_symbol4137z00zz__expander_argsz00; 
{ /* ./Eval/expdargs.scm 310 */
obj_t BgL_arg2436z00_1079;obj_t BgL_arg2437z00_1080;
{ /* ./Eval/expdargs.scm 310 */
obj_t BgL_arg2440z00_1081;
BgL_arg2440z00_1081 = 
MAKE_PAIR(BgL_vz00_1075, BNIL); 
BgL_arg2436z00_1079 = 
MAKE_PAIR(BgL_az00_1074, BgL_arg2440z00_1081); } 
{ /* ./Eval/expdargs.scm 311 */
obj_t BgL_arg2444z00_1082;
{ /* ./Eval/expdargs.scm 311 */
obj_t BgL_arg2448z00_1084;obj_t BgL_arg2449z00_1085;
BgL_arg2448z00_1084 = BGl_symbol4140z00zz__expander_argsz00; 
{ /* ./Eval/expdargs.scm 311 */
obj_t BgL_arg2452z00_1086;obj_t BgL_arg2453z00_1087;
{ /* ./Eval/expdargs.scm 311 */
obj_t BgL_arg2456z00_1088;obj_t BgL_arg2457z00_1089;
BgL_arg2456z00_1088 = BGl_symbol4184z00zz__expander_argsz00; 
{ /* ./Eval/expdargs.scm 311 */
obj_t BgL_arg2460z00_1090;obj_t BgL_arg2461z00_1091;
{ /* ./Eval/expdargs.scm 311 */
obj_t BgL_arg2464z00_1092;obj_t BgL_arg2465z00_1093;
BgL_arg2464z00_1092 = BGl_symbol4159z00zz__expander_argsz00; 
BgL_arg2465z00_1093 = 
MAKE_PAIR(BgL_az00_1074, BNIL); 
BgL_arg2460z00_1090 = 
MAKE_PAIR(BgL_arg2464z00_1092, BgL_arg2465z00_1093); } 
{ /* ./Eval/expdargs.scm 311 */
obj_t BgL_arg2469z00_1094;
{ /* ./Eval/expdargs.scm 311 */
obj_t BgL_arg2473z00_1096;obj_t BgL_arg2474z00_1097;
BgL_arg2473z00_1096 = BGl_symbol4189z00zz__expander_argsz00; 
{ /* ./Eval/expdargs.scm 311 */
obj_t BgL_arg2477z00_1098;
{ /* ./Eval/expdargs.scm 311 */
obj_t BgL_arg2480z00_1099;
{ /* ./Eval/expdargs.scm 311 */
obj_t BgL_arg2484z00_1101;obj_t BgL_arg2485z00_1102;
BgL_arg2484z00_1101 = BGl_symbol4146z00zz__expander_argsz00; 
BgL_arg2485z00_1102 = 
MAKE_PAIR(BgL_az00_1074, BNIL); 
BgL_arg2480z00_1099 = 
MAKE_PAIR(BgL_arg2484z00_1101, BgL_arg2485z00_1102); } 
BgL_arg2477z00_1098 = 
MAKE_PAIR(BgL_arg2480z00_1099, BNIL); } 
BgL_arg2474z00_1097 = 
MAKE_PAIR(BgL_oidz00_979, BgL_arg2477z00_1098); } 
BgL_arg2469z00_1094 = 
MAKE_PAIR(BgL_arg2473z00_1096, BgL_arg2474z00_1097); } 
BgL_arg2461z00_1091 = 
MAKE_PAIR(BgL_arg2469z00_1094, BNIL); } 
BgL_arg2457z00_1089 = 
MAKE_PAIR(BgL_arg2460z00_1090, BgL_arg2461z00_1091); } 
BgL_arg2452z00_1086 = 
MAKE_PAIR(BgL_arg2456z00_1088, BgL_arg2457z00_1089); } 
{ /* ./Eval/expdargs.scm 312 */
obj_t BgL_arg2489z00_1103;obj_t BgL_arg2490z00_1104;
{ /* ./Eval/expdargs.scm 312 */
obj_t BgL_arg2493z00_1105;obj_t BgL_arg2494z00_1106;
BgL_arg2493z00_1105 = BGl_symbol4150z00zz__expander_argsz00; 
{ /* ./Eval/expdargs.scm 312 */
obj_t BgL_arg2497z00_1107;obj_t BgL_arg2498z00_1108;
{ /* ./Eval/expdargs.scm 312 */
obj_t BgL_arg2501z00_1109;obj_t BgL_arg2502z00_1110;
BgL_arg2501z00_1109 = 
BGl_bindzd2optionzd2argumentsz00zz__expander_argsz00(BgL_argsz00_977, BgL_az00_1074, BgL_naz00_1076, BgL_clausez00_18); 
{ /* ./Eval/expdargs.scm 313 */
obj_t BgL_arg2506z00_1111;
{ /* ./Eval/expdargs.scm 313 */
obj_t BgL_arg2510z00_1113;obj_t BgL_arg2511z00_1114;
BgL_arg2510z00_1113 = BGl_symbol4169z00zz__expander_argsz00; 
{ /* ./Eval/expdargs.scm 313 */
obj_t BgL_arg2514z00_1115;
{ /* ./Eval/expdargs.scm 313 */
obj_t BgL_auxz00_3028;
BgL_auxz00_3028 = 
BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(BgL_exprza2za2_978, BNIL); 
BgL_arg2514z00_1115 = 
MAKE_PAIR(BGl_symbol4181z00zz__expander_argsz00, BgL_auxz00_3028); } 
BgL_arg2511z00_1114 = 
MAKE_PAIR(BgL_arg2514z00_1115, BNIL); } 
BgL_arg2506z00_1111 = 
MAKE_PAIR(BgL_arg2510z00_1113, BgL_arg2511z00_1114); } 
BgL_arg2502z00_1110 = 
MAKE_PAIR(BgL_arg2506z00_1111, BNIL); } 
BgL_arg2497z00_1107 = 
BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(BgL_arg2501z00_1109, BgL_arg2502z00_1110); } 
{ /* ./Eval/expdargs.scm 314 */
obj_t BgL_arg2523z00_1119;
{ /* ./Eval/expdargs.scm 314 */
obj_t BgL_arg2527z00_1121;obj_t BgL_arg2528z00_1122;
BgL_arg2527z00_1121 = BGl_symbol4142z00zz__expander_argsz00; 
{ /* ./Eval/expdargs.scm 314 */
obj_t BgL_arg2531z00_1123;obj_t BgL_arg2532z00_1124;
{ /* ./Eval/expdargs.scm 314 */
obj_t BgL_arg2535z00_1125;obj_t BgL_arg2536z00_1126;
BgL_arg2535z00_1125 = BGl_symbol4143z00zz__expander_argsz00; 
BgL_arg2536z00_1126 = 
MAKE_PAIR(BGl_symbol4171z00zz__expander_argsz00, BNIL); 
BgL_arg2531z00_1123 = 
MAKE_PAIR(BgL_arg2535z00_1125, BgL_arg2536z00_1126); } 
{ /* ./Eval/expdargs.scm 314 */
obj_t BgL_arg2540z00_1127;
BgL_arg2540z00_1127 = 
MAKE_PAIR(BGl_symbol4169z00zz__expander_argsz00, BNIL); 
BgL_arg2532z00_1124 = 
MAKE_PAIR(BgL_naz00_1076, BgL_arg2540z00_1127); } 
BgL_arg2528z00_1122 = 
MAKE_PAIR(BgL_arg2531z00_1123, BgL_arg2532z00_1124); } 
BgL_arg2523z00_1119 = 
MAKE_PAIR(BgL_arg2527z00_1121, BgL_arg2528z00_1122); } 
BgL_arg2498z00_1108 = 
MAKE_PAIR(BgL_arg2523z00_1119, BNIL); } 
BgL_arg2494z00_1106 = 
MAKE_PAIR(BgL_arg2497z00_1107, BgL_arg2498z00_1108); } 
BgL_arg2489z00_1103 = 
MAKE_PAIR(BgL_arg2493z00_1105, BgL_arg2494z00_1106); } 
{ /* ./Eval/expdargs.scm 315 */
obj_t BgL_arg2544z00_1128;
{ /* ./Eval/expdargs.scm 315 */
obj_t BgL_arg2548z00_1130;obj_t BgL_arg2549z00_1131;
BgL_arg2548z00_1130 = BGl_symbol4142z00zz__expander_argsz00; 
{ /* ./Eval/expdargs.scm 315 */
obj_t BgL_arg2552z00_1132;obj_t BgL_arg2553z00_1133;
{ /* ./Eval/expdargs.scm 315 */
obj_t BgL_arg2556z00_1134;obj_t BgL_arg2557z00_1135;
BgL_arg2556z00_1134 = BGl_symbol4143z00zz__expander_argsz00; 
BgL_arg2557z00_1135 = 
MAKE_PAIR(BGl_symbol4172z00zz__expander_argsz00, BNIL); 
BgL_arg2552z00_1132 = 
MAKE_PAIR(BgL_arg2556z00_1134, BgL_arg2557z00_1135); } 
{ /* ./Eval/expdargs.scm 315 */
obj_t BgL_arg2561z00_1136;
BgL_arg2561z00_1136 = 
MAKE_PAIR(BgL_vz00_1075, BNIL); 
BgL_arg2553z00_1133 = 
MAKE_PAIR(BgL_az00_1074, BgL_arg2561z00_1136); } 
BgL_arg2549z00_1131 = 
MAKE_PAIR(BgL_arg2552z00_1132, BgL_arg2553z00_1133); } 
BgL_arg2544z00_1128 = 
MAKE_PAIR(BgL_arg2548z00_1130, BgL_arg2549z00_1131); } 
BgL_arg2490z00_1104 = 
MAKE_PAIR(BgL_arg2544z00_1128, BNIL); } 
BgL_arg2453z00_1087 = 
MAKE_PAIR(BgL_arg2489z00_1103, BgL_arg2490z00_1104); } 
BgL_arg2449z00_1085 = 
MAKE_PAIR(BgL_arg2452z00_1086, BgL_arg2453z00_1087); } 
BgL_arg2444z00_1082 = 
MAKE_PAIR(BgL_arg2448z00_1084, BgL_arg2449z00_1085); } 
BgL_arg2437z00_1080 = 
MAKE_PAIR(BgL_arg2444z00_1082, BNIL); } 
BgL_arg2433z00_1078 = 
MAKE_PAIR(BgL_arg2436z00_1079, BgL_arg2437z00_1080); } 
return 
MAKE_PAIR(BgL_arg2432z00_1077, BgL_arg2433z00_1078);} } } } } } } } } } } } } 
}



/* make-multiple-opt-parser */
obj_t BGl_makezd2multiplezd2optzd2parserzd2zz__expander_argsz00(obj_t BgL_clausez00_20, obj_t BgL_otablez00_21)
{ AN_OBJECT;
{ /* ./Eval/expdargs.scm 320 */
{ /* ./Eval/expdargs.scm 321 */
obj_t BgL_optz00_1137;
BgL_optz00_1137 = 
CAR(BgL_clausez00_20); 
{ /* ./Eval/expdargs.scm 321 */
obj_t BgL_ozb2zb2_1138;
BgL_ozb2zb2_1138 = 
CAR(BgL_optz00_1137); 
{ /* ./Eval/expdargs.scm 322 */
obj_t BgL_argsz00_1139;
BgL_argsz00_1139 = 
BGl_fetchzd2optionzd2argumentsz00zz__expander_argsz00(BgL_optz00_1137); 
{ /* ./Eval/expdargs.scm 323 */
obj_t BgL_exprza2za2_1140;
BgL_exprza2za2_1140 = 
CDR(BgL_clausez00_20); 
{ /* ./Eval/expdargs.scm 324 */

{ /* ./Eval/expdargs.scm 325 */
obj_t BgL_oidzb2zb2_1141;
{ 
obj_t BgL_ozb2zb2_1356;obj_t BgL_oidzb2zb2_1357;obj_t BgL_aidzb2zb2_1358;
BgL_ozb2zb2_1356 = BgL_ozb2zb2_1138; 
BgL_oidzb2zb2_1357 = BNIL; 
BgL_aidzb2zb2_1358 = BNIL; 
BgL_loopz00_1359:
if(
NULLP(BgL_ozb2zb2_1356))
{ /* ./Eval/expdargs.scm 330 */
obj_t BgL_val0_1032z00_1361;obj_t BgL_val1_1033z00_1362;
BgL_val0_1032z00_1361 = 
BGl_reversez12z12zz__r4_pairs_and_lists_6_3z00(BgL_oidzb2zb2_1357); 
BgL_val1_1033z00_1362 = 
BGl_reversez12z12zz__r4_pairs_and_lists_6_3z00(BgL_aidzb2zb2_1358); 
{ /* ./Eval/expdargs.scm 330 */
int BgL_auxz00_3065;
BgL_auxz00_3065 = 
(int)(((long)2)); 
BGL_MVALUES_NUMBER_SET(BgL_auxz00_3065); } 
{ /* ./Eval/expdargs.scm 330 */
int BgL_auxz00_3068;
BgL_auxz00_3068 = 
(int)(((long)1)); 
BGL_MVALUES_VAL_SET(BgL_auxz00_3068, BgL_val1_1033z00_1362); } 
BgL_oidzb2zb2_1141 = BgL_val0_1032z00_1361; }  else 
{ /* ./Eval/expdargs.scm 331 */
obj_t BgL_oidz00_1363;
BgL_oidz00_1363 = 
BGl_fetchzd2optionzd2embedzd2argumentzd2zz__expander_argsz00(
CAR(BgL_ozb2zb2_1356)); 
{ /* ./Eval/expdargs.scm 332 */
obj_t BgL_aidz00_1364;
{ /* ./Eval/expdargs.scm 333 */
int BgL_auxz00_3073;
BgL_auxz00_3073 = 
(int)(((long)1)); 
BgL_aidz00_1364 = 
BGL_MVALUES_VAL(BgL_auxz00_3073); } 
{ /* ./Eval/expdargs.scm 333 */
obj_t BgL_arg3023z00_1365;obj_t BgL_arg3024z00_1366;obj_t BgL_arg3025z00_1367;
BgL_arg3023z00_1365 = 
CDR(BgL_ozb2zb2_1356); 
BgL_arg3024z00_1366 = 
MAKE_PAIR(BgL_oidz00_1363, BgL_oidzb2zb2_1357); 
BgL_arg3025z00_1367 = 
MAKE_PAIR(BgL_aidz00_1364, BgL_aidzb2zb2_1358); 
{ 
obj_t BgL_aidzb2zb2_3081;obj_t BgL_oidzb2zb2_3080;obj_t BgL_ozb2zb2_3079;
BgL_ozb2zb2_3079 = BgL_arg3023z00_1365; 
BgL_oidzb2zb2_3080 = BgL_arg3024z00_1366; 
BgL_aidzb2zb2_3081 = BgL_arg3025z00_1367; 
BgL_aidzb2zb2_1358 = BgL_aidzb2zb2_3081; 
BgL_oidzb2zb2_1357 = BgL_oidzb2zb2_3080; 
BgL_ozb2zb2_1356 = BgL_ozb2zb2_3079; 
goto BgL_loopz00_1359;} } } } } 
{ /* ./Eval/expdargs.scm 335 */
obj_t BgL_aidzb2zb2_1142;
{ /* ./Eval/expdargs.scm 335 */
int BgL_auxz00_3082;
BgL_auxz00_3082 = 
(int)(((long)1)); 
BgL_aidzb2zb2_1142 = 
BGL_MVALUES_VAL(BgL_auxz00_3082); } 
{ /* ./Eval/expdargs.scm 335 */
bool_t BgL_test2574z00_1143;
if(
PAIRP(BgL_aidzb2zb2_1142))
{ 
obj_t BgL_l1034z00_2052;
BgL_l1034z00_2052 = BgL_aidzb2zb2_1142; 
BgL_any1035z00_2051:
if(
NULLP(BgL_l1034z00_2052))
{ /* ./Eval/expdargs.scm 335 */
BgL_test2574z00_1143 = ((bool_t)0); }  else 
{ /* ./Eval/expdargs.scm 335 */
bool_t BgL_testz00_3089;
{ /* ./Eval/expdargs.scm 335 */
obj_t BgL_auxz00_3090;
BgL_auxz00_3090 = 
CAR(BgL_l1034z00_2052); 
BgL_testz00_3089 = 
CBOOL(BgL_auxz00_3090); } 
if(BgL_testz00_3089)
{ /* ./Eval/expdargs.scm 335 */
BgL_test2574z00_1143 = ((bool_t)1); }  else 
{ /* ./Eval/expdargs.scm 335 */
{ 
obj_t BgL_l1034z00_3093;
BgL_l1034z00_3093 = 
CDR(BgL_l1034z00_2052); 
BgL_l1034z00_2052 = BgL_l1034z00_3093; 
goto BgL_any1035z00_2051;} } } }  else 
{ /* ./Eval/expdargs.scm 335 */
BgL_test2574z00_1143 = ((bool_t)0); } 
if(BgL_test2574z00_1143)
{ /* ./Eval/expdargs.scm 335 */
if(
NULLP(BgL_argsz00_1139))
{ /* ./Eval/expdargs.scm 349 */
{ 
obj_t BgL_l1043z00_2081;
BgL_l1043z00_2081 = BgL_oidzb2zb2_1141; 
BgL_forzd2each1044zd2_2080:
if(
PAIRP(BgL_l1043z00_2081))
{ /* ./Eval/expdargs.scm 350 */
BGl_bindzd2optionz12zc0zz__expander_argsz00(BgL_otablez00_21, 
CAR(BgL_l1043z00_2081), BgL_clausez00_20); 
{ 
obj_t BgL_l1043z00_3102;
BgL_l1043z00_3102 = 
CDR(BgL_l1043z00_2081); 
BgL_l1043z00_2081 = BgL_l1043z00_3102; 
goto BgL_forzd2each1044zd2_2080;} }  else 
{ /* ./Eval/expdargs.scm 350 */((bool_t)1); } } 
{ /* ./Eval/expdargs.scm 351 */
obj_t BgL_az00_1150;obj_t BgL_vz00_1151;
BgL_az00_1150 = 
PROCEDURE_ENTRY(BGl_gensymz00zz__r4_symbols_6_4z00)(BGl_gensymz00zz__r4_symbols_6_4z00, BGl_symbol4138z00zz__expander_argsz00, BEOA); 
BgL_vz00_1151 = 
PROCEDURE_ENTRY(BGl_gensymz00zz__r4_symbols_6_4z00)(BGl_gensymz00zz__r4_symbols_6_4z00, BGl_symbol4139z00zz__expander_argsz00, BEOA); 
{ /* ./Eval/expdargs.scm 353 */
obj_t BgL_arg2586z00_1152;obj_t BgL_arg2587z00_1153;
BgL_arg2586z00_1152 = BGl_symbol4137z00zz__expander_argsz00; 
{ /* ./Eval/expdargs.scm 353 */
obj_t BgL_arg2590z00_1154;obj_t BgL_arg2591z00_1155;
{ /* ./Eval/expdargs.scm 353 */
obj_t BgL_arg2594z00_1156;
BgL_arg2594z00_1156 = 
MAKE_PAIR(BgL_vz00_1151, BNIL); 
BgL_arg2590z00_1154 = 
MAKE_PAIR(BgL_az00_1150, BgL_arg2594z00_1156); } 
{ /* ./Eval/expdargs.scm 354 */
obj_t BgL_arg2598z00_1157;
{ /* ./Eval/expdargs.scm 354 */
obj_t BgL_arg2602z00_1159;obj_t BgL_arg2603z00_1160;
BgL_arg2602z00_1159 = BGl_symbol4157z00zz__expander_argsz00; 
{ /* ./Eval/expdargs.scm 355 */
obj_t BgL_arg2606z00_1161;obj_t BgL_arg2607z00_1162;
{ /* ./Eval/expdargs.scm 355 */
obj_t BgL_arg2610z00_1163;obj_t BgL_arg2611z00_1164;
{ /* ./Eval/expdargs.scm 355 */
obj_t BgL_arg2614z00_1165;obj_t BgL_arg2615z00_1166;
BgL_arg2614z00_1165 = BGl_symbol4158z00zz__expander_argsz00; 
{ /* ./Eval/expdargs.scm 355 */
obj_t BgL_arg2618z00_1167;
{ /* ./Eval/expdargs.scm 355 */
obj_t BgL_arg2622z00_1169;obj_t BgL_arg2623z00_1170;
BgL_arg2622z00_1169 = BGl_symbol4159z00zz__expander_argsz00; 
BgL_arg2623z00_1170 = 
MAKE_PAIR(BgL_az00_1150, BNIL); 
BgL_arg2618z00_1167 = 
MAKE_PAIR(BgL_arg2622z00_1169, BgL_arg2623z00_1170); } 
BgL_arg2615z00_1166 = 
MAKE_PAIR(BgL_arg2618z00_1167, BNIL); } 
BgL_arg2610z00_1163 = 
MAKE_PAIR(BgL_arg2614z00_1165, BgL_arg2615z00_1166); } 
{ /* ./Eval/expdargs.scm 356 */
obj_t BgL_arg2627z00_1171;
{ /* ./Eval/expdargs.scm 356 */
obj_t BgL_arg2631z00_1173;obj_t BgL_arg2632z00_1174;
BgL_arg2631z00_1173 = BGl_symbol4142z00zz__expander_argsz00; 
{ /* ./Eval/expdargs.scm 356 */
obj_t BgL_arg2635z00_1175;obj_t BgL_arg2636z00_1176;
{ /* ./Eval/expdargs.scm 356 */
obj_t BgL_arg2639z00_1177;obj_t BgL_arg2640z00_1178;
BgL_arg2639z00_1177 = BGl_symbol4143z00zz__expander_argsz00; 
BgL_arg2640z00_1178 = 
MAKE_PAIR(BGl_symbol4172z00zz__expander_argsz00, BNIL); 
BgL_arg2635z00_1175 = 
MAKE_PAIR(BgL_arg2639z00_1177, BgL_arg2640z00_1178); } 
{ /* ./Eval/expdargs.scm 356 */
obj_t BgL_arg2644z00_1179;
BgL_arg2644z00_1179 = 
MAKE_PAIR(BgL_vz00_1151, BNIL); 
BgL_arg2636z00_1176 = 
MAKE_PAIR(BgL_az00_1150, BgL_arg2644z00_1179); } 
BgL_arg2632z00_1174 = 
MAKE_PAIR(BgL_arg2635z00_1175, BgL_arg2636z00_1176); } 
BgL_arg2627z00_1171 = 
MAKE_PAIR(BgL_arg2631z00_1173, BgL_arg2632z00_1174); } 
BgL_arg2611z00_1164 = 
MAKE_PAIR(BgL_arg2627z00_1171, BNIL); } 
BgL_arg2606z00_1161 = 
MAKE_PAIR(BgL_arg2610z00_1163, BgL_arg2611z00_1164); } 
{ /* ./Eval/expdargs.scm 358 */
obj_t BgL_arg2648z00_1180;obj_t BgL_arg2649z00_1181;
{ /* ./Eval/expdargs.scm 358 */
obj_t BgL_zc3anonymousza32655ze3z83_2301;
{ 
int BgL_auxz00_3124;int BgL_auxz00_3122;
BgL_auxz00_3124 = 
(int)(((long)2)); 
BgL_auxz00_3122 = 
(int)(((long)2)); 
BgL_zc3anonymousza32655ze3z83_2301 = 
make_fx_procedure(BGl_zc3anonymousza32655ze3z83zz__expander_argsz00, BgL_auxz00_3122, BgL_auxz00_3124); } 
{ /* ./Eval/expdargs.scm 358 */
int BgL_auxz00_3127;
BgL_auxz00_3127 = 
(int)(((long)0)); 
PROCEDURE_SET(BgL_zc3anonymousza32655ze3z83_2301, BgL_auxz00_3127, BgL_az00_1150); } 
{ /* ./Eval/expdargs.scm 358 */
int BgL_auxz00_3130;
BgL_auxz00_3130 = 
(int)(((long)1)); 
PROCEDURE_SET(BgL_zc3anonymousza32655ze3z83_2301, BgL_auxz00_3130, BgL_exprza2za2_1140); } 
BgL_arg2648z00_1180 = 
BGl_mapz00zz__r4_control_features_6_9z00(BgL_zc3anonymousza32655ze3z83_2301, BNIL); } 
{ /* ./Eval/expdargs.scm 370 */
obj_t BgL_arg2796z00_1252;
{ /* ./Eval/expdargs.scm 370 */
obj_t BgL_arg2800z00_1254;obj_t BgL_arg2801z00_1255;
BgL_arg2800z00_1254 = BGl_symbol4162z00zz__expander_argsz00; 
{ /* ./Eval/expdargs.scm 371 */
obj_t BgL_arg2804z00_1256;
{ /* ./Eval/expdargs.scm 371 */
obj_t BgL_arg2808z00_1258;obj_t BgL_arg2809z00_1259;
BgL_arg2808z00_1258 = BGl_symbol4142z00zz__expander_argsz00; 
{ /* ./Eval/expdargs.scm 371 */
obj_t BgL_arg2812z00_1260;obj_t BgL_arg2813z00_1261;
{ /* ./Eval/expdargs.scm 371 */
obj_t BgL_arg2816z00_1262;obj_t BgL_arg2817z00_1263;
BgL_arg2816z00_1262 = BGl_symbol4143z00zz__expander_argsz00; 
BgL_arg2817z00_1263 = 
MAKE_PAIR(BGl_symbol4172z00zz__expander_argsz00, BNIL); 
BgL_arg2812z00_1260 = 
MAKE_PAIR(BgL_arg2816z00_1262, BgL_arg2817z00_1263); } 
{ /* ./Eval/expdargs.scm 371 */
obj_t BgL_arg2821z00_1264;
BgL_arg2821z00_1264 = 
MAKE_PAIR(BgL_vz00_1151, BNIL); 
BgL_arg2813z00_1261 = 
MAKE_PAIR(BgL_az00_1150, BgL_arg2821z00_1264); } 
BgL_arg2809z00_1259 = 
MAKE_PAIR(BgL_arg2812z00_1260, BgL_arg2813z00_1261); } 
BgL_arg2804z00_1256 = 
MAKE_PAIR(BgL_arg2808z00_1258, BgL_arg2809z00_1259); } 
BgL_arg2801z00_1255 = 
MAKE_PAIR(BgL_arg2804z00_1256, BNIL); } 
BgL_arg2796z00_1252 = 
MAKE_PAIR(BgL_arg2800z00_1254, BgL_arg2801z00_1255); } 
BgL_arg2649z00_1181 = 
MAKE_PAIR(BgL_arg2796z00_1252, BNIL); } 
BgL_arg2607z00_1162 = 
BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(BgL_arg2648z00_1180, BgL_arg2649z00_1181); } 
BgL_arg2603z00_1160 = 
MAKE_PAIR(BgL_arg2606z00_1161, BgL_arg2607z00_1162); } 
BgL_arg2598z00_1157 = 
MAKE_PAIR(BgL_arg2602z00_1159, BgL_arg2603z00_1160); } 
BgL_arg2591z00_1155 = 
MAKE_PAIR(BgL_arg2598z00_1157, BNIL); } 
BgL_arg2587z00_1153 = 
MAKE_PAIR(BgL_arg2590z00_1154, BgL_arg2591z00_1155); } 
return 
MAKE_PAIR(BgL_arg2586z00_1152, BgL_arg2587z00_1153);} } }  else 
{ /* ./Eval/expdargs.scm 349 */
FAILURE(BGl_string4135z00zz__expander_argsz00,BGl_string4178z00zz__expander_argsz00,BgL_clausez00_20);} }  else 
{ /* ./Eval/expdargs.scm 335 */
{ 
obj_t BgL_l1036z00_2112;
BgL_l1036z00_2112 = BgL_oidzb2zb2_1141; 
BgL_forzd2each1037zd2_2111:
if(
PAIRP(BgL_l1036z00_2112))
{ /* ./Eval/expdargs.scm 336 */
BGl_bindzd2optionz12zc0zz__expander_argsz00(BgL_otablez00_21, 
CAR(BgL_l1036z00_2112), BgL_clausez00_20); 
{ 
obj_t BgL_l1036z00_3154;
BgL_l1036z00_3154 = 
CDR(BgL_l1036z00_2112); 
BgL_l1036z00_2112 = BgL_l1036z00_3154; 
goto BgL_forzd2each1037zd2_2111;} }  else 
{ /* ./Eval/expdargs.scm 336 */((bool_t)1); } } 
{ /* ./Eval/expdargs.scm 337 */
obj_t BgL_az00_1270;obj_t BgL_vz00_1271;obj_t BgL_naz00_1272;
BgL_az00_1270 = 
PROCEDURE_ENTRY(BGl_gensymz00zz__r4_symbols_6_4z00)(BGl_gensymz00zz__r4_symbols_6_4z00, BGl_symbol4138z00zz__expander_argsz00, BEOA); 
BgL_vz00_1271 = 
PROCEDURE_ENTRY(BGl_gensymz00zz__r4_symbols_6_4z00)(BGl_gensymz00zz__r4_symbols_6_4z00, BGl_symbol4139z00zz__expander_argsz00, BEOA); 
BgL_naz00_1272 = BGl_symbol4188z00zz__expander_argsz00; 
{ /* ./Eval/expdargs.scm 340 */
obj_t BgL_arg2838z00_1273;obj_t BgL_arg2839z00_1274;
BgL_arg2838z00_1273 = BGl_symbol4137z00zz__expander_argsz00; 
{ /* ./Eval/expdargs.scm 340 */
obj_t BgL_arg2842z00_1275;obj_t BgL_arg2843z00_1276;
{ /* ./Eval/expdargs.scm 340 */
obj_t BgL_arg2846z00_1277;
BgL_arg2846z00_1277 = 
MAKE_PAIR(BgL_vz00_1271, BNIL); 
BgL_arg2842z00_1275 = 
MAKE_PAIR(BgL_az00_1270, BgL_arg2846z00_1277); } 
{ /* ./Eval/expdargs.scm 341 */
obj_t BgL_arg2850z00_1278;
{ /* ./Eval/expdargs.scm 341 */
obj_t BgL_arg2854z00_1280;obj_t BgL_arg2855z00_1281;
BgL_arg2854z00_1280 = BGl_symbol4140z00zz__expander_argsz00; 
{ /* ./Eval/expdargs.scm 341 */
obj_t BgL_arg2858z00_1282;obj_t BgL_arg2859z00_1283;
{ /* ./Eval/expdargs.scm 341 */
obj_t BgL_arg2862z00_1284;obj_t BgL_arg2863z00_1285;
BgL_arg2862z00_1284 = BGl_symbol4184z00zz__expander_argsz00; 
{ /* ./Eval/expdargs.scm 341 */
obj_t BgL_arg2866z00_1286;obj_t BgL_arg2868z00_1287;
{ /* ./Eval/expdargs.scm 341 */
obj_t BgL_arg2871z00_1288;obj_t BgL_arg2872z00_1289;
BgL_arg2871z00_1288 = BGl_symbol4159z00zz__expander_argsz00; 
BgL_arg2872z00_1289 = 
MAKE_PAIR(BgL_az00_1270, BNIL); 
BgL_arg2866z00_1286 = 
MAKE_PAIR(BgL_arg2871z00_1288, BgL_arg2872z00_1289); } 
{ /* ./Eval/expdargs.scm 342 */
obj_t BgL_arg2876z00_1290;
{ /* ./Eval/expdargs.scm 342 */
obj_t BgL_arg2880z00_1292;obj_t BgL_arg2882z00_1293;
BgL_arg2880z00_1292 = BGl_symbol4190z00zz__expander_argsz00; 
{ /* ./Eval/expdargs.scm 342 */
obj_t BgL_arg2885z00_1294;
if(
NULLP(BgL_ozb2zb2_1138))
{ /* ./Eval/expdargs.scm 342 */
BgL_arg2885z00_1294 = BNIL; }  else 
{ /* ./Eval/expdargs.scm 342 */
obj_t BgL_head1040z00_1298;
BgL_head1040z00_1298 = 
MAKE_PAIR(BNIL, BNIL); 
{ 
obj_t BgL_l1038z00_1299;obj_t BgL_tail1041z00_1300;
BgL_l1038z00_1299 = BgL_ozb2zb2_1138; 
BgL_tail1041z00_1300 = BgL_head1040z00_1298; 
BgL_map1039z00_1301:
if(
NULLP(BgL_l1038z00_1299))
{ /* ./Eval/expdargs.scm 342 */
BgL_arg2885z00_1294 = 
CDR(BgL_head1040z00_1298); }  else 
{ /* ./Eval/expdargs.scm 343 */
obj_t BgL_newtail1042z00_1303;
{ /* ./Eval/expdargs.scm 343 */
obj_t BgL_arg2898z00_1305;
{ /* ./Eval/expdargs.scm 343 */
obj_t BgL_oz00_1307;
BgL_oz00_1307 = 
CAR(BgL_l1038z00_1299); 
{ /* ./Eval/expdargs.scm 343 */
obj_t BgL_arg2902z00_1308;obj_t BgL_arg2903z00_1309;
BgL_arg2902z00_1308 = BGl_symbol4189z00zz__expander_argsz00; 
{ /* ./Eval/expdargs.scm 343 */
obj_t BgL_arg2906z00_1310;
{ /* ./Eval/expdargs.scm 343 */
obj_t BgL_arg2909z00_1311;
{ /* ./Eval/expdargs.scm 343 */
obj_t BgL_arg2913z00_1313;obj_t BgL_arg2914z00_1314;
BgL_arg2913z00_1313 = BGl_symbol4146z00zz__expander_argsz00; 
BgL_arg2914z00_1314 = 
MAKE_PAIR(BgL_az00_1270, BNIL); 
BgL_arg2909z00_1311 = 
MAKE_PAIR(BgL_arg2913z00_1313, BgL_arg2914z00_1314); } 
BgL_arg2906z00_1310 = 
MAKE_PAIR(BgL_arg2909z00_1311, BNIL); } 
BgL_arg2903z00_1309 = 
MAKE_PAIR(BgL_oz00_1307, BgL_arg2906z00_1310); } 
BgL_arg2898z00_1305 = 
MAKE_PAIR(BgL_arg2902z00_1308, BgL_arg2903z00_1309); } } 
BgL_newtail1042z00_1303 = 
MAKE_PAIR(BgL_arg2898z00_1305, BNIL); } 
SET_CDR(BgL_tail1041z00_1300, BgL_newtail1042z00_1303); 
{ 
obj_t BgL_tail1041z00_3180;obj_t BgL_l1038z00_3178;
BgL_l1038z00_3178 = 
CDR(BgL_l1038z00_1299); 
BgL_tail1041z00_3180 = BgL_newtail1042z00_1303; 
BgL_tail1041z00_1300 = BgL_tail1041z00_3180; 
BgL_l1038z00_1299 = BgL_l1038z00_3178; 
goto BgL_map1039z00_1301;} } } } 
BgL_arg2882z00_1293 = 
BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(BgL_arg2885z00_1294, BNIL); } 
BgL_arg2876z00_1290 = 
MAKE_PAIR(BgL_arg2880z00_1292, BgL_arg2882z00_1293); } 
BgL_arg2868z00_1287 = 
MAKE_PAIR(BgL_arg2876z00_1290, BNIL); } 
BgL_arg2863z00_1285 = 
MAKE_PAIR(BgL_arg2866z00_1286, BgL_arg2868z00_1287); } 
BgL_arg2858z00_1282 = 
MAKE_PAIR(BgL_arg2862z00_1284, BgL_arg2863z00_1285); } 
{ /* ./Eval/expdargs.scm 345 */
obj_t BgL_arg2922z00_1315;obj_t BgL_arg2924z00_1316;
{ /* ./Eval/expdargs.scm 345 */
obj_t BgL_arg2927z00_1317;obj_t BgL_arg2928z00_1318;
BgL_arg2927z00_1317 = BGl_symbol4150z00zz__expander_argsz00; 
{ /* ./Eval/expdargs.scm 345 */
obj_t BgL_arg2931z00_1319;obj_t BgL_arg2932z00_1320;
{ /* ./Eval/expdargs.scm 345 */
obj_t BgL_arg2935z00_1321;obj_t BgL_arg2936z00_1322;
BgL_arg2935z00_1321 = 
BGl_bindzd2optionzd2argumentsz00zz__expander_argsz00(BgL_argsz00_1139, BgL_az00_1270, BgL_naz00_1272, BgL_clausez00_20); 
{ /* ./Eval/expdargs.scm 346 */
obj_t BgL_arg2940z00_1323;
{ /* ./Eval/expdargs.scm 346 */
obj_t BgL_arg2944z00_1325;obj_t BgL_arg2946z00_1326;
BgL_arg2944z00_1325 = BGl_symbol4169z00zz__expander_argsz00; 
{ /* ./Eval/expdargs.scm 346 */
obj_t BgL_arg2949z00_1327;
{ /* ./Eval/expdargs.scm 346 */
obj_t BgL_auxz00_3187;
BgL_auxz00_3187 = 
BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(BgL_exprza2za2_1140, BNIL); 
BgL_arg2949z00_1327 = 
MAKE_PAIR(BGl_symbol4181z00zz__expander_argsz00, BgL_auxz00_3187); } 
BgL_arg2946z00_1326 = 
MAKE_PAIR(BgL_arg2949z00_1327, BNIL); } 
BgL_arg2940z00_1323 = 
MAKE_PAIR(BgL_arg2944z00_1325, BgL_arg2946z00_1326); } 
BgL_arg2936z00_1322 = 
MAKE_PAIR(BgL_arg2940z00_1323, BNIL); } 
BgL_arg2931z00_1319 = 
BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(BgL_arg2935z00_1321, BgL_arg2936z00_1322); } 
{ /* ./Eval/expdargs.scm 347 */
obj_t BgL_arg2959z00_1331;
{ /* ./Eval/expdargs.scm 347 */
obj_t BgL_arg2963z00_1333;obj_t BgL_arg2964z00_1334;
BgL_arg2963z00_1333 = BGl_symbol4142z00zz__expander_argsz00; 
{ /* ./Eval/expdargs.scm 347 */
obj_t BgL_arg2967z00_1335;obj_t BgL_arg2968z00_1336;
{ /* ./Eval/expdargs.scm 347 */
obj_t BgL_arg2971z00_1337;obj_t BgL_arg2973z00_1338;
BgL_arg2971z00_1337 = BGl_symbol4143z00zz__expander_argsz00; 
BgL_arg2973z00_1338 = 
MAKE_PAIR(BGl_symbol4171z00zz__expander_argsz00, BNIL); 
BgL_arg2967z00_1335 = 
MAKE_PAIR(BgL_arg2971z00_1337, BgL_arg2973z00_1338); } 
{ /* ./Eval/expdargs.scm 347 */
obj_t BgL_arg2977z00_1339;
BgL_arg2977z00_1339 = 
MAKE_PAIR(BGl_symbol4169z00zz__expander_argsz00, BNIL); 
BgL_arg2968z00_1336 = 
MAKE_PAIR(BgL_naz00_1272, BgL_arg2977z00_1339); } 
BgL_arg2964z00_1334 = 
MAKE_PAIR(BgL_arg2967z00_1335, BgL_arg2968z00_1336); } 
BgL_arg2959z00_1331 = 
MAKE_PAIR(BgL_arg2963z00_1333, BgL_arg2964z00_1334); } 
BgL_arg2932z00_1320 = 
MAKE_PAIR(BgL_arg2959z00_1331, BNIL); } 
BgL_arg2928z00_1318 = 
MAKE_PAIR(BgL_arg2931z00_1319, BgL_arg2932z00_1320); } 
BgL_arg2922z00_1315 = 
MAKE_PAIR(BgL_arg2927z00_1317, BgL_arg2928z00_1318); } 
{ /* ./Eval/expdargs.scm 348 */
obj_t BgL_arg2981z00_1340;
{ /* ./Eval/expdargs.scm 348 */
obj_t BgL_arg2986z00_1342;obj_t BgL_arg2987z00_1343;
BgL_arg2986z00_1342 = BGl_symbol4142z00zz__expander_argsz00; 
{ /* ./Eval/expdargs.scm 348 */
obj_t BgL_arg2990z00_1344;obj_t BgL_arg2991z00_1345;
{ /* ./Eval/expdargs.scm 348 */
obj_t BgL_arg2994z00_1346;obj_t BgL_arg2995z00_1347;
BgL_arg2994z00_1346 = BGl_symbol4143z00zz__expander_argsz00; 
BgL_arg2995z00_1347 = 
MAKE_PAIR(BGl_symbol4172z00zz__expander_argsz00, BNIL); 
BgL_arg2990z00_1344 = 
MAKE_PAIR(BgL_arg2994z00_1346, BgL_arg2995z00_1347); } 
{ /* ./Eval/expdargs.scm 348 */
obj_t BgL_arg2999z00_1348;
BgL_arg2999z00_1348 = 
MAKE_PAIR(BgL_vz00_1271, BNIL); 
BgL_arg2991z00_1345 = 
MAKE_PAIR(BgL_az00_1270, BgL_arg2999z00_1348); } 
BgL_arg2987z00_1343 = 
MAKE_PAIR(BgL_arg2990z00_1344, BgL_arg2991z00_1345); } 
BgL_arg2981z00_1340 = 
MAKE_PAIR(BgL_arg2986z00_1342, BgL_arg2987z00_1343); } 
BgL_arg2924z00_1316 = 
MAKE_PAIR(BgL_arg2981z00_1340, BNIL); } 
BgL_arg2859z00_1283 = 
MAKE_PAIR(BgL_arg2922z00_1315, BgL_arg2924z00_1316); } 
BgL_arg2855z00_1281 = 
MAKE_PAIR(BgL_arg2858z00_1282, BgL_arg2859z00_1283); } 
BgL_arg2850z00_1278 = 
MAKE_PAIR(BgL_arg2854z00_1280, BgL_arg2855z00_1281); } 
BgL_arg2843z00_1276 = 
MAKE_PAIR(BgL_arg2850z00_1278, BNIL); } 
BgL_arg2839z00_1274 = 
MAKE_PAIR(BgL_arg2842z00_1275, BgL_arg2843z00_1276); } 
return 
MAKE_PAIR(BgL_arg2838z00_1273, BgL_arg2839z00_1274);} } } } } } } } } } } } 
}



/* <anonymous:2655> */
obj_t BGl_zc3anonymousza32655ze3z83zz__expander_argsz00(obj_t BgL_envz00_2302, obj_t BgL_oidz00_2305, obj_t BgL_aidz00_2306)
{ AN_OBJECT;
{ /* ./Eval/expdargs.scm 357 */
{ /* ./Eval/expdargs.scm 358 */
obj_t BgL_az00_2303;obj_t BgL_exprza2za2_2304;
{ /* ./Eval/expdargs.scm 358 */
int BgL_auxz00_3216;
BgL_auxz00_3216 = 
(int)(((long)0)); 
BgL_az00_2303 = 
PROCEDURE_REF(BgL_envz00_2302, BgL_auxz00_3216); } 
{ /* ./Eval/expdargs.scm 358 */
int BgL_auxz00_3219;
BgL_auxz00_3219 = 
(int)(((long)1)); 
BgL_exprza2za2_2304 = 
PROCEDURE_REF(BgL_envz00_2302, BgL_auxz00_3219); } 
{ 
obj_t BgL_oidz00_1184;obj_t BgL_aidz00_1185;
BgL_oidz00_1184 = BgL_oidz00_2305; 
BgL_aidz00_1185 = BgL_aidz00_2306; 
if(
CBOOL(BgL_aidz00_1185))
{ /* ./Eval/expdargs.scm 359 */
int BgL_oidlz00_1187;
BgL_oidlz00_1187 = 
STRING_LENGTH(BgL_oidz00_1184); 
{ /* ./Eval/expdargs.scm 360 */
obj_t BgL_arg2657z00_1188;obj_t BgL_arg2658z00_1189;
{ /* ./Eval/expdargs.scm 360 */
obj_t BgL_arg2661z00_1190;obj_t BgL_arg2662z00_1191;
BgL_arg2661z00_1190 = BGl_symbol4185z00zz__expander_argsz00; 
{ /* ./Eval/expdargs.scm 360 */
obj_t BgL_arg2665z00_1192;
{ /* ./Eval/expdargs.scm 360 */
obj_t BgL_arg2668z00_1193;obj_t BgL_arg2669z00_1194;
{ /* ./Eval/expdargs.scm 360 */
obj_t BgL_arg2672z00_1195;obj_t BgL_arg2673z00_1196;
BgL_arg2672z00_1195 = BGl_symbol4146z00zz__expander_argsz00; 
BgL_arg2673z00_1196 = 
MAKE_PAIR(BgL_az00_2303, BNIL); 
BgL_arg2668z00_1193 = 
MAKE_PAIR(BgL_arg2672z00_1195, BgL_arg2673z00_1196); } 
{ /* ./Eval/expdargs.scm 360 */
obj_t BgL_auxz00_3227;
BgL_auxz00_3227 = 
BINT(BgL_oidlz00_1187); 
BgL_arg2669z00_1194 = 
MAKE_PAIR(BgL_auxz00_3227, BNIL); } 
BgL_arg2665z00_1192 = 
MAKE_PAIR(BgL_arg2668z00_1193, BgL_arg2669z00_1194); } 
BgL_arg2662z00_1191 = 
MAKE_PAIR(BgL_oidz00_1184, BgL_arg2665z00_1192); } 
BgL_arg2657z00_1188 = 
MAKE_PAIR(BgL_arg2661z00_1190, BgL_arg2662z00_1191); } 
{ /* ./Eval/expdargs.scm 361 */
obj_t BgL_arg2678z00_1197;obj_t BgL_arg2679z00_1198;
{ /* ./Eval/expdargs.scm 361 */
obj_t BgL_arg2682z00_1199;obj_t BgL_arg2683z00_1200;
BgL_arg2682z00_1199 = BGl_symbol4150z00zz__expander_argsz00; 
{ /* ./Eval/expdargs.scm 361 */
obj_t BgL_arg2686z00_1201;obj_t BgL_arg2687z00_1202;
{ /* ./Eval/expdargs.scm 361 */
obj_t BgL_arg2690z00_1203;
{ /* ./Eval/expdargs.scm 361 */
obj_t BgL_arg2694z00_1205;obj_t BgL_arg2695z00_1206;
{ /* ./Eval/expdargs.scm 361 */
char * BgL_auxz00_3233;
BgL_auxz00_3233 = 
BSTRING_TO_STRING(BgL_aidz00_1185); 
BgL_arg2694z00_1205 = 
string_to_symbol(BgL_auxz00_3233); } 
{ /* ./Eval/expdargs.scm 362 */
obj_t BgL_arg2699z00_1207;
{ /* ./Eval/expdargs.scm 362 */
obj_t BgL_arg2703z00_1209;obj_t BgL_arg2704z00_1210;
BgL_arg2703z00_1209 = BGl_symbol4186z00zz__expander_argsz00; 
{ /* ./Eval/expdargs.scm 363 */
obj_t BgL_arg2707z00_1211;obj_t BgL_arg2708z00_1212;
{ /* ./Eval/expdargs.scm 363 */
obj_t BgL_arg2711z00_1213;obj_t BgL_arg2712z00_1214;
BgL_arg2711z00_1213 = BGl_symbol4146z00zz__expander_argsz00; 
BgL_arg2712z00_1214 = 
MAKE_PAIR(BgL_az00_2303, BNIL); 
BgL_arg2707z00_1211 = 
MAKE_PAIR(BgL_arg2711z00_1213, BgL_arg2712z00_1214); } 
{ /* ./Eval/expdargs.scm 365 */
obj_t BgL_arg2716z00_1215;
{ /* ./Eval/expdargs.scm 365 */
obj_t BgL_arg2719z00_1216;
{ /* ./Eval/expdargs.scm 365 */
obj_t BgL_arg2723z00_1218;obj_t BgL_arg2724z00_1219;
BgL_arg2723z00_1218 = BGl_symbol4187z00zz__expander_argsz00; 
{ /* ./Eval/expdargs.scm 365 */
obj_t BgL_arg2727z00_1220;
{ /* ./Eval/expdargs.scm 365 */
obj_t BgL_arg2731z00_1222;obj_t BgL_arg2732z00_1223;
BgL_arg2731z00_1222 = BGl_symbol4146z00zz__expander_argsz00; 
BgL_arg2732z00_1223 = 
MAKE_PAIR(BgL_az00_2303, BNIL); 
BgL_arg2727z00_1220 = 
MAKE_PAIR(BgL_arg2731z00_1222, BgL_arg2732z00_1223); } 
BgL_arg2724z00_1219 = 
MAKE_PAIR(BgL_arg2727z00_1220, BNIL); } 
BgL_arg2719z00_1216 = 
MAKE_PAIR(BgL_arg2723z00_1218, BgL_arg2724z00_1219); } 
BgL_arg2716z00_1215 = 
MAKE_PAIR(BgL_arg2719z00_1216, BNIL); } 
{ /* ./Eval/expdargs.scm 362 */
obj_t BgL_auxz00_3243;
BgL_auxz00_3243 = 
BINT(BgL_oidlz00_1187); 
BgL_arg2708z00_1212 = 
MAKE_PAIR(BgL_auxz00_3243, BgL_arg2716z00_1215); } } 
BgL_arg2704z00_1210 = 
MAKE_PAIR(BgL_arg2707z00_1211, BgL_arg2708z00_1212); } 
BgL_arg2699z00_1207 = 
MAKE_PAIR(BgL_arg2703z00_1209, BgL_arg2704z00_1210); } 
BgL_arg2695z00_1206 = 
MAKE_PAIR(BgL_arg2699z00_1207, BNIL); } 
BgL_arg2690z00_1203 = 
MAKE_PAIR(BgL_arg2694z00_1205, BgL_arg2695z00_1206); } 
BgL_arg2686z00_1201 = 
MAKE_PAIR(BgL_arg2690z00_1203, BNIL); } 
{ /* ./Eval/expdargs.scm 366 */
obj_t BgL_arg2736z00_1224;obj_t BgL_arg2737z00_1225;
{ /* ./Eval/expdargs.scm 366 */
obj_t BgL_arg2740z00_1226;obj_t BgL_arg2741z00_1227;
BgL_arg2740z00_1226 = BGl_symbol4188z00zz__expander_argsz00; 
{ /* ./Eval/expdargs.scm 366 */
obj_t BgL_arg2744z00_1228;
{ /* ./Eval/expdargs.scm 366 */
obj_t BgL_arg2748z00_1230;obj_t BgL_arg2749z00_1231;
BgL_arg2748z00_1230 = BGl_symbol4173z00zz__expander_argsz00; 
BgL_arg2749z00_1231 = 
MAKE_PAIR(BgL_az00_2303, BNIL); 
BgL_arg2744z00_1228 = 
MAKE_PAIR(BgL_arg2748z00_1230, BgL_arg2749z00_1231); } 
BgL_arg2741z00_1227 = 
MAKE_PAIR(BgL_arg2744z00_1228, BNIL); } 
BgL_arg2736z00_1224 = 
MAKE_PAIR(BgL_arg2740z00_1226, BgL_arg2741z00_1227); } 
{ /* ./Eval/expdargs.scm 367 */
obj_t BgL_arg2753z00_1232;
{ /* ./Eval/expdargs.scm 367 */
obj_t BgL_arg2757z00_1234;obj_t BgL_arg2758z00_1235;
BgL_arg2757z00_1234 = BGl_symbol4169z00zz__expander_argsz00; 
{ /* ./Eval/expdargs.scm 367 */
obj_t BgL_arg2761z00_1236;
{ /* ./Eval/expdargs.scm 367 */
obj_t BgL_auxz00_3255;
BgL_auxz00_3255 = 
BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(BgL_exprza2za2_2304, BNIL); 
BgL_arg2761z00_1236 = 
MAKE_PAIR(BGl_symbol4181z00zz__expander_argsz00, BgL_auxz00_3255); } 
BgL_arg2758z00_1235 = 
MAKE_PAIR(BgL_arg2761z00_1236, BNIL); } 
BgL_arg2753z00_1232 = 
MAKE_PAIR(BgL_arg2757z00_1234, BgL_arg2758z00_1235); } 
BgL_arg2737z00_1225 = 
MAKE_PAIR(BgL_arg2753z00_1232, BNIL); } 
BgL_arg2687z00_1202 = 
MAKE_PAIR(BgL_arg2736z00_1224, BgL_arg2737z00_1225); } 
BgL_arg2683z00_1200 = 
MAKE_PAIR(BgL_arg2686z00_1201, BgL_arg2687z00_1202); } 
BgL_arg2678z00_1197 = 
MAKE_PAIR(BgL_arg2682z00_1199, BgL_arg2683z00_1200); } 
{ /* ./Eval/expdargs.scm 368 */
obj_t BgL_arg2770z00_1240;
{ /* ./Eval/expdargs.scm 368 */
obj_t BgL_arg2774z00_1242;obj_t BgL_arg2775z00_1243;
BgL_arg2774z00_1242 = BGl_symbol4142z00zz__expander_argsz00; 
{ /* ./Eval/expdargs.scm 368 */
obj_t BgL_arg2778z00_1244;obj_t BgL_arg2779z00_1245;
{ /* ./Eval/expdargs.scm 368 */
obj_t BgL_arg2782z00_1246;obj_t BgL_arg2783z00_1247;
BgL_arg2782z00_1246 = BGl_symbol4143z00zz__expander_argsz00; 
BgL_arg2783z00_1247 = 
MAKE_PAIR(BGl_symbol4171z00zz__expander_argsz00, BNIL); 
BgL_arg2778z00_1244 = 
MAKE_PAIR(BgL_arg2782z00_1246, BgL_arg2783z00_1247); } 
{ /* ./Eval/expdargs.scm 368 */
obj_t BgL_arg2787z00_1248;obj_t BgL_arg2788z00_1249;
BgL_arg2787z00_1248 = BGl_symbol4188z00zz__expander_argsz00; 
BgL_arg2788z00_1249 = 
MAKE_PAIR(BGl_symbol4169z00zz__expander_argsz00, BNIL); 
BgL_arg2779z00_1245 = 
MAKE_PAIR(BgL_arg2787z00_1248, BgL_arg2788z00_1249); } 
BgL_arg2775z00_1243 = 
MAKE_PAIR(BgL_arg2778z00_1244, BgL_arg2779z00_1245); } 
BgL_arg2770z00_1240 = 
MAKE_PAIR(BgL_arg2774z00_1242, BgL_arg2775z00_1243); } 
BgL_arg2679z00_1198 = 
MAKE_PAIR(BgL_arg2770z00_1240, BNIL); } 
BgL_arg2658z00_1189 = 
MAKE_PAIR(BgL_arg2678z00_1197, BgL_arg2679z00_1198); } 
return 
MAKE_PAIR(BgL_arg2657z00_1188, BgL_arg2658z00_1189);} }  else 
{ /* ./Eval/expdargs.scm 369 */
obj_t BgL_auxz00_3274;
BGl_bigloozd2typezd2errorz00zz__errorz00(BGl_symbol4191z00zz__expander_argsz00, BGl_string4192z00zz__expander_argsz00, BFALSE); 
exit( -1 );
return 
PROCEDURE_ENTRY(BgL_auxz00_3274)(BFALSE, BFALSE, BEOA);} } } } 
}



/* fetch-option-arguments */
obj_t BGl_fetchzd2optionzd2argumentsz00zz__expander_argsz00(obj_t BgL_optz00_22)
{ AN_OBJECT;
{ /* ./Eval/expdargs.scm 380 */
{ /* ./Eval/expdargs.scm 381 */
obj_t BgL_arg3041z00_1372;
BgL_arg3041z00_1372 = 
CDR(BgL_optz00_22); 
{ 
obj_t BgL_iz00_2148;obj_t BgL_resz00_2149;
BgL_iz00_2148 = BgL_arg3041z00_1372; 
BgL_resz00_2149 = BNIL; 
BgL_loopz00_2147:
{ /* ./Eval/expdargs.scm 381 */
bool_t BgL_test3045z00_2156;
if(
NULLP(BgL_iz00_2148))
{ /* ./Eval/expdargs.scm 381 */
BgL_test3045z00_2156 = ((bool_t)1); }  else 
{ /* ./Eval/expdargs.scm 381 */
BgL_test3045z00_2156 = 
BGl_helpzd2messagezf3z21zz__expander_argsz00(
CAR(BgL_iz00_2148)); } 
if(BgL_test3045z00_2156)
{ /* ./Eval/expdargs.scm 381 */
return 
BGl_reversez12z12zz__r4_pairs_and_lists_6_3z00(BgL_resz00_2149);}  else 
{ /* ./Eval/expdargs.scm 381 */
{ /* ./Eval/expdargs.scm 381 */
obj_t BgL_arg3048z00_2159;obj_t BgL_arg3049z00_2160;
BgL_arg3048z00_2159 = 
CDR(BgL_iz00_2148); 
{ /* ./Eval/expdargs.scm 381 */
obj_t BgL_auxz00_3285;
BgL_auxz00_3285 = 
CAR(BgL_iz00_2148); 
BgL_arg3049z00_2160 = 
MAKE_PAIR(BgL_auxz00_3285, BgL_resz00_2149); } 
{ 
obj_t BgL_resz00_3289;obj_t BgL_iz00_3288;
BgL_iz00_3288 = BgL_arg3048z00_2159; 
BgL_resz00_3289 = BgL_arg3049z00_2160; 
BgL_resz00_2149 = BgL_resz00_3289; 
BgL_iz00_2148 = BgL_iz00_3288; 
goto BgL_loopz00_2147;} } } } } } } 
}



/* bind-option-arguments */
obj_t BGl_bindzd2optionzd2argumentsz00zz__expander_argsz00(obj_t BgL_argsz00_23, obj_t BgL_azb2zb2_24, obj_t BgL_naz00_25, obj_t BgL_clausez00_26)
{ AN_OBJECT;
{ /* ./Eval/expdargs.scm 392 */
{ /* ./Eval/expdargs.scm 393 */
obj_t BgL_arg3063z00_1380;obj_t BgL_arg3064z00_1381;
{ /* ./Eval/expdargs.scm 393 */
obj_t BgL_arg3067z00_1382;
{ /* ./Eval/expdargs.scm 393 */
obj_t BgL_arg3070z00_1383;
{ /* ./Eval/expdargs.scm 393 */
obj_t BgL_arg3074z00_1385;obj_t BgL_arg3075z00_1386;
BgL_arg3074z00_1385 = BGl_symbol4173z00zz__expander_argsz00; 
BgL_arg3075z00_1386 = 
MAKE_PAIR(BgL_azb2zb2_24, BNIL); 
BgL_arg3070z00_1383 = 
MAKE_PAIR(BgL_arg3074z00_1385, BgL_arg3075z00_1386); } 
BgL_arg3067z00_1382 = 
MAKE_PAIR(BgL_arg3070z00_1383, BNIL); } 
BgL_arg3063z00_1380 = 
MAKE_PAIR(BgL_naz00_25, BgL_arg3067z00_1382); } 
BgL_arg3064z00_1381 = 
BGl_loopz00zz__expander_argsz00(BgL_naz00_25, BgL_clausez00_26, BgL_argsz00_23); 
return 
MAKE_PAIR(BgL_arg3063z00_1380, BgL_arg3064z00_1381);} } 
}



/* loop */
obj_t BGl_loopz00zz__expander_argsz00(obj_t BgL_naz00_2314, obj_t BgL_clausez00_2313, obj_t BgL_argsz00_1387)
{ AN_OBJECT;
{ /* ./Eval/expdargs.scm 394 */
if(
PAIRP(BgL_argsz00_1387))
{ /* ./Eval/expdargs.scm 396 */
obj_t BgL_idz00_1390;
BgL_idz00_1390 = 
BGl_fetchzd2argumentzd2namez00zz__expander_argsz00(
CAR(BgL_argsz00_1387), BgL_clausez00_2313); 
{ /* ./Eval/expdargs.scm 397 */
obj_t BgL_arg3081z00_1391;obj_t BgL_arg3082z00_1392;
{ /* ./Eval/expdargs.scm 397 */
obj_t BgL_arg3085z00_1393;obj_t BgL_arg3086z00_1394;
{ /* ./Eval/expdargs.scm 397 */
char * BgL_auxz00_3300;
BgL_auxz00_3300 = 
BSTRING_TO_STRING(BgL_idz00_1390); 
BgL_arg3085z00_1393 = 
string_to_symbol(BgL_auxz00_3300); } 
{ /* ./Eval/expdargs.scm 398 */
obj_t BgL_arg3090z00_1395;
{ /* ./Eval/expdargs.scm 398 */
obj_t BgL_arg3094z00_1397;obj_t BgL_arg3095z00_1398;
BgL_arg3094z00_1397 = BGl_symbol4140z00zz__expander_argsz00; 
{ /* ./Eval/expdargs.scm 398 */
obj_t BgL_arg3098z00_1399;obj_t BgL_arg3099z00_1400;
{ /* ./Eval/expdargs.scm 398 */
obj_t BgL_arg3102z00_1401;obj_t BgL_arg3103z00_1402;
BgL_arg3102z00_1401 = BGl_symbol4159z00zz__expander_argsz00; 
BgL_arg3103z00_1402 = 
MAKE_PAIR(BgL_naz00_2314, BNIL); 
BgL_arg3098z00_1399 = 
MAKE_PAIR(BgL_arg3102z00_1401, BgL_arg3103z00_1402); } 
{ /* ./Eval/expdargs.scm 399 */
obj_t BgL_arg3107z00_1403;obj_t BgL_arg3108z00_1404;
{ /* ./Eval/expdargs.scm 399 */
obj_t BgL_arg3111z00_1405;obj_t BgL_arg3112z00_1406;
BgL_arg3111z00_1405 = BGl_symbol4146z00zz__expander_argsz00; 
BgL_arg3112z00_1406 = 
MAKE_PAIR(BgL_naz00_2314, BNIL); 
BgL_arg3107z00_1403 = 
MAKE_PAIR(BgL_arg3111z00_1405, BgL_arg3112z00_1406); } 
{ /* ./Eval/expdargs.scm 400 */
obj_t BgL_arg3116z00_1407;
{ /* ./Eval/expdargs.scm 400 */
obj_t BgL_arg3120z00_1409;obj_t BgL_arg3121z00_1410;
BgL_arg3120z00_1409 = BGl_symbol4145z00zz__expander_argsz00; 
{ /* ./Eval/expdargs.scm 400 */
obj_t BgL_arg3124z00_1411;obj_t BgL_arg3125z00_1412;
{ /* ./Eval/expdargs.scm 400 */
obj_t BgL_arg3128z00_1413;obj_t BgL_arg3129z00_1414;
BgL_arg3128z00_1413 = BGl_symbol4143z00zz__expander_argsz00; 
{ /* ./Eval/expdargs.scm 400 */
obj_t BgL_auxz00_3307;
BgL_auxz00_3307 = 
CAR(BgL_argsz00_1387); 
BgL_arg3129z00_1414 = 
MAKE_PAIR(BgL_auxz00_3307, BNIL); } 
BgL_arg3124z00_1411 = 
MAKE_PAIR(BgL_arg3128z00_1413, BgL_arg3129z00_1414); } 
{ /* ./Eval/expdargs.scm 400 */
obj_t BgL_arg3138z00_1418;
{ /* ./Eval/expdargs.scm 402 */
obj_t BgL_arg3141z00_1419;
{ /* ./Eval/expdargs.scm 402 */
obj_t BgL_arg3145z00_1421;obj_t BgL_arg3146z00_1422;
BgL_arg3145z00_1421 = BGl_symbol4143z00zz__expander_argsz00; 
BgL_arg3146z00_1422 = 
MAKE_PAIR(BgL_clausez00_2313, BNIL); 
BgL_arg3141z00_1419 = 
MAKE_PAIR(BgL_arg3145z00_1421, BgL_arg3146z00_1422); } 
BgL_arg3138z00_1418 = 
MAKE_PAIR(BgL_arg3141z00_1419, BNIL); } 
BgL_arg3125z00_1412 = 
MAKE_PAIR(BGl_string4193z00zz__expander_argsz00, BgL_arg3138z00_1418); } 
BgL_arg3121z00_1410 = 
MAKE_PAIR(BgL_arg3124z00_1411, BgL_arg3125z00_1412); } 
BgL_arg3116z00_1407 = 
MAKE_PAIR(BgL_arg3120z00_1409, BgL_arg3121z00_1410); } 
BgL_arg3108z00_1404 = 
MAKE_PAIR(BgL_arg3116z00_1407, BNIL); } 
BgL_arg3099z00_1400 = 
MAKE_PAIR(BgL_arg3107z00_1403, BgL_arg3108z00_1404); } 
BgL_arg3095z00_1398 = 
MAKE_PAIR(BgL_arg3098z00_1399, BgL_arg3099z00_1400); } 
BgL_arg3090z00_1395 = 
MAKE_PAIR(BgL_arg3094z00_1397, BgL_arg3095z00_1398); } 
BgL_arg3086z00_1394 = 
MAKE_PAIR(BgL_arg3090z00_1395, BNIL); } 
BgL_arg3081z00_1391 = 
MAKE_PAIR(BgL_arg3085z00_1393, BgL_arg3086z00_1394); } 
{ /* ./Eval/expdargs.scm 403 */
obj_t BgL_arg3150z00_1423;obj_t BgL_arg3151z00_1424;
{ /* ./Eval/expdargs.scm 403 */
obj_t BgL_arg3154z00_1425;
{ /* ./Eval/expdargs.scm 403 */
obj_t BgL_arg3157z00_1426;
{ /* ./Eval/expdargs.scm 403 */
obj_t BgL_arg3161z00_1428;obj_t BgL_arg3162z00_1429;
BgL_arg3161z00_1428 = BGl_symbol4173z00zz__expander_argsz00; 
BgL_arg3162z00_1429 = 
MAKE_PAIR(BgL_naz00_2314, BNIL); 
BgL_arg3157z00_1426 = 
MAKE_PAIR(BgL_arg3161z00_1428, BgL_arg3162z00_1429); } 
BgL_arg3154z00_1425 = 
MAKE_PAIR(BgL_arg3157z00_1426, BNIL); } 
BgL_arg3150z00_1423 = 
MAKE_PAIR(BgL_naz00_2314, BgL_arg3154z00_1425); } 
BgL_arg3151z00_1424 = 
BGl_loopz00zz__expander_argsz00(BgL_naz00_2314, BgL_clausez00_2313, 
CDR(BgL_argsz00_1387)); 
BgL_arg3082z00_1392 = 
MAKE_PAIR(BgL_arg3150z00_1423, BgL_arg3151z00_1424); } 
return 
MAKE_PAIR(BgL_arg3081z00_1391, BgL_arg3082z00_1392);} }  else 
{ /* ./Eval/expdargs.scm 395 */
return BNIL;} } 
}



/* fetch-argument-name */
obj_t BGl_fetchzd2argumentzd2namez00zz__expander_argsz00(obj_t BgL_az00_27, obj_t BgL_clausez00_28)
{ AN_OBJECT;
{ /* ./Eval/expdargs.scm 410 */
if(
SYMBOLP(BgL_az00_27))
{ /* ./Eval/expdargs.scm 413 */
obj_t BgL_sz00_1433;
BgL_sz00_1433 = 
SYMBOL_TO_STRING(BgL_az00_27); 
{ /* ./Eval/expdargs.scm 414 */
bool_t BgL_testz00_3334;
{ /* ./Eval/expdargs.scm 414 */
unsigned char BgL_auxz00_3335;
{ /* ./Eval/expdargs.scm 414 */
int BgL_auxz00_3336;
BgL_auxz00_3336 = 
(int)(((long)0)); 
BgL_auxz00_3335 = 
STRING_REF(BgL_sz00_1433, BgL_auxz00_3336); } 
BgL_testz00_3334 = 
(BgL_auxz00_3335==((unsigned char)'?')); } 
if(BgL_testz00_3334)
{ /* ./Eval/expdargs.scm 418 */
int BgL_auxz00_3342;int BgL_auxz00_3340;
BgL_auxz00_3342 = 
STRING_LENGTH(BgL_sz00_1433); 
BgL_auxz00_3340 = 
(int)(((long)1)); 
return 
c_substring(BgL_sz00_1433, BgL_auxz00_3340, BgL_auxz00_3342);}  else 
{ /* ./Eval/expdargs.scm 417 */
obj_t BgL_arg3183z00_1437;
BgL_arg3183z00_1437 = 
string_append_3(BGl_string4194z00zz__expander_argsz00, BgL_sz00_1433, BGl_string4195z00zz__expander_argsz00); 
FAILURE(BGl_string4135z00zz__expander_argsz00,BgL_arg3183z00_1437,BgL_clausez00_28);} } }  else 
{ /* ./Eval/expdargs.scm 411 */
FAILURE(BGl_string4135z00zz__expander_argsz00,BGl_string4196z00zz__expander_argsz00,BgL_clausez00_28);} } 
}



/* fetch-option-embed-argument */
obj_t BGl_fetchzd2optionzd2embedzd2argumentzd2zz__expander_argsz00(obj_t BgL_optz00_29)
{ AN_OBJECT;
{ /* ./Eval/expdargs.scm 425 */
{ /* ./Eval/expdargs.scm 426 */
long BgL_lenz00_1439;
{ /* ./Eval/expdargs.scm 426 */
long BgL_auxz00_3348;
{ /* ./Eval/expdargs.scm 426 */
int BgL_auxz00_3349;
BgL_auxz00_3349 = 
STRING_LENGTH(BgL_optz00_29); 
BgL_auxz00_3348 = 
(long)(BgL_auxz00_3349); } 
BgL_lenz00_1439 = 
(BgL_auxz00_3348-((long)1)); } 
{ 
long BgL_iz00_1440;
BgL_iz00_1440 = ((long)0); 
BgL_loopz00_1441:
if(
(BgL_iz00_1440>=BgL_lenz00_1439))
{ /* ./Eval/expdargs.scm 429 */
{ /* ./Eval/expdargs.scm 430 */
int BgL_auxz00_3355;
BgL_auxz00_3355 = 
(int)(((long)2)); 
BGL_MVALUES_NUMBER_SET(BgL_auxz00_3355); } 
{ /* ./Eval/expdargs.scm 430 */
int BgL_auxz00_3358;
BgL_auxz00_3358 = 
(int)(((long)1)); 
BGL_MVALUES_VAL_SET(BgL_auxz00_3358, BFALSE); } 
return BgL_optz00_29;}  else 
{ /* ./Eval/expdargs.scm 431 */
bool_t BgL_testz00_3361;
{ /* ./Eval/expdargs.scm 431 */
unsigned char BgL_auxz00_3362;
{ /* ./Eval/expdargs.scm 431 */
int BgL_auxz00_3363;
BgL_auxz00_3363 = 
(int)(BgL_iz00_1440); 
BgL_auxz00_3362 = 
STRING_REF(BgL_optz00_29, BgL_auxz00_3363); } 
BgL_testz00_3361 = 
(BgL_auxz00_3362==((unsigned char)'?')); } 
if(BgL_testz00_3361)
{ /* ./Eval/expdargs.scm 431 */
{ /* ./Eval/expdargs.scm 432 */
obj_t BgL_val0_1047z00_1446;obj_t BgL_val1_1048z00_1447;
{ /* ./Eval/expdargs.scm 432 */
int BgL_auxz00_3369;int BgL_auxz00_3367;
BgL_auxz00_3369 = 
(int)(BgL_iz00_1440); 
BgL_auxz00_3367 = 
(int)(((long)0)); 
BgL_val0_1047z00_1446 = 
c_substring(BgL_optz00_29, BgL_auxz00_3367, BgL_auxz00_3369); } 
{ /* ./Eval/expdargs.scm 433 */
long BgL_arg3202z00_1448;long BgL_arg3203z00_1449;
BgL_arg3202z00_1448 = 
(((long)1)+BgL_iz00_1440); 
BgL_arg3203z00_1449 = 
(BgL_lenz00_1439+((long)1)); 
{ /* ./Eval/expdargs.scm 433 */
int BgL_auxz00_3376;int BgL_auxz00_3374;
BgL_auxz00_3376 = 
(int)(BgL_arg3203z00_1449); 
BgL_auxz00_3374 = 
(int)(BgL_arg3202z00_1448); 
BgL_val1_1048z00_1447 = 
c_substring(BgL_optz00_29, BgL_auxz00_3374, BgL_auxz00_3376); } } 
{ /* ./Eval/expdargs.scm 432 */
int BgL_auxz00_3379;
BgL_auxz00_3379 = 
(int)(((long)2)); 
BGL_MVALUES_NUMBER_SET(BgL_auxz00_3379); } 
{ /* ./Eval/expdargs.scm 432 */
int BgL_auxz00_3382;
BgL_auxz00_3382 = 
(int)(((long)1)); 
BGL_MVALUES_VAL_SET(BgL_auxz00_3382, BgL_val1_1048z00_1447); } 
return BgL_val0_1047z00_1446;} }  else 
{ /* ./Eval/expdargs.scm 431 */
{ 
long BgL_iz00_3385;
BgL_iz00_3385 = 
(BgL_iz00_1440+((long)1)); 
BgL_iz00_1440 = BgL_iz00_3385; 
goto BgL_loopz00_1441;} } } } } } 
}



/* help-message? */
bool_t BGl_helpzd2messagezf3z21zz__expander_argsz00(obj_t BgL_expz00_30)
{ AN_OBJECT;
{ /* ./Eval/expdargs.scm 440 */
if(
PAIRP(BgL_expz00_30))
{ /* ./Eval/expdargs.scm 441 */
bool_t BgL_testz00_3389;
{ /* ./Eval/expdargs.scm 441 */
obj_t BgL_arg3227z00_1459;
BgL_arg3227z00_1459 = 
CAR(BgL_expz00_30); 
{ /* ./Eval/expdargs.scm 441 */
bool_t BgL__ortest_1049z00_2243;
BgL__ortest_1049z00_2243 = 
(BgL_arg3227z00_1459==BGl_symbol4197z00zz__expander_argsz00); 
if(BgL__ortest_1049z00_2243)
{ /* ./Eval/expdargs.scm 441 */
BgL_testz00_3389 = BgL__ortest_1049z00_2243
; }  else 
{ /* ./Eval/expdargs.scm 441 */
BgL_testz00_3389 = 
(BgL_arg3227z00_1459==BGl_symbol4198z00zz__expander_argsz00)
; } } } 
if(BgL_testz00_3389)
{ /* ./Eval/expdargs.scm 441 */
return ((bool_t)1);}  else 
{ /* ./Eval/expdargs.scm 441 */
return ((bool_t)0);} }  else 
{ /* ./Eval/expdargs.scm 441 */
return ((bool_t)0);} } 
}



/* synopsis? */
bool_t BGl_synopsiszf3zf3zz__expander_argsz00(obj_t BgL_symz00_31)
{ AN_OBJECT;
{ /* ./Eval/expdargs.scm 448 */
{ /* ./Eval/expdargs.scm 449 */
bool_t BgL__ortest_1049z00_2244;
BgL__ortest_1049z00_2244 = 
(BgL_symz00_31==BGl_symbol4197z00zz__expander_argsz00); 
if(BgL__ortest_1049z00_2244)
{ /* ./Eval/expdargs.scm 449 */
return BgL__ortest_1049z00_2244;}  else 
{ /* ./Eval/expdargs.scm 449 */
return 
(BgL_symz00_31==BGl_symbol4198z00zz__expander_argsz00);} } } 
}



/* args-parse-usage */
BGL_EXPORTED_DEF obj_t BGl_argszd2parsezd2usagez00zz__expander_argsz00(obj_t BgL_descrsz00_32)
{ AN_OBJECT;
{ /* ./Eval/expdargs.scm 454 */
{ /* ./Eval/expdargs.scm 455 */
obj_t BgL_zc3anonymousza33234ze3z83_2307;
{ 
int BgL_auxz00_3399;int BgL_auxz00_3397;
BgL_auxz00_3399 = 
(int)(((long)1)); 
BgL_auxz00_3397 = 
(int)(((long)1)); 
BgL_zc3anonymousza33234ze3z83_2307 = 
make_fx_procedure(BGl_zc3anonymousza33234ze3z83zz__expander_argsz00, BgL_auxz00_3397, BgL_auxz00_3399); } 
{ /* ./Eval/expdargs.scm 455 */
int BgL_auxz00_3402;
BgL_auxz00_3402 = 
(int)(((long)0)); 
PROCEDURE_SET(BgL_zc3anonymousza33234ze3z83_2307, BgL_auxz00_3402, BgL_descrsz00_32); } 
return BgL_zc3anonymousza33234ze3z83_2307;} } 
}



/* _args-parse-usage */
obj_t BGl__argszd2parsezd2usagez00zz__expander_argsz00(obj_t BgL_envz00_2308, obj_t BgL_descrsz00_2309)
{ AN_OBJECT;
{ /* ./Eval/expdargs.scm 454 */
return 
BGl_argszd2parsezd2usagez00zz__expander_argsz00(BgL_descrsz00_2309);} 
}



/* <anonymous:3234> */
obj_t BGl_zc3anonymousza33234ze3z83zz__expander_argsz00(obj_t BgL_envz00_2310, obj_t BgL_manualzf3zf3_2312)
{ AN_OBJECT;
{ /* ./Eval/expdargs.scm 455 */
{ /* ./Eval/expdargs.scm 456 */
obj_t BgL_descrsz00_2311;
{ /* ./Eval/expdargs.scm 456 */
int BgL_auxz00_3406;
BgL_auxz00_3406 = 
(int)(((long)0)); 
BgL_descrsz00_2311 = 
PROCEDURE_REF(BgL_envz00_2310, BgL_auxz00_3406); } 
{ 
obj_t BgL_manualzf3zf3_1461;
BgL_manualzf3zf3_1461 = BgL_manualzf3zf3_2312; 
if(
CBOOL(BgL_manualzf3zf3_1461))
{ /* ./Eval/expdargs.scm 456 */
obj_t BgL_port1050z00_1463;
BgL_port1050z00_1463 = 
BGL_CURRENT_OUTPUT_PORT(); 
display_string(BGl_string4199z00zz__expander_argsz00, BgL_port1050z00_1463); 
WRITE_CHAR(((unsigned char)'\n'), BgL_port1050z00_1463); }  else 
{ /* ./Eval/expdargs.scm 456 */BFALSE; } 
{ /* ./Eval/expdargs.scm 457 */
obj_t BgL_mlenzd2symzd2_1465;
BgL_mlenzd2symzd2_1465 = 
BINT(((long)0)); 
{ 
obj_t BgL_l1051z00_1466;
BgL_l1051z00_1466 = BgL_descrsz00_2311; 
BgL_forzd2each1052zd2_1467:
if(
PAIRP(BgL_l1051z00_1466))
{ /* ./Eval/expdargs.scm 459 */
{ /* ./Eval/expdargs.scm 460 */
obj_t BgL_optz00_1469;
BgL_optz00_1469 = 
CAR(BgL_l1051z00_1466); 
{ /* ./Eval/expdargs.scm 460 */
obj_t BgL_namez00_1470;
BgL_namez00_1470 = 
CAR(BgL_optz00_1469); 
if(
STRINGP(BgL_namez00_1470))
{ /* ./Eval/expdargs.scm 462 */
int BgL_lenz00_1472;
BgL_lenz00_1472 = 
STRING_LENGTH(BgL_namez00_1470); 
{ /* ./Eval/expdargs.scm 463 */
bool_t BgL_testz00_3422;
{ /* ./Eval/expdargs.scm 463 */
long BgL_auxz00_3425;long BgL_auxz00_3423;
BgL_auxz00_3425 = 
(long)CINT(BgL_mlenzd2symzd2_1465); 
BgL_auxz00_3423 = 
(long)(BgL_lenz00_1472); 
BgL_testz00_3422 = 
(BgL_auxz00_3423>BgL_auxz00_3425); } 
if(BgL_testz00_3422)
{ /* ./Eval/expdargs.scm 463 */
BgL_mlenzd2symzd2_1465 = 
BINT(BgL_lenz00_1472); }  else 
{ /* ./Eval/expdargs.scm 463 */BFALSE; } } }  else 
{ /* ./Eval/expdargs.scm 461 */BFALSE; } } } 
{ 
obj_t BgL_l1051z00_3429;
BgL_l1051z00_3429 = 
CDR(BgL_l1051z00_1466); 
BgL_l1051z00_1466 = BgL_l1051z00_3429; 
goto BgL_forzd2each1052zd2_1467;} }  else 
{ /* ./Eval/expdargs.scm 459 */((bool_t)1); } } 
{ 
obj_t BgL_l1053z00_1475;
BgL_l1053z00_1475 = BgL_descrsz00_2311; 
BgL_forzd2each1054zd2_1476:
if(
PAIRP(BgL_l1053z00_1475))
{ /* ./Eval/expdargs.scm 466 */
{ /* ./Eval/expdargs.scm 467 */
obj_t BgL_optz00_1478;
BgL_optz00_1478 = 
CAR(BgL_l1053z00_1475); 
{ /* ./Eval/expdargs.scm 467 */
obj_t BgL_namez00_1479;
BgL_namez00_1479 = 
CAR(BgL_optz00_1478); 
if(
STRINGP(BgL_namez00_1479))
{ /* ./Eval/expdargs.scm 469 */
{ /* ./Eval/expdargs.scm 470 */
int BgL_lenz00_1482;
BgL_lenz00_1482 = 
STRING_LENGTH(BgL_namez00_1479); 
{ /* ./Eval/expdargs.scm 471 */
obj_t BgL_descz00_1483;
BgL_descz00_1483 = 
CDR(BgL_optz00_1478); 
{ /* ./Eval/expdargs.scm 472 */
obj_t BgL_tabz00_1484;
{ /* ./Eval/expdargs.scm 473 */
long BgL_arg3276z00_1490;
{ /* ./Eval/expdargs.scm 473 */
long BgL_auxz00_3441;long BgL_auxz00_3439;
BgL_auxz00_3441 = 
(long)(BgL_lenz00_1482); 
BgL_auxz00_3439 = 
(long)CINT(BgL_mlenzd2symzd2_1465); 
BgL_arg3276z00_1490 = 
(BgL_auxz00_3439-BgL_auxz00_3441); } 
{ /* ./Eval/expdargs.scm 473 */
obj_t BgL_list3278z00_1491;
{ /* ./Eval/expdargs.scm 473 */
obj_t BgL_auxz00_3444;
BgL_auxz00_3444 = 
BCHAR(((unsigned char)' ')); 
BgL_list3278z00_1491 = 
MAKE_PAIR(BgL_auxz00_3444, BNIL); } 
{ /* ./Eval/expdargs.scm 473 */
obj_t BgL_res3983z00_2269;
{ /* ./Eval/expdargs.scm 473 */
int BgL_kz00_2263;
BgL_kz00_2263 = 
(int)(BgL_arg3276z00_1490); 
{ /* ./Eval/expdargs.scm 473 */
obj_t BgL_arg3768z00_2266;
BgL_arg3768z00_2266 = 
CAR(BgL_list3278z00_1491); 
{ /* ./Eval/expdargs.scm 473 */
unsigned char BgL_auxz00_3449;
BgL_auxz00_3449 = 
(unsigned char)CCHAR(BgL_arg3768z00_2266); 
BgL_res3983z00_2269 = 
make_string(BgL_kz00_2263, BgL_auxz00_3449); } } } 
BgL_tabz00_1484 = BgL_res3983z00_2269; } } } 
{ /* ./Eval/expdargs.scm 473 */

if(
CBOOL(BgL_manualzf3zf3_1461))
{ /* ./Eval/expdargs.scm 475 */
{ /* ./Eval/expdargs.scm 477 */
obj_t BgL_arg3257z00_1485;
{ /* ./Eval/expdargs.scm 477 */
obj_t BgL_arg3261z00_1487;
BgL_arg3261z00_1487 = 
MAKE_PAIR(BgL_descz00_1483, BNIL); 
BgL_arg3257z00_1485 = 
MAKE_PAIR(BgL_namez00_1479, BgL_arg3261z00_1487); } 
BGl_writez00zz__r4_output_6_10_3z00(BgL_arg3257z00_1485, BNIL); } 
{ /* ./Eval/expdargs.scm 478 */
obj_t BgL_arg3265z00_1488;
BgL_arg3265z00_1488 = 
BGL_CURRENT_OUTPUT_PORT(); 
WRITE_CHAR(((unsigned char)'\n'), BgL_arg3265z00_1488); } }  else 
{ /* ./Eval/expdargs.scm 479 */
obj_t BgL_port1055z00_1489;
BgL_port1055z00_1489 = 
BGL_CURRENT_OUTPUT_PORT(); 
display_string(BGl_string4200z00zz__expander_argsz00, BgL_port1055z00_1489); 
BGl_displayzd22zd2zz__r4_output_6_10_3z00(BgL_namez00_1479, BgL_port1055z00_1489); 
BGl_displayzd22zd2zz__r4_output_6_10_3z00(BgL_tabz00_1484, BgL_port1055z00_1489); 
display_string(BGl_string4177z00zz__expander_argsz00, BgL_port1055z00_1489); 
BGl_displayzd22zd2zz__r4_output_6_10_3z00(BgL_descz00_1483, BgL_port1055z00_1489); 
WRITE_CHAR(((unsigned char)'\n'), BgL_port1055z00_1489); } } } } } }  else 
{ /* ./Eval/expdargs.scm 469 */
if(
(BgL_namez00_1479==BGl_symbol4175z00zz__expander_argsz00))
{ /* ./Eval/expdargs.scm 480 */
{ /* ./Eval/expdargs.scm 481 */
obj_t BgL_port1056z00_1493;
BgL_port1056z00_1493 = 
BGL_CURRENT_OUTPUT_PORT(); 
{ /* ./Eval/expdargs.scm 481 */
obj_t BgL_auxz00_3469;
BgL_auxz00_3469 = 
BCHAR(((unsigned char)'\n')); 
display_char(BgL_auxz00_3469, BgL_port1056z00_1493); } 
BGl_displayzd22zd2zz__r4_output_6_10_3z00(
CDR(BgL_optz00_1478), BgL_port1056z00_1493); 
display_string(BGl_string4201z00zz__expander_argsz00, BgL_port1056z00_1493); 
WRITE_CHAR(((unsigned char)'\n'), BgL_port1056z00_1493); } }  else 
{ /* ./Eval/expdargs.scm 480 */BFALSE; } } } } 
{ 
obj_t BgL_l1053z00_3476;
BgL_l1053z00_3476 = 
CDR(BgL_l1053z00_1475); 
BgL_l1053z00_1475 = BgL_l1053z00_3476; 
goto BgL_forzd2each1054zd2_1476;} }  else 
{ /* ./Eval/expdargs.scm 466 */((bool_t)1); } } BGl_symbol4202z00zz__expander_argsz00; } 
if(
CBOOL(BgL_manualzf3zf3_1461))
{ /* ./Eval/expdargs.scm 484 */
obj_t BgL_port1057z00_1496;
BgL_port1057z00_1496 = 
BGL_CURRENT_OUTPUT_PORT(); 
display_string(BGl_string4203z00zz__expander_argsz00, BgL_port1057z00_1496); 
return 
WRITE_CHAR(((unsigned char)'\n'), BgL_port1057z00_1496);}  else 
{ /* ./Eval/expdargs.scm 484 */
return BFALSE;} } } } 
}



/* imported-modules-init */
obj_t BGl_importedzd2moduleszd2initz00zz__expander_argsz00()
{ AN_OBJECT;
{ /* ./Eval/expdargs.scm 19 */
BGl_modulezd2initializa7ationz75zz__errorz00(((long)11084), "__expander_args"); 
BGl_modulezd2initializa7ationz75zz__biglooz00(((long)48291), "__expander_args"); 
BGl_modulezd2initializa7ationz75zz__tvectorz00(((long)57114), "__expander_args"); 
BGl_modulezd2initializa7ationz75zz__structurez00(((long)53290), "__expander_args"); 
BGl_modulezd2initializa7ationz75zz__bexitz00(((long)13855), "__expander_args"); 
BGl_modulezd2initializa7ationz75zz__hashz00(((long)62825), "__expander_args"); 
BGl_modulezd2initializa7ationz75zz__match_normaliza7eza7(((long)48951), "__expander_args"); 
BGl_modulezd2initializa7ationz75zz__r4_numbers_6_5z00(((long)21694), "__expander_args"); 
BGl_modulezd2initializa7ationz75zz__r4_numbers_6_5_fixnumz00(((long)6615), "__expander_args"); 
BGl_modulezd2initializa7ationz75zz__r4_numbers_6_5_flonumz00(((long)49269), "__expander_args"); 
BGl_modulezd2initializa7ationz75zz__r4_characters_6_6z00(((long)29164), "__expander_args"); 
BGl_modulezd2initializa7ationz75zz__r4_equivalence_6_2z00(((long)51785), "__expander_args"); 
BGl_modulezd2initializa7ationz75zz__r4_booleans_6_1z00(((long)35070), "__expander_args"); 
BGl_modulezd2initializa7ationz75zz__r4_symbols_6_4z00(((long)247), "__expander_args"); 
BGl_modulezd2initializa7ationz75zz__r4_strings_6_7z00(((long)21875), "__expander_args"); 
BGl_modulezd2initializa7ationz75zz__r4_pairs_and_lists_6_3z00(((long)104413), "__expander_args"); 
BGl_modulezd2initializa7ationz75zz__r4_input_6_10_2z00(((long)50132), "__expander_args"); 
BGl_modulezd2initializa7ationz75zz__r4_control_features_6_9z00(((long)63121), "__expander_args"); 
BGl_modulezd2initializa7ationz75zz__r4_vectors_6_8z00(((long)13988), "__expander_args"); 
BGl_modulezd2initializa7ationz75zz__r4_ports_6_10_1z00(((long)45566), "__expander_args"); 
BGl_modulezd2initializa7ationz75zz__r4_output_6_10_3z00(((long)18972), "__expander_args"); 
BGl_modulezd2initializa7ationz75zz__r5_control_features_6_4z00(((long)50514), "__expander_args"); 
return 
BGl_modulezd2initializa7ationz75zz__prognz00(((long)9608), "__expander_args");} 
}

