/*===========================================================================*/
/*   (Unsafe/tar.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/tar.scm -indent -o objs/obj_u/Unsafe/tar.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___TAR_TYPE_DEFINITIONS
#define BGL___TAR_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_z62iozd2errorzb0_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_z62iozd2errorzb0_bglt;

	typedef struct BgL_z62iozd2parsezd2errorz62_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_z62iozd2parsezd2errorz62_bglt;

	typedef struct BgL_tarzd2headerzd2_bgl
	{
		header_t header;
		obj_t widening;
		obj_t BgL_namez00;
		long BgL_modez00;
		long BgL_uidz00;
		long BgL_gidz00;
		long BgL_siza7eza7;
		obj_t BgL_mtimez00;
		long BgL_checksumz00;
		obj_t BgL_typez00;
		obj_t BgL_linknamez00;
		obj_t BgL_magicz00;
		obj_t BgL_unamez00;
		obj_t BgL_gnamez00;
		long BgL_devmajorz00;
		long BgL_devminorz00;
	}                      *BgL_tarzd2headerzd2_bglt;


#endif													// BGL___TAR_TYPE_DEFINITIONS
#endif													// BGL_MODULE_TYPE_DEFINITIONS

	static obj_t BGl_symbol2005z00zz__tarz00 = BUNSPEC;
	static obj_t BGl_symbol2007z00zz__tarz00 = BUNSPEC;
	static obj_t BGl_symbol2009z00zz__tarz00 = BUNSPEC;
	static obj_t BGl_untarzd2directoryzd2zz__tarz00(obj_t, obj_t);
	extern long BGl_modulofxz00zz__r4_numbers_6_5_fixnumz00(long, long);
	static long BGl_checksumz00zz__tarz00(obj_t);
	static obj_t BGl_z62zc3z04anonymousza31498ze3ze5zz__tarz00(obj_t, obj_t);
	static obj_t BGl_symbol2011z00zz__tarz00 = BUNSPEC;
	static obj_t BGl_symbol2013z00zz__tarz00 = BUNSPEC;
	static obj_t BGl_symbol2015z00zz__tarz00 = BUNSPEC;
	static obj_t BGl_symbol2017z00zz__tarz00 = BUNSPEC;
	extern obj_t bgl_directory_to_list(char *);
	static obj_t BGl_symbol2019z00zz__tarz00 = BUNSPEC;
	static obj_t BGl__tarzd2readzd2blockz00zz__tarz00(obj_t, obj_t);
	extern bool_t BGl_makezd2directorieszd2zz__r4_ports_6_10_1z00(obj_t);
	extern obj_t bstring_to_keyword(obj_t);
	static obj_t BGl_requirezd2initializa7ationz75zz__tarz00 = BUNSPEC;
	extern obj_t BGl_raisez00zz__errorz00(obj_t);
	extern obj_t BGl_withzd2outputzd2tozd2filezd2zz__r4_ports_6_10_1z00(obj_t,
		obj_t);
	static obj_t BGl_symbol2021z00zz__tarz00 = BUNSPEC;
	static obj_t BGl_symbol2103z00zz__tarz00 = BUNSPEC;
	static obj_t BGl_symbol2023z00zz__tarz00 = BUNSPEC;
	static obj_t BGl_symbol2025z00zz__tarz00 = BUNSPEC;
	static obj_t BGl_symbol2107z00zz__tarz00 = BUNSPEC;
	static obj_t BGl_keyword2077z00zz__tarz00 = BUNSPEC;
	extern obj_t bgl_display_obj(obj_t, obj_t);
	static obj_t BGl_keyword2079z00zz__tarz00 = BUNSPEC;
	extern obj_t string_for_read(obj_t);
	extern obj_t BGl_typezd2errorzd2zz__errorz00(obj_t, obj_t, obj_t, obj_t,
		obj_t);
	static obj_t BGl_symbol2111z00zz__tarz00 = BUNSPEC;
	BGL_EXPORTED_DECL obj_t BGl_modulezd2initializa7ationz75zz__tarz00(long,
		char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__rgcz00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__objectz00(long, char *);
	extern obj_t
		BGl_modulezd2initializa7ationz75zz__r5_control_features_6_4z00(long,
		char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__r4_output_6_10_3z00(long,
		char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__r4_ports_6_10_1z00(long,
		char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__errorz00(long, char *);
	static obj_t BGl_tarzd2errorzd2zz__tarz00(obj_t, obj_t);
	static obj_t BGl_symbol2115z00zz__tarz00 = BUNSPEC;
	static obj_t BGl_symbol2117z00zz__tarz00 = BUNSPEC;
	static obj_t BGl_symbol2036z00zz__tarz00 = BUNSPEC;
	extern obj_t BGl_za2classesza2z00zz__objectz00;
	static obj_t BGl_symbol2038z00zz__tarz00 = BUNSPEC;
	extern obj_t bgl_nanoseconds_to_date(BGL_LONGLONG_T);
	static obj_t BGl_keyword2081z00zz__tarz00 = BUNSPEC;
	extern bool_t fexists(char *);
	static obj_t BGl_symbol2040z00zz__tarz00 = BUNSPEC;
	static obj_t BGl_symbol2042z00zz__tarz00 = BUNSPEC;
	extern obj_t bgl_seconds_to_date(long);
	static obj_t BGl_symbol2044z00zz__tarz00 = BUNSPEC;
	static obj_t BGl_symbol2046z00zz__tarz00 = BUNSPEC;
	static obj_t BGl_symbol2048z00zz__tarz00 = BUNSPEC;
	static obj_t BGl__tarzd2readzd2headerz00zz__tarz00(obj_t, obj_t);
	static obj_t BGl_z62zc3z04anonymousza31454ze3ze5zz__tarz00(obj_t);
	static obj_t BGl_symbol2050z00zz__tarz00 = BUNSPEC;
	static obj_t BGl_symbol2052z00zz__tarz00 = BUNSPEC;
	static obj_t BGl_symbol2134z00zz__tarz00 = BUNSPEC;
	static obj_t BGl_symbol2135z00zz__tarz00 = BUNSPEC;
	static obj_t BGl_symbol2054z00zz__tarz00 = BUNSPEC;
	static obj_t BGl_symbol2056z00zz__tarz00 = BUNSPEC;
	static obj_t BGl_symbol2138z00zz__tarz00 = BUNSPEC;
	static obj_t BGl_symbol2058z00zz__tarz00 = BUNSPEC;
	extern obj_t BGl_formatz00zz__r4_output_6_10_3z00(obj_t, obj_t);
	static obj_t BGl_z62lambda1503z62zz__tarz00(obj_t, obj_t);
	static obj_t BGl_z62lambda1504z62zz__tarz00(obj_t, obj_t, obj_t);
	static obj_t BGl_z62lambda1508z62zz__tarz00(obj_t, obj_t);
	static obj_t BGl_z62lambda1509z62zz__tarz00(obj_t, obj_t, obj_t);
	static obj_t BGl_cnstzd2initzd2zz__tarz00(void);
	extern bool_t BGl_listzf3zf3zz__r4_pairs_and_lists_6_3z00(obj_t);
	extern obj_t BGl_z62iozd2parsezd2errorz62zz__objectz00;
	static obj_t BGl_symbol2060z00zz__tarz00 = BUNSPEC;
	static obj_t BGl_genericzd2initzd2zz__tarz00(void);
	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_untarzd2fileszd2zz__tarz00(obj_t, obj_t);
	static obj_t BGl_importedzd2moduleszd2initz00zz__tarz00(void);
	static obj_t BGl_gczd2rootszd2initz00zz__tarz00(void);
	static obj_t BGl_z62lambda1513z62zz__tarz00(obj_t, obj_t);
	static obj_t BGl_z62lambda1514z62zz__tarz00(obj_t, obj_t, obj_t);
	extern obj_t BGl_makezd2classzd2fieldz00zz__objectz00(obj_t, obj_t, obj_t,
		bool_t, bool_t, obj_t, obj_t, obj_t);
	extern obj_t BGl_z62iozd2errorzb0zz__objectz00;
	static obj_t BGl_z62lambda1518z62zz__tarz00(obj_t, obj_t);
	static obj_t BGl_z62lambda1519z62zz__tarz00(obj_t, obj_t, obj_t);
	static obj_t BGl_objectzd2initzd2zz__tarz00(void);
	BGL_EXPORTED_DECL obj_t BGl_tarzd2readzd2blockz00zz__tarz00(obj_t, obj_t);
	static obj_t BGl_extractze70ze7zz__tarz00(obj_t, long, obj_t, obj_t, obj_t,
		obj_t, long);
	extern obj_t BGl_memqz00zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
	extern obj_t BGl_za2inheritancesza2z00zz__objectz00;
	static obj_t BGl_z62lambda1523z62zz__tarz00(obj_t, obj_t);
	static obj_t BGl_z62lambda1524z62zz__tarz00(obj_t, obj_t, obj_t);
	static obj_t BGl_z62lambda1528z62zz__tarz00(obj_t, obj_t);
	extern obj_t BGl_objectz00zz__objectz00;
	static obj_t BGl_z62lambda1529z62zz__tarz00(obj_t, obj_t, obj_t);
	static obj_t
		BGl_z62tarzd2roundzd2upzd2tozd2recordzd2siza7ez17zz__tarz00(obj_t, obj_t);
	extern obj_t bgl_reverse_bang(obj_t);
	extern obj_t BGl_dirnamez00zz__osz00(obj_t);
	extern obj_t string_append_3(obj_t, obj_t, obj_t);
	static obj_t BGl_symbol2083z00zz__tarz00 = BUNSPEC;
	extern obj_t BGl_pwdz00zz__osz00(void);
	static obj_t BGl_z62lambda1535z62zz__tarz00(obj_t, obj_t);
	static obj_t BGl_z62lambda1536z62zz__tarz00(obj_t, obj_t, obj_t);
	static obj_t BGl_symbol2092z00zz__tarz00 = BUNSPEC;
	extern obj_t BGl_classzd2fieldzd2defaultzd2valuezd2zz__objectz00(obj_t);
	static obj_t BGl_symbol2096z00zz__tarz00 = BUNSPEC;
	BGL_EXPORTED_DECL obj_t BGl_untarz00zz__tarz00(obj_t, obj_t, obj_t, obj_t);
	static obj_t BGl_z62lambda1541z62zz__tarz00(obj_t, obj_t);
	static obj_t BGl_z62lambda1542z62zz__tarz00(obj_t, obj_t, obj_t);
	static obj_t BGl_z62lambda1547z62zz__tarz00(obj_t, obj_t);
	extern bool_t bgl_directoryp(char *);
	static obj_t BGl_z62lambda1548z62zz__tarz00(obj_t, obj_t, obj_t);
	extern obj_t BGl_makezd2filezd2namez00zz__osz00(obj_t, obj_t);
	extern BGL_LONGLONG_T bgl_current_nanoseconds(void);
	extern obj_t bstring_to_symbol(obj_t);
	static obj_t BGl_tarzd2typezd2namez00zz__tarz00(unsigned char);
	extern obj_t c_substring(obj_t, long, long);
	static obj_t BGl_list2076z00zz__tarz00 = BUNSPEC;
	static obj_t BGl_z62lambda1553z62zz__tarz00(obj_t, obj_t);
	static obj_t BGl_z62lambda1554z62zz__tarz00(obj_t, obj_t, obj_t);
	extern obj_t BGl_readzd2charszd2zz__r4_input_6_10_2z00(obj_t, obj_t);
	static obj_t BGl_methodzd2initzd2zz__tarz00(void);
	extern obj_t BGl_bigloozd2typezd2errorz00zz__errorz00(obj_t, obj_t, obj_t);
	static bool_t BGl_rmzd2rfzd2zz__tarz00(obj_t);
	BGL_EXPORTED_DECL obj_t BGl_tarzd2readzd2headerz00zz__tarz00(obj_t, obj_t);
	static obj_t BGl_z62lambda1560z62zz__tarz00(obj_t, obj_t);
	static obj_t BGl_z62lambda1561z62zz__tarz00(obj_t, obj_t, obj_t);
	static obj_t BGl_z62lambda1566z62zz__tarz00(obj_t, obj_t);
	static obj_t BGl_z62lambda1567z62zz__tarz00(obj_t, obj_t, obj_t);
	static obj_t BGl__untarz00zz__tarz00(obj_t, obj_t);
	extern int bgl_symlink(char *, char *);
	static obj_t BGl_z62lambda1574z62zz__tarz00(obj_t, obj_t);
	static BgL_tarzd2headerzd2_bglt BGl_z62lambda1493z62zz__tarz00(obj_t, obj_t,
		obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t,
		obj_t, obj_t);
	static obj_t BGl_z62lambda1575z62zz__tarz00(obj_t, obj_t, obj_t);
	static BgL_tarzd2headerzd2_bglt BGl_z62lambda1495z62zz__tarz00(obj_t);
	BGL_EXPORTED_DEF obj_t BGl_tarzd2headerzd2zz__tarz00 = BUNSPEC;
	extern obj_t bgl_file_type(char *);
	static obj_t BGl_z62lambda1580z62zz__tarz00(obj_t, obj_t);
	static obj_t BGl_z62lambda1581z62zz__tarz00(obj_t, obj_t, obj_t);
	extern obj_t BGl_memberz00zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
	extern obj_t BGl_errorz00zz__errorz00(obj_t, obj_t, obj_t);
	BGL_EXPORTED_DECL long
		BGl_tarzd2roundzd2upzd2tozd2recordzd2siza7ez75zz__tarz00(obj_t);
	extern long BGl_stringzd2ze3elongz31zz__r4_numbers_6_5_fixnumz00(obj_t, long);
	static obj_t *__cnst;


	   
		 
		DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2113z00zz__tarz00,
		BgL_bgl_za762lambda1542za7622140z00, BGl_z62lambda1542z62zz__tarz00, 0L,
		BUNSPEC, 2);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2114z00zz__tarz00,
		BgL_bgl_za762lambda1541za7622141z00, BGl_z62lambda1541z62zz__tarz00, 0L,
		BUNSPEC, 1);
	      BGL_DEFINE_STRING(BGl_string2041z00zz__tarz00,
		BgL_bgl_string2041za700za7za7_2142za7, "uid", 3);
	      BGL_DEFINE_STRING(BGl_string2043z00zz__tarz00,
		BgL_bgl_string2043za700za7za7_2143za7, "gid", 3);
	      DEFINE_EXPORT_BGL_PROCEDURE(BGl_untarzd2envzd2zz__tarz00,
		BgL_bgl__untarza700za7za7__tar2144za7, opt_generic_entry,
		BGl__untarz00zz__tarz00, BFALSE, -1);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2119z00zz__tarz00,
		BgL_bgl_za762lambda1548za7622145z00, BGl_z62lambda1548z62zz__tarz00, 0L,
		BUNSPEC, 2);
	      BGL_DEFINE_STRING(BGl_string2045z00zz__tarz00,
		BgL_bgl_string2045za700za7za7_2146za7, "size", 4);
	      BGL_DEFINE_STRING(BGl_string2047z00zz__tarz00,
		BgL_bgl_string2047za700za7za7_2147za7, "mtime", 5);
	      BGL_DEFINE_STRING(BGl_string2049z00zz__tarz00,
		BgL_bgl_string2049za700za7za7_2148za7, "chksum", 6);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2120z00zz__tarz00,
		BgL_bgl_za762lambda1547za7622149z00, BGl_z62lambda1547z62zz__tarz00, 0L,
		BUNSPEC, 1);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2121z00zz__tarz00,
		BgL_bgl_za762lambda1554za7622150z00, BGl_z62lambda1554z62zz__tarz00, 0L,
		BUNSPEC, 2);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2122z00zz__tarz00,
		BgL_bgl_za762lambda1553za7622151z00, BGl_z62lambda1553z62zz__tarz00, 0L,
		BUNSPEC, 1);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2123z00zz__tarz00,
		BgL_bgl_za762lambda1561za7622152z00, BGl_z62lambda1561z62zz__tarz00, 0L,
		BUNSPEC, 2);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2124z00zz__tarz00,
		BgL_bgl_za762lambda1560za7622153z00, BGl_z62lambda1560z62zz__tarz00, 0L,
		BUNSPEC, 1);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2125z00zz__tarz00,
		BgL_bgl_za762lambda1567za7622154z00, BGl_z62lambda1567z62zz__tarz00, 0L,
		BUNSPEC, 2);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2126z00zz__tarz00,
		BgL_bgl_za762lambda1566za7622155z00, BGl_z62lambda1566z62zz__tarz00, 0L,
		BUNSPEC, 1);
	      BGL_DEFINE_STRING(BGl_string2051z00zz__tarz00,
		BgL_bgl_string2051za700za7za7_2156za7, "linkname", 8);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2127z00zz__tarz00,
		BgL_bgl_za762lambda1575za7622157z00, BGl_z62lambda1575z62zz__tarz00, 0L,
		BUNSPEC, 2);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2128z00zz__tarz00,
		BgL_bgl_za762lambda1574za7622158z00, BGl_z62lambda1574z62zz__tarz00, 0L,
		BUNSPEC, 1);
	      BGL_DEFINE_STRING(BGl_string2053z00zz__tarz00,
		BgL_bgl_string2053za700za7za7_2159za7, "magic", 5);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2129z00zz__tarz00,
		BgL_bgl_za762lambda1581za7622160z00, BGl_z62lambda1581z62zz__tarz00, 0L,
		BUNSPEC, 2);
	      BGL_DEFINE_STRING(BGl_string2136z00zz__tarz00,
		BgL_bgl_string2136za700za7za7_2161za7, "__tar", 5);
	      BGL_DEFINE_STRING(BGl_string2055z00zz__tarz00,
		BgL_bgl_string2055za700za7za7_2162za7, "uname", 5);
	      BGL_DEFINE_STRING(BGl_string2137z00zz__tarz00,
		BgL_bgl_string2137za700za7za7_2163za7, "0", 1);
	      BGL_DEFINE_STRING(BGl_string2057z00zz__tarz00,
		BgL_bgl_string2057za700za7za7_2164za7, "gname", 5);
	      BGL_DEFINE_STRING(BGl_string2139z00zz__tarz00,
		BgL_bgl_string2139za700za7za7_2165za7, "_", 1);
	      BGL_DEFINE_STRING(BGl_string2059z00zz__tarz00,
		BgL_bgl_string2059za700za7za7_2166za7, "devmajor", 8);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2130z00zz__tarz00,
		BgL_bgl_za762lambda1580za7622167z00, BGl_z62lambda1580z62zz__tarz00, 0L,
		BUNSPEC, 1);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2131z00zz__tarz00,
		BgL_bgl_za762za7c3za704anonymo2168za7,
		BGl_z62zc3z04anonymousza31498ze3ze5zz__tarz00, 0L, BUNSPEC, 1);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2132z00zz__tarz00,
		BgL_bgl_za762lambda1495za7622169z00, BGl_z62lambda1495z62zz__tarz00, 0L,
		BUNSPEC, 0);
	      DEFINE_EXPORT_BGL_PROCEDURE(BGl_tarzd2readzd2headerzd2envzd2zz__tarz00,
		BgL_bgl__tarza7d2readza7d2he2170z00, opt_generic_entry,
		BGl__tarzd2readzd2headerz00zz__tarz00, BFALSE, -1);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2133z00zz__tarz00,
		BgL_bgl_za762lambda1493za7622171z00, BGl_z62lambda1493z62zz__tarz00, 0L,
		BUNSPEC, 14);
	      BGL_DEFINE_STRING(BGl_string2061z00zz__tarz00,
		BgL_bgl_string2061za700za7za7_2172za7, "devminor", 8);
	      BGL_DEFINE_STRING(BGl_string2062z00zz__tarz00,
		BgL_bgl_string2062za700za7za7_2173za7, "ustar  ", 7);
	      BGL_DEFINE_STRING(BGl_string2063z00zz__tarz00,
		BgL_bgl_string2063za700za7za7_2174za7, "ustar", 5);
	      BGL_DEFINE_STRING(BGl_string2064z00zz__tarz00,
		BgL_bgl_string2064za700za7za7_2175za7, "GNUtar ", 7);
	      BGL_DEFINE_STRING(BGl_string2065z00zz__tarz00,
		BgL_bgl_string2065za700za7za7_2176za7, "invalid checksum (expected: ~s)",
		31);
	      BGL_DEFINE_STRING(BGl_string2066z00zz__tarz00,
		BgL_bgl_string2066za700za7za7_2177za7, "invalid magic number", 20);
	      BGL_DEFINE_STRING(BGl_string2067z00zz__tarz00,
		BgL_bgl_string2067za700za7za7_2178za7,
		"no terminator for zero-terminated `~a' found", 44);
	      BGL_DEFINE_STRING(BGl_string2068z00zz__tarz00,
		BgL_bgl_string2068za700za7za7_2179za7, "corrupted tar file", 18);
	      BGL_DEFINE_STRING(BGl_string2069z00zz__tarz00,
		BgL_bgl_string2069za700za7za7_2180za7, "tar-round-up-to-record-size", 27);
	      BGL_DEFINE_STRING(BGl_string2070z00zz__tarz00,
		BgL_bgl_string2070za700za7za7_2181za7, "long", 4);
	      BGL_DEFINE_STRING(BGl_string2071z00zz__tarz00,
		BgL_bgl_string2071za700za7za7_2182za7, "_tar-read-block", 15);
	      BGL_DEFINE_STRING(BGl_string2072z00zz__tarz00,
		BgL_bgl_string2072za700za7za7_2183za7, "tar-read-block", 14);
	      BGL_DEFINE_STRING(BGl_string2073z00zz__tarz00,
		BgL_bgl_string2073za700za7za7_2184za7, "Illegal block", 13);
	      BGL_DEFINE_STRING(BGl_string2074z00zz__tarz00,
		BgL_bgl_string2074za700za7za7_2185za7, "tar-header", 10);
	      BGL_DEFINE_STRING(BGl_string2075z00zz__tarz00,
		BgL_bgl_string2075za700za7za7_2186za7, "_untar", 6);
	      BGL_DEFINE_STRING(BGl_string2078z00zz__tarz00,
		BgL_bgl_string2078za700za7za7_2187za7, "directory", 9);
	      BGL_DEFINE_STRING(BGl_string2080z00zz__tarz00,
		BgL_bgl_string2080za700za7za7_2188za7, "file", 4);
	      BGL_DEFINE_STRING(BGl_string2082z00zz__tarz00,
		BgL_bgl_string2082za700za7za7_2189za7, "files", 5);
	      BGL_DEFINE_STRING(BGl_string2084z00zz__tarz00,
		BgL_bgl_string2084za700za7za7_2190za7, "untar", 5);
	      BGL_DEFINE_STRING(BGl_string2085z00zz__tarz00,
		BgL_bgl_string2085za700za7za7_2191za7, "Illegal keyword argument", 24);
	      BGL_DEFINE_STRING(BGl_string2086z00zz__tarz00,
		BgL_bgl_string2086za700za7za7_2192za7,
		"wrong number of arguments: [1..4] expected, provided", 52);
	      BGL_DEFINE_STRING(BGl_string2087z00zz__tarz00,
		BgL_bgl_string2087za700za7za7_2193za7, "bint", 4);
	      BGL_DEFINE_STRING(BGl_string2088z00zz__tarz00,
		BgL_bgl_string2088za700za7za7_2194za7, "Cannot create directory", 23);
	      BGL_DEFINE_STRING(BGl_string2089z00zz__tarz00,
		BgL_bgl_string2089za700za7za7_2195za7, "Illegal file type `~a'", 22);
	      BGL_DEFINE_STRING(BGl_string2093z00zz__tarz00,
		BgL_bgl_string2093za700za7za7_2196za7, "bstring", 7);
	      DEFINE_EXPORT_BGL_PROCEDURE(BGl_tarzd2readzd2blockzd2envzd2zz__tarz00,
		BgL_bgl__tarza7d2readza7d2bl2197z00, opt_generic_entry,
		BGl__tarzd2readzd2blockz00zz__tarz00, BFALSE, -1);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2090z00zz__tarz00,
		BgL_bgl_za762lambda1504za7622198z00, BGl_z62lambda1504z62zz__tarz00, 0L,
		BUNSPEC, 2);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2091z00zz__tarz00,
		BgL_bgl_za762lambda1503za7622199z00, BGl_z62lambda1503z62zz__tarz00, 0L,
		BUNSPEC, 1);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2094z00zz__tarz00,
		BgL_bgl_za762lambda1509za7622200z00, BGl_z62lambda1509z62zz__tarz00, 0L,
		BUNSPEC, 2);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2095z00zz__tarz00,
		BgL_bgl_za762lambda1508za7622201z00, BGl_z62lambda1508z62zz__tarz00, 0L,
		BUNSPEC, 1);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2097z00zz__tarz00,
		BgL_bgl_za762lambda1514za7622202z00, BGl_z62lambda1514z62zz__tarz00, 0L,
		BUNSPEC, 2);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2098z00zz__tarz00,
		BgL_bgl_za762lambda1513za7622203z00, BGl_z62lambda1513z62zz__tarz00, 0L,
		BUNSPEC, 1);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2099z00zz__tarz00,
		BgL_bgl_za762lambda1519za7622204z00, BGl_z62lambda1519z62zz__tarz00, 0L,
		BUNSPEC, 2);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_tarzd2roundzd2upzd2tozd2recordzd2siza7ezd2envza7zz__tarz00,
		BgL_bgl_za762tarza7d2roundza7d2205za7,
		BGl_z62tarzd2roundzd2upzd2tozd2recordzd2siza7ez17zz__tarz00, 0L, BUNSPEC,
		1);
	      BGL_DEFINE_STRING(BGl_string2006z00zz__tarz00,
		BgL_bgl_string2006za700za7za7_2206za7, "tar", 3);
	      BGL_DEFINE_STRING(BGl_string2008z00zz__tarz00,
		BgL_bgl_string2008za700za7za7_2207za7, "oldnormal", 9);
	      BGL_DEFINE_STRING(BGl_string2010z00zz__tarz00,
		BgL_bgl_string2010za700za7za7_2208za7, "normal", 6);
	      BGL_DEFINE_STRING(BGl_string2012z00zz__tarz00,
		BgL_bgl_string2012za700za7za7_2209za7, "link", 4);
	      BGL_DEFINE_STRING(BGl_string2014z00zz__tarz00,
		BgL_bgl_string2014za700za7za7_2210za7, "symlink", 7);
	      BGL_DEFINE_STRING(BGl_string2016z00zz__tarz00,
		BgL_bgl_string2016za700za7za7_2211za7, "chr", 3);
	      BGL_DEFINE_STRING(BGl_string2018z00zz__tarz00,
		BgL_bgl_string2018za700za7za7_2212za7, "blk", 3);
	      BGL_DEFINE_STRING(BGl_string2020z00zz__tarz00,
		BgL_bgl_string2020za700za7za7_2213za7, "dir", 3);
	      BGL_DEFINE_STRING(BGl_string2022z00zz__tarz00,
		BgL_bgl_string2022za700za7za7_2214za7, "fifo", 4);
	      BGL_DEFINE_STRING(BGl_string2104z00zz__tarz00,
		BgL_bgl_string2104za700za7za7_2215za7, "elong", 5);
	      BGL_DEFINE_STRING(BGl_string2024z00zz__tarz00,
		BgL_bgl_string2024za700za7za7_2216za7, "contig", 6);
	      BGL_DEFINE_STRING(BGl_string2026z00zz__tarz00,
		BgL_bgl_string2026za700za7za7_2217za7, "longname", 8);
	      BGL_DEFINE_STRING(BGl_string2108z00zz__tarz00,
		BgL_bgl_string2108za700za7za7_2218za7, "date", 4);
	      BGL_DEFINE_STRING(BGl_string2027z00zz__tarz00,
		BgL_bgl_string2027za700za7za7_2219za7, "invalid file type", 17);
	      BGL_DEFINE_STRING(BGl_string2028z00zz__tarz00,
		BgL_bgl_string2028za700za7za7_2220za7, "invalid octal record item", 25);
	      BGL_DEFINE_STRING(BGl_string2029z00zz__tarz00,
		BgL_bgl_string2029za700za7za7_2221za7, "        ", 8);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2100z00zz__tarz00,
		BgL_bgl_za762lambda1518za7622222z00, BGl_z62lambda1518z62zz__tarz00, 0L,
		BUNSPEC, 1);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2101z00zz__tarz00,
		BgL_bgl_za762lambda1524za7622223z00, BGl_z62lambda1524z62zz__tarz00, 0L,
		BUNSPEC, 2);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2102z00zz__tarz00,
		BgL_bgl_za762lambda1523za7622224z00, BGl_z62lambda1523z62zz__tarz00, 0L,
		BUNSPEC, 1);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2105z00zz__tarz00,
		BgL_bgl_za762lambda1529za7622225z00, BGl_z62lambda1529z62zz__tarz00, 0L,
		BUNSPEC, 2);
	      BGL_DEFINE_STRING(BGl_string2030z00zz__tarz00,
		BgL_bgl_string2030za700za7za7_2226za7, "/tmp/bigloo/runtime/Unsafe/tar.scm",
		34);
	      BGL_DEFINE_STRING(BGl_string2112z00zz__tarz00,
		BgL_bgl_string2112za700za7za7_2227za7, "checksum", 8);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2106z00zz__tarz00,
		BgL_bgl_za762lambda1528za7622228z00, BGl_z62lambda1528z62zz__tarz00, 0L,
		BUNSPEC, 1);
	      BGL_DEFINE_STRING(BGl_string2031z00zz__tarz00,
		BgL_bgl_string2031za700za7za7_2229za7, "_tar-read-header", 16);
	      BGL_DEFINE_STRING(BGl_string2032z00zz__tarz00,
		BgL_bgl_string2032za700za7za7_2230za7, "vector", 6);
	      BGL_DEFINE_STRING(BGl_string2033z00zz__tarz00,
		BgL_bgl_string2033za700za7za7_2231za7, "tar-read-header", 15);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2109z00zz__tarz00,
		BgL_bgl_za762lambda1536za7622232z00, BGl_z62lambda1536z62zz__tarz00, 0L,
		BUNSPEC, 2);
	      BGL_DEFINE_STRING(BGl_string2034z00zz__tarz00,
		BgL_bgl_string2034za700za7za7_2233za7, "input-port", 10);
	      BGL_DEFINE_STRING(BGl_string2116z00zz__tarz00,
		BgL_bgl_string2116za700za7za7_2234za7, "type", 4);
	      BGL_DEFINE_STRING(BGl_string2035z00zz__tarz00,
		BgL_bgl_string2035za700za7za7_2235za7, "", 0);
	      BGL_DEFINE_STRING(BGl_string2118z00zz__tarz00,
		BgL_bgl_string2118za700za7za7_2236za7, "symbol", 6);
	      BGL_DEFINE_STRING(BGl_string2037z00zz__tarz00,
		BgL_bgl_string2037za700za7za7_2237za7, "name", 4);
	      BGL_DEFINE_STRING(BGl_string2039z00zz__tarz00,
		BgL_bgl_string2039za700za7za7_2238za7, "mode", 4);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2110z00zz__tarz00,
		BgL_bgl_za762lambda1535za7622239z00, BGl_z62lambda1535z62zz__tarz00, 0L,
		BUNSPEC, 1);

/* contant bindings */
	static void bgl_constant_bindings()
	{
		BGL_BIND_PROCEDURE(BGl_proc2110z00zz__tarz00,
			BgL_bgl_za762lambda1535za7622239z00);
		BGL_BIND_STRING(BGl_string2039z00zz__tarz00,
			BgL_bgl_string2039za700za7za7_2238za7);
		BGL_BIND_STRING(BGl_string2037z00zz__tarz00,
			BgL_bgl_string2037za700za7za7_2237za7);
		BGL_BIND_STRING(BGl_string2118z00zz__tarz00,
			BgL_bgl_string2118za700za7za7_2236za7);
		BGL_BIND_STRING(BGl_string2035z00zz__tarz00,
			BgL_bgl_string2035za700za7za7_2235za7);
		BGL_BIND_STRING(BGl_string2116z00zz__tarz00,
			BgL_bgl_string2116za700za7za7_2234za7);
		BGL_BIND_STRING(BGl_string2034z00zz__tarz00,
			BgL_bgl_string2034za700za7za7_2233za7);
		BGL_BIND_PROCEDURE(BGl_proc2109z00zz__tarz00,
			BgL_bgl_za762lambda1536za7622232z00);
		BGL_BIND_STRING(BGl_string2033z00zz__tarz00,
			BgL_bgl_string2033za700za7za7_2231za7);
		BGL_BIND_STRING(BGl_string2032z00zz__tarz00,
			BgL_bgl_string2032za700za7za7_2230za7);
		BGL_BIND_STRING(BGl_string2031z00zz__tarz00,
			BgL_bgl_string2031za700za7za7_2229za7);
		BGL_BIND_PROCEDURE(BGl_proc2106z00zz__tarz00,
			BgL_bgl_za762lambda1528za7622228z00);
		BGL_BIND_STRING(BGl_string2112z00zz__tarz00,
			BgL_bgl_string2112za700za7za7_2227za7);
		BGL_BIND_STRING(BGl_string2030z00zz__tarz00,
			BgL_bgl_string2030za700za7za7_2226za7);
		BGL_BIND_PROCEDURE(BGl_proc2105z00zz__tarz00,
			BgL_bgl_za762lambda1529za7622225z00);
		BGL_BIND_PROCEDURE(BGl_proc2102z00zz__tarz00,
			BgL_bgl_za762lambda1523za7622224z00);
		BGL_BIND_PROCEDURE(BGl_proc2101z00zz__tarz00,
			BgL_bgl_za762lambda1524za7622223z00);
		BGL_BIND_PROCEDURE(BGl_proc2100z00zz__tarz00,
			BgL_bgl_za762lambda1518za7622222z00);
		BGL_BIND_STRING(BGl_string2029z00zz__tarz00,
			BgL_bgl_string2029za700za7za7_2221za7);
		BGL_BIND_STRING(BGl_string2028z00zz__tarz00,
			BgL_bgl_string2028za700za7za7_2220za7);
		BGL_BIND_STRING(BGl_string2027z00zz__tarz00,
			BgL_bgl_string2027za700za7za7_2219za7);
		BGL_BIND_STRING(BGl_string2108z00zz__tarz00,
			BgL_bgl_string2108za700za7za7_2218za7);
		BGL_BIND_STRING(BGl_string2026z00zz__tarz00,
			BgL_bgl_string2026za700za7za7_2217za7);
		BGL_BIND_STRING(BGl_string2024z00zz__tarz00,
			BgL_bgl_string2024za700za7za7_2216za7);
		BGL_BIND_STRING(BGl_string2104z00zz__tarz00,
			BgL_bgl_string2104za700za7za7_2215za7);
		BGL_BIND_STRING(BGl_string2022z00zz__tarz00,
			BgL_bgl_string2022za700za7za7_2214za7);
		BGL_BIND_STRING(BGl_string2020z00zz__tarz00,
			BgL_bgl_string2020za700za7za7_2213za7);
		BGL_BIND_STRING(BGl_string2018z00zz__tarz00,
			BgL_bgl_string2018za700za7za7_2212za7);
		BGL_BIND_STRING(BGl_string2016z00zz__tarz00,
			BgL_bgl_string2016za700za7za7_2211za7);
		BGL_BIND_STRING(BGl_string2014z00zz__tarz00,
			BgL_bgl_string2014za700za7za7_2210za7);
		BGL_BIND_STRING(BGl_string2012z00zz__tarz00,
			BgL_bgl_string2012za700za7za7_2209za7);
		BGL_BIND_STRING(BGl_string2010z00zz__tarz00,
			BgL_bgl_string2010za700za7za7_2208za7);
		BGL_BIND_STRING(BGl_string2008z00zz__tarz00,
			BgL_bgl_string2008za700za7za7_2207za7);
		BGL_BIND_STRING(BGl_string2006z00zz__tarz00,
			BgL_bgl_string2006za700za7za7_2206za7);
		BGL_BIND_PROCEDURE
			(BGl_tarzd2roundzd2upzd2tozd2recordzd2siza7ezd2envza7zz__tarz00,
			BgL_bgl_za762tarza7d2roundza7d2205za7);
		BGL_BIND_PROCEDURE(BGl_proc2099z00zz__tarz00,
			BgL_bgl_za762lambda1519za7622204z00);
		BGL_BIND_PROCEDURE(BGl_proc2098z00zz__tarz00,
			BgL_bgl_za762lambda1513za7622203z00);
		BGL_BIND_PROCEDURE(BGl_proc2097z00zz__tarz00,
			BgL_bgl_za762lambda1514za7622202z00);
		BGL_BIND_PROCEDURE(BGl_proc2095z00zz__tarz00,
			BgL_bgl_za762lambda1508za7622201z00);
		BGL_BIND_PROCEDURE(BGl_proc2094z00zz__tarz00,
			BgL_bgl_za762lambda1509za7622200z00);
		BGL_BIND_PROCEDURE(BGl_proc2091z00zz__tarz00,
			BgL_bgl_za762lambda1503za7622199z00);
		BGL_BIND_PROCEDURE(BGl_proc2090z00zz__tarz00,
			BgL_bgl_za762lambda1504za7622198z00);
		BGL_BIND_PROCEDURE(BGl_tarzd2readzd2blockzd2envzd2zz__tarz00,
			BgL_bgl__tarza7d2readza7d2bl2197z00);
		BGL_BIND_STRING(BGl_string2093z00zz__tarz00,
			BgL_bgl_string2093za700za7za7_2196za7);
		BGL_BIND_STRING(BGl_string2089z00zz__tarz00,
			BgL_bgl_string2089za700za7za7_2195za7);
		BGL_BIND_STRING(BGl_string2088z00zz__tarz00,
			BgL_bgl_string2088za700za7za7_2194za7);
		BGL_BIND_STRING(BGl_string2087z00zz__tarz00,
			BgL_bgl_string2087za700za7za7_2193za7);
		BGL_BIND_STRING(BGl_string2086z00zz__tarz00,
			BgL_bgl_string2086za700za7za7_2192za7);
		BGL_BIND_STRING(BGl_string2085z00zz__tarz00,
			BgL_bgl_string2085za700za7za7_2191za7);
		BGL_BIND_STRING(BGl_string2084z00zz__tarz00,
			BgL_bgl_string2084za700za7za7_2190za7);
		BGL_BIND_STRING(BGl_string2082z00zz__tarz00,
			BgL_bgl_string2082za700za7za7_2189za7);
		BGL_BIND_STRING(BGl_string2080z00zz__tarz00,
			BgL_bgl_string2080za700za7za7_2188za7);
		BGL_BIND_STRING(BGl_string2078z00zz__tarz00,
			BgL_bgl_string2078za700za7za7_2187za7);
		BGL_BIND_STRING(BGl_string2075z00zz__tarz00,
			BgL_bgl_string2075za700za7za7_2186za7);
		BGL_BIND_STRING(BGl_string2074z00zz__tarz00,
			BgL_bgl_string2074za700za7za7_2185za7);
		BGL_BIND_STRING(BGl_string2073z00zz__tarz00,
			BgL_bgl_string2073za700za7za7_2184za7);
		BGL_BIND_STRING(BGl_string2072z00zz__tarz00,
			BgL_bgl_string2072za700za7za7_2183za7);
		BGL_BIND_STRING(BGl_string2071z00zz__tarz00,
			BgL_bgl_string2071za700za7za7_2182za7);
		BGL_BIND_STRING(BGl_string2070z00zz__tarz00,
			BgL_bgl_string2070za700za7za7_2181za7);
		BGL_BIND_STRING(BGl_string2069z00zz__tarz00,
			BgL_bgl_string2069za700za7za7_2180za7);
		BGL_BIND_STRING(BGl_string2068z00zz__tarz00,
			BgL_bgl_string2068za700za7za7_2179za7);
		BGL_BIND_STRING(BGl_string2067z00zz__tarz00,
			BgL_bgl_string2067za700za7za7_2178za7);
		BGL_BIND_STRING(BGl_string2066z00zz__tarz00,
			BgL_bgl_string2066za700za7za7_2177za7);
		BGL_BIND_STRING(BGl_string2065z00zz__tarz00,
			BgL_bgl_string2065za700za7za7_2176za7);
		BGL_BIND_STRING(BGl_string2064z00zz__tarz00,
			BgL_bgl_string2064za700za7za7_2175za7);
		BGL_BIND_STRING(BGl_string2063z00zz__tarz00,
			BgL_bgl_string2063za700za7za7_2174za7);
		BGL_BIND_STRING(BGl_string2062z00zz__tarz00,
			BgL_bgl_string2062za700za7za7_2173za7);
		BGL_BIND_STRING(BGl_string2061z00zz__tarz00,
			BgL_bgl_string2061za700za7za7_2172za7);
		BGL_BIND_PROCEDURE(BGl_proc2133z00zz__tarz00,
			BgL_bgl_za762lambda1493za7622171z00);
		BGL_BIND_PROCEDURE(BGl_tarzd2readzd2headerzd2envzd2zz__tarz00,
			BgL_bgl__tarza7d2readza7d2he2170z00);
		BGL_BIND_PROCEDURE(BGl_proc2132z00zz__tarz00,
			BgL_bgl_za762lambda1495za7622169z00);
		BGL_BIND_PROCEDURE(BGl_proc2131z00zz__tarz00,
			BgL_bgl_za762za7c3za704anonymo2168za7);
		BGL_BIND_PROCEDURE(BGl_proc2130z00zz__tarz00,
			BgL_bgl_za762lambda1580za7622167z00);
		BGL_BIND_STRING(BGl_string2059z00zz__tarz00,
			BgL_bgl_string2059za700za7za7_2166za7);
		BGL_BIND_STRING(BGl_string2139z00zz__tarz00,
			BgL_bgl_string2139za700za7za7_2165za7);
		BGL_BIND_STRING(BGl_string2057z00zz__tarz00,
			BgL_bgl_string2057za700za7za7_2164za7);
		BGL_BIND_STRING(BGl_string2137z00zz__tarz00,
			BgL_bgl_string2137za700za7za7_2163za7);
		BGL_BIND_STRING(BGl_string2055z00zz__tarz00,
			BgL_bgl_string2055za700za7za7_2162za7);
		BGL_BIND_STRING(BGl_string2136z00zz__tarz00,
			BgL_bgl_string2136za700za7za7_2161za7);
		BGL_BIND_PROCEDURE(BGl_proc2129z00zz__tarz00,
			BgL_bgl_za762lambda1581za7622160z00);
		BGL_BIND_STRING(BGl_string2053z00zz__tarz00,
			BgL_bgl_string2053za700za7za7_2159za7);
		BGL_BIND_PROCEDURE(BGl_proc2128z00zz__tarz00,
			BgL_bgl_za762lambda1574za7622158z00);
		BGL_BIND_PROCEDURE(BGl_proc2127z00zz__tarz00,
			BgL_bgl_za762lambda1575za7622157z00);
		BGL_BIND_STRING(BGl_string2051z00zz__tarz00,
			BgL_bgl_string2051za700za7za7_2156za7);
		BGL_BIND_PROCEDURE(BGl_proc2126z00zz__tarz00,
			BgL_bgl_za762lambda1566za7622155z00);
		BGL_BIND_PROCEDURE(BGl_proc2125z00zz__tarz00,
			BgL_bgl_za762lambda1567za7622154z00);
		BGL_BIND_PROCEDURE(BGl_proc2124z00zz__tarz00,
			BgL_bgl_za762lambda1560za7622153z00);
		BGL_BIND_PROCEDURE(BGl_proc2123z00zz__tarz00,
			BgL_bgl_za762lambda1561za7622152z00);
		BGL_BIND_PROCEDURE(BGl_proc2122z00zz__tarz00,
			BgL_bgl_za762lambda1553za7622151z00);
		BGL_BIND_PROCEDURE(BGl_proc2121z00zz__tarz00,
			BgL_bgl_za762lambda1554za7622150z00);
		BGL_BIND_PROCEDURE(BGl_proc2120z00zz__tarz00,
			BgL_bgl_za762lambda1547za7622149z00);
		BGL_BIND_STRING(BGl_string2049z00zz__tarz00,
			BgL_bgl_string2049za700za7za7_2148za7);
		BGL_BIND_STRING(BGl_string2047z00zz__tarz00,
			BgL_bgl_string2047za700za7za7_2147za7);
		BGL_BIND_STRING(BGl_string2045z00zz__tarz00,
			BgL_bgl_string2045za700za7za7_2146za7);
		BGL_BIND_PROCEDURE(BGl_proc2119z00zz__tarz00,
			BgL_bgl_za762lambda1548za7622145z00);
		BGL_BIND_PROCEDURE(BGl_untarzd2envzd2zz__tarz00,
			BgL_bgl__untarza700za7za7__tar2144za7);
		BGL_BIND_STRING(BGl_string2043z00zz__tarz00,
			BgL_bgl_string2043za700za7za7_2143za7);
		BGL_BIND_STRING(BGl_string2041z00zz__tarz00,
			BgL_bgl_string2041za700za7za7_2142za7);
		BGL_BIND_PROCEDURE(BGl_proc2114z00zz__tarz00,
			BgL_bgl_za762lambda1541za7622141z00);
		BGL_BIND_PROCEDURE(BGl_proc2113z00zz__tarz00,
			BgL_bgl_za762lambda1542za7622140z00);
	}

