/*===========================================================================*/
/*   (Unsafe/tar.scm)                                                        */
/*   Bigloo (4.5b)                                                           */
/*   Inria -- Sophia Antipolis (c)       Fri Dec 22 05:17:06 PM CET 2023     */
/*===========================================================================*/
/* COMPILATION: (/home/serrano/prgm/project/bigloo/bigloo/bin/bigloo -ldopt -L/home/serrano/prgm/project/bigloo/bigloo/libbacktrace/home/serrano/prgm/project/bigloo/bigloo/lib/bigloo/4.5b  -srfi enable-gmp -srfi bigloo-unsafe -O3 -fcfa-arithmetic -q -lib-dir /home/serrano/prgm/project/bigloo/bigloo/lib/bigloo/4.5b -rm -copt -w -lib-dir /home/serrano/prgm/project/bigloo/bigloo/lib/bigloo/4.5b -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_symbol2002z00zz__tarz00 = BUNSPEC;
	static obj_t BGl_symbol2004z00zz__tarz00 = BUNSPEC;
	static obj_t BGl_symbol2006z00zz__tarz00 = BUNSPEC;
	static obj_t BGl_symbol2008z00zz__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_symbol2010z00zz__tarz00 = BUNSPEC;
	static obj_t BGl_symbol2012z00zz__tarz00 = BUNSPEC;
	static obj_t BGl_symbol2014z00zz__tarz00 = BUNSPEC;
	static obj_t BGl_symbol2016z00zz__tarz00 = BUNSPEC;
	extern obj_t bgl_directory_to_list(char *);
	static obj_t BGl_symbol2018z00zz__tarz00 = BUNSPEC;
	static obj_t BGl__tarzd2readzd2blockz00zz__tarz00(obj_t, obj_t);
	extern bool_t BGl_makezd2directorieszd2zz__r4_ports_6_10_1z00(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_symbol2100z00zz__tarz00 = BUNSPEC;
	static obj_t BGl_symbol2101z00zz__tarz00 = BUNSPEC;
	static obj_t BGl_symbol2020z00zz__tarz00 = BUNSPEC;
	static obj_t BGl_symbol2022z00zz__tarz00 = BUNSPEC;
	static obj_t BGl_symbol2104z00zz__tarz00 = BUNSPEC;
	static obj_t BGl_symbol2024z00zz__tarz00 = BUNSPEC;
	static obj_t BGl_symbol2026z00zz__tarz00 = BUNSPEC;
	static obj_t BGl_z62zc3z04anonymousza31460ze3ze5zz__tarz00(obj_t);
	extern obj_t bgl_display_obj(obj_t, obj_t);
	extern obj_t string_for_read(obj_t);
	extern obj_t BGl_typezd2errorzd2zz__errorz00(obj_t, obj_t, obj_t, obj_t,
		obj_t);
	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);
	extern obj_t BGl_za2classesza2z00zz__objectz00;
	extern obj_t bgl_nanoseconds_to_date(BGL_LONGLONG_T);
	extern bool_t fexists(char *);
	extern obj_t bgl_seconds_to_date(long);
	static obj_t BGl_symbol2047z00zz__tarz00 = BUNSPEC;
	static obj_t BGl__tarzd2readzd2headerz00zz__tarz00(obj_t, obj_t);
	static obj_t BGl_symbol2058z00zz__tarz00 = BUNSPEC;
	extern obj_t BGl_formatz00zz__r4_output_6_10_3z00(obj_t, obj_t);
	static BgL_tarzd2headerzd2_bglt BGl_z62lambda1500z62zz__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 BgL_tarzd2headerzd2_bglt BGl_z62lambda1502z62zz__tarz00(obj_t);
	static obj_t BGl_z62lambda1509z62zz__tarz00(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_genericzd2initzd2zz__tarz00(void);
	static obj_t BGl_symbol2062z00zz__tarz00 = BUNSPEC;
	static obj_t BGl_symbol2069z00zz__tarz00 = BUNSPEC;
	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_symbol1974z00zz__tarz00 = BUNSPEC;
	static obj_t BGl_importedzd2moduleszd2initz00zz__tarz00(void);
	static obj_t BGl_symbol1976z00zz__tarz00 = BUNSPEC;
	static obj_t BGl_z62lambda1510z62zz__tarz00(obj_t, obj_t, obj_t);
	static obj_t BGl_symbol1978z00zz__tarz00 = BUNSPEC;
	static obj_t BGl_gczd2rootszd2initz00zz__tarz00(void);
	extern obj_t BGl_makezd2classzd2fieldz00zz__objectz00(obj_t, obj_t, obj_t,
		bool_t, bool_t, obj_t, obj_t, obj_t);
	static obj_t BGl_z62lambda1517z62zz__tarz00(obj_t, obj_t);
	extern obj_t BGl_z62iozd2errorzb0zz__objectz00;
	static obj_t BGl_z62lambda1518z62zz__tarz00(obj_t, obj_t, obj_t);
	static obj_t BGl_objectzd2initzd2zz__tarz00(void);
	static obj_t BGl_symbol2073z00zz__tarz00 = BUNSPEC;
	static obj_t BGl_list2040z00zz__tarz00 = BUNSPEC;
	static obj_t BGl_symbol2077z00zz__tarz00 = BUNSPEC;
	static obj_t BGl_symbol1980z00zz__tarz00 = BUNSPEC;
	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);
	static obj_t BGl_symbol1982z00zz__tarz00 = BUNSPEC;
	static obj_t BGl_symbol1984z00zz__tarz00 = BUNSPEC;
	static obj_t BGl_symbol1986z00zz__tarz00 = BUNSPEC;
	static obj_t BGl_symbol1988z00zz__tarz00 = BUNSPEC;
	extern obj_t BGl_memqz00zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
	static obj_t BGl_z62lambda1522z62zz__tarz00(obj_t, obj_t);
	extern obj_t BGl_za2inheritancesza2z00zz__objectz00;
	static obj_t BGl_z62lambda1523z62zz__tarz00(obj_t, obj_t, obj_t);
	static obj_t BGl_z62lambda1527z62zz__tarz00(obj_t, obj_t);
	static obj_t BGl_z62lambda1528z62zz__tarz00(obj_t, obj_t, obj_t);
	extern obj_t BGl_objectz00zz__objectz00;
	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_symbol2081z00zz__tarz00 = BUNSPEC;
	static obj_t BGl_symbol2083z00zz__tarz00 = BUNSPEC;
	static obj_t BGl_symbol1990z00zz__tarz00 = BUNSPEC;
	static obj_t BGl_symbol1992z00zz__tarz00 = BUNSPEC;
	extern obj_t BGl_pwdz00zz__osz00(void);
	static obj_t BGl_symbol1994z00zz__tarz00 = BUNSPEC;
	static obj_t BGl_z62lambda1535z62zz__tarz00(obj_t, obj_t);
	static obj_t BGl_z62lambda1536z62zz__tarz00(obj_t, obj_t, obj_t);
	extern obj_t BGl_classzd2fieldzd2defaultzd2valuezd2zz__objectz00(obj_t);
	extern obj_t bstring_to_symbol(obj_t);
	BGL_EXPORTED_DECL obj_t BGl_untarz00zz__tarz00(obj_t, obj_t, obj_t, obj_t);
	static obj_t BGl_z62lambda1545z62zz__tarz00(obj_t, obj_t);
	static obj_t BGl_z62lambda1546z62zz__tarz00(obj_t, obj_t, obj_t);
	extern bool_t bgl_directoryp(char *);
	extern obj_t BGl_makezd2filezd2namez00zz__osz00(obj_t, obj_t);
	extern BGL_LONGLONG_T bgl_current_nanoseconds(void);
	static obj_t BGl_tarzd2typezd2namez00zz__tarz00(unsigned char);
	extern obj_t c_substring(obj_t, long, long);
	static obj_t BGl_z62lambda1551z62zz__tarz00(obj_t, obj_t);
	static obj_t BGl_z62lambda1552z62zz__tarz00(obj_t, obj_t, obj_t);
	static obj_t BGl_z62lambda1556z62zz__tarz00(obj_t, obj_t);
	static obj_t BGl_z62lambda1557z62zz__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_z62lambda1561z62zz__tarz00(obj_t, obj_t);
	static obj_t BGl_z62lambda1562z62zz__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 *);
	extern obj_t bstring_to_keyword(obj_t);
	static obj_t BGl_z62lambda1576z62zz__tarz00(obj_t, obj_t);
	static obj_t BGl_z62lambda1577z62zz__tarz00(obj_t, obj_t, obj_t);
	BGL_EXPORTED_DEF obj_t BGl_tarzd2headerzd2zz__tarz00 = BUNSPEC;
	static obj_t BGl_z62zc3z04anonymousza31504ze3ze5zz__tarz00(obj_t, obj_t);
	extern obj_t bgl_file_type(char *);
	static obj_t BGl_z62lambda1582z62zz__tarz00(obj_t, obj_t);
	static obj_t BGl_z62lambda1583z62zz__tarz00(obj_t, obj_t, obj_t);
	static obj_t BGl_z62lambda1588z62zz__tarz00(obj_t, obj_t);
	static obj_t BGl_z62lambda1589z62zz__tarz00(obj_t, obj_t, obj_t);
	extern obj_t BGl_memberz00zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
	static obj_t BGl_z62lambda1593z62zz__tarz00(obj_t, obj_t);
	static obj_t BGl_z62lambda1594z62zz__tarz00(obj_t, obj_t, obj_t);
	extern obj_t BGl_errorz00zz__errorz00(obj_t, obj_t, obj_t);
	static obj_t BGl_keyword2041z00zz__tarz00 = BUNSPEC;
	static obj_t BGl_keyword2043z00zz__tarz00 = BUNSPEC;
	static obj_t BGl_keyword2045z00zz__tarz00 = BUNSPEC;
	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_STRING(BGl_string2042z00zz__tarz00,
		BgL_bgl_string2042za700za7za7_2106za7, "directory", 9);
	      DEFINE_EXPORT_BGL_PROCEDURE(BGl_untarzd2envzd2zz__tarz00,
		BgL_bgl__untarza700za7za7__tar2107za7, opt_generic_entry,
		BGl__untarz00zz__tarz00, BFALSE, -1);
	      DEFINE_STRING(BGl_string2044z00zz__tarz00,
		BgL_bgl_string2044za700za7za7_2108za7, "file", 4);
	      DEFINE_STRING(BGl_string2046z00zz__tarz00,
		BgL_bgl_string2046za700za7za7_2109za7, "files", 5);
	      DEFINE_STRING(BGl_string2048z00zz__tarz00,
		BgL_bgl_string2048za700za7za7_2110za7, "untar", 5);
	      DEFINE_STRING(BGl_string2049z00zz__tarz00,
		BgL_bgl_string2049za700za7za7_2111za7, "Illegal keyword argument", 24);
	      DEFINE_STRING(BGl_string2050z00zz__tarz00,
		BgL_bgl_string2050za700za7za7_2112za7,
		"wrong number of arguments: [1..4] expected, provided", 52);
	      DEFINE_STRING(BGl_string2051z00zz__tarz00,
		BgL_bgl_string2051za700za7za7_2113za7, "/tmp/bigloo/runtime/Unsafe/tar.scm",
		34);
	      DEFINE_STRING(BGl_string2052z00zz__tarz00,
		BgL_bgl_string2052za700za7za7_2114za7, "_untar", 6);
	      DEFINE_STRING(BGl_string2053z00zz__tarz00,
		BgL_bgl_string2053za700za7za7_2115za7, "bint", 4);
	      DEFINE_STRING(BGl_string2054z00zz__tarz00,
		BgL_bgl_string2054za700za7za7_2116za7, "Cannot create directory", 23);
	      DEFINE_STRING(BGl_string2055z00zz__tarz00,
		BgL_bgl_string2055za700za7za7_2117za7, "Illegal file type `~a'", 22);
	      DEFINE_STRING(BGl_string2059z00zz__tarz00,
		BgL_bgl_string2059za700za7za7_2118za7, "bstring", 7);
	      DEFINE_EXPORT_BGL_PROCEDURE(BGl_tarzd2readzd2headerzd2envzd2zz__tarz00,
		BgL_bgl__tarza7d2readza7d2he2119z00, opt_generic_entry,
		BGl__tarzd2readzd2headerz00zz__tarz00, BFALSE, -1);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2056z00zz__tarz00,
		BgL_bgl_za762lambda1510za7622120z00, BGl_z62lambda1510z62zz__tarz00, 0L,
		BUNSPEC, 2);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2057z00zz__tarz00,
		BgL_bgl_za762lambda1509za7622121z00, BGl_z62lambda1509z62zz__tarz00, 0L,
		BUNSPEC, 1);
	      DEFINE_STRING(BGl_string1975z00zz__tarz00,
		BgL_bgl_string1975za700za7za7_2122za7, "tar", 3);
	      DEFINE_STRING(BGl_string1977z00zz__tarz00,
		BgL_bgl_string1977za700za7za7_2123za7, "oldnormal", 9);
	      DEFINE_STRING(BGl_string1979z00zz__tarz00,
		BgL_bgl_string1979za700za7za7_2124za7, "normal", 6);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2060z00zz__tarz00,
		BgL_bgl_za762lambda1518za7622125z00, BGl_z62lambda1518z62zz__tarz00, 0L,
		BUNSPEC, 2);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2061z00zz__tarz00,
		BgL_bgl_za762lambda1517za7622126z00, BGl_z62lambda1517z62zz__tarz00, 0L,
		BUNSPEC, 1);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2063z00zz__tarz00,
		BgL_bgl_za762lambda1523za7622127z00, BGl_z62lambda1523z62zz__tarz00, 0L,
		BUNSPEC, 2);
	      DEFINE_STRING(BGl_string2070z00zz__tarz00,
		BgL_bgl_string2070za700za7za7_2128za7, "elong", 5);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2064z00zz__tarz00,
		BgL_bgl_za762lambda1522za7622129z00, BGl_z62lambda1522z62zz__tarz00, 0L,
		BUNSPEC, 1);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2065z00zz__tarz00,
		BgL_bgl_za762lambda1528za7622130z00, BGl_z62lambda1528z62zz__tarz00, 0L,
		BUNSPEC, 2);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2066z00zz__tarz00,
		BgL_bgl_za762lambda1527za7622131z00, BGl_z62lambda1527z62zz__tarz00, 0L,
		BUNSPEC, 1);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2067z00zz__tarz00,
		BgL_bgl_za762lambda1536za7622132z00, BGl_z62lambda1536z62zz__tarz00, 0L,
		BUNSPEC, 2);
	      DEFINE_STRING(BGl_string2074z00zz__tarz00,
		BgL_bgl_string2074za700za7za7_2133za7, "date", 4);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2068z00zz__tarz00,
		BgL_bgl_za762lambda1535za7622134z00, BGl_z62lambda1535z62zz__tarz00, 0L,
		BUNSPEC, 1);
	      DEFINE_STRING(BGl_string2078z00zz__tarz00,
		BgL_bgl_string2078za700za7za7_2135za7, "checksum", 8);
	      DEFINE_STRING(BGl_string1981z00zz__tarz00,
		BgL_bgl_string1981za700za7za7_2136za7, "link", 4);
	      DEFINE_STRING(BGl_string1983z00zz__tarz00,
		BgL_bgl_string1983za700za7za7_2137za7, "symlink", 7);
	      DEFINE_STRING(BGl_string1985z00zz__tarz00,
		BgL_bgl_string1985za700za7za7_2138za7, "chr", 3);
	      DEFINE_STRING(BGl_string1987z00zz__tarz00,
		BgL_bgl_string1987za700za7za7_2139za7, "blk", 3);
	      DEFINE_STRING(BGl_string1989z00zz__tarz00,
		BgL_bgl_string1989za700za7za7_2140za7, "dir", 3);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2071z00zz__tarz00,
		BgL_bgl_za762lambda1546za7622141z00, BGl_z62lambda1546z62zz__tarz00, 0L,
		BUNSPEC, 2);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2072z00zz__tarz00,
		BgL_bgl_za762lambda1545za7622142z00, BGl_z62lambda1545z62zz__tarz00, 0L,
		BUNSPEC, 1);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2075z00zz__tarz00,
		BgL_bgl_za762lambda1552za7622143z00, BGl_z62lambda1552z62zz__tarz00, 0L,
		BUNSPEC, 2);
	      DEFINE_STRING(BGl_string2082z00zz__tarz00,
		BgL_bgl_string2082za700za7za7_2144za7, "type", 4);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2076z00zz__tarz00,
		BgL_bgl_za762lambda1551za7622145z00, BGl_z62lambda1551z62zz__tarz00, 0L,
		BUNSPEC, 1);
	      DEFINE_STRING(BGl_string2084z00zz__tarz00,
		BgL_bgl_string2084za700za7za7_2146za7, "symbol", 6);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2079z00zz__tarz00,
		BgL_bgl_za762lambda1557za7622147z00, BGl_z62lambda1557z62zz__tarz00, 0L,
		BUNSPEC, 2);
	      DEFINE_STRING(BGl_string1991z00zz__tarz00,
		BgL_bgl_string1991za700za7za7_2148za7, "fifo", 4);
	      DEFINE_STRING(BGl_string1993z00zz__tarz00,
		BgL_bgl_string1993za700za7za7_2149za7, "contig", 6);
	      DEFINE_STRING(BGl_string1995z00zz__tarz00,
		BgL_bgl_string1995za700za7za7_2150za7, "longname", 8);
	      DEFINE_STRING(BGl_string1996z00zz__tarz00,
		BgL_bgl_string1996za700za7za7_2151za7, "invalid file type", 17);
	      DEFINE_STRING(BGl_string1997z00zz__tarz00,
		BgL_bgl_string1997za700za7za7_2152za7, "invalid octal record item", 25);
	      DEFINE_STRING(BGl_string1998z00zz__tarz00,
		BgL_bgl_string1998za700za7za7_2153za7, "        ", 8);
	      DEFINE_STRING(BGl_string1999z00zz__tarz00,
		BgL_bgl_string1999za700za7za7_2154za7, "tar-read-header", 15);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2080z00zz__tarz00,
		BgL_bgl_za762lambda1556za7622155z00, BGl_z62lambda1556z62zz__tarz00, 0L,
		BUNSPEC, 1);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2085z00zz__tarz00,
		BgL_bgl_za762lambda1562za7622156z00, BGl_z62lambda1562z62zz__tarz00, 0L,
		BUNSPEC, 2);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2086z00zz__tarz00,
		BgL_bgl_za762lambda1561za7622157z00, BGl_z62lambda1561z62zz__tarz00, 0L,
		BUNSPEC, 1);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2087z00zz__tarz00,
		BgL_bgl_za762lambda1567za7622158z00, BGl_z62lambda1567z62zz__tarz00, 0L,
		BUNSPEC, 2);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2088z00zz__tarz00,
		BgL_bgl_za762lambda1566za7622159z00, BGl_z62lambda1566z62zz__tarz00, 0L,
		BUNSPEC, 1);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2089z00zz__tarz00,
		BgL_bgl_za762lambda1577za7622160z00, BGl_z62lambda1577z62zz__tarz00, 0L,
		BUNSPEC, 2);
	      DEFINE_EXPORT_BGL_PROCEDURE(BGl_tarzd2readzd2blockzd2envzd2zz__tarz00,
		BgL_bgl__tarza7d2readza7d2bl2161z00, opt_generic_entry,
		BGl__tarzd2readzd2blockz00zz__tarz00, BFALSE, -1);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2090z00zz__tarz00,
		BgL_bgl_za762lambda1576za7622162z00, BGl_z62lambda1576z62zz__tarz00, 0L,
		BUNSPEC, 1);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2091z00zz__tarz00,
		BgL_bgl_za762lambda1583za7622163z00, BGl_z62lambda1583z62zz__tarz00, 0L,
		BUNSPEC, 2);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2092z00zz__tarz00,
		BgL_bgl_za762lambda1582za7622164z00, BGl_z62lambda1582z62zz__tarz00, 0L,
		BUNSPEC, 1);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2093z00zz__tarz00,
		BgL_bgl_za762lambda1589za7622165z00, BGl_z62lambda1589z62zz__tarz00, 0L,
		BUNSPEC, 2);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2094z00zz__tarz00,
		BgL_bgl_za762lambda1588za7622166z00, BGl_z62lambda1588z62zz__tarz00, 0L,
		BUNSPEC, 1);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2095z00zz__tarz00,
		BgL_bgl_za762lambda1594za7622167z00, BGl_z62lambda1594z62zz__tarz00, 0L,
		BUNSPEC, 2);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2096z00zz__tarz00,
		BgL_bgl_za762lambda1593za7622168z00, BGl_z62lambda1593z62zz__tarz00, 0L,
		BUNSPEC, 1);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2097z00zz__tarz00,
		BgL_bgl_za762za7c3za704anonymo2169za7,
		BGl_z62zc3z04anonymousza31504ze3ze5zz__tarz00, 0L, BUNSPEC, 1);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2098z00zz__tarz00,
		BgL_bgl_za762lambda1502za7622170z00, BGl_z62lambda1502z62zz__tarz00, 0L,
		BUNSPEC, 0);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2099z00zz__tarz00,
		BgL_bgl_za762lambda1500za7622171z00, BGl_z62lambda1500z62zz__tarz00, 0L,
		BUNSPEC, 14);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_tarzd2roundzd2upzd2tozd2recordzd2siza7ezd2envza7zz__tarz00,
		BgL_bgl_za762tarza7d2roundza7d2172za7,
		BGl_z62tarzd2roundzd2upzd2tozd2recordzd2siza7ez17zz__tarz00, 0L, BUNSPEC,
		1);
	      DEFINE_STRING(BGl_string2000z00zz__tarz00,
		BgL_bgl_string2000za700za7za7_2173za7, "input-port", 10);
	      DEFINE_STRING(BGl_string2001z00zz__tarz00,
		BgL_bgl_string2001za700za7za7_2174za7, "", 0);
	      DEFINE_STRING(BGl_string2003z00zz__tarz00,
		BgL_bgl_string2003za700za7za7_2175za7, "name", 4);
	      DEFINE_STRING(BGl_string2005z00zz__tarz00,
		BgL_bgl_string2005za700za7za7_2176za7, "mode", 4);
	      DEFINE_STRING(BGl_string2007z00zz__tarz00,
		BgL_bgl_string2007za700za7za7_2177za7, "uid", 3);
	      DEFINE_STRING(BGl_string2009z00zz__tarz00,
		BgL_bgl_string2009za700za7za7_2178za7, "gid", 3);
	      DEFINE_STRING(BGl_string2011z00zz__tarz00,
		BgL_bgl_string2011za700za7za7_2179za7, "size", 4);
	      DEFINE_STRING(BGl_string2013z00zz__tarz00,
		BgL_bgl_string2013za700za7za7_2180za7, "mtime", 5);
	      DEFINE_STRING(BGl_string2015z00zz__tarz00,
		BgL_bgl_string2015za700za7za7_2181za7, "chksum", 6);
	      DEFINE_STRING(BGl_string2017z00zz__tarz00,
		BgL_bgl_string2017za700za7za7_2182za7, "linkname", 8);
	      DEFINE_STRING(BGl_string2019z00zz__tarz00,
		BgL_bgl_string2019za700za7za7_2183za7, "magic", 5);
	      DEFINE_STRING(BGl_string2102z00zz__tarz00,
		BgL_bgl_string2102za700za7za7_2184za7, "__tar", 5);
	      DEFINE_STRING(BGl_string2021z00zz__tarz00,
		BgL_bgl_string2021za700za7za7_2185za7, "uname", 5);
	      DEFINE_STRING(BGl_string2103z00zz__tarz00,
		BgL_bgl_string2103za700za7za7_2186za7, "0", 1);
	      DEFINE_STRING(BGl_string2023z00zz__tarz00,
		BgL_bgl_string2023za700za7za7_2187za7, "gname", 5);
	      DEFINE_STRING(BGl_string2105z00zz__tarz00,
		BgL_bgl_string2105za700za7za7_2188za7, "_", 1);
	      DEFINE_STRING(BGl_string2025z00zz__tarz00,
		BgL_bgl_string2025za700za7za7_2189za7, "devmajor", 8);
	      DEFINE_STRING(BGl_string2027z00zz__tarz00,
		BgL_bgl_string2027za700za7za7_2190za7, "devminor", 8);
	      DEFINE_STRING(BGl_string2028z00zz__tarz00,
		BgL_bgl_string2028za700za7za7_2191za7, "ustar  ", 7);
	      DEFINE_STRING(BGl_string2029z00zz__tarz00,
		BgL_bgl_string2029za700za7za7_2192za7, "ustar", 5);
	      DEFINE_STRING(BGl_string2030z00zz__tarz00,
		BgL_bgl_string2030za700za7za7_2193za7, "GNUtar ", 7);
	      DEFINE_STRING(BGl_string2031z00zz__tarz00,
		BgL_bgl_string2031za700za7za7_2194za7, "invalid checksum (expected: ~s)",
		31);
	      DEFINE_STRING(BGl_string2032z00zz__tarz00,
		BgL_bgl_string2032za700za7za7_2195za7, "invalid magic number", 20);
	      DEFINE_STRING(BGl_string2033z00zz__tarz00,
		BgL_bgl_string2033za700za7za7_2196za7,
		"no terminator for zero-terminated `~a' found", 44);
	      DEFINE_STRING(BGl_string2034z00zz__tarz00,
		BgL_bgl_string2034za700za7za7_2197za7, "corrupted tar file", 18);
	      DEFINE_STRING(BGl_string2035z00zz__tarz00,
		BgL_bgl_string2035za700za7za7_2198za7, "tar-round-up-to-record-size", 27);
	      DEFINE_STRING(BGl_string2036z00zz__tarz00,
		BgL_bgl_string2036za700za7za7_2199za7, "long", 4);
	      DEFINE_STRING(BGl_string2037z00zz__tarz00,
		BgL_bgl_string2037za700za7za7_2200za7, "tar-read-block", 14);
	      DEFINE_STRING(BGl_string2038z00zz__tarz00,
		BgL_bgl_string2038za700za7za7_2201za7, "Illegal block", 13);
	      DEFINE_STRING(BGl_string2039z00zz__tarz00,
		BgL_bgl_string2039za700za7za7_2202za7, "tar-header", 10);

/* 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_symbol2002z00zz__tarz00));
		     ADD_ROOT((void *) (&BGl_symbol2004z00zz__tarz00));
		     ADD_ROOT((void *) (&BGl_symbol2006z00zz__tarz00));
		     ADD_ROOT((void *) (&BGl_symbol2008z00zz__tarz00));
		     ADD_ROOT((void *) (&BGl_symbol2010z00zz__tarz00));
		     ADD_ROOT((void *) (&BGl_symbol2012z00zz__tarz00));
		     ADD_ROOT((void *) (&BGl_symbol2014z00zz__tarz00));
		     ADD_ROOT((void *) (&BGl_symbol2016z00zz__tarz00));
		     ADD_ROOT((void *) (&BGl_symbol2018z00zz__tarz00));
		     ADD_ROOT((void *) (&BGl_requirezd2initializa7ationz75zz__tarz00));
		     ADD_ROOT((void *) (&BGl_symbol2100z00zz__tarz00));
		     ADD_ROOT((void *) (&BGl_symbol2101z00zz__tarz00));
		     ADD_ROOT((void *) (&BGl_symbol2020z00zz__tarz00));
		     ADD_ROOT((void *) (&BGl_symbol2022z00zz__tarz00));
		     ADD_ROOT((void *) (&BGl_symbol2104z00zz__tarz00));
		     ADD_ROOT((void *) (&BGl_symbol2024z00zz__tarz00));
		     ADD_ROOT((void *) (&BGl_symbol2026z00zz__tarz00));
		     ADD_ROOT((void *) (&BGl_symbol2047z00zz__tarz00));
		     ADD_ROOT((void *) (&BGl_symbol2058z00zz__tarz00));
		     ADD_ROOT((void *) (&BGl_symbol2062z00zz__tarz00));
		     ADD_ROOT((void *) (&BGl_symbol2069z00zz__tarz00));
		     ADD_ROOT((void *) (&BGl_symbol1974z00zz__tarz00));
		     ADD_ROOT((void *) (&BGl_symbol1976z00zz__tarz00));
		     ADD_ROOT((void *) (&BGl_symbol1978z00zz__tarz00));
		     ADD_ROOT((void *) (&BGl_symbol2073z00zz__tarz00));
		     ADD_ROOT((void *) (&BGl_list2040z00zz__tarz00));
		     ADD_ROOT((void *) (&BGl_symbol2077z00zz__tarz00));
		     ADD_ROOT((void *) (&BGl_symbol1980z00zz__tarz00));
		     ADD_ROOT((void *) (&BGl_symbol1982z00zz__tarz00));
		     ADD_ROOT((void *) (&BGl_symbol1984z00zz__tarz00));
		     ADD_ROOT((void *) (&BGl_symbol1986z00zz__tarz00));
		     ADD_ROOT((void *) (&BGl_symbol1988z00zz__tarz00));
		     ADD_ROOT((void *) (&BGl_symbol2081z00zz__tarz00));
		     ADD_ROOT((void *) (&BGl_symbol2083z00zz__tarz00));
		     ADD_ROOT((void *) (&BGl_symbol1990z00zz__tarz00));
		     ADD_ROOT((void *) (&BGl_symbol1992z00zz__tarz00));
		     ADD_ROOT((void *) (&BGl_symbol1994z00zz__tarz00));
		     ADD_ROOT((void *) (&BGl_tarzd2headerzd2zz__tarz00));
		     ADD_ROOT((void *) (&BGl_keyword2041z00zz__tarz00));
		     ADD_ROOT((void *) (&BGl_keyword2043z00zz__tarz00));
		     ADD_ROOT((void *) (&BGl_keyword2045z00zz__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_3093, char *BgL_fromz00_3094)
	{
		{
			if (CBOOL(BGl_requirezd2initializa7ationz75zz__tarz00))
				{
					BGl_requirezd2initializa7ationz75zz__tarz00 = BBOOL(((bool_t) 0));
					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_symbol1974z00zz__tarz00 =
				bstring_to_symbol(BGl_string1975z00zz__tarz00);
			BGl_symbol1976z00zz__tarz00 =
				bstring_to_symbol(BGl_string1977z00zz__tarz00);
			BGl_symbol1978z00zz__tarz00 =
				bstring_to_symbol(BGl_string1979z00zz__tarz00);
			BGl_symbol1980z00zz__tarz00 =
				bstring_to_symbol(BGl_string1981z00zz__tarz00);
			BGl_symbol1982z00zz__tarz00 =
				bstring_to_symbol(BGl_string1983z00zz__tarz00);
			BGl_symbol1984z00zz__tarz00 =
				bstring_to_symbol(BGl_string1985z00zz__tarz00);
			BGl_symbol1986z00zz__tarz00 =
				bstring_to_symbol(BGl_string1987z00zz__tarz00);
			BGl_symbol1988z00zz__tarz00 =
				bstring_to_symbol(BGl_string1989z00zz__tarz00);
			BGl_symbol1990z00zz__tarz00 =
				bstring_to_symbol(BGl_string1991z00zz__tarz00);
			BGl_symbol1992z00zz__tarz00 =
				bstring_to_symbol(BGl_string1993z00zz__tarz00);
			BGl_symbol1994z00zz__tarz00 =
				bstring_to_symbol(BGl_string1995z00zz__tarz00);
			BGl_symbol2002z00zz__tarz00 =
				bstring_to_symbol(BGl_string2003z00zz__tarz00);
			BGl_symbol2004z00zz__tarz00 =
				bstring_to_symbol(BGl_string2005z00zz__tarz00);
			BGl_symbol2006z00zz__tarz00 =
				bstring_to_symbol(BGl_string2007z00zz__tarz00);
			BGl_symbol2008z00zz__tarz00 =
				bstring_to_symbol(BGl_string2009z00zz__tarz00);
			BGl_symbol2010z00zz__tarz00 =
				bstring_to_symbol(BGl_string2011z00zz__tarz00);
			BGl_symbol2012z00zz__tarz00 =
				bstring_to_symbol(BGl_string2013z00zz__tarz00);
			BGl_symbol2014z00zz__tarz00 =
				bstring_to_symbol(BGl_string2015z00zz__tarz00);
			BGl_symbol2016z00zz__tarz00 =
				bstring_to_symbol(BGl_string2017z00zz__tarz00);
			BGl_symbol2018z00zz__tarz00 =
				bstring_to_symbol(BGl_string2019z00zz__tarz00);
			BGl_symbol2020z00zz__tarz00 =
				bstring_to_symbol(BGl_string2021z00zz__tarz00);
			BGl_symbol2022z00zz__tarz00 =
				bstring_to_symbol(BGl_string2023z00zz__tarz00);
			BGl_symbol2024z00zz__tarz00 =
				bstring_to_symbol(BGl_string2025z00zz__tarz00);
			BGl_symbol2026z00zz__tarz00 =
				bstring_to_symbol(BGl_string2027z00zz__tarz00);
			BGl_keyword2041z00zz__tarz00 =
				bstring_to_keyword(BGl_string2042z00zz__tarz00);
			BGl_keyword2043z00zz__tarz00 =
				bstring_to_keyword(BGl_string2044z00zz__tarz00);
			BGl_keyword2045z00zz__tarz00 =
				bstring_to_keyword(BGl_string2046z00zz__tarz00);
			BGl_list2040z00zz__tarz00 =
				MAKE_YOUNG_PAIR(BGl_keyword2041z00zz__tarz00,
				MAKE_YOUNG_PAIR(BGl_keyword2043z00zz__tarz00,
					MAKE_YOUNG_PAIR(BGl_keyword2045z00zz__tarz00, BNIL)));
			BGl_symbol2047z00zz__tarz00 =
				bstring_to_symbol(BGl_string2048z00zz__tarz00);
			BGl_symbol2058z00zz__tarz00 =
				bstring_to_symbol(BGl_string2059z00zz__tarz00);
			BGl_symbol2062z00zz__tarz00 =
				bstring_to_symbol(BGl_string2036z00zz__tarz00);
			BGl_symbol2069z00zz__tarz00 =
				bstring_to_symbol(BGl_string2070z00zz__tarz00);
			BGl_symbol2073z00zz__tarz00 =
				bstring_to_symbol(BGl_string2074z00zz__tarz00);
			BGl_symbol2077z00zz__tarz00 =
				bstring_to_symbol(BGl_string2078z00zz__tarz00);
			BGl_symbol2081z00zz__tarz00 =
				bstring_to_symbol(BGl_string2082z00zz__tarz00);
			BGl_symbol2083z00zz__tarz00 =
				bstring_to_symbol(BGl_string2084z00zz__tarz00);
			BGl_symbol2100z00zz__tarz00 =
				bstring_to_symbol(BGl_string2039z00zz__tarz00);
			BGl_symbol2101z00zz__tarz00 =
				bstring_to_symbol(BGl_string2102z00zz__tarz00);
			return (BGl_symbol2104z00zz__tarz00 =
				bstring_to_symbol(BGl_string2105z00zz__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_arg1276z00_1255;

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

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

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

							BgL_arg1281z00_1260 =
								BGL_CLASS_NUM(BGl_z62iozd2parsezd2errorz62zz__objectz00);
							BGL_OBJECT_CLASS_NUM_SET(
								((BgL_objectz00_bglt) BgL_new1056z00_1259),
								BgL_arg1281z00_1260);
						}
						BgL_new1057z00_1256 = BgL_new1056z00_1259;
					}
					((((BgL_z62exceptionz62_bglt) COBJECT(
									((BgL_z62exceptionz62_bglt) BgL_new1057z00_1256)))->
							BgL_fnamez00) = ((obj_t) BFALSE), BUNSPEC);
					((((BgL_z62exceptionz62_bglt) COBJECT(((BgL_z62exceptionz62_bglt)
										BgL_new1057z00_1256)))->BgL_locationz00) =
						((obj_t) BFALSE), BUNSPEC);
					{
						obj_t BgL_auxz00_3153;

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

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

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

									BgL_classz00_2198 = BGl_z62iozd2parsezd2errorz62zz__objectz00;
									BgL_arg1279z00_1258 = BGL_CLASS_ALL_FIELDS(BgL_classz00_2198);
								}
								BgL_arg1277z00_1257 = VECTOR_REF(BgL_arg1279z00_1258, 2L);
							}
							BgL_auxz00_3153 =
								BGl_classzd2fieldzd2defaultzd2valuezd2zz__objectz00
								(BgL_arg1277z00_1257);
						}
						((((BgL_z62exceptionz62_bglt) COBJECT(
										((BgL_z62exceptionz62_bglt) BgL_new1057z00_1256)))->
								BgL_stackz00) = ((obj_t) BgL_auxz00_3153), BUNSPEC);
					}
					((((BgL_z62errorz62_bglt) COBJECT(
									((BgL_z62errorz62_bglt) BgL_new1057z00_1256)))->BgL_procz00) =
						((obj_t) BGl_symbol1974z00zz__tarz00), BUNSPEC);
					((((BgL_z62errorz62_bglt) COBJECT(((BgL_z62errorz62_bglt)
										BgL_new1057z00_1256)))->BgL_msgz00) =
						((obj_t) BgL_msgz00_3), BUNSPEC);
					((((BgL_z62errorz62_bglt) COBJECT(((BgL_z62errorz62_bglt)
										BgL_new1057z00_1256)))->BgL_objz00) =
						((obj_t) BgL_objz00_4), BUNSPEC);
					BgL_arg1276z00_1255 = BgL_new1057z00_1256;
				}
				return BGl_raisez00zz__errorz00(((obj_t) BgL_arg1276z00_1255));
			}
		}

	}



/* 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_symbol1976z00zz__tarz00;
					break;
				case ((unsigned char) '0'):

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

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

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

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

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

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

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

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

					return BGl_symbol1994z00zz__tarz00;
					break;
				default:
					return
						BGl_tarzd2errorzd2zz__tarz00(BGl_string1996z00zz__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_1270;

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

					{	/* Unsafe/tar.scm 128 */
						obj_t BgL_arg1322z00_1284;
						obj_t BgL_arg1323z00_1285;

						BgL_arg1322z00_1284 =
							c_substring(((obj_t) BgL_bufz00_10), 0L, BgL_pz00_1270);
						{	/* Unsafe/tar.scm 130 */
							long BgL_arg1324z00_1286;
							long BgL_arg1325z00_1287;

							BgL_arg1324z00_1286 = (BgL_pz00_1270 + 8L);
							BgL_arg1325z00_1287 = STRING_LENGTH(((obj_t) BgL_bufz00_10));
							BgL_arg1323z00_1285 =
								c_substring(
								((obj_t) BgL_bufz00_10), BgL_arg1324z00_1286,
								BgL_arg1325z00_1287);
						}
						BgL_b2z00_1271 =
							string_append_3(BgL_arg1322z00_1284, BGl_string1998z00zz__tarz00,
							BgL_arg1323z00_1285);
					}
					{	/* Unsafe/tar.scm 127 */

						{
							long BgL_iz00_2240;
							long BgL_sz00_2241;

							BgL_iz00_2240 = 0L;
							BgL_sz00_2241 = 0L;
						BgL_dozd2loopzd2zd21062zd2_2239:
							if ((BgL_iz00_2240 >= 512L))
								{	/* Unsafe/tar.scm 131 */
									return BgL_sz00_2241;
								}
							else
								{
									long BgL_sz00_3183;
									long BgL_iz00_3181;

									BgL_iz00_3181 = (1L + BgL_iz00_2240);
									BgL_sz00_3183 =
										(BgL_sz00_2241 +
										(STRING_REF(BgL_b2z00_1271, BgL_iz00_2240)));
									BgL_sz00_2241 = BgL_sz00_3183;
									BgL_iz00_2240 = BgL_iz00_3181;
									goto BgL_dozd2loopzd2zd21062zd2_2239;
								}
						}
					}
				}
			}
		}

	}



