/*===========================================================================*/
/*   (DotNet/dnld.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/dnld.scm)*/
/* GC selection */
#define THE_GC BOEHM_GC

#include <bigloo.h>


/* Object type definitions */
typedef struct BgL_ccompz00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_idz00;
   obj_t BgL_producerz00;
   obj_t BgL_consumerz00;
   obj_t BgL_finaliza7erza7;
} *BgL_ccompz00_bglt;

typedef struct BgL_valuez00_bgl {
   header_t header;
   obj_t widening;
} *BgL_valuez00_bglt;

typedef struct BgL_variablez00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_idz00;
   obj_t BgL_namez00;
   struct BgL_typez00_bgl * BgL_typez00;
   struct BgL_valuez00_bgl * BgL_valuez00;
   obj_t BgL_accessz00;
   obj_t BgL_fastzd2alphazd2;
   obj_t BgL_removablez00;
   long BgL_occurrencez00;
} *BgL_variablez00_bglt;

typedef struct BgL_globalz00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_idz00;
   obj_t BgL_namez00;
   struct BgL_typez00_bgl * BgL_typez00;
   struct BgL_valuez00_bgl * BgL_valuez00;
   obj_t BgL_accessz00;
   obj_t BgL_fastzd2alphazd2;
   obj_t BgL_removablez00;
   long BgL_occurrencez00;
   obj_t BgL_modulez00;
   obj_t BgL_importz00;
   bool_t BgL_evaluablezf3zf3;
   bool_t BgL_libraryzf3zf3;
   bool_t BgL_userzf3zf3;
   obj_t BgL_pragmaz00;
   obj_t BgL_srcz00;
   obj_t BgL_jvmzd2typezd2namez00;
} *BgL_globalz00_bglt;

typedef struct BgL_localz00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_idz00;
   obj_t BgL_namez00;
   struct BgL_typez00_bgl * BgL_typez00;
   struct BgL_valuez00_bgl * BgL_valuez00;
   obj_t BgL_accessz00;
   obj_t BgL_fastzd2alphazd2;
   obj_t BgL_removablez00;
   long BgL_occurrencez00;
   bool_t BgL_userzf3zf3;
   long BgL_keyz00;
} *BgL_localz00_bglt;

typedef struct BgL_funz00_bgl {
   header_t header;
   obj_t widening;
   long BgL_arityz00;
   obj_t BgL_sidezd2effectzf3z21;
   obj_t BgL_predicatezd2ofzd2;
   obj_t BgL_stackzd2allocatorzd2;
   bool_t BgL_topzf3zf3;
   obj_t BgL_thezd2closurezd2;
   obj_t BgL_effectz00;
} *BgL_funz00_bglt;

typedef struct BgL_sfunz00_bgl {
   header_t header;
   obj_t widening;
   long BgL_arityz00;
   obj_t BgL_sidezd2effectzf3z21;
   obj_t BgL_predicatezd2ofzd2;
   obj_t BgL_stackzd2allocatorzd2;
   bool_t BgL_topzf3zf3;
   obj_t BgL_thezd2closurezd2;
   obj_t BgL_effectz00;
   obj_t BgL_propertyz00;
   obj_t BgL_argsz00;
   obj_t BgL_bodyz00;
   obj_t BgL_classz00;
   obj_t BgL_dssslzd2keywordszd2;
   obj_t BgL_locz00;
} *BgL_sfunz00_bglt;

typedef struct BgL_cfunz00_bgl {
   header_t header;
   obj_t widening;
   long BgL_arityz00;
   obj_t BgL_sidezd2effectzf3z21;
   obj_t BgL_predicatezd2ofzd2;
   obj_t BgL_stackzd2allocatorzd2;
   bool_t BgL_topzf3zf3;
   obj_t BgL_thezd2closurezd2;
   obj_t BgL_effectz00;
   obj_t BgL_argszd2typezd2;
   bool_t BgL_macrozf3zf3;
   bool_t BgL_infixzf3zf3;
   obj_t BgL_methodz00;
} *BgL_cfunz00_bglt;

typedef struct BgL_svarz00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
} *BgL_svarz00_bglt;

typedef struct BgL_scnstz00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_nodez00;
   obj_t BgL_classz00;
   obj_t BgL_locz00;
} *BgL_scnstz00_bglt;

typedef struct BgL_cvarz00_bgl {
   header_t header;
   obj_t widening;
   bool_t BgL_macrozf3zf3;
} *BgL_cvarz00_bglt;

typedef struct BgL_sexitz00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_handlerz00;
   bool_t BgL_detachedzf3zf3;
} *BgL_sexitz00_bglt;

typedef struct BgL_feffectz00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_readz00;
   obj_t BgL_writez00;
} *BgL_feffectz00_bglt;

typedef struct BgL_typez00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_idz00;
   obj_t BgL_namez00;
   obj_t BgL_siza7eza7;
   obj_t BgL_classz00;
   obj_t BgL_coercezd2tozd2;
   obj_t BgL_parentsz00;
   bool_t BgL_initzf3zf3;
   bool_t BgL_magiczf3zf3;
   obj_t BgL_z42z42;
   obj_t BgL_aliasz00;
   obj_t BgL_pointedzd2tozd2byz00;
   obj_t BgL_tvectorz00;
   obj_t BgL_locationz00;
   obj_t BgL_importzd2locationzd2;
} *BgL_typez00_bglt;


extern obj_t BGl_stringza2zd2ze3stringz93zztools_miscz00(obj_t);
BGL_EXPORTED_DECL obj_t BGl_modulezd2initializa7ationz75zzdotnet_ldz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzengine_paramz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzengine_configurez00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzengine_linkz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zztools_speekz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zztools_errorz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zztools_miscz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzread_readerz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzmodule_modulez00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzast_varz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zztype_typez00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzcc_ldz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzcc_execz00(long, char *);
BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__errorz00(long, char *);
BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__osz00(long, char *);
BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__readerz00(long, char *);
BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__evenvz00(long, char *);
BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__r4_pairs_and_lists_6_3z00(long, char *);
BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__r4_strings_6_7z00(long, char *);
BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__r4_ports_6_10_1z00(long, char *);
BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__r4_output_6_10_3z00(long, char *);
static obj_t BGl_zc3anonymousza32087ze3z83zzdotnet_ldz00(obj_t);
static obj_t BGl_zc3anonymousza32234ze3z83zzdotnet_ldz00(obj_t);
extern obj_t BGl_za2dotnetzd2shellza2zd2zzengine_paramz00;
BGL_IMPORT obj_t BGl_withzd2outputzd2tozd2filezd2zz__r4_ports_6_10_1z00(obj_t, obj_t);
static obj_t BGl_methodzd2initzd2zzdotnet_ldz00();
static bool_t BGl_generatezd2rotorzd2msdosz00zzdotnet_ldz00(obj_t, obj_t);
extern obj_t BGl_verbosez00zztools_speekz00(obj_t, obj_t);
BGL_IMPORT obj_t open_input_string(obj_t);
static obj_t BGl__generatezd2pnetzd2shz00zzdotnet_ldz00(obj_t, obj_t, obj_t);
BGL_IMPORT bool_t BGl_chmodz00zz__osz00(obj_t, obj_t);
extern obj_t BGl_za2srczd2filesza2zd2zzengine_paramz00;
static obj_t BGl_makezd2pnetzd2ldzd2commandzd2zzdotnet_ldz00(obj_t, obj_t, obj_t, obj_t);
extern obj_t BGl_za2libzd2dirza2zd2zzengine_paramz00;
BGL_IMPORT obj_t string_to_symbol(char *);
BGL_IMPORT obj_t BGl_definezd2primopzd2refz12z12zz__evenvz00(obj_t, obj_t);
extern obj_t BGl_za2dotnetzd2dllzd2pathza2z00zzengine_paramz00;
BGL_IMPORT obj_t BGl_defaultzd2scriptzd2namez00zz__osz00();
BGL_IMPORT obj_t BGl_consza2za2zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
BGL_IMPORT obj_t BGl_readz00zz__readerz00(obj_t);
extern obj_t BGl_za2ozd2filesza2zd2zzengine_paramz00;
BGL_IMPORT obj_t string_append(obj_t, obj_t);
static bool_t BGl_generatezd2monozd2shz00zzdotnet_ldz00(obj_t, obj_t);
static obj_t BGl_makezd2monozd2ldzd2commandzd2zzdotnet_ldz00(obj_t, obj_t, obj_t, obj_t);
static obj_t BGl__generatezd2monozd2msdosz00zzdotnet_ldz00(obj_t, obj_t, obj_t);
static obj_t BGl__generatezd2pnetzd2msdosz00zzdotnet_ldz00(obj_t, obj_t, obj_t);
static bool_t BGl_generatezd2monozd2msdosz00zzdotnet_ldz00(obj_t, obj_t);
static obj_t BGl_makezd2bigloozd2dllz00zzdotnet_ldz00();
static obj_t BGl__generatezd2rotorzd2shz00zzdotnet_ldz00(obj_t, obj_t, obj_t);
static obj_t BGl_generatezd2dotnetzd2shellzd2scriptzd2zzdotnet_ldz00(obj_t, obj_t, obj_t);
extern obj_t BGl_libzd2ze3stringz31zzcc_ldz00(obj_t, obj_t);
static obj_t BGl_za2dotnetzd2msdoszd2clrsza2z00zzdotnet_ldz00 = BUNSPEC;
BGL_IMPORT obj_t string_to_bstring(char *);
extern obj_t BGl_za2dotnetzd2ldzd2styleza2z00zzengine_paramz00;
static obj_t BGl_zc3anonymousza32049ze3z83zzdotnet_ldz00(obj_t);
extern obj_t BGl_za2destza2z00zzengine_paramz00;
BGL_IMPORT obj_t display_string(obj_t, obj_t);
static obj_t BGl_loopz00zzdotnet_ldz00(obj_t);
extern obj_t BGl_za2dotnetzd2clrza2zd2zzengine_paramz00;
static obj_t BGl_zc3anonymousza32194ze3z83zzdotnet_ldz00(obj_t);
BGL_IMPORT obj_t BGl_assqz00zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
static obj_t BGl_zc3anonymousza32271ze3z83zzdotnet_ldz00(obj_t);
extern obj_t BGl_za2dotnetzd2clrzd2styleza2z00zzengine_paramz00;
static obj_t BGl_cnstzd2initzd2zzdotnet_ldz00();
static obj_t BGl_loopz72z72zzdotnet_ldz00(obj_t);
BGL_IMPORT bool_t bigloo_strcmp(obj_t, obj_t);
extern obj_t BGl_libraryzd2suffixzd2zzcc_ldz00();
static obj_t BGl_generatezd2dotnetzd2scriptz00zzdotnet_ldz00(obj_t, obj_t);
static obj_t BGl_evalzd2initzd2zzdotnet_ldz00();
BGL_IMPORT obj_t BGl_displayzd22zd2zz__r4_output_6_10_3z00(obj_t, obj_t);
extern obj_t BGl_stringzd2replacezd2zztools_miscz00(obj_t, obj_t, obj_t);
static obj_t BGl__generatezd2monozd2shz00zzdotnet_ldz00(obj_t, obj_t, obj_t);
static bool_t BGl_generatezd2rotorzd2shz00zzdotnet_ldz00(obj_t, obj_t);
BGL_IMPORT obj_t BGl_stringzd2appendzd2zz__r4_strings_6_7z00(obj_t);
static obj_t BGl_importedzd2moduleszd2initz00zzdotnet_ldz00();
static bool_t BGl_generatezd2pnetzd2msdosz00zzdotnet_ldz00(obj_t, obj_t);
BGL_IMPORT obj_t BGl_warningz00zz__errorz00(obj_t);
extern obj_t BGl_za2dotnetzd2ldza2zd2zzengine_paramz00;
extern obj_t BGl_za2withzd2filesza2zd2zzengine_paramz00;
extern obj_t BGl_execz00zzcc_execz00(obj_t, bool_t, obj_t);
extern obj_t BGl_za2additionalzd2bigloozd2librariesza2z00zzengine_paramz00;
static obj_t BGl_requirezd2initializa7ationz75zzdotnet_ldz00 = BUNSPEC;
static obj_t BGl_makezd2ldzd2commandz00zzdotnet_ldz00(obj_t, obj_t, obj_t, obj_t);
static obj_t BGl_za2dotnetzd2linkersza2zd2zzdotnet_ldz00 = BUNSPEC;
BGL_IMPORT obj_t BGl_prefixz00zz__osz00(obj_t);
static bool_t BGl_generatezd2pnetzd2shz00zzdotnet_ldz00(obj_t, obj_t);
extern obj_t BGl_uncygdrivez00zztools_miscz00(obj_t);
extern obj_t BGl_za2dotnetzd2clrzd2optza2z00zzengine_paramz00;
static obj_t BGl__makezd2monozd2ldzd2commandzd2zzdotnet_ldz00(obj_t, obj_t, obj_t, obj_t, obj_t);
extern obj_t BGl_userzd2libzd2namez00zzcc_ldz00(obj_t);
static obj_t BGl_libraryzd2moduleszd2initz00zzdotnet_ldz00();
static obj_t BGl_dotnetzd2libdirzd2zzdotnet_ldz00();
static obj_t BGl__generatezd2rotorzd2msdosz00zzdotnet_ldz00(obj_t, obj_t, obj_t);
static obj_t BGl_toplevelzd2initzd2zzdotnet_ldz00();
BGL_EXPORTED_DECL obj_t BGl_dotnetzd2ldzd2zzdotnet_ldz00();
static obj_t BGl__dotnetzd2ldzd2zzdotnet_ldz00(obj_t);
BGL_IMPORT obj_t string_append_3(obj_t, obj_t, obj_t);
static obj_t BGl_zc3anonymousza32305ze3z83zzdotnet_ldz00(obj_t);
static obj_t BGl__makezd2pnetzd2ldzd2commandzd2zzdotnet_ldz00(obj_t, obj_t, obj_t, obj_t, obj_t);
static obj_t BGl_za2dotnetzd2shzd2clrsza2z00zzdotnet_ldz00 = BUNSPEC;
extern obj_t BGl_za2bigloozd2vlibza2zd2zzengine_paramz00;
static obj_t __cnst[ 9 ] ;


