/*===========================================================================*/
/*   (DotNet/as.scm)                                                         */
/*   Bigloo (2.6b)                                                           */
/*   Inria -- Sophia Antipolis (c)       Mon Dec 15 12:14:36 CET 2003        */
/*===========================================================================*/
/* COMPILATION: (/users/serrano/prgm/project/bigloo/bin/bigloo -q -afile .afile -fsharing -fno-reflection -cc gcc-2.95 -lib-dir /users/serrano/prgm/project/bigloo/lib/2.6b -unsafev -no-hello -O2 -rm -unsafe -s -indent DotNet/as.scm)*/
/* GC selection */
#define THE_GC BOEHM_GC

#include <bigloo.h>

BGL_IMPORT bool_t BGl_2zd3zd3zz__r4_numbers_6_5z00(obj_t, obj_t);
static obj_t BGl_methodz00zzdotnet_asz00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_modulezd2initializa7ationz75zzdotnet_asz00(long, char *);
BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__readerz00(long, char *);
BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__r4_pairs_and_lists_6_3z00(long, char *);
BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__r4_symbols_6_4z00(long, char *);
BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__r4_numbers_6_5z00(long, char *);
BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__r4_numbers_6_5_fixnumz00(long, char *);
BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__r4_output_6_10_3z00(long, char *);
static obj_t BGl_decl_methodz00zzdotnet_asz00(obj_t, obj_t);
BGL_IMPORT bool_t bigloo_strncmp(obj_t, obj_t, int);
static obj_t BGl_mproto1z00zzdotnet_asz00(obj_t, obj_t, obj_t);
BGL_IMPORT long bgl_list_length(obj_t);
static obj_t BGl_mproto2z00zzdotnet_asz00(obj_t, obj_t, obj_t);
static obj_t BGl_packagez00zzdotnet_asz00(obj_t);
BGL_IMPORT obj_t open_input_string(obj_t);
static obj_t BGl_followz00zzdotnet_asz00(obj_t);
static long BGl_maxstackz00zzdotnet_asz00(obj_t, obj_t, obj_t);
static obj_t BGl_makezd2labenvzd2zzdotnet_asz00(obj_t);
static obj_t BGl_nbretz00zzdotnet_asz00(obj_t, obj_t);
static obj_t BGl_typenamez00zzdotnet_asz00(obj_t, obj_t);
BGL_IMPORT obj_t BGl_readz00zz__readerz00(obj_t);
BGL_IMPORT obj_t string_append(obj_t, obj_t);
static obj_t BGl_outfieldz00zzdotnet_asz00(obj_t, obj_t, obj_t);
static obj_t BGl_deadz00zzdotnet_asz00(obj_t);
static bool_t BGl_hasswz00zzdotnet_asz00(obj_t);
static obj_t BGl_nbargsz00zzdotnet_asz00(obj_t, obj_t);
BGL_IMPORT obj_t BGl_memqz00zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
static obj_t BGl_decl_fieldz00zzdotnet_asz00(obj_t, obj_t);
static obj_t BGl_changezd2labzd2zzdotnet_asz00(obj_t, obj_t, obj_t, long);
BGL_IMPORT obj_t string_to_bstring(char *);
BGL_IMPORT obj_t BGl_integerzd2ze3stringz31zz__r4_numbers_6_5_fixnumz00(long, obj_t);
BGL_IMPORT obj_t BGl_gensymz00zz__r4_symbols_6_4z00;
static obj_t BGl_stvarz00zzdotnet_asz00(obj_t, obj_t, obj_t);
static obj_t BGl_peepz00zzdotnet_asz00(obj_t);
static obj_t BGl_classnamez00zzdotnet_asz00(obj_t, obj_t);
static obj_t BGl_scanzd2infoszd2zzdotnet_asz00(obj_t, obj_t, obj_t);
BGL_IMPORT obj_t display_string(obj_t, obj_t);
static obj_t BGl_mattrz00zzdotnet_asz00(obj_t, obj_t, obj_t);
static long BGl_za2lpcza2z00zzdotnet_asz00;
static bool_t BGl_nextzf3zf3zzdotnet_asz00(obj_t);
BGL_IMPORT obj_t BGl_assqz00zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
static long BGl_lastposz00zzdotnet_asz00(obj_t, unsigned char);
static obj_t BGl_instrz00zzdotnet_asz00(obj_t, obj_t, obj_t, obj_t, obj_t);
static obj_t BGl_stroutz00zzdotnet_asz00(obj_t, obj_t);
static obj_t BGl_varz00zzdotnet_asz00(obj_t, obj_t, obj_t);
static obj_t BGl_cnstzd2initzd2zzdotnet_asz00();
BGL_IMPORT bool_t bigloo_strcmp(obj_t, obj_t);
static obj_t BGl_fieldz00zzdotnet_asz00(obj_t, obj_t, obj_t);
static long BGl_extraz00zzdotnet_asz00(obj_t);
BGL_IMPORT obj_t c_substring(obj_t, int, int);
static obj_t BGl_cnamez00zzdotnet_asz00(obj_t);
BGL_IMPORT obj_t BGl_displayzd22zd2zz__r4_output_6_10_3z00(obj_t, obj_t);
static obj_t BGl_requirezd2initializa7ationz75zzdotnet_asz00 = BUNSPEC;
static obj_t BGl__outfieldz00zzdotnet_asz00(obj_t, obj_t, obj_t);
static obj_t BGl_basiczd2typezd2zzdotnet_asz00 = BUNSPEC;
static obj_t BGl_diffstackz00zzdotnet_asz00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_dotnetzd2aszd2zzdotnet_asz00(obj_t, obj_t);
static bool_t BGl_za2displayza2zzdotnet_asz00(obj_t, obj_t);
static long BGl_index2z00zzdotnet_asz00(obj_t, obj_t);
static obj_t BGl_outlocalsz00zzdotnet_asz00(obj_t, obj_t, obj_t);
static obj_t BGl_mnamez00zzdotnet_asz00(obj_t);
static obj_t BGl__dotnetzd2as5719zd2zzdotnet_asz00(obj_t, obj_t, obj_t);
static obj_t BGl_walkz00zzdotnet_asz00(obj_t, obj_t, obj_t, obj_t, obj_t, long);
static obj_t BGl_libraryzd2moduleszd2initz00zzdotnet_asz00();
static obj_t BGl_simpleclassnamez00zzdotnet_asz00(obj_t);
static obj_t BGl_asz00zzdotnet_asz00(obj_t, obj_t);
static obj_t BGl_toplevelzd2initzd2zzdotnet_asz00();
BGL_IMPORT obj_t BGl_2zb2zb2zz__r4_numbers_6_5z00(obj_t, obj_t);
static long BGl_indexz00zzdotnet_asz00(obj_t, obj_t);
BGL_IMPORT obj_t string_append_3(obj_t, obj_t, obj_t);
static obj_t BGl_za2newza2z00zzdotnet_asz00 = BUNSPEC;
static obj_t __cnst[ 159 ] ;


DEFINE_EXPORT_PROCEDURE( BGl_dotnetzd2aszd2envz00zzdotnet_asz00, BgL_bgl__dotnetza7d2as5719za7d2za7za7dotnet_asza7006280za7, BGl__dotnetzd2as5719zd2zzdotnet_asz00, 0L, 2 );
DEFINE_STRING( BGl_string6252z00zzdotnet_asz00, BgL_bgl_string6252za700za7za7dotnet_asza7006281z00, "dead-code (catch leave) (invokespecial invokeinterface invokestatic invokevirtual) (aastore iastore bastore dastore) (if_acmpeq if_acmpne if_icmpeq if_icmpge if_icmpgt if_icmple if_icmplt if_icmpne if_dcmpeq if_dcmpge if_dcmpgt if_dcmple if_dcmplt if_dcmpne putfield) (aaload iaload areturn astore athrow baload dreturn daload dstore rethrow freturn fstore iand idiv ldir ddiv ior iadd ladd dadd isub lsub dsub imul lmul dmul ifeq ifne iflt ifle ifgt ifge irem drem ireturn istore ishl ishr iushr ixor lookupswitch lreturn lstore pop putstatic tableswitch) (aconst_null aload bipush dconst_0 dconst_1 dload dup fload getstatic iconst_0 iconst_1 iconst_2 iconst_3 iconst_4 iconst_5 iconst_m1 iload ldc ldc2_w lload new sipush) (nop anewarray arraylength checkcast getfield goto ineg lneg dneg instanceof newarray return swap i2b i2d l2i d2i d2f f2d d2f line localvar handler try leave catch) (lookupswitch) (areturn athrow freturn dreturn ireturn return lreturn rethrow goto lookupswitch tableswitch leave) maxstack goto gets"
"tatic getfield fstore freturn fload dup dstore dreturn dload dconst_1 dconst_0 dastore daload checkcast bipush bastore baload rethrow athrow astore arraylength areturn anewarray aload aastore aaload aconst_null nop ixor iushr ishr ishl dsub lsub isub istore ireturn drem lrem irem ior instanceof invokevirtual invokestatic invokespecial invokeinterface dneg lneg ineg dmul lmul imul iload ifge ifgt ifle iflt ifne ifeq if_dcmpne if_dcmplt if_dcmple if_dcmpgt if_dcmpge if_dcmpeq if_icmpne if_icmplt if_icmple if_icmpgt if_icmpge if_icmpeq if_acmpne if_acmpeq ddiv ldiv idiv iconst_m1 iconst_5 iconst_4 iconst_3 iconst_2 iconst_1 iconst_0 dadd ladd iadd iastore iand iaload handler catch leave try swap sipush return tableswitch putstatic putfield pop newarray new lstore lreturn localvar lload line ldc2_w ldc f2d d2f d2i l2i i2d i2b sw2 sw1 swreg getbytes jobject _ optional key rest eof nil unspecified lookupswitch (swreg . int) ok static vector class field method sourcefile fields declare double float long int short by"
"te char boolean void ", 2069 );
DEFINE_STRING( BGl_string6251z00zzdotnet_asz00, BgL_bgl_string6251za700za7za7dotnet_asza7006282z00, "unknown label", 13 );
DEFINE_STRING( BGl_string6250z00zzdotnet_asz00, BgL_bgl_string6250za700za7za7dotnet_asza7006283z00, "peephole", 8 );
DEFINE_STRING( BGl_string6249z00zzdotnet_asz00, BgL_bgl_string6249za700za7za7dotnet_asza7006284z00, "end of code reached", 19 );
DEFINE_STRING( BGl_string6248z00zzdotnet_asz00, BgL_bgl_string6248za700za7za7dotnet_asza7006285z00, "unimplement instruction", 23 );
DEFINE_STRING( BGl_string6247z00zzdotnet_asz00, BgL_bgl_string6247za700za7za7dotnet_asza7006286z00, "\tcatch '", 8 );
DEFINE_STRING( BGl_string6246z00zzdotnet_asz00, BgL_bgl_string6246za700za7za7dotnet_asza7006287z00, " }", 2 );
DEFINE_STRING( BGl_string6245z00zzdotnet_asz00, BgL_bgl_string6245za700za7za7dotnet_asza7006288z00, "\tleave\t", 7 );
DEFINE_STRING( BGl_string6244z00zzdotnet_asz00, BgL_bgl_string6244za700za7za7dotnet_asza7006289z00, "\t.try {", 7 );
DEFINE_STRING( BGl_string6243z00zzdotnet_asz00, BgL_bgl_string6243za700za7za7dotnet_asza7006290z00, "\tswitch\t(", 9 );
DEFINE_STRING( BGl_string6242z00zzdotnet_asz00, BgL_bgl_string6242za700za7za7dotnet_asza7006291z00, "\tldc.i4.s\t", 10 );
DEFINE_STRING( BGl_string6241z00zzdotnet_asz00, BgL_bgl_string6241za700za7za7dotnet_asza7006292z00, "\tstsfld\t", 8 );
DEFINE_STRING( BGl_string6240z00zzdotnet_asz00, BgL_bgl_string6240za700za7za7dotnet_asza7006293z00, "\tstfld\t", 7 );
DEFINE_STRING( BGl_string6239z00zzdotnet_asz00, BgL_bgl_string6239za700za7za7dotnet_asza7006294z00, "\tpop\t", 5 );
DEFINE_STRING( BGl_string6238z00zzdotnet_asz00, BgL_bgl_string6238za700za7za7dotnet_asza7006295z00, "\tldc.i4\t", 8 );
DEFINE_STRING( BGl_string6237z00zzdotnet_asz00, BgL_bgl_string6237za700za7za7dotnet_asza7006296z00, "bad arg for ldc2", 16 );
DEFINE_STRING( BGl_string6236z00zzdotnet_asz00, BgL_bgl_string6236za700za7za7dotnet_asza7006297z00, "\tldc.r8 ", 8 );
DEFINE_STRING( BGl_string6235z00zzdotnet_asz00, BgL_bgl_string6235za700za7za7dotnet_asza7006298z00, "\tldc.i8 ", 8 );
DEFINE_STRING( BGl_string6234z00zzdotnet_asz00, BgL_bgl_string6234za700za7za7dotnet_asza7006299z00, "bad arg for ldc", 15 );
DEFINE_STRING( BGl_string6233z00zzdotnet_asz00, BgL_bgl_string6233za700za7za7dotnet_asza7006300z00, "\"", 1 );
DEFINE_STRING( BGl_string6232z00zzdotnet_asz00, BgL_bgl_string6232za700za7za7dotnet_asza7006301z00, "\tldstr\t\"", 8 );
DEFINE_STRING( BGl_string6231z00zzdotnet_asz00, BgL_bgl_string6231za700za7za7dotnet_asza7006302z00, "\tldc.r4 ", 8 );
DEFINE_STRING( BGl_string6230z00zzdotnet_asz00, BgL_bgl_string6230za700za7za7dotnet_asza7006303z00, "\tconv.r4", 8 );
DEFINE_STRING( BGl_string6229z00zzdotnet_asz00, BgL_bgl_string6229za700za7za7dotnet_asza7006304z00, "\tconv.i4", 8 );
DEFINE_STRING( BGl_string6228z00zzdotnet_asz00, BgL_bgl_string6228za700za7za7dotnet_asza7006305z00, "\tconv.r8", 8 );
DEFINE_STRING( BGl_string6227z00zzdotnet_asz00, BgL_bgl_string6227za700za7za7dotnet_asza7006306z00, "\tconv.i1", 8 );
DEFINE_STRING( BGl_string6226z00zzdotnet_asz00, BgL_bgl_string6226za700za7za7dotnet_asza7006307z00, "\txor", 4 );
DEFINE_STRING( BGl_string6225z00zzdotnet_asz00, BgL_bgl_string6225za700za7za7dotnet_asza7006308z00, "\tshr.un", 7 );
DEFINE_STRING( BGl_string6224z00zzdotnet_asz00, BgL_bgl_string6224za700za7za7dotnet_asza7006309z00, "\tshr", 4 );
DEFINE_STRING( BGl_string6223z00zzdotnet_asz00, BgL_bgl_string6223za700za7za7dotnet_asza7006310z00, "\tshl", 4 );
DEFINE_STRING( BGl_string6222z00zzdotnet_asz00, BgL_bgl_string6222za700za7za7dotnet_asza7006311z00, "\tsub", 4 );
DEFINE_STRING( BGl_string6221z00zzdotnet_asz00, BgL_bgl_string6221za700za7za7dotnet_asza7006312z00, "\trem", 4 );
DEFINE_STRING( BGl_string6220z00zzdotnet_asz00, BgL_bgl_string6220za700za7za7dotnet_asza7006313z00, "\tor", 3 );
DEFINE_STRING( BGl_string6219z00zzdotnet_asz00, BgL_bgl_string6219za700za7za7dotnet_asza7006314z00, ":", 1 );
DEFINE_STRING( BGl_string6218z00zzdotnet_asz00, BgL_bgl_string6218za700za7za7dotnet_asza7006315z00, ":\tldc.i4.0", 10 );
DEFINE_STRING( BGl_string6217z00zzdotnet_asz00, BgL_bgl_string6217za700za7za7dotnet_asza7006316z00, "I", 1 );
DEFINE_STRING( BGl_string6216z00zzdotnet_asz00, BgL_bgl_string6216za700za7za7dotnet_asza7006317z00, "\tisinst\t", 8 );
DEFINE_STRING( BGl_string6215z00zzdotnet_asz00, BgL_bgl_string6215za700za7za7dotnet_asza7006318z00, "(class System.String)", 21 );
DEFINE_STRING( BGl_string6214z00zzdotnet_asz00, BgL_bgl_string6214za700za7za7dotnet_asza7006319z00, "\tcall\tunsigned int8[] 'bigloo.foreign'::getbytes", 48 );
DEFINE_STRING( BGl_string6213z00zzdotnet_asz00, BgL_bgl_string6213za700za7za7dotnet_asza7006320z00, "\tcall\t", 6 );
DEFINE_STRING( BGl_string6212z00zzdotnet_asz00, BgL_bgl_string6212za700za7za7dotnet_asza7006321z00, "\tinstance", 9 );
DEFINE_STRING( BGl_string6211z00zzdotnet_asz00, BgL_bgl_string6211za700za7za7dotnet_asza7006322z00, "\tnewobj", 7 );
DEFINE_STRING( BGl_string6210z00zzdotnet_asz00, BgL_bgl_string6210za700za7za7dotnet_asza7006323z00, "\tcall", 5 );
DEFINE_STRING( BGl_string6209z00zzdotnet_asz00, BgL_bgl_string6209za700za7za7dotnet_asza7006324z00, "\tcallvirt\tinstance", 18 );
DEFINE_STRING( BGl_string6199z00zzdotnet_asz00, BgL_bgl_string6199za700za7za7dotnet_asza7006325z00, "\tbeq\t", 5 );
DEFINE_STRING( BGl_string6208z00zzdotnet_asz00, BgL_bgl_string6208za700za7za7dotnet_asza7006326z00, "\tneg", 4 );
DEFINE_STRING( BGl_string6198z00zzdotnet_asz00, BgL_bgl_string6198za700za7za7dotnet_asza7006327z00, "\tdiv", 4 );
DEFINE_STRING( BGl_string6207z00zzdotnet_asz00, BgL_bgl_string6207za700za7za7dotnet_asza7006328z00, "\tmul", 4 );
DEFINE_STRING( BGl_string6197z00zzdotnet_asz00, BgL_bgl_string6197za700za7za7dotnet_asza7006329z00, "\tldc.i4.m1", 10 );
DEFINE_STRING( BGl_string6206z00zzdotnet_asz00, BgL_bgl_string6206za700za7za7dotnet_asza7006330z00, "\tbrtrue\t", 8 );
DEFINE_STRING( BGl_string6196z00zzdotnet_asz00, BgL_bgl_string6196za700za7za7dotnet_asza7006331z00, "\tldc.i4.5", 9 );
DEFINE_STRING( BGl_string6205z00zzdotnet_asz00, BgL_bgl_string6205za700za7za7dotnet_asza7006332z00, "\tbrfalse\t", 9 );
DEFINE_STRING( BGl_string6195z00zzdotnet_asz00, BgL_bgl_string6195za700za7za7dotnet_asza7006333z00, "\tldc.i4.4", 9 );
DEFINE_STRING( BGl_string6204z00zzdotnet_asz00, BgL_bgl_string6204za700za7za7dotnet_asza7006334z00, "\tblt\t", 5 );
DEFINE_STRING( BGl_string6194z00zzdotnet_asz00, BgL_bgl_string6194za700za7za7dotnet_asza7006335z00, "\tldc.i4.3", 9 );
DEFINE_STRING( BGl_string6203z00zzdotnet_asz00, BgL_bgl_string6203za700za7za7dotnet_asza7006336z00, "\tble\t", 5 );
DEFINE_STRING( BGl_string6193z00zzdotnet_asz00, BgL_bgl_string6193za700za7za7dotnet_asza7006337z00, "\tldc.i4.2", 9 );
DEFINE_STRING( BGl_string6202z00zzdotnet_asz00, BgL_bgl_string6202za700za7za7dotnet_asza7006338z00, "\tbgt\t", 5 );
DEFINE_STRING( BGl_string6192z00zzdotnet_asz00, BgL_bgl_string6192za700za7za7dotnet_asza7006339z00, "\tldc.i4.1", 9 );
DEFINE_STRING( BGl_string6201z00zzdotnet_asz00, BgL_bgl_string6201za700za7za7dotnet_asza7006340z00, "\tbge\t", 5 );
DEFINE_STRING( BGl_string6191z00zzdotnet_asz00, BgL_bgl_string6191za700za7za7dotnet_asza7006341z00, "\tldc.i4.0", 9 );
DEFINE_STRING( BGl_string6200z00zzdotnet_asz00, BgL_bgl_string6200za700za7za7dotnet_asza7006342z00, "\tbne.un\t", 8 );
DEFINE_STRING( BGl_string6190z00zzdotnet_asz00, BgL_bgl_string6190za700za7za7dotnet_asza7006343z00, "\tadd", 4 );
DEFINE_STRING( BGl_string6189z00zzdotnet_asz00, BgL_bgl_string6189za700za7za7dotnet_asza7006344z00, "\tstelem.i4", 10 );
DEFINE_STRING( BGl_string6188z00zzdotnet_asz00, BgL_bgl_string6188za700za7za7dotnet_asza7006345z00, "\tand", 4 );
DEFINE_STRING( BGl_string6187z00zzdotnet_asz00, BgL_bgl_string6187za700za7za7dotnet_asza7006346z00, "\tldelem.i4", 10 );
DEFINE_STRING( BGl_string6186z00zzdotnet_asz00, BgL_bgl_string6186za700za7za7dotnet_asza7006347z00, "\tbr\t", 4 );
DEFINE_STRING( BGl_string6185z00zzdotnet_asz00, BgL_bgl_string6185za700za7za7dotnet_asza7006348z00, "\tldsfld\t", 8 );
DEFINE_STRING( BGl_string6184z00zzdotnet_asz00, BgL_bgl_string6184za700za7za7dotnet_asza7006349z00, "\tldfld\t", 7 );
DEFINE_STRING( BGl_string6183z00zzdotnet_asz00, BgL_bgl_string6183za700za7za7dotnet_asza7006350z00, "\tdup", 4 );
DEFINE_STRING( BGl_string6182z00zzdotnet_asz00, BgL_bgl_string6182za700za7za7dotnet_asza7006351z00, "\tldc.r8 1.0", 11 );
DEFINE_STRING( BGl_string6181z00zzdotnet_asz00, BgL_bgl_string6181za700za7za7dotnet_asza7006352z00, "\tldc.r8 0.0", 11 );
DEFINE_STRING( BGl_string6180z00zzdotnet_asz00, BgL_bgl_string6180za700za7za7dotnet_asza7006353z00, "\tstelem.r8", 10 );
DEFINE_STRING( BGl_string6179z00zzdotnet_asz00, BgL_bgl_string6179za700za7za7dotnet_asza7006354z00, "\tldelem.r8", 10 );
DEFINE_STRING( BGl_string6178z00zzdotnet_asz00, BgL_bgl_string6178za700za7za7dotnet_asza7006355z00, "\tldc.i4 ", 8 );
DEFINE_STRING( BGl_string6177z00zzdotnet_asz00, BgL_bgl_string6177za700za7za7dotnet_asza7006356z00, "\tstelem.i1", 10 );
DEFINE_STRING( BGl_string6176z00zzdotnet_asz00, BgL_bgl_string6176za700za7za7dotnet_asza7006357z00, "\tldelem.i1", 10 );
DEFINE_STRING( BGl_string6175z00zzdotnet_asz00, BgL_bgl_string6175za700za7za7dotnet_asza7006358z00, "\trethrow", 8 );
DEFINE_STRING( BGl_string6174z00zzdotnet_asz00, BgL_bgl_string6174za700za7za7dotnet_asza7006359z00, "\tthrow", 6 );
DEFINE_STRING( BGl_string6173z00zzdotnet_asz00, BgL_bgl_string6173za700za7za7dotnet_asza7006360z00, "\tst", 3 );
DEFINE_STRING( BGl_string6172z00zzdotnet_asz00, BgL_bgl_string6172za700za7za7dotnet_asza7006361z00, "\tcastclass\t", 11 );
DEFINE_STRING( BGl_string6171z00zzdotnet_asz00, BgL_bgl_string6171za700za7za7dotnet_asza7006362z00, "\tldlen", 6 );
DEFINE_STRING( BGl_string6170z00zzdotnet_asz00, BgL_bgl_string6170za700za7za7dotnet_asza7006363z00, "\tret", 4 );
DEFINE_STRING( BGl_string6169z00zzdotnet_asz00, BgL_bgl_string6169za700za7za7dotnet_asza7006364z00, "\tnewarr\t", 8 );
DEFINE_STRING( BGl_string6168z00zzdotnet_asz00, BgL_bgl_string6168za700za7za7dotnet_asza7006365z00, "\tld", 3 );
DEFINE_STRING( BGl_string6167z00zzdotnet_asz00, BgL_bgl_string6167za700za7za7dotnet_asza7006366z00, "\tstelem.ref", 11 );
DEFINE_STRING( BGl_string6166z00zzdotnet_asz00, BgL_bgl_string6166za700za7za7dotnet_asza7006367z00, "\tldelem.ref", 11 );
DEFINE_STRING( BGl_string6165z00zzdotnet_asz00, BgL_bgl_string6165za700za7za7dotnet_asza7006368z00, "\tldnull", 7 );
DEFINE_STRING( BGl_string6164z00zzdotnet_asz00, BgL_bgl_string6164za700za7za7dotnet_asza7006369z00, "\tnop", 4 );
DEFINE_STRING( BGl_string6163z00zzdotnet_asz00, BgL_bgl_string6163za700za7za7dotnet_asza7006370z00, "\\\\", 2 );
DEFINE_STRING( BGl_string6162z00zzdotnet_asz00, BgL_bgl_string6162za700za7za7dotnet_asza7006371z00, "\\\"", 2 );
DEFINE_STRING( BGl_string6161z00zzdotnet_asz00, BgL_bgl_string6161za700za7za7dotnet_asza7006372z00, "arg ", 4 );
DEFINE_STRING( BGl_string6160z00zzdotnet_asz00, BgL_bgl_string6160za700za7za7dotnet_asza7006373z00, "unknown var", 11 );
DEFINE_STRING( BGl_string6159z00zzdotnet_asz00, BgL_bgl_string6159za700za7za7dotnet_asza7006374z00, ".s ", 3 );
DEFINE_STRING( BGl_string6158z00zzdotnet_asz00, BgL_bgl_string6158za700za7za7dotnet_asza7006375z00, ".", 1 );
DEFINE_STRING( BGl_string6157z00zzdotnet_asz00, BgL_bgl_string6157za700za7za7dotnet_asza7006376z00, "'::'", 4 );
DEFINE_STRING( BGl_string6156z00zzdotnet_asz00, BgL_bgl_string6156za700za7za7dotnet_asza7006377z00, "class 'bigloo.optional' 'bigloo.optional'::'_optional'", 54 );
DEFINE_STRING( BGl_string6155z00zzdotnet_asz00, BgL_bgl_string6155za700za7za7dotnet_asza7006378z00, "class 'bigloo.key' 'bigloo.key'::'_key'", 39 );
DEFINE_STRING( BGl_string6154z00zzdotnet_asz00, BgL_bgl_string6154za700za7za7dotnet_asza7006379z00, "class 'bigloo.rest' 'bigloo.rest'::'_rest'", 42 );
DEFINE_STRING( BGl_string6153z00zzdotnet_asz00, BgL_bgl_string6153za700za7za7dotnet_asza7006380z00, "class 'bigloo.eof' 'bigloo.eof'::'_eof'", 39 );
DEFINE_STRING( BGl_string6152z00zzdotnet_asz00, BgL_bgl_string6152za700za7za7dotnet_asza7006381z00, "class 'bigloo.nil' 'bigloo.nil'::'_nil'", 39 );
DEFINE_STRING( BGl_string6151z00zzdotnet_asz00, BgL_bgl_string6151za700za7za7dotnet_asza7006382z00, "class 'bigloo.unspecified' 'bigloo.unspecified'::'_unspecified'", 63 );
DEFINE_STRING( BGl_string6150z00zzdotnet_asz00, BgL_bgl_string6150za700za7za7dotnet_asza7006383z00, "\t.locals\t(", 10 );
DEFINE_STRING( BGl_string6149z00zzdotnet_asz00, BgL_bgl_string6149za700za7za7dotnet_asza7006384z00, "bad method definition", 21 );
DEFINE_STRING( BGl_string6148z00zzdotnet_asz00, BgL_bgl_string6148za700za7za7dotnet_asza7006385z00, "\t.maxstack\t", 11 );
DEFINE_STRING( BGl_string6147z00zzdotnet_asz00, BgL_bgl_string6147za700za7za7dotnet_asza7006386z00, "\t.entrypoint", 12 );
DEFINE_STRING( BGl_string6146z00zzdotnet_asz00, BgL_bgl_string6146za700za7za7dotnet_asza7006387z00, "Main", 4 );
DEFINE_STRING( BGl_string6145z00zzdotnet_asz00, BgL_bgl_string6145za700za7za7dotnet_asza7006388z00, "{", 1 );
DEFINE_STRING( BGl_string6144z00zzdotnet_asz00, BgL_bgl_string6144za700za7za7dotnet_asza7006389z00, " cil managed ", 13 );
DEFINE_STRING( BGl_string6143z00zzdotnet_asz00, BgL_bgl_string6143za700za7za7dotnet_asza7006390z00, ".method", 7 );
DEFINE_STRING( BGl_string6142z00zzdotnet_asz00, BgL_bgl_string6142za700za7za7dotnet_asza7006391z00, "'::", 3 );
DEFINE_STRING( BGl_string6141z00zzdotnet_asz00, BgL_bgl_string6141za700za7za7dotnet_asza7006392z00, ")", 1 );
DEFINE_STRING( BGl_string6140z00zzdotnet_asz00, BgL_bgl_string6140za700za7za7dotnet_asza7006393z00, ", ", 2 );
DEFINE_STRING( BGl_string6139z00zzdotnet_asz00, BgL_bgl_string6139za700za7za7dotnet_asza7006394z00, "(", 1 );
DEFINE_STRING( BGl_string6138z00zzdotnet_asz00, BgL_bgl_string6138za700za7za7dotnet_asza7006395z00, " hidebysig specialname rtspecialname", 36 );
DEFINE_STRING( BGl_string6137z00zzdotnet_asz00, BgL_bgl_string6137za700za7za7dotnet_asza7006396z00, " virtual hidebysig instance", 27 );
DEFINE_STRING( BGl_string6136z00zzdotnet_asz00, BgL_bgl_string6136za700za7za7dotnet_asza7006397z00, " hidebysig specialname rtspecialname instance", 45 );
DEFINE_STRING( BGl_string6135z00zzdotnet_asz00, BgL_bgl_string6135za700za7za7dotnet_asza7006398z00, ".cctor", 6 );
DEFINE_STRING( BGl_string6134z00zzdotnet_asz00, BgL_bgl_string6134za700za7za7dotnet_asza7006399z00, "<clinit>", 8 );
DEFINE_STRING( BGl_string6133z00zzdotnet_asz00, BgL_bgl_string6133za700za7za7dotnet_asza7006400z00, ".ctor", 5 );
DEFINE_STRING( BGl_string6132z00zzdotnet_asz00, BgL_bgl_string6132za700za7za7dotnet_asza7006401z00, "<init>", 6 );
DEFINE_STRING( BGl_string6131z00zzdotnet_asz00, BgL_bgl_string6131za700za7za7dotnet_asza7006402z00, "[]", 2 );
DEFINE_STRING( BGl_string6130z00zzdotnet_asz00, BgL_bgl_string6130za700za7za7dotnet_asza7006403z00, "class '", 7 );
DEFINE_STRING( BGl_string6129z00zzdotnet_asz00, BgL_bgl_string6129za700za7za7dotnet_asza7006404z00, "bad type", 8 );
DEFINE_STRING( BGl_string6128z00zzdotnet_asz00, BgL_bgl_string6128za700za7za7dotnet_asza7006405z00, "bigloo.bobject", 14 );
DEFINE_STRING( BGl_string6127z00zzdotnet_asz00, BgL_bgl_string6127za700za7za7dotnet_asza7006406z00, "bigloo.object", 13 );
DEFINE_STRING( BGl_string6126z00zzdotnet_asz00, BgL_bgl_string6126za700za7za7dotnet_asza7006407z00, "bigloo.bstruct", 14 );
DEFINE_STRING( BGl_string6125z00zzdotnet_asz00, BgL_bgl_string6125za700za7za7dotnet_asza7006408z00, "bigloo.struct", 13 );
DEFINE_STRING( BGl_string6124z00zzdotnet_asz00, BgL_bgl_string6124za700za7za7dotnet_asza7006409z00, "System.", 7 );
DEFINE_STRING( BGl_string6123z00zzdotnet_asz00, BgL_bgl_string6123za700za7za7dotnet_asza7006410z00, "java.lang.", 10 );
DEFINE_STRING( BGl_string6122z00zzdotnet_asz00, BgL_bgl_string6122za700za7za7dotnet_asza7006411z00, "java.lang.Throwable", 19 );
DEFINE_STRING( BGl_string6121z00zzdotnet_asz00, BgL_bgl_string6121za700za7za7dotnet_asza7006412z00, "System.Exception", 16 );
DEFINE_STRING( BGl_string6120z00zzdotnet_asz00, BgL_bgl_string6120za700za7za7dotnet_asza7006413z00, "java.lang.RuntimeException", 26 );
DEFINE_STRING( BGl_string6119z00zzdotnet_asz00, BgL_bgl_string6119za700za7za7dotnet_asza7006414z00, " '", 2 );
DEFINE_STRING( BGl_string6118z00zzdotnet_asz00, BgL_bgl_string6118za700za7za7dotnet_asza7006415z00, " ", 1 );
DEFINE_STRING( BGl_string6117z00zzdotnet_asz00, BgL_bgl_string6117za700za7za7dotnet_asza7006416z00, ".field", 6 );
DEFINE_STRING( BGl_string6116z00zzdotnet_asz00, BgL_bgl_string6116za700za7za7dotnet_asza7006417z00, "bad field definition of", 23 );
DEFINE_STRING( BGl_string6115z00zzdotnet_asz00, BgL_bgl_string6115za700za7za7dotnet_asza7006418z00, "bad method definition of", 24 );
DEFINE_STRING( BGl_string6114z00zzdotnet_asz00, BgL_bgl_string6114za700za7za7dotnet_asza7006419z00, "bad module definition", 21 );
DEFINE_STRING( BGl_string6113z00zzdotnet_asz00, BgL_bgl_string6113za700za7za7dotnet_asza7006420z00, "dotnet", 6 );
DEFINE_STRING( BGl_string6112z00zzdotnet_asz00, BgL_bgl_string6112za700za7za7dotnet_asza7006421z00, "}", 1 );
DEFINE_STRING( BGl_string6111z00zzdotnet_asz00, BgL_bgl_string6111za700za7za7dotnet_asza7006422z00, " {", 2 );
DEFINE_STRING( BGl_string6110z00zzdotnet_asz00, BgL_bgl_string6110za700za7za7dotnet_asza7006423z00, " extends ", 9 );
DEFINE_STRING( BGl_string6109z00zzdotnet_asz00, BgL_bgl_string6109za700za7za7dotnet_asza7006424z00, "'", 1 );
DEFINE_STRING( BGl_string6099z00zzdotnet_asz00, BgL_bgl_string6099za700za7za7dotnet_asza7006425z00, "unsigned int8", 13 );
DEFINE_STRING( BGl_string6108z00zzdotnet_asz00, BgL_bgl_string6108za700za7za7dotnet_asza7006426z00, ".class public auto ansi '", 25 );
DEFINE_STRING( BGl_string6098z00zzdotnet_asz00, BgL_bgl_string6098za700za7za7dotnet_asza7006427z00, "char", 4 );
DEFINE_STRING( BGl_string6107z00zzdotnet_asz00, BgL_bgl_string6107za700za7za7dotnet_asza7006428z00, "' {", 3 );
DEFINE_STRING( BGl_string6097z00zzdotnet_asz00, BgL_bgl_string6097za700za7za7dotnet_asza7006429z00, "bool", 4 );
DEFINE_STRING( BGl_string6106z00zzdotnet_asz00, BgL_bgl_string6106za700za7za7dotnet_asza7006430z00, ".namespace '", 12 );
DEFINE_STRING( BGl_string6096z00zzdotnet_asz00, BgL_bgl_string6096za700za7za7dotnet_asza7006431z00, "void", 4 );
DEFINE_STRING( BGl_string6105z00zzdotnet_asz00, BgL_bgl_string6105za700za7za7dotnet_asza7006432z00, "", 0 );
DEFINE_STRING( BGl_string6104z00zzdotnet_asz00, BgL_bgl_string6104za700za7za7dotnet_asza7006433z00, "float64", 7 );
DEFINE_STRING( BGl_string6103z00zzdotnet_asz00, BgL_bgl_string6103za700za7za7dotnet_asza7006434z00, "float32", 7 );
DEFINE_STRING( BGl_string6102z00zzdotnet_asz00, BgL_bgl_string6102za700za7za7dotnet_asza7006435z00, "int64", 5 );
DEFINE_STRING( BGl_string6101z00zzdotnet_asz00, BgL_bgl_string6101za700za7za7dotnet_asza7006436z00, "int32", 5 );
DEFINE_STRING( BGl_string6100z00zzdotnet_asz00, BgL_bgl_string6100za700za7za7dotnet_asza7006437z00, "int16", 5 );



/* module-initialization */
BGL_EXPORTED_DEF obj_t BGl_modulezd2initializa7ationz75zzdotnet_asz00(long BgL_checksumz00_3875, char * BgL_fromz00_3876)
{ AN_OBJECT;
{ 
if(
CBOOL(BGl_requirezd2initializa7ationz75zzdotnet_asz00))
{ 
BGl_requirezd2initializa7ationz75zzdotnet_asz00 = 
BBOOL(((bool_t)0)); 
BGl_libraryzd2moduleszd2initz00zzdotnet_asz00(); 
BGl_cnstzd2initzd2zzdotnet_asz00(); 
BGl_toplevelzd2initzd2zzdotnet_asz00(); 
return BUNSPEC;}  else 
{ 
return BUNSPEC;} } 
}



/* library-modules-init */
obj_t BGl_libraryzd2moduleszd2initz00zzdotnet_asz00()
{ AN_OBJECT;
{ /* ./DotNet/as.scm 1 */
BGl_modulezd2initializa7ationz75zz__r4_numbers_6_5z00(((long)0), "dotnet_as"); 
BGl_modulezd2initializa7ationz75zz__r4_pairs_and_lists_6_3z00(((long)0), "dotnet_as"); 
BGl_modulezd2initializa7ationz75zz__readerz00(((long)0), "dotnet_as"); 
BGl_modulezd2initializa7ationz75zz__r4_numbers_6_5_fixnumz00(((long)0), "dotnet_as"); 
BGl_modulezd2initializa7ationz75zz__r4_symbols_6_4z00(((long)0), "dotnet_as"); 
BGl_modulezd2initializa7ationz75zz__r4_output_6_10_3z00(((long)0), "dotnet_as"); 
return BUNSPEC;} 
}



/* cnst-init */
obj_t BGl_cnstzd2initzd2zzdotnet_asz00()
{ AN_OBJECT;
{ /* ./DotNet/as.scm 1 */
{ /* ./DotNet/as.scm 1 */
obj_t BgL_cportz00_3848;
BgL_cportz00_3848 = 
open_input_string(BGl_string6252z00zzdotnet_asz00); 
{ 
long BgL_iz00_3849;
BgL_iz00_3849 = ((long)158); 
BgL_loopz00_3850:
{ /* ./DotNet/as.scm 1 */
bool_t BgL_test6254z00_3851;
BgL_test6254z00_3851 = 
(BgL_iz00_3849==((long)-1)); 
if(BgL_test6254z00_3851)
{ /* ./DotNet/as.scm 1 */
return BUNSPEC;}  else 
{ /* ./DotNet/as.scm 1 */
{ /* ./DotNet/as.scm 1 */
obj_t BgL_arg6256z00_3852;
{ /* ./DotNet/as.scm 1 */
obj_t BgL_list6259z00_3853;
BgL_list6259z00_3853 = 
MAKE_PAIR(BgL_cportz00_3848, BNIL); 
BgL_arg6256z00_3852 = 
BGl_readz00zz__readerz00(BgL_list6259z00_3853); } 
{ /* ./DotNet/as.scm 1 */
int BgL_auxz00_3894;
BgL_auxz00_3894 = 
(int)(BgL_iz00_3849); 
CNST_TABLE_SET(BgL_auxz00_3894, BgL_arg6256z00_3852); } } 
{ /* ./DotNet/as.scm 1 */
int BgL_auxz00_3854;
{ /* ./DotNet/as.scm 1 */
long BgL_auxz00_3897;
BgL_auxz00_3897 = 
(BgL_iz00_3849-((long)1)); 
BgL_auxz00_3854 = 
(int)(BgL_auxz00_3897); } 
{ 
long BgL_iz00_3900;
BgL_iz00_3900 = 
(long)(BgL_auxz00_3854); 
BgL_iz00_3849 = BgL_iz00_3900; 
goto BgL_loopz00_3850;} } } } } } } 
}



/* toplevel-init */
obj_t BGl_toplevelzd2initzd2zzdotnet_asz00()
{ AN_OBJECT;
{ /* ./DotNet/as.scm 1 */
{ /* ./DotNet/as.scm 82 */
obj_t BgL_arg1187z00_85;obj_t BgL_arg1188z00_86;
{ /* ./DotNet/as.scm 82 */
obj_t BgL_auxz00_3902;
BgL_auxz00_3902 = 
CNST_TABLE_REF(((long)0)); 
BgL_arg1187z00_85 = 
MAKE_PAIR(BgL_auxz00_3902, BGl_string6096z00zzdotnet_asz00); } 
{ /* ./DotNet/as.scm 83 */
obj_t BgL_arg1192z00_87;obj_t BgL_arg1195z00_88;
{ /* ./DotNet/as.scm 83 */
obj_t BgL_auxz00_3905;
BgL_auxz00_3905 = 
CNST_TABLE_REF(((long)1)); 
BgL_arg1192z00_87 = 
MAKE_PAIR(BgL_auxz00_3905, BGl_string6097z00zzdotnet_asz00); } 
{ /* ./DotNet/as.scm 84 */
obj_t BgL_arg1199z00_89;obj_t BgL_arg1200z00_90;
{ /* ./DotNet/as.scm 84 */
obj_t BgL_auxz00_3908;
BgL_auxz00_3908 = 
CNST_TABLE_REF(((long)2)); 
BgL_arg1199z00_89 = 
MAKE_PAIR(BgL_auxz00_3908, BGl_string6098z00zzdotnet_asz00); } 
{ /* ./DotNet/as.scm 85 */
obj_t BgL_arg1204z00_91;obj_t BgL_arg1205z00_92;
{ /* ./DotNet/as.scm 85 */
obj_t BgL_auxz00_3911;
BgL_auxz00_3911 = 
CNST_TABLE_REF(((long)3)); 
BgL_arg1204z00_91 = 
MAKE_PAIR(BgL_auxz00_3911, BGl_string6099z00zzdotnet_asz00); } 
{ /* ./DotNet/as.scm 86 */
obj_t BgL_arg1210z00_93;obj_t BgL_arg1211z00_94;
{ /* ./DotNet/as.scm 86 */
obj_t BgL_auxz00_3914;
BgL_auxz00_3914 = 
CNST_TABLE_REF(((long)4)); 
BgL_arg1210z00_93 = 
MAKE_PAIR(BgL_auxz00_3914, BGl_string6100z00zzdotnet_asz00); } 
{ /* ./DotNet/as.scm 87 */
obj_t BgL_arg1215z00_95;obj_t BgL_arg1216z00_96;
{ /* ./DotNet/as.scm 87 */
obj_t BgL_auxz00_3917;
BgL_auxz00_3917 = 
CNST_TABLE_REF(((long)5)); 
BgL_arg1215z00_95 = 
MAKE_PAIR(BgL_auxz00_3917, BGl_string6101z00zzdotnet_asz00); } 
{ /* ./DotNet/as.scm 88 */
obj_t BgL_arg1220z00_97;obj_t BgL_arg1222z00_98;
{ /* ./DotNet/as.scm 88 */
obj_t BgL_auxz00_3920;
BgL_auxz00_3920 = 
CNST_TABLE_REF(((long)6)); 
BgL_arg1220z00_97 = 
MAKE_PAIR(BgL_auxz00_3920, BGl_string6102z00zzdotnet_asz00); } 
{ /* ./DotNet/as.scm 89 */
obj_t BgL_arg1227z00_99;obj_t BgL_arg1229z00_100;
{ /* ./DotNet/as.scm 89 */
obj_t BgL_auxz00_3923;
BgL_auxz00_3923 = 
CNST_TABLE_REF(((long)7)); 
BgL_arg1227z00_99 = 
MAKE_PAIR(BgL_auxz00_3923, BGl_string6103z00zzdotnet_asz00); } 
{ /* ./DotNet/as.scm 90 */
obj_t BgL_arg1233z00_101;
{ /* ./DotNet/as.scm 90 */
obj_t BgL_auxz00_3926;
BgL_auxz00_3926 = 
CNST_TABLE_REF(((long)8)); 
BgL_arg1233z00_101 = 
MAKE_PAIR(BgL_auxz00_3926, BGl_string6104z00zzdotnet_asz00); } 
BgL_arg1229z00_100 = 
MAKE_PAIR(BgL_arg1233z00_101, BNIL); } 
BgL_arg1222z00_98 = 
MAKE_PAIR(BgL_arg1227z00_99, BgL_arg1229z00_100); } 
BgL_arg1216z00_96 = 
MAKE_PAIR(BgL_arg1220z00_97, BgL_arg1222z00_98); } 
BgL_arg1211z00_94 = 
MAKE_PAIR(BgL_arg1215z00_95, BgL_arg1216z00_96); } 
BgL_arg1205z00_92 = 
MAKE_PAIR(BgL_arg1210z00_93, BgL_arg1211z00_94); } 
BgL_arg1200z00_90 = 
MAKE_PAIR(BgL_arg1204z00_91, BgL_arg1205z00_92); } 
BgL_arg1195z00_88 = 
MAKE_PAIR(BgL_arg1199z00_89, BgL_arg1200z00_90); } 
BgL_arg1188z00_86 = 
MAKE_PAIR(BgL_arg1192z00_87, BgL_arg1195z00_88); } 
BGl_basiczd2typezd2zzdotnet_asz00 = 
MAKE_PAIR(BgL_arg1187z00_85, BgL_arg1188z00_86); } 
BGl_za2newza2z00zzdotnet_asz00 = BNIL; 
return ( 
BGl_za2lpcza2z00zzdotnet_asz00 = ((long)0), BUNSPEC) ;} 
}



/* dotnet-as */
BGL_EXPORTED_DEF obj_t BGl_dotnetzd2aszd2zzdotnet_asz00(obj_t BgL_lz00_1, obj_t BgL_outchanz00_2)
{ AN_OBJECT;
{ /* ./DotNet/as.scm 4 */
return 
BGl_asz00zzdotnet_asz00(BgL_lz00_1, BgL_outchanz00_2);} 
}



/* _dotnet-as5719 */
obj_t BGl__dotnetzd2as5719zd2zzdotnet_asz00(obj_t BgL_envz00_3834, obj_t BgL_lz00_3835, obj_t BgL_outchanz00_3836)
{ AN_OBJECT;
{ /* ./DotNet/as.scm 4 */
return 
BGl_asz00zzdotnet_asz00(BgL_lz00_3835, BgL_outchanz00_3836);} 
}



/* as */
obj_t BGl_asz00zzdotnet_asz00(obj_t BgL_lz00_3, obj_t BgL_outz00_4)
{ AN_OBJECT;
{ /* ./DotNet/as.scm 7 */
{ 
obj_t BgL_keyz00_103;obj_t BgL_thisz00_104;obj_t BgL_extendz00_105;obj_t BgL_implementsz00_106;obj_t BgL_declsz00_107;obj_t BgL_infosz00_108;
{ /* ./DotNet/as.scm 8 */
bool_t BgL_test1238z00_112;
BgL_test1238z00_112 = 
PAIRP(BgL_lz00_3); 
if(BgL_test1238z00_112)
{ /* ./DotNet/as.scm 8 */
obj_t BgL_cdrzd2119zd2_113;
BgL_cdrzd2119zd2_113 = 
CDR(BgL_lz00_3); 
{ /* ./DotNet/as.scm 8 */
obj_t BgL_keyz00_114;
BgL_keyz00_114 = 
CAR(BgL_lz00_3); 
{ /* ./DotNet/as.scm 8 */
bool_t BgL_test1239z00_115;
BgL_test1239z00_115 = 
PAIRP(BgL_cdrzd2119zd2_113); 
if(BgL_test1239z00_115)
{ /* ./DotNet/as.scm 8 */
obj_t BgL_carzd2126zd2_116;obj_t BgL_cdrzd2127zd2_117;
BgL_carzd2126zd2_116 = 
CAR(BgL_cdrzd2119zd2_113); 
BgL_cdrzd2127zd2_117 = 
CDR(BgL_cdrzd2119zd2_113); 
{ /* ./DotNet/as.scm 8 */
bool_t BgL_test1240z00_119;
BgL_test1240z00_119 = 
SYMBOLP(BgL_carzd2126zd2_116); 
if(BgL_test1240z00_119)
{ /* ./DotNet/as.scm 8 */
bool_t BgL_test1241z00_120;
BgL_test1241z00_120 = 
PAIRP(BgL_cdrzd2127zd2_117); 
if(BgL_test1241z00_120)
{ /* ./DotNet/as.scm 8 */
obj_t BgL_carzd2134zd2_121;obj_t BgL_cdrzd2135zd2_122;
BgL_carzd2134zd2_121 = 
CAR(BgL_cdrzd2127zd2_117); 
BgL_cdrzd2135zd2_122 = 
CDR(BgL_cdrzd2127zd2_117); 
{ /* ./DotNet/as.scm 8 */
bool_t BgL_test1242z00_124;
BgL_test1242z00_124 = 
SYMBOLP(BgL_carzd2134zd2_121); 
if(BgL_test1242z00_124)
{ /* ./DotNet/as.scm 8 */
bool_t BgL_test1243z00_125;
BgL_test1243z00_125 = 
PAIRP(BgL_cdrzd2135zd2_122); 
if(BgL_test1243z00_125)
{ /* ./DotNet/as.scm 8 */
obj_t BgL_carzd2141zd2_126;obj_t BgL_cdrzd2142zd2_127;
BgL_carzd2141zd2_126 = 
CAR(BgL_cdrzd2135zd2_122); 
BgL_cdrzd2142zd2_127 = 
CDR(BgL_cdrzd2135zd2_122); 
{ 
obj_t BgL_gzd2158zd2_146;obj_t BgL_gzd2145zd2_131;
BgL_gzd2145zd2_131 = BgL_carzd2141zd2_126; 
{ /* ./DotNet/as.scm 8 */
bool_t BgL_test1246z00_133;
BgL_test1246z00_133 = 
NULLP(BgL_gzd2145zd2_131); 
if(BgL_test1246z00_133)
{ /* ./DotNet/as.scm 8 */
bool_t BgL_test1247z00_134;
BgL_test1247z00_134 = 
PAIRP(BgL_cdrzd2142zd2_127); 
if(BgL_test1247z00_134)
{ /* ./DotNet/as.scm 8 */
obj_t BgL_carzd2149zd2_135;
BgL_carzd2149zd2_135 = 
CAR(BgL_cdrzd2142zd2_127); 
{ /* ./DotNet/as.scm 8 */
bool_t BgL_test1248z00_136;
BgL_test1248z00_136 = 
PAIRP(BgL_carzd2149zd2_135); 
if(BgL_test1248z00_136)
{ /* ./DotNet/as.scm 8 */
bool_t BgL_test1249z00_137;
{ /* ./DotNet/as.scm 8 */
obj_t BgL_auxz00_3969;obj_t BgL_auxz00_3967;
BgL_auxz00_3969 = 
CNST_TABLE_REF(((long)9)); 
BgL_auxz00_3967 = 
CAR(BgL_carzd2149zd2_135); 
BgL_test1249z00_137 = 
(BgL_auxz00_3967==BgL_auxz00_3969); } 
if(BgL_test1249z00_137)
{ /* ./DotNet/as.scm 8 */
obj_t BgL_arg1251z00_138;obj_t BgL_arg1252z00_139;
BgL_arg1251z00_138 = 
CDR(BgL_carzd2149zd2_135); 
BgL_arg1252z00_139 = 
CDR(BgL_cdrzd2142zd2_127); 
BgL_keyz00_103 = BgL_keyz00_114; 
BgL_thisz00_104 = BgL_carzd2126zd2_116; 
BgL_extendz00_105 = BgL_carzd2134zd2_121; 
BgL_implementsz00_106 = BgL_carzd2141zd2_126; 
BgL_declsz00_107 = BgL_arg1251z00_138; 
BgL_infosz00_108 = BgL_arg1252z00_139; 
BgL_tagzd2101zd2_109:
{ /* ./DotNet/as.scm 13 */
obj_t BgL_cthisz00_163;
BgL_cthisz00_163 = 
BGl_classnamez00zzdotnet_asz00(BgL_declsz00_107, BgL_thisz00_104); 
{ /* ./DotNet/as.scm 14 */
obj_t BgL_pkgcz00_164;
BgL_pkgcz00_164 = 
BGl_packagez00zzdotnet_asz00(BgL_cthisz00_163); 
{ /* ./DotNet/as.scm 15 */
bool_t BgL_test1338z00_165;
BgL_test1338z00_165 = 
bigloo_strcmp(BgL_pkgcz00_164, BGl_string6105z00zzdotnet_asz00); 
if(BgL_test1338z00_165)
{ /* ./DotNet/as.scm 15 */BFALSE; }  else 
{ /* ./DotNet/as.scm 15 */
display_string(BGl_string6106z00zzdotnet_asz00, BgL_outz00_4); 
BGl_displayzd22zd2zz__r4_output_6_10_3z00(BgL_pkgcz00_164, BgL_outz00_4); 
display_string(BGl_string6107z00zzdotnet_asz00, BgL_outz00_4); 
WRITE_CHAR(((unsigned char)'\n'), BgL_outz00_4); } } 
display_string(BGl_string6108z00zzdotnet_asz00, BgL_outz00_4); 
{ /* ./DotNet/as.scm 18 */
obj_t BgL_arg1346z00_168;
BgL_arg1346z00_168 = 
BGl_simpleclassnamez00zzdotnet_asz00(BgL_cthisz00_163); 
BGl_displayzd22zd2zz__r4_output_6_10_3z00(BgL_arg1346z00_168, BgL_outz00_4); } 
display_string(BGl_string6109z00zzdotnet_asz00, BgL_outz00_4); 
display_string(BGl_string6110z00zzdotnet_asz00, BgL_outz00_4); 
{ /* ./DotNet/as.scm 19 */
obj_t BgL_arg1352z00_169;
BgL_arg1352z00_169 = 
BGl_classnamez00zzdotnet_asz00(BgL_declsz00_107, BgL_extendz00_105); 
BGl_displayzd22zd2zz__r4_output_6_10_3z00(BgL_arg1352z00_169, BgL_outz00_4); } 
display_string(BGl_string6111z00zzdotnet_asz00, BgL_outz00_4); 
WRITE_CHAR(((unsigned char)'\n'), BgL_outz00_4); 
BGl_scanzd2infoszd2zzdotnet_asz00(BgL_outz00_4, BgL_declsz00_107, BgL_infosz00_108); 
display_string(BGl_string6112z00zzdotnet_asz00, BgL_outz00_4); 
WRITE_CHAR(((unsigned char)'\n'), BgL_outz00_4); 
{ /* ./DotNet/as.scm 22 */
bool_t BgL_test1360z00_171;
BgL_test1360z00_171 = 
bigloo_strcmp(BgL_pkgcz00_164, BGl_string6105z00zzdotnet_asz00); 
if(BgL_test1360z00_171)
{ /* ./DotNet/as.scm 22 */
return BFALSE;}  else 
{ /* ./DotNet/as.scm 22 */
display_string(BGl_string6112z00zzdotnet_asz00, BgL_outz00_4); 
return 
WRITE_CHAR(((unsigned char)'\n'), BgL_outz00_4);} } } } }  else 
{ /* ./DotNet/as.scm 8 */
BgL_tagzd2102zd2_110:
FAILURE(BGl_string6113z00zzdotnet_asz00,BGl_string6114z00zzdotnet_asz00,BgL_lz00_3);} }  else 
{ /* ./DotNet/as.scm 8 */
goto BgL_tagzd2102zd2_110;} } }  else 
{ /* ./DotNet/as.scm 8 */
goto BgL_tagzd2102zd2_110;} }  else 
{ /* ./DotNet/as.scm 8 */
bool_t BgL_test1267z00_142;
BgL_test1267z00_142 = 
PAIRP(BgL_gzd2145zd2_131); 
if(BgL_test1267z00_142)
{ /* ./DotNet/as.scm 8 */
bool_t BgL_test1268z00_143;
{ /* ./DotNet/as.scm 8 */
obj_t BgL_auxz00_4002;
BgL_auxz00_4002 = 
CAR(BgL_gzd2145zd2_131); 
BgL_test1268z00_143 = 
SYMBOLP(BgL_auxz00_4002); } 
if(BgL_test1268z00_143)
{ /* ./DotNet/as.scm 8 */
obj_t BgL_arg1270z00_144;
BgL_arg1270z00_144 = 
CDR(BgL_gzd2145zd2_131); 
BgL_gzd2158zd2_146 = BgL_arg1270z00_144; 
BgL_zc3anonymousza31282ze3z83_147:
{ /* ./DotNet/as.scm 8 */
bool_t BgL_test1283z00_148;
BgL_test1283z00_148 = 
NULLP(BgL_gzd2158zd2_146); 
if(BgL_test1283z00_148)
{ /* ./DotNet/as.scm 8 */
bool_t BgL_test1284z00_149;
BgL_test1284z00_149 = 
PAIRP(BgL_cdrzd2142zd2_127); 
if(BgL_test1284z00_149)
{ /* ./DotNet/as.scm 8 */
obj_t BgL_carzd2162zd2_150;
BgL_carzd2162zd2_150 = 
CAR(BgL_cdrzd2142zd2_127); 
{ /* ./DotNet/as.scm 8 */
bool_t BgL_test1285z00_151;
BgL_test1285z00_151 = 
PAIRP(BgL_carzd2162zd2_150); 
if(BgL_test1285z00_151)
{ /* ./DotNet/as.scm 8 */
bool_t BgL_test1286z00_152;
{ /* ./DotNet/as.scm 8 */
obj_t BgL_auxz00_4016;obj_t BgL_auxz00_4014;
BgL_auxz00_4016 = 
CNST_TABLE_REF(((long)9)); 
BgL_auxz00_4014 = 
CAR(BgL_carzd2162zd2_150); 
BgL_test1286z00_152 = 
(BgL_auxz00_4014==BgL_auxz00_4016); } 
if(BgL_test1286z00_152)
{ /* ./DotNet/as.scm 8 */
obj_t BgL_arg1288z00_153;obj_t BgL_arg1289z00_154;
BgL_arg1288z00_153 = 
CDR(BgL_carzd2162zd2_150); 
BgL_arg1289z00_154 = 
CDR(BgL_cdrzd2142zd2_127); 
{ 
obj_t BgL_infosz00_4027;obj_t BgL_declsz00_4026;obj_t BgL_implementsz00_4025;obj_t BgL_extendz00_4024;obj_t BgL_thisz00_4023;obj_t BgL_keyz00_4022;
BgL_keyz00_4022 = BgL_keyz00_114; 
BgL_thisz00_4023 = BgL_carzd2126zd2_116; 
BgL_extendz00_4024 = BgL_carzd2134zd2_121; 
BgL_implementsz00_4025 = BgL_carzd2141zd2_126; 
BgL_declsz00_4026 = BgL_arg1288z00_153; 
BgL_infosz00_4027 = BgL_arg1289z00_154; 
BgL_infosz00_108 = BgL_infosz00_4027; 
BgL_declsz00_107 = BgL_declsz00_4026; 
BgL_implementsz00_106 = BgL_implementsz00_4025; 
BgL_extendz00_105 = BgL_extendz00_4024; 
BgL_thisz00_104 = BgL_thisz00_4023; 
BgL_keyz00_103 = BgL_keyz00_4022; 
goto BgL_tagzd2101zd2_109;} }  else 
{ /* ./DotNet/as.scm 8 */
goto BgL_tagzd2102zd2_110;} }  else 
{ /* ./DotNet/as.scm 8 */
goto BgL_tagzd2102zd2_110;} } }  else 
{ /* ./DotNet/as.scm 8 */
goto BgL_tagzd2102zd2_110;} }  else 
{ /* ./DotNet/as.scm 8 */
bool_t BgL_test1304z00_157;
BgL_test1304z00_157 = 
PAIRP(BgL_gzd2158zd2_146); 
if(BgL_test1304z00_157)
{ /* ./DotNet/as.scm 8 */
bool_t BgL_test1305z00_158;
{ /* ./DotNet/as.scm 8 */
obj_t BgL_auxz00_4030;
BgL_auxz00_4030 = 
CAR(BgL_gzd2158zd2_146); 
BgL_test1305z00_158 = 
SYMBOLP(BgL_auxz00_4030); } 
if(BgL_test1305z00_158)
{ /* ./DotNet/as.scm 8 */
obj_t BgL_arg1307z00_159;
BgL_arg1307z00_159 = 
CDR(BgL_gzd2158zd2_146); 
{ 
obj_t BgL_gzd2158zd2_4035;
BgL_gzd2158zd2_4035 = BgL_arg1307z00_159; 
BgL_gzd2158zd2_146 = BgL_gzd2158zd2_4035; 
goto BgL_zc3anonymousza31282ze3z83_147;} }  else 
{ /* ./DotNet/as.scm 8 */
goto BgL_tagzd2102zd2_110;} }  else 
{ /* ./DotNet/as.scm 8 */
goto BgL_tagzd2102zd2_110;} } } }  else 
{ /* ./DotNet/as.scm 8 */
goto BgL_tagzd2102zd2_110;} }  else 
{ /* ./DotNet/as.scm 8 */
goto BgL_tagzd2102zd2_110;} } } } }  else 
{ /* ./DotNet/as.scm 8 */
goto BgL_tagzd2102zd2_110;} }  else 
{ /* ./DotNet/as.scm 8 */
goto BgL_tagzd2102zd2_110;} } }  else 
{ /* ./DotNet/as.scm 8 */
goto BgL_tagzd2102zd2_110;} }  else 
{ /* ./DotNet/as.scm 8 */
goto BgL_tagzd2102zd2_110;} } }  else 
{ /* ./DotNet/as.scm 8 */
goto BgL_tagzd2102zd2_110;} } } }  else 
{ /* ./DotNet/as.scm 8 */
goto BgL_tagzd2102zd2_110;} } } } 
}



/* lastpos */
long BGl_lastposz00zzdotnet_asz00(obj_t BgL_sz00_5, unsigned char BgL_cz00_6)
{ AN_OBJECT;
{ /* ./DotNet/as.scm 25 */
{ 
long BgL_iz00_177;
{ /* ./DotNet/as.scm 31 */
long BgL_auxz00_4046;
{ /* ./DotNet/as.scm 31 */
int BgL_auxz00_4047;
BgL_auxz00_4047 = 
STRING_LENGTH(BgL_sz00_5); 
BgL_auxz00_4046 = 
(long)(BgL_auxz00_4047); } 
BgL_iz00_177 = 
(BgL_auxz00_4046-((long)1)); } 
BgL_zc3anonymousza31375ze3z83_178:
{ /* ./DotNet/as.scm 28 */
bool_t BgL_testz00_4036;
if(
(BgL_iz00_177==((long)-1)))
{ /* ./DotNet/as.scm 28 */
BgL_testz00_4036 = ((bool_t)1)
; }  else 
{ /* ./DotNet/as.scm 28 */
unsigned char BgL_auxz00_4039;
{ /* ./DotNet/as.scm 28 */
int BgL_auxz00_4040;
BgL_auxz00_4040 = 
(int)(BgL_iz00_177); 
BgL_auxz00_4039 = 
STRING_REF(BgL_sz00_5, BgL_auxz00_4040); } 
BgL_testz00_4036 = 
(BgL_auxz00_4039==BgL_cz00_6); } 
if(BgL_testz00_4036)
{ /* ./DotNet/as.scm 28 */
return BgL_iz00_177;}  else 
{ 
long BgL_iz00_4044;
BgL_iz00_4044 = 
(BgL_iz00_177-((long)1)); 
BgL_iz00_177 = BgL_iz00_4044; 
goto BgL_zc3anonymousza31375ze3z83_178;} } } } 
}



/* package */
obj_t BGl_packagez00zzdotnet_asz00(obj_t BgL_sz00_7)
{ AN_OBJECT;
{ /* ./DotNet/as.scm 33 */
{ /* ./DotNet/as.scm 34 */
long BgL_iz00_184;
BgL_iz00_184 = 
BGl_lastposz00zzdotnet_asz00(BgL_sz00_7, ((unsigned char)'.')); 
{ /* ./DotNet/as.scm 35 */
bool_t BgL_test1387z00_185;
BgL_test1387z00_185 = 
(BgL_iz00_184==((long)-1)); 
if(BgL_test1387z00_185)
{ /* ./DotNet/as.scm 35 */
return BGl_string6105z00zzdotnet_asz00;}  else 
{ /* ./DotNet/as.scm 37 */
int BgL_startz00_2362;int BgL_endz00_2363;
BgL_startz00_2362 = 
(int)(((long)0)); 
BgL_endz00_2363 = 
(int)(BgL_iz00_184); 
return 
c_substring(BgL_sz00_7, BgL_startz00_2362, BgL_endz00_2363);} } } } 
}



/* simpleclassname */
obj_t BGl_simpleclassnamez00zzdotnet_asz00(obj_t BgL_sz00_8)
{ AN_OBJECT;
{ /* ./DotNet/as.scm 39 */
{ /* ./DotNet/as.scm 40 */
long BgL_iz00_186;
BgL_iz00_186 = 
BGl_lastposz00zzdotnet_asz00(BgL_sz00_8, ((unsigned char)'.')); 
{ /* ./DotNet/as.scm 41 */
bool_t BgL_test1391z00_187;
BgL_test1391z00_187 = 
(BgL_iz00_186==((long)-1)); 
if(BgL_test1391z00_187)
{ /* ./DotNet/as.scm 41 */
return BgL_sz00_8;}  else 
{ /* ./DotNet/as.scm 43 */
long BgL_arg1393z00_188;int BgL_arg1394z00_189;
BgL_arg1393z00_188 = 
(BgL_iz00_186+((long)1)); 
BgL_arg1394z00_189 = 
STRING_LENGTH(BgL_sz00_8); 
{ /* ./DotNet/as.scm 43 */
int BgL_startz00_2370;
BgL_startz00_2370 = 
(int)(BgL_arg1393z00_188); 
return 
c_substring(BgL_sz00_8, BgL_startz00_2370, BgL_arg1394z00_189);} } } } } 
}



/* scan-infos */
obj_t BGl_scanzd2infoszd2zzdotnet_asz00(obj_t BgL_outz00_9, obj_t BgL_declsz00_10, obj_t BgL_infosz00_11)
{ AN_OBJECT;
{ /* ./DotNet/as.scm 46 */
BGl_scanzd2infoszd2zzdotnet_asz00:
{ /* ./DotNet/as.scm 48 */
bool_t BgL_test1400z00_190;
BgL_test1400z00_190 = 
NULLP(BgL_infosz00_11); 
if(BgL_test1400z00_190)
{ /* ./DotNet/as.scm 48 */
return BgL_declsz00_10;}  else 
{ /* ./DotNet/as.scm 49 */
bool_t BgL_test1401z00_191;
{ /* ./DotNet/as.scm 49 */
obj_t BgL_auxz00_4070;obj_t BgL_auxz00_4066;
BgL_auxz00_4070 = 
CNST_TABLE_REF(((long)10)); 
{ /* ./DotNet/as.scm 49 */
obj_t BgL_auxz00_4067;
BgL_auxz00_4067 = 
CAR(BgL_infosz00_11); 
BgL_auxz00_4066 = 
CAR(BgL_auxz00_4067); } 
BgL_test1401z00_191 = 
(BgL_auxz00_4066==BgL_auxz00_4070); } 
if(BgL_test1401z00_191)
{ /* ./DotNet/as.scm 49 */
{ 
obj_t BgL_l1007z00_192;
{ /* ./DotNet/as.scm 50 */
obj_t BgL_arg1403z00_194;
{ /* ./DotNet/as.scm 50 */
obj_t BgL_auxz00_4074;
BgL_auxz00_4074 = 
CAR(BgL_infosz00_11); 
BgL_arg1403z00_194 = 
CDR(BgL_auxz00_4074); } 
BgL_l1007z00_192 = BgL_arg1403z00_194; 
BgL_forzd2each1008zd2_193:
{ /* ./DotNet/as.scm 50 */
bool_t BgL_test1406z00_195;
BgL_test1406z00_195 = 
PAIRP(BgL_l1007z00_192); 
if(BgL_test1406z00_195)
{ /* ./DotNet/as.scm 50 */
{ /* ./DotNet/as.scm 50 */
obj_t BgL_fz00_196;
BgL_fz00_196 = 
CAR(BgL_l1007z00_192); 
BGl_fieldz00zzdotnet_asz00(BgL_outz00_9, BgL_declsz00_10, BgL_fz00_196); } 
{ /* ./DotNet/as.scm 50 */
obj_t BgL_arg1410z00_197;
BgL_arg1410z00_197 = 
CDR(BgL_l1007z00_192); 
{ 
obj_t BgL_l1007z00_4082;
BgL_l1007z00_4082 = BgL_arg1410z00_197; 
BgL_l1007z00_192 = BgL_l1007z00_4082; 
goto BgL_forzd2each1008zd2_193;} } }  else 
{ /* ./DotNet/as.scm 50 */((bool_t)1); } } } } 
{ /* ./DotNet/as.scm 51 */
obj_t BgL_arg1415z00_198;
BgL_arg1415z00_198 = 
CDR(BgL_infosz00_11); 
{ 
obj_t BgL_infosz00_4084;
BgL_infosz00_4084 = BgL_arg1415z00_198; 
BgL_infosz00_11 = BgL_infosz00_4084; 
goto BGl_scanzd2infoszd2zzdotnet_asz00;} } }  else 
{ /* ./DotNet/as.scm 52 */
bool_t BgL_test1419z00_199;
{ /* ./DotNet/as.scm 52 */
obj_t BgL_auxz00_4089;obj_t BgL_auxz00_4085;
BgL_auxz00_4089 = 
CNST_TABLE_REF(((long)11)); 
{ /* ./DotNet/as.scm 52 */
obj_t BgL_auxz00_4086;
BgL_auxz00_4086 = 
CAR(BgL_infosz00_11); 
BgL_auxz00_4085 = 
CAR(BgL_auxz00_4086); } 
BgL_test1419z00_199 = 
(BgL_auxz00_4085==BgL_auxz00_4089); } 
if(BgL_test1419z00_199)
{ /* ./DotNet/as.scm 52 */
{ /* ./DotNet/as.scm 53 */
obj_t BgL_arg1421z00_200;
BgL_arg1421z00_200 = 
CDR(BgL_infosz00_11); 
{ 
obj_t BgL_infosz00_4094;
BgL_infosz00_4094 = BgL_arg1421z00_200; 
BgL_infosz00_11 = BgL_infosz00_4094; 
goto BGl_scanzd2infoszd2zzdotnet_asz00;} } }  else 
{ /* ./DotNet/as.scm 52 */
{ 
obj_t BgL_l1010z00_201;
{ /* ./DotNet/as.scm 55 */
bool_t BgL_auxz00_4095;
BgL_l1010z00_201 = BgL_infosz00_11; 
BgL_forzd2each1011zd2_202:
{ /* ./DotNet/as.scm 55 */
bool_t BgL_test1425z00_203;
BgL_test1425z00_203 = 
PAIRP(BgL_l1010z00_201); 
if(BgL_test1425z00_203)
{ /* ./DotNet/as.scm 55 */
{ /* ./DotNet/as.scm 55 */
obj_t BgL_mz00_204;
BgL_mz00_204 = 
CAR(BgL_l1010z00_201); 
BGl_methodz00zzdotnet_asz00(BgL_outz00_9, BgL_declsz00_10, BgL_mz00_204); } 
{ /* ./DotNet/as.scm 55 */
obj_t BgL_arg1429z00_205;
BgL_arg1429z00_205 = 
CDR(BgL_l1010z00_201); 
{ 
obj_t BgL_l1010z00_4101;
BgL_l1010z00_4101 = BgL_arg1429z00_205; 
BgL_l1010z00_201 = BgL_l1010z00_4101; 
goto BgL_forzd2each1011zd2_202;} } }  else 
{ /* ./DotNet/as.scm 55 */
BgL_auxz00_4095 = ((bool_t)1); } } 
return 
BBOOL(BgL_auxz00_4095);} } } } } } } 
}



/* decl_method */
obj_t BGl_decl_methodz00zzdotnet_asz00(obj_t BgL_fz00_12, obj_t BgL_declsz00_13)
{ AN_OBJECT;
{ /* ./DotNet/as.scm 57 */
{ /* ./DotNet/as.scm 58 */
obj_t BgL_declz00_210;
BgL_declz00_210 = 
BGl_assqz00zz__r4_pairs_and_lists_6_3z00(BgL_fz00_12, BgL_declsz00_13); 
{ 

{ /* ./DotNet/as.scm 59 */
bool_t BgL_test1445z00_220;
BgL_test1445z00_220 = 
PAIRP(BgL_declz00_210); 
if(BgL_test1445z00_220)
{ /* ./DotNet/as.scm 59 */
obj_t BgL_cdrzd2187zd2_221;
BgL_cdrzd2187zd2_221 = 
CDR(BgL_declz00_210); 
{ /* ./DotNet/as.scm 59 */
bool_t BgL_test1446z00_222;
BgL_test1446z00_222 = 
PAIRP(BgL_cdrzd2187zd2_221); 
if(BgL_test1446z00_222)
{ /* ./DotNet/as.scm 59 */
obj_t BgL_carzd2194zd2_223;
BgL_carzd2194zd2_223 = 
CAR(BgL_cdrzd2187zd2_221); 
{ /* ./DotNet/as.scm 59 */
bool_t BgL_test1447z00_224;
BgL_test1447z00_224 = 
PAIRP(BgL_carzd2194zd2_223); 
if(BgL_test1447z00_224)
{ /* ./DotNet/as.scm 59 */
obj_t BgL_cdrzd2202zd2_225;
BgL_cdrzd2202zd2_225 = 
CDR(BgL_carzd2194zd2_223); 
{ /* ./DotNet/as.scm 59 */
bool_t BgL_test1448z00_226;
{ /* ./DotNet/as.scm 59 */
obj_t BgL_auxz00_4115;obj_t BgL_auxz00_4113;
BgL_auxz00_4115 = 
CNST_TABLE_REF(((long)12)); 
BgL_auxz00_4113 = 
CAR(BgL_carzd2194zd2_223); 
BgL_test1448z00_226 = 
(BgL_auxz00_4113==BgL_auxz00_4115); } 
if(BgL_test1448z00_226)
{ /* ./DotNet/as.scm 59 */
bool_t BgL_test1449z00_227;
BgL_test1449z00_227 = 
PAIRP(BgL_cdrzd2202zd2_225); 
if(BgL_test1449z00_227)
{ /* ./DotNet/as.scm 59 */
obj_t BgL_cdrzd2209zd2_228;
BgL_cdrzd2209zd2_228 = 
CDR(BgL_cdrzd2202zd2_225); 
{ /* ./DotNet/as.scm 59 */
bool_t BgL_test1450z00_229;
BgL_test1450z00_229 = 
PAIRP(BgL_cdrzd2209zd2_228); 
if(BgL_test1450z00_229)
{ /* ./DotNet/as.scm 59 */
obj_t BgL_cdrzd2216zd2_230;
BgL_cdrzd2216zd2_230 = 
CDR(BgL_cdrzd2209zd2_228); 
{ /* ./DotNet/as.scm 59 */
bool_t BgL_test1451z00_231;
BgL_test1451z00_231 = 
PAIRP(BgL_cdrzd2216zd2_230); 
if(BgL_test1451z00_231)
{ /* ./DotNet/as.scm 59 */
obj_t BgL_cdrzd2222zd2_232;
BgL_cdrzd2222zd2_232 = 
CDR(BgL_cdrzd2216zd2_230); 
{ /* ./DotNet/as.scm 59 */
bool_t BgL_test1452z00_233;
BgL_test1452z00_233 = 
PAIRP(BgL_cdrzd2222zd2_232); 
if(BgL_test1452z00_233)
{ /* ./DotNet/as.scm 59 */
bool_t BgL_test1453z00_234;
{ /* ./DotNet/as.scm 59 */
obj_t BgL_auxz00_4130;
BgL_auxz00_4130 = 
CDR(BgL_cdrzd2187zd2_221); 
BgL_test1453z00_234 = 
NULLP(BgL_auxz00_4130); } 
if(BgL_test1453z00_234)
{ /* ./DotNet/as.scm 59 */
obj_t BgL_auxz00_4134;
BgL_auxz00_4134 = 
CAR(BgL_cdrzd2187zd2_221); 
return 
CDR(BgL_auxz00_4134);}  else 
{ /* ./DotNet/as.scm 59 */
BgL_tagzd2172zd2_218:
FAILURE(BGl_string6113z00zzdotnet_asz00,BGl_string6115z00zzdotnet_asz00,BgL_fz00_12);} }  else 
{ /* ./DotNet/as.scm 59 */
goto BgL_tagzd2172zd2_218;} } }  else 
{ /* ./DotNet/as.scm 59 */
goto BgL_tagzd2172zd2_218;} } }  else 
{ /* ./DotNet/as.scm 59 */
goto BgL_tagzd2172zd2_218;} } }  else 
{ /* ./DotNet/as.scm 59 */
goto BgL_tagzd2172zd2_218;} }  else 
{ /* ./DotNet/as.scm 59 */
goto BgL_tagzd2172zd2_218;} } }  else 
{ /* ./DotNet/as.scm 59 */
goto BgL_tagzd2172zd2_218;} } }  else 
{ /* ./DotNet/as.scm 59 */
goto BgL_tagzd2172zd2_218;} } }  else 
{ /* ./DotNet/as.scm 59 */
goto BgL_tagzd2172zd2_218;} } } } } 
}



/* decl_field */
obj_t BGl_decl_fieldz00zzdotnet_asz00(obj_t BgL_fz00_14, obj_t BgL_declsz00_15)
{ AN_OBJECT;
{ /* ./DotNet/as.scm 64 */
{ /* ./DotNet/as.scm 65 */
obj_t BgL_declz00_244;
BgL_declz00_244 = 
BGl_assqz00zz__r4_pairs_and_lists_6_3z00(BgL_fz00_14, BgL_declsz00_15); 
{ 

{ /* ./DotNet/as.scm 66 */
bool_t BgL_test1506z00_253;
BgL_test1506z00_253 = 
PAIRP(BgL_declz00_244); 
if(BgL_test1506z00_253)
{ /* ./DotNet/as.scm 66 */
obj_t BgL_cdrzd2244zd2_254;
BgL_cdrzd2244zd2_254 = 
CDR(BgL_declz00_244); 
{ /* ./DotNet/as.scm 66 */
bool_t BgL_test1507z00_255;
BgL_test1507z00_255 = 
PAIRP(BgL_cdrzd2244zd2_254); 
if(BgL_test1507z00_255)
{ /* ./DotNet/as.scm 66 */
obj_t BgL_carzd2250zd2_256;
BgL_carzd2250zd2_256 = 
CAR(BgL_cdrzd2244zd2_254); 
{ /* ./DotNet/as.scm 66 */
bool_t BgL_test1508z00_257;
BgL_test1508z00_257 = 
PAIRP(BgL_carzd2250zd2_256); 
if(BgL_test1508z00_257)
{ /* ./DotNet/as.scm 66 */
obj_t BgL_cdrzd2257zd2_258;
BgL_cdrzd2257zd2_258 = 
CDR(BgL_carzd2250zd2_256); 
{ /* ./DotNet/as.scm 66 */
bool_t BgL_test1509z00_259;
{ /* ./DotNet/as.scm 66 */
obj_t BgL_auxz00_4150;obj_t BgL_auxz00_4148;
BgL_auxz00_4150 = 
CNST_TABLE_REF(((long)13)); 
BgL_auxz00_4148 = 
CAR(BgL_carzd2250zd2_256); 
BgL_test1509z00_259 = 
(BgL_auxz00_4148==BgL_auxz00_4150); } 
if(BgL_test1509z00_259)
{ /* ./DotNet/as.scm 66 */
bool_t BgL_test1510z00_260;
BgL_test1510z00_260 = 
PAIRP(BgL_cdrzd2257zd2_258); 
if(BgL_test1510z00_260)
{ /* ./DotNet/as.scm 66 */
obj_t BgL_cdrzd2263zd2_261;
BgL_cdrzd2263zd2_261 = 
CDR(BgL_cdrzd2257zd2_258); 
{ /* ./DotNet/as.scm 66 */
bool_t BgL_test1511z00_262;
BgL_test1511z00_262 = 
PAIRP(BgL_cdrzd2263zd2_261); 
if(BgL_test1511z00_262)
{ /* ./DotNet/as.scm 66 */
obj_t BgL_cdrzd2269zd2_263;
BgL_cdrzd2269zd2_263 = 
CDR(BgL_cdrzd2263zd2_261); 
{ /* ./DotNet/as.scm 66 */
bool_t BgL_test1512z00_264;
BgL_test1512z00_264 = 
PAIRP(BgL_cdrzd2269zd2_263); 
if(BgL_test1512z00_264)
{ /* ./DotNet/as.scm 66 */
obj_t BgL_cdrzd2274zd2_265;
BgL_cdrzd2274zd2_265 = 
CDR(BgL_cdrzd2269zd2_263); 
{ /* ./DotNet/as.scm 66 */
bool_t BgL_test1513z00_266;
BgL_test1513z00_266 = 
PAIRP(BgL_cdrzd2274zd2_265); 
if(BgL_test1513z00_266)
{ /* ./DotNet/as.scm 66 */
bool_t BgL_test1514z00_267;
{ /* ./DotNet/as.scm 66 */
obj_t BgL_auxz00_4165;
BgL_auxz00_4165 = 
CDR(BgL_cdrzd2274zd2_265); 
BgL_test1514z00_267 = 
NULLP(BgL_auxz00_4165); } 
if(BgL_test1514z00_267)
{ /* ./DotNet/as.scm 66 */
bool_t BgL_test1515z00_268;
{ /* ./DotNet/as.scm 66 */
obj_t BgL_auxz00_4169;
BgL_auxz00_4169 = 
CDR(BgL_cdrzd2244zd2_254); 
BgL_test1515z00_268 = 
NULLP(BgL_auxz00_4169); } 
if(BgL_test1515z00_268)
{ /* ./DotNet/as.scm 66 */
obj_t BgL_auxz00_4173;
BgL_auxz00_4173 = 
CAR(BgL_cdrzd2244zd2_254); 
return 
CDR(BgL_auxz00_4173);}  else 
{ /* ./DotNet/as.scm 66 */
BgL_tagzd2231zd2_251:
FAILURE(BGl_string6113z00zzdotnet_asz00,BGl_string6116z00zzdotnet_asz00,BgL_fz00_14);} }  else 
{ /* ./DotNet/as.scm 66 */
goto BgL_tagzd2231zd2_251;} }  else 
{ /* ./DotNet/as.scm 66 */
goto BgL_tagzd2231zd2_251;} } }  else 
{ /* ./DotNet/as.scm 66 */
goto BgL_tagzd2231zd2_251;} } }  else 
{ /* ./DotNet/as.scm 66 */
goto BgL_tagzd2231zd2_251;} } }  else 
{ /* ./DotNet/as.scm 66 */
goto BgL_tagzd2231zd2_251;} }  else 
{ /* ./DotNet/as.scm 66 */
goto BgL_tagzd2231zd2_251;} } }  else 
{ /* ./DotNet/as.scm 66 */
goto BgL_tagzd2231zd2_251;} } }  else 
{ /* ./DotNet/as.scm 66 */
goto BgL_tagzd2231zd2_251;} } }  else 
{ /* ./DotNet/as.scm 66 */
goto BgL_tagzd2231zd2_251;} } } } } 
}



/* field */
obj_t BGl_fieldz00zzdotnet_asz00(obj_t BgL_outz00_16, obj_t BgL_declsz00_17, obj_t BgL_fz00_18)
{ AN_OBJECT;
{ /* ./DotNet/as.scm 71 */
{ 
obj_t BgL_thisz00_278;obj_t BgL_attrz00_279;obj_t BgL_typez00_280;obj_t BgL_namez00_281;
{ /* ./DotNet/as.scm 72 */
obj_t BgL_ezd2281zd2_283;
BgL_ezd2281zd2_283 = 
BGl_decl_fieldz00zzdotnet_asz00(BgL_fz00_18, BgL_declsz00_17); 
{ /* ./DotNet/as.scm 72 */
bool_t BgL_test1577z00_284;
BgL_test1577z00_284 = 
PAIRP(BgL_ezd2281zd2_283); 
if(BgL_test1577z00_284)
{ /* ./DotNet/as.scm 72 */
obj_t BgL_cdrzd2291zd2_285;
BgL_cdrzd2291zd2_285 = 
CDR(BgL_ezd2281zd2_283); 
{ /* ./DotNet/as.scm 72 */
bool_t BgL_test1578z00_286;
BgL_test1578z00_286 = 
PAIRP(BgL_cdrzd2291zd2_285); 
if(BgL_test1578z00_286)
{ /* ./DotNet/as.scm 72 */
obj_t BgL_cdrzd2297zd2_287;
BgL_cdrzd2297zd2_287 = 
CDR(BgL_cdrzd2291zd2_285); 
{ /* ./DotNet/as.scm 72 */
bool_t BgL_test1579z00_288;
BgL_test1579z00_288 = 
PAIRP(BgL_cdrzd2297zd2_287); 
if(BgL_test1579z00_288)
{ /* ./DotNet/as.scm 72 */
obj_t BgL_cdrzd2302zd2_289;
BgL_cdrzd2302zd2_289 = 
CDR(BgL_cdrzd2297zd2_287); 
{ /* ./DotNet/as.scm 72 */
bool_t BgL_test1580z00_290;
BgL_test1580z00_290 = 
PAIRP(BgL_cdrzd2302zd2_289); 
if(BgL_test1580z00_290)
{ /* ./DotNet/as.scm 72 */
bool_t BgL_test1581z00_291;
{ /* ./DotNet/as.scm 72 */
obj_t BgL_auxz00_4189;
BgL_auxz00_4189 = 
CDR(BgL_cdrzd2302zd2_289); 
BgL_test1581z00_291 = 
NULLP(BgL_auxz00_4189); } 
if(BgL_test1581z00_291)
{ /* ./DotNet/as.scm 72 */
obj_t BgL_arg1586z00_292;obj_t BgL_arg1587z00_293;obj_t BgL_arg1589z00_294;obj_t BgL_arg1590z00_295;
BgL_arg1586z00_292 = 
CAR(BgL_ezd2281zd2_283); 
BgL_arg1587z00_293 = 
CAR(BgL_cdrzd2291zd2_285); 
BgL_arg1589z00_294 = 
CAR(BgL_cdrzd2297zd2_287); 
BgL_arg1590z00_295 = 
CAR(BgL_cdrzd2302zd2_289); 
BgL_thisz00_278 = BgL_arg1586z00_292; 
BgL_attrz00_279 = BgL_arg1587z00_293; 
BgL_typez00_280 = BgL_arg1589z00_294; 
BgL_namez00_281 = BgL_arg1590z00_295; 
display_string(BGl_string6117z00zzdotnet_asz00, BgL_outz00_16); 
{ 
obj_t BgL_l1012z00_297;
BgL_l1012z00_297 = BgL_attrz00_279; 
BgL_forzd2each1013zd2_298:
{ /* ./DotNet/as.scm 75 */
bool_t BgL_test1610z00_299;
BgL_test1610z00_299 = 
PAIRP(BgL_l1012z00_297); 
if(BgL_test1610z00_299)
{ /* ./DotNet/as.scm 75 */
{ /* ./DotNet/as.scm 75 */
obj_t BgL_az00_300;
BgL_az00_300 = 
CAR(BgL_l1012z00_297); 
display_string(BGl_string6118z00zzdotnet_asz00, BgL_outz00_16); 
BGl_displayzd22zd2zz__r4_output_6_10_3z00(BgL_az00_300, BgL_outz00_16); } 
{ /* ./DotNet/as.scm 75 */
obj_t BgL_arg1615z00_301;
BgL_arg1615z00_301 = 
CDR(BgL_l1012z00_297); 
{ 
obj_t BgL_l1012z00_4204;
BgL_l1012z00_4204 = BgL_arg1615z00_301; 
BgL_l1012z00_297 = BgL_l1012z00_4204; 
goto BgL_forzd2each1013zd2_298;} } }  else 
{ /* ./DotNet/as.scm 75 */((bool_t)1); } } } 
display_string(BGl_string6118z00zzdotnet_asz00, BgL_outz00_16); 
{ /* ./DotNet/as.scm 76 */
obj_t BgL_arg1621z00_303;
BgL_arg1621z00_303 = 
BGl_typenamez00zzdotnet_asz00(BgL_declsz00_17, BgL_typez00_280); 
BGl_displayzd22zd2zz__r4_output_6_10_3z00(BgL_arg1621z00_303, BgL_outz00_16); } 
display_string(BGl_string6119z00zzdotnet_asz00, BgL_outz00_16); 
BGl_displayzd22zd2zz__r4_output_6_10_3z00(BgL_namez00_281, BgL_outz00_16); 
display_string(BGl_string6109z00zzdotnet_asz00, BgL_outz00_16); 
return 
WRITE_CHAR(((unsigned char)'\n'), BgL_outz00_16);}  else 
{ /* ./DotNet/as.scm 72 */
return BFALSE;} }  else 
{ /* ./DotNet/as.scm 72 */
return BFALSE;} } }  else 
{ /* ./DotNet/as.scm 72 */
return BFALSE;} } }  else 
{ /* ./DotNet/as.scm 72 */
return BFALSE;} } }  else 
{ /* ./DotNet/as.scm 72 */
return BFALSE;} } } } } 
}



/* classname */
obj_t BGl_classnamez00zzdotnet_asz00(obj_t BgL_declsz00_21, obj_t BgL_namez00_22)
{ AN_OBJECT;
{ /* ./DotNet/as.scm 92 */
{ /* ./DotNet/as.scm 93 */
obj_t BgL_declz00_304;
BgL_declz00_304 = 
BGl_assqz00zz__r4_pairs_and_lists_6_3z00(BgL_namez00_22, BgL_declsz00_21); 
{ /* ./DotNet/as.scm 94 */
bool_t BgL_test1629z00_311;
BgL_test1629z00_311 = 
PAIRP(BgL_declz00_304); 
if(BgL_test1629z00_311)
{ /* ./DotNet/as.scm 94 */
obj_t BgL_cdrzd2318zd2_312;
BgL_cdrzd2318zd2_312 = 
CDR(BgL_declz00_304); 
{ /* ./DotNet/as.scm 94 */
bool_t BgL_test1630z00_313;
BgL_test1630z00_313 = 
PAIRP(BgL_cdrzd2318zd2_312); 
if(BgL_test1630z00_313)
{ /* ./DotNet/as.scm 94 */
obj_t BgL_carzd2322zd2_314;
BgL_carzd2322zd2_314 = 
CAR(BgL_cdrzd2318zd2_312); 
{ /* ./DotNet/as.scm 94 */
bool_t BgL_test1631z00_315;
BgL_test1631z00_315 = 
PAIRP(BgL_carzd2322zd2_314); 
if(BgL_test1631z00_315)
{ /* ./DotNet/as.scm 94 */
obj_t BgL_cdrzd2327zd2_316;
BgL_cdrzd2327zd2_316 = 
CDR(BgL_carzd2322zd2_314); 
{ /* ./DotNet/as.scm 94 */
bool_t BgL_test1632z00_317;
{ /* ./DotNet/as.scm 94 */
obj_t BgL_auxz00_4224;obj_t BgL_auxz00_4222;
BgL_auxz00_4224 = 
CNST_TABLE_REF(((long)14)); 
BgL_auxz00_4222 = 
CAR(BgL_carzd2322zd2_314); 
BgL_test1632z00_317 = 
(BgL_auxz00_4222==BgL_auxz00_4224); } 
if(BgL_test1632z00_317)
{ /* ./DotNet/as.scm 94 */
bool_t BgL_test1633z00_318;
BgL_test1633z00_318 = 
PAIRP(BgL_cdrzd2327zd2_316); 
if(BgL_test1633z00_318)
{ /* ./DotNet/as.scm 94 */
obj_t BgL_cdrzd2331zd2_319;
BgL_cdrzd2331zd2_319 = 
CDR(BgL_cdrzd2327zd2_316); 
{ /* ./DotNet/as.scm 94 */
bool_t BgL_test1634z00_320;
BgL_test1634z00_320 = 
PAIRP(BgL_cdrzd2331zd2_319); 
if(BgL_test1634z00_320)
{ /* ./DotNet/as.scm 94 */
bool_t BgL_test1635z00_321;
{ /* ./DotNet/as.scm 94 */
obj_t BgL_auxz00_4233;
BgL_auxz00_4233 = 
CDR(BgL_cdrzd2331zd2_319); 
BgL_test1635z00_321 = 
NULLP(BgL_auxz00_4233); } 
if(BgL_test1635z00_321)
{ /* ./DotNet/as.scm 94 */
bool_t BgL_test1636z00_322;
{ /* ./DotNet/as.scm 94 */
obj_t BgL_auxz00_4237;
BgL_auxz00_4237 = 
CDR(BgL_cdrzd2318zd2_312); 
BgL_test1636z00_322 = 
NULLP(BgL_auxz00_4237); } 
if(BgL_test1636z00_322)
{ /* ./DotNet/as.scm 94 */
obj_t BgL_arg1642z00_325;
BgL_arg1642z00_325 = 
CAR(BgL_cdrzd2331zd2_319); 
return 
BGl_cnamez00zzdotnet_asz00(BgL_arg1642z00_325);}  else 
{ /* ./DotNet/as.scm 94 */
return BFALSE;} }  else 
{ /* ./DotNet/as.scm 94 */
return BFALSE;} }  else 
{ /* ./DotNet/as.scm 94 */
return BFALSE;} } }  else 
{ /* ./DotNet/as.scm 94 */
return BFALSE;} }  else 
{ /* ./DotNet/as.scm 94 */
return BFALSE;} } }  else 
{ /* ./DotNet/as.scm 94 */
return BFALSE;} } }  else 
{ /* ./DotNet/as.scm 94 */
return BFALSE;} } }  else 
{ /* ./DotNet/as.scm 94 */
return BFALSE;} } } } 
}



/* cname */
obj_t BGl_cnamez00zzdotnet_asz00(obj_t BgL_namez00_23)
{ AN_OBJECT;
{ /* ./DotNet/as.scm 99 */
{ /* ./DotNet/as.scm 101 */
bool_t BgL_test1681z00_330;
BgL_test1681z00_330 = 
bigloo_strcmp(BgL_namez00_23, BGl_string6120z00zzdotnet_asz00); 
if(BgL_test1681z00_330)
{ /* ./DotNet/as.scm 101 */
return BGl_string6121z00zzdotnet_asz00;}  else 
{ /* ./DotNet/as.scm 103 */
bool_t BgL_test1682z00_331;
BgL_test1682z00_331 = 
bigloo_strcmp(BgL_namez00_23, BGl_string6122z00zzdotnet_asz00); 
if(BgL_test1682z00_331)
{ /* ./DotNet/as.scm 103 */
return BGl_string6121z00zzdotnet_asz00;}  else 
{ /* ./DotNet/as.scm 105 */
bool_t BgL_test1683z00_332;
{ /* ./DotNet/as.scm 105 */
int BgL_lenz00_2524;
BgL_lenz00_2524 = 
(int)(((long)10)); 
BgL_test1683z00_332 = 
bigloo_strncmp(BGl_string6123z00zzdotnet_asz00, BgL_namez00_23, BgL_lenz00_2524); } 
if(BgL_test1683z00_332)
{ /* ./DotNet/as.scm 105 */
{ /* ./DotNet/as.scm 106 */
obj_t BgL_arg1686z00_334;
{ /* ./DotNet/as.scm 106 */
int BgL_arg1690z00_336;
BgL_arg1690z00_336 = 
STRING_LENGTH(BgL_namez00_23); 
{ /* ./DotNet/as.scm 106 */
int BgL_startz00_2527;
BgL_startz00_2527 = 
(int)(((long)10)); 
BgL_arg1686z00_334 = 
c_substring(BgL_namez00_23, BgL_startz00_2527, BgL_arg1690z00_336); } } 
return 
string_append(BGl_string6124z00zzdotnet_asz00, BgL_arg1686z00_334);} }  else 
{ /* ./DotNet/as.scm 107 */
bool_t BgL_test1693z00_337;
BgL_test1693z00_337 = 
bigloo_strcmp(BgL_namez00_23, BGl_string6125z00zzdotnet_asz00); 
if(BgL_test1693z00_337)
{ /* ./DotNet/as.scm 107 */
return BGl_string6126z00zzdotnet_asz00;}  else 
{ /* ./DotNet/as.scm 109 */
bool_t BgL_test1694z00_338;
BgL_test1694z00_338 = 
bigloo_strcmp(BgL_namez00_23, BGl_string6127z00zzdotnet_asz00); 
if(BgL_test1694z00_338)
{ /* ./DotNet/as.scm 109 */
return BGl_string6128z00zzdotnet_asz00;}  else 
{ /* ./DotNet/as.scm 109 */
return BgL_namez00_23;} } } } } } } 
}



/* typename */
obj_t BGl_typenamez00zzdotnet_asz00(obj_t BgL_declsz00_24, obj_t BgL_typez00_25)
{ AN_OBJECT;
{ /* ./DotNet/as.scm 113 */
{ 

{ /* ./DotNet/as.scm 114 */
bool_t BgL_test1700z00_343;
BgL_test1700z00_343 = 
PAIRP(BgL_typez00_25); 
if(BgL_test1700z00_343)
{ /* ./DotNet/as.scm 114 */
obj_t BgL_cdrzd2343zd2_344;
BgL_cdrzd2343zd2_344 = 
CDR(BgL_typez00_25); 
{ /* ./DotNet/as.scm 114 */
bool_t BgL_test1701z00_345;
{ /* ./DotNet/as.scm 114 */
obj_t BgL_auxz00_4263;obj_t BgL_auxz00_4261;
BgL_auxz00_4263 = 
CNST_TABLE_REF(((long)15)); 
BgL_auxz00_4261 = 
CAR(BgL_typez00_25); 
BgL_test1701z00_345 = 
(BgL_auxz00_4261==BgL_auxz00_4263); } 
if(BgL_test1701z00_345)
{ /* ./DotNet/as.scm 114 */
bool_t BgL_test1702z00_346;
BgL_test1702z00_346 = 
PAIRP(BgL_cdrzd2343zd2_344); 
if(BgL_test1702z00_346)
{ /* ./DotNet/as.scm 114 */
bool_t BgL_test1703z00_347;
{ /* ./DotNet/as.scm 114 */
obj_t BgL_auxz00_4269;
BgL_auxz00_4269 = 
CDR(BgL_cdrzd2343zd2_344); 
BgL_test1703z00_347 = 
NULLP(BgL_auxz00_4269); } 
if(BgL_test1703z00_347)
{ /* ./DotNet/as.scm 114 */
obj_t BgL_arg1705z00_348;
BgL_arg1705z00_348 = 
CAR(BgL_cdrzd2343zd2_344); 
{ /* ./DotNet/as.scm 114 */
obj_t BgL_arg1725z00_2541;
BgL_arg1725z00_2541 = 
BGl_typenamez00zzdotnet_asz00(BgL_declsz00_24, BgL_arg1705z00_348); 
return 
string_append(BgL_arg1725z00_2541, BGl_string6131z00zzdotnet_asz00);} }  else 
{ /* ./DotNet/as.scm 114 */
BgL_tagzd2338zd2_341:
{ /* ./DotNet/as.scm 119 */
obj_t BgL_testzd2resultzd2_354;
BgL_testzd2resultzd2_354 = 
BGl_assqz00zz__r4_pairs_and_lists_6_3z00(BgL_typez00_25, BGl_basiczd2typezd2zzdotnet_asz00); 
{ 

if(
CBOOL(BgL_testzd2resultzd2_354))
{ /* ./DotNet/as.scm 119 */
return 
CDR(BgL_testzd2resultzd2_354);}  else 
{ /* ./DotNet/as.scm 119 */
{ /* ./DotNet/as.scm 120 */
obj_t BgL_testzd2resultzd2_360;
BgL_testzd2resultzd2_360 = 
BGl_classnamez00zzdotnet_asz00(BgL_declsz00_24, BgL_typez00_25); 
{ 

if(
CBOOL(BgL_testzd2resultzd2_360))
{ /* ./DotNet/as.scm 120 */
return 
string_append_3(BGl_string6130z00zzdotnet_asz00, BgL_testzd2resultzd2_360, BGl_string6109z00zzdotnet_asz00);}  else 
{ /* ./DotNet/as.scm 120 */
FAILURE(BGl_string6113z00zzdotnet_asz00,BGl_string6129z00zzdotnet_asz00,BgL_typez00_25);} } } } } } } }  else 
{ /* ./DotNet/as.scm 114 */
goto BgL_tagzd2338zd2_341;} }  else 
{ /* ./DotNet/as.scm 114 */
goto BgL_tagzd2338zd2_341;} } }  else 
{ /* ./DotNet/as.scm 114 */
goto BgL_tagzd2338zd2_341;} } } } 
}



/* *display */
bool_t BGl_za2displayza2zzdotnet_asz00(obj_t BgL_outz00_26, obj_t BgL_lz00_27)
{ AN_OBJECT;
{ /* ./DotNet/as.scm 123 */
{ 
obj_t BgL_l1017z00_371;
BgL_l1017z00_371 = BgL_lz00_27; 
BgL_forzd2each1018zd2_372:
{ /* ./DotNet/as.scm 124 */
bool_t BgL_test1744z00_373;
BgL_test1744z00_373 = 
PAIRP(BgL_l1017z00_371); 
if(BgL_test1744z00_373)
{ /* ./DotNet/as.scm 124 */
{ /* ./DotNet/as.scm 124 */
obj_t BgL_az00_374;
BgL_az00_374 = 
CAR(BgL_l1017z00_371); 
BGl_displayzd22zd2zz__r4_output_6_10_3z00(BgL_az00_374, BgL_outz00_26); } 
{ /* ./DotNet/as.scm 124 */
obj_t BgL_arg1748z00_375;
BgL_arg1748z00_375 = 
CDR(BgL_l1017z00_371); 
{ 
obj_t BgL_l1017z00_4290;
BgL_l1017z00_4290 = BgL_arg1748z00_375; 
BgL_l1017z00_371 = BgL_l1017z00_4290; 
goto BgL_forzd2each1018zd2_372;} } }  else 
{ /* ./DotNet/as.scm 124 */
return ((bool_t)1);} } } } 
}



/* mname */
obj_t BGl_mnamez00zzdotnet_asz00(obj_t BgL_namez00_28)
{ AN_OBJECT;
{ /* ./DotNet/as.scm 126 */
{ /* ./DotNet/as.scm 128 */
bool_t BgL_test1752z00_376;
BgL_test1752z00_376 = 
bigloo_strcmp(BgL_namez00_28, BGl_string6132z00zzdotnet_asz00); 
if(BgL_test1752z00_376)
{ /* ./DotNet/as.scm 128 */
return BGl_string6133z00zzdotnet_asz00;}  else 
{ /* ./DotNet/as.scm 129 */
bool_t BgL_test1753z00_377;
BgL_test1753z00_377 = 
bigloo_strcmp(BgL_namez00_28, BGl_string6134z00zzdotnet_asz00); 
if(BgL_test1753z00_377)
{ /* ./DotNet/as.scm 129 */
return BGl_string6135z00zzdotnet_asz00;}  else 
{ /* ./DotNet/as.scm 129 */
return 
string_append_3(BGl_string6109z00zzdotnet_asz00, BgL_namez00_28, BGl_string6109z00zzdotnet_asz00);} } } } 
}



/* mattr */
obj_t BGl_mattrz00zzdotnet_asz00(obj_t BgL_outz00_32, obj_t BgL_declsz00_33, obj_t BgL_namez00_34)
{ AN_OBJECT;
{ /* ./DotNet/as.scm 138 */
{ 
obj_t BgL_thisz00_378;obj_t BgL_attrz00_379;obj_t BgL_typez00_380;obj_t BgL_namez00_381;obj_t BgL_targsz00_382;
{ /* ./DotNet/as.scm 139 */
obj_t BgL_ezd2349zd2_384;
BgL_ezd2349zd2_384 = 
BGl_decl_methodz00zzdotnet_asz00(BgL_namez00_34, BgL_declsz00_33); 
{ /* ./DotNet/as.scm 139 */
bool_t BgL_test1761z00_385;
BgL_test1761z00_385 = 
PAIRP(BgL_ezd2349zd2_384); 
if(BgL_test1761z00_385)
{ /* ./DotNet/as.scm 139 */
obj_t BgL_cdrzd2361zd2_386;
BgL_cdrzd2361zd2_386 = 
CDR(BgL_ezd2349zd2_384); 
{ /* ./DotNet/as.scm 139 */
bool_t BgL_test1762z00_387;
BgL_test1762z00_387 = 
PAIRP(BgL_cdrzd2361zd2_386); 
if(BgL_test1762z00_387)
{ /* ./DotNet/as.scm 139 */
obj_t BgL_cdrzd2368zd2_388;
BgL_cdrzd2368zd2_388 = 
CDR(BgL_cdrzd2361zd2_386); 
{ /* ./DotNet/as.scm 139 */
bool_t BgL_test1763z00_389;
BgL_test1763z00_389 = 
PAIRP(BgL_cdrzd2368zd2_388); 
if(BgL_test1763z00_389)
{ /* ./DotNet/as.scm 139 */
obj_t BgL_cdrzd2374zd2_390;
BgL_cdrzd2374zd2_390 = 
CDR(BgL_cdrzd2368zd2_388); 
{ /* ./DotNet/as.scm 139 */
bool_t BgL_test1764z00_391;
BgL_test1764z00_391 = 
PAIRP(BgL_cdrzd2374zd2_390); 
if(BgL_test1764z00_391)
{ /* ./DotNet/as.scm 139 */
obj_t BgL_arg1766z00_392;obj_t BgL_arg1767z00_393;obj_t BgL_arg1768z00_394;obj_t BgL_arg1771z00_395;obj_t BgL_arg1772z00_396;
BgL_arg1766z00_392 = 
CAR(BgL_ezd2349zd2_384); 
BgL_arg1767z00_393 = 
CAR(BgL_cdrzd2361zd2_386); 
BgL_arg1768z00_394 = 
CAR(BgL_cdrzd2368zd2_388); 
BgL_arg1771z00_395 = 
CAR(BgL_cdrzd2374zd2_390); 
BgL_arg1772z00_396 = 
CDR(BgL_cdrzd2374zd2_390); 
BgL_thisz00_378 = BgL_arg1766z00_392; 
BgL_attrz00_379 = BgL_arg1767z00_393; 
BgL_typez00_380 = BgL_arg1768z00_394; 
BgL_namez00_381 = BgL_arg1771z00_395; 
BgL_targsz00_382 = BgL_arg1772z00_396; 
{ 
obj_t BgL_l1019z00_397;
BgL_l1019z00_397 = BgL_attrz00_379; 
BgL_forzd2each1020zd2_398:
{ /* ./DotNet/as.scm 141 */
bool_t BgL_test1788z00_399;
BgL_test1788z00_399 = 
PAIRP(BgL_l1019z00_397); 
if(BgL_test1788z00_399)
{ /* ./DotNet/as.scm 141 */
{ /* ./DotNet/as.scm 141 */
obj_t BgL_az00_400;
BgL_az00_400 = 
CAR(BgL_l1019z00_397); 
display_string(BGl_string6118z00zzdotnet_asz00, BgL_outz00_32); 
BGl_displayzd22zd2zz__r4_output_6_10_3z00(BgL_az00_400, BgL_outz00_32); } 
{ /* ./DotNet/as.scm 141 */
obj_t BgL_arg1793z00_401;
BgL_arg1793z00_401 = 
CDR(BgL_l1019z00_397); 
{ 
obj_t BgL_l1019z00_4319;
BgL_l1019z00_4319 = BgL_arg1793z00_401; 
BgL_l1019z00_397 = BgL_l1019z00_4319; 
goto BgL_forzd2each1020zd2_398;} } }  else 
{ /* ./DotNet/as.scm 141 */((bool_t)1); } } } 
{ /* ./DotNet/as.scm 142 */
bool_t BgL_test1797z00_402;
{ /* ./DotNet/as.scm 142 */
obj_t BgL_auxz00_4320;
BgL_auxz00_4320 = 
BGl_memqz00zz__r4_pairs_and_lists_6_3z00(
CNST_TABLE_REF(((long)16)), BgL_attrz00_379); 
BgL_test1797z00_402 = 
CBOOL(BgL_auxz00_4320); } 
if(BgL_test1797z00_402)
{ /* ./DotNet/as.scm 142 */((bool_t)0); }  else 
{ /* ./DotNet/as.scm 143 */
bool_t BgL_test1798z00_403;
BgL_test1798z00_403 = 
bigloo_strcmp(BgL_namez00_381, BGl_string6132z00zzdotnet_asz00); 
if(BgL_test1798z00_403)
{ /* ./DotNet/as.scm 144 */
obj_t BgL_list1800z00_404;
BgL_list1800z00_404 = 
MAKE_PAIR(BGl_string6136z00zzdotnet_asz00, BNIL); 
BGl_za2displayza2zzdotnet_asz00(BgL_outz00_32, BgL_list1800z00_404); }  else 
{ /* ./DotNet/as.scm 145 */
obj_t BgL_list1803z00_405;
BgL_list1803z00_405 = 
MAKE_PAIR(BGl_string6137z00zzdotnet_asz00, BNIL); 
BGl_za2displayza2zzdotnet_asz00(BgL_outz00_32, BgL_list1803z00_405); } } } 
{ /* ./DotNet/as.scm 146 */
bool_t BgL_test1807z00_406;
BgL_test1807z00_406 = 
bigloo_strcmp(BgL_namez00_381, BGl_string6134z00zzdotnet_asz00); 
if(BgL_test1807z00_406)
{ /* ./DotNet/as.scm 147 */
obj_t BgL_list1809z00_407;
BgL_list1809z00_407 = 
MAKE_PAIR(BGl_string6138z00zzdotnet_asz00, BNIL); 
BGl_za2displayza2zzdotnet_asz00(BgL_outz00_32, BgL_list1809z00_407); }  else 
{ /* ./DotNet/as.scm 146 */((bool_t)0); } } 
return 
CNST_TABLE_REF(((long)17));}  else 
{ /* ./DotNet/as.scm 139 */
return BFALSE;} } }  else 
{ /* ./DotNet/as.scm 139 */
return BFALSE;} } }  else 
{ /* ./DotNet/as.scm 139 */
return BFALSE;} } }  else 
{ /* ./DotNet/as.scm 139 */
return BFALSE;} } } } } 
}



/* nbargs */
obj_t BGl_nbargsz00zzdotnet_asz00(obj_t BgL_declsz00_35, obj_t BgL_namez00_36)
{ AN_OBJECT;
{ /* ./DotNet/as.scm 150 */
{ /* ./DotNet/as.scm 151 */
obj_t BgL_ezd2383zd2_414;
BgL_ezd2383zd2_414 = 
BGl_decl_methodz00zzdotnet_asz00(BgL_namez00_36, BgL_declsz00_35); 
if(
PAIRP(BgL_ezd2383zd2_414))
{ /* ./DotNet/as.scm 151 */
obj_t BgL_cdrzd2395zd2_416;
BgL_cdrzd2395zd2_416 = 
CDR(BgL_ezd2383zd2_414); 
if(
PAIRP(BgL_cdrzd2395zd2_416))
{ /* ./DotNet/as.scm 151 */
obj_t BgL_cdrzd2402zd2_418;
BgL_cdrzd2402zd2_418 = 
CDR(BgL_cdrzd2395zd2_416); 
if(
PAIRP(BgL_cdrzd2402zd2_418))
{ /* ./DotNet/as.scm 151 */
obj_t BgL_cdrzd2408zd2_420;
BgL_cdrzd2408zd2_420 = 
CDR(BgL_cdrzd2402zd2_418); 
if(
PAIRP(BgL_cdrzd2408zd2_420))
{ /* ./DotNet/as.scm 151 */
long BgL_auxz00_4348;
BgL_auxz00_4348 = 
bgl_list_length(
CDR(BgL_cdrzd2408zd2_420)); 
return 
BINT(BgL_auxz00_4348);}  else 
{ /* ./DotNet/as.scm 151 */
return BFALSE;} }  else 
{ /* ./DotNet/as.scm 151 */
return BFALSE;} }  else 
{ /* ./DotNet/as.scm 151 */
return BFALSE;} }  else 
{ /* ./DotNet/as.scm 151 */
return BFALSE;} } } 
}



/* nbret */
obj_t BGl_nbretz00zzdotnet_asz00(obj_t BgL_declsz00_37, obj_t BgL_namez00_38)
{ AN_OBJECT;
{ /* ./DotNet/as.scm 155 */
{ /* ./DotNet/as.scm 156 */
obj_t BgL_ezd2417zd2_433;
BgL_ezd2417zd2_433 = 
BGl_decl_methodz00zzdotnet_asz00(BgL_namez00_38, BgL_declsz00_37); 
if(
PAIRP(BgL_ezd2417zd2_433))
{ /* ./DotNet/as.scm 156 */
obj_t BgL_cdrzd2429zd2_435;
BgL_cdrzd2429zd2_435 = 
CDR(BgL_ezd2417zd2_433); 
if(
PAIRP(BgL_cdrzd2429zd2_435))
{ /* ./DotNet/as.scm 156 */
obj_t BgL_cdrzd2436zd2_437;
BgL_cdrzd2436zd2_437 = 
CDR(BgL_cdrzd2429zd2_435); 
if(
PAIRP(BgL_cdrzd2436zd2_437))
{ /* ./DotNet/as.scm 156 */
bool_t BgL_testz00_4361;
{ /* ./DotNet/as.scm 156 */
obj_t BgL_auxz00_4362;
BgL_auxz00_4362 = 
CDR(BgL_cdrzd2436zd2_437); 
BgL_testz00_4361 = 
PAIRP(BgL_auxz00_4362); } 
if(BgL_testz00_4361)
{ /* ./DotNet/as.scm 156 */
bool_t BgL_testz00_4365;
{ /* ./DotNet/as.scm 156 */
obj_t BgL_auxz00_4368;obj_t BgL_auxz00_4366;
BgL_auxz00_4368 = 
CNST_TABLE_REF(((long)0)); 
BgL_auxz00_4366 = 
CAR(BgL_cdrzd2436zd2_437); 
BgL_testz00_4365 = 
(BgL_auxz00_4366==BgL_auxz00_4368); } 
if(BgL_testz00_4365)
{ /* ./DotNet/as.scm 156 */
return 
BINT(((long)0));}  else 
{ /* ./DotNet/as.scm 156 */
return 
BINT(((long)1));} }  else 
{ /* ./DotNet/as.scm 156 */
return BFALSE;} }  else 
{ /* ./DotNet/as.scm 156 */
return BFALSE;} }  else 
{ /* ./DotNet/as.scm 156 */
return BFALSE;} }  else 
{ /* ./DotNet/as.scm 156 */
return BFALSE;} } } 
}



/* mproto1 */
obj_t BGl_mproto1z00zzdotnet_asz00(obj_t BgL_outz00_39, obj_t BgL_declsz00_40, obj_t BgL_namez00_41)
{ AN_OBJECT;
{ /* ./DotNet/as.scm 162 */
{ 
obj_t BgL_ownerz00_447;obj_t BgL_attrz00_448;obj_t BgL_typez00_449;obj_t BgL_namez00_450;obj_t BgL_targsz00_451;
{ /* ./DotNet/as.scm 163 */
obj_t BgL_ezd2451zd2_453;
BgL_ezd2451zd2_453 = 
BGl_decl_methodz00zzdotnet_asz00(BgL_namez00_41, BgL_declsz00_40); 
{ /* ./DotNet/as.scm 163 */
bool_t BgL_test1867z00_454;
BgL_test1867z00_454 = 
PAIRP(BgL_ezd2451zd2_453); 
if(BgL_test1867z00_454)
{ /* ./DotNet/as.scm 163 */
obj_t BgL_cdrzd2463zd2_455;
BgL_cdrzd2463zd2_455 = 
CDR(BgL_ezd2451zd2_453); 
{ /* ./DotNet/as.scm 163 */
bool_t BgL_test1868z00_456;
BgL_test1868z00_456 = 
PAIRP(BgL_cdrzd2463zd2_455); 
if(BgL_test1868z00_456)
{ /* ./DotNet/as.scm 163 */
obj_t BgL_cdrzd2470zd2_457;
BgL_cdrzd2470zd2_457 = 
CDR(BgL_cdrzd2463zd2_455); 
{ /* ./DotNet/as.scm 163 */
bool_t BgL_test1869z00_458;
BgL_test1869z00_458 = 
PAIRP(BgL_cdrzd2470zd2_457); 
if(BgL_test1869z00_458)
{ /* ./DotNet/as.scm 163 */
obj_t BgL_cdrzd2476zd2_459;
BgL_cdrzd2476zd2_459 = 
CDR(BgL_cdrzd2470zd2_457); 
{ /* ./DotNet/as.scm 163 */
bool_t BgL_test1870z00_460;
BgL_test1870z00_460 = 
PAIRP(BgL_cdrzd2476zd2_459); 
if(BgL_test1870z00_460)
{ /* ./DotNet/as.scm 163 */
obj_t BgL_arg1872z00_461;obj_t BgL_arg1873z00_462;obj_t BgL_arg1874z00_463;obj_t BgL_arg1875z00_464;obj_t BgL_arg1876z00_465;
BgL_arg1872z00_461 = 
CAR(BgL_ezd2451zd2_453); 
BgL_arg1873z00_462 = 
CAR(BgL_cdrzd2463zd2_455); 
BgL_arg1874z00_463 = 
CAR(BgL_cdrzd2470zd2_457); 
BgL_arg1875z00_464 = 
CAR(BgL_cdrzd2476zd2_459); 
BgL_arg1876z00_465 = 
CDR(BgL_cdrzd2476zd2_459); 
BgL_ownerz00_447 = BgL_arg1872z00_461; 
BgL_attrz00_448 = BgL_arg1873z00_462; 
BgL_typez00_449 = BgL_arg1874z00_463; 
BgL_namez00_450 = BgL_arg1875z00_464; 
BgL_targsz00_451 = BgL_arg1876z00_465; 
{ /* ./DotNet/as.scm 165 */
obj_t BgL_arg1893z00_467;obj_t BgL_arg1895z00_469;
BgL_arg1893z00_467 = 
BGl_typenamez00zzdotnet_asz00(BgL_declsz00_40, BgL_typez00_449); 
BgL_arg1895z00_469 = 
BGl_mnamez00zzdotnet_asz00(BgL_namez00_450); 
{ /* ./DotNet/as.scm 165 */
obj_t BgL_list1898z00_471;
{ /* ./DotNet/as.scm 165 */
obj_t BgL_arg1902z00_472;
{ /* ./DotNet/as.scm 165 */
obj_t BgL_arg1905z00_473;
{ /* ./DotNet/as.scm 165 */
obj_t BgL_arg1908z00_474;
{ /* ./DotNet/as.scm 165 */
obj_t BgL_arg1911z00_475;
BgL_arg1911z00_475 = 
MAKE_PAIR(BGl_string6139z00zzdotnet_asz00, BNIL); 
BgL_arg1908z00_474 = 
MAKE_PAIR(BgL_arg1895z00_469, BgL_arg1911z00_475); } 
BgL_arg1905z00_473 = 
MAKE_PAIR(BGl_string6118z00zzdotnet_asz00, BgL_arg1908z00_474); } 
BgL_arg1902z00_472 = 
MAKE_PAIR(BgL_arg1893z00_467, BgL_arg1905z00_473); } 
BgL_list1898z00_471 = 
MAKE_PAIR(BGl_string6118z00zzdotnet_asz00, BgL_arg1902z00_472); } 
BGl_za2displayza2zzdotnet_asz00(BgL_outz00_39, BgL_list1898z00_471); } } 
{ /* ./DotNet/as.scm 166 */
bool_t BgL_test1916z00_476;
BgL_test1916z00_476 = 
NULLP(BgL_targsz00_451); 
if(BgL_test1916z00_476)
{ /* ./DotNet/as.scm 166 */((bool_t)0); }  else 
{ /* ./DotNet/as.scm 166 */
{ /* ./DotNet/as.scm 167 */
obj_t BgL_arg1919z00_477;
{ /* ./DotNet/as.scm 167 */
obj_t BgL_arg1922z00_478;
BgL_arg1922z00_478 = 
CAR(BgL_targsz00_451); 
BgL_arg1919z00_477 = 
BGl_typenamez00zzdotnet_asz00(BgL_declsz00_40, BgL_arg1922z00_478); } 
BGl_displayzd22zd2zz__r4_output_6_10_3z00(BgL_arg1919z00_477, BgL_outz00_39); } 
{ 
obj_t BgL_l1021z00_479;
{ /* ./DotNet/as.scm 170 */
obj_t BgL_arg1928z00_481;
BgL_arg1928z00_481 = 
CDR(BgL_targsz00_451); 
BgL_l1021z00_479 = BgL_arg1928z00_481; 
BgL_forzd2each1022zd2_480:
{ /* ./DotNet/as.scm 168 */
bool_t BgL_test1931z00_482;
BgL_test1931z00_482 = 
PAIRP(BgL_l1021z00_479); 
if(BgL_test1931z00_482)
{ /* ./DotNet/as.scm 168 */
{ /* ./DotNet/as.scm 169 */
obj_t BgL_tz00_483;
BgL_tz00_483 = 
CAR(BgL_l1021z00_479); 
{ /* ./DotNet/as.scm 169 */
obj_t BgL_arg1934z00_485;
BgL_arg1934z00_485 = 
BGl_typenamez00zzdotnet_asz00(BgL_declsz00_40, BgL_tz00_483); 
{ /* ./DotNet/as.scm 169 */
obj_t BgL_list1936z00_486;
{ /* ./DotNet/as.scm 169 */
obj_t BgL_arg1938z00_487;
BgL_arg1938z00_487 = 
MAKE_PAIR(BgL_arg1934z00_485, BNIL); 
BgL_list1936z00_486 = 
MAKE_PAIR(BGl_string6140z00zzdotnet_asz00, BgL_arg1938z00_487); } 
BGl_za2displayza2zzdotnet_asz00(BgL_outz00_39, BgL_list1936z00_486); } } } 
{ /* ./DotNet/as.scm 168 */
obj_t BgL_arg1945z00_488;
BgL_arg1945z00_488 = 
CDR(BgL_l1021z00_479); 
{ 
obj_t BgL_l1021z00_4412;
BgL_l1021z00_4412 = BgL_arg1945z00_488; 
BgL_l1021z00_479 = BgL_l1021z00_4412; 
goto BgL_forzd2each1022zd2_480;} } }  else 
{ /* ./DotNet/as.scm 168 */((bool_t)1); } } } } } } 
return 
display_string(BGl_string6141z00zzdotnet_asz00, BgL_outz00_39);}  else 
{ /* ./DotNet/as.scm 163 */
return BFALSE;} } }  else 
{ /* ./DotNet/as.scm 163 */
return BFALSE;} } }  else 
{ /* ./DotNet/as.scm 163 */
return BFALSE;} } }  else 
{ /* ./DotNet/as.scm 163 */
return BFALSE;} } } } } 
}



/* mproto2 */
obj_t BGl_mproto2z00zzdotnet_asz00(obj_t BgL_outz00_42, obj_t BgL_declsz00_43, obj_t BgL_namez00_44)
{ AN_OBJECT;
{ /* ./DotNet/as.scm 173 */
{ 
obj_t BgL_ownerz00_489;obj_t BgL_attrz00_490;obj_t BgL_typez00_491;obj_t BgL_namez00_492;obj_t BgL_targsz00_493;
{ /* ./DotNet/as.scm 174 */
obj_t BgL_ezd2485zd2_495;
BgL_ezd2485zd2_495 = 
BGl_decl_methodz00zzdotnet_asz00(BgL_namez00_44, BgL_declsz00_43); 
{ /* ./DotNet/as.scm 174 */
bool_t BgL_test1951z00_496;
BgL_test1951z00_496 = 
PAIRP(BgL_ezd2485zd2_495); 
if(BgL_test1951z00_496)
{ /* ./DotNet/as.scm 174 */
obj_t BgL_cdrzd2497zd2_497;
BgL_cdrzd2497zd2_497 = 
CDR(BgL_ezd2485zd2_495); 
{ /* ./DotNet/as.scm 174 */
bool_t BgL_test1952z00_498;
BgL_test1952z00_498 = 
PAIRP(BgL_cdrzd2497zd2_497); 
if(BgL_test1952z00_498)
{ /* ./DotNet/as.scm 174 */
obj_t BgL_cdrzd2504zd2_499;
BgL_cdrzd2504zd2_499 = 
CDR(BgL_cdrzd2497zd2_497); 
{ /* ./DotNet/as.scm 174 */
bool_t BgL_test1953z00_500;
BgL_test1953z00_500 = 
PAIRP(BgL_cdrzd2504zd2_499); 
if(BgL_test1953z00_500)
{ /* ./DotNet/as.scm 174 */
obj_t BgL_cdrzd2510zd2_501;
BgL_cdrzd2510zd2_501 = 
CDR(BgL_cdrzd2504zd2_499); 
{ /* ./DotNet/as.scm 174 */
bool_t BgL_test1954z00_502;
BgL_test1954z00_502 = 
PAIRP(BgL_cdrzd2510zd2_501); 
if(BgL_test1954z00_502)
{ /* ./DotNet/as.scm 174 */
obj_t BgL_arg1956z00_503;obj_t BgL_arg1958z00_504;obj_t BgL_arg1960z00_505;obj_t BgL_arg1962z00_506;obj_t BgL_arg1963z00_507;
BgL_arg1956z00_503 = 
CAR(BgL_ezd2485zd2_495); 
BgL_arg1958z00_504 = 
CAR(BgL_cdrzd2497zd2_497); 
BgL_arg1960z00_505 = 
CAR(BgL_cdrzd2504zd2_499); 
BgL_arg1962z00_506 = 
CAR(BgL_cdrzd2510zd2_501); 
BgL_arg1963z00_507 = 
CDR(BgL_cdrzd2510zd2_501); 
BgL_ownerz00_489 = BgL_arg1956z00_503; 
BgL_attrz00_490 = BgL_arg1958z00_504; 
BgL_typez00_491 = BgL_arg1960z00_505; 
BgL_namez00_492 = BgL_arg1962z00_506; 
BgL_targsz00_493 = BgL_arg1963z00_507; 
{ /* ./DotNet/as.scm 176 */
obj_t BgL_arg1982z00_509;obj_t BgL_arg1984z00_511;obj_t BgL_arg1988z00_513;
BgL_arg1982z00_509 = 
BGl_typenamez00zzdotnet_asz00(BgL_declsz00_43, BgL_typez00_491); 
BgL_arg1984z00_511 = 
BGl_classnamez00zzdotnet_asz00(BgL_declsz00_43, BgL_ownerz00_489); 
BgL_arg1988z00_513 = 
BGl_mnamez00zzdotnet_asz00(BgL_namez00_492); 
{ /* ./DotNet/as.scm 176 */
obj_t BgL_list1991z00_515;
{ /* ./DotNet/as.scm 176 */
obj_t BgL_arg1993z00_516;
{ /* ./DotNet/as.scm 176 */
obj_t BgL_arg1996z00_517;
{ /* ./DotNet/as.scm 176 */
obj_t BgL_arg2000z00_518;
{ /* ./DotNet/as.scm 176 */
obj_t BgL_arg2005z00_519;
{ /* ./DotNet/as.scm 176 */
obj_t BgL_arg2008z00_520;
{ /* ./DotNet/as.scm 176 */
obj_t BgL_arg2011z00_521;
BgL_arg2011z00_521 = 
MAKE_PAIR(BGl_string6139z00zzdotnet_asz00, BNIL); 
BgL_arg2008z00_520 = 
MAKE_PAIR(BgL_arg1988z00_513, BgL_arg2011z00_521); } 
BgL_arg2005z00_519 = 
MAKE_PAIR(BGl_string6142z00zzdotnet_asz00, BgL_arg2008z00_520); } 
BgL_arg2000z00_518 = 
MAKE_PAIR(BgL_arg1984z00_511, BgL_arg2005z00_519); } 
BgL_arg1996z00_517 = 
MAKE_PAIR(BGl_string6119z00zzdotnet_asz00, BgL_arg2000z00_518); } 
BgL_arg1993z00_516 = 
MAKE_PAIR(BgL_arg1982z00_509, BgL_arg1996z00_517); } 
BgL_list1991z00_515 = 
MAKE_PAIR(BGl_string6118z00zzdotnet_asz00, BgL_arg1993z00_516); } 
BGl_za2displayza2zzdotnet_asz00(BgL_outz00_42, BgL_list1991z00_515); } } 
{ /* ./DotNet/as.scm 179 */
bool_t BgL_test2017z00_522;
BgL_test2017z00_522 = 
NULLP(BgL_targsz00_493); 
if(BgL_test2017z00_522)
{ /* ./DotNet/as.scm 179 */((bool_t)0); }  else 
{ /* ./DotNet/as.scm 179 */
{ /* ./DotNet/as.scm 180 */
obj_t BgL_arg2019z00_523;
{ /* ./DotNet/as.scm 180 */
obj_t BgL_arg2022z00_524;
BgL_arg2022z00_524 = 
CAR(BgL_targsz00_493); 
BgL_arg2019z00_523 = 
BGl_typenamez00zzdotnet_asz00(BgL_declsz00_43, BgL_arg2022z00_524); } 
BGl_displayzd22zd2zz__r4_output_6_10_3z00(BgL_arg2019z00_523, BgL_outz00_42); } 
{ 
obj_t BgL_l1023z00_525;
{ /* ./DotNet/as.scm 183 */
obj_t BgL_arg2026z00_527;
BgL_arg2026z00_527 = 
CDR(BgL_targsz00_493); 
BgL_l1023z00_525 = BgL_arg2026z00_527; 
BgL_forzd2each1024zd2_526:
{ /* ./DotNet/as.scm 181 */
bool_t BgL_test2029z00_528;
BgL_test2029z00_528 = 
PAIRP(BgL_l1023z00_525); 
if(BgL_test2029z00_528)
{ /* ./DotNet/as.scm 181 */
{ /* ./DotNet/as.scm 182 */
obj_t BgL_tz00_529;
BgL_tz00_529 = 
CAR(BgL_l1023z00_525); 
{ /* ./DotNet/as.scm 182 */
obj_t BgL_arg2033z00_531;
BgL_arg2033z00_531 = 
BGl_typenamez00zzdotnet_asz00(BgL_declsz00_43, BgL_tz00_529); 
{ /* ./DotNet/as.scm 182 */
obj_t BgL_list2035z00_532;
{ /* ./DotNet/as.scm 182 */
obj_t BgL_arg2037z00_533;
BgL_arg2037z00_533 = 
MAKE_PAIR(BgL_arg2033z00_531, BNIL); 
BgL_list2035z00_532 = 
MAKE_PAIR(BGl_string6140z00zzdotnet_asz00, BgL_arg2037z00_533); } 
BGl_za2displayza2zzdotnet_asz00(BgL_outz00_42, BgL_list2035z00_532); } } } 
{ /* ./DotNet/as.scm 181 */
obj_t BgL_arg2043z00_534;
BgL_arg2043z00_534 = 
CDR(BgL_l1023z00_525); 
{ 
obj_t BgL_l1023z00_4456;
BgL_l1023z00_4456 = BgL_arg2043z00_534; 
BgL_l1023z00_525 = BgL_l1023z00_4456; 
goto BgL_forzd2each1024zd2_526;} } }  else 
{ /* ./DotNet/as.scm 181 */((bool_t)1); } } } } } } 
return 
display_string(BGl_string6141z00zzdotnet_asz00, BgL_outz00_42);}  else 
{ /* ./DotNet/as.scm 174 */
return BFALSE;} } }  else 
{ /* ./DotNet/as.scm 174 */
return BFALSE;} } }  else 
{ /* ./DotNet/as.scm 174 */
return BFALSE;} } }  else 
{ /* ./DotNet/as.scm 174 */
return BFALSE;} } } } } 
}



/* method */
obj_t BGl_methodz00zzdotnet_asz00(obj_t BgL_outz00_45, obj_t BgL_declsz00_46, obj_t BgL_mz00_47)
{ AN_OBJECT;
{ /* ./DotNet/as.scm 189 */
BGl_peepz00zzdotnet_asz00(BgL_mz00_47); 
{ 
obj_t BgL_gnamez00_535;obj_t BgL_paramsz00_536;obj_t BgL_localsz00_537;obj_t BgL_codez00_538;
{ /* ./DotNet/as.scm 191 */
bool_t BgL_test2050z00_542;
BgL_test2050z00_542 = 
PAIRP(BgL_mz00_47); 
if(BgL_test2050z00_542)
{ /* ./DotNet/as.scm 191 */
obj_t BgL_cdrzd2530zd2_543;
BgL_cdrzd2530zd2_543 = 
CDR(BgL_mz00_47); 
{ /* ./DotNet/as.scm 191 */
bool_t BgL_test2051z00_544;
{ /* ./DotNet/as.scm 191 */
obj_t BgL_auxz00_4464;obj_t BgL_auxz00_4462;
BgL_auxz00_4464 = 
CNST_TABLE_REF(((long)12)); 
BgL_auxz00_4462 = 
CAR(BgL_mz00_47); 
BgL_test2051z00_544 = 
(BgL_auxz00_4462==BgL_auxz00_4464); } 
if(BgL_test2051z00_544)
{ /* ./DotNet/as.scm 191 */
bool_t BgL_test2053z00_545;
BgL_test2053z00_545 = 
PAIRP(BgL_cdrzd2530zd2_543); 
if(BgL_test2053z00_545)
{ /* ./DotNet/as.scm 191 */
obj_t BgL_cdrzd2536zd2_546;
BgL_cdrzd2536zd2_546 = 
CDR(BgL_cdrzd2530zd2_543); 
{ /* ./DotNet/as.scm 191 */
bool_t BgL_test2054z00_547;
BgL_test2054z00_547 = 
PAIRP(BgL_cdrzd2536zd2_546); 
if(BgL_test2054z00_547)
{ /* ./DotNet/as.scm 191 */
obj_t BgL_cdrzd2542zd2_548;
BgL_cdrzd2542zd2_548 = 
CDR(BgL_cdrzd2536zd2_546); 
{ /* ./DotNet/as.scm 191 */
bool_t BgL_test2055z00_549;
BgL_test2055z00_549 = 
PAIRP(BgL_cdrzd2542zd2_548); 
if(BgL_test2055z00_549)
{ /* ./DotNet/as.scm 191 */
obj_t BgL_arg2057z00_550;obj_t BgL_arg2058z00_551;obj_t BgL_arg2059z00_552;obj_t BgL_arg2061z00_553;
BgL_arg2057z00_550 = 
CAR(BgL_cdrzd2530zd2_543); 
BgL_arg2058z00_551 = 
CAR(BgL_cdrzd2536zd2_546); 
BgL_arg2059z00_552 = 
CAR(BgL_cdrzd2542zd2_548); 
BgL_arg2061z00_553 = 
CDR(BgL_cdrzd2542zd2_548); 
BgL_gnamez00_535 = BgL_arg2057z00_550; 
BgL_paramsz00_536 = BgL_arg2058z00_551; 
BgL_localsz00_537 = BgL_arg2059z00_552; 
BgL_codez00_538 = BgL_arg2061z00_553; 
display_string(BGl_string6143z00zzdotnet_asz00, BgL_outz00_45); 
BGl_mattrz00zzdotnet_asz00(BgL_outz00_45, BgL_declsz00_46, BgL_gnamez00_535); 
BGl_mproto1z00zzdotnet_asz00(BgL_outz00_45, BgL_declsz00_46, BgL_gnamez00_535); 
display_string(BGl_string6144z00zzdotnet_asz00, BgL_outz00_45); 
display_string(BGl_string6145z00zzdotnet_asz00, BgL_outz00_45); 
WRITE_CHAR(((unsigned char)'\n'), BgL_outz00_45); 
{ /* ./DotNet/as.scm 195 */
obj_t BgL_ezd2551zd2_563;
BgL_ezd2551zd2_563 = 
BGl_decl_methodz00zzdotnet_asz00(BgL_gnamez00_535, BgL_declsz00_46); 
{ /* ./DotNet/as.scm 195 */
bool_t BgL_test2087z00_564;
BgL_test2087z00_564 = 
PAIRP(BgL_ezd2551zd2_563); 
if(BgL_test2087z00_564)
{ /* ./DotNet/as.scm 195 */
obj_t BgL_cdrzd2563zd2_565;
BgL_cdrzd2563zd2_565 = 
CDR(BgL_ezd2551zd2_563); 
{ /* ./DotNet/as.scm 195 */
bool_t BgL_test2088z00_566;
BgL_test2088z00_566 = 
PAIRP(BgL_cdrzd2563zd2_565); 
if(BgL_test2088z00_566)
{ /* ./DotNet/as.scm 195 */
obj_t BgL_cdrzd2570zd2_567;
BgL_cdrzd2570zd2_567 = 
CDR(BgL_cdrzd2563zd2_565); 
{ /* ./DotNet/as.scm 195 */
bool_t BgL_test2089z00_568;
BgL_test2089z00_568 = 
PAIRP(BgL_cdrzd2570zd2_567); 
if(BgL_test2089z00_568)
{ /* ./DotNet/as.scm 195 */
obj_t BgL_cdrzd2576zd2_569;
BgL_cdrzd2576zd2_569 = 
CDR(BgL_cdrzd2570zd2_567); 
{ /* ./DotNet/as.scm 195 */
bool_t BgL_test2090z00_570;
BgL_test2090z00_570 = 
PAIRP(BgL_cdrzd2576zd2_569); 
if(BgL_test2090z00_570)
{ /* ./DotNet/as.scm 195 */
obj_t BgL_arg2095z00_574;
BgL_arg2095z00_574 = 
CAR(BgL_cdrzd2576zd2_569); 
{ /* ./DotNet/as.scm 195 */
bool_t BgL_test2111z00_2687;
BgL_test2111z00_2687 = 
bigloo_strcmp(BgL_arg2095z00_574, BGl_string6146z00zzdotnet_asz00); 
if(BgL_test2111z00_2687)
{ /* ./DotNet/as.scm 195 */
display_string(BGl_string6147z00zzdotnet_asz00, BgL_outz00_45); 
WRITE_CHAR(((unsigned char)'\n'), BgL_outz00_45); }  else 
{ /* ./DotNet/as.scm 195 */BFALSE; } } }  else 
{ /* ./DotNet/as.scm 195 */BFALSE; } } }  else 
{ /* ./DotNet/as.scm 195 */BFALSE; } } }  else 
{ /* ./DotNet/as.scm 195 */BFALSE; } } }  else 
{ /* ./DotNet/as.scm 195 */BFALSE; } } } 
BGl_za2newza2z00zzdotnet_asz00 = BNIL; 
BGl_za2lpcza2z00zzdotnet_asz00 = ((long)0); 
{ /* ./DotNet/as.scm 201 */
bool_t BgL_test2115z00_578;
BgL_test2115z00_578 = 
BGl_hasswz00zzdotnet_asz00(BgL_codez00_538); 
if(BgL_test2115z00_578)
{ /* ./DotNet/as.scm 202 */
obj_t BgL_auxz00_4505;
BgL_auxz00_4505 = 
CNST_TABLE_REF(((long)18)); 
BgL_localsz00_537 = 
MAKE_PAIR(BgL_auxz00_4505, BgL_localsz00_537); }  else 
{ /* ./DotNet/as.scm 201 */BFALSE; } } 
BGl_outlocalsz00zzdotnet_asz00(BgL_outz00_45, BgL_declsz00_46, BgL_localsz00_537); 
display_string(BGl_string6148z00zzdotnet_asz00, BgL_outz00_45); 
{ /* ./DotNet/as.scm 204 */
long BgL_arg2122z00_580;
BgL_arg2122z00_580 = 
BGl_maxstackz00zzdotnet_asz00(BgL_outz00_45, BgL_declsz00_46, BgL_codez00_538); 
BGl_displayzd22zd2zz__r4_output_6_10_3z00(
BINT(BgL_arg2122z00_580), BgL_outz00_45); } 
WRITE_CHAR(((unsigned char)'\n'), BgL_outz00_45); 
{ 
obj_t BgL_l1028z00_581;
BgL_l1028z00_581 = BgL_codez00_538; 
BgL_forzd2each1029zd2_582:
{ /* ./DotNet/as.scm 205 */
bool_t BgL_test2127z00_583;
BgL_test2127z00_583 = 
PAIRP(BgL_l1028z00_581); 
if(BgL_test2127z00_583)
{ /* ./DotNet/as.scm 205 */
{ /* ./DotNet/as.scm 205 */
obj_t BgL_iz00_584;
BgL_iz00_584 = 
CAR(BgL_l1028z00_581); 
BGl_instrz00zzdotnet_asz00(BgL_outz00_45, BgL_declsz00_46, BgL_paramsz00_536, BgL_localsz00_537, BgL_iz00_584); } 
{ /* ./DotNet/as.scm 205 */
obj_t BgL_arg2132z00_585;
BgL_arg2132z00_585 = 
CDR(BgL_l1028z00_581); 
{ 
obj_t BgL_l1028z00_4519;
BgL_l1028z00_4519 = BgL_arg2132z00_585; 
BgL_l1028z00_581 = BgL_l1028z00_4519; 
goto BgL_forzd2each1029zd2_582;} } }  else 
{ /* ./DotNet/as.scm 205 */((bool_t)1); } } } 
display_string(BGl_string6112z00zzdotnet_asz00, BgL_outz00_45); 
return 
WRITE_CHAR(((unsigned char)'\n'), BgL_outz00_45);}  else 
{ /* ./DotNet/as.scm 191 */
BgL_tagzd2519zd2_540:
FAILURE(BGl_string6113z00zzdotnet_asz00,BGl_string6149z00zzdotnet_asz00,BgL_mz00_47);} } }  else 
{ /* ./DotNet/as.scm 191 */
goto BgL_tagzd2519zd2_540;} } }  else 
{ /* ./DotNet/as.scm 191 */
goto BgL_tagzd2519zd2_540;} }  else 
{ /* ./DotNet/as.scm 191 */
goto BgL_tagzd2519zd2_540;} } }  else 
{ /* ./DotNet/as.scm 191 */
goto BgL_tagzd2519zd2_540;} } } } 
}



/* hassw */
bool_t BGl_hasswz00zzdotnet_asz00(obj_t BgL_codez00_48)
{ AN_OBJECT;
{ /* ./DotNet/as.scm 209 */
BGl_hasswz00zzdotnet_asz00:
if(
NULLP(BgL_codez00_48))
{ /* ./DotNet/as.scm 210 */
return ((bool_t)0);}  else 
{ /* ./DotNet/as.scm 211 */
bool_t BgL_testz00_4525;
{ /* ./DotNet/as.scm 211 */
obj_t BgL_auxz00_4526;
BgL_auxz00_4526 = 
CAR(BgL_codez00_48); 
BgL_testz00_4525 = 
PAIRP(BgL_auxz00_4526); } 
if(BgL_testz00_4525)
{ /* ./DotNet/as.scm 213 */
bool_t BgL_testz00_4529;
{ /* ./DotNet/as.scm 213 */
obj_t BgL_auxz00_4534;obj_t BgL_auxz00_4530;
BgL_auxz00_4534 = 
CNST_TABLE_REF(((long)19)); 
{ /* ./DotNet/as.scm 213 */
obj_t BgL_auxz00_4531;
BgL_auxz00_4531 = 
CAR(BgL_codez00_48); 
BgL_auxz00_4530 = 
CAR(BgL_auxz00_4531); } 
BgL_testz00_4529 = 
(BgL_auxz00_4530==BgL_auxz00_4534); } 
if(BgL_testz00_4529)
{ /* ./DotNet/as.scm 213 */
return ((bool_t)1);}  else 
{ /* ./DotNet/as.scm 213 */
{ 
obj_t BgL_codez00_4537;
BgL_codez00_4537 = 
CDR(BgL_codez00_48); 
BgL_codez00_48 = BgL_codez00_4537; 
goto BGl_hasswz00zzdotnet_asz00;} } }  else 
{ /* ./DotNet/as.scm 211 */
{ 
obj_t BgL_codez00_4539;
BgL_codez00_4539 = 
CDR(BgL_codez00_48); 
BgL_codez00_48 = BgL_codez00_4539; 
goto BGl_hasswz00zzdotnet_asz00;} } } } 
}



/* outlocals */
obj_t BGl_outlocalsz00zzdotnet_asz00(obj_t BgL_outz00_49, obj_t BgL_declsz00_50, obj_t BgL_localsz00_51)
{ AN_OBJECT;
{ /* ./DotNet/as.scm 217 */
{ /* ./DotNet/as.scm 218 */
bool_t BgL_test2160z00_595;
BgL_test2160z00_595 = 
NULLP(BgL_localsz00_51); 
if(BgL_test2160z00_595)
{ /* ./DotNet/as.scm 218 */
return BNIL;}  else 
{ /* ./DotNet/as.scm 218 */
{ /* ./DotNet/as.scm 221 */
obj_t BgL_list2162z00_596;
BgL_list2162z00_596 = 
MAKE_PAIR(BGl_string6150z00zzdotnet_asz00, BNIL); 
BGl_za2displayza2zzdotnet_asz00(BgL_outz00_49, BgL_list2162z00_596); } 
{ /* ./DotNet/as.scm 222 */
obj_t BgL_arg2165z00_597;
{ /* ./DotNet/as.scm 222 */
obj_t BgL_arg2170z00_599;
{ /* ./DotNet/as.scm 222 */
obj_t BgL_auxz00_4545;
BgL_auxz00_4545 = 
CAR(BgL_localsz00_51); 
BgL_arg2170z00_599 = 
CDR(BgL_auxz00_4545); } 
BgL_arg2165z00_597 = 
BGl_typenamez00zzdotnet_asz00(BgL_declsz00_50, BgL_arg2170z00_599); } 
{ /* ./DotNet/as.scm 222 */
obj_t BgL_list2167z00_598;
BgL_list2167z00_598 = 
MAKE_PAIR(BgL_arg2165z00_597, BNIL); 
BGl_za2displayza2zzdotnet_asz00(BgL_outz00_49, BgL_list2167z00_598); } } 
{ 
obj_t BgL_l1031z00_600;
{ /* ./DotNet/as.scm 226 */
obj_t BgL_arg2174z00_602;
BgL_arg2174z00_602 = 
CDR(BgL_localsz00_51); 
BgL_l1031z00_600 = BgL_arg2174z00_602; 
BgL_forzd2each1032zd2_601:
{ /* ./DotNet/as.scm 223 */
bool_t BgL_test2177z00_603;
BgL_test2177z00_603 = 
PAIRP(BgL_l1031z00_600); 
if(BgL_test2177z00_603)
{ /* ./DotNet/as.scm 223 */
{ /* ./DotNet/as.scm 225 */
obj_t BgL_sz00_604;
BgL_sz00_604 = 
CAR(BgL_l1031z00_600); 
{ /* ./DotNet/as.scm 225 */
obj_t BgL_arg2180z00_606;
{ /* ./DotNet/as.scm 225 */
obj_t BgL_arg2188z00_609;
BgL_arg2188z00_609 = 
CDR(BgL_sz00_604); 
BgL_arg2180z00_606 = 
BGl_typenamez00zzdotnet_asz00(BgL_declsz00_50, BgL_arg2188z00_609); } 
{ /* ./DotNet/as.scm 225 */
obj_t BgL_list2182z00_607;
{ /* ./DotNet/as.scm 225 */
obj_t BgL_arg2184z00_608;
BgL_arg2184z00_608 = 
MAKE_PAIR(BgL_arg2180z00_606, BNIL); 
BgL_list2182z00_607 = 
MAKE_PAIR(BGl_string6140z00zzdotnet_asz00, BgL_arg2184z00_608); } 
BGl_za2displayza2zzdotnet_asz00(BgL_outz00_49, BgL_list2182z00_607); } } } 
{ /* ./DotNet/as.scm 223 */
obj_t BgL_arg2193z00_610;
BgL_arg2193z00_610 = 
CDR(BgL_l1031z00_600); 
{ 
obj_t BgL_l1031z00_4561;
BgL_l1031z00_4561 = BgL_arg2193z00_610; 
BgL_l1031z00_600 = BgL_l1031z00_4561; 
goto BgL_forzd2each1032zd2_601;} } }  else 
{ /* ./DotNet/as.scm 223 */((bool_t)1); } } } } 
display_string(BGl_string6141z00zzdotnet_asz00, BgL_outz00_49); 
return 
WRITE_CHAR(((unsigned char)'\n'), BgL_outz00_49);} } } 
}



/* outfield */
obj_t BGl_outfieldz00zzdotnet_asz00(obj_t BgL_outz00_52, obj_t BgL_declsz00_53, obj_t BgL_fz00_54)
{ AN_OBJECT;
{ /* ./DotNet/as.scm 229 */
{ /* ./DotNet/as.scm 231 */
bool_t BgL_test2200z00_612;
{ /* ./DotNet/as.scm 231 */
obj_t BgL_auxz00_4564;
BgL_auxz00_4564 = 
CNST_TABLE_REF(((long)20)); 
BgL_test2200z00_612 = 
(BgL_fz00_54==BgL_auxz00_4564); } 
if(BgL_test2200z00_612)
{ /* ./DotNet/as.scm 231 */
display_string(BGl_string6151z00zzdotnet_asz00, BgL_outz00_52); 
return 
WRITE_CHAR(((unsigned char)'\n'), BgL_outz00_52);}  else 
{ /* ./DotNet/as.scm 233 */
bool_t BgL_test2203z00_614;
{ /* ./DotNet/as.scm 233 */
obj_t BgL_auxz00_4570;
BgL_auxz00_4570 = 
CNST_TABLE_REF(((long)21)); 
BgL_test2203z00_614 = 
(BgL_fz00_54==BgL_auxz00_4570); } 
if(BgL_test2203z00_614)
{ /* ./DotNet/as.scm 233 */
display_string(BGl_string6152z00zzdotnet_asz00, BgL_outz00_52); 
return 
WRITE_CHAR(((unsigned char)'\n'), BgL_outz00_52);}  else 
{ /* ./DotNet/as.scm 235 */
bool_t BgL_test2206z00_616;
{ /* ./DotNet/as.scm 235 */
obj_t BgL_auxz00_4576;
BgL_auxz00_4576 = 
CNST_TABLE_REF(((long)22)); 
BgL_test2206z00_616 = 
(BgL_fz00_54==BgL_auxz00_4576); } 
if(BgL_test2206z00_616)
{ /* ./DotNet/as.scm 235 */
display_string(BGl_string6153z00zzdotnet_asz00, BgL_outz00_52); 
return 
WRITE_CHAR(((unsigned char)'\n'), BgL_outz00_52);}  else 
{ /* ./DotNet/as.scm 237 */
bool_t BgL_test2209z00_618;
{ /* ./DotNet/as.scm 237 */
obj_t BgL_auxz00_4582;
BgL_auxz00_4582 = 
CNST_TABLE_REF(((long)23)); 
BgL_test2209z00_618 = 
(BgL_fz00_54==BgL_auxz00_4582); } 
if(BgL_test2209z00_618)
{ /* ./DotNet/as.scm 237 */
display_string(BGl_string6154z00zzdotnet_asz00, BgL_outz00_52); 
return 
WRITE_CHAR(((unsigned char)'\n'), BgL_outz00_52);}  else 
{ /* ./DotNet/as.scm 239 */
bool_t BgL_test2212z00_620;
{ /* ./DotNet/as.scm 239 */
obj_t BgL_auxz00_4588;
BgL_auxz00_4588 = 
CNST_TABLE_REF(((long)24)); 
BgL_test2212z00_620 = 
(BgL_fz00_54==BgL_auxz00_4588); } 
if(BgL_test2212z00_620)
{ /* ./DotNet/as.scm 239 */
display_string(BGl_string6155z00zzdotnet_asz00, BgL_outz00_52); 
return 
WRITE_CHAR(((unsigned char)'\n'), BgL_outz00_52);}  else 
{ /* ./DotNet/as.scm 241 */
bool_t BgL_test2215z00_622;
{ /* ./DotNet/as.scm 241 */
obj_t BgL_auxz00_4594;
BgL_auxz00_4594 = 
CNST_TABLE_REF(((long)25)); 
BgL_test2215z00_622 = 
(BgL_fz00_54==BgL_auxz00_4594); } 
if(BgL_test2215z00_622)
{ /* ./DotNet/as.scm 241 */
display_string(BGl_string6156z00zzdotnet_asz00, BgL_outz00_52); 
return 
WRITE_CHAR(((unsigned char)'\n'), BgL_outz00_52);}  else 
{ /* ./DotNet/as.scm 241 */
return 
BGl__outfieldz00zzdotnet_asz00(BgL_outz00_52, BgL_declsz00_53, BgL_fz00_54);} } } } } } } } 
}



/* _outfield */
obj_t BGl__outfieldz00zzdotnet_asz00(obj_t BgL_outz00_55, obj_t BgL_declsz00_56, obj_t BgL_fz00_57)
{ AN_OBJECT;
{ /* ./DotNet/as.scm 245 */
{ 
obj_t BgL_ownerz00_624;obj_t BgL_attrz00_625;obj_t BgL_typez00_626;obj_t BgL_namez00_627;
{ /* ./DotNet/as.scm 246 */
obj_t BgL_ezd2585zd2_629;
BgL_ezd2585zd2_629 = 
BGl_decl_fieldz00zzdotnet_asz00(BgL_fz00_57, BgL_declsz00_56); 
{ /* ./DotNet/as.scm 246 */
bool_t BgL_test2225z00_630;
BgL_test2225z00_630 = 
PAIRP(BgL_ezd2585zd2_629); 
if(BgL_test2225z00_630)
{ /* ./DotNet/as.scm 246 */
obj_t BgL_cdrzd2595zd2_631;
BgL_cdrzd2595zd2_631 = 
CDR(BgL_ezd2585zd2_629); 
{ /* ./DotNet/as.scm 246 */
bool_t BgL_test2226z00_632;
BgL_test2226z00_632 = 
PAIRP(BgL_cdrzd2595zd2_631); 
if(BgL_test2226z00_632)
{ /* ./DotNet/as.scm 246 */
obj_t BgL_cdrzd2601zd2_633;
BgL_cdrzd2601zd2_633 = 
CDR(BgL_cdrzd2595zd2_631); 
{ /* ./DotNet/as.scm 246 */
bool_t BgL_test2227z00_634;
BgL_test2227z00_634 = 
PAIRP(BgL_cdrzd2601zd2_633); 
if(BgL_test2227z00_634)
{ /* ./DotNet/as.scm 246 */
obj_t BgL_cdrzd2606zd2_635;
BgL_cdrzd2606zd2_635 = 
CDR(BgL_cdrzd2601zd2_633); 
{ /* ./DotNet/as.scm 246 */
bool_t BgL_test2228z00_636;
BgL_test2228z00_636 = 
PAIRP(BgL_cdrzd2606zd2_635); 
if(BgL_test2228z00_636)
{ /* ./DotNet/as.scm 246 */
bool_t BgL_test2229z00_637;
{ /* ./DotNet/as.scm 246 */
obj_t BgL_auxz00_4613;
BgL_auxz00_4613 = 
CDR(BgL_cdrzd2606zd2_635); 
BgL_test2229z00_637 = 
NULLP(BgL_auxz00_4613); } 
if(BgL_test2229z00_637)
{ /* ./DotNet/as.scm 246 */
obj_t BgL_arg2231z00_638;obj_t BgL_arg2232z00_639;obj_t BgL_arg2233z00_640;obj_t BgL_arg2234z00_641;
BgL_arg2231z00_638 = 
CAR(BgL_ezd2585zd2_629); 
BgL_arg2232z00_639 = 
CAR(BgL_cdrzd2595zd2_631); 
BgL_arg2233z00_640 = 
CAR(BgL_cdrzd2601zd2_633); 
BgL_arg2234z00_641 = 
CAR(BgL_cdrzd2606zd2_635); 
BgL_ownerz00_624 = BgL_arg2231z00_638; 
BgL_attrz00_625 = BgL_arg2232z00_639; 
BgL_typez00_626 = BgL_arg2233z00_640; 
BgL_namez00_627 = BgL_arg2234z00_641; 
{ /* ./DotNet/as.scm 248 */
obj_t BgL_arg2253z00_644;
BgL_arg2253z00_644 = 
BGl_typenamez00zzdotnet_asz00(BgL_declsz00_56, BgL_typez00_626); 
BGl_displayzd22zd2zz__r4_output_6_10_3z00(BgL_arg2253z00_644, BgL_outz00_55); } 
display_string(BGl_string6119z00zzdotnet_asz00, BgL_outz00_55); 
{ /* ./DotNet/as.scm 249 */
obj_t BgL_arg2258z00_645;
BgL_arg2258z00_645 = 
BGl_classnamez00zzdotnet_asz00(BgL_declsz00_56, BgL_ownerz00_624); 
BGl_displayzd22zd2zz__r4_output_6_10_3z00(BgL_arg2258z00_645, BgL_outz00_55); } 
display_string(BGl_string6157z00zzdotnet_asz00, BgL_outz00_55); 
BGl_displayzd22zd2zz__r4_output_6_10_3z00(BgL_namez00_627, BgL_outz00_55); 
display_string(BGl_string6109z00zzdotnet_asz00, BgL_outz00_55); 
return 
WRITE_CHAR(((unsigned char)'\n'), BgL_outz00_55);}  else 
{ /* ./DotNet/as.scm 246 */
return BFALSE;} }  else 
{ /* ./DotNet/as.scm 246 */
return BFALSE;} } }  else 
{ /* ./DotNet/as.scm 246 */
return BFALSE;} } }  else 
{ /* ./DotNet/as.scm 246 */
return BFALSE;} } }  else 
{ /* ./DotNet/as.scm 246 */
return BFALSE;} } } } } 
}



/* index */
long BGl_indexz00zzdotnet_asz00(obj_t BgL_xz00_58, obj_t BgL_lz00_59)
{ AN_OBJECT;
{ /* ./DotNet/as.scm 251 */
{ 
obj_t BgL_lz00_647;long BgL_rz00_648;
BgL_lz00_647 = BgL_lz00_59; 
BgL_rz00_648 = ((long)0); 
BgL_zc3anonymousza32266ze3z83_649:
if(
NULLP(BgL_lz00_647))
{ /* ./DotNet/as.scm 254 */
return ((long)-1);}  else 
{ /* ./DotNet/as.scm 255 */
bool_t BgL_testz00_4632;
{ /* ./DotNet/as.scm 255 */
obj_t BgL_auxz00_4635;obj_t BgL_auxz00_4633;
BgL_auxz00_4635 = 
CNST_TABLE_REF(((long)26)); 
BgL_auxz00_4633 = 
CAR(BgL_lz00_647); 
BgL_testz00_4632 = 
(BgL_auxz00_4633==BgL_auxz00_4635); } 
if(BgL_testz00_4632)
{ /* ./DotNet/as.scm 255 */
{ 
obj_t BgL_lz00_4638;
BgL_lz00_4638 = 
CDR(BgL_lz00_647); 
BgL_lz00_647 = BgL_lz00_4638; 
goto BgL_zc3anonymousza32266ze3z83_649;} }  else 
{ /* ./DotNet/as.scm 256 */
bool_t BgL_testz00_4640;
{ /* ./DotNet/as.scm 256 */
obj_t BgL_auxz00_4641;
BgL_auxz00_4641 = 
CAR(BgL_lz00_647); 
BgL_testz00_4640 = 
(BgL_auxz00_4641==BgL_xz00_58); } 
if(BgL_testz00_4640)
{ /* ./DotNet/as.scm 256 */
return BgL_rz00_648;}  else 
{ /* ./DotNet/as.scm 257 */
bool_t BgL_testz00_4644;
{ /* ./DotNet/as.scm 257 */
bool_t BgL_testz00_4645;
{ /* ./DotNet/as.scm 257 */
obj_t BgL_auxz00_4646;
BgL_auxz00_4646 = 
CAR(BgL_lz00_647); 
BgL_testz00_4645 = 
PAIRP(BgL_auxz00_4646); } 
if(BgL_testz00_4645)
{ /* ./DotNet/as.scm 257 */
obj_t BgL_auxz00_4649;
{ /* ./DotNet/as.scm 257 */
obj_t BgL_auxz00_4650;
BgL_auxz00_4650 = 
CAR(BgL_lz00_647); 
BgL_auxz00_4649 = 
CAR(BgL_auxz00_4650); } 
BgL_testz00_4644 = 
(BgL_auxz00_4649==BgL_xz00_58); }  else 
{ /* ./DotNet/as.scm 257 */
BgL_testz00_4644 = ((bool_t)0)
; } } 
if(BgL_testz00_4644)
{ /* ./DotNet/as.scm 257 */
return BgL_rz00_648;}  else 
{ /* ./DotNet/as.scm 257 */
{ 
long BgL_rz00_4656;obj_t BgL_lz00_4654;
BgL_lz00_4654 = 
CDR(BgL_lz00_647); 
BgL_rz00_4656 = 
(((long)1)+BgL_rz00_648); 
BgL_rz00_648 = BgL_rz00_4656; 
BgL_lz00_647 = BgL_lz00_4654; 
goto BgL_zc3anonymousza32266ze3z83_649;} } } } } } } 
}



/* index2 */
long BGl_index2z00zzdotnet_asz00(obj_t BgL_xz00_60, obj_t BgL_lz00_61)
{ AN_OBJECT;
{ /* ./DotNet/as.scm 261 */
{ 
obj_t BgL_lz00_665;long BgL_rz00_666;
BgL_lz00_665 = BgL_lz00_61; 
BgL_rz00_666 = ((long)0); 
BgL_zc3anonymousza32301ze3z83_667:
if(
NULLP(BgL_lz00_665))
{ /* ./DotNet/as.scm 264 */
return ((long)-1);}  else 
{ /* ./DotNet/as.scm 265 */
bool_t BgL_testz00_4660;
{ /* ./DotNet/as.scm 265 */
obj_t BgL_auxz00_4661;
{ /* ./DotNet/as.scm 265 */
obj_t BgL_auxz00_4662;
BgL_auxz00_4662 = 
CAR(BgL_lz00_665); 
BgL_auxz00_4661 = 
CAR(BgL_auxz00_4662); } 
BgL_testz00_4660 = 
(BgL_auxz00_4661==BgL_xz00_60); } 
if(BgL_testz00_4660)
{ /* ./DotNet/as.scm 265 */
return BgL_rz00_666;}  else 
{ /* ./DotNet/as.scm 265 */
{ 
long BgL_rz00_4668;obj_t BgL_lz00_4666;
BgL_lz00_4666 = 
CDR(BgL_lz00_665); 
BgL_rz00_4668 = 
(((long)1)+BgL_rz00_666); 
BgL_rz00_666 = BgL_rz00_4668; 
BgL_lz00_665 = BgL_lz00_4666; 
goto BgL_zc3anonymousza32301ze3z83_667;} } } } } 
}



/* var */
obj_t BGl_varz00zzdotnet_asz00(obj_t BgL_vz00_62, obj_t BgL_paramsz00_63, obj_t BgL_localsz00_64)
{ AN_OBJECT;
{ /* ./DotNet/as.scm 269 */
{ 
char * BgL_pz00_679;long BgL_nz00_680;
{ /* ./DotNet/as.scm 275 */
long BgL_nz00_675;
BgL_nz00_675 = 
BGl_indexz00zzdotnet_asz00(BgL_vz00_62, BgL_paramsz00_63); 
{ /* ./DotNet/as.scm 276 */
bool_t BgL_test2315z00_676;
BgL_test2315z00_676 = 
(BgL_nz00_675==((long)-1)); 
if(BgL_test2315z00_676)
{ /* ./DotNet/as.scm 277 */
long BgL_mz00_677;
BgL_mz00_677 = 
BGl_index2z00zzdotnet_asz00(BgL_vz00_62, BgL_localsz00_64); 
{ /* ./DotNet/as.scm 278 */
bool_t BgL_test2316z00_678;
BgL_test2316z00_678 = 
(BgL_mz00_677==((long)-1)); 
if(BgL_test2316z00_678)
{ /* ./DotNet/as.scm 278 */
FAILURE(BGl_string6113z00zzdotnet_asz00,BGl_string6160z00zzdotnet_asz00,BgL_vz00_62);}  else 
{ /* ./DotNet/as.scm 278 */
BgL_pz00_679 = "loc"; 
BgL_nz00_680 = BgL_mz00_677; 
BgL_zc3anonymousza32324ze3z83_681:
{ /* ./DotNet/as.scm 271 */
obj_t BgL_sz00_682;
BgL_sz00_682 = 
BGl_integerzd2ze3stringz31zz__r4_numbers_6_5_fixnumz00(BgL_nz00_680, BNIL); 
{ /* ./DotNet/as.scm 272 */
bool_t BgL_test2325z00_683;
BgL_test2325z00_683 = 
(BgL_nz00_680<=((long)3)); 
if(BgL_test2325z00_683)
{ /* ./DotNet/as.scm 272 */
{ /* ./DotNet/as.scm 272 */
obj_t BgL_auxz00_4680;
BgL_auxz00_4680 = 
string_to_bstring(BgL_pz00_679); 
return 
string_append_3(BgL_auxz00_4680, BGl_string6158z00zzdotnet_asz00, BgL_sz00_682);} }  else 
{ /* ./DotNet/as.scm 273 */
bool_t BgL_test2327z00_684;
BgL_test2327z00_684 = 
(BgL_nz00_680<=((long)255)); 
if(BgL_test2327z00_684)
{ /* ./DotNet/as.scm 273 */
{ /* ./DotNet/as.scm 273 */
obj_t BgL_auxz00_4685;
BgL_auxz00_4685 = 
string_to_bstring(BgL_pz00_679); 
return 
string_append_3(BgL_auxz00_4685, BGl_string6159z00zzdotnet_asz00, BgL_sz00_682);} }  else 
{ /* ./DotNet/as.scm 273 */
{ /* ./DotNet/as.scm 274 */
obj_t BgL_auxz00_4688;
BgL_auxz00_4688 = 
string_to_bstring(BgL_pz00_679); 
return 
string_append_3(BgL_auxz00_4688, BGl_string6118z00zzdotnet_asz00, BgL_sz00_682);} } } } } } } }  else 
{ 
long BgL_nz00_4692;char * BgL_pz00_4691;
BgL_pz00_4691 = "arg"; 
BgL_nz00_4692 = BgL_nz00_675; 
BgL_nz00_680 = BgL_nz00_4692; 
BgL_pz00_679 = BgL_pz00_4691; 
goto BgL_zc3anonymousza32324ze3z83_681;} } } } } 
}



/* stvar */
obj_t BGl_stvarz00zzdotnet_asz00(obj_t BgL_vz00_65, obj_t BgL_paramsz00_66, obj_t BgL_localsz00_67)
{ AN_OBJECT;
{ /* ./DotNet/as.scm 283 */
{ /* ./DotNet/as.scm 284 */
long BgL_nz00_687;
BgL_nz00_687 = 
BGl_indexz00zzdotnet_asz00(BgL_vz00_65, BgL_paramsz00_66); 
{ /* ./DotNet/as.scm 285 */
bool_t BgL_test2334z00_688;
BgL_test2334z00_688 = 
(BgL_nz00_687==((long)-1)); 
if(BgL_test2334z00_688)
{ /* ./DotNet/as.scm 285 */
return 
BGl_varz00zzdotnet_asz00(BgL_vz00_65, BNIL, BgL_localsz00_67);}  else 
{ /* ./DotNet/as.scm 287 */
obj_t BgL_arg2339z00_690;
BgL_arg2339z00_690 = 
BGl_integerzd2ze3stringz31zz__r4_numbers_6_5_fixnumz00(BgL_nz00_687, BNIL); 
return 
string_append(BGl_string6161z00zzdotnet_asz00, BgL_arg2339z00_690);} } } } 
}



/* strout */
obj_t BGl_stroutz00zzdotnet_asz00(obj_t BgL_outz00_68, obj_t BgL_sz00_69)
{ AN_OBJECT;
{ /* ./DotNet/as.scm 289 */
{ /* ./DotNet/as.scm 290 */
int BgL_nz00_692;
BgL_nz00_692 = 
STRING_LENGTH(BgL_sz00_69); 
{ 
long BgL_iz00_695;
BgL_iz00_695 = ((long)0); 
BgL_zc3anonymousza32346ze3z83_696:
{ /* ./DotNet/as.scm 293 */
bool_t BgL_test2347z00_697;
BgL_test2347z00_697 = 
BGl_2zd3zd3zz__r4_numbers_6_5z00(
BINT(BgL_iz00_695), 
BINT(BgL_nz00_692)); 
if(BgL_test2347z00_697)
{ /* ./DotNet/as.scm 293 */
return 
CNST_TABLE_REF(((long)17));}  else 
{ /* ./DotNet/as.scm 295 */
unsigned char BgL_cz00_698;
{ /* ./DotNet/as.scm 295 */
int BgL_auxz00_4705;
BgL_auxz00_4705 = 
(int)(BgL_iz00_695); 
BgL_cz00_698 = 
STRING_REF(BgL_sz00_69, BgL_auxz00_4705); } 
{ /* ./DotNet/as.scm 296 */
long BgL_cnz00_699;
BgL_cnz00_699 = 
(BgL_cz00_698); 
{ /* ./DotNet/as.scm 298 */
bool_t BgL_test2348z00_700;
BgL_test2348z00_700 = 
(BgL_cz00_698==((unsigned char)'"')); 
if(BgL_test2348z00_700)
{ /* ./DotNet/as.scm 298 */
{ /* ./DotNet/as.scm 299 */
obj_t BgL_list2350z00_701;
BgL_list2350z00_701 = 
MAKE_PAIR(BGl_string6162z00zzdotnet_asz00, BNIL); 
{ /* ./DotNet/as.scm 299 */
bool_t BgL_auxz00_4712;
BgL_auxz00_4712 = 
BGl_za2displayza2zzdotnet_asz00(BgL_outz00_68, BgL_list2350z00_701); 
BBOOL(BgL_auxz00_4712); } } }  else 
{ /* ./DotNet/as.scm 300 */
bool_t BgL_test2352z00_702;
BgL_test2352z00_702 = 
(BgL_cz00_698==((unsigned char)'\\')); 
if(BgL_test2352z00_702)
{ /* ./DotNet/as.scm 300 */
{ /* ./DotNet/as.scm 301 */
obj_t BgL_list2354z00_703;
BgL_list2354z00_703 = 
MAKE_PAIR(BGl_string6163z00zzdotnet_asz00, BNIL); 
{ /* ./DotNet/as.scm 301 */
bool_t BgL_auxz00_4718;
BgL_auxz00_4718 = 
BGl_za2displayza2zzdotnet_asz00(BgL_outz00_68, BgL_list2354z00_703); 
BBOOL(BgL_auxz00_4718); } } }  else 
{ /* ./DotNet/as.scm 302 */
bool_t BgL_test2356z00_704;
BgL_test2356z00_704 = 
(BgL_cnz00_699==((long)0)); 
if(BgL_test2356z00_704)
{ /* ./DotNet/as.scm 302 */
{ /* ./DotNet/as.scm 303 */
unsigned char BgL_arg2422z00_2778;
BgL_arg2422z00_2778 = 
(((long)192)); 
WRITE_CHAR(BgL_arg2422z00_2778, BgL_outz00_68); } 
{ /* ./DotNet/as.scm 304 */
unsigned char BgL_arg2422z00_2783;
BgL_arg2422z00_2783 = 
(((long)128)); 
WRITE_CHAR(BgL_arg2422z00_2783, BgL_outz00_68); } }  else 
{ /* ./DotNet/as.scm 305 */
bool_t BgL_test2359z00_705;
BgL_test2359z00_705 = 
(BgL_cnz00_699<((long)128)); 
if(BgL_test2359z00_705)
{ /* ./DotNet/as.scm 305 */
WRITE_CHAR(BgL_cz00_698, BgL_outz00_68); }  else 
{ /* ./DotNet/as.scm 307 */
bool_t BgL_test2361z00_706;
BgL_test2361z00_706 = 
(BgL_cnz00_699<((long)2048)); 
if(BgL_test2361z00_706)
{ /* ./DotNet/as.scm 307 */
{ /* ./DotNet/as.scm 308 */
long BgL_arg2363z00_707;
{ /* ./DotNet/as.scm 308 */
long BgL_auxz00_4732;
{ /* ./DotNet/as.scm 308 */
int BgL_auxz00_4733;
BgL_auxz00_4733 = 
(int)(((long)6)); 
BgL_auxz00_4732 = 
(BgL_cnz00_699 >> BgL_auxz00_4733); } 
BgL_arg2363z00_707 = 
(((long)192) | BgL_auxz00_4732); } 
{ /* ./DotNet/as.scm 308 */
unsigned char BgL_arg2422z00_2794;
BgL_arg2422z00_2794 = 
(BgL_arg2363z00_707); 
WRITE_CHAR(BgL_arg2422z00_2794, BgL_outz00_68); } } 
{ /* ./DotNet/as.scm 309 */
long BgL_arg2371z00_710;
{ /* ./DotNet/as.scm 309 */
long BgL_auxz00_4739;
BgL_auxz00_4739 = 
(BgL_cnz00_699 & ((long)63)); 
BgL_arg2371z00_710 = 
(((long)128) | BgL_auxz00_4739); } 
{ /* ./DotNet/as.scm 309 */
unsigned char BgL_arg2422z00_2803;
BgL_arg2422z00_2803 = 
(BgL_arg2371z00_710); 
WRITE_CHAR(BgL_arg2422z00_2803, BgL_outz00_68); } } }  else 
{ /* ./DotNet/as.scm 307 */
{ /* ./DotNet/as.scm 311 */
long BgL_arg2381z00_713;
{ /* ./DotNet/as.scm 311 */
long BgL_auxz00_4744;
{ /* ./DotNet/as.scm 311 */
int BgL_auxz00_4745;
BgL_auxz00_4745 = 
(int)(((long)12)); 
BgL_auxz00_4744 = 
(BgL_cnz00_699 >> BgL_auxz00_4745); } 
BgL_arg2381z00_713 = 
(((long)224) | BgL_auxz00_4744); } 
{ /* ./DotNet/as.scm 311 */
unsigned char BgL_arg2422z00_2812;
BgL_arg2422z00_2812 = 
(BgL_arg2381z00_713); 
WRITE_CHAR(BgL_arg2422z00_2812, BgL_outz00_68); } } 
{ /* ./DotNet/as.scm 312 */
long BgL_arg2389z00_716;
{ /* ./DotNet/as.scm 312 */
long BgL_auxz00_4751;
{ /* ./DotNet/as.scm 312 */
long BgL_auxz00_4752;
{ /* ./DotNet/as.scm 312 */
int BgL_auxz00_4753;
BgL_auxz00_4753 = 
(int)(((long)6)); 
BgL_auxz00_4752 = 
(BgL_cnz00_699 >> BgL_auxz00_4753); } 
BgL_auxz00_4751 = 
(BgL_auxz00_4752 & ((long)63)); } 
BgL_arg2389z00_716 = 
(((long)128) | BgL_auxz00_4751); } 
{ /* ./DotNet/as.scm 312 */
unsigned char BgL_arg2422z00_2823;
BgL_arg2422z00_2823 = 
(BgL_arg2389z00_716); 
WRITE_CHAR(BgL_arg2422z00_2823, BgL_outz00_68); } } 
{ /* ./DotNet/as.scm 313 */
long BgL_arg2401z00_721;
{ /* ./DotNet/as.scm 313 */
long BgL_auxz00_4760;
BgL_auxz00_4760 = 
(BgL_cnz00_699 & ((long)63)); 
BgL_arg2401z00_721 = 
(((long)128) | BgL_auxz00_4760); } 
{ /* ./DotNet/as.scm 313 */
unsigned char BgL_arg2422z00_2832;
BgL_arg2422z00_2832 = 
(BgL_arg2401z00_721); 
WRITE_CHAR(BgL_arg2422z00_2832, BgL_outz00_68); } } } } } } } } 
{ /* ./DotNet/as.scm 314 */
long BgL_arg2414z00_724;
BgL_arg2414z00_724 = 
(BgL_iz00_695+((long)1)); 
{ 
long BgL_iz00_4766;
BgL_iz00_4766 = BgL_arg2414z00_724; 
BgL_iz00_695 = BgL_iz00_4766; 
goto BgL_zc3anonymousza32346ze3z83_696;} } } } } } } } 
}



/* instr */
obj_t BGl_instrz00zzdotnet_asz00(obj_t BgL_outz00_70, obj_t BgL_declsz00_71, obj_t BgL_paramsz00_72, obj_t BgL_localsz00_73, obj_t BgL_iz00_74)
{ AN_OBJECT;
{ /* ./DotNet/as.scm 317 */
{ /* ./DotNet/as.scm 318 */
long BgL_za72za7_2843;
BgL_za72za7_2843 = BGl_za2lpcza2z00zzdotnet_asz00; 
BGl_za2lpcza2z00zzdotnet_asz00 = 
(((long)1)+BgL_za72za7_2843); } 
{ 
obj_t BgL_labz00_769;obj_t BgL_fz00_767;obj_t BgL_fz00_765;obj_t BgL_vz00_763;obj_t BgL_vz00_760;obj_t BgL_vz00_757;obj_t BgL_vz00_754;obj_t BgL_typez00_748;obj_t BgL_vz00_746;obj_t BgL_vz00_740;obj_t BgL_typez00_736;obj_t BgL_vz00_734;
{ /* ./DotNet/as.scm 319 */
bool_t BgL_test2427z00_773;
BgL_test2427z00_773 = 
PAIRP(BgL_iz00_74); 
if(BgL_test2427z00_773)
{ /* ./DotNet/as.scm 319 */
bool_t BgL_test2428z00_774;
{ /* ./DotNet/as.scm 319 */
obj_t BgL_auxz00_4772;obj_t BgL_auxz00_4770;
BgL_auxz00_4772 = 
CNST_TABLE_REF(((long)119)); 
BgL_auxz00_4770 = 
CAR(BgL_iz00_74); 
BgL_test2428z00_774 = 
(BgL_auxz00_4770==BgL_auxz00_4772); } 
if(BgL_test2428z00_774)
{ /* ./DotNet/as.scm 319 */
bool_t BgL_test2429z00_775;
{ /* ./DotNet/as.scm 319 */
obj_t BgL_auxz00_4776;
BgL_auxz00_4776 = 
CDR(BgL_iz00_74); 
BgL_test2429z00_775 = 
NULLP(BgL_auxz00_4776); } 
if(BgL_test2429z00_775)
{ /* ./DotNet/as.scm 319 */
display_string(BGl_string6164z00zzdotnet_asz00, BgL_outz00_70); 
return 
WRITE_CHAR(((unsigned char)'\n'), BgL_outz00_70);}  else 
{ /* ./DotNet/as.scm 319 */
BgL_tagzd2641zd2_771:
{ 
obj_t BgL_vz00_1088;obj_t BgL_typez00_1081;obj_t BgL_vz00_1079;obj_t BgL_vz00_1077;obj_t BgL_vz00_1075;obj_t BgL_vz00_1073;obj_t BgL_vz00_1065;obj_t BgL_lz00_1063;obj_t BgL_lz00_1061;obj_t BgL_lz00_1059;obj_t BgL_lz00_1057;obj_t BgL_lz00_1055;obj_t BgL_lz00_1053;obj_t BgL_labz00_1051;obj_t BgL_labz00_1049;obj_t BgL_labz00_1047;obj_t BgL_labz00_1045;obj_t BgL_labz00_1043;obj_t BgL_labz00_1041;obj_t BgL_labz00_1039;obj_t BgL_labz00_1037;obj_t BgL_labz00_1035;obj_t BgL_labz00_1033;obj_t BgL_labz00_1031;obj_t BgL_labz00_1029;obj_t BgL_labz00_1027;obj_t BgL_labz00_1025;
{ /* ./DotNet/as.scm 319 */
bool_t BgL_test3027z00_1099;
BgL_test3027z00_1099 = 
PAIRP(BgL_iz00_74); 
if(BgL_test3027z00_1099)
{ /* ./DotNet/as.scm 319 */
bool_t BgL_test3028z00_1100;
{ /* ./DotNet/as.scm 319 */
obj_t BgL_auxz00_4786;obj_t BgL_auxz00_4784;
BgL_auxz00_4786 = 
CNST_TABLE_REF(((long)58)); 
BgL_auxz00_4784 = 
CAR(BgL_iz00_74); 
BgL_test3028z00_1100 = 
(BgL_auxz00_4784==BgL_auxz00_4786); } 
if(BgL_test3028z00_1100)
{ /* ./DotNet/as.scm 319 */
bool_t BgL_test3029z00_1101;
{ /* ./DotNet/as.scm 319 */
obj_t BgL_auxz00_4790;
BgL_auxz00_4790 = 
CDR(BgL_iz00_74); 
BgL_test3029z00_1101 = 
NULLP(BgL_auxz00_4790); } 
if(BgL_test3029z00_1101)
{ /* ./DotNet/as.scm 319 */
display_string(BGl_string6187z00zzdotnet_asz00, BgL_outz00_70); 
return 
WRITE_CHAR(((unsigned char)'\n'), BgL_outz00_70);}  else 
{ /* ./DotNet/as.scm 319 */
BgL_tagzd22873zd2_1097:
{ 
obj_t BgL_excz00_1605;obj_t BgL_adz00_1603;obj_t BgL_vz00_1599;obj_t BgL_defz00_1594;obj_t BgL_begz00_1595;obj_t BgL_tablez00_1596;obj_t BgL_fz00_1592;obj_t BgL_fz00_1590;obj_t BgL_typez00_1587;obj_t BgL_typez00_1585;obj_t BgL_vz00_1583;obj_t BgL_defz00_1579;obj_t BgL_slotsz00_1580;obj_t BgL_vz00_1575;obj_t BgL_vz00_1571;obj_t BgL_vz00_1569;
{ /* ./DotNet/as.scm 319 */
bool_t BgL_test4216z00_1610;
BgL_test4216z00_1610 = 
PAIRP(BgL_iz00_74); 
if(BgL_test4216z00_1610)
{ /* ./DotNet/as.scm 319 */
bool_t BgL_test4217z00_1611;
{ /* ./DotNet/as.scm 319 */
obj_t BgL_auxz00_4800;obj_t BgL_auxz00_4798;
BgL_auxz00_4800 = 
CNST_TABLE_REF(((long)32)); 
BgL_auxz00_4798 = 
CAR(BgL_iz00_74); 
BgL_test4217z00_1611 = 
(BgL_auxz00_4798==BgL_auxz00_4800); } 
if(BgL_test4217z00_1611)
{ /* ./DotNet/as.scm 319 */
bool_t BgL_test4218z00_1612;
{ /* ./DotNet/as.scm 319 */
obj_t BgL_auxz00_4804;
BgL_auxz00_4804 = 
CDR(BgL_iz00_74); 
BgL_test4218z00_1612 = 
NULLP(BgL_auxz00_4804); } 
if(BgL_test4218z00_1612)
{ /* ./DotNet/as.scm 319 */
display_string(BGl_string6227z00zzdotnet_asz00, BgL_outz00_70); 
return 
WRITE_CHAR(((unsigned char)'\n'), BgL_outz00_70);}  else 
{ /* ./DotNet/as.scm 319 */
BgL_tagzd29657zd2_1608:
{ /* ./DotNet/as.scm 531 */
bool_t BgL_test4854z00_1859;
BgL_test4854z00_1859 = 
PAIRP(BgL_iz00_74); 
if(BgL_test4854z00_1859)
{ /* ./DotNet/as.scm 531 */
FAILURE(BGl_string6113z00zzdotnet_asz00,BGl_string6248z00zzdotnet_asz00,BgL_iz00_74);}  else 
{ /* ./DotNet/as.scm 531 */
BGl_displayzd22zd2zz__r4_output_6_10_3z00(BgL_iz00_74, BgL_outz00_70); 
display_string(BGl_string6219z00zzdotnet_asz00, BgL_outz00_70); 
return 
WRITE_CHAR(((unsigned char)'\n'), BgL_outz00_70);} } } }  else 
{ /* ./DotNet/as.scm 319 */
bool_t BgL_test4225z00_1614;
{ /* ./DotNet/as.scm 319 */
obj_t BgL_auxz00_4818;obj_t BgL_auxz00_4816;
BgL_auxz00_4818 = 
CNST_TABLE_REF(((long)33)); 
BgL_auxz00_4816 = 
CAR(BgL_iz00_74); 
BgL_test4225z00_1614 = 
(BgL_auxz00_4816==BgL_auxz00_4818); } 
if(BgL_test4225z00_1614)
{ /* ./DotNet/as.scm 319 */
bool_t BgL_test4226z00_1615;
{ /* ./DotNet/as.scm 319 */
obj_t BgL_auxz00_4822;
BgL_auxz00_4822 = 
CDR(BgL_iz00_74); 
BgL_test4226z00_1615 = 
NULLP(BgL_auxz00_4822); } 
if(BgL_test4226z00_1615)
{ /* ./DotNet/as.scm 319 */
display_string(BGl_string6228z00zzdotnet_asz00, BgL_outz00_70); 
return 
WRITE_CHAR(((unsigned char)'\n'), BgL_outz00_70);}  else 
{ /* ./DotNet/as.scm 319 */
goto BgL_tagzd29657zd2_1608;} }  else 
{ /* ./DotNet/as.scm 319 */
bool_t BgL_test4233z00_1617;
{ /* ./DotNet/as.scm 319 */
obj_t BgL_auxz00_4830;obj_t BgL_auxz00_4828;
BgL_auxz00_4830 = 
CNST_TABLE_REF(((long)34)); 
BgL_auxz00_4828 = 
CAR(BgL_iz00_74); 
BgL_test4233z00_1617 = 
(BgL_auxz00_4828==BgL_auxz00_4830); } 
if(BgL_test4233z00_1617)
{ /* ./DotNet/as.scm 319 */
bool_t BgL_test4234z00_1618;
{ /* ./DotNet/as.scm 319 */
obj_t BgL_auxz00_4834;
BgL_auxz00_4834 = 
CDR(BgL_iz00_74); 
BgL_test4234z00_1618 = 
NULLP(BgL_auxz00_4834); } 
if(BgL_test4234z00_1618)
{ /* ./DotNet/as.scm 319 */
display_string(BGl_string6229z00zzdotnet_asz00, BgL_outz00_70); 
return 
WRITE_CHAR(((unsigned char)'\n'), BgL_outz00_70);}  else 
{ /* ./DotNet/as.scm 319 */
goto BgL_tagzd29657zd2_1608;} }  else 
{ /* ./DotNet/as.scm 319 */
bool_t BgL_test4241z00_1620;
{ /* ./DotNet/as.scm 319 */
obj_t BgL_auxz00_4842;obj_t BgL_auxz00_4840;
BgL_auxz00_4842 = 
CNST_TABLE_REF(((long)35)); 
BgL_auxz00_4840 = 
CAR(BgL_iz00_74); 
BgL_test4241z00_1620 = 
(BgL_auxz00_4840==BgL_auxz00_4842); } 
if(BgL_test4241z00_1620)
{ /* ./DotNet/as.scm 319 */
bool_t BgL_test4242z00_1621;
{ /* ./DotNet/as.scm 319 */
obj_t BgL_auxz00_4846;
BgL_auxz00_4846 = 
CDR(BgL_iz00_74); 
BgL_test4242z00_1621 = 
NULLP(BgL_auxz00_4846); } 
if(BgL_test4242z00_1621)
{ /* ./DotNet/as.scm 319 */
display_string(BGl_string6229z00zzdotnet_asz00, BgL_outz00_70); 
return 
WRITE_CHAR(((unsigned char)'\n'), BgL_outz00_70);}  else 
{ /* ./DotNet/as.scm 319 */
goto BgL_tagzd29657zd2_1608;} }  else 
{ /* ./DotNet/as.scm 319 */
bool_t BgL_test4249z00_1623;
{ /* ./DotNet/as.scm 319 */
obj_t BgL_auxz00_4854;obj_t BgL_auxz00_4852;
BgL_auxz00_4854 = 
CNST_TABLE_REF(((long)36)); 
BgL_auxz00_4852 = 
CAR(BgL_iz00_74); 
BgL_test4249z00_1623 = 
(BgL_auxz00_4852==BgL_auxz00_4854); } 
if(BgL_test4249z00_1623)
{ /* ./DotNet/as.scm 319 */
bool_t BgL_test4250z00_1624;
{ /* ./DotNet/as.scm 319 */
obj_t BgL_auxz00_4858;
BgL_auxz00_4858 = 
CDR(BgL_iz00_74); 
BgL_test4250z00_1624 = 
NULLP(BgL_auxz00_4858); } 
if(BgL_test4250z00_1624)
{ /* ./DotNet/as.scm 319 */
display_string(BGl_string6230z00zzdotnet_asz00, BgL_outz00_70); 
return 
WRITE_CHAR(((unsigned char)'\n'), BgL_outz00_70);}  else 
{ /* ./DotNet/as.scm 319 */
goto BgL_tagzd29657zd2_1608;} }  else 
{ /* ./DotNet/as.scm 319 */
bool_t BgL_test4257z00_1626;
{ /* ./DotNet/as.scm 319 */
obj_t BgL_auxz00_4866;obj_t BgL_auxz00_4864;
BgL_auxz00_4866 = 
CNST_TABLE_REF(((long)37)); 
BgL_auxz00_4864 = 
CAR(BgL_iz00_74); 
BgL_test4257z00_1626 = 
(BgL_auxz00_4864==BgL_auxz00_4866); } 
if(BgL_test4257z00_1626)
{ /* ./DotNet/as.scm 319 */
bool_t BgL_test4258z00_1627;
{ /* ./DotNet/as.scm 319 */
obj_t BgL_auxz00_4870;
BgL_auxz00_4870 = 
CDR(BgL_iz00_74); 
BgL_test4258z00_1627 = 
NULLP(BgL_auxz00_4870); } 
if(BgL_test4258z00_1627)
{ /* ./DotNet/as.scm 319 */
display_string(BGl_string6228z00zzdotnet_asz00, BgL_outz00_70); 
return 
WRITE_CHAR(((unsigned char)'\n'), BgL_outz00_70);}  else 
{ /* ./DotNet/as.scm 319 */
goto BgL_tagzd29657zd2_1608;} }  else 
{ /* ./DotNet/as.scm 319 */
obj_t BgL_cdrzd210904zd2_1629;
BgL_cdrzd210904zd2_1629 = 
CDR(BgL_iz00_74); 
{ /* ./DotNet/as.scm 319 */
bool_t BgL_test4265z00_1630;
{ /* ./DotNet/as.scm 319 */
obj_t BgL_auxz00_4879;obj_t BgL_auxz00_4877;
BgL_auxz00_4879 = 
CNST_TABLE_REF(((long)38)); 
BgL_auxz00_4877 = 
CAR(BgL_iz00_74); 
BgL_test4265z00_1630 = 
(BgL_auxz00_4877==BgL_auxz00_4879); } 
if(BgL_test4265z00_1630)
{ /* ./DotNet/as.scm 319 */
bool_t BgL_test4266z00_1631;
BgL_test4266z00_1631 = 
PAIRP(BgL_cdrzd210904zd2_1629); 
if(BgL_test4266z00_1631)
{ /* ./DotNet/as.scm 319 */
bool_t BgL_test4267z00_1632;
{ /* ./DotNet/as.scm 319 */
obj_t BgL_auxz00_4885;
BgL_auxz00_4885 = 
CDR(BgL_cdrzd210904zd2_1629); 
BgL_test4267z00_1632 = 
NULLP(BgL_auxz00_4885); } 
if(BgL_test4267z00_1632)
{ /* ./DotNet/as.scm 319 */
obj_t BgL_arg4269z00_1633;
BgL_arg4269z00_1633 = 
CAR(BgL_cdrzd210904zd2_1629); 
BgL_vz00_1569 = BgL_arg4269z00_1633; 
{ /* ./DotNet/as.scm 463 */
bool_t BgL_test4677z00_1793;
BgL_test4677z00_1793 = 
INTEGERP(BgL_vz00_1569); 
if(BgL_test4677z00_1793)
{ /* ./DotNet/as.scm 463 */
display_string(BGl_string6178z00zzdotnet_asz00, BgL_outz00_70); 
BGl_displayzd22zd2zz__r4_output_6_10_3z00(BgL_vz00_1569, BgL_outz00_70); 
return 
WRITE_CHAR(((unsigned char)'\n'), BgL_outz00_70);}  else 
{ /* ./DotNet/as.scm 465 */
bool_t BgL_test4681z00_1795;
BgL_test4681z00_1795 = 
REALP(BgL_vz00_1569); 
if(BgL_test4681z00_1795)
{ /* ./DotNet/as.scm 465 */
display_string(BGl_string6231z00zzdotnet_asz00, BgL_outz00_70); 
BGl_displayzd22zd2zz__r4_output_6_10_3z00(BgL_vz00_1569, BgL_outz00_70); 
return 
WRITE_CHAR(((unsigned char)'\n'), BgL_outz00_70);}  else 
{ /* ./DotNet/as.scm 467 */
bool_t BgL_test4685z00_1797;
BgL_test4685z00_1797 = 
STRINGP(BgL_vz00_1569); 
if(BgL_test4685z00_1797)
{ /* ./DotNet/as.scm 467 */
{ /* ./DotNet/as.scm 468 */
obj_t BgL_list4687z00_1798;
BgL_list4687z00_1798 = 
MAKE_PAIR(BGl_string6232z00zzdotnet_asz00, BNIL); 
BGl_za2displayza2zzdotnet_asz00(BgL_outz00_70, BgL_list4687z00_1798); } 
BGl_stroutz00zzdotnet_asz00(BgL_outz00_70, BgL_vz00_1569); 
display_string(BGl_string6233z00zzdotnet_asz00, BgL_outz00_70); 
return 
WRITE_CHAR(((unsigned char)'\n'), BgL_outz00_70);}  else 
{ /* ./DotNet/as.scm 467 */
FAILURE(BGl_string6113z00zzdotnet_asz00,BGl_string6234z00zzdotnet_asz00,BgL_vz00_1569);} } } } }  else 
{ /* ./DotNet/as.scm 319 */
goto BgL_tagzd29657zd2_1608;} }  else 
{ /* ./DotNet/as.scm 319 */
goto BgL_tagzd29657zd2_1608;} }  else 
{ /* ./DotNet/as.scm 319 */
bool_t BgL_test4279z00_1636;
{ /* ./DotNet/as.scm 319 */
obj_t BgL_auxz00_4910;obj_t BgL_auxz00_4908;
BgL_auxz00_4910 = 
CNST_TABLE_REF(((long)39)); 
BgL_auxz00_4908 = 
CAR(BgL_iz00_74); 
BgL_test4279z00_1636 = 
(BgL_auxz00_4908==BgL_auxz00_4910); } 
if(BgL_test4279z00_1636)
{ /* ./DotNet/as.scm 319 */
bool_t BgL_test4280z00_1637;
BgL_test4280z00_1637 = 
PAIRP(BgL_cdrzd210904zd2_1629); 
if(BgL_test4280z00_1637)
{ /* ./DotNet/as.scm 319 */
bool_t BgL_test4281z00_1638;
{ /* ./DotNet/as.scm 319 */
obj_t BgL_auxz00_4916;
BgL_auxz00_4916 = 
CDR(BgL_cdrzd210904zd2_1629); 
BgL_test4281z00_1638 = 
NULLP(BgL_auxz00_4916); } 
if(BgL_test4281z00_1638)
{ /* ./DotNet/as.scm 319 */
obj_t BgL_arg4283z00_1639;
BgL_arg4283z00_1639 = 
CAR(BgL_cdrzd210904zd2_1629); 
BgL_vz00_1571 = BgL_arg4283z00_1639; 
{ /* ./DotNet/as.scm 474 */
bool_t BgL_test4696z00_1800;
BgL_test4696z00_1800 = 
INTEGERP(BgL_vz00_1571); 
if(BgL_test4696z00_1800)
{ /* ./DotNet/as.scm 474 */
display_string(BGl_string6235z00zzdotnet_asz00, BgL_outz00_70); 
BGl_displayzd22zd2zz__r4_output_6_10_3z00(BgL_vz00_1571, BgL_outz00_70); 
return 
WRITE_CHAR(((unsigned char)'\n'), BgL_outz00_70);}  else 
{ /* ./DotNet/as.scm 476 */
bool_t BgL_test4700z00_1802;
BgL_test4700z00_1802 = 
REALP(BgL_vz00_1571); 
if(BgL_test4700z00_1802)
{ /* ./DotNet/as.scm 476 */
display_string(BGl_string6236z00zzdotnet_asz00, BgL_outz00_70); 
BGl_displayzd22zd2zz__r4_output_6_10_3z00(BgL_vz00_1571, BgL_outz00_70); 
return 
WRITE_CHAR(((unsigned char)'\n'), BgL_outz00_70);}  else 
{ /* ./DotNet/as.scm 476 */
FAILURE(BGl_string6113z00zzdotnet_asz00,BGl_string6237z00zzdotnet_asz00,BgL_vz00_1571);} } } }  else 
{ /* ./DotNet/as.scm 319 */
goto BgL_tagzd29657zd2_1608;} }  else 
{ /* ./DotNet/as.scm 319 */
goto BgL_tagzd29657zd2_1608;} }  else 
{ /* ./DotNet/as.scm 319 */
obj_t BgL_cdrzd211476zd2_1641;
BgL_cdrzd211476zd2_1641 = 
CDR(BgL_iz00_74); 
{ /* ./DotNet/as.scm 319 */
bool_t BgL_test4293z00_1642;
{ /* ./DotNet/as.scm 319 */
obj_t BgL_auxz00_4935;obj_t BgL_auxz00_4933;
BgL_auxz00_4935 = 
CNST_TABLE_REF(((long)40)); 
BgL_auxz00_4933 = 
CAR(BgL_iz00_74); 
BgL_test4293z00_1642 = 
(BgL_auxz00_4933==BgL_auxz00_4935); } 
if(BgL_test4293z00_1642)
{ /* ./DotNet/as.scm 319 */
bool_t BgL_test4294z00_1643;
BgL_test4294z00_1643 = 
PAIRP(BgL_cdrzd211476zd2_1641); 
if(BgL_test4294z00_1643)
{ /* ./DotNet/as.scm 319 */
bool_t BgL_test4295z00_1644;
{ /* ./DotNet/as.scm 319 */
obj_t BgL_auxz00_4941;
BgL_auxz00_4941 = 
CDR(BgL_cdrzd211476zd2_1641); 
BgL_test4295z00_1644 = 
NULLP(BgL_auxz00_4941); } 
if(BgL_test4295z00_1644)
{ /* ./DotNet/as.scm 319 */
return 
CNST_TABLE_REF(((long)17));}  else 
{ /* ./DotNet/as.scm 319 */
goto BgL_tagzd29657zd2_1608;} }  else 
{ /* ./DotNet/as.scm 319 */
goto BgL_tagzd29657zd2_1608;} }  else 
{ /* ./DotNet/as.scm 319 */
bool_t BgL_test4307z00_1648;
{ /* ./DotNet/as.scm 319 */
obj_t BgL_auxz00_4948;obj_t BgL_auxz00_4946;
BgL_auxz00_4948 = 
CNST_TABLE_REF(((long)41)); 
BgL_auxz00_4946 = 
CAR(BgL_iz00_74); 
BgL_test4307z00_1648 = 
(BgL_auxz00_4946==BgL_auxz00_4948); } 
if(BgL_test4307z00_1648)
{ /* ./DotNet/as.scm 319 */
bool_t BgL_test4308z00_1649;
BgL_test4308z00_1649 = 
PAIRP(BgL_cdrzd211476zd2_1641); 
if(BgL_test4308z00_1649)
{ /* ./DotNet/as.scm 319 */
bool_t BgL_test4309z00_1650;
{ /* ./DotNet/as.scm 319 */
obj_t BgL_auxz00_4954;
BgL_auxz00_4954 = 
CDR(BgL_cdrzd211476zd2_1641); 
BgL_test4309z00_1650 = 
NULLP(BgL_auxz00_4954); } 
if(BgL_test4309z00_1650)
{ /* ./DotNet/as.scm 319 */
obj_t BgL_arg4311z00_1651;
BgL_arg4311z00_1651 = 
CAR(BgL_cdrzd211476zd2_1641); 
BgL_vz00_1575 = BgL_arg4311z00_1651; 
display_string(BGl_string6168z00zzdotnet_asz00, BgL_outz00_70); 
{ /* ./DotNet/as.scm 481 */
obj_t BgL_arg4709z00_1805;
BgL_arg4709z00_1805 = 
BGl_varz00zzdotnet_asz00(BgL_vz00_1575, BgL_paramsz00_72, BgL_localsz00_73); 
BGl_displayzd22zd2zz__r4_output_6_10_3z00(BgL_arg4709z00_1805, BgL_outz00_70); } 
return 
WRITE_CHAR(((unsigned char)'\n'), BgL_outz00_70);}  else 
{ /* ./DotNet/as.scm 319 */
goto BgL_tagzd29657zd2_1608;} }  else 
{ /* ./DotNet/as.scm 319 */
goto BgL_tagzd29657zd2_1608;} }  else 
{ /* ./DotNet/as.scm 319 */
bool_t BgL_test4321z00_1653;
{ /* ./DotNet/as.scm 319 */
obj_t BgL_auxz00_4965;obj_t BgL_auxz00_4963;
BgL_auxz00_4965 = 
CNST_TABLE_REF(((long)42)); 
BgL_auxz00_4963 = 
CAR(BgL_iz00_74); 
BgL_test4321z00_1653 = 
(BgL_auxz00_4963==BgL_auxz00_4965); } 
if(BgL_test4321z00_1653)
{ /* ./DotNet/as.scm 319 */
return 
CNST_TABLE_REF(((long)17));}  else 
{ /* ./DotNet/as.scm 319 */
obj_t BgL_cdrzd211966zd2_1655;
BgL_cdrzd211966zd2_1655 = 
CDR(BgL_iz00_74); 
{ /* ./DotNet/as.scm 319 */
bool_t BgL_test4326z00_1656;
{ /* ./DotNet/as.scm 319 */
obj_t BgL_auxz00_4973;obj_t BgL_auxz00_4971;
BgL_auxz00_4973 = 
CNST_TABLE_REF(((long)19)); 
BgL_auxz00_4971 = 
CAR(BgL_iz00_74); 
BgL_test4326z00_1656 = 
(BgL_auxz00_4971==BgL_auxz00_4973); } 
if(BgL_test4326z00_1656)
{ /* ./DotNet/as.scm 319 */
bool_t BgL_test4327z00_1657;
BgL_test4327z00_1657 = 
PAIRP(BgL_cdrzd211966zd2_1655); 
if(BgL_test4327z00_1657)
{ /* ./DotNet/as.scm 319 */
obj_t BgL_arg4329z00_1658;obj_t BgL_arg4330z00_1659;
BgL_arg4329z00_1658 = 
CAR(BgL_cdrzd211966zd2_1655); 
BgL_arg4330z00_1659 = 
CDR(BgL_cdrzd211966zd2_1655); 
BgL_defz00_1579 = BgL_arg4329z00_1658; 
BgL_slotsz00_1580 = BgL_arg4330z00_1659; 
display_string(BGl_string6173z00zzdotnet_asz00, BgL_outz00_70); 
{ /* ./DotNet/as.scm 485 */
obj_t BgL_arg4715z00_1807;
BgL_arg4715z00_1807 = 
BGl_stvarz00zzdotnet_asz00(
CNST_TABLE_REF(((long)29)), BgL_paramsz00_72, BgL_localsz00_73); 
BGl_displayzd22zd2zz__r4_output_6_10_3z00(BgL_arg4715z00_1807, BgL_outz00_70); } 
WRITE_CHAR(((unsigned char)'\n'), BgL_outz00_70); 
{ 
obj_t BgL_l1147z00_1808;
BgL_l1147z00_1808 = BgL_slotsz00_1580; 
BgL_forzd2each1148zd2_1809:
{ /* ./DotNet/as.scm 486 */
bool_t BgL_test4720z00_1810;
BgL_test4720z00_1810 = 
PAIRP(BgL_l1147z00_1808); 
if(BgL_test4720z00_1810)
{ /* ./DotNet/as.scm 486 */
{ /* ./DotNet/as.scm 488 */
obj_t BgL_sz00_1811;
BgL_sz00_1811 = 
CAR(BgL_l1147z00_1808); 
display_string(BGl_string6168z00zzdotnet_asz00, BgL_outz00_70); 
{ /* ./DotNet/as.scm 488 */
obj_t BgL_arg4723z00_1813;
BgL_arg4723z00_1813 = 
BGl_varz00zzdotnet_asz00(
CNST_TABLE_REF(((long)29)), BgL_paramsz00_72, BgL_localsz00_73); 
BGl_displayzd22zd2zz__r4_output_6_10_3z00(BgL_arg4723z00_1813, BgL_outz00_70); } 
WRITE_CHAR(((unsigned char)'\n'), BgL_outz00_70); 
display_string(BGl_string6238z00zzdotnet_asz00, BgL_outz00_70); 
{ /* ./DotNet/as.scm 489 */
obj_t BgL_arg4729z00_1815;
BgL_arg4729z00_1815 = 
CAR(BgL_sz00_1811); 
BGl_displayzd22zd2zz__r4_output_6_10_3z00(BgL_arg4729z00_1815, BgL_outz00_70); } 
WRITE_CHAR(((unsigned char)'\n'), BgL_outz00_70); 
display_string(BGl_string6199z00zzdotnet_asz00, BgL_outz00_70); 
{ /* ./DotNet/as.scm 490 */
obj_t BgL_arg4735z00_1817;
BgL_arg4735z00_1817 = 
CDR(BgL_sz00_1811); 
BGl_displayzd22zd2zz__r4_output_6_10_3z00(BgL_arg4735z00_1817, BgL_outz00_70); } 
WRITE_CHAR(((unsigned char)'\n'), BgL_outz00_70); } 
{ /* ./DotNet/as.scm 486 */
obj_t BgL_arg4741z00_1818;
BgL_arg4741z00_1818 = 
CDR(BgL_l1147z00_1808); 
{ 
obj_t BgL_l1147z00_5003;
BgL_l1147z00_5003 = BgL_arg4741z00_1818; 
BgL_l1147z00_1808 = BgL_l1147z00_5003; 
goto BgL_forzd2each1148zd2_1809;} } }  else 
{ /* ./DotNet/as.scm 486 */((bool_t)1); } } } 
display_string(BGl_string6186z00zzdotnet_asz00, BgL_outz00_70); 
BGl_displayzd22zd2zz__r4_output_6_10_3z00(BgL_defz00_1579, BgL_outz00_70); 
return 
WRITE_CHAR(((unsigned char)'\n'), BgL_outz00_70);}  else 
{ /* ./DotNet/as.scm 319 */
goto BgL_tagzd29657zd2_1608;} }  else 
{ /* ./DotNet/as.scm 319 */
bool_t BgL_test4336z00_1660;
{ /* ./DotNet/as.scm 319 */
obj_t BgL_auxz00_5009;obj_t BgL_auxz00_5007;
BgL_auxz00_5009 = 
CNST_TABLE_REF(((long)43)); 
BgL_auxz00_5007 = 
CAR(BgL_iz00_74); 
BgL_test4336z00_1660 = 
(BgL_auxz00_5007==BgL_auxz00_5009); } 
if(BgL_test4336z00_1660)
{ /* ./DotNet/as.scm 319 */
bool_t BgL_test4337z00_1661;
BgL_test4337z00_1661 = 
NULLP(BgL_cdrzd211966zd2_1655); 
if(BgL_test4337z00_1661)
{ /* ./DotNet/as.scm 319 */
display_string(BGl_string6170z00zzdotnet_asz00, BgL_outz00_70); 
return 
WRITE_CHAR(((unsigned char)'\n'), BgL_outz00_70);}  else 
{ /* ./DotNet/as.scm 319 */
goto BgL_tagzd29657zd2_1608;} }  else 
{ /* ./DotNet/as.scm 319 */
bool_t BgL_test4344z00_1664;
{ /* ./DotNet/as.scm 319 */
obj_t BgL_auxz00_5019;obj_t BgL_auxz00_5017;
BgL_auxz00_5019 = 
CNST_TABLE_REF(((long)44)); 
BgL_auxz00_5017 = 
CAR(BgL_iz00_74); 
BgL_test4344z00_1664 = 
(BgL_auxz00_5017==BgL_auxz00_5019); } 
if(BgL_test4344z00_1664)
{ /* ./DotNet/as.scm 319 */
bool_t BgL_test4345z00_1665;
BgL_test4345z00_1665 = 
PAIRP(BgL_cdrzd211966zd2_1655); 
if(BgL_test4345z00_1665)
{ /* ./DotNet/as.scm 319 */
bool_t BgL_test4346z00_1666;
{ /* ./DotNet/as.scm 319 */
obj_t BgL_auxz00_5025;
BgL_auxz00_5025 = 
CDR(BgL_cdrzd211966zd2_1655); 
BgL_test4346z00_1666 = 
NULLP(BgL_auxz00_5025); } 
if(BgL_test4346z00_1666)
{ /* ./DotNet/as.scm 319 */
obj_t BgL_arg4348z00_1667;
BgL_arg4348z00_1667 = 
CAR(BgL_cdrzd211966zd2_1655); 
BgL_vz00_1583 = BgL_arg4348z00_1667; 
display_string(BGl_string6173z00zzdotnet_asz00, BgL_outz00_70); 
{ /* ./DotNet/as.scm 494 */
obj_t BgL_arg4752z00_1822;
BgL_arg4752z00_1822 = 
BGl_stvarz00zzdotnet_asz00(BgL_vz00_1583, BgL_paramsz00_72, BgL_localsz00_73); 
BGl_displayzd22zd2zz__r4_output_6_10_3z00(BgL_arg4752z00_1822, BgL_outz00_70); } 
return 
WRITE_CHAR(((unsigned char)'\n'), BgL_outz00_70);}  else 
{ /* ./DotNet/as.scm 319 */
goto BgL_tagzd29657zd2_1608;} }  else 
{ /* ./DotNet/as.scm 319 */
goto BgL_tagzd29657zd2_1608;} }  else 
{ /* ./DotNet/as.scm 319 */
obj_t BgL_cdrzd212298zd2_1669;
BgL_cdrzd212298zd2_1669 = 
CDR(BgL_iz00_74); 
{ /* ./DotNet/as.scm 319 */
bool_t BgL_test4358z00_1670;
{ /* ./DotNet/as.scm 319 */
obj_t BgL_auxz00_5037;obj_t BgL_auxz00_5035;
BgL_auxz00_5037 = 
CNST_TABLE_REF(((long)45)); 
BgL_auxz00_5035 = 
CAR(BgL_iz00_74); 
BgL_test4358z00_1670 = 
(BgL_auxz00_5035==BgL_auxz00_5037); } 
if(BgL_test4358z00_1670)
{ /* ./DotNet/as.scm 319 */
bool_t BgL_test4359z00_1671;
BgL_test4359z00_1671 = 
PAIRP(BgL_cdrzd212298zd2_1669); 
if(BgL_test4359z00_1671)
{ /* ./DotNet/as.scm 319 */
bool_t BgL_test4360z00_1672;
{ /* ./DotNet/as.scm 319 */
obj_t BgL_auxz00_5043;
BgL_auxz00_5043 = 
CDR(BgL_cdrzd212298zd2_1669); 
BgL_test4360z00_1672 = 
NULLP(BgL_auxz00_5043); } 
if(BgL_test4360z00_1672)
{ /* ./DotNet/as.scm 319 */
obj_t BgL_arg4362z00_1673;
BgL_arg4362z00_1673 = 
CAR(BgL_cdrzd212298zd2_1669); 
BgL_typez00_1585 = BgL_arg4362z00_1673; 
BGl_za2newza2z00zzdotnet_asz00 = 
MAKE_PAIR(BgL_typez00_1585, BGl_za2newza2z00zzdotnet_asz00); 
return ( 
BGl_za2lpcza2z00zzdotnet_asz00 = ((long)0), BUNSPEC) ;}  else 
{ /* ./DotNet/as.scm 319 */
goto BgL_tagzd29657zd2_1608;} }  else 
{ /* ./DotNet/as.scm 319 */
goto BgL_tagzd29657zd2_1608;} }  else 
{ /* ./DotNet/as.scm 319 */
bool_t BgL_test4372z00_1676;
{ /* ./DotNet/as.scm 319 */
obj_t BgL_auxz00_5051;obj_t BgL_auxz00_5049;
BgL_auxz00_5051 = 
CNST_TABLE_REF(((long)46)); 
BgL_auxz00_5049 = 
CAR(BgL_iz00_74); 
BgL_test4372z00_1676 = 
(BgL_auxz00_5049==BgL_auxz00_5051); } 
if(BgL_test4372z00_1676)
{ /* ./DotNet/as.scm 319 */
bool_t BgL_test4373z00_1677;
BgL_test4373z00_1677 = 
PAIRP(BgL_cdrzd212298zd2_1669); 
if(BgL_test4373z00_1677)
{ /* ./DotNet/as.scm 319 */
bool_t BgL_test4374z00_1678;
{ /* ./DotNet/as.scm 319 */
obj_t BgL_auxz00_5057;
BgL_auxz00_5057 = 
CDR(BgL_cdrzd212298zd2_1669); 
BgL_test4374z00_1678 = 
NULLP(BgL_auxz00_5057); } 
if(BgL_test4374z00_1678)
{ /* ./DotNet/as.scm 319 */
obj_t BgL_arg4376z00_1679;
BgL_arg4376z00_1679 = 
CAR(BgL_cdrzd212298zd2_1669); 
BgL_typez00_1587 = BgL_arg4376z00_1679; 
display_string(BGl_string6169z00zzdotnet_asz00, BgL_outz00_70); 
{ /* ./DotNet/as.scm 498 */
obj_t BgL_arg4759z00_1824;
BgL_arg4759z00_1824 = 
BGl_typenamez00zzdotnet_asz00(BgL_declsz00_71, BgL_typez00_1587); 
BGl_displayzd22zd2zz__r4_output_6_10_3z00(BgL_arg4759z00_1824, BgL_outz00_70); } 
return 
WRITE_CHAR(((unsigned char)'\n'), BgL_outz00_70);}  else 
{ /* ./DotNet/as.scm 319 */
goto BgL_tagzd29657zd2_1608;} }  else 
{ /* ./DotNet/as.scm 319 */
goto BgL_tagzd29657zd2_1608;} }  else 
{ /* ./DotNet/as.scm 319 */
bool_t BgL_test4386z00_1681;
{ /* ./DotNet/as.scm 319 */
obj_t BgL_auxz00_5068;obj_t BgL_auxz00_5066;
BgL_auxz00_5068 = 
CNST_TABLE_REF(((long)47)); 
BgL_auxz00_5066 = 
CAR(BgL_iz00_74); 
BgL_test4386z00_1681 = 
(BgL_auxz00_5066==BgL_auxz00_5068); } 
if(BgL_test4386z00_1681)
{ /* ./DotNet/as.scm 319 */
bool_t BgL_test4387z00_1682;
{ /* ./DotNet/as.scm 319 */
obj_t BgL_auxz00_5072;
BgL_auxz00_5072 = 
CDR(BgL_iz00_74); 
BgL_test4387z00_1682 = 
NULLP(BgL_auxz00_5072); } 
if(BgL_test4387z00_1682)
{ /* ./DotNet/as.scm 319 */
display_string(BGl_string6239z00zzdotnet_asz00, BgL_outz00_70); 
return 
WRITE_CHAR(((unsigned char)'\n'), BgL_outz00_70);}  else 
{ /* ./DotNet/as.scm 319 */
goto BgL_tagzd29657zd2_1608;} }  else 
{ /* ./DotNet/as.scm 319 */
obj_t BgL_cdrzd212587zd2_1684;
BgL_cdrzd212587zd2_1684 = 
CDR(BgL_iz00_74); 
{ /* ./DotNet/as.scm 319 */
bool_t BgL_test4394z00_1685;
{ /* ./DotNet/as.scm 319 */
obj_t BgL_auxz00_5081;obj_t BgL_auxz00_5079;
BgL_auxz00_5081 = 
CNST_TABLE_REF(((long)48)); 
BgL_auxz00_5079 = 
CAR(BgL_iz00_74); 
BgL_test4394z00_1685 = 
(BgL_auxz00_5079==BgL_auxz00_5081); } 
if(BgL_test4394z00_1685)
{ /* ./DotNet/as.scm 319 */
bool_t BgL_test4395z00_1686;
BgL_test4395z00_1686 = 
PAIRP(BgL_cdrzd212587zd2_1684); 
if(BgL_test4395z00_1686)
{ /* ./DotNet/as.scm 319 */
bool_t BgL_test4396z00_1687;
{ /* ./DotNet/as.scm 319 */
obj_t BgL_auxz00_5087;
BgL_auxz00_5087 = 
CDR(BgL_cdrzd212587zd2_1684); 
BgL_test4396z00_1687 = 
NULLP(BgL_auxz00_5087); } 
if(BgL_test4396z00_1687)
{ /* ./DotNet/as.scm 319 */
obj_t BgL_arg4398z00_1688;
BgL_arg4398z00_1688 = 
CAR(BgL_cdrzd212587zd2_1684); 
BgL_fz00_1590 = BgL_arg4398z00_1688; 
{ /* ./DotNet/as.scm 501 */
obj_t BgL_list4766z00_1826;
BgL_list4766z00_1826 = 
MAKE_PAIR(BGl_string6240z00zzdotnet_asz00, BNIL); 
BGl_za2displayza2zzdotnet_asz00(BgL_outz00_70, BgL_list4766z00_1826); } 
return 
BGl_outfieldz00zzdotnet_asz00(BgL_outz00_70, BgL_declsz00_71, BgL_fz00_1590);}  else 
{ /* ./DotNet/as.scm 319 */
goto BgL_tagzd29657zd2_1608;} }  else 
{ /* ./DotNet/as.scm 319 */
goto BgL_tagzd29657zd2_1608;} }  else 
{ /* ./DotNet/as.scm 319 */
bool_t BgL_test4408z00_1691;
{ /* ./DotNet/as.scm 319 */
obj_t BgL_auxz00_5097;obj_t BgL_auxz00_5095;
BgL_auxz00_5097 = 
CNST_TABLE_REF(((long)49)); 
BgL_auxz00_5095 = 
CAR(BgL_iz00_74); 
BgL_test4408z00_1691 = 
(BgL_auxz00_5095==BgL_auxz00_5097); } 
if(BgL_test4408z00_1691)
{ /* ./DotNet/as.scm 319 */
bool_t BgL_test4409z00_1692;
BgL_test4409z00_1692 = 
PAIRP(BgL_cdrzd212587zd2_1684); 
if(BgL_test4409z00_1692)
{ /* ./DotNet/as.scm 319 */
bool_t BgL_test4410z00_1693;
{ /* ./DotNet/as.scm 319 */
obj_t BgL_auxz00_5103;
BgL_auxz00_5103 = 
CDR(BgL_cdrzd212587zd2_1684); 
BgL_test4410z00_1693 = 
NULLP(BgL_auxz00_5103); } 
if(BgL_test4410z00_1693)
{ /* ./DotNet/as.scm 319 */
obj_t BgL_arg4412z00_1694;
BgL_arg4412z00_1694 = 
CAR(BgL_cdrzd212587zd2_1684); 
BgL_fz00_1592 = BgL_arg4412z00_1694; 
{ /* ./DotNet/as.scm 504 */
obj_t BgL_list4770z00_1827;
BgL_list4770z00_1827 = 
MAKE_PAIR(BGl_string6241z00zzdotnet_asz00, BNIL); 
BGl_za2displayza2zzdotnet_asz00(BgL_outz00_70, BgL_list4770z00_1827); } 
return 
BGl_outfieldz00zzdotnet_asz00(BgL_outz00_70, BgL_declsz00_71, BgL_fz00_1592);}  else 
{ /* ./DotNet/as.scm 319 */
goto BgL_tagzd29657zd2_1608;} }  else 
{ /* ./DotNet/as.scm 319 */
goto BgL_tagzd29657zd2_1608;} }  else 
{ /* ./DotNet/as.scm 319 */
obj_t BgL_cdrzd212732zd2_1696;
BgL_cdrzd212732zd2_1696 = 
CDR(BgL_iz00_74); 
{ /* ./DotNet/as.scm 319 */
bool_t BgL_test4422z00_1697;
{ /* ./DotNet/as.scm 319 */
obj_t BgL_auxz00_5114;obj_t BgL_auxz00_5112;
BgL_auxz00_5114 = 
CNST_TABLE_REF(((long)50)); 
BgL_auxz00_5112 = 
CAR(BgL_iz00_74); 
BgL_test4422z00_1697 = 
(BgL_auxz00_5112==BgL_auxz00_5114); } 
if(BgL_test4422z00_1697)
{ /* ./DotNet/as.scm 319 */
bool_t BgL_test4423z00_1698;
BgL_test4423z00_1698 = 
PAIRP(BgL_cdrzd212732zd2_1696); 
if(BgL_test4423z00_1698)
{ /* ./DotNet/as.scm 319 */
obj_t BgL_cdrzd212737zd2_1699;
BgL_cdrzd212737zd2_1699 = 
CDR(BgL_cdrzd212732zd2_1696); 
{ /* ./DotNet/as.scm 319 */
bool_t BgL_test4424z00_1700;
BgL_test4424z00_1700 = 
PAIRP(BgL_cdrzd212737zd2_1699); 
if(BgL_test4424z00_1700)
{ /* ./DotNet/as.scm 319 */
obj_t BgL_arg4426z00_1701;obj_t BgL_arg4427z00_1702;obj_t BgL_arg4428z00_1703;
BgL_arg4426z00_1701 = 
CAR(BgL_cdrzd212732zd2_1696); 
BgL_arg4427z00_1702 = 
CAR(BgL_cdrzd212737zd2_1699); 
BgL_arg4428z00_1703 = 
CDR(BgL_cdrzd212737zd2_1699); 
BgL_defz00_1594 = BgL_arg4426z00_1701; 
BgL_begz00_1595 = BgL_arg4427z00_1702; 
BgL_tablez00_1596 = BgL_arg4428z00_1703; 
{ /* ./DotNet/as.scm 507 */
bool_t BgL_test4773z00_1828;
BgL_test4773z00_1828 = 
BGl_2zd3zd3zz__r4_numbers_6_5z00(BgL_begz00_1595, 
BINT(((long)0))); 
if(BgL_test4773z00_1828)
{ /* ./DotNet/as.scm 507 */BFALSE; }  else 
{ /* ./DotNet/as.scm 507 */
display_string(BGl_string6242z00zzdotnet_asz00, BgL_outz00_70); 
BGl_displayzd22zd2zz__r4_output_6_10_3z00(BgL_begz00_1595, BgL_outz00_70); 
WRITE_CHAR(((unsigned char)'\n'), BgL_outz00_70); 
display_string(BGl_string6222z00zzdotnet_asz00, BgL_outz00_70); 
WRITE_CHAR(((unsigned char)'\n'), BgL_outz00_70); } } 
{ /* ./DotNet/as.scm 510 */
obj_t BgL_list4781z00_1831;
BgL_list4781z00_1831 = 
MAKE_PAIR(BGl_string6243z00zzdotnet_asz00, BNIL); 
BGl_za2displayza2zzdotnet_asz00(BgL_outz00_70, BgL_list4781z00_1831); } 
{ /* ./DotNet/as.scm 511 */
obj_t BgL_arg4784z00_1832;
BgL_arg4784z00_1832 = 
CAR(BgL_tablez00_1596); 
{ /* ./DotNet/as.scm 511 */
obj_t BgL_list4786z00_1833;
BgL_list4786z00_1833 = 
MAKE_PAIR(BgL_arg4784z00_1832, BNIL); 
BGl_za2displayza2zzdotnet_asz00(BgL_outz00_70, BgL_list4786z00_1833); } } 
{ 
obj_t BgL_l1159z00_1834;
{ /* ./DotNet/as.scm 512 */
obj_t BgL_arg4790z00_1836;
BgL_arg4790z00_1836 = 
CDR(BgL_tablez00_1596); 
BgL_l1159z00_1834 = BgL_arg4790z00_1836; 
BgL_forzd2each1160zd2_1835:
{ /* ./DotNet/as.scm 512 */
bool_t BgL_test4793z00_1837;
BgL_test4793z00_1837 = 
PAIRP(BgL_l1159z00_1834); 
if(BgL_test4793z00_1837)
{ /* ./DotNet/as.scm 512 */
{ /* ./DotNet/as.scm 512 */
obj_t BgL_tz00_1838;
BgL_tz00_1838 = 
CAR(BgL_l1159z00_1834); 
{ /* ./DotNet/as.scm 512 */
obj_t BgL_list4795z00_1839;
{ /* ./DotNet/as.scm 512 */
obj_t BgL_arg4798z00_1841;
BgL_arg4798z00_1841 = 
MAKE_PAIR(BgL_tz00_1838, BNIL); 
BgL_list4795z00_1839 = 
MAKE_PAIR(BGl_string6140z00zzdotnet_asz00, BgL_arg4798z00_1841); } 
BGl_za2displayza2zzdotnet_asz00(BgL_outz00_70, BgL_list4795z00_1839); } } 
{ /* ./DotNet/as.scm 512 */
obj_t BgL_arg4803z00_1842;
BgL_arg4803z00_1842 = 
CDR(BgL_l1159z00_1834); 
{ 
obj_t BgL_l1159z00_5147;
BgL_l1159z00_5147 = BgL_arg4803z00_1842; 
BgL_l1159z00_1834 = BgL_l1159z00_5147; 
goto BgL_forzd2each1160zd2_1835;} } }  else 
{ /* ./DotNet/as.scm 512 */((bool_t)1); } } } } 
display_string(BGl_string6141z00zzdotnet_asz00, BgL_outz00_70); 
WRITE_CHAR(((unsigned char)'\n'), BgL_outz00_70); 
display_string(BGl_string6186z00zzdotnet_asz00, BgL_outz00_70); 
BGl_displayzd22zd2zz__r4_output_6_10_3z00(BgL_defz00_1594, BgL_outz00_70); 
return 
WRITE_CHAR(((unsigned char)'\n'), BgL_outz00_70);}  else 
{ /* ./DotNet/as.scm 319 */
goto BgL_tagzd29657zd2_1608;} } }  else 
{ /* ./DotNet/as.scm 319 */
goto BgL_tagzd29657zd2_1608;} }  else 
{ /* ./DotNet/as.scm 319 */
bool_t BgL_test4438z00_1704;
{ /* ./DotNet/as.scm 319 */
obj_t BgL_auxz00_5155;obj_t BgL_auxz00_5153;
BgL_auxz00_5155 = 
CNST_TABLE_REF(((long)51)); 
BgL_auxz00_5153 = 
CAR(BgL_iz00_74); 
BgL_test4438z00_1704 = 
(BgL_auxz00_5153==BgL_auxz00_5155); } 
if(BgL_test4438z00_1704)
{ /* ./DotNet/as.scm 319 */
bool_t BgL_test4439z00_1705;
BgL_test4439z00_1705 = 
NULLP(BgL_cdrzd212732zd2_1696); 
if(BgL_test4439z00_1705)
{ /* ./DotNet/as.scm 319 */
display_string(BGl_string6170z00zzdotnet_asz00, BgL_outz00_70); 
return 
WRITE_CHAR(((unsigned char)'\n'), BgL_outz00_70);}  else 
{ /* ./DotNet/as.scm 319 */
goto BgL_tagzd29657zd2_1608;} }  else 
{ /* ./DotNet/as.scm 319 */
bool_t BgL_test4446z00_1708;
{ /* ./DotNet/as.scm 319 */
obj_t BgL_auxz00_5165;obj_t BgL_auxz00_5163;
BgL_auxz00_5165 = 
CNST_TABLE_REF(((long)52)); 
BgL_auxz00_5163 = 
CAR(BgL_iz00_74); 
BgL_test4446z00_1708 = 
(BgL_auxz00_5163==BgL_auxz00_5165); } 
if(BgL_test4446z00_1708)
{ /* ./DotNet/as.scm 319 */
bool_t BgL_test4447z00_1709;
BgL_test4447z00_1709 = 
PAIRP(BgL_cdrzd212732zd2_1696); 
if(BgL_test4447z00_1709)
{ /* ./DotNet/as.scm 319 */
bool_t BgL_test4448z00_1710;
{ /* ./DotNet/as.scm 319 */
obj_t BgL_auxz00_5171;
BgL_auxz00_5171 = 
CDR(BgL_cdrzd212732zd2_1696); 
BgL_test4448z00_1710 = 
NULLP(BgL_auxz00_5171); } 
if(BgL_test4448z00_1710)
{ /* ./DotNet/as.scm 319 */
obj_t BgL_arg4450z00_1711;
BgL_arg4450z00_1711 = 
CAR(BgL_cdrzd212732zd2_1696); 
BgL_vz00_1599 = BgL_arg4450z00_1711; 
display_string(BGl_string6178z00zzdotnet_asz00, BgL_outz00_70); 
BGl_displayzd22zd2zz__r4_output_6_10_3z00(BgL_vz00_1599, BgL_outz00_70); 
return 
WRITE_CHAR(((unsigned char)'\n'), BgL_outz00_70);}  else 
{ /* ./DotNet/as.scm 319 */
goto BgL_tagzd29657zd2_1608;} }  else 
{ /* ./DotNet/as.scm 319 */
goto BgL_tagzd29657zd2_1608;} }  else 
{ /* ./DotNet/as.scm 319 */
bool_t BgL_test4460z00_1713;
{ /* ./DotNet/as.scm 319 */
obj_t BgL_auxz00_5181;obj_t BgL_auxz00_5179;
BgL_auxz00_5181 = 
CNST_TABLE_REF(((long)53)); 
BgL_auxz00_5179 = 
CAR(BgL_iz00_74); 
BgL_test4460z00_1713 = 
(BgL_auxz00_5179==BgL_auxz00_5181); } 
if(BgL_test4460z00_1713)
{ /* ./DotNet/as.scm 319 */
bool_t BgL_test4461z00_1714;
{ /* ./DotNet/as.scm 319 */
obj_t BgL_auxz00_5185;
BgL_auxz00_5185 = 
CDR(BgL_iz00_74); 
BgL_test4461z00_1714 = 
NULLP(BgL_auxz00_5185); } 
if(BgL_test4461z00_1714)
{ /* ./DotNet/as.scm 319 */
display_string(BGl_string6173z00zzdotnet_asz00, BgL_outz00_70); 
{ /* ./DotNet/as.scm 518 */
obj_t BgL_arg4819z00_1848;
BgL_arg4819z00_1848 = 
BGl_varz00zzdotnet_asz00(
CNST_TABLE_REF(((long)30)), BgL_paramsz00_72, BgL_localsz00_73); 
BGl_displayzd22zd2zz__r4_output_6_10_3z00(BgL_arg4819z00_1848, BgL_outz00_70); } 
WRITE_CHAR(((unsigned char)'\n'), BgL_outz00_70); 
display_string(BGl_string6173z00zzdotnet_asz00, BgL_outz00_70); 
{ /* ./DotNet/as.scm 519 */
obj_t BgL_arg4825z00_1850;
BgL_arg4825z00_1850 = 
BGl_varz00zzdotnet_asz00(
CNST_TABLE_REF(((long)31)), BgL_paramsz00_72, BgL_localsz00_73); 
BGl_displayzd22zd2zz__r4_output_6_10_3z00(BgL_arg4825z00_1850, BgL_outz00_70); } 
WRITE_CHAR(((unsigned char)'\n'), BgL_outz00_70); 
display_string(BGl_string6168z00zzdotnet_asz00, BgL_outz00_70); 
{ /* ./DotNet/as.scm 520 */
obj_t BgL_arg4831z00_1852;
BgL_arg4831z00_1852 = 
BGl_varz00zzdotnet_asz00(
CNST_TABLE_REF(((long)30)), BgL_paramsz00_72, BgL_localsz00_73); 
BGl_displayzd22zd2zz__r4_output_6_10_3z00(BgL_arg4831z00_1852, BgL_outz00_70); } 
WRITE_CHAR(((unsigned char)'\n'), BgL_outz00_70); 
display_string(BGl_string6168z00zzdotnet_asz00, BgL_outz00_70); 
{ /* ./DotNet/as.scm 521 */
obj_t BgL_arg4837z00_1854;
BgL_arg4837z00_1854 = 
BGl_varz00zzdotnet_asz00(
CNST_TABLE_REF(((long)31)), BgL_paramsz00_72, BgL_localsz00_73); 
BGl_displayzd22zd2zz__r4_output_6_10_3z00(BgL_arg4837z00_1854, BgL_outz00_70); } 
return 
WRITE_CHAR(((unsigned char)'\n'), BgL_outz00_70);}  else 
{ /* ./DotNet/as.scm 319 */
goto BgL_tagzd29657zd2_1608;} }  else 
{ /* ./DotNet/as.scm 319 */
bool_t BgL_test4468z00_1716;
{ /* ./DotNet/as.scm 319 */
obj_t BgL_auxz00_5211;obj_t BgL_auxz00_5209;
BgL_auxz00_5211 = 
CNST_TABLE_REF(((long)54)); 
BgL_auxz00_5209 = 
CAR(BgL_iz00_74); 
BgL_test4468z00_1716 = 
(BgL_auxz00_5209==BgL_auxz00_5211); } 
if(BgL_test4468z00_1716)
{ /* ./DotNet/as.scm 319 */
bool_t BgL_test4469z00_1717;
{ /* ./DotNet/as.scm 319 */
obj_t BgL_auxz00_5215;
BgL_auxz00_5215 = 
CDR(BgL_iz00_74); 
BgL_test4469z00_1717 = 
NULLP(BgL_auxz00_5215); } 
if(BgL_test4469z00_1717)
{ /* ./DotNet/as.scm 319 */
display_string(BGl_string6244z00zzdotnet_asz00, BgL_outz00_70); 
return 
WRITE_CHAR(((unsigned char)'\n'), BgL_outz00_70);}  else 
{ /* ./DotNet/as.scm 319 */
goto BgL_tagzd29657zd2_1608;} }  else 
{ /* ./DotNet/as.scm 319 */
obj_t BgL_cdrzd212847zd2_1719;
BgL_cdrzd212847zd2_1719 = 
CDR(BgL_iz00_74); 
{ /* ./DotNet/as.scm 319 */
bool_t BgL_test4477z00_1720;
{ /* ./DotNet/as.scm 319 */
obj_t BgL_auxz00_5224;obj_t BgL_auxz00_5222;
BgL_auxz00_5224 = 
CNST_TABLE_REF(((long)55)); 
BgL_auxz00_5222 = 
CAR(BgL_iz00_74); 
BgL_test4477z00_1720 = 
(BgL_auxz00_5222==BgL_auxz00_5224); } 
if(BgL_test4477z00_1720)
{ /* ./DotNet/as.scm 319 */
bool_t BgL_test4478z00_1721;
BgL_test4478z00_1721 = 
PAIRP(BgL_cdrzd212847zd2_1719); 
if(BgL_test4478z00_1721)
{ /* ./DotNet/as.scm 319 */
bool_t BgL_test4479z00_1722;
{ /* ./DotNet/as.scm 319 */
obj_t BgL_auxz00_5230;
BgL_auxz00_5230 = 
CDR(BgL_cdrzd212847zd2_1719); 
BgL_test4479z00_1722 = 
NULLP(BgL_auxz00_5230); } 
if(BgL_test4479z00_1722)
{ /* ./DotNet/as.scm 319 */
obj_t BgL_arg4481z00_1723;
BgL_arg4481z00_1723 = 
CAR(BgL_cdrzd212847zd2_1719); 
BgL_adz00_1603 = BgL_arg4481z00_1723; 
display_string(BGl_string6245z00zzdotnet_asz00, BgL_outz00_70); 
BGl_displayzd22zd2zz__r4_output_6_10_3z00(BgL_adz00_1603, BgL_outz00_70); 
display_string(BGl_string6246z00zzdotnet_asz00, BgL_outz00_70); 
return 
WRITE_CHAR(((unsigned char)'\n'), BgL_outz00_70);}  else 
{ /* ./DotNet/as.scm 319 */
goto BgL_tagzd29657zd2_1608;} }  else 
{ /* ./DotNet/as.scm 319 */
goto BgL_tagzd29657zd2_1608;} }  else 
{ /* ./DotNet/as.scm 319 */
bool_t BgL_test4491z00_1726;
{ /* ./DotNet/as.scm 319 */
obj_t BgL_auxz00_5241;obj_t BgL_auxz00_5239;
BgL_auxz00_5241 = 
CNST_TABLE_REF(((long)56)); 
BgL_auxz00_5239 = 
CAR(BgL_iz00_74); 
BgL_test4491z00_1726 = 
(BgL_auxz00_5239==BgL_auxz00_5241); } 
if(BgL_test4491z00_1726)
{ /* ./DotNet/as.scm 319 */
bool_t BgL_test4492z00_1727;
BgL_test4492z00_1727 = 
PAIRP(BgL_cdrzd212847zd2_1719); 
if(BgL_test4492z00_1727)
{ /* ./DotNet/as.scm 319 */
bool_t BgL_test4493z00_1728;
{ /* ./DotNet/as.scm 319 */
obj_t BgL_auxz00_5247;
BgL_auxz00_5247 = 
CDR(BgL_cdrzd212847zd2_1719); 
BgL_test4493z00_1728 = 
NULLP(BgL_auxz00_5247); } 
if(BgL_test4493z00_1728)
{ /* ./DotNet/as.scm 319 */
obj_t BgL_arg4495z00_1729;
BgL_arg4495z00_1729 = 
CAR(BgL_cdrzd212847zd2_1719); 
BgL_excz00_1605 = BgL_arg4495z00_1729; 
display_string(BGl_string6247z00zzdotnet_asz00, BgL_outz00_70); 
{ /* ./DotNet/as.scm 527 */
obj_t BgL_arg4849z00_1858;
BgL_arg4849z00_1858 = 
BGl_classnamez00zzdotnet_asz00(BgL_declsz00_71, BgL_excz00_1605); 
BGl_displayzd22zd2zz__r4_output_6_10_3z00(BgL_arg4849z00_1858, BgL_outz00_70); } 
display_string(BGl_string6107z00zzdotnet_asz00, BgL_outz00_70); 
return 
WRITE_CHAR(((unsigned char)'\n'), BgL_outz00_70);}  else 
{ /* ./DotNet/as.scm 319 */
goto BgL_tagzd29657zd2_1608;} }  else 
{ /* ./DotNet/as.scm 319 */
goto BgL_tagzd29657zd2_1608;} }  else 
{ /* ./DotNet/as.scm 319 */
bool_t BgL_test4505z00_1731;
{ /* ./DotNet/as.scm 319 */
obj_t BgL_auxz00_5259;obj_t BgL_auxz00_5257;
BgL_auxz00_5259 = 
CNST_TABLE_REF(((long)57)); 
BgL_auxz00_5257 = 
CAR(BgL_iz00_74); 
BgL_test4505z00_1731 = 
(BgL_auxz00_5257==BgL_auxz00_5259); } 
if(BgL_test4505z00_1731)
{ /* ./DotNet/as.scm 319 */
return 
CNST_TABLE_REF(((long)17));}  else 
{ /* ./DotNet/as.scm 319 */
goto BgL_tagzd29657zd2_1608;} } } } } } } } } } } } } } } } } } } } } } } } } } } } } } } } } } }  else 
{ /* ./DotNet/as.scm 319 */
goto BgL_tagzd29657zd2_1608;} } } } }  else 
{ /* ./DotNet/as.scm 319 */
bool_t BgL_test3036z00_1103;
{ /* ./DotNet/as.scm 319 */
obj_t BgL_auxz00_5266;obj_t BgL_auxz00_5264;
BgL_auxz00_5266 = 
CNST_TABLE_REF(((long)59)); 
BgL_auxz00_5264 = 
CAR(BgL_iz00_74); 
BgL_test3036z00_1103 = 
(BgL_auxz00_5264==BgL_auxz00_5266); } 
if(BgL_test3036z00_1103)
{ /* ./DotNet/as.scm 319 */
bool_t BgL_test3037z00_1104;
{ /* ./DotNet/as.scm 319 */
obj_t BgL_auxz00_5270;
BgL_auxz00_5270 = 
CDR(BgL_iz00_74); 
BgL_test3037z00_1104 = 
NULLP(BgL_auxz00_5270); } 
if(BgL_test3037z00_1104)
{ /* ./DotNet/as.scm 319 */
display_string(BGl_string6188z00zzdotnet_asz00, BgL_outz00_70); 
return 
WRITE_CHAR(((unsigned char)'\n'), BgL_outz00_70);}  else 
{ /* ./DotNet/as.scm 319 */
goto BgL_tagzd22873zd2_1097;} }  else 
{ /* ./DotNet/as.scm 319 */
bool_t BgL_test3044z00_1106;
{ /* ./DotNet/as.scm 319 */
obj_t BgL_auxz00_5278;obj_t BgL_auxz00_5276;
BgL_auxz00_5278 = 
CNST_TABLE_REF(((long)60)); 
BgL_auxz00_5276 = 
CAR(BgL_iz00_74); 
BgL_test3044z00_1106 = 
(BgL_auxz00_5276==BgL_auxz00_5278); } 
if(BgL_test3044z00_1106)
{ /* ./DotNet/as.scm 319 */
bool_t BgL_test3045z00_1107;
{ /* ./DotNet/as.scm 319 */
obj_t BgL_auxz00_5282;
BgL_auxz00_5282 = 
CDR(BgL_iz00_74); 
BgL_test3045z00_1107 = 
NULLP(BgL_auxz00_5282); } 
if(BgL_test3045z00_1107)
{ /* ./DotNet/as.scm 319 */
display_string(BGl_string6189z00zzdotnet_asz00, BgL_outz00_70); 
return 
WRITE_CHAR(((unsigned char)'\n'), BgL_outz00_70);}  else 
{ /* ./DotNet/as.scm 319 */
goto BgL_tagzd22873zd2_1097;} }  else 
{ /* ./DotNet/as.scm 319 */
bool_t BgL_test3052z00_1109;
{ /* ./DotNet/as.scm 319 */
obj_t BgL_auxz00_5290;obj_t BgL_auxz00_5288;
BgL_auxz00_5290 = 
CNST_TABLE_REF(((long)61)); 
BgL_auxz00_5288 = 
CAR(BgL_iz00_74); 
BgL_test3052z00_1109 = 
(BgL_auxz00_5288==BgL_auxz00_5290); } 
if(BgL_test3052z00_1109)
{ /* ./DotNet/as.scm 319 */
bool_t BgL_test3053z00_1110;
{ /* ./DotNet/as.scm 319 */
obj_t BgL_auxz00_5294;
BgL_auxz00_5294 = 
CDR(BgL_iz00_74); 
BgL_test3053z00_1110 = 
NULLP(BgL_auxz00_5294); } 
if(BgL_test3053z00_1110)
{ /* ./DotNet/as.scm 319 */
display_string(BGl_string6190z00zzdotnet_asz00, BgL_outz00_70); 
return 
WRITE_CHAR(((unsigned char)'\n'), BgL_outz00_70);}  else 
{ /* ./DotNet/as.scm 319 */
goto BgL_tagzd22873zd2_1097;} }  else 
{ /* ./DotNet/as.scm 319 */
bool_t BgL_test3060z00_1112;
{ /* ./DotNet/as.scm 319 */
obj_t BgL_auxz00_5302;obj_t BgL_auxz00_5300;
BgL_auxz00_5302 = 
CNST_TABLE_REF(((long)62)); 
BgL_auxz00_5300 = 
CAR(BgL_iz00_74); 
BgL_test3060z00_1112 = 
(BgL_auxz00_5300==BgL_auxz00_5302); } 
if(BgL_test3060z00_1112)
{ /* ./DotNet/as.scm 319 */
bool_t BgL_test3061z00_1113;
{ /* ./DotNet/as.scm 319 */
obj_t BgL_auxz00_5306;
BgL_auxz00_5306 = 
CDR(BgL_iz00_74); 
BgL_test3061z00_1113 = 
NULLP(BgL_auxz00_5306); } 
if(BgL_test3061z00_1113)
{ /* ./DotNet/as.scm 319 */
display_string(BGl_string6190z00zzdotnet_asz00, BgL_outz00_70); 
return 
WRITE_CHAR(((unsigned char)'\n'), BgL_outz00_70);}  else 
{ /* ./DotNet/as.scm 319 */
goto BgL_tagzd22873zd2_1097;} }  else 
{ /* ./DotNet/as.scm 319 */
bool_t BgL_test3068z00_1115;
{ /* ./DotNet/as.scm 319 */
obj_t BgL_auxz00_5314;obj_t BgL_auxz00_5312;
BgL_auxz00_5314 = 
CNST_TABLE_REF(((long)63)); 
BgL_auxz00_5312 = 
CAR(BgL_iz00_74); 
BgL_test3068z00_1115 = 
(BgL_auxz00_5312==BgL_auxz00_5314); } 
if(BgL_test3068z00_1115)
{ /* ./DotNet/as.scm 319 */
bool_t BgL_test3069z00_1116;
{ /* ./DotNet/as.scm 319 */
obj_t BgL_auxz00_5318;
BgL_auxz00_5318 = 
CDR(BgL_iz00_74); 
BgL_test3069z00_1116 = 
NULLP(BgL_auxz00_5318); } 
if(BgL_test3069z00_1116)
{ /* ./DotNet/as.scm 319 */
display_string(BGl_string6190z00zzdotnet_asz00, BgL_outz00_70); 
return 
WRITE_CHAR(((unsigned char)'\n'), BgL_outz00_70);}  else 
{ /* ./DotNet/as.scm 319 */
goto BgL_tagzd22873zd2_1097;} }  else 
{ /* ./DotNet/as.scm 319 */
bool_t BgL_test3076z00_1118;
{ /* ./DotNet/as.scm 319 */
obj_t BgL_auxz00_5326;obj_t BgL_auxz00_5324;
BgL_auxz00_5326 = 
CNST_TABLE_REF(((long)64)); 
BgL_auxz00_5324 = 
CAR(BgL_iz00_74); 
BgL_test3076z00_1118 = 
(BgL_auxz00_5324==BgL_auxz00_5326); } 
if(BgL_test3076z00_1118)
{ /* ./DotNet/as.scm 319 */
bool_t BgL_test3077z00_1119;
{ /* ./DotNet/as.scm 319 */
obj_t BgL_auxz00_5330;
BgL_auxz00_5330 = 
CDR(BgL_iz00_74); 
BgL_test3077z00_1119 = 
NULLP(BgL_auxz00_5330); } 
if(BgL_test3077z00_1119)
{ /* ./DotNet/as.scm 319 */
display_string(BGl_string6191z00zzdotnet_asz00, BgL_outz00_70); 
return 
WRITE_CHAR(((unsigned char)'\n'), BgL_outz00_70);}  else 
{ /* ./DotNet/as.scm 319 */
goto BgL_tagzd22873zd2_1097;} }  else 
{ /* ./DotNet/as.scm 319 */
bool_t BgL_test3084z00_1121;
{ /* ./DotNet/as.scm 319 */
obj_t BgL_auxz00_5338;obj_t BgL_auxz00_5336;
BgL_auxz00_5338 = 
CNST_TABLE_REF(((long)65)); 
BgL_auxz00_5336 = 
CAR(BgL_iz00_74); 
BgL_test3084z00_1121 = 
(BgL_auxz00_5336==BgL_auxz00_5338); } 
if(BgL_test3084z00_1121)
{ /* ./DotNet/as.scm 319 */
bool_t BgL_test3085z00_1122;
{ /* ./DotNet/as.scm 319 */
obj_t BgL_auxz00_5342;
BgL_auxz00_5342 = 
CDR(BgL_iz00_74); 
BgL_test3085z00_1122 = 
NULLP(BgL_auxz00_5342); } 
if(BgL_test3085z00_1122)
{ /* ./DotNet/as.scm 319 */
display_string(BGl_string6192z00zzdotnet_asz00, BgL_outz00_70); 
return 
WRITE_CHAR(((unsigned char)'\n'), BgL_outz00_70);}  else 
{ /* ./DotNet/as.scm 319 */
goto BgL_tagzd22873zd2_1097;} }  else 
{ /* ./DotNet/as.scm 319 */
bool_t BgL_test3092z00_1124;
{ /* ./DotNet/as.scm 319 */
obj_t BgL_auxz00_5350;obj_t BgL_auxz00_5348;
BgL_auxz00_5350 = 
CNST_TABLE_REF(((long)66)); 
BgL_auxz00_5348 = 
CAR(BgL_iz00_74); 
BgL_test3092z00_1124 = 
(BgL_auxz00_5348==BgL_auxz00_5350); } 
if(BgL_test3092z00_1124)
{ /* ./DotNet/as.scm 319 */
bool_t BgL_test3093z00_1125;
{ /* ./DotNet/as.scm 319 */
obj_t BgL_auxz00_5354;
BgL_auxz00_5354 = 
CDR(BgL_iz00_74); 
BgL_test3093z00_1125 = 
NULLP(BgL_auxz00_5354); } 
if(BgL_test3093z00_1125)
{ /* ./DotNet/as.scm 319 */
display_string(BGl_string6193z00zzdotnet_asz00, BgL_outz00_70); 
return 
WRITE_CHAR(((unsigned char)'\n'), BgL_outz00_70);}  else 
{ /* ./DotNet/as.scm 319 */
goto BgL_tagzd22873zd2_1097;} }  else 
{ /* ./DotNet/as.scm 319 */
bool_t BgL_test3100z00_1127;
{ /* ./DotNet/as.scm 319 */
obj_t BgL_auxz00_5362;obj_t BgL_auxz00_5360;
BgL_auxz00_5362 = 
CNST_TABLE_REF(((long)67)); 
BgL_auxz00_5360 = 
CAR(BgL_iz00_74); 
BgL_test3100z00_1127 = 
(BgL_auxz00_5360==BgL_auxz00_5362); } 
if(BgL_test3100z00_1127)
{ /* ./DotNet/as.scm 319 */
bool_t BgL_test3101z00_1128;
{ /* ./DotNet/as.scm 319 */
obj_t BgL_auxz00_5366;
BgL_auxz00_5366 = 
CDR(BgL_iz00_74); 
BgL_test3101z00_1128 = 
NULLP(BgL_auxz00_5366); } 
if(BgL_test3101z00_1128)
{ /* ./DotNet/as.scm 319 */
display_string(BGl_string6194z00zzdotnet_asz00, BgL_outz00_70); 
return 
WRITE_CHAR(((unsigned char)'\n'), BgL_outz00_70);}  else 
{ /* ./DotNet/as.scm 319 */
goto BgL_tagzd22873zd2_1097;} }  else 
{ /* ./DotNet/as.scm 319 */
bool_t BgL_test3108z00_1130;
{ /* ./DotNet/as.scm 319 */
obj_t BgL_auxz00_5374;obj_t BgL_auxz00_5372;
BgL_auxz00_5374 = 
CNST_TABLE_REF(((long)68)); 
BgL_auxz00_5372 = 
CAR(BgL_iz00_74); 
BgL_test3108z00_1130 = 
(BgL_auxz00_5372==BgL_auxz00_5374); } 
if(BgL_test3108z00_1130)
{ /* ./DotNet/as.scm 319 */
bool_t BgL_test3109z00_1131;
{ /* ./DotNet/as.scm 319 */
obj_t BgL_auxz00_5378;
BgL_auxz00_5378 = 
CDR(BgL_iz00_74); 
BgL_test3109z00_1131 = 
NULLP(BgL_auxz00_5378); } 
if(BgL_test3109z00_1131)
{ /* ./DotNet/as.scm 319 */
display_string(BGl_string6195z00zzdotnet_asz00, BgL_outz00_70); 
return 
WRITE_CHAR(((unsigned char)'\n'), BgL_outz00_70);}  else 
{ /* ./DotNet/as.scm 319 */
goto BgL_tagzd22873zd2_1097;} }  else 
{ /* ./DotNet/as.scm 319 */
bool_t BgL_test3116z00_1133;
{ /* ./DotNet/as.scm 319 */
obj_t BgL_auxz00_5386;obj_t BgL_auxz00_5384;
BgL_auxz00_5386 = 
CNST_TABLE_REF(((long)69)); 
BgL_auxz00_5384 = 
CAR(BgL_iz00_74); 
BgL_test3116z00_1133 = 
(BgL_auxz00_5384==BgL_auxz00_5386); } 
if(BgL_test3116z00_1133)
{ /* ./DotNet/as.scm 319 */
bool_t BgL_test3117z00_1134;
{ /* ./DotNet/as.scm 319 */
obj_t BgL_auxz00_5390;
BgL_auxz00_5390 = 
CDR(BgL_iz00_74); 
BgL_test3117z00_1134 = 
NULLP(BgL_auxz00_5390); } 
if(BgL_test3117z00_1134)
{ /* ./DotNet/as.scm 319 */
display_string(BGl_string6196z00zzdotnet_asz00, BgL_outz00_70); 
return 
WRITE_CHAR(((unsigned char)'\n'), BgL_outz00_70);}  else 
{ /* ./DotNet/as.scm 319 */
goto BgL_tagzd22873zd2_1097;} }  else 
{ /* ./DotNet/as.scm 319 */
bool_t BgL_test3124z00_1136;
{ /* ./DotNet/as.scm 319 */
obj_t BgL_auxz00_5398;obj_t BgL_auxz00_5396;
BgL_auxz00_5398 = 
CNST_TABLE_REF(((long)70)); 
BgL_auxz00_5396 = 
CAR(BgL_iz00_74); 
BgL_test3124z00_1136 = 
(BgL_auxz00_5396==BgL_auxz00_5398); } 
if(BgL_test3124z00_1136)
{ /* ./DotNet/as.scm 319 */
bool_t BgL_test3125z00_1137;
{ /* ./DotNet/as.scm 319 */
obj_t BgL_auxz00_5402;
BgL_auxz00_5402 = 
CDR(BgL_iz00_74); 
BgL_test3125z00_1137 = 
NULLP(BgL_auxz00_5402); } 
if(BgL_test3125z00_1137)
{ /* ./DotNet/as.scm 319 */
display_string(BGl_string6197z00zzdotnet_asz00, BgL_outz00_70); 
return 
WRITE_CHAR(((unsigned char)'\n'), BgL_outz00_70);}  else 
{ /* ./DotNet/as.scm 319 */
goto BgL_tagzd22873zd2_1097;} }  else 
{ /* ./DotNet/as.scm 319 */
bool_t BgL_test3132z00_1139;
{ /* ./DotNet/as.scm 319 */
obj_t BgL_auxz00_5410;obj_t BgL_auxz00_5408;
BgL_auxz00_5410 = 
CNST_TABLE_REF(((long)71)); 
BgL_auxz00_5408 = 
CAR(BgL_iz00_74); 
BgL_test3132z00_1139 = 
(BgL_auxz00_5408==BgL_auxz00_5410); } 
if(BgL_test3132z00_1139)
{ /* ./DotNet/as.scm 319 */
bool_t BgL_test3133z00_1140;
{ /* ./DotNet/as.scm 319 */
obj_t BgL_auxz00_5414;
BgL_auxz00_5414 = 
CDR(BgL_iz00_74); 
BgL_test3133z00_1140 = 
NULLP(BgL_auxz00_5414); } 
if(BgL_test3133z00_1140)
{ /* ./DotNet/as.scm 319 */
display_string(BGl_string6198z00zzdotnet_asz00, BgL_outz00_70); 
return 
WRITE_CHAR(((unsigned char)'\n'), BgL_outz00_70);}  else 
{ /* ./DotNet/as.scm 319 */
goto BgL_tagzd22873zd2_1097;} }  else 
{ /* ./DotNet/as.scm 319 */
bool_t BgL_test3140z00_1142;
{ /* ./DotNet/as.scm 319 */
obj_t BgL_auxz00_5422;obj_t BgL_auxz00_5420;
BgL_auxz00_5422 = 
CNST_TABLE_REF(((long)72)); 
BgL_auxz00_5420 = 
CAR(BgL_iz00_74); 
BgL_test3140z00_1142 = 
(BgL_auxz00_5420==BgL_auxz00_5422); } 
if(BgL_test3140z00_1142)
{ /* ./DotNet/as.scm 319 */
bool_t BgL_test3141z00_1143;
{ /* ./DotNet/as.scm 319 */
obj_t BgL_auxz00_5426;
BgL_auxz00_5426 = 
CDR(BgL_iz00_74); 
BgL_test3141z00_1143 = 
NULLP(BgL_auxz00_5426); } 
if(BgL_test3141z00_1143)
{ /* ./DotNet/as.scm 319 */
display_string(BGl_string6198z00zzdotnet_asz00, BgL_outz00_70); 
return 
WRITE_CHAR(((unsigned char)'\n'), BgL_outz00_70);}  else 
{ /* ./DotNet/as.scm 319 */
goto BgL_tagzd22873zd2_1097;} }  else 
{ /* ./DotNet/as.scm 319 */
bool_t BgL_test3148z00_1145;
{ /* ./DotNet/as.scm 319 */
obj_t BgL_auxz00_5434;obj_t BgL_auxz00_5432;
BgL_auxz00_5434 = 
CNST_TABLE_REF(((long)73)); 
BgL_auxz00_5432 = 
CAR(BgL_iz00_74); 
BgL_test3148z00_1145 = 
(BgL_auxz00_5432==BgL_auxz00_5434); } 
if(BgL_test3148z00_1145)
{ /* ./DotNet/as.scm 319 */
bool_t BgL_test3149z00_1146;
{ /* ./DotNet/as.scm 319 */
obj_t BgL_auxz00_5438;
BgL_auxz00_5438 = 
CDR(BgL_iz00_74); 
BgL_test3149z00_1146 = 
NULLP(BgL_auxz00_5438); } 
if(BgL_test3149z00_1146)
{ /* ./DotNet/as.scm 319 */
display_string(BGl_string6198z00zzdotnet_asz00, BgL_outz00_70); 
return 
WRITE_CHAR(((unsigned char)'\n'), BgL_outz00_70);}  else 
{ /* ./DotNet/as.scm 319 */
goto BgL_tagzd22873zd2_1097;} }  else 
{ /* ./DotNet/as.scm 319 */
obj_t BgL_cdrzd25553zd2_1148;
BgL_cdrzd25553zd2_1148 = 
CDR(BgL_iz00_74); 
{ /* ./DotNet/as.scm 319 */
bool_t BgL_test3156z00_1149;
{ /* ./DotNet/as.scm 319 */
obj_t BgL_auxz00_5447;obj_t BgL_auxz00_5445;
BgL_auxz00_5447 = 
CNST_TABLE_REF(((long)74)); 
BgL_auxz00_5445 = 
CAR(BgL_iz00_74); 
BgL_test3156z00_1149 = 
(BgL_auxz00_5445==BgL_auxz00_5447); } 
if(BgL_test3156z00_1149)
{ /* ./DotNet/as.scm 319 */
bool_t BgL_test3157z00_1150;
BgL_test3157z00_1150 = 
PAIRP(BgL_cdrzd25553zd2_1148); 
if(BgL_test3157z00_1150)
{ /* ./DotNet/as.scm 319 */
bool_t BgL_test3158z00_1151;
{ /* ./DotNet/as.scm 319 */
obj_t BgL_auxz00_5453;
BgL_auxz00_5453 = 
CDR(BgL_cdrzd25553zd2_1148); 
BgL_test3158z00_1151 = 
NULLP(BgL_auxz00_5453); } 
if(BgL_test3158z00_1151)
{ /* ./DotNet/as.scm 319 */
obj_t BgL_arg3160z00_1152;
BgL_arg3160z00_1152 = 
CAR(BgL_cdrzd25553zd2_1148); 
BgL_labz00_1025 = BgL_arg3160z00_1152; 
display_string(BGl_string6199z00zzdotnet_asz00, BgL_outz00_70); 
BGl_displayzd22zd2zz__r4_output_6_10_3z00(BgL_labz00_1025, BgL_outz00_70); 
return 
WRITE_CHAR(((unsigned char)'\n'), BgL_outz00_70);}  else 
{ /* ./DotNet/as.scm 319 */
goto BgL_tagzd22873zd2_1097;} }  else 
{ /* ./DotNet/as.scm 319 */
goto BgL_tagzd22873zd2_1097;} }  else 
{ /* ./DotNet/as.scm 319 */
bool_t BgL_test3170z00_1155;
{ /* ./DotNet/as.scm 319 */
obj_t BgL_auxz00_5463;obj_t BgL_auxz00_5461;
BgL_auxz00_5463 = 
CNST_TABLE_REF(((long)75)); 
BgL_auxz00_5461 = 
CAR(BgL_iz00_74); 
BgL_test3170z00_1155 = 
(BgL_auxz00_5461==BgL_auxz00_5463); } 
if(BgL_test3170z00_1155)
{ /* ./DotNet/as.scm 319 */
bool_t BgL_test3171z00_1156;
BgL_test3171z00_1156 = 
PAIRP(BgL_cdrzd25553zd2_1148); 
if(BgL_test3171z00_1156)
{ /* ./DotNet/as.scm 319 */
bool_t BgL_test3172z00_1157;
{ /* ./DotNet/as.scm 319 */
obj_t BgL_auxz00_5469;
BgL_auxz00_5469 = 
CDR(BgL_cdrzd25553zd2_1148); 
BgL_test3172z00_1157 = 
NULLP(BgL_auxz00_5469); } 
if(BgL_test3172z00_1157)
{ /* ./DotNet/as.scm 319 */
obj_t BgL_arg3174z00_1158;
BgL_arg3174z00_1158 = 
CAR(BgL_cdrzd25553zd2_1148); 
BgL_labz00_1027 = BgL_arg3174z00_1158; 
display_string(BGl_string6200z00zzdotnet_asz00, BgL_outz00_70); 
BGl_displayzd22zd2zz__r4_output_6_10_3z00(BgL_labz00_1027, BgL_outz00_70); 
return 
WRITE_CHAR(((unsigned char)'\n'), BgL_outz00_70);}  else 
{ /* ./DotNet/as.scm 319 */
goto BgL_tagzd22873zd2_1097;} }  else 
{ /* ./DotNet/as.scm 319 */
goto BgL_tagzd22873zd2_1097;} }  else 
{ /* ./DotNet/as.scm 319 */
obj_t BgL_cdrzd26069zd2_1160;
BgL_cdrzd26069zd2_1160 = 
CDR(BgL_iz00_74); 
{ /* ./DotNet/as.scm 319 */
bool_t BgL_test3184z00_1161;
{ /* ./DotNet/as.scm 319 */
obj_t BgL_auxz00_5480;obj_t BgL_auxz00_5478;
BgL_auxz00_5480 = 
CNST_TABLE_REF(((long)76)); 
BgL_auxz00_5478 = 
CAR(BgL_iz00_74); 
BgL_test3184z00_1161 = 
(BgL_auxz00_5478==BgL_auxz00_5480); } 
if(BgL_test3184z00_1161)
{ /* ./DotNet/as.scm 319 */
bool_t BgL_test3185z00_1162;
BgL_test3185z00_1162 = 
PAIRP(BgL_cdrzd26069zd2_1160); 
if(BgL_test3185z00_1162)
{ /* ./DotNet/as.scm 319 */
bool_t BgL_test3186z00_1163;
{ /* ./DotNet/as.scm 319 */
obj_t BgL_auxz00_5486;
BgL_auxz00_5486 = 
CDR(BgL_cdrzd26069zd2_1160); 
BgL_test3186z00_1163 = 
NULLP(BgL_auxz00_5486); } 
if(BgL_test3186z00_1163)
{ /* ./DotNet/as.scm 319 */
obj_t BgL_arg3188z00_1164;
BgL_arg3188z00_1164 = 
CAR(BgL_cdrzd26069zd2_1160); 
BgL_labz00_1029 = BgL_arg3188z00_1164; 
display_string(BGl_string6199z00zzdotnet_asz00, BgL_outz00_70); 
BGl_displayzd22zd2zz__r4_output_6_10_3z00(BgL_labz00_1029, BgL_outz00_70); 
return 
WRITE_CHAR(((unsigned char)'\n'), BgL_outz00_70);}  else 
{ /* ./DotNet/as.scm 319 */
goto BgL_tagzd22873zd2_1097;} }  else 
{ /* ./DotNet/as.scm 319 */
goto BgL_tagzd22873zd2_1097;} }  else 
{ /* ./DotNet/as.scm 319 */
bool_t BgL_test3198z00_1167;
{ /* ./DotNet/as.scm 319 */
obj_t BgL_auxz00_5496;obj_t BgL_auxz00_5494;
BgL_auxz00_5496 = 
CNST_TABLE_REF(((long)77)); 
BgL_auxz00_5494 = 
CAR(BgL_iz00_74); 
BgL_test3198z00_1167 = 
(BgL_auxz00_5494==BgL_auxz00_5496); } 
if(BgL_test3198z00_1167)
{ /* ./DotNet/as.scm 319 */
bool_t BgL_test3199z00_1168;
BgL_test3199z00_1168 = 
PAIRP(BgL_cdrzd26069zd2_1160); 
if(BgL_test3199z00_1168)
{ /* ./DotNet/as.scm 319 */
bool_t BgL_test3200z00_1169;
{ /* ./DotNet/as.scm 319 */
obj_t BgL_auxz00_5502;
BgL_auxz00_5502 = 
CDR(BgL_cdrzd26069zd2_1160); 
BgL_test3200z00_1169 = 
NULLP(BgL_auxz00_5502); } 
if(BgL_test3200z00_1169)
{ /* ./DotNet/as.scm 319 */
obj_t BgL_arg3202z00_1170;
BgL_arg3202z00_1170 = 
CAR(BgL_cdrzd26069zd2_1160); 
BgL_labz00_1031 = BgL_arg3202z00_1170; 
display_string(BGl_string6201z00zzdotnet_asz00, BgL_outz00_70); 
BGl_displayzd22zd2zz__r4_output_6_10_3z00(BgL_labz00_1031, BgL_outz00_70); 
return 
WRITE_CHAR(((unsigned char)'\n'), BgL_outz00_70);}  else 
{ /* ./DotNet/as.scm 319 */
goto BgL_tagzd22873zd2_1097;} }  else 
{ /* ./DotNet/as.scm 319 */
goto BgL_tagzd22873zd2_1097;} }  else 
{ /* ./DotNet/as.scm 319 */
obj_t BgL_cdrzd26545zd2_1172;
BgL_cdrzd26545zd2_1172 = 
CDR(BgL_iz00_74); 
{ /* ./DotNet/as.scm 319 */
bool_t BgL_test3212z00_1173;
{ /* ./DotNet/as.scm 319 */
obj_t BgL_auxz00_5513;obj_t BgL_auxz00_5511;
BgL_auxz00_5513 = 
CNST_TABLE_REF(((long)78)); 
BgL_auxz00_5511 = 
CAR(BgL_iz00_74); 
BgL_test3212z00_1173 = 
(BgL_auxz00_5511==BgL_auxz00_5513); } 
if(BgL_test3212z00_1173)
{ /* ./DotNet/as.scm 319 */
bool_t BgL_test3213z00_1174;
BgL_test3213z00_1174 = 
PAIRP(BgL_cdrzd26545zd2_1172); 
if(BgL_test3213z00_1174)
{ /* ./DotNet/as.scm 319 */
bool_t BgL_test3214z00_1175;
{ /* ./DotNet/as.scm 319 */
obj_t BgL_auxz00_5519;
BgL_auxz00_5519 = 
CDR(BgL_cdrzd26545zd2_1172); 
BgL_test3214z00_1175 = 
NULLP(BgL_auxz00_5519); } 
if(BgL_test3214z00_1175)
{ /* ./DotNet/as.scm 319 */
obj_t BgL_arg3216z00_1176;
BgL_arg3216z00_1176 = 
CAR(BgL_cdrzd26545zd2_1172); 
BgL_labz00_1033 = BgL_arg3216z00_1176; 
display_string(BGl_string6202z00zzdotnet_asz00, BgL_outz00_70); 
BGl_displayzd22zd2zz__r4_output_6_10_3z00(BgL_labz00_1033, BgL_outz00_70); 
return 
WRITE_CHAR(((unsigned char)'\n'), BgL_outz00_70);}  else 
{ /* ./DotNet/as.scm 319 */
goto BgL_tagzd22873zd2_1097;} }  else 
{ /* ./DotNet/as.scm 319 */
goto BgL_tagzd22873zd2_1097;} }  else 
{ /* ./DotNet/as.scm 319 */
bool_t BgL_test3226z00_1179;
{ /* ./DotNet/as.scm 319 */
obj_t BgL_auxz00_5529;obj_t BgL_auxz00_5527;
BgL_auxz00_5529 = 
CNST_TABLE_REF(((long)79)); 
BgL_auxz00_5527 = 
CAR(BgL_iz00_74); 
BgL_test3226z00_1179 = 
(BgL_auxz00_5527==BgL_auxz00_5529); } 
if(BgL_test3226z00_1179)
{ /* ./DotNet/as.scm 319 */
bool_t BgL_test3227z00_1180;
BgL_test3227z00_1180 = 
PAIRP(BgL_cdrzd26545zd2_1172); 
if(BgL_test3227z00_1180)
{ /* ./DotNet/as.scm 319 */
bool_t BgL_test3228z00_1181;
{ /* ./DotNet/as.scm 319 */
obj_t BgL_auxz00_5535;
BgL_auxz00_5535 = 
CDR(BgL_cdrzd26545zd2_1172); 
BgL_test3228z00_1181 = 
NULLP(BgL_auxz00_5535); } 
if(BgL_test3228z00_1181)
{ /* ./DotNet/as.scm 319 */
obj_t BgL_arg3230z00_1182;
BgL_arg3230z00_1182 = 
CAR(BgL_cdrzd26545zd2_1172); 
BgL_labz00_1035 = BgL_arg3230z00_1182; 
display_string(BGl_string6203z00zzdotnet_asz00, BgL_outz00_70); 
BGl_displayzd22zd2zz__r4_output_6_10_3z00(BgL_labz00_1035, BgL_outz00_70); 
return 
WRITE_CHAR(((unsigned char)'\n'), BgL_outz00_70);}  else 
{ /* ./DotNet/as.scm 319 */
goto BgL_tagzd22873zd2_1097;} }  else 
{ /* ./DotNet/as.scm 319 */
goto BgL_tagzd22873zd2_1097;} }  else 
{ /* ./DotNet/as.scm 319 */
obj_t BgL_cdrzd26981zd2_1184;
BgL_cdrzd26981zd2_1184 = 
CDR(BgL_iz00_74); 
{ /* ./DotNet/as.scm 319 */
bool_t BgL_test3240z00_1185;
{ /* ./DotNet/as.scm 319 */
obj_t BgL_auxz00_5546;obj_t BgL_auxz00_5544;
BgL_auxz00_5546 = 
CNST_TABLE_REF(((long)80)); 
BgL_auxz00_5544 = 
CAR(BgL_iz00_74); 
BgL_test3240z00_1185 = 
(BgL_auxz00_5544==BgL_auxz00_5546); } 
if(BgL_test3240z00_1185)
{ /* ./DotNet/as.scm 319 */
bool_t BgL_test3241z00_1186;
BgL_test3241z00_1186 = 
PAIRP(BgL_cdrzd26981zd2_1184); 
if(BgL_test3241z00_1186)
{ /* ./DotNet/as.scm 319 */
bool_t BgL_test3242z00_1187;
{ /* ./DotNet/as.scm 319 */
obj_t BgL_auxz00_5552;
BgL_auxz00_5552 = 
CDR(BgL_cdrzd26981zd2_1184); 
BgL_test3242z00_1187 = 
NULLP(BgL_auxz00_5552); } 
if(BgL_test3242z00_1187)
{ /* ./DotNet/as.scm 319 */
obj_t BgL_arg3245z00_1188;
BgL_arg3245z00_1188 = 
CAR(BgL_cdrzd26981zd2_1184); 
BgL_labz00_1037 = BgL_arg3245z00_1188; 
display_string(BGl_string6204z00zzdotnet_asz00, BgL_outz00_70); 
BGl_displayzd22zd2zz__r4_output_6_10_3z00(BgL_labz00_1037, BgL_outz00_70); 
return 
WRITE_CHAR(((unsigned char)'\n'), BgL_outz00_70);}  else 
{ /* ./DotNet/as.scm 319 */
goto BgL_tagzd22873zd2_1097;} }  else 
{ /* ./DotNet/as.scm 319 */
goto BgL_tagzd22873zd2_1097;} }  else 
{ /* ./DotNet/as.scm 319 */
bool_t BgL_test3255z00_1191;
{ /* ./DotNet/as.scm 319 */
obj_t BgL_auxz00_5562;obj_t BgL_auxz00_5560;
BgL_auxz00_5562 = 
CNST_TABLE_REF(((long)81)); 
BgL_auxz00_5560 = 
CAR(BgL_iz00_74); 
BgL_test3255z00_1191 = 
(BgL_auxz00_5560==BgL_auxz00_5562); } 
if(BgL_test3255z00_1191)
{ /* ./DotNet/as.scm 319 */
bool_t BgL_test3256z00_1192;
BgL_test3256z00_1192 = 
PAIRP(BgL_cdrzd26981zd2_1184); 
if(BgL_test3256z00_1192)
{ /* ./DotNet/as.scm 319 */
bool_t BgL_test3257z00_1193;
{ /* ./DotNet/as.scm 319 */
obj_t BgL_auxz00_5568;
BgL_auxz00_5568 = 
CDR(BgL_cdrzd26981zd2_1184); 
BgL_test3257z00_1193 = 
NULLP(BgL_auxz00_5568); } 
if(BgL_test3257z00_1193)
{ /* ./DotNet/as.scm 319 */
obj_t BgL_arg3259z00_1194;
BgL_arg3259z00_1194 = 
CAR(BgL_cdrzd26981zd2_1184); 
BgL_labz00_1039 = BgL_arg3259z00_1194; 
display_string(BGl_string6200z00zzdotnet_asz00, BgL_outz00_70); 
BGl_displayzd22zd2zz__r4_output_6_10_3z00(BgL_labz00_1039, BgL_outz00_70); 
return 
WRITE_CHAR(((unsigned char)'\n'), BgL_outz00_70);}  else 
{ /* ./DotNet/as.scm 319 */
goto BgL_tagzd22873zd2_1097;} }  else 
{ /* ./DotNet/as.scm 319 */
goto BgL_tagzd22873zd2_1097;} }  else 
{ /* ./DotNet/as.scm 319 */
obj_t BgL_cdrzd27377zd2_1196;
BgL_cdrzd27377zd2_1196 = 
CDR(BgL_iz00_74); 
{ /* ./DotNet/as.scm 319 */
bool_t BgL_test3269z00_1197;
{ /* ./DotNet/as.scm 319 */
obj_t BgL_auxz00_5579;obj_t BgL_auxz00_5577;
BgL_auxz00_5579 = 
CNST_TABLE_REF(((long)82)); 
BgL_auxz00_5577 = 
CAR(BgL_iz00_74); 
BgL_test3269z00_1197 = 
(BgL_auxz00_5577==BgL_auxz00_5579); } 
if(BgL_test3269z00_1197)
{ /* ./DotNet/as.scm 319 */
bool_t BgL_test3270z00_1198;
BgL_test3270z00_1198 = 
PAIRP(BgL_cdrzd27377zd2_1196); 
if(BgL_test3270z00_1198)
{ /* ./DotNet/as.scm 319 */
bool_t BgL_test3271z00_1199;
{ /* ./DotNet/as.scm 319 */
obj_t BgL_auxz00_5585;
BgL_auxz00_5585 = 
CDR(BgL_cdrzd27377zd2_1196); 
BgL_test3271z00_1199 = 
NULLP(BgL_auxz00_5585); } 
if(BgL_test3271z00_1199)
{ /* ./DotNet/as.scm 319 */
obj_t BgL_arg3273z00_1200;
BgL_arg3273z00_1200 = 
CAR(BgL_cdrzd27377zd2_1196); 
BgL_labz00_1041 = BgL_arg3273z00_1200; 
display_string(BGl_string6199z00zzdotnet_asz00, BgL_outz00_70); 
BGl_displayzd22zd2zz__r4_output_6_10_3z00(BgL_labz00_1041, BgL_outz00_70); 
return 
WRITE_CHAR(((unsigned char)'\n'), BgL_outz00_70);}  else 
{ /* ./DotNet/as.scm 319 */
goto BgL_tagzd22873zd2_1097;} }  else 
{ /* ./DotNet/as.scm 319 */
goto BgL_tagzd22873zd2_1097;} }  else 
{ /* ./DotNet/as.scm 319 */
bool_t BgL_test3283z00_1203;
{ /* ./DotNet/as.scm 319 */
obj_t BgL_auxz00_5595;obj_t BgL_auxz00_5593;
BgL_auxz00_5595 = 
CNST_TABLE_REF(((long)83)); 
BgL_auxz00_5593 = 
CAR(BgL_iz00_74); 
BgL_test3283z00_1203 = 
(BgL_auxz00_5593==BgL_auxz00_5595); } 
if(BgL_test3283z00_1203)
{ /* ./DotNet/as.scm 319 */
bool_t BgL_test3284z00_1204;
BgL_test3284z00_1204 = 
PAIRP(BgL_cdrzd27377zd2_1196); 
if(BgL_test3284z00_1204)
{ /* ./DotNet/as.scm 319 */
bool_t BgL_test3285z00_1205;
{ /* ./DotNet/as.scm 319 */
obj_t BgL_auxz00_5601;
BgL_auxz00_5601 = 
CDR(BgL_cdrzd27377zd2_1196); 
BgL_test3285z00_1205 = 
NULLP(BgL_auxz00_5601); } 
if(BgL_test3285z00_1205)
{ /* ./DotNet/as.scm 319 */
obj_t BgL_arg3287z00_1206;
BgL_arg3287z00_1206 = 
CAR(BgL_cdrzd27377zd2_1196); 
BgL_labz00_1043 = BgL_arg3287z00_1206; 
display_string(BGl_string6201z00zzdotnet_asz00, BgL_outz00_70); 
BGl_displayzd22zd2zz__r4_output_6_10_3z00(BgL_labz00_1043, BgL_outz00_70); 
return 
WRITE_CHAR(((unsigned char)'\n'), BgL_outz00_70);}  else 
{ /* ./DotNet/as.scm 319 */
goto BgL_tagzd22873zd2_1097;} }  else 
{ /* ./DotNet/as.scm 319 */
goto BgL_tagzd22873zd2_1097;} }  else 
{ /* ./DotNet/as.scm 319 */
obj_t BgL_cdrzd27733zd2_1208;
BgL_cdrzd27733zd2_1208 = 
CDR(BgL_iz00_74); 
{ /* ./DotNet/as.scm 319 */
bool_t BgL_test3297z00_1209;
{ /* ./DotNet/as.scm 319 */
obj_t BgL_auxz00_5612;obj_t BgL_auxz00_5610;
BgL_auxz00_5612 = 
CNST_TABLE_REF(((long)84)); 
BgL_auxz00_5610 = 
CAR(BgL_iz00_74); 
BgL_test3297z00_1209 = 
(BgL_auxz00_5610==BgL_auxz00_5612); } 
if(BgL_test3297z00_1209)
{ /* ./DotNet/as.scm 319 */
bool_t BgL_test3298z00_1210;
BgL_test3298z00_1210 = 
PAIRP(BgL_cdrzd27733zd2_1208); 
if(BgL_test3298z00_1210)
{ /* ./DotNet/as.scm 319 */
bool_t BgL_test3299z00_1211;
{ /* ./DotNet/as.scm 319 */
obj_t BgL_auxz00_5618;
BgL_auxz00_5618 = 
CDR(BgL_cdrzd27733zd2_1208); 
BgL_test3299z00_1211 = 
NULLP(BgL_auxz00_5618); } 
if(BgL_test3299z00_1211)
{ /* ./DotNet/as.scm 319 */
obj_t BgL_arg3301z00_1212;
BgL_arg3301z00_1212 = 
CAR(BgL_cdrzd27733zd2_1208); 
BgL_labz00_1045 = BgL_arg3301z00_1212; 
display_string(BGl_string6202z00zzdotnet_asz00, BgL_outz00_70); 
BGl_displayzd22zd2zz__r4_output_6_10_3z00(BgL_labz00_1045, BgL_outz00_70); 
return 
WRITE_CHAR(((unsigned char)'\n'), BgL_outz00_70);}  else 
{ /* ./DotNet/as.scm 319 */
goto BgL_tagzd22873zd2_1097;} }  else 
{ /* ./DotNet/as.scm 319 */
goto BgL_tagzd22873zd2_1097;} }  else 
{ /* ./DotNet/as.scm 319 */
bool_t BgL_test3311z00_1215;
{ /* ./DotNet/as.scm 319 */
obj_t BgL_auxz00_5628;obj_t BgL_auxz00_5626;
BgL_auxz00_5628 = 
CNST_TABLE_REF(((long)85)); 
BgL_auxz00_5626 = 
CAR(BgL_iz00_74); 
BgL_test3311z00_1215 = 
(BgL_auxz00_5626==BgL_auxz00_5628); } 
if(BgL_test3311z00_1215)
{ /* ./DotNet/as.scm 319 */
bool_t BgL_test3312z00_1216;
BgL_test3312z00_1216 = 
PAIRP(BgL_cdrzd27733zd2_1208); 
if(BgL_test3312z00_1216)
{ /* ./DotNet/as.scm 319 */
bool_t BgL_test3313z00_1217;
{ /* ./DotNet/as.scm 319 */
obj_t BgL_auxz00_5634;
BgL_auxz00_5634 = 
CDR(BgL_cdrzd27733zd2_1208); 
BgL_test3313z00_1217 = 
NULLP(BgL_auxz00_5634); } 
if(BgL_test3313z00_1217)
{ /* ./DotNet/as.scm 319 */
obj_t BgL_arg3315z00_1218;
BgL_arg3315z00_1218 = 
CAR(BgL_cdrzd27733zd2_1208); 
BgL_labz00_1047 = BgL_arg3315z00_1218; 
display_string(BGl_string6203z00zzdotnet_asz00, BgL_outz00_70); 
BGl_displayzd22zd2zz__r4_output_6_10_3z00(BgL_labz00_1047, BgL_outz00_70); 
return 
WRITE_CHAR(((unsigned char)'\n'), BgL_outz00_70);}  else 
{ /* ./DotNet/as.scm 319 */
goto BgL_tagzd22873zd2_1097;} }  else 
{ /* ./DotNet/as.scm 319 */
goto BgL_tagzd22873zd2_1097;} }  else 
{ /* ./DotNet/as.scm 319 */
obj_t BgL_cdrzd28049zd2_1220;
BgL_cdrzd28049zd2_1220 = 
CDR(BgL_iz00_74); 
{ /* ./DotNet/as.scm 319 */
bool_t BgL_test3325z00_1221;
{ /* ./DotNet/as.scm 319 */
obj_t BgL_auxz00_5645;obj_t BgL_auxz00_5643;
BgL_auxz00_5645 = 
CNST_TABLE_REF(((long)86)); 
BgL_auxz00_5643 = 
CAR(BgL_iz00_74); 
BgL_test3325z00_1221 = 
(BgL_auxz00_5643==BgL_auxz00_5645); } 
if(BgL_test3325z00_1221)
{ /* ./DotNet/as.scm 319 */
bool_t BgL_test3326z00_1222;
BgL_test3326z00_1222 = 
PAIRP(BgL_cdrzd28049zd2_1220); 
if(BgL_test3326z00_1222)
{ /* ./DotNet/as.scm 319 */
bool_t BgL_test3327z00_1223;
{ /* ./DotNet/as.scm 319 */
obj_t BgL_auxz00_5651;
BgL_auxz00_5651 = 
CDR(BgL_cdrzd28049zd2_1220); 
BgL_test3327z00_1223 = 
NULLP(BgL_auxz00_5651); } 
if(BgL_test3327z00_1223)
{ /* ./DotNet/as.scm 319 */
obj_t BgL_arg3329z00_1224;
BgL_arg3329z00_1224 = 
CAR(BgL_cdrzd28049zd2_1220); 
BgL_labz00_1049 = BgL_arg3329z00_1224; 
display_string(BGl_string6204z00zzdotnet_asz00, BgL_outz00_70); 
BGl_displayzd22zd2zz__r4_output_6_10_3z00(BgL_labz00_1049, BgL_outz00_70); 
return 
WRITE_CHAR(((unsigned char)'\n'), BgL_outz00_70);}  else 
{ /* ./DotNet/as.scm 319 */
goto BgL_tagzd22873zd2_1097;} }  else 
{ /* ./DotNet/as.scm 319 */
goto BgL_tagzd22873zd2_1097;} }  else 
{ /* ./DotNet/as.scm 319 */
bool_t BgL_test3339z00_1227;
{ /* ./DotNet/as.scm 319 */
obj_t BgL_auxz00_5661;obj_t BgL_auxz00_5659;
BgL_auxz00_5661 = 
CNST_TABLE_REF(((long)87)); 
BgL_auxz00_5659 = 
CAR(BgL_iz00_74); 
BgL_test3339z00_1227 = 
(BgL_auxz00_5659==BgL_auxz00_5661); } 
if(BgL_test3339z00_1227)
{ /* ./DotNet/as.scm 319 */
bool_t BgL_test3340z00_1228;
BgL_test3340z00_1228 = 
PAIRP(BgL_cdrzd28049zd2_1220); 
if(BgL_test3340z00_1228)
{ /* ./DotNet/as.scm 319 */
bool_t BgL_test3341z00_1229;
{ /* ./DotNet/as.scm 319 */
obj_t BgL_auxz00_5667;
BgL_auxz00_5667 = 
CDR(BgL_cdrzd28049zd2_1220); 
BgL_test3341z00_1229 = 
NULLP(BgL_auxz00_5667); } 
if(BgL_test3341z00_1229)
{ /* ./DotNet/as.scm 319 */
obj_t BgL_arg3343z00_1230;
BgL_arg3343z00_1230 = 
CAR(BgL_cdrzd28049zd2_1220); 
BgL_labz00_1051 = BgL_arg3343z00_1230; 
display_string(BGl_string6200z00zzdotnet_asz00, BgL_outz00_70); 
BGl_displayzd22zd2zz__r4_output_6_10_3z00(BgL_labz00_1051, BgL_outz00_70); 
return 
WRITE_CHAR(((unsigned char)'\n'), BgL_outz00_70);}  else 
{ /* ./DotNet/as.scm 319 */
goto BgL_tagzd22873zd2_1097;} }  else 
{ /* ./DotNet/as.scm 319 */
goto BgL_tagzd22873zd2_1097;} }  else 
{ /* ./DotNet/as.scm 319 */
obj_t BgL_cdrzd28324zd2_1232;
BgL_cdrzd28324zd2_1232 = 
CDR(BgL_iz00_74); 
{ /* ./DotNet/as.scm 319 */
bool_t BgL_test3353z00_1233;
{ /* ./DotNet/as.scm 319 */
obj_t BgL_auxz00_5678;obj_t BgL_auxz00_5676;
BgL_auxz00_5678 = 
CNST_TABLE_REF(((long)88)); 
BgL_auxz00_5676 = 
CAR(BgL_iz00_74); 
BgL_test3353z00_1233 = 
(BgL_auxz00_5676==BgL_auxz00_5678); } 
if(BgL_test3353z00_1233)
{ /* ./DotNet/as.scm 319 */
bool_t BgL_test3354z00_1234;
BgL_test3354z00_1234 = 
PAIRP(BgL_cdrzd28324zd2_1232); 
if(BgL_test3354z00_1234)
{ /* ./DotNet/as.scm 319 */
bool_t BgL_test3355z00_1235;
{ /* ./DotNet/as.scm 319 */
obj_t BgL_auxz00_5684;
BgL_auxz00_5684 = 
CDR(BgL_cdrzd28324zd2_1232); 
BgL_test3355z00_1235 = 
NULLP(BgL_auxz00_5684); } 
if(BgL_test3355z00_1235)
{ /* ./DotNet/as.scm 319 */
obj_t BgL_arg3357z00_1236;
BgL_arg3357z00_1236 = 
CAR(BgL_cdrzd28324zd2_1232); 
BgL_lz00_1053 = BgL_arg3357z00_1236; 
display_string(BGl_string6205z00zzdotnet_asz00, BgL_outz00_70); 
BGl_displayzd22zd2zz__r4_output_6_10_3z00(BgL_lz00_1053, BgL_outz00_70); 
return 
WRITE_CHAR(((unsigned char)'\n'), BgL_outz00_70);}  else 
{ /* ./DotNet/as.scm 319 */
goto BgL_tagzd22873zd2_1097;} }  else 
{ /* ./DotNet/as.scm 319 */
goto BgL_tagzd22873zd2_1097;} }  else 
{ /* ./DotNet/as.scm 319 */
bool_t BgL_test3367z00_1239;
{ /* ./DotNet/as.scm 319 */
obj_t BgL_auxz00_5694;obj_t BgL_auxz00_5692;
BgL_auxz00_5694 = 
CNST_TABLE_REF(((long)89)); 
BgL_auxz00_5692 = 
CAR(BgL_iz00_74); 
BgL_test3367z00_1239 = 
(BgL_auxz00_5692==BgL_auxz00_5694); } 
if(BgL_test3367z00_1239)
{ /* ./DotNet/as.scm 319 */
bool_t BgL_test3368z00_1240;
BgL_test3368z00_1240 = 
PAIRP(BgL_cdrzd28324zd2_1232); 
if(BgL_test3368z00_1240)
{ /* ./DotNet/as.scm 319 */
bool_t BgL_test3369z00_1241;
{ /* ./DotNet/as.scm 319 */
obj_t BgL_auxz00_5700;
BgL_auxz00_5700 = 
CDR(BgL_cdrzd28324zd2_1232); 
BgL_test3369z00_1241 = 
NULLP(BgL_auxz00_5700); } 
if(BgL_test3369z00_1241)
{ /* ./DotNet/as.scm 319 */
obj_t BgL_arg3371z00_1242;
BgL_arg3371z00_1242 = 
CAR(BgL_cdrzd28324zd2_1232); 
BgL_lz00_1055 = BgL_arg3371z00_1242; 
display_string(BGl_string6206z00zzdotnet_asz00, BgL_outz00_70); 
BGl_displayzd22zd2zz__r4_output_6_10_3z00(BgL_lz00_1055, BgL_outz00_70); 
return 
WRITE_CHAR(((unsigned char)'\n'), BgL_outz00_70);}  else 
{ /* ./DotNet/as.scm 319 */
goto BgL_tagzd22873zd2_1097;} }  else 
{ /* ./DotNet/as.scm 319 */
goto BgL_tagzd22873zd2_1097;} }  else 
{ /* ./DotNet/as.scm 319 */
obj_t BgL_cdrzd28564zd2_1244;
BgL_cdrzd28564zd2_1244 = 
CDR(BgL_iz00_74); 
{ /* ./DotNet/as.scm 319 */
bool_t BgL_test3381z00_1245;
{ /* ./DotNet/as.scm 319 */
obj_t BgL_auxz00_5711;obj_t BgL_auxz00_5709;
BgL_auxz00_5711 = 
CNST_TABLE_REF(((long)90)); 
BgL_auxz00_5709 = 
CAR(BgL_iz00_74); 
BgL_test3381z00_1245 = 
(BgL_auxz00_5709==BgL_auxz00_5711); } 
if(BgL_test3381z00_1245)
{ /* ./DotNet/as.scm 319 */
bool_t BgL_test3382z00_1246;
BgL_test3382z00_1246 = 
PAIRP(BgL_cdrzd28564zd2_1244); 
if(BgL_test3382z00_1246)
{ /* ./DotNet/as.scm 319 */
bool_t BgL_test3383z00_1247;
{ /* ./DotNet/as.scm 319 */
obj_t BgL_auxz00_5717;
BgL_auxz00_5717 = 
CDR(BgL_cdrzd28564zd2_1244); 
BgL_test3383z00_1247 = 
NULLP(BgL_auxz00_5717); } 
if(BgL_test3383z00_1247)
{ /* ./DotNet/as.scm 319 */
obj_t BgL_arg3385z00_1248;
BgL_arg3385z00_1248 = 
CAR(BgL_cdrzd28564zd2_1244); 
BgL_lz00_1057 = BgL_arg3385z00_1248; 
display_string(BGl_string6204z00zzdotnet_asz00, BgL_outz00_70); 
BGl_displayzd22zd2zz__r4_output_6_10_3z00(BgL_lz00_1057, BgL_outz00_70); 
return 
WRITE_CHAR(((unsigned char)'\n'), BgL_outz00_70);}  else 
{ /* ./DotNet/as.scm 319 */
goto BgL_tagzd22873zd2_1097;} }  else 
{ /* ./DotNet/as.scm 319 */
goto BgL_tagzd22873zd2_1097;} }  else 
{ /* ./DotNet/as.scm 319 */
bool_t BgL_test3395z00_1251;
{ /* ./DotNet/as.scm 319 */
obj_t BgL_auxz00_5727;obj_t BgL_auxz00_5725;
BgL_auxz00_5727 = 
CNST_TABLE_REF(((long)91)); 
BgL_auxz00_5725 = 
CAR(BgL_iz00_74); 
BgL_test3395z00_1251 = 
(BgL_auxz00_5725==BgL_auxz00_5727); } 
if(BgL_test3395z00_1251)
{ /* ./DotNet/as.scm 319 */
bool_t BgL_test3396z00_1252;
BgL_test3396z00_1252 = 
PAIRP(BgL_cdrzd28564zd2_1244); 
if(BgL_test3396z00_1252)
{ /* ./DotNet/as.scm 319 */
bool_t BgL_test3397z00_1253;
{ /* ./DotNet/as.scm 319 */
obj_t BgL_auxz00_5733;
BgL_auxz00_5733 = 
CDR(BgL_cdrzd28564zd2_1244); 
BgL_test3397z00_1253 = 
NULLP(BgL_auxz00_5733); } 
if(BgL_test3397z00_1253)
{ /* ./DotNet/as.scm 319 */
obj_t BgL_arg3399z00_1254;
BgL_arg3399z00_1254 = 
CAR(BgL_cdrzd28564zd2_1244); 
BgL_lz00_1059 = BgL_arg3399z00_1254; 
display_string(BGl_string6203z00zzdotnet_asz00, BgL_outz00_70); 
BGl_displayzd22zd2zz__r4_output_6_10_3z00(BgL_lz00_1059, BgL_outz00_70); 
return 
WRITE_CHAR(((unsigned char)'\n'), BgL_outz00_70);}  else 
{ /* ./DotNet/as.scm 319 */
goto BgL_tagzd22873zd2_1097;} }  else 
{ /* ./DotNet/as.scm 319 */
goto BgL_tagzd22873zd2_1097;} }  else 
{ /* ./DotNet/as.scm 319 */
obj_t BgL_cdrzd28772zd2_1256;
BgL_cdrzd28772zd2_1256 = 
CDR(BgL_iz00_74); 
{ /* ./DotNet/as.scm 319 */
bool_t BgL_test3409z00_1257;
{ /* ./DotNet/as.scm 319 */
obj_t BgL_auxz00_5744;obj_t BgL_auxz00_5742;
BgL_auxz00_5744 = 
CNST_TABLE_REF(((long)92)); 
BgL_auxz00_5742 = 
CAR(BgL_iz00_74); 
BgL_test3409z00_1257 = 
(BgL_auxz00_5742==BgL_auxz00_5744); } 
if(BgL_test3409z00_1257)
{ /* ./DotNet/as.scm 319 */
bool_t BgL_test3410z00_1258;
BgL_test3410z00_1258 = 
PAIRP(BgL_cdrzd28772zd2_1256); 
if(BgL_test3410z00_1258)
{ /* ./DotNet/as.scm 319 */
bool_t BgL_test3411z00_1259;
{ /* ./DotNet/as.scm 319 */
obj_t BgL_auxz00_5750;
BgL_auxz00_5750 = 
CDR(BgL_cdrzd28772zd2_1256); 
BgL_test3411z00_1259 = 
NULLP(BgL_auxz00_5750); } 
if(BgL_test3411z00_1259)
{ /* ./DotNet/as.scm 319 */
obj_t BgL_arg3413z00_1260;
BgL_arg3413z00_1260 = 
CAR(BgL_cdrzd28772zd2_1256); 
BgL_lz00_1061 = BgL_arg3413z00_1260; 
display_string(BGl_string6202z00zzdotnet_asz00, BgL_outz00_70); 
BGl_displayzd22zd2zz__r4_output_6_10_3z00(BgL_lz00_1061, BgL_outz00_70); 
return 
WRITE_CHAR(((unsigned char)'\n'), BgL_outz00_70);}  else 
{ /* ./DotNet/as.scm 319 */
goto BgL_tagzd22873zd2_1097;} }  else 
{ /* ./DotNet/as.scm 319 */
goto BgL_tagzd22873zd2_1097;} }  else 
{ /* ./DotNet/as.scm 319 */
bool_t BgL_test3423z00_1263;
{ /* ./DotNet/as.scm 319 */
obj_t BgL_auxz00_5760;obj_t BgL_auxz00_5758;
BgL_auxz00_5760 = 
CNST_TABLE_REF(((long)93)); 
BgL_auxz00_5758 = 
CAR(BgL_iz00_74); 
BgL_test3423z00_1263 = 
(BgL_auxz00_5758==BgL_auxz00_5760); } 
if(BgL_test3423z00_1263)
{ /* ./DotNet/as.scm 319 */
bool_t BgL_test3424z00_1264;
BgL_test3424z00_1264 = 
PAIRP(BgL_cdrzd28772zd2_1256); 
if(BgL_test3424z00_1264)
{ /* ./DotNet/as.scm 319 */
bool_t BgL_test3425z00_1265;
{ /* ./DotNet/as.scm 319 */
obj_t BgL_auxz00_5766;
BgL_auxz00_5766 = 
CDR(BgL_cdrzd28772zd2_1256); 
BgL_test3425z00_1265 = 
NULLP(BgL_auxz00_5766); } 
if(BgL_test3425z00_1265)
{ /* ./DotNet/as.scm 319 */
obj_t BgL_arg3427z00_1266;
BgL_arg3427z00_1266 = 
CAR(BgL_cdrzd28772zd2_1256); 
BgL_lz00_1063 = BgL_arg3427z00_1266; 
display_string(BGl_string6201z00zzdotnet_asz00, BgL_outz00_70); 
BGl_displayzd22zd2zz__r4_output_6_10_3z00(BgL_lz00_1063, BgL_outz00_70); 
return 
WRITE_CHAR(((unsigned char)'\n'), BgL_outz00_70);}  else 
{ /* ./DotNet/as.scm 319 */
goto BgL_tagzd22873zd2_1097;} }  else 
{ /* ./DotNet/as.scm 319 */
goto BgL_tagzd22873zd2_1097;} }  else 
{ /* ./DotNet/as.scm 319 */
obj_t BgL_cdrzd28947zd2_1268;
BgL_cdrzd28947zd2_1268 = 
CDR(BgL_iz00_74); 
{ /* ./DotNet/as.scm 319 */
bool_t BgL_test3437z00_1269;
{ /* ./DotNet/as.scm 319 */
obj_t BgL_auxz00_5777;obj_t BgL_auxz00_5775;
BgL_auxz00_5777 = 
CNST_TABLE_REF(((long)94)); 
BgL_auxz00_5775 = 
CAR(BgL_iz00_74); 
BgL_test3437z00_1269 = 
(BgL_auxz00_5775==BgL_auxz00_5777); } 
if(BgL_test3437z00_1269)
{ /* ./DotNet/as.scm 319 */
bool_t BgL_test3438z00_1270;
BgL_test3438z00_1270 = 
PAIRP(BgL_cdrzd28947zd2_1268); 
if(BgL_test3438z00_1270)
{ /* ./DotNet/as.scm 319 */
bool_t BgL_test3439z00_1271;
{ /* ./DotNet/as.scm 319 */
obj_t BgL_auxz00_5783;
BgL_auxz00_5783 = 
CDR(BgL_cdrzd28947zd2_1268); 
BgL_test3439z00_1271 = 
NULLP(BgL_auxz00_5783); } 
if(BgL_test3439z00_1271)
{ /* ./DotNet/as.scm 319 */
obj_t BgL_arg3441z00_1272;
BgL_arg3441z00_1272 = 
CAR(BgL_cdrzd28947zd2_1268); 
BgL_vz00_1065 = BgL_arg3441z00_1272; 
display_string(BGl_string6168z00zzdotnet_asz00, BgL_outz00_70); 
{ /* ./DotNet/as.scm 400 */
obj_t BgL_arg4114z00_1523;
BgL_arg4114z00_1523 = 
BGl_varz00zzdotnet_asz00(BgL_vz00_1065, BgL_paramsz00_72, BgL_localsz00_73); 
BGl_displayzd22zd2zz__r4_output_6_10_3z00(BgL_arg4114z00_1523, BgL_outz00_70); } 
return 
WRITE_CHAR(((unsigned char)'\n'), BgL_outz00_70);}  else 
{ /* ./DotNet/as.scm 319 */
goto BgL_tagzd22873zd2_1097;} }  else 
{ /* ./DotNet/as.scm 319 */
goto BgL_tagzd22873zd2_1097;} }  else 
{ /* ./DotNet/as.scm 319 */
bool_t BgL_test3451z00_1274;
{ /* ./DotNet/as.scm 319 */
obj_t BgL_auxz00_5794;obj_t BgL_auxz00_5792;
BgL_auxz00_5794 = 
CNST_TABLE_REF(((long)95)); 
BgL_auxz00_5792 = 
CAR(BgL_iz00_74); 
BgL_test3451z00_1274 = 
(BgL_auxz00_5792==BgL_auxz00_5794); } 
if(BgL_test3451z00_1274)
{ /* ./DotNet/as.scm 319 */
bool_t BgL_test3452z00_1275;
BgL_test3452z00_1275 = 
NULLP(BgL_cdrzd28947zd2_1268); 
if(BgL_test3452z00_1275)
{ /* ./DotNet/as.scm 319 */
display_string(BGl_string6207z00zzdotnet_asz00, BgL_outz00_70); 
return 
WRITE_CHAR(((unsigned char)'\n'), BgL_outz00_70);}  else 
{ /* ./DotNet/as.scm 319 */
goto BgL_tagzd22873zd2_1097;} }  else 
{ /* ./DotNet/as.scm 319 */
bool_t BgL_test3459z00_1277;
{ /* ./DotNet/as.scm 319 */
obj_t BgL_auxz00_5804;obj_t BgL_auxz00_5802;
BgL_auxz00_5804 = 
CNST_TABLE_REF(((long)96)); 
BgL_auxz00_5802 = 
CAR(BgL_iz00_74); 
BgL_test3459z00_1277 = 
(BgL_auxz00_5802==BgL_auxz00_5804); } 
if(BgL_test3459z00_1277)
{ /* ./DotNet/as.scm 319 */
bool_t BgL_test3460z00_1278;
BgL_test3460z00_1278 = 
NULLP(BgL_cdrzd28947zd2_1268); 
if(BgL_test3460z00_1278)
{ /* ./DotNet/as.scm 319 */
display_string(BGl_string6207z00zzdotnet_asz00, BgL_outz00_70); 
return 
WRITE_CHAR(((unsigned char)'\n'), BgL_outz00_70);}  else 
{ /* ./DotNet/as.scm 319 */
goto BgL_tagzd22873zd2_1097;} }  else 
{ /* ./DotNet/as.scm 319 */
bool_t BgL_test3468z00_1280;
{ /* ./DotNet/as.scm 319 */
obj_t BgL_auxz00_5814;obj_t BgL_auxz00_5812;
BgL_auxz00_5814 = 
CNST_TABLE_REF(((long)97)); 
BgL_auxz00_5812 = 
CAR(BgL_iz00_74); 
BgL_test3468z00_1280 = 
(BgL_auxz00_5812==BgL_auxz00_5814); } 
if(BgL_test3468z00_1280)
{ /* ./DotNet/as.scm 319 */
bool_t BgL_test3469z00_1281;
BgL_test3469z00_1281 = 
NULLP(BgL_cdrzd28947zd2_1268); 
if(BgL_test3469z00_1281)
{ /* ./DotNet/as.scm 319 */
display_string(BGl_string6207z00zzdotnet_asz00, BgL_outz00_70); 
return 
WRITE_CHAR(((unsigned char)'\n'), BgL_outz00_70);}  else 
{ /* ./DotNet/as.scm 319 */
goto BgL_tagzd22873zd2_1097;} }  else 
{ /* ./DotNet/as.scm 319 */
bool_t BgL_test3476z00_1283;
{ /* ./DotNet/as.scm 319 */
obj_t BgL_auxz00_5824;obj_t BgL_auxz00_5822;
BgL_auxz00_5824 = 
CNST_TABLE_REF(((long)98)); 
BgL_auxz00_5822 = 
CAR(BgL_iz00_74); 
BgL_test3476z00_1283 = 
(BgL_auxz00_5822==BgL_auxz00_5824); } 
if(BgL_test3476z00_1283)
{ /* ./DotNet/as.scm 319 */
bool_t BgL_test3477z00_1284;
BgL_test3477z00_1284 = 
NULLP(BgL_cdrzd28947zd2_1268); 
if(BgL_test3477z00_1284)
{ /* ./DotNet/as.scm 319 */
display_string(BGl_string6208z00zzdotnet_asz00, BgL_outz00_70); 
return 
WRITE_CHAR(((unsigned char)'\n'), BgL_outz00_70);}  else 
{ /* ./DotNet/as.scm 319 */
goto BgL_tagzd22873zd2_1097;} }  else 
{ /* ./DotNet/as.scm 319 */
bool_t BgL_test3484z00_1286;
{ /* ./DotNet/as.scm 319 */
obj_t BgL_auxz00_5834;obj_t BgL_auxz00_5832;
BgL_auxz00_5834 = 
CNST_TABLE_REF(((long)99)); 
BgL_auxz00_5832 = 
CAR(BgL_iz00_74); 
BgL_test3484z00_1286 = 
(BgL_auxz00_5832==BgL_auxz00_5834); } 
if(BgL_test3484z00_1286)
{ /* ./DotNet/as.scm 319 */
bool_t BgL_test3485z00_1287;
BgL_test3485z00_1287 = 
NULLP(BgL_cdrzd28947zd2_1268); 
if(BgL_test3485z00_1287)
{ /* ./DotNet/as.scm 319 */
display_string(BGl_string6208z00zzdotnet_asz00, BgL_outz00_70); 
return 
WRITE_CHAR(((unsigned char)'\n'), BgL_outz00_70);}  else 
{ /* ./DotNet/as.scm 319 */
goto BgL_tagzd22873zd2_1097;} }  else 
{ /* ./DotNet/as.scm 319 */
bool_t BgL_test3492z00_1289;
{ /* ./DotNet/as.scm 319 */
obj_t BgL_auxz00_5844;obj_t BgL_auxz00_5842;
BgL_auxz00_5844 = 
CNST_TABLE_REF(((long)100)); 
BgL_auxz00_5842 = 
CAR(BgL_iz00_74); 
BgL_test3492z00_1289 = 
(BgL_auxz00_5842==BgL_auxz00_5844); } 
if(BgL_test3492z00_1289)
{ /* ./DotNet/as.scm 319 */
bool_t BgL_test3493z00_1290;
BgL_test3493z00_1290 = 
NULLP(BgL_cdrzd28947zd2_1268); 
if(BgL_test3493z00_1290)
{ /* ./DotNet/as.scm 319 */
display_string(BGl_string6208z00zzdotnet_asz00, BgL_outz00_70); 
return 
WRITE_CHAR(((unsigned char)'\n'), BgL_outz00_70);}  else 
{ /* ./DotNet/as.scm 319 */
goto BgL_tagzd22873zd2_1097;} }  else 
{ /* ./DotNet/as.scm 319 */
bool_t BgL_test3500z00_1293;
{ /* ./DotNet/as.scm 319 */
obj_t BgL_auxz00_5854;obj_t BgL_auxz00_5852;
BgL_auxz00_5854 = 
CNST_TABLE_REF(((long)101)); 
BgL_auxz00_5852 = 
CAR(BgL_iz00_74); 
BgL_test3500z00_1293 = 
(BgL_auxz00_5852==BgL_auxz00_5854); } 
if(BgL_test3500z00_1293)
{ /* ./DotNet/as.scm 319 */
bool_t BgL_test3501z00_1294;
BgL_test3501z00_1294 = 
PAIRP(BgL_cdrzd28947zd2_1268); 
if(BgL_test3501z00_1294)
{ /* ./DotNet/as.scm 319 */
bool_t BgL_test3502z00_1295;
{ /* ./DotNet/as.scm 319 */
obj_t BgL_auxz00_5860;
BgL_auxz00_5860 = 
CDR(BgL_cdrzd28947zd2_1268); 
BgL_test3502z00_1295 = 
NULLP(BgL_auxz00_5860); } 
if(BgL_test3502z00_1295)
{ /* ./DotNet/as.scm 319 */
obj_t BgL_arg3504z00_1296;
BgL_arg3504z00_1296 = 
CAR(BgL_cdrzd28947zd2_1268); 
BgL_vz00_1073 = BgL_arg3504z00_1296; 
{ /* ./DotNet/as.scm 408 */
obj_t BgL_list4131z00_1530;
BgL_list4131z00_1530 = 
MAKE_PAIR(BGl_string6209z00zzdotnet_asz00, BNIL); 
BGl_za2displayza2zzdotnet_asz00(BgL_outz00_70, BgL_list4131z00_1530); } 
BGl_mproto2z00zzdotnet_asz00(BgL_outz00_70, BgL_declsz00_71, BgL_vz00_1073); 
return 
WRITE_CHAR(((unsigned char)'\n'), BgL_outz00_70);}  else 
{ /* ./DotNet/as.scm 319 */
goto BgL_tagzd22873zd2_1097;} }  else 
{ /* ./DotNet/as.scm 319 */
goto BgL_tagzd22873zd2_1097;} }  else 
{ /* ./DotNet/as.scm 319 */
obj_t BgL_cdrzd29257zd2_1298;
BgL_cdrzd29257zd2_1298 = 
CDR(BgL_iz00_74); 
{ /* ./DotNet/as.scm 319 */
bool_t BgL_test3514z00_1299;
{ /* ./DotNet/as.scm 319 */
obj_t BgL_auxz00_5872;obj_t BgL_auxz00_5870;
BgL_auxz00_5872 = 
CNST_TABLE_REF(((long)102)); 
BgL_auxz00_5870 = 
CAR(BgL_iz00_74); 
BgL_test3514z00_1299 = 
(BgL_auxz00_5870==BgL_auxz00_5872); } 
if(BgL_test3514z00_1299)
{ /* ./DotNet/as.scm 319 */
bool_t BgL_test3515z00_1300;
BgL_test3515z00_1300 = 
PAIRP(BgL_cdrzd29257zd2_1298); 
if(BgL_test3515z00_1300)
{ /* ./DotNet/as.scm 319 */
bool_t BgL_test3516z00_1301;
{ /* ./DotNet/as.scm 319 */
obj_t BgL_auxz00_5878;
BgL_auxz00_5878 = 
CDR(BgL_cdrzd29257zd2_1298); 
BgL_test3516z00_1301 = 
NULLP(BgL_auxz00_5878); } 
if(BgL_test3516z00_1301)
{ /* ./DotNet/as.scm 319 */
obj_t BgL_arg3518z00_1302;
BgL_arg3518z00_1302 = 
CAR(BgL_cdrzd29257zd2_1298); 
BgL_vz00_1075 = BgL_arg3518z00_1302; 
{ /* ./DotNet/as.scm 412 */
bool_t BgL_test4135z00_1531;
BgL_test4135z00_1531 = 
(BGl_za2newza2z00zzdotnet_asz00==BNIL); 
if(BgL_test4135z00_1531)
{ /* ./DotNet/as.scm 413 */
obj_t BgL_list4137z00_1532;
BgL_list4137z00_1532 = 
MAKE_PAIR(BGl_string6210z00zzdotnet_asz00, BNIL); 
{ /* ./DotNet/as.scm 413 */
bool_t BgL_auxz00_5886;
BgL_auxz00_5886 = 
BGl_za2displayza2zzdotnet_asz00(BgL_outz00_70, BgL_list4137z00_1532); 
BBOOL(BgL_auxz00_5886); } }  else 
{ /* ./DotNet/as.scm 412 */
{ /* ./DotNet/as.scm 414 */
obj_t BgL_list4140z00_1533;
BgL_list4140z00_1533 = 
MAKE_PAIR(BGl_string6211z00zzdotnet_asz00, BNIL); 
BGl_za2displayza2zzdotnet_asz00(BgL_outz00_70, BgL_list4140z00_1533); } 
{ /* ./DotNet/as.scm 415 */
obj_t BgL_pairz00_3310;
BgL_pairz00_3310 = BGl_za2newza2z00zzdotnet_asz00; 
BGl_za2newza2z00zzdotnet_asz00 = 
CDR(BgL_pairz00_3310); } } } 
{ /* ./DotNet/as.scm 416 */
obj_t BgL_list4145z00_1534;
BgL_list4145z00_1534 = 
MAKE_PAIR(BGl_string6212z00zzdotnet_asz00, BNIL); 
BGl_za2displayza2zzdotnet_asz00(BgL_outz00_70, BgL_list4145z00_1534); } 
BGl_mproto2z00zzdotnet_asz00(BgL_outz00_70, BgL_declsz00_71, BgL_vz00_1075); 
return 
WRITE_CHAR(((unsigned char)'\n'), BgL_outz00_70);}  else 
{ /* ./DotNet/as.scm 319 */
goto BgL_tagzd22873zd2_1097;} }  else 
{ /* ./DotNet/as.scm 319 */
goto BgL_tagzd22873zd2_1097;} }  else 
{ /* ./DotNet/as.scm 319 */
bool_t BgL_test3528z00_1305;
{ /* ./DotNet/as.scm 319 */
obj_t BgL_auxz00_5898;obj_t BgL_auxz00_5896;
BgL_auxz00_5898 = 
CNST_TABLE_REF(((long)103)); 
BgL_auxz00_5896 = 
CAR(BgL_iz00_74); 
BgL_test3528z00_1305 = 
(BgL_auxz00_5896==BgL_auxz00_5898); } 
if(BgL_test3528z00_1305)
{ /* ./DotNet/as.scm 319 */
bool_t BgL_test3529z00_1306;
BgL_test3529z00_1306 = 
PAIRP(BgL_cdrzd29257zd2_1298); 
if(BgL_test3529z00_1306)
{ /* ./DotNet/as.scm 319 */
bool_t BgL_test3530z00_1307;
{ /* ./DotNet/as.scm 319 */
obj_t BgL_auxz00_5904;
BgL_auxz00_5904 = 
CDR(BgL_cdrzd29257zd2_1298); 
BgL_test3530z00_1307 = 
NULLP(BgL_auxz00_5904); } 
if(BgL_test3530z00_1307)
{ /* ./DotNet/as.scm 319 */
obj_t BgL_arg3532z00_1308;
BgL_arg3532z00_1308 = 
CAR(BgL_cdrzd29257zd2_1298); 
BgL_vz00_1077 = BgL_arg3532z00_1308; 
{ /* ./DotNet/as.scm 420 */
obj_t BgL_list4150z00_1535;
BgL_list4150z00_1535 = 
MAKE_PAIR(BGl_string6213z00zzdotnet_asz00, BNIL); 
BGl_za2displayza2zzdotnet_asz00(BgL_outz00_70, BgL_list4150z00_1535); } 
BGl_mproto2z00zzdotnet_asz00(BgL_outz00_70, BgL_declsz00_71, BgL_vz00_1077); 
return 
WRITE_CHAR(((unsigned char)'\n'), BgL_outz00_70);}  else 
{ /* ./DotNet/as.scm 319 */
goto BgL_tagzd22873zd2_1097;} }  else 
{ /* ./DotNet/as.scm 319 */
goto BgL_tagzd22873zd2_1097;} }  else 
{ /* ./DotNet/as.scm 319 */
obj_t BgL_cdrzd29333zd2_1310;
BgL_cdrzd29333zd2_1310 = 
CDR(BgL_iz00_74); 
{ /* ./DotNet/as.scm 319 */
bool_t BgL_test3542z00_1311;
{ /* ./DotNet/as.scm 319 */
obj_t BgL_auxz00_5916;obj_t BgL_auxz00_5914;
BgL_auxz00_5916 = 
CNST_TABLE_REF(((long)104)); 
BgL_auxz00_5914 = 
CAR(BgL_iz00_74); 
BgL_test3542z00_1311 = 
(BgL_auxz00_5914==BgL_auxz00_5916); } 
if(BgL_test3542z00_1311)
{ /* ./DotNet/as.scm 319 */
bool_t BgL_test3543z00_1312;
BgL_test3543z00_1312 = 
PAIRP(BgL_cdrzd29333zd2_1310); 
if(BgL_test3543z00_1312)
{ /* ./DotNet/as.scm 319 */
bool_t BgL_test3544z00_1313;
{ /* ./DotNet/as.scm 319 */
obj_t BgL_auxz00_5922;
BgL_auxz00_5922 = 
CDR(BgL_cdrzd29333zd2_1310); 
BgL_test3544z00_1313 = 
NULLP(BgL_auxz00_5922); } 
if(BgL_test3544z00_1313)
{ /* ./DotNet/as.scm 319 */
obj_t BgL_arg3546z00_1314;
BgL_arg3546z00_1314 = 
CAR(BgL_cdrzd29333zd2_1310); 
BgL_vz00_1079 = BgL_arg3546z00_1314; 
{ /* ./DotNet/as.scm 425 */
bool_t BgL_test4154z00_1536;
{ /* ./DotNet/as.scm 425 */
obj_t BgL_auxz00_5927;
BgL_auxz00_5927 = 
CNST_TABLE_REF(((long)28)); 
BgL_test4154z00_1536 = 
(BgL_vz00_1079==BgL_auxz00_5927); } 
if(BgL_test4154z00_1536)
{ /* ./DotNet/as.scm 425 */
display_string(BGl_string6214z00zzdotnet_asz00, BgL_outz00_70); 
display_string(BGl_string6215z00zzdotnet_asz00, BgL_outz00_70); 
return 
WRITE_CHAR(((unsigned char)'\n'), BgL_outz00_70);}  else 
{ /* ./DotNet/as.scm 425 */
{ /* ./DotNet/as.scm 429 */
obj_t BgL_list4159z00_1538;
BgL_list4159z00_1538 = 
MAKE_PAIR(BGl_string6209z00zzdotnet_asz00, BNIL); 
BGl_za2displayza2zzdotnet_asz00(BgL_outz00_70, BgL_list4159z00_1538); } 
BGl_mproto2z00zzdotnet_asz00(BgL_outz00_70, BgL_declsz00_71, BgL_vz00_1079); 
return 
WRITE_CHAR(((unsigned char)'\n'), BgL_outz00_70);} } }  else 
{ /* ./DotNet/as.scm 319 */
goto BgL_tagzd22873zd2_1097;} }  else 
{ /* ./DotNet/as.scm 319 */
goto BgL_tagzd22873zd2_1097;} }  else 
{ /* ./DotNet/as.scm 319 */
bool_t BgL_test3557z00_1317;
{ /* ./DotNet/as.scm 319 */
obj_t BgL_auxz00_5940;obj_t BgL_auxz00_5938;
BgL_auxz00_5940 = 
CNST_TABLE_REF(((long)105)); 
BgL_auxz00_5938 = 
CAR(BgL_iz00_74); 
BgL_test3557z00_1317 = 
(BgL_auxz00_5938==BgL_auxz00_5940); } 
if(BgL_test3557z00_1317)
{ /* ./DotNet/as.scm 319 */
bool_t BgL_test3558z00_1318;
BgL_test3558z00_1318 = 
PAIRP(BgL_cdrzd29333zd2_1310); 
if(BgL_test3558z00_1318)
{ /* ./DotNet/as.scm 319 */
bool_t BgL_test3559z00_1319;
{ /* ./DotNet/as.scm 319 */
obj_t BgL_auxz00_5946;
BgL_auxz00_5946 = 
CDR(BgL_cdrzd29333zd2_1310); 
BgL_test3559z00_1319 = 
NULLP(BgL_auxz00_5946); } 
if(BgL_test3559z00_1319)
{ /* ./DotNet/as.scm 319 */
obj_t BgL_arg3561z00_1320;
BgL_arg3561z00_1320 = 
CAR(BgL_cdrzd29333zd2_1310); 
BgL_typez00_1081 = BgL_arg3561z00_1320; 
display_string(BGl_string6216z00zzdotnet_asz00, BgL_outz00_70); 
{ /* ./DotNet/as.scm 433 */
obj_t BgL_arg4166z00_1540;
BgL_arg4166z00_1540 = 
BGl_typenamez00zzdotnet_asz00(BgL_declsz00_71, BgL_typez00_1081); 
BGl_displayzd22zd2zz__r4_output_6_10_3z00(BgL_arg4166z00_1540, BgL_outz00_70); } 
WRITE_CHAR(((unsigned char)'\n'), BgL_outz00_70); 
{ /* ./DotNet/as.scm 434 */
obj_t BgL_l1z00_1541;obj_t BgL_l2z00_1542;
BgL_l1z00_1541 = 
PROCEDURE_ENTRY(BGl_gensymz00zz__r4_symbols_6_4z00)(BGl_gensymz00zz__r4_symbols_6_4z00, BGl_string6217z00zzdotnet_asz00, BEOA); 
BgL_l2z00_1542 = 
PROCEDURE_ENTRY(BGl_gensymz00zz__r4_symbols_6_4z00)(BGl_gensymz00zz__r4_symbols_6_4z00, BGl_string6217z00zzdotnet_asz00, BEOA); 
display_string(BGl_string6205z00zzdotnet_asz00, BgL_outz00_70); 
BGl_displayzd22zd2zz__r4_output_6_10_3z00(BgL_l1z00_1541, BgL_outz00_70); 
WRITE_CHAR(((unsigned char)'\n'), BgL_outz00_70); 
display_string(BGl_string6192z00zzdotnet_asz00, BgL_outz00_70); 
WRITE_CHAR(((unsigned char)'\n'), BgL_outz00_70); 
display_string(BGl_string6186z00zzdotnet_asz00, BgL_outz00_70); 
BGl_displayzd22zd2zz__r4_output_6_10_3z00(BgL_l2z00_1542, BgL_outz00_70); 
WRITE_CHAR(((unsigned char)'\n'), BgL_outz00_70); 
BGl_displayzd22zd2zz__r4_output_6_10_3z00(BgL_l1z00_1541, BgL_outz00_70); 
display_string(BGl_string6218z00zzdotnet_asz00, BgL_outz00_70); 
WRITE_CHAR(((unsigned char)'\n'), BgL_outz00_70); 
BGl_displayzd22zd2zz__r4_output_6_10_3z00(BgL_l2z00_1542, BgL_outz00_70); 
display_string(BGl_string6219z00zzdotnet_asz00, BgL_outz00_70); 
return 
WRITE_CHAR(((unsigned char)'\n'), BgL_outz00_70);} }  else 
{ /* ./DotNet/as.scm 319 */
goto BgL_tagzd22873zd2_1097;} }  else 
{ /* ./DotNet/as.scm 319 */
goto BgL_tagzd22873zd2_1097;} }  else 
{ /* ./DotNet/as.scm 319 */
bool_t BgL_test3571z00_1322;
{ /* ./DotNet/as.scm 319 */
obj_t BgL_auxz00_5975;obj_t BgL_auxz00_5973;
BgL_auxz00_5975 = 
CNST_TABLE_REF(((long)106)); 
BgL_auxz00_5973 = 
CAR(BgL_iz00_74); 
BgL_test3571z00_1322 = 
(BgL_auxz00_5973==BgL_auxz00_5975); } 
if(BgL_test3571z00_1322)
{ /* ./DotNet/as.scm 319 */
bool_t BgL_test3572z00_1323;
{ /* ./DotNet/as.scm 319 */
obj_t BgL_auxz00_5979;
BgL_auxz00_5979 = 
CDR(BgL_iz00_74); 
BgL_test3572z00_1323 = 
NULLP(BgL_auxz00_5979); } 
if(BgL_test3572z00_1323)
{ /* ./DotNet/as.scm 319 */
display_string(BGl_string6220z00zzdotnet_asz00, BgL_outz00_70); 
return 
WRITE_CHAR(((unsigned char)'\n'), BgL_outz00_70);}  else 
{ /* ./DotNet/as.scm 319 */
goto BgL_tagzd22873zd2_1097;} }  else 
{ /* ./DotNet/as.scm 319 */
bool_t BgL_test3579z00_1325;
{ /* ./DotNet/as.scm 319 */
obj_t BgL_auxz00_5987;obj_t BgL_auxz00_5985;
BgL_auxz00_5987 = 
CNST_TABLE_REF(((long)107)); 
BgL_auxz00_5985 = 
CAR(BgL_iz00_74); 
BgL_test3579z00_1325 = 
(BgL_auxz00_5985==BgL_auxz00_5987); } 
if(BgL_test3579z00_1325)
{ /* ./DotNet/as.scm 319 */
bool_t BgL_test3580z00_1326;
{ /* ./DotNet/as.scm 319 */
obj_t BgL_auxz00_5991;
BgL_auxz00_5991 = 
CDR(BgL_iz00_74); 
BgL_test3580z00_1326 = 
NULLP(BgL_auxz00_5991); } 
if(BgL_test3580z00_1326)
{ /* ./DotNet/as.scm 319 */
display_string(BGl_string6221z00zzdotnet_asz00, BgL_outz00_70); 
return 
WRITE_CHAR(((unsigned char)'\n'), BgL_outz00_70);}  else 
{ /* ./DotNet/as.scm 319 */
goto BgL_tagzd22873zd2_1097;} }  else 
{ /* ./DotNet/as.scm 319 */
bool_t BgL_test3588z00_1328;
{ /* ./DotNet/as.scm 319 */
obj_t BgL_auxz00_5999;obj_t BgL_auxz00_5997;
BgL_auxz00_5999 = 
CNST_TABLE_REF(((long)108)); 
BgL_auxz00_5997 = 
CAR(BgL_iz00_74); 
BgL_test3588z00_1328 = 
(BgL_auxz00_5997==BgL_auxz00_5999); } 
if(BgL_test3588z00_1328)
{ /* ./DotNet/as.scm 319 */
bool_t BgL_test3589z00_1329;
{ /* ./DotNet/as.scm 319 */
obj_t BgL_auxz00_6003;
BgL_auxz00_6003 = 
CDR(BgL_iz00_74); 
BgL_test3589z00_1329 = 
NULLP(BgL_auxz00_6003); } 
if(BgL_test3589z00_1329)
{ /* ./DotNet/as.scm 319 */
display_string(BGl_string6221z00zzdotnet_asz00, BgL_outz00_70); 
return 
WRITE_CHAR(((unsigned char)'\n'), BgL_outz00_70);}  else 
{ /* ./DotNet/as.scm 319 */
goto BgL_tagzd22873zd2_1097;} }  else 
{ /* ./DotNet/as.scm 319 */
bool_t BgL_test3596z00_1331;
{ /* ./DotNet/as.scm 319 */
obj_t BgL_auxz00_6011;obj_t BgL_auxz00_6009;
BgL_auxz00_6011 = 
CNST_TABLE_REF(((long)109)); 
BgL_auxz00_6009 = 
CAR(BgL_iz00_74); 
BgL_test3596z00_1331 = 
(BgL_auxz00_6009==BgL_auxz00_6011); } 
if(BgL_test3596z00_1331)
{ /* ./DotNet/as.scm 319 */
bool_t BgL_test3597z00_1332;
{ /* ./DotNet/as.scm 319 */
obj_t BgL_auxz00_6015;
BgL_auxz00_6015 = 
CDR(BgL_iz00_74); 
BgL_test3597z00_1332 = 
NULLP(BgL_auxz00_6015); } 
if(BgL_test3597z00_1332)
{ /* ./DotNet/as.scm 319 */
display_string(BGl_string6221z00zzdotnet_asz00, BgL_outz00_70); 
return 
WRITE_CHAR(((unsigned char)'\n'), BgL_outz00_70);}  else 
{ /* ./DotNet/as.scm 319 */
goto BgL_tagzd22873zd2_1097;} }  else 
{ /* ./DotNet/as.scm 319 */
bool_t BgL_test3604z00_1334;
{ /* ./DotNet/as.scm 319 */
obj_t BgL_auxz00_6023;obj_t BgL_auxz00_6021;
BgL_auxz00_6023 = 
CNST_TABLE_REF(((long)110)); 
BgL_auxz00_6021 = 
CAR(BgL_iz00_74); 
BgL_test3604z00_1334 = 
(BgL_auxz00_6021==BgL_auxz00_6023); } 
if(BgL_test3604z00_1334)
{ /* ./DotNet/as.scm 319 */
bool_t BgL_test3605z00_1335;
{ /* ./DotNet/as.scm 319 */
obj_t BgL_auxz00_6027;
BgL_auxz00_6027 = 
CDR(BgL_iz00_74); 
BgL_test3605z00_1335 = 
NULLP(BgL_auxz00_6027); } 
if(BgL_test3605z00_1335)
{ /* ./DotNet/as.scm 319 */
display_string(BGl_string6170z00zzdotnet_asz00, BgL_outz00_70); 
return 
WRITE_CHAR(((unsigned char)'\n'), BgL_outz00_70);}  else 
{ /* ./DotNet/as.scm 319 */
goto BgL_tagzd22873zd2_1097;} }  else 
{ /* ./DotNet/as.scm 319 */
obj_t BgL_cdrzd29419zd2_1337;
BgL_cdrzd29419zd2_1337 = 
CDR(BgL_iz00_74); 
{ /* ./DotNet/as.scm 319 */
bool_t BgL_test3612z00_1338;
{ /* ./DotNet/as.scm 319 */
obj_t BgL_auxz00_6036;obj_t BgL_auxz00_6034;
BgL_auxz00_6036 = 
CNST_TABLE_REF(((long)111)); 
BgL_auxz00_6034 = 
CAR(BgL_iz00_74); 
BgL_test3612z00_1338 = 
(BgL_auxz00_6034==BgL_auxz00_6036); } 
if(BgL_test3612z00_1338)
{ /* ./DotNet/as.scm 319 */
bool_t BgL_test3613z00_1339;
BgL_test3613z00_1339 = 
PAIRP(BgL_cdrzd29419zd2_1337); 
if(BgL_test3613z00_1339)
{ /* ./DotNet/as.scm 319 */
bool_t BgL_test3614z00_1340;
{ /* ./DotNet/as.scm 319 */
obj_t BgL_auxz00_6042;
BgL_auxz00_6042 = 
CDR(BgL_cdrzd29419zd2_1337); 
BgL_test3614z00_1340 = 
NULLP(BgL_auxz00_6042); } 
if(BgL_test3614z00_1340)
{ /* ./DotNet/as.scm 319 */
obj_t BgL_arg3616z00_1341;
BgL_arg3616z00_1341 = 
CAR(BgL_cdrzd29419zd2_1337); 
BgL_vz00_1088 = BgL_arg3616z00_1341; 
display_string(BGl_string6173z00zzdotnet_asz00, BgL_outz00_70); 
{ /* ./DotNet/as.scm 445 */
obj_t BgL_arg4198z00_1554;
BgL_arg4198z00_1554 = 
BGl_stvarz00zzdotnet_asz00(BgL_vz00_1088, BgL_paramsz00_72, BgL_localsz00_73); 
BGl_displayzd22zd2zz__r4_output_6_10_3z00(BgL_arg4198z00_1554, BgL_outz00_70); } 
return 
WRITE_CHAR(((unsigned char)'\n'), BgL_outz00_70);}  else 
{ /* ./DotNet/as.scm 319 */
goto BgL_tagzd22873zd2_1097;} }  else 
{ /* ./DotNet/as.scm 319 */
goto BgL_tagzd22873zd2_1097;} }  else 
{ /* ./DotNet/as.scm 319 */
bool_t BgL_test3626z00_1343;
{ /* ./DotNet/as.scm 319 */
obj_t BgL_auxz00_6053;obj_t BgL_auxz00_6051;
BgL_auxz00_6053 = 
CNST_TABLE_REF(((long)112)); 
BgL_auxz00_6051 = 
CAR(BgL_iz00_74); 
BgL_test3626z00_1343 = 
(BgL_auxz00_6051==BgL_auxz00_6053); } 
if(BgL_test3626z00_1343)
{ /* ./DotNet/as.scm 319 */
bool_t BgL_test3627z00_1344;
BgL_test3627z00_1344 = 
NULLP(BgL_cdrzd29419zd2_1337); 
if(BgL_test3627z00_1344)
{ /* ./DotNet/as.scm 319 */
display_string(BGl_string6222z00zzdotnet_asz00, BgL_outz00_70); 
return 
WRITE_CHAR(((unsigned char)'\n'), BgL_outz00_70);}  else 
{ /* ./DotNet/as.scm 319 */
goto BgL_tagzd22873zd2_1097;} }  else 
{ /* ./DotNet/as.scm 319 */
bool_t BgL_test3634z00_1346;
{ /* ./DotNet/as.scm 319 */
obj_t BgL_auxz00_6063;obj_t BgL_auxz00_6061;
BgL_auxz00_6063 = 
CNST_TABLE_REF(((long)113)); 
BgL_auxz00_6061 = 
CAR(BgL_iz00_74); 
BgL_test3634z00_1346 = 
(BgL_auxz00_6061==BgL_auxz00_6063); } 
if(BgL_test3634z00_1346)
{ /* ./DotNet/as.scm 319 */
bool_t BgL_test3635z00_1347;
BgL_test3635z00_1347 = 
NULLP(BgL_cdrzd29419zd2_1337); 
if(BgL_test3635z00_1347)
{ /* ./DotNet/as.scm 319 */
display_string(BGl_string6222z00zzdotnet_asz00, BgL_outz00_70); 
return 
WRITE_CHAR(((unsigned char)'\n'), BgL_outz00_70);}  else 
{ /* ./DotNet/as.scm 319 */
goto BgL_tagzd22873zd2_1097;} }  else 
{ /* ./DotNet/as.scm 319 */
bool_t BgL_test3642z00_1349;
{ /* ./DotNet/as.scm 319 */
obj_t BgL_auxz00_6073;obj_t BgL_auxz00_6071;
BgL_auxz00_6073 = 
CNST_TABLE_REF(((long)114)); 
BgL_auxz00_6071 = 
CAR(BgL_iz00_74); 
BgL_test3642z00_1349 = 
(BgL_auxz00_6071==BgL_auxz00_6073); } 
if(BgL_test3642z00_1349)
{ /* ./DotNet/as.scm 319 */
bool_t BgL_test3643z00_1350;
BgL_test3643z00_1350 = 
NULLP(BgL_cdrzd29419zd2_1337); 
if(BgL_test3643z00_1350)
{ /* ./DotNet/as.scm 319 */
display_string(BGl_string6222z00zzdotnet_asz00, BgL_outz00_70); 
return 
WRITE_CHAR(((unsigned char)'\n'), BgL_outz00_70);}  else 
{ /* ./DotNet/as.scm 319 */
goto BgL_tagzd22873zd2_1097;} }  else 
{ /* ./DotNet/as.scm 319 */
bool_t BgL_test3650z00_1352;
{ /* ./DotNet/as.scm 319 */
obj_t BgL_auxz00_6083;obj_t BgL_auxz00_6081;
BgL_auxz00_6083 = 
CNST_TABLE_REF(((long)115)); 
BgL_auxz00_6081 = 
CAR(BgL_iz00_74); 
BgL_test3650z00_1352 = 
(BgL_auxz00_6081==BgL_auxz00_6083); } 
if(BgL_test3650z00_1352)
{ /* ./DotNet/as.scm 319 */
bool_t BgL_test3651z00_1353;
BgL_test3651z00_1353 = 
NULLP(BgL_cdrzd29419zd2_1337); 
if(BgL_test3651z00_1353)
{ /* ./DotNet/as.scm 319 */
display_string(BGl_string6223z00zzdotnet_asz00, BgL_outz00_70); 
return 
WRITE_CHAR(((unsigned char)'\n'), BgL_outz00_70);}  else 
{ /* ./DotNet/as.scm 319 */
goto BgL_tagzd22873zd2_1097;} }  else 
{ /* ./DotNet/as.scm 319 */
bool_t BgL_test3658z00_1355;
{ /* ./DotNet/as.scm 319 */
obj_t BgL_auxz00_6093;obj_t BgL_auxz00_6091;
BgL_auxz00_6093 = 
CNST_TABLE_REF(((long)116)); 
BgL_auxz00_6091 = 
CAR(BgL_iz00_74); 
BgL_test3658z00_1355 = 
(BgL_auxz00_6091==BgL_auxz00_6093); } 
if(BgL_test3658z00_1355)
{ /* ./DotNet/as.scm 319 */
bool_t BgL_test3659z00_1356;
BgL_test3659z00_1356 = 
NULLP(BgL_cdrzd29419zd2_1337); 
if(BgL_test3659z00_1356)
{ /* ./DotNet/as.scm 319 */
display_string(BGl_string6224z00zzdotnet_asz00, BgL_outz00_70); 
return 
WRITE_CHAR(((unsigned char)'\n'), BgL_outz00_70);}  else 
{ /* ./DotNet/as.scm 319 */
goto BgL_tagzd22873zd2_1097;} }  else 
{ /* ./DotNet/as.scm 319 */
bool_t BgL_test3666z00_1358;
{ /* ./DotNet/as.scm 319 */
obj_t BgL_auxz00_6103;obj_t BgL_auxz00_6101;
BgL_auxz00_6103 = 
CNST_TABLE_REF(((long)117)); 
BgL_auxz00_6101 = 
CAR(BgL_iz00_74); 
BgL_test3666z00_1358 = 
(BgL_auxz00_6101==BgL_auxz00_6103); } 
if(BgL_test3666z00_1358)
{ /* ./DotNet/as.scm 319 */
bool_t BgL_test3667z00_1359;
BgL_test3667z00_1359 = 
NULLP(BgL_cdrzd29419zd2_1337); 
if(BgL_test3667z00_1359)
{ /* ./DotNet/as.scm 319 */
display_string(BGl_string6225z00zzdotnet_asz00, BgL_outz00_70); 
return 
WRITE_CHAR(((unsigned char)'\n'), BgL_outz00_70);}  else 
{ /* ./DotNet/as.scm 319 */
goto BgL_tagzd22873zd2_1097;} }  else 
{ /* ./DotNet/as.scm 319 */
bool_t BgL_test3674z00_1361;
{ /* ./DotNet/as.scm 319 */
obj_t BgL_auxz00_6113;obj_t BgL_auxz00_6111;
BgL_auxz00_6113 = 
CNST_TABLE_REF(((long)118)); 
BgL_auxz00_6111 = 
CAR(BgL_iz00_74); 
BgL_test3674z00_1361 = 
(BgL_auxz00_6111==BgL_auxz00_6113); } 
if(BgL_test3674z00_1361)
{ /* ./DotNet/as.scm 319 */
bool_t BgL_test3675z00_1362;
BgL_test3675z00_1362 = 
NULLP(BgL_cdrzd29419zd2_1337); 
if(BgL_test3675z00_1362)
{ /* ./DotNet/as.scm 319 */
display_string(BGl_string6226z00zzdotnet_asz00, BgL_outz00_70); 
return 
WRITE_CHAR(((unsigned char)'\n'), BgL_outz00_70);}  else 
{ /* ./DotNet/as.scm 319 */
goto BgL_tagzd22873zd2_1097;} }  else 
{ /* ./DotNet/as.scm 319 */
goto BgL_tagzd22873zd2_1097;} } } } } } } } } } } } } } } } } } } } } } } } } } } } } } } } } } } } } } } } } } } } } } } } } } } } } } } } } } } } } } } } } } } } } } } } } } } }  else 
{ /* ./DotNet/as.scm 319 */
goto BgL_tagzd22873zd2_1097;} } } } }  else 
{ /* ./DotNet/as.scm 319 */
bool_t BgL_test2436z00_777;
{ /* ./DotNet/as.scm 319 */
obj_t BgL_auxz00_6123;obj_t BgL_auxz00_6121;
BgL_auxz00_6123 = 
CNST_TABLE_REF(((long)120)); 
BgL_auxz00_6121 = 
CAR(BgL_iz00_74); 
BgL_test2436z00_777 = 
(BgL_auxz00_6121==BgL_auxz00_6123); } 
if(BgL_test2436z00_777)
{ /* ./DotNet/as.scm 319 */
bool_t BgL_test2437z00_778;
{ /* ./DotNet/as.scm 319 */
obj_t BgL_auxz00_6127;
BgL_auxz00_6127 = 
CDR(BgL_iz00_74); 
BgL_test2437z00_778 = 
NULLP(BgL_auxz00_6127); } 
if(BgL_test2437z00_778)
{ /* ./DotNet/as.scm 319 */
display_string(BGl_string6165z00zzdotnet_asz00, BgL_outz00_70); 
return 
WRITE_CHAR(((unsigned char)'\n'), BgL_outz00_70);}  else 
{ /* ./DotNet/as.scm 319 */
goto BgL_tagzd2641zd2_771;} }  else 
{ /* ./DotNet/as.scm 319 */
bool_t BgL_test2444z00_780;
{ /* ./DotNet/as.scm 319 */
obj_t BgL_auxz00_6135;obj_t BgL_auxz00_6133;
BgL_auxz00_6135 = 
CNST_TABLE_REF(((long)121)); 
BgL_auxz00_6133 = 
CAR(BgL_iz00_74); 
BgL_test2444z00_780 = 
(BgL_auxz00_6133==BgL_auxz00_6135); } 
if(BgL_test2444z00_780)
{ /* ./DotNet/as.scm 319 */
bool_t BgL_test2445z00_781;
{ /* ./DotNet/as.scm 319 */
obj_t BgL_auxz00_6139;
BgL_auxz00_6139 = 
CDR(BgL_iz00_74); 
BgL_test2445z00_781 = 
NULLP(BgL_auxz00_6139); } 
if(BgL_test2445z00_781)
{ /* ./DotNet/as.scm 319 */
display_string(BGl_string6166z00zzdotnet_asz00, BgL_outz00_70); 
return 
WRITE_CHAR(((unsigned char)'\n'), BgL_outz00_70);}  else 
{ /* ./DotNet/as.scm 319 */
goto BgL_tagzd2641zd2_771;} }  else 
{ /* ./DotNet/as.scm 319 */
bool_t BgL_test2452z00_783;
{ /* ./DotNet/as.scm 319 */
obj_t BgL_auxz00_6147;obj_t BgL_auxz00_6145;
BgL_auxz00_6147 = 
CNST_TABLE_REF(((long)122)); 
BgL_auxz00_6145 = 
CAR(BgL_iz00_74); 
BgL_test2452z00_783 = 
(BgL_auxz00_6145==BgL_auxz00_6147); } 
if(BgL_test2452z00_783)
{ /* ./DotNet/as.scm 319 */
bool_t BgL_test2453z00_784;
{ /* ./DotNet/as.scm 319 */
obj_t BgL_auxz00_6151;
BgL_auxz00_6151 = 
CDR(BgL_iz00_74); 
BgL_test2453z00_784 = 
NULLP(BgL_auxz00_6151); } 
if(BgL_test2453z00_784)
{ /* ./DotNet/as.scm 319 */
display_string(BGl_string6167z00zzdotnet_asz00, BgL_outz00_70); 
return 
WRITE_CHAR(((unsigned char)'\n'), BgL_outz00_70);}  else 
{ /* ./DotNet/as.scm 319 */
goto BgL_tagzd2641zd2_771;} }  else 
{ /* ./DotNet/as.scm 319 */
obj_t BgL_cdrzd21073zd2_786;
BgL_cdrzd21073zd2_786 = 
CDR(BgL_iz00_74); 
{ /* ./DotNet/as.scm 319 */
bool_t BgL_test2460z00_787;
{ /* ./DotNet/as.scm 319 */
obj_t BgL_auxz00_6160;obj_t BgL_auxz00_6158;
BgL_auxz00_6160 = 
CNST_TABLE_REF(((long)123)); 
BgL_auxz00_6158 = 
CAR(BgL_iz00_74); 
BgL_test2460z00_787 = 
(BgL_auxz00_6158==BgL_auxz00_6160); } 
if(BgL_test2460z00_787)
{ /* ./DotNet/as.scm 319 */
bool_t BgL_test2461z00_788;
BgL_test2461z00_788 = 
PAIRP(BgL_cdrzd21073zd2_786); 
if(BgL_test2461z00_788)
{ /* ./DotNet/as.scm 319 */
bool_t BgL_test2462z00_789;
{ /* ./DotNet/as.scm 319 */
obj_t BgL_auxz00_6166;
BgL_auxz00_6166 = 
CDR(BgL_cdrzd21073zd2_786); 
BgL_test2462z00_789 = 
NULLP(BgL_auxz00_6166); } 
if(BgL_test2462z00_789)
{ /* ./DotNet/as.scm 319 */
obj_t BgL_arg2464z00_790;
BgL_arg2464z00_790 = 
CAR(BgL_cdrzd21073zd2_786); 
BgL_vz00_734 = BgL_arg2464z00_790; 
display_string(BGl_string6168z00zzdotnet_asz00, BgL_outz00_70); 
{ /* ./DotNet/as.scm 324 */
obj_t BgL_arg2904z00_960;
BgL_arg2904z00_960 = 
BGl_varz00zzdotnet_asz00(BgL_vz00_734, BgL_paramsz00_72, BgL_localsz00_73); 
BGl_displayzd22zd2zz__r4_output_6_10_3z00(BgL_arg2904z00_960, BgL_outz00_70); } 
return 
WRITE_CHAR(((unsigned char)'\n'), BgL_outz00_70);}  else 
{ /* ./DotNet/as.scm 319 */
goto BgL_tagzd2641zd2_771;} }  else 
{ /* ./DotNet/as.scm 319 */
goto BgL_tagzd2641zd2_771;} }  else 
{ /* ./DotNet/as.scm 319 */
bool_t BgL_test2474z00_793;
{ /* ./DotNet/as.scm 319 */
obj_t BgL_auxz00_6177;obj_t BgL_auxz00_6175;
BgL_auxz00_6177 = 
CNST_TABLE_REF(((long)124)); 
BgL_auxz00_6175 = 
CAR(BgL_iz00_74); 
BgL_test2474z00_793 = 
(BgL_auxz00_6175==BgL_auxz00_6177); } 
if(BgL_test2474z00_793)
{ /* ./DotNet/as.scm 319 */
bool_t BgL_test2475z00_794;
BgL_test2475z00_794 = 
PAIRP(BgL_cdrzd21073zd2_786); 
if(BgL_test2475z00_794)
{ /* ./DotNet/as.scm 319 */
bool_t BgL_test2476z00_795;
{ /* ./DotNet/as.scm 319 */
obj_t BgL_auxz00_6183;
BgL_auxz00_6183 = 
CDR(BgL_cdrzd21073zd2_786); 
BgL_test2476z00_795 = 
NULLP(BgL_auxz00_6183); } 
if(BgL_test2476z00_795)
{ /* ./DotNet/as.scm 319 */
obj_t BgL_arg2478z00_796;
BgL_arg2478z00_796 = 
CAR(BgL_cdrzd21073zd2_786); 
BgL_typez00_736 = BgL_arg2478z00_796; 
display_string(BGl_string6169z00zzdotnet_asz00, BgL_outz00_70); 
{ /* ./DotNet/as.scm 325 */
obj_t BgL_arg2910z00_962;
BgL_arg2910z00_962 = 
BGl_typenamez00zzdotnet_asz00(BgL_declsz00_71, BgL_typez00_736); 
BGl_displayzd22zd2zz__r4_output_6_10_3z00(BgL_arg2910z00_962, BgL_outz00_70); } 
return 
WRITE_CHAR(((unsigned char)'\n'), BgL_outz00_70);}  else 
{ /* ./DotNet/as.scm 319 */
goto BgL_tagzd2641zd2_771;} }  else 
{ /* ./DotNet/as.scm 319 */
goto BgL_tagzd2641zd2_771;} }  else 
{ /* ./DotNet/as.scm 319 */
bool_t BgL_test2488z00_798;
{ /* ./DotNet/as.scm 319 */
obj_t BgL_auxz00_6194;obj_t BgL_auxz00_6192;
BgL_auxz00_6194 = 
CNST_TABLE_REF(((long)125)); 
BgL_auxz00_6192 = 
CAR(BgL_iz00_74); 
BgL_test2488z00_798 = 
(BgL_auxz00_6192==BgL_auxz00_6194); } 
if(BgL_test2488z00_798)
{ /* ./DotNet/as.scm 319 */
bool_t BgL_test2489z00_799;
{ /* ./DotNet/as.scm 319 */
obj_t BgL_auxz00_6198;
BgL_auxz00_6198 = 
CDR(BgL_iz00_74); 
BgL_test2489z00_799 = 
NULLP(BgL_auxz00_6198); } 
if(BgL_test2489z00_799)
{ /* ./DotNet/as.scm 319 */
display_string(BGl_string6170z00zzdotnet_asz00, BgL_outz00_70); 
return 
WRITE_CHAR(((unsigned char)'\n'), BgL_outz00_70);}  else 
{ /* ./DotNet/as.scm 319 */
goto BgL_tagzd2641zd2_771;} }  else 
{ /* ./DotNet/as.scm 319 */
bool_t BgL_test2496z00_801;
{ /* ./DotNet/as.scm 319 */
obj_t BgL_auxz00_6206;obj_t BgL_auxz00_6204;
BgL_auxz00_6206 = 
CNST_TABLE_REF(((long)126)); 
BgL_auxz00_6204 = 
CAR(BgL_iz00_74); 
BgL_test2496z00_801 = 
(BgL_auxz00_6204==BgL_auxz00_6206); } 
if(BgL_test2496z00_801)
{ /* ./DotNet/as.scm 319 */
bool_t BgL_test2497z00_802;
{ /* ./DotNet/as.scm 319 */
obj_t BgL_auxz00_6210;
BgL_auxz00_6210 = 
CDR(BgL_iz00_74); 
BgL_test2497z00_802 = 
NULLP(BgL_auxz00_6210); } 
if(BgL_test2497z00_802)
{ /* ./DotNet/as.scm 319 */
display_string(BGl_string6171z00zzdotnet_asz00, BgL_outz00_70); 
return 
WRITE_CHAR(((unsigned char)'\n'), BgL_outz00_70);}  else 
{ /* ./DotNet/as.scm 319 */
goto BgL_tagzd2641zd2_771;} }  else 
{ /* ./DotNet/as.scm 319 */
obj_t BgL_cdrzd21609zd2_804;
BgL_cdrzd21609zd2_804 = 
CDR(BgL_iz00_74); 
{ /* ./DotNet/as.scm 319 */
bool_t BgL_test2504z00_805;
{ /* ./DotNet/as.scm 319 */
obj_t BgL_auxz00_6219;obj_t BgL_auxz00_6217;
BgL_auxz00_6219 = 
CNST_TABLE_REF(((long)127)); 
BgL_auxz00_6217 = 
CAR(BgL_iz00_74); 
BgL_test2504z00_805 = 
(BgL_auxz00_6217==BgL_auxz00_6219); } 
if(BgL_test2504z00_805)
{ /* ./DotNet/as.scm 319 */
bool_t BgL_test2505z00_806;
BgL_test2505z00_806 = 
PAIRP(BgL_cdrzd21609zd2_804); 
if(BgL_test2505z00_806)
{ /* ./DotNet/as.scm 319 */
bool_t BgL_test2506z00_807;
{ /* ./DotNet/as.scm 319 */
obj_t BgL_auxz00_6225;
BgL_auxz00_6225 = 
CDR(BgL_cdrzd21609zd2_804); 
BgL_test2506z00_807 = 
NULLP(BgL_auxz00_6225); } 
if(BgL_test2506z00_807)
{ /* ./DotNet/as.scm 319 */
obj_t BgL_arg2508z00_808;
BgL_arg2508z00_808 = 
CAR(BgL_cdrzd21609zd2_804); 
BgL_vz00_740 = BgL_arg2508z00_808; 
{ /* ./DotNet/as.scm 329 */
obj_t BgL_slotz00_965;
BgL_slotz00_965 = 
BGl_assqz00zz__r4_pairs_and_lists_6_3z00(BgL_vz00_740, BgL_localsz00_73); 
{ /* ./DotNet/as.scm 330 */
bool_t BgL_test2918z00_966;
if(
CBOOL(BgL_slotz00_965))
{ /* ./DotNet/as.scm 330 */
bool_t BgL_testz00_6233;
{ /* ./DotNet/as.scm 330 */
obj_t BgL_auxz00_6236;obj_t BgL_auxz00_6234;
BgL_auxz00_6236 = 
CNST_TABLE_REF(((long)27)); 
BgL_auxz00_6234 = 
CDR(BgL_slotz00_965); 
BgL_testz00_6233 = 
(BgL_auxz00_6234==BgL_auxz00_6236); } 
if(BgL_testz00_6233)
{ /* ./DotNet/as.scm 330 */
BgL_test2918z00_966 = ((bool_t)0); }  else 
{ /* ./DotNet/as.scm 330 */
BgL_test2918z00_966 = ((bool_t)1); } }  else 
{ /* ./DotNet/as.scm 330 */
BgL_test2918z00_966 = ((bool_t)0); } 
if(BgL_test2918z00_966)
{ /* ./DotNet/as.scm 330 */
display_string(BGl_string6172z00zzdotnet_asz00, BgL_outz00_70); 
{ /* ./DotNet/as.scm 331 */
obj_t BgL_arg2921z00_968;
{ /* ./DotNet/as.scm 331 */
obj_t BgL_arg2924z00_969;
BgL_arg2924z00_969 = 
CDR(BgL_slotz00_965); 
BgL_arg2921z00_968 = 
BGl_typenamez00zzdotnet_asz00(BgL_declsz00_71, BgL_arg2924z00_969); } 
BGl_displayzd22zd2zz__r4_output_6_10_3z00(BgL_arg2921z00_968, BgL_outz00_70); } 
WRITE_CHAR(((unsigned char)'\n'), BgL_outz00_70); }  else 
{ /* ./DotNet/as.scm 332 */
obj_t BgL_slot2z00_970;
BgL_slot2z00_970 = 
BGl_assqz00zz__r4_pairs_and_lists_6_3z00(BgL_vz00_740, BgL_paramsz00_72); 
{ /* ./DotNet/as.scm 333 */
bool_t BgL_test2928z00_971;
if(
CBOOL(BgL_slot2z00_970))
{ /* ./DotNet/as.scm 333 */
bool_t BgL_testz00_6248;
{ /* ./DotNet/as.scm 333 */
obj_t BgL_auxz00_6251;obj_t BgL_auxz00_6249;
BgL_auxz00_6251 = 
CNST_TABLE_REF(((long)27)); 
BgL_auxz00_6249 = 
CDR(BgL_slot2z00_970); 
BgL_testz00_6248 = 
(BgL_auxz00_6249==BgL_auxz00_6251); } 
if(BgL_testz00_6248)
{ /* ./DotNet/as.scm 333 */
BgL_test2928z00_971 = ((bool_t)0); }  else 
{ /* ./DotNet/as.scm 333 */
BgL_test2928z00_971 = ((bool_t)1); } }  else 
{ /* ./DotNet/as.scm 333 */
BgL_test2928z00_971 = ((bool_t)0); } 
if(BgL_test2928z00_971)
{ /* ./DotNet/as.scm 333 */
display_string(BGl_string6172z00zzdotnet_asz00, BgL_outz00_70); 
{ /* ./DotNet/as.scm 334 */
obj_t BgL_arg2931z00_973;
{ /* ./DotNet/as.scm 334 */
obj_t BgL_arg2934z00_974;
BgL_arg2934z00_974 = 
CDR(BgL_slot2z00_970); 
BgL_arg2931z00_973 = 
BGl_typenamez00zzdotnet_asz00(BgL_declsz00_71, BgL_arg2934z00_974); } 
BGl_displayzd22zd2zz__r4_output_6_10_3z00(BgL_arg2931z00_973, BgL_outz00_70); } 
WRITE_CHAR(((unsigned char)'\n'), BgL_outz00_70); }  else 
{ /* ./DotNet/as.scm 333 */BFALSE; } } } } } 
display_string(BGl_string6173z00zzdotnet_asz00, BgL_outz00_70); 
{ /* ./DotNet/as.scm 335 */
obj_t BgL_arg2954z00_982;
BgL_arg2954z00_982 = 
BGl_stvarz00zzdotnet_asz00(BgL_vz00_740, BgL_paramsz00_72, BgL_localsz00_73); 
BGl_displayzd22zd2zz__r4_output_6_10_3z00(BgL_arg2954z00_982, BgL_outz00_70); } 
return 
WRITE_CHAR(((unsigned char)'\n'), BgL_outz00_70);}  else 
{ /* ./DotNet/as.scm 319 */
goto BgL_tagzd2641zd2_771;} }  else 
{ /* ./DotNet/as.scm 319 */
goto BgL_tagzd2641zd2_771;} }  else 
{ /* ./DotNet/as.scm 319 */
bool_t BgL_test2518z00_810;
{ /* ./DotNet/as.scm 319 */
obj_t BgL_auxz00_6266;obj_t BgL_auxz00_6264;
BgL_auxz00_6266 = 
CNST_TABLE_REF(((long)128)); 
BgL_auxz00_6264 = 
CAR(BgL_iz00_74); 
BgL_test2518z00_810 = 
(BgL_auxz00_6264==BgL_auxz00_6266); } 
if(BgL_test2518z00_810)
{ /* ./DotNet/as.scm 319 */
bool_t BgL_test2519z00_811;
BgL_test2519z00_811 = 
NULLP(BgL_cdrzd21609zd2_804); 
if(BgL_test2519z00_811)
{ /* ./DotNet/as.scm 319 */
display_string(BGl_string6174z00zzdotnet_asz00, BgL_outz00_70); 
return 
WRITE_CHAR(((unsigned char)'\n'), BgL_outz00_70);}  else 
{ /* ./DotNet/as.scm 319 */
goto BgL_tagzd2641zd2_771;} }  else 
{ /* ./DotNet/as.scm 319 */
bool_t BgL_test2526z00_813;
{ /* ./DotNet/as.scm 319 */
obj_t BgL_auxz00_6276;obj_t BgL_auxz00_6274;
BgL_auxz00_6276 = 
CNST_TABLE_REF(((long)129)); 
BgL_auxz00_6274 = 
CAR(BgL_iz00_74); 
BgL_test2526z00_813 = 
(BgL_auxz00_6274==BgL_auxz00_6276); } 
if(BgL_test2526z00_813)
{ /* ./DotNet/as.scm 319 */
bool_t BgL_test2527z00_814;
BgL_test2527z00_814 = 
NULLP(BgL_cdrzd21609zd2_804); 
if(BgL_test2527z00_814)
{ /* ./DotNet/as.scm 319 */
display_string(BGl_string6175z00zzdotnet_asz00, BgL_outz00_70); 
return 
WRITE_CHAR(((unsigned char)'\n'), BgL_outz00_70);}  else 
{ /* ./DotNet/as.scm 319 */
goto BgL_tagzd2641zd2_771;} }  else 
{ /* ./DotNet/as.scm 319 */
bool_t BgL_test2534z00_816;
{ /* ./DotNet/as.scm 319 */
obj_t BgL_auxz00_6286;obj_t BgL_auxz00_6284;
BgL_auxz00_6286 = 
CNST_TABLE_REF(((long)130)); 
BgL_auxz00_6284 = 
CAR(BgL_iz00_74); 
BgL_test2534z00_816 = 
(BgL_auxz00_6284==BgL_auxz00_6286); } 
if(BgL_test2534z00_816)
{ /* ./DotNet/as.scm 319 */
bool_t BgL_test2535z00_817;
BgL_test2535z00_817 = 
NULLP(BgL_cdrzd21609zd2_804); 
if(BgL_test2535z00_817)
{ /* ./DotNet/as.scm 319 */
display_string(BGl_string6176z00zzdotnet_asz00, BgL_outz00_70); 
return 
WRITE_CHAR(((unsigned char)'\n'), BgL_outz00_70);}  else 
{ /* ./DotNet/as.scm 319 */
goto BgL_tagzd2641zd2_771;} }  else 
{ /* ./DotNet/as.scm 319 */
bool_t BgL_test2542z00_819;
{ /* ./DotNet/as.scm 319 */
obj_t BgL_auxz00_6296;obj_t BgL_auxz00_6294;
BgL_auxz00_6296 = 
CNST_TABLE_REF(((long)131)); 
BgL_auxz00_6294 = 
CAR(BgL_iz00_74); 
BgL_test2542z00_819 = 
(BgL_auxz00_6294==BgL_auxz00_6296); } 
if(BgL_test2542z00_819)
{ /* ./DotNet/as.scm 319 */
bool_t BgL_test2543z00_820;
BgL_test2543z00_820 = 
NULLP(BgL_cdrzd21609zd2_804); 
if(BgL_test2543z00_820)
{ /* ./DotNet/as.scm 319 */
display_string(BGl_string6177z00zzdotnet_asz00, BgL_outz00_70); 
return 
WRITE_CHAR(((unsigned char)'\n'), BgL_outz00_70);}  else 
{ /* ./DotNet/as.scm 319 */
goto BgL_tagzd2641zd2_771;} }  else 
{ /* ./DotNet/as.scm 319 */
bool_t BgL_test2550z00_823;
{ /* ./DotNet/as.scm 319 */
obj_t BgL_auxz00_6306;obj_t BgL_auxz00_6304;
BgL_auxz00_6306 = 
CNST_TABLE_REF(((long)132)); 
BgL_auxz00_6304 = 
CAR(BgL_iz00_74); 
BgL_test2550z00_823 = 
(BgL_auxz00_6304==BgL_auxz00_6306); } 
if(BgL_test2550z00_823)
{ /* ./DotNet/as.scm 319 */
bool_t BgL_test2551z00_824;
BgL_test2551z00_824 = 
PAIRP(BgL_cdrzd21609zd2_804); 
if(BgL_test2551z00_824)
{ /* ./DotNet/as.scm 319 */
bool_t BgL_test2552z00_825;
{ /* ./DotNet/as.scm 319 */
obj_t BgL_auxz00_6312;
BgL_auxz00_6312 = 
CDR(BgL_cdrzd21609zd2_804); 
BgL_test2552z00_825 = 
NULLP(BgL_auxz00_6312); } 
if(BgL_test2552z00_825)
{ /* ./DotNet/as.scm 319 */
obj_t BgL_arg2554z00_826;
BgL_arg2554z00_826 = 
CAR(BgL_cdrzd21609zd2_804); 
BgL_vz00_746 = BgL_arg2554z00_826; 
display_string(BGl_string6178z00zzdotnet_asz00, BgL_outz00_70); 
BGl_displayzd22zd2zz__r4_output_6_10_3z00(BgL_vz00_746, BgL_outz00_70); 
return 
WRITE_CHAR(((unsigned char)'\n'), BgL_outz00_70);}  else 
{ /* ./DotNet/as.scm 319 */
goto BgL_tagzd2641zd2_771;} }  else 
{ /* ./DotNet/as.scm 319 */
goto BgL_tagzd2641zd2_771;} }  else 
{ /* ./DotNet/as.scm 319 */
obj_t BgL_cdrzd22141zd2_828;
BgL_cdrzd22141zd2_828 = 
CDR(BgL_iz00_74); 
{ /* ./DotNet/as.scm 319 */
bool_t BgL_test2564z00_829;
{ /* ./DotNet/as.scm 319 */
obj_t BgL_auxz00_6323;obj_t BgL_auxz00_6321;
BgL_auxz00_6323 = 
CNST_TABLE_REF(((long)133)); 
BgL_auxz00_6321 = 
CAR(BgL_iz00_74); 
BgL_test2564z00_829 = 
(BgL_auxz00_6321==BgL_auxz00_6323); } 
if(BgL_test2564z00_829)
{ /* ./DotNet/as.scm 319 */
bool_t BgL_test2565z00_830;
BgL_test2565z00_830 = 
PAIRP(BgL_cdrzd22141zd2_828); 
if(BgL_test2565z00_830)
{ /* ./DotNet/as.scm 319 */
bool_t BgL_test2566z00_831;
{ /* ./DotNet/as.scm 319 */
obj_t BgL_auxz00_6329;
BgL_auxz00_6329 = 
CDR(BgL_cdrzd22141zd2_828); 
BgL_test2566z00_831 = 
NULLP(BgL_auxz00_6329); } 
if(BgL_test2566z00_831)
{ /* ./DotNet/as.scm 319 */
obj_t BgL_arg2568z00_832;
BgL_arg2568z00_832 = 
CAR(BgL_cdrzd22141zd2_828); 
BgL_typez00_748 = BgL_arg2568z00_832; 
display_string(BGl_string6172z00zzdotnet_asz00, BgL_outz00_70); 
{ /* ./DotNet/as.scm 341 */
obj_t BgL_arg2971z00_989;
BgL_arg2971z00_989 = 
BGl_typenamez00zzdotnet_asz00(BgL_declsz00_71, BgL_typez00_748); 
BGl_displayzd22zd2zz__r4_output_6_10_3z00(BgL_arg2971z00_989, BgL_outz00_70); } 
return 
WRITE_CHAR(((unsigned char)'\n'), BgL_outz00_70);}  else 
{ /* ./DotNet/as.scm 319 */
goto BgL_tagzd2641zd2_771;} }  else 
{ /* ./DotNet/as.scm 319 */
goto BgL_tagzd2641zd2_771;} }  else 
{ /* ./DotNet/as.scm 319 */
bool_t BgL_test2578z00_834;
{ /* ./DotNet/as.scm 319 */
obj_t BgL_auxz00_6340;obj_t BgL_auxz00_6338;
BgL_auxz00_6340 = 
CNST_TABLE_REF(((long)134)); 
BgL_auxz00_6338 = 
CAR(BgL_iz00_74); 
BgL_test2578z00_834 = 
(BgL_auxz00_6338==BgL_auxz00_6340); } 
if(BgL_test2578z00_834)
{ /* ./DotNet/as.scm 319 */
bool_t BgL_test2579z00_835;
BgL_test2579z00_835 = 
NULLP(BgL_cdrzd22141zd2_828); 
if(BgL_test2579z00_835)
{ /* ./DotNet/as.scm 319 */
display_string(BGl_string6179z00zzdotnet_asz00, BgL_outz00_70); 
return 
WRITE_CHAR(((unsigned char)'\n'), BgL_outz00_70);}  else 
{ /* ./DotNet/as.scm 319 */
goto BgL_tagzd2641zd2_771;} }  else 
{ /* ./DotNet/as.scm 319 */
bool_t BgL_test2587z00_837;
{ /* ./DotNet/as.scm 319 */
obj_t BgL_auxz00_6350;obj_t BgL_auxz00_6348;
BgL_auxz00_6350 = 
CNST_TABLE_REF(((long)135)); 
BgL_auxz00_6348 = 
CAR(BgL_iz00_74); 
BgL_test2587z00_837 = 
(BgL_auxz00_6348==BgL_auxz00_6350); } 
if(BgL_test2587z00_837)
{ /* ./DotNet/as.scm 319 */
bool_t BgL_test2588z00_838;
BgL_test2588z00_838 = 
NULLP(BgL_cdrzd22141zd2_828); 
if(BgL_test2588z00_838)
{ /* ./DotNet/as.scm 319 */
display_string(BGl_string6180z00zzdotnet_asz00, BgL_outz00_70); 
return 
WRITE_CHAR(((unsigned char)'\n'), BgL_outz00_70);}  else 
{ /* ./DotNet/as.scm 319 */
goto BgL_tagzd2641zd2_771;} }  else 
{ /* ./DotNet/as.scm 319 */
bool_t BgL_test2595z00_840;
{ /* ./DotNet/as.scm 319 */
obj_t BgL_auxz00_6360;obj_t BgL_auxz00_6358;
BgL_auxz00_6360 = 
CNST_TABLE_REF(((long)136)); 
BgL_auxz00_6358 = 
CAR(BgL_iz00_74); 
BgL_test2595z00_840 = 
(BgL_auxz00_6358==BgL_auxz00_6360); } 
if(BgL_test2595z00_840)
{ /* ./DotNet/as.scm 319 */
bool_t BgL_test2596z00_841;
BgL_test2596z00_841 = 
NULLP(BgL_cdrzd22141zd2_828); 
if(BgL_test2596z00_841)
{ /* ./DotNet/as.scm 319 */
display_string(BGl_string6181z00zzdotnet_asz00, BgL_outz00_70); 
return 
WRITE_CHAR(((unsigned char)'\n'), BgL_outz00_70);}  else 
{ /* ./DotNet/as.scm 319 */
goto BgL_tagzd2641zd2_771;} }  else 
{ /* ./DotNet/as.scm 319 */
bool_t BgL_test2603z00_843;
{ /* ./DotNet/as.scm 319 */
obj_t BgL_auxz00_6370;obj_t BgL_auxz00_6368;
BgL_auxz00_6370 = 
CNST_TABLE_REF(((long)137)); 
BgL_auxz00_6368 = 
CAR(BgL_iz00_74); 
BgL_test2603z00_843 = 
(BgL_auxz00_6368==BgL_auxz00_6370); } 
if(BgL_test2603z00_843)
{ /* ./DotNet/as.scm 319 */
bool_t BgL_test2604z00_844;
BgL_test2604z00_844 = 
NULLP(BgL_cdrzd22141zd2_828); 
if(BgL_test2604z00_844)
{ /* ./DotNet/as.scm 319 */
display_string(BGl_string6182z00zzdotnet_asz00, BgL_outz00_70); 
return 
WRITE_CHAR(((unsigned char)'\n'), BgL_outz00_70);}  else 
{ /* ./DotNet/as.scm 319 */
goto BgL_tagzd2641zd2_771;} }  else 
{ /* ./DotNet/as.scm 319 */
bool_t BgL_test2611z00_847;
{ /* ./DotNet/as.scm 319 */
obj_t BgL_auxz00_6380;obj_t BgL_auxz00_6378;
BgL_auxz00_6380 = 
CNST_TABLE_REF(((long)138)); 
BgL_auxz00_6378 = 
CAR(BgL_iz00_74); 
BgL_test2611z00_847 = 
(BgL_auxz00_6378==BgL_auxz00_6380); } 
if(BgL_test2611z00_847)
{ /* ./DotNet/as.scm 319 */
bool_t BgL_test2612z00_848;
BgL_test2612z00_848 = 
PAIRP(BgL_cdrzd22141zd2_828); 
if(BgL_test2612z00_848)
{ /* ./DotNet/as.scm 319 */
bool_t BgL_test2613z00_849;
{ /* ./DotNet/as.scm 319 */
obj_t BgL_auxz00_6386;
BgL_auxz00_6386 = 
CDR(BgL_cdrzd22141zd2_828); 
BgL_test2613z00_849 = 
NULLP(BgL_auxz00_6386); } 
if(BgL_test2613z00_849)
{ /* ./DotNet/as.scm 319 */
obj_t BgL_arg2615z00_850;
BgL_arg2615z00_850 = 
CAR(BgL_cdrzd22141zd2_828); 
BgL_vz00_754 = BgL_arg2615z00_850; 
display_string(BGl_string6168z00zzdotnet_asz00, BgL_outz00_70); 
{ /* ./DotNet/as.scm 346 */
obj_t BgL_arg2986z00_995;
BgL_arg2986z00_995 = 
BGl_varz00zzdotnet_asz00(BgL_vz00_754, BgL_paramsz00_72, BgL_localsz00_73); 
BGl_displayzd22zd2zz__r4_output_6_10_3z00(BgL_arg2986z00_995, BgL_outz00_70); } 
return 
WRITE_CHAR(((unsigned char)'\n'), BgL_outz00_70);}  else 
{ /* ./DotNet/as.scm 319 */
goto BgL_tagzd2641zd2_771;} }  else 
{ /* ./DotNet/as.scm 319 */
goto BgL_tagzd2641zd2_771;} }  else 
{ /* ./DotNet/as.scm 319 */
bool_t BgL_test2625z00_852;
{ /* ./DotNet/as.scm 319 */
obj_t BgL_auxz00_6397;obj_t BgL_auxz00_6395;
BgL_auxz00_6397 = 
CNST_TABLE_REF(((long)139)); 
BgL_auxz00_6395 = 
CAR(BgL_iz00_74); 
BgL_test2625z00_852 = 
(BgL_auxz00_6395==BgL_auxz00_6397); } 
if(BgL_test2625z00_852)
{ /* ./DotNet/as.scm 319 */
bool_t BgL_test2626z00_853;
{ /* ./DotNet/as.scm 319 */
obj_t BgL_auxz00_6401;
BgL_auxz00_6401 = 
CDR(BgL_iz00_74); 
BgL_test2626z00_853 = 
NULLP(BgL_auxz00_6401); } 
if(BgL_test2626z00_853)
{ /* ./DotNet/as.scm 319 */
display_string(BGl_string6170z00zzdotnet_asz00, BgL_outz00_70); 
return 
WRITE_CHAR(((unsigned char)'\n'), BgL_outz00_70);}  else 
{ /* ./DotNet/as.scm 319 */
goto BgL_tagzd2641zd2_771;} }  else 
{ /* ./DotNet/as.scm 319 */
obj_t BgL_cdrzd22510zd2_855;
BgL_cdrzd22510zd2_855 = 
CDR(BgL_iz00_74); 
{ /* ./DotNet/as.scm 319 */
bool_t BgL_test2633z00_856;
{ /* ./DotNet/as.scm 319 */
obj_t BgL_auxz00_6410;obj_t BgL_auxz00_6408;
BgL_auxz00_6410 = 
CNST_TABLE_REF(((long)140)); 
BgL_auxz00_6408 = 
CAR(BgL_iz00_74); 
BgL_test2633z00_856 = 
(BgL_auxz00_6408==BgL_auxz00_6410); } 
if(BgL_test2633z00_856)
{ /* ./DotNet/as.scm 319 */
bool_t BgL_test2634z00_857;
BgL_test2634z00_857 = 
PAIRP(BgL_cdrzd22510zd2_855); 
if(BgL_test2634z00_857)
{ /* ./DotNet/as.scm 319 */
bool_t BgL_test2635z00_858;
{ /* ./DotNet/as.scm 319 */
obj_t BgL_auxz00_6416;
BgL_auxz00_6416 = 
CDR(BgL_cdrzd22510zd2_855); 
BgL_test2635z00_858 = 
NULLP(BgL_auxz00_6416); } 
if(BgL_test2635z00_858)
{ /* ./DotNet/as.scm 319 */
obj_t BgL_arg2637z00_859;
BgL_arg2637z00_859 = 
CAR(BgL_cdrzd22510zd2_855); 
BgL_vz00_757 = BgL_arg2637z00_859; 
display_string(BGl_string6173z00zzdotnet_asz00, BgL_outz00_70); 
{ /* ./DotNet/as.scm 348 */
obj_t BgL_arg2994z00_998;
BgL_arg2994z00_998 = 
BGl_stvarz00zzdotnet_asz00(BgL_vz00_757, BgL_paramsz00_72, BgL_localsz00_73); 
BGl_displayzd22zd2zz__r4_output_6_10_3z00(BgL_arg2994z00_998, BgL_outz00_70); } 
return 
WRITE_CHAR(((unsigned char)'\n'), BgL_outz00_70);}  else 
{ /* ./DotNet/as.scm 319 */
goto BgL_tagzd2641zd2_771;} }  else 
{ /* ./DotNet/as.scm 319 */
goto BgL_tagzd2641zd2_771;} }  else 
{ /* ./DotNet/as.scm 319 */
bool_t BgL_test2647z00_861;
{ /* ./DotNet/as.scm 319 */
obj_t BgL_auxz00_6427;obj_t BgL_auxz00_6425;
BgL_auxz00_6427 = 
CNST_TABLE_REF(((long)141)); 
BgL_auxz00_6425 = 
CAR(BgL_iz00_74); 
BgL_test2647z00_861 = 
(BgL_auxz00_6425==BgL_auxz00_6427); } 
if(BgL_test2647z00_861)
{ /* ./DotNet/as.scm 319 */
bool_t BgL_test2648z00_862;
BgL_test2648z00_862 = 
NULLP(BgL_cdrzd22510zd2_855); 
if(BgL_test2648z00_862)
{ /* ./DotNet/as.scm 319 */
{ /* ./DotNet/as.scm 350 */
bool_t BgL_test2998z00_999;
{ /* ./DotNet/as.scm 350 */
long BgL_n1z00_3873;
BgL_n1z00_3873 = BGl_za2lpcza2z00zzdotnet_asz00; 
BgL_test2998z00_999 = 
(BgL_n1z00_3873==((long)1)); } 
if(BgL_test2998z00_999)
{ /* ./DotNet/as.scm 350 */
return 
CNST_TABLE_REF(((long)17));}  else 
{ /* ./DotNet/as.scm 350 */
display_string(BGl_string6183z00zzdotnet_asz00, BgL_outz00_70); 
return 
WRITE_CHAR(((unsigned char)'\n'), BgL_outz00_70);} } }  else 
{ /* ./DotNet/as.scm 319 */
goto BgL_tagzd2641zd2_771;} }  else 
{ /* ./DotNet/as.scm 319 */
bool_t BgL_test2655z00_865;
{ /* ./DotNet/as.scm 319 */
obj_t BgL_auxz00_6440;obj_t BgL_auxz00_6438;
BgL_auxz00_6440 = 
CNST_TABLE_REF(((long)142)); 
BgL_auxz00_6438 = 
CAR(BgL_iz00_74); 
BgL_test2655z00_865 = 
(BgL_auxz00_6438==BgL_auxz00_6440); } 
if(BgL_test2655z00_865)
{ /* ./DotNet/as.scm 319 */
bool_t BgL_test2656z00_866;
BgL_test2656z00_866 = 
PAIRP(BgL_cdrzd22510zd2_855); 
if(BgL_test2656z00_866)
{ /* ./DotNet/as.scm 319 */
bool_t BgL_test2657z00_867;
{ /* ./DotNet/as.scm 319 */
obj_t BgL_auxz00_6446;
BgL_auxz00_6446 = 
CDR(BgL_cdrzd22510zd2_855); 
BgL_test2657z00_867 = 
NULLP(BgL_auxz00_6446); } 
if(BgL_test2657z00_867)
{ /* ./DotNet/as.scm 319 */
obj_t BgL_arg2659z00_868;
BgL_arg2659z00_868 = 
CAR(BgL_cdrzd22510zd2_855); 
BgL_vz00_760 = BgL_arg2659z00_868; 
display_string(BGl_string6168z00zzdotnet_asz00, BgL_outz00_70); 
{ /* ./DotNet/as.scm 353 */
obj_t BgL_arg3004z00_1002;
BgL_arg3004z00_1002 = 
BGl_varz00zzdotnet_asz00(BgL_vz00_760, BgL_paramsz00_72, BgL_localsz00_73); 
BGl_displayzd22zd2zz__r4_output_6_10_3z00(BgL_arg3004z00_1002, BgL_outz00_70); } 
return 
WRITE_CHAR(((unsigned char)'\n'), BgL_outz00_70);}  else 
{ /* ./DotNet/as.scm 319 */
goto BgL_tagzd2641zd2_771;} }  else 
{ /* ./DotNet/as.scm 319 */
goto BgL_tagzd2641zd2_771;} }  else 
{ /* ./DotNet/as.scm 319 */
bool_t BgL_test2669z00_870;
{ /* ./DotNet/as.scm 319 */
obj_t BgL_auxz00_6457;obj_t BgL_auxz00_6455;
BgL_auxz00_6457 = 
CNST_TABLE_REF(((long)143)); 
BgL_auxz00_6455 = 
CAR(BgL_iz00_74); 
BgL_test2669z00_870 = 
(BgL_auxz00_6455==BgL_auxz00_6457); } 
if(BgL_test2669z00_870)
{ /* ./DotNet/as.scm 319 */
bool_t BgL_test2670z00_871;
{ /* ./DotNet/as.scm 319 */
obj_t BgL_auxz00_6461;
BgL_auxz00_6461 = 
CDR(BgL_iz00_74); 
BgL_test2670z00_871 = 
NULLP(BgL_auxz00_6461); } 
if(BgL_test2670z00_871)
{ /* ./DotNet/as.scm 319 */
display_string(BGl_string6170z00zzdotnet_asz00, BgL_outz00_70); 
return 
WRITE_CHAR(((unsigned char)'\n'), BgL_outz00_70);}  else 
{ /* ./DotNet/as.scm 319 */
goto BgL_tagzd2641zd2_771;} }  else 
{ /* ./DotNet/as.scm 319 */
obj_t BgL_cdrzd22645zd2_873;
BgL_cdrzd22645zd2_873 = 
CDR(BgL_iz00_74); 
{ /* ./DotNet/as.scm 319 */
bool_t BgL_test2677z00_874;
{ /* ./DotNet/as.scm 319 */
obj_t BgL_auxz00_6470;obj_t BgL_auxz00_6468;
BgL_auxz00_6470 = 
CNST_TABLE_REF(((long)144)); 
BgL_auxz00_6468 = 
CAR(BgL_iz00_74); 
BgL_test2677z00_874 = 
(BgL_auxz00_6468==BgL_auxz00_6470); } 
if(BgL_test2677z00_874)
{ /* ./DotNet/as.scm 319 */
bool_t BgL_test2678z00_875;
BgL_test2678z00_875 = 
PAIRP(BgL_cdrzd22645zd2_873); 
if(BgL_test2678z00_875)
{ /* ./DotNet/as.scm 319 */
bool_t BgL_test2679z00_876;
{ /* ./DotNet/as.scm 319 */
obj_t BgL_auxz00_6476;
BgL_auxz00_6476 = 
CDR(BgL_cdrzd22645zd2_873); 
BgL_test2679z00_876 = 
NULLP(BgL_auxz00_6476); } 
if(BgL_test2679z00_876)
{ /* ./DotNet/as.scm 319 */
obj_t BgL_arg2681z00_877;
BgL_arg2681z00_877 = 
CAR(BgL_cdrzd22645zd2_873); 
BgL_vz00_763 = BgL_arg2681z00_877; 
display_string(BGl_string6173z00zzdotnet_asz00, BgL_outz00_70); 
{ /* ./DotNet/as.scm 355 */
obj_t BgL_arg3012z00_1005;
BgL_arg3012z00_1005 = 
BGl_stvarz00zzdotnet_asz00(BgL_vz00_763, BgL_paramsz00_72, BgL_localsz00_73); 
BGl_displayzd22zd2zz__r4_output_6_10_3z00(BgL_arg3012z00_1005, BgL_outz00_70); } 
return 
WRITE_CHAR(((unsigned char)'\n'), BgL_outz00_70);}  else 
{ /* ./DotNet/as.scm 319 */
goto BgL_tagzd2641zd2_771;} }  else 
{ /* ./DotNet/as.scm 319 */
goto BgL_tagzd2641zd2_771;} }  else 
{ /* ./DotNet/as.scm 319 */
bool_t BgL_test2691z00_880;
{ /* ./DotNet/as.scm 319 */
obj_t BgL_auxz00_6487;obj_t BgL_auxz00_6485;
BgL_auxz00_6487 = 
CNST_TABLE_REF(((long)145)); 
BgL_auxz00_6485 = 
CAR(BgL_iz00_74); 
BgL_test2691z00_880 = 
(BgL_auxz00_6485==BgL_auxz00_6487); } 
if(BgL_test2691z00_880)
{ /* ./DotNet/as.scm 319 */
bool_t BgL_test2692z00_881;
BgL_test2692z00_881 = 
PAIRP(BgL_cdrzd22645zd2_873); 
if(BgL_test2692z00_881)
{ /* ./DotNet/as.scm 319 */
bool_t BgL_test2693z00_882;
{ /* ./DotNet/as.scm 319 */
obj_t BgL_auxz00_6493;
BgL_auxz00_6493 = 
CDR(BgL_cdrzd22645zd2_873); 
BgL_test2693z00_882 = 
NULLP(BgL_auxz00_6493); } 
if(BgL_test2693z00_882)
{ /* ./DotNet/as.scm 319 */
obj_t BgL_arg2695z00_883;
BgL_arg2695z00_883 = 
CAR(BgL_cdrzd22645zd2_873); 
BgL_fz00_765 = BgL_arg2695z00_883; 
{ /* ./DotNet/as.scm 357 */
obj_t BgL_list3017z00_1006;
BgL_list3017z00_1006 = 
MAKE_PAIR(BGl_string6184z00zzdotnet_asz00, BNIL); 
BGl_za2displayza2zzdotnet_asz00(BgL_outz00_70, BgL_list3017z00_1006); } 
return 
BGl_outfieldz00zzdotnet_asz00(BgL_outz00_70, BgL_declsz00_71, BgL_fz00_765);}  else 
{ /* ./DotNet/as.scm 319 */
goto BgL_tagzd2641zd2_771;} }  else 
{ /* ./DotNet/as.scm 319 */
goto BgL_tagzd2641zd2_771;} }  else 
{ /* ./DotNet/as.scm 319 */
obj_t BgL_cdrzd22689zd2_885;
BgL_cdrzd22689zd2_885 = 
CDR(BgL_iz00_74); 
{ /* ./DotNet/as.scm 319 */
bool_t BgL_test2705z00_886;
{ /* ./DotNet/as.scm 319 */
obj_t BgL_auxz00_6504;obj_t BgL_auxz00_6502;
BgL_auxz00_6504 = 
CNST_TABLE_REF(((long)146)); 
BgL_auxz00_6502 = 
CAR(BgL_iz00_74); 
BgL_test2705z00_886 = 
(BgL_auxz00_6502==BgL_auxz00_6504); } 
if(BgL_test2705z00_886)
{ /* ./DotNet/as.scm 319 */
bool_t BgL_test2706z00_887;
BgL_test2706z00_887 = 
PAIRP(BgL_cdrzd22689zd2_885); 
if(BgL_test2706z00_887)
{ /* ./DotNet/as.scm 319 */
bool_t BgL_test2707z00_888;
{ /* ./DotNet/as.scm 319 */
obj_t BgL_auxz00_6510;
BgL_auxz00_6510 = 
CDR(BgL_cdrzd22689zd2_885); 
BgL_test2707z00_888 = 
NULLP(BgL_auxz00_6510); } 
if(BgL_test2707z00_888)
{ /* ./DotNet/as.scm 319 */
obj_t BgL_arg2709z00_889;
BgL_arg2709z00_889 = 
CAR(BgL_cdrzd22689zd2_885); 
BgL_fz00_767 = BgL_arg2709z00_889; 
{ /* ./DotNet/as.scm 360 */
obj_t BgL_list3021z00_1007;
BgL_list3021z00_1007 = 
MAKE_PAIR(BGl_string6185z00zzdotnet_asz00, BNIL); 
BGl_za2displayza2zzdotnet_asz00(BgL_outz00_70, BgL_list3021z00_1007); } 
return 
BGl_outfieldz00zzdotnet_asz00(BgL_outz00_70, BgL_declsz00_71, BgL_fz00_767);}  else 
{ /* ./DotNet/as.scm 319 */
goto BgL_tagzd2641zd2_771;} }  else 
{ /* ./DotNet/as.scm 319 */
goto BgL_tagzd2641zd2_771;} }  else 
{ /* ./DotNet/as.scm 319 */
bool_t BgL_test2719z00_892;
{ /* ./DotNet/as.scm 319 */
obj_t BgL_auxz00_6520;obj_t BgL_auxz00_6518;
BgL_auxz00_6520 = 
CNST_TABLE_REF(((long)147)); 
BgL_auxz00_6518 = 
CAR(BgL_iz00_74); 
BgL_test2719z00_892 = 
(BgL_auxz00_6518==BgL_auxz00_6520); } 
if(BgL_test2719z00_892)
{ /* ./DotNet/as.scm 319 */
bool_t BgL_test2720z00_893;
BgL_test2720z00_893 = 
PAIRP(BgL_cdrzd22689zd2_885); 
if(BgL_test2720z00_893)
{ /* ./DotNet/as.scm 319 */
bool_t BgL_test2721z00_894;
{ /* ./DotNet/as.scm 319 */
obj_t BgL_auxz00_6526;
BgL_auxz00_6526 = 
CDR(BgL_cdrzd22689zd2_885); 
BgL_test2721z00_894 = 
NULLP(BgL_auxz00_6526); } 
if(BgL_test2721z00_894)
{ /* ./DotNet/as.scm 319 */
obj_t BgL_arg2723z00_895;
BgL_arg2723z00_895 = 
CAR(BgL_cdrzd22689zd2_885); 
BgL_labz00_769 = BgL_arg2723z00_895; 
display_string(BGl_string6186z00zzdotnet_asz00, BgL_outz00_70); 
BGl_displayzd22zd2zz__r4_output_6_10_3z00(BgL_labz00_769, BgL_outz00_70); 
return 
WRITE_CHAR(((unsigned char)'\n'), BgL_outz00_70);}  else 
{ /* ./DotNet/as.scm 319 */
goto BgL_tagzd2641zd2_771;} }  else 
{ /* ./DotNet/as.scm 319 */
goto BgL_tagzd2641zd2_771;} }  else 
{ /* ./DotNet/as.scm 319 */
goto BgL_tagzd2641zd2_771;} } } } } } } } } } } } } } } } } } } } } } } } } } } } } } } } } } } }  else 
{ /* ./DotNet/as.scm 319 */
goto BgL_tagzd2641zd2_771;} } } } 
}



/* maxstack */
long BGl_maxstackz00zzdotnet_asz00(obj_t BgL_outz00_75, obj_t BgL_declsz00_76, obj_t BgL_codez00_77)
{ AN_OBJECT;
{ /* ./DotNet/as.scm 535 */
{ /* ./DotNet/as.scm 536 */
obj_t BgL_donez00_1861;obj_t BgL_maxz00_1862;
BgL_donez00_1861 = 
MAKE_CELL(BNIL); 
{ /* ./DotNet/as.scm 536 */
obj_t BgL_cellvalz00_6534;
BgL_cellvalz00_6534 = 
BINT(((long)0)); 
BgL_maxz00_1862 = 
MAKE_CELL(BgL_cellvalz00_6534); } 
BGl_walkz00zzdotnet_asz00(BgL_maxz00_1862, BgL_declsz00_76, BgL_donez00_1861, BgL_codez00_77, BgL_codez00_77, ((long)0)); 
{ /* ./DotNet/as.scm 561 */
obj_t BgL_auxz00_6537;
BgL_auxz00_6537 = 
CELL_REF(BgL_maxz00_1862); 
return 
(long)CINT(BgL_auxz00_6537);} } } 
}



/* walk */
obj_t BGl_walkz00zzdotnet_asz00(obj_t BgL_maxz00_3844, obj_t BgL_declsz00_3843, obj_t BgL_donez00_3842, obj_t BgL_codez00_3841, obj_t BgL_lz00_1864, long BgL_curz00_1865)
{ AN_OBJECT;
{ /* ./DotNet/as.scm 539 */
BGl_walkz00zzdotnet_asz00:
{ /* ./DotNet/as.scm 538 */
bool_t BgL_test4862z00_1867;
BgL_test4862z00_1867 = 
PAIRP(BgL_lz00_1864); 
if(BgL_test4862z00_1867)
{ /* ./DotNet/as.scm 538 */((bool_t)0); }  else 
{ /* ./DotNet/as.scm 539 */
obj_t BgL_procz00_3519;
BgL_procz00_3519 = 
CNST_TABLE_REF(((long)148)); 
FAILURE(BgL_procz00_3519,BGl_string6249z00zzdotnet_asz00,BgL_codez00_3841);} } 
{ /* ./DotNet/as.scm 540 */
obj_t BgL_iz00_1868;
BgL_iz00_1868 = 
CAR(BgL_lz00_1864); 
{ /* ./DotNet/as.scm 542 */
bool_t BgL_test4865z00_1869;
BgL_test4865z00_1869 = 
PAIRP(BgL_iz00_1868); 
if(BgL_test4865z00_1869)
{ /* ./DotNet/as.scm 542 */
{ /* ./DotNet/as.scm 549 */
obj_t BgL_dz00_1870;long BgL_exz00_1871;
BgL_dz00_1870 = 
BGl_diffstackz00zzdotnet_asz00(BgL_declsz00_3843, BgL_iz00_1868); 
BgL_exz00_1871 = 
BGl_extraz00zzdotnet_asz00(BgL_iz00_1868); 
{ /* ./DotNet/as.scm 551 */
bool_t BgL_test4866z00_1872;
{ /* ./DotNet/as.scm 551 */
long BgL_arg4869z00_1873;
BgL_arg4869z00_1873 = 
(BgL_curz00_1865+BgL_exz00_1871); 
{ /* ./DotNet/as.scm 551 */
long BgL_n2z00_3527;
{ /* ./DotNet/as.scm 551 */
obj_t BgL_auxz00_6549;
BgL_auxz00_6549 = 
CELL_REF(BgL_maxz00_3844); 
BgL_n2z00_3527 = 
(long)CINT(BgL_auxz00_6549); } 
BgL_test4866z00_1872 = 
(BgL_arg4869z00_1873>BgL_n2z00_3527); } } 
if(BgL_test4866z00_1872)
{ /* ./DotNet/as.scm 552 */
obj_t BgL_auxz00_3845;
{ /* ./DotNet/as.scm 552 */
long BgL_auxz00_6553;
BgL_auxz00_6553 = 
(BgL_curz00_1865+BgL_exz00_1871); 
BgL_auxz00_3845 = 
BINT(BgL_auxz00_6553); } 
CELL_SET(BgL_maxz00_3844, BgL_auxz00_3845); }  else 
{ /* ./DotNet/as.scm 551 */BFALSE; } } 
{ /* ./DotNet/as.scm 553 */
long BgL_ncurz00_1874;
{ /* ./DotNet/as.scm 553 */
long BgL_auxz00_6556;
BgL_auxz00_6556 = 
(long)CINT(BgL_dz00_1870); 
BgL_ncurz00_1874 = 
(BgL_curz00_1865+BgL_auxz00_6556); } 
{ /* ./DotNet/as.scm 554 */
bool_t BgL_test4872z00_1875;
{ /* ./DotNet/as.scm 554 */
long BgL_n2z00_3533;
{ /* ./DotNet/as.scm 554 */
obj_t BgL_auxz00_6559;
BgL_auxz00_6559 = 
CELL_REF(BgL_maxz00_3844); 
BgL_n2z00_3533 = 
(long)CINT(BgL_auxz00_6559); } 
BgL_test4872z00_1875 = 
(BgL_ncurz00_1874>BgL_n2z00_3533); } 
if(BgL_test4872z00_1875)
{ /* ./DotNet/as.scm 555 */
obj_t BgL_auxz00_3846;
BgL_auxz00_3846 = 
BINT(BgL_ncurz00_1874); 
CELL_SET(BgL_maxz00_3844, BgL_auxz00_3846); }  else 
{ /* ./DotNet/as.scm 554 */BFALSE; } } 
{ /* ./DotNet/as.scm 556 */
bool_t BgL_test4874z00_1876;
BgL_test4874z00_1876 = 
BGl_nextzf3zf3zzdotnet_asz00(BgL_iz00_1868); 
if(BgL_test4874z00_1876)
{ /* ./DotNet/as.scm 557 */
obj_t BgL_arg4876z00_1877;
BgL_arg4876z00_1877 = 
CDR(BgL_lz00_1864); 
BGl_walkz00zzdotnet_asz00(BgL_maxz00_3844, BgL_declsz00_3843, BgL_donez00_3842, BgL_codez00_3841, BgL_arg4876z00_1877, BgL_ncurz00_1874); }  else 
{ /* ./DotNet/as.scm 556 */BFALSE; } } 
{ 
obj_t BgL_l1173z00_1878;
{ /* ./DotNet/as.scm 560 */
obj_t BgL_arg4881z00_1880;
BgL_arg4881z00_1880 = 
BGl_followz00zzdotnet_asz00(BgL_iz00_1868); 
{ /* ./DotNet/as.scm 558 */
bool_t BgL_auxz00_6569;
BgL_l1173z00_1878 = BgL_arg4881z00_1880; 
BgL_forzd2each1174zd2_1879:
{ /* ./DotNet/as.scm 558 */
bool_t BgL_test4884z00_1881;
BgL_test4884z00_1881 = 
PAIRP(BgL_l1173z00_1878); 
if(BgL_test4884z00_1881)
{ /* ./DotNet/as.scm 558 */
{ /* ./DotNet/as.scm 559 */
obj_t BgL_labz00_1882;
BgL_labz00_1882 = 
CAR(BgL_l1173z00_1878); 
{ /* ./DotNet/as.scm 559 */
obj_t BgL_arg4886z00_1883;
BgL_arg4886z00_1883 = 
BGl_memqz00zz__r4_pairs_and_lists_6_3z00(BgL_labz00_1882, BgL_codez00_3841); 
BGl_walkz00zzdotnet_asz00(BgL_maxz00_3844, BgL_declsz00_3843, BgL_donez00_3842, BgL_codez00_3841, BgL_arg4886z00_1883, BgL_ncurz00_1874); } } 
{ /* ./DotNet/as.scm 558 */
obj_t BgL_arg4891z00_1884;
BgL_arg4891z00_1884 = 
CDR(BgL_l1173z00_1878); 
{ 
obj_t BgL_l1173z00_6576;
BgL_l1173z00_6576 = BgL_arg4891z00_1884; 
BgL_l1173z00_1878 = BgL_l1173z00_6576; 
goto BgL_forzd2each1174zd2_1879;} } }  else 
{ /* ./DotNet/as.scm 558 */
BgL_auxz00_6569 = ((bool_t)1); } } 
return 
BBOOL(BgL_auxz00_6569);} } } } } }  else 
{ /* ./DotNet/as.scm 542 */
{ /* ./DotNet/as.scm 543 */
bool_t BgL_test4898z00_1885;
{ /* ./DotNet/as.scm 543 */
obj_t BgL_auxz00_6578;
BgL_auxz00_6578 = 
BGl_memqz00zz__r4_pairs_and_lists_6_3z00(BgL_iz00_1868, 
CELL_REF(BgL_donez00_3842)); 
BgL_test4898z00_1885 = 
CBOOL(BgL_auxz00_6578); } 
if(BgL_test4898z00_1885)
{ /* ./DotNet/as.scm 543 */
return 
CNST_TABLE_REF(((long)17));}  else 
{ /* ./DotNet/as.scm 543 */
{ /* ./DotNet/as.scm 545 */
obj_t BgL_auxz00_3847;
{ /* ./DotNet/as.scm 545 */
obj_t BgL_auxz00_6583;
BgL_auxz00_6583 = 
CELL_REF(BgL_donez00_3842); 
BgL_auxz00_3847 = 
MAKE_PAIR(BgL_iz00_1868, BgL_auxz00_6583); } 
CELL_SET(BgL_donez00_3842, BgL_auxz00_3847); } 
{ /* ./DotNet/as.scm 547 */
obj_t BgL_arg4901z00_1886;
BgL_arg4901z00_1886 = 
CDR(BgL_lz00_1864); 
{ 
obj_t BgL_lz00_6586;
BgL_lz00_6586 = BgL_arg4901z00_1886; 
BgL_lz00_1864 = BgL_lz00_6586; 
goto BGl_walkz00zzdotnet_asz00;} } } } } } } } 
}



/* next? */
bool_t BGl_nextzf3zf3zzdotnet_asz00(obj_t BgL_iz00_78)
{ AN_OBJECT;
{ /* ./DotNet/as.scm 564 */
{ /* ./DotNet/as.scm 565 */
bool_t BgL_testz00_6587;
{ /* ./DotNet/as.scm 565 */
obj_t BgL_auxz00_6588;
BgL_auxz00_6588 = 
BGl_memqz00zz__r4_pairs_and_lists_6_3z00(
CAR(BgL_iz00_78), 
CNST_TABLE_REF(((long)149))); 
BgL_testz00_6587 = 
CBOOL(BgL_auxz00_6588); } 
if(BgL_testz00_6587)
{ /* ./DotNet/as.scm 565 */
return ((bool_t)0);}  else 
{ /* ./DotNet/as.scm 565 */
return ((bool_t)1);} } } 
}



/* follow */
obj_t BGl_followz00zzdotnet_asz00(obj_t BgL_iz00_79)
{ AN_OBJECT;
{ /* ./DotNet/as.scm 570 */
{ 
obj_t BgL_defz00_1933;obj_t BgL_slotsz00_1934;
{ /* ./DotNet/as.scm 571 */
bool_t BgL_test4913z00_1944;
BgL_test4913z00_1944 = 
PAIRP(BgL_iz00_79); 
if(BgL_test4913z00_1944)
{ /* ./DotNet/as.scm 571 */
obj_t BgL_cdrzd213118zd2_1945;
BgL_cdrzd213118zd2_1945 = 
CDR(BgL_iz00_79); 
{ /* ./DotNet/as.scm 571 */
bool_t BgL_test4914z00_1946;
{ /* ./DotNet/as.scm 571 */
obj_t BgL_auxz00_6598;obj_t BgL_auxz00_6596;
BgL_auxz00_6598 = 
CNST_TABLE_REF(((long)147)); 
BgL_auxz00_6596 = 
CAR(BgL_iz00_79); 
BgL_test4914z00_1946 = 
(BgL_auxz00_6596==BgL_auxz00_6598); } 
if(BgL_test4914z00_1946)
{ /* ./DotNet/as.scm 571 */
bool_t BgL_test4915z00_1947;
BgL_test4915z00_1947 = 
PAIRP(BgL_cdrzd213118zd2_1945); 
if(BgL_test4915z00_1947)
{ /* ./DotNet/as.scm 571 */
bool_t BgL_test4916z00_1948;
{ /* ./DotNet/as.scm 571 */
obj_t BgL_auxz00_6604;
BgL_auxz00_6604 = 
CDR(BgL_cdrzd213118zd2_1945); 
BgL_test4916z00_1948 = 
NULLP(BgL_auxz00_6604); } 
if(BgL_test4916z00_1948)
{ /* ./DotNet/as.scm 571 */
obj_t BgL_arg4918z00_1949;
BgL_arg4918z00_1949 = 
CAR(BgL_cdrzd213118zd2_1945); 
return 
MAKE_PAIR(BgL_arg4918z00_1949, BNIL);}  else 
{ /* ./DotNet/as.scm 571 */
return BNIL;} }  else 
{ /* ./DotNet/as.scm 571 */
return BNIL;} }  else 
{ /* ./DotNet/as.scm 571 */
bool_t BgL_test4928z00_1952;
{ /* ./DotNet/as.scm 571 */
obj_t BgL_auxz00_6612;obj_t BgL_auxz00_6610;
BgL_auxz00_6612 = 
CNST_TABLE_REF(((long)74)); 
BgL_auxz00_6610 = 
CAR(BgL_iz00_79); 
BgL_test4928z00_1952 = 
(BgL_auxz00_6610==BgL_auxz00_6612); } 
if(BgL_test4928z00_1952)
{ /* ./DotNet/as.scm 571 */
bool_t BgL_test4929z00_1953;
BgL_test4929z00_1953 = 
PAIRP(BgL_cdrzd213118zd2_1945); 
if(BgL_test4929z00_1953)
{ /* ./DotNet/as.scm 571 */
bool_t BgL_test4930z00_1954;
{ /* ./DotNet/as.scm 571 */
obj_t BgL_auxz00_6618;
BgL_auxz00_6618 = 
CDR(BgL_cdrzd213118zd2_1945); 
BgL_test4930z00_1954 = 
NULLP(BgL_auxz00_6618); } 
if(BgL_test4930z00_1954)
{ /* ./DotNet/as.scm 571 */
obj_t BgL_arg4932z00_1955;
BgL_arg4932z00_1955 = 
CAR(BgL_cdrzd213118zd2_1945); 
return 
MAKE_PAIR(BgL_arg4932z00_1955, BNIL);}  else 
{ /* ./DotNet/as.scm 571 */
return BNIL;} }  else 
{ /* ./DotNet/as.scm 571 */
return BNIL;} }  else 
{ /* ./DotNet/as.scm 571 */
obj_t BgL_cdrzd213754zd2_1957;
BgL_cdrzd213754zd2_1957 = 
CDR(BgL_iz00_79); 
{ /* ./DotNet/as.scm 571 */
bool_t BgL_test4942z00_1958;
{ /* ./DotNet/as.scm 571 */
obj_t BgL_auxz00_6627;obj_t BgL_auxz00_6625;
BgL_auxz00_6627 = 
CNST_TABLE_REF(((long)75)); 
BgL_auxz00_6625 = 
CAR(BgL_iz00_79); 
BgL_test4942z00_1958 = 
(BgL_auxz00_6625==BgL_auxz00_6627); } 
if(BgL_test4942z00_1958)
{ /* ./DotNet/as.scm 571 */
bool_t BgL_test4943z00_1959;
BgL_test4943z00_1959 = 
PAIRP(BgL_cdrzd213754zd2_1957); 
if(BgL_test4943z00_1959)
{ /* ./DotNet/as.scm 571 */
bool_t BgL_test4944z00_1960;
{ /* ./DotNet/as.scm 571 */
obj_t BgL_auxz00_6633;
BgL_auxz00_6633 = 
CDR(BgL_cdrzd213754zd2_1957); 
BgL_test4944z00_1960 = 
NULLP(BgL_auxz00_6633); } 
if(BgL_test4944z00_1960)
{ /* ./DotNet/as.scm 571 */
obj_t BgL_arg4946z00_1961;
BgL_arg4946z00_1961 = 
CAR(BgL_cdrzd213754zd2_1957); 
return 
MAKE_PAIR(BgL_arg4946z00_1961, BNIL);}  else 
{ /* ./DotNet/as.scm 571 */
return BNIL;} }  else 
{ /* ./DotNet/as.scm 571 */
return BNIL;} }  else 
{ /* ./DotNet/as.scm 571 */
bool_t BgL_test4956z00_1964;
{ /* ./DotNet/as.scm 571 */
obj_t BgL_auxz00_6641;obj_t BgL_auxz00_6639;
BgL_auxz00_6641 = 
CNST_TABLE_REF(((long)76)); 
BgL_auxz00_6639 = 
CAR(BgL_iz00_79); 
BgL_test4956z00_1964 = 
(BgL_auxz00_6639==BgL_auxz00_6641); } 
if(BgL_test4956z00_1964)
{ /* ./DotNet/as.scm 571 */
bool_t BgL_test4957z00_1965;
BgL_test4957z00_1965 = 
PAIRP(BgL_cdrzd213754zd2_1957); 
if(BgL_test4957z00_1965)
{ /* ./DotNet/as.scm 571 */
bool_t BgL_test4958z00_1966;
{ /* ./DotNet/as.scm 571 */
obj_t BgL_auxz00_6647;
BgL_auxz00_6647 = 
CDR(BgL_cdrzd213754zd2_1957); 
BgL_test4958z00_1966 = 
NULLP(BgL_auxz00_6647); } 
if(BgL_test4958z00_1966)
{ /* ./DotNet/as.scm 571 */
obj_t BgL_arg4960z00_1967;
BgL_arg4960z00_1967 = 
CAR(BgL_cdrzd213754zd2_1957); 
return 
MAKE_PAIR(BgL_arg4960z00_1967, BNIL);}  else 
{ /* ./DotNet/as.scm 571 */
return BNIL;} }  else 
{ /* ./DotNet/as.scm 571 */
return BNIL;} }  else 
{ /* ./DotNet/as.scm 571 */
obj_t BgL_cdrzd214334zd2_1969;
BgL_cdrzd214334zd2_1969 = 
CDR(BgL_iz00_79); 
{ /* ./DotNet/as.scm 571 */
bool_t BgL_test4970z00_1970;
{ /* ./DotNet/as.scm 571 */
obj_t BgL_auxz00_6656;obj_t BgL_auxz00_6654;
BgL_auxz00_6656 = 
CNST_TABLE_REF(((long)77)); 
BgL_auxz00_6654 = 
CAR(BgL_iz00_79); 
BgL_test4970z00_1970 = 
(BgL_auxz00_6654==BgL_auxz00_6656); } 
if(BgL_test4970z00_1970)
{ /* ./DotNet/as.scm 571 */
bool_t BgL_test4971z00_1971;
BgL_test4971z00_1971 = 
PAIRP(BgL_cdrzd214334zd2_1969); 
if(BgL_test4971z00_1971)
{ /* ./DotNet/as.scm 571 */
bool_t BgL_test4972z00_1972;
{ /* ./DotNet/as.scm 571 */
obj_t BgL_auxz00_6662;
BgL_auxz00_6662 = 
CDR(BgL_cdrzd214334zd2_1969); 
BgL_test4972z00_1972 = 
NULLP(BgL_auxz00_6662); } 
if(BgL_test4972z00_1972)
{ /* ./DotNet/as.scm 571 */
obj_t BgL_arg4974z00_1973;
BgL_arg4974z00_1973 = 
CAR(BgL_cdrzd214334zd2_1969); 
return 
MAKE_PAIR(BgL_arg4974z00_1973, BNIL);}  else 
{ /* ./DotNet/as.scm 571 */
return BNIL;} }  else 
{ /* ./DotNet/as.scm 571 */
return BNIL;} }  else 
{ /* ./DotNet/as.scm 571 */
bool_t BgL_test4984z00_1976;
{ /* ./DotNet/as.scm 571 */
obj_t BgL_auxz00_6670;obj_t BgL_auxz00_6668;
BgL_auxz00_6670 = 
CNST_TABLE_REF(((long)78)); 
BgL_auxz00_6668 = 
CAR(BgL_iz00_79); 
BgL_test4984z00_1976 = 
(BgL_auxz00_6668==BgL_auxz00_6670); } 
if(BgL_test4984z00_1976)
{ /* ./DotNet/as.scm 571 */
bool_t BgL_test4985z00_1977;
BgL_test4985z00_1977 = 
PAIRP(BgL_cdrzd214334zd2_1969); 
if(BgL_test4985z00_1977)
{ /* ./DotNet/as.scm 571 */
bool_t BgL_test4986z00_1978;
{ /* ./DotNet/as.scm 571 */
obj_t BgL_auxz00_6676;
BgL_auxz00_6676 = 
CDR(BgL_cdrzd214334zd2_1969); 
BgL_test4986z00_1978 = 
NULLP(BgL_auxz00_6676); } 
if(BgL_test4986z00_1978)
{ /* ./DotNet/as.scm 571 */
obj_t BgL_arg4988z00_1979;
BgL_arg4988z00_1979 = 
CAR(BgL_cdrzd214334zd2_1969); 
return 
MAKE_PAIR(BgL_arg4988z00_1979, BNIL);}  else 
{ /* ./DotNet/as.scm 571 */
return BNIL;} }  else 
{ /* ./DotNet/as.scm 571 */
return BNIL;} }  else 
{ /* ./DotNet/as.scm 571 */
obj_t BgL_cdrzd214858zd2_1981;
BgL_cdrzd214858zd2_1981 = 
CDR(BgL_iz00_79); 
{ /* ./DotNet/as.scm 571 */
bool_t BgL_test4998z00_1982;
{ /* ./DotNet/as.scm 571 */
obj_t BgL_auxz00_6685;obj_t BgL_auxz00_6683;
BgL_auxz00_6685 = 
CNST_TABLE_REF(((long)79)); 
BgL_auxz00_6683 = 
CAR(BgL_iz00_79); 
BgL_test4998z00_1982 = 
(BgL_auxz00_6683==BgL_auxz00_6685); } 
if(BgL_test4998z00_1982)
{ /* ./DotNet/as.scm 571 */
bool_t BgL_test4999z00_1983;
BgL_test4999z00_1983 = 
PAIRP(BgL_cdrzd214858zd2_1981); 
if(BgL_test4999z00_1983)
{ /* ./DotNet/as.scm 571 */
bool_t BgL_test5000z00_1984;
{ /* ./DotNet/as.scm 571 */
obj_t BgL_auxz00_6691;
BgL_auxz00_6691 = 
CDR(BgL_cdrzd214858zd2_1981); 
BgL_test5000z00_1984 = 
NULLP(BgL_auxz00_6691); } 
if(BgL_test5000z00_1984)
{ /* ./DotNet/as.scm 571 */
obj_t BgL_arg5002z00_1985;
BgL_arg5002z00_1985 = 
CAR(BgL_cdrzd214858zd2_1981); 
return 
MAKE_PAIR(BgL_arg5002z00_1985, BNIL);}  else 
{ /* ./DotNet/as.scm 571 */
return BNIL;} }  else 
{ /* ./DotNet/as.scm 571 */
return BNIL;} }  else 
{ /* ./DotNet/as.scm 571 */
bool_t BgL_test5012z00_1988;
{ /* ./DotNet/as.scm 571 */
obj_t BgL_auxz00_6699;obj_t BgL_auxz00_6697;
BgL_auxz00_6699 = 
CNST_TABLE_REF(((long)80)); 
BgL_auxz00_6697 = 
CAR(BgL_iz00_79); 
BgL_test5012z00_1988 = 
(BgL_auxz00_6697==BgL_auxz00_6699); } 
if(BgL_test5012z00_1988)
{ /* ./DotNet/as.scm 571 */
bool_t BgL_test5013z00_1989;
BgL_test5013z00_1989 = 
PAIRP(BgL_cdrzd214858zd2_1981); 
if(BgL_test5013z00_1989)
{ /* ./DotNet/as.scm 571 */
bool_t BgL_test5014z00_1990;
{ /* ./DotNet/as.scm 571 */
obj_t BgL_auxz00_6705;
BgL_auxz00_6705 = 
CDR(BgL_cdrzd214858zd2_1981); 
BgL_test5014z00_1990 = 
NULLP(BgL_auxz00_6705); } 
if(BgL_test5014z00_1990)
{ /* ./DotNet/as.scm 571 */
obj_t BgL_arg5016z00_1991;
BgL_arg5016z00_1991 = 
CAR(BgL_cdrzd214858zd2_1981); 
return 
MAKE_PAIR(BgL_arg5016z00_1991, BNIL);}  else 
{ /* ./DotNet/as.scm 571 */
return BNIL;} }  else 
{ /* ./DotNet/as.scm 571 */
return BNIL;} }  else 
{ /* ./DotNet/as.scm 571 */
obj_t BgL_cdrzd215326zd2_1993;
BgL_cdrzd215326zd2_1993 = 
CDR(BgL_iz00_79); 
{ /* ./DotNet/as.scm 571 */
bool_t BgL_test5026z00_1994;
{ /* ./DotNet/as.scm 571 */
obj_t BgL_auxz00_6714;obj_t BgL_auxz00_6712;
BgL_auxz00_6714 = 
CNST_TABLE_REF(((long)81)); 
BgL_auxz00_6712 = 
CAR(BgL_iz00_79); 
BgL_test5026z00_1994 = 
(BgL_auxz00_6712==BgL_auxz00_6714); } 
if(BgL_test5026z00_1994)
{ /* ./DotNet/as.scm 571 */
bool_t BgL_test5027z00_1995;
BgL_test5027z00_1995 = 
PAIRP(BgL_cdrzd215326zd2_1993); 
if(BgL_test5027z00_1995)
{ /* ./DotNet/as.scm 571 */
bool_t BgL_test5028z00_1996;
{ /* ./DotNet/as.scm 571 */
obj_t BgL_auxz00_6720;
BgL_auxz00_6720 = 
CDR(BgL_cdrzd215326zd2_1993); 
BgL_test5028z00_1996 = 
NULLP(BgL_auxz00_6720); } 
if(BgL_test5028z00_1996)
{ /* ./DotNet/as.scm 571 */
obj_t BgL_arg5030z00_1997;
BgL_arg5030z00_1997 = 
CAR(BgL_cdrzd215326zd2_1993); 
return 
MAKE_PAIR(BgL_arg5030z00_1997, BNIL);}  else 
{ /* ./DotNet/as.scm 571 */
return BNIL;} }  else 
{ /* ./DotNet/as.scm 571 */
return BNIL;} }  else 
{ /* ./DotNet/as.scm 571 */
bool_t BgL_test5040z00_2000;
{ /* ./DotNet/as.scm 571 */
obj_t BgL_auxz00_6728;obj_t BgL_auxz00_6726;
BgL_auxz00_6728 = 
CNST_TABLE_REF(((long)82)); 
BgL_auxz00_6726 = 
CAR(BgL_iz00_79); 
BgL_test5040z00_2000 = 
(BgL_auxz00_6726==BgL_auxz00_6728); } 
if(BgL_test5040z00_2000)
{ /* ./DotNet/as.scm 571 */
bool_t BgL_test5041z00_2001;
BgL_test5041z00_2001 = 
PAIRP(BgL_cdrzd215326zd2_1993); 
if(BgL_test5041z00_2001)
{ /* ./DotNet/as.scm 571 */
bool_t BgL_test5042z00_2002;
{ /* ./DotNet/as.scm 571 */
obj_t BgL_auxz00_6734;
BgL_auxz00_6734 = 
CDR(BgL_cdrzd215326zd2_1993); 
BgL_test5042z00_2002 = 
NULLP(BgL_auxz00_6734); } 
if(BgL_test5042z00_2002)
{ /* ./DotNet/as.scm 571 */
obj_t BgL_arg5044z00_2003;
BgL_arg5044z00_2003 = 
CAR(BgL_cdrzd215326zd2_1993); 
return 
MAKE_PAIR(BgL_arg5044z00_2003, BNIL);}  else 
{ /* ./DotNet/as.scm 571 */
return BNIL;} }  else 
{ /* ./DotNet/as.scm 571 */
return BNIL;} }  else 
{ /* ./DotNet/as.scm 571 */
obj_t BgL_cdrzd215738zd2_2005;
BgL_cdrzd215738zd2_2005 = 
CDR(BgL_iz00_79); 
{ /* ./DotNet/as.scm 571 */
bool_t BgL_test5054z00_2006;
{ /* ./DotNet/as.scm 571 */
obj_t BgL_auxz00_6743;obj_t BgL_auxz00_6741;
BgL_auxz00_6743 = 
CNST_TABLE_REF(((long)83)); 
BgL_auxz00_6741 = 
CAR(BgL_iz00_79); 
BgL_test5054z00_2006 = 
(BgL_auxz00_6741==BgL_auxz00_6743); } 
if(BgL_test5054z00_2006)
{ /* ./DotNet/as.scm 571 */
bool_t BgL_test5055z00_2007;
BgL_test5055z00_2007 = 
PAIRP(BgL_cdrzd215738zd2_2005); 
if(BgL_test5055z00_2007)
{ /* ./DotNet/as.scm 571 */
bool_t BgL_test5056z00_2008;
{ /* ./DotNet/as.scm 571 */
obj_t BgL_auxz00_6749;
BgL_auxz00_6749 = 
CDR(BgL_cdrzd215738zd2_2005); 
BgL_test5056z00_2008 = 
NULLP(BgL_auxz00_6749); } 
if(BgL_test5056z00_2008)
{ /* ./DotNet/as.scm 571 */
obj_t BgL_arg5058z00_2009;
BgL_arg5058z00_2009 = 
CAR(BgL_cdrzd215738zd2_2005); 
return 
MAKE_PAIR(BgL_arg5058z00_2009, BNIL);}  else 
{ /* ./DotNet/as.scm 571 */
return BNIL;} }  else 
{ /* ./DotNet/as.scm 571 */
return BNIL;} }  else 
{ /* ./DotNet/as.scm 571 */
bool_t BgL_test5068z00_2012;
{ /* ./DotNet/as.scm 571 */
obj_t BgL_auxz00_6757;obj_t BgL_auxz00_6755;
BgL_auxz00_6757 = 
CNST_TABLE_REF(((long)84)); 
BgL_auxz00_6755 = 
CAR(BgL_iz00_79); 
BgL_test5068z00_2012 = 
(BgL_auxz00_6755==BgL_auxz00_6757); } 
if(BgL_test5068z00_2012)
{ /* ./DotNet/as.scm 571 */
bool_t BgL_test5069z00_2013;
BgL_test5069z00_2013 = 
PAIRP(BgL_cdrzd215738zd2_2005); 
if(BgL_test5069z00_2013)
{ /* ./DotNet/as.scm 571 */
bool_t BgL_test5070z00_2014;
{ /* ./DotNet/as.scm 571 */
obj_t BgL_auxz00_6763;
BgL_auxz00_6763 = 
CDR(BgL_cdrzd215738zd2_2005); 
BgL_test5070z00_2014 = 
NULLP(BgL_auxz00_6763); } 
if(BgL_test5070z00_2014)
{ /* ./DotNet/as.scm 571 */
obj_t BgL_arg5072z00_2015;
BgL_arg5072z00_2015 = 
CAR(BgL_cdrzd215738zd2_2005); 
return 
MAKE_PAIR(BgL_arg5072z00_2015, BNIL);}  else 
{ /* ./DotNet/as.scm 571 */
return BNIL;} }  else 
{ /* ./DotNet/as.scm 571 */
return BNIL;} }  else 
{ /* ./DotNet/as.scm 571 */
obj_t BgL_cdrzd216094zd2_2017;
BgL_cdrzd216094zd2_2017 = 
CDR(BgL_iz00_79); 
{ /* ./DotNet/as.scm 571 */
bool_t BgL_test5082z00_2018;
{ /* ./DotNet/as.scm 571 */
obj_t BgL_auxz00_6772;obj_t BgL_auxz00_6770;
BgL_auxz00_6772 = 
CNST_TABLE_REF(((long)85)); 
BgL_auxz00_6770 = 
CAR(BgL_iz00_79); 
BgL_test5082z00_2018 = 
(BgL_auxz00_6770==BgL_auxz00_6772); } 
if(BgL_test5082z00_2018)
{ /* ./DotNet/as.scm 571 */
bool_t BgL_test5083z00_2019;
BgL_test5083z00_2019 = 
PAIRP(BgL_cdrzd216094zd2_2017); 
if(BgL_test5083z00_2019)
{ /* ./DotNet/as.scm 571 */
bool_t BgL_test5084z00_2020;
{ /* ./DotNet/as.scm 571 */
obj_t BgL_auxz00_6778;
BgL_auxz00_6778 = 
CDR(BgL_cdrzd216094zd2_2017); 
BgL_test5084z00_2020 = 
NULLP(BgL_auxz00_6778); } 
if(BgL_test5084z00_2020)
{ /* ./DotNet/as.scm 571 */
obj_t BgL_arg5086z00_2021;
BgL_arg5086z00_2021 = 
CAR(BgL_cdrzd216094zd2_2017); 
return 
MAKE_PAIR(BgL_arg5086z00_2021, BNIL);}  else 
{ /* ./DotNet/as.scm 571 */
return BNIL;} }  else 
{ /* ./DotNet/as.scm 571 */
return BNIL;} }  else 
{ /* ./DotNet/as.scm 571 */
bool_t BgL_test5096z00_2024;
{ /* ./DotNet/as.scm 571 */
obj_t BgL_auxz00_6786;obj_t BgL_auxz00_6784;
BgL_auxz00_6786 = 
CNST_TABLE_REF(((long)86)); 
BgL_auxz00_6784 = 
CAR(BgL_iz00_79); 
BgL_test5096z00_2024 = 
(BgL_auxz00_6784==BgL_auxz00_6786); } 
if(BgL_test5096z00_2024)
{ /* ./DotNet/as.scm 571 */
bool_t BgL_test5097z00_2025;
BgL_test5097z00_2025 = 
PAIRP(BgL_cdrzd216094zd2_2017); 
if(BgL_test5097z00_2025)
{ /* ./DotNet/as.scm 571 */
bool_t BgL_test5098z00_2026;
{ /* ./DotNet/as.scm 571 */
obj_t BgL_auxz00_6792;
BgL_auxz00_6792 = 
CDR(BgL_cdrzd216094zd2_2017); 
BgL_test5098z00_2026 = 
NULLP(BgL_auxz00_6792); } 
if(BgL_test5098z00_2026)
{ /* ./DotNet/as.scm 571 */
obj_t BgL_arg5100z00_2027;
BgL_arg5100z00_2027 = 
CAR(BgL_cdrzd216094zd2_2017); 
return 
MAKE_PAIR(BgL_arg5100z00_2027, BNIL);}  else 
{ /* ./DotNet/as.scm 571 */
return BNIL;} }  else 
{ /* ./DotNet/as.scm 571 */
return BNIL;} }  else 
{ /* ./DotNet/as.scm 571 */
obj_t BgL_cdrzd216394zd2_2029;
BgL_cdrzd216394zd2_2029 = 
CDR(BgL_iz00_79); 
{ /* ./DotNet/as.scm 571 */
bool_t BgL_test5110z00_2030;
{ /* ./DotNet/as.scm 571 */
obj_t BgL_auxz00_6801;obj_t BgL_auxz00_6799;
BgL_auxz00_6801 = 
CNST_TABLE_REF(((long)87)); 
BgL_auxz00_6799 = 
CAR(BgL_iz00_79); 
BgL_test5110z00_2030 = 
(BgL_auxz00_6799==BgL_auxz00_6801); } 
if(BgL_test5110z00_2030)
{ /* ./DotNet/as.scm 571 */
bool_t BgL_test5111z00_2031;
BgL_test5111z00_2031 = 
PAIRP(BgL_cdrzd216394zd2_2029); 
if(BgL_test5111z00_2031)
{ /* ./DotNet/as.scm 571 */
bool_t BgL_test5112z00_2032;
{ /* ./DotNet/as.scm 571 */
obj_t BgL_auxz00_6807;
BgL_auxz00_6807 = 
CDR(BgL_cdrzd216394zd2_2029); 
BgL_test5112z00_2032 = 
NULLP(BgL_auxz00_6807); } 
if(BgL_test5112z00_2032)
{ /* ./DotNet/as.scm 571 */
obj_t BgL_arg5114z00_2033;
BgL_arg5114z00_2033 = 
CAR(BgL_cdrzd216394zd2_2029); 
return 
MAKE_PAIR(BgL_arg5114z00_2033, BNIL);}  else 
{ /* ./DotNet/as.scm 571 */
return BNIL;} }  else 
{ /* ./DotNet/as.scm 571 */
return BNIL;} }  else 
{ /* ./DotNet/as.scm 571 */
bool_t BgL_test5124z00_2036;
{ /* ./DotNet/as.scm 571 */
obj_t BgL_auxz00_6815;obj_t BgL_auxz00_6813;
BgL_auxz00_6815 = 
CNST_TABLE_REF(((long)88)); 
BgL_auxz00_6813 = 
CAR(BgL_iz00_79); 
BgL_test5124z00_2036 = 
(BgL_auxz00_6813==BgL_auxz00_6815); } 
if(BgL_test5124z00_2036)
{ /* ./DotNet/as.scm 571 */
bool_t BgL_test5125z00_2037;
BgL_test5125z00_2037 = 
PAIRP(BgL_cdrzd216394zd2_2029); 
if(BgL_test5125z00_2037)
{ /* ./DotNet/as.scm 571 */
bool_t BgL_test5126z00_2038;
{ /* ./DotNet/as.scm 571 */
obj_t BgL_auxz00_6821;
BgL_auxz00_6821 = 
CDR(BgL_cdrzd216394zd2_2029); 
BgL_test5126z00_2038 = 
NULLP(BgL_auxz00_6821); } 
if(BgL_test5126z00_2038)
{ /* ./DotNet/as.scm 571 */
obj_t BgL_arg5128z00_2039;
BgL_arg5128z00_2039 = 
CAR(BgL_cdrzd216394zd2_2029); 
return 
MAKE_PAIR(BgL_arg5128z00_2039, BNIL);}  else 
{ /* ./DotNet/as.scm 571 */
return BNIL;} }  else 
{ /* ./DotNet/as.scm 571 */
return BNIL;} }  else 
{ /* ./DotNet/as.scm 571 */
obj_t BgL_cdrzd216638zd2_2041;
BgL_cdrzd216638zd2_2041 = 
CDR(BgL_iz00_79); 
{ /* ./DotNet/as.scm 571 */
bool_t BgL_test5138z00_2042;
{ /* ./DotNet/as.scm 571 */
obj_t BgL_auxz00_6830;obj_t BgL_auxz00_6828;
BgL_auxz00_6830 = 
CNST_TABLE_REF(((long)89)); 
BgL_auxz00_6828 = 
CAR(BgL_iz00_79); 
BgL_test5138z00_2042 = 
(BgL_auxz00_6828==BgL_auxz00_6830); } 
if(BgL_test5138z00_2042)
{ /* ./DotNet/as.scm 571 */
bool_t BgL_test5139z00_2043;
BgL_test5139z00_2043 = 
PAIRP(BgL_cdrzd216638zd2_2041); 
if(BgL_test5139z00_2043)
{ /* ./DotNet/as.scm 571 */
bool_t BgL_test5140z00_2044;
{ /* ./DotNet/as.scm 571 */
obj_t BgL_auxz00_6836;
BgL_auxz00_6836 = 
CDR(BgL_cdrzd216638zd2_2041); 
BgL_test5140z00_2044 = 
NULLP(BgL_auxz00_6836); } 
if(BgL_test5140z00_2044)
{ /* ./DotNet/as.scm 571 */
obj_t BgL_arg5142z00_2045;
BgL_arg5142z00_2045 = 
CAR(BgL_cdrzd216638zd2_2041); 
return 
MAKE_PAIR(BgL_arg5142z00_2045, BNIL);}  else 
{ /* ./DotNet/as.scm 571 */
return BNIL;} }  else 
{ /* ./DotNet/as.scm 571 */
return BNIL;} }  else 
{ /* ./DotNet/as.scm 571 */
bool_t BgL_test5152z00_2048;
{ /* ./DotNet/as.scm 571 */
obj_t BgL_auxz00_6844;obj_t BgL_auxz00_6842;
BgL_auxz00_6844 = 
CNST_TABLE_REF(((long)90)); 
BgL_auxz00_6842 = 
CAR(BgL_iz00_79); 
BgL_test5152z00_2048 = 
(BgL_auxz00_6842==BgL_auxz00_6844); } 
if(BgL_test5152z00_2048)
{ /* ./DotNet/as.scm 571 */
bool_t BgL_test5153z00_2049;
BgL_test5153z00_2049 = 
PAIRP(BgL_cdrzd216638zd2_2041); 
if(BgL_test5153z00_2049)
{ /* ./DotNet/as.scm 571 */
bool_t BgL_test5154z00_2050;
{ /* ./DotNet/as.scm 571 */
obj_t BgL_auxz00_6850;
BgL_auxz00_6850 = 
CDR(BgL_cdrzd216638zd2_2041); 
BgL_test5154z00_2050 = 
NULLP(BgL_auxz00_6850); } 
if(BgL_test5154z00_2050)
{ /* ./DotNet/as.scm 571 */
obj_t BgL_arg5156z00_2051;
BgL_arg5156z00_2051 = 
CAR(BgL_cdrzd216638zd2_2041); 
return 
MAKE_PAIR(BgL_arg5156z00_2051, BNIL);}  else 
{ /* ./DotNet/as.scm 571 */
return BNIL;} }  else 
{ /* ./DotNet/as.scm 571 */
return BNIL;} }  else 
{ /* ./DotNet/as.scm 571 */
obj_t BgL_cdrzd216826zd2_2053;
BgL_cdrzd216826zd2_2053 = 
CDR(BgL_iz00_79); 
{ /* ./DotNet/as.scm 571 */
bool_t BgL_test5166z00_2054;
{ /* ./DotNet/as.scm 571 */
obj_t BgL_auxz00_6859;obj_t BgL_auxz00_6857;
BgL_auxz00_6859 = 
CNST_TABLE_REF(((long)91)); 
BgL_auxz00_6857 = 
CAR(BgL_iz00_79); 
BgL_test5166z00_2054 = 
(BgL_auxz00_6857==BgL_auxz00_6859); } 
if(BgL_test5166z00_2054)
{ /* ./DotNet/as.scm 571 */
bool_t BgL_test5167z00_2055;
BgL_test5167z00_2055 = 
PAIRP(BgL_cdrzd216826zd2_2053); 
if(BgL_test5167z00_2055)
{ /* ./DotNet/as.scm 571 */
bool_t BgL_test5168z00_2056;
{ /* ./DotNet/as.scm 571 */
obj_t BgL_auxz00_6865;
BgL_auxz00_6865 = 
CDR(BgL_cdrzd216826zd2_2053); 
BgL_test5168z00_2056 = 
NULLP(BgL_auxz00_6865); } 
if(BgL_test5168z00_2056)
{ /* ./DotNet/as.scm 571 */
obj_t BgL_arg5170z00_2057;
BgL_arg5170z00_2057 = 
CAR(BgL_cdrzd216826zd2_2053); 
return 
MAKE_PAIR(BgL_arg5170z00_2057, BNIL);}  else 
{ /* ./DotNet/as.scm 571 */
return BNIL;} }  else 
{ /* ./DotNet/as.scm 571 */
return BNIL;} }  else 
{ /* ./DotNet/as.scm 571 */
bool_t BgL_test5180z00_2060;
{ /* ./DotNet/as.scm 571 */
obj_t BgL_auxz00_6873;obj_t BgL_auxz00_6871;
BgL_auxz00_6873 = 
CNST_TABLE_REF(((long)92)); 
BgL_auxz00_6871 = 
CAR(BgL_iz00_79); 
BgL_test5180z00_2060 = 
(BgL_auxz00_6871==BgL_auxz00_6873); } 
if(BgL_test5180z00_2060)
{ /* ./DotNet/as.scm 571 */
bool_t BgL_test5181z00_2061;
BgL_test5181z00_2061 = 
PAIRP(BgL_cdrzd216826zd2_2053); 
if(BgL_test5181z00_2061)
{ /* ./DotNet/as.scm 571 */
bool_t BgL_test5182z00_2062;
{ /* ./DotNet/as.scm 571 */
obj_t BgL_auxz00_6879;
BgL_auxz00_6879 = 
CDR(BgL_cdrzd216826zd2_2053); 
BgL_test5182z00_2062 = 
NULLP(BgL_auxz00_6879); } 
if(BgL_test5182z00_2062)
{ /* ./DotNet/as.scm 571 */
obj_t BgL_arg5184z00_2063;
BgL_arg5184z00_2063 = 
CAR(BgL_cdrzd216826zd2_2053); 
return 
MAKE_PAIR(BgL_arg5184z00_2063, BNIL);}  else 
{ /* ./DotNet/as.scm 571 */
return BNIL;} }  else 
{ /* ./DotNet/as.scm 571 */
return BNIL;} }  else 
{ /* ./DotNet/as.scm 571 */
obj_t BgL_cdrzd216958zd2_2065;
BgL_cdrzd216958zd2_2065 = 
CDR(BgL_iz00_79); 
{ /* ./DotNet/as.scm 571 */
bool_t BgL_test5194z00_2066;
{ /* ./DotNet/as.scm 571 */
obj_t BgL_auxz00_6888;obj_t BgL_auxz00_6886;
BgL_auxz00_6888 = 
CNST_TABLE_REF(((long)93)); 
BgL_auxz00_6886 = 
CAR(BgL_iz00_79); 
BgL_test5194z00_2066 = 
(BgL_auxz00_6886==BgL_auxz00_6888); } 
if(BgL_test5194z00_2066)
{ /* ./DotNet/as.scm 571 */
bool_t BgL_test5195z00_2067;
BgL_test5195z00_2067 = 
PAIRP(BgL_cdrzd216958zd2_2065); 
if(BgL_test5195z00_2067)
{ /* ./DotNet/as.scm 571 */
bool_t BgL_test5196z00_2068;
{ /* ./DotNet/as.scm 571 */
obj_t BgL_auxz00_6894;
BgL_auxz00_6894 = 
CDR(BgL_cdrzd216958zd2_2065); 
BgL_test5196z00_2068 = 
NULLP(BgL_auxz00_6894); } 
if(BgL_test5196z00_2068)
{ /* ./DotNet/as.scm 571 */
obj_t BgL_arg5198z00_2069;
BgL_arg5198z00_2069 = 
CAR(BgL_cdrzd216958zd2_2065); 
return 
MAKE_PAIR(BgL_arg5198z00_2069, BNIL);}  else 
{ /* ./DotNet/as.scm 571 */
return BNIL;} }  else 
{ /* ./DotNet/as.scm 571 */
return BNIL;} }  else 
{ /* ./DotNet/as.scm 571 */
bool_t BgL_test5208z00_2072;
{ /* ./DotNet/as.scm 571 */
obj_t BgL_auxz00_6902;obj_t BgL_auxz00_6900;
BgL_auxz00_6902 = 
CNST_TABLE_REF(((long)19)); 
BgL_auxz00_6900 = 
CAR(BgL_iz00_79); 
BgL_test5208z00_2072 = 
(BgL_auxz00_6900==BgL_auxz00_6902); } 
if(BgL_test5208z00_2072)
{ /* ./DotNet/as.scm 571 */
bool_t BgL_test5209z00_2073;
BgL_test5209z00_2073 = 
PAIRP(BgL_cdrzd216958zd2_2065); 
if(BgL_test5209z00_2073)
{ /* ./DotNet/as.scm 571 */
obj_t BgL_arg5211z00_2074;obj_t BgL_arg5212z00_2075;
BgL_arg5211z00_2074 = 
CAR(BgL_cdrzd216958zd2_2065); 
BgL_arg5212z00_2075 = 
CDR(BgL_cdrzd216958zd2_2065); 
BgL_defz00_1933 = BgL_arg5211z00_2074; 
BgL_slotsz00_1934 = BgL_arg5212z00_2075; 
{ /* ./DotNet/as.scm 594 */
obj_t BgL_arg5418z00_2138;
{ /* ./DotNet/as.scm 594 */
bool_t BgL_test5420z00_2140;
BgL_test5420z00_2140 = 
NULLP(BgL_slotsz00_1934); 
if(BgL_test5420z00_2140)
{ /* ./DotNet/as.scm 594 */
BgL_arg5418z00_2138 = BNIL; }  else 
{ /* ./DotNet/as.scm 594 */
obj_t BgL_head1177z00_2141;
{ /* ./DotNet/as.scm 594 */
obj_t BgL_arg5441z00_2152;
{ /* ./DotNet/as.scm 594 */
obj_t BgL_auxz00_6912;
BgL_auxz00_6912 = 
CAR(BgL_slotsz00_1934); 
BgL_arg5441z00_2152 = 
CDR(BgL_auxz00_6912); } 
BgL_head1177z00_2141 = 
MAKE_PAIR(BgL_arg5441z00_2152, BNIL); } 
{ 
obj_t BgL_l1175z00_2142;obj_t BgL_tail1178z00_2143;
{ /* ./DotNet/as.scm 594 */
obj_t BgL_arg5422z00_2145;
BgL_arg5422z00_2145 = 
CDR(BgL_slotsz00_1934); 
BgL_l1175z00_2142 = BgL_arg5422z00_2145; 
BgL_tail1178z00_2143 = BgL_head1177z00_2141; 
BgL_map1176z00_2144:
{ /* ./DotNet/as.scm 594 */
bool_t BgL_test5425z00_2146;
BgL_test5425z00_2146 = 
NULLP(BgL_l1175z00_2142); 
if(BgL_test5425z00_2146)
{ /* ./DotNet/as.scm 594 */
BgL_arg5418z00_2138 = BgL_head1177z00_2141; }  else 
{ /* ./DotNet/as.scm 594 */
obj_t BgL_newtail1179z00_2147;
{ /* ./DotNet/as.scm 594 */
obj_t BgL_arg5432z00_2149;
{ /* ./DotNet/as.scm 594 */
obj_t BgL_auxz00_6919;
BgL_auxz00_6919 = 
CAR(BgL_l1175z00_2142); 
BgL_arg5432z00_2149 = 
CDR(BgL_auxz00_6919); } 
BgL_newtail1179z00_2147 = 
MAKE_PAIR(BgL_arg5432z00_2149, BNIL); } 
SET_CDR(BgL_tail1178z00_2143, BgL_newtail1179z00_2147); 
{ /* ./DotNet/as.scm 594 */
obj_t BgL_arg5428z00_2148;
BgL_arg5428z00_2148 = 
CDR(BgL_l1175z00_2142); 
{ 
obj_t BgL_tail1178z00_6926;obj_t BgL_l1175z00_6925;
BgL_l1175z00_6925 = BgL_arg5428z00_2148; 
BgL_tail1178z00_6926 = BgL_newtail1179z00_2147; 
BgL_tail1178z00_2143 = BgL_tail1178z00_6926; 
BgL_l1175z00_2142 = BgL_l1175z00_6925; 
goto BgL_map1176z00_2144;} } } } } } } } 
return 
MAKE_PAIR(BgL_defz00_1933, BgL_arg5418z00_2138);} }  else 
{ /* ./DotNet/as.scm 571 */
return BNIL;} }  else 
{ /* ./DotNet/as.scm 571 */
obj_t BgL_cdrzd217027zd2_2076;
BgL_cdrzd217027zd2_2076 = 
CDR(BgL_iz00_79); 
{ /* ./DotNet/as.scm 571 */
bool_t BgL_test5218z00_2077;
{ /* ./DotNet/as.scm 571 */
obj_t BgL_auxz00_6931;obj_t BgL_auxz00_6929;
BgL_auxz00_6931 = 
CNST_TABLE_REF(((long)50)); 
BgL_auxz00_6929 = 
CAR(BgL_iz00_79); 
BgL_test5218z00_2077 = 
(BgL_auxz00_6929==BgL_auxz00_6931); } 
if(BgL_test5218z00_2077)
{ /* ./DotNet/as.scm 571 */
bool_t BgL_test5219z00_2078;
BgL_test5219z00_2078 = 
PAIRP(BgL_cdrzd217027zd2_2076); 
if(BgL_test5219z00_2078)
{ /* ./DotNet/as.scm 571 */
obj_t BgL_cdrzd217032zd2_2079;
BgL_cdrzd217032zd2_2079 = 
CDR(BgL_cdrzd217027zd2_2076); 
{ /* ./DotNet/as.scm 571 */
bool_t BgL_test5220z00_2080;
BgL_test5220z00_2080 = 
PAIRP(BgL_cdrzd217032zd2_2079); 
if(BgL_test5220z00_2080)
{ /* ./DotNet/as.scm 571 */
obj_t BgL_arg5222z00_2081;obj_t BgL_arg5224z00_2083;
BgL_arg5222z00_2081 = 
CAR(BgL_cdrzd217027zd2_2076); 
BgL_arg5224z00_2083 = 
CDR(BgL_cdrzd217032zd2_2079); 
return 
MAKE_PAIR(BgL_arg5222z00_2081, BgL_arg5224z00_2083);}  else 
{ /* ./DotNet/as.scm 571 */
return BNIL;} } }  else 
{ /* ./DotNet/as.scm 571 */
return BNIL;} }  else 
{ /* ./DotNet/as.scm 571 */
bool_t BgL_test5234z00_2085;
{ /* ./DotNet/as.scm 571 */
obj_t BgL_auxz00_6945;obj_t BgL_auxz00_6943;
BgL_auxz00_6945 = 
CNST_TABLE_REF(((long)55)); 
BgL_auxz00_6943 = 
CAR(BgL_iz00_79); 
BgL_test5234z00_2085 = 
(BgL_auxz00_6943==BgL_auxz00_6945); } 
if(BgL_test5234z00_2085)
{ /* ./DotNet/as.scm 571 */
bool_t BgL_test5235z00_2086;
BgL_test5235z00_2086 = 
PAIRP(BgL_cdrzd217027zd2_2076); 
if(BgL_test5235z00_2086)
{ /* ./DotNet/as.scm 571 */
bool_t BgL_test5236z00_2087;
{ /* ./DotNet/as.scm 571 */
obj_t BgL_auxz00_6951;
BgL_auxz00_6951 = 
CDR(BgL_cdrzd217027zd2_2076); 
BgL_test5236z00_2087 = 
NULLP(BgL_auxz00_6951); } 
if(BgL_test5236z00_2087)
{ /* ./DotNet/as.scm 571 */
obj_t BgL_arg5238z00_2088;
BgL_arg5238z00_2088 = 
CAR(BgL_cdrzd217027zd2_2076); 
return 
MAKE_PAIR(BgL_arg5238z00_2088, BNIL);}  else 
{ /* ./DotNet/as.scm 571 */
return BNIL;} }  else 
{ /* ./DotNet/as.scm 571 */
return BNIL;} }  else 
{ /* ./DotNet/as.scm 571 */
return BNIL;} } } } } } } } } } } } } } } } } } } } } } } } } } } } } } } } } } } } }  else 
{ /* ./DotNet/as.scm 571 */
return BNIL;} } } } 
}



/* extra */
long BGl_extraz00zzdotnet_asz00(obj_t BgL_iz00_80)
{ AN_OBJECT;
{ /* ./DotNet/as.scm 600 */
{ /* ./DotNet/as.scm 601 */
bool_t BgL_testz00_6957;
{ /* ./DotNet/as.scm 601 */
obj_t BgL_auxz00_6958;
BgL_auxz00_6958 = 
BGl_memqz00zz__r4_pairs_and_lists_6_3z00(
CAR(BgL_iz00_80), 
CNST_TABLE_REF(((long)150))); 
BgL_testz00_6957 = 
CBOOL(BgL_auxz00_6958); } 
if(BgL_testz00_6957)
{ /* ./DotNet/as.scm 601 */
return ((long)1);}  else 
{ /* ./DotNet/as.scm 601 */
return ((long)0);} } } 
}



/* diffstack */
obj_t BGl_diffstackz00zzdotnet_asz00(obj_t BgL_declsz00_81, obj_t BgL_iz00_82)
{ AN_OBJECT;
{ /* ./DotNet/as.scm 605 */
{ /* ./DotNet/as.scm 607 */
bool_t BgL_test5457z00_2158;
{ /* ./DotNet/as.scm 607 */
obj_t BgL_auxz00_6963;
BgL_auxz00_6963 = 
BGl_memqz00zz__r4_pairs_and_lists_6_3z00(
CAR(BgL_iz00_82), 
CNST_TABLE_REF(((long)151))); 
BgL_test5457z00_2158 = 
CBOOL(BgL_auxz00_6963); } 
if(BgL_test5457z00_2158)
{ /* ./DotNet/as.scm 607 */
return 
BINT(((long)0));}  else 
{ /* ./DotNet/as.scm 612 */
bool_t BgL_test5458z00_2159;
{ /* ./DotNet/as.scm 612 */
obj_t BgL_auxz00_6970;
BgL_auxz00_6970 = 
BGl_memqz00zz__r4_pairs_and_lists_6_3z00(
CAR(BgL_iz00_82), 
CNST_TABLE_REF(((long)152))); 
BgL_test5458z00_2159 = 
CBOOL(BgL_auxz00_6970); } 
if(BgL_test5458z00_2159)
{ /* ./DotNet/as.scm 612 */
return 
BINT(((long)1));}  else 
{ /* ./DotNet/as.scm 617 */
bool_t BgL_test5459z00_2160;
{ /* ./DotNet/as.scm 617 */
obj_t BgL_auxz00_6977;
BgL_auxz00_6977 = 
BGl_memqz00zz__r4_pairs_and_lists_6_3z00(
CAR(BgL_iz00_82), 
CNST_TABLE_REF(((long)153))); 
BgL_test5459z00_2160 = 
CBOOL(BgL_auxz00_6977); } 
if(BgL_test5459z00_2160)
{ /* ./DotNet/as.scm 617 */
return 
BINT(((long)-1));}  else 
{ /* ./DotNet/as.scm 628 */
bool_t BgL_test5460z00_2161;
{ /* ./DotNet/as.scm 628 */
obj_t BgL_auxz00_6984;
BgL_auxz00_6984 = 
BGl_memqz00zz__r4_pairs_and_lists_6_3z00(
CAR(BgL_iz00_82), 
CNST_TABLE_REF(((long)154))); 
BgL_test5460z00_2161 = 
CBOOL(BgL_auxz00_6984); } 
if(BgL_test5460z00_2161)
{ /* ./DotNet/as.scm 628 */
return 
BINT(((long)-2));}  else 
{ /* ./DotNet/as.scm 633 */
bool_t BgL_test5461z00_2162;
{ /* ./DotNet/as.scm 633 */
obj_t BgL_auxz00_6991;
BgL_auxz00_6991 = 
BGl_memqz00zz__r4_pairs_and_lists_6_3z00(
CAR(BgL_iz00_82), 
CNST_TABLE_REF(((long)155))); 
BgL_test5461z00_2162 = 
CBOOL(BgL_auxz00_6991); } 
if(BgL_test5461z00_2162)
{ /* ./DotNet/as.scm 633 */
return 
BINT(((long)-3));}  else 
{ /* ./DotNet/as.scm 635 */
bool_t BgL_test5462z00_2163;
{ /* ./DotNet/as.scm 635 */
obj_t BgL_auxz00_6998;
BgL_auxz00_6998 = 
BGl_memqz00zz__r4_pairs_and_lists_6_3z00(
CAR(BgL_iz00_82), 
CNST_TABLE_REF(((long)156))); 
BgL_test5462z00_2163 = 
CBOOL(BgL_auxz00_6998); } 
if(BgL_test5462z00_2163)
{ /* ./DotNet/as.scm 635 */
{ /* ./DotNet/as.scm 636 */
obj_t BgL_fz00_2164;obj_t BgL_mz00_2165;
BgL_fz00_2164 = 
CAR(BgL_iz00_82); 
{ /* ./DotNet/as.scm 636 */
obj_t BgL_auxz00_7005;
BgL_auxz00_7005 = 
CDR(BgL_iz00_82); 
BgL_mz00_2165 = 
CAR(BgL_auxz00_7005); } 
{ /* ./DotNet/as.scm 637 */
obj_t BgL_naz00_2166;obj_t BgL_nrz00_2167;
BgL_naz00_2166 = 
BGl_nbargsz00zzdotnet_asz00(BgL_declsz00_81, BgL_mz00_2165); 
BgL_nrz00_2167 = 
BGl_nbretz00zzdotnet_asz00(BgL_declsz00_81, BgL_mz00_2165); 
{ /* ./DotNet/as.scm 638 */
bool_t BgL_test5463z00_2168;
{ /* ./DotNet/as.scm 638 */
obj_t BgL_auxz00_7010;
BgL_auxz00_7010 = 
CNST_TABLE_REF(((long)103)); 
BgL_test5463z00_2168 = 
(BgL_fz00_2164==BgL_auxz00_7010); } 
if(BgL_test5463z00_2168)
{ /* ./DotNet/as.scm 638 */BFALSE; }  else 
{ /* ./DotNet/as.scm 639 */
long BgL_za71za7_3737;
BgL_za71za7_3737 = 
(long)CINT(BgL_naz00_2166); 
{ /* ./DotNet/as.scm 639 */
long BgL_auxz00_7015;
BgL_auxz00_7015 = 
(BgL_za71za7_3737+((long)1)); 
BgL_naz00_2166 = 
BINT(BgL_auxz00_7015); } } } 
{ /* ./DotNet/as.scm 640 */
long BgL_za71za7_3739;long BgL_za72za7_3740;
BgL_za71za7_3739 = 
(long)CINT(BgL_nrz00_2167); 
BgL_za72za7_3740 = 
(long)CINT(BgL_naz00_2166); 
{ /* ./DotNet/as.scm 640 */
long BgL_auxz00_7020;
BgL_auxz00_7020 = 
(BgL_za71za7_3739-BgL_za72za7_3740); 
return 
BINT(BgL_auxz00_7020);} } } } }  else 
{ /* ./DotNet/as.scm 635 */
FAILURE(BGl_string6113z00zzdotnet_asz00,BGl_string6248z00zzdotnet_asz00,BgL_iz00_82);} } } } } } } } 
}



/* peep */
obj_t BGl_peepz00zzdotnet_asz00(obj_t BgL_defmz00_83)
{ AN_OBJECT;
{ /* ./DotNet/as.scm 644 */
{ 

{ /* ./DotNet/as.scm 645 */
bool_t BgL_test5502z00_2188;
BgL_test5502z00_2188 = 
PAIRP(BgL_defmz00_83); 
if(BgL_test5502z00_2188)
{ /* ./DotNet/as.scm 645 */
obj_t BgL_cdrzd217220zd2_2189;
BgL_cdrzd217220zd2_2189 = 
CDR(BgL_defmz00_83); 
{ /* ./DotNet/as.scm 645 */
bool_t BgL_test5503z00_2190;
{ /* ./DotNet/as.scm 645 */
obj_t BgL_auxz00_7029;obj_t BgL_auxz00_7027;
BgL_auxz00_7029 = 
CNST_TABLE_REF(((long)12)); 
BgL_auxz00_7027 = 
CAR(BgL_defmz00_83); 
BgL_test5503z00_2190 = 
(BgL_auxz00_7027==BgL_auxz00_7029); } 
if(BgL_test5503z00_2190)
{ /* ./DotNet/as.scm 645 */
bool_t BgL_test5504z00_2191;
BgL_test5504z00_2191 = 
PAIRP(BgL_cdrzd217220zd2_2189); 
if(BgL_test5504z00_2191)
{ /* ./DotNet/as.scm 645 */
obj_t BgL_cdrzd217226zd2_2192;
BgL_cdrzd217226zd2_2192 = 
CDR(BgL_cdrzd217220zd2_2189); 
{ /* ./DotNet/as.scm 645 */
bool_t BgL_test5505z00_2193;
BgL_test5505z00_2193 = 
PAIRP(BgL_cdrzd217226zd2_2192); 
if(BgL_test5505z00_2193)
{ /* ./DotNet/as.scm 645 */
obj_t BgL_cdrzd217232zd2_2194;
BgL_cdrzd217232zd2_2194 = 
CDR(BgL_cdrzd217226zd2_2192); 
{ /* ./DotNet/as.scm 645 */
bool_t BgL_test5506z00_2195;
BgL_test5506z00_2195 = 
PAIRP(BgL_cdrzd217232zd2_2194); 
if(BgL_test5506z00_2195)
{ /* ./DotNet/as.scm 645 */
obj_t BgL_arg5535z00_3760;
{ /* ./DotNet/as.scm 645 */
obj_t BgL_auxz00_7041;
BgL_auxz00_7041 = 
CDR(BgL_cdrzd217220zd2_2189); 
BgL_arg5535z00_3760 = 
CDR(BgL_auxz00_7041); } 
return 
BGl_deadz00zzdotnet_asz00(BgL_arg5535z00_3760);}  else 
{ /* ./DotNet/as.scm 645 */
BgL_tagzd217209zd2_2186:
FAILURE(BGl_string6250z00zzdotnet_asz00,BGl_string6149z00zzdotnet_asz00,BgL_defmz00_83);} } }  else 
{ /* ./DotNet/as.scm 645 */
goto BgL_tagzd217209zd2_2186;} } }  else 
{ /* ./DotNet/as.scm 645 */
goto BgL_tagzd217209zd2_2186;} }  else 
{ /* ./DotNet/as.scm 645 */
goto BgL_tagzd217209zd2_2186;} } }  else 
{ /* ./DotNet/as.scm 645 */
goto BgL_tagzd217209zd2_2186;} } } } 
}



/* dead */
obj_t BGl_deadz00zzdotnet_asz00(obj_t BgL_codez00_84)
{ AN_OBJECT;
{ /* ./DotNet/as.scm 650 */
{ /* ./DotNet/as.scm 656 */
obj_t BgL_envz00_2204;obj_t BgL_continuezf3zf3_2205;
BgL_envz00_2204 = 
BGl_makezd2labenvzd2zzdotnet_asz00(BgL_codez00_84); 
BgL_continuezf3zf3_2205 = 
MAKE_CELL(BTRUE); 
{ 
obj_t BgL_prevz00_2219;obj_t BgL_codez00_2220;obj_t BgL_prevz00_2239;obj_t BgL_codez00_2240;obj_t BgL_insz00_2258;obj_t BgL_insz00_2266;
{ 
obj_t BgL_l1184z00_2212;
BgL_l1184z00_2212 = BgL_codez00_84; 
BgL_forzd2each1185zd2_2213:
{ /* ./DotNet/as.scm 691 */
bool_t BgL_test5540z00_2214;
BgL_test5540z00_2214 = 
PAIRP(BgL_l1184z00_2212); 
if(BgL_test5540z00_2214)
{ /* ./DotNet/as.scm 691 */
{ /* ./DotNet/as.scm 691 */
obj_t BgL_insz00_2215;
BgL_insz00_2215 = 
CAR(BgL_l1184z00_2212); 
BgL_insz00_2266 = BgL_insz00_2215; 
{ 
obj_t BgL_l1180z00_2268;
{ /* ./DotNet/as.scm 666 */
obj_t BgL_arg5666z00_2270;
BgL_arg5666z00_2270 = 
BGl_followz00zzdotnet_asz00(BgL_insz00_2266); 
BgL_l1180z00_2268 = BgL_arg5666z00_2270; 
BgL_forzd2each1181zd2_2269:
{ /* ./DotNet/as.scm 666 */
bool_t BgL_test5669z00_2271;
BgL_test5669z00_2271 = 
PAIRP(BgL_l1180z00_2268); 
if(BgL_test5669z00_2271)
{ /* ./DotNet/as.scm 666 */
{ /* ./DotNet/as.scm 666 */
obj_t BgL_labz00_2272;
BgL_labz00_2272 = 
CAR(BgL_l1180z00_2268); 
BGl_changezd2labzd2zzdotnet_asz00(BgL_continuezf3zf3_2205, BgL_envz00_2204, BgL_labz00_2272, ((long)1)); } 
{ /* ./DotNet/as.scm 666 */
obj_t BgL_arg5673z00_2273;
BgL_arg5673z00_2273 = 
CDR(BgL_l1180z00_2268); 
{ 
obj_t BgL_l1180z00_7056;
BgL_l1180z00_7056 = BgL_arg5673z00_2273; 
BgL_l1180z00_2268 = BgL_l1180z00_7056; 
goto BgL_forzd2each1181zd2_2269;} } }  else 
{ /* ./DotNet/as.scm 666 */((bool_t)1); } } } } } 
{ /* ./DotNet/as.scm 691 */
obj_t BgL_arg5544z00_2216;
BgL_arg5544z00_2216 = 
CDR(BgL_l1184z00_2212); 
{ 
obj_t BgL_l1184z00_7058;
BgL_l1184z00_7058 = BgL_arg5544z00_2216; 
BgL_l1184z00_2212 = BgL_l1184z00_7058; 
goto BgL_forzd2each1185zd2_2213;} } }  else 
{ /* ./DotNet/as.scm 691 */((bool_t)1); } } } 
BgL_zc3anonymousza35549ze3z83_2217:
{ /* ./DotNet/as.scm 693 */
bool_t BgL_testz00_7059;
{ /* ./DotNet/as.scm 693 */
obj_t BgL_auxz00_7060;
BgL_auxz00_7060 = 
CELL_REF(BgL_continuezf3zf3_2205); 
BgL_testz00_7059 = 
CBOOL(BgL_auxz00_7060); } 
if(BgL_testz00_7059)
{ /* ./DotNet/as.scm 693 */
CELL_SET(BgL_continuezf3zf3_2205, BFALSE); 
{ /* ./DotNet/as.scm 696 */
obj_t BgL_arg5551z00_2218;
BgL_arg5551z00_2218 = 
CDR(BgL_codez00_84); 
BgL_prevz00_2219 = BgL_codez00_84; 
BgL_codez00_2220 = BgL_arg5551z00_2218; 
BgL_zc3anonymousza35555ze3z83_2221:
{ /* ./DotNet/as.scm 683 */
bool_t BgL_test5556z00_2222;
BgL_test5556z00_2222 = 
NULLP(BgL_codez00_2220); 
if(BgL_test5556z00_2222)
{ /* ./DotNet/as.scm 683 */
CNST_TABLE_REF(((long)17)); }  else 
{ /* ./DotNet/as.scm 684 */
bool_t BgL_test5557z00_2223;
{ /* ./DotNet/as.scm 684 */
bool_t BgL_testz00_7066;
{ /* ./DotNet/as.scm 684 */
obj_t BgL_auxz00_7067;
BgL_auxz00_7067 = 
CAR(BgL_codez00_2220); 
BgL_testz00_7066 = 
SYMBOLP(BgL_auxz00_7067); } 
if(BgL_testz00_7066)
{ /* ./DotNet/as.scm 685 */
obj_t BgL_auxz00_7070;
{ /* ./DotNet/as.scm 685 */
obj_t BgL_auxz00_7072;
BgL_auxz00_7072 = 
BGl_assqz00zz__r4_pairs_and_lists_6_3z00(
CAR(BgL_codez00_2220), BgL_envz00_2204); 
BgL_auxz00_7070 = 
CDR(BgL_auxz00_7072); } 
BgL_test5557z00_2223 = 
BGl_2zd3zd3zz__r4_numbers_6_5z00(
BINT(((long)0)), BgL_auxz00_7070); }  else 
{ /* ./DotNet/as.scm 684 */
BgL_test5557z00_2223 = ((bool_t)0); } } 
if(BgL_test5557z00_2223)
{ /* ./DotNet/as.scm 684 */
{ /* ./DotNet/as.scm 686 */
obj_t BgL_arg5559z00_2224;
BgL_arg5559z00_2224 = 
CDR(BgL_codez00_2220); 
SET_CDR(BgL_prevz00_2219, BgL_arg5559z00_2224); } 
{ /* ./DotNet/as.scm 687 */
obj_t BgL_arg5563z00_2225;
BgL_arg5563z00_2225 = 
CDR(BgL_codez00_2220); 
{ 
obj_t BgL_codez00_7081;
BgL_codez00_7081 = BgL_arg5563z00_2225; 
BgL_codez00_2220 = BgL_codez00_7081; 
goto BgL_zc3anonymousza35555ze3z83_2221;} } }  else 
{ /* ./DotNet/as.scm 688 */
bool_t BgL_test5566z00_2226;
{ /* ./DotNet/as.scm 688 */
bool_t BgL_testz00_7082;
{ /* ./DotNet/as.scm 688 */
obj_t BgL_auxz00_7083;
BgL_auxz00_7083 = 
CAR(BgL_codez00_2220); 
BgL_testz00_7082 = 
PAIRP(BgL_auxz00_7083); } 
if(BgL_testz00_7082)
{ /* ./DotNet/as.scm 688 */
if(
BGl_nextzf3zf3zzdotnet_asz00(
CAR(BgL_codez00_2220)))
{ /* ./DotNet/as.scm 688 */
BgL_test5566z00_2226 = ((bool_t)0); }  else 
{ /* ./DotNet/as.scm 688 */
BgL_test5566z00_2226 = ((bool_t)1); } }  else 
{ /* ./DotNet/as.scm 688 */
BgL_test5566z00_2226 = ((bool_t)0); } } 
if(BgL_test5566z00_2226)
{ /* ./DotNet/as.scm 688 */
{ /* ./DotNet/as.scm 689 */
obj_t BgL_arg5568z00_2227;
BgL_arg5568z00_2227 = 
CDR(BgL_codez00_2220); 
BgL_prevz00_2239 = BgL_codez00_2220; 
BgL_codez00_2240 = BgL_arg5568z00_2227; 
BgL_zc3anonymousza35602ze3z83_2241:
{ /* ./DotNet/as.scm 670 */
bool_t BgL_test5603z00_2242;
BgL_test5603z00_2242 = 
NULLP(BgL_codez00_2240); 
if(BgL_test5603z00_2242)
{ /* ./DotNet/as.scm 670 */
SET_CDR(BgL_prevz00_2239, BNIL); }  else 
{ /* ./DotNet/as.scm 672 */
bool_t BgL_test5605z00_2243;
{ /* ./DotNet/as.scm 672 */
obj_t BgL_auxz00_7094;
BgL_auxz00_7094 = 
CAR(BgL_codez00_2240); 
BgL_test5605z00_2243 = 
SYMBOLP(BgL_auxz00_7094); } 
if(BgL_test5605z00_2243)
{ /* ./DotNet/as.scm 672 */
{ /* ./DotNet/as.scm 673 */
bool_t BgL_test5606z00_2244;
{ /* ./DotNet/as.scm 673 */
obj_t BgL_auxz00_7098;
{ /* ./DotNet/as.scm 673 */
obj_t BgL_auxz00_7100;
BgL_auxz00_7100 = 
BGl_assqz00zz__r4_pairs_and_lists_6_3z00(
CAR(BgL_codez00_2240), BgL_envz00_2204); 
BgL_auxz00_7098 = 
CDR(BgL_auxz00_7100); } 
BgL_test5606z00_2244 = 
BGl_2zd3zd3zz__r4_numbers_6_5z00(
BINT(((long)0)), BgL_auxz00_7098); } 
if(BgL_test5606z00_2244)
{ /* ./DotNet/as.scm 674 */
obj_t BgL_arg5608z00_2245;
BgL_arg5608z00_2245 = 
CDR(BgL_codez00_2240); 
{ 
obj_t BgL_codez00_7107;
BgL_codez00_7107 = BgL_arg5608z00_2245; 
BgL_codez00_2240 = BgL_codez00_7107; 
goto BgL_zc3anonymousza35602ze3z83_2241;} }  else 
{ /* ./DotNet/as.scm 673 */
SET_CDR(BgL_prevz00_2239, BgL_codez00_2240); 
{ /* ./DotNet/as.scm 676 */
obj_t BgL_arg5613z00_2246;
BgL_arg5613z00_2246 = 
CDR(BgL_codez00_2240); 
{ 
obj_t BgL_codez00_7111;obj_t BgL_prevz00_7110;
BgL_prevz00_7110 = BgL_codez00_2240; 
BgL_codez00_7111 = BgL_arg5613z00_2246; 
BgL_codez00_2220 = BgL_codez00_7111; 
BgL_prevz00_2219 = BgL_prevz00_7110; 
goto BgL_zc3anonymousza35555ze3z83_2221;} } } } }  else 
{ /* ./DotNet/as.scm 677 */
bool_t BgL_test5627z00_2251;
{ /* ./DotNet/as.scm 677 */
obj_t BgL_auxz00_7112;
{ /* ./DotNet/as.scm 677 */
obj_t BgL_auxz00_7113;
{ /* ./DotNet/as.scm 677 */
obj_t BgL_auxz00_7114;
BgL_auxz00_7114 = 
CAR(BgL_codez00_2240); 
BgL_auxz00_7113 = 
CAR(BgL_auxz00_7114); } 
BgL_auxz00_7112 = 
BGl_memqz00zz__r4_pairs_and_lists_6_3z00(BgL_auxz00_7113, 
CNST_TABLE_REF(((long)157))); } 
BgL_test5627z00_2251 = 
CBOOL(BgL_auxz00_7112); } 
if(BgL_test5627z00_2251)
{ /* ./DotNet/as.scm 677 */
SET_CDR(BgL_prevz00_2239, BgL_codez00_2240); 
{ /* ./DotNet/as.scm 679 */
obj_t BgL_arg5630z00_2252;
BgL_arg5630z00_2252 = 
CDR(BgL_codez00_2240); 
{ 
obj_t BgL_codez00_7124;obj_t BgL_prevz00_7123;
BgL_prevz00_7123 = BgL_codez00_2240; 
BgL_codez00_7124 = BgL_arg5630z00_2252; 
BgL_codez00_2220 = BgL_codez00_7124; 
BgL_prevz00_2219 = BgL_prevz00_7123; 
goto BgL_zc3anonymousza35555ze3z83_2221;} } }  else 
{ /* ./DotNet/as.scm 677 */
{ /* ./DotNet/as.scm 680 */
obj_t BgL_arg5634z00_2253;
BgL_arg5634z00_2253 = 
CAR(BgL_codez00_2240); 
BgL_insz00_2258 = BgL_arg5634z00_2253; 
{ 
obj_t BgL_l1182z00_2260;
{ /* ./DotNet/as.scm 668 */
obj_t BgL_arg5653z00_2262;
BgL_arg5653z00_2262 = 
BGl_followz00zzdotnet_asz00(BgL_insz00_2258); 
BgL_l1182z00_2260 = BgL_arg5653z00_2262; 
BgL_forzd2each1183zd2_2261:
{ /* ./DotNet/as.scm 668 */
bool_t BgL_test5656z00_2263;
BgL_test5656z00_2263 = 
PAIRP(BgL_l1182z00_2260); 
if(BgL_test5656z00_2263)
{ /* ./DotNet/as.scm 668 */
{ /* ./DotNet/as.scm 668 */
obj_t BgL_labz00_2264;
BgL_labz00_2264 = 
CAR(BgL_l1182z00_2260); 
BGl_changezd2labzd2zzdotnet_asz00(BgL_continuezf3zf3_2205, BgL_envz00_2204, BgL_labz00_2264, ((long)-1)); } 
{ /* ./DotNet/as.scm 668 */
obj_t BgL_arg5660z00_2265;
BgL_arg5660z00_2265 = 
CDR(BgL_l1182z00_2260); 
{ 
obj_t BgL_l1182z00_7132;
BgL_l1182z00_7132 = BgL_arg5660z00_2265; 
BgL_l1182z00_2260 = BgL_l1182z00_7132; 
goto BgL_forzd2each1183zd2_2261;} } }  else 
{ /* ./DotNet/as.scm 668 */((bool_t)1); } } } } } 
{ /* ./DotNet/as.scm 681 */
obj_t BgL_arg5638z00_2254;
BgL_arg5638z00_2254 = 
CDR(BgL_codez00_2240); 
{ 
obj_t BgL_codez00_7134;
BgL_codez00_7134 = BgL_arg5638z00_2254; 
BgL_codez00_2240 = BgL_codez00_7134; 
goto BgL_zc3anonymousza35602ze3z83_2241;} } } } } } } }  else 
{ /* ./DotNet/as.scm 688 */
{ /* ./DotNet/as.scm 690 */
obj_t BgL_arg5572z00_2228;
BgL_arg5572z00_2228 = 
CDR(BgL_codez00_2220); 
{ 
obj_t BgL_codez00_7137;obj_t BgL_prevz00_7136;
BgL_prevz00_7136 = BgL_codez00_2220; 
BgL_codez00_7137 = BgL_arg5572z00_2228; 
BgL_codez00_2220 = BgL_codez00_7137; 
BgL_prevz00_2219 = BgL_prevz00_7136; 
goto BgL_zc3anonymousza35555ze3z83_2221;} } } } } } } 
goto BgL_zc3anonymousza35549ze3z83_2217;}  else 
{ /* ./DotNet/as.scm 693 */
return 
CNST_TABLE_REF(((long)17));} } } } } 
}



/* make-labenv */
obj_t BGl_makezd2labenvzd2zzdotnet_asz00(obj_t BgL_codez00_2289)
{ AN_OBJECT;
{ /* ./DotNet/as.scm 655 */
BGl_makezd2labenvzd2zzdotnet_asz00:
{ /* ./DotNet/as.scm 652 */
bool_t BgL_test5695z00_2291;
BgL_test5695z00_2291 = 
NULLP(BgL_codez00_2289); 
if(BgL_test5695z00_2291)
{ /* ./DotNet/as.scm 652 */
return BNIL;}  else 
{ /* ./DotNet/as.scm 653 */
bool_t BgL_test5696z00_2292;
{ /* ./DotNet/as.scm 653 */
obj_t BgL_auxz00_7141;
BgL_auxz00_7141 = 
CAR(BgL_codez00_2289); 
BgL_test5696z00_2292 = 
SYMBOLP(BgL_auxz00_7141); } 
if(BgL_test5696z00_2292)
{ /* ./DotNet/as.scm 653 */
{ /* ./DotNet/as.scm 653 */
obj_t BgL_arg5698z00_2293;obj_t BgL_arg5699z00_2294;
{ /* ./DotNet/as.scm 653 */
obj_t BgL_arg5702z00_2295;
BgL_arg5702z00_2295 = 
CAR(BgL_codez00_2289); 
{ /* ./DotNet/as.scm 653 */
obj_t BgL_auxz00_7146;
BgL_auxz00_7146 = 
BINT(((long)0)); 
BgL_arg5698z00_2293 = 
MAKE_PAIR(BgL_arg5702z00_2295, BgL_auxz00_7146); } } 
{ /* ./DotNet/as.scm 654 */
obj_t BgL_arg5707z00_2297;
BgL_arg5707z00_2297 = 
CDR(BgL_codez00_2289); 
BgL_arg5699z00_2294 = 
BGl_makezd2labenvzd2zzdotnet_asz00(BgL_arg5707z00_2297); } 
return 
MAKE_PAIR(BgL_arg5698z00_2293, BgL_arg5699z00_2294);} }  else 
{ /* ./DotNet/as.scm 653 */
{ /* ./DotNet/as.scm 655 */
obj_t BgL_arg5711z00_2298;
BgL_arg5711z00_2298 = 
CDR(BgL_codez00_2289); 
{ 
obj_t BgL_codez00_7153;
BgL_codez00_7153 = BgL_arg5711z00_2298; 
BgL_codez00_2289 = BgL_codez00_7153; 
goto BGl_makezd2labenvzd2zzdotnet_asz00;} } } } } } 
}



/* change-lab */
obj_t BGl_changezd2labzd2zzdotnet_asz00(obj_t BgL_continuezf3zf3_3838, obj_t BgL_envz00_3837, obj_t BgL_labz00_2274, long BgL_incrz00_2275)
{ AN_OBJECT;
{ /* ./DotNet/as.scm 664 */
{ /* ./DotNet/as.scm 658 */
obj_t BgL_slotz00_2277;
BgL_slotz00_2277 = 
BGl_assqz00zz__r4_pairs_and_lists_6_3z00(BgL_labz00_2274, BgL_envz00_3837); 
if(
CBOOL(BgL_slotz00_2277))
{ /* ./DotNet/as.scm 659 */
{ /* ./DotNet/as.scm 660 */
obj_t BgL_arg5679z00_2278;
BgL_arg5679z00_2278 = 
BGl_2zb2zb2zz__r4_numbers_6_5z00(
BINT(BgL_incrz00_2275), 
CDR(BgL_slotz00_2277)); 
SET_CDR(BgL_slotz00_2277, BgL_arg5679z00_2278); } 
{ /* ./DotNet/as.scm 661 */
bool_t BgL_test5685z00_2280;
BgL_test5685z00_2280 = 
BGl_2zd3zd3zz__r4_numbers_6_5z00(
BINT(((long)0)), 
CDR(BgL_slotz00_2277)); 
if(BgL_test5685z00_2280)
{ /* ./DotNet/as.scm 661 */
return 
CELL_SET(BgL_continuezf3zf3_3838, BTRUE);}  else 
{ /* ./DotNet/as.scm 661 */
return 
CNST_TABLE_REF(((long)17));} } }  else 
{ /* ./DotNet/as.scm 664 */
obj_t BgL_procz00_3825;
BgL_procz00_3825 = 
CNST_TABLE_REF(((long)158)); 
FAILURE(BgL_procz00_3825,BGl_string6251z00zzdotnet_asz00,BgL_labz00_2274);} } } 
}