/* _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 */

				switch (VECTOR_LENGTH(BgL_opt1160z00_13))
					{
					case 0L:

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

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

								BgL_tmpz00_3187 = BGL_CURRENT_DYNAMIC_ENV();
								BgL_portz00_1291 = BGL_ENV_CURRENT_INPUT_PORT(BgL_tmpz00_3187);
							}
							{	/* Unsafe/tar.scm 138 */

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

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

							BgL_portz00_1293 = VECTOR_REF(BgL_opt1160z00_13, 0L);
							{	/* Unsafe/tar.scm 138 */

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

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

							BgL_portz00_1295 = VECTOR_REF(BgL_opt1160z00_13, 0L);
							{	/* Unsafe/tar.scm 138 */
								obj_t BgL_longnamez00_1296;

								BgL_longnamez00_1296 = VECTOR_REF(BgL_opt1160z00_13, 1L);
								{	/* Unsafe/tar.scm 138 */

									return
										BGl_tarzd2readzd2headerz00zz__tarz00(BgL_portz00_1295,
										BgL_longnamez00_1296);
								}
							}
						}
						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_string1999z00zz__tarz00,
						BGl_string2000z00zz__tarz00, BgL_portz00_11);
				}
			{	/* Unsafe/tar.scm 141 */
				struct bgl_cell BgL_box2206_3013z00;
				obj_t BgL_ptrz00_3013;

				BgL_ptrz00_3013 = MAKE_CELL_STACK(BINT(0L), BgL_box2206_3013z00);
				{	/* Unsafe/tar.scm 141 */
					obj_t BgL_dataz00_1299;

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

						BgL_lenz00_1300 = STRING_LENGTH(((obj_t) BgL_dataz00_1299));
						{	/* Unsafe/tar.scm 143 */

							{

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

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

										if (STRINGP(BgL_dataz00_1299))
											{	/* Unsafe/tar.scm 170 */
												BgL_test2207z00_3206 =
													(STRING_LENGTH(BgL_dataz00_1299) == 0L);
											}
										else
											{	/* Unsafe/tar.scm 170 */
												BgL_test2207z00_3206 = ((bool_t) 1);
											}
										if (BgL_test2207z00_3206)
											{	/* Unsafe/tar.scm 170 */
												BgL_namez00_1303 = BGl_string2001z00zz__tarz00;
											}
										else
											{	/* Unsafe/tar.scm 170 */
												BgL_namez00_1303 =
													BGl_extractze70ze7zz__tarz00(BgL_longnamez00_12,
													BgL_lenz00_1300, BgL_portz00_11, BgL_dataz00_1299,
													BgL_ptrz00_3013, BGl_symbol2002z00zz__tarz00, 100L);
											}
									}
									if ((STRING_LENGTH(((obj_t) BgL_namez00_1303)) > 0L))
										{	/* Unsafe/tar.scm 174 */
											obj_t BgL_modez00_1306;

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

												BgL_arg1360z00_1356 =
													BGl_extractze70ze7zz__tarz00(BgL_longnamez00_12,
													BgL_lenz00_1300, BgL_portz00_11, BgL_dataz00_1299,
													BgL_ptrz00_3013, BGl_symbol2004z00zz__tarz00, 8L);
												{	/* Unsafe/tar.scm 174 */

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

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

															BgL_tmpz00_3217 =
																BSTRING_TO_STRING(BgL_arg1360z00_1356);
															BgL__ortest_1061z00_2295 =
																BGL_STRTOL(BgL_tmpz00_3217, 0L, 8L);
														}
														BgL_modez00_1306 = BINT(BgL__ortest_1061z00_2295);
											}}}
											{	/* Unsafe/tar.scm 174 */
												obj_t BgL_uidz00_1307;

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

													BgL_arg1359z00_1353 =
														BGl_extractze70ze7zz__tarz00(BgL_longnamez00_12,
														BgL_lenz00_1300, BgL_portz00_11, BgL_dataz00_1299,
														BgL_ptrz00_3013, BGl_symbol2006z00zz__tarz00, 8L);
													{	/* Unsafe/tar.scm 175 */

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

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

																BgL_tmpz00_3222 =
																	BSTRING_TO_STRING(BgL_arg1359z00_1353);
																BgL__ortest_1061z00_2296 =
																	BGL_STRTOL(BgL_tmpz00_3222, 0L, 8L);
															}
															BgL_uidz00_1307 = BINT(BgL__ortest_1061z00_2296);
												}}}
												{	/* Unsafe/tar.scm 175 */
													obj_t BgL_gidz00_1308;

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

														BgL_arg1358z00_1350 =
															BGl_extractze70ze7zz__tarz00(BgL_longnamez00_12,
															BgL_lenz00_1300, BgL_portz00_11, BgL_dataz00_1299,
															BgL_ptrz00_3013, BGl_symbol2008z00zz__tarz00, 8L);
														{	/* Unsafe/tar.scm 176 */

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

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

																	BgL_tmpz00_3227 =
																		BSTRING_TO_STRING(BgL_arg1358z00_1350);
																	BgL__ortest_1061z00_2297 =
																		BGL_STRTOL(BgL_tmpz00_3227, 0L, 8L);
																}
																BgL_gidz00_1308 =
																	BINT(BgL__ortest_1061z00_2297);
													}}}
													{	/* Unsafe/tar.scm 176 */
														long BgL_siza7eza7_1309;

														BgL_siza7eza7_1309 =
															BGl_stringzd2ze3elongz31zz__r4_numbers_6_5_fixnumz00
															(BGl_extractze70ze7zz__tarz00(BgL_longnamez00_12,
																BgL_lenz00_1300, BgL_portz00_11,
																BgL_dataz00_1299, BgL_ptrz00_3013,
																BGl_symbol2010z00zz__tarz00, 12L), 8L);
														{	/* Unsafe/tar.scm 177 */
															long BgL_mtimez00_1310;

															BgL_mtimez00_1310 =
																BGl_stringzd2ze3elongz31zz__r4_numbers_6_5_fixnumz00
																(BGl_extractze70ze7zz__tarz00
																(BgL_longnamez00_12, BgL_lenz00_1300,
																	BgL_portz00_11, BgL_dataz00_1299,
																	BgL_ptrz00_3013, BGl_symbol2012z00zz__tarz00,
																	12L), 8L);
															{	/* Unsafe/tar.scm 178 */
																obj_t BgL_chksumz00_1311;

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

																	BgL_arg1355z00_1345 =
																		BGl_extractze70ze7zz__tarz00
																		(BgL_longnamez00_12, BgL_lenz00_1300,
																		BgL_portz00_11, BgL_dataz00_1299,
																		BgL_ptrz00_3013,
																		BGl_symbol2014z00zz__tarz00, 8L);
																	{	/* Unsafe/tar.scm 179 */

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

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

																				BgL_tmpz00_3236 =
																					BSTRING_TO_STRING
																					(BgL_arg1355z00_1345);
																				BgL__ortest_1061z00_2298 =
																					BGL_STRTOL(BgL_tmpz00_3236, 0L, 8L);
																			}
																			BgL_chksumz00_1311 =
																				BINT(BgL__ortest_1061z00_2298);
																}}}
																{	/* Unsafe/tar.scm 179 */
																	unsigned char BgL_linkflagz00_1312;

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

																		BgL_cz00_1386 =
																			STRING_REF(
																			((obj_t) BgL_dataz00_1299),
																			(long) CINT(CELL_REF(BgL_ptrz00_3013)));
																		{	/* Unsafe/tar.scm 168 */
																			obj_t BgL_auxz00_3014;

																			BgL_auxz00_3014 =
																				ADDFX(BINT(1L),
																				CELL_REF(BgL_ptrz00_3013));
																			CELL_SET(BgL_ptrz00_3013,
																				BgL_auxz00_3014);
																		}
																		BgL_linkflagz00_1312 = BgL_cz00_1386;
																	}
																	{	/* Unsafe/tar.scm 180 */
																		obj_t BgL_linknamez00_1313;

																		BgL_linknamez00_1313 =
																			BGl_extractze70ze7zz__tarz00
																			(BgL_longnamez00_12, BgL_lenz00_1300,
																			BgL_portz00_11, BgL_dataz00_1299,
																			BgL_ptrz00_3013,
																			BGl_symbol2016z00zz__tarz00, 100L);
																		{	/* Unsafe/tar.scm 181 */
																			obj_t BgL_magicz00_1314;

																			BgL_magicz00_1314 =
																				BGl_extractze70ze7zz__tarz00
																				(BgL_longnamez00_12, BgL_lenz00_1300,
																				BgL_portz00_11, BgL_dataz00_1299,
																				BgL_ptrz00_3013,
																				BGl_symbol2018z00zz__tarz00, 8L);
																			{	/* Unsafe/tar.scm 182 */
																				obj_t BgL_unamez00_1315;

																				BgL_unamez00_1315 =
																					BGl_extractze70ze7zz__tarz00
																					(BgL_longnamez00_12, BgL_lenz00_1300,
																					BgL_portz00_11, BgL_dataz00_1299,
																					BgL_ptrz00_3013,
																					BGl_symbol2020z00zz__tarz00, 32L);
																				{	/* Unsafe/tar.scm 183 */
																					obj_t BgL_gnamez00_1316;

																					BgL_gnamez00_1316 =
																						BGl_extractze70ze7zz__tarz00
																						(BgL_longnamez00_12,
																						BgL_lenz00_1300, BgL_portz00_11,
																						BgL_dataz00_1299, BgL_ptrz00_3013,
																						BGl_symbol2022z00zz__tarz00, 32L);
																					{	/* Unsafe/tar.scm 184 */
																						long BgL_devmajorz00_1317;

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

																							BgL_arg1349z00_1341 =
																								BGl_extractze70ze7zz__tarz00
																								(BgL_longnamez00_12,
																								BgL_lenz00_1300, BgL_portz00_11,
																								BgL_dataz00_1299,
																								BgL_ptrz00_3013,
																								BGl_symbol2024z00zz__tarz00,
																								8L);
																							{	/* Unsafe/tar.scm 117 */
																								long BgL__ortest_1061z00_2299;

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

																									BgL_tmpz00_3250 =
																										BSTRING_TO_STRING
																										(BgL_arg1349z00_1341);
																									BgL__ortest_1061z00_2299 =
																										BGL_STRTOL(BgL_tmpz00_3250,
																										0L, 8L);
																								}
																								BgL_devmajorz00_1317 =
																									BgL__ortest_1061z00_2299;
																						}}
																						{	/* Unsafe/tar.scm 185 */
																							long BgL_devminorz00_1318;

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

																								BgL_arg1348z00_1340 =
																									BGl_extractze70ze7zz__tarz00
																									(BgL_longnamez00_12,
																									BgL_lenz00_1300,
																									BgL_portz00_11,
																									BgL_dataz00_1299,
																									BgL_ptrz00_3013,
																									BGl_symbol2026z00zz__tarz00,
																									8L);
																								{	/* Unsafe/tar.scm 117 */
																									long BgL__ortest_1061z00_2300;

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

																										BgL_tmpz00_3254 =
																											BSTRING_TO_STRING
																											(BgL_arg1348z00_1340);
																										BgL__ortest_1061z00_2300 =
																											BGL_STRTOL
																											(BgL_tmpz00_3254, 0L, 8L);
																									}
																									BgL_devminorz00_1318 =
																										BgL__ortest_1061z00_2300;
																							}}
																							{	/* Unsafe/tar.scm 186 */
																								long BgL_csum2z00_1319;

																								BgL_csum2z00_1319 =
																									BGl_checksumz00zz__tarz00
																									(BgL_dataz00_1299);
																								{	/* Unsafe/tar.scm 187 */

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

																										{	/* Unsafe/tar.scm 189 */
																											bool_t
																												BgL_test2211z00_3259;
																											if ((7L ==
																													STRING_LENGTH(((obj_t)
																															BgL_magicz00_1314))))
																												{	/* Unsafe/tar.scm 189 */
																													int
																														BgL_arg1712z00_2306;
																													{	/* Unsafe/tar.scm 189 */
																														char
																															*BgL_auxz00_3266;
																														char
																															*BgL_tmpz00_3264;
																														BgL_auxz00_3266 =
																															BSTRING_TO_STRING(
																															((obj_t)
																																BgL_magicz00_1314));
																														BgL_tmpz00_3264 =
																															BSTRING_TO_STRING
																															(BGl_string2028z00zz__tarz00);
																														BgL_arg1712z00_2306
																															=
																															memcmp
																															(BgL_tmpz00_3264,
																															BgL_auxz00_3266,
																															7L);
																													}
																													BgL_test2211z00_3259 =
																														(
																														(long)
																														(BgL_arg1712z00_2306)
																														== 0L);
																												}
																											else
																												{	/* Unsafe/tar.scm 189 */
																													BgL_test2211z00_3259 =
																														((bool_t) 0);
																												}
																											if (BgL_test2211z00_3259)
																												{	/* Unsafe/tar.scm 189 */
																													BgL_test2210z00_3258 =
																														((bool_t) 1);
																												}
																											else
																												{	/* Unsafe/tar.scm 190 */
																													bool_t
																														BgL_test2213z00_3272;
																													if ((5L ==
																															STRING_LENGTH((
																																	(obj_t)
																																	BgL_magicz00_1314))))
																														{	/* Unsafe/tar.scm 190 */
																															int
																																BgL_arg1712z00_2317;
																															{	/* Unsafe/tar.scm 190 */
																																char
																																	*BgL_auxz00_3279;
																																char
																																	*BgL_tmpz00_3277;
																																BgL_auxz00_3279
																																	=
																																	BSTRING_TO_STRING
																																	(((obj_t)
																																		BgL_magicz00_1314));
																																BgL_tmpz00_3277
																																	=
																																	BSTRING_TO_STRING
																																	(BGl_string2029z00zz__tarz00);
																																BgL_arg1712z00_2317
																																	=
																																	memcmp
																																	(BgL_tmpz00_3277,
																																	BgL_auxz00_3279,
																																	5L);
																															}
																															BgL_test2213z00_3272
																																=
																																((long)
																																(BgL_arg1712z00_2317)
																																== 0L);
																														}
																													else
																														{	/* Unsafe/tar.scm 190 */
																															BgL_test2213z00_3272
																																= ((bool_t) 0);
																														}
																													if (BgL_test2213z00_3272)
																														{	/* Unsafe/tar.scm 190 */
																															BgL_test2210z00_3258
																																= ((bool_t) 1);
																														}
																													else
																														{	/* Unsafe/tar.scm 190 */
																															if (
																																(7L ==
																																	STRING_LENGTH(
																																		((obj_t)
																																			BgL_magicz00_1314))))
																																{	/* Unsafe/tar.scm 191 */
																																	int
																																		BgL_arg1712z00_2328;
																																	{	/* Unsafe/tar.scm 191 */
																																		char
																																			*BgL_auxz00_3291;
																																		char
																																			*BgL_tmpz00_3289;
																																		BgL_auxz00_3291
																																			=
																																			BSTRING_TO_STRING
																																			(((obj_t)
																																				BgL_magicz00_1314));
																																		BgL_tmpz00_3289
																																			=
																																			BSTRING_TO_STRING
																																			(BGl_string2030z00zz__tarz00);
																																		BgL_arg1712z00_2328
																																			=
																																			memcmp
																																			(BgL_tmpz00_3289,
																																			BgL_auxz00_3291,
																																			7L);
																																	}
																																	BgL_test2210z00_3258
																																		=
																																		((long)
																																		(BgL_arg1712z00_2328)
																																		== 0L);
																																}
																															else
																																{	/* Unsafe/tar.scm 191 */
																																	BgL_test2210z00_3258
																																		=
																																		((bool_t)
																																		0);
																																}
																														}
																												}
																										}
																										if (BgL_test2210z00_3258)
																											{	/* Unsafe/tar.scm 189 */
																												if (
																													(BgL_csum2z00_1319 ==
																														(long)
																														CINT
																														(BgL_chksumz00_1311)))
																													{	/* Unsafe/tar.scm 198 */
																														BgL_tarzd2headerzd2_bglt
																															BgL_new1065z00_1329;
																														{	/* Unsafe/tar.scm 199 */
																															BgL_tarzd2headerzd2_bglt
																																BgL_new1064z00_1330;
																															BgL_new1064z00_1330
																																=
																																(
																																(BgL_tarzd2headerzd2_bglt)
																																BOBJECT
																																(GC_MALLOC
																																	(sizeof(struct
																																			BgL_tarzd2headerzd2_bgl))));
																															{	/* Unsafe/tar.scm 199 */
																																long
																																	BgL_arg1341z00_1331;
																																BgL_arg1341z00_1331
																																	=
																																	BGL_CLASS_NUM
																																	(BGl_tarzd2headerzd2zz__tarz00);
																																BGL_OBJECT_CLASS_NUM_SET
																																	(((BgL_objectz00_bglt) BgL_new1064z00_1330), BgL_arg1341z00_1331);
																															}
																															BgL_new1065z00_1329
																																=
																																BgL_new1064z00_1330;
																														}
																														((((BgL_tarzd2headerzd2_bglt) COBJECT(BgL_new1065z00_1329))->BgL_namez00) = ((obj_t) BgL_namez00_1303), BUNSPEC);
																														((((BgL_tarzd2headerzd2_bglt) COBJECT(BgL_new1065z00_1329))->BgL_modez00) = ((long) (long) CINT(BgL_modez00_1306)), BUNSPEC);
																														((((BgL_tarzd2headerzd2_bglt) COBJECT(BgL_new1065z00_1329))->BgL_uidz00) = ((long) (long) CINT(BgL_uidz00_1307)), BUNSPEC);
																														((((BgL_tarzd2headerzd2_bglt) COBJECT(BgL_new1065z00_1329))->BgL_gidz00) = ((long) (long) CINT(BgL_gidz00_1308)), BUNSPEC);
																														((((BgL_tarzd2headerzd2_bglt) COBJECT(BgL_new1065z00_1329))->BgL_siza7eza7) = ((long) BgL_siza7eza7_1309), BUNSPEC);
																														((((BgL_tarzd2headerzd2_bglt) COBJECT(BgL_new1065z00_1329))->BgL_mtimez00) = ((obj_t) bgl_seconds_to_date(BgL_mtimez00_1310)), BUNSPEC);
																														((((BgL_tarzd2headerzd2_bglt) COBJECT(BgL_new1065z00_1329))->BgL_checksumz00) = ((long) (long) CINT(BgL_chksumz00_1311)), BUNSPEC);
																														((((BgL_tarzd2headerzd2_bglt) COBJECT(BgL_new1065z00_1329))->BgL_typez00) = ((obj_t) BGl_tarzd2typezd2namez00zz__tarz00(BgL_linkflagz00_1312)), BUNSPEC);
																														((((BgL_tarzd2headerzd2_bglt) COBJECT(BgL_new1065z00_1329))->BgL_linknamez00) = ((obj_t) BgL_linknamez00_1313), BUNSPEC);
																														((((BgL_tarzd2headerzd2_bglt) COBJECT(BgL_new1065z00_1329))->BgL_magicz00) = ((obj_t) BgL_magicz00_1314), BUNSPEC);
																														((((BgL_tarzd2headerzd2_bglt) COBJECT(BgL_new1065z00_1329))->BgL_unamez00) = ((obj_t) BgL_unamez00_1315), BUNSPEC);
																														((((BgL_tarzd2headerzd2_bglt) COBJECT(BgL_new1065z00_1329))->BgL_gnamez00) = ((obj_t) BgL_gnamez00_1316), BUNSPEC);
																														((((BgL_tarzd2headerzd2_bglt) COBJECT(BgL_new1065z00_1329))->BgL_devmajorz00) = ((long) BgL_devmajorz00_1317), BUNSPEC);
																														((((BgL_tarzd2headerzd2_bglt) COBJECT(BgL_new1065z00_1329))->BgL_devminorz00) = ((long) BgL_devminorz00_1318), BUNSPEC);
																														return
																															((obj_t)
																															BgL_new1065z00_1329);
																													}
																												else
																													{	/* Unsafe/tar.scm 195 */
																														obj_t
																															BgL_arg1342z00_1332;
																														{	/* Unsafe/tar.scm 195 */
																															obj_t
																																BgL_list1343z00_1333;
																															BgL_list1343z00_1333
																																=
																																MAKE_YOUNG_PAIR
																																(BgL_chksumz00_1311,
																																BNIL);
																															BgL_arg1342z00_1332
																																=
																																BGl_formatz00zz__r4_output_6_10_3z00
																																(BGl_string2031z00zz__tarz00,
																																BgL_list1343z00_1333);
																														}
																														return
																															BGl_tarzd2errorzd2zz__tarz00
																															(BgL_arg1342z00_1332,
																															BINT
																															(BgL_csum2z00_1319));
																													}
																											}
																										else
																											{	/* Unsafe/tar.scm 192 */
																												obj_t
																													BgL_arg1344z00_1334;
																												BgL_arg1344z00_1334 =
																													string_for_read((
																														(obj_t)
																														BgL_magicz00_1314));
																												return
																													BGl_tarzd2errorzd2zz__tarz00
																													(BGl_string2032z00zz__tarz00,
																													BgL_arg1344z00_1334);
																											}
																									}
																								}
																							}
																						}
																					}
																				}
																			}
																		}
																	}
																}
															}
														}
													}
												}
											}
										}
									else
										{	/* Unsafe/tar.scm 173 */
											return BFALSE;
										}
								}
							}
						}
					}
				}
			}
		}

	}