DEFINE_STATIC_PROCEDURE( BGl_makezd2pnetzd2ldzd2commandzd2envz00zzdotnet_ldz00, BgL_bgl__makeza7d2pnetza7d2ldza7d2commandza7d2za7za7dotnet_ldza7002659za7, BGl__makezd2pnetzd2ldzd2commandzd2zzdotnet_ldz00, 0L, 4 );
DEFINE_STATIC_PROCEDURE( BGl_generatezd2pnetzd2msdoszd2envzd2zzdotnet_ldz00, BgL_bgl__generateza7d2pnetza7d2msdosza700za7za7dotnet_ldza7002660z00, BGl__generatezd2pnetzd2msdosz00zzdotnet_ldz00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_generatezd2rotorzd2shzd2envzd2zzdotnet_ldz00, BgL_bgl__generateza7d2rotorza7d2shza700za7za7dotnet_ldza7002661z00, BGl__generatezd2rotorzd2shz00zzdotnet_ldz00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_generatezd2monozd2shzd2envzd2zzdotnet_ldz00, BgL_bgl__generateza7d2monoza7d2shza700za7za7dotnet_ldza7002662z00, BGl__generatezd2monozd2shz00zzdotnet_ldz00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_generatezd2monozd2msdoszd2envzd2zzdotnet_ldz00, BgL_bgl__generateza7d2monoza7d2msdosza700za7za7dotnet_ldza7002663z00, BGl__generatezd2monozd2msdosz00zzdotnet_ldz00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_generatezd2pnetzd2shzd2envzd2zzdotnet_ldz00, BgL_bgl__generateza7d2pnetza7d2shza700za7za7dotnet_ldza7002664z00, BGl__generatezd2pnetzd2shz00zzdotnet_ldz00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_makezd2monozd2ldzd2commandzd2envz00zzdotnet_ldz00, BgL_bgl__makeza7d2monoza7d2ldza7d2commandza7d2za7za7dotnet_ldza7002665za7, BGl__makezd2monozd2ldzd2commandzd2zzdotnet_ldz00, 0L, 4 );
DEFINE_STATIC_PROCEDURE( BGl_generatezd2rotorzd2msdoszd2envzd2zzdotnet_ldz00, BgL_bgl__generateza7d2rotorza7d2msdosza700za7za7dotnet_ldza7002666z00, BGl__generatezd2rotorzd2msdosz00zzdotnet_ldz00, 0L, 2 );
DEFINE_STRING( BGl_string2626z00zzdotnet_ldz00, BgL_bgl_string2626za700za7za7dotnet_ldza7002667z00, "*dotnet-msdos-clrs* *dotnet-sh-clrs* *dotnet-linkers* execute write read rotor mono pnet ", 89 );
DEFINE_STRING( BGl_string2625z00zzdotnet_ldz00, BgL_bgl_string2625za700za7za7dotnet_ldza7002668z00, "%*", 2 );
DEFINE_STRING( BGl_string2624z00zzdotnet_ldz00, BgL_bgl_string2624za700za7za7dotnet_ldza7002669z00, "\"\n", 2 );
DEFINE_STRING( BGl_string2623z00zzdotnet_ldz00, BgL_bgl_string2623za700za7za7dotnet_ldza7002670z00, "@set MONO_PATH=\"", 16 );
DEFINE_STRING( BGl_string2622z00zzdotnet_ldz00, BgL_bgl_string2622za700za7za7dotnet_ldza7002671z00, "MONO_PATH=", 10 );
DEFINE_STRING( BGl_string2621z00zzdotnet_ldz00, BgL_bgl_string2621za700za7za7dotnet_ldza7002672z00, "-L\"", 3 );
DEFINE_STRING( BGl_string2620z00zzdotnet_ldz00, BgL_bgl_string2620za700za7za7dotnet_ldza7002673z00, " %*", 3 );
DEFINE_STRING( BGl_string2619z00zzdotnet_ldz00, BgL_bgl_string2619za700za7za7dotnet_ldza7002674z00, " %BIGLOODOTNETOPT% %BUGLOODOTNETOPT% ", 37 );
DEFINE_STRING( BGl_string2618z00zzdotnet_ldz00, BgL_bgl_string2618za700za7za7dotnet_ldza7002675z00, "@", 1 );
DEFINE_STRING( BGl_string2617z00zzdotnet_ldz00, BgL_bgl_string2617za700za7za7dotnet_ldza7002676z00, "$*", 2 );
DEFINE_STRING( BGl_string2616z00zzdotnet_ldz00, BgL_bgl_string2616za700za7za7dotnet_ldza7002677z00, ".exe ", 5 );
DEFINE_STRING( BGl_string2615z00zzdotnet_ldz00, BgL_bgl_string2615za700za7za7dotnet_ldza7002678z00, " -L \"", 5 );
DEFINE_STRING( BGl_string2614z00zzdotnet_ldz00, BgL_bgl_string2614za700za7za7dotnet_ldza7002679z00, " $BIGLOODOTNETOPT $BUGLOODOTNETOPT ", 35 );
DEFINE_STRING( BGl_string2613z00zzdotnet_ldz00, BgL_bgl_string2613za700za7za7dotnet_ldza7002680z00, "#!/bin/sh", 9 );
DEFINE_STRING( BGl_string2612z00zzdotnet_ldz00, BgL_bgl_string2612za700za7za7dotnet_ldza7002681z00, "-L \"", 4 );
DEFINE_STRING( BGl_string2611z00zzdotnet_ldz00, BgL_bgl_string2611za700za7za7dotnet_ldza7002682z00, "\" ", 2 );
DEFINE_STRING( BGl_string2610z00zzdotnet_ldz00, BgL_bgl_string2610za700za7za7dotnet_ldza7002683z00, " -o ", 4 );
DEFINE_STRING( BGl_string2609z00zzdotnet_ldz00, BgL_bgl_string2609za700za7za7dotnet_ldza7002684z00, " -- ", 4 );
DEFINE_STRING( BGl_string2599z00zzdotnet_ldz00, BgL_bgl_string2599za700za7za7dotnet_ldza7002685z00, "ld (dotnet)", 11 );
DEFINE_STRING( BGl_string2608z00zzdotnet_ldz00, BgL_bgl_string2608za700za7za7dotnet_ldza7002686z00, " -l", 3 );
DEFINE_STRING( BGl_string2598z00zzdotnet_ldz00, BgL_bgl_string2598za700za7za7dotnet_ldza7002687z00, "Unknown linker style, supported: ", 33 );
DEFINE_STRING( BGl_string2607z00zzdotnet_ldz00, BgL_bgl_string2607za700za7za7dotnet_ldza7002688z00, "Unknown clr style, supported: ", 30 );
DEFINE_STRING( BGl_string2597z00zzdotnet_ldz00, BgL_bgl_string2597za700za7za7dotnet_ldza7002689z00, "", 0 );
DEFINE_STRING( BGl_string2606z00zzdotnet_ldz00, BgL_bgl_string2606za700za7za7dotnet_ldza7002690z00, "generate-dotnet-script", 22 );
DEFINE_STRING( BGl_string2596z00zzdotnet_ldz00, BgL_bgl_string2596za700za7za7dotnet_ldza7002691z00, " ", 1 );
DEFINE_EXPORT_PROCEDURE( BGl_dotnetzd2ldzd2envz00zzdotnet_ldz00, BgL_bgl__dotnetza7d2ldza7d2za7za7dotnet_ldza7002692za7, BGl__dotnetzd2ldzd2zzdotnet_ldz00, 0L, 0 );
DEFINE_STRING( BGl_string2605z00zzdotnet_ldz00, BgL_bgl_string2605za700za7za7dotnet_ldza7002693z00, "Illegal shell `", 15 );
DEFINE_STRING( BGl_string2595z00zzdotnet_ldz00, BgL_bgl_string2595za700za7za7dotnet_ldza7002694z00, "ld", 2 );
DEFINE_STRING( BGl_string2604z00zzdotnet_ldz00, BgL_bgl_string2604za700za7za7dotnet_ldza7002695z00, "' -- using `sh'", 15 );
DEFINE_STRING( BGl_string2594z00zzdotnet_ldz00, BgL_bgl_string2594za700za7za7dotnet_ldza7002696z00, "      [", 7 );
DEFINE_STRING( BGl_string2603z00zzdotnet_ldz00, BgL_bgl_string2603za700za7za7dotnet_ldza7002697z00, "msdos", 5 );
DEFINE_STRING( BGl_string2593z00zzdotnet_ldz00, BgL_bgl_string2593za700za7za7dotnet_ldza7002698z00, "   . ld (", 9 );
DEFINE_STRING( BGl_string2602z00zzdotnet_ldz00, BgL_bgl_string2602za700za7za7dotnet_ldza7002699z00, "sh", 2 );
DEFINE_STRING( BGl_string2592z00zzdotnet_ldz00, BgL_bgl_string2592za700za7za7dotnet_ldza7002700z00, ")", 1 );
DEFINE_STRING( BGl_string2601z00zzdotnet_ldz00, BgL_bgl_string2601za700za7za7dotnet_ldza7002701z00, " (", 2 );
DEFINE_STRING( BGl_string2591z00zzdotnet_ldz00, BgL_bgl_string2591za700za7za7dotnet_ldza7002702z00, ".obj", 4 );
DEFINE_STRING( BGl_string2600z00zzdotnet_ldz00, BgL_bgl_string2600za700za7za7dotnet_ldza7002703z00, "   . ", 5 );
DEFINE_STRING( BGl_string2590z00zzdotnet_ldz00, BgL_bgl_string2590za700za7za7dotnet_ldza7002704z00, ".exe", 4 );



/* module-initialization */
BGL_EXPORTED_DEF obj_t BGl_modulezd2initializa7ationz75zzdotnet_ldz00(long BgL_checksumz00_915, char * BgL_fromz00_916)
{ AN_OBJECT;
{ 
if(
CBOOL(BGl_requirezd2initializa7ationz75zzdotnet_ldz00))
{ 
BGl_requirezd2initializa7ationz75zzdotnet_ldz00 = 
BBOOL(((bool_t)0)); 
BGl_libraryzd2moduleszd2initz00zzdotnet_ldz00(); 
BGl_cnstzd2initzd2zzdotnet_ldz00(); 
BGl_importedzd2moduleszd2initz00zzdotnet_ldz00(); 
BGl_evalzd2initzd2zzdotnet_ldz00(); 
BGl_toplevelzd2initzd2zzdotnet_ldz00(); 
return BUNSPEC;}  else 
{ 
return BUNSPEC;} } 
}



/* library-modules-init */
obj_t BGl_libraryzd2moduleszd2initz00zzdotnet_ldz00()
{ AN_OBJECT;
{ /* ./DotNet/dnld.scm 15 */
BGl_modulezd2initializa7ationz75zz__r4_ports_6_10_1z00(((long)0), "dotnet_ld"); 
BGl_modulezd2initializa7ationz75zz__osz00(((long)0), "dotnet_ld"); 
BGl_modulezd2initializa7ationz75zz__evenvz00(((long)0), "dotnet_ld"); 
BGl_modulezd2initializa7ationz75zz__r4_pairs_and_lists_6_3z00(((long)0), "dotnet_ld"); 
BGl_modulezd2initializa7ationz75zz__readerz00(((long)0), "dotnet_ld"); 
BGl_modulezd2initializa7ationz75zz__r4_output_6_10_3z00(((long)0), "dotnet_ld"); 
BGl_modulezd2initializa7ationz75zz__r4_strings_6_7z00(((long)0), "dotnet_ld"); 
BGl_modulezd2initializa7ationz75zz__errorz00(((long)0), "dotnet_ld"); 
return BUNSPEC;} 
}



/* cnst-init */
obj_t BGl_cnstzd2initzd2zzdotnet_ldz00()
{ AN_OBJECT;
{ /* ./DotNet/dnld.scm 15 */
{ /* ./DotNet/dnld.scm 15 */
obj_t BgL_cportz00_908;
BgL_cportz00_908 = 
open_input_string(BGl_string2626z00zzdotnet_ldz00); 
{ 
long BgL_iz00_909;
BgL_iz00_909 = ((long)8); 
BgL_loopz00_910:
{ /* ./DotNet/dnld.scm 15 */
bool_t BgL_test2628z00_911;
BgL_test2628z00_911 = 
(BgL_iz00_909==((long)-1)); 
if(BgL_test2628z00_911)
{ /* ./DotNet/dnld.scm 15 */
return BUNSPEC;}  else 
{ /* ./DotNet/dnld.scm 15 */
{ /* ./DotNet/dnld.scm 15 */
obj_t BgL_arg2630z00_912;
{ /* ./DotNet/dnld.scm 15 */
obj_t BgL_list2633z00_913;
BgL_list2633z00_913 = 
MAKE_PAIR(BgL_cportz00_908, BNIL); 
BgL_arg2630z00_912 = 
BGl_readz00zz__readerz00(BgL_list2633z00_913); } 
{ /* ./DotNet/dnld.scm 15 */
int BgL_auxz00_938;
BgL_auxz00_938 = 
(int)(BgL_iz00_909); 
CNST_TABLE_SET(BgL_auxz00_938, BgL_arg2630z00_912); } } 
{ /* ./DotNet/dnld.scm 15 */
int BgL_auxz00_914;
{ /* ./DotNet/dnld.scm 15 */
long BgL_auxz00_941;
BgL_auxz00_941 = 
(BgL_iz00_909-((long)1)); 
BgL_auxz00_914 = 
(int)(BgL_auxz00_941); } 
{ 
long BgL_iz00_944;
BgL_iz00_944 = 
(long)(BgL_auxz00_914); 
BgL_iz00_909 = BgL_iz00_944; 
goto BgL_loopz00_910;} } } } } } } 
}



/* toplevel-init */
obj_t BGl_toplevelzd2initzd2zzdotnet_ldz00()
{ AN_OBJECT;
{ /* ./DotNet/dnld.scm 15 */
{ /* ./DotNet/dnld.scm 37 */
obj_t BgL_arg1620z00_312;obj_t BgL_arg1621z00_313;
{ /* ./DotNet/dnld.scm 37 */
obj_t BgL_auxz00_946;
BgL_auxz00_946 = 
CNST_TABLE_REF(((long)0)); 
BgL_arg1620z00_312 = 
MAKE_PAIR(BgL_auxz00_946, BGl_makezd2pnetzd2ldzd2commandzd2envz00zzdotnet_ldz00); } 
{ /* ./DotNet/dnld.scm 38 */
obj_t BgL_auxz00_949;
BgL_auxz00_949 = 
CNST_TABLE_REF(((long)1)); 
BgL_arg1621z00_313 = 
MAKE_PAIR(BgL_auxz00_949, BGl_makezd2monozd2ldzd2commandzd2envz00zzdotnet_ldz00); } 
{ /* ./DotNet/dnld.scm 37 */
obj_t BgL_list1623z00_314;
{ /* ./DotNet/dnld.scm 37 */
obj_t BgL_arg1625z00_315;
BgL_arg1625z00_315 = 
MAKE_PAIR(BgL_arg1621z00_313, BNIL); 
BgL_list1623z00_314 = 
MAKE_PAIR(BgL_arg1620z00_312, BgL_arg1625z00_315); } 
BGl_za2dotnetzd2linkersza2zd2zzdotnet_ldz00 = BgL_list1623z00_314; } } 
{ /* ./DotNet/dnld.scm 44 */
obj_t BgL_arg1631z00_316;obj_t BgL_arg1632z00_317;obj_t BgL_arg1634z00_318;
{ /* ./DotNet/dnld.scm 44 */
obj_t BgL_auxz00_954;
BgL_auxz00_954 = 
CNST_TABLE_REF(((long)0)); 
BgL_arg1631z00_316 = 
MAKE_PAIR(BgL_auxz00_954, BGl_generatezd2pnetzd2shzd2envzd2zzdotnet_ldz00); } 
{ /* ./DotNet/dnld.scm 45 */
obj_t BgL_auxz00_957;
BgL_auxz00_957 = 
CNST_TABLE_REF(((long)1)); 
BgL_arg1632z00_317 = 
MAKE_PAIR(BgL_auxz00_957, BGl_generatezd2monozd2shzd2envzd2zzdotnet_ldz00); } 
{ /* ./DotNet/dnld.scm 46 */
obj_t BgL_auxz00_960;
BgL_auxz00_960 = 
CNST_TABLE_REF(((long)2)); 
BgL_arg1634z00_318 = 
MAKE_PAIR(BgL_auxz00_960, BGl_generatezd2rotorzd2shzd2envzd2zzdotnet_ldz00); } 
{ /* ./DotNet/dnld.scm 44 */
obj_t BgL_list1636z00_319;
{ /* ./DotNet/dnld.scm 44 */
obj_t BgL_arg1638z00_320;
{ /* ./DotNet/dnld.scm 44 */
obj_t BgL_arg1641z00_321;
BgL_arg1641z00_321 = 
MAKE_PAIR(BgL_arg1634z00_318, BNIL); 
BgL_arg1638z00_320 = 
MAKE_PAIR(BgL_arg1632z00_317, BgL_arg1641z00_321); } 
BgL_list1636z00_319 = 
MAKE_PAIR(BgL_arg1631z00_316, BgL_arg1638z00_320); } 
BGl_za2dotnetzd2shzd2clrsza2z00zzdotnet_ldz00 = BgL_list1636z00_319; } } 
{ /* ./DotNet/dnld.scm 52 */
obj_t BgL_arg1648z00_322;obj_t BgL_arg1650z00_323;obj_t BgL_arg1651z00_324;
{ /* ./DotNet/dnld.scm 52 */
obj_t BgL_auxz00_966;
BgL_auxz00_966 = 
CNST_TABLE_REF(((long)0)); 
BgL_arg1648z00_322 = 
MAKE_PAIR(BgL_auxz00_966, BGl_generatezd2pnetzd2msdoszd2envzd2zzdotnet_ldz00); } 
{ /* ./DotNet/dnld.scm 53 */
obj_t BgL_auxz00_969;
BgL_auxz00_969 = 
CNST_TABLE_REF(((long)1)); 
BgL_arg1650z00_323 = 
MAKE_PAIR(BgL_auxz00_969, BGl_generatezd2monozd2msdoszd2envzd2zzdotnet_ldz00); } 
{ /* ./DotNet/dnld.scm 54 */
obj_t BgL_auxz00_972;
BgL_auxz00_972 = 
CNST_TABLE_REF(((long)2)); 
BgL_arg1651z00_324 = 
MAKE_PAIR(BgL_auxz00_972, BGl_generatezd2rotorzd2msdoszd2envzd2zzdotnet_ldz00); } 
{ /* ./DotNet/dnld.scm 52 */
obj_t BgL_list1653z00_325;
{ /* ./DotNet/dnld.scm 52 */
obj_t BgL_arg1655z00_326;
{ /* ./DotNet/dnld.scm 52 */
obj_t BgL_arg1658z00_327;
BgL_arg1658z00_327 = 
MAKE_PAIR(BgL_arg1651z00_324, BNIL); 
BgL_arg1655z00_326 = 
MAKE_PAIR(BgL_arg1650z00_323, BgL_arg1658z00_327); } 
BgL_list1653z00_325 = 
MAKE_PAIR(BgL_arg1648z00_322, BgL_arg1655z00_326); } 
return ( 
BGl_za2dotnetzd2msdoszd2clrsza2z00zzdotnet_ldz00 = BgL_list1653z00_325, BUNSPEC) ;} } } 
}