/* 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_symbol2005z00zz__tarz00));
		ADD_ROOT((void *) (&BGl_symbol2007z00zz__tarz00));
		ADD_ROOT((void *) (&BGl_symbol2009z00zz__tarz00));
		ADD_ROOT((void *) (&BGl_symbol2011z00zz__tarz00));
		ADD_ROOT((void *) (&BGl_symbol2013z00zz__tarz00));
		ADD_ROOT((void *) (&BGl_symbol2015z00zz__tarz00));
		ADD_ROOT((void *) (&BGl_symbol2017z00zz__tarz00));
		ADD_ROOT((void *) (&BGl_symbol2019z00zz__tarz00));
		ADD_ROOT((void *) (&BGl_requirezd2initializa7ationz75zz__tarz00));
		ADD_ROOT((void *) (&BGl_symbol2021z00zz__tarz00));
		ADD_ROOT((void *) (&BGl_symbol2103z00zz__tarz00));
		ADD_ROOT((void *) (&BGl_symbol2023z00zz__tarz00));
		ADD_ROOT((void *) (&BGl_symbol2025z00zz__tarz00));
		ADD_ROOT((void *) (&BGl_symbol2107z00zz__tarz00));
		ADD_ROOT((void *) (&BGl_keyword2077z00zz__tarz00));
		ADD_ROOT((void *) (&BGl_keyword2079z00zz__tarz00));
		ADD_ROOT((void *) (&BGl_symbol2111z00zz__tarz00));
		ADD_ROOT((void *) (&BGl_symbol2115z00zz__tarz00));
		ADD_ROOT((void *) (&BGl_symbol2117z00zz__tarz00));
		ADD_ROOT((void *) (&BGl_symbol2036z00zz__tarz00));
		ADD_ROOT((void *) (&BGl_symbol2038z00zz__tarz00));
		ADD_ROOT((void *) (&BGl_keyword2081z00zz__tarz00));
		ADD_ROOT((void *) (&BGl_symbol2040z00zz__tarz00));
		ADD_ROOT((void *) (&BGl_symbol2042z00zz__tarz00));
		ADD_ROOT((void *) (&BGl_symbol2044z00zz__tarz00));
		ADD_ROOT((void *) (&BGl_symbol2046z00zz__tarz00));
		ADD_ROOT((void *) (&BGl_symbol2048z00zz__tarz00));
		ADD_ROOT((void *) (&BGl_symbol2050z00zz__tarz00));
		ADD_ROOT((void *) (&BGl_symbol2052z00zz__tarz00));
		ADD_ROOT((void *) (&BGl_symbol2134z00zz__tarz00));
		ADD_ROOT((void *) (&BGl_symbol2135z00zz__tarz00));
		ADD_ROOT((void *) (&BGl_symbol2054z00zz__tarz00));
		ADD_ROOT((void *) (&BGl_symbol2056z00zz__tarz00));
		ADD_ROOT((void *) (&BGl_symbol2138z00zz__tarz00));
		ADD_ROOT((void *) (&BGl_symbol2058z00zz__tarz00));
		ADD_ROOT((void *) (&BGl_symbol2060z00zz__tarz00));
		ADD_ROOT((void *) (&BGl_symbol2083z00zz__tarz00));
		ADD_ROOT((void *) (&BGl_symbol2092z00zz__tarz00));
		ADD_ROOT((void *) (&BGl_symbol2096z00zz__tarz00));
		ADD_ROOT((void *) (&BGl_list2076z00zz__tarz00));
		ADD_ROOT((void *) (&BGl_tarzd2headerzd2zz__tarz00));
#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__tarz00(long
		BgL_checksumz00_3185, char *BgL_fromz00_3186)
	{
		{
			if (CBOOL(BGl_requirezd2initializa7ationz75zz__tarz00))
				{
					BGl_requirezd2initializa7ationz75zz__tarz00 = BBOOL(((bool_t) 0));
					bgl_constant_bindings();
					BGl_gczd2rootszd2initz00zz__tarz00();
					BGl_cnstzd2initzd2zz__tarz00();
					BGl_importedzd2moduleszd2initz00zz__tarz00();
					BGl_objectzd2initzd2zz__tarz00();
					return BGl_methodzd2initzd2zz__tarz00();
				}
			else
				{
					return BUNSPEC;
				}
		}

	}



/* cnst-init */
	obj_t BGl_cnstzd2initzd2zz__tarz00(void)
	{
		{	/* Unsafe/tar.scm 17 */
			BGl_symbol2005z00zz__tarz00 =
				bstring_to_symbol(BGl_string2006z00zz__tarz00);
			BGl_symbol2007z00zz__tarz00 =
				bstring_to_symbol(BGl_string2008z00zz__tarz00);
			BGl_symbol2009z00zz__tarz00 =
				bstring_to_symbol(BGl_string2010z00zz__tarz00);
			BGl_symbol2011z00zz__tarz00 =
				bstring_to_symbol(BGl_string2012z00zz__tarz00);
			BGl_symbol2013z00zz__tarz00 =
				bstring_to_symbol(BGl_string2014z00zz__tarz00);
			BGl_symbol2015z00zz__tarz00 =
				bstring_to_symbol(BGl_string2016z00zz__tarz00);
			BGl_symbol2017z00zz__tarz00 =
				bstring_to_symbol(BGl_string2018z00zz__tarz00);
			BGl_symbol2019z00zz__tarz00 =
				bstring_to_symbol(BGl_string2020z00zz__tarz00);
			BGl_symbol2021z00zz__tarz00 =
				bstring_to_symbol(BGl_string2022z00zz__tarz00);
			BGl_symbol2023z00zz__tarz00 =
				bstring_to_symbol(BGl_string2024z00zz__tarz00);
			BGl_symbol2025z00zz__tarz00 =
				bstring_to_symbol(BGl_string2026z00zz__tarz00);
			BGl_symbol2036z00zz__tarz00 =
				bstring_to_symbol(BGl_string2037z00zz__tarz00);
			BGl_symbol2038z00zz__tarz00 =
				bstring_to_symbol(BGl_string2039z00zz__tarz00);
			BGl_symbol2040z00zz__tarz00 =
				bstring_to_symbol(BGl_string2041z00zz__tarz00);
			BGl_symbol2042z00zz__tarz00 =
				bstring_to_symbol(BGl_string2043z00zz__tarz00);
			BGl_symbol2044z00zz__tarz00 =
				bstring_to_symbol(BGl_string2045z00zz__tarz00);
			BGl_symbol2046z00zz__tarz00 =
				bstring_to_symbol(BGl_string2047z00zz__tarz00);
			BGl_symbol2048z00zz__tarz00 =
				bstring_to_symbol(BGl_string2049z00zz__tarz00);
			BGl_symbol2050z00zz__tarz00 =
				bstring_to_symbol(BGl_string2051z00zz__tarz00);
			BGl_symbol2052z00zz__tarz00 =
				bstring_to_symbol(BGl_string2053z00zz__tarz00);
			BGl_symbol2054z00zz__tarz00 =
				bstring_to_symbol(BGl_string2055z00zz__tarz00);
			BGl_symbol2056z00zz__tarz00 =
				bstring_to_symbol(BGl_string2057z00zz__tarz00);
			BGl_symbol2058z00zz__tarz00 =
				bstring_to_symbol(BGl_string2059z00zz__tarz00);
			BGl_symbol2060z00zz__tarz00 =
				bstring_to_symbol(BGl_string2061z00zz__tarz00);
			BGl_keyword2077z00zz__tarz00 =
				bstring_to_keyword(BGl_string2078z00zz__tarz00);
			BGl_keyword2079z00zz__tarz00 =
				bstring_to_keyword(BGl_string2080z00zz__tarz00);
			BGl_keyword2081z00zz__tarz00 =
				bstring_to_keyword(BGl_string2082z00zz__tarz00);
			BGl_list2076z00zz__tarz00 =
				MAKE_YOUNG_PAIR(BGl_keyword2077z00zz__tarz00,
				MAKE_YOUNG_PAIR(BGl_keyword2079z00zz__tarz00,
					MAKE_YOUNG_PAIR(BGl_keyword2081z00zz__tarz00, BNIL)));
			BGl_symbol2083z00zz__tarz00 =
				bstring_to_symbol(BGl_string2084z00zz__tarz00);
			BGl_symbol2092z00zz__tarz00 =
				bstring_to_symbol(BGl_string2093z00zz__tarz00);
			BGl_symbol2096z00zz__tarz00 =
				bstring_to_symbol(BGl_string2070z00zz__tarz00);
			BGl_symbol2103z00zz__tarz00 =
				bstring_to_symbol(BGl_string2104z00zz__tarz00);
			BGl_symbol2107z00zz__tarz00 =
				bstring_to_symbol(BGl_string2108z00zz__tarz00);
			BGl_symbol2111z00zz__tarz00 =
				bstring_to_symbol(BGl_string2112z00zz__tarz00);
			BGl_symbol2115z00zz__tarz00 =
				bstring_to_symbol(BGl_string2116z00zz__tarz00);
			BGl_symbol2117z00zz__tarz00 =
				bstring_to_symbol(BGl_string2118z00zz__tarz00);
			BGl_symbol2134z00zz__tarz00 =
				bstring_to_symbol(BGl_string2074z00zz__tarz00);
			BGl_symbol2135z00zz__tarz00 =
				bstring_to_symbol(BGl_string2136z00zz__tarz00);
			return (BGl_symbol2138z00zz__tarz00 =
				bstring_to_symbol(BGl_string2139z00zz__tarz00), BUNSPEC);
		}

	}