/* extract~0 */
	obj_t BGl_extractze70ze7zz__tarz00(obj_t BgL_longnamez00_3010,
		long BgL_lenz00_3009, obj_t BgL_portz00_3008, obj_t BgL_dataz00_3007,
		obj_t BgL_ptrz00_3006, obj_t BgL_whatz00_1366, long BgL_siza7eza7_1367)
	{
		{	/* Unsafe/tar.scm 165 */
			{
				long BgL_iz00_1370;

				BgL_iz00_1370 = 0L;
			BgL_zc3z04anonymousza31368ze3z87_1371:
				if ((BgL_iz00_1370 >= BgL_siza7eza7_1367))
					{	/* Unsafe/tar.scm 147 */
						if (CBOOL(BgL_longnamez00_3010))
							{	/* Unsafe/tar.scm 148 */
								{	/* Unsafe/tar.scm 150 */
									obj_t BgL_auxz00_3011;

									BgL_auxz00_3011 =
										ADDFX(CELL_REF(BgL_ptrz00_3006), BINT(BgL_siza7eza7_1367));
									CELL_SET(BgL_ptrz00_3006, BgL_auxz00_3011);
								}
								{	/* Unsafe/tar.scm 152 */
									long BgL_arg1370z00_1373;

									BgL_arg1370z00_1373 =
										(STRING_LENGTH(((obj_t) BgL_longnamez00_3010)) - 1L);
									{	/* Unsafe/tar.scm 151 */
										obj_t BgL_tmpz00_3341;

										BgL_tmpz00_3341 = ((obj_t) BgL_longnamez00_3010);
										return
											bgl_string_shrink(BgL_tmpz00_3341, BgL_arg1370z00_1373);
									}
								}
							}
						else
							{	/* Unsafe/tar.scm 154 */
								obj_t BgL_arg1372z00_1375;

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

									BgL_list1373z00_1376 =
										MAKE_YOUNG_PAIR(BgL_whatz00_1366, BNIL);
									BgL_arg1372z00_1375 =
										BGl_formatz00zz__r4_output_6_10_3z00
										(BGl_string2033z00zz__tarz00, BgL_list1373z00_1376);
								}
								return
									BGl_tarzd2errorzd2zz__tarz00(BgL_arg1372z00_1375,
									BINT(BgL_siza7eza7_1367));
							}
					}
				else
					{	/* Unsafe/tar.scm 147 */
						if ((BgL_iz00_1370 >= BgL_lenz00_3009))
							{	/* Unsafe/tar.scm 156 */
								return
									BGl_tarzd2errorzd2zz__tarz00(BGl_string2034z00zz__tarz00,
									BgL_portz00_3008);
							}
						else
							{	/* Unsafe/tar.scm 159 */
								unsigned char BgL_cz00_1378;

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

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

										BgL_za71za7_2274 = (long) CINT(CELL_REF(BgL_ptrz00_3006));
										BgL_tmpz00_3351 = (BgL_za71za7_2274 + BgL_iz00_1370);
									}
									BgL_cz00_1378 =
										STRING_REF(((obj_t) BgL_dataz00_3007), BgL_tmpz00_3351);
								}
								if ((((unsigned char) '\000') == BgL_cz00_1378))
									{	/* Unsafe/tar.scm 161 */
										long BgL_nptrz00_1380;

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

											BgL_za71za7_2280 = (long) CINT(CELL_REF(BgL_ptrz00_3006));
											BgL_nptrz00_1380 = (BgL_za71za7_2280 + BgL_iz00_1370);
										}
										{	/* Unsafe/tar.scm 161 */
											obj_t BgL_subz00_1381;

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

												BgL_startz00_2283 =
													(long) CINT(CELL_REF(BgL_ptrz00_3006));
												BgL_subz00_1381 =
													c_substring(
													((obj_t) BgL_dataz00_3007), BgL_startz00_2283,
													BgL_nptrz00_1380);
											}
											{	/* Unsafe/tar.scm 162 */

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

													BgL_auxz00_3012 =
														ADDFX(CELL_REF(BgL_ptrz00_3006),
														BINT(BgL_siza7eza7_1367));
													CELL_SET(BgL_ptrz00_3006, BgL_auxz00_3012);
												}
												return BgL_subz00_1381;
											}
										}
									}
								else
									{
										long BgL_iz00_3365;

										BgL_iz00_3365 = (1L + BgL_iz00_1370);
										BgL_iz00_1370 = BgL_iz00_3365;
										goto BgL_zc3z04anonymousza31368ze3z87_1371;
									}
							}
					}
			}
		}

	}