/* dotnet-ld */
BGL_EXPORTED_DEF obj_t BGl_dotnetzd2ldzd2zzdotnet_ldz00()
{ AN_OBJECT;
{ /* ./DotNet/dnld.scm 59 */
{ /* ./DotNet/dnld.scm 60 */
obj_t BgL_targetz00_328;
{ /* ./DotNet/dnld.scm 60 */
bool_t BgL_test1771z00_382;
{ /* ./DotNet/dnld.scm 60 */
obj_t BgL_objz00_739;
BgL_objz00_739 = BGl_za2destza2z00zzengine_paramz00; 
BgL_test1771z00_382 = 
STRINGP(BgL_objz00_739); } 
if(BgL_test1771z00_382)
{ /* ./DotNet/dnld.scm 60 */
BgL_targetz00_328 = BGl_za2destza2z00zzengine_paramz00; }  else 
{ /* ./DotNet/dnld.scm 60 */
BgL_targetz00_328 = 
BGl_defaultzd2scriptzd2namez00zz__osz00(); } } 
{ /* ./DotNet/dnld.scm 60 */
obj_t BgL_exenamez00_329;
{ /* ./DotNet/dnld.scm 63 */
obj_t BgL_arg1767z00_380;
BgL_arg1767z00_380 = 
BGl_prefixz00zz__osz00(BgL_targetz00_328); 
BgL_exenamez00_329 = 
string_append(BgL_arg1767z00_380, BGl_string2590z00zzdotnet_ldz00); } 
{ /* ./DotNet/dnld.scm 63 */
obj_t BgL_bigloozd2libzd2_330;
BgL_bigloozd2libzd2_330 = 
BGl_makezd2bigloozd2dllz00zzdotnet_ldz00(); 
{ /* ./DotNet/dnld.scm 64 */
obj_t BgL_otherzd2libszd2_331;
{ /* ./DotNet/dnld.scm 65 */
obj_t BgL_l1580z00_365;
BgL_l1580z00_365 = BGl_za2additionalzd2bigloozd2librariesza2z00zzengine_paramz00; 
{ /* ./DotNet/dnld.scm 65 */
bool_t BgL_test1735z00_366;
BgL_test1735z00_366 = 
NULLP(BgL_l1580z00_365); 
if(BgL_test1735z00_366)
{ /* ./DotNet/dnld.scm 65 */
BgL_otherzd2libszd2_331 = BNIL; }  else 
{ /* ./DotNet/dnld.scm 65 */
obj_t BgL_head1582z00_367;
BgL_head1582z00_367 = 
MAKE_PAIR(BNIL, BNIL); 
{ 
obj_t BgL_l1580z00_368;obj_t BgL_tail1583z00_369;
BgL_l1580z00_368 = BgL_l1580z00_365; 
BgL_tail1583z00_369 = BgL_head1582z00_367; 
BgL_map1581z00_370:
{ /* ./DotNet/dnld.scm 65 */
bool_t BgL_test1737z00_371;
BgL_test1737z00_371 = 
NULLP(BgL_l1580z00_368); 
if(BgL_test1737z00_371)
{ /* ./DotNet/dnld.scm 65 */
BgL_otherzd2libszd2_331 = 
CDR(BgL_head1582z00_367); }  else 
{ /* ./DotNet/dnld.scm 66 */
obj_t BgL_newtail1584z00_372;
{ /* ./DotNet/dnld.scm 66 */
obj_t BgL_arg1748z00_374;
{ /* ./DotNet/dnld.scm 66 */
obj_t BgL_libz00_376;
BgL_libz00_376 = 
CAR(BgL_l1580z00_368); 
{ /* ./DotNet/dnld.scm 67 */
obj_t BgL_arg1752z00_377;obj_t BgL_arg1755z00_378;
BgL_arg1752z00_377 = 
BGl_userzd2libzd2namez00zzcc_ldz00(BgL_libz00_376); 
BgL_arg1755z00_378 = 
BGl_libraryzd2suffixzd2zzcc_ldz00(); 
{ /* ./DotNet/dnld.scm 66 */
obj_t BgL_list1757z00_379;
BgL_list1757z00_379 = 
MAKE_PAIR(BgL_arg1755z00_378, BNIL); 
BgL_arg1748z00_374 = 
BGl_libzd2ze3stringz31zzcc_ldz00(BgL_arg1752z00_377, BgL_list1757z00_379); } } } 
BgL_newtail1584z00_372 = 
MAKE_PAIR(BgL_arg1748z00_374, BNIL); } 
SET_CDR(BgL_tail1583z00_369, BgL_newtail1584z00_372); 
{ /* ./DotNet/dnld.scm 65 */
obj_t BgL_arg1741z00_373;
BgL_arg1741z00_373 = 
CDR(BgL_l1580z00_368); 
{ 
obj_t BgL_tail1583z00_999;obj_t BgL_l1580z00_998;
BgL_l1580z00_998 = BgL_arg1741z00_373; 
BgL_tail1583z00_999 = BgL_newtail1584z00_372; 
BgL_tail1583z00_369 = BgL_tail1583z00_999; 
BgL_l1580z00_368 = BgL_l1580z00_998; 
goto BgL_map1581z00_370;} } } } } } } } 
{ /* ./DotNet/dnld.scm 65 */
obj_t BgL_sobjectsz00_332;
{ /* ./DotNet/dnld.scm 69 */
obj_t BgL_arg1710z00_350;
{ /* ./DotNet/dnld.scm 69 */
obj_t BgL_l1585z00_351;
BgL_l1585z00_351 = BGl_za2srczd2filesza2zd2zzengine_paramz00; 
{ /* ./DotNet/dnld.scm 69 */
bool_t BgL_test1713z00_352;
BgL_test1713z00_352 = 
NULLP(BgL_l1585z00_351); 
if(BgL_test1713z00_352)
{ /* ./DotNet/dnld.scm 69 */
BgL_arg1710z00_350 = BNIL; }  else 
{ /* ./DotNet/dnld.scm 69 */
obj_t BgL_head1587z00_353;
BgL_head1587z00_353 = 
MAKE_PAIR(BNIL, BNIL); 
{ 
obj_t BgL_l1585z00_354;obj_t BgL_tail1588z00_355;
BgL_l1585z00_354 = BgL_l1585z00_351; 
BgL_tail1588z00_355 = BgL_head1587z00_353; 
BgL_map1586z00_356:
{ /* ./DotNet/dnld.scm 69 */
bool_t BgL_test1715z00_357;
BgL_test1715z00_357 = 
NULLP(BgL_l1585z00_354); 
if(BgL_test1715z00_357)
{ /* ./DotNet/dnld.scm 69 */
BgL_arg1710z00_350 = 
CDR(BgL_head1587z00_353); }  else 
{ /* ./DotNet/dnld.scm 70 */
obj_t BgL_newtail1589z00_358;
{ /* ./DotNet/dnld.scm 70 */
obj_t BgL_arg1723z00_360;
{ /* ./DotNet/dnld.scm 70 */
obj_t BgL_sz00_362;
BgL_sz00_362 = 
CAR(BgL_l1585z00_354); 
{ /* ./DotNet/dnld.scm 70 */
obj_t BgL_arg1727z00_363;
BgL_arg1727z00_363 = 
BGl_prefixz00zz__osz00(BgL_sz00_362); 
BgL_arg1723z00_360 = 
string_append(BgL_arg1727z00_363, BGl_string2591z00zzdotnet_ldz00); } } 
BgL_newtail1589z00_358 = 
MAKE_PAIR(BgL_arg1723z00_360, BNIL); } 
SET_CDR(BgL_tail1588z00_355, BgL_newtail1589z00_358); 
{ /* ./DotNet/dnld.scm 69 */
obj_t BgL_arg1719z00_359;
BgL_arg1719z00_359 = 
CDR(BgL_l1585z00_354); 
{ 
obj_t BgL_tail1588z00_1013;obj_t BgL_l1585z00_1012;
BgL_l1585z00_1012 = BgL_arg1719z00_359; 
BgL_tail1588z00_1013 = BgL_newtail1589z00_358; 
BgL_tail1588z00_355 = BgL_tail1588z00_1013; 
BgL_l1585z00_354 = BgL_l1585z00_1012; 
goto BgL_map1586z00_356;} } } } } } } } 
BgL_sobjectsz00_332 = 
BGl_stringza2zd2ze3stringz93zztools_miscz00(BgL_arg1710z00_350); } 
{ /* ./DotNet/dnld.scm 69 */
obj_t BgL_objectsz00_333;
{ /* ./DotNet/dnld.scm 73 */
obj_t BgL_arg1704z00_348;obj_t BgL_arg1705z00_349;
BgL_arg1704z00_348 = 
BGl_stringza2zd2ze3stringz93zztools_miscz00(BGl_za2withzd2filesza2zd2zzengine_paramz00); 
BgL_arg1705z00_349 = 
BGl_stringza2zd2ze3stringz93zztools_miscz00(BGl_za2ozd2filesza2zd2zzengine_paramz00); 
BgL_objectsz00_333 = 
string_append_3(BgL_sobjectsz00_332, BgL_arg1704z00_348, BgL_arg1705z00_349); } 
{ /* ./DotNet/dnld.scm 72 */
obj_t BgL_cmdz00_334;
{ /* ./DotNet/dnld.scm 78 */
obj_t BgL_arg1700z00_347;
BgL_arg1700z00_347 = 
MAKE_PAIR(BgL_bigloozd2libzd2_330, BgL_otherzd2libszd2_331); 
BgL_cmdz00_334 = 
BGl_makezd2ldzd2commandz00zzdotnet_ldz00(BgL_exenamez00_329, BgL_objectsz00_333, BGl_za2libzd2dirza2zd2zzengine_paramz00, BgL_arg1700z00_347); } 
{ /* ./DotNet/dnld.scm 75 */

{ /* ./DotNet/dnld.scm 79 */
obj_t BgL_list1665z00_335;
{ /* ./DotNet/dnld.scm 79 */
obj_t BgL_arg1669z00_337;
{ /* ./DotNet/dnld.scm 79 */
obj_t BgL_arg1673z00_338;
{ /* ./DotNet/dnld.scm 79 */
obj_t BgL_arg1678z00_340;
{ /* ./DotNet/dnld.scm 79 */
obj_t BgL_auxz00_1020;
BgL_auxz00_1020 = 
BCHAR(((unsigned char)'\n')); 
BgL_arg1678z00_340 = 
MAKE_PAIR(BgL_auxz00_1020, BNIL); } 
BgL_arg1673z00_338 = 
MAKE_PAIR(BGl_string2592z00zzdotnet_ldz00, BgL_arg1678z00_340); } 
BgL_arg1669z00_337 = 
MAKE_PAIR(BGl_za2dotnetzd2ldza2zd2zzengine_paramz00, BgL_arg1673z00_338); } 
BgL_list1665z00_335 = 
MAKE_PAIR(BGl_string2593z00zzdotnet_ldz00, BgL_arg1669z00_337); } 
BGl_verbosez00zztools_speekz00(
BINT(((long)1)), BgL_list1665z00_335); } 
{ /* ./DotNet/dnld.scm 80 */
obj_t BgL_list1682z00_341;
{ /* ./DotNet/dnld.scm 80 */
obj_t BgL_arg1685z00_343;
{ /* ./DotNet/dnld.scm 80 */
obj_t BgL_arg1688z00_344;
{ /* ./DotNet/dnld.scm 80 */
obj_t BgL_arg1691z00_345;
{ /* ./DotNet/dnld.scm 80 */
obj_t BgL_auxz00_1028;
BgL_auxz00_1028 = 
BCHAR(((unsigned char)'\n')); 
BgL_arg1691z00_345 = 
MAKE_PAIR(BgL_auxz00_1028, BNIL); } 
{ /* ./DotNet/dnld.scm 80 */
obj_t BgL_auxz00_1031;
BgL_auxz00_1031 = 
BCHAR(((unsigned char)']')); 
BgL_arg1688z00_344 = 
MAKE_PAIR(BgL_auxz00_1031, BgL_arg1691z00_345); } } 
BgL_arg1685z00_343 = 
MAKE_PAIR(BgL_cmdz00_334, BgL_arg1688z00_344); } 
BgL_list1682z00_341 = 
MAKE_PAIR(BGl_string2594z00zzdotnet_ldz00, BgL_arg1685z00_343); } 
BGl_verbosez00zztools_speekz00(
BINT(((long)2)), BgL_list1682z00_341); } 
BGl_execz00zzcc_execz00(BgL_cmdz00_334, ((bool_t)1), BGl_string2595z00zzdotnet_ldz00); 
{ /* ./DotNet/dnld.scm 82 */
obj_t BgL_arg1696z00_346;
BgL_arg1696z00_346 = 
BGl_dotnetzd2libdirzd2zzdotnet_ldz00(); 
return 
BGl_generatezd2dotnetzd2scriptz00zzdotnet_ldz00(BgL_targetz00_328, BgL_arg1696z00_346);} } } } } } } } } } 
}



/* _dotnet-ld */
obj_t BGl__dotnetzd2ldzd2zzdotnet_ldz00(obj_t BgL_envz00_885)
{ AN_OBJECT;
{ /* ./DotNet/dnld.scm 59 */
return 
BGl_dotnetzd2ldzd2zzdotnet_ldz00();} 
}