/* gc-roots-init */
	obj_t BGl_gczd2rootszd2initz00zz__tarz00(void)
	{
		{	/* Unsafe/tar.scm 17 */
			return bgl_gc_roots_register();
		}

	}



/* tar-error */
	obj_t BGl_tarzd2errorzd2zz__tarz00(obj_t BgL_msgz00_3, obj_t BgL_objz00_4)
	{
		{	/* Unsafe/tar.scm 79 */
			{	/* Unsafe/tar.scm 80 */
				BgL_z62iozd2parsezd2errorz62_bglt BgL_arg1265z00_1261;

				{	/* Unsafe/tar.scm 80 */
					BgL_z62iozd2parsezd2errorz62_bglt BgL_new1057z00_1262;

					{	/* Unsafe/tar.scm 80 */
						BgL_z62iozd2parsezd2errorz62_bglt BgL_new1056z00_1265;

						BgL_new1056z00_1265 =
							((BgL_z62iozd2parsezd2errorz62_bglt)
							BOBJECT(GC_MALLOC(sizeof(struct
										BgL_z62iozd2parsezd2errorz62_bgl))));
						{	/* Unsafe/tar.scm 80 */
							long BgL_arg1269z00_1266;

							BgL_arg1269z00_1266 =
								BGL_CLASS_NUM(BGl_z62iozd2parsezd2errorz62zz__objectz00);
							BGL_OBJECT_CLASS_NUM_SET(
								((BgL_objectz00_bglt) BgL_new1056z00_1265),
								BgL_arg1269z00_1266);
						}
						BgL_new1057z00_1262 = BgL_new1056z00_1265;
					}
					((((BgL_z62exceptionz62_bglt) COBJECT(
									((BgL_z62exceptionz62_bglt) BgL_new1057z00_1262)))->
							BgL_fnamez00) = ((obj_t) BFALSE), BUNSPEC);
					((((BgL_z62exceptionz62_bglt) COBJECT(((BgL_z62exceptionz62_bglt)
										BgL_new1057z00_1262)))->BgL_locationz00) =
						((obj_t) BFALSE), BUNSPEC);
					{
						obj_t BgL_auxz00_3246;

						{	/* Unsafe/tar.scm 80 */
							obj_t BgL_arg1266z00_1263;

							{	/* Unsafe/tar.scm 80 */
								obj_t BgL_arg1267z00_1264;

								{	/* Unsafe/tar.scm 80 */
									obj_t BgL_classz00_2210;

									BgL_classz00_2210 = BGl_z62iozd2parsezd2errorz62zz__objectz00;
									BgL_arg1267z00_1264 = BGL_CLASS_ALL_FIELDS(BgL_classz00_2210);
								}
								BgL_arg1266z00_1263 = VECTOR_REF(BgL_arg1267z00_1264, 2L);
							}
							BgL_auxz00_3246 =
								BGl_classzd2fieldzd2defaultzd2valuezd2zz__objectz00
								(BgL_arg1266z00_1263);
						}
						((((BgL_z62exceptionz62_bglt) COBJECT(
										((BgL_z62exceptionz62_bglt) BgL_new1057z00_1262)))->
								BgL_stackz00) = ((obj_t) BgL_auxz00_3246), BUNSPEC);
					}
					((((BgL_z62errorz62_bglt) COBJECT(
									((BgL_z62errorz62_bglt) BgL_new1057z00_1262)))->BgL_procz00) =
						((obj_t) BGl_symbol2005z00zz__tarz00), BUNSPEC);
					((((BgL_z62errorz62_bglt) COBJECT(((BgL_z62errorz62_bglt)
										BgL_new1057z00_1262)))->BgL_msgz00) =
						((obj_t) BgL_msgz00_3), BUNSPEC);
					((((BgL_z62errorz62_bglt) COBJECT(((BgL_z62errorz62_bglt)
										BgL_new1057z00_1262)))->BgL_objz00) =
						((obj_t) BgL_objz00_4), BUNSPEC);
					BgL_arg1265z00_1261 = BgL_new1057z00_1262;
				}
				return BGl_raisez00zz__errorz00(((obj_t) BgL_arg1265z00_1261));
			}
		}

	}



/* tar-type-name */
	obj_t BGl_tarzd2typezd2namez00zz__tarz00(unsigned char BgL_cz00_5)
	{
		{	/* Unsafe/tar.scm 99 */
			switch (BgL_cz00_5)
				{
				case ((unsigned char) '\000'):

					return BGl_symbol2007z00zz__tarz00;
					break;
				case ((unsigned char) '0'):

					return BGl_symbol2009z00zz__tarz00;
					break;
				case ((unsigned char) '1'):

					return BGl_symbol2011z00zz__tarz00;
					break;
				case ((unsigned char) '2'):

					return BGl_symbol2013z00zz__tarz00;
					break;
				case ((unsigned char) '3'):

					return BGl_symbol2015z00zz__tarz00;
					break;
				case ((unsigned char) '4'):

					return BGl_symbol2017z00zz__tarz00;
					break;
				case ((unsigned char) '5'):

					return BGl_symbol2019z00zz__tarz00;
					break;
				case ((unsigned char) '6'):

					return BGl_symbol2021z00zz__tarz00;
					break;
				case ((unsigned char) '7'):

					return BGl_symbol2023z00zz__tarz00;
					break;
				case ((unsigned char) 'L'):

					return BGl_symbol2025z00zz__tarz00;
					break;
				default:
					return
						BGl_tarzd2errorzd2zz__tarz00(BGl_string2027z00zz__tarz00,
						BCHAR(BgL_cz00_5));
				}
		}

	}



/* checksum */
	long BGl_checksumz00zz__tarz00(obj_t BgL_bufz00_10)
	{
		{	/* Unsafe/tar.scm 125 */
			{	/* Unsafe/tar.scm 126 */
				long BgL_pz00_1276;

				BgL_pz00_1276 = (100L + 48L);
				{	/* Unsafe/tar.scm 126 */
					obj_t BgL_b2z00_1277;

					{	/* Unsafe/tar.scm 128 */
						obj_t BgL_arg1282z00_1290;
						obj_t BgL_arg1283z00_1291;

						BgL_arg1282z00_1290 =
							c_substring(((obj_t) BgL_bufz00_10), 0L, BgL_pz00_1276);
						{	/* Unsafe/tar.scm 130 */
							long BgL_arg1285z00_1292;
							long BgL_arg1287z00_1293;

							BgL_arg1285z00_1292 = (BgL_pz00_1276 + 8L);
							BgL_arg1287z00_1293 = STRING_LENGTH(((obj_t) BgL_bufz00_10));
							BgL_arg1283z00_1291 =
								c_substring(
								((obj_t) BgL_bufz00_10), BgL_arg1285z00_1292,
								BgL_arg1287z00_1293);
						}
						BgL_b2z00_1277 =
							string_append_3(BgL_arg1282z00_1290, BGl_string2029z00zz__tarz00,
							BgL_arg1283z00_1291);
					}
					{	/* Unsafe/tar.scm 127 */

						{
							long BgL_iz00_2252;
							long BgL_sz00_2253;

							BgL_iz00_2252 = 0L;
							BgL_sz00_2253 = 0L;
						BgL_dozd2loopzd2zd21062zd2_2251:
							if ((BgL_iz00_2252 >= 512L))
								{	/* Unsafe/tar.scm 131 */
									return BgL_sz00_2253;
								}
							else
								{
									long BgL_sz00_3276;
									long BgL_iz00_3274;

									BgL_iz00_3274 = (1L + BgL_iz00_2252);
									BgL_sz00_3276 =
										(BgL_sz00_2253 +
										(STRING_REF(BgL_b2z00_1277, BgL_iz00_2252)));
									BgL_sz00_2253 = BgL_sz00_3276;
									BgL_iz00_2252 = BgL_iz00_3274;
									goto BgL_dozd2loopzd2zd21062zd2_2251;
								}
						}
					}
				}
			}
		}

	}



/* _tar-read-header */
	obj_t BGl__tarzd2readzd2headerz00zz__tarz00(obj_t BgL_env1161z00_14,
		obj_t BgL_opt1160z00_13)
	{
		{	/* Unsafe/tar.scm 138 */
			{	/* Unsafe/tar.scm 138 */

				{	/* Unsafe/tar.scm 138 */
					long BgL_aux1163z00_1296;

					{
						obj_t BgL_auxz00_3280;

						if (VECTORP(BgL_opt1160z00_13))
							{	/* Unsafe/tar.scm 138 */
								BgL_auxz00_3280 = BgL_opt1160z00_13;
							}
						else
							{
								obj_t BgL_auxz00_3283;

								BgL_auxz00_3283 =
									BGl_typezd2errorzd2zz__errorz00(BGl_string2030z00zz__tarz00,
									BINT(4962L), BGl_string2031z00zz__tarz00,
									BGl_string2032z00zz__tarz00, BgL_opt1160z00_13);
								FAILURE(BgL_auxz00_3283, BFALSE, BFALSE);
							}
						BgL_aux1163z00_1296 = VECTOR_LENGTH(BgL_auxz00_3280);
					}
					switch (BgL_aux1163z00_1296)
						{
						case 0L:

							{	/* Unsafe/tar.scm 138 */
								obj_t BgL_portz00_1297;

								{	/* Unsafe/tar.scm 138 */
									obj_t BgL_tmpz00_3288;

									BgL_tmpz00_3288 = BGL_CURRENT_DYNAMIC_ENV();
									BgL_portz00_1297 =
										BGL_ENV_CURRENT_INPUT_PORT(BgL_tmpz00_3288);
								}
								{	/* Unsafe/tar.scm 138 */

									return
										BGl_tarzd2readzd2headerz00zz__tarz00(BgL_portz00_1297,
										BFALSE);
								}
							}
							break;
						case 1L:

							{	/* Unsafe/tar.scm 138 */
								obj_t BgL_portz00_1299;

								{
									obj_t BgL_auxz00_3292;

									if (VECTORP(BgL_opt1160z00_13))
										{	/* Unsafe/tar.scm 138 */
											BgL_auxz00_3292 = BgL_opt1160z00_13;
										}
									else
										{
											obj_t BgL_auxz00_3295;

											BgL_auxz00_3295 =
												BGl_typezd2errorzd2zz__errorz00
												(BGl_string2030z00zz__tarz00, BINT(4962L),
												BGl_string2031z00zz__tarz00,
												BGl_string2032z00zz__tarz00, BgL_opt1160z00_13);
											FAILURE(BgL_auxz00_3295, BFALSE, BFALSE);
										}
									BgL_portz00_1299 = VECTOR_REF(BgL_auxz00_3292, 0L);
								}
								{	/* Unsafe/tar.scm 138 */

									return
										BGl_tarzd2readzd2headerz00zz__tarz00(BgL_portz00_1299,
										BFALSE);
								}
							}
							break;
						case 2L:

							{	/* Unsafe/tar.scm 138 */
								obj_t BgL_portz00_1301;

								{
									obj_t BgL_auxz00_3301;

									if (VECTORP(BgL_opt1160z00_13))
										{	/* Unsafe/tar.scm 138 */
											BgL_auxz00_3301 = BgL_opt1160z00_13;
										}
									else
										{
											obj_t BgL_auxz00_3304;

											BgL_auxz00_3304 =
												BGl_typezd2errorzd2zz__errorz00
												(BGl_string2030z00zz__tarz00, BINT(4962L),
												BGl_string2031z00zz__tarz00,
												BGl_string2032z00zz__tarz00, BgL_opt1160z00_13);
											FAILURE(BgL_auxz00_3304, BFALSE, BFALSE);
										}
									BgL_portz00_1301 = VECTOR_REF(BgL_auxz00_3301, 0L);
								}
								{	/* Unsafe/tar.scm 138 */
									obj_t BgL_longnamez00_1302;

									{
										obj_t BgL_auxz00_3309;

										if (VECTORP(BgL_opt1160z00_13))
											{	/* Unsafe/tar.scm 138 */
												BgL_auxz00_3309 = BgL_opt1160z00_13;
											}
										else
											{
												obj_t BgL_auxz00_3312;

												BgL_auxz00_3312 =
													BGl_typezd2errorzd2zz__errorz00
													(BGl_string2030z00zz__tarz00, BINT(4962L),
													BGl_string2031z00zz__tarz00,
													BGl_string2032z00zz__tarz00, BgL_opt1160z00_13);
												FAILURE(BgL_auxz00_3312, BFALSE, BFALSE);
											}
										BgL_longnamez00_1302 = VECTOR_REF(BgL_auxz00_3309, 1L);
									}
									{	/* Unsafe/tar.scm 138 */

										return
											BGl_tarzd2readzd2headerz00zz__tarz00(BgL_portz00_1301,
											BgL_longnamez00_1302);
									}
								}
							}
							break;
						default:
							return BUNSPEC;
						}
				}
			}
		}

	}



