/*===========================================================================*/
/*   (Llib/srfi4.scm)                                                        */
/*   Bigloo (4.7a)                                                           */
/*   Inria -- Sophia Antipolis (c)       Thu Feb 19 09:11:58 AM CET 2026     */
/*===========================================================================*/
/* COMPILATION: (/home/serrano/prgm/project/bigloo/4.7a/bin/bigloo -srfi bigloo-unsafe -O3 -fcfa-arithmetic -q -lib-dir /home/serrano/prgm/project/bigloo/4.7a/lib/bigloo/4.7a +rm -mklib -cc gcc -fsharing -q -no-hello -unsafe -safee -O4 -stdc -c 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_symbol2560z00zz__srfi4z00 = BUNSPEC;
	static obj_t BGl_symbol2562z00zz__srfi4z00 = BUNSPEC;
	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);
	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);
	extern obj_t bstring_to_symbol(obj_t);
	static obj_t BGl_z62u64vectorzd2ze3listz53zz__srfi4z00(obj_t, obj_t);
	static obj_t BGl_z62f32vectorzf3z91zz__srfi4z00(obj_t, obj_t);
	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_methodzd2initzd2zz__srfi4z00(void);
	extern obj_t BGl_bigloozd2typezd2errorz00zz__errorz00(obj_t, obj_t, obj_t);
	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_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);
	static obj_t BGl_symbol2544z00zz__srfi4z00 = BUNSPEC;
	static obj_t BGl_symbol2546z00zz__srfi4z00 = BUNSPEC;
	static obj_t BGl_symbol2548z00zz__srfi4z00 = BUNSPEC;
	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_symbol2550z00zz__srfi4z00 = BUNSPEC;
	static obj_t BGl_z62u32vectorzd2lengthzb0zz__srfi4z00(obj_t, obj_t);
	static obj_t BGl_symbol2552z00zz__srfi4z00 = BUNSPEC;
	static obj_t BGl_z62f32vectorz62zz__srfi4z00(obj_t, obj_t);
	BGL_EXPORTED_DECL obj_t BGl_listzd2ze3f32vectorz31zz__srfi4z00(obj_t);
	static obj_t BGl_symbol2554z00zz__srfi4z00 = BUNSPEC;
	static obj_t BGl_symbol2556z00zz__srfi4z00 = BUNSPEC;
	BGL_EXPORTED_DECL obj_t BGl_makezd2f32vectorzd2zz__srfi4z00(long, float);
	static obj_t BGl_symbol2558z00zz__srfi4z00 = BUNSPEC;
	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_za762homogeneousza7d2665z00,
		BGl_z62homogeneouszd2vectorzf3z43zz__srfi4z00, 0L, BUNSPEC, 1);
	      DEFINE_EXPORT_BGL_PROCEDURE(BGl_u16vectorzd2envzd2zz__srfi4z00,
		BgL_bgl_za762u16vectorza762za72666za7, va_generic_entry,
		BGl_z62u16vectorz62zz__srfi4z00, BUNSPEC, -1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE(BGl_listzd2ze3s16vectorzd2envze3zz__srfi4z00,
		BgL_bgl_za762listza7d2za7e3s162667za7,
		BGl_z62listzd2ze3s16vectorz53zz__srfi4z00, 0L, BUNSPEC, 1);
	      DEFINE_EXPORT_BGL_PROCEDURE(BGl_makezd2s16vectorzd2envz00zz__srfi4z00,
		BgL_bgl__makeza7d2s16vecto2668za7, opt_generic_entry,
		BGl__makezd2s16vectorzd2zz__srfi4z00, BFALSE, -1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE(BGl_s64vectorzd2copyz12zd2envz12zz__srfi4z00,
		BgL_bgl__s64vectorza7d2cop2669za7, opt_generic_entry,
		BGl__s64vectorzd2copyz12zc0zz__srfi4z00, BFALSE, -1);
	      DEFINE_EXPORT_BGL_PROCEDURE(BGl_u8vectorzf3zd2envz21zz__srfi4z00,
		BgL_bgl_za762u8vectorza7f3za792670za7, BGl_z62u8vectorzf3z91zz__srfi4z00,
		0L, BUNSPEC, 1);
	      DEFINE_EXPORT_BGL_PROCEDURE(BGl_s8vectorzd2copyz12zd2envz12zz__srfi4z00,
		BgL_bgl__s8vectorza7d2copy2671za7, opt_generic_entry,
		BGl__s8vectorzd2copyz12zc0zz__srfi4z00, BFALSE, -1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_hvectorzd2rangezd2errorzd2envzd2zz__srfi4z00,
		BgL_bgl_za762hvectorza7d2ran2672z00,
		BGl_z62hvectorzd2rangezd2errorz62zz__srfi4z00, 0L, BUNSPEC, 3);
	     
		DEFINE_EXPORT_BGL_PROCEDURE(BGl_u32vectorzd2copyz12zd2envz12zz__srfi4z00,
		BgL_bgl__u32vectorza7d2cop2673za7, opt_generic_entry,
		BGl__u32vectorzd2copyz12zc0zz__srfi4z00, BFALSE, -1);
	      DEFINE_EXPORT_BGL_PROCEDURE(BGl_s32vectorzd2lengthzd2envz00zz__srfi4z00,
		BgL_bgl_za762s32vectorza7d2l2674z00,
		BGl_z62s32vectorzd2lengthzb0zz__srfi4z00, 0L, BUNSPEC, 1);
	      DEFINE_EXPORT_BGL_PROCEDURE(BGl_s16vectorzd2lengthzd2envz00zz__srfi4z00,
		BgL_bgl_za762s16vectorza7d2l2675z00,
		BGl_z62s16vectorzd2lengthzb0zz__srfi4z00, 0L, BUNSPEC, 1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE(BGl_listzd2ze3f32vectorzd2envze3zz__srfi4z00,
		BgL_bgl_za762listza7d2za7e3f322676za7,
		BGl_z62listzd2ze3f32vectorz53zz__srfi4z00, 0L, BUNSPEC, 1);
	      DEFINE_EXPORT_BGL_PROCEDURE(BGl_s16vectorzd2setz12zd2envz12zz__srfi4z00,
		BgL_bgl_za762s16vectorza7d2s2677z00,
		BGl_z62s16vectorzd2setz12za2zz__srfi4z00, 0L, BUNSPEC, 3);
	      DEFINE_EXPORT_BGL_PROCEDURE(BGl_makezd2f32vectorzd2envz00zz__srfi4z00,
		BgL_bgl__makeza7d2f32vecto2678za7, opt_generic_entry,
		BGl__makezd2f32vectorzd2zz__srfi4z00, BFALSE, -1);
	      DEFINE_EXPORT_BGL_PROCEDURE(BGl_f64vectorzd2refzd2envz00zz__srfi4z00,
		BgL_bgl_za762f64vectorza7d2r2679z00, BGl_z62f64vectorzd2refzb0zz__srfi4z00,
		0L, BUNSPEC, 2);
	      DEFINE_EXPORT_BGL_PROCEDURE(BGl_u16vectorzf3zd2envz21zz__srfi4z00,
		BgL_bgl_za762u16vectorza7f3za72680za7, BGl_z62u16vectorzf3z91zz__srfi4z00,
		0L, BUNSPEC, 1);
	      DEFINE_EXPORT_BGL_PROCEDURE(BGl_f64vectorzd2lengthzd2envz00zz__srfi4z00,
		BgL_bgl_za762f64vectorza7d2l2681z00,
		BGl_z62f64vectorzd2lengthzb0zz__srfi4z00, 0L, BUNSPEC, 1);
	      DEFINE_EXPORT_BGL_PROCEDURE(BGl_s64vectorzd2refzd2envz00zz__srfi4z00,
		BgL_bgl_za762s64vectorza7d2r2682z00, BGl_z62s64vectorzd2refzb0zz__srfi4z00,
		0L, BUNSPEC, 2);
	      DEFINE_EXPORT_BGL_PROCEDURE(BGl_u64vectorzd2refzd2envz00zz__srfi4z00,
		BgL_bgl_za762u64vectorza7d2r2683z00, BGl_z62u64vectorzd2refzb0zz__srfi4z00,
		0L, BUNSPEC, 2);
	     
		DEFINE_EXPORT_BGL_PROCEDURE(BGl_f32vectorzd2copyz12zd2envz12zz__srfi4z00,
		BgL_bgl__f32vectorza7d2cop2684za7, opt_generic_entry,
		BGl__f32vectorzd2copyz12zc0zz__srfi4z00, BFALSE, -1);
	      DEFINE_EXPORT_BGL_PROCEDURE(BGl_u8vectorzd2copyz12zd2envz12zz__srfi4z00,
		BgL_bgl__u8vectorza7d2copy2685za7, opt_generic_entry,
		BGl__u8vectorzd2copyz12zc0zz__srfi4z00, BFALSE, -1);
	      DEFINE_EXPORT_BGL_PROCEDURE(BGl_u64vectorzd2envzd2zz__srfi4z00,
		BgL_bgl_za762u64vectorza762za72686za7, va_generic_entry,
		BGl_z62u64vectorz62zz__srfi4z00, BUNSPEC, -1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE(BGl_s16vectorzd2ze3listzd2envze3zz__srfi4z00,
		BgL_bgl_za762s16vectorza7d2za72687za7,
		BGl_z62s16vectorzd2ze3listz53zz__srfi4z00, 0L, BUNSPEC, 1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE(BGl_listzd2ze3s64vectorzd2envze3zz__srfi4z00,
		BgL_bgl_za762listza7d2za7e3s642688za7,
		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_za762s16vectorza7d2r2689z00, BGl_z62s16vectorzd2refzb0zz__srfi4z00,
		0L, BUNSPEC, 2);
	      DEFINE_EXPORT_BGL_PROCEDURE(BGl_u16vectorzd2refzd2envz00zz__srfi4z00,
		BgL_bgl_za762u16vectorza7d2r2690z00, BGl_z62u16vectorzd2refzb0zz__srfi4z00,
		0L, BUNSPEC, 2);
	      DEFINE_EXPORT_BGL_PROCEDURE(BGl_makezd2s64vectorzd2envz00zz__srfi4z00,
		BgL_bgl__makeza7d2s64vecto2691za7, opt_generic_entry,
		BGl__makezd2s64vectorzd2zz__srfi4z00, BFALSE, -1);
	      DEFINE_EXPORT_BGL_PROCEDURE(BGl_u16vectorzd2setz12zd2envz12zz__srfi4z00,
		BgL_bgl_za762u16vectorza7d2s2692z00,
		BGl_z62u16vectorzd2setz12za2zz__srfi4z00, 0L, BUNSPEC, 3);
	      DEFINE_EXPORT_BGL_PROCEDURE(BGl_s64vectorzd2setz12zd2envz12zz__srfi4z00,
		BgL_bgl_za762s64vectorza7d2s2693z00,
		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_za762s32vectorza7f3za72694za7, BGl_z62s32vectorzf3z91zz__srfi4z00,
		0L, BUNSPEC, 1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE(BGl_u64vectorzd2copyz12zd2envz12zz__srfi4z00,
		BgL_bgl__u64vectorza7d2cop2695za7, opt_generic_entry,
		BGl__u64vectorzd2copyz12zc0zz__srfi4z00, BFALSE, -1);
	      DEFINE_EXPORT_BGL_PROCEDURE(BGl_f64vectorzf3zd2envz21zz__srfi4z00,
		BgL_bgl_za762f64vectorza7f3za72696za7, BGl_z62f64vectorzf3z91zz__srfi4z00,
		0L, BUNSPEC, 1);
	      DEFINE_EXPORT_BGL_PROCEDURE(BGl_makezd2s8vectorzd2envz00zz__srfi4z00,
		BgL_bgl__makeza7d2s8vector2697za7, opt_generic_entry,
		BGl__makezd2s8vectorzd2zz__srfi4z00, BFALSE, -1);
	      DEFINE_EXPORT_BGL_PROCEDURE(BGl_u8vectorzd2refzd2envz00zz__srfi4z00,
		BgL_bgl_za762u8vectorza7d2re2698z00, BGl_z62u8vectorzd2refzb0zz__srfi4z00,
		0L, BUNSPEC, 2);
	     
		DEFINE_EXPORT_BGL_PROCEDURE(BGl_s32vectorzd2ze3listzd2envze3zz__srfi4z00,
		BgL_bgl_za762s32vectorza7d2za72699za7,
		BGl_z62s32vectorzd2ze3listz53zz__srfi4z00, 0L, BUNSPEC, 1);
	      DEFINE_EXPORT_BGL_PROCEDURE(BGl_s32vectorzd2setz12zd2envz12zz__srfi4z00,
		BgL_bgl_za762s32vectorza7d2s2700z00,
		BGl_z62s32vectorzd2setz12za2zz__srfi4z00, 0L, BUNSPEC, 3);
	      DEFINE_EXPORT_BGL_PROCEDURE(BGl_s32vectorzd2envzd2zz__srfi4z00,
		BgL_bgl_za762s32vectorza762za72701za7, va_generic_entry,
		BGl_z62s32vectorz62zz__srfi4z00, BUNSPEC, -1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE(BGl_f64vectorzd2copyz12zd2envz12zz__srfi4z00,
		BgL_bgl__f64vectorza7d2cop2702za7, opt_generic_entry,
		BGl__f64vectorzd2copyz12zc0zz__srfi4z00, BFALSE, -1);
	      DEFINE_EXPORT_BGL_PROCEDURE(BGl_u64vectorzd2setz12zd2envz12zz__srfi4z00,
		BgL_bgl_za762u64vectorza7d2s2703z00,
		BGl_z62u64vectorzd2setz12za2zz__srfi4z00, 0L, BUNSPEC, 3);
	     
		DEFINE_EXPORT_BGL_PROCEDURE(BGl_listzd2ze3u32vectorzd2envze3zz__srfi4z00,
		BgL_bgl_za762listza7d2za7e3u322704za7,
		BGl_z62listzd2ze3u32vectorz53zz__srfi4z00, 0L, BUNSPEC, 1);
	      DEFINE_EXPORT_BGL_PROCEDURE(BGl_makezd2u32vectorzd2envz00zz__srfi4z00,
		BgL_bgl__makeza7d2u32vecto2705za7, opt_generic_entry,
		BGl__makezd2u32vectorzd2zz__srfi4z00, BFALSE, -1);
	      DEFINE_EXPORT_BGL_PROCEDURE(BGl_s8vectorzd2setz12zd2envz12zz__srfi4z00,
		BgL_bgl_za762s8vectorza7d2se2706z00,
		BGl_z62s8vectorzd2setz12za2zz__srfi4z00, 0L, BUNSPEC, 3);
	      DEFINE_EXPORT_BGL_PROCEDURE(BGl_u8vectorzd2setz12zd2envz12zz__srfi4z00,
		BgL_bgl_za762u8vectorza7d2se2707z00,
		BGl_z62u8vectorzd2setz12za2zz__srfi4z00, 0L, BUNSPEC, 3);
	      DEFINE_EXPORT_BGL_PROCEDURE(BGl_f64vectorzd2setz12zd2envz12zz__srfi4z00,
		BgL_bgl_za762f64vectorza7d2s2708z00,
		BGl_z62f64vectorzd2setz12za2zz__srfi4z00, 0L, BUNSPEC, 3);
	      DEFINE_EXPORT_BGL_PROCEDURE(BGl_s8vectorzd2refzd2envz00zz__srfi4z00,
		BgL_bgl_za762s8vectorza7d2re2709z00, BGl_z62s8vectorzd2refzb0zz__srfi4z00,
		0L, BUNSPEC, 2);
	     
		DEFINE_EXPORT_BGL_PROCEDURE(BGl_listzd2ze3f64vectorzd2envze3zz__srfi4z00,
		BgL_bgl_za762listza7d2za7e3f642710za7,
		BGl_z62listzd2ze3f64vectorz53zz__srfi4z00, 0L, BUNSPEC, 1);
	      DEFINE_EXPORT_BGL_PROCEDURE(BGl_makezd2f64vectorzd2envz00zz__srfi4z00,
		BgL_bgl__makeza7d2f64vecto2711za7, opt_generic_entry,
		BGl__makezd2f64vectorzd2zz__srfi4z00, BFALSE, -1);
	extern obj_t BGl_zd3s32zd2envz01zz__r4_numbers_6_5_fixnumz00;
	   
		 
		DEFINE_EXPORT_BGL_PROCEDURE(BGl_u16vectorzd2ze3listzd2envze3zz__srfi4z00,
		BgL_bgl_za762u16vectorza7d2za72712za7,
		BGl_z62u16vectorzd2ze3listz53zz__srfi4z00, 0L, BUNSPEC, 1);
	      DEFINE_EXPORT_BGL_PROCEDURE(BGl_u32vectorzd2lengthzd2envz00zz__srfi4z00,
		BgL_bgl_za762u32vectorza7d2l2713z00,
		BGl_z62u32vectorzd2lengthzb0zz__srfi4z00, 0L, BUNSPEC, 1);
	      DEFINE_EXPORT_BGL_PROCEDURE(BGl_s8vectorzd2envzd2zz__srfi4z00,
		BgL_bgl_za762s8vectorza762za7za72714z00, va_generic_entry,
		BGl_z62s8vectorz62zz__srfi4z00, BUNSPEC, -1);
	      DEFINE_EXPORT_BGL_PROCEDURE(BGl_u16vectorzd2lengthzd2envz00zz__srfi4z00,
		BgL_bgl_za762u16vectorza7d2l2715z00,
		BGl_z62u16vectorzd2lengthzb0zz__srfi4z00, 0L, BUNSPEC, 1);
	      DEFINE_EXPORT_BGL_PROCEDURE(BGl_u32vectorzd2setz12zd2envz12zz__srfi4z00,
		BgL_bgl_za762u32vectorza7d2s2716z00,
		BGl_z62u32vectorzd2setz12za2zz__srfi4z00, 0L, BUNSPEC, 3);
	      BGL_DEFINE_STRING(BGl_string2600z00zz__srfi4z00,
		BgL_bgl_string2600za700za7za7_2717za7, "_make-u32vector", 15);
	      BGL_DEFINE_STRING(BGl_string2601z00zz__srfi4z00,
		BgL_bgl_string2601za700za7za7_2718za7, "buint32", 7);
	      BGL_DEFINE_STRING(BGl_string2602z00zz__srfi4z00,
		BgL_bgl_string2602za700za7za7_2719za7, "_make-s64vector", 15);
	      BGL_DEFINE_STRING(BGl_string2603z00zz__srfi4z00,
		BgL_bgl_string2603za700za7za7_2720za7, "bint64", 6);
	      DEFINE_EXPORT_BGL_PROCEDURE(BGl_s16vectorzf3zd2envz21zz__srfi4z00,
		BgL_bgl_za762s16vectorza7f3za72721za7, BGl_z62s16vectorzf3z91zz__srfi4z00,
		0L, BUNSPEC, 1);
	      BGL_DEFINE_STRING(BGl_string2604z00zz__srfi4z00,
		BgL_bgl_string2604za700za7za7_2722za7, "_make-u64vector", 15);
	      DEFINE_EXPORT_BGL_PROCEDURE(BGl_s16vectorzd2envzd2zz__srfi4z00,
		BgL_bgl_za762s16vectorza762za72723za7, va_generic_entry,
		BGl_z62s16vectorz62zz__srfi4z00, BUNSPEC, -1);
	      DEFINE_EXPORT_BGL_PROCEDURE(BGl_s8vectorzd2lengthzd2envz00zz__srfi4z00,
		BgL_bgl_za762s8vectorza7d2le2724z00,
		BGl_z62s8vectorzd2lengthzb0zz__srfi4z00, 0L, BUNSPEC, 1);
	      BGL_DEFINE_STRING(BGl_string2605z00zz__srfi4z00,
		BgL_bgl_string2605za700za7za7_2725za7, "buint64", 7);
	      BGL_DEFINE_STRING(BGl_string2606z00zz__srfi4z00,
		BgL_bgl_string2606za700za7za7_2726za7, "_make-f32vector", 15);
	      BGL_DEFINE_STRING(BGl_string2607z00zz__srfi4z00,
		BgL_bgl_string2607za700za7za7_2727za7, "real", 4);
	      BGL_DEFINE_STRING(BGl_string2608z00zz__srfi4z00,
		BgL_bgl_string2608za700za7za7_2728za7, "_make-f64vector", 15);
	      DEFINE_EXPORT_BGL_PROCEDURE(BGl_u64vectorzf3zd2envz21zz__srfi4z00,
		BgL_bgl_za762u64vectorza7f3za72729za7, BGl_z62u64vectorzf3z91zz__srfi4z00,
		0L, BUNSPEC, 1);
	      BGL_DEFINE_STRING(BGl_string2609z00zz__srfi4z00,
		BgL_bgl_string2609za700za7za7_2730za7, "index out of range [0..", 23);
	     
		DEFINE_EXPORT_BGL_PROCEDURE(BGl_listzd2ze3u16vectorzd2envze3zz__srfi4z00,
		BgL_bgl_za762listza7d2za7e3u162731za7,
		BGl_z62listzd2ze3u16vectorz53zz__srfi4z00, 0L, BUNSPEC, 1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE(BGl_s64vectorzd2ze3listzd2envze3zz__srfi4z00,
		BgL_bgl_za762s64vectorza7d2za72732za7,
		BGl_z62s64vectorzd2ze3listz53zz__srfi4z00, 0L, BUNSPEC, 1);
	      DEFINE_EXPORT_BGL_PROCEDURE(BGl_f32vectorzd2setz12zd2envz12zz__srfi4z00,
		BgL_bgl_za762f32vectorza7d2s2733z00,
		BGl_z62f32vectorzd2setz12za2zz__srfi4z00, 0L, BUNSPEC, 3);
	      DEFINE_EXPORT_BGL_PROCEDURE(BGl_makezd2u16vectorzd2envz00zz__srfi4z00,
		BgL_bgl__makeza7d2u16vecto2734za7, opt_generic_entry,
		BGl__makezd2u16vectorzd2zz__srfi4z00, BFALSE, -1);
	      DEFINE_EXPORT_BGL_PROCEDURE(BGl_s8vectorzf3zd2envz21zz__srfi4z00,
		BgL_bgl_za762s8vectorza7f3za792735za7, BGl_z62s8vectorzf3z91zz__srfi4z00,
		0L, BUNSPEC, 1);
	      DEFINE_EXPORT_BGL_PROCEDURE(BGl_listzd2ze3s8vectorzd2envze3zz__srfi4z00,
		BgL_bgl_za762listza7d2za7e3s8v2736za7,
		BGl_z62listzd2ze3s8vectorz53zz__srfi4z00, 0L, BUNSPEC, 1);
	      DEFINE_EXPORT_BGL_PROCEDURE(BGl_s8vectorzd2ze3listzd2envze3zz__srfi4z00,
		BgL_bgl_za762s8vectorza7d2za7e2737za7,
		BGl_z62s8vectorzd2ze3listz53zz__srfi4z00, 0L, BUNSPEC, 1);
	      DEFINE_EXPORT_BGL_PROCEDURE(BGl_f32vectorzd2refzd2envz00zz__srfi4z00,
		BgL_bgl_za762f32vectorza7d2r2738z00, BGl_z62f32vectorzd2refzb0zz__srfi4z00,
		0L, BUNSPEC, 2);
	      BGL_DEFINE_STRING(BGl_string2610z00zz__srfi4z00,
		BgL_bgl_string2610za700za7za7_2739za7, "]", 1);
	      BGL_DEFINE_STRING(BGl_string2611z00zz__srfi4z00,
		BgL_bgl_string2611za700za7za7_2740za7, "&hvector-range-error", 20);
	      BGL_DEFINE_STRING(BGl_string2612z00zz__srfi4z00,
		BgL_bgl_string2612za700za7za7_2741za7, "bstring", 7);
	      BGL_DEFINE_STRING(BGl_string2613z00zz__srfi4z00,
		BgL_bgl_string2613za700za7za7_2742za7, "&s8vector-ref", 13);
	      BGL_DEFINE_STRING(BGl_string2614z00zz__srfi4z00,
		BgL_bgl_string2614za700za7za7_2743za7, "&u8vector-ref", 13);
	      BGL_DEFINE_STRING(BGl_string2615z00zz__srfi4z00,
		BgL_bgl_string2615za700za7za7_2744za7, "&s16vector-ref", 14);
	      BGL_DEFINE_STRING(BGl_string2616z00zz__srfi4z00,
		BgL_bgl_string2616za700za7za7_2745za7, "&u16vector-ref", 14);
	      BGL_DEFINE_STRING(BGl_string2617z00zz__srfi4z00,
		BgL_bgl_string2617za700za7za7_2746za7, "&s32vector-ref", 14);
	      BGL_DEFINE_STRING(BGl_string2618z00zz__srfi4z00,
		BgL_bgl_string2618za700za7za7_2747za7, "&u32vector-ref", 14);
	      BGL_DEFINE_STRING(BGl_string2619z00zz__srfi4z00,
		BgL_bgl_string2619za700za7za7_2748za7, "&s64vector-ref", 14);
	     
		DEFINE_EXPORT_BGL_PROCEDURE(BGl_u32vectorzd2ze3listzd2envze3zz__srfi4z00,
		BgL_bgl_za762u32vectorza7d2za72749za7,
		BGl_z62u32vectorzd2ze3listz53zz__srfi4z00, 0L, BUNSPEC, 1);
	      DEFINE_EXPORT_BGL_PROCEDURE(BGl_s32vectorzd2refzd2envz00zz__srfi4z00,
		BgL_bgl_za762s32vectorza7d2r2750z00, BGl_z62s32vectorzd2refzb0zz__srfi4z00,
		0L, BUNSPEC, 2);
	      DEFINE_EXPORT_BGL_PROCEDURE(BGl_u32vectorzd2refzd2envz00zz__srfi4z00,
		BgL_bgl_za762u32vectorza7d2r2751z00, 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_za762f32vectorza762za72752za7, va_generic_entry,
		BGl_z62f32vectorz62zz__srfi4z00, BUNSPEC, -1);
	      DEFINE_EXPORT_BGL_PROCEDURE(BGl_s64vectorzd2lengthzd2envz00zz__srfi4z00,
		BgL_bgl_za762s64vectorza7d2l2753z00,
		BGl_z62s64vectorzd2lengthzb0zz__srfi4z00, 0L, BUNSPEC, 1);
	extern obj_t BGl_zd3s8zd2envz01zz__r4_numbers_6_5_fixnumz00;
	   
		 
		BGL_DEFINE_STRING(BGl_string2620z00zz__srfi4z00,
		BgL_bgl_string2620za700za7za7_2754za7, "&u64vector-ref", 14);
	      BGL_DEFINE_STRING(BGl_string2621z00zz__srfi4z00,
		BgL_bgl_string2621za700za7za7_2755za7, "&f32vector-ref", 14);
	      BGL_DEFINE_STRING(BGl_string2622z00zz__srfi4z00,
		BgL_bgl_string2622za700za7za7_2756za7, "&f64vector-ref", 14);
	      DEFINE_EXPORT_BGL_PROCEDURE(BGl_f32vectorzd2lengthzd2envz00zz__srfi4z00,
		BgL_bgl_za762f32vectorza7d2l2757z00,
		BGl_z62f32vectorzd2lengthzb0zz__srfi4z00, 0L, BUNSPEC, 1);
	      BGL_DEFINE_STRING(BGl_string2623z00zz__srfi4z00,
		BgL_bgl_string2623za700za7za7_2758za7, "&s8vector-set!", 14);
	      BGL_DEFINE_STRING(BGl_string2624z00zz__srfi4z00,
		BgL_bgl_string2624za700za7za7_2759za7, "&u8vector-set!", 14);
	extern obj_t BGl_zd3flzd2envz01zz__r4_numbers_6_5_flonumz00;
	   
		 
		BGL_DEFINE_STRING(BGl_string2625z00zz__srfi4z00,
		BgL_bgl_string2625za700za7za7_2760za7, "&s16vector-set!", 15);
	      BGL_DEFINE_STRING(BGl_string2626z00zz__srfi4z00,
		BgL_bgl_string2626za700za7za7_2761za7, "&u16vector-set!", 15);
	      BGL_DEFINE_STRING(BGl_string2545z00zz__srfi4z00,
		BgL_bgl_string2545za700za7za7_2762za7, "s8", 2);
	      BGL_DEFINE_STRING(BGl_string2627z00zz__srfi4z00,
		BgL_bgl_string2627za700za7za7_2763za7, "&s32vector-set!", 15);
	      BGL_DEFINE_STRING(BGl_string2628z00zz__srfi4z00,
		BgL_bgl_string2628za700za7za7_2764za7, "&u32vector-set!", 15);
	      BGL_DEFINE_STRING(BGl_string2547z00zz__srfi4z00,
		BgL_bgl_string2547za700za7za7_2765za7, "u8", 2);
	      BGL_DEFINE_STRING(BGl_string2629z00zz__srfi4z00,
		BgL_bgl_string2629za700za7za7_2766za7, "&s64vector-set!", 15);
	      BGL_DEFINE_STRING(BGl_string2549z00zz__srfi4z00,
		BgL_bgl_string2549za700za7za7_2767za7, "s16", 3);
	extern obj_t BGl_zd3u64zd2envz01zz__r4_numbers_6_5_fixnumz00;
	   
		 
		DEFINE_EXPORT_BGL_PROCEDURE(BGl_f32vectorzf3zd2envz21zz__srfi4z00,
		BgL_bgl_za762f32vectorza7f3za72768za7, BGl_z62f32vectorzf3z91zz__srfi4z00,
		0L, BUNSPEC, 1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE(BGl_f32vectorzd2ze3listzd2envze3zz__srfi4z00,
		BgL_bgl_za762f32vectorza7d2za72769za7,
		BGl_z62f32vectorzd2ze3listz53zz__srfi4z00, 0L, BUNSPEC, 1);
	      DEFINE_EXPORT_BGL_PROCEDURE(BGl_u8vectorzd2ze3listzd2envze3zz__srfi4z00,
		BgL_bgl_za762u8vectorza7d2za7e2770za7,
		BGl_z62u8vectorzd2ze3listz53zz__srfi4z00, 0L, BUNSPEC, 1);
	      DEFINE_EXPORT_BGL_PROCEDURE(BGl_makezd2u8vectorzd2envz00zz__srfi4z00,
		BgL_bgl__makeza7d2u8vector2771za7, opt_generic_entry,
		BGl__makezd2u8vectorzd2zz__srfi4z00, BFALSE, -1);
	      BGL_DEFINE_STRING(BGl_string2630z00zz__srfi4z00,
		BgL_bgl_string2630za700za7za7_2772za7, "&u64vector-set!", 15);
	      BGL_DEFINE_STRING(BGl_string2631z00zz__srfi4z00,
		BgL_bgl_string2631za700za7za7_2773za7, "&f32vector-set!", 15);
	      BGL_DEFINE_STRING(BGl_string2632z00zz__srfi4z00,
		BgL_bgl_string2632za700za7za7_2774za7, "&f64vector-set!", 15);
	      BGL_DEFINE_STRING(BGl_string2551z00zz__srfi4z00,
		BgL_bgl_string2551za700za7za7_2775za7, "u16", 3);
	      BGL_DEFINE_STRING(BGl_string2633z00zz__srfi4z00,
		BgL_bgl_string2633za700za7za7_2776za7, "&s8vector->list", 15);
	      BGL_DEFINE_STRING(BGl_string2634z00zz__srfi4z00,
		BgL_bgl_string2634za700za7za7_2777za7, "&u8vector->list", 15);
	      BGL_DEFINE_STRING(BGl_string2553z00zz__srfi4z00,
		BgL_bgl_string2553za700za7za7_2778za7, "s32", 3);
	      DEFINE_EXPORT_BGL_PROCEDURE(BGl_s64vectorzd2envzd2zz__srfi4z00,
		BgL_bgl_za762s64vectorza762za72779za7, va_generic_entry,
		BGl_z62s64vectorz62zz__srfi4z00, BUNSPEC, -1);
	      BGL_DEFINE_STRING(BGl_string2635z00zz__srfi4z00,
		BgL_bgl_string2635za700za7za7_2780za7, "&s16vector->list", 16);
	      BGL_DEFINE_STRING(BGl_string2636z00zz__srfi4z00,
		BgL_bgl_string2636za700za7za7_2781za7, "&u16vector->list", 16);
	      BGL_DEFINE_STRING(BGl_string2555z00zz__srfi4z00,
		BgL_bgl_string2555za700za7za7_2782za7, "u32", 3);
	      BGL_DEFINE_STRING(BGl_string2637z00zz__srfi4z00,
		BgL_bgl_string2637za700za7za7_2783za7, "&s32vector->list", 16);
	      BGL_DEFINE_STRING(BGl_string2638z00zz__srfi4z00,
		BgL_bgl_string2638za700za7za7_2784za7, "&u32vector->list", 16);
	      BGL_DEFINE_STRING(BGl_string2557z00zz__srfi4z00,
		BgL_bgl_string2557za700za7za7_2785za7, "s64", 3);
	      BGL_DEFINE_STRING(BGl_string2639z00zz__srfi4z00,
		BgL_bgl_string2639za700za7za7_2786za7, "&s64vector->list", 16);
	      BGL_DEFINE_STRING(BGl_string2559z00zz__srfi4z00,
		BgL_bgl_string2559za700za7za7_2787za7, "u64", 3);
	     
		DEFINE_EXPORT_BGL_PROCEDURE(BGl_s16vectorzd2copyz12zd2envz12zz__srfi4z00,
		BgL_bgl__s16vectorza7d2cop2788za7, opt_generic_entry,
		BGl__s16vectorzd2copyz12zc0zz__srfi4z00, BFALSE, -1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE(BGl_listzd2ze3u64vectorzd2envze3zz__srfi4z00,
		BgL_bgl_za762listza7d2za7e3u642789za7,
		BGl_z62listzd2ze3u64vectorz53zz__srfi4z00, 0L, BUNSPEC, 1);
	      DEFINE_EXPORT_BGL_PROCEDURE(BGl_makezd2u64vectorzd2envz00zz__srfi4z00,
		BgL_bgl__makeza7d2u64vecto2790za7, opt_generic_entry,
		BGl__makezd2u64vectorzd2zz__srfi4z00, BFALSE, -1);
	      BGL_DEFINE_STRING(BGl_string2640z00zz__srfi4z00,
		BgL_bgl_string2640za700za7za7_2791za7, "&u64vector->list", 16);
	      BGL_DEFINE_STRING(BGl_string2641z00zz__srfi4z00,
		BgL_bgl_string2641za700za7za7_2792za7, "&f32vector->list", 16);
	      BGL_DEFINE_STRING(BGl_string2642z00zz__srfi4z00,
		BgL_bgl_string2642za700za7za7_2793za7, "&f64vector->list", 16);
	      BGL_DEFINE_STRING(BGl_string2561z00zz__srfi4z00,
		BgL_bgl_string2561za700za7za7_2794za7, "f32", 3);
	      DEFINE_EXPORT_BGL_PROCEDURE(BGl_u8vectorzd2lengthzd2envz00zz__srfi4z00,
		BgL_bgl_za762u8vectorza7d2le2795z00,
		BGl_z62u8vectorzd2lengthzb0zz__srfi4z00, 0L, BUNSPEC, 1);
	      BGL_DEFINE_STRING(BGl_string2643z00zz__srfi4z00,
		BgL_bgl_string2643za700za7za7_2796za7, "&list->s8vector", 15);
	      BGL_DEFINE_STRING(BGl_string2644z00zz__srfi4z00,
		BgL_bgl_string2644za700za7za7_2797za7, "pair-nil", 8);
	      BGL_DEFINE_STRING(BGl_string2563z00zz__srfi4z00,
		BgL_bgl_string2563za700za7za7_2798za7, "f64", 3);
	      BGL_DEFINE_STRING(BGl_string2645z00zz__srfi4z00,
		BgL_bgl_string2645za700za7za7_2799za7, "&list->u8vector", 15);
	      BGL_DEFINE_STRING(BGl_string2564z00zz__srfi4z00,
		BgL_bgl_string2564za700za7za7_2800za7, "homogeneous-vector-info", 23);
	      BGL_DEFINE_STRING(BGl_string2646z00zz__srfi4z00,
		BgL_bgl_string2646za700za7za7_2801za7, "&list->s16vector", 16);
	      BGL_DEFINE_STRING(BGl_string2565z00zz__srfi4z00,
		BgL_bgl_string2565za700za7za7_2802za7, "Illegal hvector ident", 21);
	      BGL_DEFINE_STRING(BGl_string2647z00zz__srfi4z00,
		BgL_bgl_string2647za700za7za7_2803za7, "&list->u16vector", 16);
	      BGL_DEFINE_STRING(BGl_string2566z00zz__srfi4z00,
		BgL_bgl_string2566za700za7za7_2804za7, "hvector", 7);
	      BGL_DEFINE_STRING(BGl_string2648z00zz__srfi4z00,
		BgL_bgl_string2648za700za7za7_2805za7, "&list->s32vector", 16);
	      BGL_DEFINE_STRING(BGl_string2567z00zz__srfi4z00,
		BgL_bgl_string2567za700za7za7_2806za7, "/tmp/bigloo/runtime/Llib/srfi4.scm",
		34);
	      BGL_DEFINE_STRING(BGl_string2649z00zz__srfi4z00,
		BgL_bgl_string2649za700za7za7_2807za7, "&list->u32vector", 16);
	      BGL_DEFINE_STRING(BGl_string2568z00zz__srfi4z00,
		BgL_bgl_string2568za700za7za7_2808za7, "&s8vector-length", 16);
	      BGL_DEFINE_STRING(BGl_string2569z00zz__srfi4z00,
		BgL_bgl_string2569za700za7za7_2809za7, "s8vector", 8);
	     
		DEFINE_EXPORT_BGL_PROCEDURE(BGl_u64vectorzd2ze3listzd2envze3zz__srfi4z00,
		BgL_bgl_za762u64vectorza7d2za72810za7,
		BGl_z62u64vectorzd2ze3listz53zz__srfi4z00, 0L, BUNSPEC, 1);
	      BGL_DEFINE_STRING(BGl_string2650z00zz__srfi4z00,
		BgL_bgl_string2650za700za7za7_2811za7, "&list->s64vector", 16);
	      BGL_DEFINE_STRING(BGl_string2651z00zz__srfi4z00,
		BgL_bgl_string2651za700za7za7_2812za7, "&list->u64vector", 16);
	      BGL_DEFINE_STRING(BGl_string2570z00zz__srfi4z00,
		BgL_bgl_string2570za700za7za7_2813za7, "&u8vector-length", 16);
	      BGL_DEFINE_STRING(BGl_string2652z00zz__srfi4z00,
		BgL_bgl_string2652za700za7za7_2814za7, "&list->f32vector", 16);
	      BGL_DEFINE_STRING(BGl_string2571z00zz__srfi4z00,
		BgL_bgl_string2571za700za7za7_2815za7, "u8vector", 8);
	      BGL_DEFINE_STRING(BGl_string2653z00zz__srfi4z00,
		BgL_bgl_string2653za700za7za7_2816za7, "&list->f64vector", 16);
	      BGL_DEFINE_STRING(BGl_string2572z00zz__srfi4z00,
		BgL_bgl_string2572za700za7za7_2817za7, "&s16vector-length", 17);
	      BGL_DEFINE_STRING(BGl_string2654z00zz__srfi4z00,
		BgL_bgl_string2654za700za7za7_2818za7, "_s8vector-copy!", 15);
	      BGL_DEFINE_STRING(BGl_string2573z00zz__srfi4z00,
		BgL_bgl_string2573za700za7za7_2819za7, "s16vector", 9);
	      BGL_DEFINE_STRING(BGl_string2655z00zz__srfi4z00,
		BgL_bgl_string2655za700za7za7_2820za7, "_u8vector-copy!", 15);
	      BGL_DEFINE_STRING(BGl_string2574z00zz__srfi4z00,
		BgL_bgl_string2574za700za7za7_2821za7, "&u16vector-length", 17);
	      BGL_DEFINE_STRING(BGl_string2656z00zz__srfi4z00,
		BgL_bgl_string2656za700za7za7_2822za7, "_s16vector-copy!", 16);
	      BGL_DEFINE_STRING(BGl_string2575z00zz__srfi4z00,
		BgL_bgl_string2575za700za7za7_2823za7, "u16vector", 9);
	     
		DEFINE_EXPORT_BGL_PROCEDURE(BGl_s32vectorzd2copyz12zd2envz12zz__srfi4z00,
		BgL_bgl__s32vectorza7d2cop2824za7, opt_generic_entry,
		BGl__s32vectorzd2copyz12zc0zz__srfi4z00, BFALSE, -1);
	      BGL_DEFINE_STRING(BGl_string2657z00zz__srfi4z00,
		BgL_bgl_string2657za700za7za7_2825za7, "_u16vector-copy!", 16);
	      BGL_DEFINE_STRING(BGl_string2576z00zz__srfi4z00,
		BgL_bgl_string2576za700za7za7_2826za7, "&s32vector-length", 17);
	      BGL_DEFINE_STRING(BGl_string2658z00zz__srfi4z00,
		BgL_bgl_string2658za700za7za7_2827za7, "_s32vector-copy!", 16);
	      BGL_DEFINE_STRING(BGl_string2577z00zz__srfi4z00,
		BgL_bgl_string2577za700za7za7_2828za7, "s32vector", 9);
	      BGL_DEFINE_STRING(BGl_string2659z00zz__srfi4z00,
		BgL_bgl_string2659za700za7za7_2829za7, "_u32vector-copy!", 16);
	      BGL_DEFINE_STRING(BGl_string2578z00zz__srfi4z00,
		BgL_bgl_string2578za700za7za7_2830za7, "&u32vector-length", 17);
	extern obj_t BGl_zd3s16zd2envz01zz__r4_numbers_6_5_fixnumz00;
	   
		 
		BGL_DEFINE_STRING(BGl_string2579z00zz__srfi4z00,
		BgL_bgl_string2579za700za7za7_2831za7, "u32vector", 9);
	      DEFINE_EXPORT_BGL_PROCEDURE(BGl_u8vectorzd2envzd2zz__srfi4z00,
		BgL_bgl_za762u8vectorza762za7za72832z00, va_generic_entry,
		BGl_z62u8vectorz62zz__srfi4z00, BUNSPEC, -1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_homogeneouszd2vectorzd2infozd2envzd2zz__srfi4z00,
		BgL_bgl_za762homogeneousza7d2833z00,
		BGl_z62homogeneouszd2vectorzd2infoz62zz__srfi4z00, 0L, BUNSPEC, 1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE(BGl_f64vectorzd2ze3listzd2envze3zz__srfi4z00,
		BgL_bgl_za762f64vectorza7d2za72834za7,
		BGl_z62f64vectorzd2ze3listz53zz__srfi4z00, 0L, BUNSPEC, 1);
	      DEFINE_EXPORT_BGL_PROCEDURE(BGl_u32vectorzf3zd2envz21zz__srfi4z00,
		BgL_bgl_za762u32vectorza7f3za72835za7, BGl_z62u32vectorzf3z91zz__srfi4z00,
		0L, BUNSPEC, 1);
	      DEFINE_EXPORT_BGL_PROCEDURE(BGl_u32vectorzd2envzd2zz__srfi4z00,
		BgL_bgl_za762u32vectorza762za72836za7, va_generic_entry,
		BGl_z62u32vectorz62zz__srfi4z00, BUNSPEC, -1);
	      BGL_DEFINE_STRING(BGl_string2660z00zz__srfi4z00,
		BgL_bgl_string2660za700za7za7_2837za7, "_s64vector-copy!", 16);
	      DEFINE_EXPORT_BGL_PROCEDURE(BGl_s64vectorzf3zd2envz21zz__srfi4z00,
		BgL_bgl_za762s64vectorza7f3za72838za7, BGl_z62s64vectorzf3z91zz__srfi4z00,
		0L, BUNSPEC, 1);
	      BGL_DEFINE_STRING(BGl_string2661z00zz__srfi4z00,
		BgL_bgl_string2661za700za7za7_2839za7, "_u64vector-copy!", 16);
	      BGL_DEFINE_STRING(BGl_string2580z00zz__srfi4z00,
		BgL_bgl_string2580za700za7za7_2840za7, "&s64vector-length", 17);
	      BGL_DEFINE_STRING(BGl_string2662z00zz__srfi4z00,
		BgL_bgl_string2662za700za7za7_2841za7, "_f32vector-copy!", 16);
	      BGL_DEFINE_STRING(BGl_string2581z00zz__srfi4z00,
		BgL_bgl_string2581za700za7za7_2842za7, "s64vector", 9);
	      BGL_DEFINE_STRING(BGl_string2663z00zz__srfi4z00,
		BgL_bgl_string2663za700za7za7_2843za7, "_f64vector-copy!", 16);
	      BGL_DEFINE_STRING(BGl_string2582z00zz__srfi4z00,
		BgL_bgl_string2582za700za7za7_2844za7, "&u64vector-length", 17);
	     
		DEFINE_EXPORT_BGL_PROCEDURE(BGl_listzd2ze3s32vectorzd2envze3zz__srfi4z00,
		BgL_bgl_za762listza7d2za7e3s322845za7,
		BGl_z62listzd2ze3s32vectorz53zz__srfi4z00, 0L, BUNSPEC, 1);
	      BGL_DEFINE_STRING(BGl_string2664z00zz__srfi4z00,
		BgL_bgl_string2664za700za7za7_2846za7, "__srfi4", 7);
	      BGL_DEFINE_STRING(BGl_string2583z00zz__srfi4z00,
		BgL_bgl_string2583za700za7za7_2847za7, "u64vector", 9);
	      BGL_DEFINE_STRING(BGl_string2584z00zz__srfi4z00,
		BgL_bgl_string2584za700za7za7_2848za7, "&f32vector-length", 17);
	      BGL_DEFINE_STRING(BGl_string2585z00zz__srfi4z00,
		BgL_bgl_string2585za700za7za7_2849za7, "f32vector", 9);
	      BGL_DEFINE_STRING(BGl_string2586z00zz__srfi4z00,
		BgL_bgl_string2586za700za7za7_2850za7, "&f64vector-length", 17);
	      DEFINE_EXPORT_BGL_PROCEDURE(BGl_makezd2s32vectorzd2envz00zz__srfi4z00,
		BgL_bgl__makeza7d2s32vecto2851za7, opt_generic_entry,
		BGl__makezd2s32vectorzd2zz__srfi4z00, BFALSE, -1);
	      BGL_DEFINE_STRING(BGl_string2587z00zz__srfi4z00,
		BgL_bgl_string2587za700za7za7_2852za7, "f64vector", 9);
	      BGL_DEFINE_STRING(BGl_string2588z00zz__srfi4z00,
		BgL_bgl_string2588za700za7za7_2853za7, "_make-s8vector", 14);
	      BGL_DEFINE_STRING(BGl_string2589z00zz__srfi4z00,
		BgL_bgl_string2589za700za7za7_2854za7, "vector", 6);
	extern obj_t BGl_zd3s64zd2envz01zz__r4_numbers_6_5_fixnumz00;
	   
		 
		DEFINE_EXPORT_BGL_PROCEDURE(BGl_f64vectorzd2envzd2zz__srfi4z00,
		BgL_bgl_za762f64vectorza762za72855za7, va_generic_entry,
		BGl_z62f64vectorz62zz__srfi4z00, BUNSPEC, -1);
	      DEFINE_EXPORT_BGL_PROCEDURE(BGl_listzd2ze3u8vectorzd2envze3zz__srfi4z00,
		BgL_bgl_za762listza7d2za7e3u8v2856za7,
		BGl_z62listzd2ze3u8vectorz53zz__srfi4z00, 0L, BUNSPEC, 1);
	      BGL_DEFINE_STRING(BGl_string2590z00zz__srfi4z00,
		BgL_bgl_string2590za700za7za7_2857za7, "bint", 4);
	      BGL_DEFINE_STRING(BGl_string2591z00zz__srfi4z00,
		BgL_bgl_string2591za700za7za7_2858za7, "bint8", 5);
	      BGL_DEFINE_STRING(BGl_string2592z00zz__srfi4z00,
		BgL_bgl_string2592za700za7za7_2859za7, "_make-u8vector", 14);
	      BGL_DEFINE_STRING(BGl_string2593z00zz__srfi4z00,
		BgL_bgl_string2593za700za7za7_2860za7, "buint8", 6);
	      BGL_DEFINE_STRING(BGl_string2594z00zz__srfi4z00,
		BgL_bgl_string2594za700za7za7_2861za7, "_make-s16vector", 15);
	      BGL_DEFINE_STRING(BGl_string2595z00zz__srfi4z00,
		BgL_bgl_string2595za700za7za7_2862za7, "bint16", 6);
	      BGL_DEFINE_STRING(BGl_string2596z00zz__srfi4z00,
		BgL_bgl_string2596za700za7za7_2863za7, "_make-u16vector", 15);
	      BGL_DEFINE_STRING(BGl_string2597z00zz__srfi4z00,
		BgL_bgl_string2597za700za7za7_2864za7, "buint16", 7);
	     
		DEFINE_EXPORT_BGL_PROCEDURE(BGl_u16vectorzd2copyz12zd2envz12zz__srfi4z00,
		BgL_bgl__u16vectorza7d2cop2865za7, opt_generic_entry,
		BGl__u16vectorzd2copyz12zc0zz__srfi4z00, BFALSE, -1);
	      BGL_DEFINE_STRING(BGl_string2598z00zz__srfi4z00,
		BgL_bgl_string2598za700za7za7_2866za7, "_make-s32vector", 15);
	      BGL_DEFINE_STRING(BGl_string2599z00zz__srfi4z00,
		BgL_bgl_string2599za700za7za7_2867za7, "bint32", 6);
	      DEFINE_EXPORT_BGL_PROCEDURE(BGl_u64vectorzd2lengthzd2envz00zz__srfi4z00,
		BgL_bgl_za762u64vectorza7d2l2868z00,
		BGl_z62u64vectorzd2lengthzb0zz__srfi4z00, 0L, BUNSPEC, 1);

/* contant bindings */
	static void bgl_constant_bindings()
	{
		BGL_BIND_PROCEDURE(BGl_u64vectorzd2lengthzd2envz00zz__srfi4z00,
			BgL_bgl_za762u64vectorza7d2l2868z00);
		BGL_BIND_STRING(BGl_string2599z00zz__srfi4z00,
			BgL_bgl_string2599za700za7za7_2867za7);
		BGL_BIND_STRING(BGl_string2598z00zz__srfi4z00,
			BgL_bgl_string2598za700za7za7_2866za7);
		BGL_BIND_PROCEDURE(BGl_u16vectorzd2copyz12zd2envz12zz__srfi4z00,
			BgL_bgl__u16vectorza7d2cop2865za7);
		BGL_BIND_STRING(BGl_string2597z00zz__srfi4z00,
			BgL_bgl_string2597za700za7za7_2864za7);
		BGL_BIND_STRING(BGl_string2596z00zz__srfi4z00,
			BgL_bgl_string2596za700za7za7_2863za7);
		BGL_BIND_STRING(BGl_string2595z00zz__srfi4z00,
			BgL_bgl_string2595za700za7za7_2862za7);
		BGL_BIND_STRING(BGl_string2594z00zz__srfi4z00,
			BgL_bgl_string2594za700za7za7_2861za7);
		BGL_BIND_STRING(BGl_string2593z00zz__srfi4z00,
			BgL_bgl_string2593za700za7za7_2860za7);
		BGL_BIND_STRING(BGl_string2592z00zz__srfi4z00,
			BgL_bgl_string2592za700za7za7_2859za7);
		BGL_BIND_STRING(BGl_string2591z00zz__srfi4z00,
			BgL_bgl_string2591za700za7za7_2858za7);
		BGL_BIND_STRING(BGl_string2590z00zz__srfi4z00,
			BgL_bgl_string2590za700za7za7_2857za7);
		BGL_BIND_PROCEDURE(BGl_listzd2ze3u8vectorzd2envze3zz__srfi4z00,
			BgL_bgl_za762listza7d2za7e3u8v2856za7);
		BGL_BIND_PROCEDURE(BGl_f64vectorzd2envzd2zz__srfi4z00,
			BgL_bgl_za762f64vectorza762za72855za7);
		BGL_BIND_STRING(BGl_string2589z00zz__srfi4z00,
			BgL_bgl_string2589za700za7za7_2854za7);
		BGL_BIND_STRING(BGl_string2588z00zz__srfi4z00,
			BgL_bgl_string2588za700za7za7_2853za7);
		BGL_BIND_STRING(BGl_string2587z00zz__srfi4z00,
			BgL_bgl_string2587za700za7za7_2852za7);
		BGL_BIND_PROCEDURE(BGl_makezd2s32vectorzd2envz00zz__srfi4z00,
			BgL_bgl__makeza7d2s32vecto2851za7);
		BGL_BIND_STRING(BGl_string2586z00zz__srfi4z00,
			BgL_bgl_string2586za700za7za7_2850za7);
		BGL_BIND_STRING(BGl_string2585z00zz__srfi4z00,
			BgL_bgl_string2585za700za7za7_2849za7);
		BGL_BIND_STRING(BGl_string2584z00zz__srfi4z00,
			BgL_bgl_string2584za700za7za7_2848za7);
		BGL_BIND_STRING(BGl_string2583z00zz__srfi4z00,
			BgL_bgl_string2583za700za7za7_2847za7);
		BGL_BIND_STRING(BGl_string2664z00zz__srfi4z00,
			BgL_bgl_string2664za700za7za7_2846za7);
		BGL_BIND_PROCEDURE(BGl_listzd2ze3s32vectorzd2envze3zz__srfi4z00,
			BgL_bgl_za762listza7d2za7e3s322845za7);
		BGL_BIND_STRING(BGl_string2582z00zz__srfi4z00,
			BgL_bgl_string2582za700za7za7_2844za7);
		BGL_BIND_STRING(BGl_string2663z00zz__srfi4z00,
			BgL_bgl_string2663za700za7za7_2843za7);
		BGL_BIND_STRING(BGl_string2581z00zz__srfi4z00,
			BgL_bgl_string2581za700za7za7_2842za7);
		BGL_BIND_STRING(BGl_string2662z00zz__srfi4z00,
			BgL_bgl_string2662za700za7za7_2841za7);
		BGL_BIND_STRING(BGl_string2580z00zz__srfi4z00,
			BgL_bgl_string2580za700za7za7_2840za7);
		BGL_BIND_STRING(BGl_string2661z00zz__srfi4z00,
			BgL_bgl_string2661za700za7za7_2839za7);
		BGL_BIND_PROCEDURE(BGl_s64vectorzf3zd2envz21zz__srfi4z00,
			BgL_bgl_za762s64vectorza7f3za72838za7);
		BGL_BIND_STRING(BGl_string2660z00zz__srfi4z00,
			BgL_bgl_string2660za700za7za7_2837za7);
		BGL_BIND_PROCEDURE(BGl_u32vectorzd2envzd2zz__srfi4z00,
			BgL_bgl_za762u32vectorza762za72836za7);
		BGL_BIND_PROCEDURE(BGl_u32vectorzf3zd2envz21zz__srfi4z00,
			BgL_bgl_za762u32vectorza7f3za72835za7);
		BGL_BIND_PROCEDURE(BGl_f64vectorzd2ze3listzd2envze3zz__srfi4z00,
			BgL_bgl_za762f64vectorza7d2za72834za7);
		BGL_BIND_PROCEDURE(BGl_homogeneouszd2vectorzd2infozd2envzd2zz__srfi4z00,
			BgL_bgl_za762homogeneousza7d2833z00);
		BGL_BIND_PROCEDURE(BGl_u8vectorzd2envzd2zz__srfi4z00,
			BgL_bgl_za762u8vectorza762za7za72832z00);
		BGL_BIND_STRING(BGl_string2579z00zz__srfi4z00,
			BgL_bgl_string2579za700za7za7_2831za7);
		BGL_BIND_STRING(BGl_string2578z00zz__srfi4z00,
			BgL_bgl_string2578za700za7za7_2830za7);
		BGL_BIND_STRING(BGl_string2659z00zz__srfi4z00,
			BgL_bgl_string2659za700za7za7_2829za7);
		BGL_BIND_STRING(BGl_string2577z00zz__srfi4z00,
			BgL_bgl_string2577za700za7za7_2828za7);
		BGL_BIND_STRING(BGl_string2658z00zz__srfi4z00,
			BgL_bgl_string2658za700za7za7_2827za7);
		BGL_BIND_STRING(BGl_string2576z00zz__srfi4z00,
			BgL_bgl_string2576za700za7za7_2826za7);
		BGL_BIND_STRING(BGl_string2657z00zz__srfi4z00,
			BgL_bgl_string2657za700za7za7_2825za7);
		BGL_BIND_PROCEDURE(BGl_s32vectorzd2copyz12zd2envz12zz__srfi4z00,
			BgL_bgl__s32vectorza7d2cop2824za7);
		BGL_BIND_STRING(BGl_string2575z00zz__srfi4z00,
			BgL_bgl_string2575za700za7za7_2823za7);
		BGL_BIND_STRING(BGl_string2656z00zz__srfi4z00,
			BgL_bgl_string2656za700za7za7_2822za7);
		BGL_BIND_STRING(BGl_string2574z00zz__srfi4z00,
			BgL_bgl_string2574za700za7za7_2821za7);
		BGL_BIND_STRING(BGl_string2655z00zz__srfi4z00,
			BgL_bgl_string2655za700za7za7_2820za7);
		BGL_BIND_STRING(BGl_string2573z00zz__srfi4z00,
			BgL_bgl_string2573za700za7za7_2819za7);
		BGL_BIND_STRING(BGl_string2654z00zz__srfi4z00,
			BgL_bgl_string2654za700za7za7_2818za7);
		BGL_BIND_STRING(BGl_string2572z00zz__srfi4z00,
			BgL_bgl_string2572za700za7za7_2817za7);
		BGL_BIND_STRING(BGl_string2653z00zz__srfi4z00,
			BgL_bgl_string2653za700za7za7_2816za7);
		BGL_BIND_STRING(BGl_string2571z00zz__srfi4z00,
			BgL_bgl_string2571za700za7za7_2815za7);
		BGL_BIND_STRING(BGl_string2652z00zz__srfi4z00,
			BgL_bgl_string2652za700za7za7_2814za7);
		BGL_BIND_STRING(BGl_string2570z00zz__srfi4z00,
			BgL_bgl_string2570za700za7za7_2813za7);
		BGL_BIND_STRING(BGl_string2651z00zz__srfi4z00,
			BgL_bgl_string2651za700za7za7_2812za7);
		BGL_BIND_STRING(BGl_string2650z00zz__srfi4z00,
			BgL_bgl_string2650za700za7za7_2811za7);
		BGL_BIND_PROCEDURE(BGl_u64vectorzd2ze3listzd2envze3zz__srfi4z00,
			BgL_bgl_za762u64vectorza7d2za72810za7);
		BGL_BIND_STRING(BGl_string2569z00zz__srfi4z00,
			BgL_bgl_string2569za700za7za7_2809za7);
		BGL_BIND_STRING(BGl_string2568z00zz__srfi4z00,
			BgL_bgl_string2568za700za7za7_2808za7);
		BGL_BIND_STRING(BGl_string2649z00zz__srfi4z00,
			BgL_bgl_string2649za700za7za7_2807za7);
		BGL_BIND_STRING(BGl_string2567z00zz__srfi4z00,
			BgL_bgl_string2567za700za7za7_2806za7);
		BGL_BIND_STRING(BGl_string2648z00zz__srfi4z00,
			BgL_bgl_string2648za700za7za7_2805za7);
		BGL_BIND_STRING(BGl_string2566z00zz__srfi4z00,
			BgL_bgl_string2566za700za7za7_2804za7);
		BGL_BIND_STRING(BGl_string2647z00zz__srfi4z00,
			BgL_bgl_string2647za700za7za7_2803za7);
		BGL_BIND_STRING(BGl_string2565z00zz__srfi4z00,
			BgL_bgl_string2565za700za7za7_2802za7);
		BGL_BIND_STRING(BGl_string2646z00zz__srfi4z00,
			BgL_bgl_string2646za700za7za7_2801za7);
		BGL_BIND_STRING(BGl_string2564z00zz__srfi4z00,
			BgL_bgl_string2564za700za7za7_2800za7);
		BGL_BIND_STRING(BGl_string2645z00zz__srfi4z00,
			BgL_bgl_string2645za700za7za7_2799za7);
		BGL_BIND_STRING(BGl_string2563z00zz__srfi4z00,
			BgL_bgl_string2563za700za7za7_2798za7);
		BGL_BIND_STRING(BGl_string2644z00zz__srfi4z00,
			BgL_bgl_string2644za700za7za7_2797za7);
		BGL_BIND_STRING(BGl_string2643z00zz__srfi4z00,
			BgL_bgl_string2643za700za7za7_2796za7);
		BGL_BIND_PROCEDURE(BGl_u8vectorzd2lengthzd2envz00zz__srfi4z00,
			BgL_bgl_za762u8vectorza7d2le2795z00);
		BGL_BIND_STRING(BGl_string2561z00zz__srfi4z00,
			BgL_bgl_string2561za700za7za7_2794za7);
		BGL_BIND_STRING(BGl_string2642z00zz__srfi4z00,
			BgL_bgl_string2642za700za7za7_2793za7);
		BGL_BIND_STRING(BGl_string2641z00zz__srfi4z00,
			BgL_bgl_string2641za700za7za7_2792za7);
		BGL_BIND_STRING(BGl_string2640z00zz__srfi4z00,
			BgL_bgl_string2640za700za7za7_2791za7);
		BGL_BIND_PROCEDURE(BGl_makezd2u64vectorzd2envz00zz__srfi4z00,
			BgL_bgl__makeza7d2u64vecto2790za7);
		BGL_BIND_PROCEDURE(BGl_listzd2ze3u64vectorzd2envze3zz__srfi4z00,
			BgL_bgl_za762listza7d2za7e3u642789za7);
		BGL_BIND_PROCEDURE(BGl_s16vectorzd2copyz12zd2envz12zz__srfi4z00,
			BgL_bgl__s16vectorza7d2cop2788za7);
		BGL_BIND_STRING(BGl_string2559z00zz__srfi4z00,
			BgL_bgl_string2559za700za7za7_2787za7);
		BGL_BIND_STRING(BGl_string2639z00zz__srfi4z00,
			BgL_bgl_string2639za700za7za7_2786za7);
		BGL_BIND_STRING(BGl_string2557z00zz__srfi4z00,
			BgL_bgl_string2557za700za7za7_2785za7);
		BGL_BIND_STRING(BGl_string2638z00zz__srfi4z00,
			BgL_bgl_string2638za700za7za7_2784za7);
		BGL_BIND_STRING(BGl_string2637z00zz__srfi4z00,
			BgL_bgl_string2637za700za7za7_2783za7);
		BGL_BIND_STRING(BGl_string2555z00zz__srfi4z00,
			BgL_bgl_string2555za700za7za7_2782za7);
		BGL_BIND_STRING(BGl_string2636z00zz__srfi4z00,
			BgL_bgl_string2636za700za7za7_2781za7);
		BGL_BIND_STRING(BGl_string2635z00zz__srfi4z00,
			BgL_bgl_string2635za700za7za7_2780za7);
		BGL_BIND_PROCEDURE(BGl_s64vectorzd2envzd2zz__srfi4z00,
			BgL_bgl_za762s64vectorza762za72779za7);
		BGL_BIND_STRING(BGl_string2553z00zz__srfi4z00,
			BgL_bgl_string2553za700za7za7_2778za7);
		BGL_BIND_STRING(BGl_string2634z00zz__srfi4z00,
			BgL_bgl_string2634za700za7za7_2777za7);
		BGL_BIND_STRING(BGl_string2633z00zz__srfi4z00,
			BgL_bgl_string2633za700za7za7_2776za7);
		BGL_BIND_STRING(BGl_string2551z00zz__srfi4z00,
			BgL_bgl_string2551za700za7za7_2775za7);
		BGL_BIND_STRING(BGl_string2632z00zz__srfi4z00,
			BgL_bgl_string2632za700za7za7_2774za7);
		BGL_BIND_STRING(BGl_string2631z00zz__srfi4z00,
			BgL_bgl_string2631za700za7za7_2773za7);
		BGL_BIND_STRING(BGl_string2630z00zz__srfi4z00,
			BgL_bgl_string2630za700za7za7_2772za7);
		BGL_BIND_PROCEDURE(BGl_makezd2u8vectorzd2envz00zz__srfi4z00,
			BgL_bgl__makeza7d2u8vector2771za7);
		BGL_BIND_PROCEDURE(BGl_u8vectorzd2ze3listzd2envze3zz__srfi4z00,
			BgL_bgl_za762u8vectorza7d2za7e2770za7);
		BGL_BIND_PROCEDURE(BGl_f32vectorzd2ze3listzd2envze3zz__srfi4z00,
			BgL_bgl_za762f32vectorza7d2za72769za7);
		BGL_BIND_PROCEDURE(BGl_f32vectorzf3zd2envz21zz__srfi4z00,
			BgL_bgl_za762f32vectorza7f3za72768za7);
		BGL_BIND_STRING(BGl_string2549z00zz__srfi4z00,
			BgL_bgl_string2549za700za7za7_2767za7);
		BGL_BIND_STRING(BGl_string2629z00zz__srfi4z00,
			BgL_bgl_string2629za700za7za7_2766za7);
		BGL_BIND_STRING(BGl_string2547z00zz__srfi4z00,
			BgL_bgl_string2547za700za7za7_2765za7);
		BGL_BIND_STRING(BGl_string2628z00zz__srfi4z00,
			BgL_bgl_string2628za700za7za7_2764za7);
		BGL_BIND_STRING(BGl_string2627z00zz__srfi4z00,
			BgL_bgl_string2627za700za7za7_2763za7);
		BGL_BIND_STRING(BGl_string2545z00zz__srfi4z00,
			BgL_bgl_string2545za700za7za7_2762za7);
		BGL_BIND_STRING(BGl_string2626z00zz__srfi4z00,
			BgL_bgl_string2626za700za7za7_2761za7);
		BGL_BIND_STRING(BGl_string2625z00zz__srfi4z00,
			BgL_bgl_string2625za700za7za7_2760za7);
		BGL_BIND_STRING(BGl_string2624z00zz__srfi4z00,
			BgL_bgl_string2624za700za7za7_2759za7);
		BGL_BIND_STRING(BGl_string2623z00zz__srfi4z00,
			BgL_bgl_string2623za700za7za7_2758za7);
		BGL_BIND_PROCEDURE(BGl_f32vectorzd2lengthzd2envz00zz__srfi4z00,
			BgL_bgl_za762f32vectorza7d2l2757z00);
		BGL_BIND_STRING(BGl_string2622z00zz__srfi4z00,
			BgL_bgl_string2622za700za7za7_2756za7);
		BGL_BIND_STRING(BGl_string2621z00zz__srfi4z00,
			BgL_bgl_string2621za700za7za7_2755za7);
		BGL_BIND_STRING(BGl_string2620z00zz__srfi4z00,
			BgL_bgl_string2620za700za7za7_2754za7);
		BGL_BIND_PROCEDURE(BGl_s64vectorzd2lengthzd2envz00zz__srfi4z00,
			BgL_bgl_za762s64vectorza7d2l2753z00);
		BGL_BIND_PROCEDURE(BGl_f32vectorzd2envzd2zz__srfi4z00,
			BgL_bgl_za762f32vectorza762za72752za7);
		BGL_BIND_PROCEDURE(BGl_u32vectorzd2refzd2envz00zz__srfi4z00,
			BgL_bgl_za762u32vectorza7d2r2751z00);
		BGL_BIND_PROCEDURE(BGl_s32vectorzd2refzd2envz00zz__srfi4z00,
			BgL_bgl_za762s32vectorza7d2r2750z00);
		BGL_BIND_PROCEDURE(BGl_u32vectorzd2ze3listzd2envze3zz__srfi4z00,
			BgL_bgl_za762u32vectorza7d2za72749za7);
		BGL_BIND_STRING(BGl_string2619z00zz__srfi4z00,
			BgL_bgl_string2619za700za7za7_2748za7);
		BGL_BIND_STRING(BGl_string2618z00zz__srfi4z00,
			BgL_bgl_string2618za700za7za7_2747za7);
		BGL_BIND_STRING(BGl_string2617z00zz__srfi4z00,
			BgL_bgl_string2617za700za7za7_2746za7);
		BGL_BIND_STRING(BGl_string2616z00zz__srfi4z00,
			BgL_bgl_string2616za700za7za7_2745za7);
		BGL_BIND_STRING(BGl_string2615z00zz__srfi4z00,
			BgL_bgl_string2615za700za7za7_2744za7);
		BGL_BIND_STRING(BGl_string2614z00zz__srfi4z00,
			BgL_bgl_string2614za700za7za7_2743za7);
		BGL_BIND_STRING(BGl_string2613z00zz__srfi4z00,
			BgL_bgl_string2613za700za7za7_2742za7);
		BGL_BIND_STRING(BGl_string2612z00zz__srfi4z00,
			BgL_bgl_string2612za700za7za7_2741za7);
		BGL_BIND_STRING(BGl_string2611z00zz__srfi4z00,
			BgL_bgl_string2611za700za7za7_2740za7);
		BGL_BIND_STRING(BGl_string2610z00zz__srfi4z00,
			BgL_bgl_string2610za700za7za7_2739za7);
		BGL_BIND_PROCEDURE(BGl_f32vectorzd2refzd2envz00zz__srfi4z00,
			BgL_bgl_za762f32vectorza7d2r2738z00);
		BGL_BIND_PROCEDURE(BGl_s8vectorzd2ze3listzd2envze3zz__srfi4z00,
			BgL_bgl_za762s8vectorza7d2za7e2737za7);
		BGL_BIND_PROCEDURE(BGl_listzd2ze3s8vectorzd2envze3zz__srfi4z00,
			BgL_bgl_za762listza7d2za7e3s8v2736za7);
		BGL_BIND_PROCEDURE(BGl_s8vectorzf3zd2envz21zz__srfi4z00,
			BgL_bgl_za762s8vectorza7f3za792735za7);
		BGL_BIND_PROCEDURE(BGl_makezd2u16vectorzd2envz00zz__srfi4z00,
			BgL_bgl__makeza7d2u16vecto2734za7);
		BGL_BIND_PROCEDURE(BGl_f32vectorzd2setz12zd2envz12zz__srfi4z00,
			BgL_bgl_za762f32vectorza7d2s2733z00);
		BGL_BIND_PROCEDURE(BGl_s64vectorzd2ze3listzd2envze3zz__srfi4z00,
			BgL_bgl_za762s64vectorza7d2za72732za7);
		BGL_BIND_PROCEDURE(BGl_listzd2ze3u16vectorzd2envze3zz__srfi4z00,
			BgL_bgl_za762listza7d2za7e3u162731za7);
		BGL_BIND_STRING(BGl_string2609z00zz__srfi4z00,
			BgL_bgl_string2609za700za7za7_2730za7);
		BGL_BIND_PROCEDURE(BGl_u64vectorzf3zd2envz21zz__srfi4z00,
			BgL_bgl_za762u64vectorza7f3za72729za7);
		BGL_BIND_STRING(BGl_string2608z00zz__srfi4z00,
			BgL_bgl_string2608za700za7za7_2728za7);
		BGL_BIND_STRING(BGl_string2607z00zz__srfi4z00,
			BgL_bgl_string2607za700za7za7_2727za7);
		BGL_BIND_STRING(BGl_string2606z00zz__srfi4z00,
			BgL_bgl_string2606za700za7za7_2726za7);
		BGL_BIND_STRING(BGl_string2605z00zz__srfi4z00,
			BgL_bgl_string2605za700za7za7_2725za7);
		BGL_BIND_PROCEDURE(BGl_s8vectorzd2lengthzd2envz00zz__srfi4z00,
			BgL_bgl_za762s8vectorza7d2le2724z00);
		BGL_BIND_PROCEDURE(BGl_s16vectorzd2envzd2zz__srfi4z00,
			BgL_bgl_za762s16vectorza762za72723za7);
		BGL_BIND_STRING(BGl_string2604z00zz__srfi4z00,
			BgL_bgl_string2604za700za7za7_2722za7);
		BGL_BIND_PROCEDURE(BGl_s16vectorzf3zd2envz21zz__srfi4z00,
			BgL_bgl_za762s16vectorza7f3za72721za7);
		BGL_BIND_STRING(BGl_string2603z00zz__srfi4z00,
			BgL_bgl_string2603za700za7za7_2720za7);
		BGL_BIND_STRING(BGl_string2602z00zz__srfi4z00,
			BgL_bgl_string2602za700za7za7_2719za7);
		BGL_BIND_STRING(BGl_string2601z00zz__srfi4z00,
			BgL_bgl_string2601za700za7za7_2718za7);
		BGL_BIND_STRING(BGl_string2600z00zz__srfi4z00,
			BgL_bgl_string2600za700za7za7_2717za7);
		BGL_BIND_PROCEDURE(BGl_u32vectorzd2setz12zd2envz12zz__srfi4z00,
			BgL_bgl_za762u32vectorza7d2s2716z00);
		BGL_BIND_PROCEDURE(BGl_u16vectorzd2lengthzd2envz00zz__srfi4z00,
			BgL_bgl_za762u16vectorza7d2l2715z00);
		BGL_BIND_PROCEDURE(BGl_s8vectorzd2envzd2zz__srfi4z00,
			BgL_bgl_za762s8vectorza762za7za72714z00);
		BGL_BIND_PROCEDURE(BGl_u32vectorzd2lengthzd2envz00zz__srfi4z00,
			BgL_bgl_za762u32vectorza7d2l2713z00);
		BGL_BIND_PROCEDURE(BGl_u16vectorzd2ze3listzd2envze3zz__srfi4z00,
			BgL_bgl_za762u16vectorza7d2za72712za7);
		BGL_BIND_PROCEDURE(BGl_makezd2f64vectorzd2envz00zz__srfi4z00,
			BgL_bgl__makeza7d2f64vecto2711za7);
		BGL_BIND_PROCEDURE(BGl_listzd2ze3f64vectorzd2envze3zz__srfi4z00,
			BgL_bgl_za762listza7d2za7e3f642710za7);
		BGL_BIND_PROCEDURE(BGl_s8vectorzd2refzd2envz00zz__srfi4z00,
			BgL_bgl_za762s8vectorza7d2re2709z00);
		BGL_BIND_PROCEDURE(BGl_f64vectorzd2setz12zd2envz12zz__srfi4z00,
			BgL_bgl_za762f64vectorza7d2s2708z00);
		BGL_BIND_PROCEDURE(BGl_u8vectorzd2setz12zd2envz12zz__srfi4z00,
			BgL_bgl_za762u8vectorza7d2se2707z00);
		BGL_BIND_PROCEDURE(BGl_s8vectorzd2setz12zd2envz12zz__srfi4z00,
			BgL_bgl_za762s8vectorza7d2se2706z00);
		BGL_BIND_PROCEDURE(BGl_makezd2u32vectorzd2envz00zz__srfi4z00,
			BgL_bgl__makeza7d2u32vecto2705za7);
		BGL_BIND_PROCEDURE(BGl_listzd2ze3u32vectorzd2envze3zz__srfi4z00,
			BgL_bgl_za762listza7d2za7e3u322704za7);
		BGL_BIND_PROCEDURE(BGl_u64vectorzd2setz12zd2envz12zz__srfi4z00,
			BgL_bgl_za762u64vectorza7d2s2703z00);
		BGL_BIND_PROCEDURE(BGl_f64vectorzd2copyz12zd2envz12zz__srfi4z00,
			BgL_bgl__f64vectorza7d2cop2702za7);
		BGL_BIND_PROCEDURE(BGl_s32vectorzd2envzd2zz__srfi4z00,
			BgL_bgl_za762s32vectorza762za72701za7);
		BGL_BIND_PROCEDURE(BGl_s32vectorzd2setz12zd2envz12zz__srfi4z00,
			BgL_bgl_za762s32vectorza7d2s2700z00);
		BGL_BIND_PROCEDURE(BGl_s32vectorzd2ze3listzd2envze3zz__srfi4z00,
			BgL_bgl_za762s32vectorza7d2za72699za7);
		BGL_BIND_PROCEDURE(BGl_u8vectorzd2refzd2envz00zz__srfi4z00,
			BgL_bgl_za762u8vectorza7d2re2698z00);
		BGL_BIND_PROCEDURE(BGl_makezd2s8vectorzd2envz00zz__srfi4z00,
			BgL_bgl__makeza7d2s8vector2697za7);
		BGL_BIND_PROCEDURE(BGl_f64vectorzf3zd2envz21zz__srfi4z00,
			BgL_bgl_za762f64vectorza7f3za72696za7);
		BGL_BIND_PROCEDURE(BGl_u64vectorzd2copyz12zd2envz12zz__srfi4z00,
			BgL_bgl__u64vectorza7d2cop2695za7);
		BGL_BIND_PROCEDURE(BGl_s32vectorzf3zd2envz21zz__srfi4z00,
			BgL_bgl_za762s32vectorza7f3za72694za7);
		BGL_BIND_PROCEDURE(BGl_s64vectorzd2setz12zd2envz12zz__srfi4z00,
			BgL_bgl_za762s64vectorza7d2s2693z00);
		BGL_BIND_PROCEDURE(BGl_u16vectorzd2setz12zd2envz12zz__srfi4z00,
			BgL_bgl_za762u16vectorza7d2s2692z00);
		BGL_BIND_PROCEDURE(BGl_makezd2s64vectorzd2envz00zz__srfi4z00,
			BgL_bgl__makeza7d2s64vecto2691za7);
		BGL_BIND_PROCEDURE(BGl_u16vectorzd2refzd2envz00zz__srfi4z00,
			BgL_bgl_za762u16vectorza7d2r2690z00);
		BGL_BIND_PROCEDURE(BGl_s16vectorzd2refzd2envz00zz__srfi4z00,
			BgL_bgl_za762s16vectorza7d2r2689z00);
		BGL_BIND_PROCEDURE(BGl_listzd2ze3s64vectorzd2envze3zz__srfi4z00,
			BgL_bgl_za762listza7d2za7e3s642688za7);
		BGL_BIND_PROCEDURE(BGl_s16vectorzd2ze3listzd2envze3zz__srfi4z00,
			BgL_bgl_za762s16vectorza7d2za72687za7);
		BGL_BIND_PROCEDURE(BGl_u64vectorzd2envzd2zz__srfi4z00,
			BgL_bgl_za762u64vectorza762za72686za7);
		BGL_BIND_PROCEDURE(BGl_u8vectorzd2copyz12zd2envz12zz__srfi4z00,
			BgL_bgl__u8vectorza7d2copy2685za7);
		BGL_BIND_PROCEDURE(BGl_f32vectorzd2copyz12zd2envz12zz__srfi4z00,
			BgL_bgl__f32vectorza7d2cop2684za7);
		BGL_BIND_PROCEDURE(BGl_u64vectorzd2refzd2envz00zz__srfi4z00,
			BgL_bgl_za762u64vectorza7d2r2683z00);
		BGL_BIND_PROCEDURE(BGl_s64vectorzd2refzd2envz00zz__srfi4z00,
			BgL_bgl_za762s64vectorza7d2r2682z00);
		BGL_BIND_PROCEDURE(BGl_f64vectorzd2lengthzd2envz00zz__srfi4z00,
			BgL_bgl_za762f64vectorza7d2l2681z00);
		BGL_BIND_PROCEDURE(BGl_u16vectorzf3zd2envz21zz__srfi4z00,
			BgL_bgl_za762u16vectorza7f3za72680za7);
		BGL_BIND_PROCEDURE(BGl_f64vectorzd2refzd2envz00zz__srfi4z00,
			BgL_bgl_za762f64vectorza7d2r2679z00);
		BGL_BIND_PROCEDURE(BGl_makezd2f32vectorzd2envz00zz__srfi4z00,
			BgL_bgl__makeza7d2f32vecto2678za7);
		BGL_BIND_PROCEDURE(BGl_s16vectorzd2setz12zd2envz12zz__srfi4z00,
			BgL_bgl_za762s16vectorza7d2s2677z00);
		BGL_BIND_PROCEDURE(BGl_listzd2ze3f32vectorzd2envze3zz__srfi4z00,
			BgL_bgl_za762listza7d2za7e3f322676za7);
		BGL_BIND_PROCEDURE(BGl_s16vectorzd2lengthzd2envz00zz__srfi4z00,
			BgL_bgl_za762s16vectorza7d2l2675z00);
		BGL_BIND_PROCEDURE(BGl_s32vectorzd2lengthzd2envz00zz__srfi4z00,
			BgL_bgl_za762s32vectorza7d2l2674z00);
		BGL_BIND_PROCEDURE(BGl_u32vectorzd2copyz12zd2envz12zz__srfi4z00,
			BgL_bgl__u32vectorza7d2cop2673za7);
		BGL_BIND_PROCEDURE(BGl_hvectorzd2rangezd2errorzd2envzd2zz__srfi4z00,
			BgL_bgl_za762hvectorza7d2ran2672z00);
		BGL_BIND_PROCEDURE(BGl_s8vectorzd2copyz12zd2envz12zz__srfi4z00,
			BgL_bgl__s8vectorza7d2copy2671za7);
		BGL_BIND_PROCEDURE(BGl_u8vectorzf3zd2envz21zz__srfi4z00,
			BgL_bgl_za762u8vectorza7f3za792670za7);
		BGL_BIND_PROCEDURE(BGl_s64vectorzd2copyz12zd2envz12zz__srfi4z00,
			BgL_bgl__s64vectorza7d2cop2669za7);
		BGL_BIND_PROCEDURE(BGl_makezd2s16vectorzd2envz00zz__srfi4z00,
			BgL_bgl__makeza7d2s16vecto2668za7);
		BGL_BIND_PROCEDURE(BGl_listzd2ze3s16vectorzd2envze3zz__srfi4z00,
			BgL_bgl_za762listza7d2za7e3s162667za7);
		BGL_BIND_PROCEDURE(BGl_u16vectorzd2envzd2zz__srfi4z00,
			BgL_bgl_za762u16vectorza762za72666za7);
		BGL_BIND_PROCEDURE(BGl_homogeneouszd2vectorzf3zd2envzf3zz__srfi4z00,
			BgL_bgl_za762homogeneousza7d2665z00);
	}

/* 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_symbol2560z00zz__srfi4z00));
		ADD_ROOT((void *) (&BGl_symbol2562z00zz__srfi4z00));
		ADD_ROOT((void *) (&BGl_requirezd2initializa7ationz75zz__srfi4z00));
		ADD_ROOT((void *) (&BGl_symbol2544z00zz__srfi4z00));
		ADD_ROOT((void *) (&BGl_symbol2546z00zz__srfi4z00));
		ADD_ROOT((void *) (&BGl_symbol2548z00zz__srfi4z00));
		ADD_ROOT((void *) (&BGl_symbol2550z00zz__srfi4z00));
		ADD_ROOT((void *) (&BGl_symbol2552z00zz__srfi4z00));
		ADD_ROOT((void *) (&BGl_symbol2554z00zz__srfi4z00));
		ADD_ROOT((void *) (&BGl_symbol2556z00zz__srfi4z00));
		ADD_ROOT((void *) (&BGl_symbol2558z00zz__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_4088, char *BgL_fromz00_4089)
	{
		{
			if (CBOOL(BGl_requirezd2initializa7ationz75zz__srfi4z00))
				{
					BGl_requirezd2initializa7ationz75zz__srfi4z00 = BBOOL(((bool_t) 0));
					bgl_constant_bindings();
					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_symbol2544z00zz__srfi4z00 =
				bstring_to_symbol(BGl_string2545z00zz__srfi4z00);
			BGl_symbol2546z00zz__srfi4z00 =
				bstring_to_symbol(BGl_string2547z00zz__srfi4z00);
			BGl_symbol2548z00zz__srfi4z00 =
				bstring_to_symbol(BGl_string2549z00zz__srfi4z00);
			BGl_symbol2550z00zz__srfi4z00 =
				bstring_to_symbol(BGl_string2551z00zz__srfi4z00);
			BGl_symbol2552z00zz__srfi4z00 =
				bstring_to_symbol(BGl_string2553z00zz__srfi4z00);
			BGl_symbol2554z00zz__srfi4z00 =
				bstring_to_symbol(BGl_string2555z00zz__srfi4z00);
			BGl_symbol2556z00zz__srfi4z00 =
				bstring_to_symbol(BGl_string2557z00zz__srfi4z00);
			BGl_symbol2558z00zz__srfi4z00 =
				bstring_to_symbol(BGl_string2559z00zz__srfi4z00);
			BGl_symbol2560z00zz__srfi4z00 =
				bstring_to_symbol(BGl_string2561z00zz__srfi4z00);
			return (BGl_symbol2562z00zz__srfi4z00 =
				bstring_to_symbol(BGl_string2563z00zz__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_3220,
		obj_t BgL_xz00_3221)
	{
		{	/* Llib/srfi4.scm 569 */
			return BGl_homogeneouszd2vectorzf3z21zz__srfi4z00(BgL_xz00_3221);
		}

	}



/* 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_3222,
		obj_t BgL_xz00_3223)
	{
		{	/* Llib/srfi4.scm 570 */
			return BBOOL(BGl_s8vectorzf3zf3zz__srfi4z00(BgL_xz00_3223));
		}

	}



/* 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_3224,
		obj_t BgL_xz00_3225)
	{
		{	/* Llib/srfi4.scm 571 */
			return BBOOL(BGl_u8vectorzf3zf3zz__srfi4z00(BgL_xz00_3225));
		}

	}



/* 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_3226,
		obj_t BgL_xz00_3227)
	{
		{	/* Llib/srfi4.scm 572 */
			return BBOOL(BGl_s16vectorzf3zf3zz__srfi4z00(BgL_xz00_3227));
		}

	}



/* 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_3228,
		obj_t BgL_xz00_3229)
	{
		{	/* Llib/srfi4.scm 573 */
			return BBOOL(BGl_u16vectorzf3zf3zz__srfi4z00(BgL_xz00_3229));
		}

	}



/* 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_3230,
		obj_t BgL_xz00_3231)
	{
		{	/* Llib/srfi4.scm 574 */
			return BBOOL(BGl_s32vectorzf3zf3zz__srfi4z00(BgL_xz00_3231));
		}

	}



/* 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_3232,
		obj_t BgL_xz00_3233)
	{
		{	/* Llib/srfi4.scm 575 */
			return BBOOL(BGl_u32vectorzf3zf3zz__srfi4z00(BgL_xz00_3233));
		}

	}



/* 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_3234,
		obj_t BgL_xz00_3235)
	{
		{	/* Llib/srfi4.scm 576 */
			return BBOOL(BGl_s64vectorzf3zf3zz__srfi4z00(BgL_xz00_3235));
		}

	}



/* 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_3236,
		obj_t BgL_xz00_3237)
	{
		{	/* Llib/srfi4.scm 577 */
			return BBOOL(BGl_u64vectorzf3zf3zz__srfi4z00(BgL_xz00_3237));
		}

	}



/* 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_3238,
		obj_t BgL_xz00_3239)
	{
		{	/* Llib/srfi4.scm 578 */
			return BBOOL(BGl_f32vectorzf3zf3zz__srfi4z00(BgL_xz00_3239));
		}

	}



/* 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_3240,
		obj_t BgL_xz00_3241)
	{
		{	/* Llib/srfi4.scm 579 */
			return BBOOL(BGl_f64vectorzf3zf3zz__srfi4z00(BgL_xz00_3241));
		}

	}



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

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

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

								BgL_val0_1145z00_1348 = BGl_symbol2544z00zz__srfi4z00;
								{	/* Llib/srfi4.scm 590 */
									int BgL_tmpz00_4145;

									BgL_tmpz00_4145 = (int) (5L);
									BGL_MVALUES_NUMBER_SET(BgL_tmpz00_4145);
								}
								{	/* Llib/srfi4.scm 590 */
									obj_t BgL_auxz00_4150;
									int BgL_tmpz00_4148;

									BgL_auxz00_4150 = BINT(1L);
									BgL_tmpz00_4148 = (int) (1L);
									BGL_MVALUES_VAL_SET(BgL_tmpz00_4148, BgL_auxz00_4150);
								}
								{	/* Llib/srfi4.scm 590 */
									int BgL_tmpz00_4153;

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

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

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

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

								BgL_val0_1150z00_1353 = BGl_symbol2546z00zz__srfi4z00;
								{	/* Llib/srfi4.scm 592 */
									int BgL_tmpz00_4162;

									BgL_tmpz00_4162 = (int) (5L);
									BGL_MVALUES_NUMBER_SET(BgL_tmpz00_4162);
								}
								{	/* Llib/srfi4.scm 592 */
									obj_t BgL_auxz00_4167;
									int BgL_tmpz00_4165;

									BgL_auxz00_4167 = BINT(1L);
									BgL_tmpz00_4165 = (int) (1L);
									BGL_MVALUES_VAL_SET(BgL_tmpz00_4165, BgL_auxz00_4167);
								}
								{	/* Llib/srfi4.scm 592 */
									int BgL_tmpz00_4170;

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

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

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

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

								BgL_val0_1155z00_1358 = BGl_symbol2548z00zz__srfi4z00;
								{	/* Llib/srfi4.scm 594 */
									int BgL_tmpz00_4179;

									BgL_tmpz00_4179 = (int) (5L);
									BGL_MVALUES_NUMBER_SET(BgL_tmpz00_4179);
								}
								{	/* Llib/srfi4.scm 594 */
									obj_t BgL_auxz00_4184;
									int BgL_tmpz00_4182;

									BgL_auxz00_4184 = BINT(2L);
									BgL_tmpz00_4182 = (int) (1L);
									BGL_MVALUES_VAL_SET(BgL_tmpz00_4182, BgL_auxz00_4184);
								}
								{	/* Llib/srfi4.scm 594 */
									int BgL_tmpz00_4187;

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

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

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

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

								BgL_val0_1160z00_1363 = BGl_symbol2550z00zz__srfi4z00;
								{	/* Llib/srfi4.scm 596 */
									int BgL_tmpz00_4196;

									BgL_tmpz00_4196 = (int) (5L);
									BGL_MVALUES_NUMBER_SET(BgL_tmpz00_4196);
								}
								{	/* Llib/srfi4.scm 596 */
									obj_t BgL_auxz00_4201;
									int BgL_tmpz00_4199;

									BgL_auxz00_4201 = BINT(2L);
									BgL_tmpz00_4199 = (int) (1L);
									BGL_MVALUES_VAL_SET(BgL_tmpz00_4199, BgL_auxz00_4201);
								}
								{	/* Llib/srfi4.scm 596 */
									int BgL_tmpz00_4204;

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

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

									BgL_tmpz00_4210 = (int) (4L);
									BGL_MVALUES_VAL_SET(BgL_tmpz00_4210,
										BGl_zd3u16zd2envz01zz__r4_numbers_6_5_fixnumz00);
								}
								return BgL_val0_1160z00_1363;
							}
							break;
						case 4L:

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

								BgL_val0_1165z00_1368 = BGl_symbol2552z00zz__srfi4z00;
								{	/* Llib/srfi4.scm 598 */
									int BgL_tmpz00_4213;

									BgL_tmpz00_4213 = (int) (5L);
									BGL_MVALUES_NUMBER_SET(BgL_tmpz00_4213);
								}
								{	/* Llib/srfi4.scm 598 */
									obj_t BgL_auxz00_4218;
									int BgL_tmpz00_4216;

									BgL_auxz00_4218 = BINT(4L);
									BgL_tmpz00_4216 = (int) (1L);
									BGL_MVALUES_VAL_SET(BgL_tmpz00_4216, BgL_auxz00_4218);
								}
								{	/* Llib/srfi4.scm 598 */
									int BgL_tmpz00_4221;

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

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

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

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

								BgL_val0_1170z00_1373 = BGl_symbol2554z00zz__srfi4z00;
								{	/* Llib/srfi4.scm 600 */
									int BgL_tmpz00_4230;

									BgL_tmpz00_4230 = (int) (5L);
									BGL_MVALUES_NUMBER_SET(BgL_tmpz00_4230);
								}
								{	/* Llib/srfi4.scm 600 */
									obj_t BgL_auxz00_4235;
									int BgL_tmpz00_4233;

									BgL_auxz00_4235 = BINT(4L);
									BgL_tmpz00_4233 = (int) (1L);
									BGL_MVALUES_VAL_SET(BgL_tmpz00_4233, BgL_auxz00_4235);
								}
								{	/* Llib/srfi4.scm 600 */
									int BgL_tmpz00_4238;

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

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

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

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

								BgL_val0_1175z00_1378 = BGl_symbol2556z00zz__srfi4z00;
								{	/* Llib/srfi4.scm 602 */
									int BgL_tmpz00_4247;

									BgL_tmpz00_4247 = (int) (5L);
									BGL_MVALUES_NUMBER_SET(BgL_tmpz00_4247);
								}
								{	/* Llib/srfi4.scm 602 */
									obj_t BgL_auxz00_4252;
									int BgL_tmpz00_4250;

									BgL_auxz00_4252 = BINT(8L);
									BgL_tmpz00_4250 = (int) (1L);
									BGL_MVALUES_VAL_SET(BgL_tmpz00_4250, BgL_auxz00_4252);
								}
								{	/* Llib/srfi4.scm 602 */
									int BgL_tmpz00_4255;

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

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

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

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

								BgL_val0_1180z00_1383 = BGl_symbol2558z00zz__srfi4z00;
								{	/* Llib/srfi4.scm 604 */
									int BgL_tmpz00_4264;

									BgL_tmpz00_4264 = (int) (5L);
									BGL_MVALUES_NUMBER_SET(BgL_tmpz00_4264);
								}
								{	/* Llib/srfi4.scm 604 */
									obj_t BgL_auxz00_4269;
									int BgL_tmpz00_4267;

									BgL_auxz00_4269 = BINT(8L);
									BgL_tmpz00_4267 = (int) (1L);
									BGL_MVALUES_VAL_SET(BgL_tmpz00_4267, BgL_auxz00_4269);
								}
								{	/* Llib/srfi4.scm 604 */
									int BgL_tmpz00_4272;

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

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

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

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

								BgL_val0_1185z00_1388 = BGl_symbol2560z00zz__srfi4z00;
								{	/* Llib/srfi4.scm 606 */
									int BgL_tmpz00_4281;

									BgL_tmpz00_4281 = (int) (5L);
									BGL_MVALUES_NUMBER_SET(BgL_tmpz00_4281);
								}
								{	/* Llib/srfi4.scm 606 */
									obj_t BgL_auxz00_4286;
									int BgL_tmpz00_4284;

									BgL_auxz00_4286 = BINT(4L);
									BgL_tmpz00_4284 = (int) (1L);
									BGL_MVALUES_VAL_SET(BgL_tmpz00_4284, BgL_auxz00_4286);
								}
								{	/* Llib/srfi4.scm 606 */
									int BgL_tmpz00_4289;

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

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

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

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

								BgL_val0_1190z00_1393 = BGl_symbol2562z00zz__srfi4z00;
								{	/* Llib/srfi4.scm 608 */
									int BgL_tmpz00_4298;

									BgL_tmpz00_4298 = (int) (5L);
									BGL_MVALUES_NUMBER_SET(BgL_tmpz00_4298);
								}
								{	/* Llib/srfi4.scm 608 */
									obj_t BgL_auxz00_4303;
									int BgL_tmpz00_4301;

									BgL_auxz00_4303 = BINT(8L);
									BgL_tmpz00_4301 = (int) (1L);
									BGL_MVALUES_VAL_SET(BgL_tmpz00_4301, BgL_auxz00_4303);
								}
								{	/* Llib/srfi4.scm 608 */
									int BgL_tmpz00_4306;

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

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

									BgL_tmpz00_4312 = (int) (4L);
									BGL_MVALUES_VAL_SET(BgL_tmpz00_4312,
										BGl_zd3flzd2envz01zz__r4_numbers_6_5_flonumz00);
								}
								return BgL_val0_1190z00_1393;
							}
							break;
						default:
							{	/* Llib/srfi4.scm 611 */
								int BgL_arg1389z00_2315;

								BgL_arg1389z00_2315 = BGL_HVECTOR_IDENT(BgL_oz00_14);
								return
									BGl_errorz00zz__errorz00(BGl_string2564z00zz__srfi4z00,
									BGl_string2565z00zz__srfi4z00, BINT(BgL_arg1389z00_2315));
							}
						}
				}
			else
				{	/* Llib/srfi4.scm 585 */
					return
						BGl_bigloozd2typezd2errorz00zz__errorz00
						(BGl_string2564z00zz__srfi4z00, BGl_string2566z00zz__srfi4z00,
						BgL_oz00_14);
				}
		}

	}



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

	}



/* 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_3341,
		obj_t BgL_xz00_3342)
	{
		{	/* Llib/srfi4.scm 617 */
			{	/* Llib/srfi4.scm 617 */
				long BgL_tmpz00_4323;

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

					if (BGL_S8VECTORP(BgL_xz00_3342))
						{	/* Llib/srfi4.scm 617 */
							BgL_auxz00_4324 = BgL_xz00_3342;
						}
					else
						{
							obj_t BgL_auxz00_4327;

							BgL_auxz00_4327 =
								BGl_typezd2errorzd2zz__errorz00(BGl_string2567z00zz__srfi4z00,
								BINT(25371L), BGl_string2568z00zz__srfi4z00,
								BGl_string2569z00zz__srfi4z00, BgL_xz00_3342);
							FAILURE(BgL_auxz00_4327, BFALSE, BFALSE);
						}
					BgL_tmpz00_4323 =
						BGl_s8vectorzd2lengthzd2zz__srfi4z00(BgL_auxz00_4324);
				}
				return BINT(BgL_tmpz00_4323);
			}
		}

	}



/* 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_3343,
		obj_t BgL_xz00_3344)
	{
		{	/* Llib/srfi4.scm 618 */
			{	/* Llib/srfi4.scm 618 */
				long BgL_tmpz00_4334;

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

					if (BGL_U8VECTORP(BgL_xz00_3344))
						{	/* Llib/srfi4.scm 618 */
							BgL_auxz00_4335 = BgL_xz00_3344;
						}
					else
						{
							obj_t BgL_auxz00_4338;

							BgL_auxz00_4338 =
								BGl_typezd2errorzd2zz__errorz00(BGl_string2567z00zz__srfi4z00,
								BINT(25427L), BGl_string2570z00zz__srfi4z00,
								BGl_string2571z00zz__srfi4z00, BgL_xz00_3344);
							FAILURE(BgL_auxz00_4338, BFALSE, BFALSE);
						}
					BgL_tmpz00_4334 =
						BGl_u8vectorzd2lengthzd2zz__srfi4z00(BgL_auxz00_4335);
				}
				return BINT(BgL_tmpz00_4334);
			}
		}

	}



/* 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_3345,
		obj_t BgL_xz00_3346)
	{
		{	/* Llib/srfi4.scm 619 */
			{	/* Llib/srfi4.scm 619 */
				long BgL_tmpz00_4345;

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

					if (BGL_S16VECTORP(BgL_xz00_3346))
						{	/* Llib/srfi4.scm 619 */
							BgL_auxz00_4346 = BgL_xz00_3346;
						}
					else
						{
							obj_t BgL_auxz00_4349;

							BgL_auxz00_4349 =
								BGl_typezd2errorzd2zz__errorz00(BGl_string2567z00zz__srfi4z00,
								BINT(25484L), BGl_string2572z00zz__srfi4z00,
								BGl_string2573z00zz__srfi4z00, BgL_xz00_3346);
							FAILURE(BgL_auxz00_4349, BFALSE, BFALSE);
						}
					BgL_tmpz00_4345 =
						BGl_s16vectorzd2lengthzd2zz__srfi4z00(BgL_auxz00_4346);
				}
				return BINT(BgL_tmpz00_4345);
			}
		}

	}



/* 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_3347,
		obj_t BgL_xz00_3348)
	{
		{	/* Llib/srfi4.scm 620 */
			{	/* Llib/srfi4.scm 620 */
				long BgL_tmpz00_4356;

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

					if (BGL_U16VECTORP(BgL_xz00_3348))
						{	/* Llib/srfi4.scm 620 */
							BgL_auxz00_4357 = BgL_xz00_3348;
						}
					else
						{
							obj_t BgL_auxz00_4360;

							BgL_auxz00_4360 =
								BGl_typezd2errorzd2zz__errorz00(BGl_string2567z00zz__srfi4z00,
								BINT(25541L), BGl_string2574z00zz__srfi4z00,
								BGl_string2575z00zz__srfi4z00, BgL_xz00_3348);
							FAILURE(BgL_auxz00_4360, BFALSE, BFALSE);
						}
					BgL_tmpz00_4356 =
						BGl_u16vectorzd2lengthzd2zz__srfi4z00(BgL_auxz00_4357);
				}
				return BINT(BgL_tmpz00_4356);
			}
		}

	}



/* 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_3349,
		obj_t BgL_xz00_3350)
	{
		{	/* Llib/srfi4.scm 621 */
			{	/* Llib/srfi4.scm 621 */
				long BgL_tmpz00_4367;

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

					if (BGL_S32VECTORP(BgL_xz00_3350))
						{	/* Llib/srfi4.scm 621 */
							BgL_auxz00_4368 = BgL_xz00_3350;
						}
					else
						{
							obj_t BgL_auxz00_4371;

							BgL_auxz00_4371 =
								BGl_typezd2errorzd2zz__errorz00(BGl_string2567z00zz__srfi4z00,
								BINT(25598L), BGl_string2576z00zz__srfi4z00,
								BGl_string2577z00zz__srfi4z00, BgL_xz00_3350);
							FAILURE(BgL_auxz00_4371, BFALSE, BFALSE);
						}
					BgL_tmpz00_4367 =
						BGl_s32vectorzd2lengthzd2zz__srfi4z00(BgL_auxz00_4368);
				}
				return BINT(BgL_tmpz00_4367);
			}
		}

	}



/* 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_3351,
		obj_t BgL_xz00_3352)
	{
		{	/* Llib/srfi4.scm 622 */
			{	/* Llib/srfi4.scm 622 */
				long BgL_tmpz00_4378;

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

					if (BGL_U32VECTORP(BgL_xz00_3352))
						{	/* Llib/srfi4.scm 622 */
							BgL_auxz00_4379 = BgL_xz00_3352;
						}
					else
						{
							obj_t BgL_auxz00_4382;

							BgL_auxz00_4382 =
								BGl_typezd2errorzd2zz__errorz00(BGl_string2567z00zz__srfi4z00,
								BINT(25655L), BGl_string2578z00zz__srfi4z00,
								BGl_string2579z00zz__srfi4z00, BgL_xz00_3352);
							FAILURE(BgL_auxz00_4382, BFALSE, BFALSE);
						}
					BgL_tmpz00_4378 =
						BGl_u32vectorzd2lengthzd2zz__srfi4z00(BgL_auxz00_4379);
				}
				return BINT(BgL_tmpz00_4378);
			}
		}

	}



/* 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_3353,
		obj_t BgL_xz00_3354)
	{
		{	/* Llib/srfi4.scm 623 */
			{	/* Llib/srfi4.scm 623 */
				long BgL_tmpz00_4389;

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

					if (BGL_S64VECTORP(BgL_xz00_3354))
						{	/* Llib/srfi4.scm 623 */
							BgL_auxz00_4390 = BgL_xz00_3354;
						}
					else
						{
							obj_t BgL_auxz00_4393;

							BgL_auxz00_4393 =
								BGl_typezd2errorzd2zz__errorz00(BGl_string2567z00zz__srfi4z00,
								BINT(25712L), BGl_string2580z00zz__srfi4z00,
								BGl_string2581z00zz__srfi4z00, BgL_xz00_3354);
							FAILURE(BgL_auxz00_4393, BFALSE, BFALSE);
						}
					BgL_tmpz00_4389 =
						BGl_s64vectorzd2lengthzd2zz__srfi4z00(BgL_auxz00_4390);
				}
				return BINT(BgL_tmpz00_4389);
			}
		}

	}



/* 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_3355,
		obj_t BgL_xz00_3356)
	{
		{	/* Llib/srfi4.scm 624 */
			{	/* Llib/srfi4.scm 624 */
				long BgL_tmpz00_4400;

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

					if (BGL_U64VECTORP(BgL_xz00_3356))
						{	/* Llib/srfi4.scm 624 */
							BgL_auxz00_4401 = BgL_xz00_3356;
						}
					else
						{
							obj_t BgL_auxz00_4404;

							BgL_auxz00_4404 =
								BGl_typezd2errorzd2zz__errorz00(BGl_string2567z00zz__srfi4z00,
								BINT(25769L), BGl_string2582z00zz__srfi4z00,
								BGl_string2583z00zz__srfi4z00, BgL_xz00_3356);
							FAILURE(BgL_auxz00_4404, BFALSE, BFALSE);
						}
					BgL_tmpz00_4400 =
						BGl_u64vectorzd2lengthzd2zz__srfi4z00(BgL_auxz00_4401);
				}
				return BINT(BgL_tmpz00_4400);
			}
		}

	}



/* 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_3357,
		obj_t BgL_xz00_3358)
	{
		{	/* Llib/srfi4.scm 625 */
			{	/* Llib/srfi4.scm 625 */
				long BgL_tmpz00_4411;

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

					if (BGL_F32VECTORP(BgL_xz00_3358))
						{	/* Llib/srfi4.scm 625 */
							BgL_auxz00_4412 = BgL_xz00_3358;
						}
					else
						{
							obj_t BgL_auxz00_4415;

							BgL_auxz00_4415 =
								BGl_typezd2errorzd2zz__errorz00(BGl_string2567z00zz__srfi4z00,
								BINT(25826L), BGl_string2584z00zz__srfi4z00,
								BGl_string2585z00zz__srfi4z00, BgL_xz00_3358);
							FAILURE(BgL_auxz00_4415, BFALSE, BFALSE);
						}
					BgL_tmpz00_4411 =
						BGl_f32vectorzd2lengthzd2zz__srfi4z00(BgL_auxz00_4412);
				}
				return BINT(BgL_tmpz00_4411);
			}
		}

	}



/* 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_3359,
		obj_t BgL_xz00_3360)
	{
		{	/* Llib/srfi4.scm 626 */
			{	/* Llib/srfi4.scm 626 */
				long BgL_tmpz00_4422;

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

					if (BGL_F64VECTORP(BgL_xz00_3360))
						{	/* Llib/srfi4.scm 626 */
							BgL_auxz00_4423 = BgL_xz00_3360;
						}
					else
						{
							obj_t BgL_auxz00_4426;

							BgL_auxz00_4426 =
								BGl_typezd2errorzd2zz__errorz00(BGl_string2567z00zz__srfi4z00,
								BINT(25883L), BGl_string2586z00zz__srfi4z00,
								BGl_string2587z00zz__srfi4z00, BgL_xz00_3360);
							FAILURE(BgL_auxz00_4426, BFALSE, BFALSE);
						}
					BgL_tmpz00_4422 =
						BGl_f64vectorzd2lengthzd2zz__srfi4z00(BgL_auxz00_4423);
				}
				return BINT(BgL_tmpz00_4422);
			}
		}

	}



/* 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_3361,
		obj_t BgL_xz00_3362)
	{
		{	/* Llib/srfi4.scm 637 */
			return BGl_s8vectorz00zz__srfi4z00(BgL_xz00_3362);
		}

	}



/* 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_3363,
		obj_t BgL_xz00_3364)
	{
		{	/* Llib/srfi4.scm 637 */
			return BGl_u8vectorz00zz__srfi4z00(BgL_xz00_3364);
		}

	}



/* 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_3365,
		obj_t BgL_xz00_3366)
	{
		{	/* Llib/srfi4.scm 637 */
			return BGl_s16vectorz00zz__srfi4z00(BgL_xz00_3366);
		}

	}



/* 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_3367,
		obj_t BgL_xz00_3368)
	{
		{	/* Llib/srfi4.scm 637 */
			return BGl_u16vectorz00zz__srfi4z00(BgL_xz00_3368);
		}

	}



/* 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_3369,
		obj_t BgL_xz00_3370)
	{
		{	/* Llib/srfi4.scm 637 */
			return BGl_s32vectorz00zz__srfi4z00(BgL_xz00_3370);
		}

	}



/* 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_3371,
		obj_t BgL_xz00_3372)
	{
		{	/* Llib/srfi4.scm 637 */
			return BGl_u32vectorz00zz__srfi4z00(BgL_xz00_3372);
		}

	}



/* 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_3373,
		obj_t BgL_xz00_3374)
	{
		{	/* Llib/srfi4.scm 637 */
			return BGl_s64vectorz00zz__srfi4z00(BgL_xz00_3374);
		}

	}



/* 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_3375,
		obj_t BgL_xz00_3376)
	{
		{	/* Llib/srfi4.scm 637 */
			return BGl_u64vectorz00zz__srfi4z00(BgL_xz00_3376);
		}

	}



/* 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_3377,
		obj_t BgL_xz00_3378)
	{
		{	/* Llib/srfi4.scm 637 */
			return BGl_f32vectorz00zz__srfi4z00(BgL_xz00_3378);
		}

	}



/* 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_3379,
		obj_t BgL_xz00_3380)
	{
		{	/* Llib/srfi4.scm 637 */
			return BGl_f64vectorz00zz__srfi4z00(BgL_xz00_3380);
		}

	}



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

				{
					obj_t BgL_auxz00_4452;

					if (VECTORP(BgL_opt1228z00_37))
						{	/* Llib/srfi4.scm 661 */
							BgL_auxz00_4452 = BgL_opt1228z00_37;
						}
					else
						{
							obj_t BgL_auxz00_4455;

							BgL_auxz00_4455 =
								BGl_typezd2errorzd2zz__errorz00(BGl_string2567z00zz__srfi4z00,
								BINT(27216L), BGl_string2588z00zz__srfi4z00,
								BGl_string2589z00zz__srfi4z00, BgL_opt1228z00_37);
							FAILURE(BgL_auxz00_4455, BFALSE, BFALSE);
						}
					BgL_g1230z00_1399 = VECTOR_REF(BgL_auxz00_4452, 0L);
				}
				{	/* Llib/srfi4.scm 661 */
					long BgL_aux1232z00_1401;

					{
						obj_t BgL_auxz00_4460;

						if (VECTORP(BgL_opt1228z00_37))
							{	/* Llib/srfi4.scm 661 */
								BgL_auxz00_4460 = BgL_opt1228z00_37;
							}
						else
							{
								obj_t BgL_auxz00_4463;

								BgL_auxz00_4463 =
									BGl_typezd2errorzd2zz__errorz00(BGl_string2567z00zz__srfi4z00,
									BINT(27216L), BGl_string2588z00zz__srfi4z00,
									BGl_string2589z00zz__srfi4z00, BgL_opt1228z00_37);
								FAILURE(BgL_auxz00_4463, BFALSE, BFALSE);
							}
						BgL_aux1232z00_1401 = VECTOR_LENGTH(BgL_auxz00_4460);
					}
					switch (BgL_aux1232z00_1401)
						{
						case 1L:

							{	/* Llib/srfi4.scm 661 */

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

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

										if (INTEGERP(BgL_g1230z00_1399))
											{	/* Llib/srfi4.scm 661 */
												BgL_tmpz00_4469 = BgL_g1230z00_1399;
											}
										else
											{
												obj_t BgL_auxz00_4472;

												BgL_auxz00_4472 =
													BGl_typezd2errorzd2zz__errorz00
													(BGl_string2567z00zz__srfi4z00, BINT(27216L),
													BGl_string2588z00zz__srfi4z00,
													BGl_string2590z00zz__srfi4z00, BgL_g1230z00_1399);
												FAILURE(BgL_auxz00_4472, BFALSE, BFALSE);
											}
										BgL_auxz00_4468 = (long) CINT(BgL_tmpz00_4469);
									}
									return
										BGl_makezd2s8vectorzd2zz__srfi4z00(BgL_auxz00_4468,
										(int8_t) (0));
								}
							}
							break;
						case 2L:

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

								{
									obj_t BgL_auxz00_4478;

									if (VECTORP(BgL_opt1228z00_37))
										{	/* Llib/srfi4.scm 661 */
											BgL_auxz00_4478 = BgL_opt1228z00_37;
										}
									else
										{
											obj_t BgL_auxz00_4481;

											BgL_auxz00_4481 =
												BGl_typezd2errorzd2zz__errorz00
												(BGl_string2567z00zz__srfi4z00, BINT(27216L),
												BGl_string2588z00zz__srfi4z00,
												BGl_string2589z00zz__srfi4z00, BgL_opt1228z00_37);
											FAILURE(BgL_auxz00_4481, BFALSE, BFALSE);
										}
									BgL_initz00_1403 = VECTOR_REF(BgL_auxz00_4478, 1L);
								}
								{	/* Llib/srfi4.scm 661 */

									{	/* Llib/srfi4.scm 661 */
										int8_t BgL_auxz00_4495;
										long BgL_auxz00_4486;

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

											if (BGL_INT8P(BgL_initz00_1403))
												{	/* Llib/srfi4.scm 661 */
													BgL_tmpz00_4496 = BgL_initz00_1403;
												}
											else
												{
													obj_t BgL_auxz00_4499;

													BgL_auxz00_4499 =
														BGl_typezd2errorzd2zz__errorz00
														(BGl_string2567z00zz__srfi4z00, BINT(27216L),
														BGl_string2588z00zz__srfi4z00,
														BGl_string2591z00zz__srfi4z00, BgL_initz00_1403);
													FAILURE(BgL_auxz00_4499, BFALSE, BFALSE);
												}
											BgL_auxz00_4495 = BGL_BINT8_TO_INT8(BgL_tmpz00_4496);
										}
										{	/* Llib/srfi4.scm 661 */
											obj_t BgL_tmpz00_4487;

											if (INTEGERP(BgL_g1230z00_1399))
												{	/* Llib/srfi4.scm 661 */
													BgL_tmpz00_4487 = BgL_g1230z00_1399;
												}
											else
												{
													obj_t BgL_auxz00_4490;

													BgL_auxz00_4490 =
														BGl_typezd2errorzd2zz__errorz00
														(BGl_string2567z00zz__srfi4z00, BINT(27216L),
														BGl_string2588z00zz__srfi4z00,
														BGl_string2590z00zz__srfi4z00, BgL_g1230z00_1399);
													FAILURE(BgL_auxz00_4490, BFALSE, BFALSE);
												}
											BgL_auxz00_4486 = (long) CINT(BgL_tmpz00_4487);
										}
										return
											BGl_makezd2s8vectorzd2zz__srfi4z00(BgL_auxz00_4486,
											BgL_auxz00_4495);
									}
								}
							}
							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_1404;

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

					BgL_tmpz00_4506 = (int32_t) (BgL_lenz00_35);
					BgL_vz00_1404 = BGL_ALLOC_S8VECTOR(BgL_tmpz00_4506);
				}
				{
					long BgL_iz00_2321;

					BgL_iz00_2321 = 0L;
				BgL_loopz00_2320:
					if ((BgL_iz00_2321 < BgL_lenz00_35))
						{	/* Llib/srfi4.scm 661 */
							BGL_S8VSET(BgL_vz00_1404, BgL_iz00_2321, BgL_initz00_36);
							BUNSPEC;
							{
								long BgL_iz00_4512;

								BgL_iz00_4512 = (BgL_iz00_2321 + 1L);
								BgL_iz00_2321 = BgL_iz00_4512;
								goto BgL_loopz00_2320;
							}
						}
					else
						{	/* Llib/srfi4.scm 661 */
							((bool_t) 0);
						}
				}
				return BgL_vz00_1404;
			}
		}

	}



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

				{
					obj_t BgL_auxz00_4514;

					if (VECTORP(BgL_opt1233z00_41))
						{	/* Llib/srfi4.scm 662 */
							BgL_auxz00_4514 = BgL_opt1233z00_41;
						}
					else
						{
							obj_t BgL_auxz00_4517;

							BgL_auxz00_4517 =
								BGl_typezd2errorzd2zz__errorz00(BGl_string2567z00zz__srfi4z00,
								BINT(27248L), BGl_string2592z00zz__srfi4z00,
								BGl_string2589z00zz__srfi4z00, BgL_opt1233z00_41);
							FAILURE(BgL_auxz00_4517, BFALSE, BFALSE);
						}
					BgL_g1235z00_1411 = VECTOR_REF(BgL_auxz00_4514, 0L);
				}
				{	/* Llib/srfi4.scm 662 */
					long BgL_aux1237z00_1413;

					{
						obj_t BgL_auxz00_4522;

						if (VECTORP(BgL_opt1233z00_41))
							{	/* Llib/srfi4.scm 662 */
								BgL_auxz00_4522 = BgL_opt1233z00_41;
							}
						else
							{
								obj_t BgL_auxz00_4525;

								BgL_auxz00_4525 =
									BGl_typezd2errorzd2zz__errorz00(BGl_string2567z00zz__srfi4z00,
									BINT(27248L), BGl_string2592z00zz__srfi4z00,
									BGl_string2589z00zz__srfi4z00, BgL_opt1233z00_41);
								FAILURE(BgL_auxz00_4525, BFALSE, BFALSE);
							}
						BgL_aux1237z00_1413 = VECTOR_LENGTH(BgL_auxz00_4522);
					}
					switch (BgL_aux1237z00_1413)
						{
						case 1L:

							{	/* Llib/srfi4.scm 662 */

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

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

										if (INTEGERP(BgL_g1235z00_1411))
											{	/* Llib/srfi4.scm 662 */
												BgL_tmpz00_4531 = BgL_g1235z00_1411;
											}
										else
											{
												obj_t BgL_auxz00_4534;

												BgL_auxz00_4534 =
													BGl_typezd2errorzd2zz__errorz00
													(BGl_string2567z00zz__srfi4z00, BINT(27248L),
													BGl_string2592z00zz__srfi4z00,
													BGl_string2590z00zz__srfi4z00, BgL_g1235z00_1411);
												FAILURE(BgL_auxz00_4534, BFALSE, BFALSE);
											}
										BgL_auxz00_4530 = (long) CINT(BgL_tmpz00_4531);
									}
									return
										BGl_makezd2u8vectorzd2zz__srfi4z00(BgL_auxz00_4530,
										(uint8_t) (0));
								}
							}
							break;
						case 2L:

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

								{
									obj_t BgL_auxz00_4540;

									if (VECTORP(BgL_opt1233z00_41))
										{	/* Llib/srfi4.scm 662 */
											BgL_auxz00_4540 = BgL_opt1233z00_41;
										}
									else
										{
											obj_t BgL_auxz00_4543;

											BgL_auxz00_4543 =
												BGl_typezd2errorzd2zz__errorz00
												(BGl_string2567z00zz__srfi4z00, BINT(27248L),
												BGl_string2592z00zz__srfi4z00,
												BGl_string2589z00zz__srfi4z00, BgL_opt1233z00_41);
											FAILURE(BgL_auxz00_4543, BFALSE, BFALSE);
										}
									BgL_initz00_1415 = VECTOR_REF(BgL_auxz00_4540, 1L);
								}
								{	/* Llib/srfi4.scm 662 */

									{	/* Llib/srfi4.scm 662 */
										uint8_t BgL_auxz00_4557;
										long BgL_auxz00_4548;

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

											if (BGL_UINT8P(BgL_initz00_1415))
												{	/* Llib/srfi4.scm 662 */
													BgL_tmpz00_4558 = BgL_initz00_1415;
												}
											else
												{
													obj_t BgL_auxz00_4561;

													BgL_auxz00_4561 =
														BGl_typezd2errorzd2zz__errorz00
														(BGl_string2567z00zz__srfi4z00, BINT(27248L),
														BGl_string2592z00zz__srfi4z00,
														BGl_string2593z00zz__srfi4z00, BgL_initz00_1415);
													FAILURE(BgL_auxz00_4561, BFALSE, BFALSE);
												}
											BgL_auxz00_4557 = BGL_BUINT8_TO_UINT8(BgL_tmpz00_4558);
										}
										{	/* Llib/srfi4.scm 662 */
											obj_t BgL_tmpz00_4549;

											if (INTEGERP(BgL_g1235z00_1411))
												{	/* Llib/srfi4.scm 662 */
													BgL_tmpz00_4549 = BgL_g1235z00_1411;
												}
											else
												{
													obj_t BgL_auxz00_4552;

													BgL_auxz00_4552 =
														BGl_typezd2errorzd2zz__errorz00
														(BGl_string2567z00zz__srfi4z00, BINT(27248L),
														BGl_string2592z00zz__srfi4z00,
														BGl_string2590z00zz__srfi4z00, BgL_g1235z00_1411);
													FAILURE(BgL_auxz00_4552, BFALSE, BFALSE);
												}
											BgL_auxz00_4548 = (long) CINT(BgL_tmpz00_4549);
										}
										return
											BGl_makezd2u8vectorzd2zz__srfi4z00(BgL_auxz00_4548,
											BgL_auxz00_4557);
									}
								}
							}
							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_1416;

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

					BgL_tmpz00_4568 = (int32_t) (BgL_lenz00_39);
					BgL_vz00_1416 = BGL_ALLOC_U8VECTOR(BgL_tmpz00_4568);
				}
				{
					long BgL_iz00_2331;

					BgL_iz00_2331 = 0L;
				BgL_loopz00_2330:
					if ((BgL_iz00_2331 < BgL_lenz00_39))
						{	/* Llib/srfi4.scm 662 */
							BGL_U8VSET(BgL_vz00_1416, BgL_iz00_2331, BgL_initz00_40);
							BUNSPEC;
							{
								long BgL_iz00_4574;

								BgL_iz00_4574 = (BgL_iz00_2331 + 1L);
								BgL_iz00_2331 = BgL_iz00_4574;
								goto BgL_loopz00_2330;
							}
						}
					else
						{	/* Llib/srfi4.scm 662 */
							((bool_t) 0);
						}
				}
				return BgL_vz00_1416;
			}
		}

	}



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

				{
					obj_t BgL_auxz00_4576;

					if (VECTORP(BgL_opt1238z00_45))
						{	/* Llib/srfi4.scm 663 */
							BgL_auxz00_4576 = BgL_opt1238z00_45;
						}
					else
						{
							obj_t BgL_auxz00_4579;

							BgL_auxz00_4579 =
								BGl_typezd2errorzd2zz__errorz00(BGl_string2567z00zz__srfi4z00,
								BINT(27280L), BGl_string2594z00zz__srfi4z00,
								BGl_string2589z00zz__srfi4z00, BgL_opt1238z00_45);
							FAILURE(BgL_auxz00_4579, BFALSE, BFALSE);
						}
					BgL_g1240z00_1423 = VECTOR_REF(BgL_auxz00_4576, 0L);
				}
				{	/* Llib/srfi4.scm 663 */
					long BgL_aux1242z00_1425;

					{
						obj_t BgL_auxz00_4584;

						if (VECTORP(BgL_opt1238z00_45))
							{	/* Llib/srfi4.scm 663 */
								BgL_auxz00_4584 = BgL_opt1238z00_45;
							}
						else
							{
								obj_t BgL_auxz00_4587;

								BgL_auxz00_4587 =
									BGl_typezd2errorzd2zz__errorz00(BGl_string2567z00zz__srfi4z00,
									BINT(27280L), BGl_string2594z00zz__srfi4z00,
									BGl_string2589z00zz__srfi4z00, BgL_opt1238z00_45);
								FAILURE(BgL_auxz00_4587, BFALSE, BFALSE);
							}
						BgL_aux1242z00_1425 = VECTOR_LENGTH(BgL_auxz00_4584);
					}
					switch (BgL_aux1242z00_1425)
						{
						case 1L:

							{	/* Llib/srfi4.scm 663 */

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

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

										if (INTEGERP(BgL_g1240z00_1423))
											{	/* Llib/srfi4.scm 663 */
												BgL_tmpz00_4593 = BgL_g1240z00_1423;
											}
										else
											{
												obj_t BgL_auxz00_4596;

												BgL_auxz00_4596 =
													BGl_typezd2errorzd2zz__errorz00
													(BGl_string2567z00zz__srfi4z00, BINT(27280L),
													BGl_string2594z00zz__srfi4z00,
													BGl_string2590z00zz__srfi4z00, BgL_g1240z00_1423);
												FAILURE(BgL_auxz00_4596, BFALSE, BFALSE);
											}
										BgL_auxz00_4592 = (long) CINT(BgL_tmpz00_4593);
									}
									return
										BGl_makezd2s16vectorzd2zz__srfi4z00(BgL_auxz00_4592,
										(int16_t) (0));
								}
							}
							break;
						case 2L:

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

								{
									obj_t BgL_auxz00_4602;

									if (VECTORP(BgL_opt1238z00_45))
										{	/* Llib/srfi4.scm 663 */
											BgL_auxz00_4602 = BgL_opt1238z00_45;
										}
									else
										{
											obj_t BgL_auxz00_4605;

											BgL_auxz00_4605 =
												BGl_typezd2errorzd2zz__errorz00
												(BGl_string2567z00zz__srfi4z00, BINT(27280L),
												BGl_string2594z00zz__srfi4z00,
												BGl_string2589z00zz__srfi4z00, BgL_opt1238z00_45);
											FAILURE(BgL_auxz00_4605, BFALSE, BFALSE);
										}
									BgL_initz00_1427 = VECTOR_REF(BgL_auxz00_4602, 1L);
								}
								{	/* Llib/srfi4.scm 663 */

									{	/* Llib/srfi4.scm 663 */
										int16_t BgL_auxz00_4619;
										long BgL_auxz00_4610;

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

											if (BGL_INT16P(BgL_initz00_1427))
												{	/* Llib/srfi4.scm 663 */
													BgL_tmpz00_4620 = BgL_initz00_1427;
												}
											else
												{
													obj_t BgL_auxz00_4623;

													BgL_auxz00_4623 =
														BGl_typezd2errorzd2zz__errorz00
														(BGl_string2567z00zz__srfi4z00, BINT(27280L),
														BGl_string2594z00zz__srfi4z00,
														BGl_string2595z00zz__srfi4z00, BgL_initz00_1427);
													FAILURE(BgL_auxz00_4623, BFALSE, BFALSE);
												}
											BgL_auxz00_4619 = BGL_BINT16_TO_INT16(BgL_tmpz00_4620);
										}
										{	/* Llib/srfi4.scm 663 */
											obj_t BgL_tmpz00_4611;

											if (INTEGERP(BgL_g1240z00_1423))
												{	/* Llib/srfi4.scm 663 */
													BgL_tmpz00_4611 = BgL_g1240z00_1423;
												}
											else
												{
													obj_t BgL_auxz00_4614;

													BgL_auxz00_4614 =
														BGl_typezd2errorzd2zz__errorz00
														(BGl_string2567z00zz__srfi4z00, BINT(27280L),
														BGl_string2594z00zz__srfi4z00,
														BGl_string2590z00zz__srfi4z00, BgL_g1240z00_1423);
													FAILURE(BgL_auxz00_4614, BFALSE, BFALSE);
												}
											BgL_auxz00_4610 = (long) CINT(BgL_tmpz00_4611);
										}
										return
											BGl_makezd2s16vectorzd2zz__srfi4z00(BgL_auxz00_4610,
											BgL_auxz00_4619);
									}
								}
							}
							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_1428;

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

					BgL_tmpz00_4630 = (int32_t) (BgL_lenz00_43);
					BgL_vz00_1428 = BGL_ALLOC_S16VECTOR(BgL_tmpz00_4630);
				}
				{
					long BgL_iz00_2341;

					BgL_iz00_2341 = 0L;
				BgL_loopz00_2340:
					if ((BgL_iz00_2341 < BgL_lenz00_43))
						{	/* Llib/srfi4.scm 663 */
							BGL_S16VSET(BgL_vz00_1428, BgL_iz00_2341, BgL_initz00_44);
							BUNSPEC;
							{
								long BgL_iz00_4636;

								BgL_iz00_4636 = (BgL_iz00_2341 + 1L);
								BgL_iz00_2341 = BgL_iz00_4636;
								goto BgL_loopz00_2340;
							}
						}
					else
						{	/* Llib/srfi4.scm 663 */
							((bool_t) 0);
						}
				}
				return BgL_vz00_1428;
			}
		}

	}



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

				{
					obj_t BgL_auxz00_4638;

					if (VECTORP(BgL_opt1243z00_49))
						{	/* Llib/srfi4.scm 664 */
							BgL_auxz00_4638 = BgL_opt1243z00_49;
						}
					else
						{
							obj_t BgL_auxz00_4641;

							BgL_auxz00_4641 =
								BGl_typezd2errorzd2zz__errorz00(BGl_string2567z00zz__srfi4z00,
								BINT(27314L), BGl_string2596z00zz__srfi4z00,
								BGl_string2589z00zz__srfi4z00, BgL_opt1243z00_49);
							FAILURE(BgL_auxz00_4641, BFALSE, BFALSE);
						}
					BgL_g1245z00_1435 = VECTOR_REF(BgL_auxz00_4638, 0L);
				}
				{	/* Llib/srfi4.scm 664 */
					long BgL_aux1247z00_1437;

					{
						obj_t BgL_auxz00_4646;

						if (VECTORP(BgL_opt1243z00_49))
							{	/* Llib/srfi4.scm 664 */
								BgL_auxz00_4646 = BgL_opt1243z00_49;
							}
						else
							{
								obj_t BgL_auxz00_4649;

								BgL_auxz00_4649 =
									BGl_typezd2errorzd2zz__errorz00(BGl_string2567z00zz__srfi4z00,
									BINT(27314L), BGl_string2596z00zz__srfi4z00,
									BGl_string2589z00zz__srfi4z00, BgL_opt1243z00_49);
								FAILURE(BgL_auxz00_4649, BFALSE, BFALSE);
							}
						BgL_aux1247z00_1437 = VECTOR_LENGTH(BgL_auxz00_4646);
					}
					switch (BgL_aux1247z00_1437)
						{
						case 1L:

							{	/* Llib/srfi4.scm 664 */

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

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

										if (INTEGERP(BgL_g1245z00_1435))
											{	/* Llib/srfi4.scm 664 */
												BgL_tmpz00_4655 = BgL_g1245z00_1435;
											}
										else
											{
												obj_t BgL_auxz00_4658;

												BgL_auxz00_4658 =
													BGl_typezd2errorzd2zz__errorz00
													(BGl_string2567z00zz__srfi4z00, BINT(27314L),
													BGl_string2596z00zz__srfi4z00,
													BGl_string2590z00zz__srfi4z00, BgL_g1245z00_1435);
												FAILURE(BgL_auxz00_4658, BFALSE, BFALSE);
											}
										BgL_auxz00_4654 = (long) CINT(BgL_tmpz00_4655);
									}
									return
										BGl_makezd2u16vectorzd2zz__srfi4z00(BgL_auxz00_4654,
										(uint16_t) (0));
								}
							}
							break;
						case 2L:

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

								{
									obj_t BgL_auxz00_4664;

									if (VECTORP(BgL_opt1243z00_49))
										{	/* Llib/srfi4.scm 664 */
											BgL_auxz00_4664 = BgL_opt1243z00_49;
										}
									else
										{
											obj_t BgL_auxz00_4667;

											BgL_auxz00_4667 =
												BGl_typezd2errorzd2zz__errorz00
												(BGl_string2567z00zz__srfi4z00, BINT(27314L),
												BGl_string2596z00zz__srfi4z00,
												BGl_string2589z00zz__srfi4z00, BgL_opt1243z00_49);
											FAILURE(BgL_auxz00_4667, BFALSE, BFALSE);
										}
									BgL_initz00_1439 = VECTOR_REF(BgL_auxz00_4664, 1L);
								}
								{	/* Llib/srfi4.scm 664 */

									{	/* Llib/srfi4.scm 664 */
										uint16_t BgL_auxz00_4681;
										long BgL_auxz00_4672;

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

											if (BGL_UINT16P(BgL_initz00_1439))
												{	/* Llib/srfi4.scm 664 */
													BgL_tmpz00_4682 = BgL_initz00_1439;
												}
											else
												{
													obj_t BgL_auxz00_4685;

													BgL_auxz00_4685 =
														BGl_typezd2errorzd2zz__errorz00
														(BGl_string2567z00zz__srfi4z00, BINT(27314L),
														BGl_string2596z00zz__srfi4z00,
														BGl_string2597z00zz__srfi4z00, BgL_initz00_1439);
													FAILURE(BgL_auxz00_4685, BFALSE, BFALSE);
												}
											BgL_auxz00_4681 = BGL_BUINT16_TO_UINT16(BgL_tmpz00_4682);
										}
										{	/* Llib/srfi4.scm 664 */
											obj_t BgL_tmpz00_4673;

											if (INTEGERP(BgL_g1245z00_1435))
												{	/* Llib/srfi4.scm 664 */
													BgL_tmpz00_4673 = BgL_g1245z00_1435;
												}
											else
												{
													obj_t BgL_auxz00_4676;

													BgL_auxz00_4676 =
														BGl_typezd2errorzd2zz__errorz00
														(BGl_string2567z00zz__srfi4z00, BINT(27314L),
														BGl_string2596z00zz__srfi4z00,
														BGl_string2590z00zz__srfi4z00, BgL_g1245z00_1435);
													FAILURE(BgL_auxz00_4676, BFALSE, BFALSE);
												}
											BgL_auxz00_4672 = (long) CINT(BgL_tmpz00_4673);
										}
										return
											BGl_makezd2u16vectorzd2zz__srfi4z00(BgL_auxz00_4672,
											BgL_auxz00_4681);
									}
								}
							}
							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_1440;

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

					BgL_tmpz00_4692 = (int32_t) (BgL_lenz00_47);
					BgL_vz00_1440 = BGL_ALLOC_U16VECTOR(BgL_tmpz00_4692);
				}
				{
					long BgL_iz00_2351;

					BgL_iz00_2351 = 0L;
				BgL_loopz00_2350:
					if ((BgL_iz00_2351 < BgL_lenz00_47))
						{	/* Llib/srfi4.scm 664 */
							BGL_U16VSET(BgL_vz00_1440, BgL_iz00_2351, BgL_initz00_48);
							BUNSPEC;
							{
								long BgL_iz00_4698;

								BgL_iz00_4698 = (BgL_iz00_2351 + 1L);
								BgL_iz00_2351 = BgL_iz00_4698;
								goto BgL_loopz00_2350;
							}
						}
					else
						{	/* Llib/srfi4.scm 664 */
							((bool_t) 0);
						}
				}
				return BgL_vz00_1440;
			}
		}

	}



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

				{
					obj_t BgL_auxz00_4700;

					if (VECTORP(BgL_opt1248z00_53))
						{	/* Llib/srfi4.scm 665 */
							BgL_auxz00_4700 = BgL_opt1248z00_53;
						}
					else
						{
							obj_t BgL_auxz00_4703;

							BgL_auxz00_4703 =
								BGl_typezd2errorzd2zz__errorz00(BGl_string2567z00zz__srfi4z00,
								BINT(27348L), BGl_string2598z00zz__srfi4z00,
								BGl_string2589z00zz__srfi4z00, BgL_opt1248z00_53);
							FAILURE(BgL_auxz00_4703, BFALSE, BFALSE);
						}
					BgL_g1250z00_1447 = VECTOR_REF(BgL_auxz00_4700, 0L);
				}
				{	/* Llib/srfi4.scm 665 */
					long BgL_aux1252z00_1449;

					{
						obj_t BgL_auxz00_4708;

						if (VECTORP(BgL_opt1248z00_53))
							{	/* Llib/srfi4.scm 665 */
								BgL_auxz00_4708 = BgL_opt1248z00_53;
							}
						else
							{
								obj_t BgL_auxz00_4711;

								BgL_auxz00_4711 =
									BGl_typezd2errorzd2zz__errorz00(BGl_string2567z00zz__srfi4z00,
									BINT(27348L), BGl_string2598z00zz__srfi4z00,
									BGl_string2589z00zz__srfi4z00, BgL_opt1248z00_53);
								FAILURE(BgL_auxz00_4711, BFALSE, BFALSE);
							}
						BgL_aux1252z00_1449 = VECTOR_LENGTH(BgL_auxz00_4708);
					}
					switch (BgL_aux1252z00_1449)
						{
						case 1L:

							{	/* Llib/srfi4.scm 665 */

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

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

										if (INTEGERP(BgL_g1250z00_1447))
											{	/* Llib/srfi4.scm 665 */
												BgL_tmpz00_4717 = BgL_g1250z00_1447;
											}
										else
											{
												obj_t BgL_auxz00_4720;

												BgL_auxz00_4720 =
													BGl_typezd2errorzd2zz__errorz00
													(BGl_string2567z00zz__srfi4z00, BINT(27348L),
													BGl_string2598z00zz__srfi4z00,
													BGl_string2590z00zz__srfi4z00, BgL_g1250z00_1447);
												FAILURE(BgL_auxz00_4720, BFALSE, BFALSE);
											}
										BgL_auxz00_4716 = (long) CINT(BgL_tmpz00_4717);
									}
									return
										BGl_makezd2s32vectorzd2zz__srfi4z00(BgL_auxz00_4716,
										(int32_t) (0));
								}
							}
							break;
						case 2L:

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

								{
									obj_t BgL_auxz00_4726;

									if (VECTORP(BgL_opt1248z00_53))
										{	/* Llib/srfi4.scm 665 */
											BgL_auxz00_4726 = BgL_opt1248z00_53;
										}
									else
										{
											obj_t BgL_auxz00_4729;

											BgL_auxz00_4729 =
												BGl_typezd2errorzd2zz__errorz00
												(BGl_string2567z00zz__srfi4z00, BINT(27348L),
												BGl_string2598z00zz__srfi4z00,
												BGl_string2589z00zz__srfi4z00, BgL_opt1248z00_53);
											FAILURE(BgL_auxz00_4729, BFALSE, BFALSE);
										}
									BgL_initz00_1451 = VECTOR_REF(BgL_auxz00_4726, 1L);
								}
								{	/* Llib/srfi4.scm 665 */

									{	/* Llib/srfi4.scm 665 */
										int32_t BgL_auxz00_4743;
										long BgL_auxz00_4734;

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

											if (BGL_INT32P(BgL_initz00_1451))
												{	/* Llib/srfi4.scm 665 */
													BgL_tmpz00_4744 = BgL_initz00_1451;
												}
											else
												{
													obj_t BgL_auxz00_4747;

													BgL_auxz00_4747 =
														BGl_typezd2errorzd2zz__errorz00
														(BGl_string2567z00zz__srfi4z00, BINT(27348L),
														BGl_string2598z00zz__srfi4z00,
														BGl_string2599z00zz__srfi4z00, BgL_initz00_1451);
													FAILURE(BgL_auxz00_4747, BFALSE, BFALSE);
												}
											BgL_auxz00_4743 = BGL_BINT32_TO_INT32(BgL_tmpz00_4744);
										}
										{	/* Llib/srfi4.scm 665 */
											obj_t BgL_tmpz00_4735;

											if (INTEGERP(BgL_g1250z00_1447))
												{	/* Llib/srfi4.scm 665 */
													BgL_tmpz00_4735 = BgL_g1250z00_1447;
												}
											else
												{
													obj_t BgL_auxz00_4738;

													BgL_auxz00_4738 =
														BGl_typezd2errorzd2zz__errorz00
														(BGl_string2567z00zz__srfi4z00, BINT(27348L),
														BGl_string2598z00zz__srfi4z00,
														BGl_string2590z00zz__srfi4z00, BgL_g1250z00_1447);
													FAILURE(BgL_auxz00_4738, BFALSE, BFALSE);
												}
											BgL_auxz00_4734 = (long) CINT(BgL_tmpz00_4735);
										}
										return
											BGl_makezd2s32vectorzd2zz__srfi4z00(BgL_auxz00_4734,
											BgL_auxz00_4743);
									}
								}
							}
							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_1452;

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

					BgL_tmpz00_4754 = (int32_t) (BgL_lenz00_51);
					BgL_vz00_1452 = BGL_ALLOC_S32VECTOR(BgL_tmpz00_4754);
				}
				{
					long BgL_iz00_2361;

					BgL_iz00_2361 = 0L;
				BgL_loopz00_2360:
					if ((BgL_iz00_2361 < BgL_lenz00_51))
						{	/* Llib/srfi4.scm 665 */
							BGL_S32VSET(BgL_vz00_1452, BgL_iz00_2361, BgL_initz00_52);
							BUNSPEC;
							{
								long BgL_iz00_4760;

								BgL_iz00_4760 = (BgL_iz00_2361 + 1L);
								BgL_iz00_2361 = BgL_iz00_4760;
								goto BgL_loopz00_2360;
							}
						}
					else
						{	/* Llib/srfi4.scm 665 */
							((bool_t) 0);
						}
				}
				return BgL_vz00_1452;
			}
		}

	}



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

				{
					obj_t BgL_auxz00_4762;

					if (VECTORP(BgL_opt1253z00_57))
						{	/* Llib/srfi4.scm 666 */
							BgL_auxz00_4762 = BgL_opt1253z00_57;
						}
					else
						{
							obj_t BgL_auxz00_4765;

							BgL_auxz00_4765 =
								BGl_typezd2errorzd2zz__errorz00(BGl_string2567z00zz__srfi4z00,
								BINT(27382L), BGl_string2600z00zz__srfi4z00,
								BGl_string2589z00zz__srfi4z00, BgL_opt1253z00_57);
							FAILURE(BgL_auxz00_4765, BFALSE, BFALSE);
						}
					BgL_g1255z00_1459 = VECTOR_REF(BgL_auxz00_4762, 0L);
				}
				{	/* Llib/srfi4.scm 666 */
					long BgL_aux1257z00_1461;

					{
						obj_t BgL_auxz00_4770;

						if (VECTORP(BgL_opt1253z00_57))
							{	/* Llib/srfi4.scm 666 */
								BgL_auxz00_4770 = BgL_opt1253z00_57;
							}
						else
							{
								obj_t BgL_auxz00_4773;

								BgL_auxz00_4773 =
									BGl_typezd2errorzd2zz__errorz00(BGl_string2567z00zz__srfi4z00,
									BINT(27382L), BGl_string2600z00zz__srfi4z00,
									BGl_string2589z00zz__srfi4z00, BgL_opt1253z00_57);
								FAILURE(BgL_auxz00_4773, BFALSE, BFALSE);
							}
						BgL_aux1257z00_1461 = VECTOR_LENGTH(BgL_auxz00_4770);
					}
					switch (BgL_aux1257z00_1461)
						{
						case 1L:

							{	/* Llib/srfi4.scm 666 */

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

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

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

												BgL_auxz00_4782 =
													BGl_typezd2errorzd2zz__errorz00
													(BGl_string2567z00zz__srfi4z00, BINT(27382L),
													BGl_string2600z00zz__srfi4z00,
													BGl_string2590z00zz__srfi4z00, BgL_g1255z00_1459);
												FAILURE(BgL_auxz00_4782, BFALSE, BFALSE);
											}
										BgL_auxz00_4778 = (long) CINT(BgL_tmpz00_4779);
									}
									return
										BGl_makezd2u32vectorzd2zz__srfi4z00(BgL_auxz00_4778,
										(uint32_t) (0));
								}
							}
							break;
						case 2L:

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

								{
									obj_t BgL_auxz00_4788;

									if (VECTORP(BgL_opt1253z00_57))
										{	/* Llib/srfi4.scm 666 */
											BgL_auxz00_4788 = BgL_opt1253z00_57;
										}
									else
										{
											obj_t BgL_auxz00_4791;

											BgL_auxz00_4791 =
												BGl_typezd2errorzd2zz__errorz00
												(BGl_string2567z00zz__srfi4z00, BINT(27382L),
												BGl_string2600z00zz__srfi4z00,
												BGl_string2589z00zz__srfi4z00, BgL_opt1253z00_57);
											FAILURE(BgL_auxz00_4791, BFALSE, BFALSE);
										}
									BgL_initz00_1463 = VECTOR_REF(BgL_auxz00_4788, 1L);
								}
								{	/* Llib/srfi4.scm 666 */

									{	/* Llib/srfi4.scm 666 */
										uint32_t BgL_auxz00_4805;
										long BgL_auxz00_4796;

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

											if (BGL_UINT32P(BgL_initz00_1463))
												{	/* Llib/srfi4.scm 666 */
													BgL_tmpz00_4806 = BgL_initz00_1463;
												}
											else
												{
													obj_t BgL_auxz00_4809;

													BgL_auxz00_4809 =
														BGl_typezd2errorzd2zz__errorz00
														(BGl_string2567z00zz__srfi4z00, BINT(27382L),
														BGl_string2600z00zz__srfi4z00,
														BGl_string2601z00zz__srfi4z00, BgL_initz00_1463);
													FAILURE(BgL_auxz00_4809, BFALSE, BFALSE);
												}
											BgL_auxz00_4805 = BGL_BUINT32_TO_UINT32(BgL_tmpz00_4806);
										}
										{	/* Llib/srfi4.scm 666 */
											obj_t BgL_tmpz00_4797;

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

													BgL_auxz00_4800 =
														BGl_typezd2errorzd2zz__errorz00
														(BGl_string2567z00zz__srfi4z00, BINT(27382L),
														BGl_string2600z00zz__srfi4z00,
														BGl_string2590z00zz__srfi4z00, BgL_g1255z00_1459);
													FAILURE(BgL_auxz00_4800, BFALSE, BFALSE);
												}
											BgL_auxz00_4796 = (long) CINT(BgL_tmpz00_4797);
										}
										return
											BGl_makezd2u32vectorzd2zz__srfi4z00(BgL_auxz00_4796,
											BgL_auxz00_4805);
									}
								}
							}
							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_1464;

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

					BgL_tmpz00_4816 = (int32_t) (BgL_lenz00_55);
					BgL_vz00_1464 = BGL_ALLOC_U32VECTOR(BgL_tmpz00_4816);
				}
				{
					long BgL_iz00_2371;

					BgL_iz00_2371 = 0L;
				BgL_loopz00_2370:
					if ((BgL_iz00_2371 < BgL_lenz00_55))
						{	/* Llib/srfi4.scm 666 */
							BGL_U32VSET(BgL_vz00_1464, BgL_iz00_2371, BgL_initz00_56);
							BUNSPEC;
							{
								long BgL_iz00_4822;

								BgL_iz00_4822 = (BgL_iz00_2371 + 1L);
								BgL_iz00_2371 = BgL_iz00_4822;
								goto BgL_loopz00_2370;
							}
						}
					else
						{	/* Llib/srfi4.scm 666 */
							((bool_t) 0);
						}
				}
				return BgL_vz00_1464;
			}
		}

	}



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

				{
					obj_t BgL_auxz00_4824;

					if (VECTORP(BgL_opt1258z00_61))
						{	/* Llib/srfi4.scm 667 */
							BgL_auxz00_4824 = BgL_opt1258z00_61;
						}
					else
						{
							obj_t BgL_auxz00_4827;

							BgL_auxz00_4827 =
								BGl_typezd2errorzd2zz__errorz00(BGl_string2567z00zz__srfi4z00,
								BINT(27416L), BGl_string2602z00zz__srfi4z00,
								BGl_string2589z00zz__srfi4z00, BgL_opt1258z00_61);
							FAILURE(BgL_auxz00_4827, BFALSE, BFALSE);
						}
					BgL_g1260z00_1471 = VECTOR_REF(BgL_auxz00_4824, 0L);
				}
				{	/* Llib/srfi4.scm 667 */
					long BgL_aux1262z00_1473;

					{
						obj_t BgL_auxz00_4832;

						if (VECTORP(BgL_opt1258z00_61))
							{	/* Llib/srfi4.scm 667 */
								BgL_auxz00_4832 = BgL_opt1258z00_61;
							}
						else
							{
								obj_t BgL_auxz00_4835;

								BgL_auxz00_4835 =
									BGl_typezd2errorzd2zz__errorz00(BGl_string2567z00zz__srfi4z00,
									BINT(27416L), BGl_string2602z00zz__srfi4z00,
									BGl_string2589z00zz__srfi4z00, BgL_opt1258z00_61);
								FAILURE(BgL_auxz00_4835, BFALSE, BFALSE);
							}
						BgL_aux1262z00_1473 = VECTOR_LENGTH(BgL_auxz00_4832);
					}
					switch (BgL_aux1262z00_1473)
						{
						case 1L:

							{	/* Llib/srfi4.scm 667 */

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

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

										if (INTEGERP(BgL_g1260z00_1471))
											{	/* Llib/srfi4.scm 667 */
												BgL_tmpz00_4841 = BgL_g1260z00_1471;
											}
										else
											{
												obj_t BgL_auxz00_4844;

												BgL_auxz00_4844 =
													BGl_typezd2errorzd2zz__errorz00
													(BGl_string2567z00zz__srfi4z00, BINT(27416L),
													BGl_string2602z00zz__srfi4z00,
													BGl_string2590z00zz__srfi4z00, BgL_g1260z00_1471);
												FAILURE(BgL_auxz00_4844, BFALSE, BFALSE);
											}
										BgL_auxz00_4840 = (long) CINT(BgL_tmpz00_4841);
									}
									return
										BGl_makezd2s64vectorzd2zz__srfi4z00(BgL_auxz00_4840,
										(int64_t) (0));
								}
							}
							break;
						case 2L:

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

								{
									obj_t BgL_auxz00_4850;

									if (VECTORP(BgL_opt1258z00_61))
										{	/* Llib/srfi4.scm 667 */
											BgL_auxz00_4850 = BgL_opt1258z00_61;
										}
									else
										{
											obj_t BgL_auxz00_4853;

											BgL_auxz00_4853 =
												BGl_typezd2errorzd2zz__errorz00
												(BGl_string2567z00zz__srfi4z00, BINT(27416L),
												BGl_string2602z00zz__srfi4z00,
												BGl_string2589z00zz__srfi4z00, BgL_opt1258z00_61);
											FAILURE(BgL_auxz00_4853, BFALSE, BFALSE);
										}
									BgL_initz00_1475 = VECTOR_REF(BgL_auxz00_4850, 1L);
								}
								{	/* Llib/srfi4.scm 667 */

									{	/* Llib/srfi4.scm 667 */
										int64_t BgL_auxz00_4867;
										long BgL_auxz00_4858;

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

											if (BGL_INT64P(BgL_initz00_1475))
												{	/* Llib/srfi4.scm 667 */
													BgL_tmpz00_4868 = BgL_initz00_1475;
												}
											else
												{
													obj_t BgL_auxz00_4871;

													BgL_auxz00_4871 =
														BGl_typezd2errorzd2zz__errorz00
														(BGl_string2567z00zz__srfi4z00, BINT(27416L),
														BGl_string2602z00zz__srfi4z00,
														BGl_string2603z00zz__srfi4z00, BgL_initz00_1475);
													FAILURE(BgL_auxz00_4871, BFALSE, BFALSE);
												}
											BgL_auxz00_4867 = BGL_BINT64_TO_INT64(BgL_tmpz00_4868);
										}
										{	/* Llib/srfi4.scm 667 */
											obj_t BgL_tmpz00_4859;

											if (INTEGERP(BgL_g1260z00_1471))
												{	/* Llib/srfi4.scm 667 */
													BgL_tmpz00_4859 = BgL_g1260z00_1471;
												}
											else
												{
													obj_t BgL_auxz00_4862;

													BgL_auxz00_4862 =
														BGl_typezd2errorzd2zz__errorz00
														(BGl_string2567z00zz__srfi4z00, BINT(27416L),
														BGl_string2602z00zz__srfi4z00,
														BGl_string2590z00zz__srfi4z00, BgL_g1260z00_1471);
													FAILURE(BgL_auxz00_4862, BFALSE, BFALSE);
												}
											BgL_auxz00_4858 = (long) CINT(BgL_tmpz00_4859);
										}
										return
											BGl_makezd2s64vectorzd2zz__srfi4z00(BgL_auxz00_4858,
											BgL_auxz00_4867);
									}
								}
							}
							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_1476;

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

					BgL_tmpz00_4878 = (int32_t) (BgL_lenz00_59);
					BgL_vz00_1476 = BGL_ALLOC_S64VECTOR(BgL_tmpz00_4878);
				}
				{
					long BgL_iz00_2381;

					BgL_iz00_2381 = 0L;
				BgL_loopz00_2380:
					if ((BgL_iz00_2381 < BgL_lenz00_59))
						{	/* Llib/srfi4.scm 667 */
							BGL_S64VSET(BgL_vz00_1476, BgL_iz00_2381, BgL_initz00_60);
							BUNSPEC;
							{
								long BgL_iz00_4884;

								BgL_iz00_4884 = (BgL_iz00_2381 + 1L);
								BgL_iz00_2381 = BgL_iz00_4884;
								goto BgL_loopz00_2380;
							}
						}
					else
						{	/* Llib/srfi4.scm 667 */
							((bool_t) 0);
						}
				}
				return BgL_vz00_1476;
			}
		}

	}



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

				{
					obj_t BgL_auxz00_4886;

					if (VECTORP(BgL_opt1263z00_65))
						{	/* Llib/srfi4.scm 668 */
							BgL_auxz00_4886 = BgL_opt1263z00_65;
						}
					else
						{
							obj_t BgL_auxz00_4889;

							BgL_auxz00_4889 =
								BGl_typezd2errorzd2zz__errorz00(BGl_string2567z00zz__srfi4z00,
								BINT(27450L), BGl_string2604z00zz__srfi4z00,
								BGl_string2589z00zz__srfi4z00, BgL_opt1263z00_65);
							FAILURE(BgL_auxz00_4889, BFALSE, BFALSE);
						}
					BgL_g1265z00_1483 = VECTOR_REF(BgL_auxz00_4886, 0L);
				}
				{	/* Llib/srfi4.scm 668 */
					long BgL_aux1267z00_1485;

					{
						obj_t BgL_auxz00_4894;

						if (VECTORP(BgL_opt1263z00_65))
							{	/* Llib/srfi4.scm 668 */
								BgL_auxz00_4894 = BgL_opt1263z00_65;
							}
						else
							{
								obj_t BgL_auxz00_4897;

								BgL_auxz00_4897 =
									BGl_typezd2errorzd2zz__errorz00(BGl_string2567z00zz__srfi4z00,
									BINT(27450L), BGl_string2604z00zz__srfi4z00,
									BGl_string2589z00zz__srfi4z00, BgL_opt1263z00_65);
								FAILURE(BgL_auxz00_4897, BFALSE, BFALSE);
							}
						BgL_aux1267z00_1485 = VECTOR_LENGTH(BgL_auxz00_4894);
					}
					switch (BgL_aux1267z00_1485)
						{
						case 1L:

							{	/* Llib/srfi4.scm 668 */

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

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

										if (INTEGERP(BgL_g1265z00_1483))
											{	/* Llib/srfi4.scm 668 */
												BgL_tmpz00_4903 = BgL_g1265z00_1483;
											}
										else
											{
												obj_t BgL_auxz00_4906;

												BgL_auxz00_4906 =
													BGl_typezd2errorzd2zz__errorz00
													(BGl_string2567z00zz__srfi4z00, BINT(27450L),
													BGl_string2604z00zz__srfi4z00,
													BGl_string2590z00zz__srfi4z00, BgL_g1265z00_1483);
												FAILURE(BgL_auxz00_4906, BFALSE, BFALSE);
											}
										BgL_auxz00_4902 = (long) CINT(BgL_tmpz00_4903);
									}
									return
										BGl_makezd2u64vectorzd2zz__srfi4z00(BgL_auxz00_4902,
										(uint64_t) (0));
								}
							}
							break;
						case 2L:

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

								{
									obj_t BgL_auxz00_4912;

									if (VECTORP(BgL_opt1263z00_65))
										{	/* Llib/srfi4.scm 668 */
											BgL_auxz00_4912 = BgL_opt1263z00_65;
										}
									else
										{
											obj_t BgL_auxz00_4915;

											BgL_auxz00_4915 =
												BGl_typezd2errorzd2zz__errorz00
												(BGl_string2567z00zz__srfi4z00, BINT(27450L),
												BGl_string2604z00zz__srfi4z00,
												BGl_string2589z00zz__srfi4z00, BgL_opt1263z00_65);
											FAILURE(BgL_auxz00_4915, BFALSE, BFALSE);
										}
									BgL_initz00_1487 = VECTOR_REF(BgL_auxz00_4912, 1L);
								}
								{	/* Llib/srfi4.scm 668 */

									{	/* Llib/srfi4.scm 668 */
										uint64_t BgL_auxz00_4929;
										long BgL_auxz00_4920;

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

											if (BGL_UINT64P(BgL_initz00_1487))
												{	/* Llib/srfi4.scm 668 */
													BgL_tmpz00_4930 = BgL_initz00_1487;
												}
											else
												{
													obj_t BgL_auxz00_4933;

													BgL_auxz00_4933 =
														BGl_typezd2errorzd2zz__errorz00
														(BGl_string2567z00zz__srfi4z00, BINT(27450L),
														BGl_string2604z00zz__srfi4z00,
														BGl_string2605z00zz__srfi4z00, BgL_initz00_1487);
													FAILURE(BgL_auxz00_4933, BFALSE, BFALSE);
												}
											BgL_auxz00_4929 = BGL_BINT64_TO_INT64(BgL_tmpz00_4930);
										}
										{	/* Llib/srfi4.scm 668 */
											obj_t BgL_tmpz00_4921;

											if (INTEGERP(BgL_g1265z00_1483))
												{	/* Llib/srfi4.scm 668 */
													BgL_tmpz00_4921 = BgL_g1265z00_1483;
												}
											else
												{
													obj_t BgL_auxz00_4924;

													BgL_auxz00_4924 =
														BGl_typezd2errorzd2zz__errorz00
														(BGl_string2567z00zz__srfi4z00, BINT(27450L),
														BGl_string2604z00zz__srfi4z00,
														BGl_string2590z00zz__srfi4z00, BgL_g1265z00_1483);
													FAILURE(BgL_auxz00_4924, BFALSE, BFALSE);
												}
											BgL_auxz00_4920 = (long) CINT(BgL_tmpz00_4921);
										}
										return
											BGl_makezd2u64vectorzd2zz__srfi4z00(BgL_auxz00_4920,
											BgL_auxz00_4929);
									}
								}
							}
							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_1488;

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

					BgL_tmpz00_4940 = (int32_t) (BgL_lenz00_63);
					BgL_vz00_1488 = BGL_ALLOC_U64VECTOR(BgL_tmpz00_4940);
				}
				{
					long BgL_iz00_2391;

					BgL_iz00_2391 = 0L;
				BgL_loopz00_2390:
					if ((BgL_iz00_2391 < BgL_lenz00_63))
						{	/* Llib/srfi4.scm 668 */
							BGL_U64VSET(BgL_vz00_1488, BgL_iz00_2391, BgL_initz00_64);
							BUNSPEC;
							{
								long BgL_iz00_4946;

								BgL_iz00_4946 = (BgL_iz00_2391 + 1L);
								BgL_iz00_2391 = BgL_iz00_4946;
								goto BgL_loopz00_2390;
							}
						}
					else
						{	/* Llib/srfi4.scm 668 */
							((bool_t) 0);
						}
				}
				return BgL_vz00_1488;
			}
		}

	}



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

				{
					obj_t BgL_auxz00_4948;

					if (VECTORP(BgL_opt1268z00_69))
						{	/* Llib/srfi4.scm 669 */
							BgL_auxz00_4948 = BgL_opt1268z00_69;
						}
					else
						{
							obj_t BgL_auxz00_4951;

							BgL_auxz00_4951 =
								BGl_typezd2errorzd2zz__errorz00(BGl_string2567z00zz__srfi4z00,
								BINT(27484L), BGl_string2606z00zz__srfi4z00,
								BGl_string2589z00zz__srfi4z00, BgL_opt1268z00_69);
							FAILURE(BgL_auxz00_4951, BFALSE, BFALSE);
						}
					BgL_g1270z00_1495 = VECTOR_REF(BgL_auxz00_4948, 0L);
				}
				{	/* Llib/srfi4.scm 669 */
					long BgL_aux1272z00_1497;

					{
						obj_t BgL_auxz00_4956;

						if (VECTORP(BgL_opt1268z00_69))
							{	/* Llib/srfi4.scm 669 */
								BgL_auxz00_4956 = BgL_opt1268z00_69;
							}
						else
							{
								obj_t BgL_auxz00_4959;

								BgL_auxz00_4959 =
									BGl_typezd2errorzd2zz__errorz00(BGl_string2567z00zz__srfi4z00,
									BINT(27484L), BGl_string2606z00zz__srfi4z00,
									BGl_string2589z00zz__srfi4z00, BgL_opt1268z00_69);
								FAILURE(BgL_auxz00_4959, BFALSE, BFALSE);
							}
						BgL_aux1272z00_1497 = VECTOR_LENGTH(BgL_auxz00_4956);
					}
					switch (BgL_aux1272z00_1497)
						{
						case 1L:

							{	/* Llib/srfi4.scm 669 */

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

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

										if (INTEGERP(BgL_g1270z00_1495))
											{	/* Llib/srfi4.scm 669 */
												BgL_tmpz00_4965 = BgL_g1270z00_1495;
											}
										else
											{
												obj_t BgL_auxz00_4968;

												BgL_auxz00_4968 =
													BGl_typezd2errorzd2zz__errorz00
													(BGl_string2567z00zz__srfi4z00, BINT(27484L),
													BGl_string2606z00zz__srfi4z00,
													BGl_string2590z00zz__srfi4z00, BgL_g1270z00_1495);
												FAILURE(BgL_auxz00_4968, BFALSE, BFALSE);
											}
										BgL_auxz00_4964 = (long) CINT(BgL_tmpz00_4965);
									}
									return
										BGl_makezd2f32vectorzd2zz__srfi4z00(BgL_auxz00_4964,
										(float) (0.0));
							}} break;
						case 2L:

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

								{
									obj_t BgL_auxz00_4975;

									if (VECTORP(BgL_opt1268z00_69))
										{	/* Llib/srfi4.scm 669 */
											BgL_auxz00_4975 = BgL_opt1268z00_69;
										}
									else
										{
											obj_t BgL_auxz00_4978;

											BgL_auxz00_4978 =
												BGl_typezd2errorzd2zz__errorz00
												(BGl_string2567z00zz__srfi4z00, BINT(27484L),
												BGl_string2606z00zz__srfi4z00,
												BGl_string2589z00zz__srfi4z00, BgL_opt1268z00_69);
											FAILURE(BgL_auxz00_4978, BFALSE, BFALSE);
										}
									BgL_initz00_1499 = VECTOR_REF(BgL_auxz00_4975, 1L);
								}
								{	/* Llib/srfi4.scm 669 */

									{	/* Llib/srfi4.scm 669 */
										float BgL_auxz00_4992;
										long BgL_auxz00_4983;

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

											if (REALP(BgL_initz00_1499))
												{	/* Llib/srfi4.scm 669 */
													BgL_tmpz00_4993 = BgL_initz00_1499;
												}
											else
												{
													obj_t BgL_auxz00_4996;

													BgL_auxz00_4996 =
														BGl_typezd2errorzd2zz__errorz00
														(BGl_string2567z00zz__srfi4z00, BINT(27484L),
														BGl_string2606z00zz__srfi4z00,
														BGl_string2607z00zz__srfi4z00, BgL_initz00_1499);
													FAILURE(BgL_auxz00_4996, BFALSE, BFALSE);
												}
											BgL_auxz00_4992 = REAL_TO_FLOAT(BgL_tmpz00_4993);
										}
										{	/* Llib/srfi4.scm 669 */
											obj_t BgL_tmpz00_4984;

											if (INTEGERP(BgL_g1270z00_1495))
												{	/* Llib/srfi4.scm 669 */
													BgL_tmpz00_4984 = BgL_g1270z00_1495;
												}
											else
												{
													obj_t BgL_auxz00_4987;

													BgL_auxz00_4987 =
														BGl_typezd2errorzd2zz__errorz00
														(BGl_string2567z00zz__srfi4z00, BINT(27484L),
														BGl_string2606z00zz__srfi4z00,
														BGl_string2590z00zz__srfi4z00, BgL_g1270z00_1495);
													FAILURE(BgL_auxz00_4987, BFALSE, BFALSE);
												}
											BgL_auxz00_4983 = (long) CINT(BgL_tmpz00_4984);
										}
										return
											BGl_makezd2f32vectorzd2zz__srfi4z00(BgL_auxz00_4983,
											BgL_auxz00_4992);
									}
								}
							}
							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_1500;

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

					BgL_tmpz00_5003 = (int32_t) (BgL_lenz00_67);
					BgL_vz00_1500 = BGL_ALLOC_F32VECTOR(BgL_tmpz00_5003);
				}
				{
					long BgL_iz00_2401;

					BgL_iz00_2401 = 0L;
				BgL_loopz00_2400:
					if ((BgL_iz00_2401 < BgL_lenz00_67))
						{	/* Llib/srfi4.scm 669 */
							BGL_F32VSET(BgL_vz00_1500, BgL_iz00_2401, BgL_initz00_68);
							BUNSPEC;
							{
								long BgL_iz00_5009;

								BgL_iz00_5009 = (BgL_iz00_2401 + 1L);
								BgL_iz00_2401 = BgL_iz00_5009;
								goto BgL_loopz00_2400;
							}
						}
					else
						{	/* Llib/srfi4.scm 669 */
							((bool_t) 0);
						}
				}
				return BgL_vz00_1500;
			}
		}

	}



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

				{
					obj_t BgL_auxz00_5011;

					if (VECTORP(BgL_opt1273z00_73))
						{	/* Llib/srfi4.scm 670 */
							BgL_auxz00_5011 = BgL_opt1273z00_73;
						}
					else
						{
							obj_t BgL_auxz00_5014;

							BgL_auxz00_5014 =
								BGl_typezd2errorzd2zz__errorz00(BGl_string2567z00zz__srfi4z00,
								BINT(27515L), BGl_string2608z00zz__srfi4z00,
								BGl_string2589z00zz__srfi4z00, BgL_opt1273z00_73);
							FAILURE(BgL_auxz00_5014, BFALSE, BFALSE);
						}
					BgL_g1275z00_1507 = VECTOR_REF(BgL_auxz00_5011, 0L);
				}
				{	/* Llib/srfi4.scm 670 */
					long BgL_aux1277z00_1509;

					{
						obj_t BgL_auxz00_5019;

						if (VECTORP(BgL_opt1273z00_73))
							{	/* Llib/srfi4.scm 670 */
								BgL_auxz00_5019 = BgL_opt1273z00_73;
							}
						else
							{
								obj_t BgL_auxz00_5022;

								BgL_auxz00_5022 =
									BGl_typezd2errorzd2zz__errorz00(BGl_string2567z00zz__srfi4z00,
									BINT(27515L), BGl_string2608z00zz__srfi4z00,
									BGl_string2589z00zz__srfi4z00, BgL_opt1273z00_73);
								FAILURE(BgL_auxz00_5022, BFALSE, BFALSE);
							}
						BgL_aux1277z00_1509 = VECTOR_LENGTH(BgL_auxz00_5019);
					}
					switch (BgL_aux1277z00_1509)
						{
						case 1L:

							{	/* Llib/srfi4.scm 670 */

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

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

										if (INTEGERP(BgL_g1275z00_1507))
											{	/* Llib/srfi4.scm 670 */
												BgL_tmpz00_5028 = BgL_g1275z00_1507;
											}
										else
											{
												obj_t BgL_auxz00_5031;

												BgL_auxz00_5031 =
													BGl_typezd2errorzd2zz__errorz00
													(BGl_string2567z00zz__srfi4z00, BINT(27515L),
													BGl_string2608z00zz__srfi4z00,
													BGl_string2590z00zz__srfi4z00, BgL_g1275z00_1507);
												FAILURE(BgL_auxz00_5031, BFALSE, BFALSE);
											}
										BgL_auxz00_5027 = (long) CINT(BgL_tmpz00_5028);
									}
									return
										BGl_makezd2f64vectorzd2zz__srfi4z00(BgL_auxz00_5027, 0.0);
								}
							}
							break;
						case 2L:

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

								{
									obj_t BgL_auxz00_5037;

									if (VECTORP(BgL_opt1273z00_73))
										{	/* Llib/srfi4.scm 670 */
											BgL_auxz00_5037 = BgL_opt1273z00_73;
										}
									else
										{
											obj_t BgL_auxz00_5040;

											BgL_auxz00_5040 =
												BGl_typezd2errorzd2zz__errorz00
												(BGl_string2567z00zz__srfi4z00, BINT(27515L),
												BGl_string2608z00zz__srfi4z00,
												BGl_string2589z00zz__srfi4z00, BgL_opt1273z00_73);
											FAILURE(BgL_auxz00_5040, BFALSE, BFALSE);
										}
									BgL_initz00_1511 = VECTOR_REF(BgL_auxz00_5037, 1L);
								}
								{	/* Llib/srfi4.scm 670 */

									{	/* Llib/srfi4.scm 670 */
										double BgL_auxz00_5054;
										long BgL_auxz00_5045;

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

											if (REALP(BgL_initz00_1511))
												{	/* Llib/srfi4.scm 670 */
													BgL_tmpz00_5055 = BgL_initz00_1511;
												}
											else
												{
													obj_t BgL_auxz00_5058;

													BgL_auxz00_5058 =
														BGl_typezd2errorzd2zz__errorz00
														(BGl_string2567z00zz__srfi4z00, BINT(27515L),
														BGl_string2608z00zz__srfi4z00,
														BGl_string2607z00zz__srfi4z00, BgL_initz00_1511);
													FAILURE(BgL_auxz00_5058, BFALSE, BFALSE);
												}
											BgL_auxz00_5054 = REAL_TO_DOUBLE(BgL_tmpz00_5055);
										}
										{	/* Llib/srfi4.scm 670 */
											obj_t BgL_tmpz00_5046;

											if (INTEGERP(BgL_g1275z00_1507))
												{	/* Llib/srfi4.scm 670 */
													BgL_tmpz00_5046 = BgL_g1275z00_1507;
												}
											else
												{
													obj_t BgL_auxz00_5049;

													BgL_auxz00_5049 =
														BGl_typezd2errorzd2zz__errorz00
														(BGl_string2567z00zz__srfi4z00, BINT(27515L),
														BGl_string2608z00zz__srfi4z00,
														BGl_string2590z00zz__srfi4z00, BgL_g1275z00_1507);
													FAILURE(BgL_auxz00_5049, BFALSE, BFALSE);
												}
											BgL_auxz00_5045 = (long) CINT(BgL_tmpz00_5046);
										}
										return
											BGl_makezd2f64vectorzd2zz__srfi4z00(BgL_auxz00_5045,
											BgL_auxz00_5054);
									}
								}
							}
							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_1512;

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

					BgL_tmpz00_5065 = (int32_t) (BgL_lenz00_71);
					BgL_vz00_1512 = BGL_ALLOC_F64VECTOR(BgL_tmpz00_5065);
				}
				{
					long BgL_iz00_2411;

					BgL_iz00_2411 = 0L;
				BgL_loopz00_2410:
					if ((BgL_iz00_2411 < BgL_lenz00_71))
						{	/* Llib/srfi4.scm 670 */
							BGL_F64VSET(BgL_vz00_1512, BgL_iz00_2411, BgL_initz00_72);
							BUNSPEC;
							{
								long BgL_iz00_5071;

								BgL_iz00_5071 = (BgL_iz00_2411 + 1L);
								BgL_iz00_2411 = BgL_iz00_5071;
								goto BgL_loopz00_2410;
							}
						}
					else
						{	/* Llib/srfi4.scm 670 */
							((bool_t) 0);
						}
				}
				return BgL_vz00_1512;
			}
		}

	}



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

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

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

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

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

							BgL_arg1421z00_2418 =
								BGl_integerzd2ze3stringz31zz__r4_numbers_6_5_fixnumz00
								(BgL_arg1422z00_2419, 10L);
					}}
					BgL_arg1420z00_2417 =
						string_append_3(BGl_string2609z00zz__srfi4z00, BgL_arg1421z00_2418,
						BGl_string2610z00zz__srfi4z00);
				}
				return
					BGl_errorz00zz__errorz00(BgL_funz00_75, BgL_arg1420z00_2417,
					BINT(BgL_kz00_77));
			}
		}

	}



/* &hvector-range-error */
	obj_t BGl_z62hvectorzd2rangezd2errorz62zz__srfi4z00(obj_t BgL_envz00_3381,
		obj_t BgL_funz00_3382, obj_t BgL_vz00_3383, obj_t BgL_kz00_3384)
	{
		{	/* Llib/srfi4.scm 675 */
			{	/* Llib/srfi4.scm 678 */
				long BgL_auxz00_5086;
				obj_t BgL_auxz00_5079;

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

					if (INTEGERP(BgL_kz00_3384))
						{	/* Llib/srfi4.scm 678 */
							BgL_tmpz00_5087 = BgL_kz00_3384;
						}
					else
						{
							obj_t BgL_auxz00_5090;

							BgL_auxz00_5090 =
								BGl_typezd2errorzd2zz__errorz00(BGl_string2567z00zz__srfi4z00,
								BINT(27892L), BGl_string2611z00zz__srfi4z00,
								BGl_string2590z00zz__srfi4z00, BgL_kz00_3384);
							FAILURE(BgL_auxz00_5090, BFALSE, BFALSE);
						}
					BgL_auxz00_5086 = (long) CINT(BgL_tmpz00_5087);
				}
				if (STRINGP(BgL_funz00_3382))
					{	/* Llib/srfi4.scm 678 */
						BgL_auxz00_5079 = BgL_funz00_3382;
					}
				else
					{
						obj_t BgL_auxz00_5082;

						BgL_auxz00_5082 =
							BGl_typezd2errorzd2zz__errorz00(BGl_string2567z00zz__srfi4z00,
							BINT(27892L), BGl_string2611z00zz__srfi4z00,
							BGl_string2612z00zz__srfi4z00, BgL_funz00_3382);
						FAILURE(BgL_auxz00_5082, BFALSE, BFALSE);
					}
				return
					BGl_hvectorzd2rangezd2errorz00zz__srfi4z00(BgL_auxz00_5079,
					BgL_vz00_3383, BgL_auxz00_5086);
			}
		}

	}



/* 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_3244,
		obj_t BgL_vz00_3245, obj_t BgL_kz00_3246)
	{
		{	/* Llib/srfi4.scm 685 */
			{	/* Llib/srfi4.scm 686 */
				int8_t BgL_tmpz00_5097;

				{	/* Llib/srfi4.scm 686 */
					obj_t BgL_vz00_4038;
					long BgL_kz00_4039;

					if (BGL_S8VECTORP(BgL_vz00_3245))
						{	/* Llib/srfi4.scm 686 */
							BgL_vz00_4038 = BgL_vz00_3245;
						}
					else
						{
							obj_t BgL_auxz00_5100;

							BgL_auxz00_5100 =
								BGl_typezd2errorzd2zz__errorz00(BGl_string2567z00zz__srfi4z00,
								BINT(28196L), BGl_string2613z00zz__srfi4z00,
								BGl_string2569z00zz__srfi4z00, BgL_vz00_3245);
							FAILURE(BgL_auxz00_5100, BFALSE, BFALSE);
						}
					{	/* Llib/srfi4.scm 686 */
						obj_t BgL_tmpz00_5104;

						if (INTEGERP(BgL_kz00_3246))
							{	/* Llib/srfi4.scm 686 */
								BgL_tmpz00_5104 = BgL_kz00_3246;
							}
						else
							{
								obj_t BgL_auxz00_5107;

								BgL_auxz00_5107 =
									BGl_typezd2errorzd2zz__errorz00(BGl_string2567z00zz__srfi4z00,
									BINT(28196L), BGl_string2613z00zz__srfi4z00,
									BGl_string2590z00zz__srfi4z00, BgL_kz00_3246);
								FAILURE(BgL_auxz00_5107, BFALSE, BFALSE);
							}
						BgL_kz00_4039 = (long) CINT(BgL_tmpz00_5104);
					}
					BgL_tmpz00_5097 = BGL_S8VREF(BgL_vz00_4038, BgL_kz00_4039);
				}
				return BGL_INT8_TO_BINT8(BgL_tmpz00_5097);
			}
		}

	}



/* 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_3254,
		obj_t BgL_vz00_3255, obj_t BgL_kz00_3256)
	{
		{	/* Llib/srfi4.scm 688 */
			{	/* Llib/srfi4.scm 689 */
				uint8_t BgL_tmpz00_5115;

				{	/* Llib/srfi4.scm 689 */
					obj_t BgL_vz00_4040;
					long BgL_kz00_4041;

					if (BGL_U8VECTORP(BgL_vz00_3255))
						{	/* Llib/srfi4.scm 689 */
							BgL_vz00_4040 = BgL_vz00_3255;
						}
					else
						{
							obj_t BgL_auxz00_5118;

							BgL_auxz00_5118 =
								BGl_typezd2errorzd2zz__errorz00(BGl_string2567z00zz__srfi4z00,
								BINT(28255L), BGl_string2614z00zz__srfi4z00,
								BGl_string2571z00zz__srfi4z00, BgL_vz00_3255);
							FAILURE(BgL_auxz00_5118, BFALSE, BFALSE);
						}
					{	/* Llib/srfi4.scm 689 */
						obj_t BgL_tmpz00_5122;

						if (INTEGERP(BgL_kz00_3256))
							{	/* Llib/srfi4.scm 689 */
								BgL_tmpz00_5122 = BgL_kz00_3256;
							}
						else
							{
								obj_t BgL_auxz00_5125;

								BgL_auxz00_5125 =
									BGl_typezd2errorzd2zz__errorz00(BGl_string2567z00zz__srfi4z00,
									BINT(28255L), BGl_string2614z00zz__srfi4z00,
									BGl_string2590z00zz__srfi4z00, BgL_kz00_3256);
								FAILURE(BgL_auxz00_5125, BFALSE, BFALSE);
							}
						BgL_kz00_4041 = (long) CINT(BgL_tmpz00_5122);
					}
					BgL_tmpz00_5115 = BGL_U8VREF(BgL_vz00_4040, BgL_kz00_4041);
				}
				return BGL_UINT8_TO_BUINT8(BgL_tmpz00_5115);
			}
		}

	}



/* 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_3264,
		obj_t BgL_vz00_3265, obj_t BgL_kz00_3266)
	{
		{	/* Llib/srfi4.scm 691 */
			{	/* Llib/srfi4.scm 692 */
				int16_t BgL_tmpz00_5133;

				{	/* Llib/srfi4.scm 692 */
					obj_t BgL_vz00_4042;
					long BgL_kz00_4043;

					if (BGL_S16VECTORP(BgL_vz00_3265))
						{	/* Llib/srfi4.scm 692 */
							BgL_vz00_4042 = BgL_vz00_3265;
						}
					else
						{
							obj_t BgL_auxz00_5136;

							BgL_auxz00_5136 =
								BGl_typezd2errorzd2zz__errorz00(BGl_string2567z00zz__srfi4z00,
								BINT(28315L), BGl_string2615z00zz__srfi4z00,
								BGl_string2573z00zz__srfi4z00, BgL_vz00_3265);
							FAILURE(BgL_auxz00_5136, BFALSE, BFALSE);
						}
					{	/* Llib/srfi4.scm 692 */
						obj_t BgL_tmpz00_5140;

						if (INTEGERP(BgL_kz00_3266))
							{	/* Llib/srfi4.scm 692 */
								BgL_tmpz00_5140 = BgL_kz00_3266;
							}
						else
							{
								obj_t BgL_auxz00_5143;

								BgL_auxz00_5143 =
									BGl_typezd2errorzd2zz__errorz00(BGl_string2567z00zz__srfi4z00,
									BINT(28315L), BGl_string2615z00zz__srfi4z00,
									BGl_string2590z00zz__srfi4z00, BgL_kz00_3266);
								FAILURE(BgL_auxz00_5143, BFALSE, BFALSE);
							}
						BgL_kz00_4043 = (long) CINT(BgL_tmpz00_5140);
					}
					BgL_tmpz00_5133 = BGL_S16VREF(BgL_vz00_4042, BgL_kz00_4043);
				}
				return BGL_INT16_TO_BINT16(BgL_tmpz00_5133);
			}
		}

	}



/* 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_3274,
		obj_t BgL_vz00_3275, obj_t BgL_kz00_3276)
	{
		{	/* Llib/srfi4.scm 694 */
			{	/* Llib/srfi4.scm 695 */
				uint16_t BgL_tmpz00_5151;

				{	/* Llib/srfi4.scm 695 */
					obj_t BgL_vz00_4044;
					long BgL_kz00_4045;

					if (BGL_U16VECTORP(BgL_vz00_3275))
						{	/* Llib/srfi4.scm 695 */
							BgL_vz00_4044 = BgL_vz00_3275;
						}
					else
						{
							obj_t BgL_auxz00_5154;

							BgL_auxz00_5154 =
								BGl_typezd2errorzd2zz__errorz00(BGl_string2567z00zz__srfi4z00,
								BINT(28376L), BGl_string2616z00zz__srfi4z00,
								BGl_string2575z00zz__srfi4z00, BgL_vz00_3275);
							FAILURE(BgL_auxz00_5154, BFALSE, BFALSE);
						}
					{	/* Llib/srfi4.scm 695 */
						obj_t BgL_tmpz00_5158;

						if (INTEGERP(BgL_kz00_3276))
							{	/* Llib/srfi4.scm 695 */
								BgL_tmpz00_5158 = BgL_kz00_3276;
							}
						else
							{
								obj_t BgL_auxz00_5161;

								BgL_auxz00_5161 =
									BGl_typezd2errorzd2zz__errorz00(BGl_string2567z00zz__srfi4z00,
									BINT(28376L), BGl_string2616z00zz__srfi4z00,
									BGl_string2590z00zz__srfi4z00, BgL_kz00_3276);
								FAILURE(BgL_auxz00_5161, BFALSE, BFALSE);
							}
						BgL_kz00_4045 = (long) CINT(BgL_tmpz00_5158);
					}
					BgL_tmpz00_5151 = BGL_U16VREF(BgL_vz00_4044, BgL_kz00_4045);
				}
				return BGL_UINT16_TO_BUINT16(BgL_tmpz00_5151);
			}
		}

	}



/* 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_3284,
		obj_t BgL_vz00_3285, obj_t BgL_kz00_3286)
	{
		{	/* Llib/srfi4.scm 697 */
			{	/* Llib/srfi4.scm 698 */
				int32_t BgL_tmpz00_5169;

				{	/* Llib/srfi4.scm 698 */
					obj_t BgL_vz00_4046;
					long BgL_kz00_4047;

					if (BGL_S32VECTORP(BgL_vz00_3285))
						{	/* Llib/srfi4.scm 698 */
							BgL_vz00_4046 = BgL_vz00_3285;
						}
					else
						{
							obj_t BgL_auxz00_5172;

							BgL_auxz00_5172 =
								BGl_typezd2errorzd2zz__errorz00(BGl_string2567z00zz__srfi4z00,
								BINT(28437L), BGl_string2617z00zz__srfi4z00,
								BGl_string2577z00zz__srfi4z00, BgL_vz00_3285);
							FAILURE(BgL_auxz00_5172, BFALSE, BFALSE);
						}
					{	/* Llib/srfi4.scm 698 */
						obj_t BgL_tmpz00_5176;

						if (INTEGERP(BgL_kz00_3286))
							{	/* Llib/srfi4.scm 698 */
								BgL_tmpz00_5176 = BgL_kz00_3286;
							}
						else
							{
								obj_t BgL_auxz00_5179;

								BgL_auxz00_5179 =
									BGl_typezd2errorzd2zz__errorz00(BGl_string2567z00zz__srfi4z00,
									BINT(28437L), BGl_string2617z00zz__srfi4z00,
									BGl_string2590z00zz__srfi4z00, BgL_kz00_3286);
								FAILURE(BgL_auxz00_5179, BFALSE, BFALSE);
							}
						BgL_kz00_4047 = (long) CINT(BgL_tmpz00_5176);
					}
					BgL_tmpz00_5169 = BGL_S32VREF(BgL_vz00_4046, BgL_kz00_4047);
				}
				return BGL_INT32_TO_BINT32(BgL_tmpz00_5169);
			}
		}

	}



/* 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_3294,
		obj_t BgL_vz00_3295, obj_t BgL_kz00_3296)
	{
		{	/* Llib/srfi4.scm 700 */
			{	/* Llib/srfi4.scm 701 */
				uint32_t BgL_tmpz00_5187;

				{	/* Llib/srfi4.scm 701 */
					obj_t BgL_vz00_4048;
					long BgL_kz00_4049;

					if (BGL_U32VECTORP(BgL_vz00_3295))
						{	/* Llib/srfi4.scm 701 */
							BgL_vz00_4048 = BgL_vz00_3295;
						}
					else
						{
							obj_t BgL_auxz00_5190;

							BgL_auxz00_5190 =
								BGl_typezd2errorzd2zz__errorz00(BGl_string2567z00zz__srfi4z00,
								BINT(28498L), BGl_string2618z00zz__srfi4z00,
								BGl_string2579z00zz__srfi4z00, BgL_vz00_3295);
							FAILURE(BgL_auxz00_5190, BFALSE, BFALSE);
						}
					{	/* Llib/srfi4.scm 701 */
						obj_t BgL_tmpz00_5194;

						if (INTEGERP(BgL_kz00_3296))
							{	/* Llib/srfi4.scm 701 */
								BgL_tmpz00_5194 = BgL_kz00_3296;
							}
						else
							{
								obj_t BgL_auxz00_5197;

								BgL_auxz00_5197 =
									BGl_typezd2errorzd2zz__errorz00(BGl_string2567z00zz__srfi4z00,
									BINT(28498L), BGl_string2618z00zz__srfi4z00,
									BGl_string2590z00zz__srfi4z00, BgL_kz00_3296);
								FAILURE(BgL_auxz00_5197, BFALSE, BFALSE);
							}
						BgL_kz00_4049 = (long) CINT(BgL_tmpz00_5194);
					}
					BgL_tmpz00_5187 = BGL_U32VREF(BgL_vz00_4048, BgL_kz00_4049);
				}
				return BGL_UINT32_TO_BUINT32(BgL_tmpz00_5187);
			}
		}

	}



/* 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_3304,
		obj_t BgL_vz00_3305, obj_t BgL_kz00_3306)
	{
		{	/* Llib/srfi4.scm 703 */
			{	/* Llib/srfi4.scm 704 */
				int64_t BgL_tmpz00_5205;

				{	/* Llib/srfi4.scm 704 */
					obj_t BgL_vz00_4050;
					long BgL_kz00_4051;

					if (BGL_S64VECTORP(BgL_vz00_3305))
						{	/* Llib/srfi4.scm 704 */
							BgL_vz00_4050 = BgL_vz00_3305;
						}
					else
						{
							obj_t BgL_auxz00_5208;

							BgL_auxz00_5208 =
								BGl_typezd2errorzd2zz__errorz00(BGl_string2567z00zz__srfi4z00,
								BINT(28559L), BGl_string2619z00zz__srfi4z00,
								BGl_string2581z00zz__srfi4z00, BgL_vz00_3305);
							FAILURE(BgL_auxz00_5208, BFALSE, BFALSE);
						}
					{	/* Llib/srfi4.scm 704 */
						obj_t BgL_tmpz00_5212;

						if (INTEGERP(BgL_kz00_3306))
							{	/* Llib/srfi4.scm 704 */
								BgL_tmpz00_5212 = BgL_kz00_3306;
							}
						else
							{
								obj_t BgL_auxz00_5215;

								BgL_auxz00_5215 =
									BGl_typezd2errorzd2zz__errorz00(BGl_string2567z00zz__srfi4z00,
									BINT(28559L), BGl_string2619z00zz__srfi4z00,
									BGl_string2590z00zz__srfi4z00, BgL_kz00_3306);
								FAILURE(BgL_auxz00_5215, BFALSE, BFALSE);
							}
						BgL_kz00_4051 = (long) CINT(BgL_tmpz00_5212);
					}
					BgL_tmpz00_5205 = BGL_S64VREF(BgL_vz00_4050, BgL_kz00_4051);
				}
				return BGL_INT64_TO_BINT64(BgL_tmpz00_5205);
			}
		}

	}



/* 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_3314,
		obj_t BgL_vz00_3315, obj_t BgL_kz00_3316)
	{
		{	/* Llib/srfi4.scm 706 */
			{	/* Llib/srfi4.scm 707 */
				uint64_t BgL_tmpz00_5223;

				{	/* Llib/srfi4.scm 707 */
					obj_t BgL_vz00_4052;
					long BgL_kz00_4053;

					if (BGL_U64VECTORP(BgL_vz00_3315))
						{	/* Llib/srfi4.scm 707 */
							BgL_vz00_4052 = BgL_vz00_3315;
						}
					else
						{
							obj_t BgL_auxz00_5226;

							BgL_auxz00_5226 =
								BGl_typezd2errorzd2zz__errorz00(BGl_string2567z00zz__srfi4z00,
								BINT(28620L), BGl_string2620z00zz__srfi4z00,
								BGl_string2583z00zz__srfi4z00, BgL_vz00_3315);
							FAILURE(BgL_auxz00_5226, BFALSE, BFALSE);
						}
					{	/* Llib/srfi4.scm 707 */
						obj_t BgL_tmpz00_5230;

						if (INTEGERP(BgL_kz00_3316))
							{	/* Llib/srfi4.scm 707 */
								BgL_tmpz00_5230 = BgL_kz00_3316;
							}
						else
							{
								obj_t BgL_auxz00_5233;

								BgL_auxz00_5233 =
									BGl_typezd2errorzd2zz__errorz00(BGl_string2567z00zz__srfi4z00,
									BINT(28620L), BGl_string2620z00zz__srfi4z00,
									BGl_string2590z00zz__srfi4z00, BgL_kz00_3316);
								FAILURE(BgL_auxz00_5233, BFALSE, BFALSE);
							}
						BgL_kz00_4053 = (long) CINT(BgL_tmpz00_5230);
					}
					BgL_tmpz00_5223 = BGL_U64VREF(BgL_vz00_4052, BgL_kz00_4053);
				}
				return BGL_UINT64_TO_BUINT64(BgL_tmpz00_5223);
			}
		}

	}



/* 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_3324,
		obj_t BgL_vz00_3325, obj_t BgL_kz00_3326)
	{
		{	/* Llib/srfi4.scm 709 */
			{	/* Llib/srfi4.scm 710 */
				float BgL_tmpz00_5241;

				{	/* Llib/srfi4.scm 710 */
					obj_t BgL_vz00_4054;
					long BgL_kz00_4055;

					if (BGL_F32VECTORP(BgL_vz00_3325))
						{	/* Llib/srfi4.scm 710 */
							BgL_vz00_4054 = BgL_vz00_3325;
						}
					else
						{
							obj_t BgL_auxz00_5244;

							BgL_auxz00_5244 =
								BGl_typezd2errorzd2zz__errorz00(BGl_string2567z00zz__srfi4z00,
								BINT(28681L), BGl_string2621z00zz__srfi4z00,
								BGl_string2585z00zz__srfi4z00, BgL_vz00_3325);
							FAILURE(BgL_auxz00_5244, BFALSE, BFALSE);
						}
					{	/* Llib/srfi4.scm 710 */
						obj_t BgL_tmpz00_5248;

						if (INTEGERP(BgL_kz00_3326))
							{	/* Llib/srfi4.scm 710 */
								BgL_tmpz00_5248 = BgL_kz00_3326;
							}
						else
							{
								obj_t BgL_auxz00_5251;

								BgL_auxz00_5251 =
									BGl_typezd2errorzd2zz__errorz00(BGl_string2567z00zz__srfi4z00,
									BINT(28681L), BGl_string2621z00zz__srfi4z00,
									BGl_string2590z00zz__srfi4z00, BgL_kz00_3326);
								FAILURE(BgL_auxz00_5251, BFALSE, BFALSE);
							}
						BgL_kz00_4055 = (long) CINT(BgL_tmpz00_5248);
					}
					BgL_tmpz00_5241 = BGL_F32VREF(BgL_vz00_4054, BgL_kz00_4055);
				}
				return FLOAT_TO_REAL(BgL_tmpz00_5241);
			}
		}

	}



/* 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_3334,
		obj_t BgL_vz00_3335, obj_t BgL_kz00_3336)
	{
		{	/* Llib/srfi4.scm 712 */
			{	/* Llib/srfi4.scm 713 */
				double BgL_tmpz00_5259;

				{	/* Llib/srfi4.scm 713 */
					obj_t BgL_vz00_4056;
					long BgL_kz00_4057;

					if (BGL_F64VECTORP(BgL_vz00_3335))
						{	/* Llib/srfi4.scm 713 */
							BgL_vz00_4056 = BgL_vz00_3335;
						}
					else
						{
							obj_t BgL_auxz00_5262;

							BgL_auxz00_5262 =
								BGl_typezd2errorzd2zz__errorz00(BGl_string2567z00zz__srfi4z00,
								BINT(28742L), BGl_string2622z00zz__srfi4z00,
								BGl_string2587z00zz__srfi4z00, BgL_vz00_3335);
							FAILURE(BgL_auxz00_5262, BFALSE, BFALSE);
						}
					{	/* Llib/srfi4.scm 713 */
						obj_t BgL_tmpz00_5266;

						if (INTEGERP(BgL_kz00_3336))
							{	/* Llib/srfi4.scm 713 */
								BgL_tmpz00_5266 = BgL_kz00_3336;
							}
						else
							{
								obj_t BgL_auxz00_5269;

								BgL_auxz00_5269 =
									BGl_typezd2errorzd2zz__errorz00(BGl_string2567z00zz__srfi4z00,
									BINT(28742L), BGl_string2622z00zz__srfi4z00,
									BGl_string2590z00zz__srfi4z00, BgL_kz00_3336);
								FAILURE(BgL_auxz00_5269, BFALSE, BFALSE);
							}
						BgL_kz00_4057 = (long) CINT(BgL_tmpz00_5266);
					}
					BgL_tmpz00_5259 = BGL_F64VREF(BgL_vz00_4056, BgL_kz00_4057);
				}
				return DOUBLE_TO_REAL(BgL_tmpz00_5259);
			}
		}

	}



/* 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_3247,
		obj_t BgL_vz00_3248, obj_t BgL_kz00_3249, obj_t BgL_valz00_3250)
	{
		{	/* Llib/srfi4.scm 721 */
			{	/* Llib/srfi4.scm 721 */
				obj_t BgL_vz00_4058;
				long BgL_kz00_4059;
				int8_t BgL_valz00_4060;

				if (BGL_S8VECTORP(BgL_vz00_3248))
					{	/* Llib/srfi4.scm 721 */
						BgL_vz00_4058 = BgL_vz00_3248;
					}
				else
					{
						obj_t BgL_auxz00_5279;

						BgL_auxz00_5279 =
							BGl_typezd2errorzd2zz__errorz00(BGl_string2567z00zz__srfi4z00,
							BINT(29057L), BGl_string2623z00zz__srfi4z00,
							BGl_string2569z00zz__srfi4z00, BgL_vz00_3248);
						FAILURE(BgL_auxz00_5279, BFALSE, BFALSE);
					}
				{	/* Llib/srfi4.scm 721 */
					obj_t BgL_tmpz00_5283;

					if (INTEGERP(BgL_kz00_3249))
						{	/* Llib/srfi4.scm 721 */
							BgL_tmpz00_5283 = BgL_kz00_3249;
						}
					else
						{
							obj_t BgL_auxz00_5286;

							BgL_auxz00_5286 =
								BGl_typezd2errorzd2zz__errorz00(BGl_string2567z00zz__srfi4z00,
								BINT(29057L), BGl_string2623z00zz__srfi4z00,
								BGl_string2590z00zz__srfi4z00, BgL_kz00_3249);
							FAILURE(BgL_auxz00_5286, BFALSE, BFALSE);
						}
					BgL_kz00_4059 = (long) CINT(BgL_tmpz00_5283);
				}
				{	/* Llib/srfi4.scm 721 */
					obj_t BgL_tmpz00_5291;

					if (BGL_INT8P(BgL_valz00_3250))
						{	/* Llib/srfi4.scm 721 */
							BgL_tmpz00_5291 = BgL_valz00_3250;
						}
					else
						{
							obj_t BgL_auxz00_5294;

							BgL_auxz00_5294 =
								BGl_typezd2errorzd2zz__errorz00(BGl_string2567z00zz__srfi4z00,
								BINT(29057L), BGl_string2623z00zz__srfi4z00,
								BGl_string2591z00zz__srfi4z00, BgL_valz00_3250);
							FAILURE(BgL_auxz00_5294, BFALSE, BFALSE);
						}
					BgL_valz00_4060 = BGL_BINT8_TO_INT8(BgL_tmpz00_5291);
				}
				BGL_S8VSET(BgL_vz00_4058, BgL_kz00_4059, BgL_valz00_4060);
				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_3257,
		obj_t BgL_vz00_3258, obj_t BgL_kz00_3259, obj_t BgL_valz00_3260)
	{
		{	/* Llib/srfi4.scm 724 */
			{	/* Llib/srfi4.scm 724 */
				obj_t BgL_vz00_4061;
				long BgL_kz00_4062;
				uint8_t BgL_valz00_4063;

				if (BGL_U8VECTORP(BgL_vz00_3258))
					{	/* Llib/srfi4.scm 724 */
						BgL_vz00_4061 = BgL_vz00_3258;
					}
				else
					{
						obj_t BgL_auxz00_5303;

						BgL_auxz00_5303 =
							BGl_typezd2errorzd2zz__errorz00(BGl_string2567z00zz__srfi4z00,
							BINT(29126L), BGl_string2624z00zz__srfi4z00,
							BGl_string2571z00zz__srfi4z00, BgL_vz00_3258);
						FAILURE(BgL_auxz00_5303, BFALSE, BFALSE);
					}
				{	/* Llib/srfi4.scm 724 */
					obj_t BgL_tmpz00_5307;

					if (INTEGERP(BgL_kz00_3259))
						{	/* Llib/srfi4.scm 724 */
							BgL_tmpz00_5307 = BgL_kz00_3259;
						}
					else
						{
							obj_t BgL_auxz00_5310;

							BgL_auxz00_5310 =
								BGl_typezd2errorzd2zz__errorz00(BGl_string2567z00zz__srfi4z00,
								BINT(29126L), BGl_string2624z00zz__srfi4z00,
								BGl_string2590z00zz__srfi4z00, BgL_kz00_3259);
							FAILURE(BgL_auxz00_5310, BFALSE, BFALSE);
						}
					BgL_kz00_4062 = (long) CINT(BgL_tmpz00_5307);
				}
				{	/* Llib/srfi4.scm 724 */
					obj_t BgL_tmpz00_5315;

					if (BGL_UINT8P(BgL_valz00_3260))
						{	/* Llib/srfi4.scm 724 */
							BgL_tmpz00_5315 = BgL_valz00_3260;
						}
					else
						{
							obj_t BgL_auxz00_5318;

							BgL_auxz00_5318 =
								BGl_typezd2errorzd2zz__errorz00(BGl_string2567z00zz__srfi4z00,
								BINT(29126L), BGl_string2624z00zz__srfi4z00,
								BGl_string2593z00zz__srfi4z00, BgL_valz00_3260);
							FAILURE(BgL_auxz00_5318, BFALSE, BFALSE);
						}
					BgL_valz00_4063 = BGL_BUINT8_TO_UINT8(BgL_tmpz00_5315);
				}
				BGL_U8VSET(BgL_vz00_4061, BgL_kz00_4062, BgL_valz00_4063);
				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_3267,
		obj_t BgL_vz00_3268, obj_t BgL_kz00_3269, obj_t BgL_valz00_3270)
	{
		{	/* Llib/srfi4.scm 727 */
			{	/* Llib/srfi4.scm 727 */
				obj_t BgL_vz00_4064;
				long BgL_kz00_4065;
				int16_t BgL_valz00_4066;

				if (BGL_S16VECTORP(BgL_vz00_3268))
					{	/* Llib/srfi4.scm 727 */
						BgL_vz00_4064 = BgL_vz00_3268;
					}
				else
					{
						obj_t BgL_auxz00_5327;

						BgL_auxz00_5327 =
							BGl_typezd2errorzd2zz__errorz00(BGl_string2567z00zz__srfi4z00,
							BINT(29195L), BGl_string2625z00zz__srfi4z00,
							BGl_string2573z00zz__srfi4z00, BgL_vz00_3268);
						FAILURE(BgL_auxz00_5327, BFALSE, BFALSE);
					}
				{	/* Llib/srfi4.scm 727 */
					obj_t BgL_tmpz00_5331;

					if (INTEGERP(BgL_kz00_3269))
						{	/* Llib/srfi4.scm 727 */
							BgL_tmpz00_5331 = BgL_kz00_3269;
						}
					else
						{
							obj_t BgL_auxz00_5334;

							BgL_auxz00_5334 =
								BGl_typezd2errorzd2zz__errorz00(BGl_string2567z00zz__srfi4z00,
								BINT(29195L), BGl_string2625z00zz__srfi4z00,
								BGl_string2590z00zz__srfi4z00, BgL_kz00_3269);
							FAILURE(BgL_auxz00_5334, BFALSE, BFALSE);
						}
					BgL_kz00_4065 = (long) CINT(BgL_tmpz00_5331);
				}
				{	/* Llib/srfi4.scm 727 */
					obj_t BgL_tmpz00_5339;

					if (BGL_INT16P(BgL_valz00_3270))
						{	/* Llib/srfi4.scm 727 */
							BgL_tmpz00_5339 = BgL_valz00_3270;
						}
					else
						{
							obj_t BgL_auxz00_5342;

							BgL_auxz00_5342 =
								BGl_typezd2errorzd2zz__errorz00(BGl_string2567z00zz__srfi4z00,
								BINT(29195L), BGl_string2625z00zz__srfi4z00,
								BGl_string2595z00zz__srfi4z00, BgL_valz00_3270);
							FAILURE(BgL_auxz00_5342, BFALSE, BFALSE);
						}
					BgL_valz00_4066 = BGL_BINT16_TO_INT16(BgL_tmpz00_5339);
				}
				BGL_S16VSET(BgL_vz00_4064, BgL_kz00_4065, BgL_valz00_4066);
				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_3277,
		obj_t BgL_vz00_3278, obj_t BgL_kz00_3279, obj_t BgL_valz00_3280)
	{
		{	/* Llib/srfi4.scm 730 */
			{	/* Llib/srfi4.scm 730 */
				obj_t BgL_vz00_4067;
				long BgL_kz00_4068;
				uint16_t BgL_valz00_4069;

				if (BGL_U16VECTORP(BgL_vz00_3278))
					{	/* Llib/srfi4.scm 730 */
						BgL_vz00_4067 = BgL_vz00_3278;
					}
				else
					{
						obj_t BgL_auxz00_5351;

						BgL_auxz00_5351 =
							BGl_typezd2errorzd2zz__errorz00(BGl_string2567z00zz__srfi4z00,
							BINT(29266L), BGl_string2626z00zz__srfi4z00,
							BGl_string2575z00zz__srfi4z00, BgL_vz00_3278);
						FAILURE(BgL_auxz00_5351, BFALSE, BFALSE);
					}
				{	/* Llib/srfi4.scm 730 */
					obj_t BgL_tmpz00_5355;

					if (INTEGERP(BgL_kz00_3279))
						{	/* Llib/srfi4.scm 730 */
							BgL_tmpz00_5355 = BgL_kz00_3279;
						}
					else
						{
							obj_t BgL_auxz00_5358;

							BgL_auxz00_5358 =
								BGl_typezd2errorzd2zz__errorz00(BGl_string2567z00zz__srfi4z00,
								BINT(29266L), BGl_string2626z00zz__srfi4z00,
								BGl_string2590z00zz__srfi4z00, BgL_kz00_3279);
							FAILURE(BgL_auxz00_5358, BFALSE, BFALSE);
						}
					BgL_kz00_4068 = (long) CINT(BgL_tmpz00_5355);
				}
				{	/* Llib/srfi4.scm 730 */
					obj_t BgL_tmpz00_5363;

					if (BGL_UINT16P(BgL_valz00_3280))
						{	/* Llib/srfi4.scm 730 */
							BgL_tmpz00_5363 = BgL_valz00_3280;
						}
					else
						{
							obj_t BgL_auxz00_5366;

							BgL_auxz00_5366 =
								BGl_typezd2errorzd2zz__errorz00(BGl_string2567z00zz__srfi4z00,
								BINT(29266L), BGl_string2626z00zz__srfi4z00,
								BGl_string2597z00zz__srfi4z00, BgL_valz00_3280);
							FAILURE(BgL_auxz00_5366, BFALSE, BFALSE);
						}
					BgL_valz00_4069 = BGL_BUINT16_TO_UINT16(BgL_tmpz00_5363);
				}
				BGL_U16VSET(BgL_vz00_4067, BgL_kz00_4068, BgL_valz00_4069);
				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_3287,
		obj_t BgL_vz00_3288, obj_t BgL_kz00_3289, obj_t BgL_valz00_3290)
	{
		{	/* Llib/srfi4.scm 733 */
			{	/* Llib/srfi4.scm 733 */
				obj_t BgL_vz00_4070;
				long BgL_kz00_4071;
				int32_t BgL_valz00_4072;

				if (BGL_S32VECTORP(BgL_vz00_3288))
					{	/* Llib/srfi4.scm 733 */
						BgL_vz00_4070 = BgL_vz00_3288;
					}
				else
					{
						obj_t BgL_auxz00_5375;

						BgL_auxz00_5375 =
							BGl_typezd2errorzd2zz__errorz00(BGl_string2567z00zz__srfi4z00,
							BINT(29337L), BGl_string2627z00zz__srfi4z00,
							BGl_string2577z00zz__srfi4z00, BgL_vz00_3288);
						FAILURE(BgL_auxz00_5375, BFALSE, BFALSE);
					}
				{	/* Llib/srfi4.scm 733 */
					obj_t BgL_tmpz00_5379;

					if (INTEGERP(BgL_kz00_3289))
						{	/* Llib/srfi4.scm 733 */
							BgL_tmpz00_5379 = BgL_kz00_3289;
						}
					else
						{
							obj_t BgL_auxz00_5382;

							BgL_auxz00_5382 =
								BGl_typezd2errorzd2zz__errorz00(BGl_string2567z00zz__srfi4z00,
								BINT(29337L), BGl_string2627z00zz__srfi4z00,
								BGl_string2590z00zz__srfi4z00, BgL_kz00_3289);
							FAILURE(BgL_auxz00_5382, BFALSE, BFALSE);
						}
					BgL_kz00_4071 = (long) CINT(BgL_tmpz00_5379);
				}
				{	/* Llib/srfi4.scm 733 */
					obj_t BgL_tmpz00_5387;

					if (BGL_INT32P(BgL_valz00_3290))
						{	/* Llib/srfi4.scm 733 */
							BgL_tmpz00_5387 = BgL_valz00_3290;
						}
					else
						{
							obj_t BgL_auxz00_5390;

							BgL_auxz00_5390 =
								BGl_typezd2errorzd2zz__errorz00(BGl_string2567z00zz__srfi4z00,
								BINT(29337L), BGl_string2627z00zz__srfi4z00,
								BGl_string2599z00zz__srfi4z00, BgL_valz00_3290);
							FAILURE(BgL_auxz00_5390, BFALSE, BFALSE);
						}
					BgL_valz00_4072 = BGL_BINT32_TO_INT32(BgL_tmpz00_5387);
				}
				BGL_S32VSET(BgL_vz00_4070, BgL_kz00_4071, BgL_valz00_4072);
				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_3297,
		obj_t BgL_vz00_3298, obj_t BgL_kz00_3299, obj_t BgL_valz00_3300)
	{
		{	/* Llib/srfi4.scm 736 */
			{	/* Llib/srfi4.scm 736 */
				obj_t BgL_vz00_4073;
				long BgL_kz00_4074;
				uint32_t BgL_valz00_4075;

				if (BGL_U32VECTORP(BgL_vz00_3298))
					{	/* Llib/srfi4.scm 736 */
						BgL_vz00_4073 = BgL_vz00_3298;
					}
				else
					{
						obj_t BgL_auxz00_5399;

						BgL_auxz00_5399 =
							BGl_typezd2errorzd2zz__errorz00(BGl_string2567z00zz__srfi4z00,
							BINT(29408L), BGl_string2628z00zz__srfi4z00,
							BGl_string2579z00zz__srfi4z00, BgL_vz00_3298);
						FAILURE(BgL_auxz00_5399, BFALSE, BFALSE);
					}
				{	/* Llib/srfi4.scm 736 */
					obj_t BgL_tmpz00_5403;

					if (INTEGERP(BgL_kz00_3299))
						{	/* Llib/srfi4.scm 736 */
							BgL_tmpz00_5403 = BgL_kz00_3299;
						}
					else
						{
							obj_t BgL_auxz00_5406;

							BgL_auxz00_5406 =
								BGl_typezd2errorzd2zz__errorz00(BGl_string2567z00zz__srfi4z00,
								BINT(29408L), BGl_string2628z00zz__srfi4z00,
								BGl_string2590z00zz__srfi4z00, BgL_kz00_3299);
							FAILURE(BgL_auxz00_5406, BFALSE, BFALSE);
						}
					BgL_kz00_4074 = (long) CINT(BgL_tmpz00_5403);
				}
				{	/* Llib/srfi4.scm 736 */
					obj_t BgL_tmpz00_5411;

					if (BGL_UINT32P(BgL_valz00_3300))
						{	/* Llib/srfi4.scm 736 */
							BgL_tmpz00_5411 = BgL_valz00_3300;
						}
					else
						{
							obj_t BgL_auxz00_5414;

							BgL_auxz00_5414 =
								BGl_typezd2errorzd2zz__errorz00(BGl_string2567z00zz__srfi4z00,
								BINT(29408L), BGl_string2628z00zz__srfi4z00,
								BGl_string2601z00zz__srfi4z00, BgL_valz00_3300);
							FAILURE(BgL_auxz00_5414, BFALSE, BFALSE);
						}
					BgL_valz00_4075 = BGL_BUINT32_TO_UINT32(BgL_tmpz00_5411);
				}
				BGL_U32VSET(BgL_vz00_4073, BgL_kz00_4074, BgL_valz00_4075);
				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_3307,
		obj_t BgL_vz00_3308, obj_t BgL_kz00_3309, obj_t BgL_valz00_3310)
	{
		{	/* Llib/srfi4.scm 739 */
			{	/* Llib/srfi4.scm 739 */
				obj_t BgL_vz00_4076;
				long BgL_kz00_4077;
				int64_t BgL_valz00_4078;

				if (BGL_S64VECTORP(BgL_vz00_3308))
					{	/* Llib/srfi4.scm 739 */
						BgL_vz00_4076 = BgL_vz00_3308;
					}
				else
					{
						obj_t BgL_auxz00_5423;

						BgL_auxz00_5423 =
							BGl_typezd2errorzd2zz__errorz00(BGl_string2567z00zz__srfi4z00,
							BINT(29479L), BGl_string2629z00zz__srfi4z00,
							BGl_string2581z00zz__srfi4z00, BgL_vz00_3308);
						FAILURE(BgL_auxz00_5423, BFALSE, BFALSE);
					}
				{	/* Llib/srfi4.scm 739 */
					obj_t BgL_tmpz00_5427;

					if (INTEGERP(BgL_kz00_3309))
						{	/* Llib/srfi4.scm 739 */
							BgL_tmpz00_5427 = BgL_kz00_3309;
						}
					else
						{
							obj_t BgL_auxz00_5430;

							BgL_auxz00_5430 =
								BGl_typezd2errorzd2zz__errorz00(BGl_string2567z00zz__srfi4z00,
								BINT(29479L), BGl_string2629z00zz__srfi4z00,
								BGl_string2590z00zz__srfi4z00, BgL_kz00_3309);
							FAILURE(BgL_auxz00_5430, BFALSE, BFALSE);
						}
					BgL_kz00_4077 = (long) CINT(BgL_tmpz00_5427);
				}
				{	/* Llib/srfi4.scm 739 */
					obj_t BgL_tmpz00_5435;

					if (BGL_INT64P(BgL_valz00_3310))
						{	/* Llib/srfi4.scm 739 */
							BgL_tmpz00_5435 = BgL_valz00_3310;
						}
					else
						{
							obj_t BgL_auxz00_5438;

							BgL_auxz00_5438 =
								BGl_typezd2errorzd2zz__errorz00(BGl_string2567z00zz__srfi4z00,
								BINT(29479L), BGl_string2629z00zz__srfi4z00,
								BGl_string2603z00zz__srfi4z00, BgL_valz00_3310);
							FAILURE(BgL_auxz00_5438, BFALSE, BFALSE);
						}
					BgL_valz00_4078 = BGL_BINT64_TO_INT64(BgL_tmpz00_5435);
				}
				BGL_S64VSET(BgL_vz00_4076, BgL_kz00_4077, BgL_valz00_4078);
				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_3317,
		obj_t BgL_vz00_3318, obj_t BgL_kz00_3319, obj_t BgL_valz00_3320)
	{
		{	/* Llib/srfi4.scm 742 */
			{	/* Llib/srfi4.scm 742 */
				obj_t BgL_vz00_4079;
				long BgL_kz00_4080;
				uint64_t BgL_valz00_4081;

				if (BGL_U64VECTORP(BgL_vz00_3318))
					{	/* Llib/srfi4.scm 742 */
						BgL_vz00_4079 = BgL_vz00_3318;
					}
				else
					{
						obj_t BgL_auxz00_5447;

						BgL_auxz00_5447 =
							BGl_typezd2errorzd2zz__errorz00(BGl_string2567z00zz__srfi4z00,
							BINT(29550L), BGl_string2630z00zz__srfi4z00,
							BGl_string2583z00zz__srfi4z00, BgL_vz00_3318);
						FAILURE(BgL_auxz00_5447, BFALSE, BFALSE);
					}
				{	/* Llib/srfi4.scm 742 */
					obj_t BgL_tmpz00_5451;

					if (INTEGERP(BgL_kz00_3319))
						{	/* Llib/srfi4.scm 742 */
							BgL_tmpz00_5451 = BgL_kz00_3319;
						}
					else
						{
							obj_t BgL_auxz00_5454;

							BgL_auxz00_5454 =
								BGl_typezd2errorzd2zz__errorz00(BGl_string2567z00zz__srfi4z00,
								BINT(29550L), BGl_string2630z00zz__srfi4z00,
								BGl_string2590z00zz__srfi4z00, BgL_kz00_3319);
							FAILURE(BgL_auxz00_5454, BFALSE, BFALSE);
						}
					BgL_kz00_4080 = (long) CINT(BgL_tmpz00_5451);
				}
				{	/* Llib/srfi4.scm 742 */
					obj_t BgL_tmpz00_5459;

					if (BGL_UINT64P(BgL_valz00_3320))
						{	/* Llib/srfi4.scm 742 */
							BgL_tmpz00_5459 = BgL_valz00_3320;
						}
					else
						{
							obj_t BgL_auxz00_5462;

							BgL_auxz00_5462 =
								BGl_typezd2errorzd2zz__errorz00(BGl_string2567z00zz__srfi4z00,
								BINT(29550L), BGl_string2630z00zz__srfi4z00,
								BGl_string2605z00zz__srfi4z00, BgL_valz00_3320);
							FAILURE(BgL_auxz00_5462, BFALSE, BFALSE);
						}
					BgL_valz00_4081 = BGL_BINT64_TO_INT64(BgL_tmpz00_5459);
				}
				BGL_U64VSET(BgL_vz00_4079, BgL_kz00_4080, BgL_valz00_4081);
				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_3327,
		obj_t BgL_vz00_3328, obj_t BgL_kz00_3329, obj_t BgL_valz00_3330)
	{
		{	/* Llib/srfi4.scm 745 */
			{	/* Llib/srfi4.scm 745 */
				obj_t BgL_vz00_4082;
				long BgL_kz00_4083;
				float BgL_valz00_4084;

				if (BGL_F32VECTORP(BgL_vz00_3328))
					{	/* Llib/srfi4.scm 745 */
						BgL_vz00_4082 = BgL_vz00_3328;
					}
				else
					{
						obj_t BgL_auxz00_5471;

						BgL_auxz00_5471 =
							BGl_typezd2errorzd2zz__errorz00(BGl_string2567z00zz__srfi4z00,
							BINT(29621L), BGl_string2631z00zz__srfi4z00,
							BGl_string2585z00zz__srfi4z00, BgL_vz00_3328);
						FAILURE(BgL_auxz00_5471, BFALSE, BFALSE);
					}
				{	/* Llib/srfi4.scm 745 */
					obj_t BgL_tmpz00_5475;

					if (INTEGERP(BgL_kz00_3329))
						{	/* Llib/srfi4.scm 745 */
							BgL_tmpz00_5475 = BgL_kz00_3329;
						}
					else
						{
							obj_t BgL_auxz00_5478;

							BgL_auxz00_5478 =
								BGl_typezd2errorzd2zz__errorz00(BGl_string2567z00zz__srfi4z00,
								BINT(29621L), BGl_string2631z00zz__srfi4z00,
								BGl_string2590z00zz__srfi4z00, BgL_kz00_3329);
							FAILURE(BgL_auxz00_5478, BFALSE, BFALSE);
						}
					BgL_kz00_4083 = (long) CINT(BgL_tmpz00_5475);
				}
				{	/* Llib/srfi4.scm 745 */
					obj_t BgL_tmpz00_5483;

					if (REALP(BgL_valz00_3330))
						{	/* Llib/srfi4.scm 745 */
							BgL_tmpz00_5483 = BgL_valz00_3330;
						}
					else
						{
							obj_t BgL_auxz00_5486;

							BgL_auxz00_5486 =
								BGl_typezd2errorzd2zz__errorz00(BGl_string2567z00zz__srfi4z00,
								BINT(29621L), BGl_string2631z00zz__srfi4z00,
								BGl_string2607z00zz__srfi4z00, BgL_valz00_3330);
							FAILURE(BgL_auxz00_5486, BFALSE, BFALSE);
						}
					BgL_valz00_4084 = REAL_TO_FLOAT(BgL_tmpz00_5483);
				}
				BGL_F32VSET(BgL_vz00_4082, BgL_kz00_4083, BgL_valz00_4084);
				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_3337,
		obj_t BgL_vz00_3338, obj_t BgL_kz00_3339, obj_t BgL_valz00_3340)
	{
		{	/* Llib/srfi4.scm 748 */
			{	/* Llib/srfi4.scm 748 */
				obj_t BgL_vz00_4085;
				long BgL_kz00_4086;
				double BgL_valz00_4087;

				if (BGL_F64VECTORP(BgL_vz00_3338))
					{	/* Llib/srfi4.scm 748 */
						BgL_vz00_4085 = BgL_vz00_3338;
					}
				else
					{
						obj_t BgL_auxz00_5495;

						BgL_auxz00_5495 =
							BGl_typezd2errorzd2zz__errorz00(BGl_string2567z00zz__srfi4z00,
							BINT(29692L), BGl_string2632z00zz__srfi4z00,
							BGl_string2587z00zz__srfi4z00, BgL_vz00_3338);
						FAILURE(BgL_auxz00_5495, BFALSE, BFALSE);
					}
				{	/* Llib/srfi4.scm 748 */
					obj_t BgL_tmpz00_5499;

					if (INTEGERP(BgL_kz00_3339))
						{	/* Llib/srfi4.scm 748 */
							BgL_tmpz00_5499 = BgL_kz00_3339;
						}
					else
						{
							obj_t BgL_auxz00_5502;

							BgL_auxz00_5502 =
								BGl_typezd2errorzd2zz__errorz00(BGl_string2567z00zz__srfi4z00,
								BINT(29692L), BGl_string2632z00zz__srfi4z00,
								BGl_string2590z00zz__srfi4z00, BgL_kz00_3339);
							FAILURE(BgL_auxz00_5502, BFALSE, BFALSE);
						}
					BgL_kz00_4086 = (long) CINT(BgL_tmpz00_5499);
				}
				{	/* Llib/srfi4.scm 748 */
					obj_t BgL_tmpz00_5507;

					if (REALP(BgL_valz00_3340))
						{	/* Llib/srfi4.scm 748 */
							BgL_tmpz00_5507 = BgL_valz00_3340;
						}
					else
						{
							obj_t BgL_auxz00_5510;

							BgL_auxz00_5510 =
								BGl_typezd2errorzd2zz__errorz00(BGl_string2567z00zz__srfi4z00,
								BINT(29692L), BGl_string2632z00zz__srfi4z00,
								BGl_string2607z00zz__srfi4z00, BgL_valz00_3340);
							FAILURE(BgL_auxz00_5510, BFALSE, BFALSE);
						}
					BgL_valz00_4087 = REAL_TO_DOUBLE(BgL_tmpz00_5507);
				}
				BGL_F64VSET(BgL_vz00_4085, BgL_kz00_4086, BgL_valz00_4087);
				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_1525;

				BgL_g1063z00_1525 = BGL_HVECTOR_LENGTH(BgL_xz00_133);
				{
					long BgL_iz00_2437;
					obj_t BgL_resz00_2438;

					BgL_iz00_2437 = BgL_g1063z00_1525;
					BgL_resz00_2438 = BNIL;
				BgL_loopz00_2436:
					if ((BgL_iz00_2437 == 0L))
						{	/* Llib/srfi4.scm 771 */
							return BgL_resz00_2438;
						}
					else
						{	/* Llib/srfi4.scm 771 */
							long BgL_niz00_2444;

							BgL_niz00_2444 = (BgL_iz00_2437 - 1L);
							{	/* Llib/srfi4.scm 771 */
								obj_t BgL_arg1427z00_2445;

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

									BgL_arg1428z00_2446 =
										BGL_S8VREF(BgL_xz00_133, BgL_niz00_2444);
									BgL_arg1427z00_2445 =
										MAKE_YOUNG_PAIR(BGL_INT8_TO_BINT8(BgL_arg1428z00_2446),
										BgL_resz00_2438);
								}
								{
									obj_t BgL_resz00_5524;
									long BgL_iz00_5523;

									BgL_iz00_5523 = BgL_niz00_2444;
									BgL_resz00_5524 = BgL_arg1427z00_2445;
									BgL_resz00_2438 = BgL_resz00_5524;
									BgL_iz00_2437 = BgL_iz00_5523;
									goto BgL_loopz00_2436;
								}
							}
						}
				}
			}
		}

	}



/* &s8vector->list */
	obj_t BGl_z62s8vectorzd2ze3listz53zz__srfi4z00(obj_t BgL_envz00_3385,
		obj_t BgL_xz00_3386)
	{
		{	/* Llib/srfi4.scm 771 */
			{	/* Llib/srfi4.scm 771 */
				obj_t BgL_auxz00_5525;

				if (BGL_S8VECTORP(BgL_xz00_3386))
					{	/* Llib/srfi4.scm 771 */
						BgL_auxz00_5525 = BgL_xz00_3386;
					}
				else
					{
						obj_t BgL_auxz00_5528;

						BgL_auxz00_5528 =
							BGl_typezd2errorzd2zz__errorz00(BGl_string2567z00zz__srfi4z00,
							BINT(30505L), BGl_string2633z00zz__srfi4z00,
							BGl_string2569z00zz__srfi4z00, BgL_xz00_3386);
						FAILURE(BgL_auxz00_5528, BFALSE, BFALSE);
					}
				return BGl_s8vectorzd2ze3listz31zz__srfi4z00(BgL_auxz00_5525);
			}
		}

	}



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

				BgL_g1065z00_1536 = BGL_HVECTOR_LENGTH(BgL_xz00_134);
				{
					long BgL_iz00_2462;
					obj_t BgL_resz00_2463;

					BgL_iz00_2462 = BgL_g1065z00_1536;
					BgL_resz00_2463 = BNIL;
				BgL_loopz00_2461:
					if ((BgL_iz00_2462 == 0L))
						{	/* Llib/srfi4.scm 771 */
							return BgL_resz00_2463;
						}
					else
						{	/* Llib/srfi4.scm 771 */
							long BgL_niz00_2469;

							BgL_niz00_2469 = (BgL_iz00_2462 - 1L);
							{	/* Llib/srfi4.scm 771 */
								obj_t BgL_arg1431z00_2470;

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

									BgL_arg1432z00_2471 =
										BGL_U8VREF(BgL_xz00_134, BgL_niz00_2469);
									BgL_arg1431z00_2470 =
										MAKE_YOUNG_PAIR(BGL_UINT8_TO_BUINT8(BgL_arg1432z00_2471),
										BgL_resz00_2463);
								}
								{
									obj_t BgL_resz00_5541;
									long BgL_iz00_5540;

									BgL_iz00_5540 = BgL_niz00_2469;
									BgL_resz00_5541 = BgL_arg1431z00_2470;
									BgL_resz00_2463 = BgL_resz00_5541;
									BgL_iz00_2462 = BgL_iz00_5540;
									goto BgL_loopz00_2461;
								}
							}
						}
				}
			}
		}

	}



/* &u8vector->list */
	obj_t BGl_z62u8vectorzd2ze3listz53zz__srfi4z00(obj_t BgL_envz00_3387,
		obj_t BgL_xz00_3388)
	{
		{	/* Llib/srfi4.scm 771 */
			{	/* Llib/srfi4.scm 771 */
				obj_t BgL_auxz00_5542;

				if (BGL_U8VECTORP(BgL_xz00_3388))
					{	/* Llib/srfi4.scm 771 */
						BgL_auxz00_5542 = BgL_xz00_3388;
					}
				else
					{
						obj_t BgL_auxz00_5545;

						BgL_auxz00_5545 =
							BGl_typezd2errorzd2zz__errorz00(BGl_string2567z00zz__srfi4z00,
							BINT(30505L), BGl_string2634z00zz__srfi4z00,
							BGl_string2571z00zz__srfi4z00, BgL_xz00_3388);
						FAILURE(BgL_auxz00_5545, BFALSE, BFALSE);
					}
				return BGl_u8vectorzd2ze3listz31zz__srfi4z00(BgL_auxz00_5542);
			}
		}

	}



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

				BgL_g1067z00_1547 = BGL_HVECTOR_LENGTH(BgL_xz00_135);
				{
					long BgL_iz00_2487;
					obj_t BgL_resz00_2488;

					BgL_iz00_2487 = BgL_g1067z00_1547;
					BgL_resz00_2488 = BNIL;
				BgL_loopz00_2486:
					if ((BgL_iz00_2487 == 0L))
						{	/* Llib/srfi4.scm 771 */
							return BgL_resz00_2488;
						}
					else
						{	/* Llib/srfi4.scm 771 */
							long BgL_niz00_2494;

							BgL_niz00_2494 = (BgL_iz00_2487 - 1L);
							{	/* Llib/srfi4.scm 771 */
								obj_t BgL_arg1435z00_2495;

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

									BgL_arg1436z00_2496 =
										BGL_S16VREF(BgL_xz00_135, BgL_niz00_2494);
									BgL_arg1435z00_2495 =
										MAKE_YOUNG_PAIR(BGL_INT16_TO_BINT16(BgL_arg1436z00_2496),
										BgL_resz00_2488);
								}
								{
									obj_t BgL_resz00_5558;
									long BgL_iz00_5557;

									BgL_iz00_5557 = BgL_niz00_2494;
									BgL_resz00_5558 = BgL_arg1435z00_2495;
									BgL_resz00_2488 = BgL_resz00_5558;
									BgL_iz00_2487 = BgL_iz00_5557;
									goto BgL_loopz00_2486;
								}
							}
						}
				}
			}
		}

	}



/* &s16vector->list */
	obj_t BGl_z62s16vectorzd2ze3listz53zz__srfi4z00(obj_t BgL_envz00_3389,
		obj_t BgL_xz00_3390)
	{
		{	/* Llib/srfi4.scm 771 */
			{	/* Llib/srfi4.scm 771 */
				obj_t BgL_auxz00_5559;

				if (BGL_S16VECTORP(BgL_xz00_3390))
					{	/* Llib/srfi4.scm 771 */
						BgL_auxz00_5559 = BgL_xz00_3390;
					}
				else
					{
						obj_t BgL_auxz00_5562;

						BgL_auxz00_5562 =
							BGl_typezd2errorzd2zz__errorz00(BGl_string2567z00zz__srfi4z00,
							BINT(30505L), BGl_string2635z00zz__srfi4z00,
							BGl_string2573z00zz__srfi4z00, BgL_xz00_3390);
						FAILURE(BgL_auxz00_5562, BFALSE, BFALSE);
					}
				return BGl_s16vectorzd2ze3listz31zz__srfi4z00(BgL_auxz00_5559);
			}
		}

	}



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

				BgL_g1069z00_1558 = BGL_HVECTOR_LENGTH(BgL_xz00_136);
				{
					long BgL_iz00_2512;
					obj_t BgL_resz00_2513;

					BgL_iz00_2512 = BgL_g1069z00_1558;
					BgL_resz00_2513 = BNIL;
				BgL_loopz00_2511:
					if ((BgL_iz00_2512 == 0L))
						{	/* Llib/srfi4.scm 771 */
							return BgL_resz00_2513;
						}
					else
						{	/* Llib/srfi4.scm 771 */
							long BgL_niz00_2519;

							BgL_niz00_2519 = (BgL_iz00_2512 - 1L);
							{	/* Llib/srfi4.scm 771 */
								obj_t BgL_arg1439z00_2520;

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

									BgL_arg1442z00_2521 =
										BGL_U16VREF(BgL_xz00_136, BgL_niz00_2519);
									BgL_arg1439z00_2520 =
										MAKE_YOUNG_PAIR(BGL_UINT16_TO_BUINT16(BgL_arg1442z00_2521),
										BgL_resz00_2513);
								}
								{
									obj_t BgL_resz00_5575;
									long BgL_iz00_5574;

									BgL_iz00_5574 = BgL_niz00_2519;
									BgL_resz00_5575 = BgL_arg1439z00_2520;
									BgL_resz00_2513 = BgL_resz00_5575;
									BgL_iz00_2512 = BgL_iz00_5574;
									goto BgL_loopz00_2511;
								}
							}
						}
				}
			}
		}

	}



/* &u16vector->list */
	obj_t BGl_z62u16vectorzd2ze3listz53zz__srfi4z00(obj_t BgL_envz00_3391,
		obj_t BgL_xz00_3392)
	{
		{	/* Llib/srfi4.scm 771 */
			{	/* Llib/srfi4.scm 771 */
				obj_t BgL_auxz00_5576;

				if (BGL_U16VECTORP(BgL_xz00_3392))
					{	/* Llib/srfi4.scm 771 */
						BgL_auxz00_5576 = BgL_xz00_3392;
					}
				else
					{
						obj_t BgL_auxz00_5579;

						BgL_auxz00_5579 =
							BGl_typezd2errorzd2zz__errorz00(BGl_string2567z00zz__srfi4z00,
							BINT(30505L), BGl_string2636z00zz__srfi4z00,
							BGl_string2575z00zz__srfi4z00, BgL_xz00_3392);
						FAILURE(BgL_auxz00_5579, BFALSE, BFALSE);
					}
				return BGl_u16vectorzd2ze3listz31zz__srfi4z00(BgL_auxz00_5576);
			}
		}

	}



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

				BgL_g1071z00_1569 = BGL_HVECTOR_LENGTH(BgL_xz00_137);
				{
					long BgL_iz00_2537;
					obj_t BgL_resz00_2538;

					BgL_iz00_2537 = BgL_g1071z00_1569;
					BgL_resz00_2538 = BNIL;
				BgL_loopz00_2536:
					if ((BgL_iz00_2537 == 0L))
						{	/* Llib/srfi4.scm 771 */
							return BgL_resz00_2538;
						}
					else
						{	/* Llib/srfi4.scm 771 */
							long BgL_niz00_2544;

							BgL_niz00_2544 = (BgL_iz00_2537 - 1L);
							{	/* Llib/srfi4.scm 771 */
								obj_t BgL_arg1445z00_2545;

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

									BgL_arg1446z00_2546 =
										BGL_S32VREF(BgL_xz00_137, BgL_niz00_2544);
									BgL_arg1445z00_2545 =
										MAKE_YOUNG_PAIR(BGL_INT32_TO_BINT32(BgL_arg1446z00_2546),
										BgL_resz00_2538);
								}
								{
									obj_t BgL_resz00_5592;
									long BgL_iz00_5591;

									BgL_iz00_5591 = BgL_niz00_2544;
									BgL_resz00_5592 = BgL_arg1445z00_2545;
									BgL_resz00_2538 = BgL_resz00_5592;
									BgL_iz00_2537 = BgL_iz00_5591;
									goto BgL_loopz00_2536;
								}
							}
						}
				}
			}
		}

	}



/* &s32vector->list */
	obj_t BGl_z62s32vectorzd2ze3listz53zz__srfi4z00(obj_t BgL_envz00_3393,
		obj_t BgL_xz00_3394)
	{
		{	/* Llib/srfi4.scm 771 */
			{	/* Llib/srfi4.scm 771 */
				obj_t BgL_auxz00_5593;

				if (BGL_S32VECTORP(BgL_xz00_3394))
					{	/* Llib/srfi4.scm 771 */
						BgL_auxz00_5593 = BgL_xz00_3394;
					}
				else
					{
						obj_t BgL_auxz00_5596;

						BgL_auxz00_5596 =
							BGl_typezd2errorzd2zz__errorz00(BGl_string2567z00zz__srfi4z00,
							BINT(30505L), BGl_string2637z00zz__srfi4z00,
							BGl_string2577z00zz__srfi4z00, BgL_xz00_3394);
						FAILURE(BgL_auxz00_5596, BFALSE, BFALSE);
					}
				return BGl_s32vectorzd2ze3listz31zz__srfi4z00(BgL_auxz00_5593);
			}
		}

	}



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

				BgL_g1073z00_1580 = BGL_HVECTOR_LENGTH(BgL_xz00_138);
				{
					long BgL_iz00_2562;
					obj_t BgL_resz00_2563;

					BgL_iz00_2562 = BgL_g1073z00_1580;
					BgL_resz00_2563 = BNIL;
				BgL_loopz00_2561:
					if ((BgL_iz00_2562 == 0L))
						{	/* Llib/srfi4.scm 771 */
							return BgL_resz00_2563;
						}
					else
						{	/* Llib/srfi4.scm 771 */
							long BgL_niz00_2569;

							BgL_niz00_2569 = (BgL_iz00_2562 - 1L);
							{	/* Llib/srfi4.scm 771 */
								obj_t BgL_arg1450z00_2570;

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

									BgL_arg1451z00_2571 =
										BGL_U32VREF(BgL_xz00_138, BgL_niz00_2569);
									BgL_arg1450z00_2570 =
										MAKE_YOUNG_PAIR(BGL_UINT32_TO_BUINT32(BgL_arg1451z00_2571),
										BgL_resz00_2563);
								}
								{
									obj_t BgL_resz00_5609;
									long BgL_iz00_5608;

									BgL_iz00_5608 = BgL_niz00_2569;
									BgL_resz00_5609 = BgL_arg1450z00_2570;
									BgL_resz00_2563 = BgL_resz00_5609;
									BgL_iz00_2562 = BgL_iz00_5608;
									goto BgL_loopz00_2561;
								}
							}
						}
				}
			}
		}

	}



/* &u32vector->list */
	obj_t BGl_z62u32vectorzd2ze3listz53zz__srfi4z00(obj_t BgL_envz00_3395,
		obj_t BgL_xz00_3396)
	{
		{	/* Llib/srfi4.scm 771 */
			{	/* Llib/srfi4.scm 771 */
				obj_t BgL_auxz00_5610;

				if (BGL_U32VECTORP(BgL_xz00_3396))
					{	/* Llib/srfi4.scm 771 */
						BgL_auxz00_5610 = BgL_xz00_3396;
					}
				else
					{
						obj_t BgL_auxz00_5613;

						BgL_auxz00_5613 =
							BGl_typezd2errorzd2zz__errorz00(BGl_string2567z00zz__srfi4z00,
							BINT(30505L), BGl_string2638z00zz__srfi4z00,
							BGl_string2579z00zz__srfi4z00, BgL_xz00_3396);
						FAILURE(BgL_auxz00_5613, BFALSE, BFALSE);
					}
				return BGl_u32vectorzd2ze3listz31zz__srfi4z00(BgL_auxz00_5610);
			}
		}

	}



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

				BgL_g1075z00_1591 = BGL_HVECTOR_LENGTH(BgL_xz00_139);
				{
					long BgL_iz00_2587;
					obj_t BgL_resz00_2588;

					BgL_iz00_2587 = BgL_g1075z00_1591;
					BgL_resz00_2588 = BNIL;
				BgL_loopz00_2586:
					if ((BgL_iz00_2587 == 0L))
						{	/* Llib/srfi4.scm 771 */
							return BgL_resz00_2588;
						}
					else
						{	/* Llib/srfi4.scm 771 */
							long BgL_niz00_2594;

							BgL_niz00_2594 = (BgL_iz00_2587 - 1L);
							{	/* Llib/srfi4.scm 771 */
								obj_t BgL_arg1455z00_2595;

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

									BgL_arg1456z00_2596 =
										BGL_S64VREF(BgL_xz00_139, BgL_niz00_2594);
									BgL_arg1455z00_2595 =
										MAKE_YOUNG_PAIR(BGL_INT64_TO_BINT64(BgL_arg1456z00_2596),
										BgL_resz00_2588);
								}
								{
									obj_t BgL_resz00_5626;
									long BgL_iz00_5625;

									BgL_iz00_5625 = BgL_niz00_2594;
									BgL_resz00_5626 = BgL_arg1455z00_2595;
									BgL_resz00_2588 = BgL_resz00_5626;
									BgL_iz00_2587 = BgL_iz00_5625;
									goto BgL_loopz00_2586;
								}
							}
						}
				}
			}
		}

	}



/* &s64vector->list */
	obj_t BGl_z62s64vectorzd2ze3listz53zz__srfi4z00(obj_t BgL_envz00_3397,
		obj_t BgL_xz00_3398)
	{
		{	/* Llib/srfi4.scm 771 */
			{	/* Llib/srfi4.scm 771 */
				obj_t BgL_auxz00_5627;

				if (BGL_S64VECTORP(BgL_xz00_3398))
					{	/* Llib/srfi4.scm 771 */
						BgL_auxz00_5627 = BgL_xz00_3398;
					}
				else
					{
						obj_t BgL_auxz00_5630;

						BgL_auxz00_5630 =
							BGl_typezd2errorzd2zz__errorz00(BGl_string2567z00zz__srfi4z00,
							BINT(30505L), BGl_string2639z00zz__srfi4z00,
							BGl_string2581z00zz__srfi4z00, BgL_xz00_3398);
						FAILURE(BgL_auxz00_5630, BFALSE, BFALSE);
					}
				return BGl_s64vectorzd2ze3listz31zz__srfi4z00(BgL_auxz00_5627);
			}
		}

	}



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

				BgL_g1078z00_1602 = BGL_HVECTOR_LENGTH(BgL_xz00_140);
				{
					long BgL_iz00_2612;
					obj_t BgL_resz00_2613;

					BgL_iz00_2612 = BgL_g1078z00_1602;
					BgL_resz00_2613 = BNIL;
				BgL_loopz00_2611:
					if ((BgL_iz00_2612 == 0L))
						{	/* Llib/srfi4.scm 771 */
							return BgL_resz00_2613;
						}
					else
						{	/* Llib/srfi4.scm 771 */
							long BgL_niz00_2619;

							BgL_niz00_2619 = (BgL_iz00_2612 - 1L);
							{	/* Llib/srfi4.scm 771 */
								obj_t BgL_arg1459z00_2620;

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

									BgL_arg1460z00_2621 =
										BGL_U64VREF(BgL_xz00_140, BgL_niz00_2619);
									BgL_arg1459z00_2620 =
										MAKE_YOUNG_PAIR(BGL_UINT64_TO_BUINT64(BgL_arg1460z00_2621),
										BgL_resz00_2613);
								}
								{
									obj_t BgL_resz00_5643;
									long BgL_iz00_5642;

									BgL_iz00_5642 = BgL_niz00_2619;
									BgL_resz00_5643 = BgL_arg1459z00_2620;
									BgL_resz00_2613 = BgL_resz00_5643;
									BgL_iz00_2612 = BgL_iz00_5642;
									goto BgL_loopz00_2611;
								}
							}
						}
				}
			}
		}

	}



/* &u64vector->list */
	obj_t BGl_z62u64vectorzd2ze3listz53zz__srfi4z00(obj_t BgL_envz00_3399,
		obj_t BgL_xz00_3400)
	{
		{	/* Llib/srfi4.scm 771 */
			{	/* Llib/srfi4.scm 771 */
				obj_t BgL_auxz00_5644;

				if (BGL_U64VECTORP(BgL_xz00_3400))
					{	/* Llib/srfi4.scm 771 */
						BgL_auxz00_5644 = BgL_xz00_3400;
					}
				else
					{
						obj_t BgL_auxz00_5647;

						BgL_auxz00_5647 =
							BGl_typezd2errorzd2zz__errorz00(BGl_string2567z00zz__srfi4z00,
							BINT(30505L), BGl_string2640z00zz__srfi4z00,
							BGl_string2583z00zz__srfi4z00, BgL_xz00_3400);
						FAILURE(BgL_auxz00_5647, BFALSE, BFALSE);
					}
				return BGl_u64vectorzd2ze3listz31zz__srfi4z00(BgL_auxz00_5644);
			}
		}

	}



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

				BgL_g1080z00_1613 = BGL_HVECTOR_LENGTH(BgL_xz00_141);
				{
					long BgL_iz00_2637;
					obj_t BgL_resz00_2638;

					BgL_iz00_2637 = BgL_g1080z00_1613;
					BgL_resz00_2638 = BNIL;
				BgL_loopz00_2636:
					if ((BgL_iz00_2637 == 0L))
						{	/* Llib/srfi4.scm 771 */
							return BgL_resz00_2638;
						}
					else
						{	/* Llib/srfi4.scm 771 */
							long BgL_niz00_2644;

							BgL_niz00_2644 = (BgL_iz00_2637 - 1L);
							{	/* Llib/srfi4.scm 771 */
								obj_t BgL_arg1464z00_2645;

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

									BgL_arg1465z00_2646 =
										BGL_F32VREF(BgL_xz00_141, BgL_niz00_2644);
									BgL_arg1464z00_2645 =
										MAKE_YOUNG_PAIR(FLOAT_TO_REAL(BgL_arg1465z00_2646),
										BgL_resz00_2638);
								}
								{
									obj_t BgL_resz00_5660;
									long BgL_iz00_5659;

									BgL_iz00_5659 = BgL_niz00_2644;
									BgL_resz00_5660 = BgL_arg1464z00_2645;
									BgL_resz00_2638 = BgL_resz00_5660;
									BgL_iz00_2637 = BgL_iz00_5659;
									goto BgL_loopz00_2636;
								}
							}
						}
				}
			}
		}

	}



/* &f32vector->list */
	obj_t BGl_z62f32vectorzd2ze3listz53zz__srfi4z00(obj_t BgL_envz00_3401,
		obj_t BgL_xz00_3402)
	{
		{	/* Llib/srfi4.scm 771 */
			{	/* Llib/srfi4.scm 771 */
				obj_t BgL_auxz00_5661;

				if (BGL_F32VECTORP(BgL_xz00_3402))
					{	/* Llib/srfi4.scm 771 */
						BgL_auxz00_5661 = BgL_xz00_3402;
					}
				else
					{
						obj_t BgL_auxz00_5664;

						BgL_auxz00_5664 =
							BGl_typezd2errorzd2zz__errorz00(BGl_string2567z00zz__srfi4z00,
							BINT(30505L), BGl_string2641z00zz__srfi4z00,
							BGl_string2585z00zz__srfi4z00, BgL_xz00_3402);
						FAILURE(BgL_auxz00_5664, BFALSE, BFALSE);
					}
				return BGl_f32vectorzd2ze3listz31zz__srfi4z00(BgL_auxz00_5661);
			}
		}

	}



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

				BgL_g1082z00_1624 = BGL_HVECTOR_LENGTH(BgL_xz00_142);
				{
					long BgL_iz00_2662;
					obj_t BgL_resz00_2663;

					BgL_iz00_2662 = BgL_g1082z00_1624;
					BgL_resz00_2663 = BNIL;
				BgL_loopz00_2661:
					if ((BgL_iz00_2662 == 0L))
						{	/* Llib/srfi4.scm 771 */
							return BgL_resz00_2663;
						}
					else
						{	/* Llib/srfi4.scm 771 */
							long BgL_niz00_2669;

							BgL_niz00_2669 = (BgL_iz00_2662 - 1L);
							{	/* Llib/srfi4.scm 771 */
								obj_t BgL_arg1468z00_2670;

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

									BgL_arg1469z00_2671 =
										BGL_F64VREF(BgL_xz00_142, BgL_niz00_2669);
									BgL_arg1468z00_2670 =
										MAKE_YOUNG_PAIR(DOUBLE_TO_REAL(BgL_arg1469z00_2671),
										BgL_resz00_2663);
								}
								{
									obj_t BgL_resz00_5677;
									long BgL_iz00_5676;

									BgL_iz00_5676 = BgL_niz00_2669;
									BgL_resz00_5677 = BgL_arg1468z00_2670;
									BgL_resz00_2663 = BgL_resz00_5677;
									BgL_iz00_2662 = BgL_iz00_5676;
									goto BgL_loopz00_2661;
								}
							}
						}
				}
			}
		}

	}



/* &f64vector->list */
	obj_t BGl_z62f64vectorzd2ze3listz53zz__srfi4z00(obj_t BgL_envz00_3403,
		obj_t BgL_xz00_3404)
	{
		{	/* Llib/srfi4.scm 771 */
			{	/* Llib/srfi4.scm 771 */
				obj_t BgL_auxz00_5678;

				if (BGL_F64VECTORP(BgL_xz00_3404))
					{	/* Llib/srfi4.scm 771 */
						BgL_auxz00_5678 = BgL_xz00_3404;
					}
				else
					{
						obj_t BgL_auxz00_5681;

						BgL_auxz00_5681 =
							BGl_typezd2errorzd2zz__errorz00(BGl_string2567z00zz__srfi4z00,
							BINT(30505L), BGl_string2642z00zz__srfi4z00,
							BGl_string2587z00zz__srfi4z00, BgL_xz00_3404);
						FAILURE(BgL_auxz00_5681, BFALSE, BFALSE);
					}
				return BGl_f64vectorzd2ze3listz31zz__srfi4z00(BgL_auxz00_5678);
			}
		}

	}



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

				BgL_lenz00_1635 = bgl_list_length(BgL_xz00_143);
				{	/* Llib/srfi4.scm 796 */
					obj_t BgL_vecz00_1636;

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

						BgL_tmpz00_5687 = (int32_t) (BgL_lenz00_1635);
						BgL_vecz00_1636 = BGL_ALLOC_S8VECTOR(BgL_tmpz00_5687);
					}
					{	/* Llib/srfi4.scm 796 */

						{
							long BgL_iz00_2683;
							obj_t BgL_lz00_2684;

							BgL_iz00_2683 = 0L;
							BgL_lz00_2684 = BgL_xz00_143;
						BgL_loopz00_2682:
							if ((BgL_iz00_2683 == BgL_lenz00_1635))
								{	/* Llib/srfi4.scm 796 */
									return BgL_vecz00_1636;
								}
							else
								{	/* Llib/srfi4.scm 796 */
									{	/* Llib/srfi4.scm 796 */
										obj_t BgL_arg1472z00_2688;

										if (INTEGERP(CAR(((obj_t) BgL_lz00_2684))))
											{	/* Llib/srfi4.scm 796 */
												obj_t BgL_arg1475z00_2692;

												BgL_arg1475z00_2692 = CAR(((obj_t) BgL_lz00_2684));
												{	/* Llib/srfi4.scm 796 */
													long BgL_xz00_2694;

													BgL_xz00_2694 = (long) CINT(BgL_arg1475z00_2692);
													{	/* Llib/srfi4.scm 796 */
														int8_t BgL_tmpz00_5699;

														BgL_tmpz00_5699 = (int8_t) (BgL_xz00_2694);
														BgL_arg1472z00_2688 =
															BGL_INT8_TO_BINT8(BgL_tmpz00_5699);
											}}}
										else
											{	/* Llib/srfi4.scm 796 */
												BgL_arg1472z00_2688 = CAR(((obj_t) BgL_lz00_2684));
											}
										{	/* Llib/srfi4.scm 796 */
											int8_t BgL_tmpz00_5704;

											BgL_tmpz00_5704 = BGL_BINT8_TO_INT8(BgL_arg1472z00_2688);
											BGL_S8VSET(BgL_vecz00_1636, BgL_iz00_2683,
												BgL_tmpz00_5704);
										}
										BUNSPEC;
									}
									{	/* Llib/srfi4.scm 796 */
										long BgL_arg1479z00_2696;
										obj_t BgL_arg1480z00_2697;

										BgL_arg1479z00_2696 = (BgL_iz00_2683 + 1L);
										BgL_arg1480z00_2697 = CDR(((obj_t) BgL_lz00_2684));
										{
											obj_t BgL_lz00_5711;
											long BgL_iz00_5710;

											BgL_iz00_5710 = BgL_arg1479z00_2696;
											BgL_lz00_5711 = BgL_arg1480z00_2697;
											BgL_lz00_2684 = BgL_lz00_5711;
											BgL_iz00_2683 = BgL_iz00_5710;
											goto BgL_loopz00_2682;
										}
									}
								}
						}
					}
				}
			}
		}

	}



/* &list->s8vector */
	obj_t BGl_z62listzd2ze3s8vectorz53zz__srfi4z00(obj_t BgL_envz00_3405,
		obj_t BgL_xz00_3406)
	{
		{	/* Llib/srfi4.scm 796 */
			{	/* Llib/srfi4.scm 796 */
				obj_t BgL_auxz00_5712;

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

						BgL_auxz00_5715 =
							BGl_typezd2errorzd2zz__errorz00(BGl_string2567z00zz__srfi4z00,
							BINT(31419L), BGl_string2643z00zz__srfi4z00,
							BGl_string2644z00zz__srfi4z00, BgL_xz00_3406);
						FAILURE(BgL_auxz00_5715, BFALSE, BFALSE);
					}
				return BGl_listzd2ze3s8vectorz31zz__srfi4z00(BgL_auxz00_5712);
			}
		}

	}



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

				BgL_lenz00_1650 = bgl_list_length(BgL_xz00_144);
				{	/* Llib/srfi4.scm 796 */
					obj_t BgL_vecz00_1651;

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

						BgL_tmpz00_5721 = (int32_t) (BgL_lenz00_1650);
						BgL_vecz00_1651 = BGL_ALLOC_U8VECTOR(BgL_tmpz00_5721);
					}
					{	/* Llib/srfi4.scm 796 */

						{
							long BgL_iz00_2709;
							obj_t BgL_lz00_2710;

							BgL_iz00_2709 = 0L;
							BgL_lz00_2710 = BgL_xz00_144;
						BgL_loopz00_2708:
							if ((BgL_iz00_2709 == BgL_lenz00_1650))
								{	/* Llib/srfi4.scm 796 */
									return BgL_vecz00_1651;
								}
							else
								{	/* Llib/srfi4.scm 796 */
									{	/* Llib/srfi4.scm 796 */
										obj_t BgL_arg1483z00_2714;

										if (INTEGERP(CAR(((obj_t) BgL_lz00_2710))))
											{	/* Llib/srfi4.scm 796 */
												obj_t BgL_arg1486z00_2718;

												BgL_arg1486z00_2718 = CAR(((obj_t) BgL_lz00_2710));
												{	/* Llib/srfi4.scm 796 */
													long BgL_xz00_2720;

													BgL_xz00_2720 = (long) CINT(BgL_arg1486z00_2718);
													{	/* Llib/srfi4.scm 796 */
														uint8_t BgL_tmpz00_5733;

														BgL_tmpz00_5733 = (uint8_t) (BgL_xz00_2720);
														BgL_arg1483z00_2714 =
															BGL_UINT8_TO_BUINT8(BgL_tmpz00_5733);
											}}}
										else
											{	/* Llib/srfi4.scm 796 */
												BgL_arg1483z00_2714 = CAR(((obj_t) BgL_lz00_2710));
											}
										{	/* Llib/srfi4.scm 796 */
											uint8_t BgL_tmpz00_5738;

											BgL_tmpz00_5738 =
												BGL_BUINT8_TO_UINT8(BgL_arg1483z00_2714);
											BGL_U8VSET(BgL_vecz00_1651, BgL_iz00_2709,
												BgL_tmpz00_5738);
										}
										BUNSPEC;
									}
									{	/* Llib/srfi4.scm 796 */
										long BgL_arg1488z00_2722;
										obj_t BgL_arg1489z00_2723;

										BgL_arg1488z00_2722 = (BgL_iz00_2709 + 1L);
										BgL_arg1489z00_2723 = CDR(((obj_t) BgL_lz00_2710));
										{
											obj_t BgL_lz00_5745;
											long BgL_iz00_5744;

											BgL_iz00_5744 = BgL_arg1488z00_2722;
											BgL_lz00_5745 = BgL_arg1489z00_2723;
											BgL_lz00_2710 = BgL_lz00_5745;
											BgL_iz00_2709 = BgL_iz00_5744;
											goto BgL_loopz00_2708;
										}
									}
								}
						}
					}
				}
			}
		}

	}



/* &list->u8vector */
	obj_t BGl_z62listzd2ze3u8vectorz53zz__srfi4z00(obj_t BgL_envz00_3407,
		obj_t BgL_xz00_3408)
	{
		{	/* Llib/srfi4.scm 796 */
			{	/* Llib/srfi4.scm 796 */
				obj_t BgL_auxz00_5746;

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

						BgL_auxz00_5749 =
							BGl_typezd2errorzd2zz__errorz00(BGl_string2567z00zz__srfi4z00,
							BINT(31419L), BGl_string2645z00zz__srfi4z00,
							BGl_string2644z00zz__srfi4z00, BgL_xz00_3408);
						FAILURE(BgL_auxz00_5749, BFALSE, BFALSE);
					}
				return BGl_listzd2ze3u8vectorz31zz__srfi4z00(BgL_auxz00_5746);
			}
		}

	}



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

				BgL_lenz00_1665 = bgl_list_length(BgL_xz00_145);
				{	/* Llib/srfi4.scm 796 */
					obj_t BgL_vecz00_1666;

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

						BgL_tmpz00_5755 = (int32_t) (BgL_lenz00_1665);
						BgL_vecz00_1666 = BGL_ALLOC_S16VECTOR(BgL_tmpz00_5755);
					}
					{	/* Llib/srfi4.scm 796 */

						{
							long BgL_iz00_2735;
							obj_t BgL_lz00_2736;

							BgL_iz00_2735 = 0L;
							BgL_lz00_2736 = BgL_xz00_145;
						BgL_loopz00_2734:
							if ((BgL_iz00_2735 == BgL_lenz00_1665))
								{	/* Llib/srfi4.scm 796 */
									return BgL_vecz00_1666;
								}
							else
								{	/* Llib/srfi4.scm 796 */
									{	/* Llib/srfi4.scm 796 */
										obj_t BgL_arg1492z00_2740;

										if (INTEGERP(CAR(((obj_t) BgL_lz00_2736))))
											{	/* Llib/srfi4.scm 796 */
												obj_t BgL_arg1497z00_2744;

												BgL_arg1497z00_2744 = CAR(((obj_t) BgL_lz00_2736));
												{	/* Llib/srfi4.scm 796 */
													long BgL_xz00_2746;

													BgL_xz00_2746 = (long) CINT(BgL_arg1497z00_2744);
													{	/* Llib/srfi4.scm 796 */
														int16_t BgL_tmpz00_5767;

														BgL_tmpz00_5767 = (int16_t) (BgL_xz00_2746);
														BgL_arg1492z00_2740 =
															BGL_INT16_TO_BINT16(BgL_tmpz00_5767);
											}}}
										else
											{	/* Llib/srfi4.scm 796 */
												BgL_arg1492z00_2740 = CAR(((obj_t) BgL_lz00_2736));
											}
										{	/* Llib/srfi4.scm 796 */
											int16_t BgL_tmpz00_5772;

											BgL_tmpz00_5772 =
												BGL_BINT16_TO_INT16(BgL_arg1492z00_2740);
											BGL_S16VSET(BgL_vecz00_1666, BgL_iz00_2735,
												BgL_tmpz00_5772);
										}
										BUNSPEC;
									}
									{	/* Llib/srfi4.scm 796 */
										long BgL_arg1499z00_2748;
										obj_t BgL_arg1500z00_2749;

										BgL_arg1499z00_2748 = (BgL_iz00_2735 + 1L);
										BgL_arg1500z00_2749 = CDR(((obj_t) BgL_lz00_2736));
										{
											obj_t BgL_lz00_5779;
											long BgL_iz00_5778;

											BgL_iz00_5778 = BgL_arg1499z00_2748;
											BgL_lz00_5779 = BgL_arg1500z00_2749;
											BgL_lz00_2736 = BgL_lz00_5779;
											BgL_iz00_2735 = BgL_iz00_5778;
											goto BgL_loopz00_2734;
										}
									}
								}
						}
					}
				}
			}
		}

	}



/* &list->s16vector */
	obj_t BGl_z62listzd2ze3s16vectorz53zz__srfi4z00(obj_t BgL_envz00_3409,
		obj_t BgL_xz00_3410)
	{
		{	/* Llib/srfi4.scm 796 */
			{	/* Llib/srfi4.scm 796 */
				obj_t BgL_auxz00_5780;

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

						BgL_auxz00_5783 =
							BGl_typezd2errorzd2zz__errorz00(BGl_string2567z00zz__srfi4z00,
							BINT(31419L), BGl_string2646z00zz__srfi4z00,
							BGl_string2644z00zz__srfi4z00, BgL_xz00_3410);
						FAILURE(BgL_auxz00_5783, BFALSE, BFALSE);
					}
				return BGl_listzd2ze3s16vectorz31zz__srfi4z00(BgL_auxz00_5780);
			}
		}

	}



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

				BgL_lenz00_1680 = bgl_list_length(BgL_xz00_146);
				{	/* Llib/srfi4.scm 796 */
					obj_t BgL_vecz00_1681;

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

						BgL_tmpz00_5789 = (int32_t) (BgL_lenz00_1680);
						BgL_vecz00_1681 = BGL_ALLOC_U16VECTOR(BgL_tmpz00_5789);
					}
					{	/* Llib/srfi4.scm 796 */

						{
							long BgL_iz00_2761;
							obj_t BgL_lz00_2762;

							BgL_iz00_2761 = 0L;
							BgL_lz00_2762 = BgL_xz00_146;
						BgL_loopz00_2760:
							if ((BgL_iz00_2761 == BgL_lenz00_1680))
								{	/* Llib/srfi4.scm 796 */
									return BgL_vecz00_1681;
								}
							else
								{	/* Llib/srfi4.scm 796 */
									{	/* Llib/srfi4.scm 796 */
										obj_t BgL_arg1505z00_2766;

										if (INTEGERP(CAR(((obj_t) BgL_lz00_2762))))
											{	/* Llib/srfi4.scm 796 */
												obj_t BgL_arg1508z00_2770;

												BgL_arg1508z00_2770 = CAR(((obj_t) BgL_lz00_2762));
												{	/* Llib/srfi4.scm 796 */
													long BgL_xz00_2772;

													BgL_xz00_2772 = (long) CINT(BgL_arg1508z00_2770);
													{	/* Llib/srfi4.scm 796 */
														uint16_t BgL_tmpz00_5801;

														BgL_tmpz00_5801 = (uint16_t) (BgL_xz00_2772);
														BgL_arg1505z00_2766 =
															BGL_UINT16_TO_BUINT16(BgL_tmpz00_5801);
											}}}
										else
											{	/* Llib/srfi4.scm 796 */
												BgL_arg1505z00_2766 = CAR(((obj_t) BgL_lz00_2762));
											}
										{	/* Llib/srfi4.scm 796 */
											uint16_t BgL_tmpz00_5806;

											BgL_tmpz00_5806 =
												BGL_BUINT16_TO_UINT16(BgL_arg1505z00_2766);
											BGL_U16VSET(BgL_vecz00_1681, BgL_iz00_2761,
												BgL_tmpz00_5806);
										}
										BUNSPEC;
									}
									{	/* Llib/srfi4.scm 796 */
										long BgL_arg1510z00_2774;
										obj_t BgL_arg1511z00_2775;

										BgL_arg1510z00_2774 = (BgL_iz00_2761 + 1L);
										BgL_arg1511z00_2775 = CDR(((obj_t) BgL_lz00_2762));
										{
											obj_t BgL_lz00_5813;
											long BgL_iz00_5812;

											BgL_iz00_5812 = BgL_arg1510z00_2774;
											BgL_lz00_5813 = BgL_arg1511z00_2775;
											BgL_lz00_2762 = BgL_lz00_5813;
											BgL_iz00_2761 = BgL_iz00_5812;
											goto BgL_loopz00_2760;
										}
									}
								}
						}
					}
				}
			}
		}

	}



/* &list->u16vector */
	obj_t BGl_z62listzd2ze3u16vectorz53zz__srfi4z00(obj_t BgL_envz00_3411,
		obj_t BgL_xz00_3412)
	{
		{	/* Llib/srfi4.scm 796 */
			{	/* Llib/srfi4.scm 796 */
				obj_t BgL_auxz00_5814;

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

						BgL_auxz00_5817 =
							BGl_typezd2errorzd2zz__errorz00(BGl_string2567z00zz__srfi4z00,
							BINT(31419L), BGl_string2647z00zz__srfi4z00,
							BGl_string2644z00zz__srfi4z00, BgL_xz00_3412);
						FAILURE(BgL_auxz00_5817, BFALSE, BFALSE);
					}
				return BGl_listzd2ze3u16vectorz31zz__srfi4z00(BgL_auxz00_5814);
			}
		}

	}



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

				BgL_lenz00_1695 = bgl_list_length(BgL_xz00_147);
				{	/* Llib/srfi4.scm 796 */
					obj_t BgL_vecz00_1696;

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

						BgL_tmpz00_5823 = (int32_t) (BgL_lenz00_1695);
						BgL_vecz00_1696 = BGL_ALLOC_S32VECTOR(BgL_tmpz00_5823);
					}
					{	/* Llib/srfi4.scm 796 */

						{
							long BgL_iz00_2787;
							obj_t BgL_lz00_2788;

							BgL_iz00_2787 = 0L;
							BgL_lz00_2788 = BgL_xz00_147;
						BgL_loopz00_2786:
							if ((BgL_iz00_2787 == BgL_lenz00_1695))
								{	/* Llib/srfi4.scm 796 */
									return BgL_vecz00_1696;
								}
							else
								{	/* Llib/srfi4.scm 796 */
									{	/* Llib/srfi4.scm 796 */
										obj_t BgL_arg1514z00_2792;

										if (INTEGERP(CAR(((obj_t) BgL_lz00_2788))))
											{	/* Llib/srfi4.scm 796 */
												obj_t BgL_arg1517z00_2796;

												BgL_arg1517z00_2796 = CAR(((obj_t) BgL_lz00_2788));
												{	/* Llib/srfi4.scm 796 */
													long BgL_xz00_2798;

													BgL_xz00_2798 = (long) CINT(BgL_arg1517z00_2796);
													{	/* Llib/srfi4.scm 796 */
														int32_t BgL_tmpz00_5835;

														BgL_tmpz00_5835 = (int32_t) (BgL_xz00_2798);
														BgL_arg1514z00_2792 =
															BGL_INT32_TO_BINT32(BgL_tmpz00_5835);
											}}}
										else
											{	/* Llib/srfi4.scm 796 */
												BgL_arg1514z00_2792 = CAR(((obj_t) BgL_lz00_2788));
											}
										{	/* Llib/srfi4.scm 796 */
											int32_t BgL_tmpz00_5840;

											BgL_tmpz00_5840 =
												BGL_BINT32_TO_INT32(BgL_arg1514z00_2792);
											BGL_S32VSET(BgL_vecz00_1696, BgL_iz00_2787,
												BgL_tmpz00_5840);
										}
										BUNSPEC;
									}
									{	/* Llib/srfi4.scm 796 */
										long BgL_arg1521z00_2800;
										obj_t BgL_arg1522z00_2801;

										BgL_arg1521z00_2800 = (BgL_iz00_2787 + 1L);
										BgL_arg1522z00_2801 = CDR(((obj_t) BgL_lz00_2788));
										{
											obj_t BgL_lz00_5847;
											long BgL_iz00_5846;

											BgL_iz00_5846 = BgL_arg1521z00_2800;
											BgL_lz00_5847 = BgL_arg1522z00_2801;
											BgL_lz00_2788 = BgL_lz00_5847;
											BgL_iz00_2787 = BgL_iz00_5846;
											goto BgL_loopz00_2786;
										}
									}
								}
						}
					}
				}
			}
		}

	}



/* &list->s32vector */
	obj_t BGl_z62listzd2ze3s32vectorz53zz__srfi4z00(obj_t BgL_envz00_3413,
		obj_t BgL_xz00_3414)
	{
		{	/* Llib/srfi4.scm 796 */
			{	/* Llib/srfi4.scm 796 */
				obj_t BgL_auxz00_5848;

				if (BGl_pairzd2orzd2nullzf3zf3zz__r4_pairs_and_lists_6_3z00
					(BgL_xz00_3414))
					{	/* Llib/srfi4.scm 796 */
						BgL_auxz00_5848 = BgL_xz00_3414;
					}
				else
					{
						obj_t BgL_auxz00_5851;

						BgL_auxz00_5851 =
							BGl_typezd2errorzd2zz__errorz00(BGl_string2567z00zz__srfi4z00,
							BINT(31419L), BGl_string2648z00zz__srfi4z00,
							BGl_string2644z00zz__srfi4z00, BgL_xz00_3414);
						FAILURE(BgL_auxz00_5851, BFALSE, BFALSE);
					}
				return BGl_listzd2ze3s32vectorz31zz__srfi4z00(BgL_auxz00_5848);
			}
		}

	}



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

				BgL_lenz00_1710 = bgl_list_length(BgL_xz00_148);
				{	/* Llib/srfi4.scm 796 */
					obj_t BgL_vecz00_1711;

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

						BgL_tmpz00_5857 = (int32_t) (BgL_lenz00_1710);
						BgL_vecz00_1711 = BGL_ALLOC_U32VECTOR(BgL_tmpz00_5857);
					}
					{	/* Llib/srfi4.scm 796 */

						{
							long BgL_iz00_2813;
							obj_t BgL_lz00_2814;

							BgL_iz00_2813 = 0L;
							BgL_lz00_2814 = BgL_xz00_148;
						BgL_loopz00_2812:
							if ((BgL_iz00_2813 == BgL_lenz00_1710))
								{	/* Llib/srfi4.scm 796 */
									return BgL_vecz00_1711;
								}
							else
								{	/* Llib/srfi4.scm 796 */
									{	/* Llib/srfi4.scm 796 */
										obj_t BgL_arg1525z00_2818;

										if (INTEGERP(CAR(((obj_t) BgL_lz00_2814))))
											{	/* Llib/srfi4.scm 796 */
												obj_t BgL_arg1528z00_2822;

												BgL_arg1528z00_2822 = CAR(((obj_t) BgL_lz00_2814));
												{	/* Llib/srfi4.scm 796 */
													long BgL_xz00_2824;

													BgL_xz00_2824 = (long) CINT(BgL_arg1528z00_2822);
													{	/* Llib/srfi4.scm 796 */
														uint32_t BgL_tmpz00_5869;

														BgL_tmpz00_5869 = (uint32_t) (BgL_xz00_2824);
														BgL_arg1525z00_2818 =
															BGL_UINT32_TO_BUINT32(BgL_tmpz00_5869);
											}}}
										else
											{	/* Llib/srfi4.scm 796 */
												BgL_arg1525z00_2818 = CAR(((obj_t) BgL_lz00_2814));
											}
										{	/* Llib/srfi4.scm 796 */
											uint32_t BgL_tmpz00_5874;

											BgL_tmpz00_5874 =
												BGL_BUINT32_TO_UINT32(BgL_arg1525z00_2818);
											BGL_U32VSET(BgL_vecz00_1711, BgL_iz00_2813,
												BgL_tmpz00_5874);
										}
										BUNSPEC;
									}
									{	/* Llib/srfi4.scm 796 */
										long BgL_arg1533z00_2826;
										obj_t BgL_arg1534z00_2827;

										BgL_arg1533z00_2826 = (BgL_iz00_2813 + 1L);
										BgL_arg1534z00_2827 = CDR(((obj_t) BgL_lz00_2814));
										{
											obj_t BgL_lz00_5881;
											long BgL_iz00_5880;

											BgL_iz00_5880 = BgL_arg1533z00_2826;
											BgL_lz00_5881 = BgL_arg1534z00_2827;
											BgL_lz00_2814 = BgL_lz00_5881;
											BgL_iz00_2813 = BgL_iz00_5880;
											goto BgL_loopz00_2812;
										}
									}
								}
						}
					}
				}
			}
		}

	}



/* &list->u32vector */
	obj_t BGl_z62listzd2ze3u32vectorz53zz__srfi4z00(obj_t BgL_envz00_3415,
		obj_t BgL_xz00_3416)
	{
		{	/* Llib/srfi4.scm 796 */
			{	/* Llib/srfi4.scm 796 */
				obj_t BgL_auxz00_5882;

				if (BGl_pairzd2orzd2nullzf3zf3zz__r4_pairs_and_lists_6_3z00
					(BgL_xz00_3416))
					{	/* Llib/srfi4.scm 796 */
						BgL_auxz00_5882 = BgL_xz00_3416;
					}
				else
					{
						obj_t BgL_auxz00_5885;

						BgL_auxz00_5885 =
							BGl_typezd2errorzd2zz__errorz00(BGl_string2567z00zz__srfi4z00,
							BINT(31419L), BGl_string2649z00zz__srfi4z00,
							BGl_string2644z00zz__srfi4z00, BgL_xz00_3416);
						FAILURE(BgL_auxz00_5885, BFALSE, BFALSE);
					}
				return BGl_listzd2ze3u32vectorz31zz__srfi4z00(BgL_auxz00_5882);
			}
		}

	}



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

				BgL_lenz00_1725 = bgl_list_length(BgL_xz00_149);
				{	/* Llib/srfi4.scm 796 */
					obj_t BgL_vecz00_1726;

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

						BgL_tmpz00_5891 = (int32_t) (BgL_lenz00_1725);
						BgL_vecz00_1726 = BGL_ALLOC_S64VECTOR(BgL_tmpz00_5891);
					}
					{	/* Llib/srfi4.scm 796 */

						{
							long BgL_iz00_2839;
							obj_t BgL_lz00_2840;

							BgL_iz00_2839 = 0L;
							BgL_lz00_2840 = BgL_xz00_149;
						BgL_loopz00_2838:
							if ((BgL_iz00_2839 == BgL_lenz00_1725))
								{	/* Llib/srfi4.scm 796 */
									return BgL_vecz00_1726;
								}
							else
								{	/* Llib/srfi4.scm 796 */
									{	/* Llib/srfi4.scm 796 */
										obj_t BgL_arg1537z00_2844;

										if (INTEGERP(CAR(((obj_t) BgL_lz00_2840))))
											{	/* Llib/srfi4.scm 796 */
												obj_t BgL_arg1540z00_2848;

												BgL_arg1540z00_2848 = CAR(((obj_t) BgL_lz00_2840));
												{	/* Llib/srfi4.scm 796 */
													long BgL_xz00_2850;

													BgL_xz00_2850 = (long) CINT(BgL_arg1540z00_2848);
													{	/* Llib/srfi4.scm 796 */
														int64_t BgL_tmpz00_5903;

														BgL_tmpz00_5903 = (int64_t) (BgL_xz00_2850);
														BgL_arg1537z00_2844 =
															BGL_INT64_TO_BINT64(BgL_tmpz00_5903);
											}}}
										else
											{	/* Llib/srfi4.scm 796 */
												BgL_arg1537z00_2844 = CAR(((obj_t) BgL_lz00_2840));
											}
										{	/* Llib/srfi4.scm 796 */
											int64_t BgL_tmpz00_5908;

											BgL_tmpz00_5908 =
												BGL_BINT64_TO_INT64(BgL_arg1537z00_2844);
											BGL_S64VSET(BgL_vecz00_1726, BgL_iz00_2839,
												BgL_tmpz00_5908);
										}
										BUNSPEC;
									}
									{	/* Llib/srfi4.scm 796 */
										long BgL_arg1542z00_2852;
										obj_t BgL_arg1543z00_2853;

										BgL_arg1542z00_2852 = (BgL_iz00_2839 + 1L);
										BgL_arg1543z00_2853 = CDR(((obj_t) BgL_lz00_2840));
										{
											obj_t BgL_lz00_5915;
											long BgL_iz00_5914;

											BgL_iz00_5914 = BgL_arg1542z00_2852;
											BgL_lz00_5915 = BgL_arg1543z00_2853;
											BgL_lz00_2840 = BgL_lz00_5915;
											BgL_iz00_2839 = BgL_iz00_5914;
											goto BgL_loopz00_2838;
										}
									}
								}
						}
					}
				}
			}
		}

	}



/* &list->s64vector */
	obj_t BGl_z62listzd2ze3s64vectorz53zz__srfi4z00(obj_t BgL_envz00_3417,
		obj_t BgL_xz00_3418)
	{
		{	/* Llib/srfi4.scm 796 */
			{	/* Llib/srfi4.scm 796 */
				obj_t BgL_auxz00_5916;

				if (BGl_pairzd2orzd2nullzf3zf3zz__r4_pairs_and_lists_6_3z00
					(BgL_xz00_3418))
					{	/* Llib/srfi4.scm 796 */
						BgL_auxz00_5916 = BgL_xz00_3418;
					}
				else
					{
						obj_t BgL_auxz00_5919;

						BgL_auxz00_5919 =
							BGl_typezd2errorzd2zz__errorz00(BGl_string2567z00zz__srfi4z00,
							BINT(31419L), BGl_string2650z00zz__srfi4z00,
							BGl_string2644z00zz__srfi4z00, BgL_xz00_3418);
						FAILURE(BgL_auxz00_5919, BFALSE, BFALSE);
					}
				return BGl_listzd2ze3s64vectorz31zz__srfi4z00(BgL_auxz00_5916);
			}
		}

	}



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

				BgL_lenz00_1740 = bgl_list_length(BgL_xz00_150);
				{	/* Llib/srfi4.scm 796 */
					obj_t BgL_vecz00_1741;

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

						BgL_tmpz00_5925 = (int32_t) (BgL_lenz00_1740);
						BgL_vecz00_1741 = BGL_ALLOC_U64VECTOR(BgL_tmpz00_5925);
					}
					{	/* Llib/srfi4.scm 796 */

						{
							long BgL_iz00_2865;
							obj_t BgL_lz00_2866;

							BgL_iz00_2865 = 0L;
							BgL_lz00_2866 = BgL_xz00_150;
						BgL_loopz00_2864:
							if ((BgL_iz00_2865 == BgL_lenz00_1740))
								{	/* Llib/srfi4.scm 796 */
									return BgL_vecz00_1741;
								}
							else
								{	/* Llib/srfi4.scm 796 */
									{	/* Llib/srfi4.scm 796 */
										obj_t BgL_arg1546z00_2870;

										if (INTEGERP(CAR(((obj_t) BgL_lz00_2866))))
											{	/* Llib/srfi4.scm 796 */
												obj_t BgL_arg1549z00_2874;

												BgL_arg1549z00_2874 = CAR(((obj_t) BgL_lz00_2866));
												{	/* Llib/srfi4.scm 796 */
													long BgL_xz00_2876;

													BgL_xz00_2876 = (long) CINT(BgL_arg1549z00_2874);
													{	/* Llib/srfi4.scm 796 */
														uint64_t BgL_tmpz00_5937;

														BgL_tmpz00_5937 = (uint64_t) (BgL_xz00_2876);
														BgL_arg1546z00_2870 =
															BGL_UINT64_TO_BUINT64(BgL_tmpz00_5937);
											}}}
										else
											{	/* Llib/srfi4.scm 796 */
												BgL_arg1546z00_2870 = CAR(((obj_t) BgL_lz00_2866));
											}
										{	/* Llib/srfi4.scm 796 */
											uint64_t BgL_tmpz00_5942;

											BgL_tmpz00_5942 =
												BGL_BINT64_TO_INT64(BgL_arg1546z00_2870);
											BGL_U64VSET(BgL_vecz00_1741, BgL_iz00_2865,
												BgL_tmpz00_5942);
										}
										BUNSPEC;
									}
									{	/* Llib/srfi4.scm 796 */
										long BgL_arg1552z00_2878;
										obj_t BgL_arg1554z00_2879;

										BgL_arg1552z00_2878 = (BgL_iz00_2865 + 1L);
										BgL_arg1554z00_2879 = CDR(((obj_t) BgL_lz00_2866));
										{
											obj_t BgL_lz00_5949;
											long BgL_iz00_5948;

											BgL_iz00_5948 = BgL_arg1552z00_2878;
											BgL_lz00_5949 = BgL_arg1554z00_2879;
											BgL_lz00_2866 = BgL_lz00_5949;
											BgL_iz00_2865 = BgL_iz00_5948;
											goto BgL_loopz00_2864;
										}
									}
								}
						}
					}
				}
			}
		}

	}



/* &list->u64vector */
	obj_t BGl_z62listzd2ze3u64vectorz53zz__srfi4z00(obj_t BgL_envz00_3419,
		obj_t BgL_xz00_3420)
	{
		{	/* Llib/srfi4.scm 796 */
			{	/* Llib/srfi4.scm 796 */
				obj_t BgL_auxz00_5950;

				if (BGl_pairzd2orzd2nullzf3zf3zz__r4_pairs_and_lists_6_3z00
					(BgL_xz00_3420))
					{	/* Llib/srfi4.scm 796 */
						BgL_auxz00_5950 = BgL_xz00_3420;
					}
				else
					{
						obj_t BgL_auxz00_5953;

						BgL_auxz00_5953 =
							BGl_typezd2errorzd2zz__errorz00(BGl_string2567z00zz__srfi4z00,
							BINT(31419L), BGl_string2651z00zz__srfi4z00,
							BGl_string2644z00zz__srfi4z00, BgL_xz00_3420);
						FAILURE(BgL_auxz00_5953, BFALSE, BFALSE);
					}
				return BGl_listzd2ze3u64vectorz31zz__srfi4z00(BgL_auxz00_5950);
			}
		}

	}



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

				BgL_lenz00_1755 = bgl_list_length(BgL_xz00_151);
				{	/* Llib/srfi4.scm 796 */
					obj_t BgL_vecz00_1756;

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

						BgL_tmpz00_5959 = (int32_t) (BgL_lenz00_1755);
						BgL_vecz00_1756 = BGL_ALLOC_F32VECTOR(BgL_tmpz00_5959);
					}
					{	/* Llib/srfi4.scm 796 */

						{
							long BgL_iz00_2891;
							obj_t BgL_lz00_2892;

							BgL_iz00_2891 = 0L;
							BgL_lz00_2892 = BgL_xz00_151;
						BgL_loopz00_2890:
							if ((BgL_iz00_2891 == BgL_lenz00_1755))
								{	/* Llib/srfi4.scm 796 */
									return BgL_vecz00_1756;
								}
							else
								{	/* Llib/srfi4.scm 796 */
									{	/* Llib/srfi4.scm 796 */
										obj_t BgL_arg1558z00_2896;

										if (INTEGERP(CAR(((obj_t) BgL_lz00_2892))))
											{	/* Llib/srfi4.scm 796 */
												obj_t BgL_arg1561z00_2900;

												BgL_arg1561z00_2900 = CAR(((obj_t) BgL_lz00_2892));
												{	/* Llib/srfi4.scm 796 */
													long BgL_xz00_2902;

													BgL_xz00_2902 = (long) CINT(BgL_arg1561z00_2900);
													{	/* Llib/srfi4.scm 796 */
														uint32_t BgL_tmpz00_5971;

														BgL_tmpz00_5971 = (uint32_t) (BgL_xz00_2902);
														BgL_arg1558z00_2896 =
															BGL_UINT32_TO_BUINT32(BgL_tmpz00_5971);
											}}}
										else
											{	/* Llib/srfi4.scm 796 */
												BgL_arg1558z00_2896 = CAR(((obj_t) BgL_lz00_2892));
											}
										{	/* Llib/srfi4.scm 796 */
											float BgL_tmpz00_5976;

											BgL_tmpz00_5976 = REAL_TO_FLOAT(BgL_arg1558z00_2896);
											BGL_F32VSET(BgL_vecz00_1756, BgL_iz00_2891,
												BgL_tmpz00_5976);
										} BUNSPEC;
									}
									{	/* Llib/srfi4.scm 796 */
										long BgL_arg1563z00_2904;
										obj_t BgL_arg1565z00_2905;

										BgL_arg1563z00_2904 = (BgL_iz00_2891 + 1L);
										BgL_arg1565z00_2905 = CDR(((obj_t) BgL_lz00_2892));
										{
											obj_t BgL_lz00_5983;
											long BgL_iz00_5982;

											BgL_iz00_5982 = BgL_arg1563z00_2904;
											BgL_lz00_5983 = BgL_arg1565z00_2905;
											BgL_lz00_2892 = BgL_lz00_5983;
											BgL_iz00_2891 = BgL_iz00_5982;
											goto BgL_loopz00_2890;
										}
									}
								}
						}
					}
				}
			}
		}

	}



/* &list->f32vector */
	obj_t BGl_z62listzd2ze3f32vectorz53zz__srfi4z00(obj_t BgL_envz00_3421,
		obj_t BgL_xz00_3422)
	{
		{	/* Llib/srfi4.scm 796 */
			{	/* Llib/srfi4.scm 796 */
				obj_t BgL_auxz00_5984;

				if (BGl_pairzd2orzd2nullzf3zf3zz__r4_pairs_and_lists_6_3z00
					(BgL_xz00_3422))
					{	/* Llib/srfi4.scm 796 */
						BgL_auxz00_5984 = BgL_xz00_3422;
					}
				else
					{
						obj_t BgL_auxz00_5987;

						BgL_auxz00_5987 =
							BGl_typezd2errorzd2zz__errorz00(BGl_string2567z00zz__srfi4z00,
							BINT(31419L), BGl_string2652z00zz__srfi4z00,
							BGl_string2644z00zz__srfi4z00, BgL_xz00_3422);
						FAILURE(BgL_auxz00_5987, BFALSE, BFALSE);
					}
				return BGl_listzd2ze3f32vectorz31zz__srfi4z00(BgL_auxz00_5984);
			}
		}

	}



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

				BgL_lenz00_1770 = bgl_list_length(BgL_xz00_152);
				{	/* Llib/srfi4.scm 796 */
					obj_t BgL_vecz00_1771;

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

						BgL_tmpz00_5993 = (int32_t) (BgL_lenz00_1770);
						BgL_vecz00_1771 = BGL_ALLOC_F64VECTOR(BgL_tmpz00_5993);
					}
					{	/* Llib/srfi4.scm 796 */

						{
							long BgL_iz00_2917;
							obj_t BgL_lz00_2918;

							BgL_iz00_2917 = 0L;
							BgL_lz00_2918 = BgL_xz00_152;
						BgL_loopz00_2916:
							if ((BgL_iz00_2917 == BgL_lenz00_1770))
								{	/* Llib/srfi4.scm 796 */
									return BgL_vecz00_1771;
								}
							else
								{	/* Llib/srfi4.scm 796 */
									{	/* Llib/srfi4.scm 796 */
										obj_t BgL_arg1568z00_2922;

										if (INTEGERP(CAR(((obj_t) BgL_lz00_2918))))
											{	/* Llib/srfi4.scm 796 */
												obj_t BgL_arg1573z00_2926;

												BgL_arg1573z00_2926 = CAR(((obj_t) BgL_lz00_2918));
												{	/* Llib/srfi4.scm 796 */
													long BgL_xz00_2928;

													BgL_xz00_2928 = (long) CINT(BgL_arg1573z00_2926);
													{	/* Llib/srfi4.scm 796 */
														uint64_t BgL_tmpz00_6005;

														BgL_tmpz00_6005 = (uint64_t) (BgL_xz00_2928);
														BgL_arg1568z00_2922 =
															BGL_UINT64_TO_BUINT64(BgL_tmpz00_6005);
											}}}
										else
											{	/* Llib/srfi4.scm 796 */
												BgL_arg1568z00_2922 = CAR(((obj_t) BgL_lz00_2918));
											}
										{	/* Llib/srfi4.scm 796 */
											double BgL_tmpz00_6010;

											BgL_tmpz00_6010 = REAL_TO_DOUBLE(BgL_arg1568z00_2922);
											BGL_F64VSET(BgL_vecz00_1771, BgL_iz00_2917,
												BgL_tmpz00_6010);
										} BUNSPEC;
									}
									{	/* Llib/srfi4.scm 796 */
										long BgL_arg1575z00_2930;
										obj_t BgL_arg1577z00_2931;

										BgL_arg1575z00_2930 = (BgL_iz00_2917 + 1L);
										BgL_arg1577z00_2931 = CDR(((obj_t) BgL_lz00_2918));
										{
											obj_t BgL_lz00_6017;
											long BgL_iz00_6016;

											BgL_iz00_6016 = BgL_arg1575z00_2930;
											BgL_lz00_6017 = BgL_arg1577z00_2931;
											BgL_lz00_2918 = BgL_lz00_6017;
											BgL_iz00_2917 = BgL_iz00_6016;
											goto BgL_loopz00_2916;
										}
									}
								}
						}
					}
				}
			}
		}

	}



/* &list->f64vector */
	obj_t BGl_z62listzd2ze3f64vectorz53zz__srfi4z00(obj_t BgL_envz00_3423,
		obj_t BgL_xz00_3424)
	{
		{	/* Llib/srfi4.scm 796 */
			{	/* Llib/srfi4.scm 796 */
				obj_t BgL_auxz00_6018;

				if (BGl_pairzd2orzd2nullzf3zf3zz__r4_pairs_and_lists_6_3z00
					(BgL_xz00_3424))
					{	/* Llib/srfi4.scm 796 */
						BgL_auxz00_6018 = BgL_xz00_3424;
					}
				else
					{
						obj_t BgL_auxz00_6021;

						BgL_auxz00_6021 =
							BGl_typezd2errorzd2zz__errorz00(BGl_string2567z00zz__srfi4z00,
							BINT(31419L), BGl_string2653z00zz__srfi4z00,
							BGl_string2644z00zz__srfi4z00, BgL_xz00_3424);
						FAILURE(BgL_auxz00_6021, BFALSE, BFALSE);
					}
				return BGl_listzd2ze3f64vectorz31zz__srfi4z00(BgL_auxz00_6018);
			}
		}

	}



/* _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_1785;
				obj_t BgL_tstartz00_1786;
				obj_t BgL_sourcez00_1787;

				{
					obj_t BgL_auxz00_6026;

					if (VECTORP(BgL_opt1278z00_158))
						{	/* Llib/srfi4.scm 838 */
							BgL_auxz00_6026 = BgL_opt1278z00_158;
						}
					else
						{
							obj_t BgL_auxz00_6029;

							BgL_auxz00_6029 =
								BGl_typezd2errorzd2zz__errorz00(BGl_string2567z00zz__srfi4z00,
								BINT(33208L), BGl_string2654z00zz__srfi4z00,
								BGl_string2589z00zz__srfi4z00, BgL_opt1278z00_158);
							FAILURE(BgL_auxz00_6029, BFALSE, BFALSE);
						}
					BgL_targetz00_1785 = VECTOR_REF(BgL_auxz00_6026, 0L);
				}
				{
					obj_t BgL_auxz00_6034;

					if (VECTORP(BgL_opt1278z00_158))
						{	/* Llib/srfi4.scm 838 */
							BgL_auxz00_6034 = BgL_opt1278z00_158;
						}
					else
						{
							obj_t BgL_auxz00_6037;

							BgL_auxz00_6037 =
								BGl_typezd2errorzd2zz__errorz00(BGl_string2567z00zz__srfi4z00,
								BINT(33208L), BGl_string2654z00zz__srfi4z00,
								BGl_string2589z00zz__srfi4z00, BgL_opt1278z00_158);
							FAILURE(BgL_auxz00_6037, BFALSE, BFALSE);
						}
					BgL_tstartz00_1786 = VECTOR_REF(BgL_auxz00_6034, 1L);
				}
				{
					obj_t BgL_auxz00_6042;

					if (VECTORP(BgL_opt1278z00_158))
						{	/* Llib/srfi4.scm 838 */
							BgL_auxz00_6042 = BgL_opt1278z00_158;
						}
					else
						{
							obj_t BgL_auxz00_6045;

							BgL_auxz00_6045 =
								BGl_typezd2errorzd2zz__errorz00(BGl_string2567z00zz__srfi4z00,
								BINT(33208L), BGl_string2654z00zz__srfi4z00,
								BGl_string2589z00zz__srfi4z00, BgL_opt1278z00_158);
							FAILURE(BgL_auxz00_6045, BFALSE, BFALSE);
						}
					BgL_sourcez00_1787 = VECTOR_REF(BgL_auxz00_6042, 2L);
				}
				{	/* Llib/srfi4.scm 838 */
					long BgL_aux1281z00_1789;

					{
						obj_t BgL_auxz00_6050;

						if (VECTORP(BgL_opt1278z00_158))
							{	/* Llib/srfi4.scm 838 */
								BgL_auxz00_6050 = BgL_opt1278z00_158;
							}
						else
							{
								obj_t BgL_auxz00_6053;

								BgL_auxz00_6053 =
									BGl_typezd2errorzd2zz__errorz00(BGl_string2567z00zz__srfi4z00,
									BINT(33208L), BGl_string2654z00zz__srfi4z00,
									BGl_string2589z00zz__srfi4z00, BgL_opt1278z00_158);
								FAILURE(BgL_auxz00_6053, BFALSE, BFALSE);
							}
						BgL_aux1281z00_1789 = VECTOR_LENGTH(BgL_auxz00_6050);
					}
					switch (BgL_aux1281z00_1789)
						{
						case 3L:

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

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

									if (BGL_S8VECTORP(BgL_sourcez00_1787))
										{	/* Llib/srfi4.scm 838 */
											BgL_xz00_2934 = BgL_sourcez00_1787;
										}
									else
										{
											obj_t BgL_auxz00_6060;

											BgL_auxz00_6060 =
												BGl_typezd2errorzd2zz__errorz00
												(BGl_string2567z00zz__srfi4z00, BINT(33208L),
												BGl_string2654z00zz__srfi4z00,
												BGl_string2569z00zz__srfi4z00, BgL_sourcez00_1787);
											FAILURE(BgL_auxz00_6060, BFALSE, BFALSE);
										}
									BgL_sendz00_1791 = BGL_HVECTOR_LENGTH(BgL_xz00_2934);
								}
								{	/* Llib/srfi4.scm 838 */

									{	/* Llib/srfi4.scm 838 */
										obj_t BgL_targetz00_2935;
										long BgL_tstartz00_2936;
										obj_t BgL_sourcez00_2937;

										if (BGL_S8VECTORP(BgL_targetz00_1785))
											{	/* Llib/srfi4.scm 838 */
												BgL_targetz00_2935 = BgL_targetz00_1785;
											}
										else
											{
												obj_t BgL_auxz00_6067;

												BgL_auxz00_6067 =
													BGl_typezd2errorzd2zz__errorz00
													(BGl_string2567z00zz__srfi4z00, BINT(33208L),
													BGl_string2654z00zz__srfi4z00,
													BGl_string2569z00zz__srfi4z00, BgL_targetz00_1785);
												FAILURE(BgL_auxz00_6067, BFALSE, BFALSE);
											}
										{	/* Llib/srfi4.scm 838 */
											obj_t BgL_tmpz00_6071;

											if (INTEGERP(BgL_tstartz00_1786))
												{	/* Llib/srfi4.scm 838 */
													BgL_tmpz00_6071 = BgL_tstartz00_1786;
												}
											else
												{
													obj_t BgL_auxz00_6074;

													BgL_auxz00_6074 =
														BGl_typezd2errorzd2zz__errorz00
														(BGl_string2567z00zz__srfi4z00, BINT(33208L),
														BGl_string2654z00zz__srfi4z00,
														BGl_string2590z00zz__srfi4z00, BgL_tstartz00_1786);
													FAILURE(BgL_auxz00_6074, BFALSE, BFALSE);
												}
											BgL_tstartz00_2936 = (long) CINT(BgL_tmpz00_6071);
										}
										if (BGL_S8VECTORP(BgL_sourcez00_1787))
											{	/* Llib/srfi4.scm 838 */
												BgL_sourcez00_2937 = BgL_sourcez00_1787;
											}
										else
											{
												obj_t BgL_auxz00_6081;

												BgL_auxz00_6081 =
													BGl_typezd2errorzd2zz__errorz00
													(BGl_string2567z00zz__srfi4z00, BINT(33208L),
													BGl_string2654z00zz__srfi4z00,
													BGl_string2569z00zz__srfi4z00, BgL_sourcez00_1787);
												FAILURE(BgL_auxz00_6081, BFALSE, BFALSE);
											}
										BGL_SU8VECTOR_COPY(BgL_targetz00_2935, BgL_tstartz00_2936,
											BgL_sourcez00_2937, 0L, BgL_sendz00_1791);
										return BUNSPEC;
									}
								}
							}
							break;
						case 4L:

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

								{
									obj_t BgL_auxz00_6086;

									if (VECTORP(BgL_opt1278z00_158))
										{	/* Llib/srfi4.scm 838 */
											BgL_auxz00_6086 = BgL_opt1278z00_158;
										}
									else
										{
											obj_t BgL_auxz00_6089;

											BgL_auxz00_6089 =
												BGl_typezd2errorzd2zz__errorz00
												(BGl_string2567z00zz__srfi4z00, BINT(33208L),
												BGl_string2654z00zz__srfi4z00,
												BGl_string2589z00zz__srfi4z00, BgL_opt1278z00_158);
											FAILURE(BgL_auxz00_6089, BFALSE, BFALSE);
										}
									BgL_sstartz00_1792 = VECTOR_REF(BgL_auxz00_6086, 3L);
								}
								{	/* Llib/srfi4.scm 838 */
									long BgL_sendz00_1793;

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

										if (BGL_S8VECTORP(BgL_sourcez00_1787))
											{	/* Llib/srfi4.scm 838 */
												BgL_xz00_2938 = BgL_sourcez00_1787;
											}
										else
											{
												obj_t BgL_auxz00_6096;

												BgL_auxz00_6096 =
													BGl_typezd2errorzd2zz__errorz00
													(BGl_string2567z00zz__srfi4z00, BINT(33208L),
													BGl_string2654z00zz__srfi4z00,
													BGl_string2569z00zz__srfi4z00, BgL_sourcez00_1787);
												FAILURE(BgL_auxz00_6096, BFALSE, BFALSE);
											}
										BgL_sendz00_1793 = BGL_HVECTOR_LENGTH(BgL_xz00_2938);
									}
									{	/* Llib/srfi4.scm 838 */

										{	/* Llib/srfi4.scm 838 */
											obj_t BgL_targetz00_2939;
											long BgL_tstartz00_2940;
											obj_t BgL_sourcez00_2941;

											if (BGL_S8VECTORP(BgL_targetz00_1785))
												{	/* Llib/srfi4.scm 838 */
													BgL_targetz00_2939 = BgL_targetz00_1785;
												}
											else
												{
													obj_t BgL_auxz00_6103;

													BgL_auxz00_6103 =
														BGl_typezd2errorzd2zz__errorz00
														(BGl_string2567z00zz__srfi4z00, BINT(33208L),
														BGl_string2654z00zz__srfi4z00,
														BGl_string2569z00zz__srfi4z00, BgL_targetz00_1785);
													FAILURE(BgL_auxz00_6103, BFALSE, BFALSE);
												}
											{	/* Llib/srfi4.scm 838 */
												obj_t BgL_tmpz00_6107;

												if (INTEGERP(BgL_tstartz00_1786))
													{	/* Llib/srfi4.scm 838 */
														BgL_tmpz00_6107 = BgL_tstartz00_1786;
													}
												else
													{
														obj_t BgL_auxz00_6110;

														BgL_auxz00_6110 =
															BGl_typezd2errorzd2zz__errorz00
															(BGl_string2567z00zz__srfi4z00, BINT(33208L),
															BGl_string2654z00zz__srfi4z00,
															BGl_string2590z00zz__srfi4z00,
															BgL_tstartz00_1786);
														FAILURE(BgL_auxz00_6110, BFALSE, BFALSE);
													}
												BgL_tstartz00_2940 = (long) CINT(BgL_tmpz00_6107);
											}
											if (BGL_S8VECTORP(BgL_sourcez00_1787))
												{	/* Llib/srfi4.scm 838 */
													BgL_sourcez00_2941 = BgL_sourcez00_1787;
												}
											else
												{
													obj_t BgL_auxz00_6117;

													BgL_auxz00_6117 =
														BGl_typezd2errorzd2zz__errorz00
														(BGl_string2567z00zz__srfi4z00, BINT(33208L),
														BGl_string2654z00zz__srfi4z00,
														BGl_string2569z00zz__srfi4z00, BgL_sourcez00_1787);
													FAILURE(BgL_auxz00_6117, BFALSE, BFALSE);
												}
											{	/* Llib/srfi4.scm 838 */
												long BgL_tmpz00_6121;

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

													if (INTEGERP(BgL_sstartz00_1792))
														{	/* Llib/srfi4.scm 838 */
															BgL_tmpz00_6122 = BgL_sstartz00_1792;
														}
													else
														{
															obj_t BgL_auxz00_6125;

															BgL_auxz00_6125 =
																BGl_typezd2errorzd2zz__errorz00
																(BGl_string2567z00zz__srfi4z00, BINT(33208L),
																BGl_string2654z00zz__srfi4z00,
																BGl_string2590z00zz__srfi4z00,
																BgL_sstartz00_1792);
															FAILURE(BgL_auxz00_6125, BFALSE, BFALSE);
														}
													BgL_tmpz00_6121 = (long) CINT(BgL_tmpz00_6122);
												}
												BGL_SU8VECTOR_COPY(BgL_targetz00_2939,
													BgL_tstartz00_2940, BgL_sourcez00_2941,
													BgL_tmpz00_6121, BgL_sendz00_1793);
											}
											return BUNSPEC;
										}
									}
								}
							}
							break;
						case 5L:

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

								{
									obj_t BgL_auxz00_6131;

									if (VECTORP(BgL_opt1278z00_158))
										{	/* Llib/srfi4.scm 838 */
											BgL_auxz00_6131 = BgL_opt1278z00_158;
										}
									else
										{
											obj_t BgL_auxz00_6134;

											BgL_auxz00_6134 =
												BGl_typezd2errorzd2zz__errorz00
												(BGl_string2567z00zz__srfi4z00, BINT(33208L),
												BGl_string2654z00zz__srfi4z00,
												BGl_string2589z00zz__srfi4z00, BgL_opt1278z00_158);
											FAILURE(BgL_auxz00_6134, BFALSE, BFALSE);
										}
									BgL_sstartz00_1794 = VECTOR_REF(BgL_auxz00_6131, 3L);
								}
								{	/* Llib/srfi4.scm 838 */
									obj_t BgL_sendz00_1795;

									{
										obj_t BgL_auxz00_6139;

										if (VECTORP(BgL_opt1278z00_158))
											{	/* Llib/srfi4.scm 838 */
												BgL_auxz00_6139 = BgL_opt1278z00_158;
											}
										else
											{
												obj_t BgL_auxz00_6142;

												BgL_auxz00_6142 =
													BGl_typezd2errorzd2zz__errorz00
													(BGl_string2567z00zz__srfi4z00, BINT(33208L),
													BGl_string2654z00zz__srfi4z00,
													BGl_string2589z00zz__srfi4z00, BgL_opt1278z00_158);
												FAILURE(BgL_auxz00_6142, BFALSE, BFALSE);
											}
										BgL_sendz00_1795 = VECTOR_REF(BgL_auxz00_6139, 4L);
									}
									{	/* Llib/srfi4.scm 838 */

										{	/* Llib/srfi4.scm 838 */
											obj_t BgL_targetz00_2942;
											long BgL_tstartz00_2943;
											obj_t BgL_sourcez00_2944;

											if (BGL_S8VECTORP(BgL_targetz00_1785))
												{	/* Llib/srfi4.scm 838 */
													BgL_targetz00_2942 = BgL_targetz00_1785;
												}
											else
												{
													obj_t BgL_auxz00_6149;

													BgL_auxz00_6149 =
														BGl_typezd2errorzd2zz__errorz00
														(BGl_string2567z00zz__srfi4z00, BINT(33208L),
														BGl_string2654z00zz__srfi4z00,
														BGl_string2569z00zz__srfi4z00, BgL_targetz00_1785);
													FAILURE(BgL_auxz00_6149, BFALSE, BFALSE);
												}
											{	/* Llib/srfi4.scm 838 */
												obj_t BgL_tmpz00_6153;

												if (INTEGERP(BgL_tstartz00_1786))
													{	/* Llib/srfi4.scm 838 */
														BgL_tmpz00_6153 = BgL_tstartz00_1786;
													}
												else
													{
														obj_t BgL_auxz00_6156;

														BgL_auxz00_6156 =
															BGl_typezd2errorzd2zz__errorz00
															(BGl_string2567z00zz__srfi4z00, BINT(33208L),
															BGl_string2654z00zz__srfi4z00,
															BGl_string2590z00zz__srfi4z00,
															BgL_tstartz00_1786);
														FAILURE(BgL_auxz00_6156, BFALSE, BFALSE);
													}
												BgL_tstartz00_2943 = (long) CINT(BgL_tmpz00_6153);
											}
											if (BGL_S8VECTORP(BgL_sourcez00_1787))
												{	/* Llib/srfi4.scm 838 */
													BgL_sourcez00_2944 = BgL_sourcez00_1787;
												}
											else
												{
													obj_t BgL_auxz00_6163;

													BgL_auxz00_6163 =
														BGl_typezd2errorzd2zz__errorz00
														(BGl_string2567z00zz__srfi4z00, BINT(33208L),
														BGl_string2654z00zz__srfi4z00,
														BGl_string2569z00zz__srfi4z00, BgL_sourcez00_1787);
													FAILURE(BgL_auxz00_6163, BFALSE, BFALSE);
												}
											{	/* Llib/srfi4.scm 838 */
												long BgL_auxz00_6176;
												long BgL_tmpz00_6167;

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

													if (INTEGERP(BgL_sendz00_1795))
														{	/* Llib/srfi4.scm 838 */
															BgL_tmpz00_6177 = BgL_sendz00_1795;
														}
													else
														{
															obj_t BgL_auxz00_6180;

															BgL_auxz00_6180 =
																BGl_typezd2errorzd2zz__errorz00
																(BGl_string2567z00zz__srfi4z00, BINT(33208L),
																BGl_string2654z00zz__srfi4z00,
																BGl_string2590z00zz__srfi4z00,
																BgL_sendz00_1795);
															FAILURE(BgL_auxz00_6180, BFALSE, BFALSE);
														}
													BgL_auxz00_6176 = (long) CINT(BgL_tmpz00_6177);
												}
												{	/* Llib/srfi4.scm 838 */
													obj_t BgL_tmpz00_6168;

													if (INTEGERP(BgL_sstartz00_1794))
														{	/* Llib/srfi4.scm 838 */
															BgL_tmpz00_6168 = BgL_sstartz00_1794;
														}
													else
														{
															obj_t BgL_auxz00_6171;

															BgL_auxz00_6171 =
																BGl_typezd2errorzd2zz__errorz00
																(BGl_string2567z00zz__srfi4z00, BINT(33208L),
																BGl_string2654z00zz__srfi4z00,
																BGl_string2590z00zz__srfi4z00,
																BgL_sstartz00_1794);
															FAILURE(BgL_auxz00_6171, BFALSE, BFALSE);
														}
													BgL_tmpz00_6167 = (long) CINT(BgL_tmpz00_6168);
												}
												BGL_SU8VECTOR_COPY(BgL_targetz00_2942,
													BgL_tstartz00_2943, BgL_sourcez00_2944,
													BgL_tmpz00_6167, BgL_auxz00_6176);
											}
											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_6189;
				long BgL_tmpz00_6187;

				BgL_auxz00_6189 = (long) CINT(BgL_sendz00_157);
				BgL_tmpz00_6187 = (long) CINT(BgL_sstartz00_156);
				BGL_SU8VECTOR_COPY(BgL_targetz00_153, BgL_tstartz00_154,
					BgL_sourcez00_155, BgL_tmpz00_6187, BgL_auxz00_6189);
			}
			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_1796;
				obj_t BgL_tstartz00_1797;
				obj_t BgL_sourcez00_1798;

				{
					obj_t BgL_auxz00_6192;

					if (VECTORP(BgL_opt1282z00_165))
						{	/* Llib/srfi4.scm 838 */
							BgL_auxz00_6192 = BgL_opt1282z00_165;
						}
					else
						{
							obj_t BgL_auxz00_6195;

							BgL_auxz00_6195 =
								BGl_typezd2errorzd2zz__errorz00(BGl_string2567z00zz__srfi4z00,
								BINT(33208L), BGl_string2655z00zz__srfi4z00,
								BGl_string2589z00zz__srfi4z00, BgL_opt1282z00_165);
							FAILURE(BgL_auxz00_6195, BFALSE, BFALSE);
						}
					BgL_targetz00_1796 = VECTOR_REF(BgL_auxz00_6192, 0L);
				}
				{
					obj_t BgL_auxz00_6200;

					if (VECTORP(BgL_opt1282z00_165))
						{	/* Llib/srfi4.scm 838 */
							BgL_auxz00_6200 = BgL_opt1282z00_165;
						}
					else
						{
							obj_t BgL_auxz00_6203;

							BgL_auxz00_6203 =
								BGl_typezd2errorzd2zz__errorz00(BGl_string2567z00zz__srfi4z00,
								BINT(33208L), BGl_string2655z00zz__srfi4z00,
								BGl_string2589z00zz__srfi4z00, BgL_opt1282z00_165);
							FAILURE(BgL_auxz00_6203, BFALSE, BFALSE);
						}
					BgL_tstartz00_1797 = VECTOR_REF(BgL_auxz00_6200, 1L);
				}
				{
					obj_t BgL_auxz00_6208;

					if (VECTORP(BgL_opt1282z00_165))
						{	/* Llib/srfi4.scm 838 */
							BgL_auxz00_6208 = BgL_opt1282z00_165;
						}
					else
						{
							obj_t BgL_auxz00_6211;

							BgL_auxz00_6211 =
								BGl_typezd2errorzd2zz__errorz00(BGl_string2567z00zz__srfi4z00,
								BINT(33208L), BGl_string2655z00zz__srfi4z00,
								BGl_string2589z00zz__srfi4z00, BgL_opt1282z00_165);
							FAILURE(BgL_auxz00_6211, BFALSE, BFALSE);
						}
					BgL_sourcez00_1798 = VECTOR_REF(BgL_auxz00_6208, 2L);
				}
				{	/* Llib/srfi4.scm 838 */
					long BgL_aux1285z00_1800;

					{
						obj_t BgL_auxz00_6216;

						if (VECTORP(BgL_opt1282z00_165))
							{	/* Llib/srfi4.scm 838 */
								BgL_auxz00_6216 = BgL_opt1282z00_165;
							}
						else
							{
								obj_t BgL_auxz00_6219;

								BgL_auxz00_6219 =
									BGl_typezd2errorzd2zz__errorz00(BGl_string2567z00zz__srfi4z00,
									BINT(33208L), BGl_string2655z00zz__srfi4z00,
									BGl_string2589z00zz__srfi4z00, BgL_opt1282z00_165);
								FAILURE(BgL_auxz00_6219, BFALSE, BFALSE);
							}
						BgL_aux1285z00_1800 = VECTOR_LENGTH(BgL_auxz00_6216);
					}
					switch (BgL_aux1285z00_1800)
						{
						case 3L:

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

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

									if (BGL_U8VECTORP(BgL_sourcez00_1798))
										{	/* Llib/srfi4.scm 838 */
											BgL_xz00_2945 = BgL_sourcez00_1798;
										}
									else
										{
											obj_t BgL_auxz00_6226;

											BgL_auxz00_6226 =
												BGl_typezd2errorzd2zz__errorz00
												(BGl_string2567z00zz__srfi4z00, BINT(33208L),
												BGl_string2655z00zz__srfi4z00,
												BGl_string2571z00zz__srfi4z00, BgL_sourcez00_1798);
											FAILURE(BgL_auxz00_6226, BFALSE, BFALSE);
										}
									BgL_sendz00_1802 = BGL_HVECTOR_LENGTH(BgL_xz00_2945);
								}
								{	/* Llib/srfi4.scm 838 */

									{	/* Llib/srfi4.scm 838 */
										obj_t BgL_targetz00_2946;
										long BgL_tstartz00_2947;
										obj_t BgL_sourcez00_2948;

										if (BGL_U8VECTORP(BgL_targetz00_1796))
											{	/* Llib/srfi4.scm 838 */
												BgL_targetz00_2946 = BgL_targetz00_1796;
											}
										else
											{
												obj_t BgL_auxz00_6233;

												BgL_auxz00_6233 =
													BGl_typezd2errorzd2zz__errorz00
													(BGl_string2567z00zz__srfi4z00, BINT(33208L),
													BGl_string2655z00zz__srfi4z00,
													BGl_string2571z00zz__srfi4z00, BgL_targetz00_1796);
												FAILURE(BgL_auxz00_6233, BFALSE, BFALSE);
											}
										{	/* Llib/srfi4.scm 838 */
											obj_t BgL_tmpz00_6237;

											if (INTEGERP(BgL_tstartz00_1797))
												{	/* Llib/srfi4.scm 838 */
													BgL_tmpz00_6237 = BgL_tstartz00_1797;
												}
											else
												{
													obj_t BgL_auxz00_6240;

													BgL_auxz00_6240 =
														BGl_typezd2errorzd2zz__errorz00
														(BGl_string2567z00zz__srfi4z00, BINT(33208L),
														BGl_string2655z00zz__srfi4z00,
														BGl_string2590z00zz__srfi4z00, BgL_tstartz00_1797);
													FAILURE(BgL_auxz00_6240, BFALSE, BFALSE);
												}
											BgL_tstartz00_2947 = (long) CINT(BgL_tmpz00_6237);
										}
										if (BGL_U8VECTORP(BgL_sourcez00_1798))
											{	/* Llib/srfi4.scm 838 */
												BgL_sourcez00_2948 = BgL_sourcez00_1798;
											}
										else
											{
												obj_t BgL_auxz00_6247;

												BgL_auxz00_6247 =
													BGl_typezd2errorzd2zz__errorz00
													(BGl_string2567z00zz__srfi4z00, BINT(33208L),
													BGl_string2655z00zz__srfi4z00,
													BGl_string2571z00zz__srfi4z00, BgL_sourcez00_1798);
												FAILURE(BgL_auxz00_6247, BFALSE, BFALSE);
											}
										BGL_SU8VECTOR_COPY(BgL_targetz00_2946, BgL_tstartz00_2947,
											BgL_sourcez00_2948, 0L, BgL_sendz00_1802);
										return BUNSPEC;
									}
								}
							}
							break;
						case 4L:

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

								{
									obj_t BgL_auxz00_6252;

									if (VECTORP(BgL_opt1282z00_165))
										{	/* Llib/srfi4.scm 838 */
											BgL_auxz00_6252 = BgL_opt1282z00_165;
										}
									else
										{
											obj_t BgL_auxz00_6255;

											BgL_auxz00_6255 =
												BGl_typezd2errorzd2zz__errorz00
												(BGl_string2567z00zz__srfi4z00, BINT(33208L),
												BGl_string2655z00zz__srfi4z00,
												BGl_string2589z00zz__srfi4z00, BgL_opt1282z00_165);
											FAILURE(BgL_auxz00_6255, BFALSE, BFALSE);
										}
									BgL_sstartz00_1803 = VECTOR_REF(BgL_auxz00_6252, 3L);
								}
								{	/* Llib/srfi4.scm 838 */
									long BgL_sendz00_1804;

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

										if (BGL_U8VECTORP(BgL_sourcez00_1798))
											{	/* Llib/srfi4.scm 838 */
												BgL_xz00_2949 = BgL_sourcez00_1798;
											}
										else
											{
												obj_t BgL_auxz00_6262;

												BgL_auxz00_6262 =
													BGl_typezd2errorzd2zz__errorz00
													(BGl_string2567z00zz__srfi4z00, BINT(33208L),
													BGl_string2655z00zz__srfi4z00,
													BGl_string2571z00zz__srfi4z00, BgL_sourcez00_1798);
												FAILURE(BgL_auxz00_6262, BFALSE, BFALSE);
											}
										BgL_sendz00_1804 = BGL_HVECTOR_LENGTH(BgL_xz00_2949);
									}
									{	/* Llib/srfi4.scm 838 */

										{	/* Llib/srfi4.scm 838 */
											obj_t BgL_targetz00_2950;
											long BgL_tstartz00_2951;
											obj_t BgL_sourcez00_2952;

											if (BGL_U8VECTORP(BgL_targetz00_1796))
												{	/* Llib/srfi4.scm 838 */
													BgL_targetz00_2950 = BgL_targetz00_1796;
												}
											else
												{
													obj_t BgL_auxz00_6269;

													BgL_auxz00_6269 =
														BGl_typezd2errorzd2zz__errorz00
														(BGl_string2567z00zz__srfi4z00, BINT(33208L),
														BGl_string2655z00zz__srfi4z00,
														BGl_string2571z00zz__srfi4z00, BgL_targetz00_1796);
													FAILURE(BgL_auxz00_6269, BFALSE, BFALSE);
												}
											{	/* Llib/srfi4.scm 838 */
												obj_t BgL_tmpz00_6273;

												if (INTEGERP(BgL_tstartz00_1797))
													{	/* Llib/srfi4.scm 838 */
														BgL_tmpz00_6273 = BgL_tstartz00_1797;
													}
												else
													{
														obj_t BgL_auxz00_6276;

														BgL_auxz00_6276 =
															BGl_typezd2errorzd2zz__errorz00
															(BGl_string2567z00zz__srfi4z00, BINT(33208L),
															BGl_string2655z00zz__srfi4z00,
															BGl_string2590z00zz__srfi4z00,
															BgL_tstartz00_1797);
														FAILURE(BgL_auxz00_6276, BFALSE, BFALSE);
													}
												BgL_tstartz00_2951 = (long) CINT(BgL_tmpz00_6273);
											}
											if (BGL_U8VECTORP(BgL_sourcez00_1798))
												{	/* Llib/srfi4.scm 838 */
													BgL_sourcez00_2952 = BgL_sourcez00_1798;
												}
											else
												{
													obj_t BgL_auxz00_6283;

													BgL_auxz00_6283 =
														BGl_typezd2errorzd2zz__errorz00
														(BGl_string2567z00zz__srfi4z00, BINT(33208L),
														BGl_string2655z00zz__srfi4z00,
														BGl_string2571z00zz__srfi4z00, BgL_sourcez00_1798);
													FAILURE(BgL_auxz00_6283, BFALSE, BFALSE);
												}
											{	/* Llib/srfi4.scm 838 */
												long BgL_tmpz00_6287;

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

													if (INTEGERP(BgL_sstartz00_1803))
														{	/* Llib/srfi4.scm 838 */
															BgL_tmpz00_6288 = BgL_sstartz00_1803;
														}
													else
														{
															obj_t BgL_auxz00_6291;

															BgL_auxz00_6291 =
																BGl_typezd2errorzd2zz__errorz00
																(BGl_string2567z00zz__srfi4z00, BINT(33208L),
																BGl_string2655z00zz__srfi4z00,
																BGl_string2590z00zz__srfi4z00,
																BgL_sstartz00_1803);
															FAILURE(BgL_auxz00_6291, BFALSE, BFALSE);
														}
													BgL_tmpz00_6287 = (long) CINT(BgL_tmpz00_6288);
												}
												BGL_SU8VECTOR_COPY(BgL_targetz00_2950,
													BgL_tstartz00_2951, BgL_sourcez00_2952,
													BgL_tmpz00_6287, BgL_sendz00_1804);
											}
											return BUNSPEC;
										}
									}
								}
							}
							break;
						case 5L:

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

								{
									obj_t BgL_auxz00_6297;

									if (VECTORP(BgL_opt1282z00_165))
										{	/* Llib/srfi4.scm 838 */
											BgL_auxz00_6297 = BgL_opt1282z00_165;
										}
									else
										{
											obj_t BgL_auxz00_6300;

											BgL_auxz00_6300 =
												BGl_typezd2errorzd2zz__errorz00
												(BGl_string2567z00zz__srfi4z00, BINT(33208L),
												BGl_string2655z00zz__srfi4z00,
												BGl_string2589z00zz__srfi4z00, BgL_opt1282z00_165);
											FAILURE(BgL_auxz00_6300, BFALSE, BFALSE);
										}
									BgL_sstartz00_1805 = VECTOR_REF(BgL_auxz00_6297, 3L);
								}
								{	/* Llib/srfi4.scm 838 */
									obj_t BgL_sendz00_1806;

									{
										obj_t BgL_auxz00_6305;

										if (VECTORP(BgL_opt1282z00_165))
											{	/* Llib/srfi4.scm 838 */
												BgL_auxz00_6305 = BgL_opt1282z00_165;
											}
										else
											{
												obj_t BgL_auxz00_6308;

												BgL_auxz00_6308 =
													BGl_typezd2errorzd2zz__errorz00
													(BGl_string2567z00zz__srfi4z00, BINT(33208L),
													BGl_string2655z00zz__srfi4z00,
													BGl_string2589z00zz__srfi4z00, BgL_opt1282z00_165);
												FAILURE(BgL_auxz00_6308, BFALSE, BFALSE);
											}
										BgL_sendz00_1806 = VECTOR_REF(BgL_auxz00_6305, 4L);
									}
									{	/* Llib/srfi4.scm 838 */

										{	/* Llib/srfi4.scm 838 */
											obj_t BgL_targetz00_2953;
											long BgL_tstartz00_2954;
											obj_t BgL_sourcez00_2955;

											if (BGL_U8VECTORP(BgL_targetz00_1796))
												{	/* Llib/srfi4.scm 838 */
													BgL_targetz00_2953 = BgL_targetz00_1796;
												}
											else
												{
													obj_t BgL_auxz00_6315;

													BgL_auxz00_6315 =
														BGl_typezd2errorzd2zz__errorz00
														(BGl_string2567z00zz__srfi4z00, BINT(33208L),
														BGl_string2655z00zz__srfi4z00,
														BGl_string2571z00zz__srfi4z00, BgL_targetz00_1796);
													FAILURE(BgL_auxz00_6315, BFALSE, BFALSE);
												}
											{	/* Llib/srfi4.scm 838 */
												obj_t BgL_tmpz00_6319;

												if (INTEGERP(BgL_tstartz00_1797))
													{	/* Llib/srfi4.scm 838 */
														BgL_tmpz00_6319 = BgL_tstartz00_1797;
													}
												else
													{
														obj_t BgL_auxz00_6322;

														BgL_auxz00_6322 =
															BGl_typezd2errorzd2zz__errorz00
															(BGl_string2567z00zz__srfi4z00, BINT(33208L),
															BGl_string2655z00zz__srfi4z00,
															BGl_string2590z00zz__srfi4z00,
															BgL_tstartz00_1797);
														FAILURE(BgL_auxz00_6322, BFALSE, BFALSE);
													}
												BgL_tstartz00_2954 = (long) CINT(BgL_tmpz00_6319);
											}
											if (BGL_U8VECTORP(BgL_sourcez00_1798))
												{	/* Llib/srfi4.scm 838 */
													BgL_sourcez00_2955 = BgL_sourcez00_1798;
												}
											else
												{
													obj_t BgL_auxz00_6329;

													BgL_auxz00_6329 =
														BGl_typezd2errorzd2zz__errorz00
														(BGl_string2567z00zz__srfi4z00, BINT(33208L),
														BGl_string2655z00zz__srfi4z00,
														BGl_string2571z00zz__srfi4z00, BgL_sourcez00_1798);
													FAILURE(BgL_auxz00_6329, BFALSE, BFALSE);
												}
											{	/* Llib/srfi4.scm 838 */
												long BgL_auxz00_6342;
												long BgL_tmpz00_6333;

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

													if (INTEGERP(BgL_sendz00_1806))
														{	/* Llib/srfi4.scm 838 */
															BgL_tmpz00_6343 = BgL_sendz00_1806;
														}
													else
														{
															obj_t BgL_auxz00_6346;

															BgL_auxz00_6346 =
																BGl_typezd2errorzd2zz__errorz00
																(BGl_string2567z00zz__srfi4z00, BINT(33208L),
																BGl_string2655z00zz__srfi4z00,
																BGl_string2590z00zz__srfi4z00,
																BgL_sendz00_1806);
															FAILURE(BgL_auxz00_6346, BFALSE, BFALSE);
														}
													BgL_auxz00_6342 = (long) CINT(BgL_tmpz00_6343);
												}
												{	/* Llib/srfi4.scm 838 */
													obj_t BgL_tmpz00_6334;

													if (INTEGERP(BgL_sstartz00_1805))
														{	/* Llib/srfi4.scm 838 */
															BgL_tmpz00_6334 = BgL_sstartz00_1805;
														}
													else
														{
															obj_t BgL_auxz00_6337;

															BgL_auxz00_6337 =
																BGl_typezd2errorzd2zz__errorz00
																(BGl_string2567z00zz__srfi4z00, BINT(33208L),
																BGl_string2655z00zz__srfi4z00,
																BGl_string2590z00zz__srfi4z00,
																BgL_sstartz00_1805);
															FAILURE(BgL_auxz00_6337, BFALSE, BFALSE);
														}
													BgL_tmpz00_6333 = (long) CINT(BgL_tmpz00_6334);
												}
												BGL_SU8VECTOR_COPY(BgL_targetz00_2953,
													BgL_tstartz00_2954, BgL_sourcez00_2955,
													BgL_tmpz00_6333, BgL_auxz00_6342);
											}
											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_6355;
				long BgL_tmpz00_6353;

				BgL_auxz00_6355 = (long) CINT(BgL_sendz00_164);
				BgL_tmpz00_6353 = (long) CINT(BgL_sstartz00_163);
				BGL_SU8VECTOR_COPY(BgL_targetz00_160, BgL_tstartz00_161,
					BgL_sourcez00_162, BgL_tmpz00_6353, BgL_auxz00_6355);
			}
			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_1807;
				obj_t BgL_tstartz00_1808;
				obj_t BgL_sourcez00_1809;

				{
					obj_t BgL_auxz00_6358;

					if (VECTORP(BgL_opt1286z00_172))
						{	/* Llib/srfi4.scm 838 */
							BgL_auxz00_6358 = BgL_opt1286z00_172;
						}
					else
						{
							obj_t BgL_auxz00_6361;

							BgL_auxz00_6361 =
								BGl_typezd2errorzd2zz__errorz00(BGl_string2567z00zz__srfi4z00,
								BINT(33208L), BGl_string2656z00zz__srfi4z00,
								BGl_string2589z00zz__srfi4z00, BgL_opt1286z00_172);
							FAILURE(BgL_auxz00_6361, BFALSE, BFALSE);
						}
					BgL_targetz00_1807 = VECTOR_REF(BgL_auxz00_6358, 0L);
				}
				{
					obj_t BgL_auxz00_6366;

					if (VECTORP(BgL_opt1286z00_172))
						{	/* Llib/srfi4.scm 838 */
							BgL_auxz00_6366 = BgL_opt1286z00_172;
						}
					else
						{
							obj_t BgL_auxz00_6369;

							BgL_auxz00_6369 =
								BGl_typezd2errorzd2zz__errorz00(BGl_string2567z00zz__srfi4z00,
								BINT(33208L), BGl_string2656z00zz__srfi4z00,
								BGl_string2589z00zz__srfi4z00, BgL_opt1286z00_172);
							FAILURE(BgL_auxz00_6369, BFALSE, BFALSE);
						}
					BgL_tstartz00_1808 = VECTOR_REF(BgL_auxz00_6366, 1L);
				}
				{
					obj_t BgL_auxz00_6374;

					if (VECTORP(BgL_opt1286z00_172))
						{	/* Llib/srfi4.scm 838 */
							BgL_auxz00_6374 = BgL_opt1286z00_172;
						}
					else
						{
							obj_t BgL_auxz00_6377;

							BgL_auxz00_6377 =
								BGl_typezd2errorzd2zz__errorz00(BGl_string2567z00zz__srfi4z00,
								BINT(33208L), BGl_string2656z00zz__srfi4z00,
								BGl_string2589z00zz__srfi4z00, BgL_opt1286z00_172);
							FAILURE(BgL_auxz00_6377, BFALSE, BFALSE);
						}
					BgL_sourcez00_1809 = VECTOR_REF(BgL_auxz00_6374, 2L);
				}
				{	/* Llib/srfi4.scm 838 */
					long BgL_aux1289z00_1811;

					{
						obj_t BgL_auxz00_6382;

						if (VECTORP(BgL_opt1286z00_172))
							{	/* Llib/srfi4.scm 838 */
								BgL_auxz00_6382 = BgL_opt1286z00_172;
							}
						else
							{
								obj_t BgL_auxz00_6385;

								BgL_auxz00_6385 =
									BGl_typezd2errorzd2zz__errorz00(BGl_string2567z00zz__srfi4z00,
									BINT(33208L), BGl_string2656z00zz__srfi4z00,
									BGl_string2589z00zz__srfi4z00, BgL_opt1286z00_172);
								FAILURE(BgL_auxz00_6385, BFALSE, BFALSE);
							}
						BgL_aux1289z00_1811 = VECTOR_LENGTH(BgL_auxz00_6382);
					}
					switch (BgL_aux1289z00_1811)
						{
						case 3L:

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

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

									if (BGL_S16VECTORP(BgL_sourcez00_1809))
										{	/* Llib/srfi4.scm 838 */
											BgL_xz00_2956 = BgL_sourcez00_1809;
										}
									else
										{
											obj_t BgL_auxz00_6392;

											BgL_auxz00_6392 =
												BGl_typezd2errorzd2zz__errorz00
												(BGl_string2567z00zz__srfi4z00, BINT(33208L),
												BGl_string2656z00zz__srfi4z00,
												BGl_string2573z00zz__srfi4z00, BgL_sourcez00_1809);
											FAILURE(BgL_auxz00_6392, BFALSE, BFALSE);
										}
									BgL_sendz00_1813 = BGL_HVECTOR_LENGTH(BgL_xz00_2956);
								}
								{	/* Llib/srfi4.scm 838 */

									{	/* Llib/srfi4.scm 838 */
										obj_t BgL_targetz00_2957;
										long BgL_tstartz00_2958;
										obj_t BgL_sourcez00_2959;

										if (BGL_S16VECTORP(BgL_targetz00_1807))
											{	/* Llib/srfi4.scm 838 */
												BgL_targetz00_2957 = BgL_targetz00_1807;
											}
										else
											{
												obj_t BgL_auxz00_6399;

												BgL_auxz00_6399 =
													BGl_typezd2errorzd2zz__errorz00
													(BGl_string2567z00zz__srfi4z00, BINT(33208L),
													BGl_string2656z00zz__srfi4z00,
													BGl_string2573z00zz__srfi4z00, BgL_targetz00_1807);
												FAILURE(BgL_auxz00_6399, BFALSE, BFALSE);
											}
										{	/* Llib/srfi4.scm 838 */
											obj_t BgL_tmpz00_6403;

											if (INTEGERP(BgL_tstartz00_1808))
												{	/* Llib/srfi4.scm 838 */
													BgL_tmpz00_6403 = BgL_tstartz00_1808;
												}
											else
												{
													obj_t BgL_auxz00_6406;

													BgL_auxz00_6406 =
														BGl_typezd2errorzd2zz__errorz00
														(BGl_string2567z00zz__srfi4z00, BINT(33208L),
														BGl_string2656z00zz__srfi4z00,
														BGl_string2590z00zz__srfi4z00, BgL_tstartz00_1808);
													FAILURE(BgL_auxz00_6406, BFALSE, BFALSE);
												}
											BgL_tstartz00_2958 = (long) CINT(BgL_tmpz00_6403);
										}
										if (BGL_S16VECTORP(BgL_sourcez00_1809))
											{	/* Llib/srfi4.scm 838 */
												BgL_sourcez00_2959 = BgL_sourcez00_1809;
											}
										else
											{
												obj_t BgL_auxz00_6413;

												BgL_auxz00_6413 =
													BGl_typezd2errorzd2zz__errorz00
													(BGl_string2567z00zz__srfi4z00, BINT(33208L),
													BGl_string2656z00zz__srfi4z00,
													BGl_string2573z00zz__srfi4z00, BgL_sourcez00_1809);
												FAILURE(BgL_auxz00_6413, BFALSE, BFALSE);
											}
										BGL_SU16VECTOR_COPY(BgL_targetz00_2957, BgL_tstartz00_2958,
											BgL_sourcez00_2959, 0L, BgL_sendz00_1813);
										return BUNSPEC;
									}
								}
							}
							break;
						case 4L:

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

								{
									obj_t BgL_auxz00_6418;

									if (VECTORP(BgL_opt1286z00_172))
										{	/* Llib/srfi4.scm 838 */
											BgL_auxz00_6418 = BgL_opt1286z00_172;
										}
									else
										{
											obj_t BgL_auxz00_6421;

											BgL_auxz00_6421 =
												BGl_typezd2errorzd2zz__errorz00
												(BGl_string2567z00zz__srfi4z00, BINT(33208L),
												BGl_string2656z00zz__srfi4z00,
												BGl_string2589z00zz__srfi4z00, BgL_opt1286z00_172);
											FAILURE(BgL_auxz00_6421, BFALSE, BFALSE);
										}
									BgL_sstartz00_1814 = VECTOR_REF(BgL_auxz00_6418, 3L);
								}
								{	/* Llib/srfi4.scm 838 */
									long BgL_sendz00_1815;

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

										if (BGL_S16VECTORP(BgL_sourcez00_1809))
											{	/* Llib/srfi4.scm 838 */
												BgL_xz00_2960 = BgL_sourcez00_1809;
											}
										else
											{
												obj_t BgL_auxz00_6428;

												BgL_auxz00_6428 =
													BGl_typezd2errorzd2zz__errorz00
													(BGl_string2567z00zz__srfi4z00, BINT(33208L),
													BGl_string2656z00zz__srfi4z00,
													BGl_string2573z00zz__srfi4z00, BgL_sourcez00_1809);
												FAILURE(BgL_auxz00_6428, BFALSE, BFALSE);
											}
										BgL_sendz00_1815 = BGL_HVECTOR_LENGTH(BgL_xz00_2960);
									}
									{	/* Llib/srfi4.scm 838 */

										{	/* Llib/srfi4.scm 838 */
											obj_t BgL_targetz00_2961;
											long BgL_tstartz00_2962;
											obj_t BgL_sourcez00_2963;

											if (BGL_S16VECTORP(BgL_targetz00_1807))
												{	/* Llib/srfi4.scm 838 */
													BgL_targetz00_2961 = BgL_targetz00_1807;
												}
											else
												{
													obj_t BgL_auxz00_6435;

													BgL_auxz00_6435 =
														BGl_typezd2errorzd2zz__errorz00
														(BGl_string2567z00zz__srfi4z00, BINT(33208L),
														BGl_string2656z00zz__srfi4z00,
														BGl_string2573z00zz__srfi4z00, BgL_targetz00_1807);
													FAILURE(BgL_auxz00_6435, BFALSE, BFALSE);
												}
											{	/* Llib/srfi4.scm 838 */
												obj_t BgL_tmpz00_6439;

												if (INTEGERP(BgL_tstartz00_1808))
													{	/* Llib/srfi4.scm 838 */
														BgL_tmpz00_6439 = BgL_tstartz00_1808;
													}
												else
													{
														obj_t BgL_auxz00_6442;

														BgL_auxz00_6442 =
															BGl_typezd2errorzd2zz__errorz00
															(BGl_string2567z00zz__srfi4z00, BINT(33208L),
															BGl_string2656z00zz__srfi4z00,
															BGl_string2590z00zz__srfi4z00,
															BgL_tstartz00_1808);
														FAILURE(BgL_auxz00_6442, BFALSE, BFALSE);
													}
												BgL_tstartz00_2962 = (long) CINT(BgL_tmpz00_6439);
											}
											if (BGL_S16VECTORP(BgL_sourcez00_1809))
												{	/* Llib/srfi4.scm 838 */
													BgL_sourcez00_2963 = BgL_sourcez00_1809;
												}
											else
												{
													obj_t BgL_auxz00_6449;

													BgL_auxz00_6449 =
														BGl_typezd2errorzd2zz__errorz00
														(BGl_string2567z00zz__srfi4z00, BINT(33208L),
														BGl_string2656z00zz__srfi4z00,
														BGl_string2573z00zz__srfi4z00, BgL_sourcez00_1809);
													FAILURE(BgL_auxz00_6449, BFALSE, BFALSE);
												}
											{	/* Llib/srfi4.scm 838 */
												long BgL_tmpz00_6453;

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

													if (INTEGERP(BgL_sstartz00_1814))
														{	/* Llib/srfi4.scm 838 */
															BgL_tmpz00_6454 = BgL_sstartz00_1814;
														}
													else
														{
															obj_t BgL_auxz00_6457;

															BgL_auxz00_6457 =
																BGl_typezd2errorzd2zz__errorz00
																(BGl_string2567z00zz__srfi4z00, BINT(33208L),
																BGl_string2656z00zz__srfi4z00,
																BGl_string2590z00zz__srfi4z00,
																BgL_sstartz00_1814);
															FAILURE(BgL_auxz00_6457, BFALSE, BFALSE);
														}
													BgL_tmpz00_6453 = (long) CINT(BgL_tmpz00_6454);
												}
												BGL_SU16VECTOR_COPY(BgL_targetz00_2961,
													BgL_tstartz00_2962, BgL_sourcez00_2963,
													BgL_tmpz00_6453, BgL_sendz00_1815);
											}
											return BUNSPEC;
										}
									}
								}
							}
							break;
						case 5L:

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

								{
									obj_t BgL_auxz00_6463;

									if (VECTORP(BgL_opt1286z00_172))
										{	/* Llib/srfi4.scm 838 */
											BgL_auxz00_6463 = BgL_opt1286z00_172;
										}
									else
										{
											obj_t BgL_auxz00_6466;

											BgL_auxz00_6466 =
												BGl_typezd2errorzd2zz__errorz00
												(BGl_string2567z00zz__srfi4z00, BINT(33208L),
												BGl_string2656z00zz__srfi4z00,
												BGl_string2589z00zz__srfi4z00, BgL_opt1286z00_172);
											FAILURE(BgL_auxz00_6466, BFALSE, BFALSE);
										}
									BgL_sstartz00_1816 = VECTOR_REF(BgL_auxz00_6463, 3L);
								}
								{	/* Llib/srfi4.scm 838 */
									obj_t BgL_sendz00_1817;

									{
										obj_t BgL_auxz00_6471;

										if (VECTORP(BgL_opt1286z00_172))
											{	/* Llib/srfi4.scm 838 */
												BgL_auxz00_6471 = BgL_opt1286z00_172;
											}
										else
											{
												obj_t BgL_auxz00_6474;

												BgL_auxz00_6474 =
													BGl_typezd2errorzd2zz__errorz00
													(BGl_string2567z00zz__srfi4z00, BINT(33208L),
													BGl_string2656z00zz__srfi4z00,
													BGl_string2589z00zz__srfi4z00, BgL_opt1286z00_172);
												FAILURE(BgL_auxz00_6474, BFALSE, BFALSE);
											}
										BgL_sendz00_1817 = VECTOR_REF(BgL_auxz00_6471, 4L);
									}
									{	/* Llib/srfi4.scm 838 */

										{	/* Llib/srfi4.scm 838 */
											obj_t BgL_targetz00_2964;
											long BgL_tstartz00_2965;
											obj_t BgL_sourcez00_2966;

											if (BGL_S16VECTORP(BgL_targetz00_1807))
												{	/* Llib/srfi4.scm 838 */
													BgL_targetz00_2964 = BgL_targetz00_1807;
												}
											else
												{
													obj_t BgL_auxz00_6481;

													BgL_auxz00_6481 =
														BGl_typezd2errorzd2zz__errorz00
														(BGl_string2567z00zz__srfi4z00, BINT(33208L),
														BGl_string2656z00zz__srfi4z00,
														BGl_string2573z00zz__srfi4z00, BgL_targetz00_1807);
													FAILURE(BgL_auxz00_6481, BFALSE, BFALSE);
												}
											{	/* Llib/srfi4.scm 838 */
												obj_t BgL_tmpz00_6485;

												if (INTEGERP(BgL_tstartz00_1808))
													{	/* Llib/srfi4.scm 838 */
														BgL_tmpz00_6485 = BgL_tstartz00_1808;
													}
												else
													{
														obj_t BgL_auxz00_6488;

														BgL_auxz00_6488 =
															BGl_typezd2errorzd2zz__errorz00
															(BGl_string2567z00zz__srfi4z00, BINT(33208L),
															BGl_string2656z00zz__srfi4z00,
															BGl_string2590z00zz__srfi4z00,
															BgL_tstartz00_1808);
														FAILURE(BgL_auxz00_6488, BFALSE, BFALSE);
													}
												BgL_tstartz00_2965 = (long) CINT(BgL_tmpz00_6485);
											}
											if (BGL_S16VECTORP(BgL_sourcez00_1809))
												{	/* Llib/srfi4.scm 838 */
													BgL_sourcez00_2966 = BgL_sourcez00_1809;
												}
											else
												{
													obj_t BgL_auxz00_6495;

													BgL_auxz00_6495 =
														BGl_typezd2errorzd2zz__errorz00
														(BGl_string2567z00zz__srfi4z00, BINT(33208L),
														BGl_string2656z00zz__srfi4z00,
														BGl_string2573z00zz__srfi4z00, BgL_sourcez00_1809);
													FAILURE(BgL_auxz00_6495, BFALSE, BFALSE);
												}
											{	/* Llib/srfi4.scm 838 */
												long BgL_auxz00_6508;
												long BgL_tmpz00_6499;

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

													if (INTEGERP(BgL_sendz00_1817))
														{	/* Llib/srfi4.scm 838 */
															BgL_tmpz00_6509 = BgL_sendz00_1817;
														}
													else
														{
															obj_t BgL_auxz00_6512;

															BgL_auxz00_6512 =
																BGl_typezd2errorzd2zz__errorz00
																(BGl_string2567z00zz__srfi4z00, BINT(33208L),
																BGl_string2656z00zz__srfi4z00,
																BGl_string2590z00zz__srfi4z00,
																BgL_sendz00_1817);
															FAILURE(BgL_auxz00_6512, BFALSE, BFALSE);
														}
													BgL_auxz00_6508 = (long) CINT(BgL_tmpz00_6509);
												}
												{	/* Llib/srfi4.scm 838 */
													obj_t BgL_tmpz00_6500;

													if (INTEGERP(BgL_sstartz00_1816))
														{	/* Llib/srfi4.scm 838 */
															BgL_tmpz00_6500 = BgL_sstartz00_1816;
														}
													else
														{
															obj_t BgL_auxz00_6503;

															BgL_auxz00_6503 =
																BGl_typezd2errorzd2zz__errorz00
																(BGl_string2567z00zz__srfi4z00, BINT(33208L),
																BGl_string2656z00zz__srfi4z00,
																BGl_string2590z00zz__srfi4z00,
																BgL_sstartz00_1816);
															FAILURE(BgL_auxz00_6503, BFALSE, BFALSE);
														}
													BgL_tmpz00_6499 = (long) CINT(BgL_tmpz00_6500);
												}
												BGL_SU16VECTOR_COPY(BgL_targetz00_2964,
													BgL_tstartz00_2965, BgL_sourcez00_2966,
													BgL_tmpz00_6499, BgL_auxz00_6508);
											}
											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_6521;
				long BgL_tmpz00_6519;

				BgL_auxz00_6521 = (long) CINT(BgL_sendz00_171);
				BgL_tmpz00_6519 = (long) CINT(BgL_sstartz00_170);
				BGL_SU16VECTOR_COPY(BgL_targetz00_167, BgL_tstartz00_168,
					BgL_sourcez00_169, BgL_tmpz00_6519, BgL_auxz00_6521);
			}
			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_1818;
				obj_t BgL_tstartz00_1819;
				obj_t BgL_sourcez00_1820;

				{
					obj_t BgL_auxz00_6524;

					if (VECTORP(BgL_opt1290z00_179))
						{	/* Llib/srfi4.scm 838 */
							BgL_auxz00_6524 = BgL_opt1290z00_179;
						}
					else
						{
							obj_t BgL_auxz00_6527;

							BgL_auxz00_6527 =
								BGl_typezd2errorzd2zz__errorz00(BGl_string2567z00zz__srfi4z00,
								BINT(33208L), BGl_string2657z00zz__srfi4z00,
								BGl_string2589z00zz__srfi4z00, BgL_opt1290z00_179);
							FAILURE(BgL_auxz00_6527, BFALSE, BFALSE);
						}
					BgL_targetz00_1818 = VECTOR_REF(BgL_auxz00_6524, 0L);
				}
				{
					obj_t BgL_auxz00_6532;

					if (VECTORP(BgL_opt1290z00_179))
						{	/* Llib/srfi4.scm 838 */
							BgL_auxz00_6532 = BgL_opt1290z00_179;
						}
					else
						{
							obj_t BgL_auxz00_6535;

							BgL_auxz00_6535 =
								BGl_typezd2errorzd2zz__errorz00(BGl_string2567z00zz__srfi4z00,
								BINT(33208L), BGl_string2657z00zz__srfi4z00,
								BGl_string2589z00zz__srfi4z00, BgL_opt1290z00_179);
							FAILURE(BgL_auxz00_6535, BFALSE, BFALSE);
						}
					BgL_tstartz00_1819 = VECTOR_REF(BgL_auxz00_6532, 1L);
				}
				{
					obj_t BgL_auxz00_6540;

					if (VECTORP(BgL_opt1290z00_179))
						{	/* Llib/srfi4.scm 838 */
							BgL_auxz00_6540 = BgL_opt1290z00_179;
						}
					else
						{
							obj_t BgL_auxz00_6543;

							BgL_auxz00_6543 =
								BGl_typezd2errorzd2zz__errorz00(BGl_string2567z00zz__srfi4z00,
								BINT(33208L), BGl_string2657z00zz__srfi4z00,
								BGl_string2589z00zz__srfi4z00, BgL_opt1290z00_179);
							FAILURE(BgL_auxz00_6543, BFALSE, BFALSE);
						}
					BgL_sourcez00_1820 = VECTOR_REF(BgL_auxz00_6540, 2L);
				}
				{	/* Llib/srfi4.scm 838 */
					long BgL_aux1293z00_1822;

					{
						obj_t BgL_auxz00_6548;

						if (VECTORP(BgL_opt1290z00_179))
							{	/* Llib/srfi4.scm 838 */
								BgL_auxz00_6548 = BgL_opt1290z00_179;
							}
						else
							{
								obj_t BgL_auxz00_6551;

								BgL_auxz00_6551 =
									BGl_typezd2errorzd2zz__errorz00(BGl_string2567z00zz__srfi4z00,
									BINT(33208L), BGl_string2657z00zz__srfi4z00,
									BGl_string2589z00zz__srfi4z00, BgL_opt1290z00_179);
								FAILURE(BgL_auxz00_6551, BFALSE, BFALSE);
							}
						BgL_aux1293z00_1822 = VECTOR_LENGTH(BgL_auxz00_6548);
					}
					switch (BgL_aux1293z00_1822)
						{
						case 3L:

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

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

									if (BGL_U16VECTORP(BgL_sourcez00_1820))
										{	/* Llib/srfi4.scm 838 */
											BgL_xz00_2967 = BgL_sourcez00_1820;
										}
									else
										{
											obj_t BgL_auxz00_6558;

											BgL_auxz00_6558 =
												BGl_typezd2errorzd2zz__errorz00
												(BGl_string2567z00zz__srfi4z00, BINT(33208L),
												BGl_string2657z00zz__srfi4z00,
												BGl_string2575z00zz__srfi4z00, BgL_sourcez00_1820);
											FAILURE(BgL_auxz00_6558, BFALSE, BFALSE);
										}
									BgL_sendz00_1824 = BGL_HVECTOR_LENGTH(BgL_xz00_2967);
								}
								{	/* Llib/srfi4.scm 838 */

									{	/* Llib/srfi4.scm 838 */
										obj_t BgL_targetz00_2968;
										long BgL_tstartz00_2969;
										obj_t BgL_sourcez00_2970;

										if (BGL_U16VECTORP(BgL_targetz00_1818))
											{	/* Llib/srfi4.scm 838 */
												BgL_targetz00_2968 = BgL_targetz00_1818;
											}
										else
											{
												obj_t BgL_auxz00_6565;

												BgL_auxz00_6565 =
													BGl_typezd2errorzd2zz__errorz00
													(BGl_string2567z00zz__srfi4z00, BINT(33208L),
													BGl_string2657z00zz__srfi4z00,
													BGl_string2575z00zz__srfi4z00, BgL_targetz00_1818);
												FAILURE(BgL_auxz00_6565, BFALSE, BFALSE);
											}
										{	/* Llib/srfi4.scm 838 */
											obj_t BgL_tmpz00_6569;

											if (INTEGERP(BgL_tstartz00_1819))
												{	/* Llib/srfi4.scm 838 */
													BgL_tmpz00_6569 = BgL_tstartz00_1819;
												}
											else
												{
													obj_t BgL_auxz00_6572;

													BgL_auxz00_6572 =
														BGl_typezd2errorzd2zz__errorz00
														(BGl_string2567z00zz__srfi4z00, BINT(33208L),
														BGl_string2657z00zz__srfi4z00,
														BGl_string2590z00zz__srfi4z00, BgL_tstartz00_1819);
													FAILURE(BgL_auxz00_6572, BFALSE, BFALSE);
												}
											BgL_tstartz00_2969 = (long) CINT(BgL_tmpz00_6569);
										}
										if (BGL_U16VECTORP(BgL_sourcez00_1820))
											{	/* Llib/srfi4.scm 838 */
												BgL_sourcez00_2970 = BgL_sourcez00_1820;
											}
										else
											{
												obj_t BgL_auxz00_6579;

												BgL_auxz00_6579 =
													BGl_typezd2errorzd2zz__errorz00
													(BGl_string2567z00zz__srfi4z00, BINT(33208L),
													BGl_string2657z00zz__srfi4z00,
													BGl_string2575z00zz__srfi4z00, BgL_sourcez00_1820);
												FAILURE(BgL_auxz00_6579, BFALSE, BFALSE);
											}
										BGL_SU16VECTOR_COPY(BgL_targetz00_2968, BgL_tstartz00_2969,
											BgL_sourcez00_2970, 0L, BgL_sendz00_1824);
										return BUNSPEC;
									}
								}
							}
							break;
						case 4L:

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

								{
									obj_t BgL_auxz00_6584;

									if (VECTORP(BgL_opt1290z00_179))
										{	/* Llib/srfi4.scm 838 */
											BgL_auxz00_6584 = BgL_opt1290z00_179;
										}
									else
										{
											obj_t BgL_auxz00_6587;

											BgL_auxz00_6587 =
												BGl_typezd2errorzd2zz__errorz00
												(BGl_string2567z00zz__srfi4z00, BINT(33208L),
												BGl_string2657z00zz__srfi4z00,
												BGl_string2589z00zz__srfi4z00, BgL_opt1290z00_179);
											FAILURE(BgL_auxz00_6587, BFALSE, BFALSE);
										}
									BgL_sstartz00_1825 = VECTOR_REF(BgL_auxz00_6584, 3L);
								}
								{	/* Llib/srfi4.scm 838 */
									long BgL_sendz00_1826;

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

										if (BGL_U16VECTORP(BgL_sourcez00_1820))
											{	/* Llib/srfi4.scm 838 */
												BgL_xz00_2971 = BgL_sourcez00_1820;
											}
										else
											{
												obj_t BgL_auxz00_6594;

												BgL_auxz00_6594 =
													BGl_typezd2errorzd2zz__errorz00
													(BGl_string2567z00zz__srfi4z00, BINT(33208L),
													BGl_string2657z00zz__srfi4z00,
													BGl_string2575z00zz__srfi4z00, BgL_sourcez00_1820);
												FAILURE(BgL_auxz00_6594, BFALSE, BFALSE);
											}
										BgL_sendz00_1826 = BGL_HVECTOR_LENGTH(BgL_xz00_2971);
									}
									{	/* Llib/srfi4.scm 838 */

										{	/* Llib/srfi4.scm 838 */
											obj_t BgL_targetz00_2972;
											long BgL_tstartz00_2973;
											obj_t BgL_sourcez00_2974;

											if (BGL_U16VECTORP(BgL_targetz00_1818))
												{	/* Llib/srfi4.scm 838 */
													BgL_targetz00_2972 = BgL_targetz00_1818;
												}
											else
												{
													obj_t BgL_auxz00_6601;

													BgL_auxz00_6601 =
														BGl_typezd2errorzd2zz__errorz00
														(BGl_string2567z00zz__srfi4z00, BINT(33208L),
														BGl_string2657z00zz__srfi4z00,
														BGl_string2575z00zz__srfi4z00, BgL_targetz00_1818);
													FAILURE(BgL_auxz00_6601, BFALSE, BFALSE);
												}
											{	/* Llib/srfi4.scm 838 */
												obj_t BgL_tmpz00_6605;

												if (INTEGERP(BgL_tstartz00_1819))
													{	/* Llib/srfi4.scm 838 */
														BgL_tmpz00_6605 = BgL_tstartz00_1819;
													}
												else
													{
														obj_t BgL_auxz00_6608;

														BgL_auxz00_6608 =
															BGl_typezd2errorzd2zz__errorz00
															(BGl_string2567z00zz__srfi4z00, BINT(33208L),
															BGl_string2657z00zz__srfi4z00,
															BGl_string2590z00zz__srfi4z00,
															BgL_tstartz00_1819);
														FAILURE(BgL_auxz00_6608, BFALSE, BFALSE);
													}
												BgL_tstartz00_2973 = (long) CINT(BgL_tmpz00_6605);
											}
											if (BGL_U16VECTORP(BgL_sourcez00_1820))
												{	/* Llib/srfi4.scm 838 */
													BgL_sourcez00_2974 = BgL_sourcez00_1820;
												}
											else
												{
													obj_t BgL_auxz00_6615;

													BgL_auxz00_6615 =
														BGl_typezd2errorzd2zz__errorz00
														(BGl_string2567z00zz__srfi4z00, BINT(33208L),
														BGl_string2657z00zz__srfi4z00,
														BGl_string2575z00zz__srfi4z00, BgL_sourcez00_1820);
													FAILURE(BgL_auxz00_6615, BFALSE, BFALSE);
												}
											{	/* Llib/srfi4.scm 838 */
												long BgL_tmpz00_6619;

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

													if (INTEGERP(BgL_sstartz00_1825))
														{	/* Llib/srfi4.scm 838 */
															BgL_tmpz00_6620 = BgL_sstartz00_1825;
														}
													else
														{
															obj_t BgL_auxz00_6623;

															BgL_auxz00_6623 =
																BGl_typezd2errorzd2zz__errorz00
																(BGl_string2567z00zz__srfi4z00, BINT(33208L),
																BGl_string2657z00zz__srfi4z00,
																BGl_string2590z00zz__srfi4z00,
																BgL_sstartz00_1825);
															FAILURE(BgL_auxz00_6623, BFALSE, BFALSE);
														}
													BgL_tmpz00_6619 = (long) CINT(BgL_tmpz00_6620);
												}
												BGL_SU16VECTOR_COPY(BgL_targetz00_2972,
													BgL_tstartz00_2973, BgL_sourcez00_2974,
													BgL_tmpz00_6619, BgL_sendz00_1826);
											}
											return BUNSPEC;
										}
									}
								}
							}
							break;
						case 5L:

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

								{
									obj_t BgL_auxz00_6629;

									if (VECTORP(BgL_opt1290z00_179))
										{	/* Llib/srfi4.scm 838 */
											BgL_auxz00_6629 = BgL_opt1290z00_179;
										}
									else
										{
											obj_t BgL_auxz00_6632;

											BgL_auxz00_6632 =
												BGl_typezd2errorzd2zz__errorz00
												(BGl_string2567z00zz__srfi4z00, BINT(33208L),
												BGl_string2657z00zz__srfi4z00,
												BGl_string2589z00zz__srfi4z00, BgL_opt1290z00_179);
											FAILURE(BgL_auxz00_6632, BFALSE, BFALSE);
										}
									BgL_sstartz00_1827 = VECTOR_REF(BgL_auxz00_6629, 3L);
								}
								{	/* Llib/srfi4.scm 838 */
									obj_t BgL_sendz00_1828;

									{
										obj_t BgL_auxz00_6637;

										if (VECTORP(BgL_opt1290z00_179))
											{	/* Llib/srfi4.scm 838 */
												BgL_auxz00_6637 = BgL_opt1290z00_179;
											}
										else
											{
												obj_t BgL_auxz00_6640;

												BgL_auxz00_6640 =
													BGl_typezd2errorzd2zz__errorz00
													(BGl_string2567z00zz__srfi4z00, BINT(33208L),
													BGl_string2657z00zz__srfi4z00,
													BGl_string2589z00zz__srfi4z00, BgL_opt1290z00_179);
												FAILURE(BgL_auxz00_6640, BFALSE, BFALSE);
											}
										BgL_sendz00_1828 = VECTOR_REF(BgL_auxz00_6637, 4L);
									}
									{	/* Llib/srfi4.scm 838 */

										{	/* Llib/srfi4.scm 838 */
											obj_t BgL_targetz00_2975;
											long BgL_tstartz00_2976;
											obj_t BgL_sourcez00_2977;

											if (BGL_U16VECTORP(BgL_targetz00_1818))
												{	/* Llib/srfi4.scm 838 */
													BgL_targetz00_2975 = BgL_targetz00_1818;
												}
											else
												{
													obj_t BgL_auxz00_6647;

													BgL_auxz00_6647 =
														BGl_typezd2errorzd2zz__errorz00
														(BGl_string2567z00zz__srfi4z00, BINT(33208L),
														BGl_string2657z00zz__srfi4z00,
														BGl_string2575z00zz__srfi4z00, BgL_targetz00_1818);
													FAILURE(BgL_auxz00_6647, BFALSE, BFALSE);
												}
											{	/* Llib/srfi4.scm 838 */
												obj_t BgL_tmpz00_6651;

												if (INTEGERP(BgL_tstartz00_1819))
													{	/* Llib/srfi4.scm 838 */
														BgL_tmpz00_6651 = BgL_tstartz00_1819;
													}
												else
													{
														obj_t BgL_auxz00_6654;

														BgL_auxz00_6654 =
															BGl_typezd2errorzd2zz__errorz00
															(BGl_string2567z00zz__srfi4z00, BINT(33208L),
															BGl_string2657z00zz__srfi4z00,
															BGl_string2590z00zz__srfi4z00,
															BgL_tstartz00_1819);
														FAILURE(BgL_auxz00_6654, BFALSE, BFALSE);
													}
												BgL_tstartz00_2976 = (long) CINT(BgL_tmpz00_6651);
											}
											if (BGL_U16VECTORP(BgL_sourcez00_1820))
												{	/* Llib/srfi4.scm 838 */
													BgL_sourcez00_2977 = BgL_sourcez00_1820;
												}
											else
												{
													obj_t BgL_auxz00_6661;

													BgL_auxz00_6661 =
														BGl_typezd2errorzd2zz__errorz00
														(BGl_string2567z00zz__srfi4z00, BINT(33208L),
														BGl_string2657z00zz__srfi4z00,
														BGl_string2575z00zz__srfi4z00, BgL_sourcez00_1820);
													FAILURE(BgL_auxz00_6661, BFALSE, BFALSE);
												}
											{	/* Llib/srfi4.scm 838 */
												long BgL_auxz00_6674;
												long BgL_tmpz00_6665;

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

													if (INTEGERP(BgL_sendz00_1828))
														{	/* Llib/srfi4.scm 838 */
															BgL_tmpz00_6675 = BgL_sendz00_1828;
														}
													else
														{
															obj_t BgL_auxz00_6678;

															BgL_auxz00_6678 =
																BGl_typezd2errorzd2zz__errorz00
																(BGl_string2567z00zz__srfi4z00, BINT(33208L),
																BGl_string2657z00zz__srfi4z00,
																BGl_string2590z00zz__srfi4z00,
																BgL_sendz00_1828);
															FAILURE(BgL_auxz00_6678, BFALSE, BFALSE);
														}
													BgL_auxz00_6674 = (long) CINT(BgL_tmpz00_6675);
												}
												{	/* Llib/srfi4.scm 838 */
													obj_t BgL_tmpz00_6666;

													if (INTEGERP(BgL_sstartz00_1827))
														{	/* Llib/srfi4.scm 838 */
															BgL_tmpz00_6666 = BgL_sstartz00_1827;
														}
													else
														{
															obj_t BgL_auxz00_6669;

															BgL_auxz00_6669 =
																BGl_typezd2errorzd2zz__errorz00
																(BGl_string2567z00zz__srfi4z00, BINT(33208L),
																BGl_string2657z00zz__srfi4z00,
																BGl_string2590z00zz__srfi4z00,
																BgL_sstartz00_1827);
															FAILURE(BgL_auxz00_6669, BFALSE, BFALSE);
														}
													BgL_tmpz00_6665 = (long) CINT(BgL_tmpz00_6666);
												}
												BGL_SU16VECTOR_COPY(BgL_targetz00_2975,
													BgL_tstartz00_2976, BgL_sourcez00_2977,
													BgL_tmpz00_6665, BgL_auxz00_6674);
											}
											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_6687;
				long BgL_tmpz00_6685;

				BgL_auxz00_6687 = (long) CINT(BgL_sendz00_178);
				BgL_tmpz00_6685 = (long) CINT(BgL_sstartz00_177);
				BGL_SU16VECTOR_COPY(BgL_targetz00_174, BgL_tstartz00_175,
					BgL_sourcez00_176, BgL_tmpz00_6685, BgL_auxz00_6687);
			}
			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_1829;
				obj_t BgL_tstartz00_1830;
				obj_t BgL_sourcez00_1831;

				{
					obj_t BgL_auxz00_6690;

					if (VECTORP(BgL_opt1294z00_186))
						{	/* Llib/srfi4.scm 838 */
							BgL_auxz00_6690 = BgL_opt1294z00_186;
						}
					else
						{
							obj_t BgL_auxz00_6693;

							BgL_auxz00_6693 =
								BGl_typezd2errorzd2zz__errorz00(BGl_string2567z00zz__srfi4z00,
								BINT(33208L), BGl_string2658z00zz__srfi4z00,
								BGl_string2589z00zz__srfi4z00, BgL_opt1294z00_186);
							FAILURE(BgL_auxz00_6693, BFALSE, BFALSE);
						}
					BgL_targetz00_1829 = VECTOR_REF(BgL_auxz00_6690, 0L);
				}
				{
					obj_t BgL_auxz00_6698;

					if (VECTORP(BgL_opt1294z00_186))
						{	/* Llib/srfi4.scm 838 */
							BgL_auxz00_6698 = BgL_opt1294z00_186;
						}
					else
						{
							obj_t BgL_auxz00_6701;

							BgL_auxz00_6701 =
								BGl_typezd2errorzd2zz__errorz00(BGl_string2567z00zz__srfi4z00,
								BINT(33208L), BGl_string2658z00zz__srfi4z00,
								BGl_string2589z00zz__srfi4z00, BgL_opt1294z00_186);
							FAILURE(BgL_auxz00_6701, BFALSE, BFALSE);
						}
					BgL_tstartz00_1830 = VECTOR_REF(BgL_auxz00_6698, 1L);
				}
				{
					obj_t BgL_auxz00_6706;

					if (VECTORP(BgL_opt1294z00_186))
						{	/* Llib/srfi4.scm 838 */
							BgL_auxz00_6706 = BgL_opt1294z00_186;
						}
					else
						{
							obj_t BgL_auxz00_6709;

							BgL_auxz00_6709 =
								BGl_typezd2errorzd2zz__errorz00(BGl_string2567z00zz__srfi4z00,
								BINT(33208L), BGl_string2658z00zz__srfi4z00,
								BGl_string2589z00zz__srfi4z00, BgL_opt1294z00_186);
							FAILURE(BgL_auxz00_6709, BFALSE, BFALSE);
						}
					BgL_sourcez00_1831 = VECTOR_REF(BgL_auxz00_6706, 2L);
				}
				{	/* Llib/srfi4.scm 838 */
					long BgL_aux1297z00_1833;

					{
						obj_t BgL_auxz00_6714;

						if (VECTORP(BgL_opt1294z00_186))
							{	/* Llib/srfi4.scm 838 */
								BgL_auxz00_6714 = BgL_opt1294z00_186;
							}
						else
							{
								obj_t BgL_auxz00_6717;

								BgL_auxz00_6717 =
									BGl_typezd2errorzd2zz__errorz00(BGl_string2567z00zz__srfi4z00,
									BINT(33208L), BGl_string2658z00zz__srfi4z00,
									BGl_string2589z00zz__srfi4z00, BgL_opt1294z00_186);
								FAILURE(BgL_auxz00_6717, BFALSE, BFALSE);
							}
						BgL_aux1297z00_1833 = VECTOR_LENGTH(BgL_auxz00_6714);
					}
					switch (BgL_aux1297z00_1833)
						{
						case 3L:

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

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

									if (BGL_S32VECTORP(BgL_sourcez00_1831))
										{	/* Llib/srfi4.scm 838 */
											BgL_xz00_2978 = BgL_sourcez00_1831;
										}
									else
										{
											obj_t BgL_auxz00_6724;

											BgL_auxz00_6724 =
												BGl_typezd2errorzd2zz__errorz00
												(BGl_string2567z00zz__srfi4z00, BINT(33208L),
												BGl_string2658z00zz__srfi4z00,
												BGl_string2577z00zz__srfi4z00, BgL_sourcez00_1831);
											FAILURE(BgL_auxz00_6724, BFALSE, BFALSE);
										}
									BgL_sendz00_1835 = BGL_HVECTOR_LENGTH(BgL_xz00_2978);
								}
								{	/* Llib/srfi4.scm 838 */

									{	/* Llib/srfi4.scm 838 */
										obj_t BgL_targetz00_2979;
										long BgL_tstartz00_2980;
										obj_t BgL_sourcez00_2981;

										if (BGL_S32VECTORP(BgL_targetz00_1829))
											{	/* Llib/srfi4.scm 838 */
												BgL_targetz00_2979 = BgL_targetz00_1829;
											}
										else
											{
												obj_t BgL_auxz00_6731;

												BgL_auxz00_6731 =
													BGl_typezd2errorzd2zz__errorz00
													(BGl_string2567z00zz__srfi4z00, BINT(33208L),
													BGl_string2658z00zz__srfi4z00,
													BGl_string2577z00zz__srfi4z00, BgL_targetz00_1829);
												FAILURE(BgL_auxz00_6731, BFALSE, BFALSE);
											}
										{	/* Llib/srfi4.scm 838 */
											obj_t BgL_tmpz00_6735;

											if (INTEGERP(BgL_tstartz00_1830))
												{	/* Llib/srfi4.scm 838 */
													BgL_tmpz00_6735 = BgL_tstartz00_1830;
												}
											else
												{
													obj_t BgL_auxz00_6738;

													BgL_auxz00_6738 =
														BGl_typezd2errorzd2zz__errorz00
														(BGl_string2567z00zz__srfi4z00, BINT(33208L),
														BGl_string2658z00zz__srfi4z00,
														BGl_string2590z00zz__srfi4z00, BgL_tstartz00_1830);
													FAILURE(BgL_auxz00_6738, BFALSE, BFALSE);
												}
											BgL_tstartz00_2980 = (long) CINT(BgL_tmpz00_6735);
										}
										if (BGL_S32VECTORP(BgL_sourcez00_1831))
											{	/* Llib/srfi4.scm 838 */
												BgL_sourcez00_2981 = BgL_sourcez00_1831;
											}
										else
											{
												obj_t BgL_auxz00_6745;

												BgL_auxz00_6745 =
													BGl_typezd2errorzd2zz__errorz00
													(BGl_string2567z00zz__srfi4z00, BINT(33208L),
													BGl_string2658z00zz__srfi4z00,
													BGl_string2577z00zz__srfi4z00, BgL_sourcez00_1831);
												FAILURE(BgL_auxz00_6745, BFALSE, BFALSE);
											}
										BGL_SU32VECTOR_COPY(BgL_targetz00_2979, BgL_tstartz00_2980,
											BgL_sourcez00_2981, 0L, BgL_sendz00_1835);
										return BUNSPEC;
									}
								}
							}
							break;
						case 4L:

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

								{
									obj_t BgL_auxz00_6750;

									if (VECTORP(BgL_opt1294z00_186))
										{	/* Llib/srfi4.scm 838 */
											BgL_auxz00_6750 = BgL_opt1294z00_186;
										}
									else
										{
											obj_t BgL_auxz00_6753;

											BgL_auxz00_6753 =
												BGl_typezd2errorzd2zz__errorz00
												(BGl_string2567z00zz__srfi4z00, BINT(33208L),
												BGl_string2658z00zz__srfi4z00,
												BGl_string2589z00zz__srfi4z00, BgL_opt1294z00_186);
											FAILURE(BgL_auxz00_6753, BFALSE, BFALSE);
										}
									BgL_sstartz00_1836 = VECTOR_REF(BgL_auxz00_6750, 3L);
								}
								{	/* Llib/srfi4.scm 838 */
									long BgL_sendz00_1837;

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

										if (BGL_S32VECTORP(BgL_sourcez00_1831))
											{	/* Llib/srfi4.scm 838 */
												BgL_xz00_2982 = BgL_sourcez00_1831;
											}
										else
											{
												obj_t BgL_auxz00_6760;

												BgL_auxz00_6760 =
													BGl_typezd2errorzd2zz__errorz00
													(BGl_string2567z00zz__srfi4z00, BINT(33208L),
													BGl_string2658z00zz__srfi4z00,
													BGl_string2577z00zz__srfi4z00, BgL_sourcez00_1831);
												FAILURE(BgL_auxz00_6760, BFALSE, BFALSE);
											}
										BgL_sendz00_1837 = BGL_HVECTOR_LENGTH(BgL_xz00_2982);
									}
									{	/* Llib/srfi4.scm 838 */

										{	/* Llib/srfi4.scm 838 */
											obj_t BgL_targetz00_2983;
											long BgL_tstartz00_2984;
											obj_t BgL_sourcez00_2985;

											if (BGL_S32VECTORP(BgL_targetz00_1829))
												{	/* Llib/srfi4.scm 838 */
													BgL_targetz00_2983 = BgL_targetz00_1829;
												}
											else
												{
													obj_t BgL_auxz00_6767;

													BgL_auxz00_6767 =
														BGl_typezd2errorzd2zz__errorz00
														(BGl_string2567z00zz__srfi4z00, BINT(33208L),
														BGl_string2658z00zz__srfi4z00,
														BGl_string2577z00zz__srfi4z00, BgL_targetz00_1829);
													FAILURE(BgL_auxz00_6767, BFALSE, BFALSE);
												}
											{	/* Llib/srfi4.scm 838 */
												obj_t BgL_tmpz00_6771;

												if (INTEGERP(BgL_tstartz00_1830))
													{	/* Llib/srfi4.scm 838 */
														BgL_tmpz00_6771 = BgL_tstartz00_1830;
													}
												else
													{
														obj_t BgL_auxz00_6774;

														BgL_auxz00_6774 =
															BGl_typezd2errorzd2zz__errorz00
															(BGl_string2567z00zz__srfi4z00, BINT(33208L),
															BGl_string2658z00zz__srfi4z00,
															BGl_string2590z00zz__srfi4z00,
															BgL_tstartz00_1830);
														FAILURE(BgL_auxz00_6774, BFALSE, BFALSE);
													}
												BgL_tstartz00_2984 = (long) CINT(BgL_tmpz00_6771);
											}
											if (BGL_S32VECTORP(BgL_sourcez00_1831))
												{	/* Llib/srfi4.scm 838 */
													BgL_sourcez00_2985 = BgL_sourcez00_1831;
												}
											else
												{
													obj_t BgL_auxz00_6781;

													BgL_auxz00_6781 =
														BGl_typezd2errorzd2zz__errorz00
														(BGl_string2567z00zz__srfi4z00, BINT(33208L),
														BGl_string2658z00zz__srfi4z00,
														BGl_string2577z00zz__srfi4z00, BgL_sourcez00_1831);
													FAILURE(BgL_auxz00_6781, BFALSE, BFALSE);
												}
											{	/* Llib/srfi4.scm 838 */
												long BgL_tmpz00_6785;

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

													if (INTEGERP(BgL_sstartz00_1836))
														{	/* Llib/srfi4.scm 838 */
															BgL_tmpz00_6786 = BgL_sstartz00_1836;
														}
													else
														{
															obj_t BgL_auxz00_6789;

															BgL_auxz00_6789 =
																BGl_typezd2errorzd2zz__errorz00
																(BGl_string2567z00zz__srfi4z00, BINT(33208L),
																BGl_string2658z00zz__srfi4z00,
																BGl_string2590z00zz__srfi4z00,
																BgL_sstartz00_1836);
															FAILURE(BgL_auxz00_6789, BFALSE, BFALSE);
														}
													BgL_tmpz00_6785 = (long) CINT(BgL_tmpz00_6786);
												}
												BGL_SU32VECTOR_COPY(BgL_targetz00_2983,
													BgL_tstartz00_2984, BgL_sourcez00_2985,
													BgL_tmpz00_6785, BgL_sendz00_1837);
											}
											return BUNSPEC;
										}
									}
								}
							}
							break;
						case 5L:

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

								{
									obj_t BgL_auxz00_6795;

									if (VECTORP(BgL_opt1294z00_186))
										{	/* Llib/srfi4.scm 838 */
											BgL_auxz00_6795 = BgL_opt1294z00_186;
										}
									else
										{
											obj_t BgL_auxz00_6798;

											BgL_auxz00_6798 =
												BGl_typezd2errorzd2zz__errorz00
												(BGl_string2567z00zz__srfi4z00, BINT(33208L),
												BGl_string2658z00zz__srfi4z00,
												BGl_string2589z00zz__srfi4z00, BgL_opt1294z00_186);
											FAILURE(BgL_auxz00_6798, BFALSE, BFALSE);
										}
									BgL_sstartz00_1838 = VECTOR_REF(BgL_auxz00_6795, 3L);
								}
								{	/* Llib/srfi4.scm 838 */
									obj_t BgL_sendz00_1839;

									{
										obj_t BgL_auxz00_6803;

										if (VECTORP(BgL_opt1294z00_186))
											{	/* Llib/srfi4.scm 838 */
												BgL_auxz00_6803 = BgL_opt1294z00_186;
											}
										else
											{
												obj_t BgL_auxz00_6806;

												BgL_auxz00_6806 =
													BGl_typezd2errorzd2zz__errorz00
													(BGl_string2567z00zz__srfi4z00, BINT(33208L),
													BGl_string2658z00zz__srfi4z00,
													BGl_string2589z00zz__srfi4z00, BgL_opt1294z00_186);
												FAILURE(BgL_auxz00_6806, BFALSE, BFALSE);
											}
										BgL_sendz00_1839 = VECTOR_REF(BgL_auxz00_6803, 4L);
									}
									{	/* Llib/srfi4.scm 838 */

										{	/* Llib/srfi4.scm 838 */
											obj_t BgL_targetz00_2986;
											long BgL_tstartz00_2987;
											obj_t BgL_sourcez00_2988;

											if (BGL_S32VECTORP(BgL_targetz00_1829))
												{	/* Llib/srfi4.scm 838 */
													BgL_targetz00_2986 = BgL_targetz00_1829;
												}
											else
												{
													obj_t BgL_auxz00_6813;

													BgL_auxz00_6813 =
														BGl_typezd2errorzd2zz__errorz00
														(BGl_string2567z00zz__srfi4z00, BINT(33208L),
														BGl_string2658z00zz__srfi4z00,
														BGl_string2577z00zz__srfi4z00, BgL_targetz00_1829);
													FAILURE(BgL_auxz00_6813, BFALSE, BFALSE);
												}
											{	/* Llib/srfi4.scm 838 */
												obj_t BgL_tmpz00_6817;

												if (INTEGERP(BgL_tstartz00_1830))
													{	/* Llib/srfi4.scm 838 */
														BgL_tmpz00_6817 = BgL_tstartz00_1830;
													}
												else
													{
														obj_t BgL_auxz00_6820;

														BgL_auxz00_6820 =
															BGl_typezd2errorzd2zz__errorz00
															(BGl_string2567z00zz__srfi4z00, BINT(33208L),
															BGl_string2658z00zz__srfi4z00,
															BGl_string2590z00zz__srfi4z00,
															BgL_tstartz00_1830);
														FAILURE(BgL_auxz00_6820, BFALSE, BFALSE);
													}
												BgL_tstartz00_2987 = (long) CINT(BgL_tmpz00_6817);
											}
											if (BGL_S32VECTORP(BgL_sourcez00_1831))
												{	/* Llib/srfi4.scm 838 */
													BgL_sourcez00_2988 = BgL_sourcez00_1831;
												}
											else
												{
													obj_t BgL_auxz00_6827;

													BgL_auxz00_6827 =
														BGl_typezd2errorzd2zz__errorz00
														(BGl_string2567z00zz__srfi4z00, BINT(33208L),
														BGl_string2658z00zz__srfi4z00,
														BGl_string2577z00zz__srfi4z00, BgL_sourcez00_1831);
													FAILURE(BgL_auxz00_6827, BFALSE, BFALSE);
												}
											{	/* Llib/srfi4.scm 838 */
												long BgL_auxz00_6840;
												long BgL_tmpz00_6831;

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

													if (INTEGERP(BgL_sendz00_1839))
														{	/* Llib/srfi4.scm 838 */
															BgL_tmpz00_6841 = BgL_sendz00_1839;
														}
													else
														{
															obj_t BgL_auxz00_6844;

															BgL_auxz00_6844 =
																BGl_typezd2errorzd2zz__errorz00
																(BGl_string2567z00zz__srfi4z00, BINT(33208L),
																BGl_string2658z00zz__srfi4z00,
																BGl_string2590z00zz__srfi4z00,
																BgL_sendz00_1839);
															FAILURE(BgL_auxz00_6844, BFALSE, BFALSE);
														}
													BgL_auxz00_6840 = (long) CINT(BgL_tmpz00_6841);
												}
												{	/* Llib/srfi4.scm 838 */
													obj_t BgL_tmpz00_6832;

													if (INTEGERP(BgL_sstartz00_1838))
														{	/* Llib/srfi4.scm 838 */
															BgL_tmpz00_6832 = BgL_sstartz00_1838;
														}
													else
														{
															obj_t BgL_auxz00_6835;

															BgL_auxz00_6835 =
																BGl_typezd2errorzd2zz__errorz00
																(BGl_string2567z00zz__srfi4z00, BINT(33208L),
																BGl_string2658z00zz__srfi4z00,
																BGl_string2590z00zz__srfi4z00,
																BgL_sstartz00_1838);
															FAILURE(BgL_auxz00_6835, BFALSE, BFALSE);
														}
													BgL_tmpz00_6831 = (long) CINT(BgL_tmpz00_6832);
												}
												BGL_SU32VECTOR_COPY(BgL_targetz00_2986,
													BgL_tstartz00_2987, BgL_sourcez00_2988,
													BgL_tmpz00_6831, BgL_auxz00_6840);
											}
											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_6853;
				long BgL_tmpz00_6851;

				BgL_auxz00_6853 = (long) CINT(BgL_sendz00_185);
				BgL_tmpz00_6851 = (long) CINT(BgL_sstartz00_184);
				BGL_SU32VECTOR_COPY(BgL_targetz00_181, BgL_tstartz00_182,
					BgL_sourcez00_183, BgL_tmpz00_6851, BgL_auxz00_6853);
			}
			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_1840;
				obj_t BgL_tstartz00_1841;
				obj_t BgL_sourcez00_1842;

				{
					obj_t BgL_auxz00_6856;

					if (VECTORP(BgL_opt1298z00_193))
						{	/* Llib/srfi4.scm 838 */
							BgL_auxz00_6856 = BgL_opt1298z00_193;
						}
					else
						{
							obj_t BgL_auxz00_6859;

							BgL_auxz00_6859 =
								BGl_typezd2errorzd2zz__errorz00(BGl_string2567z00zz__srfi4z00,
								BINT(33208L), BGl_string2659z00zz__srfi4z00,
								BGl_string2589z00zz__srfi4z00, BgL_opt1298z00_193);
							FAILURE(BgL_auxz00_6859, BFALSE, BFALSE);
						}
					BgL_targetz00_1840 = VECTOR_REF(BgL_auxz00_6856, 0L);
				}
				{
					obj_t BgL_auxz00_6864;

					if (VECTORP(BgL_opt1298z00_193))
						{	/* Llib/srfi4.scm 838 */
							BgL_auxz00_6864 = BgL_opt1298z00_193;
						}
					else
						{
							obj_t BgL_auxz00_6867;

							BgL_auxz00_6867 =
								BGl_typezd2errorzd2zz__errorz00(BGl_string2567z00zz__srfi4z00,
								BINT(33208L), BGl_string2659z00zz__srfi4z00,
								BGl_string2589z00zz__srfi4z00, BgL_opt1298z00_193);
							FAILURE(BgL_auxz00_6867, BFALSE, BFALSE);
						}
					BgL_tstartz00_1841 = VECTOR_REF(BgL_auxz00_6864, 1L);
				}
				{
					obj_t BgL_auxz00_6872;

					if (VECTORP(BgL_opt1298z00_193))
						{	/* Llib/srfi4.scm 838 */
							BgL_auxz00_6872 = BgL_opt1298z00_193;
						}
					else
						{
							obj_t BgL_auxz00_6875;

							BgL_auxz00_6875 =
								BGl_typezd2errorzd2zz__errorz00(BGl_string2567z00zz__srfi4z00,
								BINT(33208L), BGl_string2659z00zz__srfi4z00,
								BGl_string2589z00zz__srfi4z00, BgL_opt1298z00_193);
							FAILURE(BgL_auxz00_6875, BFALSE, BFALSE);
						}
					BgL_sourcez00_1842 = VECTOR_REF(BgL_auxz00_6872, 2L);
				}
				{	/* Llib/srfi4.scm 838 */
					long BgL_aux1301z00_1844;

					{
						obj_t BgL_auxz00_6880;

						if (VECTORP(BgL_opt1298z00_193))
							{	/* Llib/srfi4.scm 838 */
								BgL_auxz00_6880 = BgL_opt1298z00_193;
							}
						else
							{
								obj_t BgL_auxz00_6883;

								BgL_auxz00_6883 =
									BGl_typezd2errorzd2zz__errorz00(BGl_string2567z00zz__srfi4z00,
									BINT(33208L), BGl_string2659z00zz__srfi4z00,
									BGl_string2589z00zz__srfi4z00, BgL_opt1298z00_193);
								FAILURE(BgL_auxz00_6883, BFALSE, BFALSE);
							}
						BgL_aux1301z00_1844 = VECTOR_LENGTH(BgL_auxz00_6880);
					}
					switch (BgL_aux1301z00_1844)
						{
						case 3L:

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

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

									if (BGL_U32VECTORP(BgL_sourcez00_1842))
										{	/* Llib/srfi4.scm 838 */
											BgL_xz00_2989 = BgL_sourcez00_1842;
										}
									else
										{
											obj_t BgL_auxz00_6890;

											BgL_auxz00_6890 =
												BGl_typezd2errorzd2zz__errorz00
												(BGl_string2567z00zz__srfi4z00, BINT(33208L),
												BGl_string2659z00zz__srfi4z00,
												BGl_string2579z00zz__srfi4z00, BgL_sourcez00_1842);
											FAILURE(BgL_auxz00_6890, BFALSE, BFALSE);
										}
									BgL_sendz00_1846 = BGL_HVECTOR_LENGTH(BgL_xz00_2989);
								}
								{	/* Llib/srfi4.scm 838 */

									{	/* Llib/srfi4.scm 838 */
										obj_t BgL_targetz00_2990;
										long BgL_tstartz00_2991;
										obj_t BgL_sourcez00_2992;

										if (BGL_U32VECTORP(BgL_targetz00_1840))
											{	/* Llib/srfi4.scm 838 */
												BgL_targetz00_2990 = BgL_targetz00_1840;
											}
										else
											{
												obj_t BgL_auxz00_6897;

												BgL_auxz00_6897 =
													BGl_typezd2errorzd2zz__errorz00
													(BGl_string2567z00zz__srfi4z00, BINT(33208L),
													BGl_string2659z00zz__srfi4z00,
													BGl_string2579z00zz__srfi4z00, BgL_targetz00_1840);
												FAILURE(BgL_auxz00_6897, BFALSE, BFALSE);
											}
										{	/* Llib/srfi4.scm 838 */
											obj_t BgL_tmpz00_6901;

											if (INTEGERP(BgL_tstartz00_1841))
												{	/* Llib/srfi4.scm 838 */
													BgL_tmpz00_6901 = BgL_tstartz00_1841;
												}
											else
												{
													obj_t BgL_auxz00_6904;

													BgL_auxz00_6904 =
														BGl_typezd2errorzd2zz__errorz00
														(BGl_string2567z00zz__srfi4z00, BINT(33208L),
														BGl_string2659z00zz__srfi4z00,
														BGl_string2590z00zz__srfi4z00, BgL_tstartz00_1841);
													FAILURE(BgL_auxz00_6904, BFALSE, BFALSE);
												}
											BgL_tstartz00_2991 = (long) CINT(BgL_tmpz00_6901);
										}
										if (BGL_U32VECTORP(BgL_sourcez00_1842))
											{	/* Llib/srfi4.scm 838 */
												BgL_sourcez00_2992 = BgL_sourcez00_1842;
											}
										else
											{
												obj_t BgL_auxz00_6911;

												BgL_auxz00_6911 =
													BGl_typezd2errorzd2zz__errorz00
													(BGl_string2567z00zz__srfi4z00, BINT(33208L),
													BGl_string2659z00zz__srfi4z00,
													BGl_string2579z00zz__srfi4z00, BgL_sourcez00_1842);
												FAILURE(BgL_auxz00_6911, BFALSE, BFALSE);
											}
										BGL_SU32VECTOR_COPY(BgL_targetz00_2990, BgL_tstartz00_2991,
											BgL_sourcez00_2992, 0L, BgL_sendz00_1846);
										return BUNSPEC;
									}
								}
							}
							break;
						case 4L:

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

								{
									obj_t BgL_auxz00_6916;

									if (VECTORP(BgL_opt1298z00_193))
										{	/* Llib/srfi4.scm 838 */
											BgL_auxz00_6916 = BgL_opt1298z00_193;
										}
									else
										{
											obj_t BgL_auxz00_6919;

											BgL_auxz00_6919 =
												BGl_typezd2errorzd2zz__errorz00
												(BGl_string2567z00zz__srfi4z00, BINT(33208L),
												BGl_string2659z00zz__srfi4z00,
												BGl_string2589z00zz__srfi4z00, BgL_opt1298z00_193);
											FAILURE(BgL_auxz00_6919, BFALSE, BFALSE);
										}
									BgL_sstartz00_1847 = VECTOR_REF(BgL_auxz00_6916, 3L);
								}
								{	/* Llib/srfi4.scm 838 */
									long BgL_sendz00_1848;

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

										if (BGL_U32VECTORP(BgL_sourcez00_1842))
											{	/* Llib/srfi4.scm 838 */
												BgL_xz00_2993 = BgL_sourcez00_1842;
											}
										else
											{
												obj_t BgL_auxz00_6926;

												BgL_auxz00_6926 =
													BGl_typezd2errorzd2zz__errorz00
													(BGl_string2567z00zz__srfi4z00, BINT(33208L),
													BGl_string2659z00zz__srfi4z00,
													BGl_string2579z00zz__srfi4z00, BgL_sourcez00_1842);
												FAILURE(BgL_auxz00_6926, BFALSE, BFALSE);
											}
										BgL_sendz00_1848 = BGL_HVECTOR_LENGTH(BgL_xz00_2993);
									}
									{	/* Llib/srfi4.scm 838 */

										{	/* Llib/srfi4.scm 838 */
											obj_t BgL_targetz00_2994;
											long BgL_tstartz00_2995;
											obj_t BgL_sourcez00_2996;

											if (BGL_U32VECTORP(BgL_targetz00_1840))
												{	/* Llib/srfi4.scm 838 */
													BgL_targetz00_2994 = BgL_targetz00_1840;
												}
											else
												{
													obj_t BgL_auxz00_6933;

													BgL_auxz00_6933 =
														BGl_typezd2errorzd2zz__errorz00
														(BGl_string2567z00zz__srfi4z00, BINT(33208L),
														BGl_string2659z00zz__srfi4z00,
														BGl_string2579z00zz__srfi4z00, BgL_targetz00_1840);
													FAILURE(BgL_auxz00_6933, BFALSE, BFALSE);
												}
											{	/* Llib/srfi4.scm 838 */
												obj_t BgL_tmpz00_6937;

												if (INTEGERP(BgL_tstartz00_1841))
													{	/* Llib/srfi4.scm 838 */
														BgL_tmpz00_6937 = BgL_tstartz00_1841;
													}
												else
													{
														obj_t BgL_auxz00_6940;

														BgL_auxz00_6940 =
															BGl_typezd2errorzd2zz__errorz00
															(BGl_string2567z00zz__srfi4z00, BINT(33208L),
															BGl_string2659z00zz__srfi4z00,
															BGl_string2590z00zz__srfi4z00,
															BgL_tstartz00_1841);
														FAILURE(BgL_auxz00_6940, BFALSE, BFALSE);
													}
												BgL_tstartz00_2995 = (long) CINT(BgL_tmpz00_6937);
											}
											if (BGL_U32VECTORP(BgL_sourcez00_1842))
												{	/* Llib/srfi4.scm 838 */
													BgL_sourcez00_2996 = BgL_sourcez00_1842;
												}
											else
												{
													obj_t BgL_auxz00_6947;

													BgL_auxz00_6947 =
														BGl_typezd2errorzd2zz__errorz00
														(BGl_string2567z00zz__srfi4z00, BINT(33208L),
														BGl_string2659z00zz__srfi4z00,
														BGl_string2579z00zz__srfi4z00, BgL_sourcez00_1842);
													FAILURE(BgL_auxz00_6947, BFALSE, BFALSE);
												}
											{	/* Llib/srfi4.scm 838 */
												long BgL_tmpz00_6951;

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

													if (INTEGERP(BgL_sstartz00_1847))
														{	/* Llib/srfi4.scm 838 */
															BgL_tmpz00_6952 = BgL_sstartz00_1847;
														}
													else
														{
															obj_t BgL_auxz00_6955;

															BgL_auxz00_6955 =
																BGl_typezd2errorzd2zz__errorz00
																(BGl_string2567z00zz__srfi4z00, BINT(33208L),
																BGl_string2659z00zz__srfi4z00,
																BGl_string2590z00zz__srfi4z00,
																BgL_sstartz00_1847);
															FAILURE(BgL_auxz00_6955, BFALSE, BFALSE);
														}
													BgL_tmpz00_6951 = (long) CINT(BgL_tmpz00_6952);
												}
												BGL_SU32VECTOR_COPY(BgL_targetz00_2994,
													BgL_tstartz00_2995, BgL_sourcez00_2996,
													BgL_tmpz00_6951, BgL_sendz00_1848);
											}
											return BUNSPEC;
										}
									}
								}
							}
							break;
						case 5L:

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

								{
									obj_t BgL_auxz00_6961;

									if (VECTORP(BgL_opt1298z00_193))
										{	/* Llib/srfi4.scm 838 */
											BgL_auxz00_6961 = BgL_opt1298z00_193;
										}
									else
										{
											obj_t BgL_auxz00_6964;

											BgL_auxz00_6964 =
												BGl_typezd2errorzd2zz__errorz00
												(BGl_string2567z00zz__srfi4z00, BINT(33208L),
												BGl_string2659z00zz__srfi4z00,
												BGl_string2589z00zz__srfi4z00, BgL_opt1298z00_193);
											FAILURE(BgL_auxz00_6964, BFALSE, BFALSE);
										}
									BgL_sstartz00_1849 = VECTOR_REF(BgL_auxz00_6961, 3L);
								}
								{	/* Llib/srfi4.scm 838 */
									obj_t BgL_sendz00_1850;

									{
										obj_t BgL_auxz00_6969;

										if (VECTORP(BgL_opt1298z00_193))
											{	/* Llib/srfi4.scm 838 */
												BgL_auxz00_6969 = BgL_opt1298z00_193;
											}
										else
											{
												obj_t BgL_auxz00_6972;

												BgL_auxz00_6972 =
													BGl_typezd2errorzd2zz__errorz00
													(BGl_string2567z00zz__srfi4z00, BINT(33208L),
													BGl_string2659z00zz__srfi4z00,
													BGl_string2589z00zz__srfi4z00, BgL_opt1298z00_193);
												FAILURE(BgL_auxz00_6972, BFALSE, BFALSE);
											}
										BgL_sendz00_1850 = VECTOR_REF(BgL_auxz00_6969, 4L);
									}
									{	/* Llib/srfi4.scm 838 */

										{	/* Llib/srfi4.scm 838 */
											obj_t BgL_targetz00_2997;
											long BgL_tstartz00_2998;
											obj_t BgL_sourcez00_2999;

											if (BGL_U32VECTORP(BgL_targetz00_1840))
												{	/* Llib/srfi4.scm 838 */
													BgL_targetz00_2997 = BgL_targetz00_1840;
												}
											else
												{
													obj_t BgL_auxz00_6979;

													BgL_auxz00_6979 =
														BGl_typezd2errorzd2zz__errorz00
														(BGl_string2567z00zz__srfi4z00, BINT(33208L),
														BGl_string2659z00zz__srfi4z00,
														BGl_string2579z00zz__srfi4z00, BgL_targetz00_1840);
													FAILURE(BgL_auxz00_6979, BFALSE, BFALSE);
												}
											{	/* Llib/srfi4.scm 838 */
												obj_t BgL_tmpz00_6983;

												if (INTEGERP(BgL_tstartz00_1841))
													{	/* Llib/srfi4.scm 838 */
														BgL_tmpz00_6983 = BgL_tstartz00_1841;
													}
												else
													{
														obj_t BgL_auxz00_6986;

														BgL_auxz00_6986 =
															BGl_typezd2errorzd2zz__errorz00
															(BGl_string2567z00zz__srfi4z00, BINT(33208L),
															BGl_string2659z00zz__srfi4z00,
															BGl_string2590z00zz__srfi4z00,
															BgL_tstartz00_1841);
														FAILURE(BgL_auxz00_6986, BFALSE, BFALSE);
													}
												BgL_tstartz00_2998 = (long) CINT(BgL_tmpz00_6983);
											}
											if (BGL_U32VECTORP(BgL_sourcez00_1842))
												{	/* Llib/srfi4.scm 838 */
													BgL_sourcez00_2999 = BgL_sourcez00_1842;
												}
											else
												{
													obj_t BgL_auxz00_6993;

													BgL_auxz00_6993 =
														BGl_typezd2errorzd2zz__errorz00
														(BGl_string2567z00zz__srfi4z00, BINT(33208L),
														BGl_string2659z00zz__srfi4z00,
														BGl_string2579z00zz__srfi4z00, BgL_sourcez00_1842);
													FAILURE(BgL_auxz00_6993, BFALSE, BFALSE);
												}
											{	/* Llib/srfi4.scm 838 */
												long BgL_auxz00_7006;
												long BgL_tmpz00_6997;

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

													if (INTEGERP(BgL_sendz00_1850))
														{	/* Llib/srfi4.scm 838 */
															BgL_tmpz00_7007 = BgL_sendz00_1850;
														}
													else
														{
															obj_t BgL_auxz00_7010;

															BgL_auxz00_7010 =
																BGl_typezd2errorzd2zz__errorz00
																(BGl_string2567z00zz__srfi4z00, BINT(33208L),
																BGl_string2659z00zz__srfi4z00,
																BGl_string2590z00zz__srfi4z00,
																BgL_sendz00_1850);
															FAILURE(BgL_auxz00_7010, BFALSE, BFALSE);
														}
													BgL_auxz00_7006 = (long) CINT(BgL_tmpz00_7007);
												}
												{	/* Llib/srfi4.scm 838 */
													obj_t BgL_tmpz00_6998;

													if (INTEGERP(BgL_sstartz00_1849))
														{	/* Llib/srfi4.scm 838 */
															BgL_tmpz00_6998 = BgL_sstartz00_1849;
														}
													else
														{
															obj_t BgL_auxz00_7001;

															BgL_auxz00_7001 =
																BGl_typezd2errorzd2zz__errorz00
																(BGl_string2567z00zz__srfi4z00, BINT(33208L),
																BGl_string2659z00zz__srfi4z00,
																BGl_string2590z00zz__srfi4z00,
																BgL_sstartz00_1849);
															FAILURE(BgL_auxz00_7001, BFALSE, BFALSE);
														}
													BgL_tmpz00_6997 = (long) CINT(BgL_tmpz00_6998);
												}
												BGL_SU32VECTOR_COPY(BgL_targetz00_2997,
													BgL_tstartz00_2998, BgL_sourcez00_2999,
													BgL_tmpz00_6997, BgL_auxz00_7006);
											}
											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_7019;
				long BgL_tmpz00_7017;

				BgL_auxz00_7019 = (long) CINT(BgL_sendz00_192);
				BgL_tmpz00_7017 = (long) CINT(BgL_sstartz00_191);
				BGL_SU32VECTOR_COPY(BgL_targetz00_188, BgL_tstartz00_189,
					BgL_sourcez00_190, BgL_tmpz00_7017, BgL_auxz00_7019);
			}
			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_1851;
				obj_t BgL_tstartz00_1852;
				obj_t BgL_sourcez00_1853;

				{
					obj_t BgL_auxz00_7022;

					if (VECTORP(BgL_opt1302z00_200))
						{	/* Llib/srfi4.scm 838 */
							BgL_auxz00_7022 = BgL_opt1302z00_200;
						}
					else
						{
							obj_t BgL_auxz00_7025;

							BgL_auxz00_7025 =
								BGl_typezd2errorzd2zz__errorz00(BGl_string2567z00zz__srfi4z00,
								BINT(33208L), BGl_string2660z00zz__srfi4z00,
								BGl_string2589z00zz__srfi4z00, BgL_opt1302z00_200);
							FAILURE(BgL_auxz00_7025, BFALSE, BFALSE);
						}
					BgL_targetz00_1851 = VECTOR_REF(BgL_auxz00_7022, 0L);
				}
				{
					obj_t BgL_auxz00_7030;

					if (VECTORP(BgL_opt1302z00_200))
						{	/* Llib/srfi4.scm 838 */
							BgL_auxz00_7030 = BgL_opt1302z00_200;
						}
					else
						{
							obj_t BgL_auxz00_7033;

							BgL_auxz00_7033 =
								BGl_typezd2errorzd2zz__errorz00(BGl_string2567z00zz__srfi4z00,
								BINT(33208L), BGl_string2660z00zz__srfi4z00,
								BGl_string2589z00zz__srfi4z00, BgL_opt1302z00_200);
							FAILURE(BgL_auxz00_7033, BFALSE, BFALSE);
						}
					BgL_tstartz00_1852 = VECTOR_REF(BgL_auxz00_7030, 1L);
				}
				{
					obj_t BgL_auxz00_7038;

					if (VECTORP(BgL_opt1302z00_200))
						{	/* Llib/srfi4.scm 838 */
							BgL_auxz00_7038 = BgL_opt1302z00_200;
						}
					else
						{
							obj_t BgL_auxz00_7041;

							BgL_auxz00_7041 =
								BGl_typezd2errorzd2zz__errorz00(BGl_string2567z00zz__srfi4z00,
								BINT(33208L), BGl_string2660z00zz__srfi4z00,
								BGl_string2589z00zz__srfi4z00, BgL_opt1302z00_200);
							FAILURE(BgL_auxz00_7041, BFALSE, BFALSE);
						}
					BgL_sourcez00_1853 = VECTOR_REF(BgL_auxz00_7038, 2L);
				}
				{	/* Llib/srfi4.scm 838 */
					long BgL_aux1305z00_1855;

					{
						obj_t BgL_auxz00_7046;

						if (VECTORP(BgL_opt1302z00_200))
							{	/* Llib/srfi4.scm 838 */
								BgL_auxz00_7046 = BgL_opt1302z00_200;
							}
						else
							{
								obj_t BgL_auxz00_7049;

								BgL_auxz00_7049 =
									BGl_typezd2errorzd2zz__errorz00(BGl_string2567z00zz__srfi4z00,
									BINT(33208L), BGl_string2660z00zz__srfi4z00,
									BGl_string2589z00zz__srfi4z00, BgL_opt1302z00_200);
								FAILURE(BgL_auxz00_7049, BFALSE, BFALSE);
							}
						BgL_aux1305z00_1855 = VECTOR_LENGTH(BgL_auxz00_7046);
					}
					switch (BgL_aux1305z00_1855)
						{
						case 3L:

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

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

									if (BGL_S64VECTORP(BgL_sourcez00_1853))
										{	/* Llib/srfi4.scm 838 */
											BgL_xz00_3000 = BgL_sourcez00_1853;
										}
									else
										{
											obj_t BgL_auxz00_7056;

											BgL_auxz00_7056 =
												BGl_typezd2errorzd2zz__errorz00
												(BGl_string2567z00zz__srfi4z00, BINT(33208L),
												BGl_string2660z00zz__srfi4z00,
												BGl_string2581z00zz__srfi4z00, BgL_sourcez00_1853);
											FAILURE(BgL_auxz00_7056, BFALSE, BFALSE);
										}
									BgL_sendz00_1857 = BGL_HVECTOR_LENGTH(BgL_xz00_3000);
								}
								{	/* Llib/srfi4.scm 838 */

									{	/* Llib/srfi4.scm 838 */
										obj_t BgL_targetz00_3001;
										long BgL_tstartz00_3002;
										obj_t BgL_sourcez00_3003;

										if (BGL_S64VECTORP(BgL_targetz00_1851))
											{	/* Llib/srfi4.scm 838 */
												BgL_targetz00_3001 = BgL_targetz00_1851;
											}
										else
											{
												obj_t BgL_auxz00_7063;

												BgL_auxz00_7063 =
													BGl_typezd2errorzd2zz__errorz00
													(BGl_string2567z00zz__srfi4z00, BINT(33208L),
													BGl_string2660z00zz__srfi4z00,
													BGl_string2581z00zz__srfi4z00, BgL_targetz00_1851);
												FAILURE(BgL_auxz00_7063, BFALSE, BFALSE);
											}
										{	/* Llib/srfi4.scm 838 */
											obj_t BgL_tmpz00_7067;

											if (INTEGERP(BgL_tstartz00_1852))
												{	/* Llib/srfi4.scm 838 */
													BgL_tmpz00_7067 = BgL_tstartz00_1852;
												}
											else
												{
													obj_t BgL_auxz00_7070;

													BgL_auxz00_7070 =
														BGl_typezd2errorzd2zz__errorz00
														(BGl_string2567z00zz__srfi4z00, BINT(33208L),
														BGl_string2660z00zz__srfi4z00,
														BGl_string2590z00zz__srfi4z00, BgL_tstartz00_1852);
													FAILURE(BgL_auxz00_7070, BFALSE, BFALSE);
												}
											BgL_tstartz00_3002 = (long) CINT(BgL_tmpz00_7067);
										}
										if (BGL_S64VECTORP(BgL_sourcez00_1853))
											{	/* Llib/srfi4.scm 838 */
												BgL_sourcez00_3003 = BgL_sourcez00_1853;
											}
										else
											{
												obj_t BgL_auxz00_7077;

												BgL_auxz00_7077 =
													BGl_typezd2errorzd2zz__errorz00
													(BGl_string2567z00zz__srfi4z00, BINT(33208L),
													BGl_string2660z00zz__srfi4z00,
													BGl_string2581z00zz__srfi4z00, BgL_sourcez00_1853);
												FAILURE(BgL_auxz00_7077, BFALSE, BFALSE);
											}
										BGL_SU64VECTOR_COPY(BgL_targetz00_3001, BgL_tstartz00_3002,
											BgL_sourcez00_3003, 0L, BgL_sendz00_1857);
										return BUNSPEC;
									}
								}
							}
							break;
						case 4L:

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

								{
									obj_t BgL_auxz00_7082;

									if (VECTORP(BgL_opt1302z00_200))
										{	/* Llib/srfi4.scm 838 */
											BgL_auxz00_7082 = BgL_opt1302z00_200;
										}
									else
										{
											obj_t BgL_auxz00_7085;

											BgL_auxz00_7085 =
												BGl_typezd2errorzd2zz__errorz00
												(BGl_string2567z00zz__srfi4z00, BINT(33208L),
												BGl_string2660z00zz__srfi4z00,
												BGl_string2589z00zz__srfi4z00, BgL_opt1302z00_200);
											FAILURE(BgL_auxz00_7085, BFALSE, BFALSE);
										}
									BgL_sstartz00_1858 = VECTOR_REF(BgL_auxz00_7082, 3L);
								}
								{	/* Llib/srfi4.scm 838 */
									long BgL_sendz00_1859;

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

										if (BGL_S64VECTORP(BgL_sourcez00_1853))
											{	/* Llib/srfi4.scm 838 */
												BgL_xz00_3004 = BgL_sourcez00_1853;
											}
										else
											{
												obj_t BgL_auxz00_7092;

												BgL_auxz00_7092 =
													BGl_typezd2errorzd2zz__errorz00
													(BGl_string2567z00zz__srfi4z00, BINT(33208L),
													BGl_string2660z00zz__srfi4z00,
													BGl_string2581z00zz__srfi4z00, BgL_sourcez00_1853);
												FAILURE(BgL_auxz00_7092, BFALSE, BFALSE);
											}
										BgL_sendz00_1859 = BGL_HVECTOR_LENGTH(BgL_xz00_3004);
									}
									{	/* Llib/srfi4.scm 838 */

										{	/* Llib/srfi4.scm 838 */
											obj_t BgL_targetz00_3005;
											long BgL_tstartz00_3006;
											obj_t BgL_sourcez00_3007;

											if (BGL_S64VECTORP(BgL_targetz00_1851))
												{	/* Llib/srfi4.scm 838 */
													BgL_targetz00_3005 = BgL_targetz00_1851;
												}
											else
												{
													obj_t BgL_auxz00_7099;

													BgL_auxz00_7099 =
														BGl_typezd2errorzd2zz__errorz00
														(BGl_string2567z00zz__srfi4z00, BINT(33208L),
														BGl_string2660z00zz__srfi4z00,
														BGl_string2581z00zz__srfi4z00, BgL_targetz00_1851);
													FAILURE(BgL_auxz00_7099, BFALSE, BFALSE);
												}
											{	/* Llib/srfi4.scm 838 */
												obj_t BgL_tmpz00_7103;

												if (INTEGERP(BgL_tstartz00_1852))
													{	/* Llib/srfi4.scm 838 */
														BgL_tmpz00_7103 = BgL_tstartz00_1852;
													}
												else
													{
														obj_t BgL_auxz00_7106;

														BgL_auxz00_7106 =
															BGl_typezd2errorzd2zz__errorz00
															(BGl_string2567z00zz__srfi4z00, BINT(33208L),
															BGl_string2660z00zz__srfi4z00,
															BGl_string2590z00zz__srfi4z00,
															BgL_tstartz00_1852);
														FAILURE(BgL_auxz00_7106, BFALSE, BFALSE);
													}
												BgL_tstartz00_3006 = (long) CINT(BgL_tmpz00_7103);
											}
											if (BGL_S64VECTORP(BgL_sourcez00_1853))
												{	/* Llib/srfi4.scm 838 */
													BgL_sourcez00_3007 = BgL_sourcez00_1853;
												}
											else
												{
													obj_t BgL_auxz00_7113;

													BgL_auxz00_7113 =
														BGl_typezd2errorzd2zz__errorz00
														(BGl_string2567z00zz__srfi4z00, BINT(33208L),
														BGl_string2660z00zz__srfi4z00,
														BGl_string2581z00zz__srfi4z00, BgL_sourcez00_1853);
													FAILURE(BgL_auxz00_7113, BFALSE, BFALSE);
												}
											{	/* Llib/srfi4.scm 838 */
												long BgL_tmpz00_7117;

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

													if (INTEGERP(BgL_sstartz00_1858))
														{	/* Llib/srfi4.scm 838 */
															BgL_tmpz00_7118 = BgL_sstartz00_1858;
														}
													else
														{
															obj_t BgL_auxz00_7121;

															BgL_auxz00_7121 =
																BGl_typezd2errorzd2zz__errorz00
																(BGl_string2567z00zz__srfi4z00, BINT(33208L),
																BGl_string2660z00zz__srfi4z00,
																BGl_string2590z00zz__srfi4z00,
																BgL_sstartz00_1858);
															FAILURE(BgL_auxz00_7121, BFALSE, BFALSE);
														}
													BgL_tmpz00_7117 = (long) CINT(BgL_tmpz00_7118);
												}
												BGL_SU64VECTOR_COPY(BgL_targetz00_3005,
													BgL_tstartz00_3006, BgL_sourcez00_3007,
													BgL_tmpz00_7117, BgL_sendz00_1859);
											}
											return BUNSPEC;
										}
									}
								}
							}
							break;
						case 5L:

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

								{
									obj_t BgL_auxz00_7127;

									if (VECTORP(BgL_opt1302z00_200))
										{	/* Llib/srfi4.scm 838 */
											BgL_auxz00_7127 = BgL_opt1302z00_200;
										}
									else
										{
											obj_t BgL_auxz00_7130;

											BgL_auxz00_7130 =
												BGl_typezd2errorzd2zz__errorz00
												(BGl_string2567z00zz__srfi4z00, BINT(33208L),
												BGl_string2660z00zz__srfi4z00,
												BGl_string2589z00zz__srfi4z00, BgL_opt1302z00_200);
											FAILURE(BgL_auxz00_7130, BFALSE, BFALSE);
										}
									BgL_sstartz00_1860 = VECTOR_REF(BgL_auxz00_7127, 3L);
								}
								{	/* Llib/srfi4.scm 838 */
									obj_t BgL_sendz00_1861;

									{
										obj_t BgL_auxz00_7135;

										if (VECTORP(BgL_opt1302z00_200))
											{	/* Llib/srfi4.scm 838 */
												BgL_auxz00_7135 = BgL_opt1302z00_200;
											}
										else
											{
												obj_t BgL_auxz00_7138;

												BgL_auxz00_7138 =
													BGl_typezd2errorzd2zz__errorz00
													(BGl_string2567z00zz__srfi4z00, BINT(33208L),
													BGl_string2660z00zz__srfi4z00,
													BGl_string2589z00zz__srfi4z00, BgL_opt1302z00_200);
												FAILURE(BgL_auxz00_7138, BFALSE, BFALSE);
											}
										BgL_sendz00_1861 = VECTOR_REF(BgL_auxz00_7135, 4L);
									}
									{	/* Llib/srfi4.scm 838 */

										{	/* Llib/srfi4.scm 838 */
											obj_t BgL_targetz00_3008;
											long BgL_tstartz00_3009;
											obj_t BgL_sourcez00_3010;

											if (BGL_S64VECTORP(BgL_targetz00_1851))
												{	/* Llib/srfi4.scm 838 */
													BgL_targetz00_3008 = BgL_targetz00_1851;
												}
											else
												{
													obj_t BgL_auxz00_7145;

													BgL_auxz00_7145 =
														BGl_typezd2errorzd2zz__errorz00
														(BGl_string2567z00zz__srfi4z00, BINT(33208L),
														BGl_string2660z00zz__srfi4z00,
														BGl_string2581z00zz__srfi4z00, BgL_targetz00_1851);
													FAILURE(BgL_auxz00_7145, BFALSE, BFALSE);
												}
											{	/* Llib/srfi4.scm 838 */
												obj_t BgL_tmpz00_7149;

												if (INTEGERP(BgL_tstartz00_1852))
													{	/* Llib/srfi4.scm 838 */
														BgL_tmpz00_7149 = BgL_tstartz00_1852;
													}
												else
													{
														obj_t BgL_auxz00_7152;

														BgL_auxz00_7152 =
															BGl_typezd2errorzd2zz__errorz00
															(BGl_string2567z00zz__srfi4z00, BINT(33208L),
															BGl_string2660z00zz__srfi4z00,
															BGl_string2590z00zz__srfi4z00,
															BgL_tstartz00_1852);
														FAILURE(BgL_auxz00_7152, BFALSE, BFALSE);
													}
												BgL_tstartz00_3009 = (long) CINT(BgL_tmpz00_7149);
											}
											if (BGL_S64VECTORP(BgL_sourcez00_1853))
												{	/* Llib/srfi4.scm 838 */
													BgL_sourcez00_3010 = BgL_sourcez00_1853;
												}
											else
												{
													obj_t BgL_auxz00_7159;

													BgL_auxz00_7159 =
														BGl_typezd2errorzd2zz__errorz00
														(BGl_string2567z00zz__srfi4z00, BINT(33208L),
														BGl_string2660z00zz__srfi4z00,
														BGl_string2581z00zz__srfi4z00, BgL_sourcez00_1853);
													FAILURE(BgL_auxz00_7159, BFALSE, BFALSE);
												}
											{	/* Llib/srfi4.scm 838 */
												long BgL_auxz00_7172;
												long BgL_tmpz00_7163;

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

													if (INTEGERP(BgL_sendz00_1861))
														{	/* Llib/srfi4.scm 838 */
															BgL_tmpz00_7173 = BgL_sendz00_1861;
														}
													else
														{
															obj_t BgL_auxz00_7176;

															BgL_auxz00_7176 =
																BGl_typezd2errorzd2zz__errorz00
																(BGl_string2567z00zz__srfi4z00, BINT(33208L),
																BGl_string2660z00zz__srfi4z00,
																BGl_string2590z00zz__srfi4z00,
																BgL_sendz00_1861);
															FAILURE(BgL_auxz00_7176, BFALSE, BFALSE);
														}
													BgL_auxz00_7172 = (long) CINT(BgL_tmpz00_7173);
												}
												{	/* Llib/srfi4.scm 838 */
													obj_t BgL_tmpz00_7164;

													if (INTEGERP(BgL_sstartz00_1860))
														{	/* Llib/srfi4.scm 838 */
															BgL_tmpz00_7164 = BgL_sstartz00_1860;
														}
													else
														{
															obj_t BgL_auxz00_7167;

															BgL_auxz00_7167 =
																BGl_typezd2errorzd2zz__errorz00
																(BGl_string2567z00zz__srfi4z00, BINT(33208L),
																BGl_string2660z00zz__srfi4z00,
																BGl_string2590z00zz__srfi4z00,
																BgL_sstartz00_1860);
															FAILURE(BgL_auxz00_7167, BFALSE, BFALSE);
														}
													BgL_tmpz00_7163 = (long) CINT(BgL_tmpz00_7164);
												}
												BGL_SU64VECTOR_COPY(BgL_targetz00_3008,
													BgL_tstartz00_3009, BgL_sourcez00_3010,
													BgL_tmpz00_7163, BgL_auxz00_7172);
											}
											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_7185;
				long BgL_tmpz00_7183;

				BgL_auxz00_7185 = (long) CINT(BgL_sendz00_199);
				BgL_tmpz00_7183 = (long) CINT(BgL_sstartz00_198);
				BGL_SU64VECTOR_COPY(BgL_targetz00_195, BgL_tstartz00_196,
					BgL_sourcez00_197, BgL_tmpz00_7183, BgL_auxz00_7185);
			}
			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_1862;
				obj_t BgL_tstartz00_1863;
				obj_t BgL_sourcez00_1864;

				{
					obj_t BgL_auxz00_7188;

					if (VECTORP(BgL_opt1306z00_207))
						{	/* Llib/srfi4.scm 838 */
							BgL_auxz00_7188 = BgL_opt1306z00_207;
						}
					else
						{
							obj_t BgL_auxz00_7191;

							BgL_auxz00_7191 =
								BGl_typezd2errorzd2zz__errorz00(BGl_string2567z00zz__srfi4z00,
								BINT(33208L), BGl_string2661z00zz__srfi4z00,
								BGl_string2589z00zz__srfi4z00, BgL_opt1306z00_207);
							FAILURE(BgL_auxz00_7191, BFALSE, BFALSE);
						}
					BgL_targetz00_1862 = VECTOR_REF(BgL_auxz00_7188, 0L);
				}
				{
					obj_t BgL_auxz00_7196;

					if (VECTORP(BgL_opt1306z00_207))
						{	/* Llib/srfi4.scm 838 */
							BgL_auxz00_7196 = BgL_opt1306z00_207;
						}
					else
						{
							obj_t BgL_auxz00_7199;

							BgL_auxz00_7199 =
								BGl_typezd2errorzd2zz__errorz00(BGl_string2567z00zz__srfi4z00,
								BINT(33208L), BGl_string2661z00zz__srfi4z00,
								BGl_string2589z00zz__srfi4z00, BgL_opt1306z00_207);
							FAILURE(BgL_auxz00_7199, BFALSE, BFALSE);
						}
					BgL_tstartz00_1863 = VECTOR_REF(BgL_auxz00_7196, 1L);
				}
				{
					obj_t BgL_auxz00_7204;

					if (VECTORP(BgL_opt1306z00_207))
						{	/* Llib/srfi4.scm 838 */
							BgL_auxz00_7204 = BgL_opt1306z00_207;
						}
					else
						{
							obj_t BgL_auxz00_7207;

							BgL_auxz00_7207 =
								BGl_typezd2errorzd2zz__errorz00(BGl_string2567z00zz__srfi4z00,
								BINT(33208L), BGl_string2661z00zz__srfi4z00,
								BGl_string2589z00zz__srfi4z00, BgL_opt1306z00_207);
							FAILURE(BgL_auxz00_7207, BFALSE, BFALSE);
						}
					BgL_sourcez00_1864 = VECTOR_REF(BgL_auxz00_7204, 2L);
				}
				{	/* Llib/srfi4.scm 838 */
					long BgL_aux1309z00_1866;

					{
						obj_t BgL_auxz00_7212;

						if (VECTORP(BgL_opt1306z00_207))
							{	/* Llib/srfi4.scm 838 */
								BgL_auxz00_7212 = BgL_opt1306z00_207;
							}
						else
							{
								obj_t BgL_auxz00_7215;

								BgL_auxz00_7215 =
									BGl_typezd2errorzd2zz__errorz00(BGl_string2567z00zz__srfi4z00,
									BINT(33208L), BGl_string2661z00zz__srfi4z00,
									BGl_string2589z00zz__srfi4z00, BgL_opt1306z00_207);
								FAILURE(BgL_auxz00_7215, BFALSE, BFALSE);
							}
						BgL_aux1309z00_1866 = VECTOR_LENGTH(BgL_auxz00_7212);
					}
					switch (BgL_aux1309z00_1866)
						{
						case 3L:

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

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

									if (BGL_U64VECTORP(BgL_sourcez00_1864))
										{	/* Llib/srfi4.scm 838 */
											BgL_xz00_3011 = BgL_sourcez00_1864;
										}
									else
										{
											obj_t BgL_auxz00_7222;

											BgL_auxz00_7222 =
												BGl_typezd2errorzd2zz__errorz00
												(BGl_string2567z00zz__srfi4z00, BINT(33208L),
												BGl_string2661z00zz__srfi4z00,
												BGl_string2583z00zz__srfi4z00, BgL_sourcez00_1864);
											FAILURE(BgL_auxz00_7222, BFALSE, BFALSE);
										}
									BgL_sendz00_1868 = BGL_HVECTOR_LENGTH(BgL_xz00_3011);
								}
								{	/* Llib/srfi4.scm 838 */

									{	/* Llib/srfi4.scm 838 */
										obj_t BgL_targetz00_3012;
										long BgL_tstartz00_3013;
										obj_t BgL_sourcez00_3014;

										if (BGL_U64VECTORP(BgL_targetz00_1862))
											{	/* Llib/srfi4.scm 838 */
												BgL_targetz00_3012 = BgL_targetz00_1862;
											}
										else
											{
												obj_t BgL_auxz00_7229;

												BgL_auxz00_7229 =
													BGl_typezd2errorzd2zz__errorz00
													(BGl_string2567z00zz__srfi4z00, BINT(33208L),
													BGl_string2661z00zz__srfi4z00,
													BGl_string2583z00zz__srfi4z00, BgL_targetz00_1862);
												FAILURE(BgL_auxz00_7229, BFALSE, BFALSE);
											}
										{	/* Llib/srfi4.scm 838 */
											obj_t BgL_tmpz00_7233;

											if (INTEGERP(BgL_tstartz00_1863))
												{	/* Llib/srfi4.scm 838 */
													BgL_tmpz00_7233 = BgL_tstartz00_1863;
												}
											else
												{
													obj_t BgL_auxz00_7236;

													BgL_auxz00_7236 =
														BGl_typezd2errorzd2zz__errorz00
														(BGl_string2567z00zz__srfi4z00, BINT(33208L),
														BGl_string2661z00zz__srfi4z00,
														BGl_string2590z00zz__srfi4z00, BgL_tstartz00_1863);
													FAILURE(BgL_auxz00_7236, BFALSE, BFALSE);
												}
											BgL_tstartz00_3013 = (long) CINT(BgL_tmpz00_7233);
										}
										if (BGL_U64VECTORP(BgL_sourcez00_1864))
											{	/* Llib/srfi4.scm 838 */
												BgL_sourcez00_3014 = BgL_sourcez00_1864;
											}
										else
											{
												obj_t BgL_auxz00_7243;

												BgL_auxz00_7243 =
													BGl_typezd2errorzd2zz__errorz00
													(BGl_string2567z00zz__srfi4z00, BINT(33208L),
													BGl_string2661z00zz__srfi4z00,
													BGl_string2583z00zz__srfi4z00, BgL_sourcez00_1864);
												FAILURE(BgL_auxz00_7243, BFALSE, BFALSE);
											}
										BGL_SU64VECTOR_COPY(BgL_targetz00_3012, BgL_tstartz00_3013,
											BgL_sourcez00_3014, 0L, BgL_sendz00_1868);
										return BUNSPEC;
									}
								}
							}
							break;
						case 4L:

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

								{
									obj_t BgL_auxz00_7248;

									if (VECTORP(BgL_opt1306z00_207))
										{	/* Llib/srfi4.scm 838 */
											BgL_auxz00_7248 = BgL_opt1306z00_207;
										}
									else
										{
											obj_t BgL_auxz00_7251;

											BgL_auxz00_7251 =
												BGl_typezd2errorzd2zz__errorz00
												(BGl_string2567z00zz__srfi4z00, BINT(33208L),
												BGl_string2661z00zz__srfi4z00,
												BGl_string2589z00zz__srfi4z00, BgL_opt1306z00_207);
											FAILURE(BgL_auxz00_7251, BFALSE, BFALSE);
										}
									BgL_sstartz00_1869 = VECTOR_REF(BgL_auxz00_7248, 3L);
								}
								{	/* Llib/srfi4.scm 838 */
									long BgL_sendz00_1870;

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

										if (BGL_U64VECTORP(BgL_sourcez00_1864))
											{	/* Llib/srfi4.scm 838 */
												BgL_xz00_3015 = BgL_sourcez00_1864;
											}
										else
											{
												obj_t BgL_auxz00_7258;

												BgL_auxz00_7258 =
													BGl_typezd2errorzd2zz__errorz00
													(BGl_string2567z00zz__srfi4z00, BINT(33208L),
													BGl_string2661z00zz__srfi4z00,
													BGl_string2583z00zz__srfi4z00, BgL_sourcez00_1864);
												FAILURE(BgL_auxz00_7258, BFALSE, BFALSE);
											}
										BgL_sendz00_1870 = BGL_HVECTOR_LENGTH(BgL_xz00_3015);
									}
									{	/* Llib/srfi4.scm 838 */

										{	/* Llib/srfi4.scm 838 */
											obj_t BgL_targetz00_3016;
											long BgL_tstartz00_3017;
											obj_t BgL_sourcez00_3018;

											if (BGL_U64VECTORP(BgL_targetz00_1862))
												{	/* Llib/srfi4.scm 838 */
													BgL_targetz00_3016 = BgL_targetz00_1862;
												}
											else
												{
													obj_t BgL_auxz00_7265;

													BgL_auxz00_7265 =
														BGl_typezd2errorzd2zz__errorz00
														(BGl_string2567z00zz__srfi4z00, BINT(33208L),
														BGl_string2661z00zz__srfi4z00,
														BGl_string2583z00zz__srfi4z00, BgL_targetz00_1862);
													FAILURE(BgL_auxz00_7265, BFALSE, BFALSE);
												}
											{	/* Llib/srfi4.scm 838 */
												obj_t BgL_tmpz00_7269;

												if (INTEGERP(BgL_tstartz00_1863))
													{	/* Llib/srfi4.scm 838 */
														BgL_tmpz00_7269 = BgL_tstartz00_1863;
													}
												else
													{
														obj_t BgL_auxz00_7272;

														BgL_auxz00_7272 =
															BGl_typezd2errorzd2zz__errorz00
															(BGl_string2567z00zz__srfi4z00, BINT(33208L),
															BGl_string2661z00zz__srfi4z00,
															BGl_string2590z00zz__srfi4z00,
															BgL_tstartz00_1863);
														FAILURE(BgL_auxz00_7272, BFALSE, BFALSE);
													}
												BgL_tstartz00_3017 = (long) CINT(BgL_tmpz00_7269);
											}
											if (BGL_U64VECTORP(BgL_sourcez00_1864))
												{	/* Llib/srfi4.scm 838 */
													BgL_sourcez00_3018 = BgL_sourcez00_1864;
												}
											else
												{
													obj_t BgL_auxz00_7279;

													BgL_auxz00_7279 =
														BGl_typezd2errorzd2zz__errorz00
														(BGl_string2567z00zz__srfi4z00, BINT(33208L),
														BGl_string2661z00zz__srfi4z00,
														BGl_string2583z00zz__srfi4z00, BgL_sourcez00_1864);
													FAILURE(BgL_auxz00_7279, BFALSE, BFALSE);
												}
											{	/* Llib/srfi4.scm 838 */
												long BgL_tmpz00_7283;

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

													if (INTEGERP(BgL_sstartz00_1869))
														{	/* Llib/srfi4.scm 838 */
															BgL_tmpz00_7284 = BgL_sstartz00_1869;
														}
													else
														{
															obj_t BgL_auxz00_7287;

															BgL_auxz00_7287 =
																BGl_typezd2errorzd2zz__errorz00
																(BGl_string2567z00zz__srfi4z00, BINT(33208L),
																BGl_string2661z00zz__srfi4z00,
																BGl_string2590z00zz__srfi4z00,
																BgL_sstartz00_1869);
															FAILURE(BgL_auxz00_7287, BFALSE, BFALSE);
														}
													BgL_tmpz00_7283 = (long) CINT(BgL_tmpz00_7284);
												}
												BGL_SU64VECTOR_COPY(BgL_targetz00_3016,
													BgL_tstartz00_3017, BgL_sourcez00_3018,
													BgL_tmpz00_7283, BgL_sendz00_1870);
											}
											return BUNSPEC;
										}
									}
								}
							}
							break;
						case 5L:

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

								{
									obj_t BgL_auxz00_7293;

									if (VECTORP(BgL_opt1306z00_207))
										{	/* Llib/srfi4.scm 838 */
											BgL_auxz00_7293 = BgL_opt1306z00_207;
										}
									else
										{
											obj_t BgL_auxz00_7296;

											BgL_auxz00_7296 =
												BGl_typezd2errorzd2zz__errorz00
												(BGl_string2567z00zz__srfi4z00, BINT(33208L),
												BGl_string2661z00zz__srfi4z00,
												BGl_string2589z00zz__srfi4z00, BgL_opt1306z00_207);
											FAILURE(BgL_auxz00_7296, BFALSE, BFALSE);
										}
									BgL_sstartz00_1871 = VECTOR_REF(BgL_auxz00_7293, 3L);
								}
								{	/* Llib/srfi4.scm 838 */
									obj_t BgL_sendz00_1872;

									{
										obj_t BgL_auxz00_7301;

										if (VECTORP(BgL_opt1306z00_207))
											{	/* Llib/srfi4.scm 838 */
												BgL_auxz00_7301 = BgL_opt1306z00_207;
											}
										else
											{
												obj_t BgL_auxz00_7304;

												BgL_auxz00_7304 =
													BGl_typezd2errorzd2zz__errorz00
													(BGl_string2567z00zz__srfi4z00, BINT(33208L),
													BGl_string2661z00zz__srfi4z00,
													BGl_string2589z00zz__srfi4z00, BgL_opt1306z00_207);
												FAILURE(BgL_auxz00_7304, BFALSE, BFALSE);
											}
										BgL_sendz00_1872 = VECTOR_REF(BgL_auxz00_7301, 4L);
									}
									{	/* Llib/srfi4.scm 838 */

										{	/* Llib/srfi4.scm 838 */
											obj_t BgL_targetz00_3019;
											long BgL_tstartz00_3020;
											obj_t BgL_sourcez00_3021;

											if (BGL_U64VECTORP(BgL_targetz00_1862))
												{	/* Llib/srfi4.scm 838 */
													BgL_targetz00_3019 = BgL_targetz00_1862;
												}
											else
												{
													obj_t BgL_auxz00_7311;

													BgL_auxz00_7311 =
														BGl_typezd2errorzd2zz__errorz00
														(BGl_string2567z00zz__srfi4z00, BINT(33208L),
														BGl_string2661z00zz__srfi4z00,
														BGl_string2583z00zz__srfi4z00, BgL_targetz00_1862);
													FAILURE(BgL_auxz00_7311, BFALSE, BFALSE);
												}
											{	/* Llib/srfi4.scm 838 */
												obj_t BgL_tmpz00_7315;

												if (INTEGERP(BgL_tstartz00_1863))
													{	/* Llib/srfi4.scm 838 */
														BgL_tmpz00_7315 = BgL_tstartz00_1863;
													}
												else
													{
														obj_t BgL_auxz00_7318;

														BgL_auxz00_7318 =
															BGl_typezd2errorzd2zz__errorz00
															(BGl_string2567z00zz__srfi4z00, BINT(33208L),
															BGl_string2661z00zz__srfi4z00,
															BGl_string2590z00zz__srfi4z00,
															BgL_tstartz00_1863);
														FAILURE(BgL_auxz00_7318, BFALSE, BFALSE);
													}
												BgL_tstartz00_3020 = (long) CINT(BgL_tmpz00_7315);
											}
											if (BGL_U64VECTORP(BgL_sourcez00_1864))
												{	/* Llib/srfi4.scm 838 */
													BgL_sourcez00_3021 = BgL_sourcez00_1864;
												}
											else
												{
													obj_t BgL_auxz00_7325;

													BgL_auxz00_7325 =
														BGl_typezd2errorzd2zz__errorz00
														(BGl_string2567z00zz__srfi4z00, BINT(33208L),
														BGl_string2661z00zz__srfi4z00,
														BGl_string2583z00zz__srfi4z00, BgL_sourcez00_1864);
													FAILURE(BgL_auxz00_7325, BFALSE, BFALSE);
												}
											{	/* Llib/srfi4.scm 838 */
												long BgL_auxz00_7338;
												long BgL_tmpz00_7329;

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

													if (INTEGERP(BgL_sendz00_1872))
														{	/* Llib/srfi4.scm 838 */
															BgL_tmpz00_7339 = BgL_sendz00_1872;
														}
													else
														{
															obj_t BgL_auxz00_7342;

															BgL_auxz00_7342 =
																BGl_typezd2errorzd2zz__errorz00
																(BGl_string2567z00zz__srfi4z00, BINT(33208L),
																BGl_string2661z00zz__srfi4z00,
																BGl_string2590z00zz__srfi4z00,
																BgL_sendz00_1872);
															FAILURE(BgL_auxz00_7342, BFALSE, BFALSE);
														}
													BgL_auxz00_7338 = (long) CINT(BgL_tmpz00_7339);
												}
												{	/* Llib/srfi4.scm 838 */
													obj_t BgL_tmpz00_7330;

													if (INTEGERP(BgL_sstartz00_1871))
														{	/* Llib/srfi4.scm 838 */
															BgL_tmpz00_7330 = BgL_sstartz00_1871;
														}
													else
														{
															obj_t BgL_auxz00_7333;

															BgL_auxz00_7333 =
																BGl_typezd2errorzd2zz__errorz00
																(BGl_string2567z00zz__srfi4z00, BINT(33208L),
																BGl_string2661z00zz__srfi4z00,
																BGl_string2590z00zz__srfi4z00,
																BgL_sstartz00_1871);
															FAILURE(BgL_auxz00_7333, BFALSE, BFALSE);
														}
													BgL_tmpz00_7329 = (long) CINT(BgL_tmpz00_7330);
												}
												BGL_SU64VECTOR_COPY(BgL_targetz00_3019,
													BgL_tstartz00_3020, BgL_sourcez00_3021,
													BgL_tmpz00_7329, BgL_auxz00_7338);
											}
											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_7351;
				long BgL_tmpz00_7349;

				BgL_auxz00_7351 = (long) CINT(BgL_sendz00_206);
				BgL_tmpz00_7349 = (long) CINT(BgL_sstartz00_205);
				BGL_SU64VECTOR_COPY(BgL_targetz00_202, BgL_tstartz00_203,
					BgL_sourcez00_204, BgL_tmpz00_7349, BgL_auxz00_7351);
			}
			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_1873;
				obj_t BgL_tstartz00_1874;
				obj_t BgL_sourcez00_1875;

				{
					obj_t BgL_auxz00_7354;

					if (VECTORP(BgL_opt1310z00_214))
						{	/* Llib/srfi4.scm 838 */
							BgL_auxz00_7354 = BgL_opt1310z00_214;
						}
					else
						{
							obj_t BgL_auxz00_7357;

							BgL_auxz00_7357 =
								BGl_typezd2errorzd2zz__errorz00(BGl_string2567z00zz__srfi4z00,
								BINT(33208L), BGl_string2662z00zz__srfi4z00,
								BGl_string2589z00zz__srfi4z00, BgL_opt1310z00_214);
							FAILURE(BgL_auxz00_7357, BFALSE, BFALSE);
						}
					BgL_targetz00_1873 = VECTOR_REF(BgL_auxz00_7354, 0L);
				}
				{
					obj_t BgL_auxz00_7362;

					if (VECTORP(BgL_opt1310z00_214))
						{	/* Llib/srfi4.scm 838 */
							BgL_auxz00_7362 = BgL_opt1310z00_214;
						}
					else
						{
							obj_t BgL_auxz00_7365;

							BgL_auxz00_7365 =
								BGl_typezd2errorzd2zz__errorz00(BGl_string2567z00zz__srfi4z00,
								BINT(33208L), BGl_string2662z00zz__srfi4z00,
								BGl_string2589z00zz__srfi4z00, BgL_opt1310z00_214);
							FAILURE(BgL_auxz00_7365, BFALSE, BFALSE);
						}
					BgL_tstartz00_1874 = VECTOR_REF(BgL_auxz00_7362, 1L);
				}
				{
					obj_t BgL_auxz00_7370;

					if (VECTORP(BgL_opt1310z00_214))
						{	/* Llib/srfi4.scm 838 */
							BgL_auxz00_7370 = BgL_opt1310z00_214;
						}
					else
						{
							obj_t BgL_auxz00_7373;

							BgL_auxz00_7373 =
								BGl_typezd2errorzd2zz__errorz00(BGl_string2567z00zz__srfi4z00,
								BINT(33208L), BGl_string2662z00zz__srfi4z00,
								BGl_string2589z00zz__srfi4z00, BgL_opt1310z00_214);
							FAILURE(BgL_auxz00_7373, BFALSE, BFALSE);
						}
					BgL_sourcez00_1875 = VECTOR_REF(BgL_auxz00_7370, 2L);
				}
				{	/* Llib/srfi4.scm 838 */
					long BgL_aux1313z00_1877;

					{
						obj_t BgL_auxz00_7378;

						if (VECTORP(BgL_opt1310z00_214))
							{	/* Llib/srfi4.scm 838 */
								BgL_auxz00_7378 = BgL_opt1310z00_214;
							}
						else
							{
								obj_t BgL_auxz00_7381;

								BgL_auxz00_7381 =
									BGl_typezd2errorzd2zz__errorz00(BGl_string2567z00zz__srfi4z00,
									BINT(33208L), BGl_string2662z00zz__srfi4z00,
									BGl_string2589z00zz__srfi4z00, BgL_opt1310z00_214);
								FAILURE(BgL_auxz00_7381, BFALSE, BFALSE);
							}
						BgL_aux1313z00_1877 = VECTOR_LENGTH(BgL_auxz00_7378);
					}
					switch (BgL_aux1313z00_1877)
						{
						case 3L:

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

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

									if (BGL_F32VECTORP(BgL_sourcez00_1875))
										{	/* Llib/srfi4.scm 838 */
											BgL_xz00_3022 = BgL_sourcez00_1875;
										}
									else
										{
											obj_t BgL_auxz00_7388;

											BgL_auxz00_7388 =
												BGl_typezd2errorzd2zz__errorz00
												(BGl_string2567z00zz__srfi4z00, BINT(33208L),
												BGl_string2662z00zz__srfi4z00,
												BGl_string2585z00zz__srfi4z00, BgL_sourcez00_1875);
											FAILURE(BgL_auxz00_7388, BFALSE, BFALSE);
										}
									BgL_sendz00_1879 = BGL_HVECTOR_LENGTH(BgL_xz00_3022);
								}
								{	/* Llib/srfi4.scm 838 */

									{	/* Llib/srfi4.scm 838 */
										obj_t BgL_targetz00_3023;
										long BgL_tstartz00_3024;
										obj_t BgL_sourcez00_3025;

										if (BGL_F32VECTORP(BgL_targetz00_1873))
											{	/* Llib/srfi4.scm 838 */
												BgL_targetz00_3023 = BgL_targetz00_1873;
											}
										else
											{
												obj_t BgL_auxz00_7395;

												BgL_auxz00_7395 =
													BGl_typezd2errorzd2zz__errorz00
													(BGl_string2567z00zz__srfi4z00, BINT(33208L),
													BGl_string2662z00zz__srfi4z00,
													BGl_string2585z00zz__srfi4z00, BgL_targetz00_1873);
												FAILURE(BgL_auxz00_7395, BFALSE, BFALSE);
											}
										{	/* Llib/srfi4.scm 838 */
											obj_t BgL_tmpz00_7399;

											if (INTEGERP(BgL_tstartz00_1874))
												{	/* Llib/srfi4.scm 838 */
													BgL_tmpz00_7399 = BgL_tstartz00_1874;
												}
											else
												{
													obj_t BgL_auxz00_7402;

													BgL_auxz00_7402 =
														BGl_typezd2errorzd2zz__errorz00
														(BGl_string2567z00zz__srfi4z00, BINT(33208L),
														BGl_string2662z00zz__srfi4z00,
														BGl_string2590z00zz__srfi4z00, BgL_tstartz00_1874);
													FAILURE(BgL_auxz00_7402, BFALSE, BFALSE);
												}
											BgL_tstartz00_3024 = (long) CINT(BgL_tmpz00_7399);
										}
										if (BGL_F32VECTORP(BgL_sourcez00_1875))
											{	/* Llib/srfi4.scm 838 */
												BgL_sourcez00_3025 = BgL_sourcez00_1875;
											}
										else
											{
												obj_t BgL_auxz00_7409;

												BgL_auxz00_7409 =
													BGl_typezd2errorzd2zz__errorz00
													(BGl_string2567z00zz__srfi4z00, BINT(33208L),
													BGl_string2662z00zz__srfi4z00,
													BGl_string2585z00zz__srfi4z00, BgL_sourcez00_1875);
												FAILURE(BgL_auxz00_7409, BFALSE, BFALSE);
											}
										BGL_F32VECTOR_COPY(BgL_targetz00_3023, BgL_tstartz00_3024,
											BgL_sourcez00_3025, 0L, BgL_sendz00_1879);
										return BUNSPEC;
									}
								}
							}
							break;
						case 4L:

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

								{
									obj_t BgL_auxz00_7414;

									if (VECTORP(BgL_opt1310z00_214))
										{	/* Llib/srfi4.scm 838 */
											BgL_auxz00_7414 = BgL_opt1310z00_214;
										}
									else
										{
											obj_t BgL_auxz00_7417;

											BgL_auxz00_7417 =
												BGl_typezd2errorzd2zz__errorz00
												(BGl_string2567z00zz__srfi4z00, BINT(33208L),
												BGl_string2662z00zz__srfi4z00,
												BGl_string2589z00zz__srfi4z00, BgL_opt1310z00_214);
											FAILURE(BgL_auxz00_7417, BFALSE, BFALSE);
										}
									BgL_sstartz00_1880 = VECTOR_REF(BgL_auxz00_7414, 3L);
								}
								{	/* Llib/srfi4.scm 838 */
									long BgL_sendz00_1881;

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

										if (BGL_F32VECTORP(BgL_sourcez00_1875))
											{	/* Llib/srfi4.scm 838 */
												BgL_xz00_3026 = BgL_sourcez00_1875;
											}
										else
											{
												obj_t BgL_auxz00_7424;

												BgL_auxz00_7424 =
													BGl_typezd2errorzd2zz__errorz00
													(BGl_string2567z00zz__srfi4z00, BINT(33208L),
													BGl_string2662z00zz__srfi4z00,
													BGl_string2585z00zz__srfi4z00, BgL_sourcez00_1875);
												FAILURE(BgL_auxz00_7424, BFALSE, BFALSE);
											}
										BgL_sendz00_1881 = BGL_HVECTOR_LENGTH(BgL_xz00_3026);
									}
									{	/* Llib/srfi4.scm 838 */

										{	/* Llib/srfi4.scm 838 */
											obj_t BgL_targetz00_3027;
											long BgL_tstartz00_3028;
											obj_t BgL_sourcez00_3029;

											if (BGL_F32VECTORP(BgL_targetz00_1873))
												{	/* Llib/srfi4.scm 838 */
													BgL_targetz00_3027 = BgL_targetz00_1873;
												}
											else
												{
													obj_t BgL_auxz00_7431;

													BgL_auxz00_7431 =
														BGl_typezd2errorzd2zz__errorz00
														(BGl_string2567z00zz__srfi4z00, BINT(33208L),
														BGl_string2662z00zz__srfi4z00,
														BGl_string2585z00zz__srfi4z00, BgL_targetz00_1873);
													FAILURE(BgL_auxz00_7431, BFALSE, BFALSE);
												}
											{	/* Llib/srfi4.scm 838 */
												obj_t BgL_tmpz00_7435;

												if (INTEGERP(BgL_tstartz00_1874))
													{	/* Llib/srfi4.scm 838 */
														BgL_tmpz00_7435 = BgL_tstartz00_1874;
													}
												else
													{
														obj_t BgL_auxz00_7438;

														BgL_auxz00_7438 =
															BGl_typezd2errorzd2zz__errorz00
															(BGl_string2567z00zz__srfi4z00, BINT(33208L),
															BGl_string2662z00zz__srfi4z00,
															BGl_string2590z00zz__srfi4z00,
															BgL_tstartz00_1874);
														FAILURE(BgL_auxz00_7438, BFALSE, BFALSE);
													}
												BgL_tstartz00_3028 = (long) CINT(BgL_tmpz00_7435);
											}
											if (BGL_F32VECTORP(BgL_sourcez00_1875))
												{	/* Llib/srfi4.scm 838 */
													BgL_sourcez00_3029 = BgL_sourcez00_1875;
												}
											else
												{
													obj_t BgL_auxz00_7445;

													BgL_auxz00_7445 =
														BGl_typezd2errorzd2zz__errorz00
														(BGl_string2567z00zz__srfi4z00, BINT(33208L),
														BGl_string2662z00zz__srfi4z00,
														BGl_string2585z00zz__srfi4z00, BgL_sourcez00_1875);
													FAILURE(BgL_auxz00_7445, BFALSE, BFALSE);
												}
											{	/* Llib/srfi4.scm 838 */
												long BgL_tmpz00_7449;

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

													if (INTEGERP(BgL_sstartz00_1880))
														{	/* Llib/srfi4.scm 838 */
															BgL_tmpz00_7450 = BgL_sstartz00_1880;
														}
													else
														{
															obj_t BgL_auxz00_7453;

															BgL_auxz00_7453 =
																BGl_typezd2errorzd2zz__errorz00
																(BGl_string2567z00zz__srfi4z00, BINT(33208L),
																BGl_string2662z00zz__srfi4z00,
																BGl_string2590z00zz__srfi4z00,
																BgL_sstartz00_1880);
															FAILURE(BgL_auxz00_7453, BFALSE, BFALSE);
														}
													BgL_tmpz00_7449 = (long) CINT(BgL_tmpz00_7450);
												}
												BGL_F32VECTOR_COPY(BgL_targetz00_3027,
													BgL_tstartz00_3028, BgL_sourcez00_3029,
													BgL_tmpz00_7449, BgL_sendz00_1881);
											}
											return BUNSPEC;
										}
									}
								}
							}
							break;
						case 5L:

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

								{
									obj_t BgL_auxz00_7459;

									if (VECTORP(BgL_opt1310z00_214))
										{	/* Llib/srfi4.scm 838 */
											BgL_auxz00_7459 = BgL_opt1310z00_214;
										}
									else
										{
											obj_t BgL_auxz00_7462;

											BgL_auxz00_7462 =
												BGl_typezd2errorzd2zz__errorz00
												(BGl_string2567z00zz__srfi4z00, BINT(33208L),
												BGl_string2662z00zz__srfi4z00,
												BGl_string2589z00zz__srfi4z00, BgL_opt1310z00_214);
											FAILURE(BgL_auxz00_7462, BFALSE, BFALSE);
										}
									BgL_sstartz00_1882 = VECTOR_REF(BgL_auxz00_7459, 3L);
								}
								{	/* Llib/srfi4.scm 838 */
									obj_t BgL_sendz00_1883;

									{
										obj_t BgL_auxz00_7467;

										if (VECTORP(BgL_opt1310z00_214))
											{	/* Llib/srfi4.scm 838 */
												BgL_auxz00_7467 = BgL_opt1310z00_214;
											}
										else
											{
												obj_t BgL_auxz00_7470;

												BgL_auxz00_7470 =
													BGl_typezd2errorzd2zz__errorz00
													(BGl_string2567z00zz__srfi4z00, BINT(33208L),
													BGl_string2662z00zz__srfi4z00,
													BGl_string2589z00zz__srfi4z00, BgL_opt1310z00_214);
												FAILURE(BgL_auxz00_7470, BFALSE, BFALSE);
											}
										BgL_sendz00_1883 = VECTOR_REF(BgL_auxz00_7467, 4L);
									}
									{	/* Llib/srfi4.scm 838 */

										{	/* Llib/srfi4.scm 838 */
											obj_t BgL_targetz00_3030;
											long BgL_tstartz00_3031;
											obj_t BgL_sourcez00_3032;

											if (BGL_F32VECTORP(BgL_targetz00_1873))
												{	/* Llib/srfi4.scm 838 */
													BgL_targetz00_3030 = BgL_targetz00_1873;
												}
											else
												{
													obj_t BgL_auxz00_7477;

													BgL_auxz00_7477 =
														BGl_typezd2errorzd2zz__errorz00
														(BGl_string2567z00zz__srfi4z00, BINT(33208L),
														BGl_string2662z00zz__srfi4z00,
														BGl_string2585z00zz__srfi4z00, BgL_targetz00_1873);
													FAILURE(BgL_auxz00_7477, BFALSE, BFALSE);
												}
											{	/* Llib/srfi4.scm 838 */
												obj_t BgL_tmpz00_7481;

												if (INTEGERP(BgL_tstartz00_1874))
													{	/* Llib/srfi4.scm 838 */
														BgL_tmpz00_7481 = BgL_tstartz00_1874;
													}
												else
													{
														obj_t BgL_auxz00_7484;

														BgL_auxz00_7484 =
															BGl_typezd2errorzd2zz__errorz00
															(BGl_string2567z00zz__srfi4z00, BINT(33208L),
															BGl_string2662z00zz__srfi4z00,
															BGl_string2590z00zz__srfi4z00,
															BgL_tstartz00_1874);
														FAILURE(BgL_auxz00_7484, BFALSE, BFALSE);
													}
												BgL_tstartz00_3031 = (long) CINT(BgL_tmpz00_7481);
											}
											if (BGL_F32VECTORP(BgL_sourcez00_1875))
												{	/* Llib/srfi4.scm 838 */
													BgL_sourcez00_3032 = BgL_sourcez00_1875;
												}
											else
												{
													obj_t BgL_auxz00_7491;

													BgL_auxz00_7491 =
														BGl_typezd2errorzd2zz__errorz00
														(BGl_string2567z00zz__srfi4z00, BINT(33208L),
														BGl_string2662z00zz__srfi4z00,
														BGl_string2585z00zz__srfi4z00, BgL_sourcez00_1875);
													FAILURE(BgL_auxz00_7491, BFALSE, BFALSE);
												}
											{	/* Llib/srfi4.scm 838 */
												long BgL_auxz00_7504;
												long BgL_tmpz00_7495;

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

													if (INTEGERP(BgL_sendz00_1883))
														{	/* Llib/srfi4.scm 838 */
															BgL_tmpz00_7505 = BgL_sendz00_1883;
														}
													else
														{
															obj_t BgL_auxz00_7508;

															BgL_auxz00_7508 =
																BGl_typezd2errorzd2zz__errorz00
																(BGl_string2567z00zz__srfi4z00, BINT(33208L),
																BGl_string2662z00zz__srfi4z00,
																BGl_string2590z00zz__srfi4z00,
																BgL_sendz00_1883);
															FAILURE(BgL_auxz00_7508, BFALSE, BFALSE);
														}
													BgL_auxz00_7504 = (long) CINT(BgL_tmpz00_7505);
												}
												{	/* Llib/srfi4.scm 838 */
													obj_t BgL_tmpz00_7496;

													if (INTEGERP(BgL_sstartz00_1882))
														{	/* Llib/srfi4.scm 838 */
															BgL_tmpz00_7496 = BgL_sstartz00_1882;
														}
													else
														{
															obj_t BgL_auxz00_7499;

															BgL_auxz00_7499 =
																BGl_typezd2errorzd2zz__errorz00
																(BGl_string2567z00zz__srfi4z00, BINT(33208L),
																BGl_string2662z00zz__srfi4z00,
																BGl_string2590z00zz__srfi4z00,
																BgL_sstartz00_1882);
															FAILURE(BgL_auxz00_7499, BFALSE, BFALSE);
														}
													BgL_tmpz00_7495 = (long) CINT(BgL_tmpz00_7496);
												}
												BGL_F32VECTOR_COPY(BgL_targetz00_3030,
													BgL_tstartz00_3031, BgL_sourcez00_3032,
													BgL_tmpz00_7495, BgL_auxz00_7504);
											}
											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_7517;
				long BgL_tmpz00_7515;

				BgL_auxz00_7517 = (long) CINT(BgL_sendz00_213);
				BgL_tmpz00_7515 = (long) CINT(BgL_sstartz00_212);
				BGL_F32VECTOR_COPY(BgL_targetz00_209, BgL_tstartz00_210,
					BgL_sourcez00_211, BgL_tmpz00_7515, BgL_auxz00_7517);
			}
			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_1884;
				obj_t BgL_tstartz00_1885;
				obj_t BgL_sourcez00_1886;

				{
					obj_t BgL_auxz00_7520;

					if (VECTORP(BgL_opt1314z00_221))
						{	/* Llib/srfi4.scm 838 */
							BgL_auxz00_7520 = BgL_opt1314z00_221;
						}
					else
						{
							obj_t BgL_auxz00_7523;

							BgL_auxz00_7523 =
								BGl_typezd2errorzd2zz__errorz00(BGl_string2567z00zz__srfi4z00,
								BINT(33208L), BGl_string2663z00zz__srfi4z00,
								BGl_string2589z00zz__srfi4z00, BgL_opt1314z00_221);
							FAILURE(BgL_auxz00_7523, BFALSE, BFALSE);
						}
					BgL_targetz00_1884 = VECTOR_REF(BgL_auxz00_7520, 0L);
				}
				{
					obj_t BgL_auxz00_7528;

					if (VECTORP(BgL_opt1314z00_221))
						{	/* Llib/srfi4.scm 838 */
							BgL_auxz00_7528 = BgL_opt1314z00_221;
						}
					else
						{
							obj_t BgL_auxz00_7531;

							BgL_auxz00_7531 =
								BGl_typezd2errorzd2zz__errorz00(BGl_string2567z00zz__srfi4z00,
								BINT(33208L), BGl_string2663z00zz__srfi4z00,
								BGl_string2589z00zz__srfi4z00, BgL_opt1314z00_221);
							FAILURE(BgL_auxz00_7531, BFALSE, BFALSE);
						}
					BgL_tstartz00_1885 = VECTOR_REF(BgL_auxz00_7528, 1L);
				}
				{
					obj_t BgL_auxz00_7536;

					if (VECTORP(BgL_opt1314z00_221))
						{	/* Llib/srfi4.scm 838 */
							BgL_auxz00_7536 = BgL_opt1314z00_221;
						}
					else
						{
							obj_t BgL_auxz00_7539;

							BgL_auxz00_7539 =
								BGl_typezd2errorzd2zz__errorz00(BGl_string2567z00zz__srfi4z00,
								BINT(33208L), BGl_string2663z00zz__srfi4z00,
								BGl_string2589z00zz__srfi4z00, BgL_opt1314z00_221);
							FAILURE(BgL_auxz00_7539, BFALSE, BFALSE);
						}
					BgL_sourcez00_1886 = VECTOR_REF(BgL_auxz00_7536, 2L);
				}
				{	/* Llib/srfi4.scm 838 */
					long BgL_aux1317z00_1888;

					{
						obj_t BgL_auxz00_7544;

						if (VECTORP(BgL_opt1314z00_221))
							{	/* Llib/srfi4.scm 838 */
								BgL_auxz00_7544 = BgL_opt1314z00_221;
							}
						else
							{
								obj_t BgL_auxz00_7547;

								BgL_auxz00_7547 =
									BGl_typezd2errorzd2zz__errorz00(BGl_string2567z00zz__srfi4z00,
									BINT(33208L), BGl_string2663z00zz__srfi4z00,
									BGl_string2589z00zz__srfi4z00, BgL_opt1314z00_221);
								FAILURE(BgL_auxz00_7547, BFALSE, BFALSE);
							}
						BgL_aux1317z00_1888 = VECTOR_LENGTH(BgL_auxz00_7544);
					}
					switch (BgL_aux1317z00_1888)
						{
						case 3L:

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

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

									if (BGL_F64VECTORP(BgL_sourcez00_1886))
										{	/* Llib/srfi4.scm 838 */
											BgL_xz00_3033 = BgL_sourcez00_1886;
										}
									else
										{
											obj_t BgL_auxz00_7554;

											BgL_auxz00_7554 =
												BGl_typezd2errorzd2zz__errorz00
												(BGl_string2567z00zz__srfi4z00, BINT(33208L),
												BGl_string2663z00zz__srfi4z00,
												BGl_string2587z00zz__srfi4z00, BgL_sourcez00_1886);
											FAILURE(BgL_auxz00_7554, BFALSE, BFALSE);
										}
									BgL_sendz00_1890 = BGL_HVECTOR_LENGTH(BgL_xz00_3033);
								}
								{	/* Llib/srfi4.scm 838 */

									{	/* Llib/srfi4.scm 838 */
										obj_t BgL_targetz00_3034;
										long BgL_tstartz00_3035;
										obj_t BgL_sourcez00_3036;

										if (BGL_F64VECTORP(BgL_targetz00_1884))
											{	/* Llib/srfi4.scm 838 */
												BgL_targetz00_3034 = BgL_targetz00_1884;
											}
										else
											{
												obj_t BgL_auxz00_7561;

												BgL_auxz00_7561 =
													BGl_typezd2errorzd2zz__errorz00
													(BGl_string2567z00zz__srfi4z00, BINT(33208L),
													BGl_string2663z00zz__srfi4z00,
													BGl_string2587z00zz__srfi4z00, BgL_targetz00_1884);
												FAILURE(BgL_auxz00_7561, BFALSE, BFALSE);
											}
										{	/* Llib/srfi4.scm 838 */
											obj_t BgL_tmpz00_7565;

											if (INTEGERP(BgL_tstartz00_1885))
												{	/* Llib/srfi4.scm 838 */
													BgL_tmpz00_7565 = BgL_tstartz00_1885;
												}
											else
												{
													obj_t BgL_auxz00_7568;

													BgL_auxz00_7568 =
														BGl_typezd2errorzd2zz__errorz00
														(BGl_string2567z00zz__srfi4z00, BINT(33208L),
														BGl_string2663z00zz__srfi4z00,
														BGl_string2590z00zz__srfi4z00, BgL_tstartz00_1885);
													FAILURE(BgL_auxz00_7568, BFALSE, BFALSE);
												}
											BgL_tstartz00_3035 = (long) CINT(BgL_tmpz00_7565);
										}
										if (BGL_F64VECTORP(BgL_sourcez00_1886))
											{	/* Llib/srfi4.scm 838 */
												BgL_sourcez00_3036 = BgL_sourcez00_1886;
											}
										else
											{
												obj_t BgL_auxz00_7575;

												BgL_auxz00_7575 =
													BGl_typezd2errorzd2zz__errorz00
													(BGl_string2567z00zz__srfi4z00, BINT(33208L),
													BGl_string2663z00zz__srfi4z00,
													BGl_string2587z00zz__srfi4z00, BgL_sourcez00_1886);
												FAILURE(BgL_auxz00_7575, BFALSE, BFALSE);
											}
										BGL_F64VECTOR_COPY(BgL_targetz00_3034, BgL_tstartz00_3035,
											BgL_sourcez00_3036, 0L, BgL_sendz00_1890);
										return BUNSPEC;
									}
								}
							}
							break;
						case 4L:

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

								{
									obj_t BgL_auxz00_7580;

									if (VECTORP(BgL_opt1314z00_221))
										{	/* Llib/srfi4.scm 838 */
											BgL_auxz00_7580 = BgL_opt1314z00_221;
										}
									else
										{
											obj_t BgL_auxz00_7583;

											BgL_auxz00_7583 =
												BGl_typezd2errorzd2zz__errorz00
												(BGl_string2567z00zz__srfi4z00, BINT(33208L),
												BGl_string2663z00zz__srfi4z00,
												BGl_string2589z00zz__srfi4z00, BgL_opt1314z00_221);
											FAILURE(BgL_auxz00_7583, BFALSE, BFALSE);
										}
									BgL_sstartz00_1891 = VECTOR_REF(BgL_auxz00_7580, 3L);
								}
								{	/* Llib/srfi4.scm 838 */
									long BgL_sendz00_1892;

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

										if (BGL_F64VECTORP(BgL_sourcez00_1886))
											{	/* Llib/srfi4.scm 838 */
												BgL_xz00_3037 = BgL_sourcez00_1886;
											}
										else
											{
												obj_t BgL_auxz00_7590;

												BgL_auxz00_7590 =
													BGl_typezd2errorzd2zz__errorz00
													(BGl_string2567z00zz__srfi4z00, BINT(33208L),
													BGl_string2663z00zz__srfi4z00,
													BGl_string2587z00zz__srfi4z00, BgL_sourcez00_1886);
												FAILURE(BgL_auxz00_7590, BFALSE, BFALSE);
											}
										BgL_sendz00_1892 = BGL_HVECTOR_LENGTH(BgL_xz00_3037);
									}
									{	/* Llib/srfi4.scm 838 */

										{	/* Llib/srfi4.scm 838 */
											obj_t BgL_targetz00_3038;
											long BgL_tstartz00_3039;
											obj_t BgL_sourcez00_3040;

											if (BGL_F64VECTORP(BgL_targetz00_1884))
												{	/* Llib/srfi4.scm 838 */
													BgL_targetz00_3038 = BgL_targetz00_1884;
												}
											else
												{
													obj_t BgL_auxz00_7597;

													BgL_auxz00_7597 =
														BGl_typezd2errorzd2zz__errorz00
														(BGl_string2567z00zz__srfi4z00, BINT(33208L),
														BGl_string2663z00zz__srfi4z00,
														BGl_string2587z00zz__srfi4z00, BgL_targetz00_1884);
													FAILURE(BgL_auxz00_7597, BFALSE, BFALSE);
												}
											{	/* Llib/srfi4.scm 838 */
												obj_t BgL_tmpz00_7601;

												if (INTEGERP(BgL_tstartz00_1885))
													{	/* Llib/srfi4.scm 838 */
														BgL_tmpz00_7601 = BgL_tstartz00_1885;
													}
												else
													{
														obj_t BgL_auxz00_7604;

														BgL_auxz00_7604 =
															BGl_typezd2errorzd2zz__errorz00
															(BGl_string2567z00zz__srfi4z00, BINT(33208L),
															BGl_string2663z00zz__srfi4z00,
															BGl_string2590z00zz__srfi4z00,
															BgL_tstartz00_1885);
														FAILURE(BgL_auxz00_7604, BFALSE, BFALSE);
													}
												BgL_tstartz00_3039 = (long) CINT(BgL_tmpz00_7601);
											}
											if (BGL_F64VECTORP(BgL_sourcez00_1886))
												{	/* Llib/srfi4.scm 838 */
													BgL_sourcez00_3040 = BgL_sourcez00_1886;
												}
											else
												{
													obj_t BgL_auxz00_7611;

													BgL_auxz00_7611 =
														BGl_typezd2errorzd2zz__errorz00
														(BGl_string2567z00zz__srfi4z00, BINT(33208L),
														BGl_string2663z00zz__srfi4z00,
														BGl_string2587z00zz__srfi4z00, BgL_sourcez00_1886);
													FAILURE(BgL_auxz00_7611, BFALSE, BFALSE);
												}
											{	/* Llib/srfi4.scm 838 */
												long BgL_tmpz00_7615;

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

													if (INTEGERP(BgL_sstartz00_1891))
														{	/* Llib/srfi4.scm 838 */
															BgL_tmpz00_7616 = BgL_sstartz00_1891;
														}
													else
														{
															obj_t BgL_auxz00_7619;

															BgL_auxz00_7619 =
																BGl_typezd2errorzd2zz__errorz00
																(BGl_string2567z00zz__srfi4z00, BINT(33208L),
																BGl_string2663z00zz__srfi4z00,
																BGl_string2590z00zz__srfi4z00,
																BgL_sstartz00_1891);
															FAILURE(BgL_auxz00_7619, BFALSE, BFALSE);
														}
													BgL_tmpz00_7615 = (long) CINT(BgL_tmpz00_7616);
												}
												BGL_F64VECTOR_COPY(BgL_targetz00_3038,
													BgL_tstartz00_3039, BgL_sourcez00_3040,
													BgL_tmpz00_7615, BgL_sendz00_1892);
											}
											return BUNSPEC;
										}
									}
								}
							}
							break;
						case 5L:

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

								{
									obj_t BgL_auxz00_7625;

									if (VECTORP(BgL_opt1314z00_221))
										{	/* Llib/srfi4.scm 838 */
											BgL_auxz00_7625 = BgL_opt1314z00_221;
										}
									else
										{
											obj_t BgL_auxz00_7628;

											BgL_auxz00_7628 =
												BGl_typezd2errorzd2zz__errorz00
												(BGl_string2567z00zz__srfi4z00, BINT(33208L),
												BGl_string2663z00zz__srfi4z00,
												BGl_string2589z00zz__srfi4z00, BgL_opt1314z00_221);
											FAILURE(BgL_auxz00_7628, BFALSE, BFALSE);
										}
									BgL_sstartz00_1893 = VECTOR_REF(BgL_auxz00_7625, 3L);
								}
								{	/* Llib/srfi4.scm 838 */
									obj_t BgL_sendz00_1894;

									{
										obj_t BgL_auxz00_7633;

										if (VECTORP(BgL_opt1314z00_221))
											{	/* Llib/srfi4.scm 838 */
												BgL_auxz00_7633 = BgL_opt1314z00_221;
											}
										else
											{
												obj_t BgL_auxz00_7636;

												BgL_auxz00_7636 =
													BGl_typezd2errorzd2zz__errorz00
													(BGl_string2567z00zz__srfi4z00, BINT(33208L),
													BGl_string2663z00zz__srfi4z00,
													BGl_string2589z00zz__srfi4z00, BgL_opt1314z00_221);
												FAILURE(BgL_auxz00_7636, BFALSE, BFALSE);
											}
										BgL_sendz00_1894 = VECTOR_REF(BgL_auxz00_7633, 4L);
									}
									{	/* Llib/srfi4.scm 838 */

										{	/* Llib/srfi4.scm 838 */
											obj_t BgL_targetz00_3041;
											long BgL_tstartz00_3042;
											obj_t BgL_sourcez00_3043;

											if (BGL_F64VECTORP(BgL_targetz00_1884))
												{	/* Llib/srfi4.scm 838 */
													BgL_targetz00_3041 = BgL_targetz00_1884;
												}
											else
												{
													obj_t BgL_auxz00_7643;

													BgL_auxz00_7643 =
														BGl_typezd2errorzd2zz__errorz00
														(BGl_string2567z00zz__srfi4z00, BINT(33208L),
														BGl_string2663z00zz__srfi4z00,
														BGl_string2587z00zz__srfi4z00, BgL_targetz00_1884);
													FAILURE(BgL_auxz00_7643, BFALSE, BFALSE);
												}
											{	/* Llib/srfi4.scm 838 */
												obj_t BgL_tmpz00_7647;

												if (INTEGERP(BgL_tstartz00_1885))
													{	/* Llib/srfi4.scm 838 */
														BgL_tmpz00_7647 = BgL_tstartz00_1885;
													}
												else
													{
														obj_t BgL_auxz00_7650;

														BgL_auxz00_7650 =
															BGl_typezd2errorzd2zz__errorz00
															(BGl_string2567z00zz__srfi4z00, BINT(33208L),
															BGl_string2663z00zz__srfi4z00,
															BGl_string2590z00zz__srfi4z00,
															BgL_tstartz00_1885);
														FAILURE(BgL_auxz00_7650, BFALSE, BFALSE);
													}
												BgL_tstartz00_3042 = (long) CINT(BgL_tmpz00_7647);
											}
											if (BGL_F64VECTORP(BgL_sourcez00_1886))
												{	/* Llib/srfi4.scm 838 */
													BgL_sourcez00_3043 = BgL_sourcez00_1886;
												}
											else
												{
													obj_t BgL_auxz00_7657;

													BgL_auxz00_7657 =
														BGl_typezd2errorzd2zz__errorz00
														(BGl_string2567z00zz__srfi4z00, BINT(33208L),
														BGl_string2663z00zz__srfi4z00,
														BGl_string2587z00zz__srfi4z00, BgL_sourcez00_1886);
													FAILURE(BgL_auxz00_7657, BFALSE, BFALSE);
												}
											{	/* Llib/srfi4.scm 838 */
												long BgL_auxz00_7670;
												long BgL_tmpz00_7661;

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

													if (INTEGERP(BgL_sendz00_1894))
														{	/* Llib/srfi4.scm 838 */
															BgL_tmpz00_7671 = BgL_sendz00_1894;
														}
													else
														{
															obj_t BgL_auxz00_7674;

															BgL_auxz00_7674 =
																BGl_typezd2errorzd2zz__errorz00
																(BGl_string2567z00zz__srfi4z00, BINT(33208L),
																BGl_string2663z00zz__srfi4z00,
																BGl_string2590z00zz__srfi4z00,
																BgL_sendz00_1894);
															FAILURE(BgL_auxz00_7674, BFALSE, BFALSE);
														}
													BgL_auxz00_7670 = (long) CINT(BgL_tmpz00_7671);
												}
												{	/* Llib/srfi4.scm 838 */
													obj_t BgL_tmpz00_7662;

													if (INTEGERP(BgL_sstartz00_1893))
														{	/* Llib/srfi4.scm 838 */
															BgL_tmpz00_7662 = BgL_sstartz00_1893;
														}
													else
														{
															obj_t BgL_auxz00_7665;

															BgL_auxz00_7665 =
																BGl_typezd2errorzd2zz__errorz00
																(BGl_string2567z00zz__srfi4z00, BINT(33208L),
																BGl_string2663z00zz__srfi4z00,
																BGl_string2590z00zz__srfi4z00,
																BgL_sstartz00_1893);
															FAILURE(BgL_auxz00_7665, BFALSE, BFALSE);
														}
													BgL_tmpz00_7661 = (long) CINT(BgL_tmpz00_7662);
												}
												BGL_F64VECTOR_COPY(BgL_targetz00_3041,
													BgL_tstartz00_3042, BgL_sourcez00_3043,
													BgL_tmpz00_7661, BgL_auxz00_7670);
											}
											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_7683;
				long BgL_tmpz00_7681;

				BgL_auxz00_7683 = (long) CINT(BgL_sendz00_220);
				BgL_tmpz00_7681 = (long) CINT(BgL_sstartz00_219);
				BGL_F64VECTOR_COPY(BgL_targetz00_216, BgL_tstartz00_217,
					BgL_sourcez00_218, BgL_tmpz00_7681, BgL_auxz00_7683);
			}
			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_string2664z00zz__srfi4z00));
			BGl_modulezd2initializa7ationz75zz__hashz00(254893342L,
				BSTRING_TO_STRING(BGl_string2664z00zz__srfi4z00));
			BGl_modulezd2initializa7ationz75zz__readerz00(220648206L,
				BSTRING_TO_STRING(BGl_string2664z00zz__srfi4z00));
			BGl_modulezd2initializa7ationz75zz__paramz00(453939141L,
				BSTRING_TO_STRING(BGl_string2664z00zz__srfi4z00));
			return
				BGl_modulezd2initializa7ationz75zz__r4_symbols_6_4z00(115192690L,
				BSTRING_TO_STRING(BGl_string2664z00zz__srfi4z00));
		}

	}

#ifdef __cplusplus
}
#endif