/* dotnet-libdir */
obj_t BGl_dotnetzd2libdirzd2zzdotnet_ldz00()
{ AN_OBJECT;
{ /* ./DotNet/dnld.scm 87 */
{ /* ./DotNet/dnld.scm 88 */
bool_t BgL_test1774z00_383;
{ /* ./DotNet/dnld.scm 88 */
obj_t BgL_objz00_762;
BgL_objz00_762 = BGl_za2dotnetzd2dllzd2pathza2z00zzengine_paramz00; 
BgL_test1774z00_383 = 
STRINGP(BgL_objz00_762); } 
if(BgL_test1774z00_383)
{ /* ./DotNet/dnld.scm 88 */
return BGl_za2dotnetzd2dllzd2pathza2z00zzengine_paramz00;}  else 
{ /* ./DotNet/dnld.scm 88 */
return 
string_to_bstring(DLL_DIRECTORY);} } } 
}



/* make-bigloo-dll */
obj_t BGl_makezd2bigloozd2dllz00zzdotnet_ldz00()
{ AN_OBJECT;
{ /* ./DotNet/dnld.scm 95 */
{ /* ./DotNet/dnld.scm 96 */
obj_t BgL_arg1777z00_384;obj_t BgL_arg1778z00_385;
BgL_arg1777z00_384 = 
BGl_userzd2libzd2namez00zzcc_ldz00(BGl_za2bigloozd2vlibza2zd2zzengine_paramz00); 
BgL_arg1778z00_385 = 
BGl_libraryzd2suffixzd2zzcc_ldz00(); 
{ /* ./DotNet/dnld.scm 96 */
obj_t BgL_list1780z00_386;
BgL_list1780z00_386 = 
MAKE_PAIR(BgL_arg1778z00_385, BNIL); 
return 
BGl_libzd2ze3stringz31zzcc_ldz00(BgL_arg1777z00_384, BgL_list1780z00_386);} } } 
}



/* make-ld-command */
obj_t BGl_makezd2ldzd2commandz00zzdotnet_ldz00(obj_t BgL_exez00_1, obj_t BgL_objectsz00_2, obj_t BgL_pathz00_3, obj_t BgL_libsz00_4)
{ AN_OBJECT;
{ /* ./DotNet/dnld.scm 101 */
{ /* ./DotNet/dnld.scm 102 */
obj_t BgL_idz00_387;
{ /* ./DotNet/dnld.scm 102 */
obj_t BgL_stringz00_763;
BgL_stringz00_763 = BGl_za2dotnetzd2ldzd2styleza2z00zzengine_paramz00; 
{ /* ./DotNet/dnld.scm 102 */
char * BgL_auxz00_1049;
BgL_auxz00_1049 = 
BSTRING_TO_STRING(BgL_stringz00_763); 
BgL_idz00_387 = 
string_to_symbol(BgL_auxz00_1049); } } 
{ /* ./DotNet/dnld.scm 102 */
obj_t BgL_cz00_388;
BgL_cz00_388 = 
BGl_assqz00zz__r4_pairs_and_lists_6_3z00(BgL_idz00_387, BGl_za2dotnetzd2linkersza2zd2zzdotnet_ldz00); 
{ /* ./DotNet/dnld.scm 103 */

{ /* ./DotNet/dnld.scm 104 */
bool_t BgL_test1784z00_389;
{ /* ./DotNet/dnld.scm 104 */
bool_t BgL_test1835z00_415;
BgL_test1835z00_415 = 
PAIRP(BgL_cz00_388); 
if(BgL_test1835z00_415)
{ /* ./DotNet/dnld.scm 105 */
bool_t BgL_test1836z00_416;
{ /* ./DotNet/dnld.scm 105 */
obj_t BgL_auxz00_1055;
BgL_auxz00_1055 = 
CDR(BgL_cz00_388); 
BgL_test1836z00_416 = 
PROCEDUREP(BgL_auxz00_1055); } 
if(BgL_test1836z00_416)
{ /* ./DotNet/dnld.scm 106 */
obj_t BgL_arg1838z00_417;
BgL_arg1838z00_417 = 
CDR(BgL_cz00_388); 
{ /* ./DotNet/dnld.scm 106 */
int BgL_auxz00_1060;
BgL_auxz00_1060 = 
(int)(((long)4)); 
BgL_test1784z00_389 = 
PROCEDURE_CORRECT_ARITYP(BgL_arg1838z00_417, BgL_auxz00_1060); } }  else 
{ /* ./DotNet/dnld.scm 105 */
BgL_test1784z00_389 = ((bool_t)0); } }  else 
{ /* ./DotNet/dnld.scm 104 */
BgL_test1784z00_389 = ((bool_t)0); } } 
if(BgL_test1784z00_389)
{ /* ./DotNet/dnld.scm 107 */
obj_t BgL_fun1787z00_390;
BgL_fun1787z00_390 = 
CDR(BgL_cz00_388); 
return 
PROCEDURE_ENTRY(BgL_fun1787z00_390)(BgL_fun1787z00_390, BgL_exez00_1, BgL_objectsz00_2, BgL_pathz00_3, BgL_libsz00_4, BEOA);}  else 
{ /* ./DotNet/dnld.scm 108 */
obj_t BgL_arg1791z00_392;
{ /* ./DotNet/dnld.scm 109 */
obj_t BgL_runner1834z00_414;
{ /* ./DotNet/dnld.scm 109 */
obj_t BgL_arg1795z00_394;
{ /* ./DotNet/dnld.scm 111 */
obj_t BgL_l1590z00_396;
BgL_l1590z00_396 = BGl_za2dotnetzd2linkersza2zd2zzdotnet_ldz00; 
{ /* ./DotNet/dnld.scm 111 */
bool_t BgL_test1799z00_397;
BgL_test1799z00_397 = 
NULLP(BgL_l1590z00_396); 
if(BgL_test1799z00_397)
{ /* ./DotNet/dnld.scm 111 */
BgL_arg1795z00_394 = BNIL; }  else 
{ /* ./DotNet/dnld.scm 111 */
obj_t BgL_head1592z00_398;
BgL_head1592z00_398 = 
MAKE_PAIR(BNIL, BNIL); 
{ 
obj_t BgL_l1590z00_399;obj_t BgL_tail1593z00_400;
BgL_l1590z00_399 = BgL_l1590z00_396; 
BgL_tail1593z00_400 = BgL_head1592z00_398; 
BgL_map1591z00_401:
{ /* ./DotNet/dnld.scm 111 */
bool_t BgL_test1801z00_402;
BgL_test1801z00_402 = 
NULLP(BgL_l1590z00_399); 
if(BgL_test1801z00_402)
{ /* ./DotNet/dnld.scm 111 */
BgL_arg1795z00_394 = 
CDR(BgL_head1592z00_398); }  else 
{ /* ./DotNet/dnld.scm 112 */
obj_t BgL_newtail1594z00_403;
{ /* ./DotNet/dnld.scm 112 */
obj_t BgL_arg1809z00_405;
{ /* ./DotNet/dnld.scm 112 */
obj_t BgL_xz00_407;
BgL_xz00_407 = 
CAR(BgL_l1590z00_399); 
{ /* ./DotNet/dnld.scm 112 */
bool_t BgL_test1812z00_408;
if(
PAIRP(BgL_xz00_407))
{ /* ./DotNet/dnld.scm 113 */
obj_t BgL_auxz00_1076;
BgL_auxz00_1076 = 
CAR(BgL_xz00_407); 
BgL_test1812z00_408 = 
SYMBOLP(BgL_auxz00_1076); }  else 
{ /* ./DotNet/dnld.scm 112 */
BgL_test1812z00_408 = ((bool_t)0); } 
if(BgL_test1812z00_408)
{ /* ./DotNet/dnld.scm 114 */
obj_t BgL_arg1815z00_409;
{ /* ./DotNet/dnld.scm 114 */
obj_t BgL_arg1821z00_411;
BgL_arg1821z00_411 = 
CAR(BgL_xz00_407); 
BgL_arg1815z00_409 = 
SYMBOL_TO_STRING(BgL_arg1821z00_411); } 
BgL_arg1809z00_405 = 
string_append(BgL_arg1815z00_409, BGl_string2596z00zzdotnet_ldz00); }  else 
{ /* ./DotNet/dnld.scm 112 */
BgL_arg1809z00_405 = BGl_string2597z00zzdotnet_ldz00; } } } 
BgL_newtail1594z00_403 = 
MAKE_PAIR(BgL_arg1809z00_405, BNIL); } 
SET_CDR(BgL_tail1593z00_400, BgL_newtail1594z00_403); 
{ /* ./DotNet/dnld.scm 111 */
obj_t BgL_arg1805z00_404;
BgL_arg1805z00_404 = 
CDR(BgL_l1590z00_399); 
{ 
obj_t BgL_tail1593z00_1087;obj_t BgL_l1590z00_1086;
BgL_l1590z00_1086 = BgL_arg1805z00_404; 
BgL_tail1593z00_1087 = BgL_newtail1594z00_403; 
BgL_tail1593z00_400 = BgL_tail1593z00_1087; 
BgL_l1590z00_399 = BgL_l1590z00_1086; 
goto BgL_map1591z00_401;} } } } } } } } 
{ /* ./DotNet/dnld.scm 109 */
obj_t BgL_list1797z00_395;
BgL_list1797z00_395 = 
MAKE_PAIR(BgL_arg1795z00_394, BNIL); 
BgL_runner1834z00_414 = 
BGl_consza2za2zz__r4_pairs_and_lists_6_3z00(BGl_string2598z00zzdotnet_ldz00, BgL_list1797z00_395); } } 
BgL_arg1791z00_392 = 
BGl_stringzd2appendzd2zz__r4_strings_6_7z00(BgL_runner1834z00_414); } 
{ /* ./DotNet/dnld.scm 108 */
obj_t BgL_objectz00_787;
BgL_objectz00_787 = BGl_za2dotnetzd2ldzd2styleza2z00zzengine_paramz00; 
FAILURE(BGl_string2599z00zzdotnet_ldz00,BgL_arg1791z00_392,BgL_objectz00_787);} } } } } } } 
}



/* generate-dotnet-script */
obj_t BGl_generatezd2dotnetzd2scriptz00zzdotnet_ldz00(obj_t BgL_targetz00_5, obj_t BgL_pathz00_6)
{ AN_OBJECT;
{ /* ./DotNet/dnld.scm 123 */
{ /* ./DotNet/dnld.scm 124 */
obj_t BgL_list1850z00_420;
{ /* ./DotNet/dnld.scm 124 */
obj_t BgL_arg1854z00_422;
BgL_arg1854z00_422 = 
MAKE_PAIR(BGl_za2dotnetzd2shellza2zd2zzengine_paramz00, BNIL); 
BgL_list1850z00_420 = 
MAKE_PAIR(BGl_string2600z00zzdotnet_ldz00, BgL_arg1854z00_422); } 
BGl_verbosez00zztools_speekz00(
BINT(((long)1)), BgL_list1850z00_420); } 
{ /* ./DotNet/dnld.scm 125 */
obj_t BgL_list1858z00_423;
{ /* ./DotNet/dnld.scm 125 */
obj_t BgL_arg1864z00_425;
{ /* ./DotNet/dnld.scm 125 */
obj_t BgL_arg1867z00_426;
BgL_arg1867z00_426 = 
MAKE_PAIR(BGl_string2592z00zzdotnet_ldz00, BNIL); 
BgL_arg1864z00_425 = 
MAKE_PAIR(BgL_targetz00_5, BgL_arg1867z00_426); } 
BgL_list1858z00_423 = 
MAKE_PAIR(BGl_string2601z00zzdotnet_ldz00, BgL_arg1864z00_425); } 
BGl_verbosez00zztools_speekz00(
BINT(((long)2)), BgL_list1858z00_423); } 
{ /* ./DotNet/dnld.scm 126 */
obj_t BgL_list1871z00_427;
{ /* ./DotNet/dnld.scm 126 */
obj_t BgL_auxz00_1101;
BgL_auxz00_1101 = 
BCHAR(((unsigned char)'\n')); 
BgL_list1871z00_427 = 
MAKE_PAIR(BgL_auxz00_1101, BNIL); } 
BGl_verbosez00zztools_speekz00(
BINT(((long)1)), BgL_list1871z00_427); } 
{ /* ./DotNet/dnld.scm 128 */
bool_t BgL_test1873z00_428;
{ /* ./DotNet/dnld.scm 128 */
obj_t BgL_string1z00_788;
BgL_string1z00_788 = BGl_za2dotnetzd2shellza2zd2zzengine_paramz00; 
BgL_test1873z00_428 = 
bigloo_strcmp(BgL_string1z00_788, BGl_string2602z00zzdotnet_ldz00); } 
if(BgL_test1873z00_428)
{ /* ./DotNet/dnld.scm 128 */
return 
BGl_generatezd2dotnetzd2shellzd2scriptzd2zzdotnet_ldz00(BgL_targetz00_5, BgL_pathz00_6, BGl_za2dotnetzd2shzd2clrsza2z00zzdotnet_ldz00);}  else 
{ /* ./DotNet/dnld.scm 130 */
bool_t BgL_test1875z00_429;
{ /* ./DotNet/dnld.scm 130 */
obj_t BgL_string1z00_790;
BgL_string1z00_790 = BGl_za2dotnetzd2shellza2zd2zzengine_paramz00; 
BgL_test1875z00_429 = 
bigloo_strcmp(BgL_string1z00_790, BGl_string2603z00zzdotnet_ldz00); } 
if(BgL_test1875z00_429)
{ /* ./DotNet/dnld.scm 130 */
return 
BGl_generatezd2dotnetzd2shellzd2scriptzd2zzdotnet_ldz00(BgL_targetz00_5, BgL_pathz00_6, BGl_za2dotnetzd2msdoszd2clrsza2z00zzdotnet_ldz00);}  else 
{ /* ./DotNet/dnld.scm 130 */
{ /* ./DotNet/dnld.scm 133 */
obj_t BgL_list1878z00_430;
{ /* ./DotNet/dnld.scm 133 */
obj_t BgL_arg1881z00_432;
{ /* ./DotNet/dnld.scm 133 */
obj_t BgL_arg1885z00_434;
{ /* ./DotNet/dnld.scm 133 */
obj_t BgL_arg1888z00_435;
BgL_arg1888z00_435 = 
MAKE_PAIR(BGl_string2604z00zzdotnet_ldz00, BNIL); 
BgL_arg1885z00_434 = 
MAKE_PAIR(BGl_za2dotnetzd2shellza2zd2zzengine_paramz00, BgL_arg1888z00_435); } 
BgL_arg1881z00_432 = 
MAKE_PAIR(BGl_string2605z00zzdotnet_ldz00, BgL_arg1885z00_434); } 
BgL_list1878z00_430 = 
MAKE_PAIR(BGl_string2606z00zzdotnet_ldz00, BgL_arg1881z00_432); } 
BGl_warningz00zz__errorz00(BgL_list1878z00_430); } 
return 
BGl_generatezd2dotnetzd2shellzd2scriptzd2zzdotnet_ldz00(BgL_targetz00_5, BgL_pathz00_6, BGl_za2dotnetzd2shzd2clrsza2z00zzdotnet_ldz00);} } } } 
}