/* tar-read-header */
	BGL_EXPORTED_DEF obj_t BGl_tarzd2readzd2headerz00zz__tarz00(obj_t
		BgL_portz00_11, obj_t BgL_longnamez00_12)
	{
		{	/* Unsafe/tar.scm 138 */
			if (INPUT_PORTP(BgL_portz00_11))
				{	/* Unsafe/tar.scm 139 */
					BFALSE;
				}
			else
				{	/* Unsafe/tar.scm 139 */
					BGl_bigloozd2typezd2errorz00zz__errorz00(BGl_string2033z00zz__tarz00,
						BGl_string2034z00zz__tarz00, BgL_portz00_11);
				}
			{	/* Unsafe/tar.scm 141 */
				struct bgl_unsafe_cell BgL_box2247_3041z00;
				obj_t BgL_ptrz00_3041;

				BgL_ptrz00_3041 =
					BGL_MAKE_UNSAFE_CELL_STACK(BINT(0L), BgL_box2247_3041z00);
				{	/* Unsafe/tar.scm 141 */
					obj_t BgL_dataz00_1305;

					BgL_dataz00_1305 =
						BGl_readzd2charszd2zz__r4_input_6_10_2z00(BINT(512L),
						BgL_portz00_11);
					{	/* Unsafe/tar.scm 142 */
						long BgL_lenz00_1306;

						BgL_lenz00_1306 = STRING_LENGTH(((obj_t) BgL_dataz00_1305));
						{	/* Unsafe/tar.scm 143 */

							{

								{	/* Unsafe/tar.scm 170 */
									obj_t BgL_namez00_1309;

									{	/* Unsafe/tar.scm 170 */
										bool_t BgL_test2248z00_3327;

										if (STRINGP(BgL_dataz00_1305))
											{	/* Unsafe/tar.scm 170 */
												BgL_test2248z00_3327 =
													(STRING_LENGTH(BgL_dataz00_1305) == 0L);
											}
										else
											{	/* Unsafe/tar.scm 170 */
												BgL_test2248z00_3327 = ((bool_t) 1);
											}
										if (BgL_test2248z00_3327)
											{	/* Unsafe/tar.scm 170 */
												BgL_namez00_1309 = BGl_string2035z00zz__tarz00;
											}
										else
											{	/* Unsafe/tar.scm 170 */
												BgL_namez00_1309 =
													BGl_extractze70ze7zz__tarz00(BgL_longnamez00_12,
													BgL_lenz00_1306, BgL_portz00_11, BgL_dataz00_1305,
													BgL_ptrz00_3041, BGl_symbol2036z00zz__tarz00, 100L);
											}
									}
									if ((STRING_LENGTH(((obj_t) BgL_namez00_1309)) > 0L))
										{	/* Unsafe/tar.scm 174 */
											obj_t BgL_modez00_1312;

											{	/* Unsafe/tar.scm 174 */
												obj_t BgL_arg1353z00_1362;

												BgL_arg1353z00_1362 =
													BGl_extractze70ze7zz__tarz00(BgL_longnamez00_12,
													BgL_lenz00_1306, BgL_portz00_11, BgL_dataz00_1305,
													BgL_ptrz00_3041, BGl_symbol2038z00zz__tarz00, 8L);
												{	/* Unsafe/tar.scm 174 */

													{	/* Unsafe/tar.scm 117 */
														long BgL__ortest_1061z00_2307;

														{	/* Unsafe/tar.scm 117 */
															char *BgL_tmpz00_3338;

															BgL_tmpz00_3338 =
																BSTRING_TO_STRING(BgL_arg1353z00_1362);
															BgL__ortest_1061z00_2307 =
																BGL_STRTOL(BgL_tmpz00_3338, 0L, 8L);
														}
														BgL_modez00_1312 = BINT(BgL__ortest_1061z00_2307);
											}}}
											{	/* Unsafe/tar.scm 174 */
												obj_t BgL_uidz00_1313;

												{	/* Unsafe/tar.scm 175 */
													obj_t BgL_arg1352z00_1359;

													BgL_arg1352z00_1359 =
														BGl_extractze70ze7zz__tarz00(BgL_longnamez00_12,
														BgL_lenz00_1306, BgL_portz00_11, BgL_dataz00_1305,
														BgL_ptrz00_3041, BGl_symbol2040z00zz__tarz00, 8L);
													{	/* Unsafe/tar.scm 175 */

														{	/* Unsafe/tar.scm 117 */
															long BgL__ortest_1061z00_2308;

															{	/* Unsafe/tar.scm 117 */
																char *BgL_tmpz00_3343;

																BgL_tmpz00_3343 =
																	BSTRING_TO_STRING(BgL_arg1352z00_1359);
																BgL__ortest_1061z00_2308 =
																	BGL_STRTOL(BgL_tmpz00_3343, 0L, 8L);
															}
															BgL_uidz00_1313 = BINT(BgL__ortest_1061z00_2308);
												}}}
												{	/* Unsafe/tar.scm 175 */
													obj_t BgL_gidz00_1314;

													{	/* Unsafe/tar.scm 176 */
														obj_t BgL_arg1351z00_1356;

														BgL_arg1351z00_1356 =
															BGl_extractze70ze7zz__tarz00(BgL_longnamez00_12,
															BgL_lenz00_1306, BgL_portz00_11, BgL_dataz00_1305,
															BgL_ptrz00_3041, BGl_symbol2042z00zz__tarz00, 8L);
														{	/* Unsafe/tar.scm 176 */

															{	/* Unsafe/tar.scm 117 */
																long BgL__ortest_1061z00_2309;

																{	/* Unsafe/tar.scm 117 */
																	char *BgL_tmpz00_3348;

																	BgL_tmpz00_3348 =
																		BSTRING_TO_STRING(BgL_arg1351z00_1356);
																	BgL__ortest_1061z00_2309 =
																		BGL_STRTOL(BgL_tmpz00_3348, 0L, 8L);
																}
																BgL_gidz00_1314 =
																	BINT(BgL__ortest_1061z00_2309);
													}}}
													{	/* Unsafe/tar.scm 176 */
														long BgL_siza7eza7_1315;

														BgL_siza7eza7_1315 =
															BGl_stringzd2ze3elongz31zz__r4_numbers_6_5_fixnumz00
															(BGl_extractze70ze7zz__tarz00(BgL_longnamez00_12,
																BgL_lenz00_1306, BgL_portz00_11,
																BgL_dataz00_1305, BgL_ptrz00_3041,
																BGl_symbol2044z00zz__tarz00, 12L), 8L);
														{	/* Unsafe/tar.scm 177 */
															long BgL_mtimez00_1316;

															BgL_mtimez00_1316 =
																BGl_stringzd2ze3elongz31zz__r4_numbers_6_5_fixnumz00
																(BGl_extractze70ze7zz__tarz00
																(BgL_longnamez00_12, BgL_lenz00_1306,
																	BgL_portz00_11, BgL_dataz00_1305,
																	BgL_ptrz00_3041, BGl_symbol2046z00zz__tarz00,
																	12L), 8L);
															{	/* Unsafe/tar.scm 178 */
																obj_t BgL_chksumz00_1317;

																{	/* Unsafe/tar.scm 179 */
																	obj_t BgL_arg1346z00_1351;

																	BgL_arg1346z00_1351 =
																		BGl_extractze70ze7zz__tarz00
																		(BgL_longnamez00_12, BgL_lenz00_1306,
																		BgL_portz00_11, BgL_dataz00_1305,
																		BgL_ptrz00_3041,
																		BGl_symbol2048z00zz__tarz00, 8L);
																	{	/* Unsafe/tar.scm 179 */

																		{	/* Unsafe/tar.scm 117 */
																			long BgL__ortest_1061z00_2310;

																			{	/* Unsafe/tar.scm 117 */
																				char *BgL_tmpz00_3357;

																				BgL_tmpz00_3357 =
																					BSTRING_TO_STRING
																					(BgL_arg1346z00_1351);
																				BgL__ortest_1061z00_2310 =
																					BGL_STRTOL(BgL_tmpz00_3357, 0L, 8L);
																			}
																			BgL_chksumz00_1317 =
																				BINT(BgL__ortest_1061z00_2310);
																}}}
																{	/* Unsafe/tar.scm 179 */
																	unsigned char BgL_linkflagz00_1318;

																	{	/* Unsafe/tar.scm 167 */
																		unsigned char BgL_cz00_1392;

																		BgL_cz00_1392 =
																			STRING_REF(
																			((obj_t) BgL_dataz00_1305),
																			(long) CINT(
																				((obj_t)
																					((obj_t)
																						BGL_UNSAFE_CELL_REF
																						(BgL_ptrz00_3041)))));
																		{	/* Unsafe/tar.scm 168 */
																			obj_t BgL_auxz00_3042;

																			BgL_auxz00_3042 =
																				ADDFX(BINT(1L),
																				((obj_t)
																					((obj_t)
																						BGL_UNSAFE_CELL_REF
																						(BgL_ptrz00_3041))));
																			BGL_UNSAFE_CELL_SET(BgL_ptrz00_3041,
																				BgL_auxz00_3042);
																		}
																		BgL_linkflagz00_1318 = BgL_cz00_1392;
																	}
																	{	/* Unsafe/tar.scm 180 */
																		obj_t BgL_linknamez00_1319;

																		BgL_linknamez00_1319 =
																			BGl_extractze70ze7zz__tarz00
																			(BgL_longnamez00_12, BgL_lenz00_1306,
																			BgL_portz00_11, BgL_dataz00_1305,
																			BgL_ptrz00_3041,
																			BGl_symbol2050z00zz__tarz00, 100L);
																		{	/* Unsafe/tar.scm 181 */
																			obj_t BgL_magicz00_1320;

																			BgL_magicz00_1320 =
																				BGl_extractze70ze7zz__tarz00
																				(BgL_longnamez00_12, BgL_lenz00_1306,
																				BgL_portz00_11, BgL_dataz00_1305,
																				BgL_ptrz00_3041,
																				BGl_symbol2052z00zz__tarz00, 8L);
																			{	/* Unsafe/tar.scm 182 */
																				obj_t BgL_unamez00_1321;

																				BgL_unamez00_1321 =
																					BGl_extractze70ze7zz__tarz00
																					(BgL_longnamez00_12, BgL_lenz00_1306,
																					BgL_portz00_11, BgL_dataz00_1305,
																					BgL_ptrz00_3041,
																					BGl_symbol2054z00zz__tarz00, 32L);
																				{	/* Unsafe/tar.scm 183 */
																					obj_t BgL_gnamez00_1322;

																					BgL_gnamez00_1322 =
																						BGl_extractze70ze7zz__tarz00
																						(BgL_longnamez00_12,
																						BgL_lenz00_1306, BgL_portz00_11,
																						BgL_dataz00_1305, BgL_ptrz00_3041,
																						BGl_symbol2056z00zz__tarz00, 32L);
																					{	/* Unsafe/tar.scm 184 */
																						long BgL_devmajorz00_1323;

																						{	/* Unsafe/tar.scm 185 */
																							obj_t BgL_arg1341z00_1347;

																							BgL_arg1341z00_1347 =
																								BGl_extractze70ze7zz__tarz00
																								(BgL_longnamez00_12,
																								BgL_lenz00_1306, BgL_portz00_11,
																								BgL_dataz00_1305,
																								BgL_ptrz00_3041,
																								BGl_symbol2058z00zz__tarz00,
																								8L);
																							{	/* Unsafe/tar.scm 117 */
																								long BgL__ortest_1061z00_2311;

																								{	/* Unsafe/tar.scm 117 */
																									char *BgL_tmpz00_3373;

																									BgL_tmpz00_3373 =
																										BSTRING_TO_STRING
																										(BgL_arg1341z00_1347);
																									BgL__ortest_1061z00_2311 =
																										BGL_STRTOL(BgL_tmpz00_3373,
																										0L, 8L);
																								}
																								BgL_devmajorz00_1323 =
																									BgL__ortest_1061z00_2311;
																						}}
																						{	/* Unsafe/tar.scm 185 */
																							long BgL_devminorz00_1324;

																							{	/* Unsafe/tar.scm 186 */
																								obj_t BgL_arg1339z00_1346;

																								BgL_arg1339z00_1346 =
																									BGl_extractze70ze7zz__tarz00
																									(BgL_longnamez00_12,
																									BgL_lenz00_1306,
																									BgL_portz00_11,
																									BgL_dataz00_1305,
																									BgL_ptrz00_3041,
																									BGl_symbol2060z00zz__tarz00,
																									8L);
																								{	/* Unsafe/tar.scm 117 */
																									long BgL__ortest_1061z00_2312;

																									{	/* Unsafe/tar.scm 117 */
																										char *BgL_tmpz00_3377;

																										BgL_tmpz00_3377 =
																											BSTRING_TO_STRING
																											(BgL_arg1339z00_1346);
																										BgL__ortest_1061z00_2312 =
																											BGL_STRTOL
																											(BgL_tmpz00_3377, 0L, 8L);
																									}
																									BgL_devminorz00_1324 =
																										BgL__ortest_1061z00_2312;
																							}}
																							{	/* Unsafe/tar.scm 186 */
																								long BgL_csum2z00_1325;

																								BgL_csum2z00_1325 =
																									BGl_checksumz00zz__tarz00
																									(BgL_dataz00_1305);
																								{	/* Unsafe/tar.scm 187 */

																									{	/* Unsafe/tar.scm 189 */
																										bool_t BgL_test2251z00_3381;

																										{	/* Unsafe/tar.scm 189 */
																											bool_t
																												BgL_test2252z00_3382;
																											if ((7L ==
																													STRING_LENGTH(((obj_t)
																															BgL_magicz00_1320))))
																												{	/* Unsafe/tar.scm 189 */
																													int
																														BgL_arg1702z00_2318;
																													{	/* Unsafe/tar.scm 189 */
																														char
																															*BgL_auxz00_3389;
																														char
																															*BgL_tmpz00_3387;
																														BgL_auxz00_3389 =
																															BSTRING_TO_STRING(
																															((obj_t)
																																BgL_magicz00_1320));
																														BgL_tmpz00_3387 =
																															BSTRING_TO_STRING
																															(BGl_string2062z00zz__tarz00);
																														BgL_arg1702z00_2318
																															=
																															memcmp
																															(BgL_tmpz00_3387,
																															BgL_auxz00_3389,
																															7L);
																													}
																													BgL_test2252z00_3382 =
																														(
																														(long)
																														(BgL_arg1702z00_2318)
																														== 0L);
																												}
																											else
																												{	/* Unsafe/tar.scm 189 */
																													BgL_test2252z00_3382 =
																														((bool_t) 0);
																												}
																											if (BgL_test2252z00_3382)
																												{	/* Unsafe/tar.scm 189 */
																													BgL_test2251z00_3381 =
																														((bool_t) 1);
																												}
																											else
																												{	/* Unsafe/tar.scm 190 */
																													bool_t
																														BgL_test2254z00_3395;
																													if ((5L ==
																															STRING_LENGTH((
																																	(obj_t)
																																	BgL_magicz00_1320))))
																														{	/* Unsafe/tar.scm 190 */
																															int
																																BgL_arg1702z00_2329;
																															{	/* Unsafe/tar.scm 190 */
																																char
																																	*BgL_auxz00_3402;
																																char
																																	*BgL_tmpz00_3400;
																																BgL_auxz00_3402
																																	=
																																	BSTRING_TO_STRING
																																	(((obj_t)
																																		BgL_magicz00_1320));
																																BgL_tmpz00_3400
																																	=
																																	BSTRING_TO_STRING
																																	(BGl_string2063z00zz__tarz00);
																																BgL_arg1702z00_2329
																																	=
																																	memcmp
																																	(BgL_tmpz00_3400,
																																	BgL_auxz00_3402,
																																	5L);
																															}
																															BgL_test2254z00_3395
																																=
																																((long)
																																(BgL_arg1702z00_2329)
																																== 0L);
																														}
																													else
																														{	/* Unsafe/tar.scm 190 */
																															BgL_test2254z00_3395
																																= ((bool_t) 0);
																														}
																													if (BgL_test2254z00_3395)
																														{	/* Unsafe/tar.scm 190 */
																															BgL_test2251z00_3381
																																= ((bool_t) 1);
																														}
																													else
																														{	/* Unsafe/tar.scm 190 */
																															if (
																																(7L ==
																																	STRING_LENGTH(
																																		((obj_t)
																																			BgL_magicz00_1320))))
																																{	/* Unsafe/tar.scm 191 */
																																	int
																																		BgL_arg1702z00_2340;
																																	{	/* Unsafe/tar.scm 191 */
																																		char
																																			*BgL_auxz00_3414;
																																		char
																																			*BgL_tmpz00_3412;
																																		BgL_auxz00_3414
																																			=
																																			BSTRING_TO_STRING
																																			(((obj_t)
																																				BgL_magicz00_1320));
																																		BgL_tmpz00_3412
																																			=
																																			BSTRING_TO_STRING
																																			(BGl_string2064z00zz__tarz00);
																																		BgL_arg1702z00_2340
																																			=
																																			memcmp
																																			(BgL_tmpz00_3412,
																																			BgL_auxz00_3414,
																																			7L);
																																	}
																																	BgL_test2251z00_3381
																																		=
																																		((long)
																																		(BgL_arg1702z00_2340)
																																		== 0L);
																																}
																															else
																																{	/* Unsafe/tar.scm 191 */
																																	BgL_test2251z00_3381
																																		=
																																		((bool_t)
																																		0);
																																}
																														}
																												}
																										}
																										if (BgL_test2251z00_3381)
																											{	/* Unsafe/tar.scm 189 */
																												if (
																													(BgL_csum2z00_1325 ==
																														(long)
																														CINT
																														(BgL_chksumz00_1317)))
																													{	/* Unsafe/tar.scm 198 */
																														BgL_tarzd2headerzd2_bglt
																															BgL_new1065z00_1335;
																														{	/* Unsafe/tar.scm 199 */
																															BgL_tarzd2headerzd2_bglt
																																BgL_new1064z00_1336;
																															BgL_new1064z00_1336
																																=
																																(
																																(BgL_tarzd2headerzd2_bglt)
																																BOBJECT
																																(GC_MALLOC
																																	(sizeof(struct
																																			BgL_tarzd2headerzd2_bgl))));
																															{	/* Unsafe/tar.scm 199 */
																																long
																																	BgL_arg1332z00_1337;
																																BgL_arg1332z00_1337
																																	=
																																	BGL_CLASS_NUM
																																	(BGl_tarzd2headerzd2zz__tarz00);
																																BGL_OBJECT_CLASS_NUM_SET
																																	(((BgL_objectz00_bglt) BgL_new1064z00_1336), BgL_arg1332z00_1337);
																															}
																															BgL_new1065z00_1335
																																=
																																BgL_new1064z00_1336;
																														}
																														((((BgL_tarzd2headerzd2_bglt) COBJECT(BgL_new1065z00_1335))->BgL_namez00) = ((obj_t) BgL_namez00_1309), BUNSPEC);
																														((((BgL_tarzd2headerzd2_bglt) COBJECT(BgL_new1065z00_1335))->BgL_modez00) = ((long) (long) CINT(BgL_modez00_1312)), BUNSPEC);
																														((((BgL_tarzd2headerzd2_bglt) COBJECT(BgL_new1065z00_1335))->BgL_uidz00) = ((long) (long) CINT(BgL_uidz00_1313)), BUNSPEC);
																														((((BgL_tarzd2headerzd2_bglt) COBJECT(BgL_new1065z00_1335))->BgL_gidz00) = ((long) (long) CINT(BgL_gidz00_1314)), BUNSPEC);
																														((((BgL_tarzd2headerzd2_bglt) COBJECT(BgL_new1065z00_1335))->BgL_siza7eza7) = ((long) BgL_siza7eza7_1315), BUNSPEC);
																														((((BgL_tarzd2headerzd2_bglt) COBJECT(BgL_new1065z00_1335))->BgL_mtimez00) = ((obj_t) bgl_seconds_to_date(BgL_mtimez00_1316)), BUNSPEC);
																														((((BgL_tarzd2headerzd2_bglt) COBJECT(BgL_new1065z00_1335))->BgL_checksumz00) = ((long) (long) CINT(BgL_chksumz00_1317)), BUNSPEC);
																														((((BgL_tarzd2headerzd2_bglt) COBJECT(BgL_new1065z00_1335))->BgL_typez00) = ((obj_t) BGl_tarzd2typezd2namez00zz__tarz00(BgL_linkflagz00_1318)), BUNSPEC);
																														((((BgL_tarzd2headerzd2_bglt) COBJECT(BgL_new1065z00_1335))->BgL_linknamez00) = ((obj_t) BgL_linknamez00_1319), BUNSPEC);
																														((((BgL_tarzd2headerzd2_bglt) COBJECT(BgL_new1065z00_1335))->BgL_magicz00) = ((obj_t) BgL_magicz00_1320), BUNSPEC);
																														((((BgL_tarzd2headerzd2_bglt) COBJECT(BgL_new1065z00_1335))->BgL_unamez00) = ((obj_t) BgL_unamez00_1321), BUNSPEC);
																														((((BgL_tarzd2headerzd2_bglt) COBJECT(BgL_new1065z00_1335))->BgL_gnamez00) = ((obj_t) BgL_gnamez00_1322), BUNSPEC);
																														((((BgL_tarzd2headerzd2_bglt) COBJECT(BgL_new1065z00_1335))->BgL_devmajorz00) = ((long) BgL_devmajorz00_1323), BUNSPEC);
																														((((BgL_tarzd2headerzd2_bglt) COBJECT(BgL_new1065z00_1335))->BgL_devminorz00) = ((long) BgL_devminorz00_1324), BUNSPEC);
																														return
																															((obj_t)
																															BgL_new1065z00_1335);
																													}
																												else
																													{	/* Unsafe/tar.scm 195 */
																														obj_t
																															BgL_arg1333z00_1338;
																														{	/* Unsafe/tar.scm 195 */
																															obj_t
																																BgL_list1334z00_1339;
																															BgL_list1334z00_1339
																																=
																																MAKE_YOUNG_PAIR
																																(BgL_chksumz00_1317,
																																BNIL);
																															BgL_arg1333z00_1338
																																=
																																BGl_formatz00zz__r4_output_6_10_3z00
																																(BGl_string2065z00zz__tarz00,
																																BgL_list1334z00_1339);
																														}
																														return
																															BGl_tarzd2errorzd2zz__tarz00
																															(BgL_arg1333z00_1338,
																															BINT
																															(BgL_csum2z00_1325));
																													}
																											}
																										else
																											{	/* Unsafe/tar.scm 192 */
																												obj_t
																													BgL_arg1335z00_1340;
																												BgL_arg1335z00_1340 =
																													string_for_read((
																														(obj_t)
																														BgL_magicz00_1320));
																												return
																													BGl_tarzd2errorzd2zz__tarz00
																													(BGl_string2066z00zz__tarz00,
																													BgL_arg1335z00_1340);
																											}
																									}
																								}
																							}
																						}
																					}
																				}
																			}
																		}
																	}
																}
															}
														}
													}
												}
											}
										}
									else
										{	/* Unsafe/tar.scm 173 */
											return BFALSE;
										}
								}
							}
						}
					}
				}
			}
		}

	}



/* extract~0 */
	obj_t BGl_extractze70ze7zz__tarz00(obj_t BgL_longnamez00_3038,
		long BgL_lenz00_3037, obj_t BgL_portz00_3036, obj_t BgL_dataz00_3035,
		obj_t BgL_ptrz00_3034, obj_t BgL_whatz00_1372, long BgL_siza7eza7_1373)
	{
		{	/* Unsafe/tar.scm 165 */
			{
				long BgL_iz00_1376;

				BgL_iz00_1376 = 0L;
			BgL_zc3z04anonymousza31362ze3z87_1377:
				if ((BgL_iz00_1376 >= BgL_siza7eza7_1373))
					{	/* Unsafe/tar.scm 147 */
						if (CBOOL(BgL_longnamez00_3038))
							{	/* Unsafe/tar.scm 148 */
								{	/* Unsafe/tar.scm 150 */
									obj_t BgL_auxz00_3039;

									BgL_auxz00_3039 =
										ADDFX(
										((obj_t)
											((obj_t) BGL_UNSAFE_CELL_REF(BgL_ptrz00_3034))),
										BINT(BgL_siza7eza7_1373));
									BGL_UNSAFE_CELL_SET(BgL_ptrz00_3034, BgL_auxz00_3039);
								}
								{	/* Unsafe/tar.scm 152 */
									long BgL_arg1364z00_1379;

									BgL_arg1364z00_1379 =
										(STRING_LENGTH(((obj_t) BgL_longnamez00_3038)) - 1L);
									{	/* Unsafe/tar.scm 151 */
										obj_t BgL_tmpz00_3465;

										BgL_tmpz00_3465 = ((obj_t) BgL_longnamez00_3038);
										return
											bgl_string_shrink(BgL_tmpz00_3465, BgL_arg1364z00_1379);
									}
								}
							}
						else
							{	/* Unsafe/tar.scm 154 */
								obj_t BgL_arg1366z00_1381;

								{	/* Unsafe/tar.scm 154 */
									obj_t BgL_list1367z00_1382;

									BgL_list1367z00_1382 =
										MAKE_YOUNG_PAIR(BgL_whatz00_1372, BNIL);
									BgL_arg1366z00_1381 =
										BGl_formatz00zz__r4_output_6_10_3z00
										(BGl_string2067z00zz__tarz00, BgL_list1367z00_1382);
								}
								return
									BGl_tarzd2errorzd2zz__tarz00(BgL_arg1366z00_1381,
									BINT(BgL_siza7eza7_1373));
							}
					}
				else
					{	/* Unsafe/tar.scm 147 */
						if ((BgL_iz00_1376 >= BgL_lenz00_3037))
							{	/* Unsafe/tar.scm 156 */
								return
									BGl_tarzd2errorzd2zz__tarz00(BGl_string2068z00zz__tarz00,
									BgL_portz00_3036);
							}
						else
							{	/* Unsafe/tar.scm 159 */
								unsigned char BgL_cz00_1384;

								{	/* Unsafe/tar.scm 159 */
									long BgL_tmpz00_3475;

									{	/* Unsafe/tar.scm 159 */
										long BgL_za71za7_2286;

										BgL_za71za7_2286 =
											(long) CINT(
											((obj_t) ((obj_t) BGL_UNSAFE_CELL_REF(BgL_ptrz00_3034))));
										BgL_tmpz00_3475 = (BgL_za71za7_2286 + BgL_iz00_1376);
									}
									BgL_cz00_1384 =
										STRING_REF(((obj_t) BgL_dataz00_3035), BgL_tmpz00_3475);
								}
								if ((((unsigned char) '\000') == BgL_cz00_1384))
									{	/* Unsafe/tar.scm 161 */
										long BgL_nptrz00_1386;

										{	/* Unsafe/tar.scm 161 */
											long BgL_za71za7_2292;

											BgL_za71za7_2292 =
												(long) CINT(
												((obj_t)
													((obj_t) BGL_UNSAFE_CELL_REF(BgL_ptrz00_3034))));
											BgL_nptrz00_1386 = (BgL_za71za7_2292 + BgL_iz00_1376);
										}
										{	/* Unsafe/tar.scm 161 */
											obj_t BgL_subz00_1387;

											{	/* Unsafe/tar.scm 162 */
												long BgL_startz00_2295;

												BgL_startz00_2295 =
													(long) CINT(
													((obj_t)
														((obj_t) BGL_UNSAFE_CELL_REF(BgL_ptrz00_3034))));
												BgL_subz00_1387 =
													c_substring(
													((obj_t) BgL_dataz00_3035), BgL_startz00_2295,
													BgL_nptrz00_1386);
											}
											{	/* Unsafe/tar.scm 162 */

												{	/* Unsafe/tar.scm 163 */
													obj_t BgL_auxz00_3040;

													BgL_auxz00_3040 =
														ADDFX(
														((obj_t)
															((obj_t) BGL_UNSAFE_CELL_REF(BgL_ptrz00_3034))),
														BINT(BgL_siza7eza7_1373));
													BGL_UNSAFE_CELL_SET(BgL_ptrz00_3034, BgL_auxz00_3040);
												}
												return BgL_subz00_1387;
											}
										}
									}
								else
									{
										long BgL_iz00_3493;

										BgL_iz00_3493 = (1L + BgL_iz00_1376);
										BgL_iz00_1376 = BgL_iz00_3493;
										goto BgL_zc3z04anonymousza31362ze3z87_1377;
									}
							}
					}
			}
		}

	}



/* tar-round-up-to-record-size */
	BGL_EXPORTED_DEF long
		BGl_tarzd2roundzd2upzd2tozd2recordzd2siza7ez75zz__tarz00(obj_t BgL_nz00_15)
	{
		{	/* Unsafe/tar.scm 217 */
			if (INTEGERP(BgL_nz00_15))
				{	/* Unsafe/tar.scm 218 */
					return (512L * (((long) CINT(BgL_nz00_15) + (512L - 1L)) / 512L));
				}
			else
				{	/* Unsafe/tar.scm 218 */
					return
						(long)
						CINT(BGl_bigloozd2typezd2errorz00zz__errorz00
						(BGl_string2069z00zz__tarz00, BGl_string2070z00zz__tarz00,
							BgL_nz00_15));
		}}

	}



/* &tar-round-up-to-record-size */
	obj_t BGl_z62tarzd2roundzd2upzd2tozd2recordzd2siza7ez17zz__tarz00(obj_t
		BgL_envz00_2909, obj_t BgL_nz00_2910)
	{
		{	/* Unsafe/tar.scm 217 */
			return
				BINT(BGl_tarzd2roundzd2upzd2tozd2recordzd2siza7ez75zz__tarz00
				(BgL_nz00_2910));
		}

	}