/* 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_string2035z00zz__tarz00, BGl_string2036z00zz__tarz00,
							BgL_nz00_15));
		}}

	}



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

	}



/* _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_1397;

				BgL_g1166z00_1397 = VECTOR_REF(BgL_opt1164z00_18, 0L);
				switch (VECTOR_LENGTH(BgL_opt1164z00_18))
					{
					case 1L:

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

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

								BgL_tmpz00_3379 = BGL_CURRENT_DYNAMIC_ENV();
								BgL_pz00_1400 = BGL_ENV_CURRENT_INPUT_PORT(BgL_tmpz00_3379);
							}
							{	/* Unsafe/tar.scm 226 */

								return
									BGl_tarzd2readzd2blockz00zz__tarz00(BgL_g1166z00_1397,
									BgL_pz00_1400);
							}
						}
						break;
					case 2L:

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

							BgL_pz00_1401 = VECTOR_REF(BgL_opt1164z00_18, 1L);
							{	/* Unsafe/tar.scm 226 */

								return
									BGl_tarzd2readzd2blockz00zz__tarz00(BgL_g1166z00_1397,
									BgL_pz00_1401);
							}
						}
						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_test2223z00_3389;

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

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

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

										BgL_idxz00_2357 =
											BGL_OBJECT_INHERITANCE_NUM(BgL_arg1908z00_2351);
										BgL_test2223z00_3389 =
											(VECTOR_REF(BGl_za2inheritancesza2z00zz__objectz00,
												(BgL_idxz00_2357 + 1L)) == BgL_classz00_2349);
									}
								else
									{	/* Unsafe/tar.scm 230 */
										bool_t BgL_res1963z00_2379;

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

											{	/* Unsafe/tar.scm 230 */
												long BgL_arg1918z00_2371;

												{	/* Unsafe/tar.scm 230 */
													long BgL_arg1920z00_2372;

													BgL_arg1920z00_2372 =
														BGL_OBJECT_CLASS_NUM(BgL_arg1908z00_2351);
													BgL_arg1918z00_2371 =
														(BgL_arg1920z00_2372 - OBJECT_TYPE);
												}
												BgL_oclassz00_2365 =
													VECTOR_REF(BGl_za2classesza2z00zz__objectz00,
													BgL_arg1918z00_2371);
											}
											{	/* Unsafe/tar.scm 230 */
												bool_t BgL__ortest_1121z00_2366;

												BgL__ortest_1121z00_2366 =
													(BgL_classz00_2349 == BgL_oclassz00_2365);
												if (BgL__ortest_1121z00_2366)
													{	/* Unsafe/tar.scm 230 */
														BgL_res1963z00_2379 = BgL__ortest_1121z00_2366;
													}
												else
													{	/* Unsafe/tar.scm 230 */
														long BgL_odepthz00_2367;

														BgL_odepthz00_2367 =
															BGL_CLASS_DEPTH(BgL_oclassz00_2365);
														if ((1L < BgL_odepthz00_2367))
															{	/* Unsafe/tar.scm 230 */
																obj_t BgL_arg1905z00_2369;

																BgL_arg1905z00_2369 =
																	BGL_CLASS_ANCESTORS_REF(BgL_oclassz00_2365,
																	1L);
																BgL_res1963z00_2379 =
																	(BgL_arg1905z00_2369 == BgL_classz00_2349);
															}
														else
															{	/* Unsafe/tar.scm 230 */
																BgL_res1963z00_2379 = ((bool_t) 0);
															}
													}
											}
										}
										BgL_test2223z00_3389 = BgL_res1963z00_2379;
									}
							}
						else
							{	/* Unsafe/tar.scm 230 */
								BgL_test2223z00_3389 = ((bool_t) 0);
							}
					}
					if (BgL_test2223z00_3389)
						{	/* Unsafe/tar.scm 232 */
							long BgL_nz00_1405;

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

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

									BgL_sz00_1407 =
										BGl_readzd2charszd2zz__r4_input_6_10_2z00(BINT
										(BgL_nz00_1405), BgL_pz00_17);
									if ((STRING_LENGTH(((obj_t) BgL_sz00_1407)) < BgL_nz00_1405))
										{	/* Unsafe/tar.scm 237 */
											obj_t BgL_arg1394z00_1410;

											BgL_arg1394z00_1410 =
												(((BgL_tarzd2headerzd2_bglt) COBJECT(
														((BgL_tarzd2headerzd2_bglt) BgL_hz00_16)))->
												BgL_namez00);
											BGl_errorz00zz__errorz00(BGl_string2037z00zz__tarz00,
												BGl_string2038z00zz__tarz00, BgL_arg1394z00_1410);
										}
									else
										{	/* Unsafe/tar.scm 238 */
											long BgL_arg1395z00_1411;

											BgL_arg1395z00_1411 =
												(BGl_tarzd2roundzd2upzd2tozd2recordzd2siza7ez75zz__tarz00
												(BINT(BgL_nz00_1405)) - BgL_nz00_1405);
											BGl_readzd2charszd2zz__r4_input_6_10_2z00(BINT
												(BgL_arg1395z00_1411), BgL_pz00_17);
										}
									return BgL_sz00_1407;
								}
						}
					else
						{	/* Unsafe/tar.scm 230 */
							return
								BGl_bigloozd2typezd2errorz00zz__errorz00
								(BGl_string2037z00zz__tarz00, BGl_string2039z00zz__tarz00,
								BgL_hz00_16);
						}
				}
			else
				{	/* Unsafe/tar.scm 228 */
					return
						BGl_bigloozd2typezd2errorz00zz__errorz00
						(BGl_string1999z00zz__tarz00, BGl_string2000z00zz__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_test2231z00_3433;

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

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

								BgL_arg1409z00_1432 =
									bgl_file_type(BSTRING_TO_STRING(BgL_pathz00_20));
								BgL_test2233z00_3437 =
									(BgL_arg1409z00_1432 == BGl_symbol1980z00zz__tarz00);
							}
							if (BgL_test2233z00_3437)
								{	/* Unsafe/tar.scm 248 */
									BgL_test2231z00_3433 = ((bool_t) 0);
								}
							else
								{	/* Unsafe/tar.scm 248 */
									BgL_test2231z00_3433 = ((bool_t) 1);
								}
						}
					else
						{	/* Unsafe/tar.scm 248 */
							BgL_test2231z00_3433 = ((bool_t) 0);
						}
					if (BgL_test2231z00_3433)
						{	/* Unsafe/tar.scm 249 */
							obj_t BgL_filesz00_1421;

							BgL_filesz00_1421 =
								bgl_directory_to_list(BSTRING_TO_STRING(BgL_pathz00_20));
							{
								obj_t BgL_l1132z00_1423;

								BgL_l1132z00_1423 = BgL_filesz00_1421;
							BgL_zc3z04anonymousza31405ze3z87_1424:
								if (PAIRP(BgL_l1132z00_1423))
									{	/* Unsafe/tar.scm 250 */
										{	/* Unsafe/tar.scm 250 */
											obj_t BgL_fz00_1426;

											BgL_fz00_1426 = CAR(BgL_l1132z00_1423);
											BGl_rmzd2rfzd2zz__tarz00
												(BGl_makezd2filezd2namez00zz__osz00(BgL_pathz00_20,
													BgL_fz00_1426));
										}
										{
											obj_t BgL_l1132z00_3448;

											BgL_l1132z00_3448 = CDR(BgL_l1132z00_1423);
											BgL_l1132z00_1423 = BgL_l1132z00_3448;
											goto BgL_zc3z04anonymousza31405ze3z87_1424;
										}
									}
								else
									{	/* Unsafe/tar.scm 250 */
										((bool_t) 1);
									}
							}
							{	/* Unsafe/tar.scm 251 */
								char *BgL_stringz00_2393;

								BgL_stringz00_2393 = BSTRING_TO_STRING(BgL_pathz00_20);
								if (rmdir(BgL_stringz00_2393))
									{	/* 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_2395;

							BgL_stringz00_2395 = BSTRING_TO_STRING(BgL_pathz00_20);
							if (unlink(BgL_stringz00_2395))
								{	/* 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 */
				obj_t BgL_g1178z00_1437;

				BgL_g1178z00_1437 = VECTOR_REF(BgL_opt1169z00_25, 0L);
				{	/* Unsafe/tar.scm 257 */
					obj_t BgL_directoryz00_1438;

					BgL_directoryz00_1438 = BGl_pwdz00zz__osz00();
					{	/* Unsafe/tar.scm 257 */
						obj_t BgL_filez00_1439;

						BgL_filez00_1439 = BFALSE;
						{	/* Unsafe/tar.scm 257 */
							obj_t BgL_filesz00_1440;

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

								{
									long BgL_iz00_1441;

									BgL_iz00_1441 = 1L;
								BgL_check1173z00_1442:
									if ((BgL_iz00_1441 == VECTOR_LENGTH(BgL_opt1169z00_25)))
										{	/* Unsafe/tar.scm 257 */
											BNIL;
										}
									else
										{	/* Unsafe/tar.scm 257 */
											bool_t BgL_test2238z00_3461;

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

												BgL_arg1415z00_1448 =
													VECTOR_REF(BgL_opt1169z00_25, BgL_iz00_1441);
												BgL_test2238z00_3461 =
													CBOOL(BGl_memqz00zz__r4_pairs_and_lists_6_3z00
													(BgL_arg1415z00_1448, BGl_list2040z00zz__tarz00));
											}
											if (BgL_test2238z00_3461)
												{
													long BgL_iz00_3465;

													BgL_iz00_3465 = (BgL_iz00_1441 + 2L);
													BgL_iz00_1441 = BgL_iz00_3465;
													goto BgL_check1173z00_1442;
												}
											else
												{	/* Unsafe/tar.scm 257 */
													obj_t BgL_arg1414z00_1447;

													BgL_arg1414z00_1447 =
														VECTOR_REF(BgL_opt1169z00_25, BgL_iz00_1441);
													BGl_errorz00zz__errorz00(BGl_symbol2047z00zz__tarz00,
														BGl_string2049z00zz__tarz00, BgL_arg1414z00_1447);
												}
										}
								}
								{	/* Unsafe/tar.scm 257 */
									obj_t BgL_index1175z00_1449;

									{
										long BgL_iz00_2413;

										BgL_iz00_2413 = 1L;
									BgL_search1172z00_2412:
										if ((BgL_iz00_2413 == VECTOR_LENGTH(BgL_opt1169z00_25)))
											{	/* Unsafe/tar.scm 257 */
												BgL_index1175z00_1449 = BINT(-1L);
											}
										else
											{	/* Unsafe/tar.scm 257 */
												if (
													(BgL_iz00_2413 ==
														(VECTOR_LENGTH(BgL_opt1169z00_25) - 1L)))
													{	/* Unsafe/tar.scm 257 */
														BgL_index1175z00_1449 =
															BGl_errorz00zz__errorz00
															(BGl_symbol2047z00zz__tarz00,
															BGl_string2050z00zz__tarz00,
															BINT(VECTOR_LENGTH(BgL_opt1169z00_25)));
													}
												else
													{	/* Unsafe/tar.scm 257 */
														obj_t BgL_vz00_2423;

														BgL_vz00_2423 =
															VECTOR_REF(BgL_opt1169z00_25, BgL_iz00_2413);
														if ((BgL_vz00_2423 == BGl_keyword2041z00zz__tarz00))
															{	/* Unsafe/tar.scm 257 */
																BgL_index1175z00_1449 =
																	BINT((BgL_iz00_2413 + 1L));
															}
														else
															{
																long BgL_iz00_3485;

																BgL_iz00_3485 = (BgL_iz00_2413 + 2L);
																BgL_iz00_2413 = BgL_iz00_3485;
																goto BgL_search1172z00_2412;
															}
													}
											}
									}
									{	/* Unsafe/tar.scm 257 */
										bool_t BgL_test2242z00_3487;

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

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

												if (INTEGERP(BgL_index1175z00_1449))
													{	/* Unsafe/tar.scm 257 */
														BgL_tmpz00_3488 = BgL_index1175z00_1449;
													}
												else
													{
														obj_t BgL_auxz00_3491;

														BgL_auxz00_3491 =
															BGl_typezd2errorzd2zz__errorz00
															(BGl_string2051z00zz__tarz00, BINT(9397L),
															BGl_string2052z00zz__tarz00,
															BGl_string2053z00zz__tarz00,
															BgL_index1175z00_1449);
														FAILURE(BgL_auxz00_3491, BFALSE, BFALSE);
													}
												BgL_n1z00_2427 = (long) CINT(BgL_tmpz00_3488);
											}
											BgL_test2242z00_3487 = (BgL_n1z00_2427 >= 0L);
										}
										if (BgL_test2242z00_3487)
											{
												long BgL_auxz00_3497;

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

													if (INTEGERP(BgL_index1175z00_1449))
														{	/* Unsafe/tar.scm 257 */
															BgL_tmpz00_3498 = BgL_index1175z00_1449;
														}
													else
														{
															obj_t BgL_auxz00_3501;

															BgL_auxz00_3501 =
																BGl_typezd2errorzd2zz__errorz00
																(BGl_string2051z00zz__tarz00, BINT(9397L),
																BGl_string2052z00zz__tarz00,
																BGl_string2053z00zz__tarz00,
																BgL_index1175z00_1449);
															FAILURE(BgL_auxz00_3501, BFALSE, BFALSE);
														}
													BgL_auxz00_3497 = (long) CINT(BgL_tmpz00_3498);
												}
												BgL_directoryz00_1438 =
													VECTOR_REF(BgL_opt1169z00_25, BgL_auxz00_3497);
											}
										else
											{	/* Unsafe/tar.scm 257 */
												BFALSE;
											}
									}
								}
								{	/* Unsafe/tar.scm 257 */
									obj_t BgL_index1176z00_1451;

									{
										long BgL_iz00_2429;

										BgL_iz00_2429 = 1L;
									BgL_search1172z00_2428:
										if ((BgL_iz00_2429 == VECTOR_LENGTH(BgL_opt1169z00_25)))
											{	/* Unsafe/tar.scm 257 */
												BgL_index1176z00_1451 = BINT(-1L);
											}
										else
											{	/* Unsafe/tar.scm 257 */
												if (
													(BgL_iz00_2429 ==
														(VECTOR_LENGTH(BgL_opt1169z00_25) - 1L)))
													{	/* Unsafe/tar.scm 257 */
														BgL_index1176z00_1451 =
															BGl_errorz00zz__errorz00
															(BGl_symbol2047z00zz__tarz00,
															BGl_string2050z00zz__tarz00,
															BINT(VECTOR_LENGTH(BgL_opt1169z00_25)));
													}
												else
													{	/* Unsafe/tar.scm 257 */
														obj_t BgL_vz00_2439;

														BgL_vz00_2439 =
															VECTOR_REF(BgL_opt1169z00_25, BgL_iz00_2429);
														if ((BgL_vz00_2439 == BGl_keyword2043z00zz__tarz00))
															{	/* Unsafe/tar.scm 257 */
																BgL_index1176z00_1451 =
																	BINT((BgL_iz00_2429 + 1L));
															}
														else
															{
																long BgL_iz00_3523;

																BgL_iz00_3523 = (BgL_iz00_2429 + 2L);
																BgL_iz00_2429 = BgL_iz00_3523;
																goto BgL_search1172z00_2428;
															}
													}
											}
									}
									{	/* Unsafe/tar.scm 257 */
										bool_t BgL_test2248z00_3525;

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

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

												if (INTEGERP(BgL_index1176z00_1451))
													{	/* Unsafe/tar.scm 257 */
														BgL_tmpz00_3526 = BgL_index1176z00_1451;
													}
												else
													{
														obj_t BgL_auxz00_3529;

														BgL_auxz00_3529 =
															BGl_typezd2errorzd2zz__errorz00
															(BGl_string2051z00zz__tarz00, BINT(9397L),
															BGl_string2052z00zz__tarz00,
															BGl_string2053z00zz__tarz00,
															BgL_index1176z00_1451);
														FAILURE(BgL_auxz00_3529, BFALSE, BFALSE);
													}
												BgL_n1z00_2443 = (long) CINT(BgL_tmpz00_3526);
											}
											BgL_test2248z00_3525 = (BgL_n1z00_2443 >= 0L);
										}
										if (BgL_test2248z00_3525)
											{
												long BgL_auxz00_3535;

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

													if (INTEGERP(BgL_index1176z00_1451))
														{	/* Unsafe/tar.scm 257 */
															BgL_tmpz00_3536 = BgL_index1176z00_1451;
														}
													else
														{
															obj_t BgL_auxz00_3539;

															BgL_auxz00_3539 =
																BGl_typezd2errorzd2zz__errorz00
																(BGl_string2051z00zz__tarz00, BINT(9397L),
																BGl_string2052z00zz__tarz00,
																BGl_string2053z00zz__tarz00,
																BgL_index1176z00_1451);
															FAILURE(BgL_auxz00_3539, BFALSE, BFALSE);
														}
													BgL_auxz00_3535 = (long) CINT(BgL_tmpz00_3536);
												}
												BgL_filez00_1439 =
													VECTOR_REF(BgL_opt1169z00_25, BgL_auxz00_3535);
											}
										else
											{	/* Unsafe/tar.scm 257 */
												BFALSE;
											}
									}
								}
								{	/* Unsafe/tar.scm 257 */
									obj_t BgL_index1177z00_1453;

									{
										long BgL_iz00_2445;

										BgL_iz00_2445 = 1L;
									BgL_search1172z00_2444:
										if ((BgL_iz00_2445 == VECTOR_LENGTH(BgL_opt1169z00_25)))
											{	/* Unsafe/tar.scm 257 */
												BgL_index1177z00_1453 = BINT(-1L);
											}
										else
											{	/* Unsafe/tar.scm 257 */
												if (
													(BgL_iz00_2445 ==
														(VECTOR_LENGTH(BgL_opt1169z00_25) - 1L)))
													{	/* Unsafe/tar.scm 257 */
														BgL_index1177z00_1453 =
															BGl_errorz00zz__errorz00
															(BGl_symbol2047z00zz__tarz00,
															BGl_string2050z00zz__tarz00,
															BINT(VECTOR_LENGTH(BgL_opt1169z00_25)));
													}
												else
													{	/* Unsafe/tar.scm 257 */
														obj_t BgL_vz00_2455;

														BgL_vz00_2455 =
															VECTOR_REF(BgL_opt1169z00_25, BgL_iz00_2445);
														if ((BgL_vz00_2455 == BGl_keyword2045z00zz__tarz00))
															{	/* Unsafe/tar.scm 257 */
																BgL_index1177z00_1453 =
																	BINT((BgL_iz00_2445 + 1L));
															}
														else
															{
																long BgL_iz00_3561;

																BgL_iz00_3561 = (BgL_iz00_2445 + 2L);
																BgL_iz00_2445 = BgL_iz00_3561;
																goto BgL_search1172z00_2444;
															}
													}
											}
									}
									{	/* Unsafe/tar.scm 257 */
										bool_t BgL_test2254z00_3563;

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

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

												if (INTEGERP(BgL_index1177z00_1453))
													{	/* Unsafe/tar.scm 257 */
														BgL_tmpz00_3564 = BgL_index1177z00_1453;
													}
												else
													{
														obj_t BgL_auxz00_3567;

														BgL_auxz00_3567 =
															BGl_typezd2errorzd2zz__errorz00
															(BGl_string2051z00zz__tarz00, BINT(9397L),
															BGl_string2052z00zz__tarz00,
															BGl_string2053z00zz__tarz00,
															BgL_index1177z00_1453);
														FAILURE(BgL_auxz00_3567, BFALSE, BFALSE);
													}
												BgL_n1z00_2459 = (long) CINT(BgL_tmpz00_3564);
											}
											BgL_test2254z00_3563 = (BgL_n1z00_2459 >= 0L);
										}
										if (BgL_test2254z00_3563)
											{
												long BgL_auxz00_3573;

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

													if (INTEGERP(BgL_index1177z00_1453))
														{	/* Unsafe/tar.scm 257 */
															BgL_tmpz00_3574 = BgL_index1177z00_1453;
														}
													else
														{
															obj_t BgL_auxz00_3577;

															BgL_auxz00_3577 =
																BGl_typezd2errorzd2zz__errorz00
																(BGl_string2051z00zz__tarz00, BINT(9397L),
																BGl_string2052z00zz__tarz00,
																BGl_string2053z00zz__tarz00,
																BgL_index1177z00_1453);
															FAILURE(BgL_auxz00_3577, BFALSE, BFALSE);
														}
													BgL_auxz00_3573 = (long) CINT(BgL_tmpz00_3574);
												}
												BgL_filesz00_1440 =
													VECTOR_REF(BgL_opt1169z00_25, BgL_auxz00_3573);
											}
										else
											{	/* Unsafe/tar.scm 257 */
												BFALSE;
											}
									}
								}
								{	/* Unsafe/tar.scm 257 */
									obj_t BgL_arg1419z00_1455;

									BgL_arg1419z00_1455 = VECTOR_REF(BgL_opt1169z00_25, 0L);
									{	/* Unsafe/tar.scm 257 */
										obj_t BgL_directoryz00_1456;

										BgL_directoryz00_1456 = BgL_directoryz00_1438;
										{	/* Unsafe/tar.scm 257 */
											obj_t BgL_filez00_1457;

											BgL_filez00_1457 = BgL_filez00_1439;
											return
												BGl_untarz00zz__tarz00(BgL_arg1419z00_1455,
												BgL_directoryz00_1456, BgL_filez00_1457,
												BgL_filesz00_1440);
										}
									}
								}
							}
						}
					}
				}
			}
		}

	}



