/*===========================================================================*/
/*   (Llib/srfi4.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 Llib/srfi4.scm -indent -o objs/obj_u/Llib/srfi4.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___SRFI4_TYPE_DEFINITIONS
#define BGL___SRFI4_TYPE_DEFINITIONS
#endif													// BGL___SRFI4_TYPE_DEFINITIONS
#endif													// BGL_MODULE_TYPE_DEFINITIONS

	BGL_EXPORTED_DECL obj_t BGl_u8vectorzd2setz12zc0zz__srfi4z00(obj_t, long,
		uint8_t);
	static obj_t BGl_z62s64vectorzd2refzb0zz__srfi4z00(obj_t, obj_t, obj_t);
	extern bool_t BGl_pairzd2orzd2nullzf3zf3zz__r4_pairs_and_lists_6_3z00(obj_t);
	static obj_t BGl__s8vectorzd2copyz12zc0zz__srfi4z00(obj_t, obj_t);
	BGL_EXPORTED_DECL obj_t BGl_u8vectorzd2ze3listz31zz__srfi4z00(obj_t);
	static obj_t BGl_z62f64vectorzf3z91zz__srfi4z00(obj_t, obj_t);
	static obj_t BGl_z62f64vectorz62zz__srfi4z00(obj_t, obj_t);
	BGL_EXPORTED_DECL obj_t BGl_u8vectorzd2copyz12zc0zz__srfi4z00(obj_t, long,
		obj_t, obj_t, obj_t);
	BGL_EXPORTED_DECL obj_t BGl_listzd2ze3f64vectorz31zz__srfi4z00(obj_t);
	static obj_t BGl_z62listzd2ze3s8vectorz53zz__srfi4z00(obj_t, obj_t);
	static obj_t BGl_z62s8vectorzd2ze3listz53zz__srfi4z00(obj_t, obj_t);
	static obj_t BGl__f64vectorzd2copyz12zc0zz__srfi4z00(obj_t, obj_t);
	BGL_EXPORTED_DECL obj_t BGl_makezd2u8vectorzd2zz__srfi4z00(long, uint8_t);
	BGL_EXPORTED_DECL obj_t BGl_makezd2f64vectorzd2zz__srfi4z00(long, double);
	static obj_t BGl_z62listzd2ze3f64vectorz53zz__srfi4z00(obj_t, obj_t);
	BGL_EXPORTED_DECL obj_t BGl_u16vectorzd2ze3listz31zz__srfi4z00(obj_t);
	BGL_EXPORTED_DECL obj_t BGl_u16vectorzd2copyz12zc0zz__srfi4z00(obj_t, long,
		obj_t, obj_t, obj_t);
	BGL_EXPORTED_DECL uint16_t BGl_u16vectorzd2refzd2zz__srfi4z00(obj_t, long);
	static obj_t BGl_z62u16vectorzd2ze3listz53zz__srfi4z00(obj_t, obj_t);
	BGL_EXPORTED_DECL long BGl_u16vectorzd2lengthzd2zz__srfi4z00(obj_t);
	BGL_EXPORTED_DECL obj_t BGl_s8vectorz00zz__srfi4z00(obj_t);
	static obj_t BGl_z62s32vectorzd2lengthzb0zz__srfi4z00(obj_t, obj_t);
	static obj_t BGl__f32vectorzd2copyz12zc0zz__srfi4z00(obj_t, obj_t);
	BGL_EXPORTED_DECL obj_t BGl_homogeneouszd2vectorzf3z21zz__srfi4z00(obj_t);
	BGL_EXPORTED_DECL obj_t BGl_u16vectorzd2setz12zc0zz__srfi4z00(obj_t, long,
		uint16_t);
	static obj_t BGl_z62s16vectorzd2setz12za2zz__srfi4z00(obj_t, obj_t, obj_t,
		obj_t);
	BGL_EXPORTED_DECL long BGl_u8vectorzd2lengthzd2zz__srfi4z00(obj_t);
	static obj_t BGl_requirezd2initializa7ationz75zz__srfi4z00 = BUNSPEC;
	static obj_t BGl_z62u64vectorzd2setz12za2zz__srfi4z00(obj_t, obj_t, obj_t,
		obj_t);
	static obj_t BGl_z62u32vectorzf3z91zz__srfi4z00(obj_t, obj_t);
	static obj_t BGl_z62s16vectorz62zz__srfi4z00(obj_t, obj_t);
	BGL_EXPORTED_DECL obj_t BGl_listzd2ze3s16vectorz31zz__srfi4z00(obj_t);
	static obj_t BGl_z62u16vectorz62zz__srfi4z00(obj_t, obj_t);
	static obj_t BGl_z62u8vectorzd2lengthzb0zz__srfi4z00(obj_t, obj_t);
	static obj_t BGl__makezd2s32vectorzd2zz__srfi4z00(obj_t, obj_t);
	BGL_EXPORTED_DECL obj_t BGl_listzd2ze3u16vectorz31zz__srfi4z00(obj_t);
	static obj_t BGl__makezd2u32vectorzd2zz__srfi4z00(obj_t, obj_t);
	static obj_t BGl_z62f64vectorzd2lengthzb0zz__srfi4z00(obj_t, obj_t);
	BGL_EXPORTED_DECL obj_t BGl_makezd2s16vectorzd2zz__srfi4z00(long, int16_t);
	static obj_t BGl_z62listzd2ze3s16vectorz53zz__srfi4z00(obj_t, obj_t);
	BGL_EXPORTED_DECL obj_t BGl_makezd2u16vectorzd2zz__srfi4z00(long, uint16_t);
	static obj_t BGl_z62listzd2ze3u16vectorz53zz__srfi4z00(obj_t, obj_t);
	static obj_t BGl_z62s8vectorzf3z91zz__srfi4z00(obj_t, obj_t);
	static obj_t BGl_z62u8vectorzf3z91zz__srfi4z00(obj_t, obj_t);
	BGL_EXPORTED_DECL obj_t BGl_makezd2s8vectorzd2zz__srfi4z00(long, int8_t);
	BGL_EXPORTED_DECL obj_t BGl_hvectorzd2rangezd2errorz00zz__srfi4z00(obj_t,
		obj_t, long);
	extern obj_t BGl_typezd2errorzd2zz__errorz00(obj_t, obj_t, obj_t, obj_t,
		obj_t);
	static obj_t BGl__u64vectorzd2copyz12zc0zz__srfi4z00(obj_t, obj_t);
	static obj_t BGl__makezd2s64vectorzd2zz__srfi4z00(obj_t, obj_t);
	BGL_EXPORTED_DECL obj_t BGl_modulezd2initializa7ationz75zz__srfi4z00(long,
		char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__r4_symbols_6_4z00(long,
		char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__paramz00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__readerz00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__hashz00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__errorz00(long, char *);
	static obj_t BGl__makezd2u64vectorzd2zz__srfi4z00(obj_t, obj_t);
	BGL_EXPORTED_DECL long BGl_s16vectorzd2lengthzd2zz__srfi4z00(obj_t);
	static obj_t BGl_z62u32vectorzd2refzb0zz__srfi4z00(obj_t, obj_t, obj_t);
	BGL_EXPORTED_DECL obj_t BGl_f32vectorz00zz__srfi4z00(obj_t);
	BGL_EXPORTED_DECL obj_t BGl_s32vectorzd2setz12zc0zz__srfi4z00(obj_t, long,
		int32_t);
	static obj_t BGl_z62u64vectorzd2lengthzb0zz__srfi4z00(obj_t, obj_t);
	BGL_EXPORTED_DECL bool_t BGl_s64vectorzf3zf3zz__srfi4z00(obj_t);
	static obj_t BGl_z62f64vectorzd2refzb0zz__srfi4z00(obj_t, obj_t, obj_t);
	static obj_t BGl__u32vectorzd2copyz12zc0zz__srfi4z00(obj_t, obj_t);
	BGL_EXPORTED_DECL uint64_t BGl_u64vectorzd2refzd2zz__srfi4z00(obj_t, long);
	BGL_EXPORTED_DECL obj_t BGl_f64vectorzd2setz12zc0zz__srfi4z00(obj_t, long,
		double);
	static obj_t BGl_z62f32vectorzd2setz12za2zz__srfi4z00(obj_t, obj_t, obj_t,
		obj_t);
	static obj_t BGl_z62u8vectorzd2setz12za2zz__srfi4z00(obj_t, obj_t, obj_t,
		obj_t);
	BGL_EXPORTED_DECL obj_t BGl_f64vectorz00zz__srfi4z00(obj_t);
	BGL_EXPORTED_DECL obj_t BGl_listzd2ze3u8vectorz31zz__srfi4z00(obj_t);
	extern obj_t BGl_integerzd2ze3stringz31zz__r4_numbers_6_5_fixnumz00(long,
		long);
	BGL_EXPORTED_DECL obj_t BGl_s16vectorzd2ze3listz31zz__srfi4z00(obj_t);
	BGL_EXPORTED_DECL obj_t BGl_s16vectorzd2copyz12zc0zz__srfi4z00(obj_t, long,
		obj_t, obj_t, obj_t);
	static obj_t BGl_z62s16vectorzd2ze3listz53zz__srfi4z00(obj_t, obj_t);
	static obj_t BGl_z62u16vectorzd2refzb0zz__srfi4z00(obj_t, obj_t, obj_t);
	static obj_t BGl_z62s64vectorzd2lengthzb0zz__srfi4z00(obj_t, obj_t);
	static obj_t BGl_z62u8vectorz62zz__srfi4z00(obj_t, obj_t);
	BGL_EXPORTED_DECL long BGl_s8vectorzd2lengthzd2zz__srfi4z00(obj_t);
	BGL_EXPORTED_DECL obj_t BGl_s16vectorz00zz__srfi4z00(obj_t);
	BGL_EXPORTED_DECL obj_t BGl_u16vectorz00zz__srfi4z00(obj_t);
	BGL_EXPORTED_DECL bool_t BGl_u64vectorzf3zf3zz__srfi4z00(obj_t);
	static obj_t BGl_z62s8vectorzd2lengthzb0zz__srfi4z00(obj_t, obj_t);
	static obj_t BGl_z62s64vectorzf3z91zz__srfi4z00(obj_t, obj_t);
	static obj_t BGl_cnstzd2initzd2zz__srfi4z00(void);
	BGL_EXPORTED_DECL bool_t BGl_s8vectorzf3zf3zz__srfi4z00(obj_t);
	static obj_t BGl_genericzd2initzd2zz__srfi4z00(void);
	BGL_EXPORTED_DECL bool_t BGl_u8vectorzf3zf3zz__srfi4z00(obj_t);
	extern long bgl_list_length(obj_t);
	BGL_EXPORTED_DECL obj_t BGl_s8vectorzd2ze3listz31zz__srfi4z00(obj_t);
	BGL_EXPORTED_DECL obj_t BGl_listzd2ze3s8vectorz31zz__srfi4z00(obj_t);
	BGL_EXPORTED_DECL obj_t BGl_s8vectorzd2copyz12zc0zz__srfi4z00(obj_t, long,
		obj_t, obj_t, obj_t);
	static obj_t BGl_importedzd2moduleszd2initz00zz__srfi4z00(void);
	static obj_t BGl_z62s8vectorzd2refzb0zz__srfi4z00(obj_t, obj_t, obj_t);
	static obj_t BGl_gczd2rootszd2initz00zz__srfi4z00(void);
	BGL_EXPORTED_DECL int32_t BGl_s32vectorzd2refzd2zz__srfi4z00(obj_t, long);
	static obj_t BGl_objectzd2initzd2zz__srfi4z00(void);
	static obj_t BGl__s64vectorzd2copyz12zc0zz__srfi4z00(obj_t, obj_t);
	BGL_EXPORTED_DECL obj_t BGl_homogeneouszd2vectorzd2infoz00zz__srfi4z00(obj_t);
	static obj_t BGl_z62s8vectorz62zz__srfi4z00(obj_t, obj_t);
	static obj_t BGl_z62u16vectorzd2lengthzb0zz__srfi4z00(obj_t, obj_t);
	BGL_EXPORTED_DECL obj_t BGl_s16vectorzd2setz12zc0zz__srfi4z00(obj_t, long,
		int16_t);
	static obj_t BGl_z62homogeneouszd2vectorzd2infoz62zz__srfi4z00(obj_t, obj_t);
	BGL_EXPORTED_DECL obj_t BGl_f64vectorzd2ze3listz31zz__srfi4z00(obj_t);
	BGL_EXPORTED_DECL obj_t BGl_f64vectorzd2copyz12zc0zz__srfi4z00(obj_t, long,
		obj_t, obj_t, obj_t);
	BGL_EXPORTED_DECL obj_t BGl_u64vectorzd2setz12zc0zz__srfi4z00(obj_t, long,
		uint64_t);
	static obj_t BGl_z62u32vectorzd2setz12za2zz__srfi4z00(obj_t, obj_t, obj_t,
		obj_t);
	BGL_EXPORTED_DECL long BGl_f32vectorzd2lengthzd2zz__srfi4z00(obj_t);
	static obj_t BGl_z62f64vectorzd2ze3listz53zz__srfi4z00(obj_t, obj_t);
	static obj_t BGl_z62s64vectorzd2setz12za2zz__srfi4z00(obj_t, obj_t, obj_t,
		obj_t);
	static obj_t BGl_z62s32vectorz62zz__srfi4z00(obj_t, obj_t);
	BGL_EXPORTED_DECL obj_t BGl_listzd2ze3s32vectorz31zz__srfi4z00(obj_t);
	static obj_t BGl_z62u32vectorz62zz__srfi4z00(obj_t, obj_t);
	static obj_t BGl__s32vectorzd2copyz12zc0zz__srfi4z00(obj_t, obj_t);
	BGL_EXPORTED_DECL obj_t BGl_listzd2ze3u32vectorz31zz__srfi4z00(obj_t);
	BGL_EXPORTED_DECL obj_t BGl_makezd2s32vectorzd2zz__srfi4z00(long, int32_t);
	static obj_t BGl_z62u64vectorzf3z91zz__srfi4z00(obj_t, obj_t);
	static obj_t BGl_z62listzd2ze3s32vectorz53zz__srfi4z00(obj_t, obj_t);
	BGL_EXPORTED_DECL obj_t BGl_s8vectorzd2setz12zc0zz__srfi4z00(obj_t, long,
		int8_t);
	BGL_EXPORTED_DECL obj_t BGl_makezd2u32vectorzd2zz__srfi4z00(long, uint32_t);
	static obj_t BGl_z62listzd2ze3u32vectorz53zz__srfi4z00(obj_t, obj_t);
	BGL_EXPORTED_DECL bool_t BGl_f32vectorzf3zf3zz__srfi4z00(obj_t);
	extern obj_t string_append_3(obj_t, obj_t, obj_t);
	static obj_t BGl_z62u64vectorzd2refzb0zz__srfi4z00(obj_t, obj_t, obj_t);
	BGL_EXPORTED_DECL obj_t BGl_f32vectorzd2ze3listz31zz__srfi4z00(obj_t);
	BGL_EXPORTED_DECL obj_t BGl_f32vectorzd2copyz12zc0zz__srfi4z00(obj_t, long,
		obj_t, obj_t, obj_t);
	BGL_EXPORTED_DECL int8_t BGl_s8vectorzd2refzd2zz__srfi4z00(obj_t, long);
	static obj_t BGl_z62f32vectorzd2ze3listz53zz__srfi4z00(obj_t, obj_t);
	static obj_t BGl_z62s64vectorz62zz__srfi4z00(obj_t, obj_t);
	BGL_EXPORTED_DECL int16_t BGl_s16vectorzd2refzd2zz__srfi4z00(obj_t, long);
	BGL_EXPORTED_DECL obj_t BGl_listzd2ze3s64vectorz31zz__srfi4z00(obj_t);
	static obj_t BGl_z62u64vectorz62zz__srfi4z00(obj_t, obj_t);
	BGL_EXPORTED_DECL obj_t BGl_listzd2ze3u64vectorz31zz__srfi4z00(obj_t);
	BGL_EXPORTED_DECL obj_t BGl_makezd2s64vectorzd2zz__srfi4z00(long, int64_t);
	BGL_EXPORTED_DECL long BGl_u32vectorzd2lengthzd2zz__srfi4z00(obj_t);
	static obj_t BGl_z62listzd2ze3s64vectorz53zz__srfi4z00(obj_t, obj_t);
	BGL_EXPORTED_DECL obj_t BGl_makezd2u64vectorzd2zz__srfi4z00(long, uint64_t);
	static obj_t BGl_z62listzd2ze3u64vectorz53zz__srfi4z00(obj_t, obj_t);
	static obj_t BGl_z62s16vectorzd2lengthzb0zz__srfi4z00(obj_t, obj_t);
	static obj_t BGl__makezd2f32vectorzd2zz__srfi4z00(obj_t, obj_t);
	extern obj_t bstring_to_symbol(obj_t);
	BGL_EXPORTED_DECL bool_t BGl_s16vectorzf3zf3zz__srfi4z00(obj_t);
	static obj_t BGl_z62homogeneouszd2vectorzf3z43zz__srfi4z00(obj_t, obj_t);
	static obj_t BGl__u16vectorzd2copyz12zc0zz__srfi4z00(obj_t, obj_t);
	BGL_EXPORTED_DECL obj_t BGl_f32vectorzd2setz12zc0zz__srfi4z00(obj_t, long,
		float);
	BGL_EXPORTED_DECL obj_t BGl_u64vectorzd2ze3listz31zz__srfi4z00(obj_t);
	BGL_EXPORTED_DECL obj_t BGl_u64vectorzd2copyz12zc0zz__srfi4z00(obj_t, long,
		obj_t, obj_t, obj_t);
	static obj_t BGl_z62u64vectorzd2ze3listz53zz__srfi4z00(obj_t, obj_t);
	static obj_t BGl_symbol2342z00zz__srfi4z00 = BUNSPEC;
	static obj_t BGl_symbol2344z00zz__srfi4z00 = BUNSPEC;
	static obj_t BGl_z62f32vectorzf3z91zz__srfi4z00(obj_t, obj_t);
	static obj_t BGl_symbol2346z00zz__srfi4z00 = BUNSPEC;
	static obj_t BGl_symbol2348z00zz__srfi4z00 = BUNSPEC;
	static obj_t BGl__u8vectorzd2copyz12zc0zz__srfi4z00(obj_t, obj_t);
	BGL_EXPORTED_DECL float BGl_f32vectorzd2refzd2zz__srfi4z00(obj_t, long);
	static obj_t BGl_z62u8vectorzd2ze3listz53zz__srfi4z00(obj_t, obj_t);
	static obj_t BGl__makezd2f64vectorzd2zz__srfi4z00(obj_t, obj_t);
	static obj_t BGl_z62hvectorzd2rangezd2errorz62zz__srfi4z00(obj_t, obj_t,
		obj_t, obj_t);
	BGL_EXPORTED_DECL obj_t BGl_u32vectorzd2ze3listz31zz__srfi4z00(obj_t);
	BGL_EXPORTED_DECL obj_t BGl_u32vectorzd2copyz12zc0zz__srfi4z00(obj_t, long,
		obj_t, obj_t, obj_t);
	static obj_t BGl_z62u32vectorzd2ze3listz53zz__srfi4z00(obj_t, obj_t);
	BGL_EXPORTED_DECL long BGl_s32vectorzd2lengthzd2zz__srfi4z00(obj_t);
	static obj_t BGl_z62s32vectorzd2refzb0zz__srfi4z00(obj_t, obj_t, obj_t);
	static obj_t BGl_symbol2350z00zz__srfi4z00 = BUNSPEC;
	static obj_t BGl_symbol2352z00zz__srfi4z00 = BUNSPEC;
	static obj_t BGl_methodzd2initzd2zz__srfi4z00(void);
	extern obj_t BGl_bigloozd2typezd2errorz00zz__errorz00(obj_t, obj_t, obj_t);
	static obj_t BGl_symbol2354z00zz__srfi4z00 = BUNSPEC;
	static obj_t BGl_symbol2356z00zz__srfi4z00 = BUNSPEC;
	static obj_t BGl_symbol2358z00zz__srfi4z00 = BUNSPEC;
	static obj_t BGl__makezd2u8vectorzd2zz__srfi4z00(obj_t, obj_t);
	BGL_EXPORTED_DECL obj_t BGl_s32vectorz00zz__srfi4z00(obj_t);
	BGL_EXPORTED_DECL obj_t BGl_u32vectorz00zz__srfi4z00(obj_t);
	BGL_EXPORTED_DECL bool_t BGl_u16vectorzf3zf3zz__srfi4z00(obj_t);
	static obj_t BGl_z62u16vectorzd2setz12za2zz__srfi4z00(obj_t, obj_t, obj_t,
		obj_t);
	static obj_t BGl_z62s16vectorzf3z91zz__srfi4z00(obj_t, obj_t);
	BGL_EXPORTED_DECL long BGl_f64vectorzd2lengthzd2zz__srfi4z00(obj_t);
	static obj_t BGl__makezd2s16vectorzd2zz__srfi4z00(obj_t, obj_t);
	static obj_t BGl__makezd2u16vectorzd2zz__srfi4z00(obj_t, obj_t);
	BGL_EXPORTED_DECL int64_t BGl_s64vectorzd2refzd2zz__srfi4z00(obj_t, long);
	static obj_t BGl_z62s8vectorzd2setz12za2zz__srfi4z00(obj_t, obj_t, obj_t,
		obj_t);
	static obj_t BGl_symbol2360z00zz__srfi4z00 = BUNSPEC;
	static obj_t BGl_z62u8vectorzd2refzb0zz__srfi4z00(obj_t, obj_t, obj_t);
	BGL_EXPORTED_DECL obj_t BGl_s64vectorz00zz__srfi4z00(obj_t);
	BGL_EXPORTED_DECL obj_t BGl_u64vectorz00zz__srfi4z00(obj_t);
	static obj_t BGl_z62s16vectorzd2refzb0zz__srfi4z00(obj_t, obj_t, obj_t);
	BGL_EXPORTED_DECL long BGl_u64vectorzd2lengthzd2zz__srfi4z00(obj_t);
	BGL_EXPORTED_DECL obj_t BGl_u32vectorzd2setz12zc0zz__srfi4z00(obj_t, long,
		uint32_t);
	static obj_t BGl__makezd2s8vectorzd2zz__srfi4z00(obj_t, obj_t);
	BGL_EXPORTED_DECL obj_t BGl_s64vectorzd2setz12zc0zz__srfi4z00(obj_t, long,
		int64_t);
	BGL_EXPORTED_DECL bool_t BGl_s32vectorzf3zf3zz__srfi4z00(obj_t);
	static obj_t BGl_z62s32vectorzd2setz12za2zz__srfi4z00(obj_t, obj_t, obj_t,
		obj_t);
	static obj_t BGl_z62f32vectorzd2lengthzb0zz__srfi4z00(obj_t, obj_t);
	static obj_t BGl_z62u16vectorzf3z91zz__srfi4z00(obj_t, obj_t);
	static obj_t BGl__s16vectorzd2copyz12zc0zz__srfi4z00(obj_t, obj_t);
	BGL_EXPORTED_DECL obj_t BGl_s64vectorzd2ze3listz31zz__srfi4z00(obj_t);
	BGL_EXPORTED_DECL obj_t BGl_s64vectorzd2copyz12zc0zz__srfi4z00(obj_t, long,
		obj_t, obj_t, obj_t);
	static obj_t BGl_z62s64vectorzd2ze3listz53zz__srfi4z00(obj_t, obj_t);
	BGL_EXPORTED_DECL bool_t BGl_f64vectorzf3zf3zz__srfi4z00(obj_t);
	static obj_t BGl_z62f64vectorzd2setz12za2zz__srfi4z00(obj_t, obj_t, obj_t,
		obj_t);
	BGL_EXPORTED_DECL uint8_t BGl_u8vectorzd2refzd2zz__srfi4z00(obj_t, long);
	static obj_t BGl_z62listzd2ze3u8vectorz53zz__srfi4z00(obj_t, obj_t);
	static obj_t BGl_z62f32vectorzd2refzb0zz__srfi4z00(obj_t, obj_t, obj_t);
	BGL_EXPORTED_DECL obj_t BGl_s32vectorzd2ze3listz31zz__srfi4z00(obj_t);
	BGL_EXPORTED_DECL obj_t BGl_s32vectorzd2copyz12zc0zz__srfi4z00(obj_t, long,
		obj_t, obj_t, obj_t);
	BGL_EXPORTED_DECL uint32_t BGl_u32vectorzd2refzd2zz__srfi4z00(obj_t, long);
	static obj_t BGl_z62s32vectorzd2ze3listz53zz__srfi4z00(obj_t, obj_t);
	BGL_EXPORTED_DECL long BGl_s64vectorzd2lengthzd2zz__srfi4z00(obj_t);
	BGL_EXPORTED_DECL obj_t BGl_u8vectorz00zz__srfi4z00(obj_t);
	static obj_t BGl_z62u32vectorzd2lengthzb0zz__srfi4z00(obj_t, obj_t);
	static obj_t BGl_z62f32vectorz62zz__srfi4z00(obj_t, obj_t);
	BGL_EXPORTED_DECL obj_t BGl_listzd2ze3f32vectorz31zz__srfi4z00(obj_t);
	BGL_EXPORTED_DECL obj_t BGl_makezd2f32vectorzd2zz__srfi4z00(long, float);
	extern obj_t BGl_errorz00zz__errorz00(obj_t, obj_t, obj_t);
	static obj_t BGl_z62listzd2ze3f32vectorz53zz__srfi4z00(obj_t, obj_t);
	BGL_EXPORTED_DECL bool_t BGl_u32vectorzf3zf3zz__srfi4z00(obj_t);
	BGL_EXPORTED_DECL double BGl_f64vectorzd2refzd2zz__srfi4z00(obj_t, long);
	static obj_t BGl_z62s32vectorzf3z91zz__srfi4z00(obj_t, obj_t);
	static obj_t *__cnst;


	   
		 
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_homogeneouszd2vectorzf3zd2envzf3zz__srfi4z00,
		BgL_bgl_za762homogeneousza7d2462z00,
		BGl_z62homogeneouszd2vectorzf3z43zz__srfi4z00, 0L, BUNSPEC, 1);
	      DEFINE_EXPORT_BGL_PROCEDURE(BGl_u16vectorzd2envzd2zz__srfi4z00,
		BgL_bgl_za762u16vectorza762za72463za7, va_generic_entry,
		BGl_z62u16vectorz62zz__srfi4z00, BUNSPEC, -1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE(BGl_listzd2ze3s16vectorzd2envze3zz__srfi4z00,
		BgL_bgl_za762listza7d2za7e3s162464za7,
		BGl_z62listzd2ze3s16vectorz53zz__srfi4z00, 0L, BUNSPEC, 1);
	      DEFINE_EXPORT_BGL_PROCEDURE(BGl_makezd2s16vectorzd2envz00zz__srfi4z00,
		BgL_bgl__makeza7d2s16vecto2465za7, opt_generic_entry,
		BGl__makezd2s16vectorzd2zz__srfi4z00, BFALSE, -1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE(BGl_s64vectorzd2copyz12zd2envz12zz__srfi4z00,
		BgL_bgl__s64vectorza7d2cop2466za7, opt_generic_entry,
		BGl__s64vectorzd2copyz12zc0zz__srfi4z00, BFALSE, -1);
	      DEFINE_EXPORT_BGL_PROCEDURE(BGl_u8vectorzf3zd2envz21zz__srfi4z00,
		BgL_bgl_za762u8vectorza7f3za792467za7, BGl_z62u8vectorzf3z91zz__srfi4z00,
		0L, BUNSPEC, 1);
	      DEFINE_EXPORT_BGL_PROCEDURE(BGl_s8vectorzd2copyz12zd2envz12zz__srfi4z00,
		BgL_bgl__s8vectorza7d2copy2468za7, opt_generic_entry,
		BGl__s8vectorzd2copyz12zc0zz__srfi4z00, BFALSE, -1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_hvectorzd2rangezd2errorzd2envzd2zz__srfi4z00,
		BgL_bgl_za762hvectorza7d2ran2469z00,
		BGl_z62hvectorzd2rangezd2errorz62zz__srfi4z00, 0L, BUNSPEC, 3);
	     
		DEFINE_EXPORT_BGL_PROCEDURE(BGl_u32vectorzd2copyz12zd2envz12zz__srfi4z00,
		BgL_bgl__u32vectorza7d2cop2470za7, opt_generic_entry,
		BGl__u32vectorzd2copyz12zc0zz__srfi4z00, BFALSE, -1);
	      DEFINE_EXPORT_BGL_PROCEDURE(BGl_s32vectorzd2lengthzd2envz00zz__srfi4z00,
		BgL_bgl_za762s32vectorza7d2l2471z00,
		BGl_z62s32vectorzd2lengthzb0zz__srfi4z00, 0L, BUNSPEC, 1);
	      DEFINE_EXPORT_BGL_PROCEDURE(BGl_s16vectorzd2lengthzd2envz00zz__srfi4z00,
		BgL_bgl_za762s16vectorza7d2l2472z00,
		BGl_z62s16vectorzd2lengthzb0zz__srfi4z00, 0L, BUNSPEC, 1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE(BGl_listzd2ze3f32vectorzd2envze3zz__srfi4z00,
		BgL_bgl_za762listza7d2za7e3f322473za7,
		BGl_z62listzd2ze3f32vectorz53zz__srfi4z00, 0L, BUNSPEC, 1);
	      DEFINE_EXPORT_BGL_PROCEDURE(BGl_s16vectorzd2setz12zd2envz12zz__srfi4z00,
		BgL_bgl_za762s16vectorza7d2s2474z00,
		BGl_z62s16vectorzd2setz12za2zz__srfi4z00, 0L, BUNSPEC, 3);
	      DEFINE_EXPORT_BGL_PROCEDURE(BGl_makezd2f32vectorzd2envz00zz__srfi4z00,
		BgL_bgl__makeza7d2f32vecto2475za7, opt_generic_entry,
		BGl__makezd2f32vectorzd2zz__srfi4z00, BFALSE, -1);
	      DEFINE_EXPORT_BGL_PROCEDURE(BGl_f64vectorzd2refzd2envz00zz__srfi4z00,
		BgL_bgl_za762f64vectorza7d2r2476z00, BGl_z62f64vectorzd2refzb0zz__srfi4z00,
		0L, BUNSPEC, 2);
	      DEFINE_EXPORT_BGL_PROCEDURE(BGl_u16vectorzf3zd2envz21zz__srfi4z00,
		BgL_bgl_za762u16vectorza7f3za72477za7, BGl_z62u16vectorzf3z91zz__srfi4z00,
		0L, BUNSPEC, 1);
	      DEFINE_EXPORT_BGL_PROCEDURE(BGl_f64vectorzd2lengthzd2envz00zz__srfi4z00,
		BgL_bgl_za762f64vectorza7d2l2478z00,
		BGl_z62f64vectorzd2lengthzb0zz__srfi4z00, 0L, BUNSPEC, 1);
	      DEFINE_EXPORT_BGL_PROCEDURE(BGl_s64vectorzd2refzd2envz00zz__srfi4z00,
		BgL_bgl_za762s64vectorza7d2r2479z00, BGl_z62s64vectorzd2refzb0zz__srfi4z00,
		0L, BUNSPEC, 2);
	      DEFINE_EXPORT_BGL_PROCEDURE(BGl_u64vectorzd2refzd2envz00zz__srfi4z00,
		BgL_bgl_za762u64vectorza7d2r2480z00, BGl_z62u64vectorzd2refzb0zz__srfi4z00,
		0L, BUNSPEC, 2);
	     
		DEFINE_EXPORT_BGL_PROCEDURE(BGl_f32vectorzd2copyz12zd2envz12zz__srfi4z00,
		BgL_bgl__f32vectorza7d2cop2481za7, opt_generic_entry,
		BGl__f32vectorzd2copyz12zc0zz__srfi4z00, BFALSE, -1);
	      DEFINE_EXPORT_BGL_PROCEDURE(BGl_u8vectorzd2copyz12zd2envz12zz__srfi4z00,
		BgL_bgl__u8vectorza7d2copy2482za7, opt_generic_entry,
		BGl__u8vectorzd2copyz12zc0zz__srfi4z00, BFALSE, -1);
	      DEFINE_EXPORT_BGL_PROCEDURE(BGl_u64vectorzd2envzd2zz__srfi4z00,
		BgL_bgl_za762u64vectorza762za72483za7, va_generic_entry,
		BGl_z62u64vectorz62zz__srfi4z00, BUNSPEC, -1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE(BGl_s16vectorzd2ze3listzd2envze3zz__srfi4z00,
		BgL_bgl_za762s16vectorza7d2za72484za7,
		BGl_z62s16vectorzd2ze3listz53zz__srfi4z00, 0L, BUNSPEC, 1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE(BGl_listzd2ze3s64vectorzd2envze3zz__srfi4z00,
		BgL_bgl_za762listza7d2za7e3s642485za7,
		BGl_z62listzd2ze3s64vectorz53zz__srfi4z00, 0L, BUNSPEC, 1);
	extern obj_t BGl_zd3u32zd2envz01zz__r4_numbers_6_5_fixnumz00;
	   
		 
		DEFINE_EXPORT_BGL_PROCEDURE(BGl_s16vectorzd2refzd2envz00zz__srfi4z00,
		BgL_bgl_za762s16vectorza7d2r2486z00, BGl_z62s16vectorzd2refzb0zz__srfi4z00,
		0L, BUNSPEC, 2);
	      DEFINE_EXPORT_BGL_PROCEDURE(BGl_u16vectorzd2refzd2envz00zz__srfi4z00,
		BgL_bgl_za762u16vectorza7d2r2487z00, BGl_z62u16vectorzd2refzb0zz__srfi4z00,
		0L, BUNSPEC, 2);
	      DEFINE_EXPORT_BGL_PROCEDURE(BGl_makezd2s64vectorzd2envz00zz__srfi4z00,
		BgL_bgl__makeza7d2s64vecto2488za7, opt_generic_entry,
		BGl__makezd2s64vectorzd2zz__srfi4z00, BFALSE, -1);
	      DEFINE_STRING(BGl_string2400z00zz__srfi4z00,
		BgL_bgl_string2400za700za7za7_2489za7, "bint64", 6);
	      DEFINE_STRING(BGl_string2401z00zz__srfi4z00,
		BgL_bgl_string2401za700za7za7_2490za7, "_make-u64vector", 15);
	      DEFINE_STRING(BGl_string2402z00zz__srfi4z00,
		BgL_bgl_string2402za700za7za7_2491za7, "buint64", 7);
	      DEFINE_EXPORT_BGL_PROCEDURE(BGl_u16vectorzd2setz12zd2envz12zz__srfi4z00,
		BgL_bgl_za762u16vectorza7d2s2492z00,
		BGl_z62u16vectorzd2setz12za2zz__srfi4z00, 0L, BUNSPEC, 3);
	      DEFINE_STRING(BGl_string2403z00zz__srfi4z00,
		BgL_bgl_string2403za700za7za7_2493za7, "_make-f32vector", 15);
	      DEFINE_EXPORT_BGL_PROCEDURE(BGl_s64vectorzd2setz12zd2envz12zz__srfi4z00,
		BgL_bgl_za762s64vectorza7d2s2494z00,
		BGl_z62s64vectorzd2setz12za2zz__srfi4z00, 0L, BUNSPEC, 3);
	extern obj_t BGl_zd3u8zd2envz01zz__r4_numbers_6_5_fixnumz00;
	   
		 
		DEFINE_EXPORT_BGL_PROCEDURE(BGl_s32vectorzf3zd2envz21zz__srfi4z00,
		BgL_bgl_za762s32vectorza7f3za72495za7, BGl_z62s32vectorzf3z91zz__srfi4z00,
		0L, BUNSPEC, 1);
	      DEFINE_STRING(BGl_string2404z00zz__srfi4z00,
		BgL_bgl_string2404za700za7za7_2496za7, "real", 4);
	      DEFINE_STRING(BGl_string2405z00zz__srfi4z00,
		BgL_bgl_string2405za700za7za7_2497za7, "_make-f64vector", 15);
	      DEFINE_STRING(BGl_string2406z00zz__srfi4z00,
		BgL_bgl_string2406za700za7za7_2498za7, "index out of range [0..", 23);
	      DEFINE_STRING(BGl_string2407z00zz__srfi4z00,
		BgL_bgl_string2407za700za7za7_2499za7, "]", 1);
	      DEFINE_STRING(BGl_string2408z00zz__srfi4z00,
		BgL_bgl_string2408za700za7za7_2500za7, "&hvector-range-error", 20);
	      DEFINE_STRING(BGl_string2409z00zz__srfi4z00,
		BgL_bgl_string2409za700za7za7_2501za7, "bstring", 7);
	     
		DEFINE_EXPORT_BGL_PROCEDURE(BGl_u64vectorzd2copyz12zd2envz12zz__srfi4z00,
		BgL_bgl__u64vectorza7d2cop2502za7, opt_generic_entry,
		BGl__u64vectorzd2copyz12zc0zz__srfi4z00, BFALSE, -1);
	      DEFINE_EXPORT_BGL_PROCEDURE(BGl_f64vectorzf3zd2envz21zz__srfi4z00,
		BgL_bgl_za762f64vectorza7f3za72503za7, BGl_z62f64vectorzf3z91zz__srfi4z00,
		0L, BUNSPEC, 1);
	      DEFINE_STRING(BGl_string2410z00zz__srfi4z00,
		BgL_bgl_string2410za700za7za7_2504za7, "&s8vector-ref", 13);
	      DEFINE_STRING(BGl_string2411z00zz__srfi4z00,
		BgL_bgl_string2411za700za7za7_2505za7, "&u8vector-ref", 13);
	      DEFINE_EXPORT_BGL_PROCEDURE(BGl_makezd2s8vectorzd2envz00zz__srfi4z00,
		BgL_bgl__makeza7d2s8vector2506za7, opt_generic_entry,
		BGl__makezd2s8vectorzd2zz__srfi4z00, BFALSE, -1);
	      DEFINE_STRING(BGl_string2412z00zz__srfi4z00,
		BgL_bgl_string2412za700za7za7_2507za7, "&s16vector-ref", 14);
	      DEFINE_EXPORT_BGL_PROCEDURE(BGl_u8vectorzd2refzd2envz00zz__srfi4z00,
		BgL_bgl_za762u8vectorza7d2re2508z00, BGl_z62u8vectorzd2refzb0zz__srfi4z00,
		0L, BUNSPEC, 2);
	      DEFINE_STRING(BGl_string2413z00zz__srfi4z00,
		BgL_bgl_string2413za700za7za7_2509za7, "&u16vector-ref", 14);
	      DEFINE_STRING(BGl_string2414z00zz__srfi4z00,
		BgL_bgl_string2414za700za7za7_2510za7, "&s32vector-ref", 14);
	      DEFINE_STRING(BGl_string2415z00zz__srfi4z00,
		BgL_bgl_string2415za700za7za7_2511za7, "&u32vector-ref", 14);
	      DEFINE_STRING(BGl_string2416z00zz__srfi4z00,
		BgL_bgl_string2416za700za7za7_2512za7, "&s64vector-ref", 14);
	      DEFINE_STRING(BGl_string2417z00zz__srfi4z00,
		BgL_bgl_string2417za700za7za7_2513za7, "&u64vector-ref", 14);
	      DEFINE_STRING(BGl_string2418z00zz__srfi4z00,
		BgL_bgl_string2418za700za7za7_2514za7, "&f32vector-ref", 14);
	      DEFINE_STRING(BGl_string2419z00zz__srfi4z00,
		BgL_bgl_string2419za700za7za7_2515za7, "&f64vector-ref", 14);
	     
		DEFINE_EXPORT_BGL_PROCEDURE(BGl_s32vectorzd2ze3listzd2envze3zz__srfi4z00,
		BgL_bgl_za762s32vectorza7d2za72516za7,
		BGl_z62s32vectorzd2ze3listz53zz__srfi4z00, 0L, BUNSPEC, 1);
	      DEFINE_EXPORT_BGL_PROCEDURE(BGl_s32vectorzd2setz12zd2envz12zz__srfi4z00,
		BgL_bgl_za762s32vectorza7d2s2517z00,
		BGl_z62s32vectorzd2setz12za2zz__srfi4z00, 0L, BUNSPEC, 3);
	      DEFINE_STRING(BGl_string2420z00zz__srfi4z00,
		BgL_bgl_string2420za700za7za7_2518za7, "&s8vector-set!", 14);
	      DEFINE_STRING(BGl_string2421z00zz__srfi4z00,
		BgL_bgl_string2421za700za7za7_2519za7, "&u8vector-set!", 14);
	      DEFINE_STRING(BGl_string2422z00zz__srfi4z00,
		BgL_bgl_string2422za700za7za7_2520za7, "&s16vector-set!", 15);
	      DEFINE_EXPORT_BGL_PROCEDURE(BGl_s32vectorzd2envzd2zz__srfi4z00,
		BgL_bgl_za762s32vectorza762za72521za7, va_generic_entry,
		BGl_z62s32vectorz62zz__srfi4z00, BUNSPEC, -1);
	      DEFINE_STRING(BGl_string2423z00zz__srfi4z00,
		BgL_bgl_string2423za700za7za7_2522za7, "&u16vector-set!", 15);
	     
		DEFINE_EXPORT_BGL_PROCEDURE(BGl_f64vectorzd2copyz12zd2envz12zz__srfi4z00,
		BgL_bgl__f64vectorza7d2cop2523za7, opt_generic_entry,
		BGl__f64vectorzd2copyz12zc0zz__srfi4z00, BFALSE, -1);
	      DEFINE_EXPORT_BGL_PROCEDURE(BGl_u64vectorzd2setz12zd2envz12zz__srfi4z00,
		BgL_bgl_za762u64vectorza7d2s2524z00,
		BGl_z62u64vectorzd2setz12za2zz__srfi4z00, 0L, BUNSPEC, 3);
	      DEFINE_STRING(BGl_string2424z00zz__srfi4z00,
		BgL_bgl_string2424za700za7za7_2525za7, "&s32vector-set!", 15);
	      DEFINE_STRING(BGl_string2343z00zz__srfi4z00,
		BgL_bgl_string2343za700za7za7_2526za7, "s8", 2);
	      DEFINE_STRING(BGl_string2425z00zz__srfi4z00,
		BgL_bgl_string2425za700za7za7_2527za7, "&u32vector-set!", 15);
	      DEFINE_STRING(BGl_string2426z00zz__srfi4z00,
		BgL_bgl_string2426za700za7za7_2528za7, "&s64vector-set!", 15);
	      DEFINE_STRING(BGl_string2345z00zz__srfi4z00,
		BgL_bgl_string2345za700za7za7_2529za7, "u8", 2);
	      DEFINE_STRING(BGl_string2427z00zz__srfi4z00,
		BgL_bgl_string2427za700za7za7_2530za7, "&u64vector-set!", 15);
	      DEFINE_STRING(BGl_string2428z00zz__srfi4z00,
		BgL_bgl_string2428za700za7za7_2531za7, "&f32vector-set!", 15);
	      DEFINE_STRING(BGl_string2347z00zz__srfi4z00,
		BgL_bgl_string2347za700za7za7_2532za7, "s16", 3);
	      DEFINE_STRING(BGl_string2429z00zz__srfi4z00,
		BgL_bgl_string2429za700za7za7_2533za7, "&f64vector-set!", 15);
	      DEFINE_STRING(BGl_string2349z00zz__srfi4z00,
		BgL_bgl_string2349za700za7za7_2534za7, "u16", 3);
	     
		DEFINE_EXPORT_BGL_PROCEDURE(BGl_listzd2ze3u32vectorzd2envze3zz__srfi4z00,
		BgL_bgl_za762listza7d2za7e3u322535za7,
		BGl_z62listzd2ze3u32vectorz53zz__srfi4z00, 0L, BUNSPEC, 1);
	      DEFINE_EXPORT_BGL_PROCEDURE(BGl_makezd2u32vectorzd2envz00zz__srfi4z00,
		BgL_bgl__makeza7d2u32vecto2536za7, opt_generic_entry,
		BGl__makezd2u32vectorzd2zz__srfi4z00, BFALSE, -1);
	      DEFINE_EXPORT_BGL_PROCEDURE(BGl_s8vectorzd2setz12zd2envz12zz__srfi4z00,
		BgL_bgl_za762s8vectorza7d2se2537z00,
		BGl_z62s8vectorzd2setz12za2zz__srfi4z00, 0L, BUNSPEC, 3);
	      DEFINE_EXPORT_BGL_PROCEDURE(BGl_u8vectorzd2setz12zd2envz12zz__srfi4z00,
		BgL_bgl_za762u8vectorza7d2se2538z00,
		BGl_z62u8vectorzd2setz12za2zz__srfi4z00, 0L, BUNSPEC, 3);
	      DEFINE_EXPORT_BGL_PROCEDURE(BGl_f64vectorzd2setz12zd2envz12zz__srfi4z00,
		BgL_bgl_za762f64vectorza7d2s2539z00,
		BGl_z62f64vectorzd2setz12za2zz__srfi4z00, 0L, BUNSPEC, 3);
	      DEFINE_EXPORT_BGL_PROCEDURE(BGl_s8vectorzd2refzd2envz00zz__srfi4z00,
		BgL_bgl_za762s8vectorza7d2re2540z00, BGl_z62s8vectorzd2refzb0zz__srfi4z00,
		0L, BUNSPEC, 2);
	      DEFINE_STRING(BGl_string2430z00zz__srfi4z00,
		BgL_bgl_string2430za700za7za7_2541za7, "&s8vector->list", 15);
	     
		DEFINE_EXPORT_BGL_PROCEDURE(BGl_listzd2ze3f64vectorzd2envze3zz__srfi4z00,
		BgL_bgl_za762listza7d2za7e3f642542za7,
		BGl_z62listzd2ze3f64vectorz53zz__srfi4z00, 0L, BUNSPEC, 1);
	      DEFINE_STRING(BGl_string2431z00zz__srfi4z00,
		BgL_bgl_string2431za700za7za7_2543za7, "&u8vector->list", 15);
	      DEFINE_STRING(BGl_string2432z00zz__srfi4z00,
		BgL_bgl_string2432za700za7za7_2544za7, "&s16vector->list", 16);
	      DEFINE_STRING(BGl_string2351z00zz__srfi4z00,
		BgL_bgl_string2351za700za7za7_2545za7, "s32", 3);
	      DEFINE_STRING(BGl_string2433z00zz__srfi4z00,
		BgL_bgl_string2433za700za7za7_2546za7, "&u16vector->list", 16);
	      DEFINE_STRING(BGl_string2434z00zz__srfi4z00,
		BgL_bgl_string2434za700za7za7_2547za7, "&s32vector->list", 16);
	      DEFINE_STRING(BGl_string2353z00zz__srfi4z00,
		BgL_bgl_string2353za700za7za7_2548za7, "u32", 3);
	      DEFINE_EXPORT_BGL_PROCEDURE(BGl_makezd2f64vectorzd2envz00zz__srfi4z00,
		BgL_bgl__makeza7d2f64vecto2549za7, opt_generic_entry,
		BGl__makezd2f64vectorzd2zz__srfi4z00, BFALSE, -1);
	      DEFINE_STRING(BGl_string2435z00zz__srfi4z00,
		BgL_bgl_string2435za700za7za7_2550za7, "&u32vector->list", 16);
	      DEFINE_STRING(BGl_string2436z00zz__srfi4z00,
		BgL_bgl_string2436za700za7za7_2551za7, "&s64vector->list", 16);
	      DEFINE_STRING(BGl_string2355z00zz__srfi4z00,
		BgL_bgl_string2355za700za7za7_2552za7, "s64", 3);
	      DEFINE_STRING(BGl_string2437z00zz__srfi4z00,
		BgL_bgl_string2437za700za7za7_2553za7, "&u64vector->list", 16);
	      DEFINE_STRING(BGl_string2438z00zz__srfi4z00,
		BgL_bgl_string2438za700za7za7_2554za7, "&f32vector->list", 16);
	      DEFINE_STRING(BGl_string2357z00zz__srfi4z00,
		BgL_bgl_string2357za700za7za7_2555za7, "u64", 3);
	      DEFINE_STRING(BGl_string2439z00zz__srfi4z00,
		BgL_bgl_string2439za700za7za7_2556za7, "&f64vector->list", 16);
	      DEFINE_STRING(BGl_string2359z00zz__srfi4z00,
		BgL_bgl_string2359za700za7za7_2557za7, "f32", 3);
	extern obj_t BGl_zd3s32zd2envz01zz__r4_numbers_6_5_fixnumz00;
	   
		 
		DEFINE_EXPORT_BGL_PROCEDURE(BGl_u16vectorzd2ze3listzd2envze3zz__srfi4z00,
		BgL_bgl_za762u16vectorza7d2za72558za7,
		BGl_z62u16vectorzd2ze3listz53zz__srfi4z00, 0L, BUNSPEC, 1);
	      DEFINE_EXPORT_BGL_PROCEDURE(BGl_u32vectorzd2lengthzd2envz00zz__srfi4z00,
		BgL_bgl_za762u32vectorza7d2l2559z00,
		BGl_z62u32vectorzd2lengthzb0zz__srfi4z00, 0L, BUNSPEC, 1);
	      DEFINE_EXPORT_BGL_PROCEDURE(BGl_s8vectorzd2envzd2zz__srfi4z00,
		BgL_bgl_za762s8vectorza762za7za72560z00, va_generic_entry,
		BGl_z62s8vectorz62zz__srfi4z00, BUNSPEC, -1);
	      DEFINE_EXPORT_BGL_PROCEDURE(BGl_u16vectorzd2lengthzd2envz00zz__srfi4z00,
		BgL_bgl_za762u16vectorza7d2l2561z00,
		BGl_z62u16vectorzd2lengthzb0zz__srfi4z00, 0L, BUNSPEC, 1);
	      DEFINE_EXPORT_BGL_PROCEDURE(BGl_u32vectorzd2setz12zd2envz12zz__srfi4z00,
		BgL_bgl_za762u32vectorza7d2s2562z00,
		BGl_z62u32vectorzd2setz12za2zz__srfi4z00, 0L, BUNSPEC, 3);
	      DEFINE_STRING(BGl_string2440z00zz__srfi4z00,
		BgL_bgl_string2440za700za7za7_2563za7, "&list->s8vector", 15);
	      DEFINE_STRING(BGl_string2441z00zz__srfi4z00,
		BgL_bgl_string2441za700za7za7_2564za7, "pair-nil", 8);
	      DEFINE_EXPORT_BGL_PROCEDURE(BGl_s16vectorzf3zd2envz21zz__srfi4z00,
		BgL_bgl_za762s16vectorza7f3za72565za7, BGl_z62s16vectorzf3z91zz__srfi4z00,
		0L, BUNSPEC, 1);
	      DEFINE_STRING(BGl_string2442z00zz__srfi4z00,
		BgL_bgl_string2442za700za7za7_2566za7, "&list->u8vector", 15);
	      DEFINE_STRING(BGl_string2361z00zz__srfi4z00,
		BgL_bgl_string2361za700za7za7_2567za7, "f64", 3);
	      DEFINE_EXPORT_BGL_PROCEDURE(BGl_s16vectorzd2envzd2zz__srfi4z00,
		BgL_bgl_za762s16vectorza762za72568za7, va_generic_entry,
		BGl_z62s16vectorz62zz__srfi4z00, BUNSPEC, -1);
	      DEFINE_EXPORT_BGL_PROCEDURE(BGl_s8vectorzd2lengthzd2envz00zz__srfi4z00,
		BgL_bgl_za762s8vectorza7d2le2569z00,
		BGl_z62s8vectorzd2lengthzb0zz__srfi4z00, 0L, BUNSPEC, 1);
	      DEFINE_STRING(BGl_string2443z00zz__srfi4z00,
		BgL_bgl_string2443za700za7za7_2570za7, "&list->s16vector", 16);
	      DEFINE_STRING(BGl_string2362z00zz__srfi4z00,
		BgL_bgl_string2362za700za7za7_2571za7, "homogeneous-vector-info", 23);
	      DEFINE_STRING(BGl_string2444z00zz__srfi4z00,
		BgL_bgl_string2444za700za7za7_2572za7, "&list->u16vector", 16);
	      DEFINE_STRING(BGl_string2363z00zz__srfi4z00,
		BgL_bgl_string2363za700za7za7_2573za7, "Illegal hvector ident", 21);
	      DEFINE_STRING(BGl_string2445z00zz__srfi4z00,
		BgL_bgl_string2445za700za7za7_2574za7, "&list->s32vector", 16);
	      DEFINE_STRING(BGl_string2364z00zz__srfi4z00,
		BgL_bgl_string2364za700za7za7_2575za7, "hvector", 7);
	      DEFINE_STRING(BGl_string2446z00zz__srfi4z00,
		BgL_bgl_string2446za700za7za7_2576za7, "&list->u32vector", 16);
	      DEFINE_STRING(BGl_string2365z00zz__srfi4z00,
		BgL_bgl_string2365za700za7za7_2577za7, "/tmp/bigloo/runtime/Llib/srfi4.scm",
		34);
	      DEFINE_EXPORT_BGL_PROCEDURE(BGl_u64vectorzf3zd2envz21zz__srfi4z00,
		BgL_bgl_za762u64vectorza7f3za72578za7, BGl_z62u64vectorzf3z91zz__srfi4z00,
		0L, BUNSPEC, 1);
	      DEFINE_STRING(BGl_string2447z00zz__srfi4z00,
		BgL_bgl_string2447za700za7za7_2579za7, "&list->s64vector", 16);
	      DEFINE_STRING(BGl_string2366z00zz__srfi4z00,
		BgL_bgl_string2366za700za7za7_2580za7, "&s8vector-length", 16);
	      DEFINE_STRING(BGl_string2448z00zz__srfi4z00,
		BgL_bgl_string2448za700za7za7_2581za7, "&list->u64vector", 16);
	      DEFINE_STRING(BGl_string2367z00zz__srfi4z00,
		BgL_bgl_string2367za700za7za7_2582za7, "s8vector", 8);
	      DEFINE_STRING(BGl_string2449z00zz__srfi4z00,
		BgL_bgl_string2449za700za7za7_2583za7, "&list->f32vector", 16);
	      DEFINE_STRING(BGl_string2368z00zz__srfi4z00,
		BgL_bgl_string2368za700za7za7_2584za7, "&u8vector-length", 16);
	      DEFINE_STRING(BGl_string2369z00zz__srfi4z00,
		BgL_bgl_string2369za700za7za7_2585za7, "u8vector", 8);
	     
		DEFINE_EXPORT_BGL_PROCEDURE(BGl_listzd2ze3u16vectorzd2envze3zz__srfi4z00,
		BgL_bgl_za762listza7d2za7e3u162586za7,
		BGl_z62listzd2ze3u16vectorz53zz__srfi4z00, 0L, BUNSPEC, 1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE(BGl_s64vectorzd2ze3listzd2envze3zz__srfi4z00,
		BgL_bgl_za762s64vectorza7d2za72587za7,
		BGl_z62s64vectorzd2ze3listz53zz__srfi4z00, 0L, BUNSPEC, 1);
	      DEFINE_EXPORT_BGL_PROCEDURE(BGl_f32vectorzd2setz12zd2envz12zz__srfi4z00,
		BgL_bgl_za762f32vectorza7d2s2588z00,
		BGl_z62f32vectorzd2setz12za2zz__srfi4z00, 0L, BUNSPEC, 3);
	      DEFINE_EXPORT_BGL_PROCEDURE(BGl_makezd2u16vectorzd2envz00zz__srfi4z00,
		BgL_bgl__makeza7d2u16vecto2589za7, opt_generic_entry,
		BGl__makezd2u16vectorzd2zz__srfi4z00, BFALSE, -1);
	      DEFINE_EXPORT_BGL_PROCEDURE(BGl_s8vectorzf3zd2envz21zz__srfi4z00,
		BgL_bgl_za762s8vectorza7f3za792590za7, BGl_z62s8vectorzf3z91zz__srfi4z00,
		0L, BUNSPEC, 1);
	      DEFINE_EXPORT_BGL_PROCEDURE(BGl_listzd2ze3s8vectorzd2envze3zz__srfi4z00,
		BgL_bgl_za762listza7d2za7e3s8v2591za7,
		BGl_z62listzd2ze3s8vectorz53zz__srfi4z00, 0L, BUNSPEC, 1);
	      DEFINE_EXPORT_BGL_PROCEDURE(BGl_s8vectorzd2ze3listzd2envze3zz__srfi4z00,
		BgL_bgl_za762s8vectorza7d2za7e2592za7,
		BGl_z62s8vectorzd2ze3listz53zz__srfi4z00, 0L, BUNSPEC, 1);
	      DEFINE_EXPORT_BGL_PROCEDURE(BGl_f32vectorzd2refzd2envz00zz__srfi4z00,
		BgL_bgl_za762f32vectorza7d2r2593z00, BGl_z62f32vectorzd2refzb0zz__srfi4z00,
		0L, BUNSPEC, 2);
	      DEFINE_STRING(BGl_string2450z00zz__srfi4z00,
		BgL_bgl_string2450za700za7za7_2594za7, "&list->f64vector", 16);
	      DEFINE_STRING(BGl_string2451z00zz__srfi4z00,
		BgL_bgl_string2451za700za7za7_2595za7, "_s8vector-copy!", 15);
	      DEFINE_STRING(BGl_string2370z00zz__srfi4z00,
		BgL_bgl_string2370za700za7za7_2596za7, "&s16vector-length", 17);
	      DEFINE_STRING(BGl_string2452z00zz__srfi4z00,
		BgL_bgl_string2452za700za7za7_2597za7, "_u8vector-copy!", 15);
	      DEFINE_STRING(BGl_string2371z00zz__srfi4z00,
		BgL_bgl_string2371za700za7za7_2598za7, "s16vector", 9);
	      DEFINE_STRING(BGl_string2453z00zz__srfi4z00,
		BgL_bgl_string2453za700za7za7_2599za7, "_s16vector-copy!", 16);
	      DEFINE_STRING(BGl_string2372z00zz__srfi4z00,
		BgL_bgl_string2372za700za7za7_2600za7, "&u16vector-length", 17);
	      DEFINE_STRING(BGl_string2454z00zz__srfi4z00,
		BgL_bgl_string2454za700za7za7_2601za7, "_u16vector-copy!", 16);
	      DEFINE_STRING(BGl_string2373z00zz__srfi4z00,
		BgL_bgl_string2373za700za7za7_2602za7, "u16vector", 9);
	      DEFINE_STRING(BGl_string2455z00zz__srfi4z00,
		BgL_bgl_string2455za700za7za7_2603za7, "_s32vector-copy!", 16);
	      DEFINE_STRING(BGl_string2374z00zz__srfi4z00,
		BgL_bgl_string2374za700za7za7_2604za7, "&s32vector-length", 17);
	      DEFINE_STRING(BGl_string2456z00zz__srfi4z00,
		BgL_bgl_string2456za700za7za7_2605za7, "_u32vector-copy!", 16);
	      DEFINE_STRING(BGl_string2375z00zz__srfi4z00,
		BgL_bgl_string2375za700za7za7_2606za7, "s32vector", 9);
	      DEFINE_STRING(BGl_string2457z00zz__srfi4z00,
		BgL_bgl_string2457za700za7za7_2607za7, "_s64vector-copy!", 16);
	      DEFINE_STRING(BGl_string2376z00zz__srfi4z00,
		BgL_bgl_string2376za700za7za7_2608za7, "&u32vector-length", 17);
	      DEFINE_STRING(BGl_string2458z00zz__srfi4z00,
		BgL_bgl_string2458za700za7za7_2609za7, "_u64vector-copy!", 16);
	      DEFINE_STRING(BGl_string2377z00zz__srfi4z00,
		BgL_bgl_string2377za700za7za7_2610za7, "u32vector", 9);
	     
		DEFINE_EXPORT_BGL_PROCEDURE(BGl_u32vectorzd2ze3listzd2envze3zz__srfi4z00,
		BgL_bgl_za762u32vectorza7d2za72611za7,
		BGl_z62u32vectorzd2ze3listz53zz__srfi4z00, 0L, BUNSPEC, 1);
	      DEFINE_STRING(BGl_string2459z00zz__srfi4z00,
		BgL_bgl_string2459za700za7za7_2612za7, "_f32vector-copy!", 16);
	      DEFINE_STRING(BGl_string2378z00zz__srfi4z00,
		BgL_bgl_string2378za700za7za7_2613za7, "&s64vector-length", 17);
	      DEFINE_EXPORT_BGL_PROCEDURE(BGl_s32vectorzd2refzd2envz00zz__srfi4z00,
		BgL_bgl_za762s32vectorza7d2r2614z00, BGl_z62s32vectorzd2refzb0zz__srfi4z00,
		0L, BUNSPEC, 2);
	      DEFINE_STRING(BGl_string2379z00zz__srfi4z00,
		BgL_bgl_string2379za700za7za7_2615za7, "s64vector", 9);
	      DEFINE_EXPORT_BGL_PROCEDURE(BGl_u32vectorzd2refzd2envz00zz__srfi4z00,
		BgL_bgl_za762u32vectorza7d2r2616z00, BGl_z62u32vectorzd2refzb0zz__srfi4z00,
		0L, BUNSPEC, 2);
	extern obj_t BGl_zd3u16zd2envz01zz__r4_numbers_6_5_fixnumz00;
	   
		 
		DEFINE_EXPORT_BGL_PROCEDURE(BGl_f32vectorzd2envzd2zz__srfi4z00,
		BgL_bgl_za762f32vectorza762za72617za7, va_generic_entry,
		BGl_z62f32vectorz62zz__srfi4z00, BUNSPEC, -1);
	      DEFINE_EXPORT_BGL_PROCEDURE(BGl_s64vectorzd2lengthzd2envz00zz__srfi4z00,
		BgL_bgl_za762s64vectorza7d2l2618z00,
		BGl_z62s64vectorzd2lengthzb0zz__srfi4z00, 0L, BUNSPEC, 1);
	extern obj_t BGl_zd3s8zd2envz01zz__r4_numbers_6_5_fixnumz00;
	   
		 
		DEFINE_STRING(BGl_string2460z00zz__srfi4z00,
		BgL_bgl_string2460za700za7za7_2619za7, "_f64vector-copy!", 16);
	      DEFINE_EXPORT_BGL_PROCEDURE(BGl_f32vectorzd2lengthzd2envz00zz__srfi4z00,
		BgL_bgl_za762f32vectorza7d2l2620z00,
		BGl_z62f32vectorzd2lengthzb0zz__srfi4z00, 0L, BUNSPEC, 1);
	      DEFINE_STRING(BGl_string2461z00zz__srfi4z00,
		BgL_bgl_string2461za700za7za7_2621za7, "__srfi4", 7);
	      DEFINE_STRING(BGl_string2380z00zz__srfi4z00,
		BgL_bgl_string2380za700za7za7_2622za7, "&u64vector-length", 17);
	      DEFINE_STRING(BGl_string2381z00zz__srfi4z00,
		BgL_bgl_string2381za700za7za7_2623za7, "u64vector", 9);
	extern obj_t BGl_zd3flzd2envz01zz__r4_numbers_6_5_flonumz00;
	   
		 
		DEFINE_STRING(BGl_string2382z00zz__srfi4z00,
		BgL_bgl_string2382za700za7za7_2624za7, "&f32vector-length", 17);
	      DEFINE_STRING(BGl_string2383z00zz__srfi4z00,
		BgL_bgl_string2383za700za7za7_2625za7, "f32vector", 9);
	      DEFINE_STRING(BGl_string2384z00zz__srfi4z00,
		BgL_bgl_string2384za700za7za7_2626za7, "&f64vector-length", 17);
	      DEFINE_STRING(BGl_string2385z00zz__srfi4z00,
		BgL_bgl_string2385za700za7za7_2627za7, "f64vector", 9);
	      DEFINE_STRING(BGl_string2386z00zz__srfi4z00,
		BgL_bgl_string2386za700za7za7_2628za7, "_make-s8vector", 14);
	      DEFINE_STRING(BGl_string2387z00zz__srfi4z00,
		BgL_bgl_string2387za700za7za7_2629za7, "bint", 4);
	      DEFINE_STRING(BGl_string2388z00zz__srfi4z00,
		BgL_bgl_string2388za700za7za7_2630za7, "bint8", 5);
	      DEFINE_STRING(BGl_string2389z00zz__srfi4z00,
		BgL_bgl_string2389za700za7za7_2631za7, "_make-u8vector", 14);
	extern obj_t BGl_zd3u64zd2envz01zz__r4_numbers_6_5_fixnumz00;
	   
		 
		DEFINE_EXPORT_BGL_PROCEDURE(BGl_f32vectorzf3zd2envz21zz__srfi4z00,
		BgL_bgl_za762f32vectorza7f3za72632za7, BGl_z62f32vectorzf3z91zz__srfi4z00,
		0L, BUNSPEC, 1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE(BGl_f32vectorzd2ze3listzd2envze3zz__srfi4z00,
		BgL_bgl_za762f32vectorza7d2za72633za7,
		BGl_z62f32vectorzd2ze3listz53zz__srfi4z00, 0L, BUNSPEC, 1);
	      DEFINE_EXPORT_BGL_PROCEDURE(BGl_u8vectorzd2ze3listzd2envze3zz__srfi4z00,
		BgL_bgl_za762u8vectorza7d2za7e2634za7,
		BGl_z62u8vectorzd2ze3listz53zz__srfi4z00, 0L, BUNSPEC, 1);
	      DEFINE_EXPORT_BGL_PROCEDURE(BGl_makezd2u8vectorzd2envz00zz__srfi4z00,
		BgL_bgl__makeza7d2u8vector2635za7, opt_generic_entry,
		BGl__makezd2u8vectorzd2zz__srfi4z00, BFALSE, -1);
	      DEFINE_STRING(BGl_string2390z00zz__srfi4z00,
		BgL_bgl_string2390za700za7za7_2636za7, "buint8", 6);
	      DEFINE_STRING(BGl_string2391z00zz__srfi4z00,
		BgL_bgl_string2391za700za7za7_2637za7, "_make-s16vector", 15);
	      DEFINE_EXPORT_BGL_PROCEDURE(BGl_s64vectorzd2envzd2zz__srfi4z00,
		BgL_bgl_za762s64vectorza762za72638za7, va_generic_entry,
		BGl_z62s64vectorz62zz__srfi4z00, BUNSPEC, -1);
	      DEFINE_STRING(BGl_string2392z00zz__srfi4z00,
		BgL_bgl_string2392za700za7za7_2639za7, "bint16", 6);
	      DEFINE_STRING(BGl_string2393z00zz__srfi4z00,
		BgL_bgl_string2393za700za7za7_2640za7, "_make-u16vector", 15);
	      DEFINE_STRING(BGl_string2394z00zz__srfi4z00,
		BgL_bgl_string2394za700za7za7_2641za7, "buint16", 7);
	      DEFINE_STRING(BGl_string2395z00zz__srfi4z00,
		BgL_bgl_string2395za700za7za7_2642za7, "_make-s32vector", 15);
	      DEFINE_STRING(BGl_string2396z00zz__srfi4z00,
		BgL_bgl_string2396za700za7za7_2643za7, "bint32", 6);
	      DEFINE_STRING(BGl_string2397z00zz__srfi4z00,
		BgL_bgl_string2397za700za7za7_2644za7, "_make-u32vector", 15);
	     
		DEFINE_EXPORT_BGL_PROCEDURE(BGl_s16vectorzd2copyz12zd2envz12zz__srfi4z00,
		BgL_bgl__s16vectorza7d2cop2645za7, opt_generic_entry,
		BGl__s16vectorzd2copyz12zc0zz__srfi4z00, BFALSE, -1);
	      DEFINE_STRING(BGl_string2398z00zz__srfi4z00,
		BgL_bgl_string2398za700za7za7_2646za7, "buint32", 7);
	      DEFINE_STRING(BGl_string2399z00zz__srfi4z00,
		BgL_bgl_string2399za700za7za7_2647za7, "_make-s64vector", 15);
	     
		DEFINE_EXPORT_BGL_PROCEDURE(BGl_listzd2ze3u64vectorzd2envze3zz__srfi4z00,
		BgL_bgl_za762listza7d2za7e3u642648za7,
		BGl_z62listzd2ze3u64vectorz53zz__srfi4z00, 0L, BUNSPEC, 1);
	      DEFINE_EXPORT_BGL_PROCEDURE(BGl_makezd2u64vectorzd2envz00zz__srfi4z00,
		BgL_bgl__makeza7d2u64vecto2649za7, opt_generic_entry,
		BGl__makezd2u64vectorzd2zz__srfi4z00, BFALSE, -1);
	      DEFINE_EXPORT_BGL_PROCEDURE(BGl_u8vectorzd2lengthzd2envz00zz__srfi4z00,
		BgL_bgl_za762u8vectorza7d2le2650z00,
		BGl_z62u8vectorzd2lengthzb0zz__srfi4z00, 0L, BUNSPEC, 1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE(BGl_u64vectorzd2ze3listzd2envze3zz__srfi4z00,
		BgL_bgl_za762u64vectorza7d2za72651za7,
		BGl_z62u64vectorzd2ze3listz53zz__srfi4z00, 0L, BUNSPEC, 1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE(BGl_s32vectorzd2copyz12zd2envz12zz__srfi4z00,
		BgL_bgl__s32vectorza7d2cop2652za7, opt_generic_entry,
		BGl__s32vectorzd2copyz12zc0zz__srfi4z00, BFALSE, -1);
	extern obj_t BGl_zd3s16zd2envz01zz__r4_numbers_6_5_fixnumz00;
	   
		 
		DEFINE_EXPORT_BGL_PROCEDURE(BGl_u8vectorzd2envzd2zz__srfi4z00,
		BgL_bgl_za762u8vectorza762za7za72653z00, va_generic_entry,
		BGl_z62u8vectorz62zz__srfi4z00, BUNSPEC, -1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_homogeneouszd2vectorzd2infozd2envzd2zz__srfi4z00,
		BgL_bgl_za762homogeneousza7d2654z00,
		BGl_z62homogeneouszd2vectorzd2infoz62zz__srfi4z00, 0L, BUNSPEC, 1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE(BGl_f64vectorzd2ze3listzd2envze3zz__srfi4z00,
		BgL_bgl_za762f64vectorza7d2za72655za7,
		BGl_z62f64vectorzd2ze3listz53zz__srfi4z00, 0L, BUNSPEC, 1);
	      DEFINE_EXPORT_BGL_PROCEDURE(BGl_u32vectorzf3zd2envz21zz__srfi4z00,
		BgL_bgl_za762u32vectorza7f3za72656za7, BGl_z62u32vectorzf3z91zz__srfi4z00,
		0L, BUNSPEC, 1);
	      DEFINE_EXPORT_BGL_PROCEDURE(BGl_u32vectorzd2envzd2zz__srfi4z00,
		BgL_bgl_za762u32vectorza762za72657za7, va_generic_entry,
		BGl_z62u32vectorz62zz__srfi4z00, BUNSPEC, -1);
	      DEFINE_EXPORT_BGL_PROCEDURE(BGl_s64vectorzf3zd2envz21zz__srfi4z00,
		BgL_bgl_za762s64vectorza7f3za72658za7, BGl_z62s64vectorzf3z91zz__srfi4z00,
		0L, BUNSPEC, 1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE(BGl_listzd2ze3s32vectorzd2envze3zz__srfi4z00,
		BgL_bgl_za762listza7d2za7e3s322659za7,
		BGl_z62listzd2ze3s32vectorz53zz__srfi4z00, 0L, BUNSPEC, 1);
	      DEFINE_EXPORT_BGL_PROCEDURE(BGl_makezd2s32vectorzd2envz00zz__srfi4z00,
		BgL_bgl__makeza7d2s32vecto2660za7, opt_generic_entry,
		BGl__makezd2s32vectorzd2zz__srfi4z00, BFALSE, -1);
	extern obj_t BGl_zd3s64zd2envz01zz__r4_numbers_6_5_fixnumz00;
	   
		 
		DEFINE_EXPORT_BGL_PROCEDURE(BGl_f64vectorzd2envzd2zz__srfi4z00,
		BgL_bgl_za762f64vectorza762za72661za7, va_generic_entry,
		BGl_z62f64vectorz62zz__srfi4z00, BUNSPEC, -1);
	      DEFINE_EXPORT_BGL_PROCEDURE(BGl_listzd2ze3u8vectorzd2envze3zz__srfi4z00,
		BgL_bgl_za762listza7d2za7e3u8v2662za7,
		BGl_z62listzd2ze3u8vectorz53zz__srfi4z00, 0L, BUNSPEC, 1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE(BGl_u16vectorzd2copyz12zd2envz12zz__srfi4z00,
		BgL_bgl__u16vectorza7d2cop2663za7, opt_generic_entry,
		BGl__u16vectorzd2copyz12zc0zz__srfi4z00, BFALSE, -1);
	      DEFINE_EXPORT_BGL_PROCEDURE(BGl_u64vectorzd2lengthzd2envz00zz__srfi4z00,
		BgL_bgl_za762u64vectorza7d2l2664z00,
		BGl_z62u64vectorzd2lengthzb0zz__srfi4z00, 0L, BUNSPEC, 1);

/* 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_requirezd2initializa7ationz75zz__srfi4z00));
		     ADD_ROOT((void *) (&BGl_symbol2342z00zz__srfi4z00));
		     ADD_ROOT((void *) (&BGl_symbol2344z00zz__srfi4z00));
		     ADD_ROOT((void *) (&BGl_symbol2346z00zz__srfi4z00));
		     ADD_ROOT((void *) (&BGl_symbol2348z00zz__srfi4z00));
		     ADD_ROOT((void *) (&BGl_symbol2350z00zz__srfi4z00));
		     ADD_ROOT((void *) (&BGl_symbol2352z00zz__srfi4z00));
		     ADD_ROOT((void *) (&BGl_symbol2354z00zz__srfi4z00));
		     ADD_ROOT((void *) (&BGl_symbol2356z00zz__srfi4z00));
		     ADD_ROOT((void *) (&BGl_symbol2358z00zz__srfi4z00));
		     ADD_ROOT((void *) (&BGl_symbol2360z00zz__srfi4z00));
#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__srfi4z00(long
		BgL_checksumz00_3866, char *BgL_fromz00_3867)
	{
		{
			if (CBOOL(BGl_requirezd2initializa7ationz75zz__srfi4z00))
				{
					BGl_requirezd2initializa7ationz75zz__srfi4z00 = BBOOL(((bool_t) 0));
					BGl_gczd2rootszd2initz00zz__srfi4z00();
					BGl_cnstzd2initzd2zz__srfi4z00();
					BGl_importedzd2moduleszd2initz00zz__srfi4z00();
					return BGl_methodzd2initzd2zz__srfi4z00();
				}
			else
				{
					return BUNSPEC;
				}
		}

	}



/* cnst-init */
	obj_t BGl_cnstzd2initzd2zz__srfi4z00(void)
	{
		{	/* Llib/srfi4.scm 15 */
			BGl_symbol2342z00zz__srfi4z00 =
				bstring_to_symbol(BGl_string2343z00zz__srfi4z00);
			BGl_symbol2344z00zz__srfi4z00 =
				bstring_to_symbol(BGl_string2345z00zz__srfi4z00);
			BGl_symbol2346z00zz__srfi4z00 =
				bstring_to_symbol(BGl_string2347z00zz__srfi4z00);
			BGl_symbol2348z00zz__srfi4z00 =
				bstring_to_symbol(BGl_string2349z00zz__srfi4z00);
			BGl_symbol2350z00zz__srfi4z00 =
				bstring_to_symbol(BGl_string2351z00zz__srfi4z00);
			BGl_symbol2352z00zz__srfi4z00 =
				bstring_to_symbol(BGl_string2353z00zz__srfi4z00);
			BGl_symbol2354z00zz__srfi4z00 =
				bstring_to_symbol(BGl_string2355z00zz__srfi4z00);
			BGl_symbol2356z00zz__srfi4z00 =
				bstring_to_symbol(BGl_string2357z00zz__srfi4z00);
			BGl_symbol2358z00zz__srfi4z00 =
				bstring_to_symbol(BGl_string2359z00zz__srfi4z00);
			return (BGl_symbol2360z00zz__srfi4z00 =
				bstring_to_symbol(BGl_string2361z00zz__srfi4z00), BUNSPEC);
		}

	}



/* gc-roots-init */
	obj_t BGl_gczd2rootszd2initz00zz__srfi4z00(void)
	{
		{	/* Llib/srfi4.scm 15 */
			return bgl_gc_roots_register();
		}

	}



/* homogeneous-vector? */
	BGL_EXPORTED_DEF obj_t BGl_homogeneouszd2vectorzf3z21zz__srfi4z00(obj_t
		BgL_xz00_3)
	{
		{	/* Llib/srfi4.scm 569 */
			return BBOOL(BGL_HVECTORP(BgL_xz00_3));
		}

	}



/* &homogeneous-vector? */
	obj_t BGl_z62homogeneouszd2vectorzf3z43zz__srfi4z00(obj_t BgL_envz00_3208,
		obj_t BgL_xz00_3209)
	{
		{	/* Llib/srfi4.scm 569 */
			return BGl_homogeneouszd2vectorzf3z21zz__srfi4z00(BgL_xz00_3209);
		}

	}



/* s8vector? */
	BGL_EXPORTED_DEF bool_t BGl_s8vectorzf3zf3zz__srfi4z00(obj_t BgL_xz00_4)
	{
		{	/* Llib/srfi4.scm 570 */
			return BGL_S8VECTORP(BgL_xz00_4);
		}

	}



/* &s8vector? */
	obj_t BGl_z62s8vectorzf3z91zz__srfi4z00(obj_t BgL_envz00_3210,
		obj_t BgL_xz00_3211)
	{
		{	/* Llib/srfi4.scm 570 */
			return BBOOL(BGl_s8vectorzf3zf3zz__srfi4z00(BgL_xz00_3211));
		}

	}



/* u8vector? */
	BGL_EXPORTED_DEF bool_t BGl_u8vectorzf3zf3zz__srfi4z00(obj_t BgL_xz00_5)
	{
		{	/* Llib/srfi4.scm 571 */
			return BGL_U8VECTORP(BgL_xz00_5);
		}

	}



/* &u8vector? */
	obj_t BGl_z62u8vectorzf3z91zz__srfi4z00(obj_t BgL_envz00_3212,
		obj_t BgL_xz00_3213)
	{
		{	/* Llib/srfi4.scm 571 */
			return BBOOL(BGl_u8vectorzf3zf3zz__srfi4z00(BgL_xz00_3213));
		}

	}



/* s16vector? */
	BGL_EXPORTED_DEF bool_t BGl_s16vectorzf3zf3zz__srfi4z00(obj_t BgL_xz00_6)
	{
		{	/* Llib/srfi4.scm 572 */
			return BGL_S16VECTORP(BgL_xz00_6);
		}

	}



/* &s16vector? */
	obj_t BGl_z62s16vectorzf3z91zz__srfi4z00(obj_t BgL_envz00_3214,
		obj_t BgL_xz00_3215)
	{
		{	/* Llib/srfi4.scm 572 */
			return BBOOL(BGl_s16vectorzf3zf3zz__srfi4z00(BgL_xz00_3215));
		}

	}



/* u16vector? */
	BGL_EXPORTED_DEF bool_t BGl_u16vectorzf3zf3zz__srfi4z00(obj_t BgL_xz00_7)
	{
		{	/* Llib/srfi4.scm 573 */
			return BGL_U16VECTORP(BgL_xz00_7);
		}

	}



/* &u16vector? */
	obj_t BGl_z62u16vectorzf3z91zz__srfi4z00(obj_t BgL_envz00_3216,
		obj_t BgL_xz00_3217)
	{
		{	/* Llib/srfi4.scm 573 */
			return BBOOL(BGl_u16vectorzf3zf3zz__srfi4z00(BgL_xz00_3217));
		}

	}



/* s32vector? */
	BGL_EXPORTED_DEF bool_t BGl_s32vectorzf3zf3zz__srfi4z00(obj_t BgL_xz00_8)
	{
		{	/* Llib/srfi4.scm 574 */
			return BGL_S32VECTORP(BgL_xz00_8);
		}

	}



/* &s32vector? */
	obj_t BGl_z62s32vectorzf3z91zz__srfi4z00(obj_t BgL_envz00_3218,
		obj_t BgL_xz00_3219)
	{
		{	/* Llib/srfi4.scm 574 */
			return BBOOL(BGl_s32vectorzf3zf3zz__srfi4z00(BgL_xz00_3219));
		}

	}



/* u32vector? */
	BGL_EXPORTED_DEF bool_t BGl_u32vectorzf3zf3zz__srfi4z00(obj_t BgL_xz00_9)
	{
		{	/* Llib/srfi4.scm 575 */
			return BGL_U32VECTORP(BgL_xz00_9);
		}

	}



/* &u32vector? */
	obj_t BGl_z62u32vectorzf3z91zz__srfi4z00(obj_t BgL_envz00_3220,
		obj_t BgL_xz00_3221)
	{
		{	/* Llib/srfi4.scm 575 */
			return BBOOL(BGl_u32vectorzf3zf3zz__srfi4z00(BgL_xz00_3221));
		}

	}



/* s64vector? */
	BGL_EXPORTED_DEF bool_t BGl_s64vectorzf3zf3zz__srfi4z00(obj_t BgL_xz00_10)
	{
		{	/* Llib/srfi4.scm 576 */
			return BGL_S64VECTORP(BgL_xz00_10);
		}

	}



/* &s64vector? */
	obj_t BGl_z62s64vectorzf3z91zz__srfi4z00(obj_t BgL_envz00_3222,
		obj_t BgL_xz00_3223)
	{
		{	/* Llib/srfi4.scm 576 */
			return BBOOL(BGl_s64vectorzf3zf3zz__srfi4z00(BgL_xz00_3223));
		}

	}



/* u64vector? */
	BGL_EXPORTED_DEF bool_t BGl_u64vectorzf3zf3zz__srfi4z00(obj_t BgL_xz00_11)
	{
		{	/* Llib/srfi4.scm 577 */
			return BGL_U64VECTORP(BgL_xz00_11);
		}

	}



/* &u64vector? */
	obj_t BGl_z62u64vectorzf3z91zz__srfi4z00(obj_t BgL_envz00_3224,
		obj_t BgL_xz00_3225)
	{
		{	/* Llib/srfi4.scm 577 */
			return BBOOL(BGl_u64vectorzf3zf3zz__srfi4z00(BgL_xz00_3225));
		}

	}



/* f32vector? */
	BGL_EXPORTED_DEF bool_t BGl_f32vectorzf3zf3zz__srfi4z00(obj_t BgL_xz00_12)
	{
		{	/* Llib/srfi4.scm 578 */
			return BGL_F32VECTORP(BgL_xz00_12);
		}

	}



/* &f32vector? */
	obj_t BGl_z62f32vectorzf3z91zz__srfi4z00(obj_t BgL_envz00_3226,
		obj_t BgL_xz00_3227)
	{
		{	/* Llib/srfi4.scm 578 */
			return BBOOL(BGl_f32vectorzf3zf3zz__srfi4z00(BgL_xz00_3227));
		}

	}



/* f64vector? */
	BGL_EXPORTED_DEF bool_t BGl_f64vectorzf3zf3zz__srfi4z00(obj_t BgL_xz00_13)
	{
		{	/* Llib/srfi4.scm 579 */
			return BGL_F64VECTORP(BgL_xz00_13);
		}

	}



/* &f64vector? */
	obj_t BGl_z62f64vectorzf3z91zz__srfi4z00(obj_t BgL_envz00_3228,
		obj_t BgL_xz00_3229)
	{
		{	/* Llib/srfi4.scm 579 */
			return BBOOL(BGl_f64vectorzf3zf3zz__srfi4z00(BgL_xz00_3229));
		}

	}



/* homogeneous-vector-info */
	BGL_EXPORTED_DEF obj_t BGl_homogeneouszd2vectorzd2infoz00zz__srfi4z00(obj_t
		BgL_oz00_14)
	{
		{	/* Llib/srfi4.scm 584 */
			if (BGL_HVECTORP(BgL_oz00_14))
				{	/* Llib/srfi4.scm 586 */
					int BgL_aux1043z00_1341;

					BgL_aux1043z00_1341 = BGL_HVECTOR_IDENT(BgL_oz00_14);
					switch ((long) (BgL_aux1043z00_1341))
						{
						case 0L:

							{	/* Llib/srfi4.scm 590 */
								obj_t BgL_val0_1145z00_1342;

								BgL_val0_1145z00_1342 = BGl_symbol2342z00zz__srfi4z00;
								{	/* Llib/srfi4.scm 590 */
									int BgL_tmpz00_3922;

									BgL_tmpz00_3922 = (int) (5L);
									BGL_MVALUES_NUMBER_SET(BgL_tmpz00_3922);
								}
								{	/* Llib/srfi4.scm 590 */
									obj_t BgL_auxz00_3927;
									int BgL_tmpz00_3925;

									BgL_auxz00_3927 = BINT(1L);
									BgL_tmpz00_3925 = (int) (1L);
									BGL_MVALUES_VAL_SET(BgL_tmpz00_3925, BgL_auxz00_3927);
								}
								{	/* Llib/srfi4.scm 590 */
									int BgL_tmpz00_3930;

									BgL_tmpz00_3930 = (int) (2L);
									BGL_MVALUES_VAL_SET(BgL_tmpz00_3930,
										BGl_s8vectorzd2refzd2envz00zz__srfi4z00);
								}
								{	/* Llib/srfi4.scm 590 */
									int BgL_tmpz00_3933;

									BgL_tmpz00_3933 = (int) (3L);
									BGL_MVALUES_VAL_SET(BgL_tmpz00_3933,
										BGl_s8vectorzd2setz12zd2envz12zz__srfi4z00);
								}
								{	/* Llib/srfi4.scm 590 */
									int BgL_tmpz00_3936;

									BgL_tmpz00_3936 = (int) (4L);
									BGL_MVALUES_VAL_SET(BgL_tmpz00_3936,
										BGl_zd3s8zd2envz01zz__r4_numbers_6_5_fixnumz00);
								}
								return BgL_val0_1145z00_1342;
							}
							break;
						case 1L:

							{	/* Llib/srfi4.scm 592 */
								obj_t BgL_val0_1150z00_1347;

								BgL_val0_1150z00_1347 = BGl_symbol2344z00zz__srfi4z00;
								{	/* Llib/srfi4.scm 592 */
									int BgL_tmpz00_3939;

									BgL_tmpz00_3939 = (int) (5L);
									BGL_MVALUES_NUMBER_SET(BgL_tmpz00_3939);
								}
								{	/* Llib/srfi4.scm 592 */
									obj_t BgL_auxz00_3944;
									int BgL_tmpz00_3942;

									BgL_auxz00_3944 = BINT(1L);
									BgL_tmpz00_3942 = (int) (1L);
									BGL_MVALUES_VAL_SET(BgL_tmpz00_3942, BgL_auxz00_3944);
								}
								{	/* Llib/srfi4.scm 592 */
									int BgL_tmpz00_3947;

									BgL_tmpz00_3947 = (int) (2L);
									BGL_MVALUES_VAL_SET(BgL_tmpz00_3947,
										BGl_u8vectorzd2refzd2envz00zz__srfi4z00);
								}
								{	/* Llib/srfi4.scm 592 */
									int BgL_tmpz00_3950;

									BgL_tmpz00_3950 = (int) (3L);
									BGL_MVALUES_VAL_SET(BgL_tmpz00_3950,
										BGl_u8vectorzd2setz12zd2envz12zz__srfi4z00);
								}
								{	/* Llib/srfi4.scm 592 */
									int BgL_tmpz00_3953;

									BgL_tmpz00_3953 = (int) (4L);
									BGL_MVALUES_VAL_SET(BgL_tmpz00_3953,
										BGl_zd3u8zd2envz01zz__r4_numbers_6_5_fixnumz00);
								}
								return BgL_val0_1150z00_1347;
							}
							break;
						case 2L:

							{	/* Llib/srfi4.scm 594 */
								obj_t BgL_val0_1155z00_1352;

								BgL_val0_1155z00_1352 = BGl_symbol2346z00zz__srfi4z00;
								{	/* Llib/srfi4.scm 594 */
									int BgL_tmpz00_3956;

									BgL_tmpz00_3956 = (int) (5L);
									BGL_MVALUES_NUMBER_SET(BgL_tmpz00_3956);
								}
								{	/* Llib/srfi4.scm 594 */
									obj_t BgL_auxz00_3961;
									int BgL_tmpz00_3959;

									BgL_auxz00_3961 = BINT(2L);
									BgL_tmpz00_3959 = (int) (1L);
									BGL_MVALUES_VAL_SET(BgL_tmpz00_3959, BgL_auxz00_3961);
								}
								{	/* Llib/srfi4.scm 594 */
									int BgL_tmpz00_3964;

									BgL_tmpz00_3964 = (int) (2L);
									BGL_MVALUES_VAL_SET(BgL_tmpz00_3964,
										BGl_s16vectorzd2refzd2envz00zz__srfi4z00);
								}
								{	/* Llib/srfi4.scm 594 */
									int BgL_tmpz00_3967;

									BgL_tmpz00_3967 = (int) (3L);
									BGL_MVALUES_VAL_SET(BgL_tmpz00_3967,
										BGl_s16vectorzd2setz12zd2envz12zz__srfi4z00);
								}
								{	/* Llib/srfi4.scm 594 */
									int BgL_tmpz00_3970;

									BgL_tmpz00_3970 = (int) (4L);
									BGL_MVALUES_VAL_SET(BgL_tmpz00_3970,
										BGl_zd3s16zd2envz01zz__r4_numbers_6_5_fixnumz00);
								}
								return BgL_val0_1155z00_1352;
							}
							break;
						case 3L:

							{	/* Llib/srfi4.scm 596 */
								obj_t BgL_val0_1160z00_1357;

								BgL_val0_1160z00_1357 = BGl_symbol2348z00zz__srfi4z00;
								{	/* Llib/srfi4.scm 596 */
									int BgL_tmpz00_3973;

									BgL_tmpz00_3973 = (int) (5L);
									BGL_MVALUES_NUMBER_SET(BgL_tmpz00_3973);
								}
								{	/* Llib/srfi4.scm 596 */
									obj_t BgL_auxz00_3978;
									int BgL_tmpz00_3976;

									BgL_auxz00_3978 = BINT(2L);
									BgL_tmpz00_3976 = (int) (1L);
									BGL_MVALUES_VAL_SET(BgL_tmpz00_3976, BgL_auxz00_3978);
								}
								{	/* Llib/srfi4.scm 596 */
									int BgL_tmpz00_3981;

									BgL_tmpz00_3981 = (int) (2L);
									BGL_MVALUES_VAL_SET(BgL_tmpz00_3981,
										BGl_u16vectorzd2refzd2envz00zz__srfi4z00);
								}
								{	/* Llib/srfi4.scm 596 */
									int BgL_tmpz00_3984;

									BgL_tmpz00_3984 = (int) (3L);
									BGL_MVALUES_VAL_SET(BgL_tmpz00_3984,
										BGl_u16vectorzd2setz12zd2envz12zz__srfi4z00);
								}
								{	/* Llib/srfi4.scm 596 */
									int BgL_tmpz00_3987;

									BgL_tmpz00_3987 = (int) (4L);
									BGL_MVALUES_VAL_SET(BgL_tmpz00_3987,
										BGl_zd3u16zd2envz01zz__r4_numbers_6_5_fixnumz00);
								}
								return BgL_val0_1160z00_1357;
							}
							break;
						case 4L:

							{	/* Llib/srfi4.scm 598 */
								obj_t BgL_val0_1165z00_1362;

								BgL_val0_1165z00_1362 = BGl_symbol2350z00zz__srfi4z00;
								{	/* Llib/srfi4.scm 598 */
									int BgL_tmpz00_3990;

									BgL_tmpz00_3990 = (int) (5L);
									BGL_MVALUES_NUMBER_SET(BgL_tmpz00_3990);
								}
								{	/* Llib/srfi4.scm 598 */
									obj_t BgL_auxz00_3995;
									int BgL_tmpz00_3993;

									BgL_auxz00_3995 = BINT(4L);
									BgL_tmpz00_3993 = (int) (1L);
									BGL_MVALUES_VAL_SET(BgL_tmpz00_3993, BgL_auxz00_3995);
								}
								{	/* Llib/srfi4.scm 598 */
									int BgL_tmpz00_3998;

									BgL_tmpz00_3998 = (int) (2L);
									BGL_MVALUES_VAL_SET(BgL_tmpz00_3998,
										BGl_s32vectorzd2refzd2envz00zz__srfi4z00);
								}
								{	/* Llib/srfi4.scm 598 */
									int BgL_tmpz00_4001;

									BgL_tmpz00_4001 = (int) (3L);
									BGL_MVALUES_VAL_SET(BgL_tmpz00_4001,
										BGl_s32vectorzd2setz12zd2envz12zz__srfi4z00);
								}
								{	/* Llib/srfi4.scm 598 */
									int BgL_tmpz00_4004;

									BgL_tmpz00_4004 = (int) (4L);
									BGL_MVALUES_VAL_SET(BgL_tmpz00_4004,
										BGl_zd3s32zd2envz01zz__r4_numbers_6_5_fixnumz00);
								}
								return BgL_val0_1165z00_1362;
							}
							break;
						case 5L:

							{	/* Llib/srfi4.scm 600 */
								obj_t BgL_val0_1170z00_1367;

								BgL_val0_1170z00_1367 = BGl_symbol2352z00zz__srfi4z00;
								{	/* Llib/srfi4.scm 600 */
									int BgL_tmpz00_4007;

									BgL_tmpz00_4007 = (int) (5L);
									BGL_MVALUES_NUMBER_SET(BgL_tmpz00_4007);
								}
								{	/* Llib/srfi4.scm 600 */
									obj_t BgL_auxz00_4012;
									int BgL_tmpz00_4010;

									BgL_auxz00_4012 = BINT(4L);
									BgL_tmpz00_4010 = (int) (1L);
									BGL_MVALUES_VAL_SET(BgL_tmpz00_4010, BgL_auxz00_4012);
								}
								{	/* Llib/srfi4.scm 600 */
									int BgL_tmpz00_4015;

									BgL_tmpz00_4015 = (int) (2L);
									BGL_MVALUES_VAL_SET(BgL_tmpz00_4015,
										BGl_u32vectorzd2refzd2envz00zz__srfi4z00);
								}
								{	/* Llib/srfi4.scm 600 */
									int BgL_tmpz00_4018;

									BgL_tmpz00_4018 = (int) (3L);
									BGL_MVALUES_VAL_SET(BgL_tmpz00_4018,
										BGl_u32vectorzd2setz12zd2envz12zz__srfi4z00);
								}
								{	/* Llib/srfi4.scm 600 */
									int BgL_tmpz00_4021;

									BgL_tmpz00_4021 = (int) (4L);
									BGL_MVALUES_VAL_SET(BgL_tmpz00_4021,
										BGl_zd3u32zd2envz01zz__r4_numbers_6_5_fixnumz00);
								}
								return BgL_val0_1170z00_1367;
							}
							break;
						case 6L:

							{	/* Llib/srfi4.scm 602 */
								obj_t BgL_val0_1175z00_1372;

								BgL_val0_1175z00_1372 = BGl_symbol2354z00zz__srfi4z00;
								{	/* Llib/srfi4.scm 602 */
									int BgL_tmpz00_4024;

									BgL_tmpz00_4024 = (int) (5L);
									BGL_MVALUES_NUMBER_SET(BgL_tmpz00_4024);
								}
								{	/* Llib/srfi4.scm 602 */
									obj_t BgL_auxz00_4029;
									int BgL_tmpz00_4027;

									BgL_auxz00_4029 = BINT(8L);
									BgL_tmpz00_4027 = (int) (1L);
									BGL_MVALUES_VAL_SET(BgL_tmpz00_4027, BgL_auxz00_4029);
								}
								{	/* Llib/srfi4.scm 602 */
									int BgL_tmpz00_4032;

									BgL_tmpz00_4032 = (int) (2L);
									BGL_MVALUES_VAL_SET(BgL_tmpz00_4032,
										BGl_s64vectorzd2refzd2envz00zz__srfi4z00);
								}
								{	/* Llib/srfi4.scm 602 */
									int BgL_tmpz00_4035;

									BgL_tmpz00_4035 = (int) (3L);
									BGL_MVALUES_VAL_SET(BgL_tmpz00_4035,
										BGl_s64vectorzd2setz12zd2envz12zz__srfi4z00);
								}
								{	/* Llib/srfi4.scm 602 */
									int BgL_tmpz00_4038;

									BgL_tmpz00_4038 = (int) (4L);
									BGL_MVALUES_VAL_SET(BgL_tmpz00_4038,
										BGl_zd3s64zd2envz01zz__r4_numbers_6_5_fixnumz00);
								}
								return BgL_val0_1175z00_1372;
							}
							break;
						case 7L:

							{	/* Llib/srfi4.scm 604 */
								obj_t BgL_val0_1180z00_1377;

								BgL_val0_1180z00_1377 = BGl_symbol2356z00zz__srfi4z00;
								{	/* Llib/srfi4.scm 604 */
									int BgL_tmpz00_4041;

									BgL_tmpz00_4041 = (int) (5L);
									BGL_MVALUES_NUMBER_SET(BgL_tmpz00_4041);
								}
								{	/* Llib/srfi4.scm 604 */
									obj_t BgL_auxz00_4046;
									int BgL_tmpz00_4044;

									BgL_auxz00_4046 = BINT(8L);
									BgL_tmpz00_4044 = (int) (1L);
									BGL_MVALUES_VAL_SET(BgL_tmpz00_4044, BgL_auxz00_4046);
								}
								{	/* Llib/srfi4.scm 604 */
									int BgL_tmpz00_4049;

									BgL_tmpz00_4049 = (int) (2L);
									BGL_MVALUES_VAL_SET(BgL_tmpz00_4049,
										BGl_u64vectorzd2refzd2envz00zz__srfi4z00);
								}
								{	/* Llib/srfi4.scm 604 */
									int BgL_tmpz00_4052;

									BgL_tmpz00_4052 = (int) (3L);
									BGL_MVALUES_VAL_SET(BgL_tmpz00_4052,
										BGl_u64vectorzd2setz12zd2envz12zz__srfi4z00);
								}
								{	/* Llib/srfi4.scm 604 */
									int BgL_tmpz00_4055;

									BgL_tmpz00_4055 = (int) (4L);
									BGL_MVALUES_VAL_SET(BgL_tmpz00_4055,
										BGl_zd3u64zd2envz01zz__r4_numbers_6_5_fixnumz00);
								}
								return BgL_val0_1180z00_1377;
							}
							break;
						case 8L:

							{	/* Llib/srfi4.scm 606 */
								obj_t BgL_val0_1185z00_1382;

								BgL_val0_1185z00_1382 = BGl_symbol2358z00zz__srfi4z00;
								{	/* Llib/srfi4.scm 606 */
									int BgL_tmpz00_4058;

									BgL_tmpz00_4058 = (int) (5L);
									BGL_MVALUES_NUMBER_SET(BgL_tmpz00_4058);
								}
								{	/* Llib/srfi4.scm 606 */
									obj_t BgL_auxz00_4063;
									int BgL_tmpz00_4061;

									BgL_auxz00_4063 = BINT(4L);
									BgL_tmpz00_4061 = (int) (1L);
									BGL_MVALUES_VAL_SET(BgL_tmpz00_4061, BgL_auxz00_4063);
								}
								{	/* Llib/srfi4.scm 606 */
									int BgL_tmpz00_4066;

									BgL_tmpz00_4066 = (int) (2L);
									BGL_MVALUES_VAL_SET(BgL_tmpz00_4066,
										BGl_f32vectorzd2refzd2envz00zz__srfi4z00);
								}
								{	/* Llib/srfi4.scm 606 */
									int BgL_tmpz00_4069;

									BgL_tmpz00_4069 = (int) (3L);
									BGL_MVALUES_VAL_SET(BgL_tmpz00_4069,
										BGl_f32vectorzd2setz12zd2envz12zz__srfi4z00);
								}
								{	/* Llib/srfi4.scm 606 */
									int BgL_tmpz00_4072;

									BgL_tmpz00_4072 = (int) (4L);
									BGL_MVALUES_VAL_SET(BgL_tmpz00_4072,
										BGl_zd3flzd2envz01zz__r4_numbers_6_5_flonumz00);
								}
								return BgL_val0_1185z00_1382;
							}
							break;
						case 9L:

							{	/* Llib/srfi4.scm 608 */
								obj_t BgL_val0_1190z00_1387;

								BgL_val0_1190z00_1387 = BGl_symbol2360z00zz__srfi4z00;
								{	/* Llib/srfi4.scm 608 */
									int BgL_tmpz00_4075;

									BgL_tmpz00_4075 = (int) (5L);
									BGL_MVALUES_NUMBER_SET(BgL_tmpz00_4075);
								}
								{	/* Llib/srfi4.scm 608 */
									obj_t BgL_auxz00_4080;
									int BgL_tmpz00_4078;

									BgL_auxz00_4080 = BINT(8L);
									BgL_tmpz00_4078 = (int) (1L);
									BGL_MVALUES_VAL_SET(BgL_tmpz00_4078, BgL_auxz00_4080);
								}
								{	/* Llib/srfi4.scm 608 */
									int BgL_tmpz00_4083;

									BgL_tmpz00_4083 = (int) (2L);
									BGL_MVALUES_VAL_SET(BgL_tmpz00_4083,
										BGl_f64vectorzd2refzd2envz00zz__srfi4z00);
								}
								{	/* Llib/srfi4.scm 608 */
									int BgL_tmpz00_4086;

									BgL_tmpz00_4086 = (int) (3L);
									BGL_MVALUES_VAL_SET(BgL_tmpz00_4086,
										BGl_f64vectorzd2setz12zd2envz12zz__srfi4z00);
								}
								{	/* Llib/srfi4.scm 608 */
									int BgL_tmpz00_4089;

									BgL_tmpz00_4089 = (int) (4L);
									BGL_MVALUES_VAL_SET(BgL_tmpz00_4089,
										BGl_zd3flzd2envz01zz__r4_numbers_6_5_flonumz00);
								}
								return BgL_val0_1190z00_1387;
							}
							break;
						default:
							{	/* Llib/srfi4.scm 611 */
								int BgL_arg1388z00_2303;

								BgL_arg1388z00_2303 = BGL_HVECTOR_IDENT(BgL_oz00_14);
								return
									BGl_errorz00zz__errorz00(BGl_string2362z00zz__srfi4z00,
									BGl_string2363z00zz__srfi4z00, BINT(BgL_arg1388z00_2303));
							}
						}
				}
			else
				{	/* Llib/srfi4.scm 585 */
					return
						BGl_bigloozd2typezd2errorz00zz__errorz00
						(BGl_string2362z00zz__srfi4z00, BGl_string2364z00zz__srfi4z00,
						BgL_oz00_14);
				}
		}

	}



/* &homogeneous-vector-info */
	obj_t BGl_z62homogeneouszd2vectorzd2infoz62zz__srfi4z00(obj_t BgL_envz00_3230,
		obj_t BgL_oz00_3231)
	{
		{	/* Llib/srfi4.scm 584 */
			return BGl_homogeneouszd2vectorzd2infoz00zz__srfi4z00(BgL_oz00_3231);
		}

	}



/* s8vector-length */
	BGL_EXPORTED_DEF long BGl_s8vectorzd2lengthzd2zz__srfi4z00(obj_t BgL_xz00_15)
	{
		{	/* Llib/srfi4.scm 617 */
			return BGL_HVECTOR_LENGTH(BgL_xz00_15);
		}

	}



/* &s8vector-length */
	obj_t BGl_z62s8vectorzd2lengthzb0zz__srfi4z00(obj_t BgL_envz00_3329,
		obj_t BgL_xz00_3330)
	{
		{	/* Llib/srfi4.scm 617 */
			{	/* Llib/srfi4.scm 617 */
				long BgL_tmpz00_4100;

				{	/* Llib/srfi4.scm 617 */
					obj_t BgL_auxz00_4101;

					if (BGL_S8VECTORP(BgL_xz00_3330))
						{	/* Llib/srfi4.scm 617 */
							BgL_auxz00_4101 = BgL_xz00_3330;
						}
					else
						{
							obj_t BgL_auxz00_4104;

							BgL_auxz00_4104 =
								BGl_typezd2errorzd2zz__errorz00(BGl_string2365z00zz__srfi4z00,
								BINT(25371L), BGl_string2366z00zz__srfi4z00,
								BGl_string2367z00zz__srfi4z00, BgL_xz00_3330);
							FAILURE(BgL_auxz00_4104, BFALSE, BFALSE);
						}
					BgL_tmpz00_4100 =
						BGl_s8vectorzd2lengthzd2zz__srfi4z00(BgL_auxz00_4101);
				}
				return BINT(BgL_tmpz00_4100);
			}
		}

	}



/* u8vector-length */
	BGL_EXPORTED_DEF long BGl_u8vectorzd2lengthzd2zz__srfi4z00(obj_t BgL_xz00_16)
	{
		{	/* Llib/srfi4.scm 618 */
			return BGL_HVECTOR_LENGTH(BgL_xz00_16);
		}

	}



/* &u8vector-length */
	obj_t BGl_z62u8vectorzd2lengthzb0zz__srfi4z00(obj_t BgL_envz00_3331,
		obj_t BgL_xz00_3332)
	{
		{	/* Llib/srfi4.scm 618 */
			{	/* Llib/srfi4.scm 618 */
				long BgL_tmpz00_4111;

				{	/* Llib/srfi4.scm 618 */
					obj_t BgL_auxz00_4112;

					if (BGL_U8VECTORP(BgL_xz00_3332))
						{	/* Llib/srfi4.scm 618 */
							BgL_auxz00_4112 = BgL_xz00_3332;
						}
					else
						{
							obj_t BgL_auxz00_4115;

							BgL_auxz00_4115 =
								BGl_typezd2errorzd2zz__errorz00(BGl_string2365z00zz__srfi4z00,
								BINT(25427L), BGl_string2368z00zz__srfi4z00,
								BGl_string2369z00zz__srfi4z00, BgL_xz00_3332);
							FAILURE(BgL_auxz00_4115, BFALSE, BFALSE);
						}
					BgL_tmpz00_4111 =
						BGl_u8vectorzd2lengthzd2zz__srfi4z00(BgL_auxz00_4112);
				}
				return BINT(BgL_tmpz00_4111);
			}
		}

	}



/* s16vector-length */
	BGL_EXPORTED_DEF long BGl_s16vectorzd2lengthzd2zz__srfi4z00(obj_t BgL_xz00_17)
	{
		{	/* Llib/srfi4.scm 619 */
			return BGL_HVECTOR_LENGTH(BgL_xz00_17);
		}

	}



/* &s16vector-length */
	obj_t BGl_z62s16vectorzd2lengthzb0zz__srfi4z00(obj_t BgL_envz00_3333,
		obj_t BgL_xz00_3334)
	{
		{	/* Llib/srfi4.scm 619 */
			{	/* Llib/srfi4.scm 619 */
				long BgL_tmpz00_4122;

				{	/* Llib/srfi4.scm 619 */
					obj_t BgL_auxz00_4123;

					if (BGL_S16VECTORP(BgL_xz00_3334))
						{	/* Llib/srfi4.scm 619 */
							BgL_auxz00_4123 = BgL_xz00_3334;
						}
					else
						{
							obj_t BgL_auxz00_4126;

							BgL_auxz00_4126 =
								BGl_typezd2errorzd2zz__errorz00(BGl_string2365z00zz__srfi4z00,
								BINT(25484L), BGl_string2370z00zz__srfi4z00,
								BGl_string2371z00zz__srfi4z00, BgL_xz00_3334);
							FAILURE(BgL_auxz00_4126, BFALSE, BFALSE);
						}
					BgL_tmpz00_4122 =
						BGl_s16vectorzd2lengthzd2zz__srfi4z00(BgL_auxz00_4123);
				}
				return BINT(BgL_tmpz00_4122);
			}
		}

	}



/* u16vector-length */
	BGL_EXPORTED_DEF long BGl_u16vectorzd2lengthzd2zz__srfi4z00(obj_t BgL_xz00_18)
	{
		{	/* Llib/srfi4.scm 620 */
			return BGL_HVECTOR_LENGTH(BgL_xz00_18);
		}

	}



/* &u16vector-length */
	obj_t BGl_z62u16vectorzd2lengthzb0zz__srfi4z00(obj_t BgL_envz00_3335,
		obj_t BgL_xz00_3336)
	{
		{	/* Llib/srfi4.scm 620 */
			{	/* Llib/srfi4.scm 620 */
				long BgL_tmpz00_4133;

				{	/* Llib/srfi4.scm 620 */
					obj_t BgL_auxz00_4134;

					if (BGL_U16VECTORP(BgL_xz00_3336))
						{	/* Llib/srfi4.scm 620 */
							BgL_auxz00_4134 = BgL_xz00_3336;
						}
					else
						{
							obj_t BgL_auxz00_4137;

							BgL_auxz00_4137 =
								BGl_typezd2errorzd2zz__errorz00(BGl_string2365z00zz__srfi4z00,
								BINT(25541L), BGl_string2372z00zz__srfi4z00,
								BGl_string2373z00zz__srfi4z00, BgL_xz00_3336);
							FAILURE(BgL_auxz00_4137, BFALSE, BFALSE);
						}
					BgL_tmpz00_4133 =
						BGl_u16vectorzd2lengthzd2zz__srfi4z00(BgL_auxz00_4134);
				}
				return BINT(BgL_tmpz00_4133);
			}
		}

	}



/* s32vector-length */
	BGL_EXPORTED_DEF long BGl_s32vectorzd2lengthzd2zz__srfi4z00(obj_t BgL_xz00_19)
	{
		{	/* Llib/srfi4.scm 621 */
			return BGL_HVECTOR_LENGTH(BgL_xz00_19);
		}

	}



/* &s32vector-length */
	obj_t BGl_z62s32vectorzd2lengthzb0zz__srfi4z00(obj_t BgL_envz00_3337,
		obj_t BgL_xz00_3338)
	{
		{	/* Llib/srfi4.scm 621 */
			{	/* Llib/srfi4.scm 621 */
				long BgL_tmpz00_4144;

				{	/* Llib/srfi4.scm 621 */
					obj_t BgL_auxz00_4145;

					if (BGL_S32VECTORP(BgL_xz00_3338))
						{	/* Llib/srfi4.scm 621 */
							BgL_auxz00_4145 = BgL_xz00_3338;
						}
					else
						{
							obj_t BgL_auxz00_4148;

							BgL_auxz00_4148 =
								BGl_typezd2errorzd2zz__errorz00(BGl_string2365z00zz__srfi4z00,
								BINT(25598L), BGl_string2374z00zz__srfi4z00,
								BGl_string2375z00zz__srfi4z00, BgL_xz00_3338);
							FAILURE(BgL_auxz00_4148, BFALSE, BFALSE);
						}
					BgL_tmpz00_4144 =
						BGl_s32vectorzd2lengthzd2zz__srfi4z00(BgL_auxz00_4145);
				}
				return BINT(BgL_tmpz00_4144);
			}
		}

	}



/* u32vector-length */
	BGL_EXPORTED_DEF long BGl_u32vectorzd2lengthzd2zz__srfi4z00(obj_t BgL_xz00_20)
	{
		{	/* Llib/srfi4.scm 622 */
			return BGL_HVECTOR_LENGTH(BgL_xz00_20);
		}

	}



/* &u32vector-length */
	obj_t BGl_z62u32vectorzd2lengthzb0zz__srfi4z00(obj_t BgL_envz00_3339,
		obj_t BgL_xz00_3340)
	{
		{	/* Llib/srfi4.scm 622 */
			{	/* Llib/srfi4.scm 622 */
				long BgL_tmpz00_4155;

				{	/* Llib/srfi4.scm 622 */
					obj_t BgL_auxz00_4156;

					if (BGL_U32VECTORP(BgL_xz00_3340))
						{	/* Llib/srfi4.scm 622 */
							BgL_auxz00_4156 = BgL_xz00_3340;
						}
					else
						{
							obj_t BgL_auxz00_4159;

							BgL_auxz00_4159 =
								BGl_typezd2errorzd2zz__errorz00(BGl_string2365z00zz__srfi4z00,
								BINT(25655L), BGl_string2376z00zz__srfi4z00,
								BGl_string2377z00zz__srfi4z00, BgL_xz00_3340);
							FAILURE(BgL_auxz00_4159, BFALSE, BFALSE);
						}
					BgL_tmpz00_4155 =
						BGl_u32vectorzd2lengthzd2zz__srfi4z00(BgL_auxz00_4156);
				}
				return BINT(BgL_tmpz00_4155);
			}
		}

	}



/* s64vector-length */
	BGL_EXPORTED_DEF long BGl_s64vectorzd2lengthzd2zz__srfi4z00(obj_t BgL_xz00_21)
	{
		{	/* Llib/srfi4.scm 623 */
			return BGL_HVECTOR_LENGTH(BgL_xz00_21);
		}

	}



/* &s64vector-length */
	obj_t BGl_z62s64vectorzd2lengthzb0zz__srfi4z00(obj_t BgL_envz00_3341,
		obj_t BgL_xz00_3342)
	{
		{	/* Llib/srfi4.scm 623 */
			{	/* Llib/srfi4.scm 623 */
				long BgL_tmpz00_4166;

				{	/* Llib/srfi4.scm 623 */
					obj_t BgL_auxz00_4167;

					if (BGL_S64VECTORP(BgL_xz00_3342))
						{	/* Llib/srfi4.scm 623 */
							BgL_auxz00_4167 = BgL_xz00_3342;
						}
					else
						{
							obj_t BgL_auxz00_4170;

							BgL_auxz00_4170 =
								BGl_typezd2errorzd2zz__errorz00(BGl_string2365z00zz__srfi4z00,
								BINT(25712L), BGl_string2378z00zz__srfi4z00,
								BGl_string2379z00zz__srfi4z00, BgL_xz00_3342);
							FAILURE(BgL_auxz00_4170, BFALSE, BFALSE);
						}
					BgL_tmpz00_4166 =
						BGl_s64vectorzd2lengthzd2zz__srfi4z00(BgL_auxz00_4167);
				}
				return BINT(BgL_tmpz00_4166);
			}
		}

	}



/* u64vector-length */
	BGL_EXPORTED_DEF long BGl_u64vectorzd2lengthzd2zz__srfi4z00(obj_t BgL_xz00_22)
	{
		{	/* Llib/srfi4.scm 624 */
			return BGL_HVECTOR_LENGTH(BgL_xz00_22);
		}

	}



/* &u64vector-length */
	obj_t BGl_z62u64vectorzd2lengthzb0zz__srfi4z00(obj_t BgL_envz00_3343,
		obj_t BgL_xz00_3344)
	{
		{	/* Llib/srfi4.scm 624 */
			{	/* Llib/srfi4.scm 624 */
				long BgL_tmpz00_4177;

				{	/* Llib/srfi4.scm 624 */
					obj_t BgL_auxz00_4178;

					if (BGL_U64VECTORP(BgL_xz00_3344))
						{	/* Llib/srfi4.scm 624 */
							BgL_auxz00_4178 = BgL_xz00_3344;
						}
					else
						{
							obj_t BgL_auxz00_4181;

							BgL_auxz00_4181 =
								BGl_typezd2errorzd2zz__errorz00(BGl_string2365z00zz__srfi4z00,
								BINT(25769L), BGl_string2380z00zz__srfi4z00,
								BGl_string2381z00zz__srfi4z00, BgL_xz00_3344);
							FAILURE(BgL_auxz00_4181, BFALSE, BFALSE);
						}
					BgL_tmpz00_4177 =
						BGl_u64vectorzd2lengthzd2zz__srfi4z00(BgL_auxz00_4178);
				}
				return BINT(BgL_tmpz00_4177);
			}
		}

	}



/* f32vector-length */
	BGL_EXPORTED_DEF long BGl_f32vectorzd2lengthzd2zz__srfi4z00(obj_t BgL_xz00_23)
	{
		{	/* Llib/srfi4.scm 625 */
			return BGL_HVECTOR_LENGTH(BgL_xz00_23);
		}

	}



/* &f32vector-length */
	obj_t BGl_z62f32vectorzd2lengthzb0zz__srfi4z00(obj_t BgL_envz00_3345,
		obj_t BgL_xz00_3346)
	{
		{	/* Llib/srfi4.scm 625 */
			{	/* Llib/srfi4.scm 625 */
				long BgL_tmpz00_4188;

				{	/* Llib/srfi4.scm 625 */
					obj_t BgL_auxz00_4189;

					if (BGL_F32VECTORP(BgL_xz00_3346))
						{	/* Llib/srfi4.scm 625 */
							BgL_auxz00_4189 = BgL_xz00_3346;
						}
					else
						{
							obj_t BgL_auxz00_4192;

							BgL_auxz00_4192 =
								BGl_typezd2errorzd2zz__errorz00(BGl_string2365z00zz__srfi4z00,
								BINT(25826L), BGl_string2382z00zz__srfi4z00,
								BGl_string2383z00zz__srfi4z00, BgL_xz00_3346);
							FAILURE(BgL_auxz00_4192, BFALSE, BFALSE);
						}
					BgL_tmpz00_4188 =
						BGl_f32vectorzd2lengthzd2zz__srfi4z00(BgL_auxz00_4189);
				}
				return BINT(BgL_tmpz00_4188);
			}
		}

	}



/* f64vector-length */
	BGL_EXPORTED_DEF long BGl_f64vectorzd2lengthzd2zz__srfi4z00(obj_t BgL_xz00_24)
	{
		{	/* Llib/srfi4.scm 626 */
			return BGL_HVECTOR_LENGTH(BgL_xz00_24);
		}

	}



/* &f64vector-length */
	obj_t BGl_z62f64vectorzd2lengthzb0zz__srfi4z00(obj_t BgL_envz00_3347,
		obj_t BgL_xz00_3348)
	{
		{	/* Llib/srfi4.scm 626 */
			{	/* Llib/srfi4.scm 626 */
				long BgL_tmpz00_4199;

				{	/* Llib/srfi4.scm 626 */
					obj_t BgL_auxz00_4200;

					if (BGL_F64VECTORP(BgL_xz00_3348))
						{	/* Llib/srfi4.scm 626 */
							BgL_auxz00_4200 = BgL_xz00_3348;
						}
					else
						{
							obj_t BgL_auxz00_4203;

							BgL_auxz00_4203 =
								BGl_typezd2errorzd2zz__errorz00(BGl_string2365z00zz__srfi4z00,
								BINT(25883L), BGl_string2384z00zz__srfi4z00,
								BGl_string2385z00zz__srfi4z00, BgL_xz00_3348);
							FAILURE(BgL_auxz00_4203, BFALSE, BFALSE);
						}
					BgL_tmpz00_4199 =
						BGl_f64vectorzd2lengthzd2zz__srfi4z00(BgL_auxz00_4200);
				}
				return BINT(BgL_tmpz00_4199);
			}
		}

	}



/* s8vector */
	BGL_EXPORTED_DEF obj_t BGl_s8vectorz00zz__srfi4z00(obj_t BgL_xz00_25)
	{
		{	/* Llib/srfi4.scm 637 */
			return BGl_listzd2ze3s8vectorz31zz__srfi4z00(BgL_xz00_25);
		}

	}



/* &s8vector */
	obj_t BGl_z62s8vectorz62zz__srfi4z00(obj_t BgL_envz00_3349,
		obj_t BgL_xz00_3350)
	{
		{	/* Llib/srfi4.scm 637 */
			return BGl_s8vectorz00zz__srfi4z00(BgL_xz00_3350);
		}

	}



/* u8vector */
	BGL_EXPORTED_DEF obj_t BGl_u8vectorz00zz__srfi4z00(obj_t BgL_xz00_26)
	{
		{	/* Llib/srfi4.scm 637 */
			return BGl_listzd2ze3u8vectorz31zz__srfi4z00(BgL_xz00_26);
		}

	}



/* &u8vector */
	obj_t BGl_z62u8vectorz62zz__srfi4z00(obj_t BgL_envz00_3351,
		obj_t BgL_xz00_3352)
	{
		{	/* Llib/srfi4.scm 637 */
			return BGl_u8vectorz00zz__srfi4z00(BgL_xz00_3352);
		}

	}



/* s16vector */
	BGL_EXPORTED_DEF obj_t BGl_s16vectorz00zz__srfi4z00(obj_t BgL_xz00_27)
	{
		{	/* Llib/srfi4.scm 637 */
			return BGl_listzd2ze3s16vectorz31zz__srfi4z00(BgL_xz00_27);
		}

	}



/* &s16vector */
	obj_t BGl_z62s16vectorz62zz__srfi4z00(obj_t BgL_envz00_3353,
		obj_t BgL_xz00_3354)
	{
		{	/* Llib/srfi4.scm 637 */
			return BGl_s16vectorz00zz__srfi4z00(BgL_xz00_3354);
		}

	}



/* u16vector */
	BGL_EXPORTED_DEF obj_t BGl_u16vectorz00zz__srfi4z00(obj_t BgL_xz00_28)
	{
		{	/* Llib/srfi4.scm 637 */
			return BGl_listzd2ze3u16vectorz31zz__srfi4z00(BgL_xz00_28);
		}

	}



/* &u16vector */
	obj_t BGl_z62u16vectorz62zz__srfi4z00(obj_t BgL_envz00_3355,
		obj_t BgL_xz00_3356)
	{
		{	/* Llib/srfi4.scm 637 */
			return BGl_u16vectorz00zz__srfi4z00(BgL_xz00_3356);
		}

	}



/* s32vector */
	BGL_EXPORTED_DEF obj_t BGl_s32vectorz00zz__srfi4z00(obj_t BgL_xz00_29)
	{
		{	/* Llib/srfi4.scm 637 */
			return BGl_listzd2ze3s32vectorz31zz__srfi4z00(BgL_xz00_29);
		}

	}



/* &s32vector */
	obj_t BGl_z62s32vectorz62zz__srfi4z00(obj_t BgL_envz00_3357,
		obj_t BgL_xz00_3358)
	{
		{	/* Llib/srfi4.scm 637 */
			return BGl_s32vectorz00zz__srfi4z00(BgL_xz00_3358);
		}

	}



/* u32vector */
	BGL_EXPORTED_DEF obj_t BGl_u32vectorz00zz__srfi4z00(obj_t BgL_xz00_30)
	{
		{	/* Llib/srfi4.scm 637 */
			return BGl_listzd2ze3u32vectorz31zz__srfi4z00(BgL_xz00_30);
		}

	}



/* &u32vector */
	obj_t BGl_z62u32vectorz62zz__srfi4z00(obj_t BgL_envz00_3359,
		obj_t BgL_xz00_3360)
	{
		{	/* Llib/srfi4.scm 637 */
			return BGl_u32vectorz00zz__srfi4z00(BgL_xz00_3360);
		}

	}



/* s64vector */
	BGL_EXPORTED_DEF obj_t BGl_s64vectorz00zz__srfi4z00(obj_t BgL_xz00_31)
	{
		{	/* Llib/srfi4.scm 637 */
			return BGl_listzd2ze3s64vectorz31zz__srfi4z00(BgL_xz00_31);
		}

	}



/* &s64vector */
	obj_t BGl_z62s64vectorz62zz__srfi4z00(obj_t BgL_envz00_3361,
		obj_t BgL_xz00_3362)
	{
		{	/* Llib/srfi4.scm 637 */
			return BGl_s64vectorz00zz__srfi4z00(BgL_xz00_3362);
		}

	}



/* u64vector */
	BGL_EXPORTED_DEF obj_t BGl_u64vectorz00zz__srfi4z00(obj_t BgL_xz00_32)
	{
		{	/* Llib/srfi4.scm 637 */
			return BGl_listzd2ze3u64vectorz31zz__srfi4z00(BgL_xz00_32);
		}

	}



/* &u64vector */
	obj_t BGl_z62u64vectorz62zz__srfi4z00(obj_t BgL_envz00_3363,
		obj_t BgL_xz00_3364)
	{
		{	/* Llib/srfi4.scm 637 */
			return BGl_u64vectorz00zz__srfi4z00(BgL_xz00_3364);
		}

	}



/* f32vector */
	BGL_EXPORTED_DEF obj_t BGl_f32vectorz00zz__srfi4z00(obj_t BgL_xz00_33)
	{
		{	/* Llib/srfi4.scm 637 */
			return BGl_listzd2ze3f32vectorz31zz__srfi4z00(BgL_xz00_33);
		}

	}



/* &f32vector */
	obj_t BGl_z62f32vectorz62zz__srfi4z00(obj_t BgL_envz00_3365,
		obj_t BgL_xz00_3366)
	{
		{	/* Llib/srfi4.scm 637 */
			return BGl_f32vectorz00zz__srfi4z00(BgL_xz00_3366);
		}

	}



/* f64vector */
	BGL_EXPORTED_DEF obj_t BGl_f64vectorz00zz__srfi4z00(obj_t BgL_xz00_34)
	{
		{	/* Llib/srfi4.scm 637 */
			return BGl_listzd2ze3f64vectorz31zz__srfi4z00(BgL_xz00_34);
		}

	}



/* &f64vector */
	obj_t BGl_z62f64vectorz62zz__srfi4z00(obj_t BgL_envz00_3367,
		obj_t BgL_xz00_3368)
	{
		{	/* Llib/srfi4.scm 637 */
			return BGl_f64vectorz00zz__srfi4z00(BgL_xz00_3368);
		}

	}



/* _make-s8vector */
	obj_t BGl__makezd2s8vectorzd2zz__srfi4z00(obj_t BgL_env1229z00_38,
		obj_t BgL_opt1228z00_37)
	{
		{	/* Llib/srfi4.scm 661 */
			{	/* Llib/srfi4.scm 661 */
				obj_t BgL_g1230z00_1393;

				BgL_g1230z00_1393 = VECTOR_REF(BgL_opt1228z00_37, 0L);
				switch (VECTOR_LENGTH(BgL_opt1228z00_37))
					{
					case 1L:

						{	/* Llib/srfi4.scm 661 */

							{	/* Llib/srfi4.scm 661 */
								long BgL_auxz00_4230;

								{	/* Llib/srfi4.scm 661 */
									obj_t BgL_tmpz00_4231;

									if (INTEGERP(BgL_g1230z00_1393))
										{	/* Llib/srfi4.scm 661 */
											BgL_tmpz00_4231 = BgL_g1230z00_1393;
										}
									else
										{
											obj_t BgL_auxz00_4234;

											BgL_auxz00_4234 =
												BGl_typezd2errorzd2zz__errorz00
												(BGl_string2365z00zz__srfi4z00, BINT(27216L),
												BGl_string2386z00zz__srfi4z00,
												BGl_string2387z00zz__srfi4z00, BgL_g1230z00_1393);
											FAILURE(BgL_auxz00_4234, BFALSE, BFALSE);
										}
									BgL_auxz00_4230 = (long) CINT(BgL_tmpz00_4231);
								}
								return
									BGl_makezd2s8vectorzd2zz__srfi4z00(BgL_auxz00_4230,
									(int8_t) (0));
							}
						}
						break;
					case 2L:

						{	/* Llib/srfi4.scm 661 */
							obj_t BgL_initz00_1397;

							BgL_initz00_1397 = VECTOR_REF(BgL_opt1228z00_37, 1L);
							{	/* Llib/srfi4.scm 661 */

								{	/* Llib/srfi4.scm 661 */
									int8_t BgL_auxz00_4250;
									long BgL_auxz00_4241;

									{	/* Llib/srfi4.scm 661 */
										obj_t BgL_tmpz00_4251;

										if (BGL_INT8P(BgL_initz00_1397))
											{	/* Llib/srfi4.scm 661 */
												BgL_tmpz00_4251 = BgL_initz00_1397;
											}
										else
											{
												obj_t BgL_auxz00_4254;

												BgL_auxz00_4254 =
													BGl_typezd2errorzd2zz__errorz00
													(BGl_string2365z00zz__srfi4z00, BINT(27216L),
													BGl_string2386z00zz__srfi4z00,
													BGl_string2388z00zz__srfi4z00, BgL_initz00_1397);
												FAILURE(BgL_auxz00_4254, BFALSE, BFALSE);
											}
										BgL_auxz00_4250 = BGL_BINT8_TO_INT8(BgL_tmpz00_4251);
									}
									{	/* Llib/srfi4.scm 661 */
										obj_t BgL_tmpz00_4242;

										if (INTEGERP(BgL_g1230z00_1393))
											{	/* Llib/srfi4.scm 661 */
												BgL_tmpz00_4242 = BgL_g1230z00_1393;
											}
										else
											{
												obj_t BgL_auxz00_4245;

												BgL_auxz00_4245 =
													BGl_typezd2errorzd2zz__errorz00
													(BGl_string2365z00zz__srfi4z00, BINT(27216L),
													BGl_string2386z00zz__srfi4z00,
													BGl_string2387z00zz__srfi4z00, BgL_g1230z00_1393);
												FAILURE(BgL_auxz00_4245, BFALSE, BFALSE);
											}
										BgL_auxz00_4241 = (long) CINT(BgL_tmpz00_4242);
									}
									return
										BGl_makezd2s8vectorzd2zz__srfi4z00(BgL_auxz00_4241,
										BgL_auxz00_4250);
								}
							}
						}
						break;
					default:
						return BUNSPEC;
					}
			}
		}

	}



/* make-s8vector */
	BGL_EXPORTED_DEF obj_t BGl_makezd2s8vectorzd2zz__srfi4z00(long BgL_lenz00_35,
		int8_t BgL_initz00_36)
	{
		{	/* Llib/srfi4.scm 661 */
			{	/* Llib/srfi4.scm 661 */
				obj_t BgL_vz00_1398;

				{	/* Llib/srfi4.scm 661 */
					int32_t BgL_tmpz00_4262;

					BgL_tmpz00_4262 = (int32_t) (BgL_lenz00_35);
					BgL_vz00_1398 = BGL_ALLOC_S8VECTOR(BgL_tmpz00_4262);
				}
				{
					long BgL_iz00_2309;

					BgL_iz00_2309 = 0L;
				BgL_loopz00_2308:
					if ((BgL_iz00_2309 < BgL_lenz00_35))
						{	/* Llib/srfi4.scm 661 */
							BGL_S8VSET(BgL_vz00_1398, BgL_iz00_2309, BgL_initz00_36);
							BUNSPEC;
							{
								long BgL_iz00_4268;

								BgL_iz00_4268 = (BgL_iz00_2309 + 1L);
								BgL_iz00_2309 = BgL_iz00_4268;
								goto BgL_loopz00_2308;
							}
						}
					else
						{	/* Llib/srfi4.scm 661 */
							((bool_t) 0);
						}
				}
				return BgL_vz00_1398;
			}
		}

	}



/* _make-u8vector */
	obj_t BGl__makezd2u8vectorzd2zz__srfi4z00(obj_t BgL_env1234z00_42,
		obj_t BgL_opt1233z00_41)
	{
		{	/* Llib/srfi4.scm 662 */
			{	/* Llib/srfi4.scm 662 */
				obj_t BgL_g1235z00_1405;

				BgL_g1235z00_1405 = VECTOR_REF(BgL_opt1233z00_41, 0L);
				switch (VECTOR_LENGTH(BgL_opt1233z00_41))
					{
					case 1L:

						{	/* Llib/srfi4.scm 662 */

							{	/* Llib/srfi4.scm 662 */
								long BgL_auxz00_4271;

								{	/* Llib/srfi4.scm 662 */
									obj_t BgL_tmpz00_4272;

									if (INTEGERP(BgL_g1235z00_1405))
										{	/* Llib/srfi4.scm 662 */
											BgL_tmpz00_4272 = BgL_g1235z00_1405;
										}
									else
										{
											obj_t BgL_auxz00_4275;

											BgL_auxz00_4275 =
												BGl_typezd2errorzd2zz__errorz00
												(BGl_string2365z00zz__srfi4z00, BINT(27248L),
												BGl_string2389z00zz__srfi4z00,
												BGl_string2387z00zz__srfi4z00, BgL_g1235z00_1405);
											FAILURE(BgL_auxz00_4275, BFALSE, BFALSE);
										}
									BgL_auxz00_4271 = (long) CINT(BgL_tmpz00_4272);
								}
								return
									BGl_makezd2u8vectorzd2zz__srfi4z00(BgL_auxz00_4271,
									(uint8_t) (0));
							}
						}
						break;
					case 2L:

						{	/* Llib/srfi4.scm 662 */
							obj_t BgL_initz00_1409;

							BgL_initz00_1409 = VECTOR_REF(BgL_opt1233z00_41, 1L);
							{	/* Llib/srfi4.scm 662 */

								{	/* Llib/srfi4.scm 662 */
									uint8_t BgL_auxz00_4291;
									long BgL_auxz00_4282;

									{	/* Llib/srfi4.scm 662 */
										obj_t BgL_tmpz00_4292;

										if (BGL_UINT8P(BgL_initz00_1409))
											{	/* Llib/srfi4.scm 662 */
												BgL_tmpz00_4292 = BgL_initz00_1409;
											}
										else
											{
												obj_t BgL_auxz00_4295;

												BgL_auxz00_4295 =
													BGl_typezd2errorzd2zz__errorz00
													(BGl_string2365z00zz__srfi4z00, BINT(27248L),
													BGl_string2389z00zz__srfi4z00,
													BGl_string2390z00zz__srfi4z00, BgL_initz00_1409);
												FAILURE(BgL_auxz00_4295, BFALSE, BFALSE);
											}
										BgL_auxz00_4291 = BGL_BUINT8_TO_UINT8(BgL_tmpz00_4292);
									}
									{	/* Llib/srfi4.scm 662 */
										obj_t BgL_tmpz00_4283;

										if (INTEGERP(BgL_g1235z00_1405))
											{	/* Llib/srfi4.scm 662 */
												BgL_tmpz00_4283 = BgL_g1235z00_1405;
											}
										else
											{
												obj_t BgL_auxz00_4286;

												BgL_auxz00_4286 =
													BGl_typezd2errorzd2zz__errorz00
													(BGl_string2365z00zz__srfi4z00, BINT(27248L),
													BGl_string2389z00zz__srfi4z00,
													BGl_string2387z00zz__srfi4z00, BgL_g1235z00_1405);
												FAILURE(BgL_auxz00_4286, BFALSE, BFALSE);
											}
										BgL_auxz00_4282 = (long) CINT(BgL_tmpz00_4283);
									}
									return
										BGl_makezd2u8vectorzd2zz__srfi4z00(BgL_auxz00_4282,
										BgL_auxz00_4291);
								}
							}
						}
						break;
					default:
						return BUNSPEC;
					}
			}
		}

	}



/* make-u8vector */
	BGL_EXPORTED_DEF obj_t BGl_makezd2u8vectorzd2zz__srfi4z00(long BgL_lenz00_39,
		uint8_t BgL_initz00_40)
	{
		{	/* Llib/srfi4.scm 662 */
			{	/* Llib/srfi4.scm 662 */
				obj_t BgL_vz00_1410;

				{	/* Llib/srfi4.scm 662 */
					int32_t BgL_tmpz00_4303;

					BgL_tmpz00_4303 = (int32_t) (BgL_lenz00_39);
					BgL_vz00_1410 = BGL_ALLOC_U8VECTOR(BgL_tmpz00_4303);
				}
				{
					long BgL_iz00_2319;

					BgL_iz00_2319 = 0L;
				BgL_loopz00_2318:
					if ((BgL_iz00_2319 < BgL_lenz00_39))
						{	/* Llib/srfi4.scm 662 */
							BGL_U8VSET(BgL_vz00_1410, BgL_iz00_2319, BgL_initz00_40);
							BUNSPEC;
							{
								long BgL_iz00_4309;

								BgL_iz00_4309 = (BgL_iz00_2319 + 1L);
								BgL_iz00_2319 = BgL_iz00_4309;
								goto BgL_loopz00_2318;
							}
						}
					else
						{	/* Llib/srfi4.scm 662 */
							((bool_t) 0);
						}
				}
				return BgL_vz00_1410;
			}
		}

	}



/* _make-s16vector */
	obj_t BGl__makezd2s16vectorzd2zz__srfi4z00(obj_t BgL_env1239z00_46,
		obj_t BgL_opt1238z00_45)
	{
		{	/* Llib/srfi4.scm 663 */
			{	/* Llib/srfi4.scm 663 */
				obj_t BgL_g1240z00_1417;

				BgL_g1240z00_1417 = VECTOR_REF(BgL_opt1238z00_45, 0L);
				switch (VECTOR_LENGTH(BgL_opt1238z00_45))
					{
					case 1L:

						{	/* Llib/srfi4.scm 663 */

							{	/* Llib/srfi4.scm 663 */
								long BgL_auxz00_4312;

								{	/* Llib/srfi4.scm 663 */
									obj_t BgL_tmpz00_4313;

									if (INTEGERP(BgL_g1240z00_1417))
										{	/* Llib/srfi4.scm 663 */
											BgL_tmpz00_4313 = BgL_g1240z00_1417;
										}
									else
										{
											obj_t BgL_auxz00_4316;

											BgL_auxz00_4316 =
												BGl_typezd2errorzd2zz__errorz00
												(BGl_string2365z00zz__srfi4z00, BINT(27280L),
												BGl_string2391z00zz__srfi4z00,
												BGl_string2387z00zz__srfi4z00, BgL_g1240z00_1417);
											FAILURE(BgL_auxz00_4316, BFALSE, BFALSE);
										}
									BgL_auxz00_4312 = (long) CINT(BgL_tmpz00_4313);
								}
								return
									BGl_makezd2s16vectorzd2zz__srfi4z00(BgL_auxz00_4312,
									(int16_t) (0));
							}
						}
						break;
					case 2L:

						{	/* Llib/srfi4.scm 663 */
							obj_t BgL_initz00_1421;

							BgL_initz00_1421 = VECTOR_REF(BgL_opt1238z00_45, 1L);
							{	/* Llib/srfi4.scm 663 */

								{	/* Llib/srfi4.scm 663 */
									int16_t BgL_auxz00_4332;
									long BgL_auxz00_4323;

									{	/* Llib/srfi4.scm 663 */
										obj_t BgL_tmpz00_4333;

										if (BGL_INT16P(BgL_initz00_1421))
											{	/* Llib/srfi4.scm 663 */
												BgL_tmpz00_4333 = BgL_initz00_1421;
											}
										else
											{
												obj_t BgL_auxz00_4336;

												BgL_auxz00_4336 =
													BGl_typezd2errorzd2zz__errorz00
													(BGl_string2365z00zz__srfi4z00, BINT(27280L),
													BGl_string2391z00zz__srfi4z00,
													BGl_string2392z00zz__srfi4z00, BgL_initz00_1421);
												FAILURE(BgL_auxz00_4336, BFALSE, BFALSE);
											}
										BgL_auxz00_4332 = BGL_BINT16_TO_INT16(BgL_tmpz00_4333);
									}
									{	/* Llib/srfi4.scm 663 */
										obj_t BgL_tmpz00_4324;

										if (INTEGERP(BgL_g1240z00_1417))
											{	/* Llib/srfi4.scm 663 */
												BgL_tmpz00_4324 = BgL_g1240z00_1417;
											}
										else
											{
												obj_t BgL_auxz00_4327;

												BgL_auxz00_4327 =
													BGl_typezd2errorzd2zz__errorz00
													(BGl_string2365z00zz__srfi4z00, BINT(27280L),
													BGl_string2391z00zz__srfi4z00,
													BGl_string2387z00zz__srfi4z00, BgL_g1240z00_1417);
												FAILURE(BgL_auxz00_4327, BFALSE, BFALSE);
											}
										BgL_auxz00_4323 = (long) CINT(BgL_tmpz00_4324);
									}
									return
										BGl_makezd2s16vectorzd2zz__srfi4z00(BgL_auxz00_4323,
										BgL_auxz00_4332);
								}
							}
						}
						break;
					default:
						return BUNSPEC;
					}
			}
		}

	}



/* make-s16vector */
	BGL_EXPORTED_DEF obj_t BGl_makezd2s16vectorzd2zz__srfi4z00(long BgL_lenz00_43,
		int16_t BgL_initz00_44)
	{
		{	/* Llib/srfi4.scm 663 */
			{	/* Llib/srfi4.scm 663 */
				obj_t BgL_vz00_1422;

				{	/* Llib/srfi4.scm 663 */
					int32_t BgL_tmpz00_4344;

					BgL_tmpz00_4344 = (int32_t) (BgL_lenz00_43);
					BgL_vz00_1422 = BGL_ALLOC_S16VECTOR(BgL_tmpz00_4344);
				}
				{
					long BgL_iz00_2329;

					BgL_iz00_2329 = 0L;
				BgL_loopz00_2328:
					if ((BgL_iz00_2329 < BgL_lenz00_43))
						{	/* Llib/srfi4.scm 663 */
							BGL_S16VSET(BgL_vz00_1422, BgL_iz00_2329, BgL_initz00_44);
							BUNSPEC;
							{
								long BgL_iz00_4350;

								BgL_iz00_4350 = (BgL_iz00_2329 + 1L);
								BgL_iz00_2329 = BgL_iz00_4350;
								goto BgL_loopz00_2328;
							}
						}
					else
						{	/* Llib/srfi4.scm 663 */
							((bool_t) 0);
						}
				}
				return BgL_vz00_1422;
			}
		}

	}



/* _make-u16vector */
	obj_t BGl__makezd2u16vectorzd2zz__srfi4z00(obj_t BgL_env1244z00_50,
		obj_t BgL_opt1243z00_49)
	{
		{	/* Llib/srfi4.scm 664 */
			{	/* Llib/srfi4.scm 664 */
				obj_t BgL_g1245z00_1429;

				BgL_g1245z00_1429 = VECTOR_REF(BgL_opt1243z00_49, 0L);
				switch (VECTOR_LENGTH(BgL_opt1243z00_49))
					{
					case 1L:

						{	/* Llib/srfi4.scm 664 */

							{	/* Llib/srfi4.scm 664 */
								long BgL_auxz00_4353;

								{	/* Llib/srfi4.scm 664 */
									obj_t BgL_tmpz00_4354;

									if (INTEGERP(BgL_g1245z00_1429))
										{	/* Llib/srfi4.scm 664 */
											BgL_tmpz00_4354 = BgL_g1245z00_1429;
										}
									else
										{
											obj_t BgL_auxz00_4357;

											BgL_auxz00_4357 =
												BGl_typezd2errorzd2zz__errorz00
												(BGl_string2365z00zz__srfi4z00, BINT(27314L),
												BGl_string2393z00zz__srfi4z00,
												BGl_string2387z00zz__srfi4z00, BgL_g1245z00_1429);
											FAILURE(BgL_auxz00_4357, BFALSE, BFALSE);
										}
									BgL_auxz00_4353 = (long) CINT(BgL_tmpz00_4354);
								}
								return
									BGl_makezd2u16vectorzd2zz__srfi4z00(BgL_auxz00_4353,
									(uint16_t) (0));
							}
						}
						break;
					case 2L:

						{	/* Llib/srfi4.scm 664 */
							obj_t BgL_initz00_1433;

							BgL_initz00_1433 = VECTOR_REF(BgL_opt1243z00_49, 1L);
							{	/* Llib/srfi4.scm 664 */

								{	/* Llib/srfi4.scm 664 */
									uint16_t BgL_auxz00_4373;
									long BgL_auxz00_4364;

									{	/* Llib/srfi4.scm 664 */
										obj_t BgL_tmpz00_4374;

										if (BGL_UINT16P(BgL_initz00_1433))
											{	/* Llib/srfi4.scm 664 */
												BgL_tmpz00_4374 = BgL_initz00_1433;
											}
										else
											{
												obj_t BgL_auxz00_4377;

												BgL_auxz00_4377 =
													BGl_typezd2errorzd2zz__errorz00
													(BGl_string2365z00zz__srfi4z00, BINT(27314L),
													BGl_string2393z00zz__srfi4z00,
													BGl_string2394z00zz__srfi4z00, BgL_initz00_1433);
												FAILURE(BgL_auxz00_4377, BFALSE, BFALSE);
											}
										BgL_auxz00_4373 = BGL_BUINT16_TO_UINT16(BgL_tmpz00_4374);
									}
									{	/* Llib/srfi4.scm 664 */
										obj_t BgL_tmpz00_4365;

										if (INTEGERP(BgL_g1245z00_1429))
											{	/* Llib/srfi4.scm 664 */
												BgL_tmpz00_4365 = BgL_g1245z00_1429;
											}
										else
											{
												obj_t BgL_auxz00_4368;

												BgL_auxz00_4368 =
													BGl_typezd2errorzd2zz__errorz00
													(BGl_string2365z00zz__srfi4z00, BINT(27314L),
													BGl_string2393z00zz__srfi4z00,
													BGl_string2387z00zz__srfi4z00, BgL_g1245z00_1429);
												FAILURE(BgL_auxz00_4368, BFALSE, BFALSE);
											}
										BgL_auxz00_4364 = (long) CINT(BgL_tmpz00_4365);
									}
									return
										BGl_makezd2u16vectorzd2zz__srfi4z00(BgL_auxz00_4364,
										BgL_auxz00_4373);
								}
							}
						}
						break;
					default:
						return BUNSPEC;
					}
			}
		}

	}



/* make-u16vector */
	BGL_EXPORTED_DEF obj_t BGl_makezd2u16vectorzd2zz__srfi4z00(long BgL_lenz00_47,
		uint16_t BgL_initz00_48)
	{
		{	/* Llib/srfi4.scm 664 */
			{	/* Llib/srfi4.scm 664 */
				obj_t BgL_vz00_1434;

				{	/* Llib/srfi4.scm 664 */
					int32_t BgL_tmpz00_4385;

					BgL_tmpz00_4385 = (int32_t) (BgL_lenz00_47);
					BgL_vz00_1434 = BGL_ALLOC_U16VECTOR(BgL_tmpz00_4385);
				}
				{
					long BgL_iz00_2339;

					BgL_iz00_2339 = 0L;
				BgL_loopz00_2338:
					if ((BgL_iz00_2339 < BgL_lenz00_47))
						{	/* Llib/srfi4.scm 664 */
							BGL_U16VSET(BgL_vz00_1434, BgL_iz00_2339, BgL_initz00_48);
							BUNSPEC;
							{
								long BgL_iz00_4391;

								BgL_iz00_4391 = (BgL_iz00_2339 + 1L);
								BgL_iz00_2339 = BgL_iz00_4391;
								goto BgL_loopz00_2338;
							}
						}
					else
						{	/* Llib/srfi4.scm 664 */
							((bool_t) 0);
						}
				}
				return BgL_vz00_1434;
			}
		}

	}



/* _make-s32vector */
	obj_t BGl__makezd2s32vectorzd2zz__srfi4z00(obj_t BgL_env1249z00_54,
		obj_t BgL_opt1248z00_53)
	{
		{	/* Llib/srfi4.scm 665 */
			{	/* Llib/srfi4.scm 665 */
				obj_t BgL_g1250z00_1441;

				BgL_g1250z00_1441 = VECTOR_REF(BgL_opt1248z00_53, 0L);
				switch (VECTOR_LENGTH(BgL_opt1248z00_53))
					{
					case 1L:

						{	/* Llib/srfi4.scm 665 */

							{	/* Llib/srfi4.scm 665 */
								long BgL_auxz00_4394;

								{	/* Llib/srfi4.scm 665 */
									obj_t BgL_tmpz00_4395;

									if (INTEGERP(BgL_g1250z00_1441))
										{	/* Llib/srfi4.scm 665 */
											BgL_tmpz00_4395 = BgL_g1250z00_1441;
										}
									else
										{
											obj_t BgL_auxz00_4398;

											BgL_auxz00_4398 =
												BGl_typezd2errorzd2zz__errorz00
												(BGl_string2365z00zz__srfi4z00, BINT(27348L),
												BGl_string2395z00zz__srfi4z00,
												BGl_string2387z00zz__srfi4z00, BgL_g1250z00_1441);
											FAILURE(BgL_auxz00_4398, BFALSE, BFALSE);
										}
									BgL_auxz00_4394 = (long) CINT(BgL_tmpz00_4395);
								}
								return
									BGl_makezd2s32vectorzd2zz__srfi4z00(BgL_auxz00_4394,
									(int32_t) (0));
							}
						}
						break;
					case 2L:

						{	/* Llib/srfi4.scm 665 */
							obj_t BgL_initz00_1445;

							BgL_initz00_1445 = VECTOR_REF(BgL_opt1248z00_53, 1L);
							{	/* Llib/srfi4.scm 665 */

								{	/* Llib/srfi4.scm 665 */
									int32_t BgL_auxz00_4414;
									long BgL_auxz00_4405;

									{	/* Llib/srfi4.scm 665 */
										obj_t BgL_tmpz00_4415;

										if (BGL_INT32P(BgL_initz00_1445))
											{	/* Llib/srfi4.scm 665 */
												BgL_tmpz00_4415 = BgL_initz00_1445;
											}
										else
											{
												obj_t BgL_auxz00_4418;

												BgL_auxz00_4418 =
													BGl_typezd2errorzd2zz__errorz00
													(BGl_string2365z00zz__srfi4z00, BINT(27348L),
													BGl_string2395z00zz__srfi4z00,
													BGl_string2396z00zz__srfi4z00, BgL_initz00_1445);
												FAILURE(BgL_auxz00_4418, BFALSE, BFALSE);
											}
										BgL_auxz00_4414 = BGL_BINT32_TO_INT32(BgL_tmpz00_4415);
									}
									{	/* Llib/srfi4.scm 665 */
										obj_t BgL_tmpz00_4406;

										if (INTEGERP(BgL_g1250z00_1441))
											{	/* Llib/srfi4.scm 665 */
												BgL_tmpz00_4406 = BgL_g1250z00_1441;
											}
										else
											{
												obj_t BgL_auxz00_4409;

												BgL_auxz00_4409 =
													BGl_typezd2errorzd2zz__errorz00
													(BGl_string2365z00zz__srfi4z00, BINT(27348L),
													BGl_string2395z00zz__srfi4z00,
													BGl_string2387z00zz__srfi4z00, BgL_g1250z00_1441);
												FAILURE(BgL_auxz00_4409, BFALSE, BFALSE);
											}
										BgL_auxz00_4405 = (long) CINT(BgL_tmpz00_4406);
									}
									return
										BGl_makezd2s32vectorzd2zz__srfi4z00(BgL_auxz00_4405,
										BgL_auxz00_4414);
								}
							}
						}
						break;
					default:
						return BUNSPEC;
					}
			}
		}

	}



/* make-s32vector */
	BGL_EXPORTED_DEF obj_t BGl_makezd2s32vectorzd2zz__srfi4z00(long BgL_lenz00_51,
		int32_t BgL_initz00_52)
	{
		{	/* Llib/srfi4.scm 665 */
			{	/* Llib/srfi4.scm 665 */
				obj_t BgL_vz00_1446;

				{	/* Llib/srfi4.scm 665 */
					int32_t BgL_tmpz00_4426;

					BgL_tmpz00_4426 = (int32_t) (BgL_lenz00_51);
					BgL_vz00_1446 = BGL_ALLOC_S32VECTOR(BgL_tmpz00_4426);
				}
				{
					long BgL_iz00_2349;

					BgL_iz00_2349 = 0L;
				BgL_loopz00_2348:
					if ((BgL_iz00_2349 < BgL_lenz00_51))
						{	/* Llib/srfi4.scm 665 */
							BGL_S32VSET(BgL_vz00_1446, BgL_iz00_2349, BgL_initz00_52);
							BUNSPEC;
							{
								long BgL_iz00_4432;

								BgL_iz00_4432 = (BgL_iz00_2349 + 1L);
								BgL_iz00_2349 = BgL_iz00_4432;
								goto BgL_loopz00_2348;
							}
						}
					else
						{	/* Llib/srfi4.scm 665 */
							((bool_t) 0);
						}
				}
				return BgL_vz00_1446;
			}
		}

	}



/* _make-u32vector */
	obj_t BGl__makezd2u32vectorzd2zz__srfi4z00(obj_t BgL_env1254z00_58,
		obj_t BgL_opt1253z00_57)
	{
		{	/* Llib/srfi4.scm 666 */
			{	/* Llib/srfi4.scm 666 */
				obj_t BgL_g1255z00_1453;

				BgL_g1255z00_1453 = VECTOR_REF(BgL_opt1253z00_57, 0L);
				switch (VECTOR_LENGTH(BgL_opt1253z00_57))
					{
					case 1L:

						{	/* Llib/srfi4.scm 666 */

							{	/* Llib/srfi4.scm 666 */
								long BgL_auxz00_4435;

								{	/* Llib/srfi4.scm 666 */
									obj_t BgL_tmpz00_4436;

									if (INTEGERP(BgL_g1255z00_1453))
										{	/* Llib/srfi4.scm 666 */
											BgL_tmpz00_4436 = BgL_g1255z00_1453;
										}
									else
										{
											obj_t BgL_auxz00_4439;

											BgL_auxz00_4439 =
												BGl_typezd2errorzd2zz__errorz00
												(BGl_string2365z00zz__srfi4z00, BINT(27382L),
												BGl_string2397z00zz__srfi4z00,
												BGl_string2387z00zz__srfi4z00, BgL_g1255z00_1453);
											FAILURE(BgL_auxz00_4439, BFALSE, BFALSE);
										}
									BgL_auxz00_4435 = (long) CINT(BgL_tmpz00_4436);
								}
								return
									BGl_makezd2u32vectorzd2zz__srfi4z00(BgL_auxz00_4435,
									(uint32_t) (0));
							}
						}
						break;
					case 2L:

						{	/* Llib/srfi4.scm 666 */
							obj_t BgL_initz00_1457;

							BgL_initz00_1457 = VECTOR_REF(BgL_opt1253z00_57, 1L);
							{	/* Llib/srfi4.scm 666 */

								{	/* Llib/srfi4.scm 666 */
									uint32_t BgL_auxz00_4455;
									long BgL_auxz00_4446;

									{	/* Llib/srfi4.scm 666 */
										obj_t BgL_tmpz00_4456;

										if (BGL_UINT32P(BgL_initz00_1457))
											{	/* Llib/srfi4.scm 666 */
												BgL_tmpz00_4456 = BgL_initz00_1457;
											}
										else
											{
												obj_t BgL_auxz00_4459;

												BgL_auxz00_4459 =
													BGl_typezd2errorzd2zz__errorz00
													(BGl_string2365z00zz__srfi4z00, BINT(27382L),
													BGl_string2397z00zz__srfi4z00,
													BGl_string2398z00zz__srfi4z00, BgL_initz00_1457);
												FAILURE(BgL_auxz00_4459, BFALSE, BFALSE);
											}
										BgL_auxz00_4455 = BGL_BUINT32_TO_UINT32(BgL_tmpz00_4456);
									}
									{	/* Llib/srfi4.scm 666 */
										obj_t BgL_tmpz00_4447;

										if (INTEGERP(BgL_g1255z00_1453))
											{	/* Llib/srfi4.scm 666 */
												BgL_tmpz00_4447 = BgL_g1255z00_1453;
											}
										else
											{
												obj_t BgL_auxz00_4450;

												BgL_auxz00_4450 =
													BGl_typezd2errorzd2zz__errorz00
													(BGl_string2365z00zz__srfi4z00, BINT(27382L),
													BGl_string2397z00zz__srfi4z00,
													BGl_string2387z00zz__srfi4z00, BgL_g1255z00_1453);
												FAILURE(BgL_auxz00_4450, BFALSE, BFALSE);
											}
										BgL_auxz00_4446 = (long) CINT(BgL_tmpz00_4447);
									}
									return
										BGl_makezd2u32vectorzd2zz__srfi4z00(BgL_auxz00_4446,
										BgL_auxz00_4455);
								}
							}
						}
						break;
					default:
						return BUNSPEC;
					}
			}
		}

	}



/* make-u32vector */
	BGL_EXPORTED_DEF obj_t BGl_makezd2u32vectorzd2zz__srfi4z00(long BgL_lenz00_55,
		uint32_t BgL_initz00_56)
	{
		{	/* Llib/srfi4.scm 666 */
			{	/* Llib/srfi4.scm 666 */
				obj_t BgL_vz00_1458;

				{	/* Llib/srfi4.scm 666 */
					int32_t BgL_tmpz00_4467;

					BgL_tmpz00_4467 = (int32_t) (BgL_lenz00_55);
					BgL_vz00_1458 = BGL_ALLOC_U32VECTOR(BgL_tmpz00_4467);
				}
				{
					long BgL_iz00_2359;

					BgL_iz00_2359 = 0L;
				BgL_loopz00_2358:
					if ((BgL_iz00_2359 < BgL_lenz00_55))
						{	/* Llib/srfi4.scm 666 */
							BGL_U32VSET(BgL_vz00_1458, BgL_iz00_2359, BgL_initz00_56);
							BUNSPEC;
							{
								long BgL_iz00_4473;

								BgL_iz00_4473 = (BgL_iz00_2359 + 1L);
								BgL_iz00_2359 = BgL_iz00_4473;
								goto BgL_loopz00_2358;
							}
						}
					else
						{	/* Llib/srfi4.scm 666 */
							((bool_t) 0);
						}
				}
				return BgL_vz00_1458;
			}
		}

	}



/* _make-s64vector */
	obj_t BGl__makezd2s64vectorzd2zz__srfi4z00(obj_t BgL_env1259z00_62,
		obj_t BgL_opt1258z00_61)
	{
		{	/* Llib/srfi4.scm 667 */
			{	/* Llib/srfi4.scm 667 */
				obj_t BgL_g1260z00_1465;

				BgL_g1260z00_1465 = VECTOR_REF(BgL_opt1258z00_61, 0L);
				switch (VECTOR_LENGTH(BgL_opt1258z00_61))
					{
					case 1L:

						{	/* Llib/srfi4.scm 667 */

							{	/* Llib/srfi4.scm 667 */
								long BgL_auxz00_4476;

								{	/* Llib/srfi4.scm 667 */
									obj_t BgL_tmpz00_4477;

									if (INTEGERP(BgL_g1260z00_1465))
										{	/* Llib/srfi4.scm 667 */
											BgL_tmpz00_4477 = BgL_g1260z00_1465;
										}
									else
										{
											obj_t BgL_auxz00_4480;

											BgL_auxz00_4480 =
												BGl_typezd2errorzd2zz__errorz00
												(BGl_string2365z00zz__srfi4z00, BINT(27416L),
												BGl_string2399z00zz__srfi4z00,
												BGl_string2387z00zz__srfi4z00, BgL_g1260z00_1465);
											FAILURE(BgL_auxz00_4480, BFALSE, BFALSE);
										}
									BgL_auxz00_4476 = (long) CINT(BgL_tmpz00_4477);
								}
								return
									BGl_makezd2s64vectorzd2zz__srfi4z00(BgL_auxz00_4476,
									(int64_t) (0));
							}
						}
						break;
					case 2L:

						{	/* Llib/srfi4.scm 667 */
							obj_t BgL_initz00_1469;

							BgL_initz00_1469 = VECTOR_REF(BgL_opt1258z00_61, 1L);
							{	/* Llib/srfi4.scm 667 */

								{	/* Llib/srfi4.scm 667 */
									int64_t BgL_auxz00_4496;
									long BgL_auxz00_4487;

									{	/* Llib/srfi4.scm 667 */
										obj_t BgL_tmpz00_4497;

										if (BGL_INT64P(BgL_initz00_1469))
											{	/* Llib/srfi4.scm 667 */
												BgL_tmpz00_4497 = BgL_initz00_1469;
											}
										else
											{
												obj_t BgL_auxz00_4500;

												BgL_auxz00_4500 =
													BGl_typezd2errorzd2zz__errorz00
													(BGl_string2365z00zz__srfi4z00, BINT(27416L),
													BGl_string2399z00zz__srfi4z00,
													BGl_string2400z00zz__srfi4z00, BgL_initz00_1469);
												FAILURE(BgL_auxz00_4500, BFALSE, BFALSE);
											}
										BgL_auxz00_4496 = BGL_BINT64_TO_INT64(BgL_tmpz00_4497);
									}
									{	/* Llib/srfi4.scm 667 */
										obj_t BgL_tmpz00_4488;

										if (INTEGERP(BgL_g1260z00_1465))
											{	/* Llib/srfi4.scm 667 */
												BgL_tmpz00_4488 = BgL_g1260z00_1465;
											}
										else
											{
												obj_t BgL_auxz00_4491;

												BgL_auxz00_4491 =
													BGl_typezd2errorzd2zz__errorz00
													(BGl_string2365z00zz__srfi4z00, BINT(27416L),
													BGl_string2399z00zz__srfi4z00,
													BGl_string2387z00zz__srfi4z00, BgL_g1260z00_1465);
												FAILURE(BgL_auxz00_4491, BFALSE, BFALSE);
											}
										BgL_auxz00_4487 = (long) CINT(BgL_tmpz00_4488);
									}
									return
										BGl_makezd2s64vectorzd2zz__srfi4z00(BgL_auxz00_4487,
										BgL_auxz00_4496);
								}
							}
						}
						break;
					default:
						return BUNSPEC;
					}
			}
		}

	}



/* make-s64vector */
	BGL_EXPORTED_DEF obj_t BGl_makezd2s64vectorzd2zz__srfi4z00(long BgL_lenz00_59,
		int64_t BgL_initz00_60)
	{
		{	/* Llib/srfi4.scm 667 */
			{	/* Llib/srfi4.scm 667 */
				obj_t BgL_vz00_1470;

				{	/* Llib/srfi4.scm 667 */
					int32_t BgL_tmpz00_4508;

					BgL_tmpz00_4508 = (int32_t) (BgL_lenz00_59);
					BgL_vz00_1470 = BGL_ALLOC_S64VECTOR(BgL_tmpz00_4508);
				}
				{
					long BgL_iz00_2369;

					BgL_iz00_2369 = 0L;
				BgL_loopz00_2368:
					if ((BgL_iz00_2369 < BgL_lenz00_59))
						{	/* Llib/srfi4.scm 667 */
							BGL_S64VSET(BgL_vz00_1470, BgL_iz00_2369, BgL_initz00_60);
							BUNSPEC;
							{
								long BgL_iz00_4514;

								BgL_iz00_4514 = (BgL_iz00_2369 + 1L);
								BgL_iz00_2369 = BgL_iz00_4514;
								goto BgL_loopz00_2368;
							}
						}
					else
						{	/* Llib/srfi4.scm 667 */
							((bool_t) 0);
						}
				}
				return BgL_vz00_1470;
			}
		}

	}



/* _make-u64vector */
	obj_t BGl__makezd2u64vectorzd2zz__srfi4z00(obj_t BgL_env1264z00_66,
		obj_t BgL_opt1263z00_65)
	{
		{	/* Llib/srfi4.scm 668 */
			{	/* Llib/srfi4.scm 668 */
				obj_t BgL_g1265z00_1477;

				BgL_g1265z00_1477 = VECTOR_REF(BgL_opt1263z00_65, 0L);
				switch (VECTOR_LENGTH(BgL_opt1263z00_65))
					{
					case 1L:

						{	/* Llib/srfi4.scm 668 */

							{	/* Llib/srfi4.scm 668 */
								long BgL_auxz00_4517;

								{	/* Llib/srfi4.scm 668 */
									obj_t BgL_tmpz00_4518;

									if (INTEGERP(BgL_g1265z00_1477))
										{	/* Llib/srfi4.scm 668 */
											BgL_tmpz00_4518 = BgL_g1265z00_1477;
										}
									else
										{
											obj_t BgL_auxz00_4521;

											BgL_auxz00_4521 =
												BGl_typezd2errorzd2zz__errorz00
												(BGl_string2365z00zz__srfi4z00, BINT(27450L),
												BGl_string2401z00zz__srfi4z00,
												BGl_string2387z00zz__srfi4z00, BgL_g1265z00_1477);
											FAILURE(BgL_auxz00_4521, BFALSE, BFALSE);
										}
									BgL_auxz00_4517 = (long) CINT(BgL_tmpz00_4518);
								}
								return
									BGl_makezd2u64vectorzd2zz__srfi4z00(BgL_auxz00_4517,
									(uint64_t) (0));
							}
						}
						break;
					case 2L:

						{	/* Llib/srfi4.scm 668 */
							obj_t BgL_initz00_1481;

							BgL_initz00_1481 = VECTOR_REF(BgL_opt1263z00_65, 1L);
							{	/* Llib/srfi4.scm 668 */

								{	/* Llib/srfi4.scm 668 */
									uint64_t BgL_auxz00_4537;
									long BgL_auxz00_4528;

									{	/* Llib/srfi4.scm 668 */
										obj_t BgL_tmpz00_4538;

										if (BGL_UINT64P(BgL_initz00_1481))
											{	/* Llib/srfi4.scm 668 */
												BgL_tmpz00_4538 = BgL_initz00_1481;
											}
										else
											{
												obj_t BgL_auxz00_4541;

												BgL_auxz00_4541 =
													BGl_typezd2errorzd2zz__errorz00
													(BGl_string2365z00zz__srfi4z00, BINT(27450L),
													BGl_string2401z00zz__srfi4z00,
													BGl_string2402z00zz__srfi4z00, BgL_initz00_1481);
												FAILURE(BgL_auxz00_4541, BFALSE, BFALSE);
											}
										BgL_auxz00_4537 = BGL_BINT64_TO_INT64(BgL_tmpz00_4538);
									}
									{	/* Llib/srfi4.scm 668 */
										obj_t BgL_tmpz00_4529;

										if (INTEGERP(BgL_g1265z00_1477))
											{	/* Llib/srfi4.scm 668 */
												BgL_tmpz00_4529 = BgL_g1265z00_1477;
											}
										else
											{
												obj_t BgL_auxz00_4532;

												BgL_auxz00_4532 =
													BGl_typezd2errorzd2zz__errorz00
													(BGl_string2365z00zz__srfi4z00, BINT(27450L),
													BGl_string2401z00zz__srfi4z00,
													BGl_string2387z00zz__srfi4z00, BgL_g1265z00_1477);
												FAILURE(BgL_auxz00_4532, BFALSE, BFALSE);
											}
										BgL_auxz00_4528 = (long) CINT(BgL_tmpz00_4529);
									}
									return
										BGl_makezd2u64vectorzd2zz__srfi4z00(BgL_auxz00_4528,
										BgL_auxz00_4537);
								}
							}
						}
						break;
					default:
						return BUNSPEC;
					}
			}
		}

	}



/* make-u64vector */
	BGL_EXPORTED_DEF obj_t BGl_makezd2u64vectorzd2zz__srfi4z00(long BgL_lenz00_63,
		uint64_t BgL_initz00_64)
	{
		{	/* Llib/srfi4.scm 668 */
			{	/* Llib/srfi4.scm 668 */
				obj_t BgL_vz00_1482;

				{	/* Llib/srfi4.scm 668 */
					int32_t BgL_tmpz00_4549;

					BgL_tmpz00_4549 = (int32_t) (BgL_lenz00_63);
					BgL_vz00_1482 = BGL_ALLOC_U64VECTOR(BgL_tmpz00_4549);
				}
				{
					long BgL_iz00_2379;

					BgL_iz00_2379 = 0L;
				BgL_loopz00_2378:
					if ((BgL_iz00_2379 < BgL_lenz00_63))
						{	/* Llib/srfi4.scm 668 */
							BGL_U64VSET(BgL_vz00_1482, BgL_iz00_2379, BgL_initz00_64);
							BUNSPEC;
							{
								long BgL_iz00_4555;

								BgL_iz00_4555 = (BgL_iz00_2379 + 1L);
								BgL_iz00_2379 = BgL_iz00_4555;
								goto BgL_loopz00_2378;
							}
						}
					else
						{	/* Llib/srfi4.scm 668 */
							((bool_t) 0);
						}
				}
				return BgL_vz00_1482;
			}
		}

	}



/* _make-f32vector */
	obj_t BGl__makezd2f32vectorzd2zz__srfi4z00(obj_t BgL_env1269z00_70,
		obj_t BgL_opt1268z00_69)
	{
		{	/* Llib/srfi4.scm 669 */
			{	/* Llib/srfi4.scm 669 */
				obj_t BgL_g1270z00_1489;

				BgL_g1270z00_1489 = VECTOR_REF(BgL_opt1268z00_69, 0L);
				switch (VECTOR_LENGTH(BgL_opt1268z00_69))
					{
					case 1L:

						{	/* Llib/srfi4.scm 669 */

							{	/* Llib/srfi4.scm 669 */
								long BgL_auxz00_4558;

								{	/* Llib/srfi4.scm 669 */
									obj_t BgL_tmpz00_4559;

									if (INTEGERP(BgL_g1270z00_1489))
										{	/* Llib/srfi4.scm 669 */
											BgL_tmpz00_4559 = BgL_g1270z00_1489;
										}
									else
										{
											obj_t BgL_auxz00_4562;

											BgL_auxz00_4562 =
												BGl_typezd2errorzd2zz__errorz00
												(BGl_string2365z00zz__srfi4z00, BINT(27484L),
												BGl_string2403z00zz__srfi4z00,
												BGl_string2387z00zz__srfi4z00, BgL_g1270z00_1489);
											FAILURE(BgL_auxz00_4562, BFALSE, BFALSE);
										}
									BgL_auxz00_4558 = (long) CINT(BgL_tmpz00_4559);
								}
								return
									BGl_makezd2f32vectorzd2zz__srfi4z00(BgL_auxz00_4558,
									(float) (((double) 0.0)));
						}} break;
					case 2L:

						{	/* Llib/srfi4.scm 669 */
							obj_t BgL_initz00_1493;

							BgL_initz00_1493 = VECTOR_REF(BgL_opt1268z00_69, 1L);
							{	/* Llib/srfi4.scm 669 */

								{	/* Llib/srfi4.scm 669 */
									float BgL_auxz00_4579;
									long BgL_auxz00_4570;

									{	/* Llib/srfi4.scm 669 */
										obj_t BgL_tmpz00_4580;

										if (REALP(BgL_initz00_1493))
											{	/* Llib/srfi4.scm 669 */
												BgL_tmpz00_4580 = BgL_initz00_1493;
											}
										else
											{
												obj_t BgL_auxz00_4583;

												BgL_auxz00_4583 =
													BGl_typezd2errorzd2zz__errorz00
													(BGl_string2365z00zz__srfi4z00, BINT(27484L),
													BGl_string2403z00zz__srfi4z00,
													BGl_string2404z00zz__srfi4z00, BgL_initz00_1493);
												FAILURE(BgL_auxz00_4583, BFALSE, BFALSE);
											}
										BgL_auxz00_4579 = REAL_TO_FLOAT(BgL_tmpz00_4580);
									}
									{	/* Llib/srfi4.scm 669 */
										obj_t BgL_tmpz00_4571;

										if (INTEGERP(BgL_g1270z00_1489))
											{	/* Llib/srfi4.scm 669 */
												BgL_tmpz00_4571 = BgL_g1270z00_1489;
											}
										else
											{
												obj_t BgL_auxz00_4574;

												BgL_auxz00_4574 =
													BGl_typezd2errorzd2zz__errorz00
													(BGl_string2365z00zz__srfi4z00, BINT(27484L),
													BGl_string2403z00zz__srfi4z00,
													BGl_string2387z00zz__srfi4z00, BgL_g1270z00_1489);
												FAILURE(BgL_auxz00_4574, BFALSE, BFALSE);
											}
										BgL_auxz00_4570 = (long) CINT(BgL_tmpz00_4571);
									}
									return
										BGl_makezd2f32vectorzd2zz__srfi4z00(BgL_auxz00_4570,
										BgL_auxz00_4579);
								}
							}
						}
						break;
					default:
						return BUNSPEC;
					}
			}
		}

	}



/* make-f32vector */
	BGL_EXPORTED_DEF obj_t BGl_makezd2f32vectorzd2zz__srfi4z00(long BgL_lenz00_67,
		float BgL_initz00_68)
	{
		{	/* Llib/srfi4.scm 669 */
			{	/* Llib/srfi4.scm 669 */
				obj_t BgL_vz00_1494;

				{	/* Llib/srfi4.scm 669 */
					int32_t BgL_tmpz00_4591;

					BgL_tmpz00_4591 = (int32_t) (BgL_lenz00_67);
					BgL_vz00_1494 = BGL_ALLOC_F32VECTOR(BgL_tmpz00_4591);
				}
				{
					long BgL_iz00_2389;

					BgL_iz00_2389 = 0L;
				BgL_loopz00_2388:
					if ((BgL_iz00_2389 < BgL_lenz00_67))
						{	/* Llib/srfi4.scm 669 */
							BGL_F32VSET(BgL_vz00_1494, BgL_iz00_2389, BgL_initz00_68);
							BUNSPEC;
							{
								long BgL_iz00_4597;

								BgL_iz00_4597 = (BgL_iz00_2389 + 1L);
								BgL_iz00_2389 = BgL_iz00_4597;
								goto BgL_loopz00_2388;
							}
						}
					else
						{	/* Llib/srfi4.scm 669 */
							((bool_t) 0);
						}
				}
				return BgL_vz00_1494;
			}
		}

	}



/* _make-f64vector */
	obj_t BGl__makezd2f64vectorzd2zz__srfi4z00(obj_t BgL_env1274z00_74,
		obj_t BgL_opt1273z00_73)
	{
		{	/* Llib/srfi4.scm 670 */
			{	/* Llib/srfi4.scm 670 */
				obj_t BgL_g1275z00_1501;

				BgL_g1275z00_1501 = VECTOR_REF(BgL_opt1273z00_73, 0L);
				switch (VECTOR_LENGTH(BgL_opt1273z00_73))
					{
					case 1L:

						{	/* Llib/srfi4.scm 670 */

							{	/* Llib/srfi4.scm 670 */
								long BgL_auxz00_4600;

								{	/* Llib/srfi4.scm 670 */
									obj_t BgL_tmpz00_4601;

									if (INTEGERP(BgL_g1275z00_1501))
										{	/* Llib/srfi4.scm 670 */
											BgL_tmpz00_4601 = BgL_g1275z00_1501;
										}
									else
										{
											obj_t BgL_auxz00_4604;

											BgL_auxz00_4604 =
												BGl_typezd2errorzd2zz__errorz00
												(BGl_string2365z00zz__srfi4z00, BINT(27515L),
												BGl_string2405z00zz__srfi4z00,
												BGl_string2387z00zz__srfi4z00, BgL_g1275z00_1501);
											FAILURE(BgL_auxz00_4604, BFALSE, BFALSE);
										}
									BgL_auxz00_4600 = (long) CINT(BgL_tmpz00_4601);
								}
								return
									BGl_makezd2f64vectorzd2zz__srfi4z00(BgL_auxz00_4600,
									((double) 0.0));
						}} break;
					case 2L:

						{	/* Llib/srfi4.scm 670 */
							obj_t BgL_initz00_1505;

							BgL_initz00_1505 = VECTOR_REF(BgL_opt1273z00_73, 1L);
							{	/* Llib/srfi4.scm 670 */

								{	/* Llib/srfi4.scm 670 */
									double BgL_auxz00_4620;
									long BgL_auxz00_4611;

									{	/* Llib/srfi4.scm 670 */
										obj_t BgL_tmpz00_4621;

										if (REALP(BgL_initz00_1505))
											{	/* Llib/srfi4.scm 670 */
												BgL_tmpz00_4621 = BgL_initz00_1505;
											}
										else
											{
												obj_t BgL_auxz00_4624;

												BgL_auxz00_4624 =
													BGl_typezd2errorzd2zz__errorz00
													(BGl_string2365z00zz__srfi4z00, BINT(27515L),
													BGl_string2405z00zz__srfi4z00,
													BGl_string2404z00zz__srfi4z00, BgL_initz00_1505);
												FAILURE(BgL_auxz00_4624, BFALSE, BFALSE);
											}
										BgL_auxz00_4620 = REAL_TO_DOUBLE(BgL_tmpz00_4621);
									}
									{	/* Llib/srfi4.scm 670 */
										obj_t BgL_tmpz00_4612;

										if (INTEGERP(BgL_g1275z00_1501))
											{	/* Llib/srfi4.scm 670 */
												BgL_tmpz00_4612 = BgL_g1275z00_1501;
											}
										else
											{
												obj_t BgL_auxz00_4615;

												BgL_auxz00_4615 =
													BGl_typezd2errorzd2zz__errorz00
													(BGl_string2365z00zz__srfi4z00, BINT(27515L),
													BGl_string2405z00zz__srfi4z00,
													BGl_string2387z00zz__srfi4z00, BgL_g1275z00_1501);
												FAILURE(BgL_auxz00_4615, BFALSE, BFALSE);
											}
										BgL_auxz00_4611 = (long) CINT(BgL_tmpz00_4612);
									}
									return
										BGl_makezd2f64vectorzd2zz__srfi4z00(BgL_auxz00_4611,
										BgL_auxz00_4620);
								}
							}
						}
						break;
					default:
						return BUNSPEC;
					}
			}
		}

	}



/* make-f64vector */
	BGL_EXPORTED_DEF obj_t BGl_makezd2f64vectorzd2zz__srfi4z00(long BgL_lenz00_71,
		double BgL_initz00_72)
	{
		{	/* Llib/srfi4.scm 670 */
			{	/* Llib/srfi4.scm 670 */
				obj_t BgL_vz00_1506;

				{	/* Llib/srfi4.scm 670 */
					int32_t BgL_tmpz00_4632;

					BgL_tmpz00_4632 = (int32_t) (BgL_lenz00_71);
					BgL_vz00_1506 = BGL_ALLOC_F64VECTOR(BgL_tmpz00_4632);
				}
				{
					long BgL_iz00_2399;

					BgL_iz00_2399 = 0L;
				BgL_loopz00_2398:
					if ((BgL_iz00_2399 < BgL_lenz00_71))
						{	/* Llib/srfi4.scm 670 */
							BGL_F64VSET(BgL_vz00_1506, BgL_iz00_2399, BgL_initz00_72);
							BUNSPEC;
							{
								long BgL_iz00_4638;

								BgL_iz00_4638 = (BgL_iz00_2399 + 1L);
								BgL_iz00_2399 = BgL_iz00_4638;
								goto BgL_loopz00_2398;
							}
						}
					else
						{	/* Llib/srfi4.scm 670 */
							((bool_t) 0);
						}
				}
				return BgL_vz00_1506;
			}
		}

	}



/* hvector-range-error */
	BGL_EXPORTED_DEF obj_t BGl_hvectorzd2rangezd2errorz00zz__srfi4z00(obj_t
		BgL_funz00_75, obj_t BgL_vz00_76, long BgL_kz00_77)
	{
		{	/* Llib/srfi4.scm 675 */
			{	/* Llib/srfi4.scm 678 */
				obj_t BgL_arg1419z00_2405;

				{	/* Llib/srfi4.scm 678 */
					obj_t BgL_arg1420z00_2406;

					{	/* Llib/srfi4.scm 678 */
						long BgL_arg1421z00_2407;

						{	/* Llib/srfi4.scm 678 */
							long BgL_arg1423z00_2408;

							BgL_arg1423z00_2408 = BGL_HVECTOR_LENGTH(BgL_vz00_76);
							BgL_arg1421z00_2407 = (BgL_arg1423z00_2408 - 1L);
						}
						{	/* Llib/srfi4.scm 678 */

							BgL_arg1420z00_2406 =
								BGl_integerzd2ze3stringz31zz__r4_numbers_6_5_fixnumz00
								(BgL_arg1421z00_2407, 10L);
					}}
					BgL_arg1419z00_2405 =
						string_append_3(BGl_string2406z00zz__srfi4z00, BgL_arg1420z00_2406,
						BGl_string2407z00zz__srfi4z00);
				}
				return
					BGl_errorz00zz__errorz00(BgL_funz00_75, BgL_arg1419z00_2405,
					BINT(BgL_kz00_77));
			}
		}

	}



/* &hvector-range-error */
	obj_t BGl_z62hvectorzd2rangezd2errorz62zz__srfi4z00(obj_t BgL_envz00_3369,
		obj_t BgL_funz00_3370, obj_t BgL_vz00_3371, obj_t BgL_kz00_3372)
	{
		{	/* Llib/srfi4.scm 675 */
			{	/* Llib/srfi4.scm 678 */
				long BgL_auxz00_4653;
				obj_t BgL_auxz00_4646;

				{	/* Llib/srfi4.scm 678 */
					obj_t BgL_tmpz00_4654;

					if (INTEGERP(BgL_kz00_3372))
						{	/* Llib/srfi4.scm 678 */
							BgL_tmpz00_4654 = BgL_kz00_3372;
						}
					else
						{
							obj_t BgL_auxz00_4657;

							BgL_auxz00_4657 =
								BGl_typezd2errorzd2zz__errorz00(BGl_string2365z00zz__srfi4z00,
								BINT(27892L), BGl_string2408z00zz__srfi4z00,
								BGl_string2387z00zz__srfi4z00, BgL_kz00_3372);
							FAILURE(BgL_auxz00_4657, BFALSE, BFALSE);
						}
					BgL_auxz00_4653 = (long) CINT(BgL_tmpz00_4654);
				}
				if (STRINGP(BgL_funz00_3370))
					{	/* Llib/srfi4.scm 678 */
						BgL_auxz00_4646 = BgL_funz00_3370;
					}
				else
					{
						obj_t BgL_auxz00_4649;

						BgL_auxz00_4649 =
							BGl_typezd2errorzd2zz__errorz00(BGl_string2365z00zz__srfi4z00,
							BINT(27892L), BGl_string2408z00zz__srfi4z00,
							BGl_string2409z00zz__srfi4z00, BgL_funz00_3370);
						FAILURE(BgL_auxz00_4649, BFALSE, BFALSE);
					}
				return
					BGl_hvectorzd2rangezd2errorz00zz__srfi4z00(BgL_auxz00_4646,
					BgL_vz00_3371, BgL_auxz00_4653);
			}
		}

	}



/* s8vector-ref */
	BGL_EXPORTED_DEF int8_t BGl_s8vectorzd2refzd2zz__srfi4z00(obj_t BgL_vz00_78,
		long BgL_kz00_79)
	{
		{	/* Llib/srfi4.scm 685 */
			return BGL_S8VREF(BgL_vz00_78, BgL_kz00_79);
		}

	}



/* &s8vector-ref */
	obj_t BGl_z62s8vectorzd2refzb0zz__srfi4z00(obj_t BgL_envz00_3232,
		obj_t BgL_vz00_3233, obj_t BgL_kz00_3234)
	{
		{	/* Llib/srfi4.scm 685 */
			{	/* Llib/srfi4.scm 686 */
				int8_t BgL_tmpz00_4664;

				{	/* Llib/srfi4.scm 686 */
					obj_t BgL_vz00_3816;
					long BgL_kz00_3817;

					if (BGL_S8VECTORP(BgL_vz00_3233))
						{	/* Llib/srfi4.scm 686 */
							BgL_vz00_3816 = BgL_vz00_3233;
						}
					else
						{
							obj_t BgL_auxz00_4667;

							BgL_auxz00_4667 =
								BGl_typezd2errorzd2zz__errorz00(BGl_string2365z00zz__srfi4z00,
								BINT(28196L), BGl_string2410z00zz__srfi4z00,
								BGl_string2367z00zz__srfi4z00, BgL_vz00_3233);
							FAILURE(BgL_auxz00_4667, BFALSE, BFALSE);
						}
					{	/* Llib/srfi4.scm 686 */
						obj_t BgL_tmpz00_4671;

						if (INTEGERP(BgL_kz00_3234))
							{	/* Llib/srfi4.scm 686 */
								BgL_tmpz00_4671 = BgL_kz00_3234;
							}
						else
							{
								obj_t BgL_auxz00_4674;

								BgL_auxz00_4674 =
									BGl_typezd2errorzd2zz__errorz00(BGl_string2365z00zz__srfi4z00,
									BINT(28196L), BGl_string2410z00zz__srfi4z00,
									BGl_string2387z00zz__srfi4z00, BgL_kz00_3234);
								FAILURE(BgL_auxz00_4674, BFALSE, BFALSE);
							}
						BgL_kz00_3817 = (long) CINT(BgL_tmpz00_4671);
					}
					BgL_tmpz00_4664 = BGL_S8VREF(BgL_vz00_3816, BgL_kz00_3817);
				}
				return BGL_INT8_TO_BINT8(BgL_tmpz00_4664);
			}
		}

	}



/* u8vector-ref */
	BGL_EXPORTED_DEF uint8_t BGl_u8vectorzd2refzd2zz__srfi4z00(obj_t BgL_vz00_80,
		long BgL_kz00_81)
	{
		{	/* Llib/srfi4.scm 688 */
			return BGL_U8VREF(BgL_vz00_80, BgL_kz00_81);
		}

	}



/* &u8vector-ref */
	obj_t BGl_z62u8vectorzd2refzb0zz__srfi4z00(obj_t BgL_envz00_3242,
		obj_t BgL_vz00_3243, obj_t BgL_kz00_3244)
	{
		{	/* Llib/srfi4.scm 688 */
			{	/* Llib/srfi4.scm 689 */
				uint8_t BgL_tmpz00_4682;

				{	/* Llib/srfi4.scm 689 */
					obj_t BgL_vz00_3818;
					long BgL_kz00_3819;

					if (BGL_U8VECTORP(BgL_vz00_3243))
						{	/* Llib/srfi4.scm 689 */
							BgL_vz00_3818 = BgL_vz00_3243;
						}
					else
						{
							obj_t BgL_auxz00_4685;

							BgL_auxz00_4685 =
								BGl_typezd2errorzd2zz__errorz00(BGl_string2365z00zz__srfi4z00,
								BINT(28255L), BGl_string2411z00zz__srfi4z00,
								BGl_string2369z00zz__srfi4z00, BgL_vz00_3243);
							FAILURE(BgL_auxz00_4685, BFALSE, BFALSE);
						}
					{	/* Llib/srfi4.scm 689 */
						obj_t BgL_tmpz00_4689;

						if (INTEGERP(BgL_kz00_3244))
							{	/* Llib/srfi4.scm 689 */
								BgL_tmpz00_4689 = BgL_kz00_3244;
							}
						else
							{
								obj_t BgL_auxz00_4692;

								BgL_auxz00_4692 =
									BGl_typezd2errorzd2zz__errorz00(BGl_string2365z00zz__srfi4z00,
									BINT(28255L), BGl_string2411z00zz__srfi4z00,
									BGl_string2387z00zz__srfi4z00, BgL_kz00_3244);
								FAILURE(BgL_auxz00_4692, BFALSE, BFALSE);
							}
						BgL_kz00_3819 = (long) CINT(BgL_tmpz00_4689);
					}
					BgL_tmpz00_4682 = BGL_U8VREF(BgL_vz00_3818, BgL_kz00_3819);
				}
				return BGL_UINT8_TO_BUINT8(BgL_tmpz00_4682);
			}
		}

	}



/* s16vector-ref */
	BGL_EXPORTED_DEF int16_t BGl_s16vectorzd2refzd2zz__srfi4z00(obj_t BgL_vz00_82,
		long BgL_kz00_83)
	{
		{	/* Llib/srfi4.scm 691 */
			return BGL_S16VREF(BgL_vz00_82, BgL_kz00_83);
		}

	}



/* &s16vector-ref */
	obj_t BGl_z62s16vectorzd2refzb0zz__srfi4z00(obj_t BgL_envz00_3252,
		obj_t BgL_vz00_3253, obj_t BgL_kz00_3254)
	{
		{	/* Llib/srfi4.scm 691 */
			{	/* Llib/srfi4.scm 692 */
				int16_t BgL_tmpz00_4700;

				{	/* Llib/srfi4.scm 692 */
					obj_t BgL_vz00_3820;
					long BgL_kz00_3821;

					if (BGL_S16VECTORP(BgL_vz00_3253))
						{	/* Llib/srfi4.scm 692 */
							BgL_vz00_3820 = BgL_vz00_3253;
						}
					else
						{
							obj_t BgL_auxz00_4703;

							BgL_auxz00_4703 =
								BGl_typezd2errorzd2zz__errorz00(BGl_string2365z00zz__srfi4z00,
								BINT(28315L), BGl_string2412z00zz__srfi4z00,
								BGl_string2371z00zz__srfi4z00, BgL_vz00_3253);
							FAILURE(BgL_auxz00_4703, BFALSE, BFALSE);
						}
					{	/* Llib/srfi4.scm 692 */
						obj_t BgL_tmpz00_4707;

						if (INTEGERP(BgL_kz00_3254))
							{	/* Llib/srfi4.scm 692 */
								BgL_tmpz00_4707 = BgL_kz00_3254;
							}
						else
							{
								obj_t BgL_auxz00_4710;

								BgL_auxz00_4710 =
									BGl_typezd2errorzd2zz__errorz00(BGl_string2365z00zz__srfi4z00,
									BINT(28315L), BGl_string2412z00zz__srfi4z00,
									BGl_string2387z00zz__srfi4z00, BgL_kz00_3254);
								FAILURE(BgL_auxz00_4710, BFALSE, BFALSE);
							}
						BgL_kz00_3821 = (long) CINT(BgL_tmpz00_4707);
					}
					BgL_tmpz00_4700 = BGL_S16VREF(BgL_vz00_3820, BgL_kz00_3821);
				}
				return BGL_INT16_TO_BINT16(BgL_tmpz00_4700);
			}
		}

	}



/* u16vector-ref */
	BGL_EXPORTED_DEF uint16_t BGl_u16vectorzd2refzd2zz__srfi4z00(obj_t
		BgL_vz00_84, long BgL_kz00_85)
	{
		{	/* Llib/srfi4.scm 694 */
			return BGL_U16VREF(BgL_vz00_84, BgL_kz00_85);
		}

	}



/* &u16vector-ref */
	obj_t BGl_z62u16vectorzd2refzb0zz__srfi4z00(obj_t BgL_envz00_3262,
		obj_t BgL_vz00_3263, obj_t BgL_kz00_3264)
	{
		{	/* Llib/srfi4.scm 694 */
			{	/* Llib/srfi4.scm 695 */
				uint16_t BgL_tmpz00_4718;

				{	/* Llib/srfi4.scm 695 */
					obj_t BgL_vz00_3822;
					long BgL_kz00_3823;

					if (BGL_U16VECTORP(BgL_vz00_3263))
						{	/* Llib/srfi4.scm 695 */
							BgL_vz00_3822 = BgL_vz00_3263;
						}
					else
						{
							obj_t BgL_auxz00_4721;

							BgL_auxz00_4721 =
								BGl_typezd2errorzd2zz__errorz00(BGl_string2365z00zz__srfi4z00,
								BINT(28376L), BGl_string2413z00zz__srfi4z00,
								BGl_string2373z00zz__srfi4z00, BgL_vz00_3263);
							FAILURE(BgL_auxz00_4721, BFALSE, BFALSE);
						}
					{	/* Llib/srfi4.scm 695 */
						obj_t BgL_tmpz00_4725;

						if (INTEGERP(BgL_kz00_3264))
							{	/* Llib/srfi4.scm 695 */
								BgL_tmpz00_4725 = BgL_kz00_3264;
							}
						else
							{
								obj_t BgL_auxz00_4728;

								BgL_auxz00_4728 =
									BGl_typezd2errorzd2zz__errorz00(BGl_string2365z00zz__srfi4z00,
									BINT(28376L), BGl_string2413z00zz__srfi4z00,
									BGl_string2387z00zz__srfi4z00, BgL_kz00_3264);
								FAILURE(BgL_auxz00_4728, BFALSE, BFALSE);
							}
						BgL_kz00_3823 = (long) CINT(BgL_tmpz00_4725);
					}
					BgL_tmpz00_4718 = BGL_U16VREF(BgL_vz00_3822, BgL_kz00_3823);
				}
				return BGL_UINT16_TO_BUINT16(BgL_tmpz00_4718);
			}
		}

	}



/* s32vector-ref */
	BGL_EXPORTED_DEF int32_t BGl_s32vectorzd2refzd2zz__srfi4z00(obj_t BgL_vz00_86,
		long BgL_kz00_87)
	{
		{	/* Llib/srfi4.scm 697 */
			return BGL_S32VREF(BgL_vz00_86, BgL_kz00_87);
		}

	}



/* &s32vector-ref */
	obj_t BGl_z62s32vectorzd2refzb0zz__srfi4z00(obj_t BgL_envz00_3272,
		obj_t BgL_vz00_3273, obj_t BgL_kz00_3274)
	{
		{	/* Llib/srfi4.scm 697 */
			{	/* Llib/srfi4.scm 698 */
				int32_t BgL_tmpz00_4736;

				{	/* Llib/srfi4.scm 698 */
					obj_t BgL_vz00_3824;
					long BgL_kz00_3825;

					if (BGL_S32VECTORP(BgL_vz00_3273))
						{	/* Llib/srfi4.scm 698 */
							BgL_vz00_3824 = BgL_vz00_3273;
						}
					else
						{
							obj_t BgL_auxz00_4739;

							BgL_auxz00_4739 =
								BGl_typezd2errorzd2zz__errorz00(BGl_string2365z00zz__srfi4z00,
								BINT(28437L), BGl_string2414z00zz__srfi4z00,
								BGl_string2375z00zz__srfi4z00, BgL_vz00_3273);
							FAILURE(BgL_auxz00_4739, BFALSE, BFALSE);
						}
					{	/* Llib/srfi4.scm 698 */
						obj_t BgL_tmpz00_4743;

						if (INTEGERP(BgL_kz00_3274))
							{	/* Llib/srfi4.scm 698 */
								BgL_tmpz00_4743 = BgL_kz00_3274;
							}
						else
							{
								obj_t BgL_auxz00_4746;

								BgL_auxz00_4746 =
									BGl_typezd2errorzd2zz__errorz00(BGl_string2365z00zz__srfi4z00,
									BINT(28437L), BGl_string2414z00zz__srfi4z00,
									BGl_string2387z00zz__srfi4z00, BgL_kz00_3274);
								FAILURE(BgL_auxz00_4746, BFALSE, BFALSE);
							}
						BgL_kz00_3825 = (long) CINT(BgL_tmpz00_4743);
					}
					BgL_tmpz00_4736 = BGL_S32VREF(BgL_vz00_3824, BgL_kz00_3825);
				}
				return BGL_INT32_TO_BINT32(BgL_tmpz00_4736);
			}
		}

	}



/* u32vector-ref */
	BGL_EXPORTED_DEF uint32_t BGl_u32vectorzd2refzd2zz__srfi4z00(obj_t
		BgL_vz00_88, long BgL_kz00_89)
	{
		{	/* Llib/srfi4.scm 700 */
			return BGL_U32VREF(BgL_vz00_88, BgL_kz00_89);
		}

	}



/* &u32vector-ref */
	obj_t BGl_z62u32vectorzd2refzb0zz__srfi4z00(obj_t BgL_envz00_3282,
		obj_t BgL_vz00_3283, obj_t BgL_kz00_3284)
	{
		{	/* Llib/srfi4.scm 700 */
			{	/* Llib/srfi4.scm 701 */
				uint32_t BgL_tmpz00_4754;

				{	/* Llib/srfi4.scm 701 */
					obj_t BgL_vz00_3826;
					long BgL_kz00_3827;

					if (BGL_U32VECTORP(BgL_vz00_3283))
						{	/* Llib/srfi4.scm 701 */
							BgL_vz00_3826 = BgL_vz00_3283;
						}
					else
						{
							obj_t BgL_auxz00_4757;

							BgL_auxz00_4757 =
								BGl_typezd2errorzd2zz__errorz00(BGl_string2365z00zz__srfi4z00,
								BINT(28498L), BGl_string2415z00zz__srfi4z00,
								BGl_string2377z00zz__srfi4z00, BgL_vz00_3283);
							FAILURE(BgL_auxz00_4757, BFALSE, BFALSE);
						}
					{	/* Llib/srfi4.scm 701 */
						obj_t BgL_tmpz00_4761;

						if (INTEGERP(BgL_kz00_3284))
							{	/* Llib/srfi4.scm 701 */
								BgL_tmpz00_4761 = BgL_kz00_3284;
							}
						else
							{
								obj_t BgL_auxz00_4764;

								BgL_auxz00_4764 =
									BGl_typezd2errorzd2zz__errorz00(BGl_string2365z00zz__srfi4z00,
									BINT(28498L), BGl_string2415z00zz__srfi4z00,
									BGl_string2387z00zz__srfi4z00, BgL_kz00_3284);
								FAILURE(BgL_auxz00_4764, BFALSE, BFALSE);
							}
						BgL_kz00_3827 = (long) CINT(BgL_tmpz00_4761);
					}
					BgL_tmpz00_4754 = BGL_U32VREF(BgL_vz00_3826, BgL_kz00_3827);
				}
				return BGL_UINT32_TO_BUINT32(BgL_tmpz00_4754);
			}
		}

	}



/* s64vector-ref */
	BGL_EXPORTED_DEF int64_t BGl_s64vectorzd2refzd2zz__srfi4z00(obj_t BgL_vz00_90,
		long BgL_kz00_91)
	{
		{	/* Llib/srfi4.scm 703 */
			return BGL_S64VREF(BgL_vz00_90, BgL_kz00_91);
		}

	}



/* &s64vector-ref */
	obj_t BGl_z62s64vectorzd2refzb0zz__srfi4z00(obj_t BgL_envz00_3292,
		obj_t BgL_vz00_3293, obj_t BgL_kz00_3294)
	{
		{	/* Llib/srfi4.scm 703 */
			{	/* Llib/srfi4.scm 704 */
				int64_t BgL_tmpz00_4772;

				{	/* Llib/srfi4.scm 704 */
					obj_t BgL_vz00_3828;
					long BgL_kz00_3829;

					if (BGL_S64VECTORP(BgL_vz00_3293))
						{	/* Llib/srfi4.scm 704 */
							BgL_vz00_3828 = BgL_vz00_3293;
						}
					else
						{
							obj_t BgL_auxz00_4775;

							BgL_auxz00_4775 =
								BGl_typezd2errorzd2zz__errorz00(BGl_string2365z00zz__srfi4z00,
								BINT(28559L), BGl_string2416z00zz__srfi4z00,
								BGl_string2379z00zz__srfi4z00, BgL_vz00_3293);
							FAILURE(BgL_auxz00_4775, BFALSE, BFALSE);
						}
					{	/* Llib/srfi4.scm 704 */
						obj_t BgL_tmpz00_4779;

						if (INTEGERP(BgL_kz00_3294))
							{	/* Llib/srfi4.scm 704 */
								BgL_tmpz00_4779 = BgL_kz00_3294;
							}
						else
							{
								obj_t BgL_auxz00_4782;

								BgL_auxz00_4782 =
									BGl_typezd2errorzd2zz__errorz00(BGl_string2365z00zz__srfi4z00,
									BINT(28559L), BGl_string2416z00zz__srfi4z00,
									BGl_string2387z00zz__srfi4z00, BgL_kz00_3294);
								FAILURE(BgL_auxz00_4782, BFALSE, BFALSE);
							}
						BgL_kz00_3829 = (long) CINT(BgL_tmpz00_4779);
					}
					BgL_tmpz00_4772 = BGL_S64VREF(BgL_vz00_3828, BgL_kz00_3829);
				}
				return BGL_INT64_TO_BINT64(BgL_tmpz00_4772);
			}
		}

	}



/* u64vector-ref */
	BGL_EXPORTED_DEF uint64_t BGl_u64vectorzd2refzd2zz__srfi4z00(obj_t
		BgL_vz00_92, long BgL_kz00_93)
	{
		{	/* Llib/srfi4.scm 706 */
			return BGL_U64VREF(BgL_vz00_92, BgL_kz00_93);
		}

	}



/* &u64vector-ref */
	obj_t BGl_z62u64vectorzd2refzb0zz__srfi4z00(obj_t BgL_envz00_3302,
		obj_t BgL_vz00_3303, obj_t BgL_kz00_3304)
	{
		{	/* Llib/srfi4.scm 706 */
			{	/* Llib/srfi4.scm 707 */
				uint64_t BgL_tmpz00_4790;

				{	/* Llib/srfi4.scm 707 */
					obj_t BgL_vz00_3830;
					long BgL_kz00_3831;

					if (BGL_U64VECTORP(BgL_vz00_3303))
						{	/* Llib/srfi4.scm 707 */
							BgL_vz00_3830 = BgL_vz00_3303;
						}
					else
						{
							obj_t BgL_auxz00_4793;

							BgL_auxz00_4793 =
								BGl_typezd2errorzd2zz__errorz00(BGl_string2365z00zz__srfi4z00,
								BINT(28620L), BGl_string2417z00zz__srfi4z00,
								BGl_string2381z00zz__srfi4z00, BgL_vz00_3303);
							FAILURE(BgL_auxz00_4793, BFALSE, BFALSE);
						}
					{	/* Llib/srfi4.scm 707 */
						obj_t BgL_tmpz00_4797;

						if (INTEGERP(BgL_kz00_3304))
							{	/* Llib/srfi4.scm 707 */
								BgL_tmpz00_4797 = BgL_kz00_3304;
							}
						else
							{
								obj_t BgL_auxz00_4800;

								BgL_auxz00_4800 =
									BGl_typezd2errorzd2zz__errorz00(BGl_string2365z00zz__srfi4z00,
									BINT(28620L), BGl_string2417z00zz__srfi4z00,
									BGl_string2387z00zz__srfi4z00, BgL_kz00_3304);
								FAILURE(BgL_auxz00_4800, BFALSE, BFALSE);
							}
						BgL_kz00_3831 = (long) CINT(BgL_tmpz00_4797);
					}
					BgL_tmpz00_4790 = BGL_U64VREF(BgL_vz00_3830, BgL_kz00_3831);
				}
				return BGL_UINT64_TO_BUINT64(BgL_tmpz00_4790);
			}
		}

	}



/* f32vector-ref */
	BGL_EXPORTED_DEF float BGl_f32vectorzd2refzd2zz__srfi4z00(obj_t BgL_vz00_94,
		long BgL_kz00_95)
	{
		{	/* Llib/srfi4.scm 709 */
			return BGL_F32VREF(BgL_vz00_94, BgL_kz00_95);
		}

	}



/* &f32vector-ref */
	obj_t BGl_z62f32vectorzd2refzb0zz__srfi4z00(obj_t BgL_envz00_3312,
		obj_t BgL_vz00_3313, obj_t BgL_kz00_3314)
	{
		{	/* Llib/srfi4.scm 709 */
			{	/* Llib/srfi4.scm 710 */
				float BgL_tmpz00_4808;

				{	/* Llib/srfi4.scm 710 */
					obj_t BgL_vz00_3832;
					long BgL_kz00_3833;

					if (BGL_F32VECTORP(BgL_vz00_3313))
						{	/* Llib/srfi4.scm 710 */
							BgL_vz00_3832 = BgL_vz00_3313;
						}
					else
						{
							obj_t BgL_auxz00_4811;

							BgL_auxz00_4811 =
								BGl_typezd2errorzd2zz__errorz00(BGl_string2365z00zz__srfi4z00,
								BINT(28681L), BGl_string2418z00zz__srfi4z00,
								BGl_string2383z00zz__srfi4z00, BgL_vz00_3313);
							FAILURE(BgL_auxz00_4811, BFALSE, BFALSE);
						}
					{	/* Llib/srfi4.scm 710 */
						obj_t BgL_tmpz00_4815;

						if (INTEGERP(BgL_kz00_3314))
							{	/* Llib/srfi4.scm 710 */
								BgL_tmpz00_4815 = BgL_kz00_3314;
							}
						else
							{
								obj_t BgL_auxz00_4818;

								BgL_auxz00_4818 =
									BGl_typezd2errorzd2zz__errorz00(BGl_string2365z00zz__srfi4z00,
									BINT(28681L), BGl_string2418z00zz__srfi4z00,
									BGl_string2387z00zz__srfi4z00, BgL_kz00_3314);
								FAILURE(BgL_auxz00_4818, BFALSE, BFALSE);
							}
						BgL_kz00_3833 = (long) CINT(BgL_tmpz00_4815);
					}
					BgL_tmpz00_4808 = BGL_F32VREF(BgL_vz00_3832, BgL_kz00_3833);
				}
				return FLOAT_TO_REAL(BgL_tmpz00_4808);
			}
		}

	}



/* f64vector-ref */
	BGL_EXPORTED_DEF double BGl_f64vectorzd2refzd2zz__srfi4z00(obj_t BgL_vz00_96,
		long BgL_kz00_97)
	{
		{	/* Llib/srfi4.scm 712 */
			return BGL_F64VREF(BgL_vz00_96, BgL_kz00_97);
		}

	}



/* &f64vector-ref */
	obj_t BGl_z62f64vectorzd2refzb0zz__srfi4z00(obj_t BgL_envz00_3322,
		obj_t BgL_vz00_3323, obj_t BgL_kz00_3324)
	{
		{	/* Llib/srfi4.scm 712 */
			{	/* Llib/srfi4.scm 713 */
				double BgL_tmpz00_4826;

				{	/* Llib/srfi4.scm 713 */
					obj_t BgL_vz00_3834;
					long BgL_kz00_3835;

					if (BGL_F64VECTORP(BgL_vz00_3323))
						{	/* Llib/srfi4.scm 713 */
							BgL_vz00_3834 = BgL_vz00_3323;
						}
					else
						{
							obj_t BgL_auxz00_4829;

							BgL_auxz00_4829 =
								BGl_typezd2errorzd2zz__errorz00(BGl_string2365z00zz__srfi4z00,
								BINT(28742L), BGl_string2419z00zz__srfi4z00,
								BGl_string2385z00zz__srfi4z00, BgL_vz00_3323);
							FAILURE(BgL_auxz00_4829, BFALSE, BFALSE);
						}
					{	/* Llib/srfi4.scm 713 */
						obj_t BgL_tmpz00_4833;

						if (INTEGERP(BgL_kz00_3324))
							{	/* Llib/srfi4.scm 713 */
								BgL_tmpz00_4833 = BgL_kz00_3324;
							}
						else
							{
								obj_t BgL_auxz00_4836;

								BgL_auxz00_4836 =
									BGl_typezd2errorzd2zz__errorz00(BGl_string2365z00zz__srfi4z00,
									BINT(28742L), BGl_string2419z00zz__srfi4z00,
									BGl_string2387z00zz__srfi4z00, BgL_kz00_3324);
								FAILURE(BgL_auxz00_4836, BFALSE, BFALSE);
							}
						BgL_kz00_3835 = (long) CINT(BgL_tmpz00_4833);
					}
					BgL_tmpz00_4826 = BGL_F64VREF(BgL_vz00_3834, BgL_kz00_3835);
				}
				return DOUBLE_TO_REAL(BgL_tmpz00_4826);
			}
		}

	}



/* s8vector-set! */
	BGL_EXPORTED_DEF obj_t BGl_s8vectorzd2setz12zc0zz__srfi4z00(obj_t
		BgL_vz00_100, long BgL_kz00_101, int8_t BgL_valz00_102)
	{
		{	/* Llib/srfi4.scm 721 */
			BGL_S8VSET(BgL_vz00_100, BgL_kz00_101, BgL_valz00_102);
			return BUNSPEC;
		}

	}



/* &s8vector-set! */
	obj_t BGl_z62s8vectorzd2setz12za2zz__srfi4z00(obj_t BgL_envz00_3235,
		obj_t BgL_vz00_3236, obj_t BgL_kz00_3237, obj_t BgL_valz00_3238)
	{
		{	/* Llib/srfi4.scm 721 */
			{	/* Llib/srfi4.scm 721 */
				obj_t BgL_vz00_3836;
				long BgL_kz00_3837;
				int8_t BgL_valz00_3838;

				if (BGL_S8VECTORP(BgL_vz00_3236))
					{	/* Llib/srfi4.scm 721 */
						BgL_vz00_3836 = BgL_vz00_3236;
					}
				else
					{
						obj_t BgL_auxz00_4846;

						BgL_auxz00_4846 =
							BGl_typezd2errorzd2zz__errorz00(BGl_string2365z00zz__srfi4z00,
							BINT(29057L), BGl_string2420z00zz__srfi4z00,
							BGl_string2367z00zz__srfi4z00, BgL_vz00_3236);
						FAILURE(BgL_auxz00_4846, BFALSE, BFALSE);
					}
				{	/* Llib/srfi4.scm 721 */
					obj_t BgL_tmpz00_4850;

					if (INTEGERP(BgL_kz00_3237))
						{	/* Llib/srfi4.scm 721 */
							BgL_tmpz00_4850 = BgL_kz00_3237;
						}
					else
						{
							obj_t BgL_auxz00_4853;

							BgL_auxz00_4853 =
								BGl_typezd2errorzd2zz__errorz00(BGl_string2365z00zz__srfi4z00,
								BINT(29057L), BGl_string2420z00zz__srfi4z00,
								BGl_string2387z00zz__srfi4z00, BgL_kz00_3237);
							FAILURE(BgL_auxz00_4853, BFALSE, BFALSE);
						}
					BgL_kz00_3837 = (long) CINT(BgL_tmpz00_4850);
				}
				{	/* Llib/srfi4.scm 721 */
					obj_t BgL_tmpz00_4858;

					if (BGL_INT8P(BgL_valz00_3238))
						{	/* Llib/srfi4.scm 721 */
							BgL_tmpz00_4858 = BgL_valz00_3238;
						}
					else
						{
							obj_t BgL_auxz00_4861;

							BgL_auxz00_4861 =
								BGl_typezd2errorzd2zz__errorz00(BGl_string2365z00zz__srfi4z00,
								BINT(29057L), BGl_string2420z00zz__srfi4z00,
								BGl_string2388z00zz__srfi4z00, BgL_valz00_3238);
							FAILURE(BgL_auxz00_4861, BFALSE, BFALSE);
						}
					BgL_valz00_3838 = BGL_BINT8_TO_INT8(BgL_tmpz00_4858);
				}
				BGL_S8VSET(BgL_vz00_3836, BgL_kz00_3837, BgL_valz00_3838);
				return BUNSPEC;
			}
		}

	}



/* u8vector-set! */
	BGL_EXPORTED_DEF obj_t BGl_u8vectorzd2setz12zc0zz__srfi4z00(obj_t
		BgL_vz00_103, long BgL_kz00_104, uint8_t BgL_valz00_105)
	{
		{	/* Llib/srfi4.scm 724 */
			BGL_U8VSET(BgL_vz00_103, BgL_kz00_104, BgL_valz00_105);
			return BUNSPEC;
		}

	}



/* &u8vector-set! */
	obj_t BGl_z62u8vectorzd2setz12za2zz__srfi4z00(obj_t BgL_envz00_3245,
		obj_t BgL_vz00_3246, obj_t BgL_kz00_3247, obj_t BgL_valz00_3248)
	{
		{	/* Llib/srfi4.scm 724 */
			{	/* Llib/srfi4.scm 724 */
				obj_t BgL_vz00_3839;
				long BgL_kz00_3840;
				uint8_t BgL_valz00_3841;

				if (BGL_U8VECTORP(BgL_vz00_3246))
					{	/* Llib/srfi4.scm 724 */
						BgL_vz00_3839 = BgL_vz00_3246;
					}
				else
					{
						obj_t BgL_auxz00_4870;

						BgL_auxz00_4870 =
							BGl_typezd2errorzd2zz__errorz00(BGl_string2365z00zz__srfi4z00,
							BINT(29126L), BGl_string2421z00zz__srfi4z00,
							BGl_string2369z00zz__srfi4z00, BgL_vz00_3246);
						FAILURE(BgL_auxz00_4870, BFALSE, BFALSE);
					}
				{	/* Llib/srfi4.scm 724 */
					obj_t BgL_tmpz00_4874;

					if (INTEGERP(BgL_kz00_3247))
						{	/* Llib/srfi4.scm 724 */
							BgL_tmpz00_4874 = BgL_kz00_3247;
						}
					else
						{
							obj_t BgL_auxz00_4877;

							BgL_auxz00_4877 =
								BGl_typezd2errorzd2zz__errorz00(BGl_string2365z00zz__srfi4z00,
								BINT(29126L), BGl_string2421z00zz__srfi4z00,
								BGl_string2387z00zz__srfi4z00, BgL_kz00_3247);
							FAILURE(BgL_auxz00_4877, BFALSE, BFALSE);
						}
					BgL_kz00_3840 = (long) CINT(BgL_tmpz00_4874);
				}
				{	/* Llib/srfi4.scm 724 */
					obj_t BgL_tmpz00_4882;

					if (BGL_UINT8P(BgL_valz00_3248))
						{	/* Llib/srfi4.scm 724 */
							BgL_tmpz00_4882 = BgL_valz00_3248;
						}
					else
						{
							obj_t BgL_auxz00_4885;

							BgL_auxz00_4885 =
								BGl_typezd2errorzd2zz__errorz00(BGl_string2365z00zz__srfi4z00,
								BINT(29126L), BGl_string2421z00zz__srfi4z00,
								BGl_string2390z00zz__srfi4z00, BgL_valz00_3248);
							FAILURE(BgL_auxz00_4885, BFALSE, BFALSE);
						}
					BgL_valz00_3841 = BGL_BUINT8_TO_UINT8(BgL_tmpz00_4882);
				}
				BGL_U8VSET(BgL_vz00_3839, BgL_kz00_3840, BgL_valz00_3841);
				return BUNSPEC;
			}
		}

	}



/* s16vector-set! */
	BGL_EXPORTED_DEF obj_t BGl_s16vectorzd2setz12zc0zz__srfi4z00(obj_t
		BgL_vz00_106, long BgL_kz00_107, int16_t BgL_valz00_108)
	{
		{	/* Llib/srfi4.scm 727 */
			BGL_S16VSET(BgL_vz00_106, BgL_kz00_107, BgL_valz00_108);
			return BUNSPEC;
		}

	}



/* &s16vector-set! */
	obj_t BGl_z62s16vectorzd2setz12za2zz__srfi4z00(obj_t BgL_envz00_3255,
		obj_t BgL_vz00_3256, obj_t BgL_kz00_3257, obj_t BgL_valz00_3258)
	{
		{	/* Llib/srfi4.scm 727 */
			{	/* Llib/srfi4.scm 727 */
				obj_t BgL_vz00_3842;
				long BgL_kz00_3843;
				int16_t BgL_valz00_3844;

				if (BGL_S16VECTORP(BgL_vz00_3256))
					{	/* Llib/srfi4.scm 727 */
						BgL_vz00_3842 = BgL_vz00_3256;
					}
				else
					{
						obj_t BgL_auxz00_4894;

						BgL_auxz00_4894 =
							BGl_typezd2errorzd2zz__errorz00(BGl_string2365z00zz__srfi4z00,
							BINT(29195L), BGl_string2422z00zz__srfi4z00,
							BGl_string2371z00zz__srfi4z00, BgL_vz00_3256);
						FAILURE(BgL_auxz00_4894, BFALSE, BFALSE);
					}
				{	/* Llib/srfi4.scm 727 */
					obj_t BgL_tmpz00_4898;

					if (INTEGERP(BgL_kz00_3257))
						{	/* Llib/srfi4.scm 727 */
							BgL_tmpz00_4898 = BgL_kz00_3257;
						}
					else
						{
							obj_t BgL_auxz00_4901;

							BgL_auxz00_4901 =
								BGl_typezd2errorzd2zz__errorz00(BGl_string2365z00zz__srfi4z00,
								BINT(29195L), BGl_string2422z00zz__srfi4z00,
								BGl_string2387z00zz__srfi4z00, BgL_kz00_3257);
							FAILURE(BgL_auxz00_4901, BFALSE, BFALSE);
						}
					BgL_kz00_3843 = (long) CINT(BgL_tmpz00_4898);
				}
				{	/* Llib/srfi4.scm 727 */
					obj_t BgL_tmpz00_4906;

					if (BGL_INT16P(BgL_valz00_3258))
						{	/* Llib/srfi4.scm 727 */
							BgL_tmpz00_4906 = BgL_valz00_3258;
						}
					else
						{
							obj_t BgL_auxz00_4909;

							BgL_auxz00_4909 =
								BGl_typezd2errorzd2zz__errorz00(BGl_string2365z00zz__srfi4z00,
								BINT(29195L), BGl_string2422z00zz__srfi4z00,
								BGl_string2392z00zz__srfi4z00, BgL_valz00_3258);
							FAILURE(BgL_auxz00_4909, BFALSE, BFALSE);
						}
					BgL_valz00_3844 = BGL_BINT16_TO_INT16(BgL_tmpz00_4906);
				}
				BGL_S16VSET(BgL_vz00_3842, BgL_kz00_3843, BgL_valz00_3844);
				return BUNSPEC;
			}
		}

	}



/* u16vector-set! */
	BGL_EXPORTED_DEF obj_t BGl_u16vectorzd2setz12zc0zz__srfi4z00(obj_t
		BgL_vz00_109, long BgL_kz00_110, uint16_t BgL_valz00_111)
	{
		{	/* Llib/srfi4.scm 730 */
			BGL_U16VSET(BgL_vz00_109, BgL_kz00_110, BgL_valz00_111);
			return BUNSPEC;
		}

	}



/* &u16vector-set! */
	obj_t BGl_z62u16vectorzd2setz12za2zz__srfi4z00(obj_t BgL_envz00_3265,
		obj_t BgL_vz00_3266, obj_t BgL_kz00_3267, obj_t BgL_valz00_3268)
	{
		{	/* Llib/srfi4.scm 730 */
			{	/* Llib/srfi4.scm 730 */
				obj_t BgL_vz00_3845;
				long BgL_kz00_3846;
				uint16_t BgL_valz00_3847;

				if (BGL_U16VECTORP(BgL_vz00_3266))
					{	/* Llib/srfi4.scm 730 */
						BgL_vz00_3845 = BgL_vz00_3266;
					}
				else
					{
						obj_t BgL_auxz00_4918;

						BgL_auxz00_4918 =
							BGl_typezd2errorzd2zz__errorz00(BGl_string2365z00zz__srfi4z00,
							BINT(29266L), BGl_string2423z00zz__srfi4z00,
							BGl_string2373z00zz__srfi4z00, BgL_vz00_3266);
						FAILURE(BgL_auxz00_4918, BFALSE, BFALSE);
					}
				{	/* Llib/srfi4.scm 730 */
					obj_t BgL_tmpz00_4922;

					if (INTEGERP(BgL_kz00_3267))
						{	/* Llib/srfi4.scm 730 */
							BgL_tmpz00_4922 = BgL_kz00_3267;
						}
					else
						{
							obj_t BgL_auxz00_4925;

							BgL_auxz00_4925 =
								BGl_typezd2errorzd2zz__errorz00(BGl_string2365z00zz__srfi4z00,
								BINT(29266L), BGl_string2423z00zz__srfi4z00,
								BGl_string2387z00zz__srfi4z00, BgL_kz00_3267);
							FAILURE(BgL_auxz00_4925, BFALSE, BFALSE);
						}
					BgL_kz00_3846 = (long) CINT(BgL_tmpz00_4922);
				}
				{	/* Llib/srfi4.scm 730 */
					obj_t BgL_tmpz00_4930;

					if (BGL_UINT16P(BgL_valz00_3268))
						{	/* Llib/srfi4.scm 730 */
							BgL_tmpz00_4930 = BgL_valz00_3268;
						}
					else
						{
							obj_t BgL_auxz00_4933;

							BgL_auxz00_4933 =
								BGl_typezd2errorzd2zz__errorz00(BGl_string2365z00zz__srfi4z00,
								BINT(29266L), BGl_string2423z00zz__srfi4z00,
								BGl_string2394z00zz__srfi4z00, BgL_valz00_3268);
							FAILURE(BgL_auxz00_4933, BFALSE, BFALSE);
						}
					BgL_valz00_3847 = BGL_BUINT16_TO_UINT16(BgL_tmpz00_4930);
				}
				BGL_U16VSET(BgL_vz00_3845, BgL_kz00_3846, BgL_valz00_3847);
				return BUNSPEC;
			}
		}

	}



/* s32vector-set! */
	BGL_EXPORTED_DEF obj_t BGl_s32vectorzd2setz12zc0zz__srfi4z00(obj_t
		BgL_vz00_112, long BgL_kz00_113, int32_t BgL_valz00_114)
	{
		{	/* Llib/srfi4.scm 733 */
			BGL_S32VSET(BgL_vz00_112, BgL_kz00_113, BgL_valz00_114);
			return BUNSPEC;
		}

	}



/* &s32vector-set! */
	obj_t BGl_z62s32vectorzd2setz12za2zz__srfi4z00(obj_t BgL_envz00_3275,
		obj_t BgL_vz00_3276, obj_t BgL_kz00_3277, obj_t BgL_valz00_3278)
	{
		{	/* Llib/srfi4.scm 733 */
			{	/* Llib/srfi4.scm 733 */
				obj_t BgL_vz00_3848;
				long BgL_kz00_3849;
				int32_t BgL_valz00_3850;

				if (BGL_S32VECTORP(BgL_vz00_3276))
					{	/* Llib/srfi4.scm 733 */
						BgL_vz00_3848 = BgL_vz00_3276;
					}
				else
					{
						obj_t BgL_auxz00_4942;

						BgL_auxz00_4942 =
							BGl_typezd2errorzd2zz__errorz00(BGl_string2365z00zz__srfi4z00,
							BINT(29337L), BGl_string2424z00zz__srfi4z00,
							BGl_string2375z00zz__srfi4z00, BgL_vz00_3276);
						FAILURE(BgL_auxz00_4942, BFALSE, BFALSE);
					}
				{	/* Llib/srfi4.scm 733 */
					obj_t BgL_tmpz00_4946;

					if (INTEGERP(BgL_kz00_3277))
						{	/* Llib/srfi4.scm 733 */
							BgL_tmpz00_4946 = BgL_kz00_3277;
						}
					else
						{
							obj_t BgL_auxz00_4949;

							BgL_auxz00_4949 =
								BGl_typezd2errorzd2zz__errorz00(BGl_string2365z00zz__srfi4z00,
								BINT(29337L), BGl_string2424z00zz__srfi4z00,
								BGl_string2387z00zz__srfi4z00, BgL_kz00_3277);
							FAILURE(BgL_auxz00_4949, BFALSE, BFALSE);
						}
					BgL_kz00_3849 = (long) CINT(BgL_tmpz00_4946);
				}
				{	/* Llib/srfi4.scm 733 */
					obj_t BgL_tmpz00_4954;

					if (BGL_INT32P(BgL_valz00_3278))
						{	/* Llib/srfi4.scm 733 */
							BgL_tmpz00_4954 = BgL_valz00_3278;
						}
					else
						{
							obj_t BgL_auxz00_4957;

							BgL_auxz00_4957 =
								BGl_typezd2errorzd2zz__errorz00(BGl_string2365z00zz__srfi4z00,
								BINT(29337L), BGl_string2424z00zz__srfi4z00,
								BGl_string2396z00zz__srfi4z00, BgL_valz00_3278);
							FAILURE(BgL_auxz00_4957, BFALSE, BFALSE);
						}
					BgL_valz00_3850 = BGL_BINT32_TO_INT32(BgL_tmpz00_4954);
				}
				BGL_S32VSET(BgL_vz00_3848, BgL_kz00_3849, BgL_valz00_3850);
				return BUNSPEC;
			}
		}

	}



/* u32vector-set! */
	BGL_EXPORTED_DEF obj_t BGl_u32vectorzd2setz12zc0zz__srfi4z00(obj_t
		BgL_vz00_115, long BgL_kz00_116, uint32_t BgL_valz00_117)
	{
		{	/* Llib/srfi4.scm 736 */
			BGL_U32VSET(BgL_vz00_115, BgL_kz00_116, BgL_valz00_117);
			return BUNSPEC;
		}

	}



/* &u32vector-set! */
	obj_t BGl_z62u32vectorzd2setz12za2zz__srfi4z00(obj_t BgL_envz00_3285,
		obj_t BgL_vz00_3286, obj_t BgL_kz00_3287, obj_t BgL_valz00_3288)
	{
		{	/* Llib/srfi4.scm 736 */
			{	/* Llib/srfi4.scm 736 */
				obj_t BgL_vz00_3851;
				long BgL_kz00_3852;
				uint32_t BgL_valz00_3853;

				if (BGL_U32VECTORP(BgL_vz00_3286))
					{	/* Llib/srfi4.scm 736 */
						BgL_vz00_3851 = BgL_vz00_3286;
					}
				else
					{
						obj_t BgL_auxz00_4966;

						BgL_auxz00_4966 =
							BGl_typezd2errorzd2zz__errorz00(BGl_string2365z00zz__srfi4z00,
							BINT(29408L), BGl_string2425z00zz__srfi4z00,
							BGl_string2377z00zz__srfi4z00, BgL_vz00_3286);
						FAILURE(BgL_auxz00_4966, BFALSE, BFALSE);
					}
				{	/* Llib/srfi4.scm 736 */
					obj_t BgL_tmpz00_4970;

					if (INTEGERP(BgL_kz00_3287))
						{	/* Llib/srfi4.scm 736 */
							BgL_tmpz00_4970 = BgL_kz00_3287;
						}
					else
						{
							obj_t BgL_auxz00_4973;

							BgL_auxz00_4973 =
								BGl_typezd2errorzd2zz__errorz00(BGl_string2365z00zz__srfi4z00,
								BINT(29408L), BGl_string2425z00zz__srfi4z00,
								BGl_string2387z00zz__srfi4z00, BgL_kz00_3287);
							FAILURE(BgL_auxz00_4973, BFALSE, BFALSE);
						}
					BgL_kz00_3852 = (long) CINT(BgL_tmpz00_4970);
				}
				{	/* Llib/srfi4.scm 736 */
					obj_t BgL_tmpz00_4978;

					if (BGL_UINT32P(BgL_valz00_3288))
						{	/* Llib/srfi4.scm 736 */
							BgL_tmpz00_4978 = BgL_valz00_3288;
						}
					else
						{
							obj_t BgL_auxz00_4981;

							BgL_auxz00_4981 =
								BGl_typezd2errorzd2zz__errorz00(BGl_string2365z00zz__srfi4z00,
								BINT(29408L), BGl_string2425z00zz__srfi4z00,
								BGl_string2398z00zz__srfi4z00, BgL_valz00_3288);
							FAILURE(BgL_auxz00_4981, BFALSE, BFALSE);
						}
					BgL_valz00_3853 = BGL_BUINT32_TO_UINT32(BgL_tmpz00_4978);
				}
				BGL_U32VSET(BgL_vz00_3851, BgL_kz00_3852, BgL_valz00_3853);
				return BUNSPEC;
			}
		}

	}



/* s64vector-set! */
	BGL_EXPORTED_DEF obj_t BGl_s64vectorzd2setz12zc0zz__srfi4z00(obj_t
		BgL_vz00_118, long BgL_kz00_119, int64_t BgL_valz00_120)
	{
		{	/* Llib/srfi4.scm 739 */
			BGL_S64VSET(BgL_vz00_118, BgL_kz00_119, BgL_valz00_120);
			return BUNSPEC;
		}

	}



/* &s64vector-set! */
	obj_t BGl_z62s64vectorzd2setz12za2zz__srfi4z00(obj_t BgL_envz00_3295,
		obj_t BgL_vz00_3296, obj_t BgL_kz00_3297, obj_t BgL_valz00_3298)
	{
		{	/* Llib/srfi4.scm 739 */
			{	/* Llib/srfi4.scm 739 */
				obj_t BgL_vz00_3854;
				long BgL_kz00_3855;
				int64_t BgL_valz00_3856;

				if (BGL_S64VECTORP(BgL_vz00_3296))
					{	/* Llib/srfi4.scm 739 */
						BgL_vz00_3854 = BgL_vz00_3296;
					}
				else
					{
						obj_t BgL_auxz00_4990;

						BgL_auxz00_4990 =
							BGl_typezd2errorzd2zz__errorz00(BGl_string2365z00zz__srfi4z00,
							BINT(29479L), BGl_string2426z00zz__srfi4z00,
							BGl_string2379z00zz__srfi4z00, BgL_vz00_3296);
						FAILURE(BgL_auxz00_4990, BFALSE, BFALSE);
					}
				{	/* Llib/srfi4.scm 739 */
					obj_t BgL_tmpz00_4994;

					if (INTEGERP(BgL_kz00_3297))
						{	/* Llib/srfi4.scm 739 */
							BgL_tmpz00_4994 = BgL_kz00_3297;
						}
					else
						{
							obj_t BgL_auxz00_4997;

							BgL_auxz00_4997 =
								BGl_typezd2errorzd2zz__errorz00(BGl_string2365z00zz__srfi4z00,
								BINT(29479L), BGl_string2426z00zz__srfi4z00,
								BGl_string2387z00zz__srfi4z00, BgL_kz00_3297);
							FAILURE(BgL_auxz00_4997, BFALSE, BFALSE);
						}
					BgL_kz00_3855 = (long) CINT(BgL_tmpz00_4994);
				}
				{	/* Llib/srfi4.scm 739 */
					obj_t BgL_tmpz00_5002;

					if (BGL_INT64P(BgL_valz00_3298))
						{	/* Llib/srfi4.scm 739 */
							BgL_tmpz00_5002 = BgL_valz00_3298;
						}
					else
						{
							obj_t BgL_auxz00_5005;

							BgL_auxz00_5005 =
								BGl_typezd2errorzd2zz__errorz00(BGl_string2365z00zz__srfi4z00,
								BINT(29479L), BGl_string2426z00zz__srfi4z00,
								BGl_string2400z00zz__srfi4z00, BgL_valz00_3298);
							FAILURE(BgL_auxz00_5005, BFALSE, BFALSE);
						}
					BgL_valz00_3856 = BGL_BINT64_TO_INT64(BgL_tmpz00_5002);
				}
				BGL_S64VSET(BgL_vz00_3854, BgL_kz00_3855, BgL_valz00_3856);
				return BUNSPEC;
			}
		}

	}



/* u64vector-set! */
	BGL_EXPORTED_DEF obj_t BGl_u64vectorzd2setz12zc0zz__srfi4z00(obj_t
		BgL_vz00_121, long BgL_kz00_122, uint64_t BgL_valz00_123)
	{
		{	/* Llib/srfi4.scm 742 */
			BGL_U64VSET(BgL_vz00_121, BgL_kz00_122, BgL_valz00_123);
			return BUNSPEC;
		}

	}



/* &u64vector-set! */
	obj_t BGl_z62u64vectorzd2setz12za2zz__srfi4z00(obj_t BgL_envz00_3305,
		obj_t BgL_vz00_3306, obj_t BgL_kz00_3307, obj_t BgL_valz00_3308)
	{
		{	/* Llib/srfi4.scm 742 */
			{	/* Llib/srfi4.scm 742 */
				obj_t BgL_vz00_3857;
				long BgL_kz00_3858;
				uint64_t BgL_valz00_3859;

				if (BGL_U64VECTORP(BgL_vz00_3306))
					{	/* Llib/srfi4.scm 742 */
						BgL_vz00_3857 = BgL_vz00_3306;
					}
				else
					{
						obj_t BgL_auxz00_5014;

						BgL_auxz00_5014 =
							BGl_typezd2errorzd2zz__errorz00(BGl_string2365z00zz__srfi4z00,
							BINT(29550L), BGl_string2427z00zz__srfi4z00,
							BGl_string2381z00zz__srfi4z00, BgL_vz00_3306);
						FAILURE(BgL_auxz00_5014, BFALSE, BFALSE);
					}
				{	/* Llib/srfi4.scm 742 */
					obj_t BgL_tmpz00_5018;

					if (INTEGERP(BgL_kz00_3307))
						{	/* Llib/srfi4.scm 742 */
							BgL_tmpz00_5018 = BgL_kz00_3307;
						}
					else
						{
							obj_t BgL_auxz00_5021;

							BgL_auxz00_5021 =
								BGl_typezd2errorzd2zz__errorz00(BGl_string2365z00zz__srfi4z00,
								BINT(29550L), BGl_string2427z00zz__srfi4z00,
								BGl_string2387z00zz__srfi4z00, BgL_kz00_3307);
							FAILURE(BgL_auxz00_5021, BFALSE, BFALSE);
						}
					BgL_kz00_3858 = (long) CINT(BgL_tmpz00_5018);
				}
				{	/* Llib/srfi4.scm 742 */
					obj_t BgL_tmpz00_5026;

					if (BGL_UINT64P(BgL_valz00_3308))
						{	/* Llib/srfi4.scm 742 */
							BgL_tmpz00_5026 = BgL_valz00_3308;
						}
					else
						{
							obj_t BgL_auxz00_5029;

							BgL_auxz00_5029 =
								BGl_typezd2errorzd2zz__errorz00(BGl_string2365z00zz__srfi4z00,
								BINT(29550L), BGl_string2427z00zz__srfi4z00,
								BGl_string2402z00zz__srfi4z00, BgL_valz00_3308);
							FAILURE(BgL_auxz00_5029, BFALSE, BFALSE);
						}
					BgL_valz00_3859 = BGL_BINT64_TO_INT64(BgL_tmpz00_5026);
				}
				BGL_U64VSET(BgL_vz00_3857, BgL_kz00_3858, BgL_valz00_3859);
				return BUNSPEC;
			}
		}

	}



/* f32vector-set! */
	BGL_EXPORTED_DEF obj_t BGl_f32vectorzd2setz12zc0zz__srfi4z00(obj_t
		BgL_vz00_124, long BgL_kz00_125, float BgL_valz00_126)
	{
		{	/* Llib/srfi4.scm 745 */
			BGL_F32VSET(BgL_vz00_124, BgL_kz00_125, BgL_valz00_126);
			return BUNSPEC;
		}

	}



/* &f32vector-set! */
	obj_t BGl_z62f32vectorzd2setz12za2zz__srfi4z00(obj_t BgL_envz00_3315,
		obj_t BgL_vz00_3316, obj_t BgL_kz00_3317, obj_t BgL_valz00_3318)
	{
		{	/* Llib/srfi4.scm 745 */
			{	/* Llib/srfi4.scm 745 */
				obj_t BgL_vz00_3860;
				long BgL_kz00_3861;
				float BgL_valz00_3862;

				if (BGL_F32VECTORP(BgL_vz00_3316))
					{	/* Llib/srfi4.scm 745 */
						BgL_vz00_3860 = BgL_vz00_3316;
					}
				else
					{
						obj_t BgL_auxz00_5038;

						BgL_auxz00_5038 =
							BGl_typezd2errorzd2zz__errorz00(BGl_string2365z00zz__srfi4z00,
							BINT(29621L), BGl_string2428z00zz__srfi4z00,
							BGl_string2383z00zz__srfi4z00, BgL_vz00_3316);
						FAILURE(BgL_auxz00_5038, BFALSE, BFALSE);
					}
				{	/* Llib/srfi4.scm 745 */
					obj_t BgL_tmpz00_5042;

					if (INTEGERP(BgL_kz00_3317))
						{	/* Llib/srfi4.scm 745 */
							BgL_tmpz00_5042 = BgL_kz00_3317;
						}
					else
						{
							obj_t BgL_auxz00_5045;

							BgL_auxz00_5045 =
								BGl_typezd2errorzd2zz__errorz00(BGl_string2365z00zz__srfi4z00,
								BINT(29621L), BGl_string2428z00zz__srfi4z00,
								BGl_string2387z00zz__srfi4z00, BgL_kz00_3317);
							FAILURE(BgL_auxz00_5045, BFALSE, BFALSE);
						}
					BgL_kz00_3861 = (long) CINT(BgL_tmpz00_5042);
				}
				{	/* Llib/srfi4.scm 745 */
					obj_t BgL_tmpz00_5050;

					if (REALP(BgL_valz00_3318))
						{	/* Llib/srfi4.scm 745 */
							BgL_tmpz00_5050 = BgL_valz00_3318;
						}
					else
						{
							obj_t BgL_auxz00_5053;

							BgL_auxz00_5053 =
								BGl_typezd2errorzd2zz__errorz00(BGl_string2365z00zz__srfi4z00,
								BINT(29621L), BGl_string2428z00zz__srfi4z00,
								BGl_string2404z00zz__srfi4z00, BgL_valz00_3318);
							FAILURE(BgL_auxz00_5053, BFALSE, BFALSE);
						}
					BgL_valz00_3862 = REAL_TO_FLOAT(BgL_tmpz00_5050);
				}
				BGL_F32VSET(BgL_vz00_3860, BgL_kz00_3861, BgL_valz00_3862);
				return BUNSPEC;
			}
		}

	}



/* f64vector-set! */
	BGL_EXPORTED_DEF obj_t BGl_f64vectorzd2setz12zc0zz__srfi4z00(obj_t
		BgL_vz00_127, long BgL_kz00_128, double BgL_valz00_129)
	{
		{	/* Llib/srfi4.scm 748 */
			BGL_F64VSET(BgL_vz00_127, BgL_kz00_128, BgL_valz00_129);
			return BUNSPEC;
		}

	}



/* &f64vector-set! */
	obj_t BGl_z62f64vectorzd2setz12za2zz__srfi4z00(obj_t BgL_envz00_3325,
		obj_t BgL_vz00_3326, obj_t BgL_kz00_3327, obj_t BgL_valz00_3328)
	{
		{	/* Llib/srfi4.scm 748 */
			{	/* Llib/srfi4.scm 748 */
				obj_t BgL_vz00_3863;
				long BgL_kz00_3864;
				double BgL_valz00_3865;

				if (BGL_F64VECTORP(BgL_vz00_3326))
					{	/* Llib/srfi4.scm 748 */
						BgL_vz00_3863 = BgL_vz00_3326;
					}
				else
					{
						obj_t BgL_auxz00_5062;

						BgL_auxz00_5062 =
							BGl_typezd2errorzd2zz__errorz00(BGl_string2365z00zz__srfi4z00,
							BINT(29692L), BGl_string2429z00zz__srfi4z00,
							BGl_string2385z00zz__srfi4z00, BgL_vz00_3326);
						FAILURE(BgL_auxz00_5062, BFALSE, BFALSE);
					}
				{	/* Llib/srfi4.scm 748 */
					obj_t BgL_tmpz00_5066;

					if (INTEGERP(BgL_kz00_3327))
						{	/* Llib/srfi4.scm 748 */
							BgL_tmpz00_5066 = BgL_kz00_3327;
						}
					else
						{
							obj_t BgL_auxz00_5069;

							BgL_auxz00_5069 =
								BGl_typezd2errorzd2zz__errorz00(BGl_string2365z00zz__srfi4z00,
								BINT(29692L), BGl_string2429z00zz__srfi4z00,
								BGl_string2387z00zz__srfi4z00, BgL_kz00_3327);
							FAILURE(BgL_auxz00_5069, BFALSE, BFALSE);
						}
					BgL_kz00_3864 = (long) CINT(BgL_tmpz00_5066);
				}
				{	/* Llib/srfi4.scm 748 */
					obj_t BgL_tmpz00_5074;

					if (REALP(BgL_valz00_3328))
						{	/* Llib/srfi4.scm 748 */
							BgL_tmpz00_5074 = BgL_valz00_3328;
						}
					else
						{
							obj_t BgL_auxz00_5077;

							BgL_auxz00_5077 =
								BGl_typezd2errorzd2zz__errorz00(BGl_string2365z00zz__srfi4z00,
								BINT(29692L), BGl_string2429z00zz__srfi4z00,
								BGl_string2404z00zz__srfi4z00, BgL_valz00_3328);
							FAILURE(BgL_auxz00_5077, BFALSE, BFALSE);
						}
					BgL_valz00_3865 = REAL_TO_DOUBLE(BgL_tmpz00_5074);
				}
				BGL_F64VSET(BgL_vz00_3863, BgL_kz00_3864, BgL_valz00_3865);
				return BUNSPEC;
			}
		}

	}



/* s8vector->list */
	BGL_EXPORTED_DEF obj_t BGl_s8vectorzd2ze3listz31zz__srfi4z00(obj_t
		BgL_xz00_133)
	{
		{	/* Llib/srfi4.scm 771 */
			{	/* Llib/srfi4.scm 771 */
				long BgL_g1063z00_1519;

				BgL_g1063z00_1519 = BGL_HVECTOR_LENGTH(BgL_xz00_133);
				{
					long BgL_iz00_2425;
					obj_t BgL_resz00_2426;

					BgL_iz00_2425 = BgL_g1063z00_1519;
					BgL_resz00_2426 = BNIL;
				BgL_loopz00_2424:
					if ((BgL_iz00_2425 == 0L))
						{	/* Llib/srfi4.scm 771 */
							return BgL_resz00_2426;
						}
					else
						{	/* Llib/srfi4.scm 771 */
							long BgL_niz00_2432;

							BgL_niz00_2432 = (BgL_iz00_2425 - 1L);
							{	/* Llib/srfi4.scm 771 */
								obj_t BgL_arg1426z00_2433;

								{	/* Llib/srfi4.scm 771 */
									int8_t BgL_arg1427z00_2434;

									BgL_arg1427z00_2434 =
										BGL_S8VREF(BgL_xz00_133, BgL_niz00_2432);
									BgL_arg1426z00_2433 =
										MAKE_YOUNG_PAIR(BGL_INT8_TO_BINT8(BgL_arg1427z00_2434),
										BgL_resz00_2426);
								}
								{
									obj_t BgL_resz00_5091;
									long BgL_iz00_5090;

									BgL_iz00_5090 = BgL_niz00_2432;
									BgL_resz00_5091 = BgL_arg1426z00_2433;
									BgL_resz00_2426 = BgL_resz00_5091;
									BgL_iz00_2425 = BgL_iz00_5090;
									goto BgL_loopz00_2424;
								}
							}
						}
				}
			}
		}

	}



/* &s8vector->list */
	obj_t BGl_z62s8vectorzd2ze3listz53zz__srfi4z00(obj_t BgL_envz00_3373,
		obj_t BgL_xz00_3374)
	{
		{	/* Llib/srfi4.scm 771 */
			{	/* Llib/srfi4.scm 771 */
				obj_t BgL_auxz00_5092;

				if (BGL_S8VECTORP(BgL_xz00_3374))
					{	/* Llib/srfi4.scm 771 */
						BgL_auxz00_5092 = BgL_xz00_3374;
					}
				else
					{
						obj_t BgL_auxz00_5095;

						BgL_auxz00_5095 =
							BGl_typezd2errorzd2zz__errorz00(BGl_string2365z00zz__srfi4z00,
							BINT(30505L), BGl_string2430z00zz__srfi4z00,
							BGl_string2367z00zz__srfi4z00, BgL_xz00_3374);
						FAILURE(BgL_auxz00_5095, BFALSE, BFALSE);
					}
				return BGl_s8vectorzd2ze3listz31zz__srfi4z00(BgL_auxz00_5092);
			}
		}

	}



/* u8vector->list */
	BGL_EXPORTED_DEF obj_t BGl_u8vectorzd2ze3listz31zz__srfi4z00(obj_t
		BgL_xz00_134)
	{
		{	/* Llib/srfi4.scm 771 */
			{	/* Llib/srfi4.scm 771 */
				long BgL_g1065z00_1530;

				BgL_g1065z00_1530 = BGL_HVECTOR_LENGTH(BgL_xz00_134);
				{
					long BgL_iz00_2450;
					obj_t BgL_resz00_2451;

					BgL_iz00_2450 = BgL_g1065z00_1530;
					BgL_resz00_2451 = BNIL;
				BgL_loopz00_2449:
					if ((BgL_iz00_2450 == 0L))
						{	/* Llib/srfi4.scm 771 */
							return BgL_resz00_2451;
						}
					else
						{	/* Llib/srfi4.scm 771 */
							long BgL_niz00_2457;

							BgL_niz00_2457 = (BgL_iz00_2450 - 1L);
							{	/* Llib/srfi4.scm 771 */
								obj_t BgL_arg1430z00_2458;

								{	/* Llib/srfi4.scm 771 */
									uint8_t BgL_arg1431z00_2459;

									BgL_arg1431z00_2459 =
										BGL_U8VREF(BgL_xz00_134, BgL_niz00_2457);
									BgL_arg1430z00_2458 =
										MAKE_YOUNG_PAIR(BGL_UINT8_TO_BUINT8(BgL_arg1431z00_2459),
										BgL_resz00_2451);
								}
								{
									obj_t BgL_resz00_5108;
									long BgL_iz00_5107;

									BgL_iz00_5107 = BgL_niz00_2457;
									BgL_resz00_5108 = BgL_arg1430z00_2458;
									BgL_resz00_2451 = BgL_resz00_5108;
									BgL_iz00_2450 = BgL_iz00_5107;
									goto BgL_loopz00_2449;
								}
							}
						}
				}
			}
		}

	}



/* &u8vector->list */
	obj_t BGl_z62u8vectorzd2ze3listz53zz__srfi4z00(obj_t BgL_envz00_3375,
		obj_t BgL_xz00_3376)
	{
		{	/* Llib/srfi4.scm 771 */
			{	/* Llib/srfi4.scm 771 */
				obj_t BgL_auxz00_5109;

				if (BGL_U8VECTORP(BgL_xz00_3376))
					{	/* Llib/srfi4.scm 771 */
						BgL_auxz00_5109 = BgL_xz00_3376;
					}
				else
					{
						obj_t BgL_auxz00_5112;

						BgL_auxz00_5112 =
							BGl_typezd2errorzd2zz__errorz00(BGl_string2365z00zz__srfi4z00,
							BINT(30505L), BGl_string2431z00zz__srfi4z00,
							BGl_string2369z00zz__srfi4z00, BgL_xz00_3376);
						FAILURE(BgL_auxz00_5112, BFALSE, BFALSE);
					}
				return BGl_u8vectorzd2ze3listz31zz__srfi4z00(BgL_auxz00_5109);
			}
		}

	}



/* s16vector->list */
	BGL_EXPORTED_DEF obj_t BGl_s16vectorzd2ze3listz31zz__srfi4z00(obj_t
		BgL_xz00_135)
	{
		{	/* Llib/srfi4.scm 771 */
			{	/* Llib/srfi4.scm 771 */
				long BgL_g1067z00_1541;

				BgL_g1067z00_1541 = BGL_HVECTOR_LENGTH(BgL_xz00_135);
				{
					long BgL_iz00_2475;
					obj_t BgL_resz00_2476;

					BgL_iz00_2475 = BgL_g1067z00_1541;
					BgL_resz00_2476 = BNIL;
				BgL_loopz00_2474:
					if ((BgL_iz00_2475 == 0L))
						{	/* Llib/srfi4.scm 771 */
							return BgL_resz00_2476;
						}
					else
						{	/* Llib/srfi4.scm 771 */
							long BgL_niz00_2482;

							BgL_niz00_2482 = (BgL_iz00_2475 - 1L);
							{	/* Llib/srfi4.scm 771 */
								obj_t BgL_arg1434z00_2483;

								{	/* Llib/srfi4.scm 771 */
									int16_t BgL_arg1435z00_2484;

									BgL_arg1435z00_2484 =
										BGL_S16VREF(BgL_xz00_135, BgL_niz00_2482);
									BgL_arg1434z00_2483 =
										MAKE_YOUNG_PAIR(BGL_INT16_TO_BINT16(BgL_arg1435z00_2484),
										BgL_resz00_2476);
								}
								{
									obj_t BgL_resz00_5125;
									long BgL_iz00_5124;

									BgL_iz00_5124 = BgL_niz00_2482;
									BgL_resz00_5125 = BgL_arg1434z00_2483;
									BgL_resz00_2476 = BgL_resz00_5125;
									BgL_iz00_2475 = BgL_iz00_5124;
									goto BgL_loopz00_2474;
								}
							}
						}
				}
			}
		}

	}



/* &s16vector->list */
	obj_t BGl_z62s16vectorzd2ze3listz53zz__srfi4z00(obj_t BgL_envz00_3377,
		obj_t BgL_xz00_3378)
	{
		{	/* Llib/srfi4.scm 771 */
			{	/* Llib/srfi4.scm 771 */
				obj_t BgL_auxz00_5126;

				if (BGL_S16VECTORP(BgL_xz00_3378))
					{	/* Llib/srfi4.scm 771 */
						BgL_auxz00_5126 = BgL_xz00_3378;
					}
				else
					{
						obj_t BgL_auxz00_5129;

						BgL_auxz00_5129 =
							BGl_typezd2errorzd2zz__errorz00(BGl_string2365z00zz__srfi4z00,
							BINT(30505L), BGl_string2432z00zz__srfi4z00,
							BGl_string2371z00zz__srfi4z00, BgL_xz00_3378);
						FAILURE(BgL_auxz00_5129, BFALSE, BFALSE);
					}
				return BGl_s16vectorzd2ze3listz31zz__srfi4z00(BgL_auxz00_5126);
			}
		}

	}



/* u16vector->list */
	BGL_EXPORTED_DEF obj_t BGl_u16vectorzd2ze3listz31zz__srfi4z00(obj_t
		BgL_xz00_136)
	{
		{	/* Llib/srfi4.scm 771 */
			{	/* Llib/srfi4.scm 771 */
				long BgL_g1069z00_1552;

				BgL_g1069z00_1552 = BGL_HVECTOR_LENGTH(BgL_xz00_136);
				{
					long BgL_iz00_2500;
					obj_t BgL_resz00_2501;

					BgL_iz00_2500 = BgL_g1069z00_1552;
					BgL_resz00_2501 = BNIL;
				BgL_loopz00_2499:
					if ((BgL_iz00_2500 == 0L))
						{	/* Llib/srfi4.scm 771 */
							return BgL_resz00_2501;
						}
					else
						{	/* Llib/srfi4.scm 771 */
							long BgL_niz00_2507;

							BgL_niz00_2507 = (BgL_iz00_2500 - 1L);
							{	/* Llib/srfi4.scm 771 */
								obj_t BgL_arg1438z00_2508;

								{	/* Llib/srfi4.scm 771 */
									uint16_t BgL_arg1439z00_2509;

									BgL_arg1439z00_2509 =
										BGL_U16VREF(BgL_xz00_136, BgL_niz00_2507);
									BgL_arg1438z00_2508 =
										MAKE_YOUNG_PAIR(BGL_UINT16_TO_BUINT16(BgL_arg1439z00_2509),
										BgL_resz00_2501);
								}
								{
									obj_t BgL_resz00_5142;
									long BgL_iz00_5141;

									BgL_iz00_5141 = BgL_niz00_2507;
									BgL_resz00_5142 = BgL_arg1438z00_2508;
									BgL_resz00_2501 = BgL_resz00_5142;
									BgL_iz00_2500 = BgL_iz00_5141;
									goto BgL_loopz00_2499;
								}
							}
						}
				}
			}
		}

	}



/* &u16vector->list */
	obj_t BGl_z62u16vectorzd2ze3listz53zz__srfi4z00(obj_t BgL_envz00_3379,
		obj_t BgL_xz00_3380)
	{
		{	/* Llib/srfi4.scm 771 */
			{	/* Llib/srfi4.scm 771 */
				obj_t BgL_auxz00_5143;

				if (BGL_U16VECTORP(BgL_xz00_3380))
					{	/* Llib/srfi4.scm 771 */
						BgL_auxz00_5143 = BgL_xz00_3380;
					}
				else
					{
						obj_t BgL_auxz00_5146;

						BgL_auxz00_5146 =
							BGl_typezd2errorzd2zz__errorz00(BGl_string2365z00zz__srfi4z00,
							BINT(30505L), BGl_string2433z00zz__srfi4z00,
							BGl_string2373z00zz__srfi4z00, BgL_xz00_3380);
						FAILURE(BgL_auxz00_5146, BFALSE, BFALSE);
					}
				return BGl_u16vectorzd2ze3listz31zz__srfi4z00(BgL_auxz00_5143);
			}
		}

	}



/* s32vector->list */
	BGL_EXPORTED_DEF obj_t BGl_s32vectorzd2ze3listz31zz__srfi4z00(obj_t
		BgL_xz00_137)
	{
		{	/* Llib/srfi4.scm 771 */
			{	/* Llib/srfi4.scm 771 */
				long BgL_g1071z00_1563;

				BgL_g1071z00_1563 = BGL_HVECTOR_LENGTH(BgL_xz00_137);
				{
					long BgL_iz00_2525;
					obj_t BgL_resz00_2526;

					BgL_iz00_2525 = BgL_g1071z00_1563;
					BgL_resz00_2526 = BNIL;
				BgL_loopz00_2524:
					if ((BgL_iz00_2525 == 0L))
						{	/* Llib/srfi4.scm 771 */
							return BgL_resz00_2526;
						}
					else
						{	/* Llib/srfi4.scm 771 */
							long BgL_niz00_2532;

							BgL_niz00_2532 = (BgL_iz00_2525 - 1L);
							{	/* Llib/srfi4.scm 771 */
								obj_t BgL_arg1442z00_2533;

								{	/* Llib/srfi4.scm 771 */
									int32_t BgL_arg1443z00_2534;

									BgL_arg1443z00_2534 =
										BGL_S32VREF(BgL_xz00_137, BgL_niz00_2532);
									BgL_arg1442z00_2533 =
										MAKE_YOUNG_PAIR(BGL_INT32_TO_BINT32(BgL_arg1443z00_2534),
										BgL_resz00_2526);
								}
								{
									obj_t BgL_resz00_5159;
									long BgL_iz00_5158;

									BgL_iz00_5158 = BgL_niz00_2532;
									BgL_resz00_5159 = BgL_arg1442z00_2533;
									BgL_resz00_2526 = BgL_resz00_5159;
									BgL_iz00_2525 = BgL_iz00_5158;
									goto BgL_loopz00_2524;
								}
							}
						}
				}
			}
		}

	}



/* &s32vector->list */
	obj_t BGl_z62s32vectorzd2ze3listz53zz__srfi4z00(obj_t BgL_envz00_3381,
		obj_t BgL_xz00_3382)
	{
		{	/* Llib/srfi4.scm 771 */
			{	/* Llib/srfi4.scm 771 */
				obj_t BgL_auxz00_5160;

				if (BGL_S32VECTORP(BgL_xz00_3382))
					{	/* Llib/srfi4.scm 771 */
						BgL_auxz00_5160 = BgL_xz00_3382;
					}
				else
					{
						obj_t BgL_auxz00_5163;

						BgL_auxz00_5163 =
							BGl_typezd2errorzd2zz__errorz00(BGl_string2365z00zz__srfi4z00,
							BINT(30505L), BGl_string2434z00zz__srfi4z00,
							BGl_string2375z00zz__srfi4z00, BgL_xz00_3382);
						FAILURE(BgL_auxz00_5163, BFALSE, BFALSE);
					}
				return BGl_s32vectorzd2ze3listz31zz__srfi4z00(BgL_auxz00_5160);
			}
		}

	}



/* u32vector->list */
	BGL_EXPORTED_DEF obj_t BGl_u32vectorzd2ze3listz31zz__srfi4z00(obj_t
		BgL_xz00_138)
	{
		{	/* Llib/srfi4.scm 771 */
			{	/* Llib/srfi4.scm 771 */
				long BgL_g1073z00_1574;

				BgL_g1073z00_1574 = BGL_HVECTOR_LENGTH(BgL_xz00_138);
				{
					long BgL_iz00_2550;
					obj_t BgL_resz00_2551;

					BgL_iz00_2550 = BgL_g1073z00_1574;
					BgL_resz00_2551 = BNIL;
				BgL_loopz00_2549:
					if ((BgL_iz00_2550 == 0L))
						{	/* Llib/srfi4.scm 771 */
							return BgL_resz00_2551;
						}
					else
						{	/* Llib/srfi4.scm 771 */
							long BgL_niz00_2557;

							BgL_niz00_2557 = (BgL_iz00_2550 - 1L);
							{	/* Llib/srfi4.scm 771 */
								obj_t BgL_arg1446z00_2558;

								{	/* Llib/srfi4.scm 771 */
									uint32_t BgL_arg1447z00_2559;

									BgL_arg1447z00_2559 =
										BGL_U32VREF(BgL_xz00_138, BgL_niz00_2557);
									BgL_arg1446z00_2558 =
										MAKE_YOUNG_PAIR(BGL_UINT32_TO_BUINT32(BgL_arg1447z00_2559),
										BgL_resz00_2551);
								}
								{
									obj_t BgL_resz00_5176;
									long BgL_iz00_5175;

									BgL_iz00_5175 = BgL_niz00_2557;
									BgL_resz00_5176 = BgL_arg1446z00_2558;
									BgL_resz00_2551 = BgL_resz00_5176;
									BgL_iz00_2550 = BgL_iz00_5175;
									goto BgL_loopz00_2549;
								}
							}
						}
				}
			}
		}

	}



/* &u32vector->list */
	obj_t BGl_z62u32vectorzd2ze3listz53zz__srfi4z00(obj_t BgL_envz00_3383,
		obj_t BgL_xz00_3384)
	{
		{	/* Llib/srfi4.scm 771 */
			{	/* Llib/srfi4.scm 771 */
				obj_t BgL_auxz00_5177;

				if (BGL_U32VECTORP(BgL_xz00_3384))
					{	/* Llib/srfi4.scm 771 */
						BgL_auxz00_5177 = BgL_xz00_3384;
					}
				else
					{
						obj_t BgL_auxz00_5180;

						BgL_auxz00_5180 =
							BGl_typezd2errorzd2zz__errorz00(BGl_string2365z00zz__srfi4z00,
							BINT(30505L), BGl_string2435z00zz__srfi4z00,
							BGl_string2377z00zz__srfi4z00, BgL_xz00_3384);
						FAILURE(BgL_auxz00_5180, BFALSE, BFALSE);
					}
				return BGl_u32vectorzd2ze3listz31zz__srfi4z00(BgL_auxz00_5177);
			}
		}

	}



/* s64vector->list */
	BGL_EXPORTED_DEF obj_t BGl_s64vectorzd2ze3listz31zz__srfi4z00(obj_t
		BgL_xz00_139)
	{
		{	/* Llib/srfi4.scm 771 */
			{	/* Llib/srfi4.scm 771 */
				long BgL_g1075z00_1585;

				BgL_g1075z00_1585 = BGL_HVECTOR_LENGTH(BgL_xz00_139);
				{
					long BgL_iz00_2575;
					obj_t BgL_resz00_2576;

					BgL_iz00_2575 = BgL_g1075z00_1585;
					BgL_resz00_2576 = BNIL;
				BgL_loopz00_2574:
					if ((BgL_iz00_2575 == 0L))
						{	/* Llib/srfi4.scm 771 */
							return BgL_resz00_2576;
						}
					else
						{	/* Llib/srfi4.scm 771 */
							long BgL_niz00_2582;

							BgL_niz00_2582 = (BgL_iz00_2575 - 1L);
							{	/* Llib/srfi4.scm 771 */
								obj_t BgL_arg1450z00_2583;

								{	/* Llib/srfi4.scm 771 */
									int64_t BgL_arg1451z00_2584;

									BgL_arg1451z00_2584 =
										BGL_S64VREF(BgL_xz00_139, BgL_niz00_2582);
									BgL_arg1450z00_2583 =
										MAKE_YOUNG_PAIR(BGL_INT64_TO_BINT64(BgL_arg1451z00_2584),
										BgL_resz00_2576);
								}
								{
									obj_t BgL_resz00_5193;
									long BgL_iz00_5192;

									BgL_iz00_5192 = BgL_niz00_2582;
									BgL_resz00_5193 = BgL_arg1450z00_2583;
									BgL_resz00_2576 = BgL_resz00_5193;
									BgL_iz00_2575 = BgL_iz00_5192;
									goto BgL_loopz00_2574;
								}
							}
						}
				}
			}
		}

	}



/* &s64vector->list */
	obj_t BGl_z62s64vectorzd2ze3listz53zz__srfi4z00(obj_t BgL_envz00_3385,
		obj_t BgL_xz00_3386)
	{
		{	/* Llib/srfi4.scm 771 */
			{	/* Llib/srfi4.scm 771 */
				obj_t BgL_auxz00_5194;

				if (BGL_S64VECTORP(BgL_xz00_3386))
					{	/* Llib/srfi4.scm 771 */
						BgL_auxz00_5194 = BgL_xz00_3386;
					}
				else
					{
						obj_t BgL_auxz00_5197;

						BgL_auxz00_5197 =
							BGl_typezd2errorzd2zz__errorz00(BGl_string2365z00zz__srfi4z00,
							BINT(30505L), BGl_string2436z00zz__srfi4z00,
							BGl_string2379z00zz__srfi4z00, BgL_xz00_3386);
						FAILURE(BgL_auxz00_5197, BFALSE, BFALSE);
					}
				return BGl_s64vectorzd2ze3listz31zz__srfi4z00(BgL_auxz00_5194);
			}
		}

	}



/* u64vector->list */
	BGL_EXPORTED_DEF obj_t BGl_u64vectorzd2ze3listz31zz__srfi4z00(obj_t
		BgL_xz00_140)
	{
		{	/* Llib/srfi4.scm 771 */
			{	/* Llib/srfi4.scm 771 */
				long BgL_g1078z00_1596;

				BgL_g1078z00_1596 = BGL_HVECTOR_LENGTH(BgL_xz00_140);
				{
					long BgL_iz00_2600;
					obj_t BgL_resz00_2601;

					BgL_iz00_2600 = BgL_g1078z00_1596;
					BgL_resz00_2601 = BNIL;
				BgL_loopz00_2599:
					if ((BgL_iz00_2600 == 0L))
						{	/* Llib/srfi4.scm 771 */
							return BgL_resz00_2601;
						}
					else
						{	/* Llib/srfi4.scm 771 */
							long BgL_niz00_2607;

							BgL_niz00_2607 = (BgL_iz00_2600 - 1L);
							{	/* Llib/srfi4.scm 771 */
								obj_t BgL_arg1454z00_2608;

								{	/* Llib/srfi4.scm 771 */
									uint64_t BgL_arg1455z00_2609;

									BgL_arg1455z00_2609 =
										BGL_U64VREF(BgL_xz00_140, BgL_niz00_2607);
									BgL_arg1454z00_2608 =
										MAKE_YOUNG_PAIR(BGL_UINT64_TO_BUINT64(BgL_arg1455z00_2609),
										BgL_resz00_2601);
								}
								{
									obj_t BgL_resz00_5210;
									long BgL_iz00_5209;

									BgL_iz00_5209 = BgL_niz00_2607;
									BgL_resz00_5210 = BgL_arg1454z00_2608;
									BgL_resz00_2601 = BgL_resz00_5210;
									BgL_iz00_2600 = BgL_iz00_5209;
									goto BgL_loopz00_2599;
								}
							}
						}
				}
			}
		}

	}



/* &u64vector->list */
	obj_t BGl_z62u64vectorzd2ze3listz53zz__srfi4z00(obj_t BgL_envz00_3387,
		obj_t BgL_xz00_3388)
	{
		{	/* Llib/srfi4.scm 771 */
			{	/* Llib/srfi4.scm 771 */
				obj_t BgL_auxz00_5211;

				if (BGL_U64VECTORP(BgL_xz00_3388))
					{	/* Llib/srfi4.scm 771 */
						BgL_auxz00_5211 = BgL_xz00_3388;
					}
				else
					{
						obj_t BgL_auxz00_5214;

						BgL_auxz00_5214 =
							BGl_typezd2errorzd2zz__errorz00(BGl_string2365z00zz__srfi4z00,
							BINT(30505L), BGl_string2437z00zz__srfi4z00,
							BGl_string2381z00zz__srfi4z00, BgL_xz00_3388);
						FAILURE(BgL_auxz00_5214, BFALSE, BFALSE);
					}
				return BGl_u64vectorzd2ze3listz31zz__srfi4z00(BgL_auxz00_5211);
			}
		}

	}



/* f32vector->list */
	BGL_EXPORTED_DEF obj_t BGl_f32vectorzd2ze3listz31zz__srfi4z00(obj_t
		BgL_xz00_141)
	{
		{	/* Llib/srfi4.scm 771 */
			{	/* Llib/srfi4.scm 771 */
				long BgL_g1080z00_1607;

				BgL_g1080z00_1607 = BGL_HVECTOR_LENGTH(BgL_xz00_141);
				{
					long BgL_iz00_2625;
					obj_t BgL_resz00_2626;

					BgL_iz00_2625 = BgL_g1080z00_1607;
					BgL_resz00_2626 = BNIL;
				BgL_loopz00_2624:
					if ((BgL_iz00_2625 == 0L))
						{	/* Llib/srfi4.scm 771 */
							return BgL_resz00_2626;
						}
					else
						{	/* Llib/srfi4.scm 771 */
							long BgL_niz00_2632;

							BgL_niz00_2632 = (BgL_iz00_2625 - 1L);
							{	/* Llib/srfi4.scm 771 */
								obj_t BgL_arg1458z00_2633;

								{	/* Llib/srfi4.scm 771 */
									float BgL_arg1459z00_2634;

									BgL_arg1459z00_2634 =
										BGL_F32VREF(BgL_xz00_141, BgL_niz00_2632);
									BgL_arg1458z00_2633 =
										MAKE_YOUNG_PAIR(FLOAT_TO_REAL(BgL_arg1459z00_2634),
										BgL_resz00_2626);
								}
								{
									obj_t BgL_resz00_5227;
									long BgL_iz00_5226;

									BgL_iz00_5226 = BgL_niz00_2632;
									BgL_resz00_5227 = BgL_arg1458z00_2633;
									BgL_resz00_2626 = BgL_resz00_5227;
									BgL_iz00_2625 = BgL_iz00_5226;
									goto BgL_loopz00_2624;
								}
							}
						}
				}
			}
		}

	}



/* &f32vector->list */
	obj_t BGl_z62f32vectorzd2ze3listz53zz__srfi4z00(obj_t BgL_envz00_3389,
		obj_t BgL_xz00_3390)
	{
		{	/* Llib/srfi4.scm 771 */
			{	/* Llib/srfi4.scm 771 */
				obj_t BgL_auxz00_5228;

				if (BGL_F32VECTORP(BgL_xz00_3390))
					{	/* Llib/srfi4.scm 771 */
						BgL_auxz00_5228 = BgL_xz00_3390;
					}
				else
					{
						obj_t BgL_auxz00_5231;

						BgL_auxz00_5231 =
							BGl_typezd2errorzd2zz__errorz00(BGl_string2365z00zz__srfi4z00,
							BINT(30505L), BGl_string2438z00zz__srfi4z00,
							BGl_string2383z00zz__srfi4z00, BgL_xz00_3390);
						FAILURE(BgL_auxz00_5231, BFALSE, BFALSE);
					}
				return BGl_f32vectorzd2ze3listz31zz__srfi4z00(BgL_auxz00_5228);
			}
		}

	}



/* f64vector->list */
	BGL_EXPORTED_DEF obj_t BGl_f64vectorzd2ze3listz31zz__srfi4z00(obj_t
		BgL_xz00_142)
	{
		{	/* Llib/srfi4.scm 771 */
			{	/* Llib/srfi4.scm 771 */
				long BgL_g1082z00_1618;

				BgL_g1082z00_1618 = BGL_HVECTOR_LENGTH(BgL_xz00_142);
				{
					long BgL_iz00_2650;
					obj_t BgL_resz00_2651;

					BgL_iz00_2650 = BgL_g1082z00_1618;
					BgL_resz00_2651 = BNIL;
				BgL_loopz00_2649:
					if ((BgL_iz00_2650 == 0L))
						{	/* Llib/srfi4.scm 771 */
							return BgL_resz00_2651;
						}
					else
						{	/* Llib/srfi4.scm 771 */
							long BgL_niz00_2657;

							BgL_niz00_2657 = (BgL_iz00_2650 - 1L);
							{	/* Llib/srfi4.scm 771 */
								obj_t BgL_arg1462z00_2658;

								{	/* Llib/srfi4.scm 771 */
									double BgL_arg1463z00_2659;

									BgL_arg1463z00_2659 =
										BGL_F64VREF(BgL_xz00_142, BgL_niz00_2657);
									BgL_arg1462z00_2658 =
										MAKE_YOUNG_PAIR(DOUBLE_TO_REAL(BgL_arg1463z00_2659),
										BgL_resz00_2651);
								}
								{
									obj_t BgL_resz00_5244;
									long BgL_iz00_5243;

									BgL_iz00_5243 = BgL_niz00_2657;
									BgL_resz00_5244 = BgL_arg1462z00_2658;
									BgL_resz00_2651 = BgL_resz00_5244;
									BgL_iz00_2650 = BgL_iz00_5243;
									goto BgL_loopz00_2649;
								}
							}
						}
				}
			}
		}

	}



/* &f64vector->list */
	obj_t BGl_z62f64vectorzd2ze3listz53zz__srfi4z00(obj_t BgL_envz00_3391,
		obj_t BgL_xz00_3392)
	{
		{	/* Llib/srfi4.scm 771 */
			{	/* Llib/srfi4.scm 771 */
				obj_t BgL_auxz00_5245;

				if (BGL_F64VECTORP(BgL_xz00_3392))
					{	/* Llib/srfi4.scm 771 */
						BgL_auxz00_5245 = BgL_xz00_3392;
					}
				else
					{
						obj_t BgL_auxz00_5248;

						BgL_auxz00_5248 =
							BGl_typezd2errorzd2zz__errorz00(BGl_string2365z00zz__srfi4z00,
							BINT(30505L), BGl_string2439z00zz__srfi4z00,
							BGl_string2385z00zz__srfi4z00, BgL_xz00_3392);
						FAILURE(BgL_auxz00_5248, BFALSE, BFALSE);
					}
				return BGl_f64vectorzd2ze3listz31zz__srfi4z00(BgL_auxz00_5245);
			}
		}

	}



/* list->s8vector */
	BGL_EXPORTED_DEF obj_t BGl_listzd2ze3s8vectorz31zz__srfi4z00(obj_t
		BgL_xz00_143)
	{
		{	/* Llib/srfi4.scm 796 */
			{	/* Llib/srfi4.scm 796 */
				long BgL_lenz00_1629;

				BgL_lenz00_1629 = bgl_list_length(BgL_xz00_143);
				{	/* Llib/srfi4.scm 796 */
					obj_t BgL_vecz00_1630;

					{	/* Llib/srfi4.scm 796 */
						int32_t BgL_tmpz00_5254;

						BgL_tmpz00_5254 = (int32_t) (BgL_lenz00_1629);
						BgL_vecz00_1630 = BGL_ALLOC_S8VECTOR(BgL_tmpz00_5254);
					}
					{	/* Llib/srfi4.scm 796 */

						{
							long BgL_iz00_2671;
							obj_t BgL_lz00_2672;

							BgL_iz00_2671 = 0L;
							BgL_lz00_2672 = BgL_xz00_143;
						BgL_loopz00_2670:
							if ((BgL_iz00_2671 == BgL_lenz00_1629))
								{	/* Llib/srfi4.scm 796 */
									return BgL_vecz00_1630;
								}
							else
								{	/* Llib/srfi4.scm 796 */
									{	/* Llib/srfi4.scm 796 */
										obj_t BgL_arg1468z00_2676;

										if (INTEGERP(CAR(((obj_t) BgL_lz00_2672))))
											{	/* Llib/srfi4.scm 796 */
												obj_t BgL_arg1471z00_2680;

												BgL_arg1471z00_2680 = CAR(((obj_t) BgL_lz00_2672));
												{	/* Llib/srfi4.scm 796 */
													long BgL_xz00_2682;

													BgL_xz00_2682 = (long) CINT(BgL_arg1471z00_2680);
													{	/* Llib/srfi4.scm 796 */
														int8_t BgL_tmpz00_5266;

														BgL_tmpz00_5266 = (int8_t) (BgL_xz00_2682);
														BgL_arg1468z00_2676 =
															BGL_INT8_TO_BINT8(BgL_tmpz00_5266);
											}}}
										else
											{	/* Llib/srfi4.scm 796 */
												BgL_arg1468z00_2676 = CAR(((obj_t) BgL_lz00_2672));
											}
										{	/* Llib/srfi4.scm 796 */
											int8_t BgL_tmpz00_5271;

											BgL_tmpz00_5271 = BGL_BINT8_TO_INT8(BgL_arg1468z00_2676);
											BGL_S8VSET(BgL_vecz00_1630, BgL_iz00_2671,
												BgL_tmpz00_5271);
										}
										BUNSPEC;
									}
									{	/* Llib/srfi4.scm 796 */
										long BgL_arg1473z00_2684;
										obj_t BgL_arg1474z00_2685;

										BgL_arg1473z00_2684 = (BgL_iz00_2671 + 1L);
										BgL_arg1474z00_2685 = CDR(((obj_t) BgL_lz00_2672));
										{
											obj_t BgL_lz00_5278;
											long BgL_iz00_5277;

											BgL_iz00_5277 = BgL_arg1473z00_2684;
											BgL_lz00_5278 = BgL_arg1474z00_2685;
											BgL_lz00_2672 = BgL_lz00_5278;
											BgL_iz00_2671 = BgL_iz00_5277;
											goto BgL_loopz00_2670;
										}
									}
								}
						}
					}
				}
			}
		}

	}



/* &list->s8vector */
	obj_t BGl_z62listzd2ze3s8vectorz53zz__srfi4z00(obj_t BgL_envz00_3393,
		obj_t BgL_xz00_3394)
	{
		{	/* Llib/srfi4.scm 796 */
			{	/* Llib/srfi4.scm 796 */
				obj_t BgL_auxz00_5279;

				if (BGl_pairzd2orzd2nullzf3zf3zz__r4_pairs_and_lists_6_3z00
					(BgL_xz00_3394))
					{	/* Llib/srfi4.scm 796 */
						BgL_auxz00_5279 = BgL_xz00_3394;
					}
				else
					{
						obj_t BgL_auxz00_5282;

						BgL_auxz00_5282 =
							BGl_typezd2errorzd2zz__errorz00(BGl_string2365z00zz__srfi4z00,
							BINT(31419L), BGl_string2440z00zz__srfi4z00,
							BGl_string2441z00zz__srfi4z00, BgL_xz00_3394);
						FAILURE(BgL_auxz00_5282, BFALSE, BFALSE);
					}
				return BGl_listzd2ze3s8vectorz31zz__srfi4z00(BgL_auxz00_5279);
			}
		}

	}



/* list->u8vector */
	BGL_EXPORTED_DEF obj_t BGl_listzd2ze3u8vectorz31zz__srfi4z00(obj_t
		BgL_xz00_144)
	{
		{	/* Llib/srfi4.scm 796 */
			{	/* Llib/srfi4.scm 796 */
				long BgL_lenz00_1644;

				BgL_lenz00_1644 = bgl_list_length(BgL_xz00_144);
				{	/* Llib/srfi4.scm 796 */
					obj_t BgL_vecz00_1645;

					{	/* Llib/srfi4.scm 796 */
						int32_t BgL_tmpz00_5288;

						BgL_tmpz00_5288 = (int32_t) (BgL_lenz00_1644);
						BgL_vecz00_1645 = BGL_ALLOC_U8VECTOR(BgL_tmpz00_5288);
					}
					{	/* Llib/srfi4.scm 796 */

						{
							long BgL_iz00_2697;
							obj_t BgL_lz00_2698;

							BgL_iz00_2697 = 0L;
							BgL_lz00_2698 = BgL_xz00_144;
						BgL_loopz00_2696:
							if ((BgL_iz00_2697 == BgL_lenz00_1644))
								{	/* Llib/srfi4.scm 796 */
									return BgL_vecz00_1645;
								}
							else
								{	/* Llib/srfi4.scm 796 */
									{	/* Llib/srfi4.scm 796 */
										obj_t BgL_arg1477z00_2702;

										if (INTEGERP(CAR(((obj_t) BgL_lz00_2698))))
											{	/* Llib/srfi4.scm 796 */
												obj_t BgL_arg1480z00_2706;

												BgL_arg1480z00_2706 = CAR(((obj_t) BgL_lz00_2698));
												{	/* Llib/srfi4.scm 796 */
													long BgL_xz00_2708;

													BgL_xz00_2708 = (long) CINT(BgL_arg1480z00_2706);
													{	/* Llib/srfi4.scm 796 */
														uint8_t BgL_tmpz00_5300;

														BgL_tmpz00_5300 = (uint8_t) (BgL_xz00_2708);
														BgL_arg1477z00_2702 =
															BGL_UINT8_TO_BUINT8(BgL_tmpz00_5300);
											}}}
										else
											{	/* Llib/srfi4.scm 796 */
												BgL_arg1477z00_2702 = CAR(((obj_t) BgL_lz00_2698));
											}
										{	/* Llib/srfi4.scm 796 */
											uint8_t BgL_tmpz00_5305;

											BgL_tmpz00_5305 =
												BGL_BUINT8_TO_UINT8(BgL_arg1477z00_2702);
											BGL_U8VSET(BgL_vecz00_1645, BgL_iz00_2697,
												BgL_tmpz00_5305);
										}
										BUNSPEC;
									}
									{	/* Llib/srfi4.scm 796 */
										long BgL_arg1482z00_2710;
										obj_t BgL_arg1483z00_2711;

										BgL_arg1482z00_2710 = (BgL_iz00_2697 + 1L);
										BgL_arg1483z00_2711 = CDR(((obj_t) BgL_lz00_2698));
										{
											obj_t BgL_lz00_5312;
											long BgL_iz00_5311;

											BgL_iz00_5311 = BgL_arg1482z00_2710;
											BgL_lz00_5312 = BgL_arg1483z00_2711;
											BgL_lz00_2698 = BgL_lz00_5312;
											BgL_iz00_2697 = BgL_iz00_5311;
											goto BgL_loopz00_2696;
										}
									}
								}
						}
					}
				}
			}
		}

	}



/* &list->u8vector */
	obj_t BGl_z62listzd2ze3u8vectorz53zz__srfi4z00(obj_t BgL_envz00_3395,
		obj_t BgL_xz00_3396)
	{
		{	/* Llib/srfi4.scm 796 */
			{	/* Llib/srfi4.scm 796 */
				obj_t BgL_auxz00_5313;

				if (BGl_pairzd2orzd2nullzf3zf3zz__r4_pairs_and_lists_6_3z00
					(BgL_xz00_3396))
					{	/* Llib/srfi4.scm 796 */
						BgL_auxz00_5313 = BgL_xz00_3396;
					}
				else
					{
						obj_t BgL_auxz00_5316;

						BgL_auxz00_5316 =
							BGl_typezd2errorzd2zz__errorz00(BGl_string2365z00zz__srfi4z00,
							BINT(31419L), BGl_string2442z00zz__srfi4z00,
							BGl_string2441z00zz__srfi4z00, BgL_xz00_3396);
						FAILURE(BgL_auxz00_5316, BFALSE, BFALSE);
					}
				return BGl_listzd2ze3u8vectorz31zz__srfi4z00(BgL_auxz00_5313);
			}
		}

	}



/* list->s16vector */
	BGL_EXPORTED_DEF obj_t BGl_listzd2ze3s16vectorz31zz__srfi4z00(obj_t
		BgL_xz00_145)
	{
		{	/* Llib/srfi4.scm 796 */
			{	/* Llib/srfi4.scm 796 */
				long BgL_lenz00_1659;

				BgL_lenz00_1659 = bgl_list_length(BgL_xz00_145);
				{	/* Llib/srfi4.scm 796 */
					obj_t BgL_vecz00_1660;

					{	/* Llib/srfi4.scm 796 */
						int32_t BgL_tmpz00_5322;

						BgL_tmpz00_5322 = (int32_t) (BgL_lenz00_1659);
						BgL_vecz00_1660 = BGL_ALLOC_S16VECTOR(BgL_tmpz00_5322);
					}
					{	/* Llib/srfi4.scm 796 */

						{
							long BgL_iz00_2723;
							obj_t BgL_lz00_2724;

							BgL_iz00_2723 = 0L;
							BgL_lz00_2724 = BgL_xz00_145;
						BgL_loopz00_2722:
							if ((BgL_iz00_2723 == BgL_lenz00_1659))
								{	/* Llib/srfi4.scm 796 */
									return BgL_vecz00_1660;
								}
							else
								{	/* Llib/srfi4.scm 796 */
									{	/* Llib/srfi4.scm 796 */
										obj_t BgL_arg1487z00_2728;

										if (INTEGERP(CAR(((obj_t) BgL_lz00_2724))))
											{	/* Llib/srfi4.scm 796 */
												obj_t BgL_arg1491z00_2732;

												BgL_arg1491z00_2732 = CAR(((obj_t) BgL_lz00_2724));
												{	/* Llib/srfi4.scm 796 */
													long BgL_xz00_2734;

													BgL_xz00_2734 = (long) CINT(BgL_arg1491z00_2732);
													{	/* Llib/srfi4.scm 796 */
														int16_t BgL_tmpz00_5334;

														BgL_tmpz00_5334 = (int16_t) (BgL_xz00_2734);
														BgL_arg1487z00_2728 =
															BGL_INT16_TO_BINT16(BgL_tmpz00_5334);
											}}}
										else
											{	/* Llib/srfi4.scm 796 */
												BgL_arg1487z00_2728 = CAR(((obj_t) BgL_lz00_2724));
											}
										{	/* Llib/srfi4.scm 796 */
											int16_t BgL_tmpz00_5339;

											BgL_tmpz00_5339 =
												BGL_BINT16_TO_INT16(BgL_arg1487z00_2728);
											BGL_S16VSET(BgL_vecz00_1660, BgL_iz00_2723,
												BgL_tmpz00_5339);
										}
										BUNSPEC;
									}
									{	/* Llib/srfi4.scm 796 */
										long BgL_arg1493z00_2736;
										obj_t BgL_arg1494z00_2737;

										BgL_arg1493z00_2736 = (BgL_iz00_2723 + 1L);
										BgL_arg1494z00_2737 = CDR(((obj_t) BgL_lz00_2724));
										{
											obj_t BgL_lz00_5346;
											long BgL_iz00_5345;

											BgL_iz00_5345 = BgL_arg1493z00_2736;
											BgL_lz00_5346 = BgL_arg1494z00_2737;
											BgL_lz00_2724 = BgL_lz00_5346;
											BgL_iz00_2723 = BgL_iz00_5345;
											goto BgL_loopz00_2722;
										}
									}
								}
						}
					}
				}
			}
		}

	}



/* &list->s16vector */
	obj_t BGl_z62listzd2ze3s16vectorz53zz__srfi4z00(obj_t BgL_envz00_3397,
		obj_t BgL_xz00_3398)
	{
		{	/* Llib/srfi4.scm 796 */
			{	/* Llib/srfi4.scm 796 */
				obj_t BgL_auxz00_5347;

				if (BGl_pairzd2orzd2nullzf3zf3zz__r4_pairs_and_lists_6_3z00
					(BgL_xz00_3398))
					{	/* Llib/srfi4.scm 796 */
						BgL_auxz00_5347 = BgL_xz00_3398;
					}
				else
					{
						obj_t BgL_auxz00_5350;

						BgL_auxz00_5350 =
							BGl_typezd2errorzd2zz__errorz00(BGl_string2365z00zz__srfi4z00,
							BINT(31419L), BGl_string2443z00zz__srfi4z00,
							BGl_string2441z00zz__srfi4z00, BgL_xz00_3398);
						FAILURE(BgL_auxz00_5350, BFALSE, BFALSE);
					}
				return BGl_listzd2ze3s16vectorz31zz__srfi4z00(BgL_auxz00_5347);
			}
		}

	}



/* list->u16vector */
	BGL_EXPORTED_DEF obj_t BGl_listzd2ze3u16vectorz31zz__srfi4z00(obj_t
		BgL_xz00_146)
	{
		{	/* Llib/srfi4.scm 796 */
			{	/* Llib/srfi4.scm 796 */
				long BgL_lenz00_1674;

				BgL_lenz00_1674 = bgl_list_length(BgL_xz00_146);
				{	/* Llib/srfi4.scm 796 */
					obj_t BgL_vecz00_1675;

					{	/* Llib/srfi4.scm 796 */
						int32_t BgL_tmpz00_5356;

						BgL_tmpz00_5356 = (int32_t) (BgL_lenz00_1674);
						BgL_vecz00_1675 = BGL_ALLOC_U16VECTOR(BgL_tmpz00_5356);
					}
					{	/* Llib/srfi4.scm 796 */

						{
							long BgL_iz00_2749;
							obj_t BgL_lz00_2750;

							BgL_iz00_2749 = 0L;
							BgL_lz00_2750 = BgL_xz00_146;
						BgL_loopz00_2748:
							if ((BgL_iz00_2749 == BgL_lenz00_1674))
								{	/* Llib/srfi4.scm 796 */
									return BgL_vecz00_1675;
								}
							else
								{	/* Llib/srfi4.scm 796 */
									{	/* Llib/srfi4.scm 796 */
										obj_t BgL_arg1497z00_2754;

										if (INTEGERP(CAR(((obj_t) BgL_lz00_2750))))
											{	/* Llib/srfi4.scm 796 */
												obj_t BgL_arg1500z00_2758;

												BgL_arg1500z00_2758 = CAR(((obj_t) BgL_lz00_2750));
												{	/* Llib/srfi4.scm 796 */
													long BgL_xz00_2760;

													BgL_xz00_2760 = (long) CINT(BgL_arg1500z00_2758);
													{	/* Llib/srfi4.scm 796 */
														uint16_t BgL_tmpz00_5368;

														BgL_tmpz00_5368 = (uint16_t) (BgL_xz00_2760);
														BgL_arg1497z00_2754 =
															BGL_UINT16_TO_BUINT16(BgL_tmpz00_5368);
											}}}
										else
											{	/* Llib/srfi4.scm 796 */
												BgL_arg1497z00_2754 = CAR(((obj_t) BgL_lz00_2750));
											}
										{	/* Llib/srfi4.scm 796 */
											uint16_t BgL_tmpz00_5373;

											BgL_tmpz00_5373 =
												BGL_BUINT16_TO_UINT16(BgL_arg1497z00_2754);
											BGL_U16VSET(BgL_vecz00_1675, BgL_iz00_2749,
												BgL_tmpz00_5373);
										}
										BUNSPEC;
									}
									{	/* Llib/srfi4.scm 796 */
										long BgL_arg1502z00_2762;
										obj_t BgL_arg1503z00_2763;

										BgL_arg1502z00_2762 = (BgL_iz00_2749 + 1L);
										BgL_arg1503z00_2763 = CDR(((obj_t) BgL_lz00_2750));
										{
											obj_t BgL_lz00_5380;
											long BgL_iz00_5379;

											BgL_iz00_5379 = BgL_arg1502z00_2762;
											BgL_lz00_5380 = BgL_arg1503z00_2763;
											BgL_lz00_2750 = BgL_lz00_5380;
											BgL_iz00_2749 = BgL_iz00_5379;
											goto BgL_loopz00_2748;
										}
									}
								}
						}
					}
				}
			}
		}

	}



/* &list->u16vector */
	obj_t BGl_z62listzd2ze3u16vectorz53zz__srfi4z00(obj_t BgL_envz00_3399,
		obj_t BgL_xz00_3400)
	{
		{	/* Llib/srfi4.scm 796 */
			{	/* Llib/srfi4.scm 796 */
				obj_t BgL_auxz00_5381;

				if (BGl_pairzd2orzd2nullzf3zf3zz__r4_pairs_and_lists_6_3z00
					(BgL_xz00_3400))
					{	/* Llib/srfi4.scm 796 */
						BgL_auxz00_5381 = BgL_xz00_3400;
					}
				else
					{
						obj_t BgL_auxz00_5384;

						BgL_auxz00_5384 =
							BGl_typezd2errorzd2zz__errorz00(BGl_string2365z00zz__srfi4z00,
							BINT(31419L), BGl_string2444z00zz__srfi4z00,
							BGl_string2441z00zz__srfi4z00, BgL_xz00_3400);
						FAILURE(BgL_auxz00_5384, BFALSE, BFALSE);
					}
				return BGl_listzd2ze3u16vectorz31zz__srfi4z00(BgL_auxz00_5381);
			}
		}

	}



/* list->s32vector */
	BGL_EXPORTED_DEF obj_t BGl_listzd2ze3s32vectorz31zz__srfi4z00(obj_t
		BgL_xz00_147)
	{
		{	/* Llib/srfi4.scm 796 */
			{	/* Llib/srfi4.scm 796 */
				long BgL_lenz00_1689;

				BgL_lenz00_1689 = bgl_list_length(BgL_xz00_147);
				{	/* Llib/srfi4.scm 796 */
					obj_t BgL_vecz00_1690;

					{	/* Llib/srfi4.scm 796 */
						int32_t BgL_tmpz00_5390;

						BgL_tmpz00_5390 = (int32_t) (BgL_lenz00_1689);
						BgL_vecz00_1690 = BGL_ALLOC_S32VECTOR(BgL_tmpz00_5390);
					}
					{	/* Llib/srfi4.scm 796 */

						{
							long BgL_iz00_2775;
							obj_t BgL_lz00_2776;

							BgL_iz00_2775 = 0L;
							BgL_lz00_2776 = BgL_xz00_147;
						BgL_loopz00_2774:
							if ((BgL_iz00_2775 == BgL_lenz00_1689))
								{	/* Llib/srfi4.scm 796 */
									return BgL_vecz00_1690;
								}
							else
								{	/* Llib/srfi4.scm 796 */
									{	/* Llib/srfi4.scm 796 */
										obj_t BgL_arg1506z00_2780;

										if (INTEGERP(CAR(((obj_t) BgL_lz00_2776))))
											{	/* Llib/srfi4.scm 796 */
												obj_t BgL_arg1509z00_2784;

												BgL_arg1509z00_2784 = CAR(((obj_t) BgL_lz00_2776));
												{	/* Llib/srfi4.scm 796 */
													long BgL_xz00_2786;

													BgL_xz00_2786 = (long) CINT(BgL_arg1509z00_2784);
													{	/* Llib/srfi4.scm 796 */
														int32_t BgL_tmpz00_5402;

														BgL_tmpz00_5402 = (int32_t) (BgL_xz00_2786);
														BgL_arg1506z00_2780 =
															BGL_INT32_TO_BINT32(BgL_tmpz00_5402);
											}}}
										else
											{	/* Llib/srfi4.scm 796 */
												BgL_arg1506z00_2780 = CAR(((obj_t) BgL_lz00_2776));
											}
										{	/* Llib/srfi4.scm 796 */
											int32_t BgL_tmpz00_5407;

											BgL_tmpz00_5407 =
												BGL_BINT32_TO_INT32(BgL_arg1506z00_2780);
											BGL_S32VSET(BgL_vecz00_1690, BgL_iz00_2775,
												BgL_tmpz00_5407);
										}
										BUNSPEC;
									}
									{	/* Llib/srfi4.scm 796 */
										long BgL_arg1515z00_2788;
										obj_t BgL_arg1516z00_2789;

										BgL_arg1515z00_2788 = (BgL_iz00_2775 + 1L);
										BgL_arg1516z00_2789 = CDR(((obj_t) BgL_lz00_2776));
										{
											obj_t BgL_lz00_5414;
											long BgL_iz00_5413;

											BgL_iz00_5413 = BgL_arg1515z00_2788;
											BgL_lz00_5414 = BgL_arg1516z00_2789;
											BgL_lz00_2776 = BgL_lz00_5414;
											BgL_iz00_2775 = BgL_iz00_5413;
											goto BgL_loopz00_2774;
										}
									}
								}
						}
					}
				}
			}
		}

	}



/* &list->s32vector */
	obj_t BGl_z62listzd2ze3s32vectorz53zz__srfi4z00(obj_t BgL_envz00_3401,
		obj_t BgL_xz00_3402)
	{
		{	/* Llib/srfi4.scm 796 */
			{	/* Llib/srfi4.scm 796 */
				obj_t BgL_auxz00_5415;

				if (BGl_pairzd2orzd2nullzf3zf3zz__r4_pairs_and_lists_6_3z00
					(BgL_xz00_3402))
					{	/* Llib/srfi4.scm 796 */
						BgL_auxz00_5415 = BgL_xz00_3402;
					}
				else
					{
						obj_t BgL_auxz00_5418;

						BgL_auxz00_5418 =
							BGl_typezd2errorzd2zz__errorz00(BGl_string2365z00zz__srfi4z00,
							BINT(31419L), BGl_string2445z00zz__srfi4z00,
							BGl_string2441z00zz__srfi4z00, BgL_xz00_3402);
						FAILURE(BgL_auxz00_5418, BFALSE, BFALSE);
					}
				return BGl_listzd2ze3s32vectorz31zz__srfi4z00(BgL_auxz00_5415);
			}
		}

	}



/* list->u32vector */
	BGL_EXPORTED_DEF obj_t BGl_listzd2ze3u32vectorz31zz__srfi4z00(obj_t
		BgL_xz00_148)
	{
		{	/* Llib/srfi4.scm 796 */
			{	/* Llib/srfi4.scm 796 */
				long BgL_lenz00_1704;

				BgL_lenz00_1704 = bgl_list_length(BgL_xz00_148);
				{	/* Llib/srfi4.scm 796 */
					obj_t BgL_vecz00_1705;

					{	/* Llib/srfi4.scm 796 */
						int32_t BgL_tmpz00_5424;

						BgL_tmpz00_5424 = (int32_t) (BgL_lenz00_1704);
						BgL_vecz00_1705 = BGL_ALLOC_U32VECTOR(BgL_tmpz00_5424);
					}
					{	/* Llib/srfi4.scm 796 */

						{
							long BgL_iz00_2801;
							obj_t BgL_lz00_2802;

							BgL_iz00_2801 = 0L;
							BgL_lz00_2802 = BgL_xz00_148;
						BgL_loopz00_2800:
							if ((BgL_iz00_2801 == BgL_lenz00_1704))
								{	/* Llib/srfi4.scm 796 */
									return BgL_vecz00_1705;
								}
							else
								{	/* Llib/srfi4.scm 796 */
									{	/* Llib/srfi4.scm 796 */
										obj_t BgL_arg1519z00_2806;

										if (INTEGERP(CAR(((obj_t) BgL_lz00_2802))))
											{	/* Llib/srfi4.scm 796 */
												obj_t BgL_arg1522z00_2810;

												BgL_arg1522z00_2810 = CAR(((obj_t) BgL_lz00_2802));
												{	/* Llib/srfi4.scm 796 */
													long BgL_xz00_2812;

													BgL_xz00_2812 = (long) CINT(BgL_arg1522z00_2810);
													{	/* Llib/srfi4.scm 796 */
														uint32_t BgL_tmpz00_5436;

														BgL_tmpz00_5436 = (uint32_t) (BgL_xz00_2812);
														BgL_arg1519z00_2806 =
															BGL_UINT32_TO_BUINT32(BgL_tmpz00_5436);
											}}}
										else
											{	/* Llib/srfi4.scm 796 */
												BgL_arg1519z00_2806 = CAR(((obj_t) BgL_lz00_2802));
											}
										{	/* Llib/srfi4.scm 796 */
											uint32_t BgL_tmpz00_5441;

											BgL_tmpz00_5441 =
												BGL_BUINT32_TO_UINT32(BgL_arg1519z00_2806);
											BGL_U32VSET(BgL_vecz00_1705, BgL_iz00_2801,
												BgL_tmpz00_5441);
										}
										BUNSPEC;
									}
									{	/* Llib/srfi4.scm 796 */
										long BgL_arg1524z00_2814;
										obj_t BgL_arg1525z00_2815;

										BgL_arg1524z00_2814 = (BgL_iz00_2801 + 1L);
										BgL_arg1525z00_2815 = CDR(((obj_t) BgL_lz00_2802));
										{
											obj_t BgL_lz00_5448;
											long BgL_iz00_5447;

											BgL_iz00_5447 = BgL_arg1524z00_2814;
											BgL_lz00_5448 = BgL_arg1525z00_2815;
											BgL_lz00_2802 = BgL_lz00_5448;
											BgL_iz00_2801 = BgL_iz00_5447;
											goto BgL_loopz00_2800;
										}
									}
								}
						}
					}
				}
			}
		}

	}



/* &list->u32vector */
	obj_t BGl_z62listzd2ze3u32vectorz53zz__srfi4z00(obj_t BgL_envz00_3403,
		obj_t BgL_xz00_3404)
	{
		{	/* Llib/srfi4.scm 796 */
			{	/* Llib/srfi4.scm 796 */
				obj_t BgL_auxz00_5449;

				if (BGl_pairzd2orzd2nullzf3zf3zz__r4_pairs_and_lists_6_3z00
					(BgL_xz00_3404))
					{	/* Llib/srfi4.scm 796 */
						BgL_auxz00_5449 = BgL_xz00_3404;
					}
				else
					{
						obj_t BgL_auxz00_5452;

						BgL_auxz00_5452 =
							BGl_typezd2errorzd2zz__errorz00(BGl_string2365z00zz__srfi4z00,
							BINT(31419L), BGl_string2446z00zz__srfi4z00,
							BGl_string2441z00zz__srfi4z00, BgL_xz00_3404);
						FAILURE(BgL_auxz00_5452, BFALSE, BFALSE);
					}
				return BGl_listzd2ze3u32vectorz31zz__srfi4z00(BgL_auxz00_5449);
			}
		}

	}



/* list->s64vector */
	BGL_EXPORTED_DEF obj_t BGl_listzd2ze3s64vectorz31zz__srfi4z00(obj_t
		BgL_xz00_149)
	{
		{	/* Llib/srfi4.scm 796 */
			{	/* Llib/srfi4.scm 796 */
				long BgL_lenz00_1719;

				BgL_lenz00_1719 = bgl_list_length(BgL_xz00_149);
				{	/* Llib/srfi4.scm 796 */
					obj_t BgL_vecz00_1720;

					{	/* Llib/srfi4.scm 796 */
						int32_t BgL_tmpz00_5458;

						BgL_tmpz00_5458 = (int32_t) (BgL_lenz00_1719);
						BgL_vecz00_1720 = BGL_ALLOC_S64VECTOR(BgL_tmpz00_5458);
					}
					{	/* Llib/srfi4.scm 796 */

						{
							long BgL_iz00_2827;
							obj_t BgL_lz00_2828;

							BgL_iz00_2827 = 0L;
							BgL_lz00_2828 = BgL_xz00_149;
						BgL_loopz00_2826:
							if ((BgL_iz00_2827 == BgL_lenz00_1719))
								{	/* Llib/srfi4.scm 796 */
									return BgL_vecz00_1720;
								}
							else
								{	/* Llib/srfi4.scm 796 */
									{	/* Llib/srfi4.scm 796 */
										obj_t BgL_arg1528z00_2832;

										if (INTEGERP(CAR(((obj_t) BgL_lz00_2828))))
											{	/* Llib/srfi4.scm 796 */
												obj_t BgL_arg1534z00_2836;

												BgL_arg1534z00_2836 = CAR(((obj_t) BgL_lz00_2828));
												{	/* Llib/srfi4.scm 796 */
													long BgL_xz00_2838;

													BgL_xz00_2838 = (long) CINT(BgL_arg1534z00_2836);
													{	/* Llib/srfi4.scm 796 */
														int64_t BgL_tmpz00_5470;

														BgL_tmpz00_5470 = (int64_t) (BgL_xz00_2838);
														BgL_arg1528z00_2832 =
															BGL_INT64_TO_BINT64(BgL_tmpz00_5470);
											}}}
										else
											{	/* Llib/srfi4.scm 796 */
												BgL_arg1528z00_2832 = CAR(((obj_t) BgL_lz00_2828));
											}
										{	/* Llib/srfi4.scm 796 */
											int64_t BgL_tmpz00_5475;

											BgL_tmpz00_5475 =
												BGL_BINT64_TO_INT64(BgL_arg1528z00_2832);
											BGL_S64VSET(BgL_vecz00_1720, BgL_iz00_2827,
												BgL_tmpz00_5475);
										}
										BUNSPEC;
									}
									{	/* Llib/srfi4.scm 796 */
										long BgL_arg1536z00_2840;
										obj_t BgL_arg1541z00_2841;

										BgL_arg1536z00_2840 = (BgL_iz00_2827 + 1L);
										BgL_arg1541z00_2841 = CDR(((obj_t) BgL_lz00_2828));
										{
											obj_t BgL_lz00_5482;
											long BgL_iz00_5481;

											BgL_iz00_5481 = BgL_arg1536z00_2840;
											BgL_lz00_5482 = BgL_arg1541z00_2841;
											BgL_lz00_2828 = BgL_lz00_5482;
											BgL_iz00_2827 = BgL_iz00_5481;
											goto BgL_loopz00_2826;
										}
									}
								}
						}
					}
				}
			}
		}

	}



/* &list->s64vector */
	obj_t BGl_z62listzd2ze3s64vectorz53zz__srfi4z00(obj_t BgL_envz00_3405,
		obj_t BgL_xz00_3406)
	{
		{	/* Llib/srfi4.scm 796 */
			{	/* Llib/srfi4.scm 796 */
				obj_t BgL_auxz00_5483;

				if (BGl_pairzd2orzd2nullzf3zf3zz__r4_pairs_and_lists_6_3z00
					(BgL_xz00_3406))
					{	/* Llib/srfi4.scm 796 */
						BgL_auxz00_5483 = BgL_xz00_3406;
					}
				else
					{
						obj_t BgL_auxz00_5486;

						BgL_auxz00_5486 =
							BGl_typezd2errorzd2zz__errorz00(BGl_string2365z00zz__srfi4z00,
							BINT(31419L), BGl_string2447z00zz__srfi4z00,
							BGl_string2441z00zz__srfi4z00, BgL_xz00_3406);
						FAILURE(BgL_auxz00_5486, BFALSE, BFALSE);
					}
				return BGl_listzd2ze3s64vectorz31zz__srfi4z00(BgL_auxz00_5483);
			}
		}

	}



/* list->u64vector */
	BGL_EXPORTED_DEF obj_t BGl_listzd2ze3u64vectorz31zz__srfi4z00(obj_t
		BgL_xz00_150)
	{
		{	/* Llib/srfi4.scm 796 */
			{	/* Llib/srfi4.scm 796 */
				long BgL_lenz00_1734;

				BgL_lenz00_1734 = bgl_list_length(BgL_xz00_150);
				{	/* Llib/srfi4.scm 796 */
					obj_t BgL_vecz00_1735;

					{	/* Llib/srfi4.scm 796 */
						int32_t BgL_tmpz00_5492;

						BgL_tmpz00_5492 = (int32_t) (BgL_lenz00_1734);
						BgL_vecz00_1735 = BGL_ALLOC_U64VECTOR(BgL_tmpz00_5492);
					}
					{	/* Llib/srfi4.scm 796 */

						{
							long BgL_iz00_2853;
							obj_t BgL_lz00_2854;

							BgL_iz00_2853 = 0L;
							BgL_lz00_2854 = BgL_xz00_150;
						BgL_loopz00_2852:
							if ((BgL_iz00_2853 == BgL_lenz00_1734))
								{	/* Llib/srfi4.scm 796 */
									return BgL_vecz00_1735;
								}
							else
								{	/* Llib/srfi4.scm 796 */
									{	/* Llib/srfi4.scm 796 */
										obj_t BgL_arg1544z00_2858;

										if (INTEGERP(CAR(((obj_t) BgL_lz00_2854))))
											{	/* Llib/srfi4.scm 796 */
												obj_t BgL_arg1547z00_2862;

												BgL_arg1547z00_2862 = CAR(((obj_t) BgL_lz00_2854));
												{	/* Llib/srfi4.scm 796 */
													long BgL_xz00_2864;

													BgL_xz00_2864 = (long) CINT(BgL_arg1547z00_2862);
													{	/* Llib/srfi4.scm 796 */
														uint64_t BgL_tmpz00_5504;

														BgL_tmpz00_5504 = (uint64_t) (BgL_xz00_2864);
														BgL_arg1544z00_2858 =
															BGL_UINT64_TO_BUINT64(BgL_tmpz00_5504);
											}}}
										else
											{	/* Llib/srfi4.scm 796 */
												BgL_arg1544z00_2858 = CAR(((obj_t) BgL_lz00_2854));
											}
										{	/* Llib/srfi4.scm 796 */
											uint64_t BgL_tmpz00_5509;

											BgL_tmpz00_5509 =
												BGL_BINT64_TO_INT64(BgL_arg1544z00_2858);
											BGL_U64VSET(BgL_vecz00_1735, BgL_iz00_2853,
												BgL_tmpz00_5509);
										}
										BUNSPEC;
									}
									{	/* Llib/srfi4.scm 796 */
										long BgL_arg1550z00_2866;
										obj_t BgL_arg1552z00_2867;

										BgL_arg1550z00_2866 = (BgL_iz00_2853 + 1L);
										BgL_arg1552z00_2867 = CDR(((obj_t) BgL_lz00_2854));
										{
											obj_t BgL_lz00_5516;
											long BgL_iz00_5515;

											BgL_iz00_5515 = BgL_arg1550z00_2866;
											BgL_lz00_5516 = BgL_arg1552z00_2867;
											BgL_lz00_2854 = BgL_lz00_5516;
											BgL_iz00_2853 = BgL_iz00_5515;
											goto BgL_loopz00_2852;
										}
									}
								}
						}
					}
				}
			}
		}

	}



/* &list->u64vector */
	obj_t BGl_z62listzd2ze3u64vectorz53zz__srfi4z00(obj_t BgL_envz00_3407,
		obj_t BgL_xz00_3408)
	{
		{	/* Llib/srfi4.scm 796 */
			{	/* Llib/srfi4.scm 796 */
				obj_t BgL_auxz00_5517;

				if (BGl_pairzd2orzd2nullzf3zf3zz__r4_pairs_and_lists_6_3z00
					(BgL_xz00_3408))
					{	/* Llib/srfi4.scm 796 */
						BgL_auxz00_5517 = BgL_xz00_3408;
					}
				else
					{
						obj_t BgL_auxz00_5520;

						BgL_auxz00_5520 =
							BGl_typezd2errorzd2zz__errorz00(BGl_string2365z00zz__srfi4z00,
							BINT(31419L), BGl_string2448z00zz__srfi4z00,
							BGl_string2441z00zz__srfi4z00, BgL_xz00_3408);
						FAILURE(BgL_auxz00_5520, BFALSE, BFALSE);
					}
				return BGl_listzd2ze3u64vectorz31zz__srfi4z00(BgL_auxz00_5517);
			}
		}

	}



/* list->f32vector */
	BGL_EXPORTED_DEF obj_t BGl_listzd2ze3f32vectorz31zz__srfi4z00(obj_t
		BgL_xz00_151)
	{
		{	/* Llib/srfi4.scm 796 */
			{	/* Llib/srfi4.scm 796 */
				long BgL_lenz00_1749;

				BgL_lenz00_1749 = bgl_list_length(BgL_xz00_151);
				{	/* Llib/srfi4.scm 796 */
					obj_t BgL_vecz00_1750;

					{	/* Llib/srfi4.scm 796 */
						int32_t BgL_tmpz00_5526;

						BgL_tmpz00_5526 = (int32_t) (BgL_lenz00_1749);
						BgL_vecz00_1750 = BGL_ALLOC_F32VECTOR(BgL_tmpz00_5526);
					}
					{	/* Llib/srfi4.scm 796 */

						{
							long BgL_iz00_2879;
							obj_t BgL_lz00_2880;

							BgL_iz00_2879 = 0L;
							BgL_lz00_2880 = BgL_xz00_151;
						BgL_loopz00_2878:
							if ((BgL_iz00_2879 == BgL_lenz00_1749))
								{	/* Llib/srfi4.scm 796 */
									return BgL_vecz00_1750;
								}
							else
								{	/* Llib/srfi4.scm 796 */
									{	/* Llib/srfi4.scm 796 */
										obj_t BgL_arg1555z00_2884;

										if (INTEGERP(CAR(((obj_t) BgL_lz00_2880))))
											{	/* Llib/srfi4.scm 796 */
												obj_t BgL_arg1558z00_2888;

												BgL_arg1558z00_2888 = CAR(((obj_t) BgL_lz00_2880));
												{	/* Llib/srfi4.scm 796 */
													long BgL_xz00_2890;

													BgL_xz00_2890 = (long) CINT(BgL_arg1558z00_2888);
													{	/* Llib/srfi4.scm 796 */
														uint32_t BgL_tmpz00_5538;

														BgL_tmpz00_5538 = (uint32_t) (BgL_xz00_2890);
														BgL_arg1555z00_2884 =
															BGL_UINT32_TO_BUINT32(BgL_tmpz00_5538);
											}}}
										else
											{	/* Llib/srfi4.scm 796 */
												BgL_arg1555z00_2884 = CAR(((obj_t) BgL_lz00_2880));
											}
										{	/* Llib/srfi4.scm 796 */
											float BgL_tmpz00_5543;

											BgL_tmpz00_5543 = REAL_TO_FLOAT(BgL_arg1555z00_2884);
											BGL_F32VSET(BgL_vecz00_1750, BgL_iz00_2879,
												BgL_tmpz00_5543);
										} BUNSPEC;
									}
									{	/* Llib/srfi4.scm 796 */
										long BgL_arg1560z00_2892;
										obj_t BgL_arg1563z00_2893;

										BgL_arg1560z00_2892 = (BgL_iz00_2879 + 1L);
										BgL_arg1563z00_2893 = CDR(((obj_t) BgL_lz00_2880));
										{
											obj_t BgL_lz00_5550;
											long BgL_iz00_5549;

											BgL_iz00_5549 = BgL_arg1560z00_2892;
											BgL_lz00_5550 = BgL_arg1563z00_2893;
											BgL_lz00_2880 = BgL_lz00_5550;
											BgL_iz00_2879 = BgL_iz00_5549;
											goto BgL_loopz00_2878;
										}
									}
								}
						}
					}
				}
			}
		}

	}



/* &list->f32vector */
	obj_t BGl_z62listzd2ze3f32vectorz53zz__srfi4z00(obj_t BgL_envz00_3409,
		obj_t BgL_xz00_3410)
	{
		{	/* Llib/srfi4.scm 796 */
			{	/* Llib/srfi4.scm 796 */
				obj_t BgL_auxz00_5551;

				if (BGl_pairzd2orzd2nullzf3zf3zz__r4_pairs_and_lists_6_3z00
					(BgL_xz00_3410))
					{	/* Llib/srfi4.scm 796 */
						BgL_auxz00_5551 = BgL_xz00_3410;
					}
				else
					{
						obj_t BgL_auxz00_5554;

						BgL_auxz00_5554 =
							BGl_typezd2errorzd2zz__errorz00(BGl_string2365z00zz__srfi4z00,
							BINT(31419L), BGl_string2449z00zz__srfi4z00,
							BGl_string2441z00zz__srfi4z00, BgL_xz00_3410);
						FAILURE(BgL_auxz00_5554, BFALSE, BFALSE);
					}
				return BGl_listzd2ze3f32vectorz31zz__srfi4z00(BgL_auxz00_5551);
			}
		}

	}



/* list->f64vector */
	BGL_EXPORTED_DEF obj_t BGl_listzd2ze3f64vectorz31zz__srfi4z00(obj_t
		BgL_xz00_152)
	{
		{	/* Llib/srfi4.scm 796 */
			{	/* Llib/srfi4.scm 796 */
				long BgL_lenz00_1764;

				BgL_lenz00_1764 = bgl_list_length(BgL_xz00_152);
				{	/* Llib/srfi4.scm 796 */
					obj_t BgL_vecz00_1765;

					{	/* Llib/srfi4.scm 796 */
						int32_t BgL_tmpz00_5560;

						BgL_tmpz00_5560 = (int32_t) (BgL_lenz00_1764);
						BgL_vecz00_1765 = BGL_ALLOC_F64VECTOR(BgL_tmpz00_5560);
					}
					{	/* Llib/srfi4.scm 796 */

						{
							long BgL_iz00_2905;
							obj_t BgL_lz00_2906;

							BgL_iz00_2905 = 0L;
							BgL_lz00_2906 = BgL_xz00_152;
						BgL_loopz00_2904:
							if ((BgL_iz00_2905 == BgL_lenz00_1764))
								{	/* Llib/srfi4.scm 796 */
									return BgL_vecz00_1765;
								}
							else
								{	/* Llib/srfi4.scm 796 */
									{	/* Llib/srfi4.scm 796 */
										obj_t BgL_arg1567z00_2910;

										if (INTEGERP(CAR(((obj_t) BgL_lz00_2906))))
											{	/* Llib/srfi4.scm 796 */
												obj_t BgL_arg1575z00_2914;

												BgL_arg1575z00_2914 = CAR(((obj_t) BgL_lz00_2906));
												{	/* Llib/srfi4.scm 796 */
													long BgL_xz00_2916;

													BgL_xz00_2916 = (long) CINT(BgL_arg1575z00_2914);
													{	/* Llib/srfi4.scm 796 */
														uint64_t BgL_tmpz00_5572;

														BgL_tmpz00_5572 = (uint64_t) (BgL_xz00_2916);
														BgL_arg1567z00_2910 =
															BGL_UINT64_TO_BUINT64(BgL_tmpz00_5572);
											}}}
										else
											{	/* Llib/srfi4.scm 796 */
												BgL_arg1567z00_2910 = CAR(((obj_t) BgL_lz00_2906));
											}
										{	/* Llib/srfi4.scm 796 */
											double BgL_tmpz00_5577;

											BgL_tmpz00_5577 = REAL_TO_DOUBLE(BgL_arg1567z00_2910);
											BGL_F64VSET(BgL_vecz00_1765, BgL_iz00_2905,
												BgL_tmpz00_5577);
										} BUNSPEC;
									}
									{	/* Llib/srfi4.scm 796 */
										long BgL_arg1577z00_2918;
										obj_t BgL_arg1578z00_2919;

										BgL_arg1577z00_2918 = (BgL_iz00_2905 + 1L);
										BgL_arg1578z00_2919 = CDR(((obj_t) BgL_lz00_2906));
										{
											obj_t BgL_lz00_5584;
											long BgL_iz00_5583;

											BgL_iz00_5583 = BgL_arg1577z00_2918;
											BgL_lz00_5584 = BgL_arg1578z00_2919;
											BgL_lz00_2906 = BgL_lz00_5584;
											BgL_iz00_2905 = BgL_iz00_5583;
											goto BgL_loopz00_2904;
										}
									}
								}
						}
					}
				}
			}
		}

	}



/* &list->f64vector */
	obj_t BGl_z62listzd2ze3f64vectorz53zz__srfi4z00(obj_t BgL_envz00_3411,
		obj_t BgL_xz00_3412)
	{
		{	/* Llib/srfi4.scm 796 */
			{	/* Llib/srfi4.scm 796 */
				obj_t BgL_auxz00_5585;

				if (BGl_pairzd2orzd2nullzf3zf3zz__r4_pairs_and_lists_6_3z00
					(BgL_xz00_3412))
					{	/* Llib/srfi4.scm 796 */
						BgL_auxz00_5585 = BgL_xz00_3412;
					}
				else
					{
						obj_t BgL_auxz00_5588;

						BgL_auxz00_5588 =
							BGl_typezd2errorzd2zz__errorz00(BGl_string2365z00zz__srfi4z00,
							BINT(31419L), BGl_string2450z00zz__srfi4z00,
							BGl_string2441z00zz__srfi4z00, BgL_xz00_3412);
						FAILURE(BgL_auxz00_5588, BFALSE, BFALSE);
					}
				return BGl_listzd2ze3f64vectorz31zz__srfi4z00(BgL_auxz00_5585);
			}
		}

	}



/* _s8vector-copy! */
	obj_t BGl__s8vectorzd2copyz12zc0zz__srfi4z00(obj_t BgL_env1279z00_159,
		obj_t BgL_opt1278z00_158)
	{
		{	/* Llib/srfi4.scm 838 */
			{	/* Llib/srfi4.scm 838 */
				obj_t BgL_targetz00_1779;
				obj_t BgL_tstartz00_1780;
				obj_t BgL_sourcez00_1781;

				BgL_targetz00_1779 = VECTOR_REF(BgL_opt1278z00_158, 0L);
				BgL_tstartz00_1780 = VECTOR_REF(BgL_opt1278z00_158, 1L);
				BgL_sourcez00_1781 = VECTOR_REF(BgL_opt1278z00_158, 2L);
				switch (VECTOR_LENGTH(BgL_opt1278z00_158))
					{
					case 3L:

						{	/* Llib/srfi4.scm 838 */
							long BgL_sendz00_1785;

							{	/* Llib/srfi4.scm 838 */
								obj_t BgL_xz00_2922;

								if (BGL_S8VECTORP(BgL_sourcez00_1781))
									{	/* Llib/srfi4.scm 838 */
										BgL_xz00_2922 = BgL_sourcez00_1781;
									}
								else
									{
										obj_t BgL_auxz00_5598;

										BgL_auxz00_5598 =
											BGl_typezd2errorzd2zz__errorz00
											(BGl_string2365z00zz__srfi4z00, BINT(33208L),
											BGl_string2451z00zz__srfi4z00,
											BGl_string2367z00zz__srfi4z00, BgL_sourcez00_1781);
										FAILURE(BgL_auxz00_5598, BFALSE, BFALSE);
									}
								BgL_sendz00_1785 = BGL_HVECTOR_LENGTH(BgL_xz00_2922);
							}
							{	/* Llib/srfi4.scm 838 */

								{	/* Llib/srfi4.scm 838 */
									obj_t BgL_targetz00_2923;
									long BgL_tstartz00_2924;
									obj_t BgL_sourcez00_2925;

									if (BGL_S8VECTORP(BgL_targetz00_1779))
										{	/* Llib/srfi4.scm 838 */
											BgL_targetz00_2923 = BgL_targetz00_1779;
										}
									else
										{
											obj_t BgL_auxz00_5605;

											BgL_auxz00_5605 =
												BGl_typezd2errorzd2zz__errorz00
												(BGl_string2365z00zz__srfi4z00, BINT(33208L),
												BGl_string2451z00zz__srfi4z00,
												BGl_string2367z00zz__srfi4z00, BgL_targetz00_1779);
											FAILURE(BgL_auxz00_5605, BFALSE, BFALSE);
										}
									{	/* Llib/srfi4.scm 838 */
										obj_t BgL_tmpz00_5609;

										if (INTEGERP(BgL_tstartz00_1780))
											{	/* Llib/srfi4.scm 838 */
												BgL_tmpz00_5609 = BgL_tstartz00_1780;
											}
										else
											{
												obj_t BgL_auxz00_5612;

												BgL_auxz00_5612 =
													BGl_typezd2errorzd2zz__errorz00
													(BGl_string2365z00zz__srfi4z00, BINT(33208L),
													BGl_string2451z00zz__srfi4z00,
													BGl_string2387z00zz__srfi4z00, BgL_tstartz00_1780);
												FAILURE(BgL_auxz00_5612, BFALSE, BFALSE);
											}
										BgL_tstartz00_2924 = (long) CINT(BgL_tmpz00_5609);
									}
									if (BGL_S8VECTORP(BgL_sourcez00_1781))
										{	/* Llib/srfi4.scm 838 */
											BgL_sourcez00_2925 = BgL_sourcez00_1781;
										}
									else
										{
											obj_t BgL_auxz00_5619;

											BgL_auxz00_5619 =
												BGl_typezd2errorzd2zz__errorz00
												(BGl_string2365z00zz__srfi4z00, BINT(33208L),
												BGl_string2451z00zz__srfi4z00,
												BGl_string2367z00zz__srfi4z00, BgL_sourcez00_1781);
											FAILURE(BgL_auxz00_5619, BFALSE, BFALSE);
										}
									BGL_SU8VECTOR_COPY(BgL_targetz00_2923, BgL_tstartz00_2924,
										BgL_sourcez00_2925, 0L, BgL_sendz00_1785);
									return BUNSPEC;
								}
							}
						}
						break;
					case 4L:

						{	/* Llib/srfi4.scm 838 */
							obj_t BgL_sstartz00_1786;

							BgL_sstartz00_1786 = VECTOR_REF(BgL_opt1278z00_158, 3L);
							{	/* Llib/srfi4.scm 838 */
								long BgL_sendz00_1787;

								{	/* Llib/srfi4.scm 838 */
									obj_t BgL_xz00_2926;

									if (BGL_S8VECTORP(BgL_sourcez00_1781))
										{	/* Llib/srfi4.scm 838 */
											BgL_xz00_2926 = BgL_sourcez00_1781;
										}
									else
										{
											obj_t BgL_auxz00_5627;

											BgL_auxz00_5627 =
												BGl_typezd2errorzd2zz__errorz00
												(BGl_string2365z00zz__srfi4z00, BINT(33208L),
												BGl_string2451z00zz__srfi4z00,
												BGl_string2367z00zz__srfi4z00, BgL_sourcez00_1781);
											FAILURE(BgL_auxz00_5627, BFALSE, BFALSE);
										}
									BgL_sendz00_1787 = BGL_HVECTOR_LENGTH(BgL_xz00_2926);
								}
								{	/* Llib/srfi4.scm 838 */

									{	/* Llib/srfi4.scm 838 */
										obj_t BgL_targetz00_2927;
										long BgL_tstartz00_2928;
										obj_t BgL_sourcez00_2929;

										if (BGL_S8VECTORP(BgL_targetz00_1779))
											{	/* Llib/srfi4.scm 838 */
												BgL_targetz00_2927 = BgL_targetz00_1779;
											}
										else
											{
												obj_t BgL_auxz00_5634;

												BgL_auxz00_5634 =
													BGl_typezd2errorzd2zz__errorz00
													(BGl_string2365z00zz__srfi4z00, BINT(33208L),
													BGl_string2451z00zz__srfi4z00,
													BGl_string2367z00zz__srfi4z00, BgL_targetz00_1779);
												FAILURE(BgL_auxz00_5634, BFALSE, BFALSE);
											}
										{	/* Llib/srfi4.scm 838 */
											obj_t BgL_tmpz00_5638;

											if (INTEGERP(BgL_tstartz00_1780))
												{	/* Llib/srfi4.scm 838 */
													BgL_tmpz00_5638 = BgL_tstartz00_1780;
												}
											else
												{
													obj_t BgL_auxz00_5641;

													BgL_auxz00_5641 =
														BGl_typezd2errorzd2zz__errorz00
														(BGl_string2365z00zz__srfi4z00, BINT(33208L),
														BGl_string2451z00zz__srfi4z00,
														BGl_string2387z00zz__srfi4z00, BgL_tstartz00_1780);
													FAILURE(BgL_auxz00_5641, BFALSE, BFALSE);
												}
											BgL_tstartz00_2928 = (long) CINT(BgL_tmpz00_5638);
										}
										if (BGL_S8VECTORP(BgL_sourcez00_1781))
											{	/* Llib/srfi4.scm 838 */
												BgL_sourcez00_2929 = BgL_sourcez00_1781;
											}
										else
											{
												obj_t BgL_auxz00_5648;

												BgL_auxz00_5648 =
													BGl_typezd2errorzd2zz__errorz00
													(BGl_string2365z00zz__srfi4z00, BINT(33208L),
													BGl_string2451z00zz__srfi4z00,
													BGl_string2367z00zz__srfi4z00, BgL_sourcez00_1781);
												FAILURE(BgL_auxz00_5648, BFALSE, BFALSE);
											}
										{	/* Llib/srfi4.scm 838 */
											long BgL_tmpz00_5652;

											{	/* Llib/srfi4.scm 838 */
												obj_t BgL_tmpz00_5653;

												if (INTEGERP(BgL_sstartz00_1786))
													{	/* Llib/srfi4.scm 838 */
														BgL_tmpz00_5653 = BgL_sstartz00_1786;
													}
												else
													{
														obj_t BgL_auxz00_5656;

														BgL_auxz00_5656 =
															BGl_typezd2errorzd2zz__errorz00
															(BGl_string2365z00zz__srfi4z00, BINT(33208L),
															BGl_string2451z00zz__srfi4z00,
															BGl_string2387z00zz__srfi4z00,
															BgL_sstartz00_1786);
														FAILURE(BgL_auxz00_5656, BFALSE, BFALSE);
													}
												BgL_tmpz00_5652 = (long) CINT(BgL_tmpz00_5653);
											}
											BGL_SU8VECTOR_COPY(BgL_targetz00_2927, BgL_tstartz00_2928,
												BgL_sourcez00_2929, BgL_tmpz00_5652, BgL_sendz00_1787);
										}
										return BUNSPEC;
									}
								}
							}
						}
						break;
					case 5L:

						{	/* Llib/srfi4.scm 838 */
							obj_t BgL_sstartz00_1788;

							BgL_sstartz00_1788 = VECTOR_REF(BgL_opt1278z00_158, 3L);
							{	/* Llib/srfi4.scm 838 */
								obj_t BgL_sendz00_1789;

								BgL_sendz00_1789 = VECTOR_REF(BgL_opt1278z00_158, 4L);
								{	/* Llib/srfi4.scm 838 */

									{	/* Llib/srfi4.scm 838 */
										obj_t BgL_targetz00_2930;
										long BgL_tstartz00_2931;
										obj_t BgL_sourcez00_2932;

										if (BGL_S8VECTORP(BgL_targetz00_1779))
											{	/* Llib/srfi4.scm 838 */
												BgL_targetz00_2930 = BgL_targetz00_1779;
											}
										else
											{
												obj_t BgL_auxz00_5666;

												BgL_auxz00_5666 =
													BGl_typezd2errorzd2zz__errorz00
													(BGl_string2365z00zz__srfi4z00, BINT(33208L),
													BGl_string2451z00zz__srfi4z00,
													BGl_string2367z00zz__srfi4z00, BgL_targetz00_1779);
												FAILURE(BgL_auxz00_5666, BFALSE, BFALSE);
											}
										{	/* Llib/srfi4.scm 838 */
											obj_t BgL_tmpz00_5670;

											if (INTEGERP(BgL_tstartz00_1780))
												{	/* Llib/srfi4.scm 838 */
													BgL_tmpz00_5670 = BgL_tstartz00_1780;
												}
											else
												{
													obj_t BgL_auxz00_5673;

													BgL_auxz00_5673 =
														BGl_typezd2errorzd2zz__errorz00
														(BGl_string2365z00zz__srfi4z00, BINT(33208L),
														BGl_string2451z00zz__srfi4z00,
														BGl_string2387z00zz__srfi4z00, BgL_tstartz00_1780);
													FAILURE(BgL_auxz00_5673, BFALSE, BFALSE);
												}
											BgL_tstartz00_2931 = (long) CINT(BgL_tmpz00_5670);
										}
										if (BGL_S8VECTORP(BgL_sourcez00_1781))
											{	/* Llib/srfi4.scm 838 */
												BgL_sourcez00_2932 = BgL_sourcez00_1781;
											}
										else
											{
												obj_t BgL_auxz00_5680;

												BgL_auxz00_5680 =
													BGl_typezd2errorzd2zz__errorz00
													(BGl_string2365z00zz__srfi4z00, BINT(33208L),
													BGl_string2451z00zz__srfi4z00,
													BGl_string2367z00zz__srfi4z00, BgL_sourcez00_1781);
												FAILURE(BgL_auxz00_5680, BFALSE, BFALSE);
											}
										{	/* Llib/srfi4.scm 838 */
											long BgL_auxz00_5693;
											long BgL_tmpz00_5684;

											{	/* Llib/srfi4.scm 838 */
												obj_t BgL_tmpz00_5694;

												if (INTEGERP(BgL_sendz00_1789))
													{	/* Llib/srfi4.scm 838 */
														BgL_tmpz00_5694 = BgL_sendz00_1789;
													}
												else
													{
														obj_t BgL_auxz00_5697;

														BgL_auxz00_5697 =
															BGl_typezd2errorzd2zz__errorz00
															(BGl_string2365z00zz__srfi4z00, BINT(33208L),
															BGl_string2451z00zz__srfi4z00,
															BGl_string2387z00zz__srfi4z00, BgL_sendz00_1789);
														FAILURE(BgL_auxz00_5697, BFALSE, BFALSE);
													}
												BgL_auxz00_5693 = (long) CINT(BgL_tmpz00_5694);
											}
											{	/* Llib/srfi4.scm 838 */
												obj_t BgL_tmpz00_5685;

												if (INTEGERP(BgL_sstartz00_1788))
													{	/* Llib/srfi4.scm 838 */
														BgL_tmpz00_5685 = BgL_sstartz00_1788;
													}
												else
													{
														obj_t BgL_auxz00_5688;

														BgL_auxz00_5688 =
															BGl_typezd2errorzd2zz__errorz00
															(BGl_string2365z00zz__srfi4z00, BINT(33208L),
															BGl_string2451z00zz__srfi4z00,
															BGl_string2387z00zz__srfi4z00,
															BgL_sstartz00_1788);
														FAILURE(BgL_auxz00_5688, BFALSE, BFALSE);
													}
												BgL_tmpz00_5684 = (long) CINT(BgL_tmpz00_5685);
											}
											BGL_SU8VECTOR_COPY(BgL_targetz00_2930, BgL_tstartz00_2931,
												BgL_sourcez00_2932, BgL_tmpz00_5684, BgL_auxz00_5693);
										}
										return BUNSPEC;
									}
								}
							}
						}
						break;
					default:
						return BUNSPEC;
					}
			}
		}

	}



/* s8vector-copy! */
	BGL_EXPORTED_DEF obj_t BGl_s8vectorzd2copyz12zc0zz__srfi4z00(obj_t
		BgL_targetz00_153, long BgL_tstartz00_154, obj_t BgL_sourcez00_155,
		obj_t BgL_sstartz00_156, obj_t BgL_sendz00_157)
	{
		{	/* Llib/srfi4.scm 838 */
			{	/* Llib/srfi4.scm 838 */
				long BgL_auxz00_5707;
				long BgL_tmpz00_5705;

				BgL_auxz00_5707 = (long) CINT(BgL_sendz00_157);
				BgL_tmpz00_5705 = (long) CINT(BgL_sstartz00_156);
				BGL_SU8VECTOR_COPY(BgL_targetz00_153, BgL_tstartz00_154,
					BgL_sourcez00_155, BgL_tmpz00_5705, BgL_auxz00_5707);
			}
			return BUNSPEC;
		}

	}



/* _u8vector-copy! */
	obj_t BGl__u8vectorzd2copyz12zc0zz__srfi4z00(obj_t BgL_env1283z00_166,
		obj_t BgL_opt1282z00_165)
	{
		{	/* Llib/srfi4.scm 838 */
			{	/* Llib/srfi4.scm 838 */
				obj_t BgL_targetz00_1790;
				obj_t BgL_tstartz00_1791;
				obj_t BgL_sourcez00_1792;

				BgL_targetz00_1790 = VECTOR_REF(BgL_opt1282z00_165, 0L);
				BgL_tstartz00_1791 = VECTOR_REF(BgL_opt1282z00_165, 1L);
				BgL_sourcez00_1792 = VECTOR_REF(BgL_opt1282z00_165, 2L);
				switch (VECTOR_LENGTH(BgL_opt1282z00_165))
					{
					case 3L:

						{	/* Llib/srfi4.scm 838 */
							long BgL_sendz00_1796;

							{	/* Llib/srfi4.scm 838 */
								obj_t BgL_xz00_2933;

								if (BGL_U8VECTORP(BgL_sourcez00_1792))
									{	/* Llib/srfi4.scm 838 */
										BgL_xz00_2933 = BgL_sourcez00_1792;
									}
								else
									{
										obj_t BgL_auxz00_5715;

										BgL_auxz00_5715 =
											BGl_typezd2errorzd2zz__errorz00
											(BGl_string2365z00zz__srfi4z00, BINT(33208L),
											BGl_string2452z00zz__srfi4z00,
											BGl_string2369z00zz__srfi4z00, BgL_sourcez00_1792);
										FAILURE(BgL_auxz00_5715, BFALSE, BFALSE);
									}
								BgL_sendz00_1796 = BGL_HVECTOR_LENGTH(BgL_xz00_2933);
							}
							{	/* Llib/srfi4.scm 838 */

								{	/* Llib/srfi4.scm 838 */
									obj_t BgL_targetz00_2934;
									long BgL_tstartz00_2935;
									obj_t BgL_sourcez00_2936;

									if (BGL_U8VECTORP(BgL_targetz00_1790))
										{	/* Llib/srfi4.scm 838 */
											BgL_targetz00_2934 = BgL_targetz00_1790;
										}
									else
										{
											obj_t BgL_auxz00_5722;

											BgL_auxz00_5722 =
												BGl_typezd2errorzd2zz__errorz00
												(BGl_string2365z00zz__srfi4z00, BINT(33208L),
												BGl_string2452z00zz__srfi4z00,
												BGl_string2369z00zz__srfi4z00, BgL_targetz00_1790);
											FAILURE(BgL_auxz00_5722, BFALSE, BFALSE);
										}
									{	/* Llib/srfi4.scm 838 */
										obj_t BgL_tmpz00_5726;

										if (INTEGERP(BgL_tstartz00_1791))
											{	/* Llib/srfi4.scm 838 */
												BgL_tmpz00_5726 = BgL_tstartz00_1791;
											}
										else
											{
												obj_t BgL_auxz00_5729;

												BgL_auxz00_5729 =
													BGl_typezd2errorzd2zz__errorz00
													(BGl_string2365z00zz__srfi4z00, BINT(33208L),
													BGl_string2452z00zz__srfi4z00,
													BGl_string2387z00zz__srfi4z00, BgL_tstartz00_1791);
												FAILURE(BgL_auxz00_5729, BFALSE, BFALSE);
											}
										BgL_tstartz00_2935 = (long) CINT(BgL_tmpz00_5726);
									}
									if (BGL_U8VECTORP(BgL_sourcez00_1792))
										{	/* Llib/srfi4.scm 838 */
											BgL_sourcez00_2936 = BgL_sourcez00_1792;
										}
									else
										{
											obj_t BgL_auxz00_5736;

											BgL_auxz00_5736 =
												BGl_typezd2errorzd2zz__errorz00
												(BGl_string2365z00zz__srfi4z00, BINT(33208L),
												BGl_string2452z00zz__srfi4z00,
												BGl_string2369z00zz__srfi4z00, BgL_sourcez00_1792);
											FAILURE(BgL_auxz00_5736, BFALSE, BFALSE);
										}
									BGL_SU8VECTOR_COPY(BgL_targetz00_2934, BgL_tstartz00_2935,
										BgL_sourcez00_2936, 0L, BgL_sendz00_1796);
									return BUNSPEC;
								}
							}
						}
						break;
					case 4L:

						{	/* Llib/srfi4.scm 838 */
							obj_t BgL_sstartz00_1797;

							BgL_sstartz00_1797 = VECTOR_REF(BgL_opt1282z00_165, 3L);
							{	/* Llib/srfi4.scm 838 */
								long BgL_sendz00_1798;

								{	/* Llib/srfi4.scm 838 */
									obj_t BgL_xz00_2937;

									if (BGL_U8VECTORP(BgL_sourcez00_1792))
										{	/* Llib/srfi4.scm 838 */
											BgL_xz00_2937 = BgL_sourcez00_1792;
										}
									else
										{
											obj_t BgL_auxz00_5744;

											BgL_auxz00_5744 =
												BGl_typezd2errorzd2zz__errorz00
												(BGl_string2365z00zz__srfi4z00, BINT(33208L),
												BGl_string2452z00zz__srfi4z00,
												BGl_string2369z00zz__srfi4z00, BgL_sourcez00_1792);
											FAILURE(BgL_auxz00_5744, BFALSE, BFALSE);
										}
									BgL_sendz00_1798 = BGL_HVECTOR_LENGTH(BgL_xz00_2937);
								}
								{	/* Llib/srfi4.scm 838 */

									{	/* Llib/srfi4.scm 838 */
										obj_t BgL_targetz00_2938;
										long BgL_tstartz00_2939;
										obj_t BgL_sourcez00_2940;

										if (BGL_U8VECTORP(BgL_targetz00_1790))
											{	/* Llib/srfi4.scm 838 */
												BgL_targetz00_2938 = BgL_targetz00_1790;
											}
										else
											{
												obj_t BgL_auxz00_5751;

												BgL_auxz00_5751 =
													BGl_typezd2errorzd2zz__errorz00
													(BGl_string2365z00zz__srfi4z00, BINT(33208L),
													BGl_string2452z00zz__srfi4z00,
													BGl_string2369z00zz__srfi4z00, BgL_targetz00_1790);
												FAILURE(BgL_auxz00_5751, BFALSE, BFALSE);
											}
										{	/* Llib/srfi4.scm 838 */
											obj_t BgL_tmpz00_5755;

											if (INTEGERP(BgL_tstartz00_1791))
												{	/* Llib/srfi4.scm 838 */
													BgL_tmpz00_5755 = BgL_tstartz00_1791;
												}
											else
												{
													obj_t BgL_auxz00_5758;

													BgL_auxz00_5758 =
														BGl_typezd2errorzd2zz__errorz00
														(BGl_string2365z00zz__srfi4z00, BINT(33208L),
														BGl_string2452z00zz__srfi4z00,
														BGl_string2387z00zz__srfi4z00, BgL_tstartz00_1791);
													FAILURE(BgL_auxz00_5758, BFALSE, BFALSE);
												}
											BgL_tstartz00_2939 = (long) CINT(BgL_tmpz00_5755);
										}
										if (BGL_U8VECTORP(BgL_sourcez00_1792))
											{	/* Llib/srfi4.scm 838 */
												BgL_sourcez00_2940 = BgL_sourcez00_1792;
											}
										else
											{
												obj_t BgL_auxz00_5765;

												BgL_auxz00_5765 =
													BGl_typezd2errorzd2zz__errorz00
													(BGl_string2365z00zz__srfi4z00, BINT(33208L),
													BGl_string2452z00zz__srfi4z00,
													BGl_string2369z00zz__srfi4z00, BgL_sourcez00_1792);
												FAILURE(BgL_auxz00_5765, BFALSE, BFALSE);
											}
										{	/* Llib/srfi4.scm 838 */
											long BgL_tmpz00_5769;

											{	/* Llib/srfi4.scm 838 */
												obj_t BgL_tmpz00_5770;

												if (INTEGERP(BgL_sstartz00_1797))
													{	/* Llib/srfi4.scm 838 */
														BgL_tmpz00_5770 = BgL_sstartz00_1797;
													}
												else
													{
														obj_t BgL_auxz00_5773;

														BgL_auxz00_5773 =
															BGl_typezd2errorzd2zz__errorz00
															(BGl_string2365z00zz__srfi4z00, BINT(33208L),
															BGl_string2452z00zz__srfi4z00,
															BGl_string2387z00zz__srfi4z00,
															BgL_sstartz00_1797);
														FAILURE(BgL_auxz00_5773, BFALSE, BFALSE);
													}
												BgL_tmpz00_5769 = (long) CINT(BgL_tmpz00_5770);
											}
											BGL_SU8VECTOR_COPY(BgL_targetz00_2938, BgL_tstartz00_2939,
												BgL_sourcez00_2940, BgL_tmpz00_5769, BgL_sendz00_1798);
										}
										return BUNSPEC;
									}
								}
							}
						}
						break;
					case 5L:

						{	/* Llib/srfi4.scm 838 */
							obj_t BgL_sstartz00_1799;

							BgL_sstartz00_1799 = VECTOR_REF(BgL_opt1282z00_165, 3L);
							{	/* Llib/srfi4.scm 838 */
								obj_t BgL_sendz00_1800;

								BgL_sendz00_1800 = VECTOR_REF(BgL_opt1282z00_165, 4L);
								{	/* Llib/srfi4.scm 838 */

									{	/* Llib/srfi4.scm 838 */
										obj_t BgL_targetz00_2941;
										long BgL_tstartz00_2942;
										obj_t BgL_sourcez00_2943;

										if (BGL_U8VECTORP(BgL_targetz00_1790))
											{	/* Llib/srfi4.scm 838 */
												BgL_targetz00_2941 = BgL_targetz00_1790;
											}
										else
											{
												obj_t BgL_auxz00_5783;

												BgL_auxz00_5783 =
													BGl_typezd2errorzd2zz__errorz00
													(BGl_string2365z00zz__srfi4z00, BINT(33208L),
													BGl_string2452z00zz__srfi4z00,
													BGl_string2369z00zz__srfi4z00, BgL_targetz00_1790);
												FAILURE(BgL_auxz00_5783, BFALSE, BFALSE);
											}
										{	/* Llib/srfi4.scm 838 */
											obj_t BgL_tmpz00_5787;

											if (INTEGERP(BgL_tstartz00_1791))
												{	/* Llib/srfi4.scm 838 */
													BgL_tmpz00_5787 = BgL_tstartz00_1791;
												}
											else
												{
													obj_t BgL_auxz00_5790;

													BgL_auxz00_5790 =
														BGl_typezd2errorzd2zz__errorz00
														(BGl_string2365z00zz__srfi4z00, BINT(33208L),
														BGl_string2452z00zz__srfi4z00,
														BGl_string2387z00zz__srfi4z00, BgL_tstartz00_1791);
													FAILURE(BgL_auxz00_5790, BFALSE, BFALSE);
												}
											BgL_tstartz00_2942 = (long) CINT(BgL_tmpz00_5787);
										}
										if (BGL_U8VECTORP(BgL_sourcez00_1792))
											{	/* Llib/srfi4.scm 838 */
												BgL_sourcez00_2943 = BgL_sourcez00_1792;
											}
										else
											{
												obj_t BgL_auxz00_5797;

												BgL_auxz00_5797 =
													BGl_typezd2errorzd2zz__errorz00
													(BGl_string2365z00zz__srfi4z00, BINT(33208L),
													BGl_string2452z00zz__srfi4z00,
													BGl_string2369z00zz__srfi4z00, BgL_sourcez00_1792);
												FAILURE(BgL_auxz00_5797, BFALSE, BFALSE);
											}
										{	/* Llib/srfi4.scm 838 */
											long BgL_auxz00_5810;
											long BgL_tmpz00_5801;

											{	/* Llib/srfi4.scm 838 */
												obj_t BgL_tmpz00_5811;

												if (INTEGERP(BgL_sendz00_1800))
													{	/* Llib/srfi4.scm 838 */
														BgL_tmpz00_5811 = BgL_sendz00_1800;
													}
												else
													{
														obj_t BgL_auxz00_5814;

														BgL_auxz00_5814 =
															BGl_typezd2errorzd2zz__errorz00
															(BGl_string2365z00zz__srfi4z00, BINT(33208L),
															BGl_string2452z00zz__srfi4z00,
															BGl_string2387z00zz__srfi4z00, BgL_sendz00_1800);
														FAILURE(BgL_auxz00_5814, BFALSE, BFALSE);
													}
												BgL_auxz00_5810 = (long) CINT(BgL_tmpz00_5811);
											}
											{	/* Llib/srfi4.scm 838 */
												obj_t BgL_tmpz00_5802;

												if (INTEGERP(BgL_sstartz00_1799))
													{	/* Llib/srfi4.scm 838 */
														BgL_tmpz00_5802 = BgL_sstartz00_1799;
													}
												else
													{
														obj_t BgL_auxz00_5805;

														BgL_auxz00_5805 =
															BGl_typezd2errorzd2zz__errorz00
															(BGl_string2365z00zz__srfi4z00, BINT(33208L),
															BGl_string2452z00zz__srfi4z00,
															BGl_string2387z00zz__srfi4z00,
															BgL_sstartz00_1799);
														FAILURE(BgL_auxz00_5805, BFALSE, BFALSE);
													}
												BgL_tmpz00_5801 = (long) CINT(BgL_tmpz00_5802);
											}
											BGL_SU8VECTOR_COPY(BgL_targetz00_2941, BgL_tstartz00_2942,
												BgL_sourcez00_2943, BgL_tmpz00_5801, BgL_auxz00_5810);
										}
										return BUNSPEC;
									}
								}
							}
						}
						break;
					default:
						return BUNSPEC;
					}
			}
		}

	}



/* u8vector-copy! */
	BGL_EXPORTED_DEF obj_t BGl_u8vectorzd2copyz12zc0zz__srfi4z00(obj_t
		BgL_targetz00_160, long BgL_tstartz00_161, obj_t BgL_sourcez00_162,
		obj_t BgL_sstartz00_163, obj_t BgL_sendz00_164)
	{
		{	/* Llib/srfi4.scm 838 */
			{	/* Llib/srfi4.scm 838 */
				long BgL_auxz00_5824;
				long BgL_tmpz00_5822;

				BgL_auxz00_5824 = (long) CINT(BgL_sendz00_164);
				BgL_tmpz00_5822 = (long) CINT(BgL_sstartz00_163);
				BGL_SU8VECTOR_COPY(BgL_targetz00_160, BgL_tstartz00_161,
					BgL_sourcez00_162, BgL_tmpz00_5822, BgL_auxz00_5824);
			}
			return BUNSPEC;
		}

	}



/* _s16vector-copy! */
	obj_t BGl__s16vectorzd2copyz12zc0zz__srfi4z00(obj_t BgL_env1287z00_173,
		obj_t BgL_opt1286z00_172)
	{
		{	/* Llib/srfi4.scm 838 */
			{	/* Llib/srfi4.scm 838 */
				obj_t BgL_targetz00_1801;
				obj_t BgL_tstartz00_1802;
				obj_t BgL_sourcez00_1803;

				BgL_targetz00_1801 = VECTOR_REF(BgL_opt1286z00_172, 0L);
				BgL_tstartz00_1802 = VECTOR_REF(BgL_opt1286z00_172, 1L);
				BgL_sourcez00_1803 = VECTOR_REF(BgL_opt1286z00_172, 2L);
				switch (VECTOR_LENGTH(BgL_opt1286z00_172))
					{
					case 3L:

						{	/* Llib/srfi4.scm 838 */
							long BgL_sendz00_1807;

							{	/* Llib/srfi4.scm 838 */
								obj_t BgL_xz00_2944;

								if (BGL_S16VECTORP(BgL_sourcez00_1803))
									{	/* Llib/srfi4.scm 838 */
										BgL_xz00_2944 = BgL_sourcez00_1803;
									}
								else
									{
										obj_t BgL_auxz00_5832;

										BgL_auxz00_5832 =
											BGl_typezd2errorzd2zz__errorz00
											(BGl_string2365z00zz__srfi4z00, BINT(33208L),
											BGl_string2453z00zz__srfi4z00,
											BGl_string2371z00zz__srfi4z00, BgL_sourcez00_1803);
										FAILURE(BgL_auxz00_5832, BFALSE, BFALSE);
									}
								BgL_sendz00_1807 = BGL_HVECTOR_LENGTH(BgL_xz00_2944);
							}
							{	/* Llib/srfi4.scm 838 */

								{	/* Llib/srfi4.scm 838 */
									obj_t BgL_targetz00_2945;
									long BgL_tstartz00_2946;
									obj_t BgL_sourcez00_2947;

									if (BGL_S16VECTORP(BgL_targetz00_1801))
										{	/* Llib/srfi4.scm 838 */
											BgL_targetz00_2945 = BgL_targetz00_1801;
										}
									else
										{
											obj_t BgL_auxz00_5839;

											BgL_auxz00_5839 =
												BGl_typezd2errorzd2zz__errorz00
												(BGl_string2365z00zz__srfi4z00, BINT(33208L),
												BGl_string2453z00zz__srfi4z00,
												BGl_string2371z00zz__srfi4z00, BgL_targetz00_1801);
											FAILURE(BgL_auxz00_5839, BFALSE, BFALSE);
										}
									{	/* Llib/srfi4.scm 838 */
										obj_t BgL_tmpz00_5843;

										if (INTEGERP(BgL_tstartz00_1802))
											{	/* Llib/srfi4.scm 838 */
												BgL_tmpz00_5843 = BgL_tstartz00_1802;
											}
										else
											{
												obj_t BgL_auxz00_5846;

												BgL_auxz00_5846 =
													BGl_typezd2errorzd2zz__errorz00
													(BGl_string2365z00zz__srfi4z00, BINT(33208L),
													BGl_string2453z00zz__srfi4z00,
													BGl_string2387z00zz__srfi4z00, BgL_tstartz00_1802);
												FAILURE(BgL_auxz00_5846, BFALSE, BFALSE);
											}
										BgL_tstartz00_2946 = (long) CINT(BgL_tmpz00_5843);
									}
									if (BGL_S16VECTORP(BgL_sourcez00_1803))
										{	/* Llib/srfi4.scm 838 */
											BgL_sourcez00_2947 = BgL_sourcez00_1803;
										}
									else
										{
											obj_t BgL_auxz00_5853;

											BgL_auxz00_5853 =
												BGl_typezd2errorzd2zz__errorz00
												(BGl_string2365z00zz__srfi4z00, BINT(33208L),
												BGl_string2453z00zz__srfi4z00,
												BGl_string2371z00zz__srfi4z00, BgL_sourcez00_1803);
											FAILURE(BgL_auxz00_5853, BFALSE, BFALSE);
										}
									BGL_SU16VECTOR_COPY(BgL_targetz00_2945, BgL_tstartz00_2946,
										BgL_sourcez00_2947, 0L, BgL_sendz00_1807);
									return BUNSPEC;
								}
							}
						}
						break;
					case 4L:

						{	/* Llib/srfi4.scm 838 */
							obj_t BgL_sstartz00_1808;

							BgL_sstartz00_1808 = VECTOR_REF(BgL_opt1286z00_172, 3L);
							{	/* Llib/srfi4.scm 838 */
								long BgL_sendz00_1809;

								{	/* Llib/srfi4.scm 838 */
									obj_t BgL_xz00_2948;

									if (BGL_S16VECTORP(BgL_sourcez00_1803))
										{	/* Llib/srfi4.scm 838 */
											BgL_xz00_2948 = BgL_sourcez00_1803;
										}
									else
										{
											obj_t BgL_auxz00_5861;

											BgL_auxz00_5861 =
												BGl_typezd2errorzd2zz__errorz00
												(BGl_string2365z00zz__srfi4z00, BINT(33208L),
												BGl_string2453z00zz__srfi4z00,
												BGl_string2371z00zz__srfi4z00, BgL_sourcez00_1803);
											FAILURE(BgL_auxz00_5861, BFALSE, BFALSE);
										}
									BgL_sendz00_1809 = BGL_HVECTOR_LENGTH(BgL_xz00_2948);
								}
								{	/* Llib/srfi4.scm 838 */

									{	/* Llib/srfi4.scm 838 */
										obj_t BgL_targetz00_2949;
										long BgL_tstartz00_2950;
										obj_t BgL_sourcez00_2951;

										if (BGL_S16VECTORP(BgL_targetz00_1801))
											{	/* Llib/srfi4.scm 838 */
												BgL_targetz00_2949 = BgL_targetz00_1801;
											}
										else
											{
												obj_t BgL_auxz00_5868;

												BgL_auxz00_5868 =
													BGl_typezd2errorzd2zz__errorz00
													(BGl_string2365z00zz__srfi4z00, BINT(33208L),
													BGl_string2453z00zz__srfi4z00,
													BGl_string2371z00zz__srfi4z00, BgL_targetz00_1801);
												FAILURE(BgL_auxz00_5868, BFALSE, BFALSE);
											}
										{	/* Llib/srfi4.scm 838 */
											obj_t BgL_tmpz00_5872;

											if (INTEGERP(BgL_tstartz00_1802))
												{	/* Llib/srfi4.scm 838 */
													BgL_tmpz00_5872 = BgL_tstartz00_1802;
												}
											else
												{
													obj_t BgL_auxz00_5875;

													BgL_auxz00_5875 =
														BGl_typezd2errorzd2zz__errorz00
														(BGl_string2365z00zz__srfi4z00, BINT(33208L),
														BGl_string2453z00zz__srfi4z00,
														BGl_string2387z00zz__srfi4z00, BgL_tstartz00_1802);
													FAILURE(BgL_auxz00_5875, BFALSE, BFALSE);
												}
											BgL_tstartz00_2950 = (long) CINT(BgL_tmpz00_5872);
										}
										if (BGL_S16VECTORP(BgL_sourcez00_1803))
											{	/* Llib/srfi4.scm 838 */
												BgL_sourcez00_2951 = BgL_sourcez00_1803;
											}
										else
											{
												obj_t BgL_auxz00_5882;

												BgL_auxz00_5882 =
													BGl_typezd2errorzd2zz__errorz00
													(BGl_string2365z00zz__srfi4z00, BINT(33208L),
													BGl_string2453z00zz__srfi4z00,
													BGl_string2371z00zz__srfi4z00, BgL_sourcez00_1803);
												FAILURE(BgL_auxz00_5882, BFALSE, BFALSE);
											}
										{	/* Llib/srfi4.scm 838 */
											long BgL_tmpz00_5886;

											{	/* Llib/srfi4.scm 838 */
												obj_t BgL_tmpz00_5887;

												if (INTEGERP(BgL_sstartz00_1808))
													{	/* Llib/srfi4.scm 838 */
														BgL_tmpz00_5887 = BgL_sstartz00_1808;
													}
												else
													{
														obj_t BgL_auxz00_5890;

														BgL_auxz00_5890 =
															BGl_typezd2errorzd2zz__errorz00
															(BGl_string2365z00zz__srfi4z00, BINT(33208L),
															BGl_string2453z00zz__srfi4z00,
															BGl_string2387z00zz__srfi4z00,
															BgL_sstartz00_1808);
														FAILURE(BgL_auxz00_5890, BFALSE, BFALSE);
													}
												BgL_tmpz00_5886 = (long) CINT(BgL_tmpz00_5887);
											}
											BGL_SU16VECTOR_COPY(BgL_targetz00_2949,
												BgL_tstartz00_2950, BgL_sourcez00_2951, BgL_tmpz00_5886,
												BgL_sendz00_1809);
										}
										return BUNSPEC;
									}
								}
							}
						}
						break;
					case 5L:

						{	/* Llib/srfi4.scm 838 */
							obj_t BgL_sstartz00_1810;

							BgL_sstartz00_1810 = VECTOR_REF(BgL_opt1286z00_172, 3L);
							{	/* Llib/srfi4.scm 838 */
								obj_t BgL_sendz00_1811;

								BgL_sendz00_1811 = VECTOR_REF(BgL_opt1286z00_172, 4L);
								{	/* Llib/srfi4.scm 838 */

									{	/* Llib/srfi4.scm 838 */
										obj_t BgL_targetz00_2952;
										long BgL_tstartz00_2953;
										obj_t BgL_sourcez00_2954;

										if (BGL_S16VECTORP(BgL_targetz00_1801))
											{	/* Llib/srfi4.scm 838 */
												BgL_targetz00_2952 = BgL_targetz00_1801;
											}
										else
											{
												obj_t BgL_auxz00_5900;

												BgL_auxz00_5900 =
													BGl_typezd2errorzd2zz__errorz00
													(BGl_string2365z00zz__srfi4z00, BINT(33208L),
													BGl_string2453z00zz__srfi4z00,
													BGl_string2371z00zz__srfi4z00, BgL_targetz00_1801);
												FAILURE(BgL_auxz00_5900, BFALSE, BFALSE);
											}
										{	/* Llib/srfi4.scm 838 */
											obj_t BgL_tmpz00_5904;

											if (INTEGERP(BgL_tstartz00_1802))
												{	/* Llib/srfi4.scm 838 */
													BgL_tmpz00_5904 = BgL_tstartz00_1802;
												}
											else
												{
													obj_t BgL_auxz00_5907;

													BgL_auxz00_5907 =
														BGl_typezd2errorzd2zz__errorz00
														(BGl_string2365z00zz__srfi4z00, BINT(33208L),
														BGl_string2453z00zz__srfi4z00,
														BGl_string2387z00zz__srfi4z00, BgL_tstartz00_1802);
													FAILURE(BgL_auxz00_5907, BFALSE, BFALSE);
												}
											BgL_tstartz00_2953 = (long) CINT(BgL_tmpz00_5904);
										}
										if (BGL_S16VECTORP(BgL_sourcez00_1803))
											{	/* Llib/srfi4.scm 838 */
												BgL_sourcez00_2954 = BgL_sourcez00_1803;
											}
										else
											{
												obj_t BgL_auxz00_5914;

												BgL_auxz00_5914 =
													BGl_typezd2errorzd2zz__errorz00
													(BGl_string2365z00zz__srfi4z00, BINT(33208L),
													BGl_string2453z00zz__srfi4z00,
													BGl_string2371z00zz__srfi4z00, BgL_sourcez00_1803);
												FAILURE(BgL_auxz00_5914, BFALSE, BFALSE);
											}
										{	/* Llib/srfi4.scm 838 */
											long BgL_auxz00_5927;
											long BgL_tmpz00_5918;

											{	/* Llib/srfi4.scm 838 */
												obj_t BgL_tmpz00_5928;

												if (INTEGERP(BgL_sendz00_1811))
													{	/* Llib/srfi4.scm 838 */
														BgL_tmpz00_5928 = BgL_sendz00_1811;
													}
												else
													{
														obj_t BgL_auxz00_5931;

														BgL_auxz00_5931 =
															BGl_typezd2errorzd2zz__errorz00
															(BGl_string2365z00zz__srfi4z00, BINT(33208L),
															BGl_string2453z00zz__srfi4z00,
															BGl_string2387z00zz__srfi4z00, BgL_sendz00_1811);
														FAILURE(BgL_auxz00_5931, BFALSE, BFALSE);
													}
												BgL_auxz00_5927 = (long) CINT(BgL_tmpz00_5928);
											}
											{	/* Llib/srfi4.scm 838 */
												obj_t BgL_tmpz00_5919;

												if (INTEGERP(BgL_sstartz00_1810))
													{	/* Llib/srfi4.scm 838 */
														BgL_tmpz00_5919 = BgL_sstartz00_1810;
													}
												else
													{
														obj_t BgL_auxz00_5922;

														BgL_auxz00_5922 =
															BGl_typezd2errorzd2zz__errorz00
															(BGl_string2365z00zz__srfi4z00, BINT(33208L),
															BGl_string2453z00zz__srfi4z00,
															BGl_string2387z00zz__srfi4z00,
															BgL_sstartz00_1810);
														FAILURE(BgL_auxz00_5922, BFALSE, BFALSE);
													}
												BgL_tmpz00_5918 = (long) CINT(BgL_tmpz00_5919);
											}
											BGL_SU16VECTOR_COPY(BgL_targetz00_2952,
												BgL_tstartz00_2953, BgL_sourcez00_2954, BgL_tmpz00_5918,
												BgL_auxz00_5927);
										}
										return BUNSPEC;
									}
								}
							}
						}
						break;
					default:
						return BUNSPEC;
					}
			}
		}

	}



/* s16vector-copy! */
	BGL_EXPORTED_DEF obj_t BGl_s16vectorzd2copyz12zc0zz__srfi4z00(obj_t
		BgL_targetz00_167, long BgL_tstartz00_168, obj_t BgL_sourcez00_169,
		obj_t BgL_sstartz00_170, obj_t BgL_sendz00_171)
	{
		{	/* Llib/srfi4.scm 838 */
			{	/* Llib/srfi4.scm 838 */
				long BgL_auxz00_5941;
				long BgL_tmpz00_5939;

				BgL_auxz00_5941 = (long) CINT(BgL_sendz00_171);
				BgL_tmpz00_5939 = (long) CINT(BgL_sstartz00_170);
				BGL_SU16VECTOR_COPY(BgL_targetz00_167, BgL_tstartz00_168,
					BgL_sourcez00_169, BgL_tmpz00_5939, BgL_auxz00_5941);
			}
			return BUNSPEC;
		}

	}



/* _u16vector-copy! */
	obj_t BGl__u16vectorzd2copyz12zc0zz__srfi4z00(obj_t BgL_env1291z00_180,
		obj_t BgL_opt1290z00_179)
	{
		{	/* Llib/srfi4.scm 838 */
			{	/* Llib/srfi4.scm 838 */
				obj_t BgL_targetz00_1812;
				obj_t BgL_tstartz00_1813;
				obj_t BgL_sourcez00_1814;

				BgL_targetz00_1812 = VECTOR_REF(BgL_opt1290z00_179, 0L);
				BgL_tstartz00_1813 = VECTOR_REF(BgL_opt1290z00_179, 1L);
				BgL_sourcez00_1814 = VECTOR_REF(BgL_opt1290z00_179, 2L);
				switch (VECTOR_LENGTH(BgL_opt1290z00_179))
					{
					case 3L:

						{	/* Llib/srfi4.scm 838 */
							long BgL_sendz00_1818;

							{	/* Llib/srfi4.scm 838 */
								obj_t BgL_xz00_2955;

								if (BGL_U16VECTORP(BgL_sourcez00_1814))
									{	/* Llib/srfi4.scm 838 */
										BgL_xz00_2955 = BgL_sourcez00_1814;
									}
								else
									{
										obj_t BgL_auxz00_5949;

										BgL_auxz00_5949 =
											BGl_typezd2errorzd2zz__errorz00
											(BGl_string2365z00zz__srfi4z00, BINT(33208L),
											BGl_string2454z00zz__srfi4z00,
											BGl_string2373z00zz__srfi4z00, BgL_sourcez00_1814);
										FAILURE(BgL_auxz00_5949, BFALSE, BFALSE);
									}
								BgL_sendz00_1818 = BGL_HVECTOR_LENGTH(BgL_xz00_2955);
							}
							{	/* Llib/srfi4.scm 838 */

								{	/* Llib/srfi4.scm 838 */
									obj_t BgL_targetz00_2956;
									long BgL_tstartz00_2957;
									obj_t BgL_sourcez00_2958;

									if (BGL_U16VECTORP(BgL_targetz00_1812))
										{	/* Llib/srfi4.scm 838 */
											BgL_targetz00_2956 = BgL_targetz00_1812;
										}
									else
										{
											obj_t BgL_auxz00_5956;

											BgL_auxz00_5956 =
												BGl_typezd2errorzd2zz__errorz00
												(BGl_string2365z00zz__srfi4z00, BINT(33208L),
												BGl_string2454z00zz__srfi4z00,
												BGl_string2373z00zz__srfi4z00, BgL_targetz00_1812);
											FAILURE(BgL_auxz00_5956, BFALSE, BFALSE);
										}
									{	/* Llib/srfi4.scm 838 */
										obj_t BgL_tmpz00_5960;

										if (INTEGERP(BgL_tstartz00_1813))
											{	/* Llib/srfi4.scm 838 */
												BgL_tmpz00_5960 = BgL_tstartz00_1813;
											}
										else
											{
												obj_t BgL_auxz00_5963;

												BgL_auxz00_5963 =
													BGl_typezd2errorzd2zz__errorz00
													(BGl_string2365z00zz__srfi4z00, BINT(33208L),
													BGl_string2454z00zz__srfi4z00,
													BGl_string2387z00zz__srfi4z00, BgL_tstartz00_1813);
												FAILURE(BgL_auxz00_5963, BFALSE, BFALSE);
											}
										BgL_tstartz00_2957 = (long) CINT(BgL_tmpz00_5960);
									}
									if (BGL_U16VECTORP(BgL_sourcez00_1814))
										{	/* Llib/srfi4.scm 838 */
											BgL_sourcez00_2958 = BgL_sourcez00_1814;
										}
									else
										{
											obj_t BgL_auxz00_5970;

											BgL_auxz00_5970 =
												BGl_typezd2errorzd2zz__errorz00
												(BGl_string2365z00zz__srfi4z00, BINT(33208L),
												BGl_string2454z00zz__srfi4z00,
												BGl_string2373z00zz__srfi4z00, BgL_sourcez00_1814);
											FAILURE(BgL_auxz00_5970, BFALSE, BFALSE);
										}
									BGL_SU16VECTOR_COPY(BgL_targetz00_2956, BgL_tstartz00_2957,
										BgL_sourcez00_2958, 0L, BgL_sendz00_1818);
									return BUNSPEC;
								}
							}
						}
						break;
					case 4L:

						{	/* Llib/srfi4.scm 838 */
							obj_t BgL_sstartz00_1819;

							BgL_sstartz00_1819 = VECTOR_REF(BgL_opt1290z00_179, 3L);
							{	/* Llib/srfi4.scm 838 */
								long BgL_sendz00_1820;

								{	/* Llib/srfi4.scm 838 */
									obj_t BgL_xz00_2959;

									if (BGL_U16VECTORP(BgL_sourcez00_1814))
										{	/* Llib/srfi4.scm 838 */
											BgL_xz00_2959 = BgL_sourcez00_1814;
										}
									else
										{
											obj_t BgL_auxz00_5978;

											BgL_auxz00_5978 =
												BGl_typezd2errorzd2zz__errorz00
												(BGl_string2365z00zz__srfi4z00, BINT(33208L),
												BGl_string2454z00zz__srfi4z00,
												BGl_string2373z00zz__srfi4z00, BgL_sourcez00_1814);
											FAILURE(BgL_auxz00_5978, BFALSE, BFALSE);
										}
									BgL_sendz00_1820 = BGL_HVECTOR_LENGTH(BgL_xz00_2959);
								}
								{	/* Llib/srfi4.scm 838 */

									{	/* Llib/srfi4.scm 838 */
										obj_t BgL_targetz00_2960;
										long BgL_tstartz00_2961;
										obj_t BgL_sourcez00_2962;

										if (BGL_U16VECTORP(BgL_targetz00_1812))
											{	/* Llib/srfi4.scm 838 */
												BgL_targetz00_2960 = BgL_targetz00_1812;
											}
										else
											{
												obj_t BgL_auxz00_5985;

												BgL_auxz00_5985 =
													BGl_typezd2errorzd2zz__errorz00
													(BGl_string2365z00zz__srfi4z00, BINT(33208L),
													BGl_string2454z00zz__srfi4z00,
													BGl_string2373z00zz__srfi4z00, BgL_targetz00_1812);
												FAILURE(BgL_auxz00_5985, BFALSE, BFALSE);
											}
										{	/* Llib/srfi4.scm 838 */
											obj_t BgL_tmpz00_5989;

											if (INTEGERP(BgL_tstartz00_1813))
												{	/* Llib/srfi4.scm 838 */
													BgL_tmpz00_5989 = BgL_tstartz00_1813;
												}
											else
												{
													obj_t BgL_auxz00_5992;

													BgL_auxz00_5992 =
														BGl_typezd2errorzd2zz__errorz00
														(BGl_string2365z00zz__srfi4z00, BINT(33208L),
														BGl_string2454z00zz__srfi4z00,
														BGl_string2387z00zz__srfi4z00, BgL_tstartz00_1813);
													FAILURE(BgL_auxz00_5992, BFALSE, BFALSE);
												}
											BgL_tstartz00_2961 = (long) CINT(BgL_tmpz00_5989);
										}
										if (BGL_U16VECTORP(BgL_sourcez00_1814))
											{	/* Llib/srfi4.scm 838 */
												BgL_sourcez00_2962 = BgL_sourcez00_1814;
											}
										else
											{
												obj_t BgL_auxz00_5999;

												BgL_auxz00_5999 =
													BGl_typezd2errorzd2zz__errorz00
													(BGl_string2365z00zz__srfi4z00, BINT(33208L),
													BGl_string2454z00zz__srfi4z00,
													BGl_string2373z00zz__srfi4z00, BgL_sourcez00_1814);
												FAILURE(BgL_auxz00_5999, BFALSE, BFALSE);
											}
										{	/* Llib/srfi4.scm 838 */
											long BgL_tmpz00_6003;

											{	/* Llib/srfi4.scm 838 */
												obj_t BgL_tmpz00_6004;

												if (INTEGERP(BgL_sstartz00_1819))
													{	/* Llib/srfi4.scm 838 */
														BgL_tmpz00_6004 = BgL_sstartz00_1819;
													}
												else
													{
														obj_t BgL_auxz00_6007;

														BgL_auxz00_6007 =
															BGl_typezd2errorzd2zz__errorz00
															(BGl_string2365z00zz__srfi4z00, BINT(33208L),
															BGl_string2454z00zz__srfi4z00,
															BGl_string2387z00zz__srfi4z00,
															BgL_sstartz00_1819);
														FAILURE(BgL_auxz00_6007, BFALSE, BFALSE);
													}
												BgL_tmpz00_6003 = (long) CINT(BgL_tmpz00_6004);
											}
											BGL_SU16VECTOR_COPY(BgL_targetz00_2960,
												BgL_tstartz00_2961, BgL_sourcez00_2962, BgL_tmpz00_6003,
												BgL_sendz00_1820);
										}
										return BUNSPEC;
									}
								}
							}
						}
						break;
					case 5L:

						{	/* Llib/srfi4.scm 838 */
							obj_t BgL_sstartz00_1821;

							BgL_sstartz00_1821 = VECTOR_REF(BgL_opt1290z00_179, 3L);
							{	/* Llib/srfi4.scm 838 */
								obj_t BgL_sendz00_1822;

								BgL_sendz00_1822 = VECTOR_REF(BgL_opt1290z00_179, 4L);
								{	/* Llib/srfi4.scm 838 */

									{	/* Llib/srfi4.scm 838 */
										obj_t BgL_targetz00_2963;
										long BgL_tstartz00_2964;
										obj_t BgL_sourcez00_2965;

										if (BGL_U16VECTORP(BgL_targetz00_1812))
											{	/* Llib/srfi4.scm 838 */
												BgL_targetz00_2963 = BgL_targetz00_1812;
											}
										else
											{
												obj_t BgL_auxz00_6017;

												BgL_auxz00_6017 =
													BGl_typezd2errorzd2zz__errorz00
													(BGl_string2365z00zz__srfi4z00, BINT(33208L),
													BGl_string2454z00zz__srfi4z00,
													BGl_string2373z00zz__srfi4z00, BgL_targetz00_1812);
												FAILURE(BgL_auxz00_6017, BFALSE, BFALSE);
											}
										{	/* Llib/srfi4.scm 838 */
											obj_t BgL_tmpz00_6021;

											if (INTEGERP(BgL_tstartz00_1813))
												{	/* Llib/srfi4.scm 838 */
													BgL_tmpz00_6021 = BgL_tstartz00_1813;
												}
											else
												{
													obj_t BgL_auxz00_6024;

													BgL_auxz00_6024 =
														BGl_typezd2errorzd2zz__errorz00
														(BGl_string2365z00zz__srfi4z00, BINT(33208L),
														BGl_string2454z00zz__srfi4z00,
														BGl_string2387z00zz__srfi4z00, BgL_tstartz00_1813);
													FAILURE(BgL_auxz00_6024, BFALSE, BFALSE);
												}
											BgL_tstartz00_2964 = (long) CINT(BgL_tmpz00_6021);
										}
										if (BGL_U16VECTORP(BgL_sourcez00_1814))
											{	/* Llib/srfi4.scm 838 */
												BgL_sourcez00_2965 = BgL_sourcez00_1814;
											}
										else
											{
												obj_t BgL_auxz00_6031;

												BgL_auxz00_6031 =
													BGl_typezd2errorzd2zz__errorz00
													(BGl_string2365z00zz__srfi4z00, BINT(33208L),
													BGl_string2454z00zz__srfi4z00,
													BGl_string2373z00zz__srfi4z00, BgL_sourcez00_1814);
												FAILURE(BgL_auxz00_6031, BFALSE, BFALSE);
											}
										{	/* Llib/srfi4.scm 838 */
											long BgL_auxz00_6044;
											long BgL_tmpz00_6035;

											{	/* Llib/srfi4.scm 838 */
												obj_t BgL_tmpz00_6045;

												if (INTEGERP(BgL_sendz00_1822))
													{	/* Llib/srfi4.scm 838 */
														BgL_tmpz00_6045 = BgL_sendz00_1822;
													}
												else
													{
														obj_t BgL_auxz00_6048;

														BgL_auxz00_6048 =
															BGl_typezd2errorzd2zz__errorz00
															(BGl_string2365z00zz__srfi4z00, BINT(33208L),
															BGl_string2454z00zz__srfi4z00,
															BGl_string2387z00zz__srfi4z00, BgL_sendz00_1822);
														FAILURE(BgL_auxz00_6048, BFALSE, BFALSE);
													}
												BgL_auxz00_6044 = (long) CINT(BgL_tmpz00_6045);
											}
											{	/* Llib/srfi4.scm 838 */
												obj_t BgL_tmpz00_6036;

												if (INTEGERP(BgL_sstartz00_1821))
													{	/* Llib/srfi4.scm 838 */
														BgL_tmpz00_6036 = BgL_sstartz00_1821;
													}
												else
													{
														obj_t BgL_auxz00_6039;

														BgL_auxz00_6039 =
															BGl_typezd2errorzd2zz__errorz00
															(BGl_string2365z00zz__srfi4z00, BINT(33208L),
															BGl_string2454z00zz__srfi4z00,
															BGl_string2387z00zz__srfi4z00,
															BgL_sstartz00_1821);
														FAILURE(BgL_auxz00_6039, BFALSE, BFALSE);
													}
												BgL_tmpz00_6035 = (long) CINT(BgL_tmpz00_6036);
											}
											BGL_SU16VECTOR_COPY(BgL_targetz00_2963,
												BgL_tstartz00_2964, BgL_sourcez00_2965, BgL_tmpz00_6035,
												BgL_auxz00_6044);
										}
										return BUNSPEC;
									}
								}
							}
						}
						break;
					default:
						return BUNSPEC;
					}
			}
		}

	}



/* u16vector-copy! */
	BGL_EXPORTED_DEF obj_t BGl_u16vectorzd2copyz12zc0zz__srfi4z00(obj_t
		BgL_targetz00_174, long BgL_tstartz00_175, obj_t BgL_sourcez00_176,
		obj_t BgL_sstartz00_177, obj_t BgL_sendz00_178)
	{
		{	/* Llib/srfi4.scm 838 */
			{	/* Llib/srfi4.scm 838 */
				long BgL_auxz00_6058;
				long BgL_tmpz00_6056;

				BgL_auxz00_6058 = (long) CINT(BgL_sendz00_178);
				BgL_tmpz00_6056 = (long) CINT(BgL_sstartz00_177);
				BGL_SU16VECTOR_COPY(BgL_targetz00_174, BgL_tstartz00_175,
					BgL_sourcez00_176, BgL_tmpz00_6056, BgL_auxz00_6058);
			}
			return BUNSPEC;
		}

	}



/* _s32vector-copy! */
	obj_t BGl__s32vectorzd2copyz12zc0zz__srfi4z00(obj_t BgL_env1295z00_187,
		obj_t BgL_opt1294z00_186)
	{
		{	/* Llib/srfi4.scm 838 */
			{	/* Llib/srfi4.scm 838 */
				obj_t BgL_targetz00_1823;
				obj_t BgL_tstartz00_1824;
				obj_t BgL_sourcez00_1825;

				BgL_targetz00_1823 = VECTOR_REF(BgL_opt1294z00_186, 0L);
				BgL_tstartz00_1824 = VECTOR_REF(BgL_opt1294z00_186, 1L);
				BgL_sourcez00_1825 = VECTOR_REF(BgL_opt1294z00_186, 2L);
				switch (VECTOR_LENGTH(BgL_opt1294z00_186))
					{
					case 3L:

						{	/* Llib/srfi4.scm 838 */
							long BgL_sendz00_1829;

							{	/* Llib/srfi4.scm 838 */
								obj_t BgL_xz00_2966;

								if (BGL_S32VECTORP(BgL_sourcez00_1825))
									{	/* Llib/srfi4.scm 838 */
										BgL_xz00_2966 = BgL_sourcez00_1825;
									}
								else
									{
										obj_t BgL_auxz00_6066;

										BgL_auxz00_6066 =
											BGl_typezd2errorzd2zz__errorz00
											(BGl_string2365z00zz__srfi4z00, BINT(33208L),
											BGl_string2455z00zz__srfi4z00,
											BGl_string2375z00zz__srfi4z00, BgL_sourcez00_1825);
										FAILURE(BgL_auxz00_6066, BFALSE, BFALSE);
									}
								BgL_sendz00_1829 = BGL_HVECTOR_LENGTH(BgL_xz00_2966);
							}
							{	/* Llib/srfi4.scm 838 */

								{	/* Llib/srfi4.scm 838 */
									obj_t BgL_targetz00_2967;
									long BgL_tstartz00_2968;
									obj_t BgL_sourcez00_2969;

									if (BGL_S32VECTORP(BgL_targetz00_1823))
										{	/* Llib/srfi4.scm 838 */
											BgL_targetz00_2967 = BgL_targetz00_1823;
										}
									else
										{
											obj_t BgL_auxz00_6073;

											BgL_auxz00_6073 =
												BGl_typezd2errorzd2zz__errorz00
												(BGl_string2365z00zz__srfi4z00, BINT(33208L),
												BGl_string2455z00zz__srfi4z00,
												BGl_string2375z00zz__srfi4z00, BgL_targetz00_1823);
											FAILURE(BgL_auxz00_6073, BFALSE, BFALSE);
										}
									{	/* Llib/srfi4.scm 838 */
										obj_t BgL_tmpz00_6077;

										if (INTEGERP(BgL_tstartz00_1824))
											{	/* Llib/srfi4.scm 838 */
												BgL_tmpz00_6077 = BgL_tstartz00_1824;
											}
										else
											{
												obj_t BgL_auxz00_6080;

												BgL_auxz00_6080 =
													BGl_typezd2errorzd2zz__errorz00
													(BGl_string2365z00zz__srfi4z00, BINT(33208L),
													BGl_string2455z00zz__srfi4z00,
													BGl_string2387z00zz__srfi4z00, BgL_tstartz00_1824);
												FAILURE(BgL_auxz00_6080, BFALSE, BFALSE);
											}
										BgL_tstartz00_2968 = (long) CINT(BgL_tmpz00_6077);
									}
									if (BGL_S32VECTORP(BgL_sourcez00_1825))
										{	/* Llib/srfi4.scm 838 */
											BgL_sourcez00_2969 = BgL_sourcez00_1825;
										}
									else
										{
											obj_t BgL_auxz00_6087;

											BgL_auxz00_6087 =
												BGl_typezd2errorzd2zz__errorz00
												(BGl_string2365z00zz__srfi4z00, BINT(33208L),
												BGl_string2455z00zz__srfi4z00,
												BGl_string2375z00zz__srfi4z00, BgL_sourcez00_1825);
											FAILURE(BgL_auxz00_6087, BFALSE, BFALSE);
										}
									BGL_SU32VECTOR_COPY(BgL_targetz00_2967, BgL_tstartz00_2968,
										BgL_sourcez00_2969, 0L, BgL_sendz00_1829);
									return BUNSPEC;
								}
							}
						}
						break;
					case 4L:

						{	/* Llib/srfi4.scm 838 */
							obj_t BgL_sstartz00_1830;

							BgL_sstartz00_1830 = VECTOR_REF(BgL_opt1294z00_186, 3L);
							{	/* Llib/srfi4.scm 838 */
								long BgL_sendz00_1831;

								{	/* Llib/srfi4.scm 838 */
									obj_t BgL_xz00_2970;

									if (BGL_S32VECTORP(BgL_sourcez00_1825))
										{	/* Llib/srfi4.scm 838 */
											BgL_xz00_2970 = BgL_sourcez00_1825;
										}
									else
										{
											obj_t BgL_auxz00_6095;

											BgL_auxz00_6095 =
												BGl_typezd2errorzd2zz__errorz00
												(BGl_string2365z00zz__srfi4z00, BINT(33208L),
												BGl_string2455z00zz__srfi4z00,
												BGl_string2375z00zz__srfi4z00, BgL_sourcez00_1825);
											FAILURE(BgL_auxz00_6095, BFALSE, BFALSE);
										}
									BgL_sendz00_1831 = BGL_HVECTOR_LENGTH(BgL_xz00_2970);
								}
								{	/* Llib/srfi4.scm 838 */

									{	/* Llib/srfi4.scm 838 */
										obj_t BgL_targetz00_2971;
										long BgL_tstartz00_2972;
										obj_t BgL_sourcez00_2973;

										if (BGL_S32VECTORP(BgL_targetz00_1823))
											{	/* Llib/srfi4.scm 838 */
												BgL_targetz00_2971 = BgL_targetz00_1823;
											}
										else
											{
												obj_t BgL_auxz00_6102;

												BgL_auxz00_6102 =
													BGl_typezd2errorzd2zz__errorz00
													(BGl_string2365z00zz__srfi4z00, BINT(33208L),
													BGl_string2455z00zz__srfi4z00,
													BGl_string2375z00zz__srfi4z00, BgL_targetz00_1823);
												FAILURE(BgL_auxz00_6102, BFALSE, BFALSE);
											}
										{	/* Llib/srfi4.scm 838 */
											obj_t BgL_tmpz00_6106;

											if (INTEGERP(BgL_tstartz00_1824))
												{	/* Llib/srfi4.scm 838 */
													BgL_tmpz00_6106 = BgL_tstartz00_1824;
												}
											else
												{
													obj_t BgL_auxz00_6109;

													BgL_auxz00_6109 =
														BGl_typezd2errorzd2zz__errorz00
														(BGl_string2365z00zz__srfi4z00, BINT(33208L),
														BGl_string2455z00zz__srfi4z00,
														BGl_string2387z00zz__srfi4z00, BgL_tstartz00_1824);
													FAILURE(BgL_auxz00_6109, BFALSE, BFALSE);
												}
											BgL_tstartz00_2972 = (long) CINT(BgL_tmpz00_6106);
										}
										if (BGL_S32VECTORP(BgL_sourcez00_1825))
											{	/* Llib/srfi4.scm 838 */
												BgL_sourcez00_2973 = BgL_sourcez00_1825;
											}
										else
											{
												obj_t BgL_auxz00_6116;

												BgL_auxz00_6116 =
													BGl_typezd2errorzd2zz__errorz00
													(BGl_string2365z00zz__srfi4z00, BINT(33208L),
													BGl_string2455z00zz__srfi4z00,
													BGl_string2375z00zz__srfi4z00, BgL_sourcez00_1825);
												FAILURE(BgL_auxz00_6116, BFALSE, BFALSE);
											}
										{	/* Llib/srfi4.scm 838 */
											long BgL_tmpz00_6120;

											{	/* Llib/srfi4.scm 838 */
												obj_t BgL_tmpz00_6121;

												if (INTEGERP(BgL_sstartz00_1830))
													{	/* Llib/srfi4.scm 838 */
														BgL_tmpz00_6121 = BgL_sstartz00_1830;
													}
												else
													{
														obj_t BgL_auxz00_6124;

														BgL_auxz00_6124 =
															BGl_typezd2errorzd2zz__errorz00
															(BGl_string2365z00zz__srfi4z00, BINT(33208L),
															BGl_string2455z00zz__srfi4z00,
															BGl_string2387z00zz__srfi4z00,
															BgL_sstartz00_1830);
														FAILURE(BgL_auxz00_6124, BFALSE, BFALSE);
													}
												BgL_tmpz00_6120 = (long) CINT(BgL_tmpz00_6121);
											}
											BGL_SU32VECTOR_COPY(BgL_targetz00_2971,
												BgL_tstartz00_2972, BgL_sourcez00_2973, BgL_tmpz00_6120,
												BgL_sendz00_1831);
										}
										return BUNSPEC;
									}
								}
							}
						}
						break;
					case 5L:

						{	/* Llib/srfi4.scm 838 */
							obj_t BgL_sstartz00_1832;

							BgL_sstartz00_1832 = VECTOR_REF(BgL_opt1294z00_186, 3L);
							{	/* Llib/srfi4.scm 838 */
								obj_t BgL_sendz00_1833;

								BgL_sendz00_1833 = VECTOR_REF(BgL_opt1294z00_186, 4L);
								{	/* Llib/srfi4.scm 838 */

									{	/* Llib/srfi4.scm 838 */
										obj_t BgL_targetz00_2974;
										long BgL_tstartz00_2975;
										obj_t BgL_sourcez00_2976;

										if (BGL_S32VECTORP(BgL_targetz00_1823))
											{	/* Llib/srfi4.scm 838 */
												BgL_targetz00_2974 = BgL_targetz00_1823;
											}
										else
											{
												obj_t BgL_auxz00_6134;

												BgL_auxz00_6134 =
													BGl_typezd2errorzd2zz__errorz00
													(BGl_string2365z00zz__srfi4z00, BINT(33208L),
													BGl_string2455z00zz__srfi4z00,
													BGl_string2375z00zz__srfi4z00, BgL_targetz00_1823);
												FAILURE(BgL_auxz00_6134, BFALSE, BFALSE);
											}
										{	/* Llib/srfi4.scm 838 */
											obj_t BgL_tmpz00_6138;

											if (INTEGERP(BgL_tstartz00_1824))
												{	/* Llib/srfi4.scm 838 */
													BgL_tmpz00_6138 = BgL_tstartz00_1824;
												}
											else
												{
													obj_t BgL_auxz00_6141;

													BgL_auxz00_6141 =
														BGl_typezd2errorzd2zz__errorz00
														(BGl_string2365z00zz__srfi4z00, BINT(33208L),
														BGl_string2455z00zz__srfi4z00,
														BGl_string2387z00zz__srfi4z00, BgL_tstartz00_1824);
													FAILURE(BgL_auxz00_6141, BFALSE, BFALSE);
												}
											BgL_tstartz00_2975 = (long) CINT(BgL_tmpz00_6138);
										}
										if (BGL_S32VECTORP(BgL_sourcez00_1825))
											{	/* Llib/srfi4.scm 838 */
												BgL_sourcez00_2976 = BgL_sourcez00_1825;
											}
										else
											{
												obj_t BgL_auxz00_6148;

												BgL_auxz00_6148 =
													BGl_typezd2errorzd2zz__errorz00
													(BGl_string2365z00zz__srfi4z00, BINT(33208L),
													BGl_string2455z00zz__srfi4z00,
													BGl_string2375z00zz__srfi4z00, BgL_sourcez00_1825);
												FAILURE(BgL_auxz00_6148, BFALSE, BFALSE);
											}
										{	/* Llib/srfi4.scm 838 */
											long BgL_auxz00_6161;
											long BgL_tmpz00_6152;

											{	/* Llib/srfi4.scm 838 */
												obj_t BgL_tmpz00_6162;

												if (INTEGERP(BgL_sendz00_1833))
													{	/* Llib/srfi4.scm 838 */
														BgL_tmpz00_6162 = BgL_sendz00_1833;
													}
												else
													{
														obj_t BgL_auxz00_6165;

														BgL_auxz00_6165 =
															BGl_typezd2errorzd2zz__errorz00
															(BGl_string2365z00zz__srfi4z00, BINT(33208L),
															BGl_string2455z00zz__srfi4z00,
															BGl_string2387z00zz__srfi4z00, BgL_sendz00_1833);
														FAILURE(BgL_auxz00_6165, BFALSE, BFALSE);
													}
												BgL_auxz00_6161 = (long) CINT(BgL_tmpz00_6162);
											}
											{	/* Llib/srfi4.scm 838 */
												obj_t BgL_tmpz00_6153;

												if (INTEGERP(BgL_sstartz00_1832))
													{	/* Llib/srfi4.scm 838 */
														BgL_tmpz00_6153 = BgL_sstartz00_1832;
													}
												else
													{
														obj_t BgL_auxz00_6156;

														BgL_auxz00_6156 =
															BGl_typezd2errorzd2zz__errorz00
															(BGl_string2365z00zz__srfi4z00, BINT(33208L),
															BGl_string2455z00zz__srfi4z00,
															BGl_string2387z00zz__srfi4z00,
															BgL_sstartz00_1832);
														FAILURE(BgL_auxz00_6156, BFALSE, BFALSE);
													}
												BgL_tmpz00_6152 = (long) CINT(BgL_tmpz00_6153);
											}
											BGL_SU32VECTOR_COPY(BgL_targetz00_2974,
												BgL_tstartz00_2975, BgL_sourcez00_2976, BgL_tmpz00_6152,
												BgL_auxz00_6161);
										}
										return BUNSPEC;
									}
								}
							}
						}
						break;
					default:
						return BUNSPEC;
					}
			}
		}

	}



/* s32vector-copy! */
	BGL_EXPORTED_DEF obj_t BGl_s32vectorzd2copyz12zc0zz__srfi4z00(obj_t
		BgL_targetz00_181, long BgL_tstartz00_182, obj_t BgL_sourcez00_183,
		obj_t BgL_sstartz00_184, obj_t BgL_sendz00_185)
	{
		{	/* Llib/srfi4.scm 838 */
			{	/* Llib/srfi4.scm 838 */
				long BgL_auxz00_6175;
				long BgL_tmpz00_6173;

				BgL_auxz00_6175 = (long) CINT(BgL_sendz00_185);
				BgL_tmpz00_6173 = (long) CINT(BgL_sstartz00_184);
				BGL_SU32VECTOR_COPY(BgL_targetz00_181, BgL_tstartz00_182,
					BgL_sourcez00_183, BgL_tmpz00_6173, BgL_auxz00_6175);
			}
			return BUNSPEC;
		}

	}



/* _u32vector-copy! */
	obj_t BGl__u32vectorzd2copyz12zc0zz__srfi4z00(obj_t BgL_env1299z00_194,
		obj_t BgL_opt1298z00_193)
	{
		{	/* Llib/srfi4.scm 838 */
			{	/* Llib/srfi4.scm 838 */
				obj_t BgL_targetz00_1834;
				obj_t BgL_tstartz00_1835;
				obj_t BgL_sourcez00_1836;

				BgL_targetz00_1834 = VECTOR_REF(BgL_opt1298z00_193, 0L);
				BgL_tstartz00_1835 = VECTOR_REF(BgL_opt1298z00_193, 1L);
				BgL_sourcez00_1836 = VECTOR_REF(BgL_opt1298z00_193, 2L);
				switch (VECTOR_LENGTH(BgL_opt1298z00_193))
					{
					case 3L:

						{	/* Llib/srfi4.scm 838 */
							long BgL_sendz00_1840;

							{	/* Llib/srfi4.scm 838 */
								obj_t BgL_xz00_2977;

								if (BGL_U32VECTORP(BgL_sourcez00_1836))
									{	/* Llib/srfi4.scm 838 */
										BgL_xz00_2977 = BgL_sourcez00_1836;
									}
								else
									{
										obj_t BgL_auxz00_6183;

										BgL_auxz00_6183 =
											BGl_typezd2errorzd2zz__errorz00
											(BGl_string2365z00zz__srfi4z00, BINT(33208L),
											BGl_string2456z00zz__srfi4z00,
											BGl_string2377z00zz__srfi4z00, BgL_sourcez00_1836);
										FAILURE(BgL_auxz00_6183, BFALSE, BFALSE);
									}
								BgL_sendz00_1840 = BGL_HVECTOR_LENGTH(BgL_xz00_2977);
							}
							{	/* Llib/srfi4.scm 838 */

								{	/* Llib/srfi4.scm 838 */
									obj_t BgL_targetz00_2978;
									long BgL_tstartz00_2979;
									obj_t BgL_sourcez00_2980;

									if (BGL_U32VECTORP(BgL_targetz00_1834))
										{	/* Llib/srfi4.scm 838 */
											BgL_targetz00_2978 = BgL_targetz00_1834;
										}
									else
										{
											obj_t BgL_auxz00_6190;

											BgL_auxz00_6190 =
												BGl_typezd2errorzd2zz__errorz00
												(BGl_string2365z00zz__srfi4z00, BINT(33208L),
												BGl_string2456z00zz__srfi4z00,
												BGl_string2377z00zz__srfi4z00, BgL_targetz00_1834);
											FAILURE(BgL_auxz00_6190, BFALSE, BFALSE);
										}
									{	/* Llib/srfi4.scm 838 */
										obj_t BgL_tmpz00_6194;

										if (INTEGERP(BgL_tstartz00_1835))
											{	/* Llib/srfi4.scm 838 */
												BgL_tmpz00_6194 = BgL_tstartz00_1835;
											}
										else
											{
												obj_t BgL_auxz00_6197;

												BgL_auxz00_6197 =
													BGl_typezd2errorzd2zz__errorz00
													(BGl_string2365z00zz__srfi4z00, BINT(33208L),
													BGl_string2456z00zz__srfi4z00,
													BGl_string2387z00zz__srfi4z00, BgL_tstartz00_1835);
												FAILURE(BgL_auxz00_6197, BFALSE, BFALSE);
											}
										BgL_tstartz00_2979 = (long) CINT(BgL_tmpz00_6194);
									}
									if (BGL_U32VECTORP(BgL_sourcez00_1836))
										{	/* Llib/srfi4.scm 838 */
											BgL_sourcez00_2980 = BgL_sourcez00_1836;
										}
									else
										{
											obj_t BgL_auxz00_6204;

											BgL_auxz00_6204 =
												BGl_typezd2errorzd2zz__errorz00
												(BGl_string2365z00zz__srfi4z00, BINT(33208L),
												BGl_string2456z00zz__srfi4z00,
												BGl_string2377z00zz__srfi4z00, BgL_sourcez00_1836);
											FAILURE(BgL_auxz00_6204, BFALSE, BFALSE);
										}
									BGL_SU32VECTOR_COPY(BgL_targetz00_2978, BgL_tstartz00_2979,
										BgL_sourcez00_2980, 0L, BgL_sendz00_1840);
									return BUNSPEC;
								}
							}
						}
						break;
					case 4L:

						{	/* Llib/srfi4.scm 838 */
							obj_t BgL_sstartz00_1841;

							BgL_sstartz00_1841 = VECTOR_REF(BgL_opt1298z00_193, 3L);
							{	/* Llib/srfi4.scm 838 */
								long BgL_sendz00_1842;

								{	/* Llib/srfi4.scm 838 */
									obj_t BgL_xz00_2981;

									if (BGL_U32VECTORP(BgL_sourcez00_1836))
										{	/* Llib/srfi4.scm 838 */
											BgL_xz00_2981 = BgL_sourcez00_1836;
										}
									else
										{
											obj_t BgL_auxz00_6212;

											BgL_auxz00_6212 =
												BGl_typezd2errorzd2zz__errorz00
												(BGl_string2365z00zz__srfi4z00, BINT(33208L),
												BGl_string2456z00zz__srfi4z00,
												BGl_string2377z00zz__srfi4z00, BgL_sourcez00_1836);
											FAILURE(BgL_auxz00_6212, BFALSE, BFALSE);
										}
									BgL_sendz00_1842 = BGL_HVECTOR_LENGTH(BgL_xz00_2981);
								}
								{	/* Llib/srfi4.scm 838 */

									{	/* Llib/srfi4.scm 838 */
										obj_t BgL_targetz00_2982;
										long BgL_tstartz00_2983;
										obj_t BgL_sourcez00_2984;

										if (BGL_U32VECTORP(BgL_targetz00_1834))
											{	/* Llib/srfi4.scm 838 */
												BgL_targetz00_2982 = BgL_targetz00_1834;
											}
										else
											{
												obj_t BgL_auxz00_6219;

												BgL_auxz00_6219 =
													BGl_typezd2errorzd2zz__errorz00
													(BGl_string2365z00zz__srfi4z00, BINT(33208L),
													BGl_string2456z00zz__srfi4z00,
													BGl_string2377z00zz__srfi4z00, BgL_targetz00_1834);
												FAILURE(BgL_auxz00_6219, BFALSE, BFALSE);
											}
										{	/* Llib/srfi4.scm 838 */
											obj_t BgL_tmpz00_6223;

											if (INTEGERP(BgL_tstartz00_1835))
												{	/* Llib/srfi4.scm 838 */
													BgL_tmpz00_6223 = BgL_tstartz00_1835;
												}
											else
												{
													obj_t BgL_auxz00_6226;

													BgL_auxz00_6226 =
														BGl_typezd2errorzd2zz__errorz00
														(BGl_string2365z00zz__srfi4z00, BINT(33208L),
														BGl_string2456z00zz__srfi4z00,
														BGl_string2387z00zz__srfi4z00, BgL_tstartz00_1835);
													FAILURE(BgL_auxz00_6226, BFALSE, BFALSE);
												}
											BgL_tstartz00_2983 = (long) CINT(BgL_tmpz00_6223);
										}
										if (BGL_U32VECTORP(BgL_sourcez00_1836))
											{	/* Llib/srfi4.scm 838 */
												BgL_sourcez00_2984 = BgL_sourcez00_1836;
											}
										else
											{
												obj_t BgL_auxz00_6233;

												BgL_auxz00_6233 =
													BGl_typezd2errorzd2zz__errorz00
													(BGl_string2365z00zz__srfi4z00, BINT(33208L),
													BGl_string2456z00zz__srfi4z00,
													BGl_string2377z00zz__srfi4z00, BgL_sourcez00_1836);
												FAILURE(BgL_auxz00_6233, BFALSE, BFALSE);
											}
										{	/* Llib/srfi4.scm 838 */
											long BgL_tmpz00_6237;

											{	/* Llib/srfi4.scm 838 */
												obj_t BgL_tmpz00_6238;

												if (INTEGERP(BgL_sstartz00_1841))
													{	/* Llib/srfi4.scm 838 */
														BgL_tmpz00_6238 = BgL_sstartz00_1841;
													}
												else
													{
														obj_t BgL_auxz00_6241;

														BgL_auxz00_6241 =
															BGl_typezd2errorzd2zz__errorz00
															(BGl_string2365z00zz__srfi4z00, BINT(33208L),
															BGl_string2456z00zz__srfi4z00,
															BGl_string2387z00zz__srfi4z00,
															BgL_sstartz00_1841);
														FAILURE(BgL_auxz00_6241, BFALSE, BFALSE);
													}
												BgL_tmpz00_6237 = (long) CINT(BgL_tmpz00_6238);
											}
											BGL_SU32VECTOR_COPY(BgL_targetz00_2982,
												BgL_tstartz00_2983, BgL_sourcez00_2984, BgL_tmpz00_6237,
												BgL_sendz00_1842);
										}
										return BUNSPEC;
									}
								}
							}
						}
						break;
					case 5L:

						{	/* Llib/srfi4.scm 838 */
							obj_t BgL_sstartz00_1843;

							BgL_sstartz00_1843 = VECTOR_REF(BgL_opt1298z00_193, 3L);
							{	/* Llib/srfi4.scm 838 */
								obj_t BgL_sendz00_1844;

								BgL_sendz00_1844 = VECTOR_REF(BgL_opt1298z00_193, 4L);
								{	/* Llib/srfi4.scm 838 */

									{	/* Llib/srfi4.scm 838 */
										obj_t BgL_targetz00_2985;
										long BgL_tstartz00_2986;
										obj_t BgL_sourcez00_2987;

										if (BGL_U32VECTORP(BgL_targetz00_1834))
											{	/* Llib/srfi4.scm 838 */
												BgL_targetz00_2985 = BgL_targetz00_1834;
											}
										else
											{
												obj_t BgL_auxz00_6251;

												BgL_auxz00_6251 =
													BGl_typezd2errorzd2zz__errorz00
													(BGl_string2365z00zz__srfi4z00, BINT(33208L),
													BGl_string2456z00zz__srfi4z00,
													BGl_string2377z00zz__srfi4z00, BgL_targetz00_1834);
												FAILURE(BgL_auxz00_6251, BFALSE, BFALSE);
											}
										{	/* Llib/srfi4.scm 838 */
											obj_t BgL_tmpz00_6255;

											if (INTEGERP(BgL_tstartz00_1835))
												{	/* Llib/srfi4.scm 838 */
													BgL_tmpz00_6255 = BgL_tstartz00_1835;
												}
											else
												{
													obj_t BgL_auxz00_6258;

													BgL_auxz00_6258 =
														BGl_typezd2errorzd2zz__errorz00
														(BGl_string2365z00zz__srfi4z00, BINT(33208L),
														BGl_string2456z00zz__srfi4z00,
														BGl_string2387z00zz__srfi4z00, BgL_tstartz00_1835);
													FAILURE(BgL_auxz00_6258, BFALSE, BFALSE);
												}
											BgL_tstartz00_2986 = (long) CINT(BgL_tmpz00_6255);
										}
										if (BGL_U32VECTORP(BgL_sourcez00_1836))
											{	/* Llib/srfi4.scm 838 */
												BgL_sourcez00_2987 = BgL_sourcez00_1836;
											}
										else
											{
												obj_t BgL_auxz00_6265;

												BgL_auxz00_6265 =
													BGl_typezd2errorzd2zz__errorz00
													(BGl_string2365z00zz__srfi4z00, BINT(33208L),
													BGl_string2456z00zz__srfi4z00,
													BGl_string2377z00zz__srfi4z00, BgL_sourcez00_1836);
												FAILURE(BgL_auxz00_6265, BFALSE, BFALSE);
											}
										{	/* Llib/srfi4.scm 838 */
											long BgL_auxz00_6278;
											long BgL_tmpz00_6269;

											{	/* Llib/srfi4.scm 838 */
												obj_t BgL_tmpz00_6279;

												if (INTEGERP(BgL_sendz00_1844))
													{	/* Llib/srfi4.scm 838 */
														BgL_tmpz00_6279 = BgL_sendz00_1844;
													}
												else
													{
														obj_t BgL_auxz00_6282;

														BgL_auxz00_6282 =
															BGl_typezd2errorzd2zz__errorz00
															(BGl_string2365z00zz__srfi4z00, BINT(33208L),
															BGl_string2456z00zz__srfi4z00,
															BGl_string2387z00zz__srfi4z00, BgL_sendz00_1844);
														FAILURE(BgL_auxz00_6282, BFALSE, BFALSE);
													}
												BgL_auxz00_6278 = (long) CINT(BgL_tmpz00_6279);
											}
											{	/* Llib/srfi4.scm 838 */
												obj_t BgL_tmpz00_6270;

												if (INTEGERP(BgL_sstartz00_1843))
													{	/* Llib/srfi4.scm 838 */
														BgL_tmpz00_6270 = BgL_sstartz00_1843;
													}
												else
													{
														obj_t BgL_auxz00_6273;

														BgL_auxz00_6273 =
															BGl_typezd2errorzd2zz__errorz00
															(BGl_string2365z00zz__srfi4z00, BINT(33208L),
															BGl_string2456z00zz__srfi4z00,
															BGl_string2387z00zz__srfi4z00,
															BgL_sstartz00_1843);
														FAILURE(BgL_auxz00_6273, BFALSE, BFALSE);
													}
												BgL_tmpz00_6269 = (long) CINT(BgL_tmpz00_6270);
											}
											BGL_SU32VECTOR_COPY(BgL_targetz00_2985,
												BgL_tstartz00_2986, BgL_sourcez00_2987, BgL_tmpz00_6269,
												BgL_auxz00_6278);
										}
										return BUNSPEC;
									}
								}
							}
						}
						break;
					default:
						return BUNSPEC;
					}
			}
		}

	}



/* u32vector-copy! */
	BGL_EXPORTED_DEF obj_t BGl_u32vectorzd2copyz12zc0zz__srfi4z00(obj_t
		BgL_targetz00_188, long BgL_tstartz00_189, obj_t BgL_sourcez00_190,
		obj_t BgL_sstartz00_191, obj_t BgL_sendz00_192)
	{
		{	/* Llib/srfi4.scm 838 */
			{	/* Llib/srfi4.scm 838 */
				long BgL_auxz00_6292;
				long BgL_tmpz00_6290;

				BgL_auxz00_6292 = (long) CINT(BgL_sendz00_192);
				BgL_tmpz00_6290 = (long) CINT(BgL_sstartz00_191);
				BGL_SU32VECTOR_COPY(BgL_targetz00_188, BgL_tstartz00_189,
					BgL_sourcez00_190, BgL_tmpz00_6290, BgL_auxz00_6292);
			}
			return BUNSPEC;
		}

	}



/* _s64vector-copy! */
	obj_t BGl__s64vectorzd2copyz12zc0zz__srfi4z00(obj_t BgL_env1303z00_201,
		obj_t BgL_opt1302z00_200)
	{
		{	/* Llib/srfi4.scm 838 */
			{	/* Llib/srfi4.scm 838 */
				obj_t BgL_targetz00_1845;
				obj_t BgL_tstartz00_1846;
				obj_t BgL_sourcez00_1847;

				BgL_targetz00_1845 = VECTOR_REF(BgL_opt1302z00_200, 0L);
				BgL_tstartz00_1846 = VECTOR_REF(BgL_opt1302z00_200, 1L);
				BgL_sourcez00_1847 = VECTOR_REF(BgL_opt1302z00_200, 2L);
				switch (VECTOR_LENGTH(BgL_opt1302z00_200))
					{
					case 3L:

						{	/* Llib/srfi4.scm 838 */
							long BgL_sendz00_1851;

							{	/* Llib/srfi4.scm 838 */
								obj_t BgL_xz00_2988;

								if (BGL_S64VECTORP(BgL_sourcez00_1847))
									{	/* Llib/srfi4.scm 838 */
										BgL_xz00_2988 = BgL_sourcez00_1847;
									}
								else
									{
										obj_t BgL_auxz00_6300;

										BgL_auxz00_6300 =
											BGl_typezd2errorzd2zz__errorz00
											(BGl_string2365z00zz__srfi4z00, BINT(33208L),
											BGl_string2457z00zz__srfi4z00,
											BGl_string2379z00zz__srfi4z00, BgL_sourcez00_1847);
										FAILURE(BgL_auxz00_6300, BFALSE, BFALSE);
									}
								BgL_sendz00_1851 = BGL_HVECTOR_LENGTH(BgL_xz00_2988);
							}
							{	/* Llib/srfi4.scm 838 */

								{	/* Llib/srfi4.scm 838 */
									obj_t BgL_targetz00_2989;
									long BgL_tstartz00_2990;
									obj_t BgL_sourcez00_2991;

									if (BGL_S64VECTORP(BgL_targetz00_1845))
										{	/* Llib/srfi4.scm 838 */
											BgL_targetz00_2989 = BgL_targetz00_1845;
										}
									else
										{
											obj_t BgL_auxz00_6307;

											BgL_auxz00_6307 =
												BGl_typezd2errorzd2zz__errorz00
												(BGl_string2365z00zz__srfi4z00, BINT(33208L),
												BGl_string2457z00zz__srfi4z00,
												BGl_string2379z00zz__srfi4z00, BgL_targetz00_1845);
											FAILURE(BgL_auxz00_6307, BFALSE, BFALSE);
										}
									{	/* Llib/srfi4.scm 838 */
										obj_t BgL_tmpz00_6311;

										if (INTEGERP(BgL_tstartz00_1846))
											{	/* Llib/srfi4.scm 838 */
												BgL_tmpz00_6311 = BgL_tstartz00_1846;
											}
										else
											{
												obj_t BgL_auxz00_6314;

												BgL_auxz00_6314 =
													BGl_typezd2errorzd2zz__errorz00
													(BGl_string2365z00zz__srfi4z00, BINT(33208L),
													BGl_string2457z00zz__srfi4z00,
													BGl_string2387z00zz__srfi4z00, BgL_tstartz00_1846);
												FAILURE(BgL_auxz00_6314, BFALSE, BFALSE);
											}
										BgL_tstartz00_2990 = (long) CINT(BgL_tmpz00_6311);
									}
									if (BGL_S64VECTORP(BgL_sourcez00_1847))
										{	/* Llib/srfi4.scm 838 */
											BgL_sourcez00_2991 = BgL_sourcez00_1847;
										}
									else
										{
											obj_t BgL_auxz00_6321;

											BgL_auxz00_6321 =
												BGl_typezd2errorzd2zz__errorz00
												(BGl_string2365z00zz__srfi4z00, BINT(33208L),
												BGl_string2457z00zz__srfi4z00,
												BGl_string2379z00zz__srfi4z00, BgL_sourcez00_1847);
											FAILURE(BgL_auxz00_6321, BFALSE, BFALSE);
										}
									BGL_SU64VECTOR_COPY(BgL_targetz00_2989, BgL_tstartz00_2990,
										BgL_sourcez00_2991, 0L, BgL_sendz00_1851);
									return BUNSPEC;
								}
							}
						}
						break;
					case 4L:

						{	/* Llib/srfi4.scm 838 */
							obj_t BgL_sstartz00_1852;

							BgL_sstartz00_1852 = VECTOR_REF(BgL_opt1302z00_200, 3L);
							{	/* Llib/srfi4.scm 838 */
								long BgL_sendz00_1853;

								{	/* Llib/srfi4.scm 838 */
									obj_t BgL_xz00_2992;

									if (BGL_S64VECTORP(BgL_sourcez00_1847))
										{	/* Llib/srfi4.scm 838 */
											BgL_xz00_2992 = BgL_sourcez00_1847;
										}
									else
										{
											obj_t BgL_auxz00_6329;

											BgL_auxz00_6329 =
												BGl_typezd2errorzd2zz__errorz00
												(BGl_string2365z00zz__srfi4z00, BINT(33208L),
												BGl_string2457z00zz__srfi4z00,
												BGl_string2379z00zz__srfi4z00, BgL_sourcez00_1847);
											FAILURE(BgL_auxz00_6329, BFALSE, BFALSE);
										}
									BgL_sendz00_1853 = BGL_HVECTOR_LENGTH(BgL_xz00_2992);
								}
								{	/* Llib/srfi4.scm 838 */

									{	/* Llib/srfi4.scm 838 */
										obj_t BgL_targetz00_2993;
										long BgL_tstartz00_2994;
										obj_t BgL_sourcez00_2995;

										if (BGL_S64VECTORP(BgL_targetz00_1845))
											{	/* Llib/srfi4.scm 838 */
												BgL_targetz00_2993 = BgL_targetz00_1845;
											}
										else
											{
												obj_t BgL_auxz00_6336;

												BgL_auxz00_6336 =
													BGl_typezd2errorzd2zz__errorz00
													(BGl_string2365z00zz__srfi4z00, BINT(33208L),
													BGl_string2457z00zz__srfi4z00,
													BGl_string2379z00zz__srfi4z00, BgL_targetz00_1845);
												FAILURE(BgL_auxz00_6336, BFALSE, BFALSE);
											}
										{	/* Llib/srfi4.scm 838 */
											obj_t BgL_tmpz00_6340;

											if (INTEGERP(BgL_tstartz00_1846))
												{	/* Llib/srfi4.scm 838 */
													BgL_tmpz00_6340 = BgL_tstartz00_1846;
												}
											else
												{
													obj_t BgL_auxz00_6343;

													BgL_auxz00_6343 =
														BGl_typezd2errorzd2zz__errorz00
														(BGl_string2365z00zz__srfi4z00, BINT(33208L),
														BGl_string2457z00zz__srfi4z00,
														BGl_string2387z00zz__srfi4z00, BgL_tstartz00_1846);
													FAILURE(BgL_auxz00_6343, BFALSE, BFALSE);
												}
											BgL_tstartz00_2994 = (long) CINT(BgL_tmpz00_6340);
										}
										if (BGL_S64VECTORP(BgL_sourcez00_1847))
											{	/* Llib/srfi4.scm 838 */
												BgL_sourcez00_2995 = BgL_sourcez00_1847;
											}
										else
											{
												obj_t BgL_auxz00_6350;

												BgL_auxz00_6350 =
													BGl_typezd2errorzd2zz__errorz00
													(BGl_string2365z00zz__srfi4z00, BINT(33208L),
													BGl_string2457z00zz__srfi4z00,
													BGl_string2379z00zz__srfi4z00, BgL_sourcez00_1847);
												FAILURE(BgL_auxz00_6350, BFALSE, BFALSE);
											}
										{	/* Llib/srfi4.scm 838 */
											long BgL_tmpz00_6354;

											{	/* Llib/srfi4.scm 838 */
												obj_t BgL_tmpz00_6355;

												if (INTEGERP(BgL_sstartz00_1852))
													{	/* Llib/srfi4.scm 838 */
														BgL_tmpz00_6355 = BgL_sstartz00_1852;
													}
												else
													{
														obj_t BgL_auxz00_6358;

														BgL_auxz00_6358 =
															BGl_typezd2errorzd2zz__errorz00
															(BGl_string2365z00zz__srfi4z00, BINT(33208L),
															BGl_string2457z00zz__srfi4z00,
															BGl_string2387z00zz__srfi4z00,
															BgL_sstartz00_1852);
														FAILURE(BgL_auxz00_6358, BFALSE, BFALSE);
													}
												BgL_tmpz00_6354 = (long) CINT(BgL_tmpz00_6355);
											}
											BGL_SU64VECTOR_COPY(BgL_targetz00_2993,
												BgL_tstartz00_2994, BgL_sourcez00_2995, BgL_tmpz00_6354,
												BgL_sendz00_1853);
										}
										return BUNSPEC;
									}
								}
							}
						}
						break;
					case 5L:

						{	/* Llib/srfi4.scm 838 */
							obj_t BgL_sstartz00_1854;

							BgL_sstartz00_1854 = VECTOR_REF(BgL_opt1302z00_200, 3L);
							{	/* Llib/srfi4.scm 838 */
								obj_t BgL_sendz00_1855;

								BgL_sendz00_1855 = VECTOR_REF(BgL_opt1302z00_200, 4L);
								{	/* Llib/srfi4.scm 838 */

									{	/* Llib/srfi4.scm 838 */
										obj_t BgL_targetz00_2996;
										long BgL_tstartz00_2997;
										obj_t BgL_sourcez00_2998;

										if (BGL_S64VECTORP(BgL_targetz00_1845))
											{	/* Llib/srfi4.scm 838 */
												BgL_targetz00_2996 = BgL_targetz00_1845;
											}
										else
											{
												obj_t BgL_auxz00_6368;

												BgL_auxz00_6368 =
													BGl_typezd2errorzd2zz__errorz00
													(BGl_string2365z00zz__srfi4z00, BINT(33208L),
													BGl_string2457z00zz__srfi4z00,
													BGl_string2379z00zz__srfi4z00, BgL_targetz00_1845);
												FAILURE(BgL_auxz00_6368, BFALSE, BFALSE);
											}
										{	/* Llib/srfi4.scm 838 */
											obj_t BgL_tmpz00_6372;

											if (INTEGERP(BgL_tstartz00_1846))
												{	/* Llib/srfi4.scm 838 */
													BgL_tmpz00_6372 = BgL_tstartz00_1846;
												}
											else
												{
													obj_t BgL_auxz00_6375;

													BgL_auxz00_6375 =
														BGl_typezd2errorzd2zz__errorz00
														(BGl_string2365z00zz__srfi4z00, BINT(33208L),
														BGl_string2457z00zz__srfi4z00,
														BGl_string2387z00zz__srfi4z00, BgL_tstartz00_1846);
													FAILURE(BgL_auxz00_6375, BFALSE, BFALSE);
												}
											BgL_tstartz00_2997 = (long) CINT(BgL_tmpz00_6372);
										}
										if (BGL_S64VECTORP(BgL_sourcez00_1847))
											{	/* Llib/srfi4.scm 838 */
												BgL_sourcez00_2998 = BgL_sourcez00_1847;
											}
										else
											{
												obj_t BgL_auxz00_6382;

												BgL_auxz00_6382 =
													BGl_typezd2errorzd2zz__errorz00
													(BGl_string2365z00zz__srfi4z00, BINT(33208L),
													BGl_string2457z00zz__srfi4z00,
													BGl_string2379z00zz__srfi4z00, BgL_sourcez00_1847);
												FAILURE(BgL_auxz00_6382, BFALSE, BFALSE);
											}
										{	/* Llib/srfi4.scm 838 */
											long BgL_auxz00_6395;
											long BgL_tmpz00_6386;

											{	/* Llib/srfi4.scm 838 */
												obj_t BgL_tmpz00_6396;

												if (INTEGERP(BgL_sendz00_1855))
													{	/* Llib/srfi4.scm 838 */
														BgL_tmpz00_6396 = BgL_sendz00_1855;
													}
												else
													{
														obj_t BgL_auxz00_6399;

														BgL_auxz00_6399 =
															BGl_typezd2errorzd2zz__errorz00
															(BGl_string2365z00zz__srfi4z00, BINT(33208L),
															BGl_string2457z00zz__srfi4z00,
															BGl_string2387z00zz__srfi4z00, BgL_sendz00_1855);
														FAILURE(BgL_auxz00_6399, BFALSE, BFALSE);
													}
												BgL_auxz00_6395 = (long) CINT(BgL_tmpz00_6396);
											}
											{	/* Llib/srfi4.scm 838 */
												obj_t BgL_tmpz00_6387;

												if (INTEGERP(BgL_sstartz00_1854))
													{	/* Llib/srfi4.scm 838 */
														BgL_tmpz00_6387 = BgL_sstartz00_1854;
													}
												else
													{
														obj_t BgL_auxz00_6390;

														BgL_auxz00_6390 =
															BGl_typezd2errorzd2zz__errorz00
															(BGl_string2365z00zz__srfi4z00, BINT(33208L),
															BGl_string2457z00zz__srfi4z00,
															BGl_string2387z00zz__srfi4z00,
															BgL_sstartz00_1854);
														FAILURE(BgL_auxz00_6390, BFALSE, BFALSE);
													}
												BgL_tmpz00_6386 = (long) CINT(BgL_tmpz00_6387);
											}
											BGL_SU64VECTOR_COPY(BgL_targetz00_2996,
												BgL_tstartz00_2997, BgL_sourcez00_2998, BgL_tmpz00_6386,
												BgL_auxz00_6395);
										}
										return BUNSPEC;
									}
								}
							}
						}
						break;
					default:
						return BUNSPEC;
					}
			}
		}

	}



/* s64vector-copy! */
	BGL_EXPORTED_DEF obj_t BGl_s64vectorzd2copyz12zc0zz__srfi4z00(obj_t
		BgL_targetz00_195, long BgL_tstartz00_196, obj_t BgL_sourcez00_197,
		obj_t BgL_sstartz00_198, obj_t BgL_sendz00_199)
	{
		{	/* Llib/srfi4.scm 838 */
			{	/* Llib/srfi4.scm 838 */
				long BgL_auxz00_6409;
				long BgL_tmpz00_6407;

				BgL_auxz00_6409 = (long) CINT(BgL_sendz00_199);
				BgL_tmpz00_6407 = (long) CINT(BgL_sstartz00_198);
				BGL_SU64VECTOR_COPY(BgL_targetz00_195, BgL_tstartz00_196,
					BgL_sourcez00_197, BgL_tmpz00_6407, BgL_auxz00_6409);
			}
			return BUNSPEC;
		}

	}



/* _u64vector-copy! */
	obj_t BGl__u64vectorzd2copyz12zc0zz__srfi4z00(obj_t BgL_env1307z00_208,
		obj_t BgL_opt1306z00_207)
	{
		{	/* Llib/srfi4.scm 838 */
			{	/* Llib/srfi4.scm 838 */
				obj_t BgL_targetz00_1856;
				obj_t BgL_tstartz00_1857;
				obj_t BgL_sourcez00_1858;

				BgL_targetz00_1856 = VECTOR_REF(BgL_opt1306z00_207, 0L);
				BgL_tstartz00_1857 = VECTOR_REF(BgL_opt1306z00_207, 1L);
				BgL_sourcez00_1858 = VECTOR_REF(BgL_opt1306z00_207, 2L);
				switch (VECTOR_LENGTH(BgL_opt1306z00_207))
					{
					case 3L:

						{	/* Llib/srfi4.scm 838 */
							long BgL_sendz00_1862;

							{	/* Llib/srfi4.scm 838 */
								obj_t BgL_xz00_2999;

								if (BGL_U64VECTORP(BgL_sourcez00_1858))
									{	/* Llib/srfi4.scm 838 */
										BgL_xz00_2999 = BgL_sourcez00_1858;
									}
								else
									{
										obj_t BgL_auxz00_6417;

										BgL_auxz00_6417 =
											BGl_typezd2errorzd2zz__errorz00
											(BGl_string2365z00zz__srfi4z00, BINT(33208L),
											BGl_string2458z00zz__srfi4z00,
											BGl_string2381z00zz__srfi4z00, BgL_sourcez00_1858);
										FAILURE(BgL_auxz00_6417, BFALSE, BFALSE);
									}
								BgL_sendz00_1862 = BGL_HVECTOR_LENGTH(BgL_xz00_2999);
							}
							{	/* Llib/srfi4.scm 838 */

								{	/* Llib/srfi4.scm 838 */
									obj_t BgL_targetz00_3000;
									long BgL_tstartz00_3001;
									obj_t BgL_sourcez00_3002;

									if (BGL_U64VECTORP(BgL_targetz00_1856))
										{	/* Llib/srfi4.scm 838 */
											BgL_targetz00_3000 = BgL_targetz00_1856;
										}
									else
										{
											obj_t BgL_auxz00_6424;

											BgL_auxz00_6424 =
												BGl_typezd2errorzd2zz__errorz00
												(BGl_string2365z00zz__srfi4z00, BINT(33208L),
												BGl_string2458z00zz__srfi4z00,
												BGl_string2381z00zz__srfi4z00, BgL_targetz00_1856);
											FAILURE(BgL_auxz00_6424, BFALSE, BFALSE);
										}
									{	/* Llib/srfi4.scm 838 */
										obj_t BgL_tmpz00_6428;

										if (INTEGERP(BgL_tstartz00_1857))
											{	/* Llib/srfi4.scm 838 */
												BgL_tmpz00_6428 = BgL_tstartz00_1857;
											}
										else
											{
												obj_t BgL_auxz00_6431;

												BgL_auxz00_6431 =
													BGl_typezd2errorzd2zz__errorz00
													(BGl_string2365z00zz__srfi4z00, BINT(33208L),
													BGl_string2458z00zz__srfi4z00,
													BGl_string2387z00zz__srfi4z00, BgL_tstartz00_1857);
												FAILURE(BgL_auxz00_6431, BFALSE, BFALSE);
											}
										BgL_tstartz00_3001 = (long) CINT(BgL_tmpz00_6428);
									}
									if (BGL_U64VECTORP(BgL_sourcez00_1858))
										{	/* Llib/srfi4.scm 838 */
											BgL_sourcez00_3002 = BgL_sourcez00_1858;
										}
									else
										{
											obj_t BgL_auxz00_6438;

											BgL_auxz00_6438 =
												BGl_typezd2errorzd2zz__errorz00
												(BGl_string2365z00zz__srfi4z00, BINT(33208L),
												BGl_string2458z00zz__srfi4z00,
												BGl_string2381z00zz__srfi4z00, BgL_sourcez00_1858);
											FAILURE(BgL_auxz00_6438, BFALSE, BFALSE);
										}
									BGL_SU64VECTOR_COPY(BgL_targetz00_3000, BgL_tstartz00_3001,
										BgL_sourcez00_3002, 0L, BgL_sendz00_1862);
									return BUNSPEC;
								}
							}
						}
						break;
					case 4L:

						{	/* Llib/srfi4.scm 838 */
							obj_t BgL_sstartz00_1863;

							BgL_sstartz00_1863 = VECTOR_REF(BgL_opt1306z00_207, 3L);
							{	/* Llib/srfi4.scm 838 */
								long BgL_sendz00_1864;

								{	/* Llib/srfi4.scm 838 */
									obj_t BgL_xz00_3003;

									if (BGL_U64VECTORP(BgL_sourcez00_1858))
										{	/* Llib/srfi4.scm 838 */
											BgL_xz00_3003 = BgL_sourcez00_1858;
										}
									else
										{
											obj_t BgL_auxz00_6446;

											BgL_auxz00_6446 =
												BGl_typezd2errorzd2zz__errorz00
												(BGl_string2365z00zz__srfi4z00, BINT(33208L),
												BGl_string2458z00zz__srfi4z00,
												BGl_string2381z00zz__srfi4z00, BgL_sourcez00_1858);
											FAILURE(BgL_auxz00_6446, BFALSE, BFALSE);
										}
									BgL_sendz00_1864 = BGL_HVECTOR_LENGTH(BgL_xz00_3003);
								}
								{	/* Llib/srfi4.scm 838 */

									{	/* Llib/srfi4.scm 838 */
										obj_t BgL_targetz00_3004;
										long BgL_tstartz00_3005;
										obj_t BgL_sourcez00_3006;

										if (BGL_U64VECTORP(BgL_targetz00_1856))
											{	/* Llib/srfi4.scm 838 */
												BgL_targetz00_3004 = BgL_targetz00_1856;
											}
										else
											{
												obj_t BgL_auxz00_6453;

												BgL_auxz00_6453 =
													BGl_typezd2errorzd2zz__errorz00
													(BGl_string2365z00zz__srfi4z00, BINT(33208L),
													BGl_string2458z00zz__srfi4z00,
													BGl_string2381z00zz__srfi4z00, BgL_targetz00_1856);
												FAILURE(BgL_auxz00_6453, BFALSE, BFALSE);
											}
										{	/* Llib/srfi4.scm 838 */
											obj_t BgL_tmpz00_6457;

											if (INTEGERP(BgL_tstartz00_1857))
												{	/* Llib/srfi4.scm 838 */
													BgL_tmpz00_6457 = BgL_tstartz00_1857;
												}
											else
												{
													obj_t BgL_auxz00_6460;

													BgL_auxz00_6460 =
														BGl_typezd2errorzd2zz__errorz00
														(BGl_string2365z00zz__srfi4z00, BINT(33208L),
														BGl_string2458z00zz__srfi4z00,
														BGl_string2387z00zz__srfi4z00, BgL_tstartz00_1857);
													FAILURE(BgL_auxz00_6460, BFALSE, BFALSE);
												}
											BgL_tstartz00_3005 = (long) CINT(BgL_tmpz00_6457);
										}
										if (BGL_U64VECTORP(BgL_sourcez00_1858))
											{	/* Llib/srfi4.scm 838 */
												BgL_sourcez00_3006 = BgL_sourcez00_1858;
											}
										else
											{
												obj_t BgL_auxz00_6467;

												BgL_auxz00_6467 =
													BGl_typezd2errorzd2zz__errorz00
													(BGl_string2365z00zz__srfi4z00, BINT(33208L),
													BGl_string2458z00zz__srfi4z00,
													BGl_string2381z00zz__srfi4z00, BgL_sourcez00_1858);
												FAILURE(BgL_auxz00_6467, BFALSE, BFALSE);
											}
										{	/* Llib/srfi4.scm 838 */
											long BgL_tmpz00_6471;

											{	/* Llib/srfi4.scm 838 */
												obj_t BgL_tmpz00_6472;

												if (INTEGERP(BgL_sstartz00_1863))
													{	/* Llib/srfi4.scm 838 */
														BgL_tmpz00_6472 = BgL_sstartz00_1863;
													}
												else
													{
														obj_t BgL_auxz00_6475;

														BgL_auxz00_6475 =
															BGl_typezd2errorzd2zz__errorz00
															(BGl_string2365z00zz__srfi4z00, BINT(33208L),
															BGl_string2458z00zz__srfi4z00,
															BGl_string2387z00zz__srfi4z00,
															BgL_sstartz00_1863);
														FAILURE(BgL_auxz00_6475, BFALSE, BFALSE);
													}
												BgL_tmpz00_6471 = (long) CINT(BgL_tmpz00_6472);
											}
											BGL_SU64VECTOR_COPY(BgL_targetz00_3004,
												BgL_tstartz00_3005, BgL_sourcez00_3006, BgL_tmpz00_6471,
												BgL_sendz00_1864);
										}
										return BUNSPEC;
									}
								}
							}
						}
						break;
					case 5L:

						{	/* Llib/srfi4.scm 838 */
							obj_t BgL_sstartz00_1865;

							BgL_sstartz00_1865 = VECTOR_REF(BgL_opt1306z00_207, 3L);
							{	/* Llib/srfi4.scm 838 */
								obj_t BgL_sendz00_1866;

								BgL_sendz00_1866 = VECTOR_REF(BgL_opt1306z00_207, 4L);
								{	/* Llib/srfi4.scm 838 */

									{	/* Llib/srfi4.scm 838 */
										obj_t BgL_targetz00_3007;
										long BgL_tstartz00_3008;
										obj_t BgL_sourcez00_3009;

										if (BGL_U64VECTORP(BgL_targetz00_1856))
											{	/* Llib/srfi4.scm 838 */
												BgL_targetz00_3007 = BgL_targetz00_1856;
											}
										else
											{
												obj_t BgL_auxz00_6485;

												BgL_auxz00_6485 =
													BGl_typezd2errorzd2zz__errorz00
													(BGl_string2365z00zz__srfi4z00, BINT(33208L),
													BGl_string2458z00zz__srfi4z00,
													BGl_string2381z00zz__srfi4z00, BgL_targetz00_1856);
												FAILURE(BgL_auxz00_6485, BFALSE, BFALSE);
											}
										{	/* Llib/srfi4.scm 838 */
											obj_t BgL_tmpz00_6489;

											if (INTEGERP(BgL_tstartz00_1857))
												{	/* Llib/srfi4.scm 838 */
													BgL_tmpz00_6489 = BgL_tstartz00_1857;
												}
											else
												{
													obj_t BgL_auxz00_6492;

													BgL_auxz00_6492 =
														BGl_typezd2errorzd2zz__errorz00
														(BGl_string2365z00zz__srfi4z00, BINT(33208L),
														BGl_string2458z00zz__srfi4z00,
														BGl_string2387z00zz__srfi4z00, BgL_tstartz00_1857);
													FAILURE(BgL_auxz00_6492, BFALSE, BFALSE);
												}
											BgL_tstartz00_3008 = (long) CINT(BgL_tmpz00_6489);
										}
										if (BGL_U64VECTORP(BgL_sourcez00_1858))
											{	/* Llib/srfi4.scm 838 */
												BgL_sourcez00_3009 = BgL_sourcez00_1858;
											}
										else
											{
												obj_t BgL_auxz00_6499;

												BgL_auxz00_6499 =
													BGl_typezd2errorzd2zz__errorz00
													(BGl_string2365z00zz__srfi4z00, BINT(33208L),
													BGl_string2458z00zz__srfi4z00,
													BGl_string2381z00zz__srfi4z00, BgL_sourcez00_1858);
												FAILURE(BgL_auxz00_6499, BFALSE, BFALSE);
											}
										{	/* Llib/srfi4.scm 838 */
											long BgL_auxz00_6512;
											long BgL_tmpz00_6503;

											{	/* Llib/srfi4.scm 838 */
												obj_t BgL_tmpz00_6513;

												if (INTEGERP(BgL_sendz00_1866))
													{	/* Llib/srfi4.scm 838 */
														BgL_tmpz00_6513 = BgL_sendz00_1866;
													}
												else
													{
														obj_t BgL_auxz00_6516;

														BgL_auxz00_6516 =
															BGl_typezd2errorzd2zz__errorz00
															(BGl_string2365z00zz__srfi4z00, BINT(33208L),
															BGl_string2458z00zz__srfi4z00,
															BGl_string2387z00zz__srfi4z00, BgL_sendz00_1866);
														FAILURE(BgL_auxz00_6516, BFALSE, BFALSE);
													}
												BgL_auxz00_6512 = (long) CINT(BgL_tmpz00_6513);
											}
											{	/* Llib/srfi4.scm 838 */
												obj_t BgL_tmpz00_6504;

												if (INTEGERP(BgL_sstartz00_1865))
													{	/* Llib/srfi4.scm 838 */
														BgL_tmpz00_6504 = BgL_sstartz00_1865;
													}
												else
													{
														obj_t BgL_auxz00_6507;

														BgL_auxz00_6507 =
															BGl_typezd2errorzd2zz__errorz00
															(BGl_string2365z00zz__srfi4z00, BINT(33208L),
															BGl_string2458z00zz__srfi4z00,
															BGl_string2387z00zz__srfi4z00,
															BgL_sstartz00_1865);
														FAILURE(BgL_auxz00_6507, BFALSE, BFALSE);
													}
												BgL_tmpz00_6503 = (long) CINT(BgL_tmpz00_6504);
											}
											BGL_SU64VECTOR_COPY(BgL_targetz00_3007,
												BgL_tstartz00_3008, BgL_sourcez00_3009, BgL_tmpz00_6503,
												BgL_auxz00_6512);
										}
										return BUNSPEC;
									}
								}
							}
						}
						break;
					default:
						return BUNSPEC;
					}
			}
		}

	}



/* u64vector-copy! */
	BGL_EXPORTED_DEF obj_t BGl_u64vectorzd2copyz12zc0zz__srfi4z00(obj_t
		BgL_targetz00_202, long BgL_tstartz00_203, obj_t BgL_sourcez00_204,
		obj_t BgL_sstartz00_205, obj_t BgL_sendz00_206)
	{
		{	/* Llib/srfi4.scm 838 */
			{	/* Llib/srfi4.scm 838 */
				long BgL_auxz00_6526;
				long BgL_tmpz00_6524;

				BgL_auxz00_6526 = (long) CINT(BgL_sendz00_206);
				BgL_tmpz00_6524 = (long) CINT(BgL_sstartz00_205);
				BGL_SU64VECTOR_COPY(BgL_targetz00_202, BgL_tstartz00_203,
					BgL_sourcez00_204, BgL_tmpz00_6524, BgL_auxz00_6526);
			}
			return BUNSPEC;
		}

	}



/* _f32vector-copy! */
	obj_t BGl__f32vectorzd2copyz12zc0zz__srfi4z00(obj_t BgL_env1311z00_215,
		obj_t BgL_opt1310z00_214)
	{
		{	/* Llib/srfi4.scm 838 */
			{	/* Llib/srfi4.scm 838 */
				obj_t BgL_targetz00_1867;
				obj_t BgL_tstartz00_1868;
				obj_t BgL_sourcez00_1869;

				BgL_targetz00_1867 = VECTOR_REF(BgL_opt1310z00_214, 0L);
				BgL_tstartz00_1868 = VECTOR_REF(BgL_opt1310z00_214, 1L);
				BgL_sourcez00_1869 = VECTOR_REF(BgL_opt1310z00_214, 2L);
				switch (VECTOR_LENGTH(BgL_opt1310z00_214))
					{
					case 3L:

						{	/* Llib/srfi4.scm 838 */
							long BgL_sendz00_1873;

							{	/* Llib/srfi4.scm 838 */
								obj_t BgL_xz00_3010;

								if (BGL_F32VECTORP(BgL_sourcez00_1869))
									{	/* Llib/srfi4.scm 838 */
										BgL_xz00_3010 = BgL_sourcez00_1869;
									}
								else
									{
										obj_t BgL_auxz00_6534;

										BgL_auxz00_6534 =
											BGl_typezd2errorzd2zz__errorz00
											(BGl_string2365z00zz__srfi4z00, BINT(33208L),
											BGl_string2459z00zz__srfi4z00,
											BGl_string2383z00zz__srfi4z00, BgL_sourcez00_1869);
										FAILURE(BgL_auxz00_6534, BFALSE, BFALSE);
									}
								BgL_sendz00_1873 = BGL_HVECTOR_LENGTH(BgL_xz00_3010);
							}
							{	/* Llib/srfi4.scm 838 */

								{	/* Llib/srfi4.scm 838 */
									obj_t BgL_targetz00_3011;
									long BgL_tstartz00_3012;
									obj_t BgL_sourcez00_3013;

									if (BGL_F32VECTORP(BgL_targetz00_1867))
										{	/* Llib/srfi4.scm 838 */
											BgL_targetz00_3011 = BgL_targetz00_1867;
										}
									else
										{
											obj_t BgL_auxz00_6541;

											BgL_auxz00_6541 =
												BGl_typezd2errorzd2zz__errorz00
												(BGl_string2365z00zz__srfi4z00, BINT(33208L),
												BGl_string2459z00zz__srfi4z00,
												BGl_string2383z00zz__srfi4z00, BgL_targetz00_1867);
											FAILURE(BgL_auxz00_6541, BFALSE, BFALSE);
										}
									{	/* Llib/srfi4.scm 838 */
										obj_t BgL_tmpz00_6545;

										if (INTEGERP(BgL_tstartz00_1868))
											{	/* Llib/srfi4.scm 838 */
												BgL_tmpz00_6545 = BgL_tstartz00_1868;
											}
										else
											{
												obj_t BgL_auxz00_6548;

												BgL_auxz00_6548 =
													BGl_typezd2errorzd2zz__errorz00
													(BGl_string2365z00zz__srfi4z00, BINT(33208L),
													BGl_string2459z00zz__srfi4z00,
													BGl_string2387z00zz__srfi4z00, BgL_tstartz00_1868);
												FAILURE(BgL_auxz00_6548, BFALSE, BFALSE);
											}
										BgL_tstartz00_3012 = (long) CINT(BgL_tmpz00_6545);
									}
									if (BGL_F32VECTORP(BgL_sourcez00_1869))
										{	/* Llib/srfi4.scm 838 */
											BgL_sourcez00_3013 = BgL_sourcez00_1869;
										}
									else
										{
											obj_t BgL_auxz00_6555;

											BgL_auxz00_6555 =
												BGl_typezd2errorzd2zz__errorz00
												(BGl_string2365z00zz__srfi4z00, BINT(33208L),
												BGl_string2459z00zz__srfi4z00,
												BGl_string2383z00zz__srfi4z00, BgL_sourcez00_1869);
											FAILURE(BgL_auxz00_6555, BFALSE, BFALSE);
										}
									BGL_F32VECTOR_COPY(BgL_targetz00_3011, BgL_tstartz00_3012,
										BgL_sourcez00_3013, 0L, BgL_sendz00_1873);
									return BUNSPEC;
								}
							}
						}
						break;
					case 4L:

						{	/* Llib/srfi4.scm 838 */
							obj_t BgL_sstartz00_1874;

							BgL_sstartz00_1874 = VECTOR_REF(BgL_opt1310z00_214, 3L);
							{	/* Llib/srfi4.scm 838 */
								long BgL_sendz00_1875;

								{	/* Llib/srfi4.scm 838 */
									obj_t BgL_xz00_3014;

									if (BGL_F32VECTORP(BgL_sourcez00_1869))
										{	/* Llib/srfi4.scm 838 */
											BgL_xz00_3014 = BgL_sourcez00_1869;
										}
									else
										{
											obj_t BgL_auxz00_6563;

											BgL_auxz00_6563 =
												BGl_typezd2errorzd2zz__errorz00
												(BGl_string2365z00zz__srfi4z00, BINT(33208L),
												BGl_string2459z00zz__srfi4z00,
												BGl_string2383z00zz__srfi4z00, BgL_sourcez00_1869);
											FAILURE(BgL_auxz00_6563, BFALSE, BFALSE);
										}
									BgL_sendz00_1875 = BGL_HVECTOR_LENGTH(BgL_xz00_3014);
								}
								{	/* Llib/srfi4.scm 838 */

									{	/* Llib/srfi4.scm 838 */
										obj_t BgL_targetz00_3015;
										long BgL_tstartz00_3016;
										obj_t BgL_sourcez00_3017;

										if (BGL_F32VECTORP(BgL_targetz00_1867))
											{	/* Llib/srfi4.scm 838 */
												BgL_targetz00_3015 = BgL_targetz00_1867;
											}
										else
											{
												obj_t BgL_auxz00_6570;

												BgL_auxz00_6570 =
													BGl_typezd2errorzd2zz__errorz00
													(BGl_string2365z00zz__srfi4z00, BINT(33208L),
													BGl_string2459z00zz__srfi4z00,
													BGl_string2383z00zz__srfi4z00, BgL_targetz00_1867);
												FAILURE(BgL_auxz00_6570, BFALSE, BFALSE);
											}
										{	/* Llib/srfi4.scm 838 */
											obj_t BgL_tmpz00_6574;

											if (INTEGERP(BgL_tstartz00_1868))
												{	/* Llib/srfi4.scm 838 */
													BgL_tmpz00_6574 = BgL_tstartz00_1868;
												}
											else
												{
													obj_t BgL_auxz00_6577;

													BgL_auxz00_6577 =
														BGl_typezd2errorzd2zz__errorz00
														(BGl_string2365z00zz__srfi4z00, BINT(33208L),
														BGl_string2459z00zz__srfi4z00,
														BGl_string2387z00zz__srfi4z00, BgL_tstartz00_1868);
													FAILURE(BgL_auxz00_6577, BFALSE, BFALSE);
												}
											BgL_tstartz00_3016 = (long) CINT(BgL_tmpz00_6574);
										}
										if (BGL_F32VECTORP(BgL_sourcez00_1869))
											{	/* Llib/srfi4.scm 838 */
												BgL_sourcez00_3017 = BgL_sourcez00_1869;
											}
										else
											{
												obj_t BgL_auxz00_6584;

												BgL_auxz00_6584 =
													BGl_typezd2errorzd2zz__errorz00
													(BGl_string2365z00zz__srfi4z00, BINT(33208L),
													BGl_string2459z00zz__srfi4z00,
													BGl_string2383z00zz__srfi4z00, BgL_sourcez00_1869);
												FAILURE(BgL_auxz00_6584, BFALSE, BFALSE);
											}
										{	/* Llib/srfi4.scm 838 */
											long BgL_tmpz00_6588;

											{	/* Llib/srfi4.scm 838 */
												obj_t BgL_tmpz00_6589;

												if (INTEGERP(BgL_sstartz00_1874))
													{	/* Llib/srfi4.scm 838 */
														BgL_tmpz00_6589 = BgL_sstartz00_1874;
													}
												else
													{
														obj_t BgL_auxz00_6592;

														BgL_auxz00_6592 =
															BGl_typezd2errorzd2zz__errorz00
															(BGl_string2365z00zz__srfi4z00, BINT(33208L),
															BGl_string2459z00zz__srfi4z00,
															BGl_string2387z00zz__srfi4z00,
															BgL_sstartz00_1874);
														FAILURE(BgL_auxz00_6592, BFALSE, BFALSE);
													}
												BgL_tmpz00_6588 = (long) CINT(BgL_tmpz00_6589);
											}
											BGL_F32VECTOR_COPY(BgL_targetz00_3015, BgL_tstartz00_3016,
												BgL_sourcez00_3017, BgL_tmpz00_6588, BgL_sendz00_1875);
										}
										return BUNSPEC;
									}
								}
							}
						}
						break;
					case 5L:

						{	/* Llib/srfi4.scm 838 */
							obj_t BgL_sstartz00_1876;

							BgL_sstartz00_1876 = VECTOR_REF(BgL_opt1310z00_214, 3L);
							{	/* Llib/srfi4.scm 838 */
								obj_t BgL_sendz00_1877;

								BgL_sendz00_1877 = VECTOR_REF(BgL_opt1310z00_214, 4L);
								{	/* Llib/srfi4.scm 838 */

									{	/* Llib/srfi4.scm 838 */
										obj_t BgL_targetz00_3018;
										long BgL_tstartz00_3019;
										obj_t BgL_sourcez00_3020;

										if (BGL_F32VECTORP(BgL_targetz00_1867))
											{	/* Llib/srfi4.scm 838 */
												BgL_targetz00_3018 = BgL_targetz00_1867;
											}
										else
											{
												obj_t BgL_auxz00_6602;

												BgL_auxz00_6602 =
													BGl_typezd2errorzd2zz__errorz00
													(BGl_string2365z00zz__srfi4z00, BINT(33208L),
													BGl_string2459z00zz__srfi4z00,
													BGl_string2383z00zz__srfi4z00, BgL_targetz00_1867);
												FAILURE(BgL_auxz00_6602, BFALSE, BFALSE);
											}
										{	/* Llib/srfi4.scm 838 */
											obj_t BgL_tmpz00_6606;

											if (INTEGERP(BgL_tstartz00_1868))
												{	/* Llib/srfi4.scm 838 */
													BgL_tmpz00_6606 = BgL_tstartz00_1868;
												}
											else
												{
													obj_t BgL_auxz00_6609;

													BgL_auxz00_6609 =
														BGl_typezd2errorzd2zz__errorz00
														(BGl_string2365z00zz__srfi4z00, BINT(33208L),
														BGl_string2459z00zz__srfi4z00,
														BGl_string2387z00zz__srfi4z00, BgL_tstartz00_1868);
													FAILURE(BgL_auxz00_6609, BFALSE, BFALSE);
												}
											BgL_tstartz00_3019 = (long) CINT(BgL_tmpz00_6606);
										}
										if (BGL_F32VECTORP(BgL_sourcez00_1869))
											{	/* Llib/srfi4.scm 838 */
												BgL_sourcez00_3020 = BgL_sourcez00_1869;
											}
										else
											{
												obj_t BgL_auxz00_6616;

												BgL_auxz00_6616 =
													BGl_typezd2errorzd2zz__errorz00
													(BGl_string2365z00zz__srfi4z00, BINT(33208L),
													BGl_string2459z00zz__srfi4z00,
													BGl_string2383z00zz__srfi4z00, BgL_sourcez00_1869);
												FAILURE(BgL_auxz00_6616, BFALSE, BFALSE);
											}
										{	/* Llib/srfi4.scm 838 */
											long BgL_auxz00_6629;
											long BgL_tmpz00_6620;

											{	/* Llib/srfi4.scm 838 */
												obj_t BgL_tmpz00_6630;

												if (INTEGERP(BgL_sendz00_1877))
													{	/* Llib/srfi4.scm 838 */
														BgL_tmpz00_6630 = BgL_sendz00_1877;
													}
												else
													{
														obj_t BgL_auxz00_6633;

														BgL_auxz00_6633 =
															BGl_typezd2errorzd2zz__errorz00
															(BGl_string2365z00zz__srfi4z00, BINT(33208L),
															BGl_string2459z00zz__srfi4z00,
															BGl_string2387z00zz__srfi4z00, BgL_sendz00_1877);
														FAILURE(BgL_auxz00_6633, BFALSE, BFALSE);
													}
												BgL_auxz00_6629 = (long) CINT(BgL_tmpz00_6630);
											}
											{	/* Llib/srfi4.scm 838 */
												obj_t BgL_tmpz00_6621;

												if (INTEGERP(BgL_sstartz00_1876))
													{	/* Llib/srfi4.scm 838 */
														BgL_tmpz00_6621 = BgL_sstartz00_1876;
													}
												else
													{
														obj_t BgL_auxz00_6624;

														BgL_auxz00_6624 =
															BGl_typezd2errorzd2zz__errorz00
															(BGl_string2365z00zz__srfi4z00, BINT(33208L),
															BGl_string2459z00zz__srfi4z00,
															BGl_string2387z00zz__srfi4z00,
															BgL_sstartz00_1876);
														FAILURE(BgL_auxz00_6624, BFALSE, BFALSE);
													}
												BgL_tmpz00_6620 = (long) CINT(BgL_tmpz00_6621);
											}
											BGL_F32VECTOR_COPY(BgL_targetz00_3018, BgL_tstartz00_3019,
												BgL_sourcez00_3020, BgL_tmpz00_6620, BgL_auxz00_6629);
										}
										return BUNSPEC;
									}
								}
							}
						}
						break;
					default:
						return BUNSPEC;
					}
			}
		}

	}



/* f32vector-copy! */
	BGL_EXPORTED_DEF obj_t BGl_f32vectorzd2copyz12zc0zz__srfi4z00(obj_t
		BgL_targetz00_209, long BgL_tstartz00_210, obj_t BgL_sourcez00_211,
		obj_t BgL_sstartz00_212, obj_t BgL_sendz00_213)
	{
		{	/* Llib/srfi4.scm 838 */
			{	/* Llib/srfi4.scm 838 */
				long BgL_auxz00_6643;
				long BgL_tmpz00_6641;

				BgL_auxz00_6643 = (long) CINT(BgL_sendz00_213);
				BgL_tmpz00_6641 = (long) CINT(BgL_sstartz00_212);
				BGL_F32VECTOR_COPY(BgL_targetz00_209, BgL_tstartz00_210,
					BgL_sourcez00_211, BgL_tmpz00_6641, BgL_auxz00_6643);
			}
			return BUNSPEC;
		}

	}



/* _f64vector-copy! */
	obj_t BGl__f64vectorzd2copyz12zc0zz__srfi4z00(obj_t BgL_env1315z00_222,
		obj_t BgL_opt1314z00_221)
	{
		{	/* Llib/srfi4.scm 838 */
			{	/* Llib/srfi4.scm 838 */
				obj_t BgL_targetz00_1878;
				obj_t BgL_tstartz00_1879;
				obj_t BgL_sourcez00_1880;

				BgL_targetz00_1878 = VECTOR_REF(BgL_opt1314z00_221, 0L);
				BgL_tstartz00_1879 = VECTOR_REF(BgL_opt1314z00_221, 1L);
				BgL_sourcez00_1880 = VECTOR_REF(BgL_opt1314z00_221, 2L);
				switch (VECTOR_LENGTH(BgL_opt1314z00_221))
					{
					case 3L:

						{	/* Llib/srfi4.scm 838 */
							long BgL_sendz00_1884;

							{	/* Llib/srfi4.scm 838 */
								obj_t BgL_xz00_3021;

								if (BGL_F64VECTORP(BgL_sourcez00_1880))
									{	/* Llib/srfi4.scm 838 */
										BgL_xz00_3021 = BgL_sourcez00_1880;
									}
								else
									{
										obj_t BgL_auxz00_6651;

										BgL_auxz00_6651 =
											BGl_typezd2errorzd2zz__errorz00
											(BGl_string2365z00zz__srfi4z00, BINT(33208L),
											BGl_string2460z00zz__srfi4z00,
											BGl_string2385z00zz__srfi4z00, BgL_sourcez00_1880);
										FAILURE(BgL_auxz00_6651, BFALSE, BFALSE);
									}
								BgL_sendz00_1884 = BGL_HVECTOR_LENGTH(BgL_xz00_3021);
							}
							{	/* Llib/srfi4.scm 838 */

								{	/* Llib/srfi4.scm 838 */
									obj_t BgL_targetz00_3022;
									long BgL_tstartz00_3023;
									obj_t BgL_sourcez00_3024;

									if (BGL_F64VECTORP(BgL_targetz00_1878))
										{	/* Llib/srfi4.scm 838 */
											BgL_targetz00_3022 = BgL_targetz00_1878;
										}
									else
										{
											obj_t BgL_auxz00_6658;

											BgL_auxz00_6658 =
												BGl_typezd2errorzd2zz__errorz00
												(BGl_string2365z00zz__srfi4z00, BINT(33208L),
												BGl_string2460z00zz__srfi4z00,
												BGl_string2385z00zz__srfi4z00, BgL_targetz00_1878);
											FAILURE(BgL_auxz00_6658, BFALSE, BFALSE);
										}
									{	/* Llib/srfi4.scm 838 */
										obj_t BgL_tmpz00_6662;

										if (INTEGERP(BgL_tstartz00_1879))
											{	/* Llib/srfi4.scm 838 */
												BgL_tmpz00_6662 = BgL_tstartz00_1879;
											}
										else
											{
												obj_t BgL_auxz00_6665;

												BgL_auxz00_6665 =
													BGl_typezd2errorzd2zz__errorz00
													(BGl_string2365z00zz__srfi4z00, BINT(33208L),
													BGl_string2460z00zz__srfi4z00,
													BGl_string2387z00zz__srfi4z00, BgL_tstartz00_1879);
												FAILURE(BgL_auxz00_6665, BFALSE, BFALSE);
											}
										BgL_tstartz00_3023 = (long) CINT(BgL_tmpz00_6662);
									}
									if (BGL_F64VECTORP(BgL_sourcez00_1880))
										{	/* Llib/srfi4.scm 838 */
											BgL_sourcez00_3024 = BgL_sourcez00_1880;
										}
									else
										{
											obj_t BgL_auxz00_6672;

											BgL_auxz00_6672 =
												BGl_typezd2errorzd2zz__errorz00
												(BGl_string2365z00zz__srfi4z00, BINT(33208L),
												BGl_string2460z00zz__srfi4z00,
												BGl_string2385z00zz__srfi4z00, BgL_sourcez00_1880);
											FAILURE(BgL_auxz00_6672, BFALSE, BFALSE);
										}
									BGL_F64VECTOR_COPY(BgL_targetz00_3022, BgL_tstartz00_3023,
										BgL_sourcez00_3024, 0L, BgL_sendz00_1884);
									return BUNSPEC;
								}
							}
						}
						break;
					case 4L:

						{	/* Llib/srfi4.scm 838 */
							obj_t BgL_sstartz00_1885;

							BgL_sstartz00_1885 = VECTOR_REF(BgL_opt1314z00_221, 3L);
							{	/* Llib/srfi4.scm 838 */
								long BgL_sendz00_1886;

								{	/* Llib/srfi4.scm 838 */
									obj_t BgL_xz00_3025;

									if (BGL_F64VECTORP(BgL_sourcez00_1880))
										{	/* Llib/srfi4.scm 838 */
											BgL_xz00_3025 = BgL_sourcez00_1880;
										}
									else
										{
											obj_t BgL_auxz00_6680;

											BgL_auxz00_6680 =
												BGl_typezd2errorzd2zz__errorz00
												(BGl_string2365z00zz__srfi4z00, BINT(33208L),
												BGl_string2460z00zz__srfi4z00,
												BGl_string2385z00zz__srfi4z00, BgL_sourcez00_1880);
											FAILURE(BgL_auxz00_6680, BFALSE, BFALSE);
										}
									BgL_sendz00_1886 = BGL_HVECTOR_LENGTH(BgL_xz00_3025);
								}
								{	/* Llib/srfi4.scm 838 */

									{	/* Llib/srfi4.scm 838 */
										obj_t BgL_targetz00_3026;
										long BgL_tstartz00_3027;
										obj_t BgL_sourcez00_3028;

										if (BGL_F64VECTORP(BgL_targetz00_1878))
											{	/* Llib/srfi4.scm 838 */
												BgL_targetz00_3026 = BgL_targetz00_1878;
											}
										else
											{
												obj_t BgL_auxz00_6687;

												BgL_auxz00_6687 =
													BGl_typezd2errorzd2zz__errorz00
													(BGl_string2365z00zz__srfi4z00, BINT(33208L),
													BGl_string2460z00zz__srfi4z00,
													BGl_string2385z00zz__srfi4z00, BgL_targetz00_1878);
												FAILURE(BgL_auxz00_6687, BFALSE, BFALSE);
											}
										{	/* Llib/srfi4.scm 838 */
											obj_t BgL_tmpz00_6691;

											if (INTEGERP(BgL_tstartz00_1879))
												{	/* Llib/srfi4.scm 838 */
													BgL_tmpz00_6691 = BgL_tstartz00_1879;
												}
											else
												{
													obj_t BgL_auxz00_6694;

													BgL_auxz00_6694 =
														BGl_typezd2errorzd2zz__errorz00
														(BGl_string2365z00zz__srfi4z00, BINT(33208L),
														BGl_string2460z00zz__srfi4z00,
														BGl_string2387z00zz__srfi4z00, BgL_tstartz00_1879);
													FAILURE(BgL_auxz00_6694, BFALSE, BFALSE);
												}
											BgL_tstartz00_3027 = (long) CINT(BgL_tmpz00_6691);
										}
										if (BGL_F64VECTORP(BgL_sourcez00_1880))
											{	/* Llib/srfi4.scm 838 */
												BgL_sourcez00_3028 = BgL_sourcez00_1880;
											}
										else
											{
												obj_t BgL_auxz00_6701;

												BgL_auxz00_6701 =
													BGl_typezd2errorzd2zz__errorz00
													(BGl_string2365z00zz__srfi4z00, BINT(33208L),
													BGl_string2460z00zz__srfi4z00,
													BGl_string2385z00zz__srfi4z00, BgL_sourcez00_1880);
												FAILURE(BgL_auxz00_6701, BFALSE, BFALSE);
											}
										{	/* Llib/srfi4.scm 838 */
											long BgL_tmpz00_6705;

											{	/* Llib/srfi4.scm 838 */
												obj_t BgL_tmpz00_6706;

												if (INTEGERP(BgL_sstartz00_1885))
													{	/* Llib/srfi4.scm 838 */
														BgL_tmpz00_6706 = BgL_sstartz00_1885;
													}
												else
													{
														obj_t BgL_auxz00_6709;

														BgL_auxz00_6709 =
															BGl_typezd2errorzd2zz__errorz00
															(BGl_string2365z00zz__srfi4z00, BINT(33208L),
															BGl_string2460z00zz__srfi4z00,
															BGl_string2387z00zz__srfi4z00,
															BgL_sstartz00_1885);
														FAILURE(BgL_auxz00_6709, BFALSE, BFALSE);
													}
												BgL_tmpz00_6705 = (long) CINT(BgL_tmpz00_6706);
											}
											BGL_F64VECTOR_COPY(BgL_targetz00_3026, BgL_tstartz00_3027,
												BgL_sourcez00_3028, BgL_tmpz00_6705, BgL_sendz00_1886);
										}
										return BUNSPEC;
									}
								}
							}
						}
						break;
					case 5L:

						{	/* Llib/srfi4.scm 838 */
							obj_t BgL_sstartz00_1887;

							BgL_sstartz00_1887 = VECTOR_REF(BgL_opt1314z00_221, 3L);
							{	/* Llib/srfi4.scm 838 */
								obj_t BgL_sendz00_1888;

								BgL_sendz00_1888 = VECTOR_REF(BgL_opt1314z00_221, 4L);
								{	/* Llib/srfi4.scm 838 */

									{	/* Llib/srfi4.scm 838 */
										obj_t BgL_targetz00_3029;
										long BgL_tstartz00_3030;
										obj_t BgL_sourcez00_3031;

										if (BGL_F64VECTORP(BgL_targetz00_1878))
											{	/* Llib/srfi4.scm 838 */
												BgL_targetz00_3029 = BgL_targetz00_1878;
											}
										else
											{
												obj_t BgL_auxz00_6719;

												BgL_auxz00_6719 =
													BGl_typezd2errorzd2zz__errorz00
													(BGl_string2365z00zz__srfi4z00, BINT(33208L),
													BGl_string2460z00zz__srfi4z00,
													BGl_string2385z00zz__srfi4z00, BgL_targetz00_1878);
												FAILURE(BgL_auxz00_6719, BFALSE, BFALSE);
											}
										{	/* Llib/srfi4.scm 838 */
											obj_t BgL_tmpz00_6723;

											if (INTEGERP(BgL_tstartz00_1879))
												{	/* Llib/srfi4.scm 838 */
													BgL_tmpz00_6723 = BgL_tstartz00_1879;
												}
											else
												{
													obj_t BgL_auxz00_6726;

													BgL_auxz00_6726 =
														BGl_typezd2errorzd2zz__errorz00
														(BGl_string2365z00zz__srfi4z00, BINT(33208L),
														BGl_string2460z00zz__srfi4z00,
														BGl_string2387z00zz__srfi4z00, BgL_tstartz00_1879);
													FAILURE(BgL_auxz00_6726, BFALSE, BFALSE);
												}
											BgL_tstartz00_3030 = (long) CINT(BgL_tmpz00_6723);
										}
										if (BGL_F64VECTORP(BgL_sourcez00_1880))
											{	/* Llib/srfi4.scm 838 */
												BgL_sourcez00_3031 = BgL_sourcez00_1880;
											}
										else
											{
												obj_t BgL_auxz00_6733;

												BgL_auxz00_6733 =
													BGl_typezd2errorzd2zz__errorz00
													(BGl_string2365z00zz__srfi4z00, BINT(33208L),
													BGl_string2460z00zz__srfi4z00,
													BGl_string2385z00zz__srfi4z00, BgL_sourcez00_1880);
												FAILURE(BgL_auxz00_6733, BFALSE, BFALSE);
											}
										{	/* Llib/srfi4.scm 838 */
											long BgL_auxz00_6746;
											long BgL_tmpz00_6737;

											{	/* Llib/srfi4.scm 838 */
												obj_t BgL_tmpz00_6747;

												if (INTEGERP(BgL_sendz00_1888))
													{	/* Llib/srfi4.scm 838 */
														BgL_tmpz00_6747 = BgL_sendz00_1888;
													}
												else
													{
														obj_t BgL_auxz00_6750;

														BgL_auxz00_6750 =
															BGl_typezd2errorzd2zz__errorz00
															(BGl_string2365z00zz__srfi4z00, BINT(33208L),
															BGl_string2460z00zz__srfi4z00,
															BGl_string2387z00zz__srfi4z00, BgL_sendz00_1888);
														FAILURE(BgL_auxz00_6750, BFALSE, BFALSE);
													}
												BgL_auxz00_6746 = (long) CINT(BgL_tmpz00_6747);
											}
											{	/* Llib/srfi4.scm 838 */
												obj_t BgL_tmpz00_6738;

												if (INTEGERP(BgL_sstartz00_1887))
													{	/* Llib/srfi4.scm 838 */
														BgL_tmpz00_6738 = BgL_sstartz00_1887;
													}
												else
													{
														obj_t BgL_auxz00_6741;

														BgL_auxz00_6741 =
															BGl_typezd2errorzd2zz__errorz00
															(BGl_string2365z00zz__srfi4z00, BINT(33208L),
															BGl_string2460z00zz__srfi4z00,
															BGl_string2387z00zz__srfi4z00,
															BgL_sstartz00_1887);
														FAILURE(BgL_auxz00_6741, BFALSE, BFALSE);
													}
												BgL_tmpz00_6737 = (long) CINT(BgL_tmpz00_6738);
											}
											BGL_F64VECTOR_COPY(BgL_targetz00_3029, BgL_tstartz00_3030,
												BgL_sourcez00_3031, BgL_tmpz00_6737, BgL_auxz00_6746);
										}
										return BUNSPEC;
									}
								}
							}
						}
						break;
					default:
						return BUNSPEC;
					}
			}
		}

	}



/* f64vector-copy! */
	BGL_EXPORTED_DEF obj_t BGl_f64vectorzd2copyz12zc0zz__srfi4z00(obj_t
		BgL_targetz00_216, long BgL_tstartz00_217, obj_t BgL_sourcez00_218,
		obj_t BgL_sstartz00_219, obj_t BgL_sendz00_220)
	{
		{	/* Llib/srfi4.scm 838 */
			{	/* Llib/srfi4.scm 838 */
				long BgL_auxz00_6760;
				long BgL_tmpz00_6758;

				BgL_auxz00_6760 = (long) CINT(BgL_sendz00_220);
				BgL_tmpz00_6758 = (long) CINT(BgL_sstartz00_219);
				BGL_F64VECTOR_COPY(BgL_targetz00_216, BgL_tstartz00_217,
					BgL_sourcez00_218, BgL_tmpz00_6758, BgL_auxz00_6760);
			}
			return BUNSPEC;
		}

	}



/* object-init */
	obj_t BGl_objectzd2initzd2zz__srfi4z00(void)
	{
		{	/* Llib/srfi4.scm 15 */
			return BUNSPEC;
		}

	}



/* generic-init */
	obj_t BGl_genericzd2initzd2zz__srfi4z00(void)
	{
		{	/* Llib/srfi4.scm 15 */
			return BUNSPEC;
		}

	}



/* method-init */
	obj_t BGl_methodzd2initzd2zz__srfi4z00(void)
	{
		{	/* Llib/srfi4.scm 15 */
			return BUNSPEC;
		}

	}



/* imported-modules-init */
	obj_t BGl_importedzd2moduleszd2initz00zz__srfi4z00(void)
	{
		{	/* Llib/srfi4.scm 15 */
			BGl_modulezd2initializa7ationz75zz__errorz00(88804785L,
				BSTRING_TO_STRING(BGl_string2461z00zz__srfi4z00));
			BGl_modulezd2initializa7ationz75zz__hashz00(482391669L,
				BSTRING_TO_STRING(BGl_string2461z00zz__srfi4z00));
			BGl_modulezd2initializa7ationz75zz__readerz00(220648206L,
				BSTRING_TO_STRING(BGl_string2461z00zz__srfi4z00));
			BGl_modulezd2initializa7ationz75zz__paramz00(453939141L,
				BSTRING_TO_STRING(BGl_string2461z00zz__srfi4z00));
			return
				BGl_modulezd2initializa7ationz75zz__r4_symbols_6_4z00(460262918L,
				BSTRING_TO_STRING(BGl_string2461z00zz__srfi4z00));
		}

	}

#ifdef __cplusplus
}
#endif