/* _tar-read-block */
	obj_t BGl__tarzd2readzd2blockz00zz__tarz00(obj_t BgL_env1165z00_19,
		obj_t BgL_opt1164z00_18)
	{
		{	/* Unsafe/tar.scm 226 */
			{	/* Unsafe/tar.scm 226 */
				obj_t BgL_g1166z00_1403;

				{
					obj_t BgL_auxz00_3506;

					if (VECTORP(BgL_opt1164z00_18))
						{	/* Unsafe/tar.scm 226 */
							BgL_auxz00_3506 = BgL_opt1164z00_18;
						}
					else
						{
							obj_t BgL_auxz00_3509;

							BgL_auxz00_3509 =
								BGl_typezd2errorzd2zz__errorz00(BGl_string2030z00zz__tarz00,
								BINT(8109L), BGl_string2071z00zz__tarz00,
								BGl_string2032z00zz__tarz00, BgL_opt1164z00_18);
							FAILURE(BgL_auxz00_3509, BFALSE, BFALSE);
						}
					BgL_g1166z00_1403 = VECTOR_REF(BgL_auxz00_3506, 0L);
				}
				{	/* Unsafe/tar.scm 226 */
					long BgL_aux1168z00_1405;

					{
						obj_t BgL_auxz00_3514;

						if (VECTORP(BgL_opt1164z00_18))
							{	/* Unsafe/tar.scm 226 */
								BgL_auxz00_3514 = BgL_opt1164z00_18;
							}
						else
							{
								obj_t BgL_auxz00_3517;

								BgL_auxz00_3517 =
									BGl_typezd2errorzd2zz__errorz00(BGl_string2030z00zz__tarz00,
									BINT(8109L), BGl_string2071z00zz__tarz00,
									BGl_string2032z00zz__tarz00, BgL_opt1164z00_18);
								FAILURE(BgL_auxz00_3517, BFALSE, BFALSE);
							}
						BgL_aux1168z00_1405 = VECTOR_LENGTH(BgL_auxz00_3514);
					}
					switch (BgL_aux1168z00_1405)
						{
						case 1L:

							{	/* Unsafe/tar.scm 226 */
								obj_t BgL_pz00_1406;

								{	/* Unsafe/tar.scm 226 */
									obj_t BgL_tmpz00_3522;

									BgL_tmpz00_3522 = BGL_CURRENT_DYNAMIC_ENV();
									BgL_pz00_1406 = BGL_ENV_CURRENT_INPUT_PORT(BgL_tmpz00_3522);
								}
								{	/* Unsafe/tar.scm 226 */

									return
										BGl_tarzd2readzd2blockz00zz__tarz00(BgL_g1166z00_1403,
										BgL_pz00_1406);
								}
							}
							break;
						case 2L:

							{	/* Unsafe/tar.scm 226 */
								obj_t BgL_pz00_1407;

								{
									obj_t BgL_auxz00_3526;

									if (VECTORP(BgL_opt1164z00_18))
										{	/* Unsafe/tar.scm 226 */
											BgL_auxz00_3526 = BgL_opt1164z00_18;
										}
									else
										{
											obj_t BgL_auxz00_3529;

											BgL_auxz00_3529 =
												BGl_typezd2errorzd2zz__errorz00
												(BGl_string2030z00zz__tarz00, BINT(8109L),
												BGl_string2071z00zz__tarz00,
												BGl_string2032z00zz__tarz00, BgL_opt1164z00_18);
											FAILURE(BgL_auxz00_3529, BFALSE, BFALSE);
										}
									BgL_pz00_1407 = VECTOR_REF(BgL_auxz00_3526, 1L);
								}
								{	/* Unsafe/tar.scm 226 */

									return
										BGl_tarzd2readzd2blockz00zz__tarz00(BgL_g1166z00_1403,
										BgL_pz00_1407);
								}
							}
							break;
						default:
							return BUNSPEC;
						}
				}
			}
		}

	}



/* tar-read-block */
	BGL_EXPORTED_DEF obj_t BGl_tarzd2readzd2blockz00zz__tarz00(obj_t BgL_hz00_16,
		obj_t BgL_pz00_17)
	{
		{	/* Unsafe/tar.scm 226 */
			if (INPUT_PORTP(BgL_pz00_17))
				{	/* Unsafe/tar.scm 230 */
					bool_t BgL_test2267z00_3538;

					{	/* Unsafe/tar.scm 230 */
						obj_t BgL_classz00_2361;

						BgL_classz00_2361 = BGl_tarzd2headerzd2zz__tarz00;
						if (BGL_OBJECTP(BgL_hz00_16))
							{	/* Unsafe/tar.scm 230 */
								BgL_objectz00_bglt BgL_arg1911z00_2363;

								BgL_arg1911z00_2363 = (BgL_objectz00_bglt) (BgL_hz00_16);
								if (BGL_CONDEXPAND_ISA_ARCH64())
									{	/* Unsafe/tar.scm 230 */
										long BgL_idxz00_2369;

										BgL_idxz00_2369 =
											BGL_OBJECT_INHERITANCE_NUM(BgL_arg1911z00_2363);
										BgL_test2267z00_3538 =
											(VECTOR_REF(BGl_za2inheritancesza2z00zz__objectz00,
												(BgL_idxz00_2369 + 1L)) == BgL_classz00_2361);
									}
								else
									{	/* Unsafe/tar.scm 230 */
										bool_t BgL_res1968z00_2394;

										{	/* Unsafe/tar.scm 230 */
											obj_t BgL_oclassz00_2377;

											{	/* Unsafe/tar.scm 230 */
												obj_t BgL_arg1919z00_2385;
												long BgL_arg1920z00_2386;

												BgL_arg1919z00_2385 =
													(BGl_za2classesza2z00zz__objectz00);
												{	/* Unsafe/tar.scm 230 */
													long BgL_arg1921z00_2387;

													BgL_arg1921z00_2387 =
														BGL_OBJECT_CLASS_NUM(BgL_arg1911z00_2363);
													BgL_arg1920z00_2386 =
														(BgL_arg1921z00_2387 - OBJECT_TYPE);
												}
												BgL_oclassz00_2377 =
													VECTOR_REF(BgL_arg1919z00_2385, BgL_arg1920z00_2386);
											}
											{	/* Unsafe/tar.scm 230 */
												bool_t BgL__ortest_1121z00_2378;

												BgL__ortest_1121z00_2378 =
													(BgL_classz00_2361 == BgL_oclassz00_2377);
												if (BgL__ortest_1121z00_2378)
													{	/* Unsafe/tar.scm 230 */
														BgL_res1968z00_2394 = BgL__ortest_1121z00_2378;
													}
												else
													{	/* Unsafe/tar.scm 230 */
														long BgL_odepthz00_2379;

														{	/* Unsafe/tar.scm 230 */
															obj_t BgL_arg1907z00_2380;

															BgL_arg1907z00_2380 = (BgL_oclassz00_2377);
															BgL_odepthz00_2379 =
																BGL_CLASS_DEPTH(BgL_arg1907z00_2380);
														}
														if ((1L < BgL_odepthz00_2379))
															{	/* Unsafe/tar.scm 230 */
																obj_t BgL_arg1905z00_2382;

																{	/* Unsafe/tar.scm 230 */
																	obj_t BgL_arg1906z00_2383;

																	BgL_arg1906z00_2383 = (BgL_oclassz00_2377);
																	BgL_arg1905z00_2382 =
																		BGL_CLASS_ANCESTORS_REF(BgL_arg1906z00_2383,
																		1L);
																}
																BgL_res1968z00_2394 =
																	(BgL_arg1905z00_2382 == BgL_classz00_2361);
															}
														else
															{	/* Unsafe/tar.scm 230 */
																BgL_res1968z00_2394 = ((bool_t) 0);
															}
													}
											}
										}
										BgL_test2267z00_3538 = BgL_res1968z00_2394;
									}
							}
						else
							{	/* Unsafe/tar.scm 230 */
								BgL_test2267z00_3538 = ((bool_t) 0);
							}
					}
					if (BgL_test2267z00_3538)
						{	/* Unsafe/tar.scm 232 */
							long BgL_nz00_1411;

							{	/* Unsafe/tar.scm 232 */
								long BgL_arg1391z00_1420;

								BgL_arg1391z00_1420 =
									(((BgL_tarzd2headerzd2_bglt) COBJECT(
											((BgL_tarzd2headerzd2_bglt) BgL_hz00_16)))->
									BgL_siza7eza7);
								BgL_nz00_1411 = (long) (BgL_arg1391z00_1420);
							}
							if ((BgL_nz00_1411 == 0L))
								{	/* Unsafe/tar.scm 233 */
									return BFALSE;
								}
							else
								{	/* Unsafe/tar.scm 235 */
									obj_t BgL_sz00_1413;

									BgL_sz00_1413 =
										BGl_readzd2charszd2zz__r4_input_6_10_2z00(BINT
										(BgL_nz00_1411), BgL_pz00_17);
									if ((STRING_LENGTH(((obj_t) BgL_sz00_1413)) < BgL_nz00_1411))
										{	/* Unsafe/tar.scm 237 */
											obj_t BgL_arg1387z00_1416;

											BgL_arg1387z00_1416 =
												(((BgL_tarzd2headerzd2_bglt) COBJECT(
														((BgL_tarzd2headerzd2_bglt) BgL_hz00_16)))->
												BgL_namez00);
											BGl_errorz00zz__errorz00(BGl_string2072z00zz__tarz00,
												BGl_string2073z00zz__tarz00, BgL_arg1387z00_1416);
										}
									else
										{	/* Unsafe/tar.scm 238 */
											long BgL_arg1388z00_1417;

											BgL_arg1388z00_1417 =
												(BGl_tarzd2roundzd2upzd2tozd2recordzd2siza7ez75zz__tarz00
												(BINT(BgL_nz00_1411)) - BgL_nz00_1411);
											BGl_readzd2charszd2zz__r4_input_6_10_2z00(BINT
												(BgL_arg1388z00_1417), BgL_pz00_17);
										}
									return BgL_sz00_1413;
								}
						}
					else
						{	/* Unsafe/tar.scm 230 */
							return
								BGl_bigloozd2typezd2errorz00zz__errorz00
								(BGl_string2072z00zz__tarz00, BGl_string2074z00zz__tarz00,
								BgL_hz00_16);
						}
				}
			else
				{	/* Unsafe/tar.scm 228 */
					return
						BGl_bigloozd2typezd2errorz00zz__errorz00
						(BGl_string2033z00zz__tarz00, BGl_string2034z00zz__tarz00,
						BgL_pz00_17);
				}
		}

	}



/* rm-rf */
	bool_t BGl_rmzd2rfzd2zz__tarz00(obj_t BgL_pathz00_20)
	{
		{	/* Unsafe/tar.scm 246 */
			if (fexists(BSTRING_TO_STRING(BgL_pathz00_20)))
				{	/* Unsafe/tar.scm 248 */
					bool_t BgL_test2275z00_3585;

					if (bgl_directoryp(BSTRING_TO_STRING(BgL_pathz00_20)))
						{	/* Unsafe/tar.scm 248 */
							bool_t BgL_test2277z00_3589;

							{	/* Unsafe/tar.scm 248 */
								obj_t BgL_arg1403z00_1438;

								BgL_arg1403z00_1438 =
									bgl_file_type(BSTRING_TO_STRING(BgL_pathz00_20));
								BgL_test2277z00_3589 =
									(BgL_arg1403z00_1438 == BGl_symbol2011z00zz__tarz00);
							}
							if (BgL_test2277z00_3589)
								{	/* Unsafe/tar.scm 248 */
									BgL_test2275z00_3585 = ((bool_t) 0);
								}
							else
								{	/* Unsafe/tar.scm 248 */
									BgL_test2275z00_3585 = ((bool_t) 1);
								}
						}
					else
						{	/* Unsafe/tar.scm 248 */
							BgL_test2275z00_3585 = ((bool_t) 0);
						}
					if (BgL_test2275z00_3585)
						{	/* Unsafe/tar.scm 249 */
							obj_t BgL_filesz00_1427;

							BgL_filesz00_1427 =
								bgl_directory_to_list(BSTRING_TO_STRING(BgL_pathz00_20));
							{
								obj_t BgL_l1132z00_1429;

								BgL_l1132z00_1429 = BgL_filesz00_1427;
							BgL_zc3z04anonymousza31399ze3z87_1430:
								if (PAIRP(BgL_l1132z00_1429))
									{	/* Unsafe/tar.scm 250 */
										{	/* Unsafe/tar.scm 250 */
											obj_t BgL_fz00_1432;

											BgL_fz00_1432 = CAR(BgL_l1132z00_1429);
											BGl_rmzd2rfzd2zz__tarz00
												(BGl_makezd2filezd2namez00zz__osz00(BgL_pathz00_20,
													BgL_fz00_1432));
										}
										{
											obj_t BgL_l1132z00_3600;

											BgL_l1132z00_3600 = CDR(BgL_l1132z00_1429);
											BgL_l1132z00_1429 = BgL_l1132z00_3600;
											goto BgL_zc3z04anonymousza31399ze3z87_1430;
										}
									}
								else
									{	/* Unsafe/tar.scm 250 */
										((bool_t) 1);
									}
							}
							{	/* Unsafe/tar.scm 251 */
								char *BgL_stringz00_2408;

								BgL_stringz00_2408 = BSTRING_TO_STRING(BgL_pathz00_20);
								if (rmdir(BgL_stringz00_2408))
									{	/* Unsafe/tar.scm 251 */
										return ((bool_t) 0);
									}
								else
									{	/* Unsafe/tar.scm 251 */
										return ((bool_t) 1);
									}
							}
						}
					else
						{	/* Unsafe/tar.scm 252 */
							char *BgL_stringz00_2410;

							BgL_stringz00_2410 = BSTRING_TO_STRING(BgL_pathz00_20);
							if (unlink(BgL_stringz00_2410))
								{	/* Unsafe/tar.scm 252 */
									return ((bool_t) 0);
								}
							else
								{	/* Unsafe/tar.scm 252 */
									return ((bool_t) 1);
								}
						}
				}
			else
				{	/* Unsafe/tar.scm 247 */
					return ((bool_t) 0);
				}
		}

	}



/* _untar */
	obj_t BGl__untarz00zz__tarz00(obj_t BgL_env1170z00_26,
		obj_t BgL_opt1169z00_25)
	{
		{	/* Unsafe/tar.scm 257 */
			{	/* Unsafe/tar.scm 257 */
				long BgL_l1171z00_1439;

				{	/* Unsafe/tar.scm 257 */
					obj_t BgL_vectorz00_2412;

					if (VECTORP(BgL_opt1169z00_25))
						{	/* Unsafe/tar.scm 257 */
							BgL_vectorz00_2412 = BgL_opt1169z00_25;
						}
					else
						{
							obj_t BgL_auxz00_3610;

							BgL_auxz00_3610 =
								BGl_typezd2errorzd2zz__errorz00(BGl_string2030z00zz__tarz00,
								BINT(9397L), BGl_string2075z00zz__tarz00,
								BGl_string2032z00zz__tarz00, BgL_opt1169z00_25);
							FAILURE(BgL_auxz00_3610, BFALSE, BFALSE);
						}
					BgL_l1171z00_1439 = VECTOR_LENGTH(BgL_vectorz00_2412);
				}
				{	/* Unsafe/tar.scm 257 */
					obj_t BgL_g1178z00_1443;

					{
						obj_t BgL_auxz00_3615;

						if (VECTORP(BgL_opt1169z00_25))
							{	/* Unsafe/tar.scm 257 */
								BgL_auxz00_3615 = BgL_opt1169z00_25;
							}
						else
							{
								obj_t BgL_auxz00_3618;

								BgL_auxz00_3618 =
									BGl_typezd2errorzd2zz__errorz00(BGl_string2030z00zz__tarz00,
									BINT(9397L), BGl_string2075z00zz__tarz00,
									BGl_string2032z00zz__tarz00, BgL_opt1169z00_25);
								FAILURE(BgL_auxz00_3618, BFALSE, BFALSE);
							}
						BgL_g1178z00_1443 = VECTOR_REF(BgL_auxz00_3615, 0L);
					}
					{	/* Unsafe/tar.scm 257 */
						obj_t BgL_directoryz00_1444;

						BgL_directoryz00_1444 = BGl_pwdz00zz__osz00();
						{	/* Unsafe/tar.scm 257 */
							obj_t BgL_filez00_1445;

							BgL_filez00_1445 = BFALSE;
							{	/* Unsafe/tar.scm 257 */
								obj_t BgL_filesz00_1446;

								BgL_filesz00_1446 = BNIL;
								{	/* Unsafe/tar.scm 257 */

									{
										long BgL_iz00_1447;

										BgL_iz00_1447 = 1L;
									BgL_check1173z00_1448:
										if ((BgL_iz00_1447 == BgL_l1171z00_1439))
											{	/* Unsafe/tar.scm 257 */
												BNIL;
											}
										else
											{	/* Unsafe/tar.scm 257 */
												bool_t BgL_test2284z00_3626;

												{	/* Unsafe/tar.scm 257 */
													obj_t BgL_arg1409z00_1454;

													BgL_arg1409z00_1454 =
														VECTOR_REF(
														((obj_t) BgL_opt1169z00_25), BgL_iz00_1447);
													BgL_test2284z00_3626 =
														CBOOL(BGl_memqz00zz__r4_pairs_and_lists_6_3z00
														(BgL_arg1409z00_1454, BGl_list2076z00zz__tarz00));
												}
												if (BgL_test2284z00_3626)
													{
														long BgL_iz00_3631;

														BgL_iz00_3631 = (BgL_iz00_1447 + 2L);
														BgL_iz00_1447 = BgL_iz00_3631;
														goto BgL_check1173z00_1448;
													}
												else
													{	/* Unsafe/tar.scm 257 */
														obj_t BgL_arg1408z00_1453;

														BgL_arg1408z00_1453 =
															VECTOR_REF(
															((obj_t) BgL_opt1169z00_25), BgL_iz00_1447);
														BGl_errorz00zz__errorz00
															(BGl_symbol2083z00zz__tarz00,
															BGl_string2085z00zz__tarz00, BgL_arg1408z00_1453);
													}
											}
									}
									{	/* Unsafe/tar.scm 257 */
										obj_t BgL_index1175z00_1455;

										{
											long BgL_iz00_2428;

											BgL_iz00_2428 = 1L;
										BgL_search1172z00_2427:
											if ((BgL_iz00_2428 == BgL_l1171z00_1439))
												{	/* Unsafe/tar.scm 257 */
													BgL_index1175z00_1455 = BINT((-1L));
												}
											else
												{	/* Unsafe/tar.scm 257 */
													if ((BgL_iz00_2428 == (BgL_l1171z00_1439 - 1L)))
														{	/* Unsafe/tar.scm 257 */
															BgL_index1175z00_1455 =
																BGl_errorz00zz__errorz00
																(BGl_symbol2083z00zz__tarz00,
																BGl_string2086z00zz__tarz00,
																BINT(VECTOR_LENGTH(BgL_opt1169z00_25)));
														}
													else
														{	/* Unsafe/tar.scm 257 */
															obj_t BgL_vz00_2438;

															BgL_vz00_2438 =
																VECTOR_REF(BgL_opt1169z00_25, BgL_iz00_2428);
															if (
																(BgL_vz00_2438 == BGl_keyword2077z00zz__tarz00))
																{	/* Unsafe/tar.scm 257 */
																	BgL_index1175z00_1455 =
																		BINT((BgL_iz00_2428 + 1L));
																}
															else
																{
																	long BgL_iz00_3650;

																	BgL_iz00_3650 = (BgL_iz00_2428 + 2L);
																	BgL_iz00_2428 = BgL_iz00_3650;
																	goto BgL_search1172z00_2427;
																}
														}
												}
										}
										{	/* Unsafe/tar.scm 257 */
											bool_t BgL_test2288z00_3652;

											{	/* Unsafe/tar.scm 257 */
												long BgL_n1z00_2442;

												{	/* Unsafe/tar.scm 257 */
													obj_t BgL_tmpz00_3653;

													if (INTEGERP(BgL_index1175z00_1455))
														{	/* Unsafe/tar.scm 257 */
															BgL_tmpz00_3653 = BgL_index1175z00_1455;
														}
													else
														{
															obj_t BgL_auxz00_3656;

															BgL_auxz00_3656 =
																BGl_typezd2errorzd2zz__errorz00
																(BGl_string2030z00zz__tarz00, BINT(9397L),
																BGl_string2075z00zz__tarz00,
																BGl_string2087z00zz__tarz00,
																BgL_index1175z00_1455);
															FAILURE(BgL_auxz00_3656, BFALSE, BFALSE);
														}
													BgL_n1z00_2442 = (long) CINT(BgL_tmpz00_3653);
												}
												BgL_test2288z00_3652 = (BgL_n1z00_2442 >= 0L);
											}
											if (BgL_test2288z00_3652)
												{
													long BgL_auxz00_3669;
													obj_t BgL_auxz00_3662;

													{	/* Unsafe/tar.scm 257 */
														obj_t BgL_tmpz00_3670;

														if (INTEGERP(BgL_index1175z00_1455))
															{	/* Unsafe/tar.scm 257 */
																BgL_tmpz00_3670 = BgL_index1175z00_1455;
															}
														else
															{
																obj_t BgL_auxz00_3673;

																BgL_auxz00_3673 =
																	BGl_typezd2errorzd2zz__errorz00
																	(BGl_string2030z00zz__tarz00, BINT(9397L),
																	BGl_string2075z00zz__tarz00,
																	BGl_string2087z00zz__tarz00,
																	BgL_index1175z00_1455);
																FAILURE(BgL_auxz00_3673, BFALSE, BFALSE);
															}
														BgL_auxz00_3669 = (long) CINT(BgL_tmpz00_3670);
													}
													if (VECTORP(BgL_opt1169z00_25))
														{	/* Unsafe/tar.scm 257 */
															BgL_auxz00_3662 = BgL_opt1169z00_25;
														}
													else
														{
															obj_t BgL_auxz00_3665;

															BgL_auxz00_3665 =
																BGl_typezd2errorzd2zz__errorz00
																(BGl_string2030z00zz__tarz00, BINT(9397L),
																BGl_string2075z00zz__tarz00,
																BGl_string2032z00zz__tarz00, BgL_opt1169z00_25);
															FAILURE(BgL_auxz00_3665, BFALSE, BFALSE);
														}
													BgL_directoryz00_1444 =
														VECTOR_REF(BgL_auxz00_3662, BgL_auxz00_3669);
												}
											else
												{	/* Unsafe/tar.scm 257 */
													BFALSE;
												}
										}
									}
									{	/* Unsafe/tar.scm 257 */
										obj_t BgL_index1176z00_1457;

										{
											long BgL_iz00_2444;

											BgL_iz00_2444 = 1L;
										BgL_search1172z00_2443:
											if ((BgL_iz00_2444 == BgL_l1171z00_1439))
												{	/* Unsafe/tar.scm 257 */
													BgL_index1176z00_1457 = BINT((-1L));
												}
											else
												{	/* Unsafe/tar.scm 257 */
													if ((BgL_iz00_2444 == (BgL_l1171z00_1439 - 1L)))
														{	/* Unsafe/tar.scm 257 */
															BgL_index1176z00_1457 =
																BGl_errorz00zz__errorz00
																(BGl_symbol2083z00zz__tarz00,
																BGl_string2086z00zz__tarz00,
																BINT(VECTOR_LENGTH(BgL_opt1169z00_25)));
														}
													else
														{	/* Unsafe/tar.scm 257 */
															obj_t BgL_vz00_2454;

															BgL_vz00_2454 =
																VECTOR_REF(BgL_opt1169z00_25, BgL_iz00_2444);
															if (
																(BgL_vz00_2454 == BGl_keyword2079z00zz__tarz00))
																{	/* Unsafe/tar.scm 257 */
																	BgL_index1176z00_1457 =
																		BINT((BgL_iz00_2444 + 1L));
																}
															else
																{
																	long BgL_iz00_3693;

																	BgL_iz00_3693 = (BgL_iz00_2444 + 2L);
																	BgL_iz00_2444 = BgL_iz00_3693;
																	goto BgL_search1172z00_2443;
																}
														}
												}
										}
										{	/* Unsafe/tar.scm 257 */
											bool_t BgL_test2295z00_3695;

											{	/* Unsafe/tar.scm 257 */
												long BgL_n1z00_2458;

												{	/* Unsafe/tar.scm 257 */
													obj_t BgL_tmpz00_3696;

													if (INTEGERP(BgL_index1176z00_1457))
														{	/* Unsafe/tar.scm 257 */
															BgL_tmpz00_3696 = BgL_index1176z00_1457;
														}
													else
														{
															obj_t BgL_auxz00_3699;

															BgL_auxz00_3699 =
																BGl_typezd2errorzd2zz__errorz00
																(BGl_string2030z00zz__tarz00, BINT(9397L),
																BGl_string2075z00zz__tarz00,
																BGl_string2087z00zz__tarz00,
																BgL_index1176z00_1457);
															FAILURE(BgL_auxz00_3699, BFALSE, BFALSE);
														}
													BgL_n1z00_2458 = (long) CINT(BgL_tmpz00_3696);
												}
												BgL_test2295z00_3695 = (BgL_n1z00_2458 >= 0L);
											}
											if (BgL_test2295z00_3695)
												{
													long BgL_auxz00_3712;
													obj_t BgL_auxz00_3705;

													{	/* Unsafe/tar.scm 257 */
														obj_t BgL_tmpz00_3713;

														if (INTEGERP(BgL_index1176z00_1457))
															{	/* Unsafe/tar.scm 257 */
																BgL_tmpz00_3713 = BgL_index1176z00_1457;
															}
														else
															{
																obj_t BgL_auxz00_3716;

																BgL_auxz00_3716 =
																	BGl_typezd2errorzd2zz__errorz00
																	(BGl_string2030z00zz__tarz00, BINT(9397L),
																	BGl_string2075z00zz__tarz00,
																	BGl_string2087z00zz__tarz00,
																	BgL_index1176z00_1457);
																FAILURE(BgL_auxz00_3716, BFALSE, BFALSE);
															}
														BgL_auxz00_3712 = (long) CINT(BgL_tmpz00_3713);
													}
													if (VECTORP(BgL_opt1169z00_25))
														{	/* Unsafe/tar.scm 257 */
															BgL_auxz00_3705 = BgL_opt1169z00_25;
														}
													else
														{
															obj_t BgL_auxz00_3708;

															BgL_auxz00_3708 =
																BGl_typezd2errorzd2zz__errorz00
																(BGl_string2030z00zz__tarz00, BINT(9397L),
																BGl_string2075z00zz__tarz00,
																BGl_string2032z00zz__tarz00, BgL_opt1169z00_25);
															FAILURE(BgL_auxz00_3708, BFALSE, BFALSE);
														}
													BgL_filez00_1445 =
														VECTOR_REF(BgL_auxz00_3705, BgL_auxz00_3712);
												}
											else
												{	/* Unsafe/tar.scm 257 */
													BFALSE;
												}
										}
									}
									{	/* Unsafe/tar.scm 257 */
										obj_t BgL_index1177z00_1459;

										{
											long BgL_iz00_2460;

											BgL_iz00_2460 = 1L;
										BgL_search1172z00_2459:
											if ((BgL_iz00_2460 == BgL_l1171z00_1439))
												{	/* Unsafe/tar.scm 257 */
													BgL_index1177z00_1459 = BINT((-1L));
												}
											else
												{	/* Unsafe/tar.scm 257 */
													if ((BgL_iz00_2460 == (BgL_l1171z00_1439 - 1L)))
														{	/* Unsafe/tar.scm 257 */
															BgL_index1177z00_1459 =
																BGl_errorz00zz__errorz00
																(BGl_symbol2083z00zz__tarz00,
																BGl_string2086z00zz__tarz00,
																BINT(VECTOR_LENGTH(BgL_opt1169z00_25)));
														}
													else
														{	/* Unsafe/tar.scm 257 */
															obj_t BgL_vz00_2470;

															BgL_vz00_2470 =
																VECTOR_REF(BgL_opt1169z00_25, BgL_iz00_2460);
															if (
																(BgL_vz00_2470 == BGl_keyword2081z00zz__tarz00))
																{	/* Unsafe/tar.scm 257 */
																	BgL_index1177z00_1459 =
																		BINT((BgL_iz00_2460 + 1L));
																}
															else
																{
																	long BgL_iz00_3736;

																	BgL_iz00_3736 = (BgL_iz00_2460 + 2L);
																	BgL_iz00_2460 = BgL_iz00_3736;
																	goto BgL_search1172z00_2459;
																}
														}
												}
										}
										{	/* Unsafe/tar.scm 257 */
											bool_t BgL_test2302z00_3738;

											{	/* Unsafe/tar.scm 257 */
												long BgL_n1z00_2474;

												{	/* Unsafe/tar.scm 257 */
													obj_t BgL_tmpz00_3739;

													if (INTEGERP(BgL_index1177z00_1459))
														{	/* Unsafe/tar.scm 257 */
															BgL_tmpz00_3739 = BgL_index1177z00_1459;
														}
													else
														{
															obj_t BgL_auxz00_3742;

															BgL_auxz00_3742 =
																BGl_typezd2errorzd2zz__errorz00
																(BGl_string2030z00zz__tarz00, BINT(9397L),
																BGl_string2075z00zz__tarz00,
																BGl_string2087z00zz__tarz00,
																BgL_index1177z00_1459);
															FAILURE(BgL_auxz00_3742, BFALSE, BFALSE);
														}
													BgL_n1z00_2474 = (long) CINT(BgL_tmpz00_3739);
												}
												BgL_test2302z00_3738 = (BgL_n1z00_2474 >= 0L);
											}
											if (BgL_test2302z00_3738)
												{
													long BgL_auxz00_3755;
													obj_t BgL_auxz00_3748;

													{	/* Unsafe/tar.scm 257 */
														obj_t BgL_tmpz00_3756;

														if (INTEGERP(BgL_index1177z00_1459))
															{	/* Unsafe/tar.scm 257 */
																BgL_tmpz00_3756 = BgL_index1177z00_1459;
															}
														else
															{
																obj_t BgL_auxz00_3759;

																BgL_auxz00_3759 =
																	BGl_typezd2errorzd2zz__errorz00
																	(BGl_string2030z00zz__tarz00, BINT(9397L),
																	BGl_string2075z00zz__tarz00,
																	BGl_string2087z00zz__tarz00,
																	BgL_index1177z00_1459);
																FAILURE(BgL_auxz00_3759, BFALSE, BFALSE);
															}
														BgL_auxz00_3755 = (long) CINT(BgL_tmpz00_3756);
													}
													if (VECTORP(BgL_opt1169z00_25))
														{	/* Unsafe/tar.scm 257 */
															BgL_auxz00_3748 = BgL_opt1169z00_25;
														}
													else
														{
															obj_t BgL_auxz00_3751;

															BgL_auxz00_3751 =
																BGl_typezd2errorzd2zz__errorz00
																(BGl_string2030z00zz__tarz00, BINT(9397L),
																BGl_string2075z00zz__tarz00,
																BGl_string2032z00zz__tarz00, BgL_opt1169z00_25);
															FAILURE(BgL_auxz00_3751, BFALSE, BFALSE);
														}
													BgL_filesz00_1446 =
														VECTOR_REF(BgL_auxz00_3748, BgL_auxz00_3755);
												}
											else
												{	/* Unsafe/tar.scm 257 */
													BFALSE;
												}
										}
									}
									{	/* Unsafe/tar.scm 257 */
										obj_t BgL_arg1413z00_1461;

										{
											obj_t BgL_auxz00_3765;

											if (VECTORP(BgL_opt1169z00_25))
												{	/* Unsafe/tar.scm 257 */
													BgL_auxz00_3765 = BgL_opt1169z00_25;
												}
											else
												{
													obj_t BgL_auxz00_3768;

													BgL_auxz00_3768 =
														BGl_typezd2errorzd2zz__errorz00
														(BGl_string2030z00zz__tarz00, BINT(9397L),
														BGl_string2075z00zz__tarz00,
														BGl_string2032z00zz__tarz00, BgL_opt1169z00_25);
													FAILURE(BgL_auxz00_3768, BFALSE, BFALSE);
												}
											BgL_arg1413z00_1461 = VECTOR_REF(BgL_auxz00_3765, 0L);
										}
										{	/* Unsafe/tar.scm 257 */
											obj_t BgL_directoryz00_1462;

											BgL_directoryz00_1462 = BgL_directoryz00_1444;
											{	/* Unsafe/tar.scm 257 */
												obj_t BgL_filez00_1463;

												BgL_filez00_1463 = BgL_filez00_1445;
												return
													BGl_untarz00zz__tarz00(BgL_arg1413z00_1461,
													BgL_directoryz00_1462, BgL_filez00_1463,
													BgL_filesz00_1446);
											}
										}
									}
								}
							}
						}
					}
				}
			}
		}

	}