/* 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_arg1430z00_1468;

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

								BgL_list1431z00_1469 = MAKE_YOUNG_PAIR(BgL_filez00_23, BNIL);
								BgL_arg1430z00_1468 = BgL_list1431z00_1469;
							}
							return
								BGl_untarzd2fileszd2zz__tarz00(BgL_ipz00_21,
								BgL_arg1430z00_1468);
						}
					else
						{	/* Unsafe/tar.scm 263 */
							bool_t BgL_test2259z00_3591;

							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_1487;

											BgL_l1135z00_1487 = BgL_filesz00_24;
										BgL_zc3z04anonymousza31441ze3z87_1488:
											if (NULLP(BgL_l1135z00_1487))
												{	/* Unsafe/tar.scm 263 */
													BgL_test2259z00_3591 = ((bool_t) 1);
												}
											else
												{	/* Unsafe/tar.scm 263 */
													bool_t BgL_test2263z00_3598;

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

														BgL_tmpz00_3599 = CAR(((obj_t) BgL_l1135z00_1487));
														BgL_test2263z00_3598 = STRINGP(BgL_tmpz00_3599);
													}
													if (BgL_test2263z00_3598)
														{
															obj_t BgL_l1135z00_3603;

															BgL_l1135z00_3603 =
																CDR(((obj_t) BgL_l1135z00_1487));
															BgL_l1135z00_1487 = BgL_l1135z00_3603;
															goto BgL_zc3z04anonymousza31441ze3z87_1488;
														}
													else
														{	/* Unsafe/tar.scm 263 */
															BgL_test2259z00_3591 = ((bool_t) 0);
														}
												}
										}
									else
										{	/* Unsafe/tar.scm 263 */
											BgL_test2259z00_3591 = ((bool_t) 0);
										}
								}
							else
								{	/* Unsafe/tar.scm 263 */
									BgL_test2259z00_3591 = ((bool_t) 0);
								}
							if (BgL_test2259z00_3591)
								{	/* Unsafe/tar.scm 263 */
									return
										BGl_untarzd2fileszd2zz__tarz00(BgL_ipz00_21,
										BgL_filesz00_24);
								}
							else
								{	/* Unsafe/tar.scm 266 */
									obj_t BgL_arg1439z00_1482;

									if (STRINGP(BgL_directoryz00_22))
										{	/* Unsafe/tar.scm 266 */
											BgL_arg1439z00_1482 = BgL_directoryz00_22;
										}
									else
										{	/* Unsafe/tar.scm 266 */
											BgL_arg1439z00_1482 = BGl_pwdz00zz__osz00();
										}
									return
										BGl_untarzd2directoryzd2zz__tarz00(BgL_ipz00_21,
										BgL_arg1439z00_1482);
								}
						}
				}
			else
				{	/* Unsafe/tar.scm 259 */
					return
						BGl_bigloozd2typezd2errorz00zz__errorz00
						(BGl_string2048z00zz__tarz00, BGl_string2000z00zz__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_1498;
				obj_t BgL_longnamez00_1499;

				BgL_lstz00_1498 = BNIL;
				BgL_longnamez00_1499 = BFALSE;
			BgL_zc3z04anonymousza31445ze3z87_1500:
				{	/* Unsafe/tar.scm 276 */
					obj_t BgL_hz00_1501;

					BgL_hz00_1501 =
						BGl_tarzd2readzd2headerz00zz__tarz00(BgL_ipz00_27,
						BgL_longnamez00_1499);
					if (CBOOL(BgL_hz00_1501))
						{	/* Unsafe/tar.scm 280 */
							obj_t BgL_casezd2valuezd2_1503;

							BgL_casezd2valuezd2_1503 =
								(((BgL_tarzd2headerzd2_bglt) COBJECT(
										((BgL_tarzd2headerzd2_bglt) BgL_hz00_1501)))->BgL_typez00);
							if ((BgL_casezd2valuezd2_1503 == BGl_symbol1988z00zz__tarz00))
								{	/* Unsafe/tar.scm 282 */
									obj_t BgL_pathz00_1505;

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

										BgL_arg1453z00_1514 =
											(((BgL_tarzd2headerzd2_bglt) COBJECT(
													((BgL_tarzd2headerzd2_bglt) BgL_hz00_1501)))->
											BgL_namez00);
										BgL_pathz00_1505 =
											BGl_makezd2filezd2namez00zz__osz00(BgL_basez00_28,
											BgL_arg1453z00_1514);
									}
									BGl_rmzd2rfzd2zz__tarz00(BgL_pathz00_1505);
									if (BGl_makezd2directorieszd2zz__r4_ports_6_10_1z00
										(BgL_pathz00_1505))
										{	/* Unsafe/tar.scm 285 */
											obj_t BgL_arg1448z00_1507;

											BgL_arg1448z00_1507 =
												MAKE_YOUNG_PAIR(BgL_pathz00_1505, BgL_lstz00_1498);
											{
												obj_t BgL_longnamez00_3631;
												obj_t BgL_lstz00_3630;

												BgL_lstz00_3630 = BgL_arg1448z00_1507;
												BgL_longnamez00_3631 = BFALSE;
												BgL_longnamez00_1499 = BgL_longnamez00_3631;
												BgL_lstz00_1498 = BgL_lstz00_3630;
												goto BgL_zc3z04anonymousza31445ze3z87_1500;
											}
										}
									else
										{	/* Unsafe/tar.scm 287 */
											BgL_z62iozd2errorzb0_bglt BgL_arg1449z00_1508;

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

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

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

														BgL_arg1452z00_1513 =
															BGL_CLASS_NUM(BGl_z62iozd2errorzb0zz__objectz00);
														BGL_OBJECT_CLASS_NUM_SET(
															((BgL_objectz00_bglt) BgL_new1071z00_1512),
															BgL_arg1452z00_1513);
													}
													BgL_new1072z00_1509 = BgL_new1071z00_1512;
												}
												((((BgL_z62exceptionz62_bglt) COBJECT(
																((BgL_z62exceptionz62_bglt)
																	BgL_new1072z00_1509)))->BgL_fnamez00) =
													((obj_t) BFALSE), BUNSPEC);
												((((BgL_z62exceptionz62_bglt)
															COBJECT(((BgL_z62exceptionz62_bglt)
																	BgL_new1072z00_1509)))->BgL_locationz00) =
													((obj_t) BFALSE), BUNSPEC);
												{
													obj_t BgL_auxz00_3640;

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

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

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

																BgL_classz00_2468 =
																	BGl_z62iozd2errorzb0zz__objectz00;
																BgL_arg1451z00_1511 =
																	BGL_CLASS_ALL_FIELDS(BgL_classz00_2468);
															}
															BgL_arg1450z00_1510 =
																VECTOR_REF(BgL_arg1451z00_1511, 2L);
														}
														BgL_auxz00_3640 =
															BGl_classzd2fieldzd2defaultzd2valuezd2zz__objectz00
															(BgL_arg1450z00_1510);
													}
													((((BgL_z62exceptionz62_bglt) COBJECT(
																	((BgL_z62exceptionz62_bglt)
																		BgL_new1072z00_1509)))->BgL_stackz00) =
														((obj_t) BgL_auxz00_3640), BUNSPEC);
												}
												((((BgL_z62errorz62_bglt) COBJECT(
																((BgL_z62errorz62_bglt) BgL_new1072z00_1509)))->
														BgL_procz00) =
													((obj_t) BGl_symbol2047z00zz__tarz00), BUNSPEC);
												((((BgL_z62errorz62_bglt)
															COBJECT(((BgL_z62errorz62_bglt)
																	BgL_new1072z00_1509)))->BgL_msgz00) =
													((obj_t) BGl_string2054z00zz__tarz00), BUNSPEC);
												((((BgL_z62errorz62_bglt)
															COBJECT(((BgL_z62errorz62_bglt)
																	BgL_new1072z00_1509)))->BgL_objz00) =
													((obj_t) BgL_pathz00_1505), BUNSPEC);
												BgL_arg1449z00_1508 = BgL_new1072z00_1509;
											}
											return
												BGl_raisez00zz__errorz00(((obj_t) BgL_arg1449z00_1508));
										}
								}
							else
								{	/* Unsafe/tar.scm 280 */
									if ((BgL_casezd2valuezd2_1503 == BGl_symbol1978z00zz__tarz00))
										{	/* Unsafe/tar.scm 292 */
											obj_t BgL_pathz00_1516;

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

												BgL_arg1464z00_1530 =
													(((BgL_tarzd2headerzd2_bglt) COBJECT(
															((BgL_tarzd2headerzd2_bglt) BgL_hz00_1501)))->
													BgL_namez00);
												BgL_pathz00_1516 =
													BGl_makezd2filezd2namez00zz__osz00(BgL_basez00_28,
													BgL_arg1464z00_1530);
											}
											{	/* Unsafe/tar.scm 292 */
												obj_t BgL_dirz00_1517;

												BgL_dirz00_1517 =
													BGl_dirnamez00zz__osz00(BgL_pathz00_1516);
												{	/* Unsafe/tar.scm 293 */

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

														if (fexists(BSTRING_TO_STRING(BgL_dirz00_1517)))
															{	/* Unsafe/tar.scm 294 */
																if (bgl_directoryp(BSTRING_TO_STRING
																		(BgL_dirz00_1517)))
																	{	/* Unsafe/tar.scm 294 */
																		BgL_test2270z00_3660 = ((bool_t) 0);
																	}
																else
																	{	/* Unsafe/tar.scm 294 */
																		BgL_test2270z00_3660 = ((bool_t) 1);
																	}
															}
														else
															{	/* Unsafe/tar.scm 294 */
																BgL_test2270z00_3660 = ((bool_t) 0);
															}
														if (BgL_test2270z00_3660)
															{	/* Unsafe/tar.scm 295 */
																char *BgL_stringz00_2473;

																BgL_stringz00_2473 =
																	BSTRING_TO_STRING(BgL_dirz00_1517);
																if (unlink(BgL_stringz00_2473))
																	{	/* 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_1517)))
														{	/* Unsafe/tar.scm 296 */
															BFALSE;
														}
													else
														{	/* Unsafe/tar.scm 296 */
															BGl_makezd2directorieszd2zz__r4_ports_6_10_1z00
																(BgL_dirz00_1517);
															BgL_lstz00_1498 =
																MAKE_YOUNG_PAIR(BgL_dirz00_1517,
																BgL_lstz00_1498);
														}
													{	/* Unsafe/tar.scm 301 */
														obj_t BgL_zc3z04anonymousza31460ze3z87_2883;

														BgL_zc3z04anonymousza31460ze3z87_2883 =
															MAKE_FX_PROCEDURE
															(BGl_z62zc3z04anonymousza31460ze3ze5zz__tarz00,
															(int) (0L), (int) (2L));
														PROCEDURE_SET(BgL_zc3z04anonymousza31460ze3z87_2883,
															(int) (0L), BgL_hz00_1501);
														PROCEDURE_SET(BgL_zc3z04anonymousza31460ze3z87_2883,
															(int) (1L), BgL_ipz00_27);
														BGl_withzd2outputzd2tozd2filezd2zz__r4_ports_6_10_1z00
															(BgL_pathz00_1516,
															BgL_zc3z04anonymousza31460ze3z87_2883);
													}
													{	/* Unsafe/tar.scm 302 */
														obj_t BgL_arg1463z00_1529;

														BgL_arg1463z00_1529 =
															MAKE_YOUNG_PAIR(BgL_pathz00_1516,
															BgL_lstz00_1498);
														{
															obj_t BgL_longnamez00_3685;
															obj_t BgL_lstz00_3684;

															BgL_lstz00_3684 = BgL_arg1463z00_1529;
															BgL_longnamez00_3685 = BFALSE;
															BgL_longnamez00_1499 = BgL_longnamez00_3685;
															BgL_lstz00_1498 = BgL_lstz00_3684;
															goto BgL_zc3z04anonymousza31445ze3z87_1500;
														}
													}
												}
											}
										}
									else
										{	/* Unsafe/tar.scm 280 */
											if (
												(BgL_casezd2valuezd2_1503 ==
													BGl_symbol1982z00zz__tarz00))
												{	/* Unsafe/tar.scm 305 */
													obj_t BgL_pathz00_1533;

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

														BgL_arg1471z00_1537 =
															(((BgL_tarzd2headerzd2_bglt) COBJECT(
																	((BgL_tarzd2headerzd2_bglt) BgL_hz00_1501)))->
															BgL_namez00);
														BgL_pathz00_1533 =
															BGl_makezd2filezd2namez00zz__osz00(BgL_basez00_28,
															BgL_arg1471z00_1537);
													}
													if (fexists(BSTRING_TO_STRING(BgL_pathz00_1533)))
														{	/* Unsafe/tar.scm 307 */
															char *BgL_stringz00_2481;

															BgL_stringz00_2481 =
																BSTRING_TO_STRING(BgL_pathz00_1533);
															if (unlink(BgL_stringz00_2481))
																{	/* 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_arg1468z00_1535;

														BgL_arg1468z00_1535 =
															(((BgL_tarzd2headerzd2_bglt) COBJECT(
																	((BgL_tarzd2headerzd2_bglt) BgL_hz00_1501)))->
															BgL_linknamez00);
														bgl_symlink(BSTRING_TO_STRING(BgL_arg1468z00_1535),
															BSTRING_TO_STRING(BgL_pathz00_1533));
													}
													{	/* Unsafe/tar.scm 309 */
														obj_t BgL_arg1469z00_1536;

														BgL_arg1469z00_1536 =
															MAKE_YOUNG_PAIR(BgL_pathz00_1533,
															BgL_lstz00_1498);
														{
															obj_t BgL_longnamez00_3704;
															obj_t BgL_lstz00_3703;

															BgL_lstz00_3703 = BgL_arg1469z00_1536;
															BgL_longnamez00_3704 = BFALSE;
															BgL_longnamez00_1499 = BgL_longnamez00_3704;
															BgL_lstz00_1498 = BgL_lstz00_3703;
															goto BgL_zc3z04anonymousza31445ze3z87_1500;
														}
													}
												}
											else
												{	/* Unsafe/tar.scm 280 */
													if (
														(BgL_casezd2valuezd2_1503 ==
															BGl_symbol1994z00zz__tarz00))
														{	/* Unsafe/tar.scm 312 */
															long BgL_nz00_1540;

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

																BgL_arg1480z00_1551 =
																	(((BgL_tarzd2headerzd2_bglt) COBJECT(
																			((BgL_tarzd2headerzd2_bglt)
																				BgL_hz00_1501)))->BgL_siza7eza7);
																BgL_nz00_1540 =
																	BGl_modulofxz00zz__r4_numbers_6_5_fixnumz00(
																	(long) (BgL_arg1480z00_1551), 512L);
															}
															{	/* Unsafe/tar.scm 317 */

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

																	BgL_arg1473z00_1544 =
																		BGl_tarzd2readzd2blockz00zz__tarz00
																		(BgL_hz00_1501, BgL_ipz00_27);
																	{
																		obj_t BgL_longnamez00_3712;

																		BgL_longnamez00_3712 = BgL_arg1473z00_1544;
																		BgL_longnamez00_1499 = BgL_longnamez00_3712;
																		goto BgL_zc3z04anonymousza31445ze3z87_1500;
																	}
																}
															}
														}
													else
														{	/* Unsafe/tar.scm 321 */
															BgL_z62iozd2parsezd2errorz62_bglt
																BgL_arg1482z00_1553;
															{	/* Unsafe/tar.scm 321 */
																BgL_z62iozd2parsezd2errorz62_bglt
																	BgL_new1076z00_1554;
																{	/* Unsafe/tar.scm 321 */
																	BgL_z62iozd2parsezd2errorz62_bglt
																		BgL_new1075z00_1559;
																	BgL_new1075z00_1559 =
																		((BgL_z62iozd2parsezd2errorz62_bglt)
																		BOBJECT(GC_MALLOC(sizeof(struct
																					BgL_z62iozd2parsezd2errorz62_bgl))));
																	{	/* Unsafe/tar.scm 321 */
																		long BgL_arg1489z00_1560;

																		BgL_arg1489z00_1560 =
																			BGL_CLASS_NUM
																			(BGl_z62iozd2parsezd2errorz62zz__objectz00);
																		BGL_OBJECT_CLASS_NUM_SET((
																				(BgL_objectz00_bglt)
																				BgL_new1075z00_1559),
																			BgL_arg1489z00_1560);
																	}
																	BgL_new1076z00_1554 = BgL_new1075z00_1559;
																}
																((((BgL_z62exceptionz62_bglt) COBJECT(
																				((BgL_z62exceptionz62_bglt)
																					BgL_new1076z00_1554)))->
																		BgL_fnamez00) = ((obj_t) BFALSE), BUNSPEC);
																((((BgL_z62exceptionz62_bglt)
																			COBJECT(((BgL_z62exceptionz62_bglt)
																					BgL_new1076z00_1554)))->
																		BgL_locationz00) =
																	((obj_t) BFALSE), BUNSPEC);
																{
																	obj_t BgL_auxz00_3721;

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

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

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

																				BgL_classz00_2498 =
																					BGl_z62iozd2parsezd2errorz62zz__objectz00;
																				BgL_arg1485z00_1556 =
																					BGL_CLASS_ALL_FIELDS
																					(BgL_classz00_2498);
																			}
																			BgL_arg1483z00_1555 =
																				VECTOR_REF(BgL_arg1485z00_1556, 2L);
																		}
																		BgL_auxz00_3721 =
																			BGl_classzd2fieldzd2defaultzd2valuezd2zz__objectz00
																			(BgL_arg1483z00_1555);
																	}
																	((((BgL_z62exceptionz62_bglt) COBJECT(
																					((BgL_z62exceptionz62_bglt)
																						BgL_new1076z00_1554)))->
																			BgL_stackz00) =
																		((obj_t) BgL_auxz00_3721), BUNSPEC);
																}
																((((BgL_z62errorz62_bglt) COBJECT(
																				((BgL_z62errorz62_bglt)
																					BgL_new1076z00_1554)))->BgL_procz00) =
																	((obj_t) BGl_symbol2047z00zz__tarz00),
																	BUNSPEC);
																{
																	obj_t BgL_auxz00_3729;

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

																		BgL_arg1487z00_1557 =
																			(((BgL_tarzd2headerzd2_bglt) COBJECT(
																					((BgL_tarzd2headerzd2_bglt)
																						BgL_hz00_1501)))->BgL_typez00);
																		{	/* Unsafe/tar.scm 323 */
																			obj_t BgL_list1488z00_1558;

																			BgL_list1488z00_1558 =
																				MAKE_YOUNG_PAIR(BgL_arg1487z00_1557,
																				BNIL);
																			BgL_auxz00_3729 =
																				BGl_formatz00zz__r4_output_6_10_3z00
																				(BGl_string2055z00zz__tarz00,
																				BgL_list1488z00_1558);
																	}}
																	((((BgL_z62errorz62_bglt) COBJECT(
																					((BgL_z62errorz62_bglt)
																						BgL_new1076z00_1554)))->
																			BgL_msgz00) =
																		((obj_t) BgL_auxz00_3729), BUNSPEC);
																}
																((((BgL_z62errorz62_bglt) COBJECT(
																				((BgL_z62errorz62_bglt)
																					BgL_new1076z00_1554)))->BgL_objz00) =
																	((obj_t) (((BgL_tarzd2headerzd2_bglt)
																				COBJECT(((BgL_tarzd2headerzd2_bglt)
																						BgL_hz00_1501)))->BgL_namez00)),
																	BUNSPEC);
																BgL_arg1482z00_1553 = BgL_new1076z00_1554;
															}
															return
																BGl_raisez00zz__errorz00(
																((obj_t) BgL_arg1482z00_1553));
														}
												}
										}
								}
						}
					else
						{	/* Unsafe/tar.scm 277 */
							return bgl_reverse_bang(BgL_lstz00_1498);
						}
				}
			}
		}

	}