/* generate-dotnet-shell-script */
obj_t BGl_generatezd2dotnetzd2shellzd2scriptzd2zzdotnet_ldz00(obj_t BgL_targetz00_7, obj_t BgL_pathz00_8, obj_t BgL_lstz00_9)
{ AN_OBJECT;
{ /* ./DotNet/dnld.scm 140 */
{ /* ./DotNet/dnld.scm 141 */
obj_t BgL_idz00_436;
{ /* ./DotNet/dnld.scm 141 */
obj_t BgL_stringz00_792;
BgL_stringz00_792 = BGl_za2dotnetzd2clrzd2styleza2z00zzengine_paramz00; 
{ /* ./DotNet/dnld.scm 141 */
char * BgL_auxz00_1118;
BgL_auxz00_1118 = 
BSTRING_TO_STRING(BgL_stringz00_792); 
BgL_idz00_436 = 
string_to_symbol(BgL_auxz00_1118); } } 
{ /* ./DotNet/dnld.scm 141 */
obj_t BgL_cz00_437;
BgL_cz00_437 = 
BGl_assqz00zz__r4_pairs_and_lists_6_3z00(BgL_idz00_436, BgL_lstz00_9); 
{ /* ./DotNet/dnld.scm 142 */

{ /* ./DotNet/dnld.scm 143 */
bool_t BgL_test1894z00_438;
{ /* ./DotNet/dnld.scm 143 */
bool_t BgL_test1954z00_464;
BgL_test1954z00_464 = 
PAIRP(BgL_cz00_437); 
if(BgL_test1954z00_464)
{ /* ./DotNet/dnld.scm 144 */
bool_t BgL_test1956z00_465;
{ /* ./DotNet/dnld.scm 144 */
obj_t BgL_auxz00_1124;
BgL_auxz00_1124 = 
CDR(BgL_cz00_437); 
BgL_test1956z00_465 = 
PROCEDUREP(BgL_auxz00_1124); } 
if(BgL_test1956z00_465)
{ /* ./DotNet/dnld.scm 145 */
obj_t BgL_arg1958z00_466;
BgL_arg1958z00_466 = 
CDR(BgL_cz00_437); 
{ /* ./DotNet/dnld.scm 145 */
int BgL_auxz00_1129;
BgL_auxz00_1129 = 
(int)(((long)2)); 
BgL_test1894z00_438 = 
PROCEDURE_CORRECT_ARITYP(BgL_arg1958z00_466, BgL_auxz00_1129); } }  else 
{ /* ./DotNet/dnld.scm 144 */
BgL_test1894z00_438 = ((bool_t)0); } }  else 
{ /* ./DotNet/dnld.scm 143 */
BgL_test1894z00_438 = ((bool_t)0); } } 
if(BgL_test1894z00_438)
{ /* ./DotNet/dnld.scm 146 */
obj_t BgL_fun1897z00_439;
BgL_fun1897z00_439 = 
CDR(BgL_cz00_437); 
return 
PROCEDURE_ENTRY(BgL_fun1897z00_439)(BgL_fun1897z00_439, BgL_targetz00_7, BgL_pathz00_8, BEOA);}  else 
{ /* ./DotNet/dnld.scm 147 */
obj_t BgL_arg1904z00_441;
{ /* ./DotNet/dnld.scm 148 */
obj_t BgL_runner1953z00_463;
{ /* ./DotNet/dnld.scm 148 */
obj_t BgL_arg1911z00_443;
{ /* ./DotNet/dnld.scm 150 */
bool_t BgL_test1915z00_446;
BgL_test1915z00_446 = 
NULLP(BgL_lstz00_9); 
if(BgL_test1915z00_446)
{ /* ./DotNet/dnld.scm 150 */
BgL_arg1911z00_443 = BNIL; }  else 
{ /* ./DotNet/dnld.scm 150 */
obj_t BgL_head1597z00_447;
BgL_head1597z00_447 = 
MAKE_PAIR(BNIL, BNIL); 
{ 
obj_t BgL_l1595z00_448;obj_t BgL_tail1598z00_449;
BgL_l1595z00_448 = BgL_lstz00_9; 
BgL_tail1598z00_449 = BgL_head1597z00_447; 
BgL_map1596z00_450:
{ /* ./DotNet/dnld.scm 150 */
bool_t BgL_test1917z00_451;
BgL_test1917z00_451 = 
NULLP(BgL_l1595z00_448); 
if(BgL_test1917z00_451)
{ /* ./DotNet/dnld.scm 150 */
BgL_arg1911z00_443 = 
CDR(BgL_head1597z00_447); }  else 
{ /* ./DotNet/dnld.scm 151 */
obj_t BgL_newtail1599z00_452;
{ /* ./DotNet/dnld.scm 151 */
obj_t BgL_arg1928z00_454;
{ /* ./DotNet/dnld.scm 151 */
obj_t BgL_xz00_456;
BgL_xz00_456 = 
CAR(BgL_l1595z00_448); 
{ /* ./DotNet/dnld.scm 151 */
bool_t BgL_test1932z00_457;
if(
PAIRP(BgL_xz00_456))
{ /* ./DotNet/dnld.scm 152 */
obj_t BgL_auxz00_1145;
BgL_auxz00_1145 = 
CAR(BgL_xz00_456); 
BgL_test1932z00_457 = 
SYMBOLP(BgL_auxz00_1145); }  else 
{ /* ./DotNet/dnld.scm 151 */
BgL_test1932z00_457 = ((bool_t)0); } 
if(BgL_test1932z00_457)
{ /* ./DotNet/dnld.scm 153 */
obj_t BgL_arg1934z00_458;
{ /* ./DotNet/dnld.scm 153 */
obj_t BgL_arg1938z00_460;
BgL_arg1938z00_460 = 
CAR(BgL_xz00_456); 
BgL_arg1934z00_458 = 
SYMBOL_TO_STRING(BgL_arg1938z00_460); } 
BgL_arg1928z00_454 = 
string_append(BgL_arg1934z00_458, BGl_string2596z00zzdotnet_ldz00); }  else 
{ /* ./DotNet/dnld.scm 151 */
BgL_arg1928z00_454 = BGl_string2597z00zzdotnet_ldz00; } } } 
BgL_newtail1599z00_452 = 
MAKE_PAIR(BgL_arg1928z00_454, BNIL); } 
SET_CDR(BgL_tail1598z00_449, BgL_newtail1599z00_452); 
{ /* ./DotNet/dnld.scm 150 */
obj_t BgL_arg1922z00_453;
BgL_arg1922z00_453 = 
CDR(BgL_l1595z00_448); 
{ 
obj_t BgL_tail1598z00_1156;obj_t BgL_l1595z00_1155;
BgL_l1595z00_1155 = BgL_arg1922z00_453; 
BgL_tail1598z00_1156 = BgL_newtail1599z00_452; 
BgL_tail1598z00_449 = BgL_tail1598z00_1156; 
BgL_l1595z00_448 = BgL_l1595z00_1155; 
goto BgL_map1596z00_450;} } } } } } } 
{ /* ./DotNet/dnld.scm 148 */
obj_t BgL_list1913z00_444;
BgL_list1913z00_444 = 
MAKE_PAIR(BgL_arg1911z00_443, BNIL); 
BgL_runner1953z00_463 = 
BGl_consza2za2zz__r4_pairs_and_lists_6_3z00(BGl_string2607z00zzdotnet_ldz00, BgL_list1913z00_444); } } 
BgL_arg1904z00_441 = 
BGl_stringzd2appendzd2zz__r4_strings_6_7z00(BgL_runner1953z00_463); } 
{ /* ./DotNet/dnld.scm 147 */
obj_t BgL_objectz00_816;
BgL_objectz00_816 = BGl_za2dotnetzd2clrzd2styleza2z00zzengine_paramz00; 
FAILURE(BGl_string2599z00zzdotnet_ldz00,BgL_arg1904z00_441,BgL_objectz00_816);} } } } } } } 
}



/* make-pnet-ld-command */
obj_t BGl_makezd2pnetzd2ldzd2commandzd2zzdotnet_ldz00(obj_t BgL_exez00_10, obj_t BgL_objectsz00_11, obj_t BgL_pathz00_12, obj_t BgL_libsz00_13)
{ AN_OBJECT;
{ /* ./DotNet/dnld.scm 162 */
{ /* ./DotNet/dnld.scm 163 */
obj_t BgL_lpathz00_469;
BgL_lpathz00_469 = 
BGl_loopz72z72zzdotnet_ldz00(BgL_pathz00_12); 
{ /* ./DotNet/dnld.scm 170 */
obj_t BgL_runner2018z00_493;
{ /* ./DotNet/dnld.scm 170 */
obj_t BgL_arg1975z00_473;
{ /* ./DotNet/dnld.scm 176 */
obj_t BgL_head1602z00_483;
BgL_head1602z00_483 = 
MAKE_PAIR(BNIL, BNIL); 
{ 
obj_t BgL_l1600z00_484;obj_t BgL_tail1603z00_485;
BgL_l1600z00_484 = BgL_libsz00_13; 
BgL_tail1603z00_485 = BgL_head1602z00_483; 
BgL_map1601z00_486:
{ /* ./DotNet/dnld.scm 176 */
bool_t BgL_test2002z00_487;
BgL_test2002z00_487 = 
NULLP(BgL_l1600z00_484); 
if(BgL_test2002z00_487)
{ /* ./DotNet/dnld.scm 176 */
BgL_arg1975z00_473 = 
CDR(BgL_head1602z00_483); }  else 
{ /* ./DotNet/dnld.scm 176 */
obj_t BgL_newtail1604z00_488;
{ /* ./DotNet/dnld.scm 176 */
obj_t BgL_arg2010z00_490;
{ /* ./DotNet/dnld.scm 176 */
obj_t BgL_libz00_492;
BgL_libz00_492 = 
CAR(BgL_l1600z00_484); 
BgL_arg2010z00_490 = 
string_append(BGl_string2608z00zzdotnet_ldz00, BgL_libz00_492); } 
BgL_newtail1604z00_488 = 
MAKE_PAIR(BgL_arg2010z00_490, BNIL); } 
SET_CDR(BgL_tail1603z00_485, BgL_newtail1604z00_488); 
{ /* ./DotNet/dnld.scm 176 */
obj_t BgL_arg2006z00_489;
BgL_arg2006z00_489 = 
CDR(BgL_l1600z00_484); 
{ 
obj_t BgL_tail1603z00_1172;obj_t BgL_l1600z00_1171;
BgL_l1600z00_1171 = BgL_arg2006z00_489; 
BgL_tail1603z00_1172 = BgL_newtail1604z00_488; 
BgL_tail1603z00_485 = BgL_tail1603z00_1172; 
BgL_l1600z00_484 = BgL_l1600z00_1171; 
goto BgL_map1601z00_486;} } } } } } 
{ /* ./DotNet/dnld.scm 170 */
obj_t BgL_list1977z00_474;
{ /* ./DotNet/dnld.scm 170 */
obj_t BgL_arg1981z00_475;
{ /* ./DotNet/dnld.scm 170 */
obj_t BgL_arg1984z00_476;
{ /* ./DotNet/dnld.scm 170 */
obj_t BgL_arg1987z00_477;
{ /* ./DotNet/dnld.scm 170 */
obj_t BgL_arg1990z00_478;
{ /* ./DotNet/dnld.scm 170 */
obj_t BgL_arg1993z00_479;
{ /* ./DotNet/dnld.scm 170 */
obj_t BgL_arg1996z00_480;
BgL_arg1996z00_480 = 
MAKE_PAIR(BgL_arg1975z00_473, BNIL); 
BgL_arg1993z00_479 = 
MAKE_PAIR(BgL_objectsz00_11, BgL_arg1996z00_480); } 
BgL_arg1990z00_478 = 
MAKE_PAIR(BGl_string2609z00zzdotnet_ldz00, BgL_arg1993z00_479); } 
BgL_arg1987z00_477 = 
MAKE_PAIR(BgL_exez00_10, BgL_arg1990z00_478); } 
BgL_arg1984z00_476 = 
MAKE_PAIR(BGl_string2610z00zzdotnet_ldz00, BgL_arg1987z00_477); } 
BgL_arg1981z00_475 = 
MAKE_PAIR(BgL_lpathz00_469, BgL_arg1984z00_476); } 
BgL_list1977z00_474 = 
MAKE_PAIR(BGl_string2596z00zzdotnet_ldz00, BgL_arg1981z00_475); } 
BgL_runner2018z00_493 = 
BGl_consza2za2zz__r4_pairs_and_lists_6_3z00(BGl_za2dotnetzd2ldza2zd2zzengine_paramz00, BgL_list1977z00_474); } } 
return 
BGl_stringzd2appendzd2zz__r4_strings_6_7z00(BgL_runner2018z00_493);} } } 
}



/* loop' */
obj_t BGl_loopz72z72zzdotnet_ldz00(obj_t BgL_pathz00_494)
{ AN_OBJECT;
{ /* ./DotNet/dnld.scm 163 */
{ /* ./DotNet/dnld.scm 164 */
bool_t BgL_test2020z00_496;
BgL_test2020z00_496 = 
NULLP(BgL_pathz00_494); 
if(BgL_test2020z00_496)
{ /* ./DotNet/dnld.scm 164 */
return BGl_string2597z00zzdotnet_ldz00;}  else 
{ /* ./DotNet/dnld.scm 166 */
obj_t BgL_arg2023z00_498;obj_t BgL_arg2026z00_500;
BgL_arg2023z00_498 = 
CAR(BgL_pathz00_494); 
{ /* ./DotNet/dnld.scm 169 */
obj_t BgL_arg2042z00_505;
BgL_arg2042z00_505 = 
CDR(BgL_pathz00_494); 
BgL_arg2026z00_500 = 
BGl_loopz72z72zzdotnet_ldz00(BgL_arg2042z00_505); } 
{ /* ./DotNet/dnld.scm 166 */
obj_t BgL_list2028z00_501;
{ /* ./DotNet/dnld.scm 166 */
obj_t BgL_arg2030z00_502;
{ /* ./DotNet/dnld.scm 166 */
obj_t BgL_arg2033z00_503;
{ /* ./DotNet/dnld.scm 166 */
obj_t BgL_arg2037z00_504;
BgL_arg2037z00_504 = 
MAKE_PAIR(BgL_arg2026z00_500, BNIL); 
BgL_arg2033z00_503 = 
MAKE_PAIR(BGl_string2611z00zzdotnet_ldz00, BgL_arg2037z00_504); } 
BgL_arg2030z00_502 = 
MAKE_PAIR(BgL_arg2023z00_498, BgL_arg2033z00_503); } 
BgL_list2028z00_501 = 
MAKE_PAIR(BGl_string2612z00zzdotnet_ldz00, BgL_arg2030z00_502); } 
return 
BGl_stringzd2appendzd2zz__r4_strings_6_7z00(BgL_list2028z00_501);} } } } 
}



/* _make-pnet-ld-command */
obj_t BGl__makezd2pnetzd2ldzd2commandzd2zzdotnet_ldz00(obj_t BgL_envz00_857, obj_t BgL_exez00_858, obj_t BgL_objectsz00_859, obj_t BgL_pathz00_860, obj_t BgL_libsz00_861)
{ AN_OBJECT;
{ /* ./DotNet/dnld.scm 162 */
return 
BGl_makezd2pnetzd2ldzd2commandzd2zzdotnet_ldz00(BgL_exez00_858, BgL_objectsz00_859, BgL_pathz00_860, BgL_libsz00_861);} 
}