/* untar */
	BGL_EXPORTED_DEF obj_t BGl_untarz00zz__tarz00(obj_t BgL_ipz00_21,
		obj_t BgL_directoryz00_22, obj_t BgL_filez00_23, obj_t BgL_filesz00_24)
	{
		{	/* Unsafe/tar.scm 257 */
			if (INPUT_PORTP(BgL_ipz00_21))
				{	/* Unsafe/tar.scm 259 */
					if (STRINGP(BgL_filez00_23))
						{	/* Unsafe/tar.scm 262 */
							obj_t BgL_arg1423z00_1474;

							{	/* Unsafe/tar.scm 262 */
								obj_t BgL_list1424z00_1475;

								BgL_list1424z00_1475 = MAKE_YOUNG_PAIR(BgL_filez00_23, BNIL);
								BgL_arg1423z00_1474 = BgL_list1424z00_1475;
							}
							return
								BGl_untarzd2fileszd2zz__tarz00(BgL_ipz00_21,
								BgL_arg1423z00_1474);
						}
					else
						{	/* Unsafe/tar.scm 263 */
							bool_t BgL_test2309z00_3780;

							if (PAIRP(BgL_filesz00_24))
								{	/* Unsafe/tar.scm 263 */
									if (BGl_listzf3zf3zz__r4_pairs_and_lists_6_3z00
										(BgL_filesz00_24))
										{
											obj_t BgL_l1135z00_1493;

											BgL_l1135z00_1493 = BgL_filesz00_24;
										BgL_zc3z04anonymousza31434ze3z87_1494:
											if (NULLP(BgL_l1135z00_1493))
												{	/* Unsafe/tar.scm 263 */
													BgL_test2309z00_3780 = ((bool_t) 1);
												}
											else
												{	/* Unsafe/tar.scm 263 */
													bool_t BgL_test2313z00_3787;

													{	/* Unsafe/tar.scm 263 */
														obj_t BgL_tmpz00_3788;

														BgL_tmpz00_3788 = CAR(((obj_t) BgL_l1135z00_1493));
														BgL_test2313z00_3787 = STRINGP(BgL_tmpz00_3788);
													}
													if (BgL_test2313z00_3787)
														{
															obj_t BgL_l1135z00_3792;

															BgL_l1135z00_3792 =
																CDR(((obj_t) BgL_l1135z00_1493));
															BgL_l1135z00_1493 = BgL_l1135z00_3792;
															goto BgL_zc3z04anonymousza31434ze3z87_1494;
														}
													else
														{	/* Unsafe/tar.scm 263 */
															BgL_test2309z00_3780 = ((bool_t) 0);
														}
												}
										}
									else
										{	/* Unsafe/tar.scm 263 */
											BgL_test2309z00_3780 = ((bool_t) 0);
										}
								}
							else
								{	/* Unsafe/tar.scm 263 */
									BgL_test2309z00_3780 = ((bool_t) 0);
								}
							if (BgL_test2309z00_3780)
								{	/* Unsafe/tar.scm 263 */
									return
										BGl_untarzd2fileszd2zz__tarz00(BgL_ipz00_21,
										BgL_filesz00_24);
								}
							else
								{	/* Unsafe/tar.scm 266 */
									obj_t BgL_arg1432z00_1488;

									if (STRINGP(BgL_directoryz00_22))
										{	/* Unsafe/tar.scm 266 */
											BgL_arg1432z00_1488 = BgL_directoryz00_22;
										}
									else
										{	/* Unsafe/tar.scm 266 */
											BgL_arg1432z00_1488 = BGl_pwdz00zz__osz00();
										}
									return
										BGl_untarzd2directoryzd2zz__tarz00(BgL_ipz00_21,
										BgL_arg1432z00_1488);
								}
						}
				}
			else
				{	/* Unsafe/tar.scm 259 */
					return
						BGl_bigloozd2typezd2errorz00zz__errorz00
						(BGl_string2084z00zz__tarz00, BGl_string2034z00zz__tarz00,
						BgL_ipz00_21);
				}
		}

	}



/* untar-directory */
	obj_t BGl_untarzd2directoryzd2zz__tarz00(obj_t BgL_ipz00_27,
		obj_t BgL_basez00_28)
	{
		{	/* Unsafe/tar.scm 271 */
			if (bgl_directoryp(BSTRING_TO_STRING(BgL_basez00_28)))
				{	/* Unsafe/tar.scm 272 */
					((bool_t) 0);
				}
			else
				{	/* Unsafe/tar.scm 272 */
					BGl_makezd2directorieszd2zz__r4_ports_6_10_1z00(BgL_basez00_28);
				}
			{
				obj_t BgL_lstz00_1504;
				obj_t BgL_longnamez00_1505;

				BgL_lstz00_1504 = BNIL;
				BgL_longnamez00_1505 = BFALSE;
			BgL_zc3z04anonymousza31438ze3z87_1506:
				{	/* Unsafe/tar.scm 276 */
					obj_t BgL_hz00_1507;

					BgL_hz00_1507 =
						BGl_tarzd2readzd2headerz00zz__tarz00(BgL_ipz00_27,
						BgL_longnamez00_1505);
					if (CBOOL(BgL_hz00_1507))
						{	/* Unsafe/tar.scm 280 */
							obj_t BgL_casezd2valuezd2_1509;

							BgL_casezd2valuezd2_1509 =
								(((BgL_tarzd2headerzd2_bglt) COBJECT(
										((BgL_tarzd2headerzd2_bglt) BgL_hz00_1507)))->BgL_typez00);
							if ((BgL_casezd2valuezd2_1509 == BGl_symbol2019z00zz__tarz00))
								{	/* Unsafe/tar.scm 282 */
									obj_t BgL_pathz00_1511;

									{	/* Unsafe/tar.scm 282 */
										obj_t BgL_arg1447z00_1520;

										BgL_arg1447z00_1520 =
											(((BgL_tarzd2headerzd2_bglt) COBJECT(
													((BgL_tarzd2headerzd2_bglt) BgL_hz00_1507)))->
											BgL_namez00);
										BgL_pathz00_1511 =
											BGl_makezd2filezd2namez00zz__osz00(BgL_basez00_28,
											BgL_arg1447z00_1520);
									}
									BGl_rmzd2rfzd2zz__tarz00(BgL_pathz00_1511);
									if (BGl_makezd2directorieszd2zz__r4_ports_6_10_1z00
										(BgL_pathz00_1511))
										{	/* Unsafe/tar.scm 285 */
											obj_t BgL_arg1442z00_1513;

											BgL_arg1442z00_1513 =
												MAKE_YOUNG_PAIR(BgL_pathz00_1511, BgL_lstz00_1504);
											{
												obj_t BgL_longnamez00_3820;
												obj_t BgL_lstz00_3819;

												BgL_lstz00_3819 = BgL_arg1442z00_1513;
												BgL_longnamez00_3820 = BFALSE;
												BgL_longnamez00_1505 = BgL_longnamez00_3820;
												BgL_lstz00_1504 = BgL_lstz00_3819;
												goto BgL_zc3z04anonymousza31438ze3z87_1506;
											}
										}
									else
										{	/* Unsafe/tar.scm 287 */
											BgL_z62iozd2errorzb0_bglt BgL_arg1443z00_1514;

											{	/* Unsafe/tar.scm 287 */
												BgL_z62iozd2errorzb0_bglt BgL_new1072z00_1515;

												{	/* Unsafe/tar.scm 287 */
													BgL_z62iozd2errorzb0_bglt BgL_new1071z00_1518;

													BgL_new1071z00_1518 =
														((BgL_z62iozd2errorzb0_bglt)
														BOBJECT(GC_MALLOC(sizeof(struct
																	BgL_z62iozd2errorzb0_bgl))));
													{	/* Unsafe/tar.scm 287 */
														long BgL_arg1446z00_1519;

														BgL_arg1446z00_1519 =
															BGL_CLASS_NUM(BGl_z62iozd2errorzb0zz__objectz00);
														BGL_OBJECT_CLASS_NUM_SET(
															((BgL_objectz00_bglt) BgL_new1071z00_1518),
															BgL_arg1446z00_1519);
													}
													BgL_new1072z00_1515 = BgL_new1071z00_1518;
												}
												((((BgL_z62exceptionz62_bglt) COBJECT(
																((BgL_z62exceptionz62_bglt)
																	BgL_new1072z00_1515)))->BgL_fnamez00) =
													((obj_t) BFALSE), BUNSPEC);
												((((BgL_z62exceptionz62_bglt)
															COBJECT(((BgL_z62exceptionz62_bglt)
																	BgL_new1072z00_1515)))->BgL_locationz00) =
													((obj_t) BFALSE), BUNSPEC);
												{
													obj_t BgL_auxz00_3829;

													{	/* Unsafe/tar.scm 287 */
														obj_t BgL_arg1444z00_1516;

														{	/* Unsafe/tar.scm 287 */
															obj_t BgL_arg1445z00_1517;

															{	/* Unsafe/tar.scm 287 */
																obj_t BgL_classz00_2483;

																BgL_classz00_2483 =
																	BGl_z62iozd2errorzb0zz__objectz00;
																BgL_arg1445z00_1517 =
																	BGL_CLASS_ALL_FIELDS(BgL_classz00_2483);
															}
															BgL_arg1444z00_1516 =
																VECTOR_REF(BgL_arg1445z00_1517, 2L);
														}
														BgL_auxz00_3829 =
															BGl_classzd2fieldzd2defaultzd2valuezd2zz__objectz00
															(BgL_arg1444z00_1516);
													}
													((((BgL_z62exceptionz62_bglt) COBJECT(
																	((BgL_z62exceptionz62_bglt)
																		BgL_new1072z00_1515)))->BgL_stackz00) =
														((obj_t) BgL_auxz00_3829), BUNSPEC);
												}
												((((BgL_z62errorz62_bglt) COBJECT(
																((BgL_z62errorz62_bglt) BgL_new1072z00_1515)))->
														BgL_procz00) =
													((obj_t) BGl_symbol2083z00zz__tarz00), BUNSPEC);
												((((BgL_z62errorz62_bglt)
															COBJECT(((BgL_z62errorz62_bglt)
																	BgL_new1072z00_1515)))->BgL_msgz00) =
													((obj_t) BGl_string2088z00zz__tarz00), BUNSPEC);
												((((BgL_z62errorz62_bglt)
															COBJECT(((BgL_z62errorz62_bglt)
																	BgL_new1072z00_1515)))->BgL_objz00) =
													((obj_t) BgL_pathz00_1511), BUNSPEC);
												BgL_arg1443z00_1514 = BgL_new1072z00_1515;
											}
											return
												BGl_raisez00zz__errorz00(((obj_t) BgL_arg1443z00_1514));
										}
								}
							else
								{	/* Unsafe/tar.scm 280 */
									if ((BgL_casezd2valuezd2_1509 == BGl_symbol2009z00zz__tarz00))
										{	/* Unsafe/tar.scm 292 */
											obj_t BgL_pathz00_1522;

											{	/* Unsafe/tar.scm 292 */
												obj_t BgL_arg1458z00_1536;

												BgL_arg1458z00_1536 =
													(((BgL_tarzd2headerzd2_bglt) COBJECT(
															((BgL_tarzd2headerzd2_bglt) BgL_hz00_1507)))->
													BgL_namez00);
												BgL_pathz00_1522 =
													BGl_makezd2filezd2namez00zz__osz00(BgL_basez00_28,
													BgL_arg1458z00_1536);
											}
											{	/* Unsafe/tar.scm 292 */
												obj_t BgL_dirz00_1523;

												BgL_dirz00_1523 =
													BGl_dirnamez00zz__osz00(BgL_pathz00_1522);
												{	/* Unsafe/tar.scm 293 */

													{	/* Unsafe/tar.scm 294 */
														bool_t BgL_test2320z00_3849;

														if (fexists(BSTRING_TO_STRING(BgL_dirz00_1523)))
															{	/* Unsafe/tar.scm 294 */
																if (bgl_directoryp(BSTRING_TO_STRING
																		(BgL_dirz00_1523)))
																	{	/* Unsafe/tar.scm 294 */
																		BgL_test2320z00_3849 = ((bool_t) 0);
																	}
																else
																	{	/* Unsafe/tar.scm 294 */
																		BgL_test2320z00_3849 = ((bool_t) 1);
																	}
															}
														else
															{	/* Unsafe/tar.scm 294 */
																BgL_test2320z00_3849 = ((bool_t) 0);
															}
														if (BgL_test2320z00_3849)
															{	/* Unsafe/tar.scm 295 */
																char *BgL_stringz00_2488;

																BgL_stringz00_2488 =
																	BSTRING_TO_STRING(BgL_dirz00_1523);
																if (unlink(BgL_stringz00_2488))
																	{	/* Unsafe/tar.scm 295 */
																		((bool_t) 0);
																	}
																else
																	{	/* Unsafe/tar.scm 295 */
																		((bool_t) 1);
																	}
															}
														else
															{	/* Unsafe/tar.scm 294 */
																((bool_t) 0);
															}
													}
													if (fexists(BSTRING_TO_STRING(BgL_dirz00_1523)))
														{	/* Unsafe/tar.scm 296 */
															BFALSE;
														}
													else
														{	/* Unsafe/tar.scm 296 */
															BGl_makezd2directorieszd2zz__r4_ports_6_10_1z00
																(BgL_dirz00_1523);
															BgL_lstz00_1504 =
																MAKE_YOUNG_PAIR(BgL_dirz00_1523,
																BgL_lstz00_1504);
														}
													{	/* Unsafe/tar.scm 301 */
														obj_t BgL_zc3z04anonymousza31454ze3z87_2911;

														BgL_zc3z04anonymousza31454ze3z87_2911 =
															MAKE_FX_PROCEDURE
															(BGl_z62zc3z04anonymousza31454ze3ze5zz__tarz00,
															(int) (0L), (int) (2L));
														PROCEDURE_SET(BgL_zc3z04anonymousza31454ze3z87_2911,
															(int) (0L), BgL_hz00_1507);
														PROCEDURE_SET(BgL_zc3z04anonymousza31454ze3z87_2911,
															(int) (1L), BgL_ipz00_27);
														BGl_withzd2outputzd2tozd2filezd2zz__r4_ports_6_10_1z00
															(BgL_pathz00_1522,
															BgL_zc3z04anonymousza31454ze3z87_2911);
													}
													{	/* Unsafe/tar.scm 302 */
														obj_t BgL_arg1457z00_1535;

														BgL_arg1457z00_1535 =
															MAKE_YOUNG_PAIR(BgL_pathz00_1522,
															BgL_lstz00_1504);
														{
															obj_t BgL_longnamez00_3874;
															obj_t BgL_lstz00_3873;

															BgL_lstz00_3873 = BgL_arg1457z00_1535;
															BgL_longnamez00_3874 = BFALSE;
															BgL_longnamez00_1505 = BgL_longnamez00_3874;
															BgL_lstz00_1504 = BgL_lstz00_3873;
															goto BgL_zc3z04anonymousza31438ze3z87_1506;
														}
													}
												}
											}
										}
									else
										{	/* Unsafe/tar.scm 280 */
											if (
												(BgL_casezd2valuezd2_1509 ==
													BGl_symbol2013z00zz__tarz00))
												{	/* Unsafe/tar.scm 305 */
													obj_t BgL_pathz00_1539;

													{	/* Unsafe/tar.scm 305 */
														obj_t BgL_arg1464z00_1543;

														BgL_arg1464z00_1543 =
															(((BgL_tarzd2headerzd2_bglt) COBJECT(
																	((BgL_tarzd2headerzd2_bglt) BgL_hz00_1507)))->
															BgL_namez00);
														BgL_pathz00_1539 =
															BGl_makezd2filezd2namez00zz__osz00(BgL_basez00_28,
															BgL_arg1464z00_1543);
													}
													if (fexists(BSTRING_TO_STRING(BgL_pathz00_1539)))
														{	/* Unsafe/tar.scm 307 */
															char *BgL_stringz00_2496;

															BgL_stringz00_2496 =
																BSTRING_TO_STRING(BgL_pathz00_1539);
															if (unlink(BgL_stringz00_2496))
																{	/* Unsafe/tar.scm 307 */
																	((bool_t) 0);
																}
															else
																{	/* Unsafe/tar.scm 307 */
																	((bool_t) 1);
																}
														}
													else
														{	/* Unsafe/tar.scm 306 */
															((bool_t) 0);
														}
													{	/* Unsafe/tar.scm 308 */
														obj_t BgL_arg1461z00_1541;

														BgL_arg1461z00_1541 =
															(((BgL_tarzd2headerzd2_bglt) COBJECT(
																	((BgL_tarzd2headerzd2_bglt) BgL_hz00_1507)))->
															BgL_linknamez00);
														bgl_symlink(BSTRING_TO_STRING(BgL_arg1461z00_1541),
															BSTRING_TO_STRING(BgL_pathz00_1539));
													}
													{	/* Unsafe/tar.scm 309 */
														obj_t BgL_arg1462z00_1542;

														BgL_arg1462z00_1542 =
															MAKE_YOUNG_PAIR(BgL_pathz00_1539,
															BgL_lstz00_1504);
														{
															obj_t BgL_longnamez00_3893;
															obj_t BgL_lstz00_3892;

															BgL_lstz00_3892 = BgL_arg1462z00_1542;
															BgL_longnamez00_3893 = BFALSE;
															BgL_longnamez00_1505 = BgL_longnamez00_3893;
															BgL_lstz00_1504 = BgL_lstz00_3892;
															goto BgL_zc3z04anonymousza31438ze3z87_1506;
														}
													}
												}
											else
												{	/* Unsafe/tar.scm 280 */
													if (
														(BgL_casezd2valuezd2_1509 ==
															BGl_symbol2025z00zz__tarz00))
														{	/* Unsafe/tar.scm 312 */
															long BgL_nz00_1546;

															{	/* Unsafe/tar.scm 312 */
																long BgL_arg1473z00_1557;

																BgL_arg1473z00_1557 =
																	(((BgL_tarzd2headerzd2_bglt) COBJECT(
																			((BgL_tarzd2headerzd2_bglt)
																				BgL_hz00_1507)))->BgL_siza7eza7);
																BgL_nz00_1546 =
																	BGl_modulofxz00zz__r4_numbers_6_5_fixnumz00(
																	(long) (BgL_arg1473z00_1557), 512L);
															}
															{	/* Unsafe/tar.scm 317 */

																{	/* Unsafe/tar.scm 318 */
																	obj_t BgL_arg1466z00_1550;

																	BgL_arg1466z00_1550 =
																		BGl_tarzd2readzd2blockz00zz__tarz00
																		(BgL_hz00_1507, BgL_ipz00_27);
																	{
																		obj_t BgL_longnamez00_3901;

																		BgL_longnamez00_3901 = BgL_arg1466z00_1550;
																		BgL_longnamez00_1505 = BgL_longnamez00_3901;
																		goto BgL_zc3z04anonymousza31438ze3z87_1506;
																	}
																}
															}
														}
													else
														{	/* Unsafe/tar.scm 321 */
															BgL_z62iozd2parsezd2errorz62_bglt
																BgL_arg1475z00_1559;
															{	/* Unsafe/tar.scm 321 */
																BgL_z62iozd2parsezd2errorz62_bglt
																	BgL_new1076z00_1560;
																{	/* Unsafe/tar.scm 321 */
																	BgL_z62iozd2parsezd2errorz62_bglt
																		BgL_new1075z00_1565;
																	BgL_new1075z00_1565 =
																		((BgL_z62iozd2parsezd2errorz62_bglt)
																		BOBJECT(GC_MALLOC(sizeof(struct
																					BgL_z62iozd2parsezd2errorz62_bgl))));
																	{	/* Unsafe/tar.scm 321 */
																		long BgL_arg1482z00_1566;

																		BgL_arg1482z00_1566 =
																			BGL_CLASS_NUM
																			(BGl_z62iozd2parsezd2errorz62zz__objectz00);
																		BGL_OBJECT_CLASS_NUM_SET((
																				(BgL_objectz00_bglt)
																				BgL_new1075z00_1565),
																			BgL_arg1482z00_1566);
																	}
																	BgL_new1076z00_1560 = BgL_new1075z00_1565;
																}
																((((BgL_z62exceptionz62_bglt) COBJECT(
																				((BgL_z62exceptionz62_bglt)
																					BgL_new1076z00_1560)))->
																		BgL_fnamez00) = ((obj_t) BFALSE), BUNSPEC);
																((((BgL_z62exceptionz62_bglt)
																			COBJECT(((BgL_z62exceptionz62_bglt)
																					BgL_new1076z00_1560)))->
																		BgL_locationz00) =
																	((obj_t) BFALSE), BUNSPEC);
																{
																	obj_t BgL_auxz00_3910;

																	{	/* Unsafe/tar.scm 321 */
																		obj_t BgL_arg1476z00_1561;

																		{	/* Unsafe/tar.scm 321 */
																			obj_t BgL_arg1479z00_1562;

																			{	/* Unsafe/tar.scm 321 */
																				obj_t BgL_classz00_2513;

																				BgL_classz00_2513 =
																					BGl_z62iozd2parsezd2errorz62zz__objectz00;
																				BgL_arg1479z00_1562 =
																					BGL_CLASS_ALL_FIELDS
																					(BgL_classz00_2513);
																			}
																			BgL_arg1476z00_1561 =
																				VECTOR_REF(BgL_arg1479z00_1562, 2L);
																		}
																		BgL_auxz00_3910 =
																			BGl_classzd2fieldzd2defaultzd2valuezd2zz__objectz00
																			(BgL_arg1476z00_1561);
																	}
																	((((BgL_z62exceptionz62_bglt) COBJECT(
																					((BgL_z62exceptionz62_bglt)
																						BgL_new1076z00_1560)))->
																			BgL_stackz00) =
																		((obj_t) BgL_auxz00_3910), BUNSPEC);
																}
																((((BgL_z62errorz62_bglt) COBJECT(
																				((BgL_z62errorz62_bglt)
																					BgL_new1076z00_1560)))->BgL_procz00) =
																	((obj_t) BGl_symbol2083z00zz__tarz00),
																	BUNSPEC);
																{
																	obj_t BgL_auxz00_3918;

																	{	/* Unsafe/tar.scm 323 */
																		obj_t BgL_arg1480z00_1563;

																		BgL_arg1480z00_1563 =
																			(((BgL_tarzd2headerzd2_bglt) COBJECT(
																					((BgL_tarzd2headerzd2_bglt)
																						BgL_hz00_1507)))->BgL_typez00);
																		{	/* Unsafe/tar.scm 323 */
																			obj_t BgL_list1481z00_1564;

																			BgL_list1481z00_1564 =
																				MAKE_YOUNG_PAIR(BgL_arg1480z00_1563,
																				BNIL);
																			BgL_auxz00_3918 =
																				BGl_formatz00zz__r4_output_6_10_3z00
																				(BGl_string2089z00zz__tarz00,
																				BgL_list1481z00_1564);
																	}}
																	((((BgL_z62errorz62_bglt) COBJECT(
																					((BgL_z62errorz62_bglt)
																						BgL_new1076z00_1560)))->
																			BgL_msgz00) =
																		((obj_t) BgL_auxz00_3918), BUNSPEC);
																}
																((((BgL_z62errorz62_bglt) COBJECT(
																				((BgL_z62errorz62_bglt)
																					BgL_new1076z00_1560)))->BgL_objz00) =
																	((obj_t) (((BgL_tarzd2headerzd2_bglt)
																				COBJECT(((BgL_tarzd2headerzd2_bglt)
																						BgL_hz00_1507)))->BgL_namez00)),
																	BUNSPEC);
																BgL_arg1475z00_1559 = BgL_new1076z00_1560;
															}
															return
																BGl_raisez00zz__errorz00(
																((obj_t) BgL_arg1475z00_1559));
														}
												}
										}
								}
						}
					else
						{	/* Unsafe/tar.scm 277 */
							return bgl_reverse_bang(BgL_lstz00_1504);
						}
				}
			}
		}

	}