/* &<@anonymous:1460> */
	obj_t BGl_z62zc3z04anonymousza31460ze3ze5zz__tarz00(obj_t BgL_envz00_2884)
	{
		{	/* Unsafe/tar.scm 300 */
			{	/* Unsafe/tar.scm 301 */
				obj_t BgL_hz00_2885;
				obj_t BgL_ipz00_2886;

				BgL_hz00_2885 = PROCEDURE_REF(BgL_envz00_2884, (int) (0L));
				BgL_ipz00_2886 = ((obj_t) PROCEDURE_REF(BgL_envz00_2884, (int) (1L)));
				{	/* Unsafe/tar.scm 301 */
					obj_t BgL_arg1461z00_3028;
					obj_t BgL_arg1462z00_3029;

					BgL_arg1461z00_3028 =
						BGl_tarzd2readzd2blockz00zz__tarz00(BgL_hz00_2885, BgL_ipz00_2886);
					{	/* Unsafe/tar.scm 301 */
						obj_t BgL_tmpz00_3749;

						BgL_tmpz00_3749 = BGL_CURRENT_DYNAMIC_ENV();
						BgL_arg1462z00_3029 = BGL_ENV_CURRENT_OUTPUT_PORT(BgL_tmpz00_3749);
					}
					return bgl_display_obj(BgL_arg1461z00_3028, BgL_arg1462z00_3029);
				}
			}
		}

	}



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

			BgL_zc3z04anonymousza31490ze3z87_1563:
				{	/* Unsafe/tar.scm 331 */
					obj_t BgL_hz00_1564;

					{	/* Unsafe/tar.scm 331 */

						{	/* Unsafe/tar.scm 331 */

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

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

							BgL_classz00_2500 = BGl_tarzd2headerzd2zz__tarz00;
							if (BGL_OBJECTP(BgL_hz00_1564))
								{	/* Unsafe/tar.scm 332 */
									BgL_objectz00_bglt BgL_arg1908z00_2502;

									BgL_arg1908z00_2502 = (BgL_objectz00_bglt) (BgL_hz00_1564);
									if (BGL_CONDEXPAND_ISA_ARCH64())
										{	/* Unsafe/tar.scm 332 */
											long BgL_idxz00_2508;

											BgL_idxz00_2508 =
												BGL_OBJECT_INHERITANCE_NUM(BgL_arg1908z00_2502);
											BgL_test2279z00_3754 =
												(VECTOR_REF(BGl_za2inheritancesza2z00zz__objectz00,
													(BgL_idxz00_2508 + 1L)) == BgL_classz00_2500);
										}
									else
										{	/* Unsafe/tar.scm 332 */
											bool_t BgL_res1965z00_2530;

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

												{	/* Unsafe/tar.scm 332 */
													long BgL_arg1918z00_2522;

													{	/* Unsafe/tar.scm 332 */
														long BgL_arg1920z00_2523;

														BgL_arg1920z00_2523 =
															BGL_OBJECT_CLASS_NUM(BgL_arg1908z00_2502);
														BgL_arg1918z00_2522 =
															(BgL_arg1920z00_2523 - OBJECT_TYPE);
													}
													BgL_oclassz00_2516 =
														VECTOR_REF(BGl_za2classesza2z00zz__objectz00,
														BgL_arg1918z00_2522);
												}
												{	/* Unsafe/tar.scm 332 */
													bool_t BgL__ortest_1121z00_2517;

													BgL__ortest_1121z00_2517 =
														(BgL_classz00_2500 == BgL_oclassz00_2516);
													if (BgL__ortest_1121z00_2517)
														{	/* Unsafe/tar.scm 332 */
															BgL_res1965z00_2530 = BgL__ortest_1121z00_2517;
														}
													else
														{	/* Unsafe/tar.scm 332 */
															long BgL_odepthz00_2518;

															BgL_odepthz00_2518 =
																BGL_CLASS_DEPTH(BgL_oclassz00_2516);
															if ((1L < BgL_odepthz00_2518))
																{	/* Unsafe/tar.scm 332 */
																	obj_t BgL_arg1905z00_2520;

																	BgL_arg1905z00_2520 =
																		BGL_CLASS_ANCESTORS_REF(BgL_oclassz00_2516,
																		1L);
																	BgL_res1965z00_2530 =
																		(BgL_arg1905z00_2520 == BgL_classz00_2500);
																}
															else
																{	/* Unsafe/tar.scm 332 */
																	BgL_res1965z00_2530 = ((bool_t) 0);
																}
														}
												}
											}
											BgL_test2279z00_3754 = BgL_res1965z00_2530;
										}
								}
							else
								{	/* Unsafe/tar.scm 332 */
									BgL_test2279z00_3754 = ((bool_t) 0);
								}
						}
						if (BgL_test2279z00_3754)
							{	/* Unsafe/tar.scm 334 */
								obj_t BgL_casezd2valuezd2_1567;

								BgL_casezd2valuezd2_1567 =
									(((BgL_tarzd2headerzd2_bglt) COBJECT(
											((BgL_tarzd2headerzd2_bglt) BgL_hz00_1564)))->
									BgL_typez00);
								if ((BgL_casezd2valuezd2_1567 == BGl_symbol1988z00zz__tarz00))
									{	/* Unsafe/tar.scm 334 */
										goto BgL_zc3z04anonymousza31490ze3z87_1563;
									}
								else
									{	/* Unsafe/tar.scm 334 */
										if (
											(BgL_casezd2valuezd2_1567 == BGl_symbol1978z00zz__tarz00))
											{	/* Unsafe/tar.scm 338 */
												obj_t BgL_bz00_1570;
												obj_t BgL_nz00_1571;

												BgL_bz00_1570 =
													BGl_tarzd2readzd2blockz00zz__tarz00(BgL_hz00_1564,
													BgL_ipz00_29);
												BgL_nz00_1571 =
													(((BgL_tarzd2headerzd2_bglt)
														COBJECT(((BgL_tarzd2headerzd2_bglt)
																BgL_hz00_1564)))->BgL_namez00);
												if (CBOOL(BGl_memberz00zz__r4_pairs_and_lists_6_3z00
														(BgL_nz00_1571, BgL_filesz00_30)))
													{	/* Unsafe/tar.scm 340 */
														return BgL_bz00_1570;
													}
												else
													{	/* Unsafe/tar.scm 340 */
														goto BgL_zc3z04anonymousza31490ze3z87_1563;
													}
											}
										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_arg1498z00_1579;
				obj_t BgL_arg1499z00_1580;

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

					BgL_v1138z00_1606 = create_vector(14L);
					VECTOR_SET(BgL_v1138z00_1606, 0L,
						BGl_makezd2classzd2fieldz00zz__objectz00
						(BGl_symbol2002z00zz__tarz00, BGl_proc2057z00zz__tarz00,
							BGl_proc2056z00zz__tarz00, ((bool_t) 1), ((bool_t) 0), BFALSE,
							BFALSE, BGl_symbol2058z00zz__tarz00));
					VECTOR_SET(BgL_v1138z00_1606, 1L,
						BGl_makezd2classzd2fieldz00zz__objectz00
						(BGl_symbol2004z00zz__tarz00, BGl_proc2061z00zz__tarz00,
							BGl_proc2060z00zz__tarz00, ((bool_t) 1), ((bool_t) 0), BFALSE,
							BFALSE, BGl_symbol2062z00zz__tarz00));
					VECTOR_SET(BgL_v1138z00_1606, 2L,
						BGl_makezd2classzd2fieldz00zz__objectz00
						(BGl_symbol2006z00zz__tarz00, BGl_proc2064z00zz__tarz00,
							BGl_proc2063z00zz__tarz00, ((bool_t) 1), ((bool_t) 0), BFALSE,
							BFALSE, BGl_symbol2062z00zz__tarz00));
					VECTOR_SET(BgL_v1138z00_1606, 3L,
						BGl_makezd2classzd2fieldz00zz__objectz00
						(BGl_symbol2008z00zz__tarz00, BGl_proc2066z00zz__tarz00,
							BGl_proc2065z00zz__tarz00, ((bool_t) 1), ((bool_t) 0), BFALSE,
							BFALSE, BGl_symbol2062z00zz__tarz00));
					VECTOR_SET(BgL_v1138z00_1606, 4L,
						BGl_makezd2classzd2fieldz00zz__objectz00
						(BGl_symbol2010z00zz__tarz00, BGl_proc2068z00zz__tarz00,
							BGl_proc2067z00zz__tarz00, ((bool_t) 1), ((bool_t) 0), BFALSE,
							BFALSE, BGl_symbol2069z00zz__tarz00));
					VECTOR_SET(BgL_v1138z00_1606, 5L,
						BGl_makezd2classzd2fieldz00zz__objectz00
						(BGl_symbol2012z00zz__tarz00, BGl_proc2072z00zz__tarz00,
							BGl_proc2071z00zz__tarz00, ((bool_t) 1), ((bool_t) 0), BFALSE,
							BFALSE, BGl_symbol2073z00zz__tarz00));
					VECTOR_SET(BgL_v1138z00_1606, 6L,
						BGl_makezd2classzd2fieldz00zz__objectz00
						(BGl_symbol2077z00zz__tarz00, BGl_proc2076z00zz__tarz00,
							BGl_proc2075z00zz__tarz00, ((bool_t) 1), ((bool_t) 0), BFALSE,
							BFALSE, BGl_symbol2062z00zz__tarz00));
					VECTOR_SET(BgL_v1138z00_1606, 7L,
						BGl_makezd2classzd2fieldz00zz__objectz00
						(BGl_symbol2081z00zz__tarz00, BGl_proc2080z00zz__tarz00,
							BGl_proc2079z00zz__tarz00, ((bool_t) 1), ((bool_t) 0), BFALSE,
							BFALSE, BGl_symbol2083z00zz__tarz00));
					VECTOR_SET(BgL_v1138z00_1606, 8L,
						BGl_makezd2classzd2fieldz00zz__objectz00
						(BGl_symbol2016z00zz__tarz00, BGl_proc2086z00zz__tarz00,
							BGl_proc2085z00zz__tarz00, ((bool_t) 1), ((bool_t) 0), BFALSE,
							BFALSE, BGl_symbol2058z00zz__tarz00));
					VECTOR_SET(BgL_v1138z00_1606, 9L,
						BGl_makezd2classzd2fieldz00zz__objectz00
						(BGl_symbol2018z00zz__tarz00, BGl_proc2088z00zz__tarz00,
							BGl_proc2087z00zz__tarz00, ((bool_t) 1), ((bool_t) 0), BFALSE,
							BFALSE, BGl_symbol2058z00zz__tarz00));
					VECTOR_SET(BgL_v1138z00_1606, 10L,
						BGl_makezd2classzd2fieldz00zz__objectz00
						(BGl_symbol2020z00zz__tarz00, BGl_proc2090z00zz__tarz00,
							BGl_proc2089z00zz__tarz00, ((bool_t) 1), ((bool_t) 0), BFALSE,
							BFALSE, BGl_symbol2058z00zz__tarz00));
					VECTOR_SET(BgL_v1138z00_1606, 11L,
						BGl_makezd2classzd2fieldz00zz__objectz00
						(BGl_symbol2022z00zz__tarz00, BGl_proc2092z00zz__tarz00,
							BGl_proc2091z00zz__tarz00, ((bool_t) 1), ((bool_t) 0), BFALSE,
							BFALSE, BGl_symbol2058z00zz__tarz00));
					VECTOR_SET(BgL_v1138z00_1606, 12L,
						BGl_makezd2classzd2fieldz00zz__objectz00
						(BGl_symbol2024z00zz__tarz00, BGl_proc2094z00zz__tarz00,
							BGl_proc2093z00zz__tarz00, ((bool_t) 1), ((bool_t) 0), BFALSE,
							BFALSE, BGl_symbol2062z00zz__tarz00));
					VECTOR_SET(BgL_v1138z00_1606, 13L,
						BGl_makezd2classzd2fieldz00zz__objectz00
						(BGl_symbol2026z00zz__tarz00, BGl_proc2096z00zz__tarz00,
							BGl_proc2095z00zz__tarz00, ((bool_t) 1), ((bool_t) 0), BFALSE,
							BFALSE, BGl_symbol2062z00zz__tarz00));
					BgL_arg1498z00_1579 = BgL_v1138z00_1606;
				}
				{	/* Unsafe/tar.scm 55 */
					obj_t BgL_v1139z00_1747;

					BgL_v1139z00_1747 = create_vector(0L);
					BgL_arg1499z00_1580 = BgL_v1139z00_1747;
				}
				return (BGl_tarzd2headerzd2zz__tarz00 =
					BGl_registerzd2classz12zc0zz__objectz00(BGl_symbol2100z00zz__tarz00,
						BGl_symbol2101z00zz__tarz00, BGl_objectz00zz__objectz00, 38086L,
						BGl_proc2099z00zz__tarz00, BGl_proc2098z00zz__tarz00, BFALSE,
						BGl_proc2097z00zz__tarz00, BFALSE, BgL_arg1498z00_1579,
						BgL_arg1499z00_1580), BUNSPEC);
			}
		}

	}