/* generate-pnet-sh */
bool_t BGl_generatezd2pnetzd2shz00zzdotnet_ldz00(obj_t BgL_targetz00_14, obj_t BgL_pathz00_15)
{ AN_OBJECT;
{ /* ./DotNet/dnld.scm 181 */
{ /* ./DotNet/dnld.scm 184 */
obj_t BgL_zc3anonymousza32049ze3z83_886;
{ 
int BgL_auxz00_1195;int BgL_auxz00_1193;
BgL_auxz00_1195 = 
(int)(((long)2)); 
BgL_auxz00_1193 = 
(int)(((long)0)); 
BgL_zc3anonymousza32049ze3z83_886 = 
make_fx_procedure(BGl_zc3anonymousza32049ze3z83zzdotnet_ldz00, BgL_auxz00_1193, BgL_auxz00_1195); } 
{ /* ./DotNet/dnld.scm 184 */
int BgL_auxz00_1198;
BgL_auxz00_1198 = 
(int)(((long)0)); 
PROCEDURE_SET(BgL_zc3anonymousza32049ze3z83_886, BgL_auxz00_1198, BgL_pathz00_15); } 
{ /* ./DotNet/dnld.scm 184 */
int BgL_auxz00_1201;
BgL_auxz00_1201 = 
(int)(((long)1)); 
PROCEDURE_SET(BgL_zc3anonymousza32049ze3z83_886, BgL_auxz00_1201, BgL_targetz00_14); } 
BGl_withzd2outputzd2tozd2filezd2zz__r4_ports_6_10_1z00(BgL_targetz00_14, BgL_zc3anonymousza32049ze3z83_886); } 
{ /* ./DotNet/dnld.scm 191 */
obj_t BgL_list2073z00_513;
{ /* ./DotNet/dnld.scm 191 */
obj_t BgL_arg2075z00_514;obj_t BgL_arg2076z00_515;
BgL_arg2075z00_514 = 
CNST_TABLE_REF(((long)3)); 
{ /* ./DotNet/dnld.scm 191 */
obj_t BgL_arg2080z00_516;obj_t BgL_arg2081z00_517;
BgL_arg2080z00_516 = 
CNST_TABLE_REF(((long)4)); 
{ /* ./DotNet/dnld.scm 191 */
obj_t BgL_auxz00_1207;
BgL_auxz00_1207 = 
CNST_TABLE_REF(((long)5)); 
BgL_arg2081z00_517 = 
MAKE_PAIR(BgL_auxz00_1207, BNIL); } 
BgL_arg2076z00_515 = 
MAKE_PAIR(BgL_arg2080z00_516, BgL_arg2081z00_517); } 
BgL_list2073z00_513 = 
MAKE_PAIR(BgL_arg2075z00_514, BgL_arg2076z00_515); } 
return 
BGl_chmodz00zz__osz00(BgL_targetz00_14, BgL_list2073z00_513);} } 
}



/* _generate-pnet-sh */
obj_t BGl__generatezd2pnetzd2shz00zzdotnet_ldz00(obj_t BgL_envz00_867, obj_t BgL_targetz00_868, obj_t BgL_pathz00_869)
{ AN_OBJECT;
{ /* ./DotNet/dnld.scm 181 */
{ /* ./DotNet/dnld.scm 182 */
bool_t BgL_auxz00_1213;
BgL_auxz00_1213 = 
BGl_generatezd2pnetzd2shz00zzdotnet_ldz00(BgL_targetz00_868, BgL_pathz00_869); 
return 
BBOOL(BgL_auxz00_1213);} } 
}



/* <anonymous:2049> */
obj_t BGl_zc3anonymousza32049ze3z83zzdotnet_ldz00(obj_t BgL_envz00_887)
{ AN_OBJECT;
{ /* ./DotNet/dnld.scm 183 */
{ /* ./DotNet/dnld.scm 184 */
obj_t BgL_pathz00_888;obj_t BgL_targetz00_889;
{ /* ./DotNet/dnld.scm 184 */
int BgL_auxz00_1216;
BgL_auxz00_1216 = 
(int)(((long)0)); 
BgL_pathz00_888 = 
PROCEDURE_REF(BgL_envz00_887, BgL_auxz00_1216); } 
{ /* ./DotNet/dnld.scm 184 */
int BgL_auxz00_1219;
BgL_auxz00_1219 = 
(int)(((long)1)); 
BgL_targetz00_889 = 
PROCEDURE_REF(BgL_envz00_887, BgL_auxz00_1219); } 
{ 

{ /* ./DotNet/dnld.scm 184 */
obj_t BgL_port1605z00_508;
BgL_port1605z00_508 = 
BGL_CURRENT_OUTPUT_PORT(); 
display_string(BGl_string2613z00zzdotnet_ldz00, BgL_port1605z00_508); 
WRITE_CHAR(((unsigned char)'\n'), BgL_port1605z00_508); } 
{ /* ./DotNet/dnld.scm 185 */
obj_t BgL_arg2054z00_509;
BgL_arg2054z00_509 = 
BGL_CURRENT_OUTPUT_PORT(); 
WRITE_CHAR(((unsigned char)'\n'), BgL_arg2054z00_509); } 
{ /* ./DotNet/dnld.scm 186 */
obj_t BgL_port1606z00_510;
BgL_port1606z00_510 = 
BGL_CURRENT_OUTPUT_PORT(); 
BGl_displayzd22zd2zz__r4_output_6_10_3z00(BGl_za2dotnetzd2clrza2zd2zzengine_paramz00, BgL_port1606z00_510); 
display_string(BGl_string2596z00zzdotnet_ldz00, BgL_port1606z00_510); 
BGl_displayzd22zd2zz__r4_output_6_10_3z00(BGl_za2dotnetzd2clrzd2optza2z00zzengine_paramz00, BgL_port1606z00_510); 
display_string(BGl_string2614z00zzdotnet_ldz00, BgL_port1606z00_510); 
display_string(BGl_string2615z00zzdotnet_ldz00, BgL_port1606z00_510); 
BGl_displayzd22zd2zz__r4_output_6_10_3z00(BgL_pathz00_888, BgL_port1606z00_510); 
display_string(BGl_string2611z00zzdotnet_ldz00, BgL_port1606z00_510); 
{ /* ./DotNet/dnld.scm 189 */
obj_t BgL_arg2065z00_511;
BgL_arg2065z00_511 = 
BGl_prefixz00zz__osz00(BgL_targetz00_889); 
BGl_displayzd22zd2zz__r4_output_6_10_3z00(BgL_arg2065z00_511, BgL_port1606z00_510); } 
display_string(BGl_string2616z00zzdotnet_ldz00, BgL_port1606z00_510); 
display_string(BGl_string2617z00zzdotnet_ldz00, BgL_port1606z00_510); 
return 
WRITE_CHAR(((unsigned char)'\n'), BgL_port1606z00_510);} } } } 
}



/* generate-pnet-msdos */
bool_t BGl_generatezd2pnetzd2msdosz00zzdotnet_ldz00(obj_t BgL_targetz00_16, obj_t BgL_pathz00_17)
{ AN_OBJECT;
{ /* ./DotNet/dnld.scm 196 */
{ /* ./DotNet/dnld.scm 199 */
obj_t BgL_zc3anonymousza32087ze3z83_890;
{ 
int BgL_auxz00_1242;int BgL_auxz00_1240;
BgL_auxz00_1242 = 
(int)(((long)2)); 
BgL_auxz00_1240 = 
(int)(((long)0)); 
BgL_zc3anonymousza32087ze3z83_890 = 
make_fx_procedure(BGl_zc3anonymousza32087ze3z83zzdotnet_ldz00, BgL_auxz00_1240, BgL_auxz00_1242); } 
{ /* ./DotNet/dnld.scm 199 */
int BgL_auxz00_1245;
BgL_auxz00_1245 = 
(int)(((long)0)); 
PROCEDURE_SET(BgL_zc3anonymousza32087ze3z83_890, BgL_auxz00_1245, BgL_pathz00_17); } 
{ /* ./DotNet/dnld.scm 199 */
int BgL_auxz00_1248;
BgL_auxz00_1248 = 
(int)(((long)1)); 
PROCEDURE_SET(BgL_zc3anonymousza32087ze3z83_890, BgL_auxz00_1248, BgL_targetz00_16); } 
BGl_withzd2outputzd2tozd2filezd2zz__r4_ports_6_10_1z00(BgL_targetz00_16, BgL_zc3anonymousza32087ze3z83_890); } 
{ /* ./DotNet/dnld.scm 204 */
obj_t BgL_list2108z00_524;
{ /* ./DotNet/dnld.scm 204 */
obj_t BgL_arg2111z00_525;obj_t BgL_arg2112z00_526;
BgL_arg2111z00_525 = 
CNST_TABLE_REF(((long)3)); 
{ /* ./DotNet/dnld.scm 204 */
obj_t BgL_arg2115z00_527;obj_t BgL_arg2116z00_528;
BgL_arg2115z00_527 = 
CNST_TABLE_REF(((long)4)); 
{ /* ./DotNet/dnld.scm 204 */
obj_t BgL_auxz00_1254;
BgL_auxz00_1254 = 
CNST_TABLE_REF(((long)5)); 
BgL_arg2116z00_528 = 
MAKE_PAIR(BgL_auxz00_1254, BNIL); } 
BgL_arg2112z00_526 = 
MAKE_PAIR(BgL_arg2115z00_527, BgL_arg2116z00_528); } 
BgL_list2108z00_524 = 
MAKE_PAIR(BgL_arg2111z00_525, BgL_arg2112z00_526); } 
return 
BGl_chmodz00zz__osz00(BgL_targetz00_16, BgL_list2108z00_524);} } 
}



/* _generate-pnet-msdos */
obj_t BGl__generatezd2pnetzd2msdosz00zzdotnet_ldz00(obj_t BgL_envz00_876, obj_t BgL_targetz00_877, obj_t BgL_pathz00_878)
{ AN_OBJECT;
{ /* ./DotNet/dnld.scm 196 */
{ /* ./DotNet/dnld.scm 197 */
bool_t BgL_auxz00_1260;
BgL_auxz00_1260 = 
BGl_generatezd2pnetzd2msdosz00zzdotnet_ldz00(BgL_targetz00_877, BgL_pathz00_878); 
return 
BBOOL(BgL_auxz00_1260);} } 
}



/* <anonymous:2087> */
obj_t BGl_zc3anonymousza32087ze3z83zzdotnet_ldz00(obj_t BgL_envz00_891)
{ AN_OBJECT;
{ /* ./DotNet/dnld.scm 198 */
{ /* ./DotNet/dnld.scm 199 */
obj_t BgL_pathz00_892;obj_t BgL_targetz00_893;
{ /* ./DotNet/dnld.scm 199 */
int BgL_auxz00_1263;
BgL_auxz00_1263 = 
(int)(((long)0)); 
BgL_pathz00_892 = 
PROCEDURE_REF(BgL_envz00_891, BgL_auxz00_1263); } 
{ /* ./DotNet/dnld.scm 199 */
int BgL_auxz00_1266;
BgL_auxz00_1266 = 
(int)(((long)1)); 
BgL_targetz00_893 = 
PROCEDURE_REF(BgL_envz00_891, BgL_auxz00_1266); } 
{ 

{ /* ./DotNet/dnld.scm 199 */
obj_t BgL_port1607z00_520;
BgL_port1607z00_520 = 
BGL_CURRENT_OUTPUT_PORT(); 
display_string(BGl_string2618z00zzdotnet_ldz00, BgL_port1607z00_520); 
BGl_displayzd22zd2zz__r4_output_6_10_3z00(BGl_za2dotnetzd2clrza2zd2zzengine_paramz00, BgL_port1607z00_520); 
display_string(BGl_string2596z00zzdotnet_ldz00, BgL_port1607z00_520); 
BGl_displayzd22zd2zz__r4_output_6_10_3z00(BGl_za2dotnetzd2clrzd2optza2z00zzengine_paramz00, BgL_port1607z00_520); 
display_string(BGl_string2619z00zzdotnet_ldz00, BgL_port1607z00_520); 
display_string(BGl_string2615z00zzdotnet_ldz00, BgL_port1607z00_520); 
{ /* ./DotNet/dnld.scm 201 */
obj_t BgL_arg2095z00_521;
BgL_arg2095z00_521 = 
BGl_uncygdrivez00zztools_miscz00(BgL_pathz00_892); 
BGl_displayzd22zd2zz__r4_output_6_10_3z00(BgL_arg2095z00_521, BgL_port1607z00_520); } 
display_string(BGl_string2611z00zzdotnet_ldz00, BgL_port1607z00_520); 
{ /* ./DotNet/dnld.scm 202 */
obj_t BgL_arg2100z00_522;
BgL_arg2100z00_522 = 
BGl_prefixz00zz__osz00(BgL_targetz00_893); 
BGl_displayzd22zd2zz__r4_output_6_10_3z00(BgL_arg2100z00_522, BgL_port1607z00_520); } 
display_string(BGl_string2590z00zzdotnet_ldz00, BgL_port1607z00_520); 
display_string(BGl_string2620z00zzdotnet_ldz00, BgL_port1607z00_520); 
return 
WRITE_CHAR(((unsigned char)'\n'), BgL_port1607z00_520);} } } } 
}



/* make-mono-ld-command */
obj_t BGl_makezd2monozd2ldzd2commandzd2zzdotnet_ldz00(obj_t BgL_exez00_18, obj_t BgL_objectsz00_19, obj_t BgL_pathz00_20, obj_t BgL_libsz00_21)
{ AN_OBJECT;
{ /* ./DotNet/dnld.scm 209 */
{ /* ./DotNet/dnld.scm 210 */
obj_t BgL_lpathz00_529;
BgL_lpathz00_529 = 
BGl_loopz00zzdotnet_ldz00(BgL_pathz00_20); 
{ /* ./DotNet/dnld.scm 217 */
obj_t BgL_runner2165z00_553;
{ /* ./DotNet/dnld.scm 217 */
obj_t BgL_arg2124z00_533;
{ /* ./DotNet/dnld.scm 223 */
obj_t BgL_head1610z00_543;
BgL_head1610z00_543 = 
MAKE_PAIR(BNIL, BNIL); 
{ 
obj_t BgL_l1608z00_544;obj_t BgL_tail1611z00_545;
BgL_l1608z00_544 = BgL_libsz00_21; 
BgL_tail1611z00_545 = BgL_head1610z00_543; 
BgL_map1609z00_546:
{ /* ./DotNet/dnld.scm 223 */
bool_t BgL_test2149z00_547;
BgL_test2149z00_547 = 
NULLP(BgL_l1608z00_544); 
if(BgL_test2149z00_547)
{ /* ./DotNet/dnld.scm 223 */
BgL_arg2124z00_533 = 
CDR(BgL_head1610z00_543); }  else 
{ /* ./DotNet/dnld.scm 223 */
obj_t BgL_newtail1612z00_548;
{ /* ./DotNet/dnld.scm 223 */
obj_t BgL_arg2157z00_550;
{ /* ./DotNet/dnld.scm 223 */
obj_t BgL_libz00_552;
BgL_libz00_552 = 
CAR(BgL_l1608z00_544); 
BgL_arg2157z00_550 = 
string_append(BGl_string2608z00zzdotnet_ldz00, BgL_libz00_552); } 
BgL_newtail1612z00_548 = 
MAKE_PAIR(BgL_arg2157z00_550, BNIL); } 
SET_CDR(BgL_tail1611z00_545, BgL_newtail1612z00_548); 
{ /* ./DotNet/dnld.scm 223 */
obj_t BgL_arg2153z00_549;
BgL_arg2153z00_549 = 
CDR(BgL_l1608z00_544); 
{ 
obj_t BgL_tail1611z00_1295;obj_t BgL_l1608z00_1294;
BgL_l1608z00_1294 = BgL_arg2153z00_549; 
BgL_tail1611z00_1295 = BgL_newtail1612z00_548; 
BgL_tail1611z00_545 = BgL_tail1611z00_1295; 
BgL_l1608z00_544 = BgL_l1608z00_1294; 
goto BgL_map1609z00_546;} } } } } } 
{ /* ./DotNet/dnld.scm 217 */
obj_t BgL_list2126z00_534;
{ /* ./DotNet/dnld.scm 217 */
obj_t BgL_arg2128z00_535;
{ /* ./DotNet/dnld.scm 217 */
obj_t BgL_arg2132z00_536;
{ /* ./DotNet/dnld.scm 217 */
obj_t BgL_arg2135z00_537;
{ /* ./DotNet/dnld.scm 217 */
obj_t BgL_arg2138z00_538;
{ /* ./DotNet/dnld.scm 217 */
obj_t BgL_arg2141z00_539;
{ /* ./DotNet/dnld.scm 217 */
obj_t BgL_arg2144z00_540;
BgL_arg2144z00_540 = 
MAKE_PAIR(BgL_arg2124z00_533, BNIL); 
BgL_arg2141z00_539 = 
MAKE_PAIR(BgL_objectsz00_19, BgL_arg2144z00_540); } 
BgL_arg2138z00_538 = 
MAKE_PAIR(BGl_string2609z00zzdotnet_ldz00, BgL_arg2141z00_539); } 
BgL_arg2135z00_537 = 
MAKE_PAIR(BgL_exez00_18, BgL_arg2138z00_538); } 
BgL_arg2132z00_536 = 
MAKE_PAIR(BGl_string2610z00zzdotnet_ldz00, BgL_arg2135z00_537); } 
BgL_arg2128z00_535 = 
MAKE_PAIR(BgL_lpathz00_529, BgL_arg2132z00_536); } 
BgL_list2126z00_534 = 
MAKE_PAIR(BGl_string2596z00zzdotnet_ldz00, BgL_arg2128z00_535); } 
BgL_runner2165z00_553 = 
BGl_consza2za2zz__r4_pairs_and_lists_6_3z00(BGl_za2dotnetzd2ldza2zd2zzengine_paramz00, BgL_list2126z00_534); } } 
return 
BGl_stringzd2appendzd2zz__r4_strings_6_7z00(BgL_runner2165z00_553);} } } 
}



