/*===========================================================================*/
/*   (Unsafe/ftp.scm)                                                        */
/*   Bigloo (4.7a)                                                           */
/*   Inria -- Sophia Antipolis (c)       Thu Feb 19 09:11:58 AM CET 2026     */
/*===========================================================================*/
/* COMPILATION: (/home/serrano/prgm/project/bigloo/4.7a/bin/bigloo -srfi bigloo-unsafe -O3 -fcfa-arithmetic -q -lib-dir /home/serrano/prgm/project/bigloo/4.7a/lib/bigloo/4.7a +rm -mklib -cc gcc -fsharing -q -no-hello -unsafe -safee -O4 -stdc -c Unsafe/ftp.scm -indent -o objs/obj_u/Unsafe/ftp.c) */
/* GC selection */
#define THE_GC BOEHM_GC

/* unsafe mode */
#define BIGLOO_UNSAFE 1

/* traces mode */
#define BIGLOO_TRACE 0

/* standard Bigloo include */
#include <bigloo.h>

#ifdef __cplusplus
extern "C"
{
#endif
#ifndef BGL_MODULE_TYPE_DEFINITIONS
#define BGL_MODULE_TYPE_DEFINITIONS
#ifndef BGL___FTP_TYPE_DEFINITIONS
#define BGL___FTP_TYPE_DEFINITIONS

/* object type definitions */
	typedef struct BgL_z62exceptionz62_bgl
	{
		header_t header;
		obj_t widening;
		obj_t BgL_fnamez00;
		obj_t BgL_locationz00;
		obj_t BgL_stackz00;
	}                      *BgL_z62exceptionz62_bglt;

	typedef struct BgL_z62errorz62_bgl
	{
		header_t header;
		obj_t widening;
		obj_t BgL_fnamez00;
		obj_t BgL_locationz00;
		obj_t BgL_stackz00;
		obj_t BgL_procz00;
		obj_t BgL_msgz00;
		obj_t BgL_objz00;
	}                  *BgL_z62errorz62_bglt;

	typedef struct BgL_z52ftpz52_bgl
	{
		header_t header;
		obj_t widening;
		obj_t BgL_cmdz00;
		obj_t BgL_dtpz00;
		bool_t BgL_passivezf3zf3;
	}                *BgL_z52ftpz52_bglt;

	typedef struct BgL_ftpz00_bgl
	{
		header_t header;
		obj_t widening;
		obj_t BgL_cmdz00;
		obj_t BgL_dtpz00;
		bool_t BgL_passivezf3zf3;
		obj_t BgL_hostz00;
		obj_t BgL_portz00;
		obj_t BgL_motdz00;
		obj_t BgL_userz00;
		obj_t BgL_passz00;
		obj_t BgL_acctz00;
	}             *BgL_ftpz00_bglt;

	typedef struct BgL_z62ftpzd2errorzb0_bgl
	{
		header_t header;
		obj_t widening;
		obj_t BgL_fnamez00;
		obj_t BgL_locationz00;
		obj_t BgL_stackz00;
		obj_t BgL_procz00;
		obj_t BgL_msgz00;
		obj_t BgL_objz00;
	}                        *BgL_z62ftpzd2errorzb0_bglt;

	typedef struct BgL_z62ftpzd2parsezd2errorz62_bgl
	{
		header_t header;
		obj_t widening;
		obj_t BgL_fnamez00;
		obj_t BgL_locationz00;
		obj_t BgL_stackz00;
		obj_t BgL_procz00;
		obj_t BgL_msgz00;
		obj_t BgL_objz00;
	}                                *BgL_z62ftpzd2parsezd2errorz62_bglt;


#endif													// BGL___FTP_TYPE_DEFINITIONS
#endif													// BGL_MODULE_TYPE_DEFINITIONS

	BGL_EXPORTED_DECL bool_t BGl_ftpzd2datazd2typez00zz__ftpz00(BgL_ftpz00_bglt,
		obj_t, obj_t);
	extern obj_t bgl_socket_host_addr(obj_t);
	static obj_t BGl_z62ftpzd2statuszb0zz__ftpz00(obj_t, obj_t, obj_t);
	static obj_t BGl_z62ftpzd2allocatezb0zz__ftpz00(obj_t, obj_t, obj_t, obj_t);
	static obj_t BGl_z62ftpzd2copyzd2filez62zz__ftpz00(obj_t, obj_t, obj_t,
		obj_t);
	static obj_t BGl_symbol2564z00zz__ftpz00 = BUNSPEC;
	static obj_t BGl_z52ftpzd2readzd2dtpz52zz__ftpz00(obj_t, obj_t);
	static obj_t BGl_z62zc3z04anonymousza31951ze3ze5zz__ftpz00(obj_t);
	static BgL_z52ftpz52_bglt BGl_z62lambda1935z62zz__ftpz00(obj_t);
	BGL_EXPORTED_DECL obj_t BGl_ftpzd2putzd2filez00zz__ftpz00(BgL_ftpz00_bglt,
		obj_t);
	static obj_t BGl_symbol2571z00zz__ftpz00 = BUNSPEC;
	static obj_t BGl_z62ftpzd2reinitializa7ez17zz__ftpz00(obj_t, obj_t);
	static obj_t BGl_symbol2654z00zz__ftpz00 = BUNSPEC;
	static obj_t BGl_symbol2656z00zz__ftpz00 = BUNSPEC;
	BGL_EXPORTED_DEF obj_t BGl_ftpz00zz__ftpz00 = BUNSPEC;
	static obj_t BGl_ftpzd2connectzd2toz00zz__ftpz00(obj_t, obj_t);
	static obj_t BGl_requirezd2initializa7ationz75zz__ftpz00 = BUNSPEC;
	BGL_EXPORTED_DECL obj_t
		BGl_ftpzd2directoryzd2ze3listze3zz__ftpz00(BgL_ftpz00_bglt, obj_t);
	extern obj_t BGl_raisez00zz__errorz00(obj_t);
	static obj_t BGl_z62zc3z04anonymousza31944ze3ze5zz__ftpz00(obj_t);
	static obj_t BGl_z62lambda1942z62zz__ftpz00(obj_t, obj_t);
	extern obj_t BGl_withzd2outputzd2tozd2filezd2zz__r4_ports_6_10_1z00(obj_t,
		obj_t);
	static obj_t BGl_z62lambda1943z62zz__ftpz00(obj_t, obj_t, obj_t);
	static obj_t BGl_z62ftpzd2cdzd2parentz62zz__ftpz00(obj_t, obj_t);
	static obj_t BGl_z62lambda1949z62zz__ftpz00(obj_t, obj_t);
	BGL_EXPORTED_DECL bool_t BGl_ftpzd2datazd2portz00zz__ftpz00(BgL_ftpz00_bglt,
		obj_t, obj_t);
	static obj_t BGl_symbol2661z00zz__ftpz00 = BUNSPEC;
	static obj_t BGl_symbol2666z00zz__ftpz00 = BUNSPEC;
	static obj_t BGl_symbol2668z00zz__ftpz00 = BUNSPEC;
	static obj_t BGl_z52ftpzd2closez80zz__ftpz00(obj_t);
	extern obj_t bgl_display_obj(obj_t, obj_t);
	static obj_t BGl_z62lambda1950z62zz__ftpz00(obj_t, obj_t, obj_t);
	static obj_t BGl_z62zc3z04anonymousza31937ze3ze5zz__ftpz00(obj_t, obj_t);
	extern obj_t BGl_typezd2errorzd2zz__errorz00(obj_t, obj_t, obj_t, obj_t,
		obj_t);
	static obj_t BGl_z62lambda1957z62zz__ftpz00(obj_t, obj_t);
	static obj_t BGl_z62lambda1958z62zz__ftpz00(obj_t, obj_t, obj_t);
	static obj_t BGl_symbol2672z00zz__ftpz00 = BUNSPEC;
	static obj_t BGl_symbol2674z00zz__ftpz00 = BUNSPEC;
	static obj_t BGl_z62ftpzd2storezb0zz__ftpz00(obj_t, obj_t, obj_t, obj_t);
	static obj_t BGl_symbol2679z00zz__ftpz00 = BUNSPEC;
	BGL_EXPORTED_DEF obj_t BGl_z62ftpzd2parsezd2errorz62zz__ftpz00 = BUNSPEC;
	static obj_t BGl_z52ftpzd2closezd2cmdz52zz__ftpz00(obj_t);
	static BgL_ftpz00_bglt BGl_z62lambda1965z62zz__ftpz00(obj_t, obj_t, obj_t,
		obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t);
	static BgL_ftpz00_bglt BGl_z62lambda1967z62zz__ftpz00(obj_t);
	static obj_t BGl_symbol2680z00zz__ftpz00 = BUNSPEC;
	static obj_t BGl_symbol2684z00zz__ftpz00 = BUNSPEC;
	extern long bgl_file_size(char *);
	static obj_t BGl_toplevelzd2initzd2zz__ftpz00(void);
	static obj_t BGl_symbol2688z00zz__ftpz00 = BUNSPEC;
	static obj_t BGl_z62ftpzd2mountzb0zz__ftpz00(obj_t, obj_t, obj_t);
	static obj_t BGl_z62ftpzd2abortzb0zz__ftpz00(obj_t, obj_t);
	static obj_t BGl_z62zc3z04anonymousza31874ze3ze5zz__ftpz00(obj_t, obj_t);
	extern obj_t BGl_stringzd2containszd2ciz00zz__r4_strings_6_7z00(obj_t, obj_t,
		int);
	static obj_t BGl_z62lambda1976z62zz__ftpz00(obj_t, obj_t);
	static obj_t BGl_z62lambda1977z62zz__ftpz00(obj_t, obj_t, obj_t);
	BGL_EXPORTED_DECL obj_t BGl_ftpzd2namezd2listz00zz__ftpz00(BgL_ftpz00_bglt,
		obj_t);
	static obj_t BGl_z52ftpzd2dtpzd2initz52zz__ftpz00(obj_t);
	extern obj_t BGl_formatz00zz__r4_output_6_10_3z00(obj_t, obj_t);
	static obj_t BGl_symbol2693z00zz__ftpz00 = BUNSPEC;
	static obj_t BGl_symbol2698z00zz__ftpz00 = BUNSPEC;
	static obj_t BGl_z62lambda1983z62zz__ftpz00(obj_t, obj_t);
	static obj_t BGl_z62lambda1984z62zz__ftpz00(obj_t, obj_t, obj_t);
	extern obj_t BGl_z62iozd2parsezd2errorz62zz__objectz00;
	static obj_t BGl_genericzd2initzd2zz__ftpz00(void);
	static obj_t BGl_z62zc3z04anonymousza32016ze3ze5zz__ftpz00(obj_t);
	static obj_t BGl_z62zc3z04anonymousza32008ze3ze5zz__ftpz00(obj_t);
	extern obj_t BGl_makezd2classzd2fieldz00zz__objectz00(obj_t, obj_t, obj_t,
		bool_t, bool_t, obj_t, obj_t, obj_t);
	BGL_EXPORTED_DECL bool_t BGl_ftpzd2noopzd2zz__ftpz00(BgL_ftpz00_bglt);
	static obj_t BGl_objectzd2initzd2zz__ftpz00(void);
	static obj_t BGl_z62lambda1991z62zz__ftpz00(obj_t, obj_t);
	static obj_t BGl_z62lambda1992z62zz__ftpz00(obj_t, obj_t, obj_t);
	extern obj_t BGl_2za2za2zz__r4_numbers_6_5z00(obj_t, obj_t);
	extern obj_t BGl_2zb2zb2zz__r4_numbers_6_5z00(obj_t, obj_t);
	BGL_EXPORTED_DECL obj_t BGl_ftpzd2pwdzd2zz__ftpz00(BgL_ftpz00_bglt);
	static obj_t BGl_z62lambda1999z62zz__ftpz00(obj_t, obj_t);
	BGL_EXPORTED_DECL bool_t BGl_ftpzd2storezd2zz__ftpz00(BgL_ftpz00_bglt, obj_t,
		obj_t);
	extern obj_t bgl_bignum_mul(obj_t, obj_t);
	extern bool_t BGl_2zd3zd3zz__r4_numbers_6_5z00(obj_t, obj_t);
	extern obj_t BGl_memqz00zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
	static obj_t BGl_z62ftpzd2passivezb0zz__ftpz00(obj_t, obj_t);
	static obj_t BGl_zc3z04anonymousza31874ze3ze70z60zz__ftpz00(BgL_ftpz00_bglt,
		obj_t);
	extern obj_t string_append_3(obj_t, obj_t, obj_t);
	BGL_EXPORTED_DEF obj_t BGl_z62ftpzd2errorzb0zz__ftpz00 = BUNSPEC;
	BGL_EXPORTED_DECL bool_t BGl_ftpzd2mountzd2zz__ftpz00(BgL_ftpz00_bglt, obj_t);
	static obj_t BGl_z62zc3z04anonymousza32026ze3ze5zz__ftpz00(obj_t, obj_t);
	BGL_EXPORTED_DECL bool_t BGl_ftpzd2abortzd2zz__ftpz00(BgL_ftpz00_bglt);
	BGL_EXPORTED_DECL obj_t BGl_openzd2inputzd2ftpzd2filezd2zz__ftpz00(obj_t,
		obj_t, obj_t);
	static obj_t BGl_z62ftpzd2transferzd2modez62zz__ftpz00(obj_t, obj_t, obj_t);
	static obj_t BGl_z62zc3z04anonymousza31959ze3ze5zz__ftpz00(obj_t);
	extern obj_t bgl_bignum_add(obj_t, obj_t);
	BGL_EXPORTED_DECL bool_t
		BGl_ftpzd2filezd2structurez00zz__ftpz00(BgL_ftpz00_bglt, obj_t);
	extern obj_t BGl_fprintfz00zz__r4_output_6_10_3z00(obj_t, obj_t, obj_t);
	extern bool_t BGl_isazf3zf3zz__objectz00(obj_t, obj_t);
	static obj_t BGl_thezd2substringze70z35zz__ftpz00(obj_t, int, int);
	static obj_t BGl_z62ftpzd2makezd2directoryz62zz__ftpz00(obj_t, obj_t, obj_t);
	extern obj_t bstring_to_symbol(obj_t);
	static obj_t BGl_z62zc3z04anonymousza31993ze3ze5zz__ftpz00(obj_t);
	static obj_t BGl_z62zc3z04anonymousza31985ze3ze5zz__ftpz00(obj_t);
	static obj_t BGl_z62ftpzd2rmdirzb0zz__ftpz00(obj_t, obj_t, obj_t);
	static obj_t BGl_z62zc3z04anonymousza31969ze3ze5zz__ftpz00(obj_t, obj_t);
	BGL_EXPORTED_DECL bool_t BGl_ftpzd2renamezd2filez00zz__ftpz00(BgL_ftpz00_bglt,
		obj_t, obj_t);
	static obj_t BGl_methodzd2initzd2zz__ftpz00(void);
	static obj_t BGl_z62ftpzd2renamezd2filez62zz__ftpz00(obj_t, obj_t, obj_t,
		obj_t);
	extern int BGl_socketzd2shutdownzd2zz__socketz00(obj_t, obj_t);
	static obj_t BGl_z62zc3z04anonymousza31978ze3ze5zz__ftpz00(obj_t);
	BGL_EXPORTED_DECL obj_t BGl_ftpzd2copyzd2filez00zz__ftpz00(BgL_ftpz00_bglt,
		obj_t, obj_t);
	static obj_t BGl_z62zc3z04anonymousza32038ze3ze5zz__ftpz00(obj_t, obj_t);
	static obj_t BGl_z52ftpzd2enginezd2cmdz52zz__ftpz00(obj_t, obj_t, obj_t);
	extern obj_t BGl_urlzd2sanszd2protocolzd2parsezd2zz__urlz00(obj_t, obj_t);
	static obj_t BGl_z52ftpzd2closezd2dtpz52zz__ftpz00(obj_t);
	extern obj_t bgl_close_input_port(obj_t);
	static obj_t BGl_z62ftpzd2directoryzd2ze3pathzd2listz53zz__ftpz00(obj_t,
		obj_t, obj_t);
	BGL_EXPORTED_DECL bool_t BGl_ftpzd2cdzd2parentz00zz__ftpz00(BgL_ftpz00_bglt);
	extern obj_t bgl_long_to_bignum(long);
	static obj_t BGl_z62lambda2000z62zz__ftpz00(obj_t, obj_t, obj_t);
	static obj_t BGl_z62lambda2006z62zz__ftpz00(obj_t, obj_t);
	static obj_t BGl_z62lambda2007z62zz__ftpz00(obj_t, obj_t, obj_t);
	BGL_EXPORTED_DECL bool_t BGl_ftpzd2logoutzd2zz__ftpz00(BgL_ftpz00_bglt);
	BGL_EXPORTED_DECL bool_t BGl_ftpzd2rmdirzd2zz__ftpz00(BgL_ftpz00_bglt, obj_t);
	extern obj_t rgc_buffer_substring(obj_t, long, long);
	static obj_t BGl_z62ftpzd2listzb0zz__ftpz00(obj_t, obj_t, obj_t);
	BGL_EXPORTED_DECL bool_t BGl_ftpzd2restartzd2zz__ftpz00(BgL_ftpz00_bglt,
		obj_t);
	static obj_t BGl_z62ftpzd2putzd2filez62zz__ftpz00(obj_t, obj_t, obj_t);
	extern obj_t BGl_readzd2lineszd2zz__r4_input_6_10_2z00(obj_t);
	extern obj_t BGl_errorz00zz__errorz00(obj_t, obj_t, obj_t);
	static obj_t BGl_z62lambda2014z62zz__ftpz00(obj_t, obj_t);
	static obj_t BGl_z62lambda2015z62zz__ftpz00(obj_t, obj_t, obj_t);
	static obj_t BGl_z62ftpzd2sitezd2parametersz62zz__ftpz00(obj_t, obj_t, obj_t);
	static obj_t BGl_z62zc3z04anonymousza31720ze32401ze5zz__ftpz00(obj_t);
	BGL_EXPORTED_DECL obj_t BGl_ftpzd2retrievezd2zz__ftpz00(BgL_ftpz00_bglt,
		obj_t);
	extern obj_t BGl_substringz00zz__r4_strings_6_7z00(obj_t, long, long);
	extern obj_t BGl_stringzd2ze3numberz31zz__r4_numbers_6_5z00(obj_t, obj_t);
	static BgL_z62ftpzd2errorzb0_bglt BGl_z62lambda2022z62zz__ftpz00(obj_t, obj_t,
		obj_t, obj_t, obj_t, obj_t, obj_t);
	static BgL_z62ftpzd2errorzb0_bglt BGl_z62lambda2024z62zz__ftpz00(obj_t);
	static obj_t BGl_z62ftpzd2logoutzb0zz__ftpz00(obj_t, obj_t);
	extern obj_t bstring_to_keyword(obj_t);
	static BgL_z62ftpzd2parsezd2errorz62_bglt
		BGl_z62lambda2033z62zz__ftpz00(obj_t, obj_t, obj_t, obj_t, obj_t, obj_t,
		obj_t);
	static BgL_z62ftpzd2parsezd2errorz62_bglt
		BGl_z62lambda2035z62zz__ftpz00(obj_t);
	extern obj_t BGl_openzd2inputzd2stringz00zz__r4_ports_6_10_1z00(obj_t, obj_t,
		obj_t);
	BGL_EXPORTED_DECL bool_t BGl_ftpzd2allocatezd2zz__ftpz00(BgL_ftpz00_bglt,
		obj_t, obj_t);
	extern obj_t bgl_list_ref(obj_t, long);
	extern bool_t rgc_buffer_bol_p(obj_t);
	static obj_t BGl_ignoreze70ze7zz__ftpz00(obj_t, obj_t, obj_t, obj_t, obj_t,
		obj_t);
	BGL_EXPORTED_DECL obj_t BGl_modulezd2initializa7ationz75zz__ftpz00(long,
		char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__objectz00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__errorz00(long, char *);
	BGL_EXPORTED_DECL bool_t BGl_ftpzd2cdzd2zz__ftpz00(BgL_ftpz00_bglt, obj_t);
	extern obj_t BGl_makezd2clientzd2socketz00zz__socketz00(obj_t, int, obj_t,
		obj_t, obj_t, obj_t);
	static obj_t BGl_z62ftpzd2helpzb0zz__ftpz00(obj_t, obj_t, obj_t);
	static obj_t BGl_list2560z00zz__ftpz00 = BUNSPEC;
	static obj_t BGl_z62zc3z04anonymousza31720ze3ze5zz__ftpz00(obj_t);
	extern obj_t BGl_z62errorz62zz__objectz00;
	extern bool_t fexists(char *);
	static obj_t BGl_z62ftpzd2datazd2typez62zz__ftpz00(obj_t, obj_t, obj_t,
		obj_t);
	extern obj_t BGl_readzd2linezd2zz__r4_input_6_10_2z00(obj_t);
	static obj_t BGl_cnstzd2initzd2zz__ftpz00(void);
	extern obj_t BGl_stringzd2indexzd2zz__r4_strings_6_7z00(obj_t, obj_t, obj_t);
	static obj_t BGl__ftpzd2connectzd2zz__ftpz00(obj_t, obj_t);
	extern obj_t BGl_registerzd2classz12zc0zz__objectz00(obj_t, obj_t, obj_t,
		long, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t);
	static obj_t BGl_z52ftpzd2dtpzd2pasvzd2setupz80zz__ftpz00(obj_t);
	static obj_t BGl_z62ftpzd2datazd2portz62zz__ftpz00(obj_t, obj_t, obj_t,
		obj_t);
	static obj_t BGl_importedzd2moduleszd2initz00zz__ftpz00(void);
	BGL_EXPORTED_DEF obj_t BGl_z52ftpz52zz__ftpz00 = BUNSPEC;
	static obj_t BGl_gczd2rootszd2initz00zz__ftpz00(void);
	static obj_t BGl_z52ftpzd2readzd2cmdz52zz__ftpz00(obj_t);
	static obj_t BGl_z62ftpzd2restartzb0zz__ftpz00(obj_t, obj_t, obj_t);
	static obj_t BGl_z62ftpzd2pwdzb0zz__ftpz00(obj_t, obj_t);
	BGL_EXPORTED_DECL bool_t BGl_ftpzd2deletezd2zz__ftpz00(BgL_ftpz00_bglt,
		obj_t);
	BGL_EXPORTED_DECL obj_t
		BGl_ftpzd2sitezd2parametersz00zz__ftpz00(BgL_ftpz00_bglt, obj_t);
	BGL_EXPORTED_DECL obj_t
		BGl_ftpzd2directoryzd2ze3pathzd2listz31zz__ftpz00(BgL_ftpz00_bglt, obj_t);
	extern obj_t socket_close(obj_t);
	extern obj_t BGl_objectz00zz__objectz00;
	BGL_EXPORTED_DECL bool_t
		BGl_ftpzd2makezd2directoryz00zz__ftpz00(BgL_ftpz00_bglt, obj_t);
	extern long BGl_sendzd2filezd2zz__r4_input_6_10_2z00(obj_t, obj_t, long,
		long);
	BGL_EXPORTED_DECL obj_t BGl_ftpzd2systemzd2zz__ftpz00(BgL_ftpz00_bglt);
	extern obj_t BGl_consza2za2zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
	extern obj_t BGl_stringzd2splitzd2zz__r4_strings_6_7z00(obj_t, obj_t);
	BGL_EXPORTED_DECL obj_t BGl_ftpzd2listzd2zz__ftpz00(BgL_ftpz00_bglt, obj_t);
	static obj_t BGl_ftpportzd2ze3hostportz31zz__ftpz00(obj_t);
	BGL_EXPORTED_DECL bool_t BGl_ftpzd2connectzd2zz__ftpz00(BgL_ftpz00_bglt,
		obj_t);
	extern obj_t BGl_classzd2fieldzd2defaultzd2valuezd2zz__objectz00(obj_t);
	static obj_t BGl_z62ftpzd2namezd2listz62zz__ftpz00(obj_t, obj_t, obj_t);
	static obj_t BGl_z62ftpzd2deletezb0zz__ftpz00(obj_t, obj_t, obj_t);
	static obj_t BGl_z62zc3z04anonymousza31645ze3ze5zz__ftpz00(obj_t);
	static obj_t BGl_z62ftpzd2directoryzd2ze3listz81zz__ftpz00(obj_t, obj_t,
		obj_t);
	extern obj_t
		BGl_inputzd2portzd2closezd2hookzd2setz12z12zz__r4_ports_6_10_1z00(obj_t,
		obj_t);
	extern obj_t BGl_readzd2stringzd2zz__r4_input_6_10_2z00(obj_t);
	static obj_t BGl_z62ftpzd2systemzb0zz__ftpz00(obj_t, obj_t);
	extern obj_t c_substring(obj_t, long, long);
	BGL_EXPORTED_DECL bool_t BGl_ftpzd2appendzd2zz__ftpz00(BgL_ftpz00_bglt, obj_t,
		obj_t);
	BGL_EXPORTED_DECL bool_t
		BGl_ftpzd2reinitializa7ez75zz__ftpz00(BgL_ftpz00_bglt);
	extern obj_t BGl_genericzd2addzd2methodz12z12zz__objectz00(obj_t, obj_t,
		obj_t, obj_t);
	static obj_t BGl_keyword2561z00zz__ftpz00 = BUNSPEC;
	static obj_t BGl_keyword2563z00zz__ftpz00 = BUNSPEC;
	static obj_t BGl_z62ftpzd2filezd2structurez62zz__ftpz00(obj_t, obj_t, obj_t);
	static obj_t BGl_z62objectzd2printzd2ftp1284z62zz__ftpz00(obj_t, obj_t, obj_t,
		obj_t);
	static obj_t BGl_loopze70ze7zz__ftpz00(obj_t, obj_t, obj_t, obj_t);
	BGL_EXPORTED_DECL bool_t
		BGl_ftpzd2transferzd2modez00zz__ftpz00(BgL_ftpz00_bglt, obj_t);
	static obj_t BGl_z62ftpzd2appendzb0zz__ftpz00(obj_t, obj_t, obj_t, obj_t);
	static obj_t BGl_z62ftpzd2noopzb0zz__ftpz00(obj_t, obj_t);
	extern bool_t rgc_fill_buffer(obj_t);
	BGL_EXPORTED_DECL obj_t BGl_ftpzd2helpzd2zz__ftpz00(BgL_ftpz00_bglt, obj_t);
	static obj_t BGl_z62ftpzd2cdzb0zz__ftpz00(obj_t, obj_t, obj_t);
	static obj_t BGl__openzd2inputzd2ftpzd2filezd2zz__ftpz00(obj_t, obj_t);
	BGL_EXPORTED_DECL obj_t BGl_ftpzd2statuszd2zz__ftpz00(BgL_ftpz00_bglt, obj_t);
	static obj_t BGl_symbol2703z00zz__ftpz00 = BUNSPEC;
	static obj_t BGl_symbol2542z00zz__ftpz00 = BUNSPEC;
	static obj_t BGl_z62ftpzd2retrievezb0zz__ftpz00(obj_t, obj_t, obj_t);
	static obj_t BGl_symbol2544z00zz__ftpz00 = BUNSPEC;
	static obj_t BGl_symbol2708z00zz__ftpz00 = BUNSPEC;
	static obj_t BGl_symbol2712z00zz__ftpz00 = BUNSPEC;
	static obj_t BGl_z62zc3z04anonymousza32001ze3ze5zz__ftpz00(obj_t);
	static obj_t BGl_symbol2717z00zz__ftpz00 = BUNSPEC;
	BGL_EXPORTED_DECL bool_t BGl_ftpzd2passivezd2zz__ftpz00(BgL_ftpz00_bglt);
	static obj_t BGl_z62zc3z04anonymousza31926ze3ze5zz__ftpz00(obj_t);
	static obj_t *__cnst;


	   
		 
		DEFINE_EXPORT_BGL_PROCEDURE(BGl_ftpzd2cdzd2parentzd2envzd2zz__ftpz00,
		BgL_bgl_za762ftpza7d2cdza7d2pa2726za7,
		BGl_z62ftpzd2cdzd2parentz62zz__ftpz00, 0L, BUNSPEC, 1);
	      DEFINE_EXPORT_BGL_PROCEDURE(BGl_ftpzd2allocatezd2envz00zz__ftpz00,
		BgL_bgl_za762ftpza7d2allocat2727z00, va_generic_entry,
		BGl_z62ftpzd2allocatezb0zz__ftpz00, BUNSPEC, -3);
	      DEFINE_EXPORT_BGL_PROCEDURE(BGl_ftpzd2rmdirzd2envz00zz__ftpz00,
		BgL_bgl_za762ftpza7d2rmdirza7b2728za7, BGl_z62ftpzd2rmdirzb0zz__ftpz00, 0L,
		BUNSPEC, 2);
	      DEFINE_EXPORT_BGL_PROCEDURE(BGl_ftpzd2retrievezd2envz00zz__ftpz00,
		BgL_bgl_za762ftpza7d2retriev2729z00, BGl_z62ftpzd2retrievezb0zz__ftpz00, 0L,
		BUNSPEC, 2);
	      DEFINE_EXPORT_BGL_PROCEDURE(BGl_ftpzd2abortzd2envz00zz__ftpz00,
		BgL_bgl_za762ftpza7d2abortza7b2730za7, BGl_z62ftpzd2abortzb0zz__ftpz00, 0L,
		BUNSPEC, 1);
	      DEFINE_EXPORT_BGL_PROCEDURE(BGl_ftpzd2listzd2envz00zz__ftpz00,
		BgL_bgl_za762ftpza7d2listza7b02731za7, va_generic_entry,
		BGl_z62ftpzd2listzb0zz__ftpz00, BUNSPEC, -2);
	      DEFINE_EXPORT_BGL_PROCEDURE(BGl_ftpzd2passivezd2envz00zz__ftpz00,
		BgL_bgl_za762ftpza7d2passive2732z00, BGl_z62ftpzd2passivezb0zz__ftpz00, 0L,
		BUNSPEC, 1);
	      DEFINE_EXPORT_BGL_PROCEDURE(BGl_ftpzd2systemzd2envz00zz__ftpz00,
		BgL_bgl_za762ftpza7d2systemza72733za7, BGl_z62ftpzd2systemzb0zz__ftpz00, 0L,
		BUNSPEC, 1);
	      DEFINE_EXPORT_BGL_PROCEDURE(BGl_ftpzd2copyzd2filezd2envzd2zz__ftpz00,
		BgL_bgl_za762ftpza7d2copyza7d22734za7,
		BGl_z62ftpzd2copyzd2filez62zz__ftpz00, 0L, BUNSPEC, 3);
	      DEFINE_EXPORT_BGL_PROCEDURE(BGl_ftpzd2namezd2listzd2envzd2zz__ftpz00,
		BgL_bgl_za762ftpza7d2nameza7d22735za7, va_generic_entry,
		BGl_z62ftpzd2namezd2listz62zz__ftpz00, BUNSPEC, -2);
	      BGL_DEFINE_STRING(BGl_string2600z00zz__ftpz00,
		BgL_bgl_string2600za700za7za7_2736za7, "&ftp-data-type", 14);
	      BGL_DEFINE_STRING(BGl_string2601z00zz__ftpz00,
		BgL_bgl_string2601za700za7za7_2737za7, "symbol", 6);
	      BGL_DEFINE_STRING(BGl_string2602z00zz__ftpz00,
		BgL_bgl_string2602za700za7za7_2738za7, "F", 1);
	      BGL_DEFINE_STRING(BGl_string2603z00zz__ftpz00,
		BgL_bgl_string2603za700za7za7_2739za7, "STRU", 4);
	      BGL_DEFINE_STRING(BGl_string2604z00zz__ftpz00,
		BgL_bgl_string2604za700za7za7_2740za7, "&ftp-file-structure", 19);
	      BGL_DEFINE_STRING(BGl_string2605z00zz__ftpz00,
		BgL_bgl_string2605za700za7za7_2741za7, "S", 1);
	      BGL_DEFINE_STRING(BGl_string2606z00zz__ftpz00,
		BgL_bgl_string2606za700za7za7_2742za7, "MODE", 4);
	      BGL_DEFINE_STRING(BGl_string2607z00zz__ftpz00,
		BgL_bgl_string2607za700za7za7_2743za7, "&ftp-transfer-mode", 18);
	      BGL_DEFINE_STRING(BGl_string2608z00zz__ftpz00,
		BgL_bgl_string2608za700za7za7_2744za7, "&ftp-retrieve", 13);
	      BGL_DEFINE_STRING(BGl_string2609z00zz__ftpz00,
		BgL_bgl_string2609za700za7za7_2745za7, "STOR", 4);
	      DEFINE_EXPORT_BGL_PROCEDURE(BGl_ftpzd2statuszd2envz00zz__ftpz00,
		BgL_bgl_za762ftpza7d2statusza72746za7, va_generic_entry,
		BGl_z62ftpzd2statuszb0zz__ftpz00, BUNSPEC, -2);
	      BGL_DEFINE_STRING(BGl_string2610z00zz__ftpz00,
		BgL_bgl_string2610za700za7za7_2747za7, "STOU", 4);
	      BGL_DEFINE_STRING(BGl_string2611z00zz__ftpz00,
		BgL_bgl_string2611za700za7za7_2748za7, "&ftp-store", 10);
	      BGL_DEFINE_STRING(BGl_string2612z00zz__ftpz00,
		BgL_bgl_string2612za700za7za7_2749za7, "APPE", 4);
	      BGL_DEFINE_STRING(BGl_string2613z00zz__ftpz00,
		BgL_bgl_string2613za700za7za7_2750za7, "&ftp-append", 11);
	      BGL_DEFINE_STRING(BGl_string2614z00zz__ftpz00,
		BgL_bgl_string2614za700za7za7_2751za7, "R", 1);
	      BGL_DEFINE_STRING(BGl_string2615z00zz__ftpz00,
		BgL_bgl_string2615za700za7za7_2752za7, "ALLO", 4);
	      BGL_DEFINE_STRING(BGl_string2534z00zz__ftpz00,
		BgL_bgl_string2534za700za7za7_2753za7, "EOF", 3);
	      BGL_DEFINE_STRING(BGl_string2616z00zz__ftpz00,
		BgL_bgl_string2616za700za7za7_2754za7, "&ftp-allocate", 13);
	      BGL_DEFINE_STRING(BGl_string2535z00zz__ftpz00,
		BgL_bgl_string2535za700za7za7_2755za7, "Illegal range `~a'", 18);
	      BGL_DEFINE_STRING(BGl_string2617z00zz__ftpz00,
		BgL_bgl_string2617za700za7za7_2756za7, "REST", 4);
	      BGL_DEFINE_STRING(BGl_string2536z00zz__ftpz00,
		BgL_bgl_string2536za700za7za7_2757za7, "the-substring", 13);
	      BGL_DEFINE_STRING(BGl_string2618z00zz__ftpz00,
		BgL_bgl_string2618za700za7za7_2758za7, "&ftp-restart", 12);
	      BGL_DEFINE_STRING(BGl_string2537z00zz__ftpz00,
		BgL_bgl_string2537za700za7za7_2759za7, "regular-grammar", 15);
	      BGL_DEFINE_STRING(BGl_string2619z00zz__ftpz00,
		BgL_bgl_string2619za700za7za7_2760za7, "RNFR", 4);
	      BGL_DEFINE_STRING(BGl_string2538z00zz__ftpz00,
		BgL_bgl_string2538za700za7za7_2761za7, "Illegal match", 13);
	      BGL_DEFINE_STRING(BGl_string2539z00zz__ftpz00,
		BgL_bgl_string2539za700za7za7_2762za7, "%ftp-read-cmd", 13);
	      DEFINE_EXPORT_BGL_PROCEDURE(BGl_ftpzd2cdzd2envz00zz__ftpz00,
		BgL_bgl_za762ftpza7d2cdza7b0za7za72763za7, BGl_z62ftpzd2cdzb0zz__ftpz00, 0L,
		BUNSPEC, 2);
	      BGL_DEFINE_STRING(BGl_string2620z00zz__ftpz00,
		BgL_bgl_string2620za700za7za7_2764za7, "RNTO", 4);
	      BGL_DEFINE_STRING(BGl_string2621z00zz__ftpz00,
		BgL_bgl_string2621za700za7za7_2765za7, "&ftp-rename-file", 16);
	      BGL_DEFINE_STRING(BGl_string2540z00zz__ftpz00,
		BgL_bgl_string2540za700za7za7_2766za7, "Unrecognized output format", 26);
	      BGL_DEFINE_STRING(BGl_string2622z00zz__ftpz00,
		BgL_bgl_string2622za700za7za7_2767za7, "ABOR", 4);
	      BGL_DEFINE_STRING(BGl_string2541z00zz__ftpz00,
		BgL_bgl_string2541za700za7za7_2768za7, "\n", 1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_ftpzd2directoryzd2ze3pathzd2listzd2envze3zz__ftpz00,
		BgL_bgl_za762ftpza7d2directo2769z00,
		BGl_z62ftpzd2directoryzd2ze3pathzd2listz53zz__ftpz00, 0L, BUNSPEC, 2);
	     
		DEFINE_EXPORT_BGL_PROCEDURE(BGl_ftpzd2sitezd2parameterszd2envzd2zz__ftpz00,
		BgL_bgl_za762ftpza7d2siteza7d22770za7, va_generic_entry,
		BGl_z62ftpzd2sitezd2parametersz62zz__ftpz00, BUNSPEC, -2);
	      BGL_DEFINE_STRING(BGl_string2704z00zz__ftpz00,
		BgL_bgl_string2704za700za7za7_2771za7, "acct", 4);
	      BGL_DEFINE_STRING(BGl_string2623z00zz__ftpz00,
		BgL_bgl_string2623za700za7za7_2772za7, "&ftp-abort", 10);
	      BGL_DEFINE_STRING(BGl_string2624z00zz__ftpz00,
		BgL_bgl_string2624za700za7za7_2773za7, "DELE", 4);
	      BGL_DEFINE_STRING(BGl_string2543z00zz__ftpz00,
		BgL_bgl_string2543za700za7za7_2774za7, "list", 4);
	      BGL_DEFINE_STRING(BGl_string2625z00zz__ftpz00,
		BgL_bgl_string2625za700za7za7_2775za7, "&ftp-delete", 11);
	      BGL_DEFINE_STRING(BGl_string2626z00zz__ftpz00,
		BgL_bgl_string2626za700za7za7_2776za7, "RMD", 3);
	      BGL_DEFINE_STRING(BGl_string2545z00zz__ftpz00,
		BgL_bgl_string2545za700za7za7_2777za7, "port", 4);
	      BGL_DEFINE_STRING(BGl_string2627z00zz__ftpz00,
		BgL_bgl_string2627za700za7za7_2778za7, "&ftp-rmdir", 10);
	      BGL_DEFINE_STRING(BGl_string2546z00zz__ftpz00,
		BgL_bgl_string2546za700za7za7_2779za7, "%ftp-read-dtp", 13);
	      BGL_DEFINE_STRING(BGl_string2628z00zz__ftpz00,
		BgL_bgl_string2628za700za7za7_2780za7, "MKD", 3);
	      BGL_DEFINE_STRING(BGl_string2547z00zz__ftpz00,
		BgL_bgl_string2547za700za7za7_2781za7, "Dunno what to read", 18);
	      BGL_DEFINE_STRING(BGl_string2629z00zz__ftpz00,
		BgL_bgl_string2629za700za7za7_2782za7, "&ftp-make-directory", 19);
	      BGL_DEFINE_STRING(BGl_string2548z00zz__ftpz00,
		BgL_bgl_string2548za700za7za7_2783za7, "ftp", 3);
	      BGL_DEFINE_STRING(BGl_string2549z00zz__ftpz00,
		BgL_bgl_string2549za700za7za7_2784za7, "Socket not connected", 20);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2700z00zz__ftpz00,
		BgL_bgl_za762za7c3za704anonymo2785za7,
		BGl_z62zc3z04anonymousza32016ze3ze5zz__ftpz00, 0L, BUNSPEC, 0);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2701z00zz__ftpz00,
		BgL_bgl_za762lambda2015za7622786z00, BGl_z62lambda2015z62zz__ftpz00, 0L,
		BUNSPEC, 2);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2702z00zz__ftpz00,
		BgL_bgl_za762lambda2014za7622787z00, BGl_z62lambda2014z62zz__ftpz00, 0L,
		BUNSPEC, 1);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2705z00zz__ftpz00,
		BgL_bgl_za762za7c3za704anonymo2788za7,
		BGl_z62zc3z04anonymousza31969ze3ze5zz__ftpz00, 0L, BUNSPEC, 1);
	      BGL_DEFINE_STRING(BGl_string2630z00zz__ftpz00,
		BgL_bgl_string2630za700za7za7_2789za7, "PWD", 3);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2706z00zz__ftpz00,
		BgL_bgl_za762lambda1967za7622790z00, BGl_z62lambda1967z62zz__ftpz00, 0L,
		BUNSPEC, 0);
	      BGL_DEFINE_STRING(BGl_string2631z00zz__ftpz00,
		BgL_bgl_string2631za700za7za7_2791za7, "&ftp-pwd", 8);
	      BGL_DEFINE_STRING(BGl_string2550z00zz__ftpz00,
		BgL_bgl_string2550za700za7za7_2792za7, "~l\r\n", 4);
	      BGL_DEFINE_STRING(BGl_string2713z00zz__ftpz00,
		BgL_bgl_string2713za700za7za7_2793za7, "&ftp-error", 10);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2707z00zz__ftpz00,
		BgL_bgl_za762lambda1965za7622794z00, BGl_z62lambda1965z62zz__ftpz00, 0L,
		BUNSPEC, 9);
	      BGL_DEFINE_STRING(BGl_string2632z00zz__ftpz00,
		BgL_bgl_string2632za700za7za7_2795za7, "LIST", 4);
	      BGL_DEFINE_STRING(BGl_string2551z00zz__ftpz00,
		BgL_bgl_string2551za700za7za7_2796za7, "RETR", 4);
	      BGL_DEFINE_STRING(BGl_string2633z00zz__ftpz00,
		BgL_bgl_string2633za700za7za7_2797za7, "&ftp-list", 9);
	      BGL_DEFINE_STRING(BGl_string2552z00zz__ftpz00,
		BgL_bgl_string2552za700za7za7_2798za7, "USER", 4);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2709z00zz__ftpz00,
		BgL_bgl_za762za7c3za704anonymo2799za7,
		BGl_z62zc3z04anonymousza32026ze3ze5zz__ftpz00, 0L, BUNSPEC, 1);
	      BGL_DEFINE_STRING(BGl_string2634z00zz__ftpz00,
		BgL_bgl_string2634za700za7za7_2800za7, "NLST", 4);
	      BGL_DEFINE_STRING(BGl_string2553z00zz__ftpz00,
		BgL_bgl_string2553za700za7za7_2801za7, " ABOR ", 6);
	      BGL_DEFINE_STRING(BGl_string2635z00zz__ftpz00,
		BgL_bgl_string2635za700za7za7_2802za7, "&ftp-name-list", 14);
	      BGL_DEFINE_STRING(BGl_string2554z00zz__ftpz00,
		BgL_bgl_string2554za700za7za7_2803za7, ",", 1);
	      BGL_DEFINE_STRING(BGl_string2636z00zz__ftpz00,
		BgL_bgl_string2636za700za7za7_2804za7, "SITE", 4);
	      BGL_DEFINE_STRING(BGl_string2555z00zz__ftpz00,
		BgL_bgl_string2555za700za7za7_2805za7, "PASS", 4);
	      BGL_DEFINE_STRING(BGl_string2718z00zz__ftpz00,
		BgL_bgl_string2718za700za7za7_2806za7, "&ftp-parse-error", 16);
	      BGL_DEFINE_STRING(BGl_string2637z00zz__ftpz00,
		BgL_bgl_string2637za700za7za7_2807za7, "&ftp-site-parameters", 20);
	      BGL_DEFINE_STRING(BGl_string2556z00zz__ftpz00,
		BgL_bgl_string2556za700za7za7_2808za7, "ACCT", 4);
	      BGL_DEFINE_STRING(BGl_string2638z00zz__ftpz00,
		BgL_bgl_string2638za700za7za7_2809za7, "SYST", 4);
	      BGL_DEFINE_STRING(BGl_string2557z00zz__ftpz00,
		BgL_bgl_string2557za700za7za7_2810za7, "Remote host closed socket", 25);
	      BGL_DEFINE_STRING(BGl_string2639z00zz__ftpz00,
		BgL_bgl_string2639za700za7za7_2811za7, "&ftp-system", 11);
	      BGL_DEFINE_STRING(BGl_string2558z00zz__ftpz00,
		BgL_bgl_string2558za700za7za7_2812za7, "Unknown return code", 19);
	      BGL_DEFINE_STRING(BGl_string2559z00zz__ftpz00,
		BgL_bgl_string2559za700za7za7_2813za7, "localhost", 9);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2710z00zz__ftpz00,
		BgL_bgl_za762lambda2024za7622814z00, BGl_z62lambda2024z62zz__ftpz00, 0L,
		BUNSPEC, 0);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2711z00zz__ftpz00,
		BgL_bgl_za762lambda2022za7622815z00, BGl_z62lambda2022z62zz__ftpz00, 0L,
		BUNSPEC, 6);
	      BGL_DEFINE_STRING(BGl_string2720z00zz__ftpz00,
		BgL_bgl_string2720za700za7za7_2816za7, "object-print", 12);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2714z00zz__ftpz00,
		BgL_bgl_za762za7c3za704anonymo2817za7,
		BGl_z62zc3z04anonymousza32038ze3ze5zz__ftpz00, 0L, BUNSPEC, 1);
	      BGL_DEFINE_STRING(BGl_string2721z00zz__ftpz00,
		BgL_bgl_string2721za700za7za7_2818za7, "#<%ftp host=", 12);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2715z00zz__ftpz00,
		BgL_bgl_za762lambda2035za7622819z00, BGl_z62lambda2035z62zz__ftpz00, 0L,
		BUNSPEC, 0);
	      BGL_DEFINE_STRING(BGl_string2640z00zz__ftpz00,
		BgL_bgl_string2640za700za7za7_2820za7, "STAT", 4);
	      BGL_DEFINE_STRING(BGl_string2722z00zz__ftpz00,
		BgL_bgl_string2722za700za7za7_2821za7, " user=", 6);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2716z00zz__ftpz00,
		BgL_bgl_za762lambda2033za7622822z00, BGl_z62lambda2033z62zz__ftpz00, 0L,
		BUNSPEC, 6);
	      BGL_DEFINE_STRING(BGl_string2641z00zz__ftpz00,
		BgL_bgl_string2641za700za7za7_2823za7, "&ftp-status", 11);
	      BGL_DEFINE_STRING(BGl_string2723z00zz__ftpz00,
		BgL_bgl_string2723za700za7za7_2824za7, " data-transfer-port=", 20);
	      BGL_DEFINE_STRING(BGl_string2642z00zz__ftpz00,
		BgL_bgl_string2642za700za7za7_2825za7, "HELP", 4);
	      BGL_DEFINE_STRING(BGl_string2724z00zz__ftpz00,
		BgL_bgl_string2724za700za7za7_2826za7, " passive-mode=", 14);
	      BGL_DEFINE_STRING(BGl_string2643z00zz__ftpz00,
		BgL_bgl_string2643za700za7za7_2827za7, "&ftp-help", 9);
	      BGL_DEFINE_STRING(BGl_string2562z00zz__ftpz00,
		BgL_bgl_string2562za700za7za7_2828za7, "host", 4);
	      BGL_DEFINE_STRING(BGl_string2725z00zz__ftpz00,
		BgL_bgl_string2725za700za7za7_2829za7, ">", 1);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2719z00zz__ftpz00,
		BgL_bgl_za762objectza7d2prin2830z00,
		BGl_z62objectzd2printzd2ftp1284z62zz__ftpz00, 0L, BUNSPEC, 3);
	      BGL_DEFINE_STRING(BGl_string2644z00zz__ftpz00,
		BgL_bgl_string2644za700za7za7_2831za7, "NOOP", 4);
	extern obj_t BGl_objectzd2printzd2envz00zz__objectz00;
	   
		 
		BGL_DEFINE_STRING(BGl_string2645z00zz__ftpz00,
		BgL_bgl_string2645za700za7za7_2832za7, "&ftp-noop", 9);
	      BGL_DEFINE_STRING(BGl_string2646z00zz__ftpz00,
		BgL_bgl_string2646za700za7za7_2833za7, "_open-input-ftp-file", 20);
	      BGL_DEFINE_STRING(BGl_string2565z00zz__ftpz00,
		BgL_bgl_string2565za700za7za7_2834za7, "ftp-connect-to", 14);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_ftpzd2directoryzd2ze3listzd2envz31zz__ftpz00,
		BgL_bgl_za762ftpza7d2directo2835z00,
		BGl_z62ftpzd2directoryzd2ze3listz81zz__ftpz00, 0L, BUNSPEC, 2);
	      BGL_DEFINE_STRING(BGl_string2647z00zz__ftpz00,
		BgL_bgl_string2647za700za7za7_2836za7, "&ftp-directory->list", 20);
	      BGL_DEFINE_STRING(BGl_string2566z00zz__ftpz00,
		BgL_bgl_string2566za700za7za7_2837za7, "Illegal keyword argument", 24);
	      BGL_DEFINE_STRING(BGl_string2648z00zz__ftpz00,
		BgL_bgl_string2648za700za7za7_2838za7, "&ftp-directory->path-list", 25);
	      BGL_DEFINE_STRING(BGl_string2567z00zz__ftpz00,
		BgL_bgl_string2567za700za7za7_2839za7,
		"wrong number of arguments: [0..2] expected, provided", 52);
	      BGL_DEFINE_STRING(BGl_string2649z00zz__ftpz00,
		BgL_bgl_string2649za700za7za7_2840za7, "&ftp-copy-file", 14);
	      BGL_DEFINE_STRING(BGl_string2568z00zz__ftpz00,
		BgL_bgl_string2568za700za7za7_2841za7, "", 0);
	      BGL_DEFINE_STRING(BGl_string2569z00zz__ftpz00,
		BgL_bgl_string2569za700za7za7_2842za7, "anonymous", 9);
	      DEFINE_EXPORT_BGL_PROCEDURE(BGl_ftpzd2datazd2portzd2envzd2zz__ftpz00,
		BgL_bgl_za762ftpza7d2dataza7d22843za7,
		BGl_z62ftpzd2datazd2portz62zz__ftpz00, 0L, BUNSPEC, 3);
	      BGL_DEFINE_STRING(BGl_string2650z00zz__ftpz00,
		BgL_bgl_string2650za700za7za7_2844za7, "&ftp-put-file", 13);
	      BGL_DEFINE_STRING(BGl_string2570z00zz__ftpz00,
		BgL_bgl_string2570za700za7za7_2845za7, "foo@bar.net", 11);
	      BGL_DEFINE_STRING(BGl_string2572z00zz__ftpz00,
		BgL_bgl_string2572za700za7za7_2846za7, "inet", 4);
	      BGL_DEFINE_STRING(BGl_string2573z00zz__ftpz00,
		BgL_bgl_string2573za700za7za7_2847za7, "/tmp/bigloo/runtime/Unsafe/ftp.scm",
		34);
	      BGL_DEFINE_STRING(BGl_string2655z00zz__ftpz00,
		BgL_bgl_string2655za700za7za7_2848za7, "cmd", 3);
	      BGL_DEFINE_STRING(BGl_string2574z00zz__ftpz00,
		BgL_bgl_string2574za700za7za7_2849za7, "_ftp-connect", 12);
	      BGL_DEFINE_STRING(BGl_string2575z00zz__ftpz00,
		BgL_bgl_string2575za700za7za7_2850za7, "vector", 6);
	      BGL_DEFINE_STRING(BGl_string2657z00zz__ftpz00,
		BgL_bgl_string2657za700za7za7_2851za7, "obj", 3);
	      BGL_DEFINE_STRING(BGl_string2576z00zz__ftpz00,
		BgL_bgl_string2576za700za7za7_2852za7, "PASV", 4);
	      BGL_DEFINE_STRING(BGl_string2577z00zz__ftpz00,
		BgL_bgl_string2577za700za7za7_2853za7, "ftp-data-port", 13);
	      BGL_DEFINE_STRING(BGl_string2578z00zz__ftpz00,
		BgL_bgl_string2578za700za7za7_2854za7,
		"PORT functionality is not yet implemented", 41);
	      BGL_DEFINE_STRING(BGl_string2579z00zz__ftpz00,
		BgL_bgl_string2579za700za7za7_2855za7, "~a.~a.~a.~a", 11);
	      DEFINE_EXPORT_BGL_PROCEDURE(BGl_ftpzd2pwdzd2envz00zz__ftpz00,
		BgL_bgl_za762ftpza7d2pwdza7b0za72856z00, BGl_z62ftpzd2pwdzb0zz__ftpz00, 0L,
		BUNSPEC, 1);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2651z00zz__ftpz00,
		BgL_bgl_za762za7c3za704anonymo2857za7,
		BGl_z62zc3z04anonymousza31944ze3ze5zz__ftpz00, 0L, BUNSPEC, 0);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2652z00zz__ftpz00,
		BgL_bgl_za762lambda1943za7622858z00, BGl_z62lambda1943z62zz__ftpz00, 0L,
		BUNSPEC, 2);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2653z00zz__ftpz00,
		BgL_bgl_za762lambda1942za7622859z00, BGl_z62lambda1942z62zz__ftpz00, 0L,
		BUNSPEC, 1);
	      BGL_DEFINE_STRING(BGl_string2580z00zz__ftpz00,
		BgL_bgl_string2580za700za7za7_2860za7, "QUIT", 4);
	      BGL_DEFINE_STRING(BGl_string2662z00zz__ftpz00,
		BgL_bgl_string2662za700za7za7_2861za7, "dtp", 3);
	      BGL_DEFINE_STRING(BGl_string2581z00zz__ftpz00,
		BgL_bgl_string2581za700za7za7_2862za7, "&ftp-logout", 11);
	      BGL_DEFINE_STRING(BGl_string2582z00zz__ftpz00,
		BgL_bgl_string2582za700za7za7_2863za7, "CWD", 3);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2658z00zz__ftpz00,
		BgL_bgl_za762za7c3za704anonymo2864za7,
		BGl_z62zc3z04anonymousza31951ze3ze5zz__ftpz00, 0L, BUNSPEC, 0);
	      BGL_DEFINE_STRING(BGl_string2583z00zz__ftpz00,
		BgL_bgl_string2583za700za7za7_2865za7, "&ftp-cd", 7);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2659z00zz__ftpz00,
		BgL_bgl_za762lambda1950za7622866z00, BGl_z62lambda1950z62zz__ftpz00, 0L,
		BUNSPEC, 2);
	      BGL_DEFINE_STRING(BGl_string2584z00zz__ftpz00,
		BgL_bgl_string2584za700za7za7_2867za7, "bstring", 7);
	      BGL_DEFINE_STRING(BGl_string2585z00zz__ftpz00,
		BgL_bgl_string2585za700za7za7_2868za7, "CDUP", 4);
	      BGL_DEFINE_STRING(BGl_string2667z00zz__ftpz00,
		BgL_bgl_string2667za700za7za7_2869za7, "passive?", 8);
	      BGL_DEFINE_STRING(BGl_string2586z00zz__ftpz00,
		BgL_bgl_string2586za700za7za7_2870za7, "&ftp-cd-parent", 14);
	      BGL_DEFINE_STRING(BGl_string2587z00zz__ftpz00,
		BgL_bgl_string2587za700za7za7_2871za7, "SMNT", 4);
	      BGL_DEFINE_STRING(BGl_string2669z00zz__ftpz00,
		BgL_bgl_string2669za700za7za7_2872za7, "bool", 4);
	      BGL_DEFINE_STRING(BGl_string2588z00zz__ftpz00,
		BgL_bgl_string2588za700za7za7_2873za7, "&ftp-mount", 10);
	      BGL_DEFINE_STRING(BGl_string2589z00zz__ftpz00,
		BgL_bgl_string2589za700za7za7_2874za7, "REIN", 4);
	      DEFINE_EXPORT_BGL_PROCEDURE(BGl_ftpzd2mountzd2envz00zz__ftpz00,
		BgL_bgl_za762ftpza7d2mountza7b2875za7, BGl_z62ftpzd2mountzb0zz__ftpz00, 0L,
		BUNSPEC, 2);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2660z00zz__ftpz00,
		BgL_bgl_za762lambda1949za7622876z00, BGl_z62lambda1949z62zz__ftpz00, 0L,
		BUNSPEC, 1);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2663z00zz__ftpz00,
		BgL_bgl_za762za7c3za704anonymo2877za7,
		BGl_z62zc3z04anonymousza31959ze3ze5zz__ftpz00, 0L, BUNSPEC, 0);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2664z00zz__ftpz00,
		BgL_bgl_za762lambda1958za7622878z00, BGl_z62lambda1958z62zz__ftpz00, 0L,
		BUNSPEC, 2);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2665z00zz__ftpz00,
		BgL_bgl_za762lambda1957za7622879z00, BGl_z62lambda1957z62zz__ftpz00, 0L,
		BUNSPEC, 1);
	      BGL_DEFINE_STRING(BGl_string2590z00zz__ftpz00,
		BgL_bgl_string2590za700za7za7_2880za7, "&ftp-reinitialize", 17);
	      BGL_DEFINE_STRING(BGl_string2591z00zz__ftpz00,
		BgL_bgl_string2591za700za7za7_2881za7,
		"PORT functionality is not implemented", 37);
	      BGL_DEFINE_STRING(BGl_string2673z00zz__ftpz00,
		BgL_bgl_string2673za700za7za7_2882za7, "%ftp", 4);
	      BGL_DEFINE_STRING(BGl_string2592z00zz__ftpz00,
		BgL_bgl_string2592za700za7za7_2883za7, "&ftp-data-port", 14);
	      BGL_DEFINE_STRING(BGl_string2593z00zz__ftpz00,
		BgL_bgl_string2593za700za7za7_2884za7, "bint", 4);
	      BGL_DEFINE_STRING(BGl_string2675z00zz__ftpz00,
		BgL_bgl_string2675za700za7za7_2885za7, "__ftp", 5);
	      BGL_DEFINE_STRING(BGl_string2594z00zz__ftpz00,
		BgL_bgl_string2594za700za7za7_2886za7, "&ftp-passive", 12);
	      BGL_DEFINE_STRING(BGl_string2595z00zz__ftpz00,
		BgL_bgl_string2595za700za7za7_2887za7, "ftp-data-type", 13);
	      BGL_DEFINE_STRING(BGl_string2596z00zz__ftpz00,
		BgL_bgl_string2596za700za7za7_2888za7,
		"Illegal type value, should be on of '(ascii image)", 50);
	      BGL_DEFINE_STRING(BGl_string2597z00zz__ftpz00,
		BgL_bgl_string2597za700za7za7_2889za7, "A", 1);
	      BGL_DEFINE_STRING(BGl_string2598z00zz__ftpz00,
		BgL_bgl_string2598za700za7za7_2890za7, "TYPE", 4);
	      BGL_DEFINE_STRING(BGl_string2599z00zz__ftpz00,
		BgL_bgl_string2599za700za7za7_2891za7, "I", 1);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2670z00zz__ftpz00,
		BgL_bgl_za762za7c3za704anonymo2892za7,
		BGl_z62zc3z04anonymousza31937ze3ze5zz__ftpz00, 0L, BUNSPEC, 1);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2671z00zz__ftpz00,
		BgL_bgl_za762lambda1935za7622893z00, BGl_z62lambda1935z62zz__ftpz00, 0L,
		BUNSPEC, 0);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2676z00zz__ftpz00,
		BgL_bgl_za762za7c3za704anonymo2894za7,
		BGl_z62zc3z04anonymousza31978ze3ze5zz__ftpz00, 0L, BUNSPEC, 0);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2677z00zz__ftpz00,
		BgL_bgl_za762lambda1977za7622895z00, BGl_z62lambda1977z62zz__ftpz00, 0L,
		BUNSPEC, 2);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2678z00zz__ftpz00,
		BgL_bgl_za762lambda1976za7622896z00, BGl_z62lambda1976z62zz__ftpz00, 0L,
		BUNSPEC, 1);
	      BGL_DEFINE_STRING(BGl_string2689z00zz__ftpz00,
		BgL_bgl_string2689za700za7za7_2897za7, "motd", 4);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2681z00zz__ftpz00,
		BgL_bgl_za762za7c3za704anonymo2898za7,
		BGl_z62zc3z04anonymousza31985ze3ze5zz__ftpz00, 0L, BUNSPEC, 0);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2682z00zz__ftpz00,
		BgL_bgl_za762lambda1984za7622899z00, BGl_z62lambda1984z62zz__ftpz00, 0L,
		BUNSPEC, 2);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2683z00zz__ftpz00,
		BgL_bgl_za762lambda1983za7622900z00, BGl_z62lambda1983z62zz__ftpz00, 0L,
		BUNSPEC, 1);
	      DEFINE_EXPORT_BGL_PROCEDURE(BGl_ftpzd2logoutzd2envz00zz__ftpz00,
		BgL_bgl_za762ftpza7d2logoutza72901za7, BGl_z62ftpzd2logoutzb0zz__ftpz00, 0L,
		BUNSPEC, 1);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2685z00zz__ftpz00,
		BgL_bgl_za762za7c3za704anonymo2902za7,
		BGl_z62zc3z04anonymousza31993ze3ze5zz__ftpz00, 0L, BUNSPEC, 0);
	      DEFINE_EXPORT_BGL_PROCEDURE(BGl_ftpzd2noopzd2envz00zz__ftpz00,
		BgL_bgl_za762ftpza7d2noopza7b02903za7, BGl_z62ftpzd2noopzb0zz__ftpz00, 0L,
		BUNSPEC, 1);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2686z00zz__ftpz00,
		BgL_bgl_za762lambda1992za7622904z00, BGl_z62lambda1992z62zz__ftpz00, 0L,
		BUNSPEC, 2);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2687z00zz__ftpz00,
		BgL_bgl_za762lambda1991za7622905z00, BGl_z62lambda1991z62zz__ftpz00, 0L,
		BUNSPEC, 1);
	      BGL_DEFINE_STRING(BGl_string2694z00zz__ftpz00,
		BgL_bgl_string2694za700za7za7_2906za7, "user", 4);
	      BGL_DEFINE_STRING(BGl_string2699z00zz__ftpz00,
		BgL_bgl_string2699za700za7za7_2907za7, "pass", 4);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2690z00zz__ftpz00,
		BgL_bgl_za762za7c3za704anonymo2908za7,
		BGl_z62zc3z04anonymousza32001ze3ze5zz__ftpz00, 0L, BUNSPEC, 0);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2691z00zz__ftpz00,
		BgL_bgl_za762lambda2000za7622909z00, BGl_z62lambda2000z62zz__ftpz00, 0L,
		BUNSPEC, 2);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2692z00zz__ftpz00,
		BgL_bgl_za762lambda1999za7622910z00, BGl_z62lambda1999z62zz__ftpz00, 0L,
		BUNSPEC, 1);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2695z00zz__ftpz00,
		BgL_bgl_za762za7c3za704anonymo2911za7,
		BGl_z62zc3z04anonymousza32008ze3ze5zz__ftpz00, 0L, BUNSPEC, 0);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2696z00zz__ftpz00,
		BgL_bgl_za762lambda2007za7622912z00, BGl_z62lambda2007z62zz__ftpz00, 0L,
		BUNSPEC, 2);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2697z00zz__ftpz00,
		BgL_bgl_za762lambda2006za7622913z00, BGl_z62lambda2006z62zz__ftpz00, 0L,
		BUNSPEC, 1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE(BGl_ftpzd2makezd2directoryzd2envzd2zz__ftpz00,
		BgL_bgl_za762ftpza7d2makeza7d22914za7,
		BGl_z62ftpzd2makezd2directoryz62zz__ftpz00, 0L, BUNSPEC, 2);
	     
		DEFINE_EXPORT_BGL_PROCEDURE(BGl_ftpzd2transferzd2modezd2envzd2zz__ftpz00,
		BgL_bgl_za762ftpza7d2transfe2915z00, va_generic_entry,
		BGl_z62ftpzd2transferzd2modez62zz__ftpz00, BUNSPEC, -2);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_openzd2inputzd2ftpzd2filezd2envz00zz__ftpz00,
		BgL_bgl__openza7d2inputza7d22916z00, opt_generic_entry,
		BGl__openzd2inputzd2ftpzd2filezd2zz__ftpz00, BFALSE, -1);
	      DEFINE_EXPORT_BGL_PROCEDURE(BGl_ftpzd2putzd2filezd2envzd2zz__ftpz00,
		BgL_bgl_za762ftpza7d2putza7d2f2917za7, BGl_z62ftpzd2putzd2filez62zz__ftpz00,
		0L, BUNSPEC, 2);
	      DEFINE_EXPORT_BGL_PROCEDURE(BGl_ftpzd2appendzd2envz00zz__ftpz00,
		BgL_bgl_za762ftpza7d2appendza72918za7, BGl_z62ftpzd2appendzb0zz__ftpz00, 0L,
		BUNSPEC, 3);
	      DEFINE_EXPORT_BGL_PROCEDURE(BGl_ftpzd2storezd2envz00zz__ftpz00,
		BgL_bgl_za762ftpza7d2storeza7b2919za7, BGl_z62ftpzd2storezb0zz__ftpz00, 0L,
		BUNSPEC, 3);
	      DEFINE_EXPORT_BGL_PROCEDURE(BGl_ftpzd2renamezd2filezd2envzd2zz__ftpz00,
		BgL_bgl_za762ftpza7d2renameza72920za7,
		BGl_z62ftpzd2renamezd2filez62zz__ftpz00, 0L, BUNSPEC, 3);
	      DEFINE_EXPORT_BGL_PROCEDURE(BGl_ftpzd2reinitializa7ezd2envza7zz__ftpz00,
		BgL_bgl_za762ftpza7d2reiniti2921z00,
		BGl_z62ftpzd2reinitializa7ez17zz__ftpz00, 0L, BUNSPEC, 1);
	      DEFINE_EXPORT_BGL_PROCEDURE(BGl_ftpzd2helpzd2envz00zz__ftpz00,
		BgL_bgl_za762ftpza7d2helpza7b02922za7, va_generic_entry,
		BGl_z62ftpzd2helpzb0zz__ftpz00, BUNSPEC, -2);
	      DEFINE_EXPORT_BGL_PROCEDURE(BGl_ftpzd2connectzd2envz00zz__ftpz00,
		BgL_bgl__ftpza7d2connectza7d2923z00, opt_generic_entry,
		BGl__ftpzd2connectzd2zz__ftpz00, BFALSE, -1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE(BGl_ftpzd2filezd2structurezd2envzd2zz__ftpz00,
		BgL_bgl_za762ftpza7d2fileza7d22924za7, va_generic_entry,
		BGl_z62ftpzd2filezd2structurez62zz__ftpz00, BUNSPEC, -2);
	      DEFINE_EXPORT_BGL_PROCEDURE(BGl_ftpzd2restartzd2envz00zz__ftpz00,
		BgL_bgl_za762ftpza7d2restart2925z00, BGl_z62ftpzd2restartzb0zz__ftpz00, 0L,
		BUNSPEC, 2);
	      DEFINE_EXPORT_BGL_PROCEDURE(BGl_ftpzd2deletezd2envz00zz__ftpz00,
		BgL_bgl_za762ftpza7d2deleteza72926za7, BGl_z62ftpzd2deletezb0zz__ftpz00, 0L,
		BUNSPEC, 2);
	      DEFINE_EXPORT_BGL_PROCEDURE(BGl_ftpzd2datazd2typezd2envzd2zz__ftpz00,
		BgL_bgl_za762ftpza7d2dataza7d22927za7, va_generic_entry,
		BGl_z62ftpzd2datazd2typez62zz__ftpz00, BUNSPEC, -3);

/* contant bindings */
	static void bgl_constant_bindings()
	{
		BGL_BIND_PROCEDURE(BGl_ftpzd2datazd2typezd2envzd2zz__ftpz00,
			BgL_bgl_za762ftpza7d2dataza7d22927za7);
		BGL_BIND_PROCEDURE(BGl_ftpzd2deletezd2envz00zz__ftpz00,
			BgL_bgl_za762ftpza7d2deleteza72926za7);
		BGL_BIND_PROCEDURE(BGl_ftpzd2restartzd2envz00zz__ftpz00,
			BgL_bgl_za762ftpza7d2restart2925z00);
		BGL_BIND_PROCEDURE(BGl_ftpzd2filezd2structurezd2envzd2zz__ftpz00,
			BgL_bgl_za762ftpza7d2fileza7d22924za7);
		BGL_BIND_PROCEDURE(BGl_ftpzd2connectzd2envz00zz__ftpz00,
			BgL_bgl__ftpza7d2connectza7d2923z00);
		BGL_BIND_PROCEDURE(BGl_ftpzd2helpzd2envz00zz__ftpz00,
			BgL_bgl_za762ftpza7d2helpza7b02922za7);
		BGL_BIND_PROCEDURE(BGl_ftpzd2reinitializa7ezd2envza7zz__ftpz00,
			BgL_bgl_za762ftpza7d2reiniti2921z00);
		BGL_BIND_PROCEDURE(BGl_ftpzd2renamezd2filezd2envzd2zz__ftpz00,
			BgL_bgl_za762ftpza7d2renameza72920za7);
		BGL_BIND_PROCEDURE(BGl_ftpzd2storezd2envz00zz__ftpz00,
			BgL_bgl_za762ftpza7d2storeza7b2919za7);
		BGL_BIND_PROCEDURE(BGl_ftpzd2appendzd2envz00zz__ftpz00,
			BgL_bgl_za762ftpza7d2appendza72918za7);
		BGL_BIND_PROCEDURE(BGl_ftpzd2putzd2filezd2envzd2zz__ftpz00,
			BgL_bgl_za762ftpza7d2putza7d2f2917za7);
		BGL_BIND_PROCEDURE(BGl_openzd2inputzd2ftpzd2filezd2envz00zz__ftpz00,
			BgL_bgl__openza7d2inputza7d22916z00);
		BGL_BIND_PROCEDURE(BGl_ftpzd2transferzd2modezd2envzd2zz__ftpz00,
			BgL_bgl_za762ftpza7d2transfe2915z00);
		BGL_BIND_PROCEDURE(BGl_ftpzd2makezd2directoryzd2envzd2zz__ftpz00,
			BgL_bgl_za762ftpza7d2makeza7d22914za7);
		BGL_BIND_PROCEDURE(BGl_proc2697z00zz__ftpz00,
			BgL_bgl_za762lambda2006za7622913z00);
		BGL_BIND_PROCEDURE(BGl_proc2696z00zz__ftpz00,
			BgL_bgl_za762lambda2007za7622912z00);
		BGL_BIND_PROCEDURE(BGl_proc2695z00zz__ftpz00,
			BgL_bgl_za762za7c3za704anonymo2911za7);
		BGL_BIND_PROCEDURE(BGl_proc2692z00zz__ftpz00,
			BgL_bgl_za762lambda1999za7622910z00);
		BGL_BIND_PROCEDURE(BGl_proc2691z00zz__ftpz00,
			BgL_bgl_za762lambda2000za7622909z00);
		BGL_BIND_PROCEDURE(BGl_proc2690z00zz__ftpz00,
			BgL_bgl_za762za7c3za704anonymo2908za7);
		BGL_BIND_STRING(BGl_string2699z00zz__ftpz00,
			BgL_bgl_string2699za700za7za7_2907za7);
		BGL_BIND_STRING(BGl_string2694z00zz__ftpz00,
			BgL_bgl_string2694za700za7za7_2906za7);
		BGL_BIND_PROCEDURE(BGl_proc2687z00zz__ftpz00,
			BgL_bgl_za762lambda1991za7622905z00);
		BGL_BIND_PROCEDURE(BGl_proc2686z00zz__ftpz00,
			BgL_bgl_za762lambda1992za7622904z00);
		BGL_BIND_PROCEDURE(BGl_ftpzd2noopzd2envz00zz__ftpz00,
			BgL_bgl_za762ftpza7d2noopza7b02903za7);
		BGL_BIND_PROCEDURE(BGl_proc2685z00zz__ftpz00,
			BgL_bgl_za762za7c3za704anonymo2902za7);
		BGL_BIND_PROCEDURE(BGl_ftpzd2logoutzd2envz00zz__ftpz00,
			BgL_bgl_za762ftpza7d2logoutza72901za7);
		BGL_BIND_PROCEDURE(BGl_proc2683z00zz__ftpz00,
			BgL_bgl_za762lambda1983za7622900z00);
		BGL_BIND_PROCEDURE(BGl_proc2682z00zz__ftpz00,
			BgL_bgl_za762lambda1984za7622899z00);
		BGL_BIND_PROCEDURE(BGl_proc2681z00zz__ftpz00,
			BgL_bgl_za762za7c3za704anonymo2898za7);
		BGL_BIND_STRING(BGl_string2689z00zz__ftpz00,
			BgL_bgl_string2689za700za7za7_2897za7);
		BGL_BIND_PROCEDURE(BGl_proc2678z00zz__ftpz00,
			BgL_bgl_za762lambda1976za7622896z00);
		BGL_BIND_PROCEDURE(BGl_proc2677z00zz__ftpz00,
			BgL_bgl_za762lambda1977za7622895z00);
		BGL_BIND_PROCEDURE(BGl_proc2676z00zz__ftpz00,
			BgL_bgl_za762za7c3za704anonymo2894za7);
		BGL_BIND_PROCEDURE(BGl_proc2671z00zz__ftpz00,
			BgL_bgl_za762lambda1935za7622893z00);
		BGL_BIND_PROCEDURE(BGl_proc2670z00zz__ftpz00,
			BgL_bgl_za762za7c3za704anonymo2892za7);
		BGL_BIND_STRING(BGl_string2599z00zz__ftpz00,
			BgL_bgl_string2599za700za7za7_2891za7);
		BGL_BIND_STRING(BGl_string2598z00zz__ftpz00,
			BgL_bgl_string2598za700za7za7_2890za7);
		BGL_BIND_STRING(BGl_string2597z00zz__ftpz00,
			BgL_bgl_string2597za700za7za7_2889za7);
		BGL_BIND_STRING(BGl_string2596z00zz__ftpz00,
			BgL_bgl_string2596za700za7za7_2888za7);
		BGL_BIND_STRING(BGl_string2595z00zz__ftpz00,
			BgL_bgl_string2595za700za7za7_2887za7);
		BGL_BIND_STRING(BGl_string2594z00zz__ftpz00,
			BgL_bgl_string2594za700za7za7_2886za7);
		BGL_BIND_STRING(BGl_string2675z00zz__ftpz00,
			BgL_bgl_string2675za700za7za7_2885za7);
		BGL_BIND_STRING(BGl_string2593z00zz__ftpz00,
			BgL_bgl_string2593za700za7za7_2884za7);
		BGL_BIND_STRING(BGl_string2592z00zz__ftpz00,
			BgL_bgl_string2592za700za7za7_2883za7);
		BGL_BIND_STRING(BGl_string2673z00zz__ftpz00,
			BgL_bgl_string2673za700za7za7_2882za7);
		BGL_BIND_STRING(BGl_string2591z00zz__ftpz00,
			BgL_bgl_string2591za700za7za7_2881za7);
		BGL_BIND_STRING(BGl_string2590z00zz__ftpz00,
			BgL_bgl_string2590za700za7za7_2880za7);
		BGL_BIND_PROCEDURE(BGl_proc2665z00zz__ftpz00,
			BgL_bgl_za762lambda1957za7622879z00);
		BGL_BIND_PROCEDURE(BGl_proc2664z00zz__ftpz00,
			BgL_bgl_za762lambda1958za7622878z00);
		BGL_BIND_PROCEDURE(BGl_proc2663z00zz__ftpz00,
			BgL_bgl_za762za7c3za704anonymo2877za7);
		BGL_BIND_PROCEDURE(BGl_proc2660z00zz__ftpz00,
			BgL_bgl_za762lambda1949za7622876z00);
		BGL_BIND_PROCEDURE(BGl_ftpzd2mountzd2envz00zz__ftpz00,
			BgL_bgl_za762ftpza7d2mountza7b2875za7);
		BGL_BIND_STRING(BGl_string2589z00zz__ftpz00,
			BgL_bgl_string2589za700za7za7_2874za7);
		BGL_BIND_STRING(BGl_string2588z00zz__ftpz00,
			BgL_bgl_string2588za700za7za7_2873za7);
		BGL_BIND_STRING(BGl_string2669z00zz__ftpz00,
			BgL_bgl_string2669za700za7za7_2872za7);
		BGL_BIND_STRING(BGl_string2587z00zz__ftpz00,
			BgL_bgl_string2587za700za7za7_2871za7);
		BGL_BIND_STRING(BGl_string2586z00zz__ftpz00,
			BgL_bgl_string2586za700za7za7_2870za7);
		BGL_BIND_STRING(BGl_string2667z00zz__ftpz00,
			BgL_bgl_string2667za700za7za7_2869za7);
		BGL_BIND_STRING(BGl_string2585z00zz__ftpz00,
			BgL_bgl_string2585za700za7za7_2868za7);
		BGL_BIND_STRING(BGl_string2584z00zz__ftpz00,
			BgL_bgl_string2584za700za7za7_2867za7);
		BGL_BIND_PROCEDURE(BGl_proc2659z00zz__ftpz00,
			BgL_bgl_za762lambda1950za7622866z00);
		BGL_BIND_STRING(BGl_string2583z00zz__ftpz00,
			BgL_bgl_string2583za700za7za7_2865za7);
		BGL_BIND_PROCEDURE(BGl_proc2658z00zz__ftpz00,
			BgL_bgl_za762za7c3za704anonymo2864za7);
		BGL_BIND_STRING(BGl_string2582z00zz__ftpz00,
			BgL_bgl_string2582za700za7za7_2863za7);
		BGL_BIND_STRING(BGl_string2581z00zz__ftpz00,
			BgL_bgl_string2581za700za7za7_2862za7);
		BGL_BIND_STRING(BGl_string2662z00zz__ftpz00,
			BgL_bgl_string2662za700za7za7_2861za7);
		BGL_BIND_STRING(BGl_string2580z00zz__ftpz00,
			BgL_bgl_string2580za700za7za7_2860za7);
		BGL_BIND_PROCEDURE(BGl_proc2653z00zz__ftpz00,
			BgL_bgl_za762lambda1942za7622859z00);
		BGL_BIND_PROCEDURE(BGl_proc2652z00zz__ftpz00,
			BgL_bgl_za762lambda1943za7622858z00);
		BGL_BIND_PROCEDURE(BGl_proc2651z00zz__ftpz00,
			BgL_bgl_za762za7c3za704anonymo2857za7);
		BGL_BIND_PROCEDURE(BGl_ftpzd2pwdzd2envz00zz__ftpz00,
			BgL_bgl_za762ftpza7d2pwdza7b0za72856z00);
		BGL_BIND_STRING(BGl_string2579z00zz__ftpz00,
			BgL_bgl_string2579za700za7za7_2855za7);
		BGL_BIND_STRING(BGl_string2578z00zz__ftpz00,
			BgL_bgl_string2578za700za7za7_2854za7);
		BGL_BIND_STRING(BGl_string2577z00zz__ftpz00,
			BgL_bgl_string2577za700za7za7_2853za7);
		BGL_BIND_STRING(BGl_string2576z00zz__ftpz00,
			BgL_bgl_string2576za700za7za7_2852za7);
		BGL_BIND_STRING(BGl_string2657z00zz__ftpz00,
			BgL_bgl_string2657za700za7za7_2851za7);
		BGL_BIND_STRING(BGl_string2575z00zz__ftpz00,
			BgL_bgl_string2575za700za7za7_2850za7);
		BGL_BIND_STRING(BGl_string2574z00zz__ftpz00,
			BgL_bgl_string2574za700za7za7_2849za7);
		BGL_BIND_STRING(BGl_string2655z00zz__ftpz00,
			BgL_bgl_string2655za700za7za7_2848za7);
		BGL_BIND_STRING(BGl_string2573z00zz__ftpz00,
			BgL_bgl_string2573za700za7za7_2847za7);
		BGL_BIND_STRING(BGl_string2572z00zz__ftpz00,
			BgL_bgl_string2572za700za7za7_2846za7);
		BGL_BIND_STRING(BGl_string2570z00zz__ftpz00,
			BgL_bgl_string2570za700za7za7_2845za7);
		BGL_BIND_STRING(BGl_string2650z00zz__ftpz00,
			BgL_bgl_string2650za700za7za7_2844za7);
		BGL_BIND_PROCEDURE(BGl_ftpzd2datazd2portzd2envzd2zz__ftpz00,
			BgL_bgl_za762ftpza7d2dataza7d22843za7);
		BGL_BIND_STRING(BGl_string2569z00zz__ftpz00,
			BgL_bgl_string2569za700za7za7_2842za7);
		BGL_BIND_STRING(BGl_string2568z00zz__ftpz00,
			BgL_bgl_string2568za700za7za7_2841za7);
		BGL_BIND_STRING(BGl_string2649z00zz__ftpz00,
			BgL_bgl_string2649za700za7za7_2840za7);
		BGL_BIND_STRING(BGl_string2567z00zz__ftpz00,
			BgL_bgl_string2567za700za7za7_2839za7);
		BGL_BIND_STRING(BGl_string2648z00zz__ftpz00,
			BgL_bgl_string2648za700za7za7_2838za7);
		BGL_BIND_STRING(BGl_string2566z00zz__ftpz00,
			BgL_bgl_string2566za700za7za7_2837za7);
		BGL_BIND_STRING(BGl_string2647z00zz__ftpz00,
			BgL_bgl_string2647za700za7za7_2836za7);
		BGL_BIND_PROCEDURE(BGl_ftpzd2directoryzd2ze3listzd2envz31zz__ftpz00,
			BgL_bgl_za762ftpza7d2directo2835z00);
		BGL_BIND_STRING(BGl_string2565z00zz__ftpz00,
			BgL_bgl_string2565za700za7za7_2834za7);
		BGL_BIND_STRING(BGl_string2646z00zz__ftpz00,
			BgL_bgl_string2646za700za7za7_2833za7);
		BGL_BIND_STRING(BGl_string2645z00zz__ftpz00,
			BgL_bgl_string2645za700za7za7_2832za7);
		BGL_BIND_STRING(BGl_string2644z00zz__ftpz00,
			BgL_bgl_string2644za700za7za7_2831za7);
		BGL_BIND_PROCEDURE(BGl_proc2719z00zz__ftpz00,
			BgL_bgl_za762objectza7d2prin2830z00);
		BGL_BIND_STRING(BGl_string2725z00zz__ftpz00,
			BgL_bgl_string2725za700za7za7_2829za7);
		BGL_BIND_STRING(BGl_string2562z00zz__ftpz00,
			BgL_bgl_string2562za700za7za7_2828za7);
		BGL_BIND_STRING(BGl_string2643z00zz__ftpz00,
			BgL_bgl_string2643za700za7za7_2827za7);
		BGL_BIND_STRING(BGl_string2724z00zz__ftpz00,
			BgL_bgl_string2724za700za7za7_2826za7);
		BGL_BIND_STRING(BGl_string2642z00zz__ftpz00,
			BgL_bgl_string2642za700za7za7_2825za7);
		BGL_BIND_STRING(BGl_string2723z00zz__ftpz00,
			BgL_bgl_string2723za700za7za7_2824za7);
		BGL_BIND_STRING(BGl_string2641z00zz__ftpz00,
			BgL_bgl_string2641za700za7za7_2823za7);
		BGL_BIND_PROCEDURE(BGl_proc2716z00zz__ftpz00,
			BgL_bgl_za762lambda2033za7622822z00);
		BGL_BIND_STRING(BGl_string2722z00zz__ftpz00,
			BgL_bgl_string2722za700za7za7_2821za7);
		BGL_BIND_STRING(BGl_string2640z00zz__ftpz00,
			BgL_bgl_string2640za700za7za7_2820za7);
		BGL_BIND_PROCEDURE(BGl_proc2715z00zz__ftpz00,
			BgL_bgl_za762lambda2035za7622819z00);
		BGL_BIND_STRING(BGl_string2721z00zz__ftpz00,
			BgL_bgl_string2721za700za7za7_2818za7);
		BGL_BIND_PROCEDURE(BGl_proc2714z00zz__ftpz00,
			BgL_bgl_za762za7c3za704anonymo2817za7);
		BGL_BIND_STRING(BGl_string2720z00zz__ftpz00,
			BgL_bgl_string2720za700za7za7_2816za7);
		BGL_BIND_PROCEDURE(BGl_proc2711z00zz__ftpz00,
			BgL_bgl_za762lambda2022za7622815z00);
		BGL_BIND_PROCEDURE(BGl_proc2710z00zz__ftpz00,
			BgL_bgl_za762lambda2024za7622814z00);
		BGL_BIND_STRING(BGl_string2559z00zz__ftpz00,
			BgL_bgl_string2559za700za7za7_2813za7);
		BGL_BIND_STRING(BGl_string2558z00zz__ftpz00,
			BgL_bgl_string2558za700za7za7_2812za7);
		BGL_BIND_STRING(BGl_string2639z00zz__ftpz00,
			BgL_bgl_string2639za700za7za7_2811za7);
		BGL_BIND_STRING(BGl_string2557z00zz__ftpz00,
			BgL_bgl_string2557za700za7za7_2810za7);
		BGL_BIND_STRING(BGl_string2638z00zz__ftpz00,
			BgL_bgl_string2638za700za7za7_2809za7);
		BGL_BIND_STRING(BGl_string2556z00zz__ftpz00,
			BgL_bgl_string2556za700za7za7_2808za7);
		BGL_BIND_STRING(BGl_string2637z00zz__ftpz00,
			BgL_bgl_string2637za700za7za7_2807za7);
		BGL_BIND_STRING(BGl_string2718z00zz__ftpz00,
			BgL_bgl_string2718za700za7za7_2806za7);
		BGL_BIND_STRING(BGl_string2555z00zz__ftpz00,
			BgL_bgl_string2555za700za7za7_2805za7);
		BGL_BIND_STRING(BGl_string2636z00zz__ftpz00,
			BgL_bgl_string2636za700za7za7_2804za7);
		BGL_BIND_STRING(BGl_string2554z00zz__ftpz00,
			BgL_bgl_string2554za700za7za7_2803za7);
		BGL_BIND_STRING(BGl_string2635z00zz__ftpz00,
			BgL_bgl_string2635za700za7za7_2802za7);
		BGL_BIND_STRING(BGl_string2553z00zz__ftpz00,
			BgL_bgl_string2553za700za7za7_2801za7);
		BGL_BIND_STRING(BGl_string2634z00zz__ftpz00,
			BgL_bgl_string2634za700za7za7_2800za7);
		BGL_BIND_PROCEDURE(BGl_proc2709z00zz__ftpz00,
			BgL_bgl_za762za7c3za704anonymo2799za7);
		BGL_BIND_STRING(BGl_string2552z00zz__ftpz00,
			BgL_bgl_string2552za700za7za7_2798za7);
		BGL_BIND_STRING(BGl_string2633z00zz__ftpz00,
			BgL_bgl_string2633za700za7za7_2797za7);
		BGL_BIND_STRING(BGl_string2551z00zz__ftpz00,
			BgL_bgl_string2551za700za7za7_2796za7);
		BGL_BIND_STRING(BGl_string2632z00zz__ftpz00,
			BgL_bgl_string2632za700za7za7_2795za7);
		BGL_BIND_PROCEDURE(BGl_proc2707z00zz__ftpz00,
			BgL_bgl_za762lambda1965za7622794z00);
		BGL_BIND_STRING(BGl_string2713z00zz__ftpz00,
			BgL_bgl_string2713za700za7za7_2793za7);
		BGL_BIND_STRING(BGl_string2550z00zz__ftpz00,
			BgL_bgl_string2550za700za7za7_2792za7);
		BGL_BIND_STRING(BGl_string2631z00zz__ftpz00,
			BgL_bgl_string2631za700za7za7_2791za7);
		BGL_BIND_PROCEDURE(BGl_proc2706z00zz__ftpz00,
			BgL_bgl_za762lambda1967za7622790z00);
		BGL_BIND_STRING(BGl_string2630z00zz__ftpz00,
			BgL_bgl_string2630za700za7za7_2789za7);
		BGL_BIND_PROCEDURE(BGl_proc2705z00zz__ftpz00,
			BgL_bgl_za762za7c3za704anonymo2788za7);
		BGL_BIND_PROCEDURE(BGl_proc2702z00zz__ftpz00,
			BgL_bgl_za762lambda2014za7622787z00);
		BGL_BIND_PROCEDURE(BGl_proc2701z00zz__ftpz00,
			BgL_bgl_za762lambda2015za7622786z00);
		BGL_BIND_PROCEDURE(BGl_proc2700z00zz__ftpz00,
			BgL_bgl_za762za7c3za704anonymo2785za7);
		BGL_BIND_STRING(BGl_string2549z00zz__ftpz00,
			BgL_bgl_string2549za700za7za7_2784za7);
		BGL_BIND_STRING(BGl_string2548z00zz__ftpz00,
			BgL_bgl_string2548za700za7za7_2783za7);
		BGL_BIND_STRING(BGl_string2629z00zz__ftpz00,
			BgL_bgl_string2629za700za7za7_2782za7);
		BGL_BIND_STRING(BGl_string2547z00zz__ftpz00,
			BgL_bgl_string2547za700za7za7_2781za7);
		BGL_BIND_STRING(BGl_string2628z00zz__ftpz00,
			BgL_bgl_string2628za700za7za7_2780za7);
		BGL_BIND_STRING(BGl_string2546z00zz__ftpz00,
			BgL_bgl_string2546za700za7za7_2779za7);
		BGL_BIND_STRING(BGl_string2627z00zz__ftpz00,
			BgL_bgl_string2627za700za7za7_2778za7);
		BGL_BIND_STRING(BGl_string2545z00zz__ftpz00,
			BgL_bgl_string2545za700za7za7_2777za7);
		BGL_BIND_STRING(BGl_string2626z00zz__ftpz00,
			BgL_bgl_string2626za700za7za7_2776za7);
		BGL_BIND_STRING(BGl_string2625z00zz__ftpz00,
			BgL_bgl_string2625za700za7za7_2775za7);
		BGL_BIND_STRING(BGl_string2543z00zz__ftpz00,
			BgL_bgl_string2543za700za7za7_2774za7);
		BGL_BIND_STRING(BGl_string2624z00zz__ftpz00,
			BgL_bgl_string2624za700za7za7_2773za7);
		BGL_BIND_STRING(BGl_string2623z00zz__ftpz00,
			BgL_bgl_string2623za700za7za7_2772za7);
		BGL_BIND_STRING(BGl_string2704z00zz__ftpz00,
			BgL_bgl_string2704za700za7za7_2771za7);
		BGL_BIND_PROCEDURE(BGl_ftpzd2sitezd2parameterszd2envzd2zz__ftpz00,
			BgL_bgl_za762ftpza7d2siteza7d22770za7);
		BGL_BIND_PROCEDURE(BGl_ftpzd2directoryzd2ze3pathzd2listzd2envze3zz__ftpz00,
			BgL_bgl_za762ftpza7d2directo2769z00);
		BGL_BIND_STRING(BGl_string2541z00zz__ftpz00,
			BgL_bgl_string2541za700za7za7_2768za7);
		BGL_BIND_STRING(BGl_string2622z00zz__ftpz00,
			BgL_bgl_string2622za700za7za7_2767za7);
		BGL_BIND_STRING(BGl_string2540z00zz__ftpz00,
			BgL_bgl_string2540za700za7za7_2766za7);
		BGL_BIND_STRING(BGl_string2621z00zz__ftpz00,
			BgL_bgl_string2621za700za7za7_2765za7);
		BGL_BIND_STRING(BGl_string2620z00zz__ftpz00,
			BgL_bgl_string2620za700za7za7_2764za7);
		BGL_BIND_PROCEDURE(BGl_ftpzd2cdzd2envz00zz__ftpz00,
			BgL_bgl_za762ftpza7d2cdza7b0za7za72763za7);
		BGL_BIND_STRING(BGl_string2539z00zz__ftpz00,
			BgL_bgl_string2539za700za7za7_2762za7);
		BGL_BIND_STRING(BGl_string2538z00zz__ftpz00,
			BgL_bgl_string2538za700za7za7_2761za7);
		BGL_BIND_STRING(BGl_string2619z00zz__ftpz00,
			BgL_bgl_string2619za700za7za7_2760za7);
		BGL_BIND_STRING(BGl_string2537z00zz__ftpz00,
			BgL_bgl_string2537za700za7za7_2759za7);
		BGL_BIND_STRING(BGl_string2618z00zz__ftpz00,
			BgL_bgl_string2618za700za7za7_2758za7);
		BGL_BIND_STRING(BGl_string2536z00zz__ftpz00,
			BgL_bgl_string2536za700za7za7_2757za7);
		BGL_BIND_STRING(BGl_string2617z00zz__ftpz00,
			BgL_bgl_string2617za700za7za7_2756za7);
		BGL_BIND_STRING(BGl_string2535z00zz__ftpz00,
			BgL_bgl_string2535za700za7za7_2755za7);
		BGL_BIND_STRING(BGl_string2616z00zz__ftpz00,
			BgL_bgl_string2616za700za7za7_2754za7);
		BGL_BIND_STRING(BGl_string2534z00zz__ftpz00,
			BgL_bgl_string2534za700za7za7_2753za7);
		BGL_BIND_STRING(BGl_string2615z00zz__ftpz00,
			BgL_bgl_string2615za700za7za7_2752za7);
		BGL_BIND_STRING(BGl_string2614z00zz__ftpz00,
			BgL_bgl_string2614za700za7za7_2751za7);
		BGL_BIND_STRING(BGl_string2613z00zz__ftpz00,
			BgL_bgl_string2613za700za7za7_2750za7);
		BGL_BIND_STRING(BGl_string2612z00zz__ftpz00,
			BgL_bgl_string2612za700za7za7_2749za7);
		BGL_BIND_STRING(BGl_string2611z00zz__ftpz00,
			BgL_bgl_string2611za700za7za7_2748za7);
		BGL_BIND_STRING(BGl_string2610z00zz__ftpz00,
			BgL_bgl_string2610za700za7za7_2747za7);
		BGL_BIND_PROCEDURE(BGl_ftpzd2statuszd2envz00zz__ftpz00,
			BgL_bgl_za762ftpza7d2statusza72746za7);
		BGL_BIND_STRING(BGl_string2609z00zz__ftpz00,
			BgL_bgl_string2609za700za7za7_2745za7);
		BGL_BIND_STRING(BGl_string2608z00zz__ftpz00,
			BgL_bgl_string2608za700za7za7_2744za7);
		BGL_BIND_STRING(BGl_string2607z00zz__ftpz00,
			BgL_bgl_string2607za700za7za7_2743za7);
		BGL_BIND_STRING(BGl_string2606z00zz__ftpz00,
			BgL_bgl_string2606za700za7za7_2742za7);
		BGL_BIND_STRING(BGl_string2605z00zz__ftpz00,
			BgL_bgl_string2605za700za7za7_2741za7);
		BGL_BIND_STRING(BGl_string2604z00zz__ftpz00,
			BgL_bgl_string2604za700za7za7_2740za7);
		BGL_BIND_STRING(BGl_string2603z00zz__ftpz00,
			BgL_bgl_string2603za700za7za7_2739za7);
		BGL_BIND_STRING(BGl_string2602z00zz__ftpz00,
			BgL_bgl_string2602za700za7za7_2738za7);
		BGL_BIND_STRING(BGl_string2601z00zz__ftpz00,
			BgL_bgl_string2601za700za7za7_2737za7);
		BGL_BIND_STRING(BGl_string2600z00zz__ftpz00,
			BgL_bgl_string2600za700za7za7_2736za7);
		BGL_BIND_PROCEDURE(BGl_ftpzd2namezd2listzd2envzd2zz__ftpz00,
			BgL_bgl_za762ftpza7d2nameza7d22735za7);
		BGL_BIND_PROCEDURE(BGl_ftpzd2copyzd2filezd2envzd2zz__ftpz00,
			BgL_bgl_za762ftpza7d2copyza7d22734za7);
		BGL_BIND_PROCEDURE(BGl_ftpzd2systemzd2envz00zz__ftpz00,
			BgL_bgl_za762ftpza7d2systemza72733za7);
		BGL_BIND_PROCEDURE(BGl_ftpzd2passivezd2envz00zz__ftpz00,
			BgL_bgl_za762ftpza7d2passive2732z00);
		BGL_BIND_PROCEDURE(BGl_ftpzd2listzd2envz00zz__ftpz00,
			BgL_bgl_za762ftpza7d2listza7b02731za7);
		BGL_BIND_PROCEDURE(BGl_ftpzd2abortzd2envz00zz__ftpz00,
			BgL_bgl_za762ftpza7d2abortza7b2730za7);
		BGL_BIND_PROCEDURE(BGl_ftpzd2retrievezd2envz00zz__ftpz00,
			BgL_bgl_za762ftpza7d2retriev2729z00);
		BGL_BIND_PROCEDURE(BGl_ftpzd2rmdirzd2envz00zz__ftpz00,
			BgL_bgl_za762ftpza7d2rmdirza7b2728za7);
		BGL_BIND_PROCEDURE(BGl_ftpzd2allocatezd2envz00zz__ftpz00,
			BgL_bgl_za762ftpza7d2allocat2727z00);
		BGL_BIND_PROCEDURE(BGl_ftpzd2cdzd2parentzd2envzd2zz__ftpz00,
			BgL_bgl_za762ftpza7d2cdza7d2pa2726za7);
	}

/* GC roots registration */
	static obj_t bgl_gc_roots_register()
	{
#if defined( BGL_GC_ROOTS )
#define ADD_ROOT( addr ) (addr > roots_max ? roots_max = addr : (addr < roots_min ? roots_min = addr : 0))
		void *roots_min = (void *) ULONG_MAX, *roots_max = 0;

		ADD_ROOT((void *) (&BGl_symbol2564z00zz__ftpz00));
		ADD_ROOT((void *) (&BGl_symbol2571z00zz__ftpz00));
		ADD_ROOT((void *) (&BGl_symbol2654z00zz__ftpz00));
		ADD_ROOT((void *) (&BGl_symbol2656z00zz__ftpz00));
		ADD_ROOT((void *) (&BGl_ftpz00zz__ftpz00));
		ADD_ROOT((void *) (&BGl_requirezd2initializa7ationz75zz__ftpz00));
		ADD_ROOT((void *) (&BGl_symbol2661z00zz__ftpz00));
		ADD_ROOT((void *) (&BGl_symbol2666z00zz__ftpz00));
		ADD_ROOT((void *) (&BGl_symbol2668z00zz__ftpz00));
		ADD_ROOT((void *) (&BGl_symbol2672z00zz__ftpz00));
		ADD_ROOT((void *) (&BGl_symbol2674z00zz__ftpz00));
		ADD_ROOT((void *) (&BGl_symbol2679z00zz__ftpz00));
		ADD_ROOT((void *) (&BGl_z62ftpzd2parsezd2errorz62zz__ftpz00));
		ADD_ROOT((void *) (&BGl_symbol2680z00zz__ftpz00));
		ADD_ROOT((void *) (&BGl_symbol2684z00zz__ftpz00));
		ADD_ROOT((void *) (&BGl_symbol2688z00zz__ftpz00));
		ADD_ROOT((void *) (&BGl_symbol2693z00zz__ftpz00));
		ADD_ROOT((void *) (&BGl_symbol2698z00zz__ftpz00));
		ADD_ROOT((void *) (&BGl_z62ftpzd2errorzb0zz__ftpz00));
		ADD_ROOT((void *) (&BGl_list2560z00zz__ftpz00));
		ADD_ROOT((void *) (&BGl_z52ftpz52zz__ftpz00));
		ADD_ROOT((void *) (&BGl_keyword2561z00zz__ftpz00));
		ADD_ROOT((void *) (&BGl_keyword2563z00zz__ftpz00));
		ADD_ROOT((void *) (&BGl_symbol2703z00zz__ftpz00));
		ADD_ROOT((void *) (&BGl_symbol2542z00zz__ftpz00));
		ADD_ROOT((void *) (&BGl_symbol2544z00zz__ftpz00));
		ADD_ROOT((void *) (&BGl_symbol2708z00zz__ftpz00));
		ADD_ROOT((void *) (&BGl_symbol2712z00zz__ftpz00));
		ADD_ROOT((void *) (&BGl_symbol2717z00zz__ftpz00));
#undef ADD_ROOT
		if (roots_max > 0)
			GC_add_roots(roots_min, ((void **) roots_max) + 1);
#endif
		return BUNSPEC;
	}



/* module-initialization */
	BGL_EXPORTED_DEF obj_t BGl_modulezd2initializa7ationz75zz__ftpz00(long
		BgL_checksumz00_4590, char *BgL_fromz00_4591)
	{
		{
			if (CBOOL(BGl_requirezd2initializa7ationz75zz__ftpz00))
				{
					BGl_requirezd2initializa7ationz75zz__ftpz00 = BBOOL(((bool_t) 0));
					bgl_constant_bindings();
					BGl_gczd2rootszd2initz00zz__ftpz00();
					BGl_cnstzd2initzd2zz__ftpz00();
					BGl_importedzd2moduleszd2initz00zz__ftpz00();
					BGl_objectzd2initzd2zz__ftpz00();
					BGl_methodzd2initzd2zz__ftpz00();
					return BGl_toplevelzd2initzd2zz__ftpz00();
				}
			else
				{
					return BUNSPEC;
				}
		}

	}



/* cnst-init */
	obj_t BGl_cnstzd2initzd2zz__ftpz00(void)
	{
		{	/* Unsafe/ftp.scm 15 */
			BGl_symbol2542z00zz__ftpz00 =
				bstring_to_symbol(BGl_string2543z00zz__ftpz00);
			BGl_symbol2544z00zz__ftpz00 =
				bstring_to_symbol(BGl_string2545z00zz__ftpz00);
			BGl_keyword2561z00zz__ftpz00 =
				bstring_to_keyword(BGl_string2562z00zz__ftpz00);
			BGl_keyword2563z00zz__ftpz00 =
				bstring_to_keyword(BGl_string2545z00zz__ftpz00);
			BGl_list2560z00zz__ftpz00 =
				MAKE_YOUNG_PAIR(BGl_keyword2561z00zz__ftpz00,
				MAKE_YOUNG_PAIR(BGl_keyword2563z00zz__ftpz00, BNIL));
			BGl_symbol2564z00zz__ftpz00 =
				bstring_to_symbol(BGl_string2565z00zz__ftpz00);
			BGl_symbol2571z00zz__ftpz00 =
				bstring_to_symbol(BGl_string2572z00zz__ftpz00);
			BGl_symbol2654z00zz__ftpz00 =
				bstring_to_symbol(BGl_string2655z00zz__ftpz00);
			BGl_symbol2656z00zz__ftpz00 =
				bstring_to_symbol(BGl_string2657z00zz__ftpz00);
			BGl_symbol2661z00zz__ftpz00 =
				bstring_to_symbol(BGl_string2662z00zz__ftpz00);
			BGl_symbol2666z00zz__ftpz00 =
				bstring_to_symbol(BGl_string2667z00zz__ftpz00);
			BGl_symbol2668z00zz__ftpz00 =
				bstring_to_symbol(BGl_string2669z00zz__ftpz00);
			BGl_symbol2672z00zz__ftpz00 =
				bstring_to_symbol(BGl_string2673z00zz__ftpz00);
			BGl_symbol2674z00zz__ftpz00 =
				bstring_to_symbol(BGl_string2675z00zz__ftpz00);
			BGl_symbol2679z00zz__ftpz00 =
				bstring_to_symbol(BGl_string2562z00zz__ftpz00);
			BGl_symbol2680z00zz__ftpz00 =
				bstring_to_symbol(BGl_string2584z00zz__ftpz00);
			BGl_symbol2684z00zz__ftpz00 =
				bstring_to_symbol(BGl_string2593z00zz__ftpz00);
			BGl_symbol2688z00zz__ftpz00 =
				bstring_to_symbol(BGl_string2689z00zz__ftpz00);
			BGl_symbol2693z00zz__ftpz00 =
				bstring_to_symbol(BGl_string2694z00zz__ftpz00);
			BGl_symbol2698z00zz__ftpz00 =
				bstring_to_symbol(BGl_string2699z00zz__ftpz00);
			BGl_symbol2703z00zz__ftpz00 =
				bstring_to_symbol(BGl_string2704z00zz__ftpz00);
			BGl_symbol2708z00zz__ftpz00 =
				bstring_to_symbol(BGl_string2548z00zz__ftpz00);
			BGl_symbol2712z00zz__ftpz00 =
				bstring_to_symbol(BGl_string2713z00zz__ftpz00);
			return (BGl_symbol2717z00zz__ftpz00 =
				bstring_to_symbol(BGl_string2718z00zz__ftpz00), BUNSPEC);
		}

	}



/* gc-roots-init */
	obj_t BGl_gczd2rootszd2initz00zz__ftpz00(void)
	{
		{	/* Unsafe/ftp.scm 15 */
			return bgl_gc_roots_register();
		}

	}



/* toplevel-init */
	obj_t BGl_toplevelzd2initzd2zz__ftpz00(void)
	{
		{	/* Unsafe/ftp.scm 15 */
			return BUNSPEC;
		}

	}



/* %ftp-read-cmd */
	obj_t BGl_z52ftpzd2readzd2cmdz52zz__ftpz00(obj_t BgL_ftpz00_8)
	{
		{	/* Unsafe/ftp.scm 137 */
			{	/* Unsafe/ftp.scm 139 */
				obj_t BgL_ipz00_1368;

				{	/* Unsafe/ftp.scm 139 */
					obj_t BgL_arg1651z00_1810;

					BgL_arg1651z00_1810 =
						(((BgL_z52ftpz52_bglt) COBJECT(
								((BgL_z52ftpz52_bglt) BgL_ftpz00_8)))->BgL_cmdz00);
					{	/* Unsafe/ftp.scm 139 */
						obj_t BgL_tmpz00_4630;

						BgL_tmpz00_4630 = ((obj_t) BgL_arg1651z00_1810);
						BgL_ipz00_1368 = SOCKET_INPUT(BgL_tmpz00_4630);
					}
				}
				{	/* Unsafe/ftp.scm 139 */
					obj_t BgL_msgz00_1369;

					BgL_msgz00_1369 =
						BGl_readzd2linezd2zz__r4_input_6_10_2z00(BgL_ipz00_1368);
					{	/* Unsafe/ftp.scm 140 */

						if (EOF_OBJECTP(BgL_msgz00_1369))
							{	/* Unsafe/ftp.scm 142 */
								obj_t BgL_val0_1226z00_1371;

								BgL_val0_1226z00_1371 = BINT(999L);
								{	/* Unsafe/ftp.scm 142 */
									int BgL_tmpz00_4637;

									BgL_tmpz00_4637 = (int) (3L);
									BGL_MVALUES_NUMBER_SET(BgL_tmpz00_4637);
								}
								{	/* Unsafe/ftp.scm 142 */
									int BgL_tmpz00_4640;

									BgL_tmpz00_4640 = (int) (1L);
									BGL_MVALUES_VAL_SET(BgL_tmpz00_4640,
										BGl_string2534z00zz__ftpz00);
								}
								{	/* Unsafe/ftp.scm 142 */
									int BgL_tmpz00_4643;

									BgL_tmpz00_4643 = (int) (2L);
									BGL_MVALUES_VAL_SET(BgL_tmpz00_4643, BFALSE);
								}
								return BgL_val0_1226z00_1371;
							}
						else
							{	/* Unsafe/ftp.scm 143 */
								struct bgl_unsafe_cell BgL_box2930_4203z00;
								obj_t BgL_codez00_1374;
								obj_t BgL_mesgz00_4203;
								bool_t BgL_morezf3zf3_1376;

								{	/* Unsafe/ftp.scm 143 */
									obj_t BgL_arg1646z00_1803;

									BgL_arg1646z00_1803 =
										c_substring(((obj_t) BgL_msgz00_1369), 0L, 3L);
									{	/* Ieee/number.scm 173 */

										BgL_codez00_1374 =
											BGl_stringzd2ze3numberz31zz__r4_numbers_6_5z00
											(BgL_arg1646z00_1803, BINT(10L));
								}}
								{	/* Unsafe/ftp.scm 144 */
									obj_t BgL_cellvalz00_4650;

									{	/* Ieee/string.scm 194 */
										long BgL_endz00_1808;

										BgL_endz00_1808 = STRING_LENGTH(((obj_t) BgL_msgz00_1369));
										{	/* Ieee/string.scm 194 */

											BgL_cellvalz00_4650 =
												BGl_substringz00zz__r4_strings_6_7z00(BgL_msgz00_1369,
												4L, BgL_endz00_1808);
									}}
									BgL_mesgz00_4203 =
										BGL_MAKE_UNSAFE_CELL_STACK(BgL_cellvalz00_4650,
										BgL_box2930_4203z00);
								}
								BgL_morezf3zf3_1376 =
									(((unsigned char) '-') ==
									STRING_REF(((obj_t) BgL_msgz00_1369), 3L));
								if (BgL_morezf3zf3_1376)
									{	/* Unsafe/ftp.scm 146 */
										BGl_loopze70ze7zz__ftpz00(BgL_codez00_1374, BgL_ipz00_1368,
											BgL_mesgz00_4203,
											BGl_readzd2linezd2zz__r4_input_6_10_2z00(BgL_ipz00_1368));
									}
								else
									{	/* Unsafe/ftp.scm 146 */
										BFALSE;
									}
								{	/* Unsafe/ftp.scm 170 */
									obj_t BgL_val1_1232z00_1802;

									BgL_val1_1232z00_1802 =
										((obj_t) ((obj_t) BGL_UNSAFE_CELL_REF(BgL_mesgz00_4203)));
									{	/* Unsafe/ftp.scm 170 */
										int BgL_tmpz00_4661;

										BgL_tmpz00_4661 = (int) (2L);
										BGL_MVALUES_NUMBER_SET(BgL_tmpz00_4661);
									}
									{	/* Unsafe/ftp.scm 170 */
										int BgL_tmpz00_4664;

										BgL_tmpz00_4664 = (int) (1L);
										BGL_MVALUES_VAL_SET(BgL_tmpz00_4664, BgL_val1_1232z00_1802);
									}
									return BgL_codez00_1374;
								}
							}
					}
				}
			}
		}

	}



/* the-substring~0 */
	obj_t BGl_thezd2substringze70z35zz__ftpz00(obj_t BgL_iportz00_4189,
		int BgL_minz00_1619, int BgL_maxz00_1620)
	{
		{	/* Unsafe/ftp.scm 149 */
			if (((long) (BgL_maxz00_1620) < (long) (BgL_minz00_1619)))
				{	/* Unsafe/ftp.scm 149 */
					long BgL_arg1528z00_1623;

					BgL_arg1528z00_1623 = RGC_BUFFER_MATCH_LENGTH(BgL_iportz00_4189);
					{	/* Unsafe/ftp.scm 149 */
						long BgL_za72za7_3116;

						BgL_za72za7_3116 = (long) (BgL_maxz00_1620);
						BgL_maxz00_1620 = (int) ((BgL_arg1528z00_1623 + BgL_za72za7_3116));
				}}
			else
				{	/* Unsafe/ftp.scm 149 */
					BFALSE;
				}
			{	/* Unsafe/ftp.scm 149 */
				bool_t BgL_test2933z00_4675;

				if (((long) (BgL_minz00_1619) >= 0L))
					{	/* Unsafe/ftp.scm 149 */
						if (((long) (BgL_maxz00_1620) >= (long) (BgL_minz00_1619)))
							{	/* Unsafe/ftp.scm 149 */
								long BgL_arg1540z00_1634;

								BgL_arg1540z00_1634 =
									RGC_BUFFER_MATCH_LENGTH(BgL_iportz00_4189);
								BgL_test2933z00_4675 =
									((long) (BgL_maxz00_1620) <= BgL_arg1540z00_1634);
							}
						else
							{	/* Unsafe/ftp.scm 149 */
								BgL_test2933z00_4675 = ((bool_t) 0);
							}
					}
				else
					{	/* Unsafe/ftp.scm 149 */
						BgL_test2933z00_4675 = ((bool_t) 0);
					}
				if (BgL_test2933z00_4675)
					{	/* Unsafe/ftp.scm 149 */
						return
							rgc_buffer_substring(BgL_iportz00_4189,
							(long) (BgL_minz00_1619), (long) (BgL_maxz00_1620));
					}
				else
					{	/* Unsafe/ftp.scm 149 */
						obj_t BgL_arg1534z00_1628;
						obj_t BgL_arg1537z00_1629;

						{	/* Unsafe/ftp.scm 149 */
							obj_t BgL_arg1538z00_1630;

							{	/* Unsafe/ftp.scm 149 */
								long BgL_arg1525z00_3126;

								BgL_arg1525z00_3126 =
									RGC_BUFFER_MATCH_LENGTH(BgL_iportz00_4189);
								BgL_arg1538z00_1630 =
									rgc_buffer_substring(BgL_iportz00_4189, 0L,
									BgL_arg1525z00_3126);
							}
							{	/* Unsafe/ftp.scm 149 */
								obj_t BgL_list1539z00_1631;

								BgL_list1539z00_1631 =
									MAKE_YOUNG_PAIR(BgL_arg1538z00_1630, BNIL);
								BgL_arg1534z00_1628 =
									BGl_formatz00zz__r4_output_6_10_3z00
									(BGl_string2535z00zz__ftpz00, BgL_list1539z00_1631);
						}}
						BgL_arg1537z00_1629 =
							MAKE_YOUNG_PAIR(BINT(BgL_minz00_1619), BINT(BgL_maxz00_1620));
						return
							BGl_errorz00zz__errorz00(BGl_string2536z00zz__ftpz00,
							BgL_arg1534z00_1628, BgL_arg1537z00_1629);
					}
			}
		}

	}



/* ignore~0 */
	obj_t BGl_ignoreze70ze7zz__ftpz00(obj_t BgL_codez00_4195,
		obj_t BgL_ipz00_4194, obj_t BgL_mesgz00_4193, obj_t BgL_msgz00_4192,
		obj_t BgL_port1078z00_4191, obj_t BgL_iportz00_4190)
	{
		{	/* Unsafe/ftp.scm 149 */
			{
				obj_t BgL_iportz00_1432;
				long BgL_lastzd2matchzd2_1433;
				long BgL_forwardz00_1434;
				long BgL_bufposz00_1435;
				obj_t BgL_iportz00_1454;
				long BgL_lastzd2matchzd2_1455;
				long BgL_forwardz00_1456;
				long BgL_bufposz00_1457;
				obj_t BgL_iportz00_1469;
				long BgL_lastzd2matchzd2_1470;
				long BgL_forwardz00_1471;
				long BgL_bufposz00_1472;
				obj_t BgL_iportz00_1491;
				long BgL_lastzd2matchzd2_1492;
				long BgL_forwardz00_1493;
				long BgL_bufposz00_1494;
				obj_t BgL_iportz00_1513;
				long BgL_lastzd2matchzd2_1514;
				long BgL_forwardz00_1515;
				long BgL_bufposz00_1516;
				obj_t BgL_iportz00_1528;
				long BgL_lastzd2matchzd2_1529;
				long BgL_forwardz00_1530;
				long BgL_bufposz00_1531;
				obj_t BgL_iportz00_1549;
				long BgL_lastzd2matchzd2_1550;
				long BgL_forwardz00_1551;
				long BgL_bufposz00_1552;
				obj_t BgL_iportz00_1563;
				long BgL_lastzd2matchzd2_1564;
				long BgL_forwardz00_1565;
				long BgL_bufposz00_1566;
				obj_t BgL_iportz00_1577;
				long BgL_lastzd2matchzd2_1578;
				long BgL_forwardz00_1579;
				long BgL_bufposz00_1580;
				obj_t BgL_iportz00_1597;
				long BgL_lastzd2matchzd2_1598;
				long BgL_forwardz00_1599;
				long BgL_bufposz00_1600;

				RGC_START_MATCH(BgL_iportz00_4190);
				{	/* Unsafe/ftp.scm 149 */
					long BgL_matchz00_1726;

					{	/* Unsafe/ftp.scm 149 */
						long BgL_arg1643z00_1755;
						long BgL_arg1644z00_1756;

						BgL_arg1643z00_1755 = RGC_BUFFER_FORWARD(BgL_iportz00_4190);
						BgL_arg1644z00_1756 = RGC_BUFFER_BUFPOS(BgL_iportz00_4190);
						BgL_iportz00_1528 = BgL_port1078z00_4191;
						BgL_lastzd2matchzd2_1529 = 4L;
						BgL_forwardz00_1530 = BgL_arg1643z00_1755;
						BgL_bufposz00_1531 = BgL_arg1644z00_1756;
					BgL_zc3z04anonymousza31467ze3z87_1532:
						{	/* Unsafe/ftp.scm 149 */
							long BgL_newzd2matchzd2_1533;

							if (rgc_buffer_bol_p(BgL_iportz00_1528))
								{	/* Unsafe/ftp.scm 149 */
									RGC_STOP_MATCH(BgL_iportz00_1528, BgL_forwardz00_1530);
									BgL_newzd2matchzd2_1533 = 3L;
								}
							else
								{	/* Unsafe/ftp.scm 149 */
									BgL_newzd2matchzd2_1533 = BgL_lastzd2matchzd2_1529;
								}
							if ((BgL_forwardz00_1530 == BgL_bufposz00_1531))
								{	/* Unsafe/ftp.scm 149 */
									if (rgc_fill_buffer(BgL_iportz00_1528))
										{	/* Unsafe/ftp.scm 149 */
											long BgL_arg1470z00_1536;
											long BgL_arg1471z00_1537;

											BgL_arg1470z00_1536 =
												RGC_BUFFER_FORWARD(BgL_iportz00_1528);
											BgL_arg1471z00_1537 =
												RGC_BUFFER_BUFPOS(BgL_iportz00_1528);
											{
												long BgL_bufposz00_4710;
												long BgL_forwardz00_4709;

												BgL_forwardz00_4709 = BgL_arg1470z00_1536;
												BgL_bufposz00_4710 = BgL_arg1471z00_1537;
												BgL_bufposz00_1531 = BgL_bufposz00_4710;
												BgL_forwardz00_1530 = BgL_forwardz00_4709;
												goto BgL_zc3z04anonymousza31467ze3z87_1532;
											}
										}
									else
										{	/* Unsafe/ftp.scm 149 */
											BgL_matchz00_1726 = BgL_newzd2matchzd2_1533;
										}
								}
							else
								{	/* Unsafe/ftp.scm 149 */
									int BgL_curz00_1538;

									BgL_curz00_1538 =
										RGC_BUFFER_GET_CHAR(BgL_iportz00_1528, BgL_forwardz00_1530);
									{	/* Unsafe/ftp.scm 149 */

										{	/* Unsafe/ftp.scm 149 */
											bool_t BgL_test2939z00_4712;

											if (((long) (BgL_curz00_1538) >= 48L))
												{	/* Unsafe/ftp.scm 149 */
													BgL_test2939z00_4712 =
														((long) (BgL_curz00_1538) < 58L);
												}
											else
												{	/* Unsafe/ftp.scm 149 */
													BgL_test2939z00_4712 = ((bool_t) 0);
												}
											if (BgL_test2939z00_4712)
												{	/* Unsafe/ftp.scm 149 */
													BgL_iportz00_1469 = BgL_iportz00_1528;
													BgL_lastzd2matchzd2_1470 = BgL_newzd2matchzd2_1533;
													BgL_forwardz00_1471 = (1L + BgL_forwardz00_1530);
													BgL_bufposz00_1472 = BgL_bufposz00_1531;
												BgL_zc3z04anonymousza31431ze3z87_1473:
													{	/* Unsafe/ftp.scm 149 */
														long BgL_newzd2matchzd2_1474;

														if (rgc_buffer_bol_p(BgL_iportz00_1469))
															{	/* Unsafe/ftp.scm 149 */
																RGC_STOP_MATCH(BgL_iportz00_1469,
																	BgL_forwardz00_1471);
																BgL_newzd2matchzd2_1474 = 3L;
															}
														else
															{	/* Unsafe/ftp.scm 149 */
																RGC_STOP_MATCH(BgL_iportz00_1469,
																	BgL_forwardz00_1471);
																BgL_newzd2matchzd2_1474 = 4L;
															}
														if ((BgL_forwardz00_1471 == BgL_bufposz00_1472))
															{	/* Unsafe/ftp.scm 149 */
																if (rgc_fill_buffer(BgL_iportz00_1469))
																	{	/* Unsafe/ftp.scm 149 */
																		long BgL_arg1434z00_1477;
																		long BgL_arg1435z00_1478;

																		BgL_arg1434z00_1477 =
																			RGC_BUFFER_FORWARD(BgL_iportz00_1469);
																		BgL_arg1435z00_1478 =
																			RGC_BUFFER_BUFPOS(BgL_iportz00_1469);
																		{
																			long BgL_bufposz00_4729;
																			long BgL_forwardz00_4728;

																			BgL_forwardz00_4728 = BgL_arg1434z00_1477;
																			BgL_bufposz00_4729 = BgL_arg1435z00_1478;
																			BgL_bufposz00_1472 = BgL_bufposz00_4729;
																			BgL_forwardz00_1471 = BgL_forwardz00_4728;
																			goto
																				BgL_zc3z04anonymousza31431ze3z87_1473;
																		}
																	}
																else
																	{	/* Unsafe/ftp.scm 149 */
																		BgL_matchz00_1726 = BgL_newzd2matchzd2_1474;
																	}
															}
														else
															{	/* Unsafe/ftp.scm 149 */
																int BgL_curz00_1479;

																BgL_curz00_1479 =
																	RGC_BUFFER_GET_CHAR(BgL_iportz00_1469,
																	BgL_forwardz00_1471);
																{	/* Unsafe/ftp.scm 149 */

																	{	/* Unsafe/ftp.scm 149 */
																		bool_t BgL_test2944z00_4731;

																		if (((long) (BgL_curz00_1479) >= 48L))
																			{	/* Unsafe/ftp.scm 149 */
																				BgL_test2944z00_4731 =
																					((long) (BgL_curz00_1479) < 58L);
																			}
																		else
																			{	/* Unsafe/ftp.scm 149 */
																				BgL_test2944z00_4731 = ((bool_t) 0);
																			}
																		if (BgL_test2944z00_4731)
																			{	/* Unsafe/ftp.scm 149 */
																				BgL_iportz00_1491 = BgL_iportz00_1469;
																				BgL_lastzd2matchzd2_1492 =
																					BgL_newzd2matchzd2_1474;
																				BgL_forwardz00_1493 =
																					(1L + BgL_forwardz00_1471);
																				BgL_bufposz00_1494 = BgL_bufposz00_1472;
																			BgL_zc3z04anonymousza31444ze3z87_1495:
																				{	/* Unsafe/ftp.scm 149 */
																					long BgL_newzd2matchzd2_1496;

																					if (rgc_buffer_bol_p
																						(BgL_iportz00_1491))
																						{	/* Unsafe/ftp.scm 149 */
																							RGC_STOP_MATCH(BgL_iportz00_1491,
																								BgL_forwardz00_1493);
																							BgL_newzd2matchzd2_1496 = 3L;
																						}
																					else
																						{	/* Unsafe/ftp.scm 149 */
																							BgL_newzd2matchzd2_1496 =
																								BgL_lastzd2matchzd2_1492;
																						}
																					if (
																						(BgL_forwardz00_1493 ==
																							BgL_bufposz00_1494))
																						{	/* Unsafe/ftp.scm 149 */
																							if (rgc_fill_buffer
																								(BgL_iportz00_1491))
																								{	/* Unsafe/ftp.scm 149 */
																									long BgL_arg1447z00_1499;
																									long BgL_arg1448z00_1500;

																									BgL_arg1447z00_1499 =
																										RGC_BUFFER_FORWARD
																										(BgL_iportz00_1491);
																									BgL_arg1448z00_1500 =
																										RGC_BUFFER_BUFPOS
																										(BgL_iportz00_1491);
																									{
																										long BgL_bufposz00_4747;
																										long BgL_forwardz00_4746;

																										BgL_forwardz00_4746 =
																											BgL_arg1447z00_1499;
																										BgL_bufposz00_4747 =
																											BgL_arg1448z00_1500;
																										BgL_bufposz00_1494 =
																											BgL_bufposz00_4747;
																										BgL_forwardz00_1493 =
																											BgL_forwardz00_4746;
																										goto
																											BgL_zc3z04anonymousza31444ze3z87_1495;
																									}
																								}
																							else
																								{	/* Unsafe/ftp.scm 149 */
																									BgL_matchz00_1726 =
																										BgL_newzd2matchzd2_1496;
																								}
																						}
																					else
																						{	/* Unsafe/ftp.scm 149 */
																							int BgL_curz00_1501;

																							BgL_curz00_1501 =
																								RGC_BUFFER_GET_CHAR
																								(BgL_iportz00_1491,
																								BgL_forwardz00_1493);
																							{	/* Unsafe/ftp.scm 149 */

																								{	/* Unsafe/ftp.scm 149 */
																									bool_t BgL_test2949z00_4749;

																									if (
																										((long) (BgL_curz00_1501) >=
																											48L))
																										{	/* Unsafe/ftp.scm 149 */
																											BgL_test2949z00_4749 =
																												(
																												(long) (BgL_curz00_1501)
																												< 58L);
																										}
																									else
																										{	/* Unsafe/ftp.scm 149 */
																											BgL_test2949z00_4749 =
																												((bool_t) 0);
																										}
																									if (BgL_test2949z00_4749)
																										{	/* Unsafe/ftp.scm 149 */
																											BgL_iportz00_1432 =
																												BgL_iportz00_1491;
																											BgL_lastzd2matchzd2_1433 =
																												BgL_newzd2matchzd2_1496;
																											BgL_forwardz00_1434 =
																												(1L +
																												BgL_forwardz00_1493);
																											BgL_bufposz00_1435 =
																												BgL_bufposz00_1494;
																										BgL_zc3z04anonymousza31408ze3z87_1436:
																											{	/* Unsafe/ftp.scm 149 */
																												long
																													BgL_newzd2matchzd2_1437;
																												if (rgc_buffer_bol_p
																													(BgL_iportz00_1432))
																													{	/* Unsafe/ftp.scm 149 */
																														RGC_STOP_MATCH
																															(BgL_iportz00_1432,
																															BgL_forwardz00_1434);
																														BgL_newzd2matchzd2_1437
																															= 3L;
																													}
																												else
																													{	/* Unsafe/ftp.scm 149 */
																														BgL_newzd2matchzd2_1437
																															=
																															BgL_lastzd2matchzd2_1433;
																													}
																												if (
																													(BgL_forwardz00_1434
																														==
																														BgL_bufposz00_1435))
																													{	/* Unsafe/ftp.scm 149 */
																														if (rgc_fill_buffer
																															(BgL_iportz00_1432))
																															{	/* Unsafe/ftp.scm 149 */
																																long
																																	BgL_arg1411z00_1440;
																																long
																																	BgL_arg1412z00_1441;
																																BgL_arg1411z00_1440
																																	=
																																	RGC_BUFFER_FORWARD
																																	(BgL_iportz00_1432);
																																BgL_arg1412z00_1441
																																	=
																																	RGC_BUFFER_BUFPOS
																																	(BgL_iportz00_1432);
																																{
																																	long
																																		BgL_bufposz00_4765;
																																	long
																																		BgL_forwardz00_4764;
																																	BgL_forwardz00_4764
																																		=
																																		BgL_arg1411z00_1440;
																																	BgL_bufposz00_4765
																																		=
																																		BgL_arg1412z00_1441;
																																	BgL_bufposz00_1435
																																		=
																																		BgL_bufposz00_4765;
																																	BgL_forwardz00_1434
																																		=
																																		BgL_forwardz00_4764;
																																	goto
																																		BgL_zc3z04anonymousza31408ze3z87_1436;
																																}
																															}
																														else
																															{	/* Unsafe/ftp.scm 149 */
																																BgL_matchz00_1726
																																	=
																																	BgL_newzd2matchzd2_1437;
																															}
																													}
																												else
																													{	/* Unsafe/ftp.scm 149 */
																														int BgL_curz00_1442;

																														BgL_curz00_1442 =
																															RGC_BUFFER_GET_CHAR
																															(BgL_iportz00_1432,
																															BgL_forwardz00_1434);
																														{	/* Unsafe/ftp.scm 149 */

																															if (
																																((long)
																																	(BgL_curz00_1442)
																																	== 45L))
																																{	/* Unsafe/ftp.scm 149 */
																																	BgL_iportz00_1454
																																		=
																																		BgL_iportz00_1432;
																																	BgL_lastzd2matchzd2_1455
																																		=
																																		BgL_newzd2matchzd2_1437;
																																	BgL_forwardz00_1456
																																		=
																																		(1L +
																																		BgL_forwardz00_1434);
																																	BgL_bufposz00_1457
																																		=
																																		BgL_bufposz00_1435;
																																BgL_zc3z04anonymousza31422ze3z87_1458:
																																	{	/* Unsafe/ftp.scm 149 */
																																		long
																																			BgL_newzd2matchzd2_1459;
																																		if (rgc_buffer_bol_p(BgL_iportz00_1454))
																																			{	/* Unsafe/ftp.scm 149 */
																																				RGC_STOP_MATCH
																																					(BgL_iportz00_1454,
																																					BgL_forwardz00_1456);
																																				BgL_newzd2matchzd2_1459
																																					= 0L;
																																			}
																																		else
																																			{	/* Unsafe/ftp.scm 149 */
																																				if (rgc_buffer_bol_p(BgL_iportz00_1454))
																																					{	/* Unsafe/ftp.scm 149 */
																																						RGC_STOP_MATCH
																																							(BgL_iportz00_1454,
																																							BgL_forwardz00_1456);
																																						BgL_newzd2matchzd2_1459
																																							=
																																							3L;
																																					}
																																				else
																																					{	/* Unsafe/ftp.scm 149 */
																																						BgL_newzd2matchzd2_1459
																																							=
																																							BgL_lastzd2matchzd2_1455;
																																					}
																																			}
																																		if (
																																			(BgL_forwardz00_1456
																																				==
																																				BgL_bufposz00_1457))
																																			{	/* Unsafe/ftp.scm 149 */
																																				if (rgc_fill_buffer(BgL_iportz00_1454))
																																					{	/* Unsafe/ftp.scm 149 */
																																						long
																																							BgL_arg1425z00_1462;
																																						long
																																							BgL_arg1426z00_1463;
																																						BgL_arg1425z00_1462
																																							=
																																							RGC_BUFFER_FORWARD
																																							(BgL_iportz00_1454);
																																						BgL_arg1426z00_1463
																																							=
																																							RGC_BUFFER_BUFPOS
																																							(BgL_iportz00_1454);
																																						{
																																							long
																																								BgL_bufposz00_4783;
																																							long
																																								BgL_forwardz00_4782;
																																							BgL_forwardz00_4782
																																								=
																																								BgL_arg1425z00_1462;
																																							BgL_bufposz00_4783
																																								=
																																								BgL_arg1426z00_1463;
																																							BgL_bufposz00_1457
																																								=
																																								BgL_bufposz00_4783;
																																							BgL_forwardz00_1456
																																								=
																																								BgL_forwardz00_4782;
																																							goto
																																								BgL_zc3z04anonymousza31422ze3z87_1458;
																																						}
																																					}
																																				else
																																					{	/* Unsafe/ftp.scm 149 */
																																						BgL_matchz00_1726
																																							=
																																							BgL_newzd2matchzd2_1459;
																																					}
																																			}
																																		else
																																			{	/* Unsafe/ftp.scm 149 */
																																				int
																																					BgL_curz00_1464;
																																				BgL_curz00_1464
																																					=
																																					RGC_BUFFER_GET_CHAR
																																					(BgL_iportz00_1454,
																																					BgL_forwardz00_1456);
																																				{	/* Unsafe/ftp.scm 149 */

																																					if (
																																						((long) (BgL_curz00_1464) == 10L))
																																						{	/* Unsafe/ftp.scm 149 */
																																							BgL_matchz00_1726
																																								=
																																								BgL_newzd2matchzd2_1459;
																																						}
																																					else
																																						{
																																							long
																																								BgL_forwardz00_4789;
																																							long
																																								BgL_lastzd2matchzd2_4788;
																																							BgL_lastzd2matchzd2_4788
																																								=
																																								BgL_newzd2matchzd2_1459;
																																							BgL_forwardz00_4789
																																								=
																																								(1L
																																								+
																																								BgL_forwardz00_1456);
																																							BgL_forwardz00_1456
																																								=
																																								BgL_forwardz00_4789;
																																							BgL_lastzd2matchzd2_1455
																																								=
																																								BgL_lastzd2matchzd2_4788;
																																							goto
																																								BgL_zc3z04anonymousza31422ze3z87_1458;
																																						}
																																				}
																																			}
																																	}
																																}
																															else
																																{	/* Unsafe/ftp.scm 149 */
																																	if (
																																		((long)
																																			(BgL_curz00_1442)
																																			== 32L))
																																		{	/* Unsafe/ftp.scm 149 */
																																			BgL_iportz00_1513
																																				=
																																				BgL_iportz00_1432;
																																			BgL_lastzd2matchzd2_1514
																																				=
																																				BgL_newzd2matchzd2_1437;
																																			BgL_forwardz00_1515
																																				=
																																				(1L +
																																				BgL_forwardz00_1434);
																																			BgL_bufposz00_1516
																																				=
																																				BgL_bufposz00_1435;
																																		BgL_zc3z04anonymousza31457ze3z87_1517:
																																			{	/* Unsafe/ftp.scm 149 */
																																				long
																																					BgL_newzd2matchzd2_1518;
																																				if (rgc_buffer_bol_p(BgL_iportz00_1513))
																																					{	/* Unsafe/ftp.scm 149 */
																																						RGC_STOP_MATCH
																																							(BgL_iportz00_1513,
																																							BgL_forwardz00_1515);
																																						BgL_newzd2matchzd2_1518
																																							=
																																							1L;
																																					}
																																				else
																																					{	/* Unsafe/ftp.scm 149 */
																																						if (rgc_buffer_bol_p(BgL_iportz00_1513))
																																							{	/* Unsafe/ftp.scm 149 */
																																								RGC_STOP_MATCH
																																									(BgL_iportz00_1513,
																																									BgL_forwardz00_1515);
																																								BgL_newzd2matchzd2_1518
																																									=
																																									3L;
																																							}
																																						else
																																							{	/* Unsafe/ftp.scm 149 */
																																								BgL_newzd2matchzd2_1518
																																									=
																																									BgL_lastzd2matchzd2_1514;
																																							}
																																					}
																																				if (
																																					(BgL_forwardz00_1515
																																						==
																																						BgL_bufposz00_1516))
																																					{	/* Unsafe/ftp.scm 149 */
																																						if (rgc_fill_buffer(BgL_iportz00_1513))
																																							{	/* Unsafe/ftp.scm 149 */
																																								long
																																									BgL_arg1460z00_1521;
																																								long
																																									BgL_arg1461z00_1522;
																																								BgL_arg1460z00_1521
																																									=
																																									RGC_BUFFER_FORWARD
																																									(BgL_iportz00_1513);
																																								BgL_arg1461z00_1522
																																									=
																																									RGC_BUFFER_BUFPOS
																																									(BgL_iportz00_1513);
																																								{
																																									long
																																										BgL_bufposz00_4808;
																																									long
																																										BgL_forwardz00_4807;
																																									BgL_forwardz00_4807
																																										=
																																										BgL_arg1460z00_1521;
																																									BgL_bufposz00_4808
																																										=
																																										BgL_arg1461z00_1522;
																																									BgL_bufposz00_1516
																																										=
																																										BgL_bufposz00_4808;
																																									BgL_forwardz00_1515
																																										=
																																										BgL_forwardz00_4807;
																																									goto
																																										BgL_zc3z04anonymousza31457ze3z87_1517;
																																								}
																																							}
																																						else
																																							{	/* Unsafe/ftp.scm 149 */
																																								BgL_matchz00_1726
																																									=
																																									BgL_newzd2matchzd2_1518;
																																							}
																																					}
																																				else
																																					{	/* Unsafe/ftp.scm 149 */
																																						int
																																							BgL_curz00_1523;
																																						BgL_curz00_1523
																																							=
																																							RGC_BUFFER_GET_CHAR
																																							(BgL_iportz00_1513,
																																							BgL_forwardz00_1515);
																																						{	/* Unsafe/ftp.scm 149 */

																																							if (((long) (BgL_curz00_1523) == 10L))
																																								{	/* Unsafe/ftp.scm 149 */
																																									BgL_matchz00_1726
																																										=
																																										BgL_newzd2matchzd2_1518;
																																								}
																																							else
																																								{
																																									long
																																										BgL_forwardz00_4814;
																																									long
																																										BgL_lastzd2matchzd2_4813;
																																									BgL_lastzd2matchzd2_4813
																																										=
																																										BgL_newzd2matchzd2_1518;
																																									BgL_forwardz00_4814
																																										=
																																										(1L
																																										+
																																										BgL_forwardz00_1515);
																																									BgL_forwardz00_1515
																																										=
																																										BgL_forwardz00_4814;
																																									BgL_lastzd2matchzd2_1514
																																										=
																																										BgL_lastzd2matchzd2_4813;
																																									goto
																																										BgL_zc3z04anonymousza31457ze3z87_1517;
																																								}
																																						}
																																					}
																																			}
																																		}
																																	else
																																		{	/* Unsafe/ftp.scm 149 */
																																			bool_t
																																				BgL_test2966z00_4817;
																																			if ((
																																					(long)
																																					(BgL_curz00_1442)
																																					==
																																					10L))
																																				{	/* Unsafe/ftp.scm 149 */
																																					BgL_test2966z00_4817
																																						=
																																						(
																																						(bool_t)
																																						1);
																																				}
																																			else
																																				{	/* Unsafe/ftp.scm 149 */
																																					if (
																																						((long) (BgL_curz00_1442) == 32L))
																																						{	/* Unsafe/ftp.scm 149 */
																																							BgL_test2966z00_4817
																																								=
																																								(
																																								(bool_t)
																																								1);
																																						}
																																					else
																																						{	/* Unsafe/ftp.scm 149 */
																																							BgL_test2966z00_4817
																																								=
																																								(
																																								(long)
																																								(BgL_curz00_1442)
																																								==
																																								45L);
																																				}}
																																			if (BgL_test2966z00_4817)
																																				{	/* Unsafe/ftp.scm 149 */
																																					BgL_matchz00_1726
																																						=
																																						BgL_newzd2matchzd2_1437;
																																				}
																																			else
																																				{	/* Unsafe/ftp.scm 149 */
																																					BgL_iportz00_1563
																																						=
																																						BgL_iportz00_1432;
																																					BgL_lastzd2matchzd2_1564
																																						=
																																						BgL_newzd2matchzd2_1437;
																																					BgL_forwardz00_1565
																																						=
																																						(1L
																																						+
																																						BgL_forwardz00_1434);
																																					BgL_bufposz00_1566
																																						=
																																						BgL_bufposz00_1435;
																																				BgL_zc3z04anonymousza31491ze3z87_1567:
																																					{	/* Unsafe/ftp.scm 149 */
																																						long
																																							BgL_newzd2matchzd2_1568;
																																						if (rgc_buffer_bol_p(BgL_iportz00_1563))
																																							{	/* Unsafe/ftp.scm 149 */
																																								RGC_STOP_MATCH
																																									(BgL_iportz00_1563,
																																									BgL_forwardz00_1565);
																																								BgL_newzd2matchzd2_1568
																																									=
																																									3L;
																																							}
																																						else
																																							{	/* Unsafe/ftp.scm 149 */
																																								BgL_newzd2matchzd2_1568
																																									=
																																									BgL_lastzd2matchzd2_1564;
																																							}
																																						if (
																																							(BgL_forwardz00_1565
																																								==
																																								BgL_bufposz00_1566))
																																							{	/* Unsafe/ftp.scm 149 */
																																								if (rgc_fill_buffer(BgL_iportz00_1563))
																																									{	/* Unsafe/ftp.scm 149 */
																																										long
																																											BgL_arg1494z00_1571;
																																										long
																																											BgL_arg1495z00_1572;
																																										BgL_arg1494z00_1571
																																											=
																																											RGC_BUFFER_FORWARD
																																											(BgL_iportz00_1563);
																																										BgL_arg1495z00_1572
																																											=
																																											RGC_BUFFER_BUFPOS
																																											(BgL_iportz00_1563);
																																										{
																																											long
																																												BgL_bufposz00_4836;
																																											long
																																												BgL_forwardz00_4835;
																																											BgL_forwardz00_4835
																																												=
																																												BgL_arg1494z00_1571;
																																											BgL_bufposz00_4836
																																												=
																																												BgL_arg1495z00_1572;
																																											BgL_bufposz00_1566
																																												=
																																												BgL_bufposz00_4836;
																																											BgL_forwardz00_1565
																																												=
																																												BgL_forwardz00_4835;
																																											goto
																																												BgL_zc3z04anonymousza31491ze3z87_1567;
																																										}
																																									}
																																								else
																																									{	/* Unsafe/ftp.scm 149 */
																																										BgL_matchz00_1726
																																											=
																																											BgL_newzd2matchzd2_1568;
																																									}
																																							}
																																						else
																																							{	/* Unsafe/ftp.scm 149 */
																																								int
																																									BgL_curz00_1573;
																																								BgL_curz00_1573
																																									=
																																									RGC_BUFFER_GET_CHAR
																																									(BgL_iportz00_1563,
																																									BgL_forwardz00_1565);
																																								{	/* Unsafe/ftp.scm 149 */

																																									if (((long) (BgL_curz00_1573) == 10L))
																																										{	/* Unsafe/ftp.scm 149 */
																																											BgL_matchz00_1726
																																												=
																																												BgL_newzd2matchzd2_1568;
																																										}
																																									else
																																										{
																																											long
																																												BgL_forwardz00_4842;
																																											long
																																												BgL_lastzd2matchzd2_4841;
																																											BgL_lastzd2matchzd2_4841
																																												=
																																												BgL_newzd2matchzd2_1568;
																																											BgL_forwardz00_4842
																																												=
																																												(1L
																																												+
																																												BgL_forwardz00_1565);
																																											BgL_forwardz00_1565
																																												=
																																												BgL_forwardz00_4842;
																																											BgL_lastzd2matchzd2_1564
																																												=
																																												BgL_lastzd2matchzd2_4841;
																																											goto
																																												BgL_zc3z04anonymousza31491ze3z87_1567;
																																										}
																																								}
																																							}
																																					}
																																				}
																																		}
																																}
																														}
																													}
																											}
																										}
																									else
																										{	/* Unsafe/ftp.scm 149 */
																											bool_t
																												BgL_test2973z00_4846;
																											if (((long)
																													(BgL_curz00_1501) ==
																													10L))
																												{	/* Unsafe/ftp.scm 149 */
																													BgL_test2973z00_4846 =
																														((bool_t) 1);
																												}
																											else
																												{	/* Unsafe/ftp.scm 149 */
																													if (
																														((long)
																															(BgL_curz00_1501)
																															>= 48L))
																														{	/* Unsafe/ftp.scm 149 */
																															BgL_test2973z00_4846
																																=
																																((long)
																																(BgL_curz00_1501)
																																< 58L);
																														}
																													else
																														{	/* Unsafe/ftp.scm 149 */
																															BgL_test2973z00_4846
																																= ((bool_t) 0);
																														}
																												}
																											if (BgL_test2973z00_4846)
																												{	/* Unsafe/ftp.scm 149 */
																													BgL_matchz00_1726 =
																														BgL_newzd2matchzd2_1496;
																												}
																											else
																												{
																													long
																														BgL_bufposz00_4859;
																													long
																														BgL_forwardz00_4857;
																													long
																														BgL_lastzd2matchzd2_4856;
																													obj_t
																														BgL_iportz00_4855;
																													BgL_iportz00_4855 =
																														BgL_iportz00_1491;
																													BgL_lastzd2matchzd2_4856
																														=
																														BgL_newzd2matchzd2_1496;
																													BgL_forwardz00_4857 =
																														(1L +
																														BgL_forwardz00_1493);
																													BgL_bufposz00_4859 =
																														BgL_bufposz00_1494;
																													BgL_bufposz00_1566 =
																														BgL_bufposz00_4859;
																													BgL_forwardz00_1565 =
																														BgL_forwardz00_4857;
																													BgL_lastzd2matchzd2_1564
																														=
																														BgL_lastzd2matchzd2_4856;
																													BgL_iportz00_1563 =
																														BgL_iportz00_4855;
																													goto
																														BgL_zc3z04anonymousza31491ze3z87_1567;
																												}
																										}
																								}
																							}
																						}
																				}
																			}
																		else
																			{	/* Unsafe/ftp.scm 149 */
																				bool_t BgL_test2976z00_4861;

																				if (((long) (BgL_curz00_1479) == 10L))
																					{	/* Unsafe/ftp.scm 149 */
																						BgL_test2976z00_4861 = ((bool_t) 1);
																					}
																				else
																					{	/* Unsafe/ftp.scm 149 */
																						if (
																							((long) (BgL_curz00_1479) >= 48L))
																							{	/* Unsafe/ftp.scm 149 */
																								BgL_test2976z00_4861 =
																									(
																									(long) (BgL_curz00_1479) <
																									58L);
																							}
																						else
																							{	/* Unsafe/ftp.scm 149 */
																								BgL_test2976z00_4861 =
																									((bool_t) 0);
																							}
																					}
																				if (BgL_test2976z00_4861)
																					{	/* Unsafe/ftp.scm 149 */
																						BgL_matchz00_1726 =
																							BgL_newzd2matchzd2_1474;
																					}
																				else
																					{
																						long BgL_bufposz00_4874;
																						long BgL_forwardz00_4872;
																						long BgL_lastzd2matchzd2_4871;
																						obj_t BgL_iportz00_4870;

																						BgL_iportz00_4870 =
																							BgL_iportz00_1469;
																						BgL_lastzd2matchzd2_4871 =
																							BgL_newzd2matchzd2_1474;
																						BgL_forwardz00_4872 =
																							(1L + BgL_forwardz00_1471);
																						BgL_bufposz00_4874 =
																							BgL_bufposz00_1472;
																						BgL_bufposz00_1566 =
																							BgL_bufposz00_4874;
																						BgL_forwardz00_1565 =
																							BgL_forwardz00_4872;
																						BgL_lastzd2matchzd2_1564 =
																							BgL_lastzd2matchzd2_4871;
																						BgL_iportz00_1563 =
																							BgL_iportz00_4870;
																						goto
																							BgL_zc3z04anonymousza31491ze3z87_1567;
																					}
																			}
																	}
																}
															}
													}
												}
											else
												{	/* Unsafe/ftp.scm 149 */
													if (((long) (BgL_curz00_1538) == 32L))
														{	/* Unsafe/ftp.scm 149 */
															BgL_iportz00_1577 = BgL_iportz00_1528;
															BgL_lastzd2matchzd2_1578 =
																BgL_newzd2matchzd2_1533;
															BgL_forwardz00_1579 = (1L + BgL_forwardz00_1530);
															BgL_bufposz00_1580 = BgL_bufposz00_1531;
														BgL_zc3z04anonymousza31499ze3z87_1581:
															{	/* Unsafe/ftp.scm 149 */
																long BgL_newzd2matchzd2_1582;

																if (rgc_buffer_bol_p(BgL_iportz00_1577))
																	{	/* Unsafe/ftp.scm 149 */
																		RGC_STOP_MATCH(BgL_iportz00_1577,
																			BgL_forwardz00_1579);
																		BgL_newzd2matchzd2_1582 = 2L;
																	}
																else
																	{	/* Unsafe/ftp.scm 149 */
																		if (rgc_buffer_bol_p(BgL_iportz00_1577))
																			{	/* Unsafe/ftp.scm 149 */
																				RGC_STOP_MATCH(BgL_iportz00_1577,
																					BgL_forwardz00_1579);
																				BgL_newzd2matchzd2_1582 = 3L;
																			}
																		else
																			{	/* Unsafe/ftp.scm 149 */
																				RGC_STOP_MATCH(BgL_iportz00_1577,
																					BgL_forwardz00_1579);
																				BgL_newzd2matchzd2_1582 = 4L;
																			}
																	}
																if ((BgL_forwardz00_1579 == BgL_bufposz00_1580))
																	{	/* Unsafe/ftp.scm 149 */
																		if (rgc_fill_buffer(BgL_iportz00_1577))
																			{	/* Unsafe/ftp.scm 149 */
																				long BgL_arg1502z00_1585;
																				long BgL_arg1505z00_1586;

																				BgL_arg1502z00_1585 =
																					RGC_BUFFER_FORWARD(BgL_iportz00_1577);
																				BgL_arg1505z00_1586 =
																					RGC_BUFFER_BUFPOS(BgL_iportz00_1577);
																				{
																					long BgL_bufposz00_4893;
																					long BgL_forwardz00_4892;

																					BgL_forwardz00_4892 =
																						BgL_arg1502z00_1585;
																					BgL_bufposz00_4893 =
																						BgL_arg1505z00_1586;
																					BgL_bufposz00_1580 =
																						BgL_bufposz00_4893;
																					BgL_forwardz00_1579 =
																						BgL_forwardz00_4892;
																					goto
																						BgL_zc3z04anonymousza31499ze3z87_1581;
																				}
																			}
																		else
																			{	/* Unsafe/ftp.scm 149 */
																				BgL_matchz00_1726 =
																					BgL_newzd2matchzd2_1582;
																			}
																	}
																else
																	{	/* Unsafe/ftp.scm 149 */
																		int BgL_curz00_1587;

																		BgL_curz00_1587 =
																			RGC_BUFFER_GET_CHAR(BgL_iportz00_1577,
																			BgL_forwardz00_1579);
																		{	/* Unsafe/ftp.scm 149 */

																			if (((long) (BgL_curz00_1587) == 10L))
																				{	/* Unsafe/ftp.scm 149 */
																					BgL_matchz00_1726 =
																						BgL_newzd2matchzd2_1582;
																				}
																			else
																				{	/* Unsafe/ftp.scm 149 */
																					BgL_iportz00_1597 = BgL_iportz00_1577;
																					BgL_lastzd2matchzd2_1598 =
																						BgL_newzd2matchzd2_1582;
																					BgL_forwardz00_1599 =
																						(1L + BgL_forwardz00_1579);
																					BgL_bufposz00_1600 =
																						BgL_bufposz00_1580;
																				BgL_zc3z04anonymousza31511ze3z87_1601:
																					{	/* Unsafe/ftp.scm 149 */
																						long BgL_newzd2matchzd2_1602;

																						if (rgc_buffer_bol_p
																							(BgL_iportz00_1597))
																							{	/* Unsafe/ftp.scm 149 */
																								RGC_STOP_MATCH
																									(BgL_iportz00_1597,
																									BgL_forwardz00_1599);
																								BgL_newzd2matchzd2_1602 = 2L;
																							}
																						else
																							{	/* Unsafe/ftp.scm 149 */
																								if (rgc_buffer_bol_p
																									(BgL_iportz00_1597))
																									{	/* Unsafe/ftp.scm 149 */
																										RGC_STOP_MATCH
																											(BgL_iportz00_1597,
																											BgL_forwardz00_1599);
																										BgL_newzd2matchzd2_1602 =
																											3L;
																									}
																								else
																									{	/* Unsafe/ftp.scm 149 */
																										BgL_newzd2matchzd2_1602 =
																											BgL_lastzd2matchzd2_1598;
																									}
																							}
																						if (
																							(BgL_forwardz00_1599 ==
																								BgL_bufposz00_1600))
																							{	/* Unsafe/ftp.scm 149 */
																								if (rgc_fill_buffer
																									(BgL_iportz00_1597))
																									{	/* Unsafe/ftp.scm 149 */
																										long BgL_arg1514z00_1605;
																										long BgL_arg1515z00_1606;

																										BgL_arg1514z00_1605 =
																											RGC_BUFFER_FORWARD
																											(BgL_iportz00_1597);
																										BgL_arg1515z00_1606 =
																											RGC_BUFFER_BUFPOS
																											(BgL_iportz00_1597);
																										{
																											long BgL_bufposz00_4911;
																											long BgL_forwardz00_4910;

																											BgL_forwardz00_4910 =
																												BgL_arg1514z00_1605;
																											BgL_bufposz00_4911 =
																												BgL_arg1515z00_1606;
																											BgL_bufposz00_1600 =
																												BgL_bufposz00_4911;
																											BgL_forwardz00_1599 =
																												BgL_forwardz00_4910;
																											goto
																												BgL_zc3z04anonymousza31511ze3z87_1601;
																										}
																									}
																								else
																									{	/* Unsafe/ftp.scm 149 */
																										BgL_matchz00_1726 =
																											BgL_newzd2matchzd2_1602;
																									}
																							}
																						else
																							{	/* Unsafe/ftp.scm 149 */
																								int BgL_curz00_1607;

																								BgL_curz00_1607 =
																									RGC_BUFFER_GET_CHAR
																									(BgL_iportz00_1597,
																									BgL_forwardz00_1599);
																								{	/* Unsafe/ftp.scm 149 */

																									if (
																										((long) (BgL_curz00_1607) ==
																											10L))
																										{	/* Unsafe/ftp.scm 149 */
																											BgL_matchz00_1726 =
																												BgL_newzd2matchzd2_1602;
																										}
																									else
																										{
																											long BgL_forwardz00_4917;
																											long
																												BgL_lastzd2matchzd2_4916;
																											BgL_lastzd2matchzd2_4916 =
																												BgL_newzd2matchzd2_1602;
																											BgL_forwardz00_4917 =
																												(1L +
																												BgL_forwardz00_1599);
																											BgL_forwardz00_1599 =
																												BgL_forwardz00_4917;
																											BgL_lastzd2matchzd2_1598 =
																												BgL_lastzd2matchzd2_4916;
																											goto
																												BgL_zc3z04anonymousza31511ze3z87_1601;
																										}
																								}
																							}
																					}
																				}
																		}
																	}
															}
														}
													else
														{	/* Unsafe/ftp.scm 149 */
															if (((long) (BgL_curz00_1538) == 10L))
																{	/* Unsafe/ftp.scm 149 */
																	long BgL_arg1479z00_1545;

																	BgL_arg1479z00_1545 =
																		(1L + BgL_forwardz00_1530);
																	{	/* Unsafe/ftp.scm 149 */
																		long BgL_newzd2matchzd2_3046;

																		RGC_STOP_MATCH(BgL_iportz00_1528,
																			BgL_arg1479z00_1545);
																		BgL_newzd2matchzd2_3046 = 4L;
																		BgL_matchz00_1726 = BgL_newzd2matchzd2_3046;
																}}
															else
																{	/* Unsafe/ftp.scm 149 */
																	BgL_iportz00_1549 = BgL_iportz00_1528;
																	BgL_lastzd2matchzd2_1550 =
																		BgL_newzd2matchzd2_1533;
																	BgL_forwardz00_1551 =
																		(1L + BgL_forwardz00_1530);
																	BgL_bufposz00_1552 = BgL_bufposz00_1531;
																BgL_zc3z04anonymousza31482ze3z87_1553:
																	{	/* Unsafe/ftp.scm 149 */
																		long BgL_newzd2matchzd2_1554;

																		if (rgc_buffer_bol_p(BgL_iportz00_1549))
																			{	/* Unsafe/ftp.scm 149 */
																				RGC_STOP_MATCH(BgL_iportz00_1549,
																					BgL_forwardz00_1551);
																				BgL_newzd2matchzd2_1554 = 3L;
																			}
																		else
																			{	/* Unsafe/ftp.scm 149 */
																				RGC_STOP_MATCH(BgL_iportz00_1549,
																					BgL_forwardz00_1551);
																				BgL_newzd2matchzd2_1554 = 4L;
																			}
																		if (
																			(BgL_forwardz00_1551 ==
																				BgL_bufposz00_1552))
																			{	/* Unsafe/ftp.scm 149 */
																				if (rgc_fill_buffer(BgL_iportz00_1549))
																					{	/* Unsafe/ftp.scm 149 */
																						long BgL_arg1486z00_1557;
																						long BgL_arg1487z00_1558;

																						BgL_arg1486z00_1557 =
																							RGC_BUFFER_FORWARD
																							(BgL_iportz00_1549);
																						BgL_arg1487z00_1558 =
																							RGC_BUFFER_BUFPOS
																							(BgL_iportz00_1549);
																						{
																							long BgL_bufposz00_4937;
																							long BgL_forwardz00_4936;

																							BgL_forwardz00_4936 =
																								BgL_arg1486z00_1557;
																							BgL_bufposz00_4937 =
																								BgL_arg1487z00_1558;
																							BgL_bufposz00_1552 =
																								BgL_bufposz00_4937;
																							BgL_forwardz00_1551 =
																								BgL_forwardz00_4936;
																							goto
																								BgL_zc3z04anonymousza31482ze3z87_1553;
																						}
																					}
																				else
																					{	/* Unsafe/ftp.scm 149 */
																						BgL_matchz00_1726 =
																							BgL_newzd2matchzd2_1554;
																					}
																			}
																		else
																			{	/* Unsafe/ftp.scm 149 */
																				int BgL_curz00_1559;

																				BgL_curz00_1559 =
																					RGC_BUFFER_GET_CHAR(BgL_iportz00_1549,
																					BgL_forwardz00_1551);
																				{	/* Unsafe/ftp.scm 149 */

																					if (((long) (BgL_curz00_1559) == 10L))
																						{	/* Unsafe/ftp.scm 149 */
																							BgL_matchz00_1726 =
																								BgL_newzd2matchzd2_1554;
																						}
																					else
																						{
																							long BgL_bufposz00_4946;
																							long BgL_forwardz00_4944;
																							long BgL_lastzd2matchzd2_4943;
																							obj_t BgL_iportz00_4942;

																							BgL_iportz00_4942 =
																								BgL_iportz00_1549;
																							BgL_lastzd2matchzd2_4943 =
																								BgL_newzd2matchzd2_1554;
																							BgL_forwardz00_4944 =
																								(1L + BgL_forwardz00_1551);
																							BgL_bufposz00_4946 =
																								BgL_bufposz00_1552;
																							BgL_bufposz00_1566 =
																								BgL_bufposz00_4946;
																							BgL_forwardz00_1565 =
																								BgL_forwardz00_4944;
																							BgL_lastzd2matchzd2_1564 =
																								BgL_lastzd2matchzd2_4943;
																							BgL_iportz00_1563 =
																								BgL_iportz00_4942;
																							goto
																								BgL_zc3z04anonymousza31491ze3z87_1567;
																						}
																				}
																			}
																	}
																}
														}
												}
										}
									}
								}
						}
					}
					RGC_SET_FILEPOS(BgL_iportz00_4190);
					{

						switch (BgL_matchz00_1726)
							{
							case 4L:

								{	/* Unsafe/ftp.scm 166 */
									BgL_z62ftpzd2parsezd2errorz62_bglt BgL_arg1623z00_1731;

									{	/* Unsafe/ftp.scm 166 */
										BgL_z62ftpzd2parsezd2errorz62_bglt BgL_new1100z00_1732;

										{	/* Unsafe/ftp.scm 169 */
											BgL_z62ftpzd2parsezd2errorz62_bglt BgL_new1099z00_1735;

											BgL_new1099z00_1735 =
												((BgL_z62ftpzd2parsezd2errorz62_bglt)
												BOBJECT(GC_MALLOC(sizeof(struct
															BgL_z62ftpzd2parsezd2errorz62_bgl))));
											{	/* Unsafe/ftp.scm 169 */
												long BgL_arg1626z00_1736;

												BgL_arg1626z00_1736 =
													BGL_CLASS_NUM
													(BGl_z62ftpzd2parsezd2errorz62zz__ftpz00);
												BGL_OBJECT_CLASS_NUM_SET(((BgL_objectz00_bglt)
														BgL_new1099z00_1735), BgL_arg1626z00_1736);
											}
											BgL_new1100z00_1732 = BgL_new1099z00_1735;
										}
										((((BgL_z62exceptionz62_bglt) COBJECT(
														((BgL_z62exceptionz62_bglt) BgL_new1100z00_1732)))->
												BgL_fnamez00) = ((obj_t) BFALSE), BUNSPEC);
										((((BgL_z62exceptionz62_bglt)
													COBJECT(((BgL_z62exceptionz62_bglt)
															BgL_new1100z00_1732)))->BgL_locationz00) =
											((obj_t) BFALSE), BUNSPEC);
										{
											obj_t BgL_auxz00_4957;

											{	/* Unsafe/ftp.scm 169 */
												obj_t BgL_arg1624z00_1733;

												{	/* Unsafe/ftp.scm 169 */
													obj_t BgL_arg1625z00_1734;

													{	/* Unsafe/ftp.scm 169 */
														obj_t BgL_classz00_3138;

														BgL_classz00_3138 =
															BGl_z62ftpzd2parsezd2errorz62zz__ftpz00;
														BgL_arg1625z00_1734 =
															BGL_CLASS_ALL_FIELDS(BgL_classz00_3138);
													}
													BgL_arg1624z00_1733 =
														VECTOR_REF(BgL_arg1625z00_1734, 2L);
												}
												BgL_auxz00_4957 =
													BGl_classzd2fieldzd2defaultzd2valuezd2zz__objectz00
													(BgL_arg1624z00_1733);
											}
											((((BgL_z62exceptionz62_bglt) COBJECT(
															((BgL_z62exceptionz62_bglt)
																BgL_new1100z00_1732)))->BgL_stackz00) =
												((obj_t) BgL_auxz00_4957), BUNSPEC);
										}
										((((BgL_z62errorz62_bglt) COBJECT(
														((BgL_z62errorz62_bglt) BgL_new1100z00_1732)))->
												BgL_procz00) =
											((obj_t) BGl_string2539z00zz__ftpz00), BUNSPEC);
										((((BgL_z62errorz62_bglt) COBJECT(((BgL_z62errorz62_bglt)
															BgL_new1100z00_1732)))->BgL_msgz00) =
											((obj_t) BGl_string2540z00zz__ftpz00), BUNSPEC);
										((((BgL_z62errorz62_bglt) COBJECT(((BgL_z62errorz62_bglt)
															BgL_new1100z00_1732)))->BgL_objz00) =
											((obj_t) BgL_msgz00_4192), BUNSPEC);
										BgL_arg1623z00_1731 = BgL_new1100z00_1732;
									}
									return
										BGl_raisez00zz__errorz00(((obj_t) BgL_arg1623z00_1731));
								}
								break;
							case 3L:

								{	/* Unsafe/ftp.scm 163 */
									obj_t BgL_auxz00_4196;

									{	/* Unsafe/ftp.scm 163 */
										obj_t BgL_arg1627z00_1737;

										{	/* Unsafe/ftp.scm 149 */
											long BgL_arg1525z00_3140;

											BgL_arg1525z00_3140 =
												RGC_BUFFER_MATCH_LENGTH(BgL_iportz00_4190);
											BgL_arg1627z00_1737 =
												rgc_buffer_substring(BgL_iportz00_4190, 0L,
												BgL_arg1525z00_3140);
										}
										BgL_auxz00_4196 =
											string_append_3(
											((obj_t)
												((obj_t) BGL_UNSAFE_CELL_REF(BgL_mesgz00_4193))),
											BGl_string2541z00zz__ftpz00, BgL_arg1627z00_1737);
									}
									BGL_UNSAFE_CELL_SET(BgL_mesgz00_4193, BgL_auxz00_4196);
								}
								{	/* Unsafe/ftp.scm 164 */
									obj_t BgL_arg1628z00_1738;

									BgL_arg1628z00_1738 =
										BGl_readzd2linezd2zz__r4_input_6_10_2z00(BgL_ipz00_4194);
									return
										BGl_loopze70ze7zz__ftpz00(BgL_codez00_4195, BgL_ipz00_4194,
										BgL_mesgz00_4193, BgL_arg1628z00_1738);
								}
								break;
							case 2L:

								{	/* Unsafe/ftp.scm 160 */
									obj_t BgL_auxz00_4197;

									{	/* Unsafe/ftp.scm 160 */
										obj_t BgL_arg1629z00_1739;

										{	/* Unsafe/ftp.scm 160 */
											long BgL_arg1630z00_1740;

											BgL_arg1630z00_1740 =
												RGC_BUFFER_MATCH_LENGTH(BgL_iportz00_4190);
											BgL_arg1629z00_1739 =
												BGl_thezd2substringze70z35zz__ftpz00(BgL_iportz00_4190,
												(int) (1L), (int) (BgL_arg1630z00_1740));
										}
										BgL_auxz00_4197 =
											string_append_3(
											((obj_t)
												((obj_t) BGL_UNSAFE_CELL_REF(BgL_mesgz00_4193))),
											BGl_string2541z00zz__ftpz00, BgL_arg1629z00_1739);
									}
									BGL_UNSAFE_CELL_SET(BgL_mesgz00_4193, BgL_auxz00_4197);
								}
								{	/* Unsafe/ftp.scm 161 */
									obj_t BgL_arg1631z00_1741;

									BgL_arg1631z00_1741 =
										BGl_readzd2linezd2zz__r4_input_6_10_2z00(BgL_ipz00_4194);
									return
										BGl_loopze70ze7zz__ftpz00(BgL_codez00_4195, BgL_ipz00_4194,
										BgL_mesgz00_4193, BgL_arg1631z00_1741);
								}
								break;
							case 1L:

								{	/* Unsafe/ftp.scm 154 */
									obj_t BgL_code1z00_1742;
									obj_t BgL_mesg1z00_1743;

									{	/* Unsafe/ftp.scm 154 */
										obj_t BgL_arg1635z00_1748;

										BgL_arg1635z00_1748 =
											BGl_thezd2substringze70z35zz__ftpz00(BgL_iportz00_4190,
											(int) (0L), (int) (3L));
										{	/* Ieee/number.scm 173 */

											BgL_code1z00_1742 =
												BGl_stringzd2ze3numberz31zz__r4_numbers_6_5z00
												(BgL_arg1635z00_1748, BINT(10L));
									}}
									{	/* Unsafe/ftp.scm 155 */
										long BgL_arg1637z00_1751;

										BgL_arg1637z00_1751 =
											RGC_BUFFER_MATCH_LENGTH(BgL_iportz00_4190);
										BgL_mesg1z00_1743 =
											BGl_thezd2substringze70z35zz__ftpz00(BgL_iportz00_4190,
											(int) (4L), (int) (BgL_arg1637z00_1751));
									}
									{	/* Unsafe/ftp.scm 156 */
										obj_t BgL_auxz00_4198;

										BgL_auxz00_4198 =
											string_append_3(
											((obj_t)
												((obj_t) BGL_UNSAFE_CELL_REF(BgL_mesgz00_4193))),
											BGl_string2541z00zz__ftpz00, BgL_mesg1z00_1743);
										BGL_UNSAFE_CELL_SET(BgL_mesgz00_4193, BgL_auxz00_4198);
									}
									{	/* Unsafe/ftp.scm 157 */
										bool_t BgL_test2995z00_4996;

										{	/* Unsafe/ftp.scm 157 */
											bool_t BgL_test2996z00_4997;

											if (INTEGERP(BgL_codez00_4195))
												{	/* Unsafe/ftp.scm 157 */
													BgL_test2996z00_4997 = INTEGERP(BgL_code1z00_1742);
												}
											else
												{	/* Unsafe/ftp.scm 157 */
													BgL_test2996z00_4997 = ((bool_t) 0);
												}
											if (BgL_test2996z00_4997)
												{	/* Unsafe/ftp.scm 157 */
													BgL_test2995z00_4996 =
														(
														(long) CINT(BgL_codez00_4195) ==
														(long) CINT(BgL_code1z00_1742));
												}
											else
												{	/* Unsafe/ftp.scm 157 */
													BgL_test2995z00_4996 =
														BGl_2zd3zd3zz__r4_numbers_6_5z00(BgL_codez00_4195,
														BgL_code1z00_1742);
												}
										}
										if (BgL_test2995z00_4996)
											{	/* Unsafe/ftp.scm 157 */
												return BFALSE;
											}
										else
											{	/* Unsafe/ftp.scm 158 */
												obj_t BgL_arg1634z00_1746;

												BgL_arg1634z00_1746 =
													BGl_readzd2linezd2zz__r4_input_6_10_2z00
													(BgL_ipz00_4194);
												return BGl_loopze70ze7zz__ftpz00(BgL_codez00_4195,
													BgL_ipz00_4194, BgL_mesgz00_4193,
													BgL_arg1634z00_1746);
											}
									}
								}
								break;
							case 0L:

								{	/* Unsafe/ftp.scm 151 */
									obj_t BgL_auxz00_4199;

									{	/* Unsafe/ftp.scm 151 */
										obj_t BgL_arg1639z00_1752;

										{	/* Unsafe/ftp.scm 151 */
											long BgL_arg1641z00_1753;

											BgL_arg1641z00_1753 =
												RGC_BUFFER_MATCH_LENGTH(BgL_iportz00_4190);
											BgL_arg1639z00_1752 =
												BGl_thezd2substringze70z35zz__ftpz00(BgL_iportz00_4190,
												(int) (4L), (int) (BgL_arg1641z00_1753));
										}
										BgL_auxz00_4199 =
											string_append_3(
											((obj_t)
												((obj_t) BGL_UNSAFE_CELL_REF(BgL_mesgz00_4193))),
											BGl_string2541z00zz__ftpz00, BgL_arg1639z00_1752);
									}
									BGL_UNSAFE_CELL_SET(BgL_mesgz00_4193, BgL_auxz00_4199);
								}
								{	/* Unsafe/ftp.scm 152 */
									obj_t BgL_arg1642z00_1754;

									BgL_arg1642z00_1754 =
										BGl_readzd2linezd2zz__r4_input_6_10_2z00(BgL_ipz00_4194);
									return
										BGl_loopze70ze7zz__ftpz00(BgL_codez00_4195, BgL_ipz00_4194,
										BgL_mesgz00_4193, BgL_arg1642z00_1754);
								}
								break;
							default:
								return
									BGl_errorz00zz__errorz00(BGl_string2537z00zz__ftpz00,
									BGl_string2538z00zz__ftpz00, BINT(BgL_matchz00_1726));
							}
					}
				}
			}
		}

	}



/* loop~0 */
	obj_t BGl_loopze70ze7zz__ftpz00(obj_t BgL_codez00_4202, obj_t BgL_ipz00_4201,
		obj_t BgL_mesgz00_4200, obj_t BgL_msgz00_1379)
	{
		{	/* Unsafe/ftp.scm 147 */
			if (EOF_OBJECTP(BgL_msgz00_1379))
				{	/* Unsafe/ftp.scm 148 */
					return BFALSE;
				}
			else
				{	/* Unsafe/ftp.scm 149 */
					obj_t BgL_port1078z00_1382;

					{	/* Ieee/port.scm 469 */
						long BgL_endz00_1799;

						BgL_endz00_1799 = STRING_LENGTH(((obj_t) BgL_msgz00_1379));
						{	/* Ieee/port.scm 469 */

							BgL_port1078z00_1382 =
								BGl_openzd2inputzd2stringz00zz__r4_ports_6_10_1z00
								(BgL_msgz00_1379, BINT(0L), BINT(BgL_endz00_1799));
					}}
					{	/* Unsafe/ftp.scm 149 */
						obj_t BgL_exitd1079z00_1383;

						BgL_exitd1079z00_1383 = BGL_EXITD_TOP_AS_OBJ();
						{	/* Unsafe/ftp.scm 149 */
							obj_t BgL_zc3z04anonymousza31645ze3z87_3940;

							BgL_zc3z04anonymousza31645ze3z87_3940 =
								MAKE_FX_PROCEDURE(BGl_z62zc3z04anonymousza31645ze3ze5zz__ftpz00,
								(int) (0L), (int) (1L));
							PROCEDURE_SET(BgL_zc3z04anonymousza31645ze3z87_3940,
								(int) (0L), BgL_port1078z00_1382);
							{	/* Unsafe/ftp.scm 149 */
								obj_t BgL_arg2358z00_2940;

								{	/* Unsafe/ftp.scm 149 */
									obj_t BgL_arg2359z00_2941;

									BgL_arg2359z00_2941 =
										BGL_EXITD_PROTECT(BgL_exitd1079z00_1383);
									BgL_arg2358z00_2940 =
										MAKE_YOUNG_PAIR(BgL_zc3z04anonymousza31645ze3z87_3940,
										BgL_arg2359z00_2941);
								}
								BGL_EXITD_PROTECT_SET(BgL_exitd1079z00_1383,
									BgL_arg2358z00_2940);
								BUNSPEC;
							}
							{	/* Unsafe/ftp.scm 149 */
								obj_t BgL_tmp1081z00_1385;

								BgL_tmp1081z00_1385 =
									BGl_ignoreze70ze7zz__ftpz00(BgL_codez00_4202, BgL_ipz00_4201,
									BgL_mesgz00_4200, BgL_msgz00_1379, BgL_port1078z00_1382,
									BgL_port1078z00_1382);
								{	/* Unsafe/ftp.scm 149 */
									bool_t BgL_test2999z00_5035;

									{	/* Unsafe/ftp.scm 149 */
										obj_t BgL_arg2356z00_3150;

										BgL_arg2356z00_3150 =
											BGL_EXITD_PROTECT(BgL_exitd1079z00_1383);
										BgL_test2999z00_5035 = PAIRP(BgL_arg2356z00_3150);
									}
									if (BgL_test2999z00_5035)
										{	/* Unsafe/ftp.scm 149 */
											obj_t BgL_arg2353z00_3151;

											{	/* Unsafe/ftp.scm 149 */
												obj_t BgL_arg2354z00_3152;

												BgL_arg2354z00_3152 =
													BGL_EXITD_PROTECT(BgL_exitd1079z00_1383);
												BgL_arg2353z00_3151 =
													CDR(((obj_t) BgL_arg2354z00_3152));
											}
											BGL_EXITD_PROTECT_SET(BgL_exitd1079z00_1383,
												BgL_arg2353z00_3151);
											BUNSPEC;
										}
									else
										{	/* Unsafe/ftp.scm 149 */
											BFALSE;
										}
								}
								bgl_close_input_port(BgL_port1078z00_1382);
								return BgL_tmp1081z00_1385;
							}
						}
					}
				}
		}

	}



/* &<@anonymous:1645> */
	obj_t BGl_z62zc3z04anonymousza31645ze3ze5zz__ftpz00(obj_t BgL_envz00_3941)
	{
		{	/* Unsafe/ftp.scm 149 */
			{	/* Unsafe/ftp.scm 149 */
				obj_t BgL_port1078z00_3942;

				BgL_port1078z00_3942 =
					((obj_t) PROCEDURE_REF(BgL_envz00_3941, (int) (0L)));
				return bgl_close_input_port(BgL_port1078z00_3942);
			}
		}

	}



/* %ftp-read-dtp */
	obj_t BGl_z52ftpzd2readzd2dtpz52zz__ftpz00(obj_t BgL_ftpz00_9,
		obj_t BgL_whatz00_10)
	{
		{	/* Unsafe/ftp.scm 175 */
			{	/* Unsafe/ftp.scm 177 */
				obj_t BgL_ipz00_1812;

				{	/* Unsafe/ftp.scm 177 */
					obj_t BgL_arg1662z00_1822;

					BgL_arg1662z00_1822 =
						(((BgL_z52ftpz52_bglt) COBJECT(
								((BgL_z52ftpz52_bglt) BgL_ftpz00_9)))->BgL_dtpz00);
					{	/* Unsafe/ftp.scm 177 */
						obj_t BgL_tmpz00_5049;

						BgL_tmpz00_5049 = ((obj_t) BgL_arg1662z00_1822);
						BgL_ipz00_1812 = SOCKET_INPUT(BgL_tmpz00_5049);
					}
				}
				if ((BgL_whatz00_10 == BGl_symbol2542z00zz__ftpz00))
					{	/* Unsafe/ftp.scm 178 */
						return BGl_readzd2lineszd2zz__r4_input_6_10_2z00(BgL_ipz00_1812);
					}
				else
					{	/* Unsafe/ftp.scm 178 */
						if ((BgL_whatz00_10 == BGl_symbol2544z00zz__ftpz00))
							{	/* Unsafe/ftp.scm 178 */
								return BgL_ipz00_1812;
							}
						else
							{	/* Unsafe/ftp.scm 185 */
								BgL_z62ftpzd2errorzb0_bglt BgL_arg1655z00_1816;

								{	/* Unsafe/ftp.scm 185 */
									BgL_z62ftpzd2errorzb0_bglt BgL_new1103z00_1817;

									{	/* Unsafe/ftp.scm 185 */
										BgL_z62ftpzd2errorzb0_bglt BgL_new1102z00_1820;

										BgL_new1102z00_1820 =
											((BgL_z62ftpzd2errorzb0_bglt)
											BOBJECT(GC_MALLOC(sizeof(struct
														BgL_z62ftpzd2errorzb0_bgl))));
										{	/* Unsafe/ftp.scm 185 */
											long BgL_arg1660z00_1821;

											BgL_arg1660z00_1821 =
												BGL_CLASS_NUM(BGl_z62ftpzd2errorzb0zz__ftpz00);
											BGL_OBJECT_CLASS_NUM_SET(
												((BgL_objectz00_bglt) BgL_new1102z00_1820),
												BgL_arg1660z00_1821);
										}
										BgL_new1103z00_1817 = BgL_new1102z00_1820;
									}
									((((BgL_z62exceptionz62_bglt) COBJECT(
													((BgL_z62exceptionz62_bglt) BgL_new1103z00_1817)))->
											BgL_fnamez00) = ((obj_t) BFALSE), BUNSPEC);
									((((BgL_z62exceptionz62_bglt)
												COBJECT(((BgL_z62exceptionz62_bglt)
														BgL_new1103z00_1817)))->BgL_locationz00) =
										((obj_t) BFALSE), BUNSPEC);
									{
										obj_t BgL_auxz00_5065;

										{	/* Unsafe/ftp.scm 185 */
											obj_t BgL_arg1658z00_1818;

											{	/* Unsafe/ftp.scm 185 */
												obj_t BgL_arg1659z00_1819;

												{	/* Unsafe/ftp.scm 185 */
													obj_t BgL_classz00_3161;

													BgL_classz00_3161 = BGl_z62ftpzd2errorzb0zz__ftpz00;
													BgL_arg1659z00_1819 =
														BGL_CLASS_ALL_FIELDS(BgL_classz00_3161);
												}
												BgL_arg1658z00_1818 =
													VECTOR_REF(BgL_arg1659z00_1819, 2L);
											}
											BgL_auxz00_5065 =
												BGl_classzd2fieldzd2defaultzd2valuezd2zz__objectz00
												(BgL_arg1658z00_1818);
										}
										((((BgL_z62exceptionz62_bglt) COBJECT(
														((BgL_z62exceptionz62_bglt) BgL_new1103z00_1817)))->
												BgL_stackz00) = ((obj_t) BgL_auxz00_5065), BUNSPEC);
									}
									((((BgL_z62errorz62_bglt) COBJECT(
													((BgL_z62errorz62_bglt) BgL_new1103z00_1817)))->
											BgL_procz00) =
										((obj_t) BGl_string2546z00zz__ftpz00), BUNSPEC);
									((((BgL_z62errorz62_bglt) COBJECT(((BgL_z62errorz62_bglt)
														BgL_new1103z00_1817)))->BgL_msgz00) =
										((obj_t) BGl_string2547z00zz__ftpz00), BUNSPEC);
									((((BgL_z62errorz62_bglt) COBJECT(((BgL_z62errorz62_bglt)
														BgL_new1103z00_1817)))->BgL_objz00) =
										((obj_t) BgL_whatz00_10), BUNSPEC);
									BgL_arg1655z00_1816 = BgL_new1103z00_1817;
								}
								return BGl_raisez00zz__errorz00(((obj_t) BgL_arg1655z00_1816));
							}
					}
			}
		}

	}



/* %ftp-engine-cmd */
	obj_t BGl_z52ftpzd2enginezd2cmdz52zz__ftpz00(obj_t BgL_ftpz00_11,
		obj_t BgL_cmdz00_12, obj_t BgL_cmdsz00_13)
	{
		{	/* Unsafe/ftp.scm 193 */
			{	/* Unsafe/ftp.scm 195 */
				bool_t BgL_test3002z00_5079;

				{	/* Unsafe/ftp.scm 195 */
					obj_t BgL_arg1666z00_1826;

					BgL_arg1666z00_1826 =
						(((BgL_z52ftpz52_bglt) COBJECT(
								((BgL_z52ftpz52_bglt)
									((BgL_ftpz00_bglt) BgL_ftpz00_11))))->BgL_cmdz00);
					BgL_test3002z00_5079 = SOCKETP(BgL_arg1666z00_1826);
				}
				if (BgL_test3002z00_5079)
					{	/* Unsafe/ftp.scm 195 */
						BFALSE;
					}
				else
					{	/* Unsafe/ftp.scm 195 */
						BGl_errorz00zz__errorz00(BGl_string2548z00zz__ftpz00,
							BGl_string2549z00zz__ftpz00, BgL_cmdz00_12);
					}
			}
			if (CBOOL(BgL_cmdz00_12))
				{	/* Unsafe/ftp.scm 197 */
					obj_t BgL_runner1673z00_1830;

					{	/* Unsafe/ftp.scm 197 */
						obj_t BgL_list1667z00_1827;

						{	/* Unsafe/ftp.scm 197 */
							obj_t BgL_arg1671z00_1828;

							BgL_arg1671z00_1828 = MAKE_YOUNG_PAIR(BgL_cmdsz00_13, BNIL);
							BgL_list1667z00_1827 =
								MAKE_YOUNG_PAIR(BgL_cmdz00_12, BgL_arg1671z00_1828);
						}
						BgL_runner1673z00_1830 =
							BGl_consza2za2zz__r4_pairs_and_lists_6_3z00(BgL_ftpz00_11,
							BgL_list1667z00_1827);
					}
					{	/* Unsafe/ftp.scm 197 */
						obj_t BgL_aux1672z00_1829;

						BgL_aux1672z00_1829 = CAR(BgL_runner1673z00_1830);
						BgL_runner1673z00_1830 = CDR(BgL_runner1673z00_1830);
						{	/* Unsafe/ftp.scm 197 */
							obj_t BgL_msgsz00_3165;

							BgL_msgsz00_3165 = BgL_runner1673z00_1830;
							{	/* Unsafe/ftp.scm 130 */
								obj_t BgL_opz00_3167;

								{	/* Unsafe/ftp.scm 130 */
									obj_t BgL_arg1403z00_3168;

									BgL_arg1403z00_3168 =
										(((BgL_z52ftpz52_bglt) COBJECT(
												((BgL_z52ftpz52_bglt) BgL_aux1672z00_1829)))->
										BgL_cmdz00);
									{	/* Unsafe/ftp.scm 130 */
										obj_t BgL_tmpz00_5094;

										BgL_tmpz00_5094 = ((obj_t) BgL_arg1403z00_3168);
										BgL_opz00_3167 = SOCKET_OUTPUT(BgL_tmpz00_5094);
									}
								}
								{	/* Unsafe/ftp.scm 131 */
									obj_t BgL_list1402z00_3169;

									BgL_list1402z00_3169 =
										MAKE_YOUNG_PAIR(BgL_msgsz00_3165, BNIL);
									BGl_fprintfz00zz__r4_output_6_10_3z00(BgL_opz00_3167,
										BGl_string2550z00zz__ftpz00, BgL_list1402z00_3169);
								}
								bgl_flush_output_port(BgL_opz00_3167);
							}
						}
					}
				}
			else
				{	/* Unsafe/ftp.scm 197 */
					BFALSE;
				}
			{	/* Unsafe/ftp.scm 198 */
				obj_t BgL_codez00_1831;

				BgL_codez00_1831 = BGl_z52ftpzd2readzd2cmdz52zz__ftpz00(BgL_ftpz00_11);
				{	/* Unsafe/ftp.scm 199 */
					obj_t BgL_mesgz00_1832;

					{	/* Unsafe/ftp.scm 200 */
						obj_t BgL_tmpz00_3172;

						{	/* Unsafe/ftp.scm 200 */
							int BgL_tmpz00_5101;

							BgL_tmpz00_5101 = (int) (1L);
							BgL_tmpz00_3172 = BGL_MVALUES_VAL(BgL_tmpz00_5101);
						}
						{	/* Unsafe/ftp.scm 200 */
							int BgL_tmpz00_5104;

							BgL_tmpz00_5104 = (int) (1L);
							BGL_MVALUES_VAL_SET(BgL_tmpz00_5104, BUNSPEC);
						}
						BgL_mesgz00_1832 = BgL_tmpz00_3172;
					}
					{	/* Unsafe/ftp.scm 200 */
						obj_t BgL___retval3004z00_5107;

						{	/* Unsafe/ftp.scm 200 */
							obj_t BgL_res1111z00_4463;

							if (INTEGERP(BgL_codez00_1831))
								{	/* Unsafe/ftp.scm 205 */
									switch ((long) CINT(BgL_codez00_1831))
										{
										case 110L:

											BgL_res1111z00_4463 = BFALSE;
											break;
										case 120L:

											BgL_res1111z00_4463 = BFALSE;
											break;
										case 125L:

											BgL_res1111z00_4463 = BFALSE;
											break;
										case 150L:

											{	/* Unsafe/ftp.scm 223 */
												obj_t BgL_resz00_4464;

												{	/* Unsafe/ftp.scm 225 */
													obj_t BgL_arg1681z00_4465;

													{	/* Unsafe/ftp.scm 225 */
														bool_t BgL_test3007z00_5110;

														{	/* Unsafe/ftp.scm 225 */
															long BgL_l1z00_4466;

															BgL_l1z00_4466 =
																STRING_LENGTH(((obj_t) BgL_cmdz00_12));
															if ((BgL_l1z00_4466 == 4L))
																{	/* Unsafe/ftp.scm 225 */
																	int BgL_arg2110z00_4467;

																	{	/* Unsafe/ftp.scm 225 */
																		char *BgL_auxz00_5118;
																		char *BgL_tmpz00_5115;

																		BgL_auxz00_5118 =
																			BSTRING_TO_STRING
																			(BGl_string2551z00zz__ftpz00);
																		BgL_tmpz00_5115 =
																			BSTRING_TO_STRING(((obj_t)
																				BgL_cmdz00_12));
																		BgL_arg2110z00_4467 =
																			memcmp(BgL_tmpz00_5115, BgL_auxz00_5118,
																			BgL_l1z00_4466);
																	}
																	BgL_test3007z00_5110 =
																		((long) (BgL_arg2110z00_4467) == 0L);
																}
															else
																{	/* Unsafe/ftp.scm 225 */
																	BgL_test3007z00_5110 = ((bool_t) 0);
																}
														}
														if (BgL_test3007z00_5110)
															{	/* Unsafe/ftp.scm 225 */
																BgL_arg1681z00_4465 =
																	BGl_symbol2544z00zz__ftpz00;
															}
														else
															{	/* Unsafe/ftp.scm 225 */
																BgL_arg1681z00_4465 =
																	BGl_symbol2542z00zz__ftpz00;
															}
													}
													BgL_resz00_4464 =
														BGl_z52ftpzd2readzd2dtpz52zz__ftpz00(BgL_ftpz00_11,
														BgL_arg1681z00_4465);
												}
												BGl_z52ftpzd2enginezd2cmdz52zz__ftpz00(BgL_ftpz00_11,
													BFALSE, BNIL);
												BgL_res1111z00_4463 = BgL_resz00_4464;
											}
											break;
										case 200L:

											BgL_res1111z00_4463 = BTRUE;
											break;
										case 202L:

											BgL_res1111z00_4463 = BTRUE;
											break;
										case 211L:

											BgL_res1111z00_4463 = BgL_mesgz00_1832;
											break;
										case 212L:

											BgL_res1111z00_4463 = BgL_mesgz00_1832;
											break;
										case 213L:

											BgL_res1111z00_4463 = BgL_mesgz00_1832;
											break;
										case 214L:

											BgL_res1111z00_4463 = BgL_mesgz00_1832;
											break;
										case 215L:

											BgL_res1111z00_4463 = BgL_mesgz00_1832;
											break;
										case 220L:

											((((BgL_ftpz00_bglt) COBJECT(
															((BgL_ftpz00_bglt) BgL_ftpz00_11)))->
													BgL_motdz00) = ((obj_t) BgL_mesgz00_1832), BUNSPEC);
											{	/* Unsafe/ftp.scm 260 */
												obj_t BgL_arg1683z00_4468;

												BgL_arg1683z00_4468 =
													(((BgL_ftpz00_bglt) COBJECT(
															((BgL_ftpz00_bglt) BgL_ftpz00_11)))->BgL_userz00);
												{	/* Unsafe/ftp.scm 260 */
													obj_t BgL_list1684z00_4469;

													BgL_list1684z00_4469 =
														MAKE_YOUNG_PAIR(BgL_arg1683z00_4468, BNIL);
													BgL_res1111z00_4463 =
														BGl_z52ftpzd2enginezd2cmdz52zz__ftpz00
														(BgL_ftpz00_11, BGl_string2552z00zz__ftpz00,
														BgL_list1684z00_4469);
												}
											}
											break;
										case 221L:

											BgL_res1111z00_4463 = BTRUE;
											break;
										case 225L:

											BgL_res1111z00_4463 = BTRUE;
											break;
										case 226L:

											{	/* Unsafe/ftp.scm 272 */
												bool_t BgL_test3009z00_5131;

												{	/* Unsafe/ftp.scm 200 */

													BgL_test3009z00_5131 =
														CBOOL
														(BGl_stringzd2containszd2ciz00zz__r4_strings_6_7z00
														(BgL_mesgz00_1832, BGl_string2553z00zz__ftpz00,
															(int) (0L)));
												}
												if (BgL_test3009z00_5131)
													{	/* Unsafe/ftp.scm 272 */
														BgL_res1111z00_4463 = BFALSE;
													}
												else
													{	/* Unsafe/ftp.scm 272 */
														BgL_res1111z00_4463 =
															BGl_z52ftpzd2dtpzd2pasvzd2setupz80zz__ftpz00
															(BgL_ftpz00_11);
													}
											}
											break;
										case 227L:

											{	/* Unsafe/ftp.scm 276 */
												obj_t BgL_hostz00_4470;

												{	/* Unsafe/ftp.scm 278 */
													obj_t BgL_arg1689z00_4471;

													{	/* Unsafe/ftp.scm 278 */
														obj_t BgL_l1233z00_4472;

														{	/* Unsafe/ftp.scm 280 */
															obj_t BgL_arg1706z00_4473;

															{	/* Unsafe/ftp.scm 280 */
																long BgL_arg1708z00_4474;

																BgL_arg1708z00_4474 =
																	(STRING_LENGTH(
																		((obj_t) BgL_mesgz00_1832)) - 1L);
																BgL_arg1706z00_4473 =
																	c_substring(
																	((obj_t) BgL_mesgz00_1832), 1L,
																	BgL_arg1708z00_4474);
															}
															{	/* Unsafe/ftp.scm 279 */
																obj_t BgL_list1707z00_4475;

																BgL_list1707z00_4475 =
																	MAKE_YOUNG_PAIR(BGl_string2554z00zz__ftpz00,
																	BNIL);
																BgL_l1233z00_4472 =
																	BGl_stringzd2splitzd2zz__r4_strings_6_7z00
																	(BgL_arg1706z00_4473, BgL_list1707z00_4475);
														}}
														if (NULLP(BgL_l1233z00_4472))
															{	/* Unsafe/ftp.scm 278 */
																BgL_arg1689z00_4471 = BNIL;
															}
														else
															{	/* Unsafe/ftp.scm 278 */
																obj_t BgL_head1235z00_4476;

																{	/* Unsafe/ftp.scm 278 */
																	obj_t BgL_arg1703z00_4477;

																	{	/* Unsafe/ftp.scm 278 */

																		BgL_arg1703z00_4477 =
																			BGl_stringzd2ze3numberz31zz__r4_numbers_6_5z00
																			(CAR(BgL_l1233z00_4472), BINT(10L));
																	}
																	BgL_head1235z00_4476 =
																		MAKE_YOUNG_PAIR(BgL_arg1703z00_4477, BNIL);
																}
																{	/* Unsafe/ftp.scm 278 */
																	obj_t BgL_g1238z00_4478;

																	BgL_g1238z00_4478 = CDR(BgL_l1233z00_4472);
																	{
																		obj_t BgL_l1233z00_4480;
																		obj_t BgL_tail1236z00_4481;

																		BgL_l1233z00_4480 = BgL_g1238z00_4478;
																		BgL_tail1236z00_4481 = BgL_head1235z00_4476;
																	BgL_zc3z04anonymousza31691ze3z87_4479:
																		if (NULLP(BgL_l1233z00_4480))
																			{	/* Unsafe/ftp.scm 278 */
																				BgL_arg1689z00_4471 =
																					BgL_head1235z00_4476;
																			}
																		else
																			{	/* Unsafe/ftp.scm 278 */
																				obj_t BgL_newtail1237z00_4482;

																				{	/* Unsafe/ftp.scm 278 */
																					obj_t BgL_arg1698z00_4483;

																					{	/* Unsafe/ftp.scm 278 */

																						BgL_arg1698z00_4483 =
																							BGl_stringzd2ze3numberz31zz__r4_numbers_6_5z00
																							(CAR(((obj_t) BgL_l1233z00_4480)),
																							BINT(10L));
																					}
																					BgL_newtail1237z00_4482 =
																						MAKE_YOUNG_PAIR(BgL_arg1698z00_4483,
																						BNIL);
																				}
																				SET_CDR(BgL_tail1236z00_4481,
																					BgL_newtail1237z00_4482);
																				{	/* Unsafe/ftp.scm 278 */
																					obj_t BgL_arg1697z00_4484;

																					BgL_arg1697z00_4484 =
																						CDR(((obj_t) BgL_l1233z00_4480));
																					{
																						obj_t BgL_tail1236z00_5161;
																						obj_t BgL_l1233z00_5160;

																						BgL_l1233z00_5160 =
																							BgL_arg1697z00_4484;
																						BgL_tail1236z00_5161 =
																							BgL_newtail1237z00_4482;
																						BgL_tail1236z00_4481 =
																							BgL_tail1236z00_5161;
																						BgL_l1233z00_4480 =
																							BgL_l1233z00_5160;
																						goto
																							BgL_zc3z04anonymousza31691ze3z87_4479;
																					}
																				}
																			}
																	}
																}
															}
													}
													BgL_hostz00_4470 =
														BGl_ftpportzd2ze3hostportz31zz__ftpz00
														(BgL_arg1689z00_4471);
												}
												{	/* Unsafe/ftp.scm 277 */
													obj_t BgL_portz00_4485;

													{	/* Unsafe/ftp.scm 281 */
														obj_t BgL_tmpz00_4486;

														{	/* Unsafe/ftp.scm 281 */
															int BgL_tmpz00_5163;

															BgL_tmpz00_5163 = (int) (1L);
															BgL_tmpz00_4486 =
																BGL_MVALUES_VAL(BgL_tmpz00_5163);
														}
														{	/* Unsafe/ftp.scm 281 */
															int BgL_tmpz00_5166;

															BgL_tmpz00_5166 = (int) (1L);
															BGL_MVALUES_VAL_SET(BgL_tmpz00_5166, BUNSPEC);
														}
														BgL_portz00_4485 = BgL_tmpz00_4486;
													}
													BGl_z52ftpzd2closezd2dtpz52zz__ftpz00(BgL_ftpz00_11);
													{
														obj_t BgL_auxz00_5170;

														{	/* Unsafe/ftp.scm 431 */
															obj_t BgL_list1764z00_4487;

															{	/* Unsafe/ftp.scm 431 */
																obj_t BgL_arg1765z00_4488;

																BgL_arg1765z00_4488 =
																	MAKE_YOUNG_PAIR(BgL_portz00_4485, BNIL);
																BgL_list1764z00_4487 =
																	MAKE_YOUNG_PAIR(BgL_hostz00_4470,
																	BgL_arg1765z00_4488);
															}
															BgL_auxz00_5170 = BgL_list1764z00_4487;
														}
														((((BgL_z52ftpz52_bglt) COBJECT(
																		((BgL_z52ftpz52_bglt) BgL_ftpz00_11)))->
																BgL_dtpz00) =
															((obj_t) BgL_auxz00_5170), BUNSPEC);
													}
													BgL_res1111z00_4463 =
														BGl_z52ftpzd2dtpzd2pasvzd2setupz80zz__ftpz00
														(BgL_ftpz00_11);
											}} break;
										case 230L:

											BgL_res1111z00_4463 = BTRUE;
											break;
										case 250L:

											BgL_res1111z00_4463 = BTRUE;
											break;
										case 257L:

											BgL_res1111z00_4463 = BTRUE;
											break;
										case 331L:

											{	/* Unsafe/ftp.scm 296 */
												obj_t BgL_arg1710z00_4489;

												BgL_arg1710z00_4489 =
													(((BgL_ftpz00_bglt) COBJECT(
															((BgL_ftpz00_bglt) BgL_ftpz00_11)))->BgL_passz00);
												{	/* Unsafe/ftp.scm 296 */
													obj_t BgL_list1711z00_4490;

													BgL_list1711z00_4490 =
														MAKE_YOUNG_PAIR(BgL_arg1710z00_4489, BNIL);
													BgL_res1111z00_4463 =
														BGl_z52ftpzd2enginezd2cmdz52zz__ftpz00
														(BgL_ftpz00_11, BGl_string2555z00zz__ftpz00,
														BgL_list1711z00_4490);
												}
											}
											break;
										case 332L:

											{	/* Unsafe/ftp.scm 299 */
												obj_t BgL_arg1712z00_4491;

												BgL_arg1712z00_4491 =
													(((BgL_ftpz00_bglt) COBJECT(
															((BgL_ftpz00_bglt) BgL_ftpz00_11)))->BgL_acctz00);
												{	/* Unsafe/ftp.scm 299 */
													obj_t BgL_list1713z00_4492;

													BgL_list1713z00_4492 =
														MAKE_YOUNG_PAIR(BgL_arg1712z00_4491, BNIL);
													BgL_res1111z00_4463 =
														BGl_z52ftpzd2enginezd2cmdz52zz__ftpz00
														(BgL_ftpz00_11, BGl_string2556z00zz__ftpz00,
														BgL_list1713z00_4492);
												}
											}
											break;
										case 350L:

											BgL_res1111z00_4463 = BTRUE;
											break;
										case 421L:

											BgL_res1111z00_4463 = BFALSE;
											break;
										case 425L:

											BGl_z52ftpzd2dtpzd2initz52zz__ftpz00(BgL_ftpz00_11);
											{	/* Unsafe/ftp.scm 314 */
												obj_t BgL_runner1718z00_4493;

												{	/* Unsafe/ftp.scm 314 */
													obj_t BgL_list1714z00_4494;

													{	/* Unsafe/ftp.scm 314 */
														obj_t BgL_arg1715z00_4495;

														BgL_arg1715z00_4495 =
															MAKE_YOUNG_PAIR(BgL_cmdsz00_13, BNIL);
														BgL_list1714z00_4494 =
															MAKE_YOUNG_PAIR(BgL_cmdz00_12,
															BgL_arg1715z00_4495);
													}
													BgL_runner1718z00_4493 =
														BGl_consza2za2zz__r4_pairs_and_lists_6_3z00
														(BgL_ftpz00_11, BgL_list1714z00_4494);
												}
												{	/* Unsafe/ftp.scm 314 */
													obj_t BgL_aux1716z00_4496;

													BgL_aux1716z00_4496 = CAR(BgL_runner1718z00_4493);
													BgL_runner1718z00_4493 = CDR(BgL_runner1718z00_4493);
													{	/* Unsafe/ftp.scm 314 */
														obj_t BgL_aux1717z00_4497;

														BgL_aux1717z00_4497 = CAR(BgL_runner1718z00_4493);
														BgL_runner1718z00_4493 =
															CDR(BgL_runner1718z00_4493);
														BgL_res1111z00_4463 =
															BGl_z52ftpzd2enginezd2cmdz52zz__ftpz00
															(BgL_aux1716z00_4496, BgL_aux1717z00_4497,
															BgL_runner1718z00_4493);
													}
												}
											}
											break;
										case 426L:

											BgL_res1111z00_4463 = BFALSE;
											break;
										case 450L:

											BgL_res1111z00_4463 = BFALSE;
											break;
										case 451L:

											BgL_res1111z00_4463 = BFALSE;
											break;
										case 452L:

											BgL_res1111z00_4463 = BFALSE;
											break;
										case 500L:

											BgL_res1111z00_4463 = BFALSE;
											break;
										case 501L:

											BgL_res1111z00_4463 = BFALSE;
											break;
										case 502L:

											BgL_res1111z00_4463 = BFALSE;
											break;
										case 503L:

											BgL_res1111z00_4463 = BFALSE;
											break;
										case 504L:

											BgL_res1111z00_4463 = BFALSE;
											break;
										case 530L:

											BgL_res1111z00_4463 = BFALSE;
											break;
										case 532L:

											BgL_res1111z00_4463 = BFALSE;
											break;
										case 550L:

											BgL_res1111z00_4463 = BFALSE;
											break;
										case 551L:

											BgL_res1111z00_4463 = BFALSE;
											break;
										case 552L:

											BgL_res1111z00_4463 = BFALSE;
											break;
										case 553L:

											BgL_res1111z00_4463 = BFALSE;
											break;
										case 999L:

											BGl_z52ftpzd2closez80zz__ftpz00(BgL_ftpz00_11);
											BgL___retval3004z00_5107 = BGl_string2557z00zz__ftpz00;
											goto __return3005;
											break;
										default:
											BgL_res1111z00_4463 =
												BGl_errorz00zz__errorz00(BGl_string2548z00zz__ftpz00,
												BGl_string2558z00zz__ftpz00, BgL_codez00_1831);
										}
								}
							else
								{	/* Unsafe/ftp.scm 205 */
									BgL_res1111z00_4463 =
										BGl_errorz00zz__errorz00(BGl_string2548z00zz__ftpz00,
										BGl_string2558z00zz__ftpz00, BgL_codez00_1831);
								}
							BgL___retval3004z00_5107 = BgL_res1111z00_4463;
						}
					__return3005:
						return BgL___retval3004z00_5107;
					}
				}
			}
		}

	}



/* %ftp-close */
	obj_t BGl_z52ftpzd2closez80zz__ftpz00(obj_t BgL_ftpz00_14)
	{
		{	/* Unsafe/ftp.scm 376 */
			{	/* Unsafe/ftp.scm 377 */
				obj_t BgL_exitd1114z00_3249;

				BgL_exitd1114z00_3249 = BGL_EXITD_TOP_AS_OBJ();
				{	/* Unsafe/ftp.scm 379 */
					obj_t BgL_zc3z04anonymousza31720ze3z87_3943;

					BgL_zc3z04anonymousza31720ze3z87_3943 =
						MAKE_FX_PROCEDURE(BGl_z62zc3z04anonymousza31720ze3ze5zz__ftpz00,
						(int) (0L), (int) (1L));
					PROCEDURE_SET(BgL_zc3z04anonymousza31720ze3z87_3943,
						(int) (0L), BgL_ftpz00_14);
					{	/* Unsafe/ftp.scm 377 */
						obj_t BgL_arg2358z00_3252;

						{	/* Unsafe/ftp.scm 377 */
							obj_t BgL_arg2359z00_3253;

							BgL_arg2359z00_3253 = BGL_EXITD_PROTECT(BgL_exitd1114z00_3249);
							BgL_arg2358z00_3252 =
								MAKE_YOUNG_PAIR(BgL_zc3z04anonymousza31720ze3z87_3943,
								BgL_arg2359z00_3253);
						}
						BGL_EXITD_PROTECT_SET(BgL_exitd1114z00_3249, BgL_arg2358z00_3252);
						BUNSPEC;
					}
					{	/* Unsafe/ftp.scm 378 */
						obj_t BgL_tmp1116z00_3251;

						{	/* Unsafe/ftp.scm 386 */
							bool_t BgL_test3012z00_5207;

							{	/* Unsafe/ftp.scm 386 */
								obj_t BgL_arg1724z00_3256;

								BgL_arg1724z00_3256 =
									(((BgL_z52ftpz52_bglt) COBJECT(
											((BgL_z52ftpz52_bglt) BgL_ftpz00_14)))->BgL_cmdz00);
								BgL_test3012z00_5207 = SOCKETP(BgL_arg1724z00_3256);
							}
							if (BgL_test3012z00_5207)
								{	/* Unsafe/ftp.scm 387 */
									obj_t BgL_arg1723z00_3257;

									BgL_arg1723z00_3257 =
										(((BgL_z52ftpz52_bglt) COBJECT(
												((BgL_z52ftpz52_bglt) BgL_ftpz00_14)))->BgL_cmdz00);
									BgL_tmp1116z00_3251 =
										socket_close(((obj_t) BgL_arg1723z00_3257));
								}
							else
								{	/* Unsafe/ftp.scm 386 */
									BgL_tmp1116z00_3251 = BFALSE;
								}
						}
						{	/* Unsafe/ftp.scm 377 */
							bool_t BgL_test3013z00_5215;

							{	/* Unsafe/ftp.scm 377 */
								obj_t BgL_arg2356z00_3260;

								BgL_arg2356z00_3260 = BGL_EXITD_PROTECT(BgL_exitd1114z00_3249);
								BgL_test3013z00_5215 = PAIRP(BgL_arg2356z00_3260);
							}
							if (BgL_test3013z00_5215)
								{	/* Unsafe/ftp.scm 377 */
									obj_t BgL_arg2353z00_3261;

									{	/* Unsafe/ftp.scm 377 */
										obj_t BgL_arg2354z00_3262;

										BgL_arg2354z00_3262 =
											BGL_EXITD_PROTECT(BgL_exitd1114z00_3249);
										BgL_arg2353z00_3261 = CDR(((obj_t) BgL_arg2354z00_3262));
									}
									BGL_EXITD_PROTECT_SET(BgL_exitd1114z00_3249,
										BgL_arg2353z00_3261);
									BUNSPEC;
								}
							else
								{	/* Unsafe/ftp.scm 377 */
									BFALSE;
								}
						}
						BGl_z52ftpzd2closezd2dtpz52zz__ftpz00(BgL_ftpz00_14);
						return BgL_tmp1116z00_3251;
					}
				}
			}
		}

	}



/* &<@anonymous:1720> */
	obj_t BGl_z62zc3z04anonymousza31720ze3ze5zz__ftpz00(obj_t BgL_envz00_3944)
	{
		{	/* Unsafe/ftp.scm 377 */
			return
				BGl_z52ftpzd2closezd2dtpz52zz__ftpz00(PROCEDURE_REF(BgL_envz00_3944,
					(int) (0L)));
		}

	}



/* %ftp-close-cmd */
	obj_t BGl_z52ftpzd2closezd2cmdz52zz__ftpz00(obj_t BgL_ftpz00_15)
	{
		{	/* Unsafe/ftp.scm 384 */
			{	/* Unsafe/ftp.scm 386 */
				bool_t BgL_test3014z00_5226;

				{	/* Unsafe/ftp.scm 386 */
					obj_t BgL_arg1724z00_3266;

					BgL_arg1724z00_3266 =
						(((BgL_z52ftpz52_bglt) COBJECT(
								((BgL_z52ftpz52_bglt) BgL_ftpz00_15)))->BgL_cmdz00);
					BgL_test3014z00_5226 = SOCKETP(BgL_arg1724z00_3266);
				}
				if (BgL_test3014z00_5226)
					{	/* Unsafe/ftp.scm 387 */
						obj_t BgL_arg1723z00_3267;

						BgL_arg1723z00_3267 =
							(((BgL_z52ftpz52_bglt) COBJECT(
									((BgL_z52ftpz52_bglt) BgL_ftpz00_15)))->BgL_cmdz00);
						return socket_close(((obj_t) BgL_arg1723z00_3267));
					}
				else
					{	/* Unsafe/ftp.scm 386 */
						return BFALSE;
					}
			}
		}

	}



/* %ftp-close-dtp */
	obj_t BGl_z52ftpzd2closezd2dtpz52zz__ftpz00(obj_t BgL_ftpz00_16)
	{
		{	/* Unsafe/ftp.scm 392 */
			{	/* Unsafe/ftp.scm 394 */
				bool_t BgL_test3015z00_5234;

				{	/* Unsafe/ftp.scm 394 */
					obj_t BgL_arg1731z00_1914;

					BgL_arg1731z00_1914 =
						(((BgL_z52ftpz52_bglt) COBJECT(
								((BgL_z52ftpz52_bglt) BgL_ftpz00_16)))->BgL_dtpz00);
					BgL_test3015z00_5234 = SOCKETP(BgL_arg1731z00_1914);
				}
				if (BgL_test3015z00_5234)
					{	/* Unsafe/ftp.scm 394 */
						if (
							(((BgL_z52ftpz52_bglt) COBJECT(
										((BgL_z52ftpz52_bglt) BgL_ftpz00_16)))->BgL_passivezf3zf3))
							{	/* Unsafe/ftp.scm 396 */
								obj_t BgL_arg1728z00_1910;

								BgL_arg1728z00_1910 =
									(((BgL_z52ftpz52_bglt) COBJECT(
											((BgL_z52ftpz52_bglt) BgL_ftpz00_16)))->BgL_dtpz00);
								return socket_close(((obj_t) BgL_arg1728z00_1910));
							}
						else
							{	/* Unsafe/ftp.scm 397 */
								obj_t BgL_arg1729z00_1911;

								BgL_arg1729z00_1911 =
									(((BgL_z52ftpz52_bglt) COBJECT(
											((BgL_z52ftpz52_bglt) BgL_ftpz00_16)))->BgL_dtpz00);
								{	/* Llib/socket.scm 233 */

									return
										BINT(BGl_socketzd2shutdownzd2zz__socketz00
										(BgL_arg1729z00_1911, BTRUE));
								}
							}
					}
				else
					{	/* Unsafe/ftp.scm 394 */
						return BFALSE;
					}
			}
		}

	}



/* ftp-connect-to */
	obj_t BGl_ftpzd2connectzd2toz00zz__ftpz00(obj_t BgL_hostz00_17,
		obj_t BgL_portz00_18)
	{
		{	/* Unsafe/ftp.scm 402 */
			{	/* Unsafe/ftp.scm 403 */
				obj_t BgL_arg1750z00_1942;

				{	/* Unsafe/ftp.scm 403 */
					BgL_ftpz00_bglt BgL_new1123z00_1945;

					{	/* Unsafe/ftp.scm 403 */
						BgL_ftpz00_bglt BgL_new1121z00_1946;

						BgL_new1121z00_1946 =
							((BgL_ftpz00_bglt) BOBJECT(GC_MALLOC(sizeof(struct
										BgL_ftpz00_bgl))));
						{	/* Unsafe/ftp.scm 403 */
							obj_t BgL_arg1754z00_1947;

							{	/* Unsafe/ftp.scm 403 */
								obj_t BgL_classz00_3317;

								BgL_classz00_3317 = BGl_ftpz00zz__ftpz00;
								BgL_arg1754z00_1947 = BINT(BGL_CLASS_NUM(BgL_classz00_3317));
							}
							{	/* Unsafe/ftp.scm 403 */
								long BgL_numz00_3319;

								BgL_numz00_3319 = (long) CINT(BgL_arg1754z00_1947);
								BGL_OBJECT_CLASS_NUM_SET(
									((BgL_objectz00_bglt) BgL_new1121z00_1946), BgL_numz00_3319);
						}}
						BgL_new1123z00_1945 = BgL_new1121z00_1946;
					}
					((((BgL_z52ftpz52_bglt) COBJECT(
									((BgL_z52ftpz52_bglt) BgL_new1123z00_1945)))->BgL_cmdz00) =
						((obj_t) BFALSE), BUNSPEC);
					((((BgL_z52ftpz52_bglt) COBJECT(((BgL_z52ftpz52_bglt)
										BgL_new1123z00_1945)))->BgL_dtpz00) =
						((obj_t) BFALSE), BUNSPEC);
					((((BgL_z52ftpz52_bglt) COBJECT(((BgL_z52ftpz52_bglt)
										BgL_new1123z00_1945)))->BgL_passivezf3zf3) =
						((bool_t) ((bool_t) 1)), BUNSPEC);
					((((BgL_ftpz00_bglt) COBJECT(BgL_new1123z00_1945))->BgL_hostz00) =
						((obj_t) BgL_hostz00_17), BUNSPEC);
					((((BgL_ftpz00_bglt) COBJECT(BgL_new1123z00_1945))->BgL_portz00) =
						((obj_t) BgL_portz00_18), BUNSPEC);
					((((BgL_ftpz00_bglt) COBJECT(BgL_new1123z00_1945))->BgL_motdz00) =
						((obj_t) BGl_string2568z00zz__ftpz00), BUNSPEC);
					((((BgL_ftpz00_bglt) COBJECT(BgL_new1123z00_1945))->BgL_userz00) =
						((obj_t) BGl_string2569z00zz__ftpz00), BUNSPEC);
					((((BgL_ftpz00_bglt) COBJECT(BgL_new1123z00_1945))->BgL_passz00) =
						((obj_t) BGl_string2570z00zz__ftpz00), BUNSPEC);
					((((BgL_ftpz00_bglt) COBJECT(BgL_new1123z00_1945))->BgL_acctz00) =
						((obj_t) BGl_string2568z00zz__ftpz00), BUNSPEC);
					BgL_arg1750z00_1942 = ((obj_t) BgL_new1123z00_1945);
				}
				{	/* Unsafe/ftp.scm 67 */

					{	/* Unsafe/ftp.scm 67 */
						bool_t BgL_res2386z00_3329;

						{
							obj_t BgL_auxz00_5268;

							{	/* Unsafe/ftp.scm 410 */
								obj_t BgL_arg1755z00_3322;
								obj_t BgL_arg1756z00_3323;

								BgL_arg1755z00_3322 =
									(((BgL_ftpz00_bglt) COBJECT(
											((BgL_ftpz00_bglt) BgL_arg1750z00_1942)))->BgL_hostz00);
								BgL_arg1756z00_3323 =
									(((BgL_ftpz00_bglt) COBJECT(
											((BgL_ftpz00_bglt) BgL_arg1750z00_1942)))->BgL_portz00);
								{	/* Unsafe/ftp.scm 410 */
									obj_t BgL_domainz00_3324;

									BgL_domainz00_3324 = BGl_symbol2571z00zz__ftpz00;
									BgL_auxz00_5268 =
										BGl_makezd2clientzd2socketz00zz__socketz00
										(BgL_arg1755z00_3322, CINT(BgL_arg1756z00_3323),
										BgL_domainz00_3324, BTRUE, BTRUE, BINT(0L));
							}}
							((((BgL_z52ftpz52_bglt) COBJECT(
											((BgL_z52ftpz52_bglt)
												((BgL_ftpz00_bglt) BgL_arg1750z00_1942))))->
									BgL_cmdz00) = ((obj_t) BgL_auxz00_5268), BUNSPEC);
						}
						BgL_res2386z00_3329 =
							CBOOL(BGl_z52ftpzd2enginezd2cmdz52zz__ftpz00(
								((obj_t)
									((BgL_ftpz00_bglt) BgL_arg1750z00_1942)), BFALSE, BNIL));
						return BBOOL(BgL_res2386z00_3329);
					}
				}
			}
		}

	}



/* _ftp-connect */
	obj_t BGl__ftpzd2connectzd2zz__ftpz00(obj_t BgL_env1294z00_24,
		obj_t BgL_opt1293z00_23)
	{
		{	/* Unsafe/ftp.scm 408 */
			{	/* Unsafe/ftp.scm 408 */
				obj_t BgL_g1295z00_1948;

				{
					obj_t BgL_auxz00_5284;

					if (VECTORP(BgL_opt1293z00_23))
						{	/* Unsafe/ftp.scm 408 */
							BgL_auxz00_5284 = BgL_opt1293z00_23;
						}
					else
						{
							obj_t BgL_auxz00_5287;

							BgL_auxz00_5287 =
								BGl_typezd2errorzd2zz__errorz00(BGl_string2573z00zz__ftpz00,
								BINT(13299L), BGl_string2574z00zz__ftpz00,
								BGl_string2575z00zz__ftpz00, BgL_opt1293z00_23);
							FAILURE(BgL_auxz00_5287, BFALSE, BFALSE);
						}
					BgL_g1295z00_1948 = VECTOR_REF(BgL_auxz00_5284, 0L);
				}
				{	/* Unsafe/ftp.scm 408 */
					long BgL_aux1297z00_1950;

					{
						obj_t BgL_auxz00_5292;

						if (VECTORP(BgL_opt1293z00_23))
							{	/* Unsafe/ftp.scm 408 */
								BgL_auxz00_5292 = BgL_opt1293z00_23;
							}
						else
							{
								obj_t BgL_auxz00_5295;

								BgL_auxz00_5295 =
									BGl_typezd2errorzd2zz__errorz00(BGl_string2573z00zz__ftpz00,
									BINT(13299L), BGl_string2574z00zz__ftpz00,
									BGl_string2575z00zz__ftpz00, BgL_opt1293z00_23);
								FAILURE(BgL_auxz00_5295, BFALSE, BFALSE);
							}
						BgL_aux1297z00_1950 = VECTOR_LENGTH(BgL_auxz00_5292);
					}
					switch (BgL_aux1297z00_1950)
						{
						case 1L:

							{	/* Unsafe/ftp.scm 408 */

								{	/* Unsafe/ftp.scm 408 */
									bool_t BgL_res2387z00_3339;

									{	/* Unsafe/ftp.scm 408 */
										BgL_ftpz00_bglt BgL_ftpz00_3330;

										if (BGl_isazf3zf3zz__objectz00(BgL_g1295z00_1948,
												BGl_ftpz00zz__ftpz00))
											{	/* Unsafe/ftp.scm 408 */
												BgL_ftpz00_3330 = ((BgL_ftpz00_bglt) BgL_g1295z00_1948);
											}
										else
											{
												obj_t BgL_auxz00_5303;

												BgL_auxz00_5303 =
													BGl_typezd2errorzd2zz__errorz00
													(BGl_string2573z00zz__ftpz00, BINT(13299L),
													BGl_string2574z00zz__ftpz00,
													BGl_string2548z00zz__ftpz00, BgL_g1295z00_1948);
												FAILURE(BgL_auxz00_5303, BFALSE, BFALSE);
											}
										{
											obj_t BgL_auxz00_5307;

											{	/* Unsafe/ftp.scm 410 */
												obj_t BgL_arg1755z00_3332;
												obj_t BgL_arg1756z00_3333;

												BgL_arg1755z00_3332 =
													(((BgL_ftpz00_bglt) COBJECT(BgL_ftpz00_3330))->
													BgL_hostz00);
												BgL_arg1756z00_3333 =
													(((BgL_ftpz00_bglt) COBJECT(BgL_ftpz00_3330))->
													BgL_portz00);
												{	/* Unsafe/ftp.scm 410 */
													obj_t BgL_domainz00_3334;

													BgL_domainz00_3334 = BGl_symbol2571z00zz__ftpz00;
													BgL_auxz00_5307 =
														BGl_makezd2clientzd2socketz00zz__socketz00
														(BgL_arg1755z00_3332, CINT(BgL_arg1756z00_3333),
														BgL_domainz00_3334, BTRUE, BTRUE, BINT(0L));
												}
											}
											((((BgL_z52ftpz52_bglt) COBJECT(
															((BgL_z52ftpz52_bglt) BgL_ftpz00_3330)))->
													BgL_cmdz00) = ((obj_t) BgL_auxz00_5307), BUNSPEC);
										}
										BgL_res2387z00_3339 =
											CBOOL(BGl_z52ftpzd2enginezd2cmdz52zz__ftpz00(
												((obj_t) BgL_ftpz00_3330), BFALSE, BNIL));
									}
									return BBOOL(BgL_res2387z00_3339);
								}
							}
							break;
						case 2L:

							{	/* Unsafe/ftp.scm 408 */
								obj_t BgL_timeoutz00_1952;

								{
									obj_t BgL_auxz00_5319;

									if (VECTORP(BgL_opt1293z00_23))
										{	/* Unsafe/ftp.scm 408 */
											BgL_auxz00_5319 = BgL_opt1293z00_23;
										}
									else
										{
											obj_t BgL_auxz00_5322;

											BgL_auxz00_5322 =
												BGl_typezd2errorzd2zz__errorz00
												(BGl_string2573z00zz__ftpz00, BINT(13299L),
												BGl_string2574z00zz__ftpz00,
												BGl_string2575z00zz__ftpz00, BgL_opt1293z00_23);
											FAILURE(BgL_auxz00_5322, BFALSE, BFALSE);
										}
									BgL_timeoutz00_1952 = VECTOR_REF(BgL_auxz00_5319, 1L);
								}
								{	/* Unsafe/ftp.scm 408 */

									{	/* Unsafe/ftp.scm 408 */
										bool_t BgL_res2388z00_3349;

										{	/* Unsafe/ftp.scm 408 */
											BgL_ftpz00_bglt BgL_ftpz00_3340;

											if (BGl_isazf3zf3zz__objectz00(BgL_g1295z00_1948,
													BGl_ftpz00zz__ftpz00))
												{	/* Unsafe/ftp.scm 408 */
													BgL_ftpz00_3340 =
														((BgL_ftpz00_bglt) BgL_g1295z00_1948);
												}
											else
												{
													obj_t BgL_auxz00_5330;

													BgL_auxz00_5330 =
														BGl_typezd2errorzd2zz__errorz00
														(BGl_string2573z00zz__ftpz00, BINT(13299L),
														BGl_string2574z00zz__ftpz00,
														BGl_string2548z00zz__ftpz00, BgL_g1295z00_1948);
													FAILURE(BgL_auxz00_5330, BFALSE, BFALSE);
												}
											{
												obj_t BgL_auxz00_5334;

												{	/* Unsafe/ftp.scm 410 */
													obj_t BgL_arg1755z00_3342;
													obj_t BgL_arg1756z00_3343;

													BgL_arg1755z00_3342 =
														(((BgL_ftpz00_bglt) COBJECT(BgL_ftpz00_3340))->
														BgL_hostz00);
													BgL_arg1756z00_3343 =
														(((BgL_ftpz00_bglt) COBJECT(BgL_ftpz00_3340))->
														BgL_portz00);
													{	/* Unsafe/ftp.scm 410 */
														obj_t BgL_domainz00_3344;

														BgL_domainz00_3344 = BGl_symbol2571z00zz__ftpz00;
														BgL_auxz00_5334 =
															BGl_makezd2clientzd2socketz00zz__socketz00
															(BgL_arg1755z00_3342, CINT(BgL_arg1756z00_3343),
															BgL_domainz00_3344, BTRUE, BTRUE,
															BgL_timeoutz00_1952);
													}
												}
												((((BgL_z52ftpz52_bglt) COBJECT(
																((BgL_z52ftpz52_bglt) BgL_ftpz00_3340)))->
														BgL_cmdz00) = ((obj_t) BgL_auxz00_5334), BUNSPEC);
											}
											BgL_res2388z00_3349 =
												CBOOL(BGl_z52ftpzd2enginezd2cmdz52zz__ftpz00(
													((obj_t) BgL_ftpz00_3340), BFALSE, BNIL));
										}
										return BBOOL(BgL_res2388z00_3349);
									}
								}
							}
							break;
						default:
							return BUNSPEC;
						}
				}
			}
		}

	}



/* ftp-connect */
	BGL_EXPORTED_DEF bool_t BGl_ftpzd2connectzd2zz__ftpz00(BgL_ftpz00_bglt
		BgL_ftpz00_21, obj_t BgL_timeoutz00_22)
	{
		{	/* Unsafe/ftp.scm 408 */
			{
				obj_t BgL_auxz00_5346;

				{	/* Unsafe/ftp.scm 410 */
					obj_t BgL_arg1755z00_3351;
					obj_t BgL_arg1756z00_3352;

					BgL_arg1755z00_3351 =
						(((BgL_ftpz00_bglt) COBJECT(BgL_ftpz00_21))->BgL_hostz00);
					BgL_arg1756z00_3352 =
						(((BgL_ftpz00_bglt) COBJECT(BgL_ftpz00_21))->BgL_portz00);
					{	/* Unsafe/ftp.scm 410 */
						obj_t BgL_domainz00_3353;

						BgL_domainz00_3353 = BGl_symbol2571z00zz__ftpz00;
						BgL_auxz00_5346 =
							BGl_makezd2clientzd2socketz00zz__socketz00(BgL_arg1755z00_3351,
							CINT(BgL_arg1756z00_3352), BgL_domainz00_3353, BTRUE, BTRUE,
							BgL_timeoutz00_22);
					}
				}
				((((BgL_z52ftpz52_bglt) COBJECT(
								((BgL_z52ftpz52_bglt) BgL_ftpz00_21)))->BgL_cmdz00) =
					((obj_t) BgL_auxz00_5346), BUNSPEC);
			}
			return
				CBOOL(BGl_z52ftpzd2enginezd2cmdz52zz__ftpz00(
					((obj_t) BgL_ftpz00_21), BFALSE, BNIL));
		}

	}



/* %ftp-dtp-init */
	obj_t BGl_z52ftpzd2dtpzd2initz52zz__ftpz00(obj_t BgL_ftpz00_25)
	{
		{	/* Unsafe/ftp.scm 416 */
			if (
				(((BgL_z52ftpz52_bglt) COBJECT(
							((BgL_z52ftpz52_bglt) BgL_ftpz00_25)))->BgL_passivezf3zf3))
				{	/* Unsafe/ftp.scm 418 */
					return
						BGl_z52ftpzd2enginezd2cmdz52zz__ftpz00(BgL_ftpz00_25,
						BGl_string2576z00zz__ftpz00, BNIL);
				}
			else
				{	/* Unsafe/ftp.scm 420 */
					BgL_z62ftpzd2errorzb0_bglt BgL_arg1760z00_1964;

					{	/* Unsafe/ftp.scm 420 */
						BgL_z62ftpzd2errorzb0_bglt BgL_new1128z00_1965;

						{	/* Unsafe/ftp.scm 420 */
							BgL_z62ftpzd2errorzb0_bglt BgL_new1127z00_1968;

							BgL_new1127z00_1968 =
								((BgL_z62ftpzd2errorzb0_bglt) BOBJECT(GC_MALLOC(sizeof(struct
											BgL_z62ftpzd2errorzb0_bgl))));
							{	/* Unsafe/ftp.scm 420 */
								long BgL_arg1763z00_1969;

								BgL_arg1763z00_1969 =
									BGL_CLASS_NUM(BGl_z62ftpzd2errorzb0zz__ftpz00);
								BGL_OBJECT_CLASS_NUM_SET(
									((BgL_objectz00_bglt) BgL_new1127z00_1968),
									BgL_arg1763z00_1969);
							}
							BgL_new1128z00_1965 = BgL_new1127z00_1968;
						}
						((((BgL_z62exceptionz62_bglt) COBJECT(
										((BgL_z62exceptionz62_bglt) BgL_new1128z00_1965)))->
								BgL_fnamez00) = ((obj_t) BFALSE), BUNSPEC);
						((((BgL_z62exceptionz62_bglt) COBJECT(((BgL_z62exceptionz62_bglt)
											BgL_new1128z00_1965)))->BgL_locationz00) =
							((obj_t) BFALSE), BUNSPEC);
						{
							obj_t BgL_auxz00_5368;

							{	/* Unsafe/ftp.scm 420 */
								obj_t BgL_arg1761z00_1966;

								{	/* Unsafe/ftp.scm 420 */
									obj_t BgL_arg1762z00_1967;

									{	/* Unsafe/ftp.scm 420 */
										obj_t BgL_classz00_3361;

										BgL_classz00_3361 = BGl_z62ftpzd2errorzb0zz__ftpz00;
										BgL_arg1762z00_1967 =
											BGL_CLASS_ALL_FIELDS(BgL_classz00_3361);
									}
									BgL_arg1761z00_1966 = VECTOR_REF(BgL_arg1762z00_1967, 2L);
								}
								BgL_auxz00_5368 =
									BGl_classzd2fieldzd2defaultzd2valuezd2zz__objectz00
									(BgL_arg1761z00_1966);
							}
							((((BgL_z62exceptionz62_bglt) COBJECT(
											((BgL_z62exceptionz62_bglt) BgL_new1128z00_1965)))->
									BgL_stackz00) = ((obj_t) BgL_auxz00_5368), BUNSPEC);
						}
						((((BgL_z62errorz62_bglt) COBJECT(
										((BgL_z62errorz62_bglt) BgL_new1128z00_1965)))->
								BgL_procz00) = ((obj_t) BGl_string2577z00zz__ftpz00), BUNSPEC);
						((((BgL_z62errorz62_bglt) COBJECT(((BgL_z62errorz62_bglt)
											BgL_new1128z00_1965)))->BgL_msgz00) =
							((obj_t) BGl_string2578z00zz__ftpz00), BUNSPEC);
						((((BgL_z62errorz62_bglt) COBJECT(((BgL_z62errorz62_bglt)
											BgL_new1128z00_1965)))->BgL_objz00) =
							((obj_t) BgL_ftpz00_25), BUNSPEC);
						BgL_arg1760z00_1964 = BgL_new1128z00_1965;
					}
					BGL_TAIL return
						BGl_raisez00zz__errorz00(((obj_t) BgL_arg1760z00_1964));
				}
		}

	}



/* %ftp-dtp-pasv-setup */
	obj_t BGl_z52ftpzd2dtpzd2pasvzd2setupz80zz__ftpz00(obj_t BgL_ftpz00_29)
	{
		{	/* Unsafe/ftp.scm 436 */
			{	/* Unsafe/ftp.scm 438 */
				obj_t BgL___retval3023z00_5382;

				{	/* Unsafe/ftp.scm 438 */
					bool_t BgL_res1134z00_4514;

					{	/* Unsafe/ftp.scm 439 */
						obj_t BgL_hostz00_4515;

						{	/* Unsafe/ftp.scm 441 */
							bool_t BgL_test3025z00_5383;

							{	/* Unsafe/ftp.scm 441 */
								obj_t BgL_arg1778z00_4516;

								BgL_arg1778z00_4516 =
									(((BgL_z52ftpz52_bglt) COBJECT(
											((BgL_z52ftpz52_bglt) BgL_ftpz00_29)))->BgL_dtpz00);
								BgL_test3025z00_5383 = SOCKETP(BgL_arg1778z00_4516);
							}
							if (BgL_test3025z00_5383)
								{	/* Unsafe/ftp.scm 442 */
									obj_t BgL_val0_1241z00_4517;
									obj_t BgL_val1_1242z00_4518;

									{	/* Unsafe/ftp.scm 442 */
										obj_t BgL_arg1770z00_4519;

										BgL_arg1770z00_4519 =
											(((BgL_z52ftpz52_bglt) COBJECT(
													((BgL_z52ftpz52_bglt) BgL_ftpz00_29)))->BgL_dtpz00);
										BgL_val0_1241z00_4517 =
											bgl_socket_host_addr(((obj_t) BgL_arg1770z00_4519));
									}
									{	/* Unsafe/ftp.scm 443 */
										obj_t BgL_arg1771z00_4520;

										BgL_arg1771z00_4520 =
											(((BgL_z52ftpz52_bglt) COBJECT(
													((BgL_z52ftpz52_bglt) BgL_ftpz00_29)))->BgL_dtpz00);
										{	/* Unsafe/ftp.scm 443 */
											obj_t BgL_res2390z00_4521;

											{	/* Unsafe/ftp.scm 443 */
												int BgL_tmpz00_5393;

												{	/* Unsafe/ftp.scm 443 */
													obj_t BgL_tmpz00_5394;

													BgL_tmpz00_5394 = ((obj_t) BgL_arg1771z00_4520);
													BgL_tmpz00_5393 = SOCKET_PORT(BgL_tmpz00_5394);
												}
												BgL_res2390z00_4521 = BINT(BgL_tmpz00_5393);
											}
											BgL_val1_1242z00_4518 = BgL_res2390z00_4521;
									}}
									{	/* Unsafe/ftp.scm 442 */
										int BgL_tmpz00_5398;

										BgL_tmpz00_5398 = (int) (2L);
										BGL_MVALUES_NUMBER_SET(BgL_tmpz00_5398);
									}
									{	/* Unsafe/ftp.scm 442 */
										int BgL_tmpz00_5401;

										BgL_tmpz00_5401 = (int) (1L);
										BGL_MVALUES_VAL_SET(BgL_tmpz00_5401, BgL_val1_1242z00_4518);
									}
									BgL_hostz00_4515 = BgL_val0_1241z00_4517;
								}
							else
								{	/* Unsafe/ftp.scm 444 */
									bool_t BgL_test3026z00_5404;

									{	/* Unsafe/ftp.scm 444 */
										obj_t BgL_tmpz00_5405;

										BgL_tmpz00_5405 =
											(((BgL_z52ftpz52_bglt) COBJECT(
													((BgL_z52ftpz52_bglt) BgL_ftpz00_29)))->BgL_dtpz00);
										BgL_test3026z00_5404 = PAIRP(BgL_tmpz00_5405);
									}
									if (BgL_test3026z00_5404)
										{	/* Unsafe/ftp.scm 445 */
											obj_t BgL_val0_1243z00_4522;
											obj_t BgL_val1_1244z00_4523;

											{	/* Unsafe/ftp.scm 445 */
												obj_t BgL_pairz00_4524;

												BgL_pairz00_4524 =
													(((BgL_z52ftpz52_bglt) COBJECT(
															((BgL_z52ftpz52_bglt) BgL_ftpz00_29)))->
													BgL_dtpz00);
												BgL_val0_1243z00_4522 = CAR(BgL_pairz00_4524);
											}
											{	/* Unsafe/ftp.scm 445 */
												obj_t BgL_pairz00_4525;

												BgL_pairz00_4525 =
													(((BgL_z52ftpz52_bglt) COBJECT(
															((BgL_z52ftpz52_bglt) BgL_ftpz00_29)))->
													BgL_dtpz00);
												BgL_val1_1244z00_4523 = CAR(CDR(BgL_pairz00_4525));
											}
											{	/* Unsafe/ftp.scm 445 */
												int BgL_tmpz00_5416;

												BgL_tmpz00_5416 = (int) (2L);
												BGL_MVALUES_NUMBER_SET(BgL_tmpz00_5416);
											}
											{	/* Unsafe/ftp.scm 445 */
												int BgL_tmpz00_5419;

												BgL_tmpz00_5419 = (int) (1L);
												BGL_MVALUES_VAL_SET(BgL_tmpz00_5419,
													BgL_val1_1244z00_4523);
											}
											BgL_hostz00_4515 = BgL_val0_1243z00_4522;
										}
									else
										{	/* Unsafe/ftp.scm 444 */
											BgL___retval3023z00_5382 = BFALSE;
											goto __return3024;
										}
								}
						}
						{	/* Unsafe/ftp.scm 440 */
							obj_t BgL_portz00_4526;

							{	/* Unsafe/ftp.scm 448 */
								obj_t BgL_tmpz00_4527;

								{	/* Unsafe/ftp.scm 448 */
									int BgL_tmpz00_5422;

									BgL_tmpz00_5422 = (int) (1L);
									BgL_tmpz00_4527 = BGL_MVALUES_VAL(BgL_tmpz00_5422);
								}
								{	/* Unsafe/ftp.scm 448 */
									int BgL_tmpz00_5425;

									BgL_tmpz00_5425 = (int) (1L);
									BGL_MVALUES_VAL_SET(BgL_tmpz00_5425, BUNSPEC);
								}
								BgL_portz00_4526 = BgL_tmpz00_4527;
							}
							{
								obj_t BgL_auxz00_5428;

								{	/* Unsafe/ftp.scm 448 */
									obj_t BgL_domainz00_4528;

									BgL_domainz00_4528 = BGl_symbol2571z00zz__ftpz00;
									BgL_auxz00_5428 =
										BGl_makezd2clientzd2socketz00zz__socketz00(BgL_hostz00_4515,
										CINT(BgL_portz00_4526), BgL_domainz00_4528, BTRUE, BTRUE,
										BINT(0L));
								}
								((((BgL_z52ftpz52_bglt) COBJECT(
												((BgL_z52ftpz52_bglt) BgL_ftpz00_29)))->BgL_dtpz00) =
									((obj_t) BgL_auxz00_5428), BUNSPEC);
							}
							{	/* Unsafe/ftp.scm 449 */
								obj_t BgL_arg1767z00_4529;

								BgL_arg1767z00_4529 =
									(((BgL_z52ftpz52_bglt) COBJECT(
											((BgL_z52ftpz52_bglt) BgL_ftpz00_29)))->BgL_dtpz00);
								BgL_res1134z00_4514 = SOCKETP(BgL_arg1767z00_4529);
					}}}
					BgL___retval3023z00_5382 = BBOOL(BgL_res1134z00_4514);
				}
			__return3024:
				return BgL___retval3023z00_5382;
			}
		}

	}



/* ftpport->hostport */
	obj_t BGl_ftpportzd2ze3hostportz31zz__ftpz00(obj_t BgL_plistz00_32)
	{
		{	/* Unsafe/ftp.scm 462 */
			{	/* Unsafe/ftp.scm 463 */
				obj_t BgL_addrz00_2010;
				obj_t BgL_portz00_2011;

				{	/* Unsafe/ftp.scm 464 */
					obj_t BgL_arg1787z00_2014;
					obj_t BgL_arg1788z00_2015;
					obj_t BgL_arg1789z00_2016;
					obj_t BgL_arg1790z00_2017;

					BgL_arg1787z00_2014 = bgl_list_ref(BgL_plistz00_32, 0L);
					BgL_arg1788z00_2015 = bgl_list_ref(BgL_plistz00_32, 1L);
					BgL_arg1789z00_2016 = bgl_list_ref(BgL_plistz00_32, 2L);
					BgL_arg1790z00_2017 = bgl_list_ref(BgL_plistz00_32, 3L);
					{	/* Unsafe/ftp.scm 463 */
						obj_t BgL_list1791z00_2018;

						{	/* Unsafe/ftp.scm 463 */
							obj_t BgL_arg1792z00_2019;

							{	/* Unsafe/ftp.scm 463 */
								obj_t BgL_arg1793z00_2020;

								{	/* Unsafe/ftp.scm 463 */
									obj_t BgL_arg1794z00_2021;

									BgL_arg1794z00_2021 =
										MAKE_YOUNG_PAIR(BgL_arg1790z00_2017, BNIL);
									BgL_arg1793z00_2020 =
										MAKE_YOUNG_PAIR(BgL_arg1789z00_2016, BgL_arg1794z00_2021);
								}
								BgL_arg1792z00_2019 =
									MAKE_YOUNG_PAIR(BgL_arg1788z00_2015, BgL_arg1793z00_2020);
							}
							BgL_list1791z00_2018 =
								MAKE_YOUNG_PAIR(BgL_arg1787z00_2014, BgL_arg1792z00_2019);
						}
						BgL_addrz00_2010 =
							BGl_formatz00zz__r4_output_6_10_3z00(BGl_string2579z00zz__ftpz00,
							BgL_list1791z00_2018);
					}
				}
				{	/* Unsafe/ftp.scm 468 */
					obj_t BgL_a1246z00_2022;

					{	/* Unsafe/ftp.scm 468 */
						obj_t BgL_a1245z00_2025;

						BgL_a1245z00_2025 = bgl_list_ref(BgL_plistz00_32, 4L);
						if (INTEGERP(BgL_a1245z00_2025))
							{	/* Unsafe/ftp.scm 468 */
								obj_t BgL_tmpz00_3378;

								BgL_tmpz00_3378 = BINT(0L);
								{	/* Unsafe/ftp.scm 468 */
									bool_t BgL_test3028z00_5451;

									{	/* Unsafe/ftp.scm 468 */
										obj_t BgL_tmpz00_5452;

										BgL_tmpz00_5452 = BINT(256L);
										BgL_test3028z00_5451 =
											BGL_MULFX_OV(BgL_a1245z00_2025, BgL_tmpz00_5452,
											BgL_tmpz00_3378);
									}
									if (BgL_test3028z00_5451)
										{	/* Unsafe/ftp.scm 468 */
											BgL_a1246z00_2022 =
												bgl_bignum_mul(bgl_long_to_bignum(
													(long) CINT(BgL_a1245z00_2025)),
												bgl_long_to_bignum(256L));
										}
									else
										{	/* Unsafe/ftp.scm 468 */
											BgL_a1246z00_2022 = BgL_tmpz00_3378;
										}
								}
							}
						else
							{	/* Unsafe/ftp.scm 468 */
								BgL_a1246z00_2022 =
									BGl_2za2za2zz__r4_numbers_6_5z00(BgL_a1245z00_2025,
									BINT(256L));
							}
					}
					{	/* Unsafe/ftp.scm 468 */
						obj_t BgL_b1247z00_2023;

						BgL_b1247z00_2023 = bgl_list_ref(BgL_plistz00_32, 5L);
						{	/* Unsafe/ftp.scm 468 */

							{	/* Unsafe/ftp.scm 468 */
								bool_t BgL_test3029z00_5462;

								if (INTEGERP(BgL_a1246z00_2022))
									{	/* Unsafe/ftp.scm 468 */
										BgL_test3029z00_5462 = INTEGERP(BgL_b1247z00_2023);
									}
								else
									{	/* Unsafe/ftp.scm 468 */
										BgL_test3029z00_5462 = ((bool_t) 0);
									}
								if (BgL_test3029z00_5462)
									{	/* Unsafe/ftp.scm 468 */
										obj_t BgL_tmpz00_3388;

										BgL_tmpz00_3388 = BINT(0L);
										if (BGL_ADDFX_OV(BgL_a1246z00_2022, BgL_b1247z00_2023,
												BgL_tmpz00_3388))
											{	/* Unsafe/ftp.scm 468 */
												BgL_portz00_2011 =
													bgl_bignum_add(bgl_long_to_bignum(
														(long) CINT(BgL_a1246z00_2022)),
													bgl_long_to_bignum((long) CINT(BgL_b1247z00_2023)));
											}
										else
											{	/* Unsafe/ftp.scm 468 */
												BgL_portz00_2011 = BgL_tmpz00_3388;
											}
									}
								else
									{	/* Unsafe/ftp.scm 468 */
										BgL_portz00_2011 =
											BGl_2zb2zb2zz__r4_numbers_6_5z00(BgL_a1246z00_2022,
											BgL_b1247z00_2023);
									}
							}
						}
					}
				}
				{	/* Unsafe/ftp.scm 469 */
					int BgL_tmpz00_5475;

					BgL_tmpz00_5475 = (int) (2L);
					BGL_MVALUES_NUMBER_SET(BgL_tmpz00_5475);
				}
				{	/* Unsafe/ftp.scm 469 */
					int BgL_tmpz00_5478;

					BgL_tmpz00_5478 = (int) (1L);
					BGL_MVALUES_VAL_SET(BgL_tmpz00_5478, BgL_portz00_2011);
				}
				return BgL_addrz00_2010;
			}
		}

	}



/* ftp-logout */
	BGL_EXPORTED_DEF bool_t BGl_ftpzd2logoutzd2zz__ftpz00(BgL_ftpz00_bglt
		BgL_ftpz00_33)
	{
		{	/* Unsafe/ftp.scm 474 */
			return
				CBOOL(BGl_z52ftpzd2enginezd2cmdz52zz__ftpz00(
					((obj_t) BgL_ftpz00_33), BGl_string2580z00zz__ftpz00, BNIL));
		}

	}



/* &ftp-logout */
	obj_t BGl_z62ftpzd2logoutzb0zz__ftpz00(obj_t BgL_envz00_3946,
		obj_t BgL_ftpz00_3947)
	{
		{	/* Unsafe/ftp.scm 474 */
			{	/* Unsafe/ftp.scm 475 */
				bool_t BgL_tmpz00_5484;

				{	/* Unsafe/ftp.scm 475 */
					BgL_ftpz00_bglt BgL_auxz00_5485;

					if (BGl_isazf3zf3zz__objectz00(BgL_ftpz00_3947, BGl_ftpz00zz__ftpz00))
						{	/* Unsafe/ftp.scm 475 */
							BgL_auxz00_5485 = ((BgL_ftpz00_bglt) BgL_ftpz00_3947);
						}
					else
						{
							obj_t BgL_auxz00_5489;

							BgL_auxz00_5489 =
								BGl_typezd2errorzd2zz__errorz00(BGl_string2573z00zz__ftpz00,
								BINT(16109L), BGl_string2581z00zz__ftpz00,
								BGl_string2548z00zz__ftpz00, BgL_ftpz00_3947);
							FAILURE(BgL_auxz00_5489, BFALSE, BFALSE);
						}
					BgL_tmpz00_5484 = BGl_ftpzd2logoutzd2zz__ftpz00(BgL_auxz00_5485);
				}
				return BBOOL(BgL_tmpz00_5484);
			}
		}

	}



/* ftp-cd */
	BGL_EXPORTED_DEF bool_t BGl_ftpzd2cdzd2zz__ftpz00(BgL_ftpz00_bglt
		BgL_ftpz00_34, obj_t BgL_directoryz00_35)
	{
		{	/* Unsafe/ftp.scm 480 */
			{	/* Unsafe/ftp.scm 481 */
				obj_t BgL_list1797z00_3397;

				BgL_list1797z00_3397 = MAKE_YOUNG_PAIR(BgL_directoryz00_35, BNIL);
				return
					CBOOL(BGl_z52ftpzd2enginezd2cmdz52zz__ftpz00(
						((obj_t) BgL_ftpz00_34), BGl_string2582z00zz__ftpz00,
						BgL_list1797z00_3397));
			}
		}

	}



/* &ftp-cd */
	obj_t BGl_z62ftpzd2cdzb0zz__ftpz00(obj_t BgL_envz00_3948,
		obj_t BgL_ftpz00_3949, obj_t BgL_directoryz00_3950)
	{
		{	/* Unsafe/ftp.scm 480 */
			{	/* Unsafe/ftp.scm 481 */
				bool_t BgL_tmpz00_5499;

				{	/* Unsafe/ftp.scm 481 */
					obj_t BgL_auxz00_5508;
					BgL_ftpz00_bglt BgL_auxz00_5500;

					if (STRINGP(BgL_directoryz00_3950))
						{	/* Unsafe/ftp.scm 481 */
							BgL_auxz00_5508 = BgL_directoryz00_3950;
						}
					else
						{
							obj_t BgL_auxz00_5511;

							BgL_auxz00_5511 =
								BGl_typezd2errorzd2zz__errorz00(BGl_string2573z00zz__ftpz00,
								BINT(16396L), BGl_string2583z00zz__ftpz00,
								BGl_string2584z00zz__ftpz00, BgL_directoryz00_3950);
							FAILURE(BgL_auxz00_5511, BFALSE, BFALSE);
						}
					if (BGl_isazf3zf3zz__objectz00(BgL_ftpz00_3949, BGl_ftpz00zz__ftpz00))
						{	/* Unsafe/ftp.scm 481 */
							BgL_auxz00_5500 = ((BgL_ftpz00_bglt) BgL_ftpz00_3949);
						}
					else
						{
							obj_t BgL_auxz00_5504;

							BgL_auxz00_5504 =
								BGl_typezd2errorzd2zz__errorz00(BGl_string2573z00zz__ftpz00,
								BINT(16396L), BGl_string2583z00zz__ftpz00,
								BGl_string2548z00zz__ftpz00, BgL_ftpz00_3949);
							FAILURE(BgL_auxz00_5504, BFALSE, BFALSE);
						}
					BgL_tmpz00_5499 =
						BGl_ftpzd2cdzd2zz__ftpz00(BgL_auxz00_5500, BgL_auxz00_5508);
				}
				return BBOOL(BgL_tmpz00_5499);
			}
		}

	}



/* ftp-cd-parent */
	BGL_EXPORTED_DEF bool_t BGl_ftpzd2cdzd2parentz00zz__ftpz00(BgL_ftpz00_bglt
		BgL_ftpz00_36)
	{
		{	/* Unsafe/ftp.scm 486 */
			return
				CBOOL(BGl_z52ftpzd2enginezd2cmdz52zz__ftpz00(
					((obj_t) BgL_ftpz00_36), BGl_string2585z00zz__ftpz00, BNIL));
		}

	}



/* &ftp-cd-parent */
	obj_t BGl_z62ftpzd2cdzd2parentz62zz__ftpz00(obj_t BgL_envz00_3951,
		obj_t BgL_ftpz00_3952)
	{
		{	/* Unsafe/ftp.scm 486 */
			{	/* Unsafe/ftp.scm 487 */
				bool_t BgL_tmpz00_5520;

				{	/* Unsafe/ftp.scm 487 */
					BgL_ftpz00_bglt BgL_auxz00_5521;

					if (BGl_isazf3zf3zz__objectz00(BgL_ftpz00_3952, BGl_ftpz00zz__ftpz00))
						{	/* Unsafe/ftp.scm 487 */
							BgL_auxz00_5521 = ((BgL_ftpz00_bglt) BgL_ftpz00_3952);
						}
					else
						{
							obj_t BgL_auxz00_5525;

							BgL_auxz00_5525 =
								BGl_typezd2errorzd2zz__errorz00(BGl_string2573z00zz__ftpz00,
								BINT(16689L), BGl_string2586z00zz__ftpz00,
								BGl_string2548z00zz__ftpz00, BgL_ftpz00_3952);
							FAILURE(BgL_auxz00_5525, BFALSE, BFALSE);
						}
					BgL_tmpz00_5520 = BGl_ftpzd2cdzd2parentz00zz__ftpz00(BgL_auxz00_5521);
				}
				return BBOOL(BgL_tmpz00_5520);
			}
		}

	}



/* ftp-mount */
	BGL_EXPORTED_DEF bool_t BGl_ftpzd2mountzd2zz__ftpz00(BgL_ftpz00_bglt
		BgL_ftpz00_37, obj_t BgL_mountzd2pointzd2_38)
	{
		{	/* Unsafe/ftp.scm 492 */
			{	/* Unsafe/ftp.scm 493 */
				obj_t BgL_list1799z00_3399;

				BgL_list1799z00_3399 = MAKE_YOUNG_PAIR(BgL_mountzd2pointzd2_38, BNIL);
				return
					CBOOL(BGl_z52ftpzd2enginezd2cmdz52zz__ftpz00(
						((obj_t) BgL_ftpz00_37), BGl_string2587z00zz__ftpz00,
						BgL_list1799z00_3399));
			}
		}

	}



/* &ftp-mount */
	obj_t BGl_z62ftpzd2mountzb0zz__ftpz00(obj_t BgL_envz00_3953,
		obj_t BgL_ftpz00_3954, obj_t BgL_mountzd2pointzd2_3955)
	{
		{	/* Unsafe/ftp.scm 492 */
			{	/* Unsafe/ftp.scm 493 */
				bool_t BgL_tmpz00_5535;

				{	/* Unsafe/ftp.scm 493 */
					obj_t BgL_auxz00_5544;
					BgL_ftpz00_bglt BgL_auxz00_5536;

					if (STRINGP(BgL_mountzd2pointzd2_3955))
						{	/* Unsafe/ftp.scm 493 */
							BgL_auxz00_5544 = BgL_mountzd2pointzd2_3955;
						}
					else
						{
							obj_t BgL_auxz00_5547;

							BgL_auxz00_5547 =
								BGl_typezd2errorzd2zz__errorz00(BGl_string2573z00zz__ftpz00,
								BINT(16981L), BGl_string2588z00zz__ftpz00,
								BGl_string2584z00zz__ftpz00, BgL_mountzd2pointzd2_3955);
							FAILURE(BgL_auxz00_5547, BFALSE, BFALSE);
						}
					if (BGl_isazf3zf3zz__objectz00(BgL_ftpz00_3954, BGl_ftpz00zz__ftpz00))
						{	/* Unsafe/ftp.scm 493 */
							BgL_auxz00_5536 = ((BgL_ftpz00_bglt) BgL_ftpz00_3954);
						}
					else
						{
							obj_t BgL_auxz00_5540;

							BgL_auxz00_5540 =
								BGl_typezd2errorzd2zz__errorz00(BGl_string2573z00zz__ftpz00,
								BINT(16981L), BGl_string2588z00zz__ftpz00,
								BGl_string2548z00zz__ftpz00, BgL_ftpz00_3954);
							FAILURE(BgL_auxz00_5540, BFALSE, BFALSE);
						}
					BgL_tmpz00_5535 =
						BGl_ftpzd2mountzd2zz__ftpz00(BgL_auxz00_5536, BgL_auxz00_5544);
				}
				return BBOOL(BgL_tmpz00_5535);
			}
		}

	}



/* ftp-reinitialize */
	BGL_EXPORTED_DEF bool_t BGl_ftpzd2reinitializa7ez75zz__ftpz00(BgL_ftpz00_bglt
		BgL_ftpz00_39)
	{
		{	/* Unsafe/ftp.scm 498 */
			return
				CBOOL(BGl_z52ftpzd2enginezd2cmdz52zz__ftpz00(
					((obj_t) BgL_ftpz00_39), BGl_string2589z00zz__ftpz00, BNIL));
		}

	}



/* &ftp-reinitialize */
	obj_t BGl_z62ftpzd2reinitializa7ez17zz__ftpz00(obj_t BgL_envz00_3956,
		obj_t BgL_ftpz00_3957)
	{
		{	/* Unsafe/ftp.scm 498 */
			{	/* Unsafe/ftp.scm 499 */
				bool_t BgL_tmpz00_5556;

				{	/* Unsafe/ftp.scm 499 */
					BgL_ftpz00_bglt BgL_auxz00_5557;

					if (BGl_isazf3zf3zz__objectz00(BgL_ftpz00_3957, BGl_ftpz00zz__ftpz00))
						{	/* Unsafe/ftp.scm 499 */
							BgL_auxz00_5557 = ((BgL_ftpz00_bglt) BgL_ftpz00_3957);
						}
					else
						{
							obj_t BgL_auxz00_5561;

							BgL_auxz00_5561 =
								BGl_typezd2errorzd2zz__errorz00(BGl_string2573z00zz__ftpz00,
								BINT(17280L), BGl_string2590z00zz__ftpz00,
								BGl_string2548z00zz__ftpz00, BgL_ftpz00_3957);
							FAILURE(BgL_auxz00_5561, BFALSE, BFALSE);
						}
					BgL_tmpz00_5556 =
						BGl_ftpzd2reinitializa7ez75zz__ftpz00(BgL_auxz00_5557);
				}
				return BBOOL(BgL_tmpz00_5556);
			}
		}

	}



/* ftp-data-port */
	BGL_EXPORTED_DEF bool_t BGl_ftpzd2datazd2portz00zz__ftpz00(BgL_ftpz00_bglt
		BgL_ftpz00_40, obj_t BgL_hostz00_41, obj_t BgL_portz00_42)
	{
		{	/* Unsafe/ftp.scm 504 */
			{	/* Unsafe/ftp.scm 505 */
				BgL_z62ftpzd2errorzb0_bglt BgL_arg1801z00_2031;

				{	/* Unsafe/ftp.scm 505 */
					BgL_z62ftpzd2errorzb0_bglt BgL_new1138z00_2032;

					{	/* Unsafe/ftp.scm 505 */
						BgL_z62ftpzd2errorzb0_bglt BgL_new1137z00_2035;

						BgL_new1137z00_2035 =
							((BgL_z62ftpzd2errorzb0_bglt) BOBJECT(GC_MALLOC(sizeof(struct
										BgL_z62ftpzd2errorzb0_bgl))));
						{	/* Unsafe/ftp.scm 505 */
							long BgL_arg1805z00_2036;

							BgL_arg1805z00_2036 =
								BGL_CLASS_NUM(BGl_z62ftpzd2errorzb0zz__ftpz00);
							BGL_OBJECT_CLASS_NUM_SET(
								((BgL_objectz00_bglt) BgL_new1137z00_2035),
								BgL_arg1805z00_2036);
						}
						BgL_new1138z00_2032 = BgL_new1137z00_2035;
					}
					((((BgL_z62exceptionz62_bglt) COBJECT(
									((BgL_z62exceptionz62_bglt) BgL_new1138z00_2032)))->
							BgL_fnamez00) = ((obj_t) BFALSE), BUNSPEC);
					((((BgL_z62exceptionz62_bglt) COBJECT(((BgL_z62exceptionz62_bglt)
										BgL_new1138z00_2032)))->BgL_locationz00) =
						((obj_t) BFALSE), BUNSPEC);
					{
						obj_t BgL_auxz00_5575;

						{	/* Unsafe/ftp.scm 505 */
							obj_t BgL_arg1803z00_2033;

							{	/* Unsafe/ftp.scm 505 */
								obj_t BgL_arg1804z00_2034;

								{	/* Unsafe/ftp.scm 505 */
									obj_t BgL_classz00_3404;

									BgL_classz00_3404 = BGl_z62ftpzd2errorzb0zz__ftpz00;
									BgL_arg1804z00_2034 = BGL_CLASS_ALL_FIELDS(BgL_classz00_3404);
								}
								BgL_arg1803z00_2033 = VECTOR_REF(BgL_arg1804z00_2034, 2L);
							}
							BgL_auxz00_5575 =
								BGl_classzd2fieldzd2defaultzd2valuezd2zz__objectz00
								(BgL_arg1803z00_2033);
						}
						((((BgL_z62exceptionz62_bglt) COBJECT(
										((BgL_z62exceptionz62_bglt) BgL_new1138z00_2032)))->
								BgL_stackz00) = ((obj_t) BgL_auxz00_5575), BUNSPEC);
					}
					((((BgL_z62errorz62_bglt) COBJECT(
									((BgL_z62errorz62_bglt) BgL_new1138z00_2032)))->BgL_procz00) =
						((obj_t) BGl_string2577z00zz__ftpz00), BUNSPEC);
					((((BgL_z62errorz62_bglt) COBJECT(((BgL_z62errorz62_bglt)
										BgL_new1138z00_2032)))->BgL_msgz00) =
						((obj_t) BGl_string2591z00zz__ftpz00), BUNSPEC);
					((((BgL_z62errorz62_bglt) COBJECT(((BgL_z62errorz62_bglt)
										BgL_new1138z00_2032)))->BgL_objz00) =
						((obj_t) ((obj_t) BgL_ftpz00_40)), BUNSPEC);
					BgL_arg1801z00_2031 = BgL_new1138z00_2032;
				}
				return CBOOL(BGl_raisez00zz__errorz00(((obj_t) BgL_arg1801z00_2031)));
			}
		}

	}



/* &ftp-data-port */
	obj_t BGl_z62ftpzd2datazd2portz62zz__ftpz00(obj_t BgL_envz00_3958,
		obj_t BgL_ftpz00_3959, obj_t BgL_hostz00_3960, obj_t BgL_portz00_3961)
	{
		{	/* Unsafe/ftp.scm 504 */
			{	/* Unsafe/ftp.scm 505 */
				bool_t BgL_tmpz00_5591;

				{	/* Unsafe/ftp.scm 505 */
					obj_t BgL_auxz00_5607;
					obj_t BgL_auxz00_5600;
					BgL_ftpz00_bglt BgL_auxz00_5592;

					if (INTEGERP(BgL_portz00_3961))
						{	/* Unsafe/ftp.scm 505 */
							BgL_auxz00_5607 = BgL_portz00_3961;
						}
					else
						{
							obj_t BgL_auxz00_5610;

							BgL_auxz00_5610 =
								BGl_typezd2errorzd2zz__errorz00(BGl_string2573z00zz__ftpz00,
								BINT(17581L), BGl_string2592z00zz__ftpz00,
								BGl_string2593z00zz__ftpz00, BgL_portz00_3961);
							FAILURE(BgL_auxz00_5610, BFALSE, BFALSE);
						}
					if (STRINGP(BgL_hostz00_3960))
						{	/* Unsafe/ftp.scm 505 */
							BgL_auxz00_5600 = BgL_hostz00_3960;
						}
					else
						{
							obj_t BgL_auxz00_5603;

							BgL_auxz00_5603 =
								BGl_typezd2errorzd2zz__errorz00(BGl_string2573z00zz__ftpz00,
								BINT(17581L), BGl_string2592z00zz__ftpz00,
								BGl_string2584z00zz__ftpz00, BgL_hostz00_3960);
							FAILURE(BgL_auxz00_5603, BFALSE, BFALSE);
						}
					if (BGl_isazf3zf3zz__objectz00(BgL_ftpz00_3959, BGl_ftpz00zz__ftpz00))
						{	/* Unsafe/ftp.scm 505 */
							BgL_auxz00_5592 = ((BgL_ftpz00_bglt) BgL_ftpz00_3959);
						}
					else
						{
							obj_t BgL_auxz00_5596;

							BgL_auxz00_5596 =
								BGl_typezd2errorzd2zz__errorz00(BGl_string2573z00zz__ftpz00,
								BINT(17581L), BGl_string2592z00zz__ftpz00,
								BGl_string2548z00zz__ftpz00, BgL_ftpz00_3959);
							FAILURE(BgL_auxz00_5596, BFALSE, BFALSE);
						}
					BgL_tmpz00_5591 =
						BGl_ftpzd2datazd2portz00zz__ftpz00(BgL_auxz00_5592, BgL_auxz00_5600,
						BgL_auxz00_5607);
				}
				return BBOOL(BgL_tmpz00_5591);
			}
		}

	}



/* ftp-passive */
	BGL_EXPORTED_DEF bool_t BGl_ftpzd2passivezd2zz__ftpz00(BgL_ftpz00_bglt
		BgL_ftpz00_43)
	{
		{	/* Unsafe/ftp.scm 513 */
			return
				CBOOL(BGl_z52ftpzd2enginezd2cmdz52zz__ftpz00(
					((obj_t) BgL_ftpz00_43), BGl_string2576z00zz__ftpz00, BNIL));
		}

	}



/* &ftp-passive */
	obj_t BGl_z62ftpzd2passivezb0zz__ftpz00(obj_t BgL_envz00_3962,
		obj_t BgL_ftpz00_3963)
	{
		{	/* Unsafe/ftp.scm 513 */
			{	/* Unsafe/ftp.scm 514 */
				bool_t BgL_tmpz00_5619;

				{	/* Unsafe/ftp.scm 514 */
					BgL_ftpz00_bglt BgL_auxz00_5620;

					if (BGl_isazf3zf3zz__objectz00(BgL_ftpz00_3963, BGl_ftpz00zz__ftpz00))
						{	/* Unsafe/ftp.scm 514 */
							BgL_auxz00_5620 = ((BgL_ftpz00_bglt) BgL_ftpz00_3963);
						}
					else
						{
							obj_t BgL_auxz00_5624;

							BgL_auxz00_5624 =
								BGl_typezd2errorzd2zz__errorz00(BGl_string2573z00zz__ftpz00,
								BINT(17960L), BGl_string2594z00zz__ftpz00,
								BGl_string2548z00zz__ftpz00, BgL_ftpz00_3963);
							FAILURE(BgL_auxz00_5624, BFALSE, BFALSE);
						}
					BgL_tmpz00_5619 = BGl_ftpzd2passivezd2zz__ftpz00(BgL_auxz00_5620);
				}
				return BBOOL(BgL_tmpz00_5619);
			}
		}

	}



/* ftp-data-type */
	BGL_EXPORTED_DEF bool_t BGl_ftpzd2datazd2typez00zz__ftpz00(BgL_ftpz00_bglt
		BgL_ftpz00_44, obj_t BgL_typez00_45, obj_t BgL_localzd2bytezd2siza7eza7_46)
	{
		{	/* Unsafe/ftp.scm 519 */
			{

				{	/* Unsafe/ftp.scm 520 */
					unsigned char BgL_aux1142z00_2039;

					{	/* Unsafe/ftp.scm 520 */
						obj_t BgL_arg1811z00_2043;

						BgL_arg1811z00_2043 = SYMBOL_TO_STRING(BgL_typez00_45);
						BgL_aux1142z00_2039 = STRING_REF(BgL_arg1811z00_2043, 0L);
					}
					switch (BgL_aux1142z00_2039)
						{
						case ((unsigned char) 'a'):
						case ((unsigned char) 'A'):

							{	/* Unsafe/ftp.scm 522 */
								obj_t BgL_list1808z00_2041;

								BgL_list1808z00_2041 =
									MAKE_YOUNG_PAIR(BGl_string2597z00zz__ftpz00, BNIL);
								return
									CBOOL(BGl_z52ftpzd2enginezd2cmdz52zz__ftpz00(
										((obj_t) BgL_ftpz00_44), BGl_string2598z00zz__ftpz00,
										BgL_list1808z00_2041));
							}
							break;
						case ((unsigned char) 'i'):
						case ((unsigned char) 'I'):

							{	/* Unsafe/ftp.scm 524 */
								obj_t BgL_list1809z00_2042;

								BgL_list1809z00_2042 =
									MAKE_YOUNG_PAIR(BGl_string2599z00zz__ftpz00, BNIL);
								return
									CBOOL(BGl_z52ftpzd2enginezd2cmdz52zz__ftpz00(
										((obj_t) BgL_ftpz00_44), BGl_string2598z00zz__ftpz00,
										BgL_list1809z00_2042));
							}
							break;
						default:
							{	/* Unsafe/ftp.scm 520 */
								obj_t BgL_tmpz00_5640;

								{	/* Unsafe/ftp.scm 526 */
									BgL_z62ftpzd2parsezd2errorz62_bglt BgL_arg1812z00_2044;

									{	/* Unsafe/ftp.scm 526 */
										BgL_z62ftpzd2parsezd2errorz62_bglt BgL_new1140z00_2045;

										{	/* Unsafe/ftp.scm 526 */
											BgL_z62ftpzd2parsezd2errorz62_bglt BgL_new1139z00_2048;

											BgL_new1139z00_2048 =
												((BgL_z62ftpzd2parsezd2errorz62_bglt)
												BOBJECT(GC_MALLOC(sizeof(struct
															BgL_z62ftpzd2parsezd2errorz62_bgl))));
											{	/* Unsafe/ftp.scm 526 */
												long BgL_arg1815z00_2049;

												BgL_arg1815z00_2049 =
													BGL_CLASS_NUM
													(BGl_z62ftpzd2parsezd2errorz62zz__ftpz00);
												BGL_OBJECT_CLASS_NUM_SET(((BgL_objectz00_bglt)
														BgL_new1139z00_2048), BgL_arg1815z00_2049);
											}
											BgL_new1140z00_2045 = BgL_new1139z00_2048;
										}
										((((BgL_z62exceptionz62_bglt) COBJECT(
														((BgL_z62exceptionz62_bglt) BgL_new1140z00_2045)))->
												BgL_fnamez00) = ((obj_t) BFALSE), BUNSPEC);
										((((BgL_z62exceptionz62_bglt)
													COBJECT(((BgL_z62exceptionz62_bglt)
															BgL_new1140z00_2045)))->BgL_locationz00) =
											((obj_t) BFALSE), BUNSPEC);
										{
											obj_t BgL_auxz00_5649;

											{	/* Unsafe/ftp.scm 526 */
												obj_t BgL_arg1813z00_2046;

												{	/* Unsafe/ftp.scm 526 */
													obj_t BgL_arg1814z00_2047;

													{	/* Unsafe/ftp.scm 526 */
														obj_t BgL_classz00_3410;

														BgL_classz00_3410 =
															BGl_z62ftpzd2parsezd2errorz62zz__ftpz00;
														BgL_arg1814z00_2047 =
															BGL_CLASS_ALL_FIELDS(BgL_classz00_3410);
													}
													BgL_arg1813z00_2046 =
														VECTOR_REF(BgL_arg1814z00_2047, 2L);
												}
												BgL_auxz00_5649 =
													BGl_classzd2fieldzd2defaultzd2valuezd2zz__objectz00
													(BgL_arg1813z00_2046);
											}
											((((BgL_z62exceptionz62_bglt) COBJECT(
															((BgL_z62exceptionz62_bglt)
																BgL_new1140z00_2045)))->BgL_stackz00) =
												((obj_t) BgL_auxz00_5649), BUNSPEC);
										}
										((((BgL_z62errorz62_bglt) COBJECT(
														((BgL_z62errorz62_bglt) BgL_new1140z00_2045)))->
												BgL_procz00) =
											((obj_t) BGl_string2595z00zz__ftpz00), BUNSPEC);
										((((BgL_z62errorz62_bglt) COBJECT(((BgL_z62errorz62_bglt)
															BgL_new1140z00_2045)))->BgL_msgz00) =
											((obj_t) BGl_string2596z00zz__ftpz00), BUNSPEC);
										((((BgL_z62errorz62_bglt) COBJECT(((BgL_z62errorz62_bglt)
															BgL_new1140z00_2045)))->BgL_objz00) =
											((obj_t) BgL_typez00_45), BUNSPEC);
										BgL_arg1812z00_2044 = BgL_new1140z00_2045;
									}
									BgL_tmpz00_5640 =
										BGl_raisez00zz__errorz00(((obj_t) BgL_arg1812z00_2044));
								}
								return CBOOL(BgL_tmpz00_5640);
							}
						}
				}
			}
		}

	}



/* &ftp-data-type */
	obj_t BGl_z62ftpzd2datazd2typez62zz__ftpz00(obj_t BgL_envz00_3964,
		obj_t BgL_ftpz00_3965, obj_t BgL_typez00_3966,
		obj_t BgL_localzd2bytezd2siza7eza7_3967)
	{
		{	/* Unsafe/ftp.scm 519 */
			{	/* Unsafe/ftp.scm 520 */
				bool_t BgL_tmpz00_5665;

				{	/* Unsafe/ftp.scm 520 */
					obj_t BgL_auxz00_5674;
					BgL_ftpz00_bglt BgL_auxz00_5666;

					if (SYMBOLP(BgL_typez00_3966))
						{	/* Unsafe/ftp.scm 520 */
							BgL_auxz00_5674 = BgL_typez00_3966;
						}
					else
						{
							obj_t BgL_auxz00_5677;

							BgL_auxz00_5677 =
								BGl_typezd2errorzd2zz__errorz00(BGl_string2573z00zz__ftpz00,
								BINT(18267L), BGl_string2600z00zz__ftpz00,
								BGl_string2601z00zz__ftpz00, BgL_typez00_3966);
							FAILURE(BgL_auxz00_5677, BFALSE, BFALSE);
						}
					if (BGl_isazf3zf3zz__objectz00(BgL_ftpz00_3965, BGl_ftpz00zz__ftpz00))
						{	/* Unsafe/ftp.scm 520 */
							BgL_auxz00_5666 = ((BgL_ftpz00_bglt) BgL_ftpz00_3965);
						}
					else
						{
							obj_t BgL_auxz00_5670;

							BgL_auxz00_5670 =
								BGl_typezd2errorzd2zz__errorz00(BGl_string2573z00zz__ftpz00,
								BINT(18267L), BGl_string2600z00zz__ftpz00,
								BGl_string2548z00zz__ftpz00, BgL_ftpz00_3965);
							FAILURE(BgL_auxz00_5670, BFALSE, BFALSE);
						}
					BgL_tmpz00_5665 =
						BGl_ftpzd2datazd2typez00zz__ftpz00(BgL_auxz00_5666, BgL_auxz00_5674,
						BgL_localzd2bytezd2siza7eza7_3967);
				}
				return BBOOL(BgL_tmpz00_5665);
			}
		}

	}



/* ftp-file-structure */
	BGL_EXPORTED_DEF bool_t
		BGl_ftpzd2filezd2structurez00zz__ftpz00(BgL_ftpz00_bglt BgL_ftpz00_47,
		obj_t BgL_structurez00_48)
	{
		{	/* Unsafe/ftp.scm 534 */
			{	/* Unsafe/ftp.scm 535 */
				obj_t BgL_list1816z00_3414;

				BgL_list1816z00_3414 =
					MAKE_YOUNG_PAIR(BGl_string2602z00zz__ftpz00, BNIL);
				return
					CBOOL(BGl_z52ftpzd2enginezd2cmdz52zz__ftpz00(
						((obj_t) BgL_ftpz00_47), BGl_string2603z00zz__ftpz00,
						BgL_list1816z00_3414));
			}
		}

	}



/* &ftp-file-structure */
	obj_t BGl_z62ftpzd2filezd2structurez62zz__ftpz00(obj_t BgL_envz00_3968,
		obj_t BgL_ftpz00_3969, obj_t BgL_structurez00_3970)
	{
		{	/* Unsafe/ftp.scm 534 */
			{	/* Unsafe/ftp.scm 535 */
				bool_t BgL_tmpz00_5687;

				{	/* Unsafe/ftp.scm 535 */
					BgL_ftpz00_bglt BgL_auxz00_5688;

					if (BGl_isazf3zf3zz__objectz00(BgL_ftpz00_3969, BGl_ftpz00zz__ftpz00))
						{	/* Unsafe/ftp.scm 535 */
							BgL_auxz00_5688 = ((BgL_ftpz00_bglt) BgL_ftpz00_3969);
						}
					else
						{
							obj_t BgL_auxz00_5692;

							BgL_auxz00_5692 =
								BGl_typezd2errorzd2zz__errorz00(BGl_string2573z00zz__ftpz00,
								BINT(18864L), BGl_string2604z00zz__ftpz00,
								BGl_string2548z00zz__ftpz00, BgL_ftpz00_3969);
							FAILURE(BgL_auxz00_5692, BFALSE, BFALSE);
						}
					BgL_tmpz00_5687 =
						BGl_ftpzd2filezd2structurez00zz__ftpz00(BgL_auxz00_5688,
						BgL_structurez00_3970);
				}
				return BBOOL(BgL_tmpz00_5687);
			}
		}

	}



/* ftp-transfer-mode */
	BGL_EXPORTED_DEF bool_t BGl_ftpzd2transferzd2modez00zz__ftpz00(BgL_ftpz00_bglt
		BgL_ftpz00_49, obj_t BgL_modez00_50)
	{
		{	/* Unsafe/ftp.scm 540 */
			{	/* Unsafe/ftp.scm 541 */
				obj_t BgL_list1817z00_3415;

				BgL_list1817z00_3415 =
					MAKE_YOUNG_PAIR(BGl_string2605z00zz__ftpz00, BNIL);
				return
					CBOOL(BGl_z52ftpzd2enginezd2cmdz52zz__ftpz00(
						((obj_t) BgL_ftpz00_49), BGl_string2606z00zz__ftpz00,
						BgL_list1817z00_3415));
			}
		}

	}



/* &ftp-transfer-mode */
	obj_t BGl_z62ftpzd2transferzd2modez62zz__ftpz00(obj_t BgL_envz00_3971,
		obj_t BgL_ftpz00_3972, obj_t BgL_modez00_3973)
	{
		{	/* Unsafe/ftp.scm 540 */
			{	/* Unsafe/ftp.scm 541 */
				bool_t BgL_tmpz00_5702;

				{	/* Unsafe/ftp.scm 541 */
					BgL_ftpz00_bglt BgL_auxz00_5703;

					if (BGl_isazf3zf3zz__objectz00(BgL_ftpz00_3972, BGl_ftpz00zz__ftpz00))
						{	/* Unsafe/ftp.scm 541 */
							BgL_auxz00_5703 = ((BgL_ftpz00_bglt) BgL_ftpz00_3972);
						}
					else
						{
							obj_t BgL_auxz00_5707;

							BgL_auxz00_5707 =
								BGl_typezd2errorzd2zz__errorz00(BGl_string2573z00zz__ftpz00,
								BINT(19163L), BGl_string2607z00zz__ftpz00,
								BGl_string2548z00zz__ftpz00, BgL_ftpz00_3972);
							FAILURE(BgL_auxz00_5707, BFALSE, BFALSE);
						}
					BgL_tmpz00_5702 =
						BGl_ftpzd2transferzd2modez00zz__ftpz00(BgL_auxz00_5703,
						BgL_modez00_3973);
				}
				return BBOOL(BgL_tmpz00_5702);
			}
		}

	}



/* ftp-retrieve */
	BGL_EXPORTED_DEF obj_t BGl_ftpzd2retrievezd2zz__ftpz00(BgL_ftpz00_bglt
		BgL_ftpz00_51, obj_t BgL_filenamez00_52)
	{
		{	/* Unsafe/ftp.scm 546 */
			{	/* Unsafe/ftp.scm 547 */
				obj_t BgL_list1818z00_3416;

				BgL_list1818z00_3416 = MAKE_YOUNG_PAIR(BgL_filenamez00_52, BNIL);
				return
					BGl_z52ftpzd2enginezd2cmdz52zz__ftpz00(
					((obj_t) BgL_ftpz00_51), BGl_string2551z00zz__ftpz00,
					BgL_list1818z00_3416);
			}
		}

	}



/* &ftp-retrieve */
	obj_t BGl_z62ftpzd2retrievezb0zz__ftpz00(obj_t BgL_envz00_3974,
		obj_t BgL_ftpz00_3975, obj_t BgL_filenamez00_3976)
	{
		{	/* Unsafe/ftp.scm 546 */
			{	/* Unsafe/ftp.scm 547 */
				obj_t BgL_auxz00_5724;
				BgL_ftpz00_bglt BgL_auxz00_5716;

				if (STRINGP(BgL_filenamez00_3976))
					{	/* Unsafe/ftp.scm 547 */
						BgL_auxz00_5724 = BgL_filenamez00_3976;
					}
				else
					{
						obj_t BgL_auxz00_5727;

						BgL_auxz00_5727 =
							BGl_typezd2errorzd2zz__errorz00(BGl_string2573z00zz__ftpz00,
							BINT(19459L), BGl_string2608z00zz__ftpz00,
							BGl_string2584z00zz__ftpz00, BgL_filenamez00_3976);
						FAILURE(BgL_auxz00_5727, BFALSE, BFALSE);
					}
				if (BGl_isazf3zf3zz__objectz00(BgL_ftpz00_3975, BGl_ftpz00zz__ftpz00))
					{	/* Unsafe/ftp.scm 547 */
						BgL_auxz00_5716 = ((BgL_ftpz00_bglt) BgL_ftpz00_3975);
					}
				else
					{
						obj_t BgL_auxz00_5720;

						BgL_auxz00_5720 =
							BGl_typezd2errorzd2zz__errorz00(BGl_string2573z00zz__ftpz00,
							BINT(19459L), BGl_string2608z00zz__ftpz00,
							BGl_string2548z00zz__ftpz00, BgL_ftpz00_3975);
						FAILURE(BgL_auxz00_5720, BFALSE, BFALSE);
					}
				return
					BGl_ftpzd2retrievezd2zz__ftpz00(BgL_auxz00_5716, BgL_auxz00_5724);
			}
		}

	}



/* ftp-store */
	BGL_EXPORTED_DEF bool_t BGl_ftpzd2storezd2zz__ftpz00(BgL_ftpz00_bglt
		BgL_ftpz00_53, obj_t BgL_sourcez00_54, obj_t BgL_destinationz00_55)
	{
		{	/* Unsafe/ftp.scm 552 */
			{	/* Unsafe/ftp.scm 554 */
				obj_t BgL_opz00_2054;

				{	/* Unsafe/ftp.scm 554 */
					obj_t BgL_arg1822z00_2060;

					BgL_arg1822z00_2060 =
						(((BgL_z52ftpz52_bglt) COBJECT(
								((BgL_z52ftpz52_bglt) BgL_ftpz00_53)))->BgL_dtpz00);
					{	/* Unsafe/ftp.scm 554 */
						obj_t BgL_tmpz00_5734;

						BgL_tmpz00_5734 = ((obj_t) BgL_arg1822z00_2060);
						BgL_opz00_2054 = SOCKET_OUTPUT(BgL_tmpz00_5734);
					}
				}
				if (fexists(BSTRING_TO_STRING(BgL_sourcez00_54)))
					{	/* Unsafe/ftp.scm 556 */
						obj_t BgL__andtest_1145z00_2056;

						if (CBOOL(BgL_destinationz00_55))
							{	/* Unsafe/ftp.scm 557 */
								obj_t BgL_list1820z00_2058;

								BgL_list1820z00_2058 =
									MAKE_YOUNG_PAIR(BgL_destinationz00_55, BNIL);
								BgL__andtest_1145z00_2056 =
									BGl_z52ftpzd2enginezd2cmdz52zz__ftpz00(
									((obj_t) BgL_ftpz00_53), BGl_string2609z00zz__ftpz00,
									BgL_list1820z00_2058);
							}
						else
							{	/* Unsafe/ftp.scm 556 */
								BgL__andtest_1145z00_2056 =
									BGl_z52ftpzd2enginezd2cmdz52zz__ftpz00(
									((obj_t) BgL_ftpz00_53), BGl_string2610z00zz__ftpz00, BNIL);
							}
						if (CBOOL(BgL__andtest_1145z00_2056))
							{	/* Unsafe/ftp.scm 559 */
								long BgL_arg1819z00_2057;

								BgL_arg1819z00_2057 =
									bgl_file_size(BSTRING_TO_STRING(BgL_sourcez00_54));
								{	/* Unsafe/ftp.scm 559 */
									long BgL_xz00_4274;

									BgL_xz00_4274 =
										BGl_sendzd2filezd2zz__r4_input_6_10_2z00(BgL_sourcez00_54,
										BgL_opz00_2054, BgL_arg1819z00_2057, ((long) 0));
									return ((bool_t) 1);
								}
							}
						else
							{	/* Unsafe/ftp.scm 556 */
								return ((bool_t) 0);
							}
					}
				else
					{	/* Unsafe/ftp.scm 555 */
						return ((bool_t) 0);
					}
			}
		}

	}



/* &ftp-store */
	obj_t BGl_z62ftpzd2storezb0zz__ftpz00(obj_t BgL_envz00_3977,
		obj_t BgL_ftpz00_3978, obj_t BgL_sourcez00_3979,
		obj_t BgL_destinationz00_3980)
	{
		{	/* Unsafe/ftp.scm 552 */
			{	/* Unsafe/ftp.scm 553 */
				bool_t BgL_tmpz00_5752;

				{	/* Unsafe/ftp.scm 553 */
					obj_t BgL_auxz00_5761;
					BgL_ftpz00_bglt BgL_auxz00_5753;

					if (STRINGP(BgL_sourcez00_3979))
						{	/* Unsafe/ftp.scm 553 */
							BgL_auxz00_5761 = BgL_sourcez00_3979;
						}
					else
						{
							obj_t BgL_auxz00_5764;

							BgL_auxz00_5764 =
								BGl_typezd2errorzd2zz__errorz00(BGl_string2573z00zz__ftpz00,
								BINT(19767L), BGl_string2611z00zz__ftpz00,
								BGl_string2584z00zz__ftpz00, BgL_sourcez00_3979);
							FAILURE(BgL_auxz00_5764, BFALSE, BFALSE);
						}
					if (BGl_isazf3zf3zz__objectz00(BgL_ftpz00_3978, BGl_ftpz00zz__ftpz00))
						{	/* Unsafe/ftp.scm 553 */
							BgL_auxz00_5753 = ((BgL_ftpz00_bglt) BgL_ftpz00_3978);
						}
					else
						{
							obj_t BgL_auxz00_5757;

							BgL_auxz00_5757 =
								BGl_typezd2errorzd2zz__errorz00(BGl_string2573z00zz__ftpz00,
								BINT(19767L), BGl_string2611z00zz__ftpz00,
								BGl_string2548z00zz__ftpz00, BgL_ftpz00_3978);
							FAILURE(BgL_auxz00_5757, BFALSE, BFALSE);
						}
					BgL_tmpz00_5752 =
						BGl_ftpzd2storezd2zz__ftpz00(BgL_auxz00_5753, BgL_auxz00_5761,
						BgL_destinationz00_3980);
				}
				return BBOOL(BgL_tmpz00_5752);
			}
		}

	}



/* ftp-append */
	BGL_EXPORTED_DEF bool_t BGl_ftpzd2appendzd2zz__ftpz00(BgL_ftpz00_bglt
		BgL_ftpz00_56, obj_t BgL_sourcez00_57, obj_t BgL_destinationz00_58)
	{
		{	/* Unsafe/ftp.scm 564 */
			{	/* Unsafe/ftp.scm 566 */
				obj_t BgL_opz00_3421;

				{	/* Unsafe/ftp.scm 566 */
					obj_t BgL_arg1828z00_3422;

					BgL_arg1828z00_3422 =
						(((BgL_z52ftpz52_bglt) COBJECT(
								((BgL_z52ftpz52_bglt) BgL_ftpz00_56)))->BgL_dtpz00);
					{	/* Unsafe/ftp.scm 566 */
						obj_t BgL_tmpz00_5772;

						BgL_tmpz00_5772 = ((obj_t) BgL_arg1828z00_3422);
						BgL_opz00_3421 = SOCKET_OUTPUT(BgL_tmpz00_5772);
					}
				}
				if (fexists(BSTRING_TO_STRING(BgL_sourcez00_57)))
					{	/* Unsafe/ftp.scm 568 */
						obj_t BgL__andtest_1148z00_3424;

						{	/* Unsafe/ftp.scm 568 */
							obj_t BgL_list1825z00_3425;

							{	/* Unsafe/ftp.scm 568 */
								obj_t BgL_arg1827z00_3426;

								BgL_arg1827z00_3426 =
									MAKE_YOUNG_PAIR(BgL_destinationz00_58, BNIL);
								BgL_list1825z00_3425 =
									MAKE_YOUNG_PAIR(BgL_sourcez00_57, BgL_arg1827z00_3426);
							}
							BgL__andtest_1148z00_3424 =
								BGl_z52ftpzd2enginezd2cmdz52zz__ftpz00(
								((obj_t) BgL_ftpz00_56), BGl_string2612z00zz__ftpz00,
								BgL_list1825z00_3425);
						}
						if (CBOOL(BgL__andtest_1148z00_3424))
							{	/* Unsafe/ftp.scm 569 */
								long BgL_arg1824z00_3427;

								BgL_arg1824z00_3427 =
									bgl_file_size(BSTRING_TO_STRING(BgL_sourcez00_57));
								{	/* Unsafe/ftp.scm 569 */
									long BgL_xz00_4281;

									BgL_xz00_4281 =
										BGl_sendzd2filezd2zz__r4_input_6_10_2z00(BgL_sourcez00_57,
										BgL_opz00_3421, BgL_arg1824z00_3427, ((long) 0));
									return ((bool_t) 1);
								}
							}
						else
							{	/* Unsafe/ftp.scm 568 */
								return ((bool_t) 0);
							}
					}
				else
					{	/* Unsafe/ftp.scm 567 */
						return ((bool_t) 0);
					}
			}
		}

	}



/* &ftp-append */
	obj_t BGl_z62ftpzd2appendzb0zz__ftpz00(obj_t BgL_envz00_3981,
		obj_t BgL_ftpz00_3982, obj_t BgL_sourcez00_3983,
		obj_t BgL_destinationz00_3984)
	{
		{	/* Unsafe/ftp.scm 564 */
			{	/* Unsafe/ftp.scm 565 */
				bool_t BgL_tmpz00_5787;

				{	/* Unsafe/ftp.scm 565 */
					obj_t BgL_auxz00_5803;
					obj_t BgL_auxz00_5796;
					BgL_ftpz00_bglt BgL_auxz00_5788;

					if (STRINGP(BgL_destinationz00_3984))
						{	/* Unsafe/ftp.scm 565 */
							BgL_auxz00_5803 = BgL_destinationz00_3984;
						}
					else
						{
							obj_t BgL_auxz00_5806;

							BgL_auxz00_5806 =
								BGl_typezd2errorzd2zz__errorz00(BGl_string2573z00zz__ftpz00,
								BINT(20291L), BGl_string2613z00zz__ftpz00,
								BGl_string2584z00zz__ftpz00, BgL_destinationz00_3984);
							FAILURE(BgL_auxz00_5806, BFALSE, BFALSE);
						}
					if (STRINGP(BgL_sourcez00_3983))
						{	/* Unsafe/ftp.scm 565 */
							BgL_auxz00_5796 = BgL_sourcez00_3983;
						}
					else
						{
							obj_t BgL_auxz00_5799;

							BgL_auxz00_5799 =
								BGl_typezd2errorzd2zz__errorz00(BGl_string2573z00zz__ftpz00,
								BINT(20291L), BGl_string2613z00zz__ftpz00,
								BGl_string2584z00zz__ftpz00, BgL_sourcez00_3983);
							FAILURE(BgL_auxz00_5799, BFALSE, BFALSE);
						}
					if (BGl_isazf3zf3zz__objectz00(BgL_ftpz00_3982, BGl_ftpz00zz__ftpz00))
						{	/* Unsafe/ftp.scm 565 */
							BgL_auxz00_5788 = ((BgL_ftpz00_bglt) BgL_ftpz00_3982);
						}
					else
						{
							obj_t BgL_auxz00_5792;

							BgL_auxz00_5792 =
								BGl_typezd2errorzd2zz__errorz00(BGl_string2573z00zz__ftpz00,
								BINT(20291L), BGl_string2613z00zz__ftpz00,
								BGl_string2548z00zz__ftpz00, BgL_ftpz00_3982);
							FAILURE(BgL_auxz00_5792, BFALSE, BFALSE);
						}
					BgL_tmpz00_5787 =
						BGl_ftpzd2appendzd2zz__ftpz00(BgL_auxz00_5788, BgL_auxz00_5796,
						BgL_auxz00_5803);
				}
				return BBOOL(BgL_tmpz00_5787);
			}
		}

	}



/* ftp-allocate */
	BGL_EXPORTED_DEF bool_t BGl_ftpzd2allocatezd2zz__ftpz00(BgL_ftpz00_bglt
		BgL_ftpz00_59, obj_t BgL_siza7eza7_60,
		obj_t BgL_pagezd2orzd2recordzd2siza7ez75_61)
	{
		{	/* Unsafe/ftp.scm 574 */
			{	/* Unsafe/ftp.scm 575 */
				obj_t BgL_prsiza7eza7_3431;

				if (PAIRP(BgL_pagezd2orzd2recordzd2siza7ez75_61))
					{	/* Unsafe/ftp.scm 575 */
						BgL_prsiza7eza7_3431 = CAR(BgL_pagezd2orzd2recordzd2siza7ez75_61);
					}
				else
					{	/* Unsafe/ftp.scm 575 */
						BgL_prsiza7eza7_3431 = BFALSE;
					}
				if (CBOOL(BgL_prsiza7eza7_3431))
					{	/* Unsafe/ftp.scm 577 */
						obj_t BgL_list1829z00_3433;

						{	/* Unsafe/ftp.scm 577 */
							obj_t BgL_arg1830z00_3434;

							{	/* Unsafe/ftp.scm 577 */
								obj_t BgL_arg1832z00_3435;

								BgL_arg1832z00_3435 =
									MAKE_YOUNG_PAIR(BgL_prsiza7eza7_3431, BNIL);
								BgL_arg1830z00_3434 =
									MAKE_YOUNG_PAIR(BGl_string2614z00zz__ftpz00,
									BgL_arg1832z00_3435);
							}
							BgL_list1829z00_3433 =
								MAKE_YOUNG_PAIR(BgL_siza7eza7_60, BgL_arg1830z00_3434);
						}
						return
							CBOOL(BGl_z52ftpzd2enginezd2cmdz52zz__ftpz00(
								((obj_t) BgL_ftpz00_59), BGl_string2615z00zz__ftpz00,
								BgL_list1829z00_3433));
					}
				else
					{	/* Unsafe/ftp.scm 578 */
						obj_t BgL_list1833z00_3436;

						BgL_list1833z00_3436 = MAKE_YOUNG_PAIR(BgL_siza7eza7_60, BNIL);
						return
							CBOOL(BGl_z52ftpzd2enginezd2cmdz52zz__ftpz00(
								((obj_t) BgL_ftpz00_59), BGl_string2615z00zz__ftpz00,
								BgL_list1833z00_3436));
					}
			}
		}

	}



/* &ftp-allocate */
	obj_t BGl_z62ftpzd2allocatezb0zz__ftpz00(obj_t BgL_envz00_3985,
		obj_t BgL_ftpz00_3986, obj_t BgL_siza7eza7_3987,
		obj_t BgL_pagezd2orzd2recordzd2siza7ez75_3988)
	{
		{	/* Unsafe/ftp.scm 574 */
			{	/* Unsafe/ftp.scm 575 */
				bool_t BgL_tmpz00_5827;

				{	/* Unsafe/ftp.scm 575 */
					obj_t BgL_auxz00_5836;
					BgL_ftpz00_bglt BgL_auxz00_5828;

					if (INTEGERP(BgL_siza7eza7_3987))
						{	/* Unsafe/ftp.scm 575 */
							BgL_auxz00_5836 = BgL_siza7eza7_3987;
						}
					else
						{
							obj_t BgL_auxz00_5839;

							BgL_auxz00_5839 =
								BGl_typezd2errorzd2zz__errorz00(BGl_string2573z00zz__ftpz00,
								BINT(20778L), BGl_string2616z00zz__ftpz00,
								BGl_string2593z00zz__ftpz00, BgL_siza7eza7_3987);
							FAILURE(BgL_auxz00_5839, BFALSE, BFALSE);
						}
					if (BGl_isazf3zf3zz__objectz00(BgL_ftpz00_3986, BGl_ftpz00zz__ftpz00))
						{	/* Unsafe/ftp.scm 575 */
							BgL_auxz00_5828 = ((BgL_ftpz00_bglt) BgL_ftpz00_3986);
						}
					else
						{
							obj_t BgL_auxz00_5832;

							BgL_auxz00_5832 =
								BGl_typezd2errorzd2zz__errorz00(BGl_string2573z00zz__ftpz00,
								BINT(20778L), BGl_string2616z00zz__ftpz00,
								BGl_string2548z00zz__ftpz00, BgL_ftpz00_3986);
							FAILURE(BgL_auxz00_5832, BFALSE, BFALSE);
						}
					BgL_tmpz00_5827 =
						BGl_ftpzd2allocatezd2zz__ftpz00(BgL_auxz00_5828, BgL_auxz00_5836,
						BgL_pagezd2orzd2recordzd2siza7ez75_3988);
				}
				return BBOOL(BgL_tmpz00_5827);
			}
		}

	}



/* ftp-restart */
	BGL_EXPORTED_DEF bool_t BGl_ftpzd2restartzd2zz__ftpz00(BgL_ftpz00_bglt
		BgL_ftpz00_62, obj_t BgL_positionz00_63)
	{
		{	/* Unsafe/ftp.scm 583 */
			{	/* Unsafe/ftp.scm 584 */
				obj_t BgL_list1834z00_3438;

				BgL_list1834z00_3438 = MAKE_YOUNG_PAIR(BgL_positionz00_63, BNIL);
				return
					CBOOL(BGl_z52ftpzd2enginezd2cmdz52zz__ftpz00(
						((obj_t) BgL_ftpz00_62), BGl_string2617z00zz__ftpz00,
						BgL_list1834z00_3438));
			}
		}

	}



/* &ftp-restart */
	obj_t BGl_z62ftpzd2restartzb0zz__ftpz00(obj_t BgL_envz00_3989,
		obj_t BgL_ftpz00_3990, obj_t BgL_positionz00_3991)
	{
		{	/* Unsafe/ftp.scm 583 */
			{	/* Unsafe/ftp.scm 584 */
				bool_t BgL_tmpz00_5849;

				{	/* Unsafe/ftp.scm 584 */
					obj_t BgL_auxz00_5858;
					BgL_ftpz00_bglt BgL_auxz00_5850;

					if (INTEGERP(BgL_positionz00_3991))
						{	/* Unsafe/ftp.scm 584 */
							BgL_auxz00_5858 = BgL_positionz00_3991;
						}
					else
						{
							obj_t BgL_auxz00_5861;

							BgL_auxz00_5861 =
								BGl_typezd2errorzd2zz__errorz00(BGl_string2573z00zz__ftpz00,
								BINT(21220L), BGl_string2618z00zz__ftpz00,
								BGl_string2593z00zz__ftpz00, BgL_positionz00_3991);
							FAILURE(BgL_auxz00_5861, BFALSE, BFALSE);
						}
					if (BGl_isazf3zf3zz__objectz00(BgL_ftpz00_3990, BGl_ftpz00zz__ftpz00))
						{	/* Unsafe/ftp.scm 584 */
							BgL_auxz00_5850 = ((BgL_ftpz00_bglt) BgL_ftpz00_3990);
						}
					else
						{
							obj_t BgL_auxz00_5854;

							BgL_auxz00_5854 =
								BGl_typezd2errorzd2zz__errorz00(BGl_string2573z00zz__ftpz00,
								BINT(21220L), BGl_string2618z00zz__ftpz00,
								BGl_string2548z00zz__ftpz00, BgL_ftpz00_3990);
							FAILURE(BgL_auxz00_5854, BFALSE, BFALSE);
						}
					BgL_tmpz00_5849 =
						BGl_ftpzd2restartzd2zz__ftpz00(BgL_auxz00_5850, BgL_auxz00_5858);
				}
				return BBOOL(BgL_tmpz00_5849);
			}
		}

	}



/* ftp-rename-file */
	BGL_EXPORTED_DEF bool_t BGl_ftpzd2renamezd2filez00zz__ftpz00(BgL_ftpz00_bglt
		BgL_ftpz00_64, obj_t BgL_fromz00_65, obj_t BgL_toz00_66)
	{
		{	/* Unsafe/ftp.scm 589 */
			{	/* Unsafe/ftp.scm 590 */
				obj_t BgL__andtest_1150z00_3439;

				{	/* Unsafe/ftp.scm 590 */
					obj_t BgL_list1836z00_3440;

					BgL_list1836z00_3440 = MAKE_YOUNG_PAIR(BgL_fromz00_65, BNIL);
					BgL__andtest_1150z00_3439 =
						BGl_z52ftpzd2enginezd2cmdz52zz__ftpz00(
						((obj_t) BgL_ftpz00_64), BGl_string2619z00zz__ftpz00,
						BgL_list1836z00_3440);
				}
				if (CBOOL(BgL__andtest_1150z00_3439))
					{	/* Unsafe/ftp.scm 591 */
						obj_t BgL_list1835z00_3441;

						BgL_list1835z00_3441 = MAKE_YOUNG_PAIR(BgL_toz00_66, BNIL);
						return
							CBOOL(BGl_z52ftpzd2enginezd2cmdz52zz__ftpz00(
								((obj_t) BgL_ftpz00_64), BGl_string2620z00zz__ftpz00,
								BgL_list1835z00_3441));
					}
				else
					{	/* Unsafe/ftp.scm 590 */
						return ((bool_t) 0);
					}
			}
		}

	}



/* &ftp-rename-file */
	obj_t BGl_z62ftpzd2renamezd2filez62zz__ftpz00(obj_t BgL_envz00_3992,
		obj_t BgL_ftpz00_3993, obj_t BgL_fromz00_3994, obj_t BgL_toz00_3995)
	{
		{	/* Unsafe/ftp.scm 589 */
			{	/* Unsafe/ftp.scm 590 */
				bool_t BgL_tmpz00_5876;

				{	/* Unsafe/ftp.scm 590 */
					obj_t BgL_auxz00_5892;
					obj_t BgL_auxz00_5885;
					BgL_ftpz00_bglt BgL_auxz00_5877;

					if (STRINGP(BgL_toz00_3995))
						{	/* Unsafe/ftp.scm 590 */
							BgL_auxz00_5892 = BgL_toz00_3995;
						}
					else
						{
							obj_t BgL_auxz00_5895;

							BgL_auxz00_5895 =
								BGl_typezd2errorzd2zz__errorz00(BGl_string2573z00zz__ftpz00,
								BINT(21528L), BGl_string2621z00zz__ftpz00,
								BGl_string2584z00zz__ftpz00, BgL_toz00_3995);
							FAILURE(BgL_auxz00_5895, BFALSE, BFALSE);
						}
					if (STRINGP(BgL_fromz00_3994))
						{	/* Unsafe/ftp.scm 590 */
							BgL_auxz00_5885 = BgL_fromz00_3994;
						}
					else
						{
							obj_t BgL_auxz00_5888;

							BgL_auxz00_5888 =
								BGl_typezd2errorzd2zz__errorz00(BGl_string2573z00zz__ftpz00,
								BINT(21528L), BGl_string2621z00zz__ftpz00,
								BGl_string2584z00zz__ftpz00, BgL_fromz00_3994);
							FAILURE(BgL_auxz00_5888, BFALSE, BFALSE);
						}
					if (BGl_isazf3zf3zz__objectz00(BgL_ftpz00_3993, BGl_ftpz00zz__ftpz00))
						{	/* Unsafe/ftp.scm 590 */
							BgL_auxz00_5877 = ((BgL_ftpz00_bglt) BgL_ftpz00_3993);
						}
					else
						{
							obj_t BgL_auxz00_5881;

							BgL_auxz00_5881 =
								BGl_typezd2errorzd2zz__errorz00(BGl_string2573z00zz__ftpz00,
								BINT(21528L), BGl_string2621z00zz__ftpz00,
								BGl_string2548z00zz__ftpz00, BgL_ftpz00_3993);
							FAILURE(BgL_auxz00_5881, BFALSE, BFALSE);
						}
					BgL_tmpz00_5876 =
						BGl_ftpzd2renamezd2filez00zz__ftpz00(BgL_auxz00_5877,
						BgL_auxz00_5885, BgL_auxz00_5892);
				}
				return BBOOL(BgL_tmpz00_5876);
			}
		}

	}



/* ftp-abort */
	BGL_EXPORTED_DEF bool_t BGl_ftpzd2abortzd2zz__ftpz00(BgL_ftpz00_bglt
		BgL_ftpz00_67)
	{
		{	/* Unsafe/ftp.scm 596 */
			return
				CBOOL(BGl_z52ftpzd2enginezd2cmdz52zz__ftpz00(
					((obj_t) BgL_ftpz00_67), BGl_string2622z00zz__ftpz00, BNIL));
		}

	}



/* &ftp-abort */
	obj_t BGl_z62ftpzd2abortzb0zz__ftpz00(obj_t BgL_envz00_3996,
		obj_t BgL_ftpz00_3997)
	{
		{	/* Unsafe/ftp.scm 596 */
			{	/* Unsafe/ftp.scm 597 */
				bool_t BgL_tmpz00_5904;

				{	/* Unsafe/ftp.scm 597 */
					BgL_ftpz00_bglt BgL_auxz00_5905;

					if (BGl_isazf3zf3zz__objectz00(BgL_ftpz00_3997, BGl_ftpz00zz__ftpz00))
						{	/* Unsafe/ftp.scm 597 */
							BgL_auxz00_5905 = ((BgL_ftpz00_bglt) BgL_ftpz00_3997);
						}
					else
						{
							obj_t BgL_auxz00_5909;

							BgL_auxz00_5909 =
								BGl_typezd2errorzd2zz__errorz00(BGl_string2573z00zz__ftpz00,
								BINT(21847L), BGl_string2623z00zz__ftpz00,
								BGl_string2548z00zz__ftpz00, BgL_ftpz00_3997);
							FAILURE(BgL_auxz00_5909, BFALSE, BFALSE);
						}
					BgL_tmpz00_5904 = BGl_ftpzd2abortzd2zz__ftpz00(BgL_auxz00_5905);
				}
				return BBOOL(BgL_tmpz00_5904);
			}
		}

	}



/* ftp-delete */
	BGL_EXPORTED_DEF bool_t BGl_ftpzd2deletezd2zz__ftpz00(BgL_ftpz00_bglt
		BgL_ftpz00_68, obj_t BgL_filez00_69)
	{
		{	/* Unsafe/ftp.scm 602 */
			{	/* Unsafe/ftp.scm 603 */
				obj_t BgL_list1838z00_3443;

				BgL_list1838z00_3443 = MAKE_YOUNG_PAIR(BgL_filez00_69, BNIL);
				return
					CBOOL(BGl_z52ftpzd2enginezd2cmdz52zz__ftpz00(
						((obj_t) BgL_ftpz00_68), BGl_string2624z00zz__ftpz00,
						BgL_list1838z00_3443));
			}
		}

	}



/* &ftp-delete */
	obj_t BGl_z62ftpzd2deletezb0zz__ftpz00(obj_t BgL_envz00_3998,
		obj_t BgL_ftpz00_3999, obj_t BgL_filez00_4000)
	{
		{	/* Unsafe/ftp.scm 602 */
			{	/* Unsafe/ftp.scm 603 */
				bool_t BgL_tmpz00_5919;

				{	/* Unsafe/ftp.scm 603 */
					obj_t BgL_auxz00_5928;
					BgL_ftpz00_bglt BgL_auxz00_5920;

					if (STRINGP(BgL_filez00_4000))
						{	/* Unsafe/ftp.scm 603 */
							BgL_auxz00_5928 = BgL_filez00_4000;
						}
					else
						{
							obj_t BgL_auxz00_5931;

							BgL_auxz00_5931 =
								BGl_typezd2errorzd2zz__errorz00(BGl_string2573z00zz__ftpz00,
								BINT(22133L), BGl_string2625z00zz__ftpz00,
								BGl_string2584z00zz__ftpz00, BgL_filez00_4000);
							FAILURE(BgL_auxz00_5931, BFALSE, BFALSE);
						}
					if (BGl_isazf3zf3zz__objectz00(BgL_ftpz00_3999, BGl_ftpz00zz__ftpz00))
						{	/* Unsafe/ftp.scm 603 */
							BgL_auxz00_5920 = ((BgL_ftpz00_bglt) BgL_ftpz00_3999);
						}
					else
						{
							obj_t BgL_auxz00_5924;

							BgL_auxz00_5924 =
								BGl_typezd2errorzd2zz__errorz00(BGl_string2573z00zz__ftpz00,
								BINT(22133L), BGl_string2625z00zz__ftpz00,
								BGl_string2548z00zz__ftpz00, BgL_ftpz00_3999);
							FAILURE(BgL_auxz00_5924, BFALSE, BFALSE);
						}
					BgL_tmpz00_5919 =
						BGl_ftpzd2deletezd2zz__ftpz00(BgL_auxz00_5920, BgL_auxz00_5928);
				}
				return BBOOL(BgL_tmpz00_5919);
			}
		}

	}



/* ftp-rmdir */
	BGL_EXPORTED_DEF bool_t BGl_ftpzd2rmdirzd2zz__ftpz00(BgL_ftpz00_bglt
		BgL_ftpz00_70, obj_t BgL_directoryz00_71)
	{
		{	/* Unsafe/ftp.scm 608 */
			{	/* Unsafe/ftp.scm 609 */
				obj_t BgL_list1839z00_3444;

				BgL_list1839z00_3444 = MAKE_YOUNG_PAIR(BgL_directoryz00_71, BNIL);
				return
					CBOOL(BGl_z52ftpzd2enginezd2cmdz52zz__ftpz00(
						((obj_t) BgL_ftpz00_70), BGl_string2626z00zz__ftpz00,
						BgL_list1839z00_3444));
			}
		}

	}



/* &ftp-rmdir */
	obj_t BGl_z62ftpzd2rmdirzb0zz__ftpz00(obj_t BgL_envz00_4001,
		obj_t BgL_ftpz00_4002, obj_t BgL_directoryz00_4003)
	{
		{	/* Unsafe/ftp.scm 608 */
			{	/* Unsafe/ftp.scm 609 */
				bool_t BgL_tmpz00_5941;

				{	/* Unsafe/ftp.scm 609 */
					obj_t BgL_auxz00_5950;
					BgL_ftpz00_bglt BgL_auxz00_5942;

					if (STRINGP(BgL_directoryz00_4003))
						{	/* Unsafe/ftp.scm 609 */
							BgL_auxz00_5950 = BgL_directoryz00_4003;
						}
					else
						{
							obj_t BgL_auxz00_5953;

							BgL_auxz00_5953 =
								BGl_typezd2errorzd2zz__errorz00(BGl_string2573z00zz__ftpz00,
								BINT(22428L), BGl_string2627z00zz__ftpz00,
								BGl_string2584z00zz__ftpz00, BgL_directoryz00_4003);
							FAILURE(BgL_auxz00_5953, BFALSE, BFALSE);
						}
					if (BGl_isazf3zf3zz__objectz00(BgL_ftpz00_4002, BGl_ftpz00zz__ftpz00))
						{	/* Unsafe/ftp.scm 609 */
							BgL_auxz00_5942 = ((BgL_ftpz00_bglt) BgL_ftpz00_4002);
						}
					else
						{
							obj_t BgL_auxz00_5946;

							BgL_auxz00_5946 =
								BGl_typezd2errorzd2zz__errorz00(BGl_string2573z00zz__ftpz00,
								BINT(22428L), BGl_string2627z00zz__ftpz00,
								BGl_string2548z00zz__ftpz00, BgL_ftpz00_4002);
							FAILURE(BgL_auxz00_5946, BFALSE, BFALSE);
						}
					BgL_tmpz00_5941 =
						BGl_ftpzd2rmdirzd2zz__ftpz00(BgL_auxz00_5942, BgL_auxz00_5950);
				}
				return BBOOL(BgL_tmpz00_5941);
			}
		}

	}



/* ftp-make-directory */
	BGL_EXPORTED_DEF bool_t
		BGl_ftpzd2makezd2directoryz00zz__ftpz00(BgL_ftpz00_bglt BgL_ftpz00_72,
		obj_t BgL_directoryz00_73)
	{
		{	/* Unsafe/ftp.scm 614 */
			{	/* Unsafe/ftp.scm 615 */
				obj_t BgL_list1840z00_3445;

				BgL_list1840z00_3445 = MAKE_YOUNG_PAIR(BgL_directoryz00_73, BNIL);
				return
					CBOOL(BGl_z52ftpzd2enginezd2cmdz52zz__ftpz00(
						((obj_t) BgL_ftpz00_72), BGl_string2628z00zz__ftpz00,
						BgL_list1840z00_3445));
			}
		}

	}



/* &ftp-make-directory */
	obj_t BGl_z62ftpzd2makezd2directoryz62zz__ftpz00(obj_t BgL_envz00_4004,
		obj_t BgL_ftpz00_4005, obj_t BgL_directoryz00_4006)
	{
		{	/* Unsafe/ftp.scm 614 */
			{	/* Unsafe/ftp.scm 615 */
				bool_t BgL_tmpz00_5963;

				{	/* Unsafe/ftp.scm 615 */
					obj_t BgL_auxz00_5972;
					BgL_ftpz00_bglt BgL_auxz00_5964;

					if (STRINGP(BgL_directoryz00_4006))
						{	/* Unsafe/ftp.scm 615 */
							BgL_auxz00_5972 = BgL_directoryz00_4006;
						}
					else
						{
							obj_t BgL_auxz00_5975;

							BgL_auxz00_5975 =
								BGl_typezd2errorzd2zz__errorz00(BGl_string2573z00zz__ftpz00,
								BINT(22736L), BGl_string2629z00zz__ftpz00,
								BGl_string2584z00zz__ftpz00, BgL_directoryz00_4006);
							FAILURE(BgL_auxz00_5975, BFALSE, BFALSE);
						}
					if (BGl_isazf3zf3zz__objectz00(BgL_ftpz00_4005, BGl_ftpz00zz__ftpz00))
						{	/* Unsafe/ftp.scm 615 */
							BgL_auxz00_5964 = ((BgL_ftpz00_bglt) BgL_ftpz00_4005);
						}
					else
						{
							obj_t BgL_auxz00_5968;

							BgL_auxz00_5968 =
								BGl_typezd2errorzd2zz__errorz00(BGl_string2573z00zz__ftpz00,
								BINT(22736L), BGl_string2629z00zz__ftpz00,
								BGl_string2548z00zz__ftpz00, BgL_ftpz00_4005);
							FAILURE(BgL_auxz00_5968, BFALSE, BFALSE);
						}
					BgL_tmpz00_5963 =
						BGl_ftpzd2makezd2directoryz00zz__ftpz00(BgL_auxz00_5964,
						BgL_auxz00_5972);
				}
				return BBOOL(BgL_tmpz00_5963);
			}
		}

	}



/* ftp-pwd */
	BGL_EXPORTED_DEF obj_t BGl_ftpzd2pwdzd2zz__ftpz00(BgL_ftpz00_bglt
		BgL_ftpz00_74)
	{
		{	/* Unsafe/ftp.scm 620 */
			return
				BGl_z52ftpzd2enginezd2cmdz52zz__ftpz00(
				((obj_t) BgL_ftpz00_74), BGl_string2630z00zz__ftpz00, BNIL);
		}

	}



/* &ftp-pwd */
	obj_t BGl_z62ftpzd2pwdzb0zz__ftpz00(obj_t BgL_envz00_4007,
		obj_t BgL_ftpz00_4008)
	{
		{	/* Unsafe/ftp.scm 620 */
			{	/* Unsafe/ftp.scm 621 */
				BgL_ftpz00_bglt BgL_auxz00_5983;

				if (BGl_isazf3zf3zz__objectz00(BgL_ftpz00_4008, BGl_ftpz00zz__ftpz00))
					{	/* Unsafe/ftp.scm 621 */
						BgL_auxz00_5983 = ((BgL_ftpz00_bglt) BgL_ftpz00_4008);
					}
				else
					{
						obj_t BgL_auxz00_5987;

						BgL_auxz00_5987 =
							BGl_typezd2errorzd2zz__errorz00(BGl_string2573z00zz__ftpz00,
							BINT(23023L), BGl_string2631z00zz__ftpz00,
							BGl_string2548z00zz__ftpz00, BgL_ftpz00_4008);
						FAILURE(BgL_auxz00_5987, BFALSE, BFALSE);
					}
				return BGl_ftpzd2pwdzd2zz__ftpz00(BgL_auxz00_5983);
			}
		}

	}



/* ftp-list */
	BGL_EXPORTED_DEF obj_t BGl_ftpzd2listzd2zz__ftpz00(BgL_ftpz00_bglt
		BgL_ftpz00_75, obj_t BgL_argsz00_76)
	{
		{	/* Unsafe/ftp.scm 626 */
			{	/* Unsafe/ftp.scm 627 */
				obj_t BgL_runner1848z00_2088;

				{	/* Unsafe/ftp.scm 627 */
					obj_t BgL_list1842z00_2084;

					{	/* Unsafe/ftp.scm 627 */
						obj_t BgL_arg1845z00_2085;

						BgL_arg1845z00_2085 = MAKE_YOUNG_PAIR(BgL_argsz00_76, BNIL);
						BgL_list1842z00_2084 =
							MAKE_YOUNG_PAIR(BGl_string2632z00zz__ftpz00, BgL_arg1845z00_2085);
					}
					BgL_runner1848z00_2088 =
						BGl_consza2za2zz__r4_pairs_and_lists_6_3z00(
						((obj_t) BgL_ftpz00_75), BgL_list1842z00_2084);
				}
				{	/* Unsafe/ftp.scm 627 */
					obj_t BgL_aux1846z00_2086;

					BgL_aux1846z00_2086 = CAR(BgL_runner1848z00_2088);
					BgL_runner1848z00_2088 = CDR(BgL_runner1848z00_2088);
					{	/* Unsafe/ftp.scm 627 */
						obj_t BgL_aux1847z00_2087;

						BgL_aux1847z00_2087 = CAR(BgL_runner1848z00_2088);
						BgL_runner1848z00_2088 = CDR(BgL_runner1848z00_2088);
						return
							BGl_z52ftpzd2enginezd2cmdz52zz__ftpz00(BgL_aux1846z00_2086,
							BgL_aux1847z00_2087, BgL_runner1848z00_2088);
					}
				}
			}
		}

	}



/* &ftp-list */
	obj_t BGl_z62ftpzd2listzb0zz__ftpz00(obj_t BgL_envz00_4009,
		obj_t BgL_ftpz00_4010, obj_t BgL_argsz00_4011)
	{
		{	/* Unsafe/ftp.scm 626 */
			{	/* Unsafe/ftp.scm 627 */
				BgL_ftpz00_bglt BgL_auxz00_6001;

				if (BGl_isazf3zf3zz__objectz00(BgL_ftpz00_4010, BGl_ftpz00zz__ftpz00))
					{	/* Unsafe/ftp.scm 627 */
						BgL_auxz00_6001 = ((BgL_ftpz00_bglt) BgL_ftpz00_4010);
					}
				else
					{
						obj_t BgL_auxz00_6005;

						BgL_auxz00_6005 =
							BGl_typezd2errorzd2zz__errorz00(BGl_string2573z00zz__ftpz00,
							BINT(23308L), BGl_string2633z00zz__ftpz00,
							BGl_string2548z00zz__ftpz00, BgL_ftpz00_4010);
						FAILURE(BgL_auxz00_6005, BFALSE, BFALSE);
					}
				return BGl_ftpzd2listzd2zz__ftpz00(BgL_auxz00_6001, BgL_argsz00_4011);
			}
		}

	}



/* ftp-name-list */
	BGL_EXPORTED_DEF obj_t BGl_ftpzd2namezd2listz00zz__ftpz00(BgL_ftpz00_bglt
		BgL_ftpz00_77, obj_t BgL_argsz00_78)
	{
		{	/* Unsafe/ftp.scm 632 */
			{	/* Unsafe/ftp.scm 633 */
				obj_t BgL_runner1854z00_2093;

				{	/* Unsafe/ftp.scm 633 */
					obj_t BgL_list1849z00_2089;

					{	/* Unsafe/ftp.scm 633 */
						obj_t BgL_arg1851z00_2090;

						BgL_arg1851z00_2090 = MAKE_YOUNG_PAIR(BgL_argsz00_78, BNIL);
						BgL_list1849z00_2089 =
							MAKE_YOUNG_PAIR(BGl_string2634z00zz__ftpz00, BgL_arg1851z00_2090);
					}
					BgL_runner1854z00_2093 =
						BGl_consza2za2zz__r4_pairs_and_lists_6_3z00(
						((obj_t) BgL_ftpz00_77), BgL_list1849z00_2089);
				}
				{	/* Unsafe/ftp.scm 633 */
					obj_t BgL_aux1852z00_2091;

					BgL_aux1852z00_2091 = CAR(BgL_runner1854z00_2093);
					BgL_runner1854z00_2093 = CDR(BgL_runner1854z00_2093);
					{	/* Unsafe/ftp.scm 633 */
						obj_t BgL_aux1853z00_2092;

						BgL_aux1853z00_2092 = CAR(BgL_runner1854z00_2093);
						BgL_runner1854z00_2093 = CDR(BgL_runner1854z00_2093);
						return
							BGl_z52ftpzd2enginezd2cmdz52zz__ftpz00(BgL_aux1852z00_2091,
							BgL_aux1853z00_2092, BgL_runner1854z00_2093);
					}
				}
			}
		}

	}



/* &ftp-name-list */
	obj_t BGl_z62ftpzd2namezd2listz62zz__ftpz00(obj_t BgL_envz00_4012,
		obj_t BgL_ftpz00_4013, obj_t BgL_argsz00_4014)
	{
		{	/* Unsafe/ftp.scm 632 */
			{	/* Unsafe/ftp.scm 633 */
				BgL_ftpz00_bglt BgL_auxz00_6019;

				if (BGl_isazf3zf3zz__objectz00(BgL_ftpz00_4013, BGl_ftpz00zz__ftpz00))
					{	/* Unsafe/ftp.scm 633 */
						BgL_auxz00_6019 = ((BgL_ftpz00_bglt) BgL_ftpz00_4013);
					}
				else
					{
						obj_t BgL_auxz00_6023;

						BgL_auxz00_6023 =
							BGl_typezd2errorzd2zz__errorz00(BGl_string2573z00zz__ftpz00,
							BINT(23610L), BGl_string2635z00zz__ftpz00,
							BGl_string2548z00zz__ftpz00, BgL_ftpz00_4013);
						FAILURE(BgL_auxz00_6023, BFALSE, BFALSE);
					}
				return
					BGl_ftpzd2namezd2listz00zz__ftpz00(BgL_auxz00_6019, BgL_argsz00_4014);
			}
		}

	}



/* ftp-site-parameters */
	BGL_EXPORTED_DEF obj_t
		BGl_ftpzd2sitezd2parametersz00zz__ftpz00(BgL_ftpz00_bglt BgL_ftpz00_79,
		obj_t BgL_argsz00_80)
	{
		{	/* Unsafe/ftp.scm 638 */
			{	/* Unsafe/ftp.scm 639 */
				obj_t BgL_runner1859z00_2098;

				{	/* Unsafe/ftp.scm 639 */
					obj_t BgL_list1855z00_2094;

					{	/* Unsafe/ftp.scm 639 */
						obj_t BgL_arg1856z00_2095;

						BgL_arg1856z00_2095 = MAKE_YOUNG_PAIR(BgL_argsz00_80, BNIL);
						BgL_list1855z00_2094 =
							MAKE_YOUNG_PAIR(BGl_string2636z00zz__ftpz00, BgL_arg1856z00_2095);
					}
					BgL_runner1859z00_2098 =
						BGl_consza2za2zz__r4_pairs_and_lists_6_3z00(
						((obj_t) BgL_ftpz00_79), BgL_list1855z00_2094);
				}
				{	/* Unsafe/ftp.scm 639 */
					obj_t BgL_aux1857z00_2096;

					BgL_aux1857z00_2096 = CAR(BgL_runner1859z00_2098);
					BgL_runner1859z00_2098 = CDR(BgL_runner1859z00_2098);
					{	/* Unsafe/ftp.scm 639 */
						obj_t BgL_aux1858z00_2097;

						BgL_aux1858z00_2097 = CAR(BgL_runner1859z00_2098);
						BgL_runner1859z00_2098 = CDR(BgL_runner1859z00_2098);
						return
							BGl_z52ftpzd2enginezd2cmdz52zz__ftpz00(BgL_aux1857z00_2096,
							BgL_aux1858z00_2097, BgL_runner1859z00_2098);
					}
				}
			}
		}

	}



/* &ftp-site-parameters */
	obj_t BGl_z62ftpzd2sitezd2parametersz62zz__ftpz00(obj_t BgL_envz00_4015,
		obj_t BgL_ftpz00_4016, obj_t BgL_argsz00_4017)
	{
		{	/* Unsafe/ftp.scm 638 */
			{	/* Unsafe/ftp.scm 639 */
				BgL_ftpz00_bglt BgL_auxz00_6037;

				if (BGl_isazf3zf3zz__objectz00(BgL_ftpz00_4016, BGl_ftpz00zz__ftpz00))
					{	/* Unsafe/ftp.scm 639 */
						BgL_auxz00_6037 = ((BgL_ftpz00_bglt) BgL_ftpz00_4016);
					}
				else
					{
						obj_t BgL_auxz00_6041;

						BgL_auxz00_6041 =
							BGl_typezd2errorzd2zz__errorz00(BGl_string2573z00zz__ftpz00,
							BINT(23918L), BGl_string2637z00zz__ftpz00,
							BGl_string2548z00zz__ftpz00, BgL_ftpz00_4016);
						FAILURE(BgL_auxz00_6041, BFALSE, BFALSE);
					}
				return
					BGl_ftpzd2sitezd2parametersz00zz__ftpz00(BgL_auxz00_6037,
					BgL_argsz00_4017);
			}
		}

	}



/* ftp-system */
	BGL_EXPORTED_DEF obj_t BGl_ftpzd2systemzd2zz__ftpz00(BgL_ftpz00_bglt
		BgL_ftpz00_81)
	{
		{	/* Unsafe/ftp.scm 644 */
			return
				BGl_z52ftpzd2enginezd2cmdz52zz__ftpz00(
				((obj_t) BgL_ftpz00_81), BGl_string2638z00zz__ftpz00, BNIL);
		}

	}



/* &ftp-system */
	obj_t BGl_z62ftpzd2systemzb0zz__ftpz00(obj_t BgL_envz00_4018,
		obj_t BgL_ftpz00_4019)
	{
		{	/* Unsafe/ftp.scm 644 */
			{	/* Unsafe/ftp.scm 645 */
				BgL_ftpz00_bglt BgL_auxz00_6048;

				if (BGl_isazf3zf3zz__objectz00(BgL_ftpz00_4019, BGl_ftpz00zz__ftpz00))
					{	/* Unsafe/ftp.scm 645 */
						BgL_auxz00_6048 = ((BgL_ftpz00_bglt) BgL_ftpz00_4019);
					}
				else
					{
						obj_t BgL_auxz00_6052;

						BgL_auxz00_6052 =
							BGl_typezd2errorzd2zz__errorz00(BGl_string2573z00zz__ftpz00,
							BINT(24210L), BGl_string2639z00zz__ftpz00,
							BGl_string2548z00zz__ftpz00, BgL_ftpz00_4019);
						FAILURE(BgL_auxz00_6052, BFALSE, BFALSE);
					}
				return BGl_ftpzd2systemzd2zz__ftpz00(BgL_auxz00_6048);
			}
		}

	}



/* ftp-status */
	BGL_EXPORTED_DEF obj_t BGl_ftpzd2statuszd2zz__ftpz00(BgL_ftpz00_bglt
		BgL_ftpz00_82, obj_t BgL_argsz00_83)
	{
		{	/* Unsafe/ftp.scm 650 */
			{	/* Unsafe/ftp.scm 651 */
				obj_t BgL_runner1865z00_2104;

				{	/* Unsafe/ftp.scm 651 */
					obj_t BgL_list1861z00_2100;

					{	/* Unsafe/ftp.scm 651 */
						obj_t BgL_arg1862z00_2101;

						BgL_arg1862z00_2101 = MAKE_YOUNG_PAIR(BgL_argsz00_83, BNIL);
						BgL_list1861z00_2100 =
							MAKE_YOUNG_PAIR(BGl_string2640z00zz__ftpz00, BgL_arg1862z00_2101);
					}
					BgL_runner1865z00_2104 =
						BGl_consza2za2zz__r4_pairs_and_lists_6_3z00(
						((obj_t) BgL_ftpz00_82), BgL_list1861z00_2100);
				}
				{	/* Unsafe/ftp.scm 651 */
					obj_t BgL_aux1863z00_2102;

					BgL_aux1863z00_2102 = CAR(BgL_runner1865z00_2104);
					BgL_runner1865z00_2104 = CDR(BgL_runner1865z00_2104);
					{	/* Unsafe/ftp.scm 651 */
						obj_t BgL_aux1864z00_2103;

						BgL_aux1864z00_2103 = CAR(BgL_runner1865z00_2104);
						BgL_runner1865z00_2104 = CDR(BgL_runner1865z00_2104);
						return
							BGl_z52ftpzd2enginezd2cmdz52zz__ftpz00(BgL_aux1863z00_2102,
							BgL_aux1864z00_2103, BgL_runner1865z00_2104);
					}
				}
			}
		}

	}



/* &ftp-status */
	obj_t BGl_z62ftpzd2statuszb0zz__ftpz00(obj_t BgL_envz00_4020,
		obj_t BgL_ftpz00_4021, obj_t BgL_argsz00_4022)
	{
		{	/* Unsafe/ftp.scm 650 */
			{	/* Unsafe/ftp.scm 651 */
				BgL_ftpz00_bglt BgL_auxz00_6066;

				if (BGl_isazf3zf3zz__objectz00(BgL_ftpz00_4021, BGl_ftpz00zz__ftpz00))
					{	/* Unsafe/ftp.scm 651 */
						BgL_auxz00_6066 = ((BgL_ftpz00_bglt) BgL_ftpz00_4021);
					}
				else
					{
						obj_t BgL_auxz00_6070;

						BgL_auxz00_6070 =
							BGl_typezd2errorzd2zz__errorz00(BGl_string2573z00zz__ftpz00,
							BINT(24498L), BGl_string2641z00zz__ftpz00,
							BGl_string2548z00zz__ftpz00, BgL_ftpz00_4021);
						FAILURE(BgL_auxz00_6070, BFALSE, BFALSE);
					}
				return BGl_ftpzd2statuszd2zz__ftpz00(BgL_auxz00_6066, BgL_argsz00_4022);
			}
		}

	}



/* ftp-help */
	BGL_EXPORTED_DEF obj_t BGl_ftpzd2helpzd2zz__ftpz00(BgL_ftpz00_bglt
		BgL_ftpz00_84, obj_t BgL_argsz00_85)
	{
		{	/* Unsafe/ftp.scm 656 */
			{	/* Unsafe/ftp.scm 657 */
				obj_t BgL_argz00_3464;

				if (PAIRP(BgL_argsz00_85))
					{	/* Unsafe/ftp.scm 657 */
						BgL_argz00_3464 = CAR(BgL_argsz00_85);
					}
				else
					{	/* Unsafe/ftp.scm 657 */
						BgL_argz00_3464 = BFALSE;
					}
				if (CBOOL(BgL_argz00_3464))
					{	/* Unsafe/ftp.scm 659 */
						obj_t BgL_list1866z00_3466;

						BgL_list1866z00_3466 = MAKE_YOUNG_PAIR(BgL_argz00_3464, BNIL);
						return
							BGl_z52ftpzd2enginezd2cmdz52zz__ftpz00(
							((obj_t) BgL_ftpz00_84), BGl_string2642z00zz__ftpz00,
							BgL_list1866z00_3466);
					}
				else
					{	/* Unsafe/ftp.scm 658 */
						return
							BGl_z52ftpzd2enginezd2cmdz52zz__ftpz00(
							((obj_t) BgL_ftpz00_84), BGl_string2642z00zz__ftpz00, BNIL);
					}
			}
		}

	}



/* &ftp-help */
	obj_t BGl_z62ftpzd2helpzb0zz__ftpz00(obj_t BgL_envz00_4023,
		obj_t BgL_ftpz00_4024, obj_t BgL_argsz00_4025)
	{
		{	/* Unsafe/ftp.scm 656 */
			{	/* Unsafe/ftp.scm 657 */
				BgL_ftpz00_bglt BgL_auxz00_6085;

				if (BGl_isazf3zf3zz__objectz00(BgL_ftpz00_4024, BGl_ftpz00zz__ftpz00))
					{	/* Unsafe/ftp.scm 657 */
						BgL_auxz00_6085 = ((BgL_ftpz00_bglt) BgL_ftpz00_4024);
					}
				else
					{
						obj_t BgL_auxz00_6089;

						BgL_auxz00_6089 =
							BGl_typezd2errorzd2zz__errorz00(BGl_string2573z00zz__ftpz00,
							BINT(24795L), BGl_string2643z00zz__ftpz00,
							BGl_string2548z00zz__ftpz00, BgL_ftpz00_4024);
						FAILURE(BgL_auxz00_6089, BFALSE, BFALSE);
					}
				return BGl_ftpzd2helpzd2zz__ftpz00(BgL_auxz00_6085, BgL_argsz00_4025);
			}
		}

	}



/* ftp-noop */
	BGL_EXPORTED_DEF bool_t BGl_ftpzd2noopzd2zz__ftpz00(BgL_ftpz00_bglt
		BgL_ftpz00_86)
	{
		{	/* Unsafe/ftp.scm 665 */
			return
				CBOOL(BGl_z52ftpzd2enginezd2cmdz52zz__ftpz00(
					((obj_t) BgL_ftpz00_86), BGl_string2644z00zz__ftpz00, BNIL));
		}

	}



/* &ftp-noop */
	obj_t BGl_z62ftpzd2noopzb0zz__ftpz00(obj_t BgL_envz00_4026,
		obj_t BgL_ftpz00_4027)
	{
		{	/* Unsafe/ftp.scm 665 */
			{	/* Unsafe/ftp.scm 666 */
				bool_t BgL_tmpz00_6097;

				{	/* Unsafe/ftp.scm 666 */
					BgL_ftpz00_bglt BgL_auxz00_6098;

					if (BGl_isazf3zf3zz__objectz00(BgL_ftpz00_4027, BGl_ftpz00zz__ftpz00))
						{	/* Unsafe/ftp.scm 666 */
							BgL_auxz00_6098 = ((BgL_ftpz00_bglt) BgL_ftpz00_4027);
						}
					else
						{
							obj_t BgL_auxz00_6102;

							BgL_auxz00_6102 =
								BGl_typezd2errorzd2zz__errorz00(BGl_string2573z00zz__ftpz00,
								BINT(25172L), BGl_string2645z00zz__ftpz00,
								BGl_string2548z00zz__ftpz00, BgL_ftpz00_4027);
							FAILURE(BgL_auxz00_6102, BFALSE, BFALSE);
						}
					BgL_tmpz00_6097 = BGl_ftpzd2noopzd2zz__ftpz00(BgL_auxz00_6098);
				}
				return BBOOL(BgL_tmpz00_6097);
			}
		}

	}



/* _open-input-ftp-file */
	obj_t BGl__openzd2inputzd2ftpzd2filezd2zz__ftpz00(obj_t BgL_env1299z00_91,
		obj_t BgL_opt1298z00_90)
	{
		{	/* Unsafe/ftp.scm 671 */
			{	/* Unsafe/ftp.scm 671 */
				obj_t BgL_g1300z00_2110;

				{
					obj_t BgL_auxz00_6108;

					if (VECTORP(BgL_opt1298z00_90))
						{	/* Unsafe/ftp.scm 671 */
							BgL_auxz00_6108 = BgL_opt1298z00_90;
						}
					else
						{
							obj_t BgL_auxz00_6111;

							BgL_auxz00_6111 =
								BGl_typezd2errorzd2zz__errorz00(BGl_string2573z00zz__ftpz00,
								BINT(25425L), BGl_string2646z00zz__ftpz00,
								BGl_string2575z00zz__ftpz00, BgL_opt1298z00_90);
							FAILURE(BgL_auxz00_6111, BFALSE, BFALSE);
						}
					BgL_g1300z00_2110 = VECTOR_REF(BgL_auxz00_6108, 0L);
				}
				{	/* Unsafe/ftp.scm 671 */
					long BgL_aux1302z00_2112;

					{
						obj_t BgL_auxz00_6116;

						if (VECTORP(BgL_opt1298z00_90))
							{	/* Unsafe/ftp.scm 671 */
								BgL_auxz00_6116 = BgL_opt1298z00_90;
							}
						else
							{
								obj_t BgL_auxz00_6119;

								BgL_auxz00_6119 =
									BGl_typezd2errorzd2zz__errorz00(BGl_string2573z00zz__ftpz00,
									BINT(25425L), BGl_string2646z00zz__ftpz00,
									BGl_string2575z00zz__ftpz00, BgL_opt1298z00_90);
								FAILURE(BgL_auxz00_6119, BFALSE, BFALSE);
							}
						BgL_aux1302z00_2112 = VECTOR_LENGTH(BgL_auxz00_6116);
					}
					switch (BgL_aux1302z00_2112)
						{
						case 1L:

							{	/* Unsafe/ftp.scm 671 */

								{	/* Unsafe/ftp.scm 671 */
									obj_t BgL_auxz00_6124;

									if (STRINGP(BgL_g1300z00_2110))
										{	/* Unsafe/ftp.scm 671 */
											BgL_auxz00_6124 = BgL_g1300z00_2110;
										}
									else
										{
											obj_t BgL_auxz00_6127;

											BgL_auxz00_6127 =
												BGl_typezd2errorzd2zz__errorz00
												(BGl_string2573z00zz__ftpz00, BINT(25425L),
												BGl_string2646z00zz__ftpz00,
												BGl_string2584z00zz__ftpz00, BgL_g1300z00_2110);
											FAILURE(BgL_auxz00_6127, BFALSE, BFALSE);
										}
									return
										BGl_openzd2inputzd2ftpzd2filezd2zz__ftpz00(BgL_auxz00_6124,
										BTRUE, BINT(1000000L));
								}
							}
							break;
						case 2L:

							{	/* Unsafe/ftp.scm 671 */
								obj_t BgL_bufinfoz00_2115;

								{
									obj_t BgL_auxz00_6133;

									if (VECTORP(BgL_opt1298z00_90))
										{	/* Unsafe/ftp.scm 671 */
											BgL_auxz00_6133 = BgL_opt1298z00_90;
										}
									else
										{
											obj_t BgL_auxz00_6136;

											BgL_auxz00_6136 =
												BGl_typezd2errorzd2zz__errorz00
												(BGl_string2573z00zz__ftpz00, BINT(25425L),
												BGl_string2646z00zz__ftpz00,
												BGl_string2575z00zz__ftpz00, BgL_opt1298z00_90);
											FAILURE(BgL_auxz00_6136, BFALSE, BFALSE);
										}
									BgL_bufinfoz00_2115 = VECTOR_REF(BgL_auxz00_6133, 1L);
								}
								{	/* Unsafe/ftp.scm 671 */

									{	/* Unsafe/ftp.scm 671 */
										obj_t BgL_auxz00_6141;

										if (STRINGP(BgL_g1300z00_2110))
											{	/* Unsafe/ftp.scm 671 */
												BgL_auxz00_6141 = BgL_g1300z00_2110;
											}
										else
											{
												obj_t BgL_auxz00_6144;

												BgL_auxz00_6144 =
													BGl_typezd2errorzd2zz__errorz00
													(BGl_string2573z00zz__ftpz00, BINT(25425L),
													BGl_string2646z00zz__ftpz00,
													BGl_string2584z00zz__ftpz00, BgL_g1300z00_2110);
												FAILURE(BgL_auxz00_6144, BFALSE, BFALSE);
											}
										return
											BGl_openzd2inputzd2ftpzd2filezd2zz__ftpz00
											(BgL_auxz00_6141, BgL_bufinfoz00_2115, BINT(1000000L));
									}
								}
							}
							break;
						case 3L:

							{	/* Unsafe/ftp.scm 671 */
								obj_t BgL_bufinfoz00_2117;

								{
									obj_t BgL_auxz00_6150;

									if (VECTORP(BgL_opt1298z00_90))
										{	/* Unsafe/ftp.scm 671 */
											BgL_auxz00_6150 = BgL_opt1298z00_90;
										}
									else
										{
											obj_t BgL_auxz00_6153;

											BgL_auxz00_6153 =
												BGl_typezd2errorzd2zz__errorz00
												(BGl_string2573z00zz__ftpz00, BINT(25425L),
												BGl_string2646z00zz__ftpz00,
												BGl_string2575z00zz__ftpz00, BgL_opt1298z00_90);
											FAILURE(BgL_auxz00_6153, BFALSE, BFALSE);
										}
									BgL_bufinfoz00_2117 = VECTOR_REF(BgL_auxz00_6150, 1L);
								}
								{	/* Unsafe/ftp.scm 671 */
									obj_t BgL_timeoutz00_2118;

									{
										obj_t BgL_auxz00_6158;

										if (VECTORP(BgL_opt1298z00_90))
											{	/* Unsafe/ftp.scm 671 */
												BgL_auxz00_6158 = BgL_opt1298z00_90;
											}
										else
											{
												obj_t BgL_auxz00_6161;

												BgL_auxz00_6161 =
													BGl_typezd2errorzd2zz__errorz00
													(BGl_string2573z00zz__ftpz00, BINT(25425L),
													BGl_string2646z00zz__ftpz00,
													BGl_string2575z00zz__ftpz00, BgL_opt1298z00_90);
												FAILURE(BgL_auxz00_6161, BFALSE, BFALSE);
											}
										BgL_timeoutz00_2118 = VECTOR_REF(BgL_auxz00_6158, 2L);
									}
									{	/* Unsafe/ftp.scm 671 */

										{	/* Unsafe/ftp.scm 671 */
											obj_t BgL_auxz00_6166;

											if (STRINGP(BgL_g1300z00_2110))
												{	/* Unsafe/ftp.scm 671 */
													BgL_auxz00_6166 = BgL_g1300z00_2110;
												}
											else
												{
													obj_t BgL_auxz00_6169;

													BgL_auxz00_6169 =
														BGl_typezd2errorzd2zz__errorz00
														(BGl_string2573z00zz__ftpz00, BINT(25425L),
														BGl_string2646z00zz__ftpz00,
														BGl_string2584z00zz__ftpz00, BgL_g1300z00_2110);
													FAILURE(BgL_auxz00_6169, BFALSE, BFALSE);
												}
											return
												BGl_openzd2inputzd2ftpzd2filezd2zz__ftpz00
												(BgL_auxz00_6166, BgL_bufinfoz00_2117,
												BgL_timeoutz00_2118);
										}
									}
								}
							}
							break;
						default:
							return BUNSPEC;
						}
				}
			}
		}

	}



/* open-input-ftp-file */
	BGL_EXPORTED_DEF obj_t BGl_openzd2inputzd2ftpzd2filezd2zz__ftpz00(obj_t
		BgL_stringz00_87, obj_t BgL_bufinfoz00_88, obj_t BgL_timeoutz00_89)
	{
		{	/* Unsafe/ftp.scm 671 */
			{	/* Unsafe/ftp.scm 701 */
				obj_t BgL_protocolz00_2120;

				BgL_protocolz00_2120 =
					BGl_urlzd2sanszd2protocolzd2parsezd2zz__urlz00(BgL_stringz00_87,
					BGl_string2548z00zz__ftpz00);
				{	/* Unsafe/ftp.scm 702 */
					obj_t BgL_loginz00_2121;
					obj_t BgL_hostz00_2122;
					obj_t BgL_portz00_2123;
					obj_t BgL_abspathz00_2124;

					{	/* Unsafe/ftp.scm 703 */
						obj_t BgL_tmpz00_3470;

						{	/* Unsafe/ftp.scm 703 */
							int BgL_tmpz00_6176;

							BgL_tmpz00_6176 = (int) (1L);
							BgL_tmpz00_3470 = BGL_MVALUES_VAL(BgL_tmpz00_6176);
						}
						{	/* Unsafe/ftp.scm 703 */
							int BgL_tmpz00_6179;

							BgL_tmpz00_6179 = (int) (1L);
							BGL_MVALUES_VAL_SET(BgL_tmpz00_6179, BUNSPEC);
						}
						BgL_loginz00_2121 = BgL_tmpz00_3470;
					}
					{	/* Unsafe/ftp.scm 703 */
						obj_t BgL_tmpz00_3471;

						{	/* Unsafe/ftp.scm 703 */
							int BgL_tmpz00_6182;

							BgL_tmpz00_6182 = (int) (2L);
							BgL_tmpz00_3471 = BGL_MVALUES_VAL(BgL_tmpz00_6182);
						}
						{	/* Unsafe/ftp.scm 703 */
							int BgL_tmpz00_6185;

							BgL_tmpz00_6185 = (int) (2L);
							BGL_MVALUES_VAL_SET(BgL_tmpz00_6185, BUNSPEC);
						}
						BgL_hostz00_2122 = BgL_tmpz00_3471;
					}
					{	/* Unsafe/ftp.scm 703 */
						obj_t BgL_tmpz00_3472;

						{	/* Unsafe/ftp.scm 703 */
							int BgL_tmpz00_6188;

							BgL_tmpz00_6188 = (int) (3L);
							BgL_tmpz00_3472 = BGL_MVALUES_VAL(BgL_tmpz00_6188);
						}
						{	/* Unsafe/ftp.scm 703 */
							int BgL_tmpz00_6191;

							BgL_tmpz00_6191 = (int) (3L);
							BGL_MVALUES_VAL_SET(BgL_tmpz00_6191, BUNSPEC);
						}
						BgL_portz00_2123 = BgL_tmpz00_3472;
					}
					{	/* Unsafe/ftp.scm 703 */
						obj_t BgL_tmpz00_3473;

						{	/* Unsafe/ftp.scm 703 */
							int BgL_tmpz00_6194;

							BgL_tmpz00_6194 = (int) (4L);
							BgL_tmpz00_3473 = BGL_MVALUES_VAL(BgL_tmpz00_6194);
						}
						{	/* Unsafe/ftp.scm 703 */
							int BgL_tmpz00_6197;

							BgL_tmpz00_6197 = (int) (4L);
							BGL_MVALUES_VAL_SET(BgL_tmpz00_6197, BUNSPEC);
						}
						BgL_abspathz00_2124 = BgL_tmpz00_3473;
					}
					{	/* Unsafe/ftp.scm 703 */
						obj_t BgL_iz00_2125;

						if (STRINGP(BgL_loginz00_2121))
							{	/* Ieee/string.scm 223 */

								BgL_iz00_2125 =
									BGl_stringzd2indexzd2zz__r4_strings_6_7z00(BgL_loginz00_2121,
									BCHAR(((unsigned char) ':')), BINT(0L));
							}
						else
							{	/* Unsafe/ftp.scm 703 */
								BgL_iz00_2125 = BFALSE;
							}
						{	/* Unsafe/ftp.scm 703 */
							BgL_ftpz00_bglt BgL_ftpz00_2126;

							{	/* Unsafe/ftp.scm 704 */
								BgL_ftpz00_bglt BgL_new1162z00_2134;

								{	/* Unsafe/ftp.scm 704 */
									BgL_ftpz00_bglt BgL_new1161z00_2140;

									BgL_new1161z00_2140 =
										((BgL_ftpz00_bglt) BOBJECT(GC_MALLOC(sizeof(struct
													BgL_ftpz00_bgl))));
									{	/* Unsafe/ftp.scm 704 */
										long BgL_arg1878z00_2141;

										BgL_arg1878z00_2141 = BGL_CLASS_NUM(BGl_ftpz00zz__ftpz00);
										BGL_OBJECT_CLASS_NUM_SET(
											((BgL_objectz00_bglt) BgL_new1161z00_2140),
											BgL_arg1878z00_2141);
									}
									BgL_new1162z00_2134 = BgL_new1161z00_2140;
								}
								((((BgL_z52ftpz52_bglt) COBJECT(
												((BgL_z52ftpz52_bglt) BgL_new1162z00_2134)))->
										BgL_cmdz00) = ((obj_t) BFALSE), BUNSPEC);
								((((BgL_z52ftpz52_bglt) COBJECT(((BgL_z52ftpz52_bglt)
													BgL_new1162z00_2134)))->BgL_dtpz00) =
									((obj_t) BFALSE), BUNSPEC);
								((((BgL_z52ftpz52_bglt) COBJECT(((BgL_z52ftpz52_bglt)
													BgL_new1162z00_2134)))->BgL_passivezf3zf3) =
									((bool_t) ((bool_t) 1)), BUNSPEC);
								((((BgL_ftpz00_bglt) COBJECT(BgL_new1162z00_2134))->
										BgL_hostz00) = ((obj_t) BgL_hostz00_2122), BUNSPEC);
								((((BgL_ftpz00_bglt) COBJECT(BgL_new1162z00_2134))->
										BgL_portz00) = ((obj_t) BINT(21L)), BUNSPEC);
								((((BgL_ftpz00_bglt) COBJECT(BgL_new1162z00_2134))->
										BgL_motdz00) =
									((obj_t) BGl_string2568z00zz__ftpz00), BUNSPEC);
								{
									obj_t BgL_auxz00_6219;

									if (CBOOL(BgL_iz00_2125))
										{	/* Unsafe/ftp.scm 707 */
											long BgL_endz00_3478;

											BgL_endz00_3478 = (long) CINT(BgL_iz00_2125);
											BgL_auxz00_6219 =
												c_substring(
												((obj_t) BgL_loginz00_2121), 0L, BgL_endz00_3478);
										}
									else
										{	/* Unsafe/ftp.scm 707 */
											if (STRINGP(BgL_loginz00_2121))
												{	/* Unsafe/ftp.scm 708 */
													BgL_auxz00_6219 = BgL_loginz00_2121;
												}
											else
												{	/* Unsafe/ftp.scm 708 */
													BgL_auxz00_6219 = BGl_string2569z00zz__ftpz00;
												}
										}
									((((BgL_ftpz00_bglt) COBJECT(BgL_new1162z00_2134))->
											BgL_userz00) = ((obj_t) BgL_auxz00_6219), BUNSPEC);
								}
								{
									obj_t BgL_auxz00_6228;

									if (CBOOL(BgL_iz00_2125))
										{	/* Unsafe/ftp.scm 711 */
											long BgL_arg1876z00_2136;

											BgL_arg1876z00_2136 = ((long) CINT(BgL_iz00_2125) + 1L);
											{	/* Ieee/string.scm 194 */
												long BgL_endz00_2139;

												BgL_endz00_2139 =
													STRING_LENGTH(((obj_t) BgL_loginz00_2121));
												{	/* Ieee/string.scm 194 */

													BgL_auxz00_6228 =
														BGl_substringz00zz__r4_strings_6_7z00
														(BgL_loginz00_2121, BgL_arg1876z00_2136,
														BgL_endz00_2139);
										}}}
									else
										{	/* Unsafe/ftp.scm 711 */
											BgL_auxz00_6228 = BGl_string2570z00zz__ftpz00;
										}
									((((BgL_ftpz00_bglt) COBJECT(BgL_new1162z00_2134))->
											BgL_passz00) = ((obj_t) BgL_auxz00_6228), BUNSPEC);
								}
								((((BgL_ftpz00_bglt) COBJECT(BgL_new1162z00_2134))->
										BgL_acctz00) =
									((obj_t) BGl_string2568z00zz__ftpz00), BUNSPEC);
								BgL_ftpz00_2126 = BgL_new1162z00_2134;
							}
							{	/* Unsafe/ftp.scm 704 */

								{	/* Unsafe/ftp.scm 713 */
									bool_t BgL_test3098z00_6238;

									{	/* Unsafe/ftp.scm 713 */
										bool_t BgL_res2391z00_3490;

										{
											obj_t BgL_auxz00_6239;

											{	/* Unsafe/ftp.scm 410 */
												obj_t BgL_arg1755z00_3483;
												obj_t BgL_arg1756z00_3484;

												BgL_arg1755z00_3483 =
													(((BgL_ftpz00_bglt) COBJECT(BgL_ftpz00_2126))->
													BgL_hostz00);
												BgL_arg1756z00_3484 =
													(((BgL_ftpz00_bglt) COBJECT(BgL_ftpz00_2126))->
													BgL_portz00);
												{	/* Unsafe/ftp.scm 410 */
													obj_t BgL_domainz00_3485;

													BgL_domainz00_3485 = BGl_symbol2571z00zz__ftpz00;
													BgL_auxz00_6239 =
														BGl_makezd2clientzd2socketz00zz__socketz00
														(BgL_arg1755z00_3483, CINT(BgL_arg1756z00_3484),
														BgL_domainz00_3485, BTRUE, BTRUE,
														BgL_timeoutz00_89);
												}
											}
											((((BgL_z52ftpz52_bglt) COBJECT(
															((BgL_z52ftpz52_bglt) BgL_ftpz00_2126)))->
													BgL_cmdz00) = ((obj_t) BgL_auxz00_6239), BUNSPEC);
										}
										BgL_res2391z00_3490 =
											CBOOL(BGl_z52ftpzd2enginezd2cmdz52zz__ftpz00(
												((obj_t) BgL_ftpz00_2126), BFALSE, BNIL));
										BgL_test3098z00_6238 = BgL_res2391z00_3490;
									}
									if (BgL_test3098z00_6238)
										{	/* Unsafe/ftp.scm 714 */
											obj_t BgL_piz00_2128;

											{	/* Unsafe/ftp.scm 547 */
												obj_t BgL_list1818z00_3493;

												BgL_list1818z00_3493 =
													MAKE_YOUNG_PAIR(((obj_t) BgL_abspathz00_2124), BNIL);
												BgL_piz00_2128 =
													BGl_z52ftpzd2enginezd2cmdz52zz__ftpz00(
													((obj_t) BgL_ftpz00_2126),
													BGl_string2551z00zz__ftpz00, BgL_list1818z00_3493);
											}
											if (INPUT_PORTP(BgL_piz00_2128))
												{	/* Unsafe/ftp.scm 715 */
													{	/* Unsafe/ftp.scm 716 */
														obj_t BgL_zc3z04anonymousza31874ze3z87_4029;

														BgL_zc3z04anonymousza31874ze3z87_4029 =
															MAKE_FX_PROCEDURE
															(BGl_z62zc3z04anonymousza31874ze3ze5zz__ftpz00,
															(int) (1L), (int) (1L));
														PROCEDURE_SET(BgL_zc3z04anonymousza31874ze3z87_4029,
															(int) (0L), ((obj_t) BgL_ftpz00_2126));
														BGl_inputzd2portzd2closezd2hookzd2setz12z12zz__r4_ports_6_10_1z00
															(BgL_piz00_2128,
															BgL_zc3z04anonymousza31874ze3z87_4029);
													}
													return BgL_piz00_2128;
												}
											else
												{	/* Unsafe/ftp.scm 715 */
													return BFALSE;
												}
										}
									else
										{	/* Unsafe/ftp.scm 713 */
											return BFALSE;
										}
								}
							}
						}
					}
				}
			}
		}

	}



/* &<@anonymous:1874> */
	obj_t BGl_z62zc3z04anonymousza31874ze3ze5zz__ftpz00(obj_t BgL_envz00_4030,
		obj_t BgL_vz00_4032)
	{
		{	/* Unsafe/ftp.scm 716 */
			{	/* Unsafe/ftp.scm 377 */
				BgL_ftpz00_bglt BgL_ftpz00_4031;

				BgL_ftpz00_4031 =
					((BgL_ftpz00_bglt) PROCEDURE_REF(BgL_envz00_4030, (int) (0L)));
				return
					BGl_zc3z04anonymousza31874ze3ze70z60zz__ftpz00(BgL_ftpz00_4031,
					BgL_vz00_4032);
			}
		}

	}



/* <@anonymous:1874>~0 */
	obj_t BGl_zc3z04anonymousza31874ze3ze70z60zz__ftpz00(BgL_ftpz00_bglt
		BgL_ftpz00_4188, obj_t BgL_vz00_2131)
	{
		{	/* Unsafe/ftp.scm 716 */
			{	/* Unsafe/ftp.scm 377 */
				obj_t BgL_exitd1114z00_3494;

				BgL_exitd1114z00_3494 = BGL_EXITD_TOP_AS_OBJ();
				{	/* Unsafe/ftp.scm 379 */
					obj_t BgL_zc3z04anonymousza31720ze3z87_4028;

					BgL_zc3z04anonymousza31720ze3z87_4028 =
						MAKE_FX_PROCEDURE(BGl_z62zc3z04anonymousza31720ze32401ze5zz__ftpz00,
						(int) (0L), (int) (1L));
					PROCEDURE_SET(BgL_zc3z04anonymousza31720ze3z87_4028,
						(int) (0L), ((obj_t) BgL_ftpz00_4188));
					{	/* Unsafe/ftp.scm 377 */
						obj_t BgL_arg2358z00_3497;

						{	/* Unsafe/ftp.scm 377 */
							obj_t BgL_arg2359z00_3498;

							BgL_arg2359z00_3498 = BGL_EXITD_PROTECT(BgL_exitd1114z00_3494);
							BgL_arg2358z00_3497 =
								MAKE_YOUNG_PAIR(BgL_zc3z04anonymousza31720ze3z87_4028,
								BgL_arg2359z00_3498);
						}
						BGL_EXITD_PROTECT_SET(BgL_exitd1114z00_3494, BgL_arg2358z00_3497);
						BUNSPEC;
					}
					{	/* Unsafe/ftp.scm 378 */
						obj_t BgL_tmp1116z00_3496;

						BgL_tmp1116z00_3496 =
							BGl_z52ftpzd2closezd2cmdz52zz__ftpz00(((obj_t) BgL_ftpz00_4188));
						{	/* Unsafe/ftp.scm 377 */
							bool_t BgL_test3100z00_6278;

							{	/* Unsafe/ftp.scm 377 */
								obj_t BgL_arg2356z00_3500;

								BgL_arg2356z00_3500 = BGL_EXITD_PROTECT(BgL_exitd1114z00_3494);
								BgL_test3100z00_6278 = PAIRP(BgL_arg2356z00_3500);
							}
							if (BgL_test3100z00_6278)
								{	/* Unsafe/ftp.scm 377 */
									obj_t BgL_arg2353z00_3501;

									{	/* Unsafe/ftp.scm 377 */
										obj_t BgL_arg2354z00_3502;

										BgL_arg2354z00_3502 =
											BGL_EXITD_PROTECT(BgL_exitd1114z00_3494);
										BgL_arg2353z00_3501 = CDR(((obj_t) BgL_arg2354z00_3502));
									}
									BGL_EXITD_PROTECT_SET(BgL_exitd1114z00_3494,
										BgL_arg2353z00_3501);
									BUNSPEC;
								}
							else
								{	/* Unsafe/ftp.scm 377 */
									BFALSE;
								}
						}
						BGl_z52ftpzd2closezd2dtpz52zz__ftpz00(((obj_t) BgL_ftpz00_4188));
						return BgL_tmp1116z00_3496;
					}
				}
			}
		}

	}



/* &<@anonymous:1720>2401 */
	obj_t BGl_z62zc3z04anonymousza31720ze32401ze5zz__ftpz00(obj_t BgL_envz00_4033)
	{
		{	/* Unsafe/ftp.scm 377 */
			{	/* Unsafe/ftp.scm 379 */
				BgL_ftpz00_bglt BgL_ftpz00_4034;

				BgL_ftpz00_4034 =
					((BgL_ftpz00_bglt) PROCEDURE_REF(BgL_envz00_4033, (int) (0L)));
				return BGl_z52ftpzd2closezd2dtpz52zz__ftpz00(((obj_t) BgL_ftpz00_4034));
			}
		}

	}



/* ftp-directory->list */
	BGL_EXPORTED_DEF obj_t
		BGl_ftpzd2directoryzd2ze3listze3zz__ftpz00(BgL_ftpz00_bglt BgL_ftpz00_92,
		obj_t BgL_dirz00_93)
	{
		{	/* Unsafe/ftp.scm 722 */
			{	/* Unsafe/ftp.scm 723 */
				long BgL_lenz00_2182;
				obj_t BgL_lstz00_2183;

				BgL_lenz00_2182 = STRING_LENGTH(BgL_dirz00_93);
				{	/* Unsafe/ftp.scm 724 */
					obj_t BgL_list1922z00_2215;

					BgL_list1922z00_2215 = MAKE_YOUNG_PAIR(BgL_dirz00_93, BNIL);
					BgL_lstz00_2183 =
						BGl_ftpzd2namezd2listz00zz__ftpz00(BgL_ftpz00_92,
						BgL_list1922z00_2215);
				}
				{	/* Unsafe/ftp.scm 726 */
					bool_t BgL_test3101z00_6295;

					if (NULLP(BgL_lstz00_2183))
						{	/* Unsafe/ftp.scm 726 */
							BgL_test3101z00_6295 = ((bool_t) 0);
						}
					else
						{	/* Unsafe/ftp.scm 726 */
							obj_t BgL_tmpz00_6298;

							BgL_tmpz00_6298 = CDR(BgL_lstz00_2183);
							BgL_test3101z00_6295 = PAIRP(BgL_tmpz00_6298);
						}
					if (BgL_test3101z00_6295)
						{	/* Unsafe/ftp.scm 727 */
							obj_t BgL_head1253z00_2189;

							BgL_head1253z00_2189 = MAKE_YOUNG_PAIR(BNIL, BNIL);
							{
								obj_t BgL_l1251z00_2191;
								obj_t BgL_tail1254z00_2192;

								BgL_l1251z00_2191 = BgL_lstz00_2183;
								BgL_tail1254z00_2192 = BgL_head1253z00_2189;
							BgL_zc3z04anonymousza31906ze3z87_2193:
								if (NULLP(BgL_l1251z00_2191))
									{	/* Unsafe/ftp.scm 727 */
										return CDR(BgL_head1253z00_2189);
									}
								else
									{	/* Unsafe/ftp.scm 727 */
										obj_t BgL_newtail1255z00_2195;

										{	/* Unsafe/ftp.scm 727 */
											obj_t BgL_arg1911z00_2197;

											{	/* Unsafe/ftp.scm 727 */
												obj_t BgL_filez00_2198;

												BgL_filez00_2198 = CAR(((obj_t) BgL_l1251z00_2191));
												{	/* Unsafe/ftp.scm 727 */
													long BgL_arg1914z00_2199;

													BgL_arg1914z00_2199 = (BgL_lenz00_2182 + 1L);
													{	/* Ieee/string.scm 194 */
														long BgL_endz00_2202;

														BgL_endz00_2202 =
															STRING_LENGTH(((obj_t) BgL_filez00_2198));
														{	/* Ieee/string.scm 194 */

															BgL_arg1911z00_2197 =
																BGl_substringz00zz__r4_strings_6_7z00
																(BgL_filez00_2198, BgL_arg1914z00_2199,
																BgL_endz00_2202);
											}}}}
											BgL_newtail1255z00_2195 =
												MAKE_YOUNG_PAIR(BgL_arg1911z00_2197, BNIL);
										}
										SET_CDR(BgL_tail1254z00_2192, BgL_newtail1255z00_2195);
										{	/* Unsafe/ftp.scm 727 */
											obj_t BgL_arg1908z00_2196;

											BgL_arg1908z00_2196 = CDR(((obj_t) BgL_l1251z00_2191));
											{
												obj_t BgL_tail1254z00_6316;
												obj_t BgL_l1251z00_6315;

												BgL_l1251z00_6315 = BgL_arg1908z00_2196;
												BgL_tail1254z00_6316 = BgL_newtail1255z00_2195;
												BgL_tail1254z00_2192 = BgL_tail1254z00_6316;
												BgL_l1251z00_2191 = BgL_l1251z00_6315;
												goto BgL_zc3z04anonymousza31906ze3z87_2193;
											}
										}
									}
							}
						}
					else
						{	/* Unsafe/ftp.scm 726 */
							if (NULLP(BgL_lstz00_2183))
								{	/* Unsafe/ftp.scm 728 */
									return BNIL;
								}
							else
								{	/* Unsafe/ftp.scm 730 */
									bool_t BgL_test3105z00_6319;

									{	/* Unsafe/ftp.scm 730 */
										obj_t BgL_arg1920z00_2212;

										BgL_arg1920z00_2212 = CAR(BgL_lstz00_2183);
										{	/* Unsafe/ftp.scm 730 */
											long BgL_l1z00_3515;

											BgL_l1z00_3515 =
												STRING_LENGTH(((obj_t) BgL_arg1920z00_2212));
											if ((BgL_l1z00_3515 == STRING_LENGTH(BgL_dirz00_93)))
												{	/* Unsafe/ftp.scm 730 */
													int BgL_arg2110z00_3518;

													{	/* Unsafe/ftp.scm 730 */
														char *BgL_auxz00_6329;
														char *BgL_tmpz00_6326;

														BgL_auxz00_6329 = BSTRING_TO_STRING(BgL_dirz00_93);
														BgL_tmpz00_6326 =
															BSTRING_TO_STRING(((obj_t) BgL_arg1920z00_2212));
														BgL_arg2110z00_3518 =
															memcmp(BgL_tmpz00_6326, BgL_auxz00_6329,
															BgL_l1z00_3515);
													}
													BgL_test3105z00_6319 =
														((long) (BgL_arg2110z00_3518) == 0L);
												}
											else
												{	/* Unsafe/ftp.scm 730 */
													BgL_test3105z00_6319 = ((bool_t) 0);
												}
										}
									}
									if (BgL_test3105z00_6319)
										{	/* Unsafe/ftp.scm 730 */
											return BgL_dirz00_93;
										}
									else
										{	/* Unsafe/ftp.scm 733 */
											obj_t BgL_arg1918z00_2207;
											long BgL_arg1919z00_2208;

											BgL_arg1918z00_2207 = CAR(BgL_lstz00_2183);
											BgL_arg1919z00_2208 = (BgL_lenz00_2182 + 1L);
											{	/* Ieee/string.scm 194 */
												long BgL_endz00_2211;

												BgL_endz00_2211 =
													STRING_LENGTH(((obj_t) BgL_arg1918z00_2207));
												{	/* Ieee/string.scm 194 */

													return
														BGl_substringz00zz__r4_strings_6_7z00
														(BgL_arg1918z00_2207, BgL_arg1919z00_2208,
														BgL_endz00_2211);
												}
											}
										}
								}
						}
				}
			}
		}

	}



/* &ftp-directory->list */
	obj_t BGl_z62ftpzd2directoryzd2ze3listz81zz__ftpz00(obj_t BgL_envz00_4035,
		obj_t BgL_ftpz00_4036, obj_t BgL_dirz00_4037)
	{
		{	/* Unsafe/ftp.scm 722 */
			{	/* Unsafe/ftp.scm 723 */
				obj_t BgL_auxz00_6347;
				BgL_ftpz00_bglt BgL_auxz00_6339;

				if (STRINGP(BgL_dirz00_4037))
					{	/* Unsafe/ftp.scm 723 */
						BgL_auxz00_6347 = BgL_dirz00_4037;
					}
				else
					{
						obj_t BgL_auxz00_6350;

						BgL_auxz00_6350 =
							BGl_typezd2errorzd2zz__errorz00(BGl_string2573z00zz__ftpz00,
							BINT(27285L), BGl_string2647z00zz__ftpz00,
							BGl_string2584z00zz__ftpz00, BgL_dirz00_4037);
						FAILURE(BgL_auxz00_6350, BFALSE, BFALSE);
					}
				if (BGl_isazf3zf3zz__objectz00(BgL_ftpz00_4036, BGl_ftpz00zz__ftpz00))
					{	/* Unsafe/ftp.scm 723 */
						BgL_auxz00_6339 = ((BgL_ftpz00_bglt) BgL_ftpz00_4036);
					}
				else
					{
						obj_t BgL_auxz00_6343;

						BgL_auxz00_6343 =
							BGl_typezd2errorzd2zz__errorz00(BGl_string2573z00zz__ftpz00,
							BINT(27285L), BGl_string2647z00zz__ftpz00,
							BGl_string2548z00zz__ftpz00, BgL_ftpz00_4036);
						FAILURE(BgL_auxz00_6343, BFALSE, BFALSE);
					}
				return
					BGl_ftpzd2directoryzd2ze3listze3zz__ftpz00(BgL_auxz00_6339,
					BgL_auxz00_6347);
			}
		}

	}



/* ftp-directory->path-list */
	BGL_EXPORTED_DEF obj_t
		BGl_ftpzd2directoryzd2ze3pathzd2listz31zz__ftpz00(BgL_ftpz00_bglt
		BgL_ftpz00_94, obj_t BgL_dirz00_95)
	{
		{	/* Unsafe/ftp.scm 738 */
			{	/* Unsafe/ftp.scm 739 */
				obj_t BgL_list1923z00_3527;

				BgL_list1923z00_3527 = MAKE_YOUNG_PAIR(BgL_dirz00_95, BNIL);
				return
					BGl_ftpzd2namezd2listz00zz__ftpz00(BgL_ftpz00_94,
					BgL_list1923z00_3527);
			}
		}

	}



/* &ftp-directory->path-list */
	obj_t BGl_z62ftpzd2directoryzd2ze3pathzd2listz53zz__ftpz00(obj_t
		BgL_envz00_4038, obj_t BgL_ftpz00_4039, obj_t BgL_dirz00_4040)
	{
		{	/* Unsafe/ftp.scm 738 */
			{	/* Unsafe/ftp.scm 739 */
				obj_t BgL_auxz00_6365;
				BgL_ftpz00_bglt BgL_auxz00_6357;

				if (STRINGP(BgL_dirz00_4040))
					{	/* Unsafe/ftp.scm 739 */
						BgL_auxz00_6365 = BgL_dirz00_4040;
					}
				else
					{
						obj_t BgL_auxz00_6368;

						BgL_auxz00_6368 =
							BGl_typezd2errorzd2zz__errorz00(BGl_string2573z00zz__ftpz00,
							BINT(27837L), BGl_string2648z00zz__ftpz00,
							BGl_string2584z00zz__ftpz00, BgL_dirz00_4040);
						FAILURE(BgL_auxz00_6368, BFALSE, BFALSE);
					}
				if (BGl_isazf3zf3zz__objectz00(BgL_ftpz00_4039, BGl_ftpz00zz__ftpz00))
					{	/* Unsafe/ftp.scm 739 */
						BgL_auxz00_6357 = ((BgL_ftpz00_bglt) BgL_ftpz00_4039);
					}
				else
					{
						obj_t BgL_auxz00_6361;

						BgL_auxz00_6361 =
							BGl_typezd2errorzd2zz__errorz00(BGl_string2573z00zz__ftpz00,
							BINT(27837L), BGl_string2648z00zz__ftpz00,
							BGl_string2548z00zz__ftpz00, BgL_ftpz00_4039);
						FAILURE(BgL_auxz00_6361, BFALSE, BFALSE);
					}
				return
					BGl_ftpzd2directoryzd2ze3pathzd2listz31zz__ftpz00(BgL_auxz00_6357,
					BgL_auxz00_6365);
			}
		}

	}



/* ftp-copy-file */
	BGL_EXPORTED_DEF obj_t BGl_ftpzd2copyzd2filez00zz__ftpz00(BgL_ftpz00_bglt
		BgL_ftpz00_96, obj_t BgL_fromz00_97, obj_t BgL_dstz00_98)
	{
		{	/* Unsafe/ftp.scm 744 */
			{	/* Unsafe/ftp.scm 745 */
				obj_t BgL_rz00_3528;

				{	/* Unsafe/ftp.scm 547 */
					obj_t BgL_list1818z00_3535;

					BgL_list1818z00_3535 = MAKE_YOUNG_PAIR(BgL_fromz00_97, BNIL);
					BgL_rz00_3528 =
						BGl_z52ftpzd2enginezd2cmdz52zz__ftpz00(
						((obj_t) BgL_ftpz00_96), BGl_string2551z00zz__ftpz00,
						BgL_list1818z00_3535);
				}
				if (INPUT_PORTP(BgL_rz00_3528))
					{	/* Unsafe/ftp.scm 749 */
						obj_t BgL_zc3z04anonymousza31926ze3z87_4041;

						BgL_zc3z04anonymousza31926ze3z87_4041 =
							MAKE_FX_PROCEDURE(BGl_z62zc3z04anonymousza31926ze3ze5zz__ftpz00,
							(int) (0L), (int) (1L));
						PROCEDURE_SET(BgL_zc3z04anonymousza31926ze3z87_4041,
							(int) (0L), BgL_rz00_3528);
						return
							BGl_withzd2outputzd2tozd2filezd2zz__r4_ports_6_10_1z00
							(BgL_dstz00_98, BgL_zc3z04anonymousza31926ze3z87_4041);
					}
				else
					{	/* Unsafe/ftp.scm 746 */
						return BFALSE;
					}
			}
		}

	}



/* &ftp-copy-file */
	obj_t BGl_z62ftpzd2copyzd2filez62zz__ftpz00(obj_t BgL_envz00_4042,
		obj_t BgL_ftpz00_4043, obj_t BgL_fromz00_4044, obj_t BgL_dstz00_4045)
	{
		{	/* Unsafe/ftp.scm 744 */
			{	/* Unsafe/ftp.scm 745 */
				obj_t BgL_auxz00_6399;
				obj_t BgL_auxz00_6392;
				BgL_ftpz00_bglt BgL_auxz00_6384;

				if (STRINGP(BgL_dstz00_4045))
					{	/* Unsafe/ftp.scm 745 */
						BgL_auxz00_6399 = BgL_dstz00_4045;
					}
				else
					{
						obj_t BgL_auxz00_6402;

						BgL_auxz00_6402 =
							BGl_typezd2errorzd2zz__errorz00(BGl_string2573z00zz__ftpz00,
							BINT(28125L), BGl_string2649z00zz__ftpz00,
							BGl_string2584z00zz__ftpz00, BgL_dstz00_4045);
						FAILURE(BgL_auxz00_6402, BFALSE, BFALSE);
					}
				if (STRINGP(BgL_fromz00_4044))
					{	/* Unsafe/ftp.scm 745 */
						BgL_auxz00_6392 = BgL_fromz00_4044;
					}
				else
					{
						obj_t BgL_auxz00_6395;

						BgL_auxz00_6395 =
							BGl_typezd2errorzd2zz__errorz00(BGl_string2573z00zz__ftpz00,
							BINT(28125L), BGl_string2649z00zz__ftpz00,
							BGl_string2584z00zz__ftpz00, BgL_fromz00_4044);
						FAILURE(BgL_auxz00_6395, BFALSE, BFALSE);
					}
				if (BGl_isazf3zf3zz__objectz00(BgL_ftpz00_4043, BGl_ftpz00zz__ftpz00))
					{	/* Unsafe/ftp.scm 745 */
						BgL_auxz00_6384 = ((BgL_ftpz00_bglt) BgL_ftpz00_4043);
					}
				else
					{
						obj_t BgL_auxz00_6388;

						BgL_auxz00_6388 =
							BGl_typezd2errorzd2zz__errorz00(BGl_string2573z00zz__ftpz00,
							BINT(28125L), BGl_string2649z00zz__ftpz00,
							BGl_string2548z00zz__ftpz00, BgL_ftpz00_4043);
						FAILURE(BgL_auxz00_6388, BFALSE, BFALSE);
					}
				return
					BGl_ftpzd2copyzd2filez00zz__ftpz00(BgL_auxz00_6384, BgL_auxz00_6392,
					BgL_auxz00_6399);
			}
		}

	}



/* &<@anonymous:1926> */
	obj_t BGl_z62zc3z04anonymousza31926ze3ze5zz__ftpz00(obj_t BgL_envz00_4046)
	{
		{	/* Unsafe/ftp.scm 748 */
			{	/* Unsafe/ftp.scm 749 */
				obj_t BgL_rz00_4047;

				BgL_rz00_4047 = PROCEDURE_REF(BgL_envz00_4046, (int) (0L));
				{	/* Unsafe/ftp.scm 749 */
					bool_t BgL_tmpz00_6409;

					{	/* Unsafe/ftp.scm 749 */
						obj_t BgL_arg1927z00_4530;
						obj_t BgL_arg1928z00_4531;

						BgL_arg1927z00_4530 =
							BGl_readzd2stringzd2zz__r4_input_6_10_2z00(BgL_rz00_4047);
						{	/* Unsafe/ftp.scm 749 */
							obj_t BgL_tmpz00_6411;

							BgL_tmpz00_6411 = BGL_CURRENT_DYNAMIC_ENV();
							BgL_arg1928z00_4531 =
								BGL_ENV_CURRENT_OUTPUT_PORT(BgL_tmpz00_6411);
						}
						bgl_display_obj(BgL_arg1927z00_4530, BgL_arg1928z00_4531);
					}
					BgL_tmpz00_6409 = ((bool_t) 1);
					return BBOOL(BgL_tmpz00_6409);
				}
			}
		}

	}



/* ftp-put-file */
	BGL_EXPORTED_DEF obj_t BGl_ftpzd2putzd2filez00zz__ftpz00(BgL_ftpz00_bglt
		BgL_ftpz00_99, obj_t BgL_pathz00_100)
	{
		{	/* Unsafe/ftp.scm 755 */
			{	/* Unsafe/ftp.scm 756 */
				bool_t BgL_res2392z00_3552;

				{	/* Unsafe/ftp.scm 554 */
					obj_t BgL_opz00_3542;

					{	/* Unsafe/ftp.scm 554 */
						obj_t BgL_arg1822z00_3543;

						BgL_arg1822z00_3543 =
							(((BgL_z52ftpz52_bglt) COBJECT(
									((BgL_z52ftpz52_bglt) BgL_ftpz00_99)))->BgL_dtpz00);
						{	/* Unsafe/ftp.scm 554 */
							obj_t BgL_tmpz00_6418;

							BgL_tmpz00_6418 = ((obj_t) BgL_arg1822z00_3543);
							BgL_opz00_3542 = SOCKET_OUTPUT(BgL_tmpz00_6418);
						}
					}
					if (fexists(BSTRING_TO_STRING(BgL_pathz00_100)))
						{	/* Unsafe/ftp.scm 556 */
							obj_t BgL__andtest_1145z00_3547;

							{	/* Unsafe/ftp.scm 557 */
								obj_t BgL_list1820z00_3548;

								BgL_list1820z00_3548 = MAKE_YOUNG_PAIR(BTRUE, BNIL);
								BgL__andtest_1145z00_3547 =
									BGl_z52ftpzd2enginezd2cmdz52zz__ftpz00(
									((obj_t) BgL_ftpz00_99), BGl_string2609z00zz__ftpz00,
									BgL_list1820z00_3548);
							}
							if (CBOOL(BgL__andtest_1145z00_3547))
								{	/* Unsafe/ftp.scm 559 */
									long BgL_arg1819z00_3550;

									BgL_arg1819z00_3550 =
										bgl_file_size(BSTRING_TO_STRING(BgL_pathz00_100));
									{	/* Unsafe/ftp.scm 559 */
										long BgL_xz00_4398;

										BgL_xz00_4398 =
											BGl_sendzd2filezd2zz__r4_input_6_10_2z00(BgL_pathz00_100,
											BgL_opz00_3542, BgL_arg1819z00_3550, ((long) 0));
										BgL_res2392z00_3552 = ((bool_t) 1);
								}}
							else
								{	/* Unsafe/ftp.scm 556 */
									BgL_res2392z00_3552 = ((bool_t) 0);
								}
						}
					else
						{	/* Unsafe/ftp.scm 555 */
							BgL_res2392z00_3552 = ((bool_t) 0);
						}
				}
				return BBOOL(BgL_res2392z00_3552);
			}
		}

	}



/* &ftp-put-file */
	obj_t BGl_z62ftpzd2putzd2filez62zz__ftpz00(obj_t BgL_envz00_4048,
		obj_t BgL_ftpz00_4049, obj_t BgL_pathz00_4050)
	{
		{	/* Unsafe/ftp.scm 755 */
			{	/* Unsafe/ftp.scm 756 */
				obj_t BgL_auxz00_6441;
				BgL_ftpz00_bglt BgL_auxz00_6433;

				if (STRINGP(BgL_pathz00_4050))
					{	/* Unsafe/ftp.scm 756 */
						BgL_auxz00_6441 = BgL_pathz00_4050;
					}
				else
					{
						obj_t BgL_auxz00_6444;

						BgL_auxz00_6444 =
							BGl_typezd2errorzd2zz__errorz00(BGl_string2573z00zz__ftpz00,
							BINT(28539L), BGl_string2650z00zz__ftpz00,
							BGl_string2584z00zz__ftpz00, BgL_pathz00_4050);
						FAILURE(BgL_auxz00_6444, BFALSE, BFALSE);
					}
				if (BGl_isazf3zf3zz__objectz00(BgL_ftpz00_4049, BGl_ftpz00zz__ftpz00))
					{	/* Unsafe/ftp.scm 756 */
						BgL_auxz00_6433 = ((BgL_ftpz00_bglt) BgL_ftpz00_4049);
					}
				else
					{
						obj_t BgL_auxz00_6437;

						BgL_auxz00_6437 =
							BGl_typezd2errorzd2zz__errorz00(BGl_string2573z00zz__ftpz00,
							BINT(28539L), BGl_string2650z00zz__ftpz00,
							BGl_string2548z00zz__ftpz00, BgL_ftpz00_4049);
						FAILURE(BgL_auxz00_6437, BFALSE, BFALSE);
					}
				return
					BGl_ftpzd2putzd2filez00zz__ftpz00(BgL_auxz00_6433, BgL_auxz00_6441);
			}
		}

	}



/* object-init */
	obj_t BGl_objectzd2initzd2zz__ftpz00(void)
	{
		{	/* Unsafe/ftp.scm 15 */
			{	/* Unsafe/ftp.scm 52 */
				obj_t BgL_arg1933z00_2226;
				obj_t BgL_arg1934z00_2227;

				{	/* Unsafe/ftp.scm 52 */
					obj_t BgL_v1256z00_2233;

					BgL_v1256z00_2233 = create_vector(3L);
					VECTOR_SET(BgL_v1256z00_2233, 0L,
						BGl_makezd2classzd2fieldz00zz__objectz00
						(BGl_symbol2654z00zz__ftpz00, BGl_proc2653z00zz__ftpz00,
							BGl_proc2652z00zz__ftpz00, ((bool_t) 0), ((bool_t) 0), BFALSE,
							BGl_proc2651z00zz__ftpz00, BGl_symbol2656z00zz__ftpz00));
					VECTOR_SET(BgL_v1256z00_2233, 1L,
						BGl_makezd2classzd2fieldz00zz__objectz00
						(BGl_symbol2661z00zz__ftpz00, BGl_proc2660z00zz__ftpz00,
							BGl_proc2659z00zz__ftpz00, ((bool_t) 0), ((bool_t) 0), BFALSE,
							BGl_proc2658z00zz__ftpz00, BGl_symbol2656z00zz__ftpz00));
					VECTOR_SET(BgL_v1256z00_2233, 2L,
						BGl_makezd2classzd2fieldz00zz__objectz00
						(BGl_symbol2666z00zz__ftpz00, BGl_proc2665z00zz__ftpz00,
							BGl_proc2664z00zz__ftpz00, ((bool_t) 0), ((bool_t) 0), BFALSE,
							BGl_proc2663z00zz__ftpz00, BGl_symbol2668z00zz__ftpz00));
					BgL_arg1933z00_2226 = BgL_v1256z00_2233;
				}
				{	/* Unsafe/ftp.scm 52 */
					obj_t BgL_v1257z00_2273;

					BgL_v1257z00_2273 = create_vector(0L);
					BgL_arg1934z00_2227 = BgL_v1257z00_2273;
				}
				BGl_z52ftpz52zz__ftpz00 =
					BGl_registerzd2classz12zc0zz__objectz00(BGl_symbol2672z00zz__ftpz00,
					BGl_symbol2674z00zz__ftpz00, BGl_objectz00zz__objectz00, 39100L,
					BFALSE, BGl_proc2671z00zz__ftpz00, BFALSE, BGl_proc2670z00zz__ftpz00,
					BFALSE, BgL_arg1933z00_2226, BgL_arg1934z00_2227);
			}
			{	/* Unsafe/ftp.scm 57 */
				obj_t BgL_arg1963z00_2279;
				obj_t BgL_arg1964z00_2280;

				{	/* Unsafe/ftp.scm 57 */
					obj_t BgL_v1258z00_2299;

					BgL_v1258z00_2299 = create_vector(6L);
					VECTOR_SET(BgL_v1258z00_2299, 0L,
						BGl_makezd2classzd2fieldz00zz__objectz00
						(BGl_symbol2679z00zz__ftpz00, BGl_proc2678z00zz__ftpz00,
							BGl_proc2677z00zz__ftpz00, ((bool_t) 0), ((bool_t) 0), BFALSE,
							BGl_proc2676z00zz__ftpz00, BGl_symbol2680z00zz__ftpz00));
					VECTOR_SET(BgL_v1258z00_2299, 1L,
						BGl_makezd2classzd2fieldz00zz__objectz00
						(BGl_symbol2544z00zz__ftpz00, BGl_proc2683z00zz__ftpz00,
							BGl_proc2682z00zz__ftpz00, ((bool_t) 0), ((bool_t) 0), BFALSE,
							BGl_proc2681z00zz__ftpz00, BGl_symbol2684z00zz__ftpz00));
					VECTOR_SET(BgL_v1258z00_2299, 2L,
						BGl_makezd2classzd2fieldz00zz__objectz00
						(BGl_symbol2688z00zz__ftpz00, BGl_proc2687z00zz__ftpz00,
							BGl_proc2686z00zz__ftpz00, ((bool_t) 0), ((bool_t) 0), BFALSE,
							BGl_proc2685z00zz__ftpz00, BGl_symbol2680z00zz__ftpz00));
					VECTOR_SET(BgL_v1258z00_2299, 3L,
						BGl_makezd2classzd2fieldz00zz__objectz00
						(BGl_symbol2693z00zz__ftpz00, BGl_proc2692z00zz__ftpz00,
							BGl_proc2691z00zz__ftpz00, ((bool_t) 0), ((bool_t) 0), BFALSE,
							BGl_proc2690z00zz__ftpz00, BGl_symbol2680z00zz__ftpz00));
					VECTOR_SET(BgL_v1258z00_2299, 4L,
						BGl_makezd2classzd2fieldz00zz__objectz00
						(BGl_symbol2698z00zz__ftpz00, BGl_proc2697z00zz__ftpz00,
							BGl_proc2696z00zz__ftpz00, ((bool_t) 0), ((bool_t) 0), BFALSE,
							BGl_proc2695z00zz__ftpz00, BGl_symbol2680z00zz__ftpz00));
					VECTOR_SET(BgL_v1258z00_2299, 5L,
						BGl_makezd2classzd2fieldz00zz__objectz00
						(BGl_symbol2703z00zz__ftpz00, BGl_proc2702z00zz__ftpz00,
							BGl_proc2701z00zz__ftpz00, ((bool_t) 0), ((bool_t) 0), BFALSE,
							BGl_proc2700z00zz__ftpz00, BGl_symbol2680z00zz__ftpz00));
					BgL_arg1963z00_2279 = BgL_v1258z00_2299;
				}
				{	/* Unsafe/ftp.scm 57 */
					obj_t BgL_v1259z00_2378;

					BgL_v1259z00_2378 = create_vector(0L);
					BgL_arg1964z00_2280 = BgL_v1259z00_2378;
				}
				BGl_ftpz00zz__ftpz00 =
					BGl_registerzd2classz12zc0zz__objectz00(BGl_symbol2708z00zz__ftpz00,
					BGl_symbol2674z00zz__ftpz00, BGl_z52ftpz52zz__ftpz00, 36300L,
					BGl_proc2707z00zz__ftpz00, BGl_proc2706z00zz__ftpz00, BFALSE,
					BGl_proc2705z00zz__ftpz00, BFALSE, BgL_arg1963z00_2279,
					BgL_arg1964z00_2280);
			}
			{	/* Unsafe/ftp.scm 64 */
				obj_t BgL_arg2020z00_2385;
				obj_t BgL_arg2021z00_2386;

				{	/* Unsafe/ftp.scm 64 */
					obj_t BgL_v1260z00_2402;

					BgL_v1260z00_2402 = create_vector(0L);
					BgL_arg2020z00_2385 = BgL_v1260z00_2402;
				}
				{	/* Unsafe/ftp.scm 64 */
					obj_t BgL_v1261z00_2403;

					BgL_v1261z00_2403 = create_vector(0L);
					BgL_arg2021z00_2386 = BgL_v1261z00_2403;
				}
				BGl_z62ftpzd2errorzb0zz__ftpz00 =
					BGl_registerzd2classz12zc0zz__objectz00(BGl_symbol2712z00zz__ftpz00,
					BGl_symbol2674z00zz__ftpz00, BGl_z62errorz62zz__objectz00, 27908L,
					BGl_proc2711z00zz__ftpz00, BGl_proc2710z00zz__ftpz00, BFALSE,
					BGl_proc2709z00zz__ftpz00, BFALSE, BgL_arg2020z00_2385,
					BgL_arg2021z00_2386);
			}
			{	/* Unsafe/ftp.scm 65 */
				obj_t BgL_arg2031z00_2410;
				obj_t BgL_arg2032z00_2411;

				{	/* Unsafe/ftp.scm 65 */
					obj_t BgL_v1262z00_2427;

					BgL_v1262z00_2427 = create_vector(0L);
					BgL_arg2031z00_2410 = BgL_v1262z00_2427;
				}
				{	/* Unsafe/ftp.scm 65 */
					obj_t BgL_v1263z00_2428;

					BgL_v1263z00_2428 = create_vector(0L);
					BgL_arg2032z00_2411 = BgL_v1263z00_2428;
				}
				return (BGl_z62ftpzd2parsezd2errorz62zz__ftpz00 =
					BGl_registerzd2classz12zc0zz__objectz00(BGl_symbol2717z00zz__ftpz00,
						BGl_symbol2674z00zz__ftpz00,
						BGl_z62iozd2parsezd2errorz62zz__objectz00, 61171L,
						BGl_proc2716z00zz__ftpz00, BGl_proc2715z00zz__ftpz00, BFALSE,
						BGl_proc2714z00zz__ftpz00, BFALSE, BgL_arg2031z00_2410,
						BgL_arg2032z00_2411), BUNSPEC);
			}
		}

	}



/* &<@anonymous:2038> */
	obj_t BGl_z62zc3z04anonymousza32038ze3ze5zz__ftpz00(obj_t BgL_envz00_4089,
		obj_t BgL_new1072z00_4090)
	{
		{	/* Unsafe/ftp.scm 65 */
			{
				BgL_z62ftpzd2parsezd2errorz62_bglt BgL_auxz00_6479;

				((((BgL_z62exceptionz62_bglt) COBJECT(
								((BgL_z62exceptionz62_bglt)
									((BgL_z62ftpzd2parsezd2errorz62_bglt)
										BgL_new1072z00_4090))))->BgL_fnamez00) =
					((obj_t) BUNSPEC), BUNSPEC);
				((((BgL_z62exceptionz62_bglt)
							COBJECT(((BgL_z62exceptionz62_bglt) (
										(BgL_z62ftpzd2parsezd2errorz62_bglt)
										BgL_new1072z00_4090))))->BgL_locationz00) =
					((obj_t) BUNSPEC), BUNSPEC);
				((((BgL_z62exceptionz62_bglt)
							COBJECT(((BgL_z62exceptionz62_bglt) (
										(BgL_z62ftpzd2parsezd2errorz62_bglt)
										BgL_new1072z00_4090))))->BgL_stackz00) =
					((obj_t) BUNSPEC), BUNSPEC);
				((((BgL_z62errorz62_bglt)
							COBJECT(((BgL_z62errorz62_bglt) (
										(BgL_z62ftpzd2parsezd2errorz62_bglt)
										BgL_new1072z00_4090))))->BgL_procz00) =
					((obj_t) BUNSPEC), BUNSPEC);
				((((BgL_z62errorz62_bglt)
							COBJECT(((BgL_z62errorz62_bglt) (
										(BgL_z62ftpzd2parsezd2errorz62_bglt)
										BgL_new1072z00_4090))))->BgL_msgz00) =
					((obj_t) BUNSPEC), BUNSPEC);
				((((BgL_z62errorz62_bglt)
							COBJECT(((BgL_z62errorz62_bglt) (
										(BgL_z62ftpzd2parsezd2errorz62_bglt)
										BgL_new1072z00_4090))))->BgL_objz00) =
					((obj_t) BUNSPEC), BUNSPEC);
				BgL_auxz00_6479 =
					((BgL_z62ftpzd2parsezd2errorz62_bglt) BgL_new1072z00_4090);
				return ((obj_t) BgL_auxz00_6479);
			}
		}

	}



/* &lambda2035 */
	BgL_z62ftpzd2parsezd2errorz62_bglt BGl_z62lambda2035z62zz__ftpz00(obj_t
		BgL_envz00_4091)
	{
		{	/* Unsafe/ftp.scm 65 */
			{	/* Unsafe/ftp.scm 65 */
				BgL_z62ftpzd2parsezd2errorz62_bglt BgL_new1071z00_4533;

				BgL_new1071z00_4533 =
					((BgL_z62ftpzd2parsezd2errorz62_bglt) BOBJECT(GC_MALLOC(sizeof(struct
								BgL_z62ftpzd2parsezd2errorz62_bgl))));
				{	/* Unsafe/ftp.scm 65 */
					long BgL_arg2037z00_4534;

					BgL_arg2037z00_4534 =
						BGL_CLASS_NUM(BGl_z62ftpzd2parsezd2errorz62zz__ftpz00);
					BGL_OBJECT_CLASS_NUM_SET(
						((BgL_objectz00_bglt) BgL_new1071z00_4533), BgL_arg2037z00_4534);
				}
				return BgL_new1071z00_4533;
			}
		}

	}



/* &lambda2033 */
	BgL_z62ftpzd2parsezd2errorz62_bglt BGl_z62lambda2033z62zz__ftpz00(obj_t
		BgL_envz00_4092, obj_t BgL_fname1065z00_4093,
		obj_t BgL_location1066z00_4094, obj_t BgL_stack1067z00_4095,
		obj_t BgL_proc1068z00_4096, obj_t BgL_msg1069z00_4097,
		obj_t BgL_obj1070z00_4098)
	{
		{	/* Unsafe/ftp.scm 65 */
			{	/* Unsafe/ftp.scm 65 */
				BgL_z62ftpzd2parsezd2errorz62_bglt BgL_new1168z00_4535;

				{	/* Unsafe/ftp.scm 65 */
					BgL_z62ftpzd2parsezd2errorz62_bglt BgL_new1167z00_4536;

					BgL_new1167z00_4536 =
						((BgL_z62ftpzd2parsezd2errorz62_bglt)
						BOBJECT(GC_MALLOC(sizeof(struct
									BgL_z62ftpzd2parsezd2errorz62_bgl))));
					{	/* Unsafe/ftp.scm 65 */
						long BgL_arg2034z00_4537;

						BgL_arg2034z00_4537 =
							BGL_CLASS_NUM(BGl_z62ftpzd2parsezd2errorz62zz__ftpz00);
						BGL_OBJECT_CLASS_NUM_SET(
							((BgL_objectz00_bglt) BgL_new1167z00_4536), BgL_arg2034z00_4537);
					}
					BgL_new1168z00_4535 = BgL_new1167z00_4536;
				}
				((((BgL_z62exceptionz62_bglt) COBJECT(
								((BgL_z62exceptionz62_bglt) BgL_new1168z00_4535)))->
						BgL_fnamez00) = ((obj_t) BgL_fname1065z00_4093), BUNSPEC);
				((((BgL_z62exceptionz62_bglt) COBJECT(((BgL_z62exceptionz62_bglt)
									BgL_new1168z00_4535)))->BgL_locationz00) =
					((obj_t) BgL_location1066z00_4094), BUNSPEC);
				((((BgL_z62exceptionz62_bglt) COBJECT(((BgL_z62exceptionz62_bglt)
									BgL_new1168z00_4535)))->BgL_stackz00) =
					((obj_t) BgL_stack1067z00_4095), BUNSPEC);
				((((BgL_z62errorz62_bglt) COBJECT(((BgL_z62errorz62_bglt)
									BgL_new1168z00_4535)))->BgL_procz00) =
					((obj_t) BgL_proc1068z00_4096), BUNSPEC);
				((((BgL_z62errorz62_bglt) COBJECT(((BgL_z62errorz62_bglt)
									BgL_new1168z00_4535)))->BgL_msgz00) =
					((obj_t) BgL_msg1069z00_4097), BUNSPEC);
				((((BgL_z62errorz62_bglt) COBJECT(((BgL_z62errorz62_bglt)
									BgL_new1168z00_4535)))->BgL_objz00) =
					((obj_t) BgL_obj1070z00_4098), BUNSPEC);
				return BgL_new1168z00_4535;
			}
		}

	}



/* &<@anonymous:2026> */
	obj_t BGl_z62zc3z04anonymousza32026ze3ze5zz__ftpz00(obj_t BgL_envz00_4099,
		obj_t BgL_new1063z00_4100)
	{
		{	/* Unsafe/ftp.scm 64 */
			{
				BgL_z62ftpzd2errorzb0_bglt BgL_auxz00_6520;

				((((BgL_z62exceptionz62_bglt) COBJECT(
								((BgL_z62exceptionz62_bglt)
									((BgL_z62ftpzd2errorzb0_bglt) BgL_new1063z00_4100))))->
						BgL_fnamez00) = ((obj_t) BUNSPEC), BUNSPEC);
				((((BgL_z62exceptionz62_bglt)
							COBJECT(((BgL_z62exceptionz62_bglt) ((BgL_z62ftpzd2errorzb0_bglt)
										BgL_new1063z00_4100))))->BgL_locationz00) =
					((obj_t) BUNSPEC), BUNSPEC);
				((((BgL_z62exceptionz62_bglt)
							COBJECT(((BgL_z62exceptionz62_bglt) ((BgL_z62ftpzd2errorzb0_bglt)
										BgL_new1063z00_4100))))->BgL_stackz00) =
					((obj_t) BUNSPEC), BUNSPEC);
				((((BgL_z62errorz62_bglt)
							COBJECT(((BgL_z62errorz62_bglt) ((BgL_z62ftpzd2errorzb0_bglt)
										BgL_new1063z00_4100))))->BgL_procz00) =
					((obj_t) BUNSPEC), BUNSPEC);
				((((BgL_z62errorz62_bglt)
							COBJECT(((BgL_z62errorz62_bglt) ((BgL_z62ftpzd2errorzb0_bglt)
										BgL_new1063z00_4100))))->BgL_msgz00) =
					((obj_t) BUNSPEC), BUNSPEC);
				((((BgL_z62errorz62_bglt)
							COBJECT(((BgL_z62errorz62_bglt) ((BgL_z62ftpzd2errorzb0_bglt)
										BgL_new1063z00_4100))))->BgL_objz00) =
					((obj_t) BUNSPEC), BUNSPEC);
				BgL_auxz00_6520 = ((BgL_z62ftpzd2errorzb0_bglt) BgL_new1063z00_4100);
				return ((obj_t) BgL_auxz00_6520);
			}
		}

	}



/* &lambda2024 */
	BgL_z62ftpzd2errorzb0_bglt BGl_z62lambda2024z62zz__ftpz00(obj_t
		BgL_envz00_4101)
	{
		{	/* Unsafe/ftp.scm 64 */
			{	/* Unsafe/ftp.scm 64 */
				BgL_z62ftpzd2errorzb0_bglt BgL_new1062z00_4539;

				BgL_new1062z00_4539 =
					((BgL_z62ftpzd2errorzb0_bglt) BOBJECT(GC_MALLOC(sizeof(struct
								BgL_z62ftpzd2errorzb0_bgl))));
				{	/* Unsafe/ftp.scm 64 */
					long BgL_arg2025z00_4540;

					BgL_arg2025z00_4540 = BGL_CLASS_NUM(BGl_z62ftpzd2errorzb0zz__ftpz00);
					BGL_OBJECT_CLASS_NUM_SET(
						((BgL_objectz00_bglt) BgL_new1062z00_4539), BgL_arg2025z00_4540);
				}
				return BgL_new1062z00_4539;
			}
		}

	}



/* &lambda2022 */
	BgL_z62ftpzd2errorzb0_bglt BGl_z62lambda2022z62zz__ftpz00(obj_t
		BgL_envz00_4102, obj_t BgL_fname1055z00_4103,
		obj_t BgL_location1056z00_4104, obj_t BgL_stack1057z00_4105,
		obj_t BgL_proc1058z00_4106, obj_t BgL_msg1059z00_4107,
		obj_t BgL_obj1060z00_4108)
	{
		{	/* Unsafe/ftp.scm 64 */
			{	/* Unsafe/ftp.scm 64 */
				BgL_z62ftpzd2errorzb0_bglt BgL_new1166z00_4541;

				{	/* Unsafe/ftp.scm 64 */
					BgL_z62ftpzd2errorzb0_bglt BgL_new1165z00_4542;

					BgL_new1165z00_4542 =
						((BgL_z62ftpzd2errorzb0_bglt) BOBJECT(GC_MALLOC(sizeof(struct
									BgL_z62ftpzd2errorzb0_bgl))));
					{	/* Unsafe/ftp.scm 64 */
						long BgL_arg2023z00_4543;

						BgL_arg2023z00_4543 =
							BGL_CLASS_NUM(BGl_z62ftpzd2errorzb0zz__ftpz00);
						BGL_OBJECT_CLASS_NUM_SET(
							((BgL_objectz00_bglt) BgL_new1165z00_4542), BgL_arg2023z00_4543);
					}
					BgL_new1166z00_4541 = BgL_new1165z00_4542;
				}
				((((BgL_z62exceptionz62_bglt) COBJECT(
								((BgL_z62exceptionz62_bglt) BgL_new1166z00_4541)))->
						BgL_fnamez00) = ((obj_t) BgL_fname1055z00_4103), BUNSPEC);
				((((BgL_z62exceptionz62_bglt) COBJECT(((BgL_z62exceptionz62_bglt)
									BgL_new1166z00_4541)))->BgL_locationz00) =
					((obj_t) BgL_location1056z00_4104), BUNSPEC);
				((((BgL_z62exceptionz62_bglt) COBJECT(((BgL_z62exceptionz62_bglt)
									BgL_new1166z00_4541)))->BgL_stackz00) =
					((obj_t) BgL_stack1057z00_4105), BUNSPEC);
				((((BgL_z62errorz62_bglt) COBJECT(((BgL_z62errorz62_bglt)
									BgL_new1166z00_4541)))->BgL_procz00) =
					((obj_t) BgL_proc1058z00_4106), BUNSPEC);
				((((BgL_z62errorz62_bglt) COBJECT(((BgL_z62errorz62_bglt)
									BgL_new1166z00_4541)))->BgL_msgz00) =
					((obj_t) BgL_msg1059z00_4107), BUNSPEC);
				((((BgL_z62errorz62_bglt) COBJECT(((BgL_z62errorz62_bglt)
									BgL_new1166z00_4541)))->BgL_objz00) =
					((obj_t) BgL_obj1060z00_4108), BUNSPEC);
				return BgL_new1166z00_4541;
			}
		}

	}



/* &<@anonymous:1969> */
	obj_t BGl_z62zc3z04anonymousza31969ze3ze5zz__ftpz00(obj_t BgL_envz00_4109,
		obj_t BgL_new1053z00_4110)
	{
		{	/* Unsafe/ftp.scm 57 */
			{
				BgL_ftpz00_bglt BgL_auxz00_6561;

				((((BgL_z52ftpz52_bglt) COBJECT(
								((BgL_z52ftpz52_bglt)
									((BgL_ftpz00_bglt) BgL_new1053z00_4110))))->BgL_cmdz00) =
					((obj_t) BUNSPEC), BUNSPEC);
				((((BgL_z52ftpz52_bglt) COBJECT(((BgL_z52ftpz52_bglt) ((BgL_ftpz00_bglt)
										BgL_new1053z00_4110))))->BgL_dtpz00) =
					((obj_t) BUNSPEC), BUNSPEC);
				((((BgL_z52ftpz52_bglt) COBJECT(((BgL_z52ftpz52_bglt) ((BgL_ftpz00_bglt)
										BgL_new1053z00_4110))))->BgL_passivezf3zf3) =
					((bool_t) ((bool_t) 0)), BUNSPEC);
				((((BgL_ftpz00_bglt) COBJECT(((BgL_ftpz00_bglt) BgL_new1053z00_4110)))->
						BgL_hostz00) = ((obj_t) BGl_string2568z00zz__ftpz00), BUNSPEC);
				((((BgL_ftpz00_bglt) COBJECT(((BgL_ftpz00_bglt) BgL_new1053z00_4110)))->
						BgL_portz00) = ((obj_t) BINT(0L)), BUNSPEC);
				((((BgL_ftpz00_bglt) COBJECT(((BgL_ftpz00_bglt) BgL_new1053z00_4110)))->
						BgL_motdz00) = ((obj_t) BGl_string2568z00zz__ftpz00), BUNSPEC);
				((((BgL_ftpz00_bglt) COBJECT(((BgL_ftpz00_bglt) BgL_new1053z00_4110)))->
						BgL_userz00) = ((obj_t) BGl_string2568z00zz__ftpz00), BUNSPEC);
				((((BgL_ftpz00_bglt) COBJECT(((BgL_ftpz00_bglt) BgL_new1053z00_4110)))->
						BgL_passz00) = ((obj_t) BGl_string2568z00zz__ftpz00), BUNSPEC);
				((((BgL_ftpz00_bglt) COBJECT(((BgL_ftpz00_bglt) BgL_new1053z00_4110)))->
						BgL_acctz00) = ((obj_t) BGl_string2568z00zz__ftpz00), BUNSPEC);
				BgL_auxz00_6561 = ((BgL_ftpz00_bglt) BgL_new1053z00_4110);
				return ((obj_t) BgL_auxz00_6561);
			}
		}

	}



/* &lambda1967 */
	BgL_ftpz00_bglt BGl_z62lambda1967z62zz__ftpz00(obj_t BgL_envz00_4111)
	{
		{	/* Unsafe/ftp.scm 57 */
			{	/* Unsafe/ftp.scm 57 */
				BgL_ftpz00_bglt BgL_new1052z00_4545;

				BgL_new1052z00_4545 =
					((BgL_ftpz00_bglt) BOBJECT(GC_MALLOC(sizeof(struct BgL_ftpz00_bgl))));
				{	/* Unsafe/ftp.scm 57 */
					long BgL_arg1968z00_4546;

					BgL_arg1968z00_4546 = BGL_CLASS_NUM(BGl_ftpz00zz__ftpz00);
					BGL_OBJECT_CLASS_NUM_SET(
						((BgL_objectz00_bglt) BgL_new1052z00_4545), BgL_arg1968z00_4546);
				}
				return BgL_new1052z00_4545;
			}
		}

	}



/* &lambda1965 */
	BgL_ftpz00_bglt BGl_z62lambda1965z62zz__ftpz00(obj_t BgL_envz00_4112,
		obj_t BgL_cmd1043z00_4113, obj_t BgL_dtp1044z00_4114,
		obj_t BgL_passivezf31045zf3_4115, obj_t BgL_host1046z00_4116,
		obj_t BgL_port1047z00_4117, obj_t BgL_motd1048z00_4118,
		obj_t BgL_user1049z00_4119, obj_t BgL_pass1050z00_4120,
		obj_t BgL_acct1051z00_4121)
	{
		{	/* Unsafe/ftp.scm 57 */
			{	/* Unsafe/ftp.scm 57 */
				bool_t BgL_passivezf31045zf3_4547;

				BgL_passivezf31045zf3_4547 = CBOOL(BgL_passivezf31045zf3_4115);
				{	/* Unsafe/ftp.scm 57 */
					BgL_ftpz00_bglt BgL_new1164z00_4554;

					{	/* Unsafe/ftp.scm 57 */
						BgL_ftpz00_bglt BgL_new1163z00_4555;

						BgL_new1163z00_4555 =
							((BgL_ftpz00_bglt) BOBJECT(GC_MALLOC(sizeof(struct
										BgL_ftpz00_bgl))));
						{	/* Unsafe/ftp.scm 57 */
							long BgL_arg1966z00_4556;

							BgL_arg1966z00_4556 = BGL_CLASS_NUM(BGl_ftpz00zz__ftpz00);
							BGL_OBJECT_CLASS_NUM_SET(
								((BgL_objectz00_bglt) BgL_new1163z00_4555),
								BgL_arg1966z00_4556);
						}
						BgL_new1164z00_4554 = BgL_new1163z00_4555;
					}
					((((BgL_z52ftpz52_bglt) COBJECT(
									((BgL_z52ftpz52_bglt) BgL_new1164z00_4554)))->BgL_cmdz00) =
						((obj_t) BgL_cmd1043z00_4113), BUNSPEC);
					((((BgL_z52ftpz52_bglt) COBJECT(((BgL_z52ftpz52_bglt)
										BgL_new1164z00_4554)))->BgL_dtpz00) =
						((obj_t) BgL_dtp1044z00_4114), BUNSPEC);
					((((BgL_z52ftpz52_bglt) COBJECT(((BgL_z52ftpz52_bglt)
										BgL_new1164z00_4554)))->BgL_passivezf3zf3) =
						((bool_t) BgL_passivezf31045zf3_4547), BUNSPEC);
					((((BgL_ftpz00_bglt) COBJECT(BgL_new1164z00_4554))->BgL_hostz00) =
						((obj_t) ((obj_t) BgL_host1046z00_4116)), BUNSPEC);
					((((BgL_ftpz00_bglt) COBJECT(BgL_new1164z00_4554))->BgL_portz00) =
						((obj_t) ((obj_t) BgL_port1047z00_4117)), BUNSPEC);
					((((BgL_ftpz00_bglt) COBJECT(BgL_new1164z00_4554))->BgL_motdz00) =
						((obj_t) ((obj_t) BgL_motd1048z00_4118)), BUNSPEC);
					((((BgL_ftpz00_bglt) COBJECT(BgL_new1164z00_4554))->BgL_userz00) =
						((obj_t) ((obj_t) BgL_user1049z00_4119)), BUNSPEC);
					((((BgL_ftpz00_bglt) COBJECT(BgL_new1164z00_4554))->BgL_passz00) =
						((obj_t) ((obj_t) BgL_pass1050z00_4120)), BUNSPEC);
					((((BgL_ftpz00_bglt) COBJECT(BgL_new1164z00_4554))->BgL_acctz00) =
						((obj_t) ((obj_t) BgL_acct1051z00_4121)), BUNSPEC);
					return BgL_new1164z00_4554;
				}
			}
		}

	}



/* &<@anonymous:2016> */
	obj_t BGl_z62zc3z04anonymousza32016ze3ze5zz__ftpz00(obj_t BgL_envz00_4122)
	{
		{	/* Unsafe/ftp.scm 57 */
			return BGl_string2568z00zz__ftpz00;
		}

	}



/* &lambda2015 */
	obj_t BGl_z62lambda2015z62zz__ftpz00(obj_t BgL_envz00_4123,
		obj_t BgL_oz00_4124, obj_t BgL_vz00_4125)
	{
		{	/* Unsafe/ftp.scm 57 */
			return
				((((BgL_ftpz00_bglt) COBJECT(
							((BgL_ftpz00_bglt) BgL_oz00_4124)))->BgL_acctz00) = ((obj_t)
					((obj_t) BgL_vz00_4125)), BUNSPEC);
		}

	}



/* &lambda2014 */
	obj_t BGl_z62lambda2014z62zz__ftpz00(obj_t BgL_envz00_4126,
		obj_t BgL_oz00_4127)
	{
		{	/* Unsafe/ftp.scm 57 */
			return
				(((BgL_ftpz00_bglt) COBJECT(
						((BgL_ftpz00_bglt) BgL_oz00_4127)))->BgL_acctz00);
		}

	}



/* &<@anonymous:2008> */
	obj_t BGl_z62zc3z04anonymousza32008ze3ze5zz__ftpz00(obj_t BgL_envz00_4128)
	{
		{	/* Unsafe/ftp.scm 57 */
			return BGl_string2570z00zz__ftpz00;
		}

	}



/* &lambda2007 */
	obj_t BGl_z62lambda2007z62zz__ftpz00(obj_t BgL_envz00_4129,
		obj_t BgL_oz00_4130, obj_t BgL_vz00_4131)
	{
		{	/* Unsafe/ftp.scm 57 */
			return
				((((BgL_ftpz00_bglt) COBJECT(
							((BgL_ftpz00_bglt) BgL_oz00_4130)))->BgL_passz00) = ((obj_t)
					((obj_t) BgL_vz00_4131)), BUNSPEC);
		}

	}



/* &lambda2006 */
	obj_t BGl_z62lambda2006z62zz__ftpz00(obj_t BgL_envz00_4132,
		obj_t BgL_oz00_4133)
	{
		{	/* Unsafe/ftp.scm 57 */
			return
				(((BgL_ftpz00_bglt) COBJECT(
						((BgL_ftpz00_bglt) BgL_oz00_4133)))->BgL_passz00);
		}

	}



/* &<@anonymous:2001> */
	obj_t BGl_z62zc3z04anonymousza32001ze3ze5zz__ftpz00(obj_t BgL_envz00_4134)
	{
		{	/* Unsafe/ftp.scm 57 */
			return BGl_string2569z00zz__ftpz00;
		}

	}



/* &lambda2000 */
	obj_t BGl_z62lambda2000z62zz__ftpz00(obj_t BgL_envz00_4135,
		obj_t BgL_oz00_4136, obj_t BgL_vz00_4137)
	{
		{	/* Unsafe/ftp.scm 57 */
			return
				((((BgL_ftpz00_bglt) COBJECT(
							((BgL_ftpz00_bglt) BgL_oz00_4136)))->BgL_userz00) = ((obj_t)
					((obj_t) BgL_vz00_4137)), BUNSPEC);
		}

	}



/* &lambda1999 */
	obj_t BGl_z62lambda1999z62zz__ftpz00(obj_t BgL_envz00_4138,
		obj_t BgL_oz00_4139)
	{
		{	/* Unsafe/ftp.scm 57 */
			return
				(((BgL_ftpz00_bglt) COBJECT(
						((BgL_ftpz00_bglt) BgL_oz00_4139)))->BgL_userz00);
		}

	}



/* &<@anonymous:1993> */
	obj_t BGl_z62zc3z04anonymousza31993ze3ze5zz__ftpz00(obj_t BgL_envz00_4140)
	{
		{	/* Unsafe/ftp.scm 57 */
			return BGl_string2568z00zz__ftpz00;
		}

	}



/* &lambda1992 */
	obj_t BGl_z62lambda1992z62zz__ftpz00(obj_t BgL_envz00_4141,
		obj_t BgL_oz00_4142, obj_t BgL_vz00_4143)
	{
		{	/* Unsafe/ftp.scm 57 */
			return
				((((BgL_ftpz00_bglt) COBJECT(
							((BgL_ftpz00_bglt) BgL_oz00_4142)))->BgL_motdz00) = ((obj_t)
					((obj_t) BgL_vz00_4143)), BUNSPEC);
		}

	}



/* &lambda1991 */
	obj_t BGl_z62lambda1991z62zz__ftpz00(obj_t BgL_envz00_4144,
		obj_t BgL_oz00_4145)
	{
		{	/* Unsafe/ftp.scm 57 */
			return
				(((BgL_ftpz00_bglt) COBJECT(
						((BgL_ftpz00_bglt) BgL_oz00_4145)))->BgL_motdz00);
		}

	}



/* &<@anonymous:1985> */
	obj_t BGl_z62zc3z04anonymousza31985ze3ze5zz__ftpz00(obj_t BgL_envz00_4146)
	{
		{	/* Unsafe/ftp.scm 57 */
			return BINT(21L);
		}

	}



/* &lambda1984 */
	obj_t BGl_z62lambda1984z62zz__ftpz00(obj_t BgL_envz00_4147,
		obj_t BgL_oz00_4148, obj_t BgL_vz00_4149)
	{
		{	/* Unsafe/ftp.scm 57 */
			return
				((((BgL_ftpz00_bglt) COBJECT(
							((BgL_ftpz00_bglt) BgL_oz00_4148)))->BgL_portz00) = ((obj_t)
					((obj_t) BgL_vz00_4149)), BUNSPEC);
		}

	}



/* &lambda1983 */
	obj_t BGl_z62lambda1983z62zz__ftpz00(obj_t BgL_envz00_4150,
		obj_t BgL_oz00_4151)
	{
		{	/* Unsafe/ftp.scm 57 */
			return
				(((BgL_ftpz00_bglt) COBJECT(
						((BgL_ftpz00_bglt) BgL_oz00_4151)))->BgL_portz00);
		}

	}



/* &<@anonymous:1978> */
	obj_t BGl_z62zc3z04anonymousza31978ze3ze5zz__ftpz00(obj_t BgL_envz00_4152)
	{
		{	/* Unsafe/ftp.scm 57 */
			return BGl_string2559z00zz__ftpz00;
		}

	}



/* &lambda1977 */
	obj_t BGl_z62lambda1977z62zz__ftpz00(obj_t BgL_envz00_4153,
		obj_t BgL_oz00_4154, obj_t BgL_vz00_4155)
	{
		{	/* Unsafe/ftp.scm 57 */
			return
				((((BgL_ftpz00_bglt) COBJECT(
							((BgL_ftpz00_bglt) BgL_oz00_4154)))->BgL_hostz00) = ((obj_t)
					((obj_t) BgL_vz00_4155)), BUNSPEC);
		}

	}



/* &lambda1976 */
	obj_t BGl_z62lambda1976z62zz__ftpz00(obj_t BgL_envz00_4156,
		obj_t BgL_oz00_4157)
	{
		{	/* Unsafe/ftp.scm 57 */
			return
				(((BgL_ftpz00_bglt) COBJECT(
						((BgL_ftpz00_bglt) BgL_oz00_4157)))->BgL_hostz00);
		}

	}



/* &<@anonymous:1937> */
	obj_t BGl_z62zc3z04anonymousza31937ze3ze5zz__ftpz00(obj_t BgL_envz00_4158,
		obj_t BgL_new1041z00_4159)
	{
		{	/* Unsafe/ftp.scm 52 */
			{
				BgL_z52ftpz52_bglt BgL_auxz00_6644;

				((((BgL_z52ftpz52_bglt) COBJECT(
								((BgL_z52ftpz52_bglt) BgL_new1041z00_4159)))->BgL_cmdz00) =
					((obj_t) BUNSPEC), BUNSPEC);
				((((BgL_z52ftpz52_bglt) COBJECT(((BgL_z52ftpz52_bglt)
									BgL_new1041z00_4159)))->BgL_dtpz00) =
					((obj_t) BUNSPEC), BUNSPEC);
				((((BgL_z52ftpz52_bglt) COBJECT(((BgL_z52ftpz52_bglt)
									BgL_new1041z00_4159)))->BgL_passivezf3zf3) =
					((bool_t) ((bool_t) 0)), BUNSPEC);
				BgL_auxz00_6644 = ((BgL_z52ftpz52_bglt) BgL_new1041z00_4159);
				return ((obj_t) BgL_auxz00_6644);
			}
		}

	}



/* &lambda1935 */
	BgL_z52ftpz52_bglt BGl_z62lambda1935z62zz__ftpz00(obj_t BgL_envz00_4160)
	{
		{	/* Unsafe/ftp.scm 52 */
			{	/* Unsafe/ftp.scm 52 */
				BgL_z52ftpz52_bglt BgL_new1040z00_4576;

				BgL_new1040z00_4576 =
					((BgL_z52ftpz52_bglt) BOBJECT(GC_MALLOC(sizeof(struct
								BgL_z52ftpz52_bgl))));
				{	/* Unsafe/ftp.scm 52 */
					long BgL_arg1936z00_4577;

					BgL_arg1936z00_4577 = BGL_CLASS_NUM(BGl_z52ftpz52zz__ftpz00);
					BGL_OBJECT_CLASS_NUM_SET(
						((BgL_objectz00_bglt) BgL_new1040z00_4576), BgL_arg1936z00_4577);
				}
				return BgL_new1040z00_4576;
			}
		}

	}



/* &<@anonymous:1959> */
	obj_t BGl_z62zc3z04anonymousza31959ze3ze5zz__ftpz00(obj_t BgL_envz00_4161)
	{
		{	/* Unsafe/ftp.scm 52 */
			return BBOOL(((bool_t) 1));
		}

	}



/* &lambda1958 */
	obj_t BGl_z62lambda1958z62zz__ftpz00(obj_t BgL_envz00_4162,
		obj_t BgL_oz00_4163, obj_t BgL_vz00_4164)
	{
		{	/* Unsafe/ftp.scm 52 */
			{	/* Unsafe/ftp.scm 52 */
				bool_t BgL_vz00_4579;

				BgL_vz00_4579 = CBOOL(BgL_vz00_4164);
				return
					((((BgL_z52ftpz52_bglt) COBJECT(
								((BgL_z52ftpz52_bglt) BgL_oz00_4163)))->BgL_passivezf3zf3) =
					((bool_t) BgL_vz00_4579), BUNSPEC);
			}
		}

	}



/* &lambda1957 */
	obj_t BGl_z62lambda1957z62zz__ftpz00(obj_t BgL_envz00_4165,
		obj_t BgL_oz00_4166)
	{
		{	/* Unsafe/ftp.scm 52 */
			return
				BBOOL(
				(((BgL_z52ftpz52_bglt) COBJECT(
							((BgL_z52ftpz52_bglt) BgL_oz00_4166)))->BgL_passivezf3zf3));
		}

	}



/* &<@anonymous:1951> */
	obj_t BGl_z62zc3z04anonymousza31951ze3ze5zz__ftpz00(obj_t BgL_envz00_4167)
	{
		{	/* Unsafe/ftp.scm 52 */
			return BBOOL(((bool_t) 0));
		}

	}



/* &lambda1950 */
	obj_t BGl_z62lambda1950z62zz__ftpz00(obj_t BgL_envz00_4168,
		obj_t BgL_oz00_4169, obj_t BgL_vz00_4170)
	{
		{	/* Unsafe/ftp.scm 52 */
			return
				((((BgL_z52ftpz52_bglt) COBJECT(
							((BgL_z52ftpz52_bglt) BgL_oz00_4169)))->BgL_dtpz00) =
				((obj_t) BgL_vz00_4170), BUNSPEC);
		}

	}



/* &lambda1949 */
	obj_t BGl_z62lambda1949z62zz__ftpz00(obj_t BgL_envz00_4171,
		obj_t BgL_oz00_4172)
	{
		{	/* Unsafe/ftp.scm 52 */
			return
				(((BgL_z52ftpz52_bglt) COBJECT(
						((BgL_z52ftpz52_bglt) BgL_oz00_4172)))->BgL_dtpz00);
		}

	}



/* &<@anonymous:1944> */
	obj_t BGl_z62zc3z04anonymousza31944ze3ze5zz__ftpz00(obj_t BgL_envz00_4173)
	{
		{	/* Unsafe/ftp.scm 52 */
			return BBOOL(((bool_t) 0));
		}

	}



/* &lambda1943 */
	obj_t BGl_z62lambda1943z62zz__ftpz00(obj_t BgL_envz00_4174,
		obj_t BgL_oz00_4175, obj_t BgL_vz00_4176)
	{
		{	/* Unsafe/ftp.scm 52 */
			return
				((((BgL_z52ftpz52_bglt) COBJECT(
							((BgL_z52ftpz52_bglt) BgL_oz00_4175)))->BgL_cmdz00) =
				((obj_t) BgL_vz00_4176), BUNSPEC);
		}

	}



/* &lambda1942 */
	obj_t BGl_z62lambda1942z62zz__ftpz00(obj_t BgL_envz00_4177,
		obj_t BgL_oz00_4178)
	{
		{	/* Unsafe/ftp.scm 52 */
			return
				(((BgL_z52ftpz52_bglt) COBJECT(
						((BgL_z52ftpz52_bglt) BgL_oz00_4178)))->BgL_cmdz00);
		}

	}



/* generic-init */
	obj_t BGl_genericzd2initzd2zz__ftpz00(void)
	{
		{	/* Unsafe/ftp.scm 15 */
			return BUNSPEC;
		}

	}



/* method-init */
	obj_t BGl_methodzd2initzd2zz__ftpz00(void)
	{
		{	/* Unsafe/ftp.scm 15 */
			return
				BGl_genericzd2addzd2methodz12z12zz__objectz00
				(BGl_objectzd2printzd2envz00zz__objectz00, BGl_ftpz00zz__ftpz00,
				BGl_proc2719z00zz__ftpz00, BGl_string2720z00zz__ftpz00);
		}

	}



/* &object-print-ftp1284 */
	obj_t BGl_z62objectzd2printzd2ftp1284z62zz__ftpz00(obj_t BgL_envz00_4180,
		obj_t BgL_oz00_4181, obj_t BgL_pz00_4182, obj_t BgL_printzd2slotzd2_4183)
	{
		{	/* Unsafe/ftp.scm 113 */
			{	/* Unsafe/ftp.scm 115 */
				obj_t BgL_tmpz00_6675;

				BgL_tmpz00_6675 = ((obj_t) BgL_pz00_4182);
				bgl_display_string(BGl_string2721z00zz__ftpz00, BgL_tmpz00_6675);
			}
			{	/* Unsafe/ftp.scm 116 */
				obj_t BgL_arg2039z00_4586;

				BgL_arg2039z00_4586 =
					(((BgL_ftpz00_bglt) COBJECT(
							((BgL_ftpz00_bglt) BgL_oz00_4181)))->BgL_hostz00);
				BGL_PROCEDURE_CALL2(BgL_printzd2slotzd2_4183, BgL_arg2039z00_4586,
					BgL_pz00_4182);
			}
			{	/* Unsafe/ftp.scm 117 */
				obj_t BgL_tmpz00_6685;

				BgL_tmpz00_6685 = ((obj_t) BgL_pz00_4182);
				bgl_display_string(BGl_string2722z00zz__ftpz00, BgL_tmpz00_6685);
			}
			{	/* Unsafe/ftp.scm 118 */
				obj_t BgL_arg2041z00_4587;

				BgL_arg2041z00_4587 =
					(((BgL_ftpz00_bglt) COBJECT(
							((BgL_ftpz00_bglt) BgL_oz00_4181)))->BgL_userz00);
				BGL_PROCEDURE_CALL2(BgL_printzd2slotzd2_4183, BgL_arg2041z00_4587,
					BgL_pz00_4182);
			}
			{	/* Unsafe/ftp.scm 119 */
				obj_t BgL_tmpz00_6695;

				BgL_tmpz00_6695 = ((obj_t) BgL_pz00_4182);
				bgl_display_string(BGl_string2723z00zz__ftpz00, BgL_tmpz00_6695);
			}
			{	/* Unsafe/ftp.scm 120 */
				obj_t BgL_arg2042z00_4588;

				BgL_arg2042z00_4588 =
					(((BgL_z52ftpz52_bglt) COBJECT(
							((BgL_z52ftpz52_bglt)
								((BgL_ftpz00_bglt) BgL_oz00_4181))))->BgL_dtpz00);
				BGL_PROCEDURE_CALL2(BgL_printzd2slotzd2_4183, BgL_arg2042z00_4588,
					BgL_pz00_4182);
			}
			{	/* Unsafe/ftp.scm 121 */
				obj_t BgL_tmpz00_6706;

				BgL_tmpz00_6706 = ((obj_t) BgL_pz00_4182);
				bgl_display_string(BGl_string2724z00zz__ftpz00, BgL_tmpz00_6706);
			}
			{	/* Unsafe/ftp.scm 122 */
				bool_t BgL_arg2043z00_4589;

				BgL_arg2043z00_4589 =
					(((BgL_z52ftpz52_bglt) COBJECT(
							((BgL_z52ftpz52_bglt)
								((BgL_ftpz00_bglt) BgL_oz00_4181))))->BgL_passivezf3zf3);
				bgl_display_obj(BBOOL(BgL_arg2043z00_4589), BgL_pz00_4182);
			}
			{	/* Unsafe/ftp.scm 123 */
				obj_t BgL_tmpz00_6714;

				BgL_tmpz00_6714 = ((obj_t) BgL_pz00_4182);
				return bgl_display_string(BGl_string2725z00zz__ftpz00, BgL_tmpz00_6714);
			}
		}

	}



/* imported-modules-init */
	obj_t BGl_importedzd2moduleszd2initz00zz__ftpz00(void)
	{
		{	/* Unsafe/ftp.scm 15 */
			BGl_modulezd2initializa7ationz75zz__errorz00(88804785L,
				BSTRING_TO_STRING(BGl_string2675z00zz__ftpz00));
			return
				BGl_modulezd2initializa7ationz75zz__objectz00(475449627L,
				BSTRING_TO_STRING(BGl_string2675z00zz__ftpz00));
		}

	}

#ifdef __cplusplus
}
#endif