/* &<@anonymous:1504> */
	obj_t BGl_z62zc3z04anonymousza31504ze3ze5zz__tarz00(obj_t BgL_envz00_2918,
		obj_t BgL_new1055z00_2919)
	{
		{	/* Unsafe/tar.scm 55 */
			{
				BgL_tarzd2headerzd2_bglt BgL_auxz00_3817;

				((((BgL_tarzd2headerzd2_bglt) COBJECT(
								((BgL_tarzd2headerzd2_bglt) BgL_new1055z00_2919)))->
						BgL_namez00) = ((obj_t) BGl_string2001z00zz__tarz00), BUNSPEC);
				((((BgL_tarzd2headerzd2_bglt) COBJECT(((BgL_tarzd2headerzd2_bglt)
									BgL_new1055z00_2919)))->BgL_modez00) = ((long) 0L), BUNSPEC);
				((((BgL_tarzd2headerzd2_bglt) COBJECT(((BgL_tarzd2headerzd2_bglt)
									BgL_new1055z00_2919)))->BgL_uidz00) = ((long) 0L), BUNSPEC);
				((((BgL_tarzd2headerzd2_bglt) COBJECT(((BgL_tarzd2headerzd2_bglt)
									BgL_new1055z00_2919)))->BgL_gidz00) = ((long) 0L), BUNSPEC);
				{
					long BgL_auxz00_3826;

					{	/* Unsafe/tar.scm 55 */

						BgL_auxz00_3826 =
							BGl_stringzd2ze3elongz31zz__r4_numbers_6_5_fixnumz00
							(BGl_string2103z00zz__tarz00, 10L);
					}
					((((BgL_tarzd2headerzd2_bglt) COBJECT(
									((BgL_tarzd2headerzd2_bglt) BgL_new1055z00_2919)))->
							BgL_siza7eza7) = ((long) BgL_auxz00_3826), BUNSPEC);
				}
				{
					obj_t BgL_auxz00_3830;

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

						BgL_arg1894z00_3031 = bgl_current_nanoseconds();
						BgL_auxz00_3830 = bgl_nanoseconds_to_date(BgL_arg1894z00_3031);
					}
					((((BgL_tarzd2headerzd2_bglt) COBJECT(
									((BgL_tarzd2headerzd2_bglt) BgL_new1055z00_2919)))->
							BgL_mtimez00) = ((obj_t) BgL_auxz00_3830), BUNSPEC);
				}
				((((BgL_tarzd2headerzd2_bglt) COBJECT(
								((BgL_tarzd2headerzd2_bglt) BgL_new1055z00_2919)))->
						BgL_checksumz00) = ((long) 0L), BUNSPEC);
				((((BgL_tarzd2headerzd2_bglt) COBJECT(((BgL_tarzd2headerzd2_bglt)
									BgL_new1055z00_2919)))->BgL_typez00) =
					((obj_t) BGl_symbol2104z00zz__tarz00), BUNSPEC);
				((((BgL_tarzd2headerzd2_bglt) COBJECT(((BgL_tarzd2headerzd2_bglt)
									BgL_new1055z00_2919)))->BgL_linknamez00) =
					((obj_t) BGl_string2001z00zz__tarz00), BUNSPEC);
				((((BgL_tarzd2headerzd2_bglt) COBJECT(((BgL_tarzd2headerzd2_bglt)
									BgL_new1055z00_2919)))->BgL_magicz00) =
					((obj_t) BGl_string2001z00zz__tarz00), BUNSPEC);
				((((BgL_tarzd2headerzd2_bglt) COBJECT(((BgL_tarzd2headerzd2_bglt)
									BgL_new1055z00_2919)))->BgL_unamez00) =
					((obj_t) BGl_string2001z00zz__tarz00), BUNSPEC);
				((((BgL_tarzd2headerzd2_bglt) COBJECT(((BgL_tarzd2headerzd2_bglt)
									BgL_new1055z00_2919)))->BgL_gnamez00) =
					((obj_t) BGl_string2001z00zz__tarz00), BUNSPEC);
				((((BgL_tarzd2headerzd2_bglt) COBJECT(((BgL_tarzd2headerzd2_bglt)
									BgL_new1055z00_2919)))->BgL_devmajorz00) =
					((long) 0L), BUNSPEC);
				((((BgL_tarzd2headerzd2_bglt) COBJECT(((BgL_tarzd2headerzd2_bglt)
									BgL_new1055z00_2919)))->BgL_devminorz00) =
					((long) 0L), BUNSPEC);
				BgL_auxz00_3817 = ((BgL_tarzd2headerzd2_bglt) BgL_new1055z00_2919);
				return ((obj_t) BgL_auxz00_3817);
			}
		}

	}



/* &lambda1502 */
	BgL_tarzd2headerzd2_bglt BGl_z62lambda1502z62zz__tarz00(obj_t BgL_envz00_2920)
	{
		{	/* Unsafe/tar.scm 55 */
			{	/* Unsafe/tar.scm 55 */
				BgL_tarzd2headerzd2_bglt BgL_new1054z00_3032;

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

					BgL_arg1503z00_3033 = BGL_CLASS_NUM(BGl_tarzd2headerzd2zz__tarz00);
					BGL_OBJECT_CLASS_NUM_SET(
						((BgL_objectz00_bglt) BgL_new1054z00_3032), BgL_arg1503z00_3033);
				}
				return BgL_new1054z00_3032;
			}
		}

	}



/* &lambda1500 */
	BgL_tarzd2headerzd2_bglt BGl_z62lambda1500z62zz__tarz00(obj_t BgL_envz00_2921,
		obj_t BgL_name1040z00_2922, obj_t BgL_mode1041z00_2923,
		obj_t BgL_uid1042z00_2924, obj_t BgL_gid1043z00_2925,
		obj_t BgL_siza7e1044za7_2926, obj_t BgL_mtime1045z00_2927,
		obj_t BgL_checksum1046z00_2928, obj_t BgL_type1047z00_2929,
		obj_t BgL_linkname1048z00_2930, obj_t BgL_magic1049z00_2931,
		obj_t BgL_uname1050z00_2932, obj_t BgL_gname1051z00_2933,
		obj_t BgL_devmajor1052z00_2934, obj_t BgL_devminor1053z00_2935)
	{
		{	/* Unsafe/tar.scm 55 */
			{	/* Unsafe/tar.scm 55 */
				long BgL_mode1041z00_3035;
				long BgL_uid1042z00_3036;
				long BgL_gid1043z00_3037;
				long BgL_siza7e1044za7_3038;
				long BgL_checksum1046z00_3040;
				long BgL_devmajor1052z00_3046;
				long BgL_devminor1053z00_3047;

				BgL_mode1041z00_3035 = (long) CINT(BgL_mode1041z00_2923);
				BgL_uid1042z00_3036 = (long) CINT(BgL_uid1042z00_2924);
				BgL_gid1043z00_3037 = (long) CINT(BgL_gid1043z00_2925);
				BgL_siza7e1044za7_3038 = BELONG_TO_LONG(BgL_siza7e1044za7_2926);
				BgL_checksum1046z00_3040 = (long) CINT(BgL_checksum1046z00_2928);
				BgL_devmajor1052z00_3046 = (long) CINT(BgL_devmajor1052z00_2934);
				BgL_devminor1053z00_3047 = (long) CINT(BgL_devminor1053z00_2935);
				{	/* Unsafe/tar.scm 55 */
					BgL_tarzd2headerzd2_bglt BgL_new1079z00_3048;

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

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

							BgL_arg1501z00_3050 =
								BGL_CLASS_NUM(BGl_tarzd2headerzd2zz__tarz00);
							BGL_OBJECT_CLASS_NUM_SET(
								((BgL_objectz00_bglt) BgL_new1078z00_3049),
								BgL_arg1501z00_3050);
						}
						BgL_new1079z00_3048 = BgL_new1078z00_3049;
					}
					((((BgL_tarzd2headerzd2_bglt) COBJECT(BgL_new1079z00_3048))->
							BgL_namez00) = ((obj_t) ((obj_t) BgL_name1040z00_2922)), BUNSPEC);
					((((BgL_tarzd2headerzd2_bglt) COBJECT(BgL_new1079z00_3048))->
							BgL_modez00) = ((long) BgL_mode1041z00_3035), BUNSPEC);
					((((BgL_tarzd2headerzd2_bglt) COBJECT(BgL_new1079z00_3048))->
							BgL_uidz00) = ((long) BgL_uid1042z00_3036), BUNSPEC);
					((((BgL_tarzd2headerzd2_bglt) COBJECT(BgL_new1079z00_3048))->
							BgL_gidz00) = ((long) BgL_gid1043z00_3037), BUNSPEC);
					((((BgL_tarzd2headerzd2_bglt) COBJECT(BgL_new1079z00_3048))->
							BgL_siza7eza7) = ((long) BgL_siza7e1044za7_3038), BUNSPEC);
					((((BgL_tarzd2headerzd2_bglt) COBJECT(BgL_new1079z00_3048))->
							BgL_mtimez00) =
						((obj_t) ((obj_t) BgL_mtime1045z00_2927)), BUNSPEC);
					((((BgL_tarzd2headerzd2_bglt) COBJECT(BgL_new1079z00_3048))->
							BgL_checksumz00) = ((long) BgL_checksum1046z00_3040), BUNSPEC);
					((((BgL_tarzd2headerzd2_bglt) COBJECT(BgL_new1079z00_3048))->
							BgL_typez00) = ((obj_t) ((obj_t) BgL_type1047z00_2929)), BUNSPEC);
					((((BgL_tarzd2headerzd2_bglt) COBJECT(BgL_new1079z00_3048))->
							BgL_linknamez00) =
						((obj_t) ((obj_t) BgL_linkname1048z00_2930)), BUNSPEC);
					((((BgL_tarzd2headerzd2_bglt) COBJECT(BgL_new1079z00_3048))->
							BgL_magicz00) =
						((obj_t) ((obj_t) BgL_magic1049z00_2931)), BUNSPEC);
					((((BgL_tarzd2headerzd2_bglt) COBJECT(BgL_new1079z00_3048))->
							BgL_unamez00) =
						((obj_t) ((obj_t) BgL_uname1050z00_2932)), BUNSPEC);
					((((BgL_tarzd2headerzd2_bglt) COBJECT(BgL_new1079z00_3048))->
							BgL_gnamez00) =
						((obj_t) ((obj_t) BgL_gname1051z00_2933)), BUNSPEC);
					((((BgL_tarzd2headerzd2_bglt) COBJECT(BgL_new1079z00_3048))->
							BgL_devmajorz00) = ((long) BgL_devmajor1052z00_3046), BUNSPEC);
					((((BgL_tarzd2headerzd2_bglt) COBJECT(BgL_new1079z00_3048))->
							BgL_devminorz00) = ((long) BgL_devminor1053z00_3047), BUNSPEC);
					return BgL_new1079z00_3048;
				}
			}
		}

	}