/* loop */
obj_t BGl_loopz00zzdotnet_ldz00(obj_t BgL_pathz00_554)
{ AN_OBJECT;
{ /* ./DotNet/dnld.scm 210 */
{ /* ./DotNet/dnld.scm 211 */
bool_t BgL_test2167z00_556;
BgL_test2167z00_556 = 
NULLP(BgL_pathz00_554); 
if(BgL_test2167z00_556)
{ /* ./DotNet/dnld.scm 211 */
return BGl_string2597z00zzdotnet_ldz00;}  else 
{ /* ./DotNet/dnld.scm 213 */
obj_t BgL_arg2170z00_558;obj_t BgL_arg2172z00_560;
BgL_arg2170z00_558 = 
CAR(BgL_pathz00_554); 
{ /* ./DotNet/dnld.scm 216 */
obj_t BgL_arg2187z00_565;
BgL_arg2187z00_565 = 
CDR(BgL_pathz00_554); 
BgL_arg2172z00_560 = 
BGl_loopz00zzdotnet_ldz00(BgL_arg2187z00_565); } 
{ /* ./DotNet/dnld.scm 213 */
obj_t BgL_list2174z00_561;
{ /* ./DotNet/dnld.scm 213 */
obj_t BgL_arg2176z00_562;
{ /* ./DotNet/dnld.scm 213 */
obj_t BgL_arg2179z00_563;
{ /* ./DotNet/dnld.scm 213 */
obj_t BgL_arg2182z00_564;
BgL_arg2182z00_564 = 
MAKE_PAIR(BgL_arg2172z00_560, BNIL); 
BgL_arg2179z00_563 = 
MAKE_PAIR(BGl_string2611z00zzdotnet_ldz00, BgL_arg2182z00_564); } 
BgL_arg2176z00_562 = 
MAKE_PAIR(BgL_arg2170z00_558, BgL_arg2179z00_563); } 
BgL_list2174z00_561 = 
MAKE_PAIR(BGl_string2621z00zzdotnet_ldz00, BgL_arg2176z00_562); } 
return 
BGl_stringzd2appendzd2zz__r4_strings_6_7z00(BgL_list2174z00_561);} } } } 
}



/* _make-mono-ld-command */
obj_t BGl__makezd2monozd2ldzd2commandzd2zzdotnet_ldz00(obj_t BgL_envz00_862, obj_t BgL_exez00_863, obj_t BgL_objectsz00_864, obj_t BgL_pathz00_865, obj_t BgL_libsz00_866)
{ AN_OBJECT;
{ /* ./DotNet/dnld.scm 209 */
return 
BGl_makezd2monozd2ldzd2commandzd2zzdotnet_ldz00(BgL_exez00_863, BgL_objectsz00_864, BgL_pathz00_865, BgL_libsz00_866);} 
}



/* generate-mono-sh */
bool_t BGl_generatezd2monozd2shz00zzdotnet_ldz00(obj_t BgL_targetz00_22, obj_t BgL_pathz00_23)
{ AN_OBJECT;
{ /* ./DotNet/dnld.scm 228 */
{ /* ./DotNet/dnld.scm 231 */
obj_t BgL_zc3anonymousza32194ze3z83_894;
{ 
int BgL_auxz00_1318;int BgL_auxz00_1316;
BgL_auxz00_1318 = 
(int)(((long)2)); 
BgL_auxz00_1316 = 
(int)(((long)0)); 
BgL_zc3anonymousza32194ze3z83_894 = 
make_fx_procedure(BGl_zc3anonymousza32194ze3z83zzdotnet_ldz00, BgL_auxz00_1316, BgL_auxz00_1318); } 
{ /* ./DotNet/dnld.scm 231 */
int BgL_auxz00_1321;
BgL_auxz00_1321 = 
(int)(((long)0)); 
PROCEDURE_SET(BgL_zc3anonymousza32194ze3z83_894, BgL_auxz00_1321, BgL_pathz00_23); } 
{ /* ./DotNet/dnld.scm 231 */
int BgL_auxz00_1324;
BgL_auxz00_1324 = 
(int)(((long)1)); 
PROCEDURE_SET(BgL_zc3anonymousza32194ze3z83_894, BgL_auxz00_1324, BgL_targetz00_22); } 
BGl_withzd2outputzd2tozd2filezd2zz__r4_ports_6_10_1z00(BgL_targetz00_22, BgL_zc3anonymousza32194ze3z83_894); } 
{ /* ./DotNet/dnld.scm 238 */
obj_t BgL_list2221z00_574;
{ /* ./DotNet/dnld.scm 238 */
obj_t BgL_arg2223z00_575;obj_t BgL_arg2224z00_576;
BgL_arg2223z00_575 = 
CNST_TABLE_REF(((long)3)); 
{ /* ./DotNet/dnld.scm 238 */
obj_t BgL_arg2227z00_577;obj_t BgL_arg2228z00_578;
BgL_arg2227z00_577 = 
CNST_TABLE_REF(((long)4)); 
{ /* ./DotNet/dnld.scm 238 */
obj_t BgL_auxz00_1330;
BgL_auxz00_1330 = 
CNST_TABLE_REF(((long)5)); 
BgL_arg2228z00_578 = 
MAKE_PAIR(BgL_auxz00_1330, BNIL); } 
BgL_arg2224z00_576 = 
MAKE_PAIR(BgL_arg2227z00_577, BgL_arg2228z00_578); } 
BgL_list2221z00_574 = 
MAKE_PAIR(BgL_arg2223z00_575, BgL_arg2224z00_576); } 
return 
BGl_chmodz00zz__osz00(BgL_targetz00_22, BgL_list2221z00_574);} } 
}



/* _generate-mono-sh */
obj_t BGl__generatezd2monozd2shz00zzdotnet_ldz00(obj_t BgL_envz00_870, obj_t BgL_targetz00_871, obj_t BgL_pathz00_872)
{ AN_OBJECT;
{ /* ./DotNet/dnld.scm 228 */
{ /* ./DotNet/dnld.scm 229 */
bool_t BgL_auxz00_1336;
BgL_auxz00_1336 = 
BGl_generatezd2monozd2shz00zzdotnet_ldz00(BgL_targetz00_871, BgL_pathz00_872); 
return 
BBOOL(BgL_auxz00_1336);} } 
}



/* <anonymous:2194> */
obj_t BGl_zc3anonymousza32194ze3z83zzdotnet_ldz00(obj_t BgL_envz00_895)
{ AN_OBJECT;
{ /* ./DotNet/dnld.scm 230 */
{ /* ./DotNet/dnld.scm 231 */
obj_t BgL_pathz00_896;obj_t BgL_targetz00_897;
{ /* ./DotNet/dnld.scm 231 */
int BgL_auxz00_1339;
BgL_auxz00_1339 = 
(int)(((long)0)); 
BgL_pathz00_896 = 
PROCEDURE_REF(BgL_envz00_895, BgL_auxz00_1339); } 
{ /* ./DotNet/dnld.scm 231 */
int BgL_auxz00_1342;
BgL_auxz00_1342 = 
(int)(((long)1)); 
BgL_targetz00_897 = 
PROCEDURE_REF(BgL_envz00_895, BgL_auxz00_1342); } 
{ 

{ /* ./DotNet/dnld.scm 231 */
obj_t BgL_port1613z00_568;
BgL_port1613z00_568 = 
BGL_CURRENT_OUTPUT_PORT(); 
display_string(BGl_string2613z00zzdotnet_ldz00, BgL_port1613z00_568); 
WRITE_CHAR(((unsigned char)'\n'), BgL_port1613z00_568); } 
{ /* ./DotNet/dnld.scm 232 */
obj_t BgL_arg2199z00_569;
BgL_arg2199z00_569 = 
BGL_CURRENT_OUTPUT_PORT(); 
WRITE_CHAR(((unsigned char)'\n'), BgL_arg2199z00_569); } 
{ /* ./DotNet/dnld.scm 233 */
obj_t BgL_port1614z00_570;
BgL_port1614z00_570 = 
BGL_CURRENT_OUTPUT_PORT(); 
display_string(BGl_string2622z00zzdotnet_ldz00, BgL_port1614z00_570); 
{ /* ./DotNet/dnld.scm 233 */
obj_t BgL_arg2204z00_571;
BgL_arg2204z00_571 = 
BGl_uncygdrivez00zztools_miscz00(BgL_pathz00_896); 
BGl_displayzd22zd2zz__r4_output_6_10_3z00(BgL_arg2204z00_571, BgL_port1614z00_570); } 
display_string(BGl_string2596z00zzdotnet_ldz00, BgL_port1614z00_570); 
BGl_displayzd22zd2zz__r4_output_6_10_3z00(BGl_za2dotnetzd2clrza2zd2zzengine_paramz00, BgL_port1614z00_570); 
display_string(BGl_string2596z00zzdotnet_ldz00, BgL_port1614z00_570); 
BGl_displayzd22zd2zz__r4_output_6_10_3z00(BGl_za2dotnetzd2clrzd2optza2z00zzengine_paramz00, BgL_port1614z00_570); 
display_string(BGl_string2614z00zzdotnet_ldz00, BgL_port1614z00_570); 
{ /* ./DotNet/dnld.scm 236 */
obj_t BgL_arg2213z00_572;
BgL_arg2213z00_572 = 
BGl_prefixz00zz__osz00(BgL_targetz00_897); 
BGl_displayzd22zd2zz__r4_output_6_10_3z00(BgL_arg2213z00_572, BgL_port1614z00_570); } 
display_string(BGl_string2616z00zzdotnet_ldz00, BgL_port1614z00_570); 
display_string(BGl_string2617z00zzdotnet_ldz00, BgL_port1614z00_570); 
return 
WRITE_CHAR(((unsigned char)'\n'), BgL_port1614z00_570);} } } } 
}



/* generate-mono-msdos */
bool_t BGl_generatezd2monozd2msdosz00zzdotnet_ldz00(obj_t BgL_targetz00_24, obj_t BgL_pathz00_25)
{ AN_OBJECT;
{ /* ./DotNet/dnld.scm 243 */
{ /* ./DotNet/dnld.scm 246 */
obj_t BgL_zc3anonymousza32234ze3z83_898;
{ 
int BgL_auxz00_1366;int BgL_auxz00_1364;
BgL_auxz00_1366 = 
(int)(((long)2)); 
BgL_auxz00_1364 = 
(int)(((long)0)); 
BgL_zc3anonymousza32234ze3z83_898 = 
make_fx_procedure(BGl_zc3anonymousza32234ze3z83zzdotnet_ldz00, BgL_auxz00_1364, BgL_auxz00_1366); } 
{ /* ./DotNet/dnld.scm 246 */
int BgL_auxz00_1369;
BgL_auxz00_1369 = 
(int)(((long)0)); 
PROCEDURE_SET(BgL_zc3anonymousza32234ze3z83_898, BgL_auxz00_1369, BgL_pathz00_25); } 
{ /* ./DotNet/dnld.scm 246 */
int BgL_auxz00_1372;
BgL_auxz00_1372 = 
(int)(((long)1)); 
PROCEDURE_SET(BgL_zc3anonymousza32234ze3z83_898, BgL_auxz00_1372, BgL_targetz00_24); } 
BGl_withzd2outputzd2tozd2filezd2zz__r4_ports_6_10_1z00(BgL_targetz00_24, BgL_zc3anonymousza32234ze3z83_898); } 
{ /* ./DotNet/dnld.scm 253 */
obj_t BgL_list2258z00_586;
{ /* ./DotNet/dnld.scm 253 */
obj_t BgL_arg2260z00_587;obj_t BgL_arg2261z00_588;
BgL_arg2260z00_587 = 
CNST_TABLE_REF(((long)3)); 
{ /* ./DotNet/dnld.scm 253 */
obj_t BgL_arg2264z00_589;obj_t BgL_arg2265z00_590;
BgL_arg2264z00_589 = 
CNST_TABLE_REF(((long)4)); 
{ /* ./DotNet/dnld.scm 253 */
obj_t BgL_auxz00_1378;
BgL_auxz00_1378 = 
CNST_TABLE_REF(((long)5)); 
BgL_arg2265z00_590 = 
MAKE_PAIR(BgL_auxz00_1378, BNIL); } 
BgL_arg2261z00_588 = 
MAKE_PAIR(BgL_arg2264z00_589, BgL_arg2265z00_590); } 
BgL_list2258z00_586 = 
MAKE_PAIR(BgL_arg2260z00_587, BgL_arg2261z00_588); } 
return 
BGl_chmodz00zz__osz00(BgL_targetz00_24, BgL_list2258z00_586);} } 
}



/* _generate-mono-msdos */
obj_t BGl__generatezd2monozd2msdosz00zzdotnet_ldz00(obj_t BgL_envz00_879, obj_t BgL_targetz00_880, obj_t BgL_pathz00_881)
{ AN_OBJECT;
{ /* ./DotNet/dnld.scm 243 */
{ /* ./DotNet/dnld.scm 244 */
bool_t BgL_auxz00_1384;
BgL_auxz00_1384 = 
BGl_generatezd2monozd2msdosz00zzdotnet_ldz00(BgL_targetz00_880, BgL_pathz00_881); 
return 
BBOOL(BgL_auxz00_1384);} } 
}