/* &<@anonymous:1454> */
	obj_t BGl_z62zc3z04anonymousza31454ze3ze5zz__tarz00(obj_t BgL_envz00_2912)
	{
		{	/* Unsafe/tar.scm 300 */
			{	/* Unsafe/tar.scm 301 */
				obj_t BgL_hz00_2913;
				obj_t BgL_ipz00_2914;

				BgL_hz00_2913 = PROCEDURE_REF(BgL_envz00_2912, (int) (0L));
				BgL_ipz00_2914 = ((obj_t) PROCEDURE_REF(BgL_envz00_2912, (int) (1L)));
				{	/* Unsafe/tar.scm 301 */
					obj_t BgL_arg1455z00_3120;
					obj_t BgL_arg1456z00_3121;

					BgL_arg1455z00_3120 =
						BGl_tarzd2readzd2blockz00zz__tarz00(BgL_hz00_2913, BgL_ipz00_2914);
					{	/* Unsafe/tar.scm 301 */
						obj_t BgL_tmpz00_3938;

						BgL_tmpz00_3938 = BGL_CURRENT_DYNAMIC_ENV();
						BgL_arg1456z00_3121 = BGL_ENV_CURRENT_OUTPUT_PORT(BgL_tmpz00_3938);
					}
					return bgl_display_obj(BgL_arg1455z00_3120, BgL_arg1456z00_3121);
				}
			}
		}

	}



/* untar-files */
	obj_t BGl_untarzd2fileszd2zz__tarz00(obj_t BgL_ipz00_29,
		obj_t BgL_filesz00_30)
	{
		{	/* Unsafe/tar.scm 329 */
			{

			BgL_zc3z04anonymousza31483ze3z87_1569:
				{	/* Unsafe/tar.scm 331 */
					obj_t BgL_hz00_1570;

					{	/* Unsafe/tar.scm 331 */

						{	/* Unsafe/tar.scm 331 */

							BgL_hz00_1570 =
								BGl_tarzd2readzd2headerz00zz__tarz00(BgL_ipz00_29, BFALSE);
						}
					}
					{	/* Unsafe/tar.scm 332 */
						bool_t BgL_test2329z00_3943;

						{	/* Unsafe/tar.scm 332 */
							obj_t BgL_classz00_2515;

							BgL_classz00_2515 = BGl_tarzd2headerzd2zz__tarz00;
							if (BGL_OBJECTP(BgL_hz00_1570))
								{	/* Unsafe/tar.scm 332 */
									BgL_objectz00_bglt BgL_arg1911z00_2517;

									BgL_arg1911z00_2517 = (BgL_objectz00_bglt) (BgL_hz00_1570);
									if (BGL_CONDEXPAND_ISA_ARCH64())
										{	/* Unsafe/tar.scm 332 */
											long BgL_idxz00_2523;

											BgL_idxz00_2523 =
												BGL_OBJECT_INHERITANCE_NUM(BgL_arg1911z00_2517);
											BgL_test2329z00_3943 =
												(VECTOR_REF(BGl_za2inheritancesza2z00zz__objectz00,
													(BgL_idxz00_2523 + 1L)) == BgL_classz00_2515);
										}
									else
										{	/* Unsafe/tar.scm 332 */
											bool_t BgL_res1970z00_2548;

											{	/* Unsafe/tar.scm 332 */
												obj_t BgL_oclassz00_2531;

												{	/* Unsafe/tar.scm 332 */
													obj_t BgL_arg1919z00_2539;
													long BgL_arg1920z00_2540;

													BgL_arg1919z00_2539 =
														(BGl_za2classesza2z00zz__objectz00);
													{	/* Unsafe/tar.scm 332 */
														long BgL_arg1921z00_2541;

														BgL_arg1921z00_2541 =
															BGL_OBJECT_CLASS_NUM(BgL_arg1911z00_2517);
														BgL_arg1920z00_2540 =
															(BgL_arg1921z00_2541 - OBJECT_TYPE);
													}
													BgL_oclassz00_2531 =
														VECTOR_REF(BgL_arg1919z00_2539,
														BgL_arg1920z00_2540);
												}
												{	/* Unsafe/tar.scm 332 */
													bool_t BgL__ortest_1121z00_2532;

													BgL__ortest_1121z00_2532 =
														(BgL_classz00_2515 == BgL_oclassz00_2531);
													if (BgL__ortest_1121z00_2532)
														{	/* Unsafe/tar.scm 332 */
															BgL_res1970z00_2548 = BgL__ortest_1121z00_2532;
														}
													else
														{	/* Unsafe/tar.scm 332 */
															long BgL_odepthz00_2533;

															{	/* Unsafe/tar.scm 332 */
																obj_t BgL_arg1907z00_2534;

																BgL_arg1907z00_2534 = (BgL_oclassz00_2531);
																BgL_odepthz00_2533 =
																	BGL_CLASS_DEPTH(BgL_arg1907z00_2534);
															}
															if ((1L < BgL_odepthz00_2533))
																{	/* Unsafe/tar.scm 332 */
																	obj_t BgL_arg1905z00_2536;

																	{	/* Unsafe/tar.scm 332 */
																		obj_t BgL_arg1906z00_2537;

																		BgL_arg1906z00_2537 = (BgL_oclassz00_2531);
																		BgL_arg1905z00_2536 =
																			BGL_CLASS_ANCESTORS_REF
																			(BgL_arg1906z00_2537, 1L);
																	}
																	BgL_res1970z00_2548 =
																		(BgL_arg1905z00_2536 == BgL_classz00_2515);
																}
															else
																{	/* Unsafe/tar.scm 332 */
																	BgL_res1970z00_2548 = ((bool_t) 0);
																}
														}
												}
											}
											BgL_test2329z00_3943 = BgL_res1970z00_2548;
										}
								}
							else
								{	/* Unsafe/tar.scm 332 */
									BgL_test2329z00_3943 = ((bool_t) 0);
								}
						}
						if (BgL_test2329z00_3943)
							{	/* Unsafe/tar.scm 334 */
								obj_t BgL_casezd2valuezd2_1573;

								BgL_casezd2valuezd2_1573 =
									(((BgL_tarzd2headerzd2_bglt) COBJECT(
											((BgL_tarzd2headerzd2_bglt) BgL_hz00_1570)))->
									BgL_typez00);
								if ((BgL_casezd2valuezd2_1573 == BGl_symbol2019z00zz__tarz00))
									{	/* Unsafe/tar.scm 334 */
										goto BgL_zc3z04anonymousza31483ze3z87_1569;
									}
								else
									{	/* Unsafe/tar.scm 334 */
										if (
											(BgL_casezd2valuezd2_1573 == BGl_symbol2009z00zz__tarz00))
											{	/* Unsafe/tar.scm 338 */
												obj_t BgL_bz00_1576;
												obj_t BgL_nz00_1577;

												BgL_bz00_1576 =
													BGl_tarzd2readzd2blockz00zz__tarz00(BgL_hz00_1570,
													BgL_ipz00_29);
												BgL_nz00_1577 =
													(((BgL_tarzd2headerzd2_bglt)
														COBJECT(((BgL_tarzd2headerzd2_bglt)
																BgL_hz00_1570)))->BgL_namez00);
												if (CBOOL(BGl_memberz00zz__r4_pairs_and_lists_6_3z00
														(BgL_nz00_1577, BgL_filesz00_30)))
													{	/* Unsafe/tar.scm 340 */
														return BgL_bz00_1576;
													}
												else
													{	/* Unsafe/tar.scm 340 */
														goto BgL_zc3z04anonymousza31483ze3z87_1569;
													}
											}
										else
											{	/* Unsafe/tar.scm 334 */
												return BFALSE;
											}
									}
							}
						else
							{	/* Unsafe/tar.scm 332 */
								return BFALSE;
							}
					}
				}
			}
		}

	}



/* object-init */
	obj_t BGl_objectzd2initzd2zz__tarz00(void)
	{
		{	/* Unsafe/tar.scm 17 */
			{	/* Unsafe/tar.scm 55 */
				obj_t BgL_arg1491z00_1585;
				obj_t BgL_arg1492z00_1586;

				{	/* Unsafe/tar.scm 55 */
					obj_t BgL_v1138z00_1612;

					BgL_v1138z00_1612 = create_vector(14L);
					VECTOR_SET(BgL_v1138z00_1612, 0L,
						BGl_makezd2classzd2fieldz00zz__objectz00
						(BGl_symbol2036z00zz__tarz00, BGl_proc2091z00zz__tarz00,
							BGl_proc2090z00zz__tarz00, ((bool_t) 1), ((bool_t) 0), BFALSE,
							BFALSE, BGl_symbol2092z00zz__tarz00));
					VECTOR_SET(BgL_v1138z00_1612, 1L,
						BGl_makezd2classzd2fieldz00zz__objectz00
						(BGl_symbol2038z00zz__tarz00, BGl_proc2095z00zz__tarz00,
							BGl_proc2094z00zz__tarz00, ((bool_t) 1), ((bool_t) 0), BFALSE,
							BFALSE, BGl_symbol2096z00zz__tarz00));
					VECTOR_SET(BgL_v1138z00_1612, 2L,
						BGl_makezd2classzd2fieldz00zz__objectz00
						(BGl_symbol2040z00zz__tarz00, BGl_proc2098z00zz__tarz00,
							BGl_proc2097z00zz__tarz00, ((bool_t) 1), ((bool_t) 0), BFALSE,
							BFALSE, BGl_symbol2096z00zz__tarz00));
					VECTOR_SET(BgL_v1138z00_1612, 3L,
						BGl_makezd2classzd2fieldz00zz__objectz00
						(BGl_symbol2042z00zz__tarz00, BGl_proc2100z00zz__tarz00,
							BGl_proc2099z00zz__tarz00, ((bool_t) 1), ((bool_t) 0), BFALSE,
							BFALSE, BGl_symbol2096z00zz__tarz00));
					VECTOR_SET(BgL_v1138z00_1612, 4L,
						BGl_makezd2classzd2fieldz00zz__objectz00
						(BGl_symbol2044z00zz__tarz00, BGl_proc2102z00zz__tarz00,
							BGl_proc2101z00zz__tarz00, ((bool_t) 1), ((bool_t) 0), BFALSE,
							BFALSE, BGl_symbol2103z00zz__tarz00));
					VECTOR_SET(BgL_v1138z00_1612, 5L,
						BGl_makezd2classzd2fieldz00zz__objectz00
						(BGl_symbol2046z00zz__tarz00, BGl_proc2106z00zz__tarz00,
							BGl_proc2105z00zz__tarz00, ((bool_t) 1), ((bool_t) 0), BFALSE,
							BFALSE, BGl_symbol2107z00zz__tarz00));
					VECTOR_SET(BgL_v1138z00_1612, 6L,
						BGl_makezd2classzd2fieldz00zz__objectz00
						(BGl_symbol2111z00zz__tarz00, BGl_proc2110z00zz__tarz00,
							BGl_proc2109z00zz__tarz00, ((bool_t) 1), ((bool_t) 0), BFALSE,
							BFALSE, BGl_symbol2096z00zz__tarz00));
					VECTOR_SET(BgL_v1138z00_1612, 7L,
						BGl_makezd2classzd2fieldz00zz__objectz00
						(BGl_symbol2115z00zz__tarz00, BGl_proc2114z00zz__tarz00,
							BGl_proc2113z00zz__tarz00, ((bool_t) 1), ((bool_t) 0), BFALSE,
							BFALSE, BGl_symbol2117z00zz__tarz00));
					VECTOR_SET(BgL_v1138z00_1612, 8L,
						BGl_makezd2classzd2fieldz00zz__objectz00
						(BGl_symbol2050z00zz__tarz00, BGl_proc2120z00zz__tarz00,
							BGl_proc2119z00zz__tarz00, ((bool_t) 1), ((bool_t) 0), BFALSE,
							BFALSE, BGl_symbol2092z00zz__tarz00));
					VECTOR_SET(BgL_v1138z00_1612, 9L,
						BGl_makezd2classzd2fieldz00zz__objectz00
						(BGl_symbol2052z00zz__tarz00, BGl_proc2122z00zz__tarz00,
							BGl_proc2121z00zz__tarz00, ((bool_t) 1), ((bool_t) 0), BFALSE,
							BFALSE, BGl_symbol2092z00zz__tarz00));
					VECTOR_SET(BgL_v1138z00_1612, 10L,
						BGl_makezd2classzd2fieldz00zz__objectz00
						(BGl_symbol2054z00zz__tarz00, BGl_proc2124z00zz__tarz00,
							BGl_proc2123z00zz__tarz00, ((bool_t) 1), ((bool_t) 0), BFALSE,
							BFALSE, BGl_symbol2092z00zz__tarz00));
					VECTOR_SET(BgL_v1138z00_1612, 11L,
						BGl_makezd2classzd2fieldz00zz__objectz00
						(BGl_symbol2056z00zz__tarz00, BGl_proc2126z00zz__tarz00,
							BGl_proc2125z00zz__tarz00, ((bool_t) 1), ((bool_t) 0), BFALSE,
							BFALSE, BGl_symbol2092z00zz__tarz00));
					VECTOR_SET(BgL_v1138z00_1612, 12L,
						BGl_makezd2classzd2fieldz00zz__objectz00
						(BGl_symbol2058z00zz__tarz00, BGl_proc2128z00zz__tarz00,
							BGl_proc2127z00zz__tarz00, ((bool_t) 1), ((bool_t) 0), BFALSE,
							BFALSE, BGl_symbol2096z00zz__tarz00));
					VECTOR_SET(BgL_v1138z00_1612, 13L,
						BGl_makezd2classzd2fieldz00zz__objectz00
						(BGl_symbol2060z00zz__tarz00, BGl_proc2130z00zz__tarz00,
							BGl_proc2129z00zz__tarz00, ((bool_t) 1), ((bool_t) 0), BFALSE,
							BFALSE, BGl_symbol2096z00zz__tarz00));
					BgL_arg1491z00_1585 = BgL_v1138z00_1612;
				}
				{	/* Unsafe/tar.scm 55 */
					obj_t BgL_v1139z00_1753;

					BgL_v1139z00_1753 = create_vector(0L);
					BgL_arg1492z00_1586 = BgL_v1139z00_1753;
				}
				return (BGl_tarzd2headerzd2zz__tarz00 =
					BGl_registerzd2classz12zc0zz__objectz00(BGl_symbol2134z00zz__tarz00,
						BGl_symbol2135z00zz__tarz00, BGl_objectz00zz__objectz00, 38086L,
						BGl_proc2133z00zz__tarz00, BGl_proc2132z00zz__tarz00, BFALSE,
						BGl_proc2131z00zz__tarz00, BFALSE, BgL_arg1491z00_1585,
						BgL_arg1492z00_1586), BUNSPEC);
			}
		}

	}



/* &<@anonymous:1498> */
	obj_t BGl_z62zc3z04anonymousza31498ze3ze5zz__tarz00(obj_t BgL_envz00_2946,
		obj_t BgL_new1055z00_2947)
	{
		{	/* Unsafe/tar.scm 55 */
			{
				BgL_tarzd2headerzd2_bglt BgL_auxz00_4009;

				((((BgL_tarzd2headerzd2_bglt) COBJECT(
								((BgL_tarzd2headerzd2_bglt) BgL_new1055z00_2947)))->
						BgL_namez00) = ((obj_t) BGl_string2035z00zz__tarz00), BUNSPEC);
				((((BgL_tarzd2headerzd2_bglt) COBJECT(((BgL_tarzd2headerzd2_bglt)
									BgL_new1055z00_2947)))->BgL_modez00) = ((long) 0L), BUNSPEC);
				((((BgL_tarzd2headerzd2_bglt) COBJECT(((BgL_tarzd2headerzd2_bglt)
									BgL_new1055z00_2947)))->BgL_uidz00) = ((long) 0L), BUNSPEC);
				((((BgL_tarzd2headerzd2_bglt) COBJECT(((BgL_tarzd2headerzd2_bglt)
									BgL_new1055z00_2947)))->BgL_gidz00) = ((long) 0L), BUNSPEC);
				{
					long BgL_auxz00_4018;

					{	/* Unsafe/tar.scm 55 */

						BgL_auxz00_4018 =
							BGl_stringzd2ze3elongz31zz__r4_numbers_6_5_fixnumz00
							(BGl_string2137z00zz__tarz00, 10L);
					}
					((((BgL_tarzd2headerzd2_bglt) COBJECT(
									((BgL_tarzd2headerzd2_bglt) BgL_new1055z00_2947)))->
							BgL_siza7eza7) = ((long) BgL_auxz00_4018), BUNSPEC);
				}
				{
					obj_t BgL_auxz00_4022;

					{	/* Unsafe/tar.scm 55 */
						BGL_LONGLONG_T BgL_arg1894z00_3123;

						BgL_arg1894z00_3123 = bgl_current_nanoseconds();
						BgL_auxz00_4022 = bgl_nanoseconds_to_date(BgL_arg1894z00_3123);
					}
					((((BgL_tarzd2headerzd2_bglt) COBJECT(
									((BgL_tarzd2headerzd2_bglt) BgL_new1055z00_2947)))->
							BgL_mtimez00) = ((obj_t) BgL_auxz00_4022), BUNSPEC);
				}
				((((BgL_tarzd2headerzd2_bglt) COBJECT(
								((BgL_tarzd2headerzd2_bglt) BgL_new1055z00_2947)))->
						BgL_checksumz00) = ((long) 0L), BUNSPEC);
				((((BgL_tarzd2headerzd2_bglt) COBJECT(((BgL_tarzd2headerzd2_bglt)
									BgL_new1055z00_2947)))->BgL_typez00) =
					((obj_t) BGl_symbol2138z00zz__tarz00), BUNSPEC);
				((((BgL_tarzd2headerzd2_bglt) COBJECT(((BgL_tarzd2headerzd2_bglt)
									BgL_new1055z00_2947)))->BgL_linknamez00) =
					((obj_t) BGl_string2035z00zz__tarz00), BUNSPEC);
				((((BgL_tarzd2headerzd2_bglt) COBJECT(((BgL_tarzd2headerzd2_bglt)
									BgL_new1055z00_2947)))->BgL_magicz00) =
					((obj_t) BGl_string2035z00zz__tarz00), BUNSPEC);
				((((BgL_tarzd2headerzd2_bglt) COBJECT(((BgL_tarzd2headerzd2_bglt)
									BgL_new1055z00_2947)))->BgL_unamez00) =
					((obj_t) BGl_string2035z00zz__tarz00), BUNSPEC);
				((((BgL_tarzd2headerzd2_bglt) COBJECT(((BgL_tarzd2headerzd2_bglt)
									BgL_new1055z00_2947)))->BgL_gnamez00) =
					((obj_t) BGl_string2035z00zz__tarz00), BUNSPEC);
				((((BgL_tarzd2headerzd2_bglt) COBJECT(((BgL_tarzd2headerzd2_bglt)
									BgL_new1055z00_2947)))->BgL_devmajorz00) =
					((long) 0L), BUNSPEC);
				((((BgL_tarzd2headerzd2_bglt) COBJECT(((BgL_tarzd2headerzd2_bglt)
									BgL_new1055z00_2947)))->BgL_devminorz00) =
					((long) 0L), BUNSPEC);
				BgL_auxz00_4009 = ((BgL_tarzd2headerzd2_bglt) BgL_new1055z00_2947);
				return ((obj_t) BgL_auxz00_4009);
			}
		}

	}