/* &lambda1594 */
	obj_t BGl_z62lambda1594z62zz__tarz00(obj_t BgL_envz00_2936,
		obj_t BgL_oz00_2937, obj_t BgL_vz00_2938)
	{
		{	/* Unsafe/tar.scm 55 */
			{	/* Unsafe/tar.scm 55 */
				long BgL_vz00_3052;

				BgL_vz00_3052 = (long) CINT(BgL_vz00_2938);
				return
					((((BgL_tarzd2headerzd2_bglt) COBJECT(
								((BgL_tarzd2headerzd2_bglt) BgL_oz00_2937)))->BgL_devminorz00) =
					((long) BgL_vz00_3052), BUNSPEC);
		}}

	}



/* &lambda1593 */
	obj_t BGl_z62lambda1593z62zz__tarz00(obj_t BgL_envz00_2939,
		obj_t BgL_oz00_2940)
	{
		{	/* Unsafe/tar.scm 55 */
			return
				BINT(
				(((BgL_tarzd2headerzd2_bglt) COBJECT(
							((BgL_tarzd2headerzd2_bglt) BgL_oz00_2940)))->BgL_devminorz00));
		}

	}



/* &lambda1589 */
	obj_t BGl_z62lambda1589z62zz__tarz00(obj_t BgL_envz00_2941,
		obj_t BgL_oz00_2942, obj_t BgL_vz00_2943)
	{
		{	/* Unsafe/tar.scm 55 */
			{	/* Unsafe/tar.scm 55 */
				long BgL_vz00_3055;

				BgL_vz00_3055 = (long) CINT(BgL_vz00_2943);
				return
					((((BgL_tarzd2headerzd2_bglt) COBJECT(
								((BgL_tarzd2headerzd2_bglt) BgL_oz00_2942)))->BgL_devmajorz00) =
					((long) BgL_vz00_3055), BUNSPEC);
		}}

	}



/* &lambda1588 */
	obj_t BGl_z62lambda1588z62zz__tarz00(obj_t BgL_envz00_2944,
		obj_t BgL_oz00_2945)
	{
		{	/* Unsafe/tar.scm 55 */
			return
				BINT(
				(((BgL_tarzd2headerzd2_bglt) COBJECT(
							((BgL_tarzd2headerzd2_bglt) BgL_oz00_2945)))->BgL_devmajorz00));
		}

	}



/* &lambda1583 */
	obj_t BGl_z62lambda1583z62zz__tarz00(obj_t BgL_envz00_2946,
		obj_t BgL_oz00_2947, obj_t BgL_vz00_2948)
	{
		{	/* Unsafe/tar.scm 55 */
			return
				((((BgL_tarzd2headerzd2_bglt) COBJECT(
							((BgL_tarzd2headerzd2_bglt) BgL_oz00_2947)))->BgL_gnamez00) =
				((obj_t) ((obj_t) BgL_vz00_2948)), BUNSPEC);
		}

	}



/* &lambda1582 */
	obj_t BGl_z62lambda1582z62zz__tarz00(obj_t BgL_envz00_2949,
		obj_t BgL_oz00_2950)
	{
		{	/* Unsafe/tar.scm 55 */
			return
				(((BgL_tarzd2headerzd2_bglt) COBJECT(
						((BgL_tarzd2headerzd2_bglt) BgL_oz00_2950)))->BgL_gnamez00);
		}

	}



/* &lambda1577 */
	obj_t BGl_z62lambda1577z62zz__tarz00(obj_t BgL_envz00_2951,
		obj_t BgL_oz00_2952, obj_t BgL_vz00_2953)
	{
		{	/* Unsafe/tar.scm 55 */
			return
				((((BgL_tarzd2headerzd2_bglt) COBJECT(
							((BgL_tarzd2headerzd2_bglt) BgL_oz00_2952)))->BgL_unamez00) =
				((obj_t) ((obj_t) BgL_vz00_2953)), BUNSPEC);
		}

	}



/* &lambda1576 */
	obj_t BGl_z62lambda1576z62zz__tarz00(obj_t BgL_envz00_2954,
		obj_t BgL_oz00_2955)
	{
		{	/* Unsafe/tar.scm 55 */
			return
				(((BgL_tarzd2headerzd2_bglt) COBJECT(
						((BgL_tarzd2headerzd2_bglt) BgL_oz00_2955)))->BgL_unamez00);
		}

	}



/* &lambda1567 */
	obj_t BGl_z62lambda1567z62zz__tarz00(obj_t BgL_envz00_2956,
		obj_t BgL_oz00_2957, obj_t BgL_vz00_2958)
	{
		{	/* Unsafe/tar.scm 55 */
			return
				((((BgL_tarzd2headerzd2_bglt) COBJECT(
							((BgL_tarzd2headerzd2_bglt) BgL_oz00_2957)))->BgL_magicz00) =
				((obj_t) ((obj_t) BgL_vz00_2958)), BUNSPEC);
		}

	}



/* &lambda1566 */
	obj_t BGl_z62lambda1566z62zz__tarz00(obj_t BgL_envz00_2959,
		obj_t BgL_oz00_2960)
	{
		{	/* Unsafe/tar.scm 55 */
			return
				(((BgL_tarzd2headerzd2_bglt) COBJECT(
						((BgL_tarzd2headerzd2_bglt) BgL_oz00_2960)))->BgL_magicz00);
		}

	}



/* &lambda1562 */
	obj_t BGl_z62lambda1562z62zz__tarz00(obj_t BgL_envz00_2961,
		obj_t BgL_oz00_2962, obj_t BgL_vz00_2963)
	{
		{	/* Unsafe/tar.scm 55 */
			return
				((((BgL_tarzd2headerzd2_bglt) COBJECT(
							((BgL_tarzd2headerzd2_bglt) BgL_oz00_2962)))->BgL_linknamez00) =
				((obj_t) ((obj_t) BgL_vz00_2963)), BUNSPEC);
		}

	}



/* &lambda1561 */
	obj_t BGl_z62lambda1561z62zz__tarz00(obj_t BgL_envz00_2964,
		obj_t BgL_oz00_2965)
	{
		{	/* Unsafe/tar.scm 55 */
			return
				(((BgL_tarzd2headerzd2_bglt) COBJECT(
						((BgL_tarzd2headerzd2_bglt) BgL_oz00_2965)))->BgL_linknamez00);
		}

	}



/* &lambda1557 */
	obj_t BGl_z62lambda1557z62zz__tarz00(obj_t BgL_envz00_2966,
		obj_t BgL_oz00_2967, obj_t BgL_vz00_2968)
	{
		{	/* Unsafe/tar.scm 55 */
			return
				((((BgL_tarzd2headerzd2_bglt) COBJECT(
							((BgL_tarzd2headerzd2_bglt) BgL_oz00_2967)))->BgL_typez00) =
				((obj_t) ((obj_t) BgL_vz00_2968)), BUNSPEC);
		}

	}



/* &lambda1556 */
	obj_t BGl_z62lambda1556z62zz__tarz00(obj_t BgL_envz00_2969,
		obj_t BgL_oz00_2970)
	{
		{	/* Unsafe/tar.scm 55 */
			return
				(((BgL_tarzd2headerzd2_bglt) COBJECT(
						((BgL_tarzd2headerzd2_bglt) BgL_oz00_2970)))->BgL_typez00);
		}

	}



/* &lambda1552 */
	obj_t BGl_z62lambda1552z62zz__tarz00(obj_t BgL_envz00_2971,
		obj_t BgL_oz00_2972, obj_t BgL_vz00_2973)
	{
		{	/* Unsafe/tar.scm 55 */
			{	/* Unsafe/tar.scm 55 */
				long BgL_vz00_3073;

				BgL_vz00_3073 = (long) CINT(BgL_vz00_2973);
				return
					((((BgL_tarzd2headerzd2_bglt) COBJECT(
								((BgL_tarzd2headerzd2_bglt) BgL_oz00_2972)))->BgL_checksumz00) =
					((long) BgL_vz00_3073), BUNSPEC);
		}}

	}



/* &lambda1551 */
	obj_t BGl_z62lambda1551z62zz__tarz00(obj_t BgL_envz00_2974,
		obj_t BgL_oz00_2975)
	{
		{	/* Unsafe/tar.scm 55 */
			return
				BINT(
				(((BgL_tarzd2headerzd2_bglt) COBJECT(
							((BgL_tarzd2headerzd2_bglt) BgL_oz00_2975)))->BgL_checksumz00));
		}

	}



/* &lambda1546 */
	obj_t BGl_z62lambda1546z62zz__tarz00(obj_t BgL_envz00_2976,
		obj_t BgL_oz00_2977, obj_t BgL_vz00_2978)
	{
		{	/* Unsafe/tar.scm 55 */
			return
				((((BgL_tarzd2headerzd2_bglt) COBJECT(
							((BgL_tarzd2headerzd2_bglt) BgL_oz00_2977)))->BgL_mtimez00) =
				((obj_t) ((obj_t) BgL_vz00_2978)), BUNSPEC);
		}

	}



/* &lambda1545 */
	obj_t BGl_z62lambda1545z62zz__tarz00(obj_t BgL_envz00_2979,
		obj_t BgL_oz00_2980)
	{
		{	/* Unsafe/tar.scm 55 */
			return
				(((BgL_tarzd2headerzd2_bglt) COBJECT(
						((BgL_tarzd2headerzd2_bglt) BgL_oz00_2980)))->BgL_mtimez00);
		}

	}



/* &lambda1536 */
	obj_t BGl_z62lambda1536z62zz__tarz00(obj_t BgL_envz00_2981,
		obj_t BgL_oz00_2982, obj_t BgL_vz00_2983)
	{
		{	/* Unsafe/tar.scm 55 */
			{	/* Unsafe/tar.scm 55 */
				long BgL_vz00_3079;

				BgL_vz00_3079 = BELONG_TO_LONG(BgL_vz00_2983);
				return
					((((BgL_tarzd2headerzd2_bglt) COBJECT(
								((BgL_tarzd2headerzd2_bglt) BgL_oz00_2982)))->BgL_siza7eza7) =
					((long) BgL_vz00_3079), BUNSPEC);
		}}

	}



/* &lambda1535 */
	obj_t BGl_z62lambda1535z62zz__tarz00(obj_t BgL_envz00_2984,
		obj_t BgL_oz00_2985)
	{
		{	/* Unsafe/tar.scm 55 */
			{	/* Unsafe/tar.scm 55 */
				long BgL_tmpz00_3940;

				BgL_tmpz00_3940 =
					(((BgL_tarzd2headerzd2_bglt) COBJECT(
							((BgL_tarzd2headerzd2_bglt) BgL_oz00_2985)))->BgL_siza7eza7);
				return make_belong(BgL_tmpz00_3940);
			}
		}

	}



/* &lambda1528 */
	obj_t BGl_z62lambda1528z62zz__tarz00(obj_t BgL_envz00_2986,
		obj_t BgL_oz00_2987, obj_t BgL_vz00_2988)
	{
		{	/* Unsafe/tar.scm 55 */
			{	/* Unsafe/tar.scm 55 */
				long BgL_vz00_3082;

				BgL_vz00_3082 = (long) CINT(BgL_vz00_2988);
				return
					((((BgL_tarzd2headerzd2_bglt) COBJECT(
								((BgL_tarzd2headerzd2_bglt) BgL_oz00_2987)))->BgL_gidz00) =
					((long) BgL_vz00_3082), BUNSPEC);
		}}

	}



/* &lambda1527 */
	obj_t BGl_z62lambda1527z62zz__tarz00(obj_t BgL_envz00_2989,
		obj_t BgL_oz00_2990)
	{
		{	/* Unsafe/tar.scm 55 */
			return
				BINT(
				(((BgL_tarzd2headerzd2_bglt) COBJECT(
							((BgL_tarzd2headerzd2_bglt) BgL_oz00_2990)))->BgL_gidz00));
		}

	}



/* &lambda1523 */
	obj_t BGl_z62lambda1523z62zz__tarz00(obj_t BgL_envz00_2991,
		obj_t BgL_oz00_2992, obj_t BgL_vz00_2993)
	{
		{	/* Unsafe/tar.scm 55 */
			{	/* Unsafe/tar.scm 55 */
				long BgL_vz00_3085;

				BgL_vz00_3085 = (long) CINT(BgL_vz00_2993);
				return
					((((BgL_tarzd2headerzd2_bglt) COBJECT(
								((BgL_tarzd2headerzd2_bglt) BgL_oz00_2992)))->BgL_uidz00) =
					((long) BgL_vz00_3085), BUNSPEC);
		}}

	}



/* &lambda1522 */
	obj_t BGl_z62lambda1522z62zz__tarz00(obj_t BgL_envz00_2994,
		obj_t BgL_oz00_2995)
	{
		{	/* Unsafe/tar.scm 55 */
			return
				BINT(
				(((BgL_tarzd2headerzd2_bglt) COBJECT(
							((BgL_tarzd2headerzd2_bglt) BgL_oz00_2995)))->BgL_uidz00));
		}

	}



/* &lambda1518 */
	obj_t BGl_z62lambda1518z62zz__tarz00(obj_t BgL_envz00_2996,
		obj_t BgL_oz00_2997, obj_t BgL_vz00_2998)
	{
		{	/* Unsafe/tar.scm 55 */
			{	/* Unsafe/tar.scm 55 */
				long BgL_vz00_3088;

				BgL_vz00_3088 = (long) CINT(BgL_vz00_2998);
				return
					((((BgL_tarzd2headerzd2_bglt) COBJECT(
								((BgL_tarzd2headerzd2_bglt) BgL_oz00_2997)))->BgL_modez00) =
					((long) BgL_vz00_3088), BUNSPEC);
		}}

	}



/* &lambda1517 */
	obj_t BGl_z62lambda1517z62zz__tarz00(obj_t BgL_envz00_2999,
		obj_t BgL_oz00_3000)
	{
		{	/* Unsafe/tar.scm 55 */
			return
				BINT(
				(((BgL_tarzd2headerzd2_bglt) COBJECT(
							((BgL_tarzd2headerzd2_bglt) BgL_oz00_3000)))->BgL_modez00));
		}

	}



/* &lambda1510 */
	obj_t BGl_z62lambda1510z62zz__tarz00(obj_t BgL_envz00_3001,
		obj_t BgL_oz00_3002, obj_t BgL_vz00_3003)
	{
		{	/* Unsafe/tar.scm 55 */
			return
				((((BgL_tarzd2headerzd2_bglt) COBJECT(
							((BgL_tarzd2headerzd2_bglt) BgL_oz00_3002)))->BgL_namez00) =
				((obj_t) ((obj_t) BgL_vz00_3003)), BUNSPEC);
		}

	}



/* &lambda1509 */
	obj_t BGl_z62lambda1509z62zz__tarz00(obj_t BgL_envz00_3004,
		obj_t BgL_oz00_3005)
	{
		{	/* Unsafe/tar.scm 55 */
			return
				(((BgL_tarzd2headerzd2_bglt) COBJECT(
						((BgL_tarzd2headerzd2_bglt) BgL_oz00_3005)))->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_string2102z00zz__tarz00));
			BGl_modulezd2initializa7ationz75zz__r4_ports_6_10_1z00(496722665L,
				BSTRING_TO_STRING(BGl_string2102z00zz__tarz00));
			BGl_modulezd2initializa7ationz75zz__r4_output_6_10_3z00(86988580L,
				BSTRING_TO_STRING(BGl_string2102z00zz__tarz00));
			BGl_modulezd2initializa7ationz75zz__r5_control_features_6_4z00(228151370L,
				BSTRING_TO_STRING(BGl_string2102z00zz__tarz00));
			BGl_modulezd2initializa7ationz75zz__objectz00(475449627L,
				BSTRING_TO_STRING(BGl_string2102z00zz__tarz00));
			return
				BGl_modulezd2initializa7ationz75zz__rgcz00(352600006L,
				BSTRING_TO_STRING(BGl_string2102z00zz__tarz00));
		}

	}

#ifdef __cplusplus
}
#endif