/* <anonymous:2234> */
obj_t BGl_zc3anonymousza32234ze3z83zzdotnet_ldz00(obj_t BgL_envz00_899)
{ AN_OBJECT;
{ /* ./DotNet/dnld.scm 245 */
{ /* ./DotNet/dnld.scm 246 */
obj_t BgL_pathz00_900;obj_t BgL_targetz00_901;
{ /* ./DotNet/dnld.scm 246 */
int BgL_auxz00_1387;
BgL_auxz00_1387 = 
(int)(((long)0)); 
BgL_pathz00_900 = 
PROCEDURE_REF(BgL_envz00_899, BgL_auxz00_1387); } 
{ /* ./DotNet/dnld.scm 246 */
int BgL_auxz00_1390;
BgL_auxz00_1390 = 
(int)(((long)1)); 
BgL_targetz00_901 = 
PROCEDURE_REF(BgL_envz00_899, BgL_auxz00_1390); } 
{ 

{ /* ./DotNet/dnld.scm 246 */
obj_t BgL_port1615z00_581;
BgL_port1615z00_581 = 
BGL_CURRENT_OUTPUT_PORT(); 
display_string(BGl_string2623z00zzdotnet_ldz00, BgL_port1615z00_581); 
{ /* ./DotNet/dnld.scm 247 */
obj_t BgL_arg2237z00_582;
{ /* ./DotNet/dnld.scm 247 */
obj_t BgL_arg2240z00_583;
BgL_arg2240z00_583 = 
BGl_stringzd2replacezd2zztools_miscz00(BgL_pathz00_900, 
BCHAR(((unsigned char)'/')), 
BCHAR(((unsigned char)'\\'))); 
BgL_arg2237z00_582 = 
BGl_uncygdrivez00zztools_miscz00(BgL_arg2240z00_583); } 
BGl_displayzd22zd2zz__r4_output_6_10_3z00(BgL_arg2237z00_582, BgL_port1615z00_581); } 
display_string(BGl_string2624z00zzdotnet_ldz00, BgL_port1615z00_581); 
display_string(BGl_string2618z00zzdotnet_ldz00, BgL_port1615z00_581); 
BGl_displayzd22zd2zz__r4_output_6_10_3z00(BGl_za2dotnetzd2clrza2zd2zzengine_paramz00, BgL_port1615z00_581); 
display_string(BGl_string2596z00zzdotnet_ldz00, BgL_port1615z00_581); 
BGl_displayzd22zd2zz__r4_output_6_10_3z00(BGl_za2dotnetzd2clrzd2optza2z00zzengine_paramz00, BgL_port1615z00_581); 
display_string(BGl_string2619z00zzdotnet_ldz00, BgL_port1615z00_581); 
{ /* ./DotNet/dnld.scm 251 */
obj_t BgL_arg2250z00_584;
BgL_arg2250z00_584 = 
BGl_prefixz00zz__osz00(BgL_targetz00_901); 
BGl_displayzd22zd2zz__r4_output_6_10_3z00(BgL_arg2250z00_584, BgL_port1615z00_581); } 
display_string(BGl_string2616z00zzdotnet_ldz00, BgL_port1615z00_581); 
display_string(BGl_string2625z00zzdotnet_ldz00, BgL_port1615z00_581); 
return 
WRITE_CHAR(((unsigned char)'\n'), BgL_port1615z00_581);} } } } 
}



/* generate-rotor-sh */
bool_t BGl_generatezd2rotorzd2shz00zzdotnet_ldz00(obj_t BgL_targetz00_26, obj_t BgL_pathz00_27)
{ AN_OBJECT;
{ /* ./DotNet/dnld.scm 258 */
{ /* ./DotNet/dnld.scm 261 */
obj_t BgL_zc3anonymousza32271ze3z83_902;
{ 
int BgL_auxz00_1413;int BgL_auxz00_1411;
BgL_auxz00_1413 = 
(int)(((long)1)); 
BgL_auxz00_1411 = 
(int)(((long)0)); 
BgL_zc3anonymousza32271ze3z83_902 = 
make_fx_procedure(BGl_zc3anonymousza32271ze3z83zzdotnet_ldz00, BgL_auxz00_1411, BgL_auxz00_1413); } 
{ /* ./DotNet/dnld.scm 261 */
int BgL_auxz00_1416;
BgL_auxz00_1416 = 
(int)(((long)0)); 
PROCEDURE_SET(BgL_zc3anonymousza32271ze3z83_902, BgL_auxz00_1416, BgL_targetz00_26); } 
BGl_withzd2outputzd2tozd2filezd2zz__r4_ports_6_10_1z00(BgL_targetz00_26, BgL_zc3anonymousza32271ze3z83_902); } 
{ /* ./DotNet/dnld.scm 267 */
obj_t BgL_list2292z00_598;
{ /* ./DotNet/dnld.scm 267 */
obj_t BgL_arg2294z00_599;obj_t BgL_arg2295z00_600;
BgL_arg2294z00_599 = 
CNST_TABLE_REF(((long)3)); 
{ /* ./DotNet/dnld.scm 267 */
obj_t BgL_arg2298z00_601;obj_t BgL_arg2299z00_602;
BgL_arg2298z00_601 = 
CNST_TABLE_REF(((long)4)); 
{ /* ./DotNet/dnld.scm 267 */
obj_t BgL_auxz00_1422;
BgL_auxz00_1422 = 
CNST_TABLE_REF(((long)5)); 
BgL_arg2299z00_602 = 
MAKE_PAIR(BgL_auxz00_1422, BNIL); } 
BgL_arg2295z00_600 = 
MAKE_PAIR(BgL_arg2298z00_601, BgL_arg2299z00_602); } 
BgL_list2292z00_598 = 
MAKE_PAIR(BgL_arg2294z00_599, BgL_arg2295z00_600); } 
return 
BGl_chmodz00zz__osz00(BgL_targetz00_26, BgL_list2292z00_598);} } 
}



/* _generate-rotor-sh */
obj_t BGl__generatezd2rotorzd2shz00zzdotnet_ldz00(obj_t BgL_envz00_873, obj_t BgL_targetz00_874, obj_t BgL_pathz00_875)
{ AN_OBJECT;
{ /* ./DotNet/dnld.scm 258 */
{ /* ./DotNet/dnld.scm 259 */
bool_t BgL_auxz00_1428;
BgL_auxz00_1428 = 
BGl_generatezd2rotorzd2shz00zzdotnet_ldz00(BgL_targetz00_874, BgL_pathz00_875); 
return 
BBOOL(BgL_auxz00_1428);} } 
}



/* <anonymous:2271> */
obj_t BGl_zc3anonymousza32271ze3z83zzdotnet_ldz00(obj_t BgL_envz00_903)
{ AN_OBJECT;
{ /* ./DotNet/dnld.scm 260 */
{ /* ./DotNet/dnld.scm 261 */
obj_t BgL_targetz00_904;
{ /* ./DotNet/dnld.scm 261 */
int BgL_auxz00_1431;
BgL_auxz00_1431 = 
(int)(((long)0)); 
BgL_targetz00_904 = 
PROCEDURE_REF(BgL_envz00_903, BgL_auxz00_1431); } 
{ 

{ /* ./DotNet/dnld.scm 261 */
obj_t BgL_port1616z00_593;
BgL_port1616z00_593 = 
BGL_CURRENT_OUTPUT_PORT(); 
display_string(BGl_string2613z00zzdotnet_ldz00, BgL_port1616z00_593); 
WRITE_CHAR(((unsigned char)'\n'), BgL_port1616z00_593); } 
{ /* ./DotNet/dnld.scm 262 */
obj_t BgL_arg2276z00_594;
BgL_arg2276z00_594 = 
BGL_CURRENT_OUTPUT_PORT(); 
WRITE_CHAR(((unsigned char)'\n'), BgL_arg2276z00_594); } 
{ /* ./DotNet/dnld.scm 263 */
obj_t BgL_port1617z00_595;
BgL_port1617z00_595 = 
BGL_CURRENT_OUTPUT_PORT(); 
BGl_displayzd22zd2zz__r4_output_6_10_3z00(BGl_za2dotnetzd2clrza2zd2zzengine_paramz00, BgL_port1617z00_595); 
display_string(BGl_string2596z00zzdotnet_ldz00, BgL_port1617z00_595); 
BGl_displayzd22zd2zz__r4_output_6_10_3z00(BGl_za2dotnetzd2clrzd2optza2z00zzengine_paramz00, BgL_port1617z00_595); 
display_string(BGl_string2614z00zzdotnet_ldz00, BgL_port1617z00_595); 
{ /* ./DotNet/dnld.scm 265 */
obj_t BgL_arg2284z00_596;
BgL_arg2284z00_596 = 
BGl_prefixz00zz__osz00(BgL_targetz00_904); 
BGl_displayzd22zd2zz__r4_output_6_10_3z00(BgL_arg2284z00_596, BgL_port1617z00_595); } 
display_string(BGl_string2616z00zzdotnet_ldz00, BgL_port1617z00_595); 
display_string(BGl_string2617z00zzdotnet_ldz00, BgL_port1617z00_595); 
return 
WRITE_CHAR(((unsigned char)'\n'), BgL_port1617z00_595);} } } } 
}



/* generate-rotor-msdos */
bool_t BGl_generatezd2rotorzd2msdosz00zzdotnet_ldz00(obj_t BgL_targetz00_28, obj_t BgL_pathz00_29)
{ AN_OBJECT;
{ /* ./DotNet/dnld.scm 272 */
{ /* ./DotNet/dnld.scm 275 */
obj_t BgL_zc3anonymousza32305ze3z83_905;
{ 
int BgL_auxz00_1451;int BgL_auxz00_1449;
BgL_auxz00_1451 = 
(int)(((long)1)); 
BgL_auxz00_1449 = 
(int)(((long)0)); 
BgL_zc3anonymousza32305ze3z83_905 = 
make_fx_procedure(BGl_zc3anonymousza32305ze3z83zzdotnet_ldz00, BgL_auxz00_1449, BgL_auxz00_1451); } 
{ /* ./DotNet/dnld.scm 275 */
int BgL_auxz00_1454;
BgL_auxz00_1454 = 
(int)(((long)0)); 
PROCEDURE_SET(BgL_zc3anonymousza32305ze3z83_905, BgL_auxz00_1454, BgL_targetz00_28); } 
BGl_withzd2outputzd2tozd2filezd2zz__r4_ports_6_10_1z00(BgL_targetz00_28, BgL_zc3anonymousza32305ze3z83_905); } 
{ /* ./DotNet/dnld.scm 279 */
obj_t BgL_list2320z00_608;
{ /* ./DotNet/dnld.scm 279 */
obj_t BgL_arg2322z00_609;obj_t BgL_arg2323z00_610;
BgL_arg2322z00_609 = 
CNST_TABLE_REF(((long)3)); 
{ /* ./DotNet/dnld.scm 279 */
obj_t BgL_arg2326z00_611;obj_t BgL_arg2327z00_612;
BgL_arg2326z00_611 = 
CNST_TABLE_REF(((long)4)); 
{ /* ./DotNet/dnld.scm 279 */
obj_t BgL_auxz00_1460;
BgL_auxz00_1460 = 
CNST_TABLE_REF(((long)5)); 
BgL_arg2327z00_612 = 
MAKE_PAIR(BgL_auxz00_1460, BNIL); } 
BgL_arg2323z00_610 = 
MAKE_PAIR(BgL_arg2326z00_611, BgL_arg2327z00_612); } 
BgL_list2320z00_608 = 
MAKE_PAIR(BgL_arg2322z00_609, BgL_arg2323z00_610); } 
return 
BGl_chmodz00zz__osz00(BgL_targetz00_28, BgL_list2320z00_608);} } 
}



/* _generate-rotor-msdos */
obj_t BGl__generatezd2rotorzd2msdosz00zzdotnet_ldz00(obj_t BgL_envz00_882, obj_t BgL_targetz00_883, obj_t BgL_pathz00_884)
{ AN_OBJECT;
{ /* ./DotNet/dnld.scm 272 */
{ /* ./DotNet/dnld.scm 273 */
bool_t BgL_auxz00_1466;
BgL_auxz00_1466 = 
BGl_generatezd2rotorzd2msdosz00zzdotnet_ldz00(BgL_targetz00_883, BgL_pathz00_884); 
return 
BBOOL(BgL_auxz00_1466);} } 
}



/* <anonymous:2305> */
obj_t BGl_zc3anonymousza32305ze3z83zzdotnet_ldz00(obj_t BgL_envz00_906)
{ AN_OBJECT;
{ /* ./DotNet/dnld.scm 274 */
{ /* ./DotNet/dnld.scm 275 */
obj_t BgL_targetz00_907;
{ /* ./DotNet/dnld.scm 275 */
int BgL_auxz00_1469;
BgL_auxz00_1469 = 
(int)(((long)0)); 
BgL_targetz00_907 = 
PROCEDURE_REF(BgL_envz00_906, BgL_auxz00_1469); } 
{ 

{ /* ./DotNet/dnld.scm 275 */
obj_t BgL_port1618z00_605;
BgL_port1618z00_605 = 
BGL_CURRENT_OUTPUT_PORT(); 
display_string(BGl_string2618z00zzdotnet_ldz00, BgL_port1618z00_605); 
BGl_displayzd22zd2zz__r4_output_6_10_3z00(BGl_za2dotnetzd2clrza2zd2zzengine_paramz00, BgL_port1618z00_605); 
display_string(BGl_string2596z00zzdotnet_ldz00, BgL_port1618z00_605); 
BGl_displayzd22zd2zz__r4_output_6_10_3z00(BGl_za2dotnetzd2clrzd2optza2z00zzengine_paramz00, BgL_port1618z00_605); 
display_string(BGl_string2619z00zzdotnet_ldz00, BgL_port1618z00_605); 
{ /* ./DotNet/dnld.scm 277 */
obj_t BgL_arg2312z00_606;
BgL_arg2312z00_606 = 
BGl_prefixz00zz__osz00(BgL_targetz00_907); 
BGl_displayzd22zd2zz__r4_output_6_10_3z00(BgL_arg2312z00_606, BgL_port1618z00_605); } 
display_string(BGl_string2616z00zzdotnet_ldz00, BgL_port1618z00_605); 
display_string(BGl_string2625z00zzdotnet_ldz00, BgL_port1618z00_605); 
return 
WRITE_CHAR(((unsigned char)'\n'), BgL_port1618z00_605);} } } } 
}



/* method-init */
obj_t BGl_methodzd2initzd2zzdotnet_ldz00()
{ AN_OBJECT;
{ /* ./DotNet/dnld.scm 15 */
return BUNSPEC;} 
}



/* imported-modules-init */
obj_t BGl_importedzd2moduleszd2initz00zzdotnet_ldz00()
{ AN_OBJECT;
{ /* ./DotNet/dnld.scm 15 */
BGl_modulezd2initializa7ationz75zzengine_paramz00(((long)14260), "dotnet_ld"); 
BGl_modulezd2initializa7ationz75zzengine_configurez00(((long)37635), "dotnet_ld"); 
BGl_modulezd2initializa7ationz75zzengine_linkz00(((long)202), "dotnet_ld"); 
BGl_modulezd2initializa7ationz75zztools_speekz00(((long)23537), "dotnet_ld"); 
BGl_modulezd2initializa7ationz75zztools_errorz00(((long)25566), "dotnet_ld"); 
BGl_modulezd2initializa7ationz75zztools_miscz00(((long)64117), "dotnet_ld"); 
BGl_modulezd2initializa7ationz75zzread_readerz00(((long)38783), "dotnet_ld"); 
BGl_modulezd2initializa7ationz75zzmodule_modulez00(((long)8699), "dotnet_ld"); 
BGl_modulezd2initializa7ationz75zzast_varz00(((long)44246), "dotnet_ld"); 
BGl_modulezd2initializa7ationz75zztype_typez00(((long)19090), "dotnet_ld"); 
BGl_modulezd2initializa7ationz75zzcc_ldz00(((long)36014), "dotnet_ld"); 
return 
BGl_modulezd2initializa7ationz75zzcc_execz00(((long)23238), "dotnet_ld");} 
}



/* eval-init */
obj_t BGl_evalzd2initzd2zzdotnet_ldz00()
{ AN_OBJECT;
{ /* ./DotNet/dnld.scm 15 */
BGl_definezd2primopzd2refz12z12zz__evenvz00(
CNST_TABLE_REF(((long)6)), 
__EVMEANING_ADDRESS(BGl_za2dotnetzd2linkersza2zd2zzdotnet_ldz00)); 
BGl_definezd2primopzd2refz12z12zz__evenvz00(
CNST_TABLE_REF(((long)7)), 
__EVMEANING_ADDRESS(BGl_za2dotnetzd2shzd2clrsza2z00zzdotnet_ldz00)); 
return 
BGl_definezd2primopzd2refz12z12zz__evenvz00(
CNST_TABLE_REF(((long)8)), 
__EVMEANING_ADDRESS(BGl_za2dotnetzd2msdoszd2clrsza2z00zzdotnet_ldz00));} 
}