/* &lambda1495 */
	BgL_tarzd2headerzd2_bglt BGl_z62lambda1495z62zz__tarz00(obj_t BgL_envz00_2948)
	{
		{	/* Unsafe/tar.scm 55 */
			{	/* Unsafe/tar.scm 55 */
				BgL_tarzd2headerzd2_bglt BgL_new1054z00_3124;

				BgL_new1054z00_3124 =
					((BgL_tarzd2headerzd2_bglt) BOBJECT(GC_MALLOC(sizeof(struct
								BgL_tarzd2headerzd2_bgl))));
				{	/* Unsafe/tar.scm 55 */
					long BgL_arg1497z00_3125;

					BgL_arg1497z00_3125 = BGL_CLASS_NUM(BGl_tarzd2headerzd2zz__tarz00);
					BGL_OBJECT_CLASS_NUM_SET(
						((BgL_objectz00_bglt) BgL_new1054z00_3124), BgL_arg1497z00_3125);
				}
				return BgL_new1054z00_3124;
			}
		}

	}



/* &lambda1493 */
	BgL_tarzd2headerzd2_bglt BGl_z62lambda1493z62zz__tarz00(obj_t BgL_envz00_2949,
		obj_t BgL_name1040z00_2950, obj_t BgL_mode1041z00_2951,
		obj_t BgL_uid1042z00_2952, obj_t BgL_gid1043z00_2953,
		obj_t BgL_siza7e1044za7_2954, obj_t BgL_mtime1045z00_2955,
		obj_t BgL_checksum1046z00_2956, obj_t BgL_type1047z00_2957,
		obj_t BgL_linkname1048z00_2958, obj_t BgL_magic1049z00_2959,
		obj_t BgL_uname1050z00_2960, obj_t BgL_gname1051z00_2961,
		obj_t BgL_devmajor1052z00_2962, obj_t BgL_devminor1053z00_2963)
	{
		{	/* Unsafe/tar.scm 55 */
			{	/* Unsafe/tar.scm 55 */
				long BgL_mode1041z00_3127;
				long BgL_uid1042z00_3128;
				long BgL_gid1043z00_3129;
				long BgL_siza7e1044za7_3130;
				long BgL_checksum1046z00_3132;
				long BgL_devmajor1052z00_3138;
				long BgL_devminor1053z00_3139;

				BgL_mode1041z00_3127 = (long) CINT(BgL_mode1041z00_2951);
				BgL_uid1042z00_3128 = (long) CINT(BgL_uid1042z00_2952);
				BgL_gid1043z00_3129 = (long) CINT(BgL_gid1043z00_2953);
				BgL_siza7e1044za7_3130 = BELONG_TO_LONG(BgL_siza7e1044za7_2954);
				BgL_checksum1046z00_3132 = (long) CINT(BgL_checksum1046z00_2956);
				BgL_devmajor1052z00_3138 = (long) CINT(BgL_devmajor1052z00_2962);
				BgL_devminor1053z00_3139 = (long) CINT(BgL_devminor1053z00_2963);
				{	/* Unsafe/tar.scm 55 */
					BgL_tarzd2headerzd2_bglt BgL_new1079z00_3140;

					{	/* Unsafe/tar.scm 55 */
						BgL_tarzd2headerzd2_bglt BgL_new1078z00_3141;

						BgL_new1078z00_3141 =
							((BgL_tarzd2headerzd2_bglt) BOBJECT(GC_MALLOC(sizeof(struct
										BgL_tarzd2headerzd2_bgl))));
						{	/* Unsafe/tar.scm 55 */
							long BgL_arg1494z00_3142;

							BgL_arg1494z00_3142 =
								BGL_CLASS_NUM(BGl_tarzd2headerzd2zz__tarz00);
							BGL_OBJECT_CLASS_NUM_SET(
								((BgL_objectz00_bglt) BgL_new1078z00_3141),
								BgL_arg1494z00_3142);
						}
						BgL_new1079z00_3140 = BgL_new1078z00_3141;
					}
					((((BgL_tarzd2headerzd2_bglt) COBJECT(BgL_new1079z00_3140))->
							BgL_namez00) = ((obj_t) ((obj_t) BgL_name1040z00_2950)), BUNSPEC);
					((((BgL_tarzd2headerzd2_bglt) COBJECT(BgL_new1079z00_3140))->
							BgL_modez00) = ((long) BgL_mode1041z00_3127), BUNSPEC);
					((((BgL_tarzd2headerzd2_bglt) COBJECT(BgL_new1079z00_3140))->
							BgL_uidz00) = ((long) BgL_uid1042z00_3128), BUNSPEC);
					((((BgL_tarzd2headerzd2_bglt) COBJECT(BgL_new1079z00_3140))->
							BgL_gidz00) = ((long) BgL_gid1043z00_3129), BUNSPEC);
					((((BgL_tarzd2headerzd2_bglt) COBJECT(BgL_new1079z00_3140))->
							BgL_siza7eza7) = ((long) BgL_siza7e1044za7_3130), BUNSPEC);
					((((BgL_tarzd2headerzd2_bglt) COBJECT(BgL_new1079z00_3140))->
							BgL_mtimez00) =
						((obj_t) ((obj_t) BgL_mtime1045z00_2955)), BUNSPEC);
					((((BgL_tarzd2headerzd2_bglt) COBJECT(BgL_new1079z00_3140))->
							BgL_checksumz00) = ((long) BgL_checksum1046z00_3132), BUNSPEC);
					((((BgL_tarzd2headerzd2_bglt) COBJECT(BgL_new1079z00_3140))->
							BgL_typez00) = ((obj_t) ((obj_t) BgL_type1047z00_2957)), BUNSPEC);
					((((BgL_tarzd2headerzd2_bglt) COBJECT(BgL_new1079z00_3140))->
							BgL_linknamez00) =
						((obj_t) ((obj_t) BgL_linkname1048z00_2958)), BUNSPEC);
					((((BgL_tarzd2headerzd2_bglt) COBJECT(BgL_new1079z00_3140))->
							BgL_magicz00) =
						((obj_t) ((obj_t) BgL_magic1049z00_2959)), BUNSPEC);
					((((BgL_tarzd2headerzd2_bglt) COBJECT(BgL_new1079z00_3140))->
							BgL_unamez00) =
						((obj_t) ((obj_t) BgL_uname1050z00_2960)), BUNSPEC);
					((((BgL_tarzd2headerzd2_bglt) COBJECT(BgL_new1079z00_3140))->
							BgL_gnamez00) =
						((obj_t) ((obj_t) BgL_gname1051z00_2961)), BUNSPEC);
					((((BgL_tarzd2headerzd2_bglt) COBJECT(BgL_new1079z00_3140))->
							BgL_devmajorz00) = ((long) BgL_devmajor1052z00_3138), BUNSPEC);
					((((BgL_tarzd2headerzd2_bglt) COBJECT(BgL_new1079z00_3140))->
							BgL_devminorz00) = ((long) BgL_devminor1053z00_3139), BUNSPEC);
					return BgL_new1079z00_3140;
				}
			}
		}

	}



/* &lambda1581 */
	obj_t BGl_z62lambda1581z62zz__tarz00(obj_t BgL_envz00_2964,
		obj_t BgL_oz00_2965, obj_t BgL_vz00_2966)
	{
		{	/* Unsafe/tar.scm 55 */
			{	/* Unsafe/tar.scm 55 */
				long BgL_vz00_3144;

				BgL_vz00_3144 = (long) CINT(BgL_vz00_2966);
				return
					((((BgL_tarzd2headerzd2_bglt) COBJECT(
								((BgL_tarzd2headerzd2_bglt) BgL_oz00_2965)))->BgL_devminorz00) =
					((long) BgL_vz00_3144), BUNSPEC);
		}}

	}



/* &lambda1580 */
	obj_t BGl_z62lambda1580z62zz__tarz00(obj_t BgL_envz00_2967,
		obj_t BgL_oz00_2968)
	{
		{	/* Unsafe/tar.scm 55 */
			return
				BINT(
				(((BgL_tarzd2headerzd2_bglt) COBJECT(
							((BgL_tarzd2headerzd2_bglt) BgL_oz00_2968)))->BgL_devminorz00));
		}

	}



/* &lambda1575 */
	obj_t BGl_z62lambda1575z62zz__tarz00(obj_t BgL_envz00_2969,
		obj_t BgL_oz00_2970, obj_t BgL_vz00_2971)
	{
		{	/* Unsafe/tar.scm 55 */
			{	/* Unsafe/tar.scm 55 */
				long BgL_vz00_3147;

				BgL_vz00_3147 = (long) CINT(BgL_vz00_2971);
				return
					((((BgL_tarzd2headerzd2_bglt) COBJECT(
								((BgL_tarzd2headerzd2_bglt) BgL_oz00_2970)))->BgL_devmajorz00) =
					((long) BgL_vz00_3147), BUNSPEC);
		}}

	}



/* &lambda1574 */
	obj_t BGl_z62lambda1574z62zz__tarz00(obj_t BgL_envz00_2972,
		obj_t BgL_oz00_2973)
	{
		{	/* Unsafe/tar.scm 55 */
			return
				BINT(
				(((BgL_tarzd2headerzd2_bglt) COBJECT(
							((BgL_tarzd2headerzd2_bglt) BgL_oz00_2973)))->BgL_devmajorz00));
		}

	}



/* &lambda1567 */
	obj_t BGl_z62lambda1567z62zz__tarz00(obj_t BgL_envz00_2974,
		obj_t BgL_oz00_2975, obj_t BgL_vz00_2976)
	{
		{	/* Unsafe/tar.scm 55 */
			return
				((((BgL_tarzd2headerzd2_bglt) COBJECT(
							((BgL_tarzd2headerzd2_bglt) BgL_oz00_2975)))->BgL_gnamez00) =
				((obj_t) ((obj_t) BgL_vz00_2976)), BUNSPEC);
		}

	}



/* &lambda1566 */
	obj_t BGl_z62lambda1566z62zz__tarz00(obj_t BgL_envz00_2977,
		obj_t BgL_oz00_2978)
	{
		{	/* Unsafe/tar.scm 55 */
			return
				(((BgL_tarzd2headerzd2_bglt) COBJECT(
						((BgL_tarzd2headerzd2_bglt) BgL_oz00_2978)))->BgL_gnamez00);
		}

	}



/* &lambda1561 */
	obj_t BGl_z62lambda1561z62zz__tarz00(obj_t BgL_envz00_2979,
		obj_t BgL_oz00_2980, obj_t BgL_vz00_2981)
	{
		{	/* Unsafe/tar.scm 55 */
			return
				((((BgL_tarzd2headerzd2_bglt) COBJECT(
							((BgL_tarzd2headerzd2_bglt) BgL_oz00_2980)))->BgL_unamez00) =
				((obj_t) ((obj_t) BgL_vz00_2981)), BUNSPEC);
		}

	}



/* &lambda1560 */
	obj_t BGl_z62lambda1560z62zz__tarz00(obj_t BgL_envz00_2982,
		obj_t BgL_oz00_2983)
	{
		{	/* Unsafe/tar.scm 55 */
			return
				(((BgL_tarzd2headerzd2_bglt) COBJECT(
						((BgL_tarzd2headerzd2_bglt) BgL_oz00_2983)))->BgL_unamez00);
		}

	}



/* &lambda1554 */
	obj_t BGl_z62lambda1554z62zz__tarz00(obj_t BgL_envz00_2984,
		obj_t BgL_oz00_2985, obj_t BgL_vz00_2986)
	{
		{	/* Unsafe/tar.scm 55 */
			return
				((((BgL_tarzd2headerzd2_bglt) COBJECT(
							((BgL_tarzd2headerzd2_bglt) BgL_oz00_2985)))->BgL_magicz00) =
				((obj_t) ((obj_t) BgL_vz00_2986)), BUNSPEC);
		}

	}



/* &lambda1553 */
	obj_t BGl_z62lambda1553z62zz__tarz00(obj_t BgL_envz00_2987,
		obj_t BgL_oz00_2988)
	{
		{	/* Unsafe/tar.scm 55 */
			return
				(((BgL_tarzd2headerzd2_bglt) COBJECT(
						((BgL_tarzd2headerzd2_bglt) BgL_oz00_2988)))->BgL_magicz00);
		}

	}



/* &lambda1548 */
	obj_t BGl_z62lambda1548z62zz__tarz00(obj_t BgL_envz00_2989,
		obj_t BgL_oz00_2990, obj_t BgL_vz00_2991)
	{
		{	/* Unsafe/tar.scm 55 */
			return
				((((BgL_tarzd2headerzd2_bglt) COBJECT(
							((BgL_tarzd2headerzd2_bglt) BgL_oz00_2990)))->BgL_linknamez00) =
				((obj_t) ((obj_t) BgL_vz00_2991)), BUNSPEC);
		}

	}



/* &lambda1547 */
	obj_t BGl_z62lambda1547z62zz__tarz00(obj_t BgL_envz00_2992,
		obj_t BgL_oz00_2993)
	{
		{	/* Unsafe/tar.scm 55 */
			return
				(((BgL_tarzd2headerzd2_bglt) COBJECT(
						((BgL_tarzd2headerzd2_bglt) BgL_oz00_2993)))->BgL_linknamez00);
		}

	}



/* &lambda1542 */
	obj_t BGl_z62lambda1542z62zz__tarz00(obj_t BgL_envz00_2994,
		obj_t BgL_oz00_2995, obj_t BgL_vz00_2996)
	{
		{	/* Unsafe/tar.scm 55 */
			return
				((((BgL_tarzd2headerzd2_bglt) COBJECT(
							((BgL_tarzd2headerzd2_bglt) BgL_oz00_2995)))->BgL_typez00) =
				((obj_t) ((obj_t) BgL_vz00_2996)), BUNSPEC);
		}

	}



/* &lambda1541 */
	obj_t BGl_z62lambda1541z62zz__tarz00(obj_t BgL_envz00_2997,
		obj_t BgL_oz00_2998)
	{
		{	/* Unsafe/tar.scm 55 */
			return
				(((BgL_tarzd2headerzd2_bglt) COBJECT(
						((BgL_tarzd2headerzd2_bglt) BgL_oz00_2998)))->BgL_typez00);
		}

	}



/* &lambda1536 */
	obj_t BGl_z62lambda1536z62zz__tarz00(obj_t BgL_envz00_2999,
		obj_t BgL_oz00_3000, obj_t BgL_vz00_3001)
	{
		{	/* Unsafe/tar.scm 55 */
			{	/* Unsafe/tar.scm 55 */
				long BgL_vz00_3165;

				BgL_vz00_3165 = (long) CINT(BgL_vz00_3001);
				return
					((((BgL_tarzd2headerzd2_bglt) COBJECT(
								((BgL_tarzd2headerzd2_bglt) BgL_oz00_3000)))->BgL_checksumz00) =
					((long) BgL_vz00_3165), BUNSPEC);
		}}

	}



/* &lambda1535 */
	obj_t BGl_z62lambda1535z62zz__tarz00(obj_t BgL_envz00_3002,
		obj_t BgL_oz00_3003)
	{
		{	/* Unsafe/tar.scm 55 */
			return
				BINT(
				(((BgL_tarzd2headerzd2_bglt) COBJECT(
							((BgL_tarzd2headerzd2_bglt) BgL_oz00_3003)))->BgL_checksumz00));
		}

	}



/* &lambda1529 */
	obj_t BGl_z62lambda1529z62zz__tarz00(obj_t BgL_envz00_3004,
		obj_t BgL_oz00_3005, obj_t BgL_vz00_3006)
	{
		{	/* Unsafe/tar.scm 55 */
			return
				((((BgL_tarzd2headerzd2_bglt) COBJECT(
							((BgL_tarzd2headerzd2_bglt) BgL_oz00_3005)))->BgL_mtimez00) =
				((obj_t) ((obj_t) BgL_vz00_3006)), BUNSPEC);
		}

	}



/* &lambda1528 */
	obj_t BGl_z62lambda1528z62zz__tarz00(obj_t BgL_envz00_3007,
		obj_t BgL_oz00_3008)
	{
		{	/* Unsafe/tar.scm 55 */
			return
				(((BgL_tarzd2headerzd2_bglt) COBJECT(
						((BgL_tarzd2headerzd2_bglt) BgL_oz00_3008)))->BgL_mtimez00);
		}

	}



/* &lambda1524 */
	obj_t BGl_z62lambda1524z62zz__tarz00(obj_t BgL_envz00_3009,
		obj_t BgL_oz00_3010, obj_t BgL_vz00_3011)
	{
		{	/* Unsafe/tar.scm 55 */
			{	/* Unsafe/tar.scm 55 */
				long BgL_vz00_3171;

				BgL_vz00_3171 = BELONG_TO_LONG(BgL_vz00_3011);
				return
					((((BgL_tarzd2headerzd2_bglt) COBJECT(
								((BgL_tarzd2headerzd2_bglt) BgL_oz00_3010)))->BgL_siza7eza7) =
					((long) BgL_vz00_3171), BUNSPEC);
		}}

	}



/* &lambda1523 */
	obj_t BGl_z62lambda1523z62zz__tarz00(obj_t BgL_envz00_3012,
		obj_t BgL_oz00_3013)
	{
		{	/* Unsafe/tar.scm 55 */
			return
				make_belong(
				(((BgL_tarzd2headerzd2_bglt) COBJECT(
							((BgL_tarzd2headerzd2_bglt) BgL_oz00_3013)))->BgL_siza7eza7));
		}

	}



/* &lambda1519 */
	obj_t BGl_z62lambda1519z62zz__tarz00(obj_t BgL_envz00_3014,
		obj_t BgL_oz00_3015, obj_t BgL_vz00_3016)
	{
		{	/* Unsafe/tar.scm 55 */
			{	/* Unsafe/tar.scm 55 */
				long BgL_vz00_3174;

				BgL_vz00_3174 = (long) CINT(BgL_vz00_3016);
				return
					((((BgL_tarzd2headerzd2_bglt) COBJECT(
								((BgL_tarzd2headerzd2_bglt) BgL_oz00_3015)))->BgL_gidz00) =
					((long) BgL_vz00_3174), BUNSPEC);
		}}

	}



/* &lambda1518 */
	obj_t BGl_z62lambda1518z62zz__tarz00(obj_t BgL_envz00_3017,
		obj_t BgL_oz00_3018)
	{
		{	/* Unsafe/tar.scm 55 */
			return
				BINT(
				(((BgL_tarzd2headerzd2_bglt) COBJECT(
							((BgL_tarzd2headerzd2_bglt) BgL_oz00_3018)))->BgL_gidz00));
		}

	}



/* &lambda1514 */
	obj_t BGl_z62lambda1514z62zz__tarz00(obj_t BgL_envz00_3019,
		obj_t BgL_oz00_3020, obj_t BgL_vz00_3021)
	{
		{	/* Unsafe/tar.scm 55 */
			{	/* Unsafe/tar.scm 55 */
				long BgL_vz00_3177;

				BgL_vz00_3177 = (long) CINT(BgL_vz00_3021);
				return
					((((BgL_tarzd2headerzd2_bglt) COBJECT(
								((BgL_tarzd2headerzd2_bglt) BgL_oz00_3020)))->BgL_uidz00) =
					((long) BgL_vz00_3177), BUNSPEC);
		}}

	}



/* &lambda1513 */
	obj_t BGl_z62lambda1513z62zz__tarz00(obj_t BgL_envz00_3022,
		obj_t BgL_oz00_3023)
	{
		{	/* Unsafe/tar.scm 55 */
			return
				BINT(
				(((BgL_tarzd2headerzd2_bglt) COBJECT(
							((BgL_tarzd2headerzd2_bglt) BgL_oz00_3023)))->BgL_uidz00));
		}

	}



/* &lambda1509 */
	obj_t BGl_z62lambda1509z62zz__tarz00(obj_t BgL_envz00_3024,
		obj_t BgL_oz00_3025, obj_t BgL_vz00_3026)
	{
		{	/* Unsafe/tar.scm 55 */
			{	/* Unsafe/tar.scm 55 */
				long BgL_vz00_3180;

				BgL_vz00_3180 = (long) CINT(BgL_vz00_3026);
				return
					((((BgL_tarzd2headerzd2_bglt) COBJECT(
								((BgL_tarzd2headerzd2_bglt) BgL_oz00_3025)))->BgL_modez00) =
					((long) BgL_vz00_3180), BUNSPEC);
		}}

	}



/* &lambda1508 */
	obj_t BGl_z62lambda1508z62zz__tarz00(obj_t BgL_envz00_3027,
		obj_t BgL_oz00_3028)
	{
		{	/* Unsafe/tar.scm 55 */
			return
				BINT(
				(((BgL_tarzd2headerzd2_bglt) COBJECT(
							((BgL_tarzd2headerzd2_bglt) BgL_oz00_3028)))->BgL_modez00));
		}

	}



/* &lambda1504 */
	obj_t BGl_z62lambda1504z62zz__tarz00(obj_t BgL_envz00_3029,
		obj_t BgL_oz00_3030, obj_t BgL_vz00_3031)
	{
		{	/* Unsafe/tar.scm 55 */
			return
				((((BgL_tarzd2headerzd2_bglt) COBJECT(
							((BgL_tarzd2headerzd2_bglt) BgL_oz00_3030)))->BgL_namez00) =
				((obj_t) ((obj_t) BgL_vz00_3031)), BUNSPEC);
		}

	}



/* &lambda1503 */
	obj_t BGl_z62lambda1503z62zz__tarz00(obj_t BgL_envz00_3032,
		obj_t BgL_oz00_3033)
	{
		{	/* Unsafe/tar.scm 55 */
			return
				(((BgL_tarzd2headerzd2_bglt) COBJECT(
						((BgL_tarzd2headerzd2_bglt) BgL_oz00_3033)))->BgL_namez00);
		}

	}



/* generic-init */
	obj_t BGl_genericzd2initzd2zz__tarz00(void)
	{
		{	/* Unsafe/tar.scm 17 */
			return BUNSPEC;
		}

	}



/* method-init */
	obj_t BGl_methodzd2initzd2zz__tarz00(void)
	{
		{	/* Unsafe/tar.scm 17 */
			return BUNSPEC;
		}

	}



/* imported-modules-init */
	obj_t BGl_importedzd2moduleszd2initz00zz__tarz00(void)
	{
		{	/* Unsafe/tar.scm 17 */
			BGl_modulezd2initializa7ationz75zz__errorz00(88804785L,
				BSTRING_TO_STRING(BGl_string2136z00zz__tarz00));
			BGl_modulezd2initializa7ationz75zz__r4_ports_6_10_1z00(185672289L,
				BSTRING_TO_STRING(BGl_string2136z00zz__tarz00));
			BGl_modulezd2initializa7ationz75zz__r4_output_6_10_3z00(86988580L,
				BSTRING_TO_STRING(BGl_string2136z00zz__tarz00));
			BGl_modulezd2initializa7ationz75zz__r5_control_features_6_4z00(228151370L,
				BSTRING_TO_STRING(BGl_string2136z00zz__tarz00));
			BGl_modulezd2initializa7ationz75zz__objectz00(475449627L,
				BSTRING_TO_STRING(BGl_string2136z00zz__tarz00));
			return
				BGl_modulezd2initializa7ationz75zz__rgcz00(352600006L,
				BSTRING_TO_STRING(BGl_string2136z00zz__tarz00));
		}

	}

#ifdef __cplusplus
}
#endif
