/*===========================================================================*/
/*   (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-safe -O3 -fcfa-arithmetic -q -lib-dir /home/serrano/prgm/project/bigloo/4.7a/lib/bigloo/4.7a +rm -O3 -mklib -cc gcc -fsharing -q -unsafev -eval (set! *indent* 4) -stdc -c Llib/srfi4.scm -indent -o objs/obj_s/Llib/srfi4.c) */
/* GC selection */
#define THE_GC BOEHM_GC

/* 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);
BGL_EXPORTED_DECL obj_t BGl_u8vectorzd2ze3listz31zz__srfi4z00(obj_t);
static obj_t BGl_z62f64vectorzf3z91zz__srfi4z00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_makezd2u8vectorzd2zz__srfi4z00(long, uint8_t);
static obj_t BGl__f64vectorzd2copyz12zc0zz__srfi4z00(obj_t, obj_t);
static obj_t BGl_z62s8vectorzd2ze3listz53zz__srfi4z00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_u16vectorzd2ze3listz31zz__srfi4z00(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 obj_t BGl_s8vectorz00zz__srfi4z00(obj_t);
BGL_EXPORTED_DECL long BGl_u16vectorzd2lengthzd2zz__srfi4z00(obj_t);
static obj_t BGl__f32vectorzd2copyz12zc0zz__srfi4z00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_homogeneouszd2vectorzf3z21zz__srfi4z00(obj_t);
static obj_t BGl_requirezd2initializa7ationz75zz__srfi4z00 = BUNSPEC;
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__makezd2u32vectorzd2zz__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);
static obj_t BGl_z62s8vectorzf3z91zz__srfi4z00(obj_t, obj_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);
BGL_EXPORTED_DECL long BGl_s16vectorzd2lengthzd2zz__srfi4z00(obj_t);
static obj_t BGl__makezd2u64vectorzd2zz__srfi4z00(obj_t, obj_t);
static obj_t BGl_z62u32vectorzd2refzb0zz__srfi4z00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_s32vectorzd2setz12zc0zz__srfi4z00(obj_t, long, int32_t);
static obj_t BGl_z62f64vectorzd2refzb0zz__srfi4z00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL uint64_t BGl_u64vectorzd2refzd2zz__srfi4z00(obj_t, long);
BGL_EXPORTED_DECL obj_t BGl_listzd2ze3u8vectorz31zz__srfi4z00(obj_t);
BGL_EXPORTED_DECL obj_t BGl_s16vectorzd2ze3listz31zz__srfi4z00(obj_t);
static obj_t BGl_z62s16vectorzd2ze3listz53zz__srfi4z00(obj_t, obj_t);
static obj_t BGl_z62u8vectorz62zz__srfi4z00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_s16vectorz00zz__srfi4z00(obj_t);
BGL_EXPORTED_DECL bool_t BGl_u64vectorzf3zf3zz__srfi4z00(obj_t);
BGL_EXPORTED_DECL bool_t BGl_s8vectorzf3zf3zz__srfi4z00(obj_t);
static obj_t BGl_genericzd2initzd2zz__srfi4z00(void);
BGL_EXPORTED_DECL obj_t BGl_s8vectorzd2ze3listz31zz__srfi4z00(obj_t);
static obj_t BGl_objectzd2initzd2zz__srfi4z00(void);
static obj_t BGl_z62u16vectorzd2lengthzb0zz__srfi4z00(obj_t, obj_t);
static obj_t BGl_z62homogeneouszd2vectorzd2infoz62zz__srfi4z00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_f64vectorzd2copyz12zc0zz__srfi4z00(obj_t, long, obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL long BGl_f32vectorzd2lengthzd2zz__srfi4z00(obj_t);
static obj_t BGl_z62u32vectorz62zz__srfi4z00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_listzd2ze3u32vectorz31zz__srfi4z00(obj_t);
static obj_t BGl_z62u64vectorzf3z91zz__srfi4z00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_makezd2u32vectorzd2zz__srfi4z00(long, uint32_t);
BGL_EXPORTED_DECL obj_t BGl_s8vectorzd2setz12zc0zz__srfi4z00(obj_t, long, int8_t);
static obj_t BGl_z62listzd2ze3u32vectorz53zz__srfi4z00(obj_t, obj_t);
extern obj_t string_append_3(obj_t, obj_t, 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);
BGL_EXPORTED_DECL int16_t BGl_s16vectorzd2refzd2zz__srfi4z00(obj_t, long);
static obj_t BGl_z62u64vectorz62zz__srfi4z00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_listzd2ze3u64vectorz31zz__srfi4z00(obj_t);
BGL_EXPORTED_DECL long BGl_u32vectorzd2lengthzd2zz__srfi4z00(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);
static obj_t BGl__u16vectorzd2copyz12zc0zz__srfi4z00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_u64vectorzd2ze3listz31zz__srfi4z00(obj_t);
extern obj_t bstring_to_symbol(obj_t);
static obj_t BGl_z62u64vectorzd2ze3listz53zz__srfi4z00(obj_t, obj_t);
static obj_t BGl__u8vectorzd2copyz12zc0zz__srfi4z00(obj_t, obj_t);
static obj_t BGl__makezd2f64vectorzd2zz__srfi4z00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_u32vectorzd2ze3listz31zz__srfi4z00(obj_t);
BGL_EXPORTED_DECL long BGl_s32vectorzd2lengthzd2zz__srfi4z00(obj_t);
static obj_t BGl_z62u32vectorzd2ze3listz53zz__srfi4z00(obj_t, obj_t);
static obj_t BGl_z62s32vectorzd2refzb0zz__srfi4z00(obj_t, obj_t, obj_t);
static obj_t BGl_methodzd2initzd2zz__srfi4z00(void);
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);
BGL_EXPORTED_DECL long BGl_f64vectorzd2lengthzd2zz__srfi4z00(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_z62u8vectorzd2refzb0zz__srfi4z00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_u64vectorz00zz__srfi4z00(obj_t);
BGL_EXPORTED_DECL long BGl_u64vectorzd2lengthzd2zz__srfi4z00(obj_t);
static obj_t BGl__makezd2s8vectorzd2zz__srfi4z00(obj_t, obj_t);
BGL_EXPORTED_DECL bool_t BGl_s32vectorzf3zf3zz__srfi4z00(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);
static obj_t BGl_z62s64vectorzd2ze3listz53zz__srfi4z00(obj_t, obj_t);
static obj_t BGl_z62f64vectorzd2setz12za2zz__srfi4z00(obj_t, obj_t, 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 uint32_t BGl_u32vectorzd2refzd2zz__srfi4z00(obj_t, long);
static obj_t BGl_z62s32vectorzd2ze3listz53zz__srfi4z00(obj_t, obj_t);
BGL_EXPORTED_DECL long BGl_s64vectorzd2lengthzd2zz__srfi4z00(obj_t);
BGL_EXPORTED_DECL obj_t BGl_u8vectorz00zz__srfi4z00(obj_t);
static obj_t BGl_z62u32vectorzd2lengthzb0zz__srfi4z00(obj_t, obj_t);
static obj_t BGl_z62f32vectorz62zz__srfi4z00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_listzd2ze3f32vectorz31zz__srfi4z00(obj_t);
BGL_EXPORTED_DECL obj_t BGl_makezd2f32vectorzd2zz__srfi4z00(long, float);
extern obj_t BGl_errorz00zz__errorz00(obj_t, obj_t, obj_t);
static obj_t BGl_z62listzd2ze3f32vectorz53zz__srfi4z00(obj_t, obj_t);
BGL_EXPORTED_DECL double BGl_f64vectorzd2refzd2zz__srfi4z00(obj_t, long);
static obj_t BGl_z62s32vectorzf3z91zz__srfi4z00(obj_t, obj_t);
extern bool_t BGl_pairzd2orzd2nullzf3zf3zz__r4_pairs_and_lists_6_3z00(obj_t);
static obj_t BGl__s8vectorzd2copyz12zc0zz__srfi4z00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_u8vectorzd2copyz12zc0zz__srfi4z00(obj_t, long, obj_t, obj_t, obj_t);
static obj_t BGl_z62f64vectorz62zz__srfi4z00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_listzd2ze3f64vectorz31zz__srfi4z00(obj_t);
static obj_t BGl_z62listzd2ze3s8vectorz53zz__srfi4z00(obj_t, obj_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_u16vectorzd2copyz12zc0zz__srfi4z00(obj_t, long, obj_t, obj_t, obj_t);
static obj_t BGl_z62s32vectorzd2lengthzb0zz__srfi4z00(obj_t, 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_z62u64vectorzd2setz12za2zz__srfi4z00(obj_t, obj_t, obj_t, obj_t);
static obj_t BGl__makezd2s32vectorzd2zz__srfi4z00(obj_t, obj_t);
static obj_t BGl_z62u8vectorzd2lengthzb0zz__srfi4z00(obj_t, obj_t);
static obj_t BGl_z62u16vectorz62zz__srfi4z00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_listzd2ze3u16vectorz31zz__srfi4z00(obj_t);
static obj_t BGl_z62f64vectorzd2lengthzb0zz__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_z62u8vectorzf3z91zz__srfi4z00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_makezd2s8vectorzd2zz__srfi4z00(long, int8_t);
static obj_t BGl__makezd2s64vectorzd2zz__srfi4z00(obj_t, obj_t);
static obj_t BGl__u64vectorzd2copyz12zc0zz__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 *);
BGL_EXPORTED_DECL obj_t BGl_f32vectorz00zz__srfi4z00(obj_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__u32vectorzd2copyz12zc0zz__srfi4z00(obj_t, obj_t);
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);
extern obj_t BGl_integerzd2ze3stringz31zz__r4_numbers_6_5_fixnumz00(long, long);
BGL_EXPORTED_DECL obj_t BGl_s16vectorzd2copyz12zc0zz__srfi4z00(obj_t, long, obj_t, 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);
BGL_EXPORTED_DECL long BGl_s8vectorzd2lengthzd2zz__srfi4z00(obj_t);
BGL_EXPORTED_DECL obj_t BGl_u16vectorz00zz__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_u8vectorzf3zf3zz__srfi4z00(obj_t);
extern long bgl_list_length(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__s64vectorzd2copyz12zc0zz__srfi4z00(obj_t, obj_t);
static obj_t BGl_symbol3203z00zz__srfi4z00 = BUNSPEC;
BGL_EXPORTED_DECL obj_t BGl_homogeneouszd2vectorzd2infoz00zz__srfi4z00(obj_t);
static obj_t BGl_z62s8vectorz62zz__srfi4z00(obj_t, obj_t);
static obj_t BGl_symbol3209z00zz__srfi4z00 = BUNSPEC;
BGL_EXPORTED_DECL obj_t BGl_s16vectorzd2setz12zc0zz__srfi4z00(obj_t, long, int16_t);
BGL_EXPORTED_DECL obj_t BGl_f64vectorzd2ze3listz31zz__srfi4z00(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);
static obj_t BGl_z62s64vectorzd2setz12za2zz__srfi4z00(obj_t, obj_t, obj_t, obj_t);
static obj_t BGl_z62f64vectorzd2ze3listz53zz__srfi4z00(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__s32vectorzd2copyz12zc0zz__srfi4z00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_makezd2s32vectorzd2zz__srfi4z00(long, int32_t);
static obj_t BGl_z62listzd2ze3s32vectorz53zz__srfi4z00(obj_t, obj_t);
BGL_EXPORTED_DECL bool_t BGl_f32vectorzf3zf3zz__srfi4z00(obj_t);
static obj_t BGl_symbol3215z00zz__srfi4z00 = BUNSPEC;
static obj_t BGl_z62u64vectorzd2refzb0zz__srfi4z00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_f32vectorzd2ze3listz31zz__srfi4z00(obj_t);
static obj_t BGl_z62f32vectorzd2ze3listz53zz__srfi4z00(obj_t, obj_t);
static obj_t BGl_z62s64vectorz62zz__srfi4z00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_listzd2ze3s64vectorz31zz__srfi4z00(obj_t);
BGL_EXPORTED_DECL obj_t BGl_makezd2s64vectorzd2zz__srfi4z00(long, int64_t);
static obj_t BGl_z62listzd2ze3s64vectorz53zz__srfi4z00(obj_t, obj_t);
static obj_t BGl_symbol3221z00zz__srfi4z00 = BUNSPEC;
static obj_t BGl_symbol3143z00zz__srfi4z00 = BUNSPEC;
static obj_t BGl_symbol3306z00zz__srfi4z00 = BUNSPEC;
static obj_t BGl_symbol3145z00zz__srfi4z00 = BUNSPEC;
static obj_t BGl_symbol3227z00zz__srfi4z00 = BUNSPEC;
static obj_t BGl_symbol3147z00zz__srfi4z00 = BUNSPEC;
static obj_t BGl_symbol3149z00zz__srfi4z00 = BUNSPEC;
BGL_EXPORTED_DECL bool_t BGl_s16vectorzf3zf3zz__srfi4z00(obj_t);
static obj_t BGl_z62homogeneouszd2vectorzf3z43zz__srfi4z00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_f32vectorzd2setz12zc0zz__srfi4z00(obj_t, long, float);
BGL_EXPORTED_DECL obj_t BGl_u64vectorzd2copyz12zc0zz__srfi4z00(obj_t, long, obj_t, obj_t, obj_t);
static obj_t BGl_symbol3151z00zz__srfi4z00 = BUNSPEC;
static obj_t BGl_symbol3233z00zz__srfi4z00 = BUNSPEC;
static obj_t BGl_symbol3315z00zz__srfi4z00 = BUNSPEC;
static obj_t BGl_symbol3153z00zz__srfi4z00 = BUNSPEC;
static obj_t BGl_z62f32vectorzf3z91zz__srfi4z00(obj_t, obj_t);
static obj_t BGl_symbol3155z00zz__srfi4z00 = BUNSPEC;
static obj_t BGl_symbol3319z00zz__srfi4z00 = BUNSPEC;
static obj_t BGl_symbol3157z00zz__srfi4z00 = BUNSPEC;
static obj_t BGl_symbol3239z00zz__srfi4z00 = BUNSPEC;
BGL_EXPORTED_DECL float BGl_f32vectorzd2refzd2zz__srfi4z00(obj_t, long);
static obj_t BGl_symbol3159z00zz__srfi4z00 = BUNSPEC;
static obj_t BGl_z62u8vectorzd2ze3listz53zz__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_u32vectorzd2copyz12zc0zz__srfi4z00(obj_t, long, obj_t, obj_t, obj_t);
static obj_t BGl_symbol3323z00zz__srfi4z00 = BUNSPEC;
static obj_t BGl_symbol3161z00zz__srfi4z00 = BUNSPEC;
extern obj_t BGl_bigloozd2typezd2errorz00zz__errorz00(obj_t, obj_t, obj_t);
static obj_t BGl_symbol3245z00zz__srfi4z00 = BUNSPEC;
static obj_t BGl_symbol3327z00zz__srfi4z00 = BUNSPEC;
static obj_t BGl__makezd2u8vectorzd2zz__srfi4z00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_s32vectorz00zz__srfi4z00(obj_t);
extern obj_t BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(obj_t, obj_t, obj_t, obj_t, int, int);
static obj_t BGl_z62s16vectorzf3z91zz__srfi4z00(obj_t, obj_t);
static obj_t BGl__makezd2s16vectorzd2zz__srfi4z00(obj_t, obj_t);
static obj_t BGl_z62s8vectorzd2setz12za2zz__srfi4z00(obj_t, obj_t, obj_t, obj_t);
static obj_t BGl_symbol3331z00zz__srfi4z00 = BUNSPEC;
static obj_t BGl_symbol3335z00zz__srfi4z00 = BUNSPEC;
static obj_t BGl_symbol3339z00zz__srfi4z00 = BUNSPEC;
BGL_EXPORTED_DECL obj_t BGl_s64vectorz00zz__srfi4z00(obj_t);
static obj_t BGl_z62s16vectorzd2refzb0zz__srfi4z00(obj_t, obj_t, obj_t);
static obj_t BGl_symbol3343z00zz__srfi4z00 = BUNSPEC;
static obj_t BGl_symbol3347z00zz__srfi4z00 = BUNSPEC;
BGL_EXPORTED_DECL obj_t BGl_u32vectorzd2setz12zc0zz__srfi4z00(obj_t, long, uint32_t);
BGL_EXPORTED_DECL obj_t BGl_s64vectorzd2setz12zc0zz__srfi4z00(obj_t, long, int64_t);
static obj_t BGl_z62s32vectorzd2setz12za2zz__srfi4z00(obj_t, obj_t, obj_t, obj_t);
static obj_t BGl_symbol3189z00zz__srfi4z00 = BUNSPEC;
BGL_EXPORTED_DECL obj_t BGl_s64vectorzd2copyz12zc0zz__srfi4z00(obj_t, long, obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL bool_t BGl_f64vectorzf3zf3zz__srfi4z00(obj_t);
BGL_EXPORTED_DECL uint8_t BGl_u8vectorzd2refzd2zz__srfi4z00(obj_t, long);
static obj_t BGl_symbol3197z00zz__srfi4z00 = BUNSPEC;
static obj_t BGl_z62listzd2ze3u8vectorz53zz__srfi4z00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_s32vectorzd2copyz12zc0zz__srfi4z00(obj_t, long, obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL bool_t BGl_u32vectorzf3zf3zz__srfi4z00(obj_t);
static obj_t *__cnst;


DEFINE_EXPORT_BGL_PROCEDURE(BGl_homogeneouszd2vectorzf3zd2envzf3zz__srfi4z00, BgL_bgl_za762homogeneousza7d3350z00, BGl_z62homogeneouszd2vectorzf3z43zz__srfi4z00, 0L, BUNSPEC, 1);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_makezd2s16vectorzd2envz00zz__srfi4z00, BgL_bgl__makeza7d2s16vecto3351za7, opt_generic_entry, BGl__makezd2s16vectorzd2zz__srfi4z00, BFALSE, -1);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_s64vectorzd2copyz12zd2envz12zz__srfi4z00, BgL_bgl__s64vectorza7d2cop3352za7, opt_generic_entry, BGl__s64vectorzd2copyz12zc0zz__srfi4z00, BFALSE, -1);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_listzd2ze3f32vectorzd2envze3zz__srfi4z00, BgL_bgl_za762listza7d2za7e3f323353za7, BGl_z62listzd2ze3f32vectorz53zz__srfi4z00, 0L, BUNSPEC, 1);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_f64vectorzd2refzd2envz00zz__srfi4z00, BgL_bgl_za762f64vectorza7d2r3354z00, BGl_z62f64vectorzd2refzb0zz__srfi4z00, 0L, BUNSPEC, 2);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_u16vectorzf3zd2envz21zz__srfi4z00, BgL_bgl_za762u16vectorza7f3za73355za7, BGl_z62u16vectorzf3z91zz__srfi4z00, 0L, BUNSPEC, 1);
BGL_DEFINE_STRING(BGl_string3200z00zz__srfi4z00, BgL_bgl_string3200za700za7za7_3356za7, "u8vector-set!", 13 );
DEFINE_EXPORT_BGL_PROCEDURE(BGl_f32vectorzd2copyz12zd2envz12zz__srfi4z00, BgL_bgl__f32vectorza7d2cop3357za7, opt_generic_entry, BGl__f32vectorzd2copyz12zc0zz__srfi4z00, BFALSE, -1);
BGL_DEFINE_STRING(BGl_string3201z00zz__srfi4z00, BgL_bgl_string3201za700za7za7_3358za7, "_make-s16vector", 15 );
BGL_DEFINE_STRING(BGl_string3202z00zz__srfi4z00, BgL_bgl_string3202za700za7za7_3359za7, "case_else1261", 13 );
BGL_DEFINE_STRING(BGl_string3204z00zz__srfi4z00, BgL_bgl_string3204za700za7za7_3360za7, "make-s16vector", 14 );
BGL_DEFINE_STRING(BGl_string3205z00zz__srfi4z00, BgL_bgl_string3205za700za7za7_3361za7, "bint16", 6 );
BGL_DEFINE_STRING(BGl_string3206z00zz__srfi4z00, BgL_bgl_string3206za700za7za7_3362za7, "s16vector-set!", 14 );
BGL_DEFINE_STRING(BGl_string3207z00zz__srfi4z00, BgL_bgl_string3207za700za7za7_3363za7, "_make-u16vector", 15 );
BGL_DEFINE_STRING(BGl_string3208z00zz__srfi4z00, BgL_bgl_string3208za700za7za7_3364za7, "case_else1266", 13 );
DEFINE_EXPORT_BGL_PROCEDURE(BGl_s16vectorzd2refzd2envz00zz__srfi4z00, BgL_bgl_za762s16vectorza7d2r3365z00, BGl_z62s16vectorzd2refzb0zz__srfi4z00, 0L, BUNSPEC, 2);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_u16vectorzd2refzd2envz00zz__srfi4z00, BgL_bgl_za762u16vectorza7d2r3366z00, BGl_z62u16vectorzd2refzb0zz__srfi4z00, 0L, BUNSPEC, 2);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_makezd2s64vectorzd2envz00zz__srfi4z00, BgL_bgl__makeza7d2s64vecto3367za7, opt_generic_entry, BGl__makezd2s64vectorzd2zz__srfi4z00, BFALSE, -1);
BGL_DEFINE_STRING(BGl_string3210z00zz__srfi4z00, BgL_bgl_string3210za700za7za7_3368za7, "make-u16vector", 14 );
BGL_DEFINE_STRING(BGl_string3211z00zz__srfi4z00, BgL_bgl_string3211za700za7za7_3369za7, "buint16", 7 );
BGL_DEFINE_STRING(BGl_string3212z00zz__srfi4z00, BgL_bgl_string3212za700za7za7_3370za7, "u16vector-set!", 14 );
DEFINE_EXPORT_BGL_PROCEDURE(BGl_s64vectorzd2setz12zd2envz12zz__srfi4z00, BgL_bgl_za762s64vectorza7d2s3371z00, BGl_z62s64vectorzd2setz12za2zz__srfi4z00, 0L, BUNSPEC, 3);
BGL_DEFINE_STRING(BGl_string3213z00zz__srfi4z00, BgL_bgl_string3213za700za7za7_3372za7, "_make-s32vector", 15 );
BGL_DEFINE_STRING(BGl_string3214z00zz__srfi4z00, BgL_bgl_string3214za700za7za7_3373za7, "case_else1271", 13 );
BGL_DEFINE_STRING(BGl_string3216z00zz__srfi4z00, BgL_bgl_string3216za700za7za7_3374za7, "make-s32vector", 14 );
BGL_DEFINE_STRING(BGl_string3217z00zz__srfi4z00, BgL_bgl_string3217za700za7za7_3375za7, "bint32", 6 );
BGL_DEFINE_STRING(BGl_string3218z00zz__srfi4z00, BgL_bgl_string3218za700za7za7_3376za7, "s32vector-set!", 14 );
BGL_DEFINE_STRING(BGl_string3219z00zz__srfi4z00, BgL_bgl_string3219za700za7za7_3377za7, "_make-u32vector", 15 );
DEFINE_EXPORT_BGL_PROCEDURE(BGl_u64vectorzd2copyz12zd2envz12zz__srfi4z00, BgL_bgl__u64vectorza7d2cop3378za7, opt_generic_entry, BGl__u64vectorzd2copyz12zc0zz__srfi4z00, BFALSE, -1);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_f64vectorzf3zd2envz21zz__srfi4z00, BgL_bgl_za762f64vectorza7f3za73379za7, BGl_z62f64vectorzf3z91zz__srfi4z00, 0L, BUNSPEC, 1);
BGL_DEFINE_STRING(BGl_string3300z00zz__srfi4z00, BgL_bgl_string3300za700za7za7_3380za7, "&list->s64vector", 16 );
BGL_DEFINE_STRING(BGl_string3301z00zz__srfi4z00, BgL_bgl_string3301za700za7za7_3381za7, "&list->u64vector", 16 );
BGL_DEFINE_STRING(BGl_string3220z00zz__srfi4z00, BgL_bgl_string3220za700za7za7_3382za7, "case_else1276", 13 );
BGL_DEFINE_STRING(BGl_string3302z00zz__srfi4z00, BgL_bgl_string3302za700za7za7_3383za7, "&list->f32vector", 16 );
BGL_DEFINE_STRING(BGl_string3303z00zz__srfi4z00, BgL_bgl_string3303za700za7za7_3384za7, "&list->f64vector", 16 );
DEFINE_EXPORT_BGL_PROCEDURE(BGl_u8vectorzd2refzd2envz00zz__srfi4z00, BgL_bgl_za762u8vectorza7d2re3385z00, BGl_z62u8vectorzd2refzb0zz__srfi4z00, 0L, BUNSPEC, 2);
BGL_DEFINE_STRING(BGl_string3141z00zz__srfi4z00, BgL_bgl_string3141za700za7za7_3386za7, "homogeneous-vector-info", 23 );
BGL_DEFINE_STRING(BGl_string3222z00zz__srfi4z00, BgL_bgl_string3222za700za7za7_3387za7, "make-u32vector", 14 );
BGL_DEFINE_STRING(BGl_string3304z00zz__srfi4z00, BgL_bgl_string3304za700za7za7_3388za7, "_s8vector-copy!", 15 );
BGL_DEFINE_STRING(BGl_string3142z00zz__srfi4z00, BgL_bgl_string3142za700za7za7_3389za7, "Illegal hvector ident", 21 );
BGL_DEFINE_STRING(BGl_string3223z00zz__srfi4z00, BgL_bgl_string3223za700za7za7_3390za7, "buint32", 7 );
BGL_DEFINE_STRING(BGl_string3305z00zz__srfi4z00, BgL_bgl_string3305za700za7za7_3391za7, "case_else1300", 13 );
BGL_DEFINE_STRING(BGl_string3224z00zz__srfi4z00, BgL_bgl_string3224za700za7za7_3392za7, "u32vector-set!", 14 );
BGL_DEFINE_STRING(BGl_string3144z00zz__srfi4z00, BgL_bgl_string3144za700za7za7_3393za7, "s8", 2 );
BGL_DEFINE_STRING(BGl_string3225z00zz__srfi4z00, BgL_bgl_string3225za700za7za7_3394za7, "_make-s64vector", 15 );
BGL_DEFINE_STRING(BGl_string3307z00zz__srfi4z00, BgL_bgl_string3307za700za7za7_3395za7, "s8vector-copy!", 14 );
BGL_DEFINE_STRING(BGl_string3226z00zz__srfi4z00, BgL_bgl_string3226za700za7za7_3396za7, "case_else1281", 13 );
BGL_DEFINE_STRING(BGl_string3308z00zz__srfi4z00, BgL_bgl_string3308za700za7za7_3397za7, "wrong number of arguments: [3..5] expected, provided", 52 );
BGL_DEFINE_STRING(BGl_string3146z00zz__srfi4z00, BgL_bgl_string3146za700za7za7_3398za7, "u8", 2 );
BGL_DEFINE_STRING(BGl_string3309z00zz__srfi4z00, BgL_bgl_string3309za700za7za7_3399za7, "Illegal target start index", 26 );
BGL_DEFINE_STRING(BGl_string3228z00zz__srfi4z00, BgL_bgl_string3228za700za7za7_3400za7, "make-s64vector", 14 );
BGL_DEFINE_STRING(BGl_string3148z00zz__srfi4z00, BgL_bgl_string3148za700za7za7_3401za7, "s16", 3 );
BGL_DEFINE_STRING(BGl_string3229z00zz__srfi4z00, BgL_bgl_string3229za700za7za7_3402za7, "bint64", 6 );
BGL_DEFINE_STRING(BGl_string3310z00zz__srfi4z00, BgL_bgl_string3310za700za7za7_3403za7, "Illegal source start index", 26 );
BGL_DEFINE_STRING(BGl_string3311z00zz__srfi4z00, BgL_bgl_string3311za700za7za7_3404za7, "Illegal source end index", 24 );
BGL_DEFINE_STRING(BGl_string3230z00zz__srfi4z00, BgL_bgl_string3230za700za7za7_3405za7, "s64vector-set!", 14 );
BGL_DEFINE_STRING(BGl_string3312z00zz__srfi4z00, BgL_bgl_string3312za700za7za7_3406za7, "Illegal source length", 21 );
BGL_DEFINE_STRING(BGl_string3150z00zz__srfi4z00, BgL_bgl_string3150za700za7za7_3407za7, "u16", 3 );
BGL_DEFINE_STRING(BGl_string3231z00zz__srfi4z00, BgL_bgl_string3231za700za7za7_3408za7, "_make-u64vector", 15 );
BGL_DEFINE_STRING(BGl_string3313z00zz__srfi4z00, BgL_bgl_string3313za700za7za7_3409za7, "_u8vector-copy!", 15 );
DEFINE_EXPORT_BGL_PROCEDURE(BGl_s32vectorzd2envzd2zz__srfi4z00, BgL_bgl_za762s32vectorza762za73410za7, va_generic_entry, BGl_z62s32vectorz62zz__srfi4z00, BUNSPEC, -1);
BGL_DEFINE_STRING(BGl_string3232z00zz__srfi4z00, BgL_bgl_string3232za700za7za7_3411za7, "case_else1286", 13 );
BGL_DEFINE_STRING(BGl_string3314z00zz__srfi4z00, BgL_bgl_string3314za700za7za7_3412za7, "case_else1304", 13 );
DEFINE_EXPORT_BGL_PROCEDURE(BGl_u64vectorzd2setz12zd2envz12zz__srfi4z00, BgL_bgl_za762u64vectorza7d2s3413z00, BGl_z62u64vectorzd2setz12za2zz__srfi4z00, 0L, BUNSPEC, 3);
BGL_DEFINE_STRING(BGl_string3152z00zz__srfi4z00, BgL_bgl_string3152za700za7za7_3414za7, "s32", 3 );
BGL_DEFINE_STRING(BGl_string3234z00zz__srfi4z00, BgL_bgl_string3234za700za7za7_3415za7, "make-u64vector", 14 );
BGL_DEFINE_STRING(BGl_string3316z00zz__srfi4z00, BgL_bgl_string3316za700za7za7_3416za7, "u8vector-copy!", 14 );
BGL_DEFINE_STRING(BGl_string3154z00zz__srfi4z00, BgL_bgl_string3154za700za7za7_3417za7, "u32", 3 );
BGL_DEFINE_STRING(BGl_string3235z00zz__srfi4z00, BgL_bgl_string3235za700za7za7_3418za7, "buint64", 7 );
BGL_DEFINE_STRING(BGl_string3317z00zz__srfi4z00, BgL_bgl_string3317za700za7za7_3419za7, "_s16vector-copy!", 16 );
BGL_DEFINE_STRING(BGl_string3236z00zz__srfi4z00, BgL_bgl_string3236za700za7za7_3420za7, "u64vector-set!", 14 );
BGL_DEFINE_STRING(BGl_string3318z00zz__srfi4z00, BgL_bgl_string3318za700za7za7_3421za7, "case_else1308", 13 );
BGL_DEFINE_STRING(BGl_string3156z00zz__srfi4z00, BgL_bgl_string3156za700za7za7_3422za7, "s64", 3 );
BGL_DEFINE_STRING(BGl_string3237z00zz__srfi4z00, BgL_bgl_string3237za700za7za7_3423za7, "_make-f32vector", 15 );
BGL_DEFINE_STRING(BGl_string3238z00zz__srfi4z00, BgL_bgl_string3238za700za7za7_3424za7, "case_else1291", 13 );
BGL_DEFINE_STRING(BGl_string3158z00zz__srfi4z00, BgL_bgl_string3158za700za7za7_3425za7, "u64", 3 );
DEFINE_EXPORT_BGL_PROCEDURE(BGl_s8vectorzd2setz12zd2envz12zz__srfi4z00, BgL_bgl_za762s8vectorza7d2se3426z00, BGl_z62s8vectorzd2setz12za2zz__srfi4z00, 0L, BUNSPEC, 3);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_makezd2u32vectorzd2envz00zz__srfi4z00, BgL_bgl__makeza7d2u32vecto3427za7, opt_generic_entry, BGl__makezd2u32vectorzd2zz__srfi4z00, BFALSE, -1);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_u8vectorzd2setz12zd2envz12zz__srfi4z00, BgL_bgl_za762u8vectorza7d2se3428z00, BGl_z62u8vectorzd2setz12za2zz__srfi4z00, 0L, BUNSPEC, 3);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_f64vectorzd2setz12zd2envz12zz__srfi4z00, BgL_bgl_za762f64vectorza7d2s3429z00, BGl_z62f64vectorzd2setz12za2zz__srfi4z00, 0L, BUNSPEC, 3);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_s8vectorzd2refzd2envz00zz__srfi4z00, BgL_bgl_za762s8vectorza7d2re3430z00, BGl_z62s8vectorzd2refzb0zz__srfi4z00, 0L, BUNSPEC, 2);
BGL_DEFINE_STRING(BGl_string3320z00zz__srfi4z00, BgL_bgl_string3320za700za7za7_3431za7, "s16vector-copy!", 15 );
BGL_DEFINE_STRING(BGl_string3321z00zz__srfi4z00, BgL_bgl_string3321za700za7za7_3432za7, "_u16vector-copy!", 16 );
BGL_DEFINE_STRING(BGl_string3240z00zz__srfi4z00, BgL_bgl_string3240za700za7za7_3433za7, "make-f32vector", 14 );
BGL_DEFINE_STRING(BGl_string3322z00zz__srfi4z00, BgL_bgl_string3322za700za7za7_3434za7, "case_else1312", 13 );
BGL_DEFINE_STRING(BGl_string3160z00zz__srfi4z00, BgL_bgl_string3160za700za7za7_3435za7, "f32", 3 );
BGL_DEFINE_STRING(BGl_string3241z00zz__srfi4z00, BgL_bgl_string3241za700za7za7_3436za7, "real", 4 );
BGL_DEFINE_STRING(BGl_string3242z00zz__srfi4z00, BgL_bgl_string3242za700za7za7_3437za7, "f32vector-set!", 14 );
BGL_DEFINE_STRING(BGl_string3324z00zz__srfi4z00, BgL_bgl_string3324za700za7za7_3438za7, "u16vector-copy!", 15 );
BGL_DEFINE_STRING(BGl_string3162z00zz__srfi4z00, BgL_bgl_string3162za700za7za7_3439za7, "f64", 3 );
BGL_DEFINE_STRING(BGl_string3243z00zz__srfi4z00, BgL_bgl_string3243za700za7za7_3440za7, "_make-f64vector", 15 );
BGL_DEFINE_STRING(BGl_string3325z00zz__srfi4z00, BgL_bgl_string3325za700za7za7_3441za7, "_s32vector-copy!", 16 );
DEFINE_EXPORT_BGL_PROCEDURE(BGl_makezd2f64vectorzd2envz00zz__srfi4z00, BgL_bgl__makeza7d2f64vecto3442za7, opt_generic_entry, BGl__makezd2f64vectorzd2zz__srfi4z00, BFALSE, -1);
BGL_DEFINE_STRING(BGl_string3163z00zz__srfi4z00, BgL_bgl_string3163za700za7za7_3443za7, "hvector", 7 );
BGL_DEFINE_STRING(BGl_string3244z00zz__srfi4z00, BgL_bgl_string3244za700za7za7_3444za7, "case_else1296", 13 );
BGL_DEFINE_STRING(BGl_string3326z00zz__srfi4z00, BgL_bgl_string3326za700za7za7_3445za7, "case_else1316", 13 );
BGL_DEFINE_STRING(BGl_string3164z00zz__srfi4z00, BgL_bgl_string3164za700za7za7_3446za7, "/tmp/bigloo/runtime/Llib/srfi4.scm", 34 );
BGL_DEFINE_STRING(BGl_string3165z00zz__srfi4z00, BgL_bgl_string3165za700za7za7_3447za7, "&s8vector-length", 16 );
BGL_DEFINE_STRING(BGl_string3246z00zz__srfi4z00, BgL_bgl_string3246za700za7za7_3448za7, "make-f64vector", 14 );
BGL_DEFINE_STRING(BGl_string3328z00zz__srfi4z00, BgL_bgl_string3328za700za7za7_3449za7, "s32vector-copy!", 15 );
BGL_DEFINE_STRING(BGl_string3166z00zz__srfi4z00, BgL_bgl_string3166za700za7za7_3450za7, "s8vector", 8 );
BGL_DEFINE_STRING(BGl_string3247z00zz__srfi4z00, BgL_bgl_string3247za700za7za7_3451za7, "f64vector-set!", 14 );
BGL_DEFINE_STRING(BGl_string3329z00zz__srfi4z00, BgL_bgl_string3329za700za7za7_3452za7, "_u32vector-copy!", 16 );
BGL_DEFINE_STRING(BGl_string3167z00zz__srfi4z00, BgL_bgl_string3167za700za7za7_3453za7, "&u8vector-length", 16 );
BGL_DEFINE_STRING(BGl_string3248z00zz__srfi4z00, BgL_bgl_string3248za700za7za7_3454za7, "index out of range [0..", 23 );
BGL_DEFINE_STRING(BGl_string3168z00zz__srfi4z00, BgL_bgl_string3168za700za7za7_3455za7, "u8vector", 8 );
BGL_DEFINE_STRING(BGl_string3249z00zz__srfi4z00, BgL_bgl_string3249za700za7za7_3456za7, "]", 1 );
BGL_DEFINE_STRING(BGl_string3169z00zz__srfi4z00, BgL_bgl_string3169za700za7za7_3457za7, "&s16vector-length", 17 );
extern obj_t BGl_zd3s32zd2envz01zz__r4_numbers_6_5_fixnumz00;
BGL_DEFINE_STRING(BGl_string3330z00zz__srfi4z00, BgL_bgl_string3330za700za7za7_3458za7, "case_else1320", 13 );
BGL_DEFINE_STRING(BGl_string3250z00zz__srfi4z00, BgL_bgl_string3250za700za7za7_3459za7, "&hvector-range-error", 20 );
BGL_DEFINE_STRING(BGl_string3332z00zz__srfi4z00, BgL_bgl_string3332za700za7za7_3460za7, "u32vector-copy!", 15 );
DEFINE_EXPORT_BGL_PROCEDURE(BGl_s16vectorzf3zd2envz21zz__srfi4z00, BgL_bgl_za762s16vectorza7f3za73461za7, BGl_z62s16vectorzf3z91zz__srfi4z00, 0L, BUNSPEC, 1);
BGL_DEFINE_STRING(BGl_string3170z00zz__srfi4z00, BgL_bgl_string3170za700za7za7_3462za7, "s16vector", 9 );
BGL_DEFINE_STRING(BGl_string3251z00zz__srfi4z00, BgL_bgl_string3251za700za7za7_3463za7, "bstring", 7 );
BGL_DEFINE_STRING(BGl_string3333z00zz__srfi4z00, BgL_bgl_string3333za700za7za7_3464za7, "_s64vector-copy!", 16 );
DEFINE_EXPORT_BGL_PROCEDURE(BGl_s8vectorzd2lengthzd2envz00zz__srfi4z00, BgL_bgl_za762s8vectorza7d2le3465z00, BGl_z62s8vectorzd2lengthzb0zz__srfi4z00, 0L, BUNSPEC, 1);
BGL_DEFINE_STRING(BGl_string3171z00zz__srfi4z00, BgL_bgl_string3171za700za7za7_3466za7, "&u16vector-length", 17 );
BGL_DEFINE_STRING(BGl_string3252z00zz__srfi4z00, BgL_bgl_string3252za700za7za7_3467za7, "s8vector-ref", 12 );
BGL_DEFINE_STRING(BGl_string3334z00zz__srfi4z00, BgL_bgl_string3334za700za7za7_3468za7, "case_else1324", 13 );
BGL_DEFINE_STRING(BGl_string3172z00zz__srfi4z00, BgL_bgl_string3172za700za7za7_3469za7, "u16vector", 9 );
BGL_DEFINE_STRING(BGl_string3253z00zz__srfi4z00, BgL_bgl_string3253za700za7za7_3470za7, "&s8vector-ref", 13 );
BGL_DEFINE_STRING(BGl_string3173z00zz__srfi4z00, BgL_bgl_string3173za700za7za7_3471za7, "&s32vector-length", 17 );
BGL_DEFINE_STRING(BGl_string3254z00zz__srfi4z00, BgL_bgl_string3254za700za7za7_3472za7, "u8vector-ref", 12 );
BGL_DEFINE_STRING(BGl_string3336z00zz__srfi4z00, BgL_bgl_string3336za700za7za7_3473za7, "s64vector-copy!", 15 );
BGL_DEFINE_STRING(BGl_string3174z00zz__srfi4z00, BgL_bgl_string3174za700za7za7_3474za7, "s32vector", 9 );
BGL_DEFINE_STRING(BGl_string3255z00zz__srfi4z00, BgL_bgl_string3255za700za7za7_3475za7, "&u8vector-ref", 13 );
BGL_DEFINE_STRING(BGl_string3337z00zz__srfi4z00, BgL_bgl_string3337za700za7za7_3476za7, "_u64vector-copy!", 16 );
DEFINE_EXPORT_BGL_PROCEDURE(BGl_u64vectorzf3zd2envz21zz__srfi4z00, BgL_bgl_za762u64vectorza7f3za73477za7, BGl_z62u64vectorzf3z91zz__srfi4z00, 0L, BUNSPEC, 1);
BGL_DEFINE_STRING(BGl_string3175z00zz__srfi4z00, BgL_bgl_string3175za700za7za7_3478za7, "&u32vector-length", 17 );
BGL_DEFINE_STRING(BGl_string3256z00zz__srfi4z00, BgL_bgl_string3256za700za7za7_3479za7, "s16vector-ref", 13 );
BGL_DEFINE_STRING(BGl_string3338z00zz__srfi4z00, BgL_bgl_string3338za700za7za7_3480za7, "case_else1328", 13 );
BGL_DEFINE_STRING(BGl_string3176z00zz__srfi4z00, BgL_bgl_string3176za700za7za7_3481za7, "u32vector", 9 );
BGL_DEFINE_STRING(BGl_string3257z00zz__srfi4z00, BgL_bgl_string3257za700za7za7_3482za7, "&s16vector-ref", 14 );
BGL_DEFINE_STRING(BGl_string3177z00zz__srfi4z00, BgL_bgl_string3177za700za7za7_3483za7, "&s64vector-length", 17 );
BGL_DEFINE_STRING(BGl_string3258z00zz__srfi4z00, BgL_bgl_string3258za700za7za7_3484za7, "u16vector-ref", 13 );
BGL_DEFINE_STRING(BGl_string3178z00zz__srfi4z00, BgL_bgl_string3178za700za7za7_3485za7, "s64vector", 9 );
BGL_DEFINE_STRING(BGl_string3259z00zz__srfi4z00, BgL_bgl_string3259za700za7za7_3486za7, "&u16vector-ref", 14 );
BGL_DEFINE_STRING(BGl_string3179z00zz__srfi4z00, BgL_bgl_string3179za700za7za7_3487za7, "&u64vector-length", 17 );
DEFINE_EXPORT_BGL_PROCEDURE(BGl_listzd2ze3u16vectorzd2envze3zz__srfi4z00, BgL_bgl_za762listza7d2za7e3u163488za7, BGl_z62listzd2ze3u16vectorz53zz__srfi4z00, 0L, BUNSPEC, 1);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_s64vectorzd2ze3listzd2envze3zz__srfi4z00, BgL_bgl_za762s64vectorza7d2za73489za7, BGl_z62s64vectorzd2ze3listz53zz__srfi4z00, 0L, BUNSPEC, 1);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_listzd2ze3s8vectorzd2envze3zz__srfi4z00, BgL_bgl_za762listza7d2za7e3s8v3490za7, BGl_z62listzd2ze3s8vectorz53zz__srfi4z00, 0L, BUNSPEC, 1);
BGL_DEFINE_STRING(BGl_string3340z00zz__srfi4z00, BgL_bgl_string3340za700za7za7_3491za7, "u64vector-copy!", 15 );
BGL_DEFINE_STRING(BGl_string3341z00zz__srfi4z00, BgL_bgl_string3341za700za7za7_3492za7, "_f32vector-copy!", 16 );
BGL_DEFINE_STRING(BGl_string3260z00zz__srfi4z00, BgL_bgl_string3260za700za7za7_3493za7, "s32vector-ref", 13 );
BGL_DEFINE_STRING(BGl_string3342z00zz__srfi4z00, BgL_bgl_string3342za700za7za7_3494za7, "case_else1332", 13 );
BGL_DEFINE_STRING(BGl_string3180z00zz__srfi4z00, BgL_bgl_string3180za700za7za7_3495za7, "u64vector", 9 );
BGL_DEFINE_STRING(BGl_string3261z00zz__srfi4z00, BgL_bgl_string3261za700za7za7_3496za7, "&s32vector-ref", 14 );
BGL_DEFINE_STRING(BGl_string3181z00zz__srfi4z00, BgL_bgl_string3181za700za7za7_3497za7, "&f32vector-length", 17 );
BGL_DEFINE_STRING(BGl_string3262z00zz__srfi4z00, BgL_bgl_string3262za700za7za7_3498za7, "u32vector-ref", 13 );
BGL_DEFINE_STRING(BGl_string3344z00zz__srfi4z00, BgL_bgl_string3344za700za7za7_3499za7, "f32vector-copy!", 15 );
BGL_DEFINE_STRING(BGl_string3182z00zz__srfi4z00, BgL_bgl_string3182za700za7za7_3500za7, "f32vector", 9 );
BGL_DEFINE_STRING(BGl_string3263z00zz__srfi4z00, BgL_bgl_string3263za700za7za7_3501za7, "&u32vector-ref", 14 );
BGL_DEFINE_STRING(BGl_string3345z00zz__srfi4z00, BgL_bgl_string3345za700za7za7_3502za7, "_f64vector-copy!", 16 );
BGL_DEFINE_STRING(BGl_string3183z00zz__srfi4z00, BgL_bgl_string3183za700za7za7_3503za7, "&f64vector-length", 17 );
BGL_DEFINE_STRING(BGl_string3264z00zz__srfi4z00, BgL_bgl_string3264za700za7za7_3504za7, "s64vector-ref", 13 );
BGL_DEFINE_STRING(BGl_string3346z00zz__srfi4z00, BgL_bgl_string3346za700za7za7_3505za7, "case_else1336", 13 );
BGL_DEFINE_STRING(BGl_string3184z00zz__srfi4z00, BgL_bgl_string3184za700za7za7_3506za7, "f64vector", 9 );
BGL_DEFINE_STRING(BGl_string3265z00zz__srfi4z00, BgL_bgl_string3265za700za7za7_3507za7, "&s64vector-ref", 14 );
BGL_DEFINE_STRING(BGl_string3266z00zz__srfi4z00, BgL_bgl_string3266za700za7za7_3508za7, "u64vector-ref", 13 );
BGL_DEFINE_STRING(BGl_string3185z00zz__srfi4z00, BgL_bgl_string3185za700za7za7_3509za7, "pair-nil", 8 );
BGL_DEFINE_STRING(BGl_string3348z00zz__srfi4z00, BgL_bgl_string3348za700za7za7_3510za7, "f64vector-copy!", 15 );
BGL_DEFINE_STRING(BGl_string3267z00zz__srfi4z00, BgL_bgl_string3267za700za7za7_3511za7, "&u64vector-ref", 14 );
BGL_DEFINE_STRING(BGl_string3186z00zz__srfi4z00, BgL_bgl_string3186za700za7za7_3512za7, "_make-s8vector", 14 );
BGL_DEFINE_STRING(BGl_string3349z00zz__srfi4z00, BgL_bgl_string3349za700za7za7_3513za7, "__srfi4", 7 );
BGL_DEFINE_STRING(BGl_string3268z00zz__srfi4z00, BgL_bgl_string3268za700za7za7_3514za7, "f32vector-ref", 13 );
BGL_DEFINE_STRING(BGl_string3187z00zz__srfi4z00, BgL_bgl_string3187za700za7za7_3515za7, "vector", 6 );
BGL_DEFINE_STRING(BGl_string3269z00zz__srfi4z00, BgL_bgl_string3269za700za7za7_3516za7, "&f32vector-ref", 14 );
DEFINE_EXPORT_BGL_PROCEDURE(BGl_s32vectorzd2refzd2envz00zz__srfi4z00, BgL_bgl_za762s32vectorza7d2r3517z00, BGl_z62s32vectorzd2refzb0zz__srfi4z00, 0L, BUNSPEC, 2);
BGL_DEFINE_STRING(BGl_string3188z00zz__srfi4z00, BgL_bgl_string3188za700za7za7_3518za7, "case_else1251", 13 );
DEFINE_EXPORT_BGL_PROCEDURE(BGl_u32vectorzd2refzd2envz00zz__srfi4z00, BgL_bgl_za762u32vectorza7d2r3519z00, BGl_z62u32vectorzd2refzb0zz__srfi4z00, 0L, BUNSPEC, 2);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_f32vectorzd2envzd2zz__srfi4z00, BgL_bgl_za762f32vectorza762za73520za7, va_generic_entry, BGl_z62f32vectorz62zz__srfi4z00, BUNSPEC, -1);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_s64vectorzd2lengthzd2envz00zz__srfi4z00, BgL_bgl_za762s64vectorza7d2l3521z00, BGl_z62s64vectorzd2lengthzb0zz__srfi4z00, 0L, BUNSPEC, 1);
extern obj_t BGl_zd3s8zd2envz01zz__r4_numbers_6_5_fixnumz00;
BGL_DEFINE_STRING(BGl_string3270z00zz__srfi4z00, BgL_bgl_string3270za700za7za7_3522za7, "f64vector-ref", 13 );
BGL_DEFINE_STRING(BGl_string3271z00zz__srfi4z00, BgL_bgl_string3271za700za7za7_3523za7, "&f64vector-ref", 14 );
BGL_DEFINE_STRING(BGl_string3190z00zz__srfi4z00, BgL_bgl_string3190za700za7za7_3524za7, "make-s8vector", 13 );
BGL_DEFINE_STRING(BGl_string3272z00zz__srfi4z00, BgL_bgl_string3272za700za7za7_3525za7, "&s8vector-set!", 14 );
BGL_DEFINE_STRING(BGl_string3191z00zz__srfi4z00, BgL_bgl_string3191za700za7za7_3526za7, "wrong number of arguments: [1..2] expected, provided", 52 );
BGL_DEFINE_STRING(BGl_string3273z00zz__srfi4z00, BgL_bgl_string3273za700za7za7_3527za7, "&u8vector-set!", 14 );
BGL_DEFINE_STRING(BGl_string3192z00zz__srfi4z00, BgL_bgl_string3192za700za7za7_3528za7, "bint", 4 );
BGL_DEFINE_STRING(BGl_string3274z00zz__srfi4z00, BgL_bgl_string3274za700za7za7_3529za7, "&s16vector-set!", 15 );
BGL_DEFINE_STRING(BGl_string3193z00zz__srfi4z00, BgL_bgl_string3193za700za7za7_3530za7, "bint8", 5 );
BGL_DEFINE_STRING(BGl_string3275z00zz__srfi4z00, BgL_bgl_string3275za700za7za7_3531za7, "&u16vector-set!", 15 );
BGL_DEFINE_STRING(BGl_string3194z00zz__srfi4z00, BgL_bgl_string3194za700za7za7_3532za7, "s8vector-set!", 13 );
BGL_DEFINE_STRING(BGl_string3276z00zz__srfi4z00, BgL_bgl_string3276za700za7za7_3533za7, "&s32vector-set!", 15 );
BGL_DEFINE_STRING(BGl_string3195z00zz__srfi4z00, BgL_bgl_string3195za700za7za7_3534za7, "_make-u8vector", 14 );
BGL_DEFINE_STRING(BGl_string3277z00zz__srfi4z00, BgL_bgl_string3277za700za7za7_3535za7, "&u32vector-set!", 15 );
BGL_DEFINE_STRING(BGl_string3196z00zz__srfi4z00, BgL_bgl_string3196za700za7za7_3536za7, "case_else1256", 13 );
BGL_DEFINE_STRING(BGl_string3278z00zz__srfi4z00, BgL_bgl_string3278za700za7za7_3537za7, "&s64vector-set!", 15 );
BGL_DEFINE_STRING(BGl_string3279z00zz__srfi4z00, BgL_bgl_string3279za700za7za7_3538za7, "&u64vector-set!", 15 );
BGL_DEFINE_STRING(BGl_string3198z00zz__srfi4z00, BgL_bgl_string3198za700za7za7_3539za7, "make-u8vector", 13 );
BGL_DEFINE_STRING(BGl_string3199z00zz__srfi4z00, BgL_bgl_string3199za700za7za7_3540za7, "buint8", 6 );
extern obj_t BGl_zd3u64zd2envz01zz__r4_numbers_6_5_fixnumz00;
DEFINE_EXPORT_BGL_PROCEDURE(BGl_f32vectorzf3zd2envz21zz__srfi4z00, BgL_bgl_za762f32vectorza7f3za73541za7, BGl_z62f32vectorzf3z91zz__srfi4z00, 0L, BUNSPEC, 1);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_f32vectorzd2ze3listzd2envze3zz__srfi4z00, BgL_bgl_za762f32vectorza7d2za73542za7, BGl_z62f32vectorzd2ze3listz53zz__srfi4z00, 0L, BUNSPEC, 1);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_makezd2u8vectorzd2envz00zz__srfi4z00, BgL_bgl__makeza7d2u8vector3543za7, opt_generic_entry, BGl__makezd2u8vectorzd2zz__srfi4z00, BFALSE, -1);
BGL_DEFINE_STRING(BGl_string3280z00zz__srfi4z00, BgL_bgl_string3280za700za7za7_3544za7, "&f32vector-set!", 15 );
BGL_DEFINE_STRING(BGl_string3281z00zz__srfi4z00, BgL_bgl_string3281za700za7za7_3545za7, "&f64vector-set!", 15 );
BGL_DEFINE_STRING(BGl_string3282z00zz__srfi4z00, BgL_bgl_string3282za700za7za7_3546za7, "&s8vector->list", 15 );
BGL_DEFINE_STRING(BGl_string3283z00zz__srfi4z00, BgL_bgl_string3283za700za7za7_3547za7, "&u8vector->list", 15 );
BGL_DEFINE_STRING(BGl_string3284z00zz__srfi4z00, BgL_bgl_string3284za700za7za7_3548za7, "&s16vector->list", 16 );
BGL_DEFINE_STRING(BGl_string3285z00zz__srfi4z00, BgL_bgl_string3285za700za7za7_3549za7, "&u16vector->list", 16 );
BGL_DEFINE_STRING(BGl_string3286z00zz__srfi4z00, BgL_bgl_string3286za700za7za7_3550za7, "&s32vector->list", 16 );
BGL_DEFINE_STRING(BGl_string3287z00zz__srfi4z00, BgL_bgl_string3287za700za7za7_3551za7, "&u32vector->list", 16 );
BGL_DEFINE_STRING(BGl_string3288z00zz__srfi4z00, BgL_bgl_string3288za700za7za7_3552za7, "&s64vector->list", 16 );
DEFINE_EXPORT_BGL_PROCEDURE(BGl_s16vectorzd2copyz12zd2envz12zz__srfi4z00, BgL_bgl__s16vectorza7d2cop3553za7, opt_generic_entry, BGl__s16vectorzd2copyz12zc0zz__srfi4z00, BFALSE, -1);
BGL_DEFINE_STRING(BGl_string3289z00zz__srfi4z00, BgL_bgl_string3289za700za7za7_3554za7, "&u64vector->list", 16 );
DEFINE_EXPORT_BGL_PROCEDURE(BGl_listzd2ze3u64vectorzd2envze3zz__srfi4z00, BgL_bgl_za762listza7d2za7e3u643555za7, BGl_z62listzd2ze3u64vectorz53zz__srfi4z00, 0L, BUNSPEC, 1);
BGL_DEFINE_STRING(BGl_string3290z00zz__srfi4z00, BgL_bgl_string3290za700za7za7_3556za7, "&f32vector->list", 16 );
DEFINE_EXPORT_BGL_PROCEDURE(BGl_u8vectorzd2lengthzd2envz00zz__srfi4z00, BgL_bgl_za762u8vectorza7d2le3557z00, BGl_z62u8vectorzd2lengthzb0zz__srfi4z00, 0L, BUNSPEC, 1);
BGL_DEFINE_STRING(BGl_string3291z00zz__srfi4z00, BgL_bgl_string3291za700za7za7_3558za7, "&f64vector->list", 16 );
BGL_DEFINE_STRING(BGl_string3292z00zz__srfi4z00, BgL_bgl_string3292za700za7za7_3559za7, "loop", 4 );
BGL_DEFINE_STRING(BGl_string3293z00zz__srfi4z00, BgL_bgl_string3293za700za7za7_3560za7, "pair", 4 );
BGL_DEFINE_STRING(BGl_string3294z00zz__srfi4z00, BgL_bgl_string3294za700za7za7_3561za7, "&list->s8vector", 15 );
BGL_DEFINE_STRING(BGl_string3295z00zz__srfi4z00, BgL_bgl_string3295za700za7za7_3562za7, "&list->u8vector", 15 );
BGL_DEFINE_STRING(BGl_string3296z00zz__srfi4z00, BgL_bgl_string3296za700za7za7_3563za7, "&list->s16vector", 16 );
BGL_DEFINE_STRING(BGl_string3297z00zz__srfi4z00, BgL_bgl_string3297za700za7za7_3564za7, "&list->u16vector", 16 );
BGL_DEFINE_STRING(BGl_string3298z00zz__srfi4z00, BgL_bgl_string3298za700za7za7_3565za7, "&list->s32vector", 16 );
BGL_DEFINE_STRING(BGl_string3299z00zz__srfi4z00, BgL_bgl_string3299za700za7za7_3566za7, "&list->u32vector", 16 );
DEFINE_EXPORT_BGL_PROCEDURE(BGl_u64vectorzd2ze3listzd2envze3zz__srfi4z00, BgL_bgl_za762u64vectorza7d2za73567za7, BGl_z62u64vectorzd2ze3listz53zz__srfi4z00, 0L, BUNSPEC, 1);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_s32vectorzd2copyz12zd2envz12zz__srfi4z00, BgL_bgl__s32vectorza7d2cop3568za7, opt_generic_entry, BGl__s32vectorzd2copyz12zc0zz__srfi4z00, BFALSE, -1);
extern obj_t BGl_zd3s16zd2envz01zz__r4_numbers_6_5_fixnumz00;
DEFINE_EXPORT_BGL_PROCEDURE(BGl_u8vectorzd2envzd2zz__srfi4z00, BgL_bgl_za762u8vectorza762za7za73569z00, va_generic_entry, BGl_z62u8vectorz62zz__srfi4z00, BUNSPEC, -1);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_u32vectorzf3zd2envz21zz__srfi4z00, BgL_bgl_za762u32vectorza7f3za73570za7, BGl_z62u32vectorzf3z91zz__srfi4z00, 0L, BUNSPEC, 1);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_s64vectorzf3zd2envz21zz__srfi4z00, BgL_bgl_za762s64vectorza7f3za73571za7, BGl_z62s64vectorzf3z91zz__srfi4z00, 0L, BUNSPEC, 1);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_makezd2s32vectorzd2envz00zz__srfi4z00, BgL_bgl__makeza7d2s32vecto3572za7, opt_generic_entry, BGl__makezd2s32vectorzd2zz__srfi4z00, BFALSE, -1);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_u16vectorzd2copyz12zd2envz12zz__srfi4z00, BgL_bgl__u16vectorza7d2cop3573za7, opt_generic_entry, BGl__u16vectorzd2copyz12zc0zz__srfi4z00, BFALSE, -1);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_u64vectorzd2lengthzd2envz00zz__srfi4z00, BgL_bgl_za762u64vectorza7d2l3574z00, BGl_z62u64vectorzd2lengthzb0zz__srfi4z00, 0L, BUNSPEC, 1);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_u16vectorzd2envzd2zz__srfi4z00, BgL_bgl_za762u16vectorza762za73575za7, va_generic_entry, BGl_z62u16vectorz62zz__srfi4z00, BUNSPEC, -1);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_listzd2ze3s16vectorzd2envze3zz__srfi4z00, BgL_bgl_za762listza7d2za7e3s163576za7, BGl_z62listzd2ze3s16vectorz53zz__srfi4z00, 0L, BUNSPEC, 1);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_u8vectorzf3zd2envz21zz__srfi4z00, BgL_bgl_za762u8vectorza7f3za793577za7, BGl_z62u8vectorzf3z91zz__srfi4z00, 0L, BUNSPEC, 1);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_s8vectorzd2copyz12zd2envz12zz__srfi4z00, BgL_bgl__s8vectorza7d2copy3578za7, opt_generic_entry, BGl__s8vectorzd2copyz12zc0zz__srfi4z00, BFALSE, -1);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_hvectorzd2rangezd2errorzd2envzd2zz__srfi4z00, BgL_bgl_za762hvectorza7d2ran3579z00, BGl_z62hvectorzd2rangezd2errorz62zz__srfi4z00, 0L, BUNSPEC, 3);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_u32vectorzd2copyz12zd2envz12zz__srfi4z00, BgL_bgl__u32vectorza7d2cop3580za7, opt_generic_entry, BGl__u32vectorzd2copyz12zc0zz__srfi4z00, BFALSE, -1);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_s32vectorzd2lengthzd2envz00zz__srfi4z00, BgL_bgl_za762s32vectorza7d2l3581z00, BGl_z62s32vectorzd2lengthzb0zz__srfi4z00, 0L, BUNSPEC, 1);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_s16vectorzd2lengthzd2envz00zz__srfi4z00, BgL_bgl_za762s16vectorza7d2l3582z00, BGl_z62s16vectorzd2lengthzb0zz__srfi4z00, 0L, BUNSPEC, 1);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_s16vectorzd2setz12zd2envz12zz__srfi4z00, BgL_bgl_za762s16vectorza7d2s3583z00, BGl_z62s16vectorzd2setz12za2zz__srfi4z00, 0L, BUNSPEC, 3);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_makezd2f32vectorzd2envz00zz__srfi4z00, BgL_bgl__makeza7d2f32vecto3584za7, opt_generic_entry, BGl__makezd2f32vectorzd2zz__srfi4z00, BFALSE, -1);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_f64vectorzd2lengthzd2envz00zz__srfi4z00, BgL_bgl_za762f64vectorza7d2l3585z00, BGl_z62f64vectorzd2lengthzb0zz__srfi4z00, 0L, BUNSPEC, 1);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_s64vectorzd2refzd2envz00zz__srfi4z00, BgL_bgl_za762s64vectorza7d2r3586z00, BGl_z62s64vectorzd2refzb0zz__srfi4z00, 0L, BUNSPEC, 2);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_u64vectorzd2refzd2envz00zz__srfi4z00, BgL_bgl_za762u64vectorza7d2r3587z00, BGl_z62u64vectorzd2refzb0zz__srfi4z00, 0L, BUNSPEC, 2);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_u8vectorzd2copyz12zd2envz12zz__srfi4z00, BgL_bgl__u8vectorza7d2copy3588za7, opt_generic_entry, BGl__u8vectorzd2copyz12zc0zz__srfi4z00, BFALSE, -1);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_u64vectorzd2envzd2zz__srfi4z00, BgL_bgl_za762u64vectorza762za73589za7, va_generic_entry, BGl_z62u64vectorz62zz__srfi4z00, BUNSPEC, -1);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_s16vectorzd2ze3listzd2envze3zz__srfi4z00, BgL_bgl_za762s16vectorza7d2za73590za7, BGl_z62s16vectorzd2ze3listz53zz__srfi4z00, 0L, BUNSPEC, 1);
extern obj_t BGl_zd3u32zd2envz01zz__r4_numbers_6_5_fixnumz00;
DEFINE_EXPORT_BGL_PROCEDURE(BGl_listzd2ze3s64vectorzd2envze3zz__srfi4z00, BgL_bgl_za762listza7d2za7e3s643591za7, BGl_z62listzd2ze3s64vectorz53zz__srfi4z00, 0L, BUNSPEC, 1);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_u16vectorzd2setz12zd2envz12zz__srfi4z00, BgL_bgl_za762u16vectorza7d2s3592z00, BGl_z62u16vectorzd2setz12za2zz__srfi4z00, 0L, BUNSPEC, 3);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_s32vectorzf3zd2envz21zz__srfi4z00, BgL_bgl_za762s32vectorza7f3za73593za7, BGl_z62s32vectorzf3z91zz__srfi4z00, 0L, BUNSPEC, 1);
extern obj_t BGl_zd3u8zd2envz01zz__r4_numbers_6_5_fixnumz00;
DEFINE_EXPORT_BGL_PROCEDURE(BGl_makezd2s8vectorzd2envz00zz__srfi4z00, BgL_bgl__makeza7d2s8vector3594za7, opt_generic_entry, BGl__makezd2s8vectorzd2zz__srfi4z00, BFALSE, -1);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_s32vectorzd2ze3listzd2envze3zz__srfi4z00, BgL_bgl_za762s32vectorza7d2za73595za7, BGl_z62s32vectorzd2ze3listz53zz__srfi4z00, 0L, BUNSPEC, 1);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_s32vectorzd2setz12zd2envz12zz__srfi4z00, BgL_bgl_za762s32vectorza7d2s3596z00, BGl_z62s32vectorzd2setz12za2zz__srfi4z00, 0L, BUNSPEC, 3);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_f64vectorzd2copyz12zd2envz12zz__srfi4z00, BgL_bgl__f64vectorza7d2cop3597za7, opt_generic_entry, BGl__f64vectorzd2copyz12zc0zz__srfi4z00, BFALSE, -1);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_listzd2ze3u32vectorzd2envze3zz__srfi4z00, BgL_bgl_za762listza7d2za7e3u323598za7, BGl_z62listzd2ze3u32vectorz53zz__srfi4z00, 0L, BUNSPEC, 1);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_listzd2ze3f64vectorzd2envze3zz__srfi4z00, BgL_bgl_za762listza7d2za7e3f643599za7, BGl_z62listzd2ze3f64vectorz53zz__srfi4z00, 0L, BUNSPEC, 1);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_u16vectorzd2ze3listzd2envze3zz__srfi4z00, BgL_bgl_za762u16vectorza7d2za73600za7, BGl_z62u16vectorzd2ze3listz53zz__srfi4z00, 0L, BUNSPEC, 1);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_u32vectorzd2lengthzd2envz00zz__srfi4z00, BgL_bgl_za762u32vectorza7d2l3601z00, BGl_z62u32vectorzd2lengthzb0zz__srfi4z00, 0L, BUNSPEC, 1);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_u16vectorzd2lengthzd2envz00zz__srfi4z00, BgL_bgl_za762u16vectorza7d2l3602z00, BGl_z62u16vectorzd2lengthzb0zz__srfi4z00, 0L, BUNSPEC, 1);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_s8vectorzd2envzd2zz__srfi4z00, BgL_bgl_za762s8vectorza762za7za73603z00, va_generic_entry, BGl_z62s8vectorz62zz__srfi4z00, BUNSPEC, -1);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_u32vectorzd2setz12zd2envz12zz__srfi4z00, BgL_bgl_za762u32vectorza7d2s3604z00, BGl_z62u32vectorzd2setz12za2zz__srfi4z00, 0L, BUNSPEC, 3);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_s16vectorzd2envzd2zz__srfi4z00, BgL_bgl_za762s16vectorza762za73605za7, va_generic_entry, BGl_z62s16vectorz62zz__srfi4z00, BUNSPEC, -1);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_f32vectorzd2setz12zd2envz12zz__srfi4z00, BgL_bgl_za762f32vectorza7d2s3606z00, BGl_z62f32vectorzd2setz12za2zz__srfi4z00, 0L, BUNSPEC, 3);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_makezd2u16vectorzd2envz00zz__srfi4z00, BgL_bgl__makeza7d2u16vecto3607za7, opt_generic_entry, BGl__makezd2u16vectorzd2zz__srfi4z00, BFALSE, -1);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_s8vectorzf3zd2envz21zz__srfi4z00, BgL_bgl_za762s8vectorza7f3za793608za7, BGl_z62s8vectorzf3z91zz__srfi4z00, 0L, BUNSPEC, 1);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_s8vectorzd2ze3listzd2envze3zz__srfi4z00, BgL_bgl_za762s8vectorza7d2za7e3609za7, BGl_z62s8vectorzd2ze3listz53zz__srfi4z00, 0L, BUNSPEC, 1);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_f32vectorzd2refzd2envz00zz__srfi4z00, BgL_bgl_za762f32vectorza7d2r3610z00, BGl_z62f32vectorzd2refzb0zz__srfi4z00, 0L, BUNSPEC, 2);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_u32vectorzd2ze3listzd2envze3zz__srfi4z00, BgL_bgl_za762u32vectorza7d2za73611za7, BGl_z62u32vectorzd2ze3listz53zz__srfi4z00, 0L, BUNSPEC, 1);
extern obj_t BGl_zd3u16zd2envz01zz__r4_numbers_6_5_fixnumz00;
DEFINE_EXPORT_BGL_PROCEDURE(BGl_f32vectorzd2lengthzd2envz00zz__srfi4z00, BgL_bgl_za762f32vectorza7d2l3612z00, BGl_z62f32vectorzd2lengthzb0zz__srfi4z00, 0L, BUNSPEC, 1);
extern obj_t BGl_zd3flzd2envz01zz__r4_numbers_6_5_flonumz00;
DEFINE_EXPORT_BGL_PROCEDURE(BGl_u8vectorzd2ze3listzd2envze3zz__srfi4z00, BgL_bgl_za762u8vectorza7d2za7e3613za7, BGl_z62u8vectorzd2ze3listz53zz__srfi4z00, 0L, BUNSPEC, 1);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_s64vectorzd2envzd2zz__srfi4z00, BgL_bgl_za762s64vectorza762za73614za7, va_generic_entry, BGl_z62s64vectorz62zz__srfi4z00, BUNSPEC, -1);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_makezd2u64vectorzd2envz00zz__srfi4z00, BgL_bgl__makeza7d2u64vecto3615za7, opt_generic_entry, BGl__makezd2u64vectorzd2zz__srfi4z00, BFALSE, -1);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_homogeneouszd2vectorzd2infozd2envzd2zz__srfi4z00, BgL_bgl_za762homogeneousza7d3616z00, BGl_z62homogeneouszd2vectorzd2infoz62zz__srfi4z00, 0L, BUNSPEC, 1);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_f64vectorzd2ze3listzd2envze3zz__srfi4z00, BgL_bgl_za762f64vectorza7d2za73617za7, BGl_z62f64vectorzd2ze3listz53zz__srfi4z00, 0L, BUNSPEC, 1);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_u32vectorzd2envzd2zz__srfi4z00, BgL_bgl_za762u32vectorza762za73618za7, va_generic_entry, BGl_z62u32vectorz62zz__srfi4z00, BUNSPEC, -1);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_listzd2ze3s32vectorzd2envze3zz__srfi4z00, BgL_bgl_za762listza7d2za7e3s323619za7, BGl_z62listzd2ze3s32vectorz53zz__srfi4z00, 0L, BUNSPEC, 1);
extern obj_t BGl_zd3s64zd2envz01zz__r4_numbers_6_5_fixnumz00;
DEFINE_EXPORT_BGL_PROCEDURE(BGl_f64vectorzd2envzd2zz__srfi4z00, BgL_bgl_za762f64vectorza762za73620za7, va_generic_entry, BGl_z62f64vectorz62zz__srfi4z00, BUNSPEC, -1);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_listzd2ze3u8vectorzd2envze3zz__srfi4z00, BgL_bgl_za762listza7d2za7e3u8v3621za7, BGl_z62listzd2ze3u8vectorz53zz__srfi4z00, 0L, BUNSPEC, 1);

/* contant bindings */
static void bgl_constant_bindings() {
BGL_BIND_PROCEDURE(BGl_listzd2ze3u8vectorzd2envze3zz__srfi4z00, BgL_bgl_za762listza7d2za7e3u8v3621za7);
BGL_BIND_PROCEDURE(BGl_f64vectorzd2envzd2zz__srfi4z00, BgL_bgl_za762f64vectorza762za73620za7);
BGL_BIND_PROCEDURE(BGl_listzd2ze3s32vectorzd2envze3zz__srfi4z00, BgL_bgl_za762listza7d2za7e3s323619za7);
BGL_BIND_PROCEDURE(BGl_u32vectorzd2envzd2zz__srfi4z00, BgL_bgl_za762u32vectorza762za73618za7);
BGL_BIND_PROCEDURE(BGl_f64vectorzd2ze3listzd2envze3zz__srfi4z00, BgL_bgl_za762f64vectorza7d2za73617za7);
BGL_BIND_PROCEDURE(BGl_homogeneouszd2vectorzd2infozd2envzd2zz__srfi4z00, BgL_bgl_za762homogeneousza7d3616z00);
BGL_BIND_PROCEDURE(BGl_makezd2u64vectorzd2envz00zz__srfi4z00, BgL_bgl__makeza7d2u64vecto3615za7);
BGL_BIND_PROCEDURE(BGl_s64vectorzd2envzd2zz__srfi4z00, BgL_bgl_za762s64vectorza762za73614za7);
BGL_BIND_PROCEDURE(BGl_u8vectorzd2ze3listzd2envze3zz__srfi4z00, BgL_bgl_za762u8vectorza7d2za7e3613za7);
BGL_BIND_PROCEDURE(BGl_f32vectorzd2lengthzd2envz00zz__srfi4z00, BgL_bgl_za762f32vectorza7d2l3612z00);
BGL_BIND_PROCEDURE(BGl_u32vectorzd2ze3listzd2envze3zz__srfi4z00, BgL_bgl_za762u32vectorza7d2za73611za7);
BGL_BIND_PROCEDURE(BGl_f32vectorzd2refzd2envz00zz__srfi4z00, BgL_bgl_za762f32vectorza7d2r3610z00);
BGL_BIND_PROCEDURE(BGl_s8vectorzd2ze3listzd2envze3zz__srfi4z00, BgL_bgl_za762s8vectorza7d2za7e3609za7);
BGL_BIND_PROCEDURE(BGl_s8vectorzf3zd2envz21zz__srfi4z00, BgL_bgl_za762s8vectorza7f3za793608za7);
BGL_BIND_PROCEDURE(BGl_makezd2u16vectorzd2envz00zz__srfi4z00, BgL_bgl__makeza7d2u16vecto3607za7);
BGL_BIND_PROCEDURE(BGl_f32vectorzd2setz12zd2envz12zz__srfi4z00, BgL_bgl_za762f32vectorza7d2s3606z00);
BGL_BIND_PROCEDURE(BGl_s16vectorzd2envzd2zz__srfi4z00, BgL_bgl_za762s16vectorza762za73605za7);
BGL_BIND_PROCEDURE(BGl_u32vectorzd2setz12zd2envz12zz__srfi4z00, BgL_bgl_za762u32vectorza7d2s3604z00);
BGL_BIND_PROCEDURE(BGl_s8vectorzd2envzd2zz__srfi4z00, BgL_bgl_za762s8vectorza762za7za73603z00);
BGL_BIND_PROCEDURE(BGl_u16vectorzd2lengthzd2envz00zz__srfi4z00, BgL_bgl_za762u16vectorza7d2l3602z00);
BGL_BIND_PROCEDURE(BGl_u32vectorzd2lengthzd2envz00zz__srfi4z00, BgL_bgl_za762u32vectorza7d2l3601z00);
BGL_BIND_PROCEDURE(BGl_u16vectorzd2ze3listzd2envze3zz__srfi4z00, BgL_bgl_za762u16vectorza7d2za73600za7);
BGL_BIND_PROCEDURE(BGl_listzd2ze3f64vectorzd2envze3zz__srfi4z00, BgL_bgl_za762listza7d2za7e3f643599za7);
BGL_BIND_PROCEDURE(BGl_listzd2ze3u32vectorzd2envze3zz__srfi4z00, BgL_bgl_za762listza7d2za7e3u323598za7);
BGL_BIND_PROCEDURE(BGl_f64vectorzd2copyz12zd2envz12zz__srfi4z00, BgL_bgl__f64vectorza7d2cop3597za7);
BGL_BIND_PROCEDURE(BGl_s32vectorzd2setz12zd2envz12zz__srfi4z00, BgL_bgl_za762s32vectorza7d2s3596z00);
BGL_BIND_PROCEDURE(BGl_s32vectorzd2ze3listzd2envze3zz__srfi4z00, BgL_bgl_za762s32vectorza7d2za73595za7);
BGL_BIND_PROCEDURE(BGl_makezd2s8vectorzd2envz00zz__srfi4z00, BgL_bgl__makeza7d2s8vector3594za7);
BGL_BIND_PROCEDURE(BGl_s32vectorzf3zd2envz21zz__srfi4z00, BgL_bgl_za762s32vectorza7f3za73593za7);
BGL_BIND_PROCEDURE(BGl_u16vectorzd2setz12zd2envz12zz__srfi4z00, BgL_bgl_za762u16vectorza7d2s3592z00);
BGL_BIND_PROCEDURE(BGl_listzd2ze3s64vectorzd2envze3zz__srfi4z00, BgL_bgl_za762listza7d2za7e3s643591za7);
BGL_BIND_PROCEDURE(BGl_s16vectorzd2ze3listzd2envze3zz__srfi4z00, BgL_bgl_za762s16vectorza7d2za73590za7);
BGL_BIND_PROCEDURE(BGl_u64vectorzd2envzd2zz__srfi4z00, BgL_bgl_za762u64vectorza762za73589za7);
BGL_BIND_PROCEDURE(BGl_u8vectorzd2copyz12zd2envz12zz__srfi4z00, BgL_bgl__u8vectorza7d2copy3588za7);
BGL_BIND_PROCEDURE(BGl_u64vectorzd2refzd2envz00zz__srfi4z00, BgL_bgl_za762u64vectorza7d2r3587z00);
BGL_BIND_PROCEDURE(BGl_s64vectorzd2refzd2envz00zz__srfi4z00, BgL_bgl_za762s64vectorza7d2r3586z00);
BGL_BIND_PROCEDURE(BGl_f64vectorzd2lengthzd2envz00zz__srfi4z00, BgL_bgl_za762f64vectorza7d2l3585z00);
BGL_BIND_PROCEDURE(BGl_makezd2f32vectorzd2envz00zz__srfi4z00, BgL_bgl__makeza7d2f32vecto3584za7);
BGL_BIND_PROCEDURE(BGl_s16vectorzd2setz12zd2envz12zz__srfi4z00, BgL_bgl_za762s16vectorza7d2s3583z00);
BGL_BIND_PROCEDURE(BGl_s16vectorzd2lengthzd2envz00zz__srfi4z00, BgL_bgl_za762s16vectorza7d2l3582z00);
BGL_BIND_PROCEDURE(BGl_s32vectorzd2lengthzd2envz00zz__srfi4z00, BgL_bgl_za762s32vectorza7d2l3581z00);
BGL_BIND_PROCEDURE(BGl_u32vectorzd2copyz12zd2envz12zz__srfi4z00, BgL_bgl__u32vectorza7d2cop3580za7);
BGL_BIND_PROCEDURE(BGl_hvectorzd2rangezd2errorzd2envzd2zz__srfi4z00, BgL_bgl_za762hvectorza7d2ran3579z00);
BGL_BIND_PROCEDURE(BGl_s8vectorzd2copyz12zd2envz12zz__srfi4z00, BgL_bgl__s8vectorza7d2copy3578za7);
BGL_BIND_PROCEDURE(BGl_u8vectorzf3zd2envz21zz__srfi4z00, BgL_bgl_za762u8vectorza7f3za793577za7);
BGL_BIND_PROCEDURE(BGl_listzd2ze3s16vectorzd2envze3zz__srfi4z00, BgL_bgl_za762listza7d2za7e3s163576za7);
BGL_BIND_PROCEDURE(BGl_u16vectorzd2envzd2zz__srfi4z00, BgL_bgl_za762u16vectorza762za73575za7);
BGL_BIND_PROCEDURE(BGl_u64vectorzd2lengthzd2envz00zz__srfi4z00, BgL_bgl_za762u64vectorza7d2l3574z00);
BGL_BIND_PROCEDURE(BGl_u16vectorzd2copyz12zd2envz12zz__srfi4z00, BgL_bgl__u16vectorza7d2cop3573za7);
BGL_BIND_PROCEDURE(BGl_makezd2s32vectorzd2envz00zz__srfi4z00, BgL_bgl__makeza7d2s32vecto3572za7);
BGL_BIND_PROCEDURE(BGl_s64vectorzf3zd2envz21zz__srfi4z00, BgL_bgl_za762s64vectorza7f3za73571za7);
BGL_BIND_PROCEDURE(BGl_u32vectorzf3zd2envz21zz__srfi4z00, BgL_bgl_za762u32vectorza7f3za73570za7);
BGL_BIND_PROCEDURE(BGl_u8vectorzd2envzd2zz__srfi4z00, BgL_bgl_za762u8vectorza762za7za73569z00);
BGL_BIND_PROCEDURE(BGl_s32vectorzd2copyz12zd2envz12zz__srfi4z00, BgL_bgl__s32vectorza7d2cop3568za7);
BGL_BIND_PROCEDURE(BGl_u64vectorzd2ze3listzd2envze3zz__srfi4z00, BgL_bgl_za762u64vectorza7d2za73567za7);
BGL_BIND_STRING(BGl_string3299z00zz__srfi4z00, BgL_bgl_string3299za700za7za7_3566za7);
BGL_BIND_STRING(BGl_string3298z00zz__srfi4z00, BgL_bgl_string3298za700za7za7_3565za7);
BGL_BIND_STRING(BGl_string3297z00zz__srfi4z00, BgL_bgl_string3297za700za7za7_3564za7);
BGL_BIND_STRING(BGl_string3296z00zz__srfi4z00, BgL_bgl_string3296za700za7za7_3563za7);
BGL_BIND_STRING(BGl_string3295z00zz__srfi4z00, BgL_bgl_string3295za700za7za7_3562za7);
BGL_BIND_STRING(BGl_string3294z00zz__srfi4z00, BgL_bgl_string3294za700za7za7_3561za7);
BGL_BIND_STRING(BGl_string3293z00zz__srfi4z00, BgL_bgl_string3293za700za7za7_3560za7);
BGL_BIND_STRING(BGl_string3292z00zz__srfi4z00, BgL_bgl_string3292za700za7za7_3559za7);
BGL_BIND_STRING(BGl_string3291z00zz__srfi4z00, BgL_bgl_string3291za700za7za7_3558za7);
BGL_BIND_PROCEDURE(BGl_u8vectorzd2lengthzd2envz00zz__srfi4z00, BgL_bgl_za762u8vectorza7d2le3557z00);
BGL_BIND_STRING(BGl_string3290z00zz__srfi4z00, BgL_bgl_string3290za700za7za7_3556za7);
BGL_BIND_PROCEDURE(BGl_listzd2ze3u64vectorzd2envze3zz__srfi4z00, BgL_bgl_za762listza7d2za7e3u643555za7);
BGL_BIND_STRING(BGl_string3289z00zz__srfi4z00, BgL_bgl_string3289za700za7za7_3554za7);
BGL_BIND_PROCEDURE(BGl_s16vectorzd2copyz12zd2envz12zz__srfi4z00, BgL_bgl__s16vectorza7d2cop3553za7);
BGL_BIND_STRING(BGl_string3288z00zz__srfi4z00, BgL_bgl_string3288za700za7za7_3552za7);
BGL_BIND_STRING(BGl_string3287z00zz__srfi4z00, BgL_bgl_string3287za700za7za7_3551za7);
BGL_BIND_STRING(BGl_string3286z00zz__srfi4z00, BgL_bgl_string3286za700za7za7_3550za7);
BGL_BIND_STRING(BGl_string3285z00zz__srfi4z00, BgL_bgl_string3285za700za7za7_3549za7);
BGL_BIND_STRING(BGl_string3284z00zz__srfi4z00, BgL_bgl_string3284za700za7za7_3548za7);
BGL_BIND_STRING(BGl_string3283z00zz__srfi4z00, BgL_bgl_string3283za700za7za7_3547za7);
BGL_BIND_STRING(BGl_string3282z00zz__srfi4z00, BgL_bgl_string3282za700za7za7_3546za7);
BGL_BIND_STRING(BGl_string3281z00zz__srfi4z00, BgL_bgl_string3281za700za7za7_3545za7);
BGL_BIND_STRING(BGl_string3280z00zz__srfi4z00, BgL_bgl_string3280za700za7za7_3544za7);
BGL_BIND_PROCEDURE(BGl_makezd2u8vectorzd2envz00zz__srfi4z00, BgL_bgl__makeza7d2u8vector3543za7);
BGL_BIND_PROCEDURE(BGl_f32vectorzd2ze3listzd2envze3zz__srfi4z00, BgL_bgl_za762f32vectorza7d2za73542za7);
BGL_BIND_PROCEDURE(BGl_f32vectorzf3zd2envz21zz__srfi4z00, BgL_bgl_za762f32vectorza7f3za73541za7);
BGL_BIND_STRING(BGl_string3199z00zz__srfi4z00, BgL_bgl_string3199za700za7za7_3540za7);
BGL_BIND_STRING(BGl_string3198z00zz__srfi4z00, BgL_bgl_string3198za700za7za7_3539za7);
BGL_BIND_STRING(BGl_string3279z00zz__srfi4z00, BgL_bgl_string3279za700za7za7_3538za7);
BGL_BIND_STRING(BGl_string3278z00zz__srfi4z00, BgL_bgl_string3278za700za7za7_3537za7);
BGL_BIND_STRING(BGl_string3196z00zz__srfi4z00, BgL_bgl_string3196za700za7za7_3536za7);
BGL_BIND_STRING(BGl_string3277z00zz__srfi4z00, BgL_bgl_string3277za700za7za7_3535za7);
BGL_BIND_STRING(BGl_string3195z00zz__srfi4z00, BgL_bgl_string3195za700za7za7_3534za7);
BGL_BIND_STRING(BGl_string3276z00zz__srfi4z00, BgL_bgl_string3276za700za7za7_3533za7);
BGL_BIND_STRING(BGl_string3194z00zz__srfi4z00, BgL_bgl_string3194za700za7za7_3532za7);
BGL_BIND_STRING(BGl_string3275z00zz__srfi4z00, BgL_bgl_string3275za700za7za7_3531za7);
BGL_BIND_STRING(BGl_string3193z00zz__srfi4z00, BgL_bgl_string3193za700za7za7_3530za7);
BGL_BIND_STRING(BGl_string3274z00zz__srfi4z00, BgL_bgl_string3274za700za7za7_3529za7);
BGL_BIND_STRING(BGl_string3192z00zz__srfi4z00, BgL_bgl_string3192za700za7za7_3528za7);
BGL_BIND_STRING(BGl_string3273z00zz__srfi4z00, BgL_bgl_string3273za700za7za7_3527za7);
BGL_BIND_STRING(BGl_string3191z00zz__srfi4z00, BgL_bgl_string3191za700za7za7_3526za7);
BGL_BIND_STRING(BGl_string3272z00zz__srfi4z00, BgL_bgl_string3272za700za7za7_3525za7);
BGL_BIND_STRING(BGl_string3190z00zz__srfi4z00, BgL_bgl_string3190za700za7za7_3524za7);
BGL_BIND_STRING(BGl_string3271z00zz__srfi4z00, BgL_bgl_string3271za700za7za7_3523za7);
BGL_BIND_STRING(BGl_string3270z00zz__srfi4z00, BgL_bgl_string3270za700za7za7_3522za7);
BGL_BIND_PROCEDURE(BGl_s64vectorzd2lengthzd2envz00zz__srfi4z00, BgL_bgl_za762s64vectorza7d2l3521z00);
BGL_BIND_PROCEDURE(BGl_f32vectorzd2envzd2zz__srfi4z00, BgL_bgl_za762f32vectorza762za73520za7);
BGL_BIND_PROCEDURE(BGl_u32vectorzd2refzd2envz00zz__srfi4z00, BgL_bgl_za762u32vectorza7d2r3519z00);
BGL_BIND_STRING(BGl_string3188z00zz__srfi4z00, BgL_bgl_string3188za700za7za7_3518za7);
BGL_BIND_PROCEDURE(BGl_s32vectorzd2refzd2envz00zz__srfi4z00, BgL_bgl_za762s32vectorza7d2r3517z00);
BGL_BIND_STRING(BGl_string3269z00zz__srfi4z00, BgL_bgl_string3269za700za7za7_3516za7);
BGL_BIND_STRING(BGl_string3187z00zz__srfi4z00, BgL_bgl_string3187za700za7za7_3515za7);
BGL_BIND_STRING(BGl_string3268z00zz__srfi4z00, BgL_bgl_string3268za700za7za7_3514za7);
BGL_BIND_STRING(BGl_string3349z00zz__srfi4z00, BgL_bgl_string3349za700za7za7_3513za7);
BGL_BIND_STRING(BGl_string3186z00zz__srfi4z00, BgL_bgl_string3186za700za7za7_3512za7);
BGL_BIND_STRING(BGl_string3267z00zz__srfi4z00, BgL_bgl_string3267za700za7za7_3511za7);
BGL_BIND_STRING(BGl_string3348z00zz__srfi4z00, BgL_bgl_string3348za700za7za7_3510za7);
BGL_BIND_STRING(BGl_string3185z00zz__srfi4z00, BgL_bgl_string3185za700za7za7_3509za7);
BGL_BIND_STRING(BGl_string3266z00zz__srfi4z00, BgL_bgl_string3266za700za7za7_3508za7);
BGL_BIND_STRING(BGl_string3265z00zz__srfi4z00, BgL_bgl_string3265za700za7za7_3507za7);
BGL_BIND_STRING(BGl_string3184z00zz__srfi4z00, BgL_bgl_string3184za700za7za7_3506za7);
BGL_BIND_STRING(BGl_string3346z00zz__srfi4z00, BgL_bgl_string3346za700za7za7_3505za7);
BGL_BIND_STRING(BGl_string3264z00zz__srfi4z00, BgL_bgl_string3264za700za7za7_3504za7);
BGL_BIND_STRING(BGl_string3183z00zz__srfi4z00, BgL_bgl_string3183za700za7za7_3503za7);
BGL_BIND_STRING(BGl_string3345z00zz__srfi4z00, BgL_bgl_string3345za700za7za7_3502za7);
BGL_BIND_STRING(BGl_string3263z00zz__srfi4z00, BgL_bgl_string3263za700za7za7_3501za7);
BGL_BIND_STRING(BGl_string3182z00zz__srfi4z00, BgL_bgl_string3182za700za7za7_3500za7);
BGL_BIND_STRING(BGl_string3344z00zz__srfi4z00, BgL_bgl_string3344za700za7za7_3499za7);
BGL_BIND_STRING(BGl_string3262z00zz__srfi4z00, BgL_bgl_string3262za700za7za7_3498za7);
BGL_BIND_STRING(BGl_string3181z00zz__srfi4z00, BgL_bgl_string3181za700za7za7_3497za7);
BGL_BIND_STRING(BGl_string3261z00zz__srfi4z00, BgL_bgl_string3261za700za7za7_3496za7);
BGL_BIND_STRING(BGl_string3180z00zz__srfi4z00, BgL_bgl_string3180za700za7za7_3495za7);
BGL_BIND_STRING(BGl_string3342z00zz__srfi4z00, BgL_bgl_string3342za700za7za7_3494za7);
BGL_BIND_STRING(BGl_string3260z00zz__srfi4z00, BgL_bgl_string3260za700za7za7_3493za7);
BGL_BIND_STRING(BGl_string3341z00zz__srfi4z00, BgL_bgl_string3341za700za7za7_3492za7);
BGL_BIND_STRING(BGl_string3340z00zz__srfi4z00, BgL_bgl_string3340za700za7za7_3491za7);
BGL_BIND_PROCEDURE(BGl_listzd2ze3s8vectorzd2envze3zz__srfi4z00, BgL_bgl_za762listza7d2za7e3s8v3490za7);
BGL_BIND_PROCEDURE(BGl_s64vectorzd2ze3listzd2envze3zz__srfi4z00, BgL_bgl_za762s64vectorza7d2za73489za7);
BGL_BIND_PROCEDURE(BGl_listzd2ze3u16vectorzd2envze3zz__srfi4z00, BgL_bgl_za762listza7d2za7e3u163488za7);
BGL_BIND_STRING(BGl_string3179z00zz__srfi4z00, BgL_bgl_string3179za700za7za7_3487za7);
BGL_BIND_STRING(BGl_string3259z00zz__srfi4z00, BgL_bgl_string3259za700za7za7_3486za7);
BGL_BIND_STRING(BGl_string3178z00zz__srfi4z00, BgL_bgl_string3178za700za7za7_3485za7);
BGL_BIND_STRING(BGl_string3258z00zz__srfi4z00, BgL_bgl_string3258za700za7za7_3484za7);
BGL_BIND_STRING(BGl_string3177z00zz__srfi4z00, BgL_bgl_string3177za700za7za7_3483za7);
BGL_BIND_STRING(BGl_string3257z00zz__srfi4z00, BgL_bgl_string3257za700za7za7_3482za7);
BGL_BIND_STRING(BGl_string3176z00zz__srfi4z00, BgL_bgl_string3176za700za7za7_3481za7);
BGL_BIND_STRING(BGl_string3338z00zz__srfi4z00, BgL_bgl_string3338za700za7za7_3480za7);
BGL_BIND_STRING(BGl_string3256z00zz__srfi4z00, BgL_bgl_string3256za700za7za7_3479za7);
BGL_BIND_STRING(BGl_string3175z00zz__srfi4z00, BgL_bgl_string3175za700za7za7_3478za7);
BGL_BIND_PROCEDURE(BGl_u64vectorzf3zd2envz21zz__srfi4z00, BgL_bgl_za762u64vectorza7f3za73477za7);
BGL_BIND_STRING(BGl_string3337z00zz__srfi4z00, BgL_bgl_string3337za700za7za7_3476za7);
BGL_BIND_STRING(BGl_string3255z00zz__srfi4z00, BgL_bgl_string3255za700za7za7_3475za7);
BGL_BIND_STRING(BGl_string3174z00zz__srfi4z00, BgL_bgl_string3174za700za7za7_3474za7);
BGL_BIND_STRING(BGl_string3336z00zz__srfi4z00, BgL_bgl_string3336za700za7za7_3473za7);
BGL_BIND_STRING(BGl_string3254z00zz__srfi4z00, BgL_bgl_string3254za700za7za7_3472za7);
BGL_BIND_STRING(BGl_string3173z00zz__srfi4z00, BgL_bgl_string3173za700za7za7_3471za7);
BGL_BIND_STRING(BGl_string3253z00zz__srfi4z00, BgL_bgl_string3253za700za7za7_3470za7);
BGL_BIND_STRING(BGl_string3172z00zz__srfi4z00, BgL_bgl_string3172za700za7za7_3469za7);
BGL_BIND_STRING(BGl_string3334z00zz__srfi4z00, BgL_bgl_string3334za700za7za7_3468za7);
BGL_BIND_STRING(BGl_string3252z00zz__srfi4z00, BgL_bgl_string3252za700za7za7_3467za7);
BGL_BIND_STRING(BGl_string3171z00zz__srfi4z00, BgL_bgl_string3171za700za7za7_3466za7);
BGL_BIND_PROCEDURE(BGl_s8vectorzd2lengthzd2envz00zz__srfi4z00, BgL_bgl_za762s8vectorza7d2le3465z00);
BGL_BIND_STRING(BGl_string3333z00zz__srfi4z00, BgL_bgl_string3333za700za7za7_3464za7);
BGL_BIND_STRING(BGl_string3251z00zz__srfi4z00, BgL_bgl_string3251za700za7za7_3463za7);
BGL_BIND_STRING(BGl_string3170z00zz__srfi4z00, BgL_bgl_string3170za700za7za7_3462za7);
BGL_BIND_PROCEDURE(BGl_s16vectorzf3zd2envz21zz__srfi4z00, BgL_bgl_za762s16vectorza7f3za73461za7);
BGL_BIND_STRING(BGl_string3332z00zz__srfi4z00, BgL_bgl_string3332za700za7za7_3460za7);
BGL_BIND_STRING(BGl_string3250z00zz__srfi4z00, BgL_bgl_string3250za700za7za7_3459za7);
BGL_BIND_STRING(BGl_string3330z00zz__srfi4z00, BgL_bgl_string3330za700za7za7_3458za7);
BGL_BIND_STRING(BGl_string3169z00zz__srfi4z00, BgL_bgl_string3169za700za7za7_3457za7);
BGL_BIND_STRING(BGl_string3249z00zz__srfi4z00, BgL_bgl_string3249za700za7za7_3456za7);
BGL_BIND_STRING(BGl_string3168z00zz__srfi4z00, BgL_bgl_string3168za700za7za7_3455za7);
BGL_BIND_STRING(BGl_string3248z00zz__srfi4z00, BgL_bgl_string3248za700za7za7_3454za7);
BGL_BIND_STRING(BGl_string3167z00zz__srfi4z00, BgL_bgl_string3167za700za7za7_3453za7);
BGL_BIND_STRING(BGl_string3329z00zz__srfi4z00, BgL_bgl_string3329za700za7za7_3452za7);
BGL_BIND_STRING(BGl_string3247z00zz__srfi4z00, BgL_bgl_string3247za700za7za7_3451za7);
BGL_BIND_STRING(BGl_string3166z00zz__srfi4z00, BgL_bgl_string3166za700za7za7_3450za7);
BGL_BIND_STRING(BGl_string3328z00zz__srfi4z00, BgL_bgl_string3328za700za7za7_3449za7);
BGL_BIND_STRING(BGl_string3246z00zz__srfi4z00, BgL_bgl_string3246za700za7za7_3448za7);
BGL_BIND_STRING(BGl_string3165z00zz__srfi4z00, BgL_bgl_string3165za700za7za7_3447za7);
BGL_BIND_STRING(BGl_string3164z00zz__srfi4z00, BgL_bgl_string3164za700za7za7_3446za7);
BGL_BIND_STRING(BGl_string3326z00zz__srfi4z00, BgL_bgl_string3326za700za7za7_3445za7);
BGL_BIND_STRING(BGl_string3244z00zz__srfi4z00, BgL_bgl_string3244za700za7za7_3444za7);
BGL_BIND_STRING(BGl_string3163z00zz__srfi4z00, BgL_bgl_string3163za700za7za7_3443za7);
BGL_BIND_PROCEDURE(BGl_makezd2f64vectorzd2envz00zz__srfi4z00, BgL_bgl__makeza7d2f64vecto3442za7);
BGL_BIND_STRING(BGl_string3325z00zz__srfi4z00, BgL_bgl_string3325za700za7za7_3441za7);
BGL_BIND_STRING(BGl_string3243z00zz__srfi4z00, BgL_bgl_string3243za700za7za7_3440za7);
BGL_BIND_STRING(BGl_string3162z00zz__srfi4z00, BgL_bgl_string3162za700za7za7_3439za7);
BGL_BIND_STRING(BGl_string3324z00zz__srfi4z00, BgL_bgl_string3324za700za7za7_3438za7);
BGL_BIND_STRING(BGl_string3242z00zz__srfi4z00, BgL_bgl_string3242za700za7za7_3437za7);
BGL_BIND_STRING(BGl_string3241z00zz__srfi4z00, BgL_bgl_string3241za700za7za7_3436za7);
BGL_BIND_STRING(BGl_string3160z00zz__srfi4z00, BgL_bgl_string3160za700za7za7_3435za7);
BGL_BIND_STRING(BGl_string3322z00zz__srfi4z00, BgL_bgl_string3322za700za7za7_3434za7);
BGL_BIND_STRING(BGl_string3240z00zz__srfi4z00, BgL_bgl_string3240za700za7za7_3433za7);
BGL_BIND_STRING(BGl_string3321z00zz__srfi4z00, BgL_bgl_string3321za700za7za7_3432za7);
BGL_BIND_STRING(BGl_string3320z00zz__srfi4z00, BgL_bgl_string3320za700za7za7_3431za7);
BGL_BIND_PROCEDURE(BGl_s8vectorzd2refzd2envz00zz__srfi4z00, BgL_bgl_za762s8vectorza7d2re3430z00);
BGL_BIND_PROCEDURE(BGl_f64vectorzd2setz12zd2envz12zz__srfi4z00, BgL_bgl_za762f64vectorza7d2s3429z00);
BGL_BIND_PROCEDURE(BGl_u8vectorzd2setz12zd2envz12zz__srfi4z00, BgL_bgl_za762u8vectorza7d2se3428z00);
BGL_BIND_PROCEDURE(BGl_makezd2u32vectorzd2envz00zz__srfi4z00, BgL_bgl__makeza7d2u32vecto3427za7);
BGL_BIND_PROCEDURE(BGl_s8vectorzd2setz12zd2envz12zz__srfi4z00, BgL_bgl_za762s8vectorza7d2se3426z00);
BGL_BIND_STRING(BGl_string3158z00zz__srfi4z00, BgL_bgl_string3158za700za7za7_3425za7);
BGL_BIND_STRING(BGl_string3238z00zz__srfi4z00, BgL_bgl_string3238za700za7za7_3424za7);
BGL_BIND_STRING(BGl_string3237z00zz__srfi4z00, BgL_bgl_string3237za700za7za7_3423za7);
BGL_BIND_STRING(BGl_string3156z00zz__srfi4z00, BgL_bgl_string3156za700za7za7_3422za7);
BGL_BIND_STRING(BGl_string3318z00zz__srfi4z00, BgL_bgl_string3318za700za7za7_3421za7);
BGL_BIND_STRING(BGl_string3236z00zz__srfi4z00, BgL_bgl_string3236za700za7za7_3420za7);
BGL_BIND_STRING(BGl_string3317z00zz__srfi4z00, BgL_bgl_string3317za700za7za7_3419za7);
BGL_BIND_STRING(BGl_string3235z00zz__srfi4z00, BgL_bgl_string3235za700za7za7_3418za7);
BGL_BIND_STRING(BGl_string3154z00zz__srfi4z00, BgL_bgl_string3154za700za7za7_3417za7);
BGL_BIND_STRING(BGl_string3316z00zz__srfi4z00, BgL_bgl_string3316za700za7za7_3416za7);
BGL_BIND_STRING(BGl_string3234z00zz__srfi4z00, BgL_bgl_string3234za700za7za7_3415za7);
BGL_BIND_STRING(BGl_string3152z00zz__srfi4z00, BgL_bgl_string3152za700za7za7_3414za7);
BGL_BIND_PROCEDURE(BGl_u64vectorzd2setz12zd2envz12zz__srfi4z00, BgL_bgl_za762u64vectorza7d2s3413z00);
BGL_BIND_STRING(BGl_string3314z00zz__srfi4z00, BgL_bgl_string3314za700za7za7_3412za7);
BGL_BIND_STRING(BGl_string3232z00zz__srfi4z00, BgL_bgl_string3232za700za7za7_3411za7);
BGL_BIND_PROCEDURE(BGl_s32vectorzd2envzd2zz__srfi4z00, BgL_bgl_za762s32vectorza762za73410za7);
BGL_BIND_STRING(BGl_string3313z00zz__srfi4z00, BgL_bgl_string3313za700za7za7_3409za7);
BGL_BIND_STRING(BGl_string3231z00zz__srfi4z00, BgL_bgl_string3231za700za7za7_3408za7);
BGL_BIND_STRING(BGl_string3150z00zz__srfi4z00, BgL_bgl_string3150za700za7za7_3407za7);
BGL_BIND_STRING(BGl_string3312z00zz__srfi4z00, BgL_bgl_string3312za700za7za7_3406za7);
BGL_BIND_STRING(BGl_string3230z00zz__srfi4z00, BgL_bgl_string3230za700za7za7_3405za7);
BGL_BIND_STRING(BGl_string3311z00zz__srfi4z00, BgL_bgl_string3311za700za7za7_3404za7);
BGL_BIND_STRING(BGl_string3310z00zz__srfi4z00, BgL_bgl_string3310za700za7za7_3403za7);
BGL_BIND_STRING(BGl_string3229z00zz__srfi4z00, BgL_bgl_string3229za700za7za7_3402za7);
BGL_BIND_STRING(BGl_string3148z00zz__srfi4z00, BgL_bgl_string3148za700za7za7_3401za7);
BGL_BIND_STRING(BGl_string3228z00zz__srfi4z00, BgL_bgl_string3228za700za7za7_3400za7);
BGL_BIND_STRING(BGl_string3309z00zz__srfi4z00, BgL_bgl_string3309za700za7za7_3399za7);
BGL_BIND_STRING(BGl_string3146z00zz__srfi4z00, BgL_bgl_string3146za700za7za7_3398za7);
BGL_BIND_STRING(BGl_string3308z00zz__srfi4z00, BgL_bgl_string3308za700za7za7_3397za7);
BGL_BIND_STRING(BGl_string3226z00zz__srfi4z00, BgL_bgl_string3226za700za7za7_3396za7);
BGL_BIND_STRING(BGl_string3307z00zz__srfi4z00, BgL_bgl_string3307za700za7za7_3395za7);
BGL_BIND_STRING(BGl_string3225z00zz__srfi4z00, BgL_bgl_string3225za700za7za7_3394za7);
BGL_BIND_STRING(BGl_string3144z00zz__srfi4z00, BgL_bgl_string3144za700za7za7_3393za7);
BGL_BIND_STRING(BGl_string3224z00zz__srfi4z00, BgL_bgl_string3224za700za7za7_3392za7);
BGL_BIND_STRING(BGl_string3305z00zz__srfi4z00, BgL_bgl_string3305za700za7za7_3391za7);
BGL_BIND_STRING(BGl_string3223z00zz__srfi4z00, BgL_bgl_string3223za700za7za7_3390za7);
BGL_BIND_STRING(BGl_string3142z00zz__srfi4z00, BgL_bgl_string3142za700za7za7_3389za7);
BGL_BIND_STRING(BGl_string3304z00zz__srfi4z00, BgL_bgl_string3304za700za7za7_3388za7);
BGL_BIND_STRING(BGl_string3222z00zz__srfi4z00, BgL_bgl_string3222za700za7za7_3387za7);
BGL_BIND_STRING(BGl_string3141z00zz__srfi4z00, BgL_bgl_string3141za700za7za7_3386za7);
BGL_BIND_PROCEDURE(BGl_u8vectorzd2refzd2envz00zz__srfi4z00, BgL_bgl_za762u8vectorza7d2re3385z00);
BGL_BIND_STRING(BGl_string3303z00zz__srfi4z00, BgL_bgl_string3303za700za7za7_3384za7);
BGL_BIND_STRING(BGl_string3302z00zz__srfi4z00, BgL_bgl_string3302za700za7za7_3383za7);
BGL_BIND_STRING(BGl_string3220z00zz__srfi4z00, BgL_bgl_string3220za700za7za7_3382za7);
BGL_BIND_STRING(BGl_string3301z00zz__srfi4z00, BgL_bgl_string3301za700za7za7_3381za7);
BGL_BIND_STRING(BGl_string3300z00zz__srfi4z00, BgL_bgl_string3300za700za7za7_3380za7);
BGL_BIND_PROCEDURE(BGl_f64vectorzf3zd2envz21zz__srfi4z00, BgL_bgl_za762f64vectorza7f3za73379za7);
BGL_BIND_PROCEDURE(BGl_u64vectorzd2copyz12zd2envz12zz__srfi4z00, BgL_bgl__u64vectorza7d2cop3378za7);
BGL_BIND_STRING(BGl_string3219z00zz__srfi4z00, BgL_bgl_string3219za700za7za7_3377za7);
BGL_BIND_STRING(BGl_string3218z00zz__srfi4z00, BgL_bgl_string3218za700za7za7_3376za7);
BGL_BIND_STRING(BGl_string3217z00zz__srfi4z00, BgL_bgl_string3217za700za7za7_3375za7);
BGL_BIND_STRING(BGl_string3216z00zz__srfi4z00, BgL_bgl_string3216za700za7za7_3374za7);
BGL_BIND_STRING(BGl_string3214z00zz__srfi4z00, BgL_bgl_string3214za700za7za7_3373za7);
BGL_BIND_STRING(BGl_string3213z00zz__srfi4z00, BgL_bgl_string3213za700za7za7_3372za7);
BGL_BIND_PROCEDURE(BGl_s64vectorzd2setz12zd2envz12zz__srfi4z00, BgL_bgl_za762s64vectorza7d2s3371z00);
BGL_BIND_STRING(BGl_string3212z00zz__srfi4z00, BgL_bgl_string3212za700za7za7_3370za7);
BGL_BIND_STRING(BGl_string3211z00zz__srfi4z00, BgL_bgl_string3211za700za7za7_3369za7);
BGL_BIND_STRING(BGl_string3210z00zz__srfi4z00, BgL_bgl_string3210za700za7za7_3368za7);
BGL_BIND_PROCEDURE(BGl_makezd2s64vectorzd2envz00zz__srfi4z00, BgL_bgl__makeza7d2s64vecto3367za7);
BGL_BIND_PROCEDURE(BGl_u16vectorzd2refzd2envz00zz__srfi4z00, BgL_bgl_za762u16vectorza7d2r3366z00);
BGL_BIND_PROCEDURE(BGl_s16vectorzd2refzd2envz00zz__srfi4z00, BgL_bgl_za762s16vectorza7d2r3365z00);
BGL_BIND_STRING(BGl_string3208z00zz__srfi4z00, BgL_bgl_string3208za700za7za7_3364za7);
BGL_BIND_STRING(BGl_string3207z00zz__srfi4z00, BgL_bgl_string3207za700za7za7_3363za7);
BGL_BIND_STRING(BGl_string3206z00zz__srfi4z00, BgL_bgl_string3206za700za7za7_3362za7);
BGL_BIND_STRING(BGl_string3205z00zz__srfi4z00, BgL_bgl_string3205za700za7za7_3361za7);
BGL_BIND_STRING(BGl_string3204z00zz__srfi4z00, BgL_bgl_string3204za700za7za7_3360za7);
BGL_BIND_STRING(BGl_string3202z00zz__srfi4z00, BgL_bgl_string3202za700za7za7_3359za7);
BGL_BIND_STRING(BGl_string3201z00zz__srfi4z00, BgL_bgl_string3201za700za7za7_3358za7);
BGL_BIND_PROCEDURE(BGl_f32vectorzd2copyz12zd2envz12zz__srfi4z00, BgL_bgl__f32vectorza7d2cop3357za7);
BGL_BIND_STRING(BGl_string3200z00zz__srfi4z00, BgL_bgl_string3200za700za7za7_3356za7);
BGL_BIND_PROCEDURE(BGl_u16vectorzf3zd2envz21zz__srfi4z00, BgL_bgl_za762u16vectorza7f3za73355za7);
BGL_BIND_PROCEDURE(BGl_f64vectorzd2refzd2envz00zz__srfi4z00, BgL_bgl_za762f64vectorza7d2r3354z00);
BGL_BIND_PROCEDURE(BGl_listzd2ze3f32vectorzd2envze3zz__srfi4z00, BgL_bgl_za762listza7d2za7e3f323353za7);
BGL_BIND_PROCEDURE(BGl_s64vectorzd2copyz12zd2envz12zz__srfi4z00, BgL_bgl__s64vectorza7d2cop3352za7);
BGL_BIND_PROCEDURE(BGl_makezd2s16vectorzd2envz00zz__srfi4z00, BgL_bgl__makeza7d2s16vecto3351za7);
BGL_BIND_PROCEDURE(BGl_homogeneouszd2vectorzf3zd2envzf3zz__srfi4z00, BgL_bgl_za762homogeneousza7d3350z00);
}

/* GC roots registration */
static obj_t bgl_gc_roots_register() {
#if defined( BGL_GC_ROOTS )
#define ADD_ROOT( addr ) (addr > roots_max ? roots_max = addr : (addr < roots_min ? roots_min = addr : 0))
void *roots_min = (void*)ULONG_MAX, *roots_max = 0;
ADD_ROOT( (void *)(&BGl_requirezd2initializa7ationz75zz__srfi4z00) );
ADD_ROOT( (void *)(&BGl_symbol3203z00zz__srfi4z00) );
ADD_ROOT( (void *)(&BGl_symbol3209z00zz__srfi4z00) );
ADD_ROOT( (void *)(&BGl_symbol3215z00zz__srfi4z00) );
ADD_ROOT( (void *)(&BGl_symbol3221z00zz__srfi4z00) );
ADD_ROOT( (void *)(&BGl_symbol3143z00zz__srfi4z00) );
ADD_ROOT( (void *)(&BGl_symbol3306z00zz__srfi4z00) );
ADD_ROOT( (void *)(&BGl_symbol3145z00zz__srfi4z00) );
ADD_ROOT( (void *)(&BGl_symbol3227z00zz__srfi4z00) );
ADD_ROOT( (void *)(&BGl_symbol3147z00zz__srfi4z00) );
ADD_ROOT( (void *)(&BGl_symbol3149z00zz__srfi4z00) );
ADD_ROOT( (void *)(&BGl_symbol3151z00zz__srfi4z00) );
ADD_ROOT( (void *)(&BGl_symbol3233z00zz__srfi4z00) );
ADD_ROOT( (void *)(&BGl_symbol3315z00zz__srfi4z00) );
ADD_ROOT( (void *)(&BGl_symbol3153z00zz__srfi4z00) );
ADD_ROOT( (void *)(&BGl_symbol3155z00zz__srfi4z00) );
ADD_ROOT( (void *)(&BGl_symbol3319z00zz__srfi4z00) );
ADD_ROOT( (void *)(&BGl_symbol3157z00zz__srfi4z00) );
ADD_ROOT( (void *)(&BGl_symbol3239z00zz__srfi4z00) );
ADD_ROOT( (void *)(&BGl_symbol3159z00zz__srfi4z00) );
ADD_ROOT( (void *)(&BGl_symbol3323z00zz__srfi4z00) );
ADD_ROOT( (void *)(&BGl_symbol3161z00zz__srfi4z00) );
ADD_ROOT( (void *)(&BGl_symbol3245z00zz__srfi4z00) );
ADD_ROOT( (void *)(&BGl_symbol3327z00zz__srfi4z00) );
ADD_ROOT( (void *)(&BGl_symbol3331z00zz__srfi4z00) );
ADD_ROOT( (void *)(&BGl_symbol3335z00zz__srfi4z00) );
ADD_ROOT( (void *)(&BGl_symbol3339z00zz__srfi4z00) );
ADD_ROOT( (void *)(&BGl_symbol3343z00zz__srfi4z00) );
ADD_ROOT( (void *)(&BGl_symbol3347z00zz__srfi4z00) );
ADD_ROOT( (void *)(&BGl_symbol3189z00zz__srfi4z00) );
ADD_ROOT( (void *)(&BGl_symbol3197z00zz__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_4418, char * BgL_fromz00_4419)
{
{ 
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_symbol3143z00zz__srfi4z00 = 
bstring_to_symbol(BGl_string3144z00zz__srfi4z00); 
BGl_symbol3145z00zz__srfi4z00 = 
bstring_to_symbol(BGl_string3146z00zz__srfi4z00); 
BGl_symbol3147z00zz__srfi4z00 = 
bstring_to_symbol(BGl_string3148z00zz__srfi4z00); 
BGl_symbol3149z00zz__srfi4z00 = 
bstring_to_symbol(BGl_string3150z00zz__srfi4z00); 
BGl_symbol3151z00zz__srfi4z00 = 
bstring_to_symbol(BGl_string3152z00zz__srfi4z00); 
BGl_symbol3153z00zz__srfi4z00 = 
bstring_to_symbol(BGl_string3154z00zz__srfi4z00); 
BGl_symbol3155z00zz__srfi4z00 = 
bstring_to_symbol(BGl_string3156z00zz__srfi4z00); 
BGl_symbol3157z00zz__srfi4z00 = 
bstring_to_symbol(BGl_string3158z00zz__srfi4z00); 
BGl_symbol3159z00zz__srfi4z00 = 
bstring_to_symbol(BGl_string3160z00zz__srfi4z00); 
BGl_symbol3161z00zz__srfi4z00 = 
bstring_to_symbol(BGl_string3162z00zz__srfi4z00); 
BGl_symbol3189z00zz__srfi4z00 = 
bstring_to_symbol(BGl_string3190z00zz__srfi4z00); 
BGl_symbol3197z00zz__srfi4z00 = 
bstring_to_symbol(BGl_string3198z00zz__srfi4z00); 
BGl_symbol3203z00zz__srfi4z00 = 
bstring_to_symbol(BGl_string3204z00zz__srfi4z00); 
BGl_symbol3209z00zz__srfi4z00 = 
bstring_to_symbol(BGl_string3210z00zz__srfi4z00); 
BGl_symbol3215z00zz__srfi4z00 = 
bstring_to_symbol(BGl_string3216z00zz__srfi4z00); 
BGl_symbol3221z00zz__srfi4z00 = 
bstring_to_symbol(BGl_string3222z00zz__srfi4z00); 
BGl_symbol3227z00zz__srfi4z00 = 
bstring_to_symbol(BGl_string3228z00zz__srfi4z00); 
BGl_symbol3233z00zz__srfi4z00 = 
bstring_to_symbol(BGl_string3234z00zz__srfi4z00); 
BGl_symbol3239z00zz__srfi4z00 = 
bstring_to_symbol(BGl_string3240z00zz__srfi4z00); 
BGl_symbol3245z00zz__srfi4z00 = 
bstring_to_symbol(BGl_string3246z00zz__srfi4z00); 
BGl_symbol3306z00zz__srfi4z00 = 
bstring_to_symbol(BGl_string3307z00zz__srfi4z00); 
BGl_symbol3315z00zz__srfi4z00 = 
bstring_to_symbol(BGl_string3316z00zz__srfi4z00); 
BGl_symbol3319z00zz__srfi4z00 = 
bstring_to_symbol(BGl_string3320z00zz__srfi4z00); 
BGl_symbol3323z00zz__srfi4z00 = 
bstring_to_symbol(BGl_string3324z00zz__srfi4z00); 
BGl_symbol3327z00zz__srfi4z00 = 
bstring_to_symbol(BGl_string3328z00zz__srfi4z00); 
BGl_symbol3331z00zz__srfi4z00 = 
bstring_to_symbol(BGl_string3332z00zz__srfi4z00); 
BGl_symbol3335z00zz__srfi4z00 = 
bstring_to_symbol(BGl_string3336z00zz__srfi4z00); 
BGl_symbol3339z00zz__srfi4z00 = 
bstring_to_symbol(BGl_string3340z00zz__srfi4z00); 
BGl_symbol3343z00zz__srfi4z00 = 
bstring_to_symbol(BGl_string3344z00zz__srfi4z00); 
return ( 
BGl_symbol3347z00zz__srfi4z00 = 
bstring_to_symbol(BGl_string3348z00zz__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_3040, obj_t BgL_xz00_3041)
{
{ /* Llib/srfi4.scm 569 */
return 
BGl_homogeneouszd2vectorzf3z21zz__srfi4z00(BgL_xz00_3041);} 

}



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

}



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

}



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

}



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

}



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

}



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

}



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

}



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

}



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

}



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

}



/* 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_symbol3143z00zz__srfi4z00; 
{ /* Llib/srfi4.scm 590 */
 int BgL_tmpz00_4495;
BgL_tmpz00_4495 = 
(int)(5L); 
BGL_MVALUES_NUMBER_SET(BgL_tmpz00_4495); } 
{ /* Llib/srfi4.scm 590 */
 obj_t BgL_auxz00_4500; int BgL_tmpz00_4498;
BgL_auxz00_4500 = 
BINT(1L); 
BgL_tmpz00_4498 = 
(int)(1L); 
BGL_MVALUES_VAL_SET(BgL_tmpz00_4498, BgL_auxz00_4500); } 
{ /* Llib/srfi4.scm 590 */
 int BgL_tmpz00_4503;
BgL_tmpz00_4503 = 
(int)(2L); 
BGL_MVALUES_VAL_SET(BgL_tmpz00_4503, BGl_s8vectorzd2refzd2envz00zz__srfi4z00); } 
{ /* Llib/srfi4.scm 590 */
 int BgL_tmpz00_4506;
BgL_tmpz00_4506 = 
(int)(3L); 
BGL_MVALUES_VAL_SET(BgL_tmpz00_4506, BGl_s8vectorzd2setz12zd2envz12zz__srfi4z00); } 
{ /* Llib/srfi4.scm 590 */
 int BgL_tmpz00_4509;
BgL_tmpz00_4509 = 
(int)(4L); 
BGL_MVALUES_VAL_SET(BgL_tmpz00_4509, 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_symbol3145z00zz__srfi4z00; 
{ /* Llib/srfi4.scm 592 */
 int BgL_tmpz00_4512;
BgL_tmpz00_4512 = 
(int)(5L); 
BGL_MVALUES_NUMBER_SET(BgL_tmpz00_4512); } 
{ /* Llib/srfi4.scm 592 */
 obj_t BgL_auxz00_4517; int BgL_tmpz00_4515;
BgL_auxz00_4517 = 
BINT(1L); 
BgL_tmpz00_4515 = 
(int)(1L); 
BGL_MVALUES_VAL_SET(BgL_tmpz00_4515, BgL_auxz00_4517); } 
{ /* Llib/srfi4.scm 592 */
 int BgL_tmpz00_4520;
BgL_tmpz00_4520 = 
(int)(2L); 
BGL_MVALUES_VAL_SET(BgL_tmpz00_4520, BGl_u8vectorzd2refzd2envz00zz__srfi4z00); } 
{ /* Llib/srfi4.scm 592 */
 int BgL_tmpz00_4523;
BgL_tmpz00_4523 = 
(int)(3L); 
BGL_MVALUES_VAL_SET(BgL_tmpz00_4523, BGl_u8vectorzd2setz12zd2envz12zz__srfi4z00); } 
{ /* Llib/srfi4.scm 592 */
 int BgL_tmpz00_4526;
BgL_tmpz00_4526 = 
(int)(4L); 
BGL_MVALUES_VAL_SET(BgL_tmpz00_4526, 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_symbol3147z00zz__srfi4z00; 
{ /* Llib/srfi4.scm 594 */
 int BgL_tmpz00_4529;
BgL_tmpz00_4529 = 
(int)(5L); 
BGL_MVALUES_NUMBER_SET(BgL_tmpz00_4529); } 
{ /* Llib/srfi4.scm 594 */
 obj_t BgL_auxz00_4534; int BgL_tmpz00_4532;
BgL_auxz00_4534 = 
BINT(2L); 
BgL_tmpz00_4532 = 
(int)(1L); 
BGL_MVALUES_VAL_SET(BgL_tmpz00_4532, BgL_auxz00_4534); } 
{ /* Llib/srfi4.scm 594 */
 int BgL_tmpz00_4537;
BgL_tmpz00_4537 = 
(int)(2L); 
BGL_MVALUES_VAL_SET(BgL_tmpz00_4537, BGl_s16vectorzd2refzd2envz00zz__srfi4z00); } 
{ /* Llib/srfi4.scm 594 */
 int BgL_tmpz00_4540;
BgL_tmpz00_4540 = 
(int)(3L); 
BGL_MVALUES_VAL_SET(BgL_tmpz00_4540, BGl_s16vectorzd2setz12zd2envz12zz__srfi4z00); } 
{ /* Llib/srfi4.scm 594 */
 int BgL_tmpz00_4543;
BgL_tmpz00_4543 = 
(int)(4L); 
BGL_MVALUES_VAL_SET(BgL_tmpz00_4543, 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_symbol3149z00zz__srfi4z00; 
{ /* Llib/srfi4.scm 596 */
 int BgL_tmpz00_4546;
BgL_tmpz00_4546 = 
(int)(5L); 
BGL_MVALUES_NUMBER_SET(BgL_tmpz00_4546); } 
{ /* Llib/srfi4.scm 596 */
 obj_t BgL_auxz00_4551; int BgL_tmpz00_4549;
BgL_auxz00_4551 = 
BINT(2L); 
BgL_tmpz00_4549 = 
(int)(1L); 
BGL_MVALUES_VAL_SET(BgL_tmpz00_4549, BgL_auxz00_4551); } 
{ /* Llib/srfi4.scm 596 */
 int BgL_tmpz00_4554;
BgL_tmpz00_4554 = 
(int)(2L); 
BGL_MVALUES_VAL_SET(BgL_tmpz00_4554, BGl_u16vectorzd2refzd2envz00zz__srfi4z00); } 
{ /* Llib/srfi4.scm 596 */
 int BgL_tmpz00_4557;
BgL_tmpz00_4557 = 
(int)(3L); 
BGL_MVALUES_VAL_SET(BgL_tmpz00_4557, BGl_u16vectorzd2setz12zd2envz12zz__srfi4z00); } 
{ /* Llib/srfi4.scm 596 */
 int BgL_tmpz00_4560;
BgL_tmpz00_4560 = 
(int)(4L); 
BGL_MVALUES_VAL_SET(BgL_tmpz00_4560, 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_symbol3151z00zz__srfi4z00; 
{ /* Llib/srfi4.scm 598 */
 int BgL_tmpz00_4563;
BgL_tmpz00_4563 = 
(int)(5L); 
BGL_MVALUES_NUMBER_SET(BgL_tmpz00_4563); } 
{ /* Llib/srfi4.scm 598 */
 obj_t BgL_auxz00_4568; int BgL_tmpz00_4566;
BgL_auxz00_4568 = 
BINT(4L); 
BgL_tmpz00_4566 = 
(int)(1L); 
BGL_MVALUES_VAL_SET(BgL_tmpz00_4566, BgL_auxz00_4568); } 
{ /* Llib/srfi4.scm 598 */
 int BgL_tmpz00_4571;
BgL_tmpz00_4571 = 
(int)(2L); 
BGL_MVALUES_VAL_SET(BgL_tmpz00_4571, BGl_s32vectorzd2refzd2envz00zz__srfi4z00); } 
{ /* Llib/srfi4.scm 598 */
 int BgL_tmpz00_4574;
BgL_tmpz00_4574 = 
(int)(3L); 
BGL_MVALUES_VAL_SET(BgL_tmpz00_4574, BGl_s32vectorzd2setz12zd2envz12zz__srfi4z00); } 
{ /* Llib/srfi4.scm 598 */
 int BgL_tmpz00_4577;
BgL_tmpz00_4577 = 
(int)(4L); 
BGL_MVALUES_VAL_SET(BgL_tmpz00_4577, 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_symbol3153z00zz__srfi4z00; 
{ /* Llib/srfi4.scm 600 */
 int BgL_tmpz00_4580;
BgL_tmpz00_4580 = 
(int)(5L); 
BGL_MVALUES_NUMBER_SET(BgL_tmpz00_4580); } 
{ /* Llib/srfi4.scm 600 */
 obj_t BgL_auxz00_4585; int BgL_tmpz00_4583;
BgL_auxz00_4585 = 
BINT(4L); 
BgL_tmpz00_4583 = 
(int)(1L); 
BGL_MVALUES_VAL_SET(BgL_tmpz00_4583, BgL_auxz00_4585); } 
{ /* Llib/srfi4.scm 600 */
 int BgL_tmpz00_4588;
BgL_tmpz00_4588 = 
(int)(2L); 
BGL_MVALUES_VAL_SET(BgL_tmpz00_4588, BGl_u32vectorzd2refzd2envz00zz__srfi4z00); } 
{ /* Llib/srfi4.scm 600 */
 int BgL_tmpz00_4591;
BgL_tmpz00_4591 = 
(int)(3L); 
BGL_MVALUES_VAL_SET(BgL_tmpz00_4591, BGl_u32vectorzd2setz12zd2envz12zz__srfi4z00); } 
{ /* Llib/srfi4.scm 600 */
 int BgL_tmpz00_4594;
BgL_tmpz00_4594 = 
(int)(4L); 
BGL_MVALUES_VAL_SET(BgL_tmpz00_4594, 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_symbol3155z00zz__srfi4z00; 
{ /* Llib/srfi4.scm 602 */
 int BgL_tmpz00_4597;
BgL_tmpz00_4597 = 
(int)(5L); 
BGL_MVALUES_NUMBER_SET(BgL_tmpz00_4597); } 
{ /* Llib/srfi4.scm 602 */
 obj_t BgL_auxz00_4602; int BgL_tmpz00_4600;
BgL_auxz00_4602 = 
BINT(8L); 
BgL_tmpz00_4600 = 
(int)(1L); 
BGL_MVALUES_VAL_SET(BgL_tmpz00_4600, BgL_auxz00_4602); } 
{ /* Llib/srfi4.scm 602 */
 int BgL_tmpz00_4605;
BgL_tmpz00_4605 = 
(int)(2L); 
BGL_MVALUES_VAL_SET(BgL_tmpz00_4605, BGl_s64vectorzd2refzd2envz00zz__srfi4z00); } 
{ /* Llib/srfi4.scm 602 */
 int BgL_tmpz00_4608;
BgL_tmpz00_4608 = 
(int)(3L); 
BGL_MVALUES_VAL_SET(BgL_tmpz00_4608, BGl_s64vectorzd2setz12zd2envz12zz__srfi4z00); } 
{ /* Llib/srfi4.scm 602 */
 int BgL_tmpz00_4611;
BgL_tmpz00_4611 = 
(int)(4L); 
BGL_MVALUES_VAL_SET(BgL_tmpz00_4611, 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_symbol3157z00zz__srfi4z00; 
{ /* Llib/srfi4.scm 604 */
 int BgL_tmpz00_4614;
BgL_tmpz00_4614 = 
(int)(5L); 
BGL_MVALUES_NUMBER_SET(BgL_tmpz00_4614); } 
{ /* Llib/srfi4.scm 604 */
 obj_t BgL_auxz00_4619; int BgL_tmpz00_4617;
BgL_auxz00_4619 = 
BINT(8L); 
BgL_tmpz00_4617 = 
(int)(1L); 
BGL_MVALUES_VAL_SET(BgL_tmpz00_4617, BgL_auxz00_4619); } 
{ /* Llib/srfi4.scm 604 */
 int BgL_tmpz00_4622;
BgL_tmpz00_4622 = 
(int)(2L); 
BGL_MVALUES_VAL_SET(BgL_tmpz00_4622, BGl_u64vectorzd2refzd2envz00zz__srfi4z00); } 
{ /* Llib/srfi4.scm 604 */
 int BgL_tmpz00_4625;
BgL_tmpz00_4625 = 
(int)(3L); 
BGL_MVALUES_VAL_SET(BgL_tmpz00_4625, BGl_u64vectorzd2setz12zd2envz12zz__srfi4z00); } 
{ /* Llib/srfi4.scm 604 */
 int BgL_tmpz00_4628;
BgL_tmpz00_4628 = 
(int)(4L); 
BGL_MVALUES_VAL_SET(BgL_tmpz00_4628, 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_symbol3159z00zz__srfi4z00; 
{ /* Llib/srfi4.scm 606 */
 int BgL_tmpz00_4631;
BgL_tmpz00_4631 = 
(int)(5L); 
BGL_MVALUES_NUMBER_SET(BgL_tmpz00_4631); } 
{ /* Llib/srfi4.scm 606 */
 obj_t BgL_auxz00_4636; int BgL_tmpz00_4634;
BgL_auxz00_4636 = 
BINT(4L); 
BgL_tmpz00_4634 = 
(int)(1L); 
BGL_MVALUES_VAL_SET(BgL_tmpz00_4634, BgL_auxz00_4636); } 
{ /* Llib/srfi4.scm 606 */
 int BgL_tmpz00_4639;
BgL_tmpz00_4639 = 
(int)(2L); 
BGL_MVALUES_VAL_SET(BgL_tmpz00_4639, BGl_f32vectorzd2refzd2envz00zz__srfi4z00); } 
{ /* Llib/srfi4.scm 606 */
 int BgL_tmpz00_4642;
BgL_tmpz00_4642 = 
(int)(3L); 
BGL_MVALUES_VAL_SET(BgL_tmpz00_4642, BGl_f32vectorzd2setz12zd2envz12zz__srfi4z00); } 
{ /* Llib/srfi4.scm 606 */
 int BgL_tmpz00_4645;
BgL_tmpz00_4645 = 
(int)(4L); 
BGL_MVALUES_VAL_SET(BgL_tmpz00_4645, 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_symbol3161z00zz__srfi4z00; 
{ /* Llib/srfi4.scm 608 */
 int BgL_tmpz00_4648;
BgL_tmpz00_4648 = 
(int)(5L); 
BGL_MVALUES_NUMBER_SET(BgL_tmpz00_4648); } 
{ /* Llib/srfi4.scm 608 */
 obj_t BgL_auxz00_4653; int BgL_tmpz00_4651;
BgL_auxz00_4653 = 
BINT(8L); 
BgL_tmpz00_4651 = 
(int)(1L); 
BGL_MVALUES_VAL_SET(BgL_tmpz00_4651, BgL_auxz00_4653); } 
{ /* Llib/srfi4.scm 608 */
 int BgL_tmpz00_4656;
BgL_tmpz00_4656 = 
(int)(2L); 
BGL_MVALUES_VAL_SET(BgL_tmpz00_4656, BGl_f64vectorzd2refzd2envz00zz__srfi4z00); } 
{ /* Llib/srfi4.scm 608 */
 int BgL_tmpz00_4659;
BgL_tmpz00_4659 = 
(int)(3L); 
BGL_MVALUES_VAL_SET(BgL_tmpz00_4659, BGl_f64vectorzd2setz12zd2envz12zz__srfi4z00); } 
{ /* Llib/srfi4.scm 608 */
 int BgL_tmpz00_4662;
BgL_tmpz00_4662 = 
(int)(4L); 
BGL_MVALUES_VAL_SET(BgL_tmpz00_4662, BGl_zd3flzd2envz01zz__r4_numbers_6_5_flonumz00); } 
return BgL_val0_1190z00_1393;} break;
default: 
{ /* Llib/srfi4.scm 611 */
 int BgL_arg1410z00_1398;
BgL_arg1410z00_1398 = 
BGL_HVECTOR_IDENT(BgL_oz00_14); 
return 
BGl_errorz00zz__errorz00(BGl_string3141z00zz__srfi4z00, BGl_string3142z00zz__srfi4z00, 
BINT(BgL_arg1410z00_1398));} } } }  else 
{ /* Llib/srfi4.scm 585 */
return 
BGl_bigloozd2typezd2errorz00zz__errorz00(BGl_string3141z00zz__srfi4z00, BGl_string3163z00zz__srfi4z00, BgL_oz00_14);} } 

}



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

}



/* 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_3161, obj_t BgL_xz00_3162)
{
{ /* Llib/srfi4.scm 617 */
{ /* Llib/srfi4.scm 617 */
 long BgL_tmpz00_4673;
{ /* Llib/srfi4.scm 617 */
 obj_t BgL_auxz00_4674;
if(
BGL_S8VECTORP(BgL_xz00_3162))
{ /* Llib/srfi4.scm 617 */
BgL_auxz00_4674 = BgL_xz00_3162
; }  else 
{ 
 obj_t BgL_auxz00_4677;
BgL_auxz00_4677 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(25371L), BGl_string3165z00zz__srfi4z00, BGl_string3166z00zz__srfi4z00, BgL_xz00_3162); 
FAILURE(BgL_auxz00_4677,BFALSE,BFALSE);} 
BgL_tmpz00_4673 = 
BGl_s8vectorzd2lengthzd2zz__srfi4z00(BgL_auxz00_4674); } 
return 
BINT(BgL_tmpz00_4673);} } 

}



/* 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_3163, obj_t BgL_xz00_3164)
{
{ /* Llib/srfi4.scm 618 */
{ /* Llib/srfi4.scm 618 */
 long BgL_tmpz00_4684;
{ /* Llib/srfi4.scm 618 */
 obj_t BgL_auxz00_4685;
if(
BGL_U8VECTORP(BgL_xz00_3164))
{ /* Llib/srfi4.scm 618 */
BgL_auxz00_4685 = BgL_xz00_3164
; }  else 
{ 
 obj_t BgL_auxz00_4688;
BgL_auxz00_4688 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(25427L), BGl_string3167z00zz__srfi4z00, BGl_string3168z00zz__srfi4z00, BgL_xz00_3164); 
FAILURE(BgL_auxz00_4688,BFALSE,BFALSE);} 
BgL_tmpz00_4684 = 
BGl_u8vectorzd2lengthzd2zz__srfi4z00(BgL_auxz00_4685); } 
return 
BINT(BgL_tmpz00_4684);} } 

}



/* 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_3165, obj_t BgL_xz00_3166)
{
{ /* Llib/srfi4.scm 619 */
{ /* Llib/srfi4.scm 619 */
 long BgL_tmpz00_4695;
{ /* Llib/srfi4.scm 619 */
 obj_t BgL_auxz00_4696;
if(
BGL_S16VECTORP(BgL_xz00_3166))
{ /* Llib/srfi4.scm 619 */
BgL_auxz00_4696 = BgL_xz00_3166
; }  else 
{ 
 obj_t BgL_auxz00_4699;
BgL_auxz00_4699 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(25484L), BGl_string3169z00zz__srfi4z00, BGl_string3170z00zz__srfi4z00, BgL_xz00_3166); 
FAILURE(BgL_auxz00_4699,BFALSE,BFALSE);} 
BgL_tmpz00_4695 = 
BGl_s16vectorzd2lengthzd2zz__srfi4z00(BgL_auxz00_4696); } 
return 
BINT(BgL_tmpz00_4695);} } 

}



/* 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_3167, obj_t BgL_xz00_3168)
{
{ /* Llib/srfi4.scm 620 */
{ /* Llib/srfi4.scm 620 */
 long BgL_tmpz00_4706;
{ /* Llib/srfi4.scm 620 */
 obj_t BgL_auxz00_4707;
if(
BGL_U16VECTORP(BgL_xz00_3168))
{ /* Llib/srfi4.scm 620 */
BgL_auxz00_4707 = BgL_xz00_3168
; }  else 
{ 
 obj_t BgL_auxz00_4710;
BgL_auxz00_4710 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(25541L), BGl_string3171z00zz__srfi4z00, BGl_string3172z00zz__srfi4z00, BgL_xz00_3168); 
FAILURE(BgL_auxz00_4710,BFALSE,BFALSE);} 
BgL_tmpz00_4706 = 
BGl_u16vectorzd2lengthzd2zz__srfi4z00(BgL_auxz00_4707); } 
return 
BINT(BgL_tmpz00_4706);} } 

}



/* 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_3169, obj_t BgL_xz00_3170)
{
{ /* Llib/srfi4.scm 621 */
{ /* Llib/srfi4.scm 621 */
 long BgL_tmpz00_4717;
{ /* Llib/srfi4.scm 621 */
 obj_t BgL_auxz00_4718;
if(
BGL_S32VECTORP(BgL_xz00_3170))
{ /* Llib/srfi4.scm 621 */
BgL_auxz00_4718 = BgL_xz00_3170
; }  else 
{ 
 obj_t BgL_auxz00_4721;
BgL_auxz00_4721 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(25598L), BGl_string3173z00zz__srfi4z00, BGl_string3174z00zz__srfi4z00, BgL_xz00_3170); 
FAILURE(BgL_auxz00_4721,BFALSE,BFALSE);} 
BgL_tmpz00_4717 = 
BGl_s32vectorzd2lengthzd2zz__srfi4z00(BgL_auxz00_4718); } 
return 
BINT(BgL_tmpz00_4717);} } 

}



/* 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_3171, obj_t BgL_xz00_3172)
{
{ /* Llib/srfi4.scm 622 */
{ /* Llib/srfi4.scm 622 */
 long BgL_tmpz00_4728;
{ /* Llib/srfi4.scm 622 */
 obj_t BgL_auxz00_4729;
if(
BGL_U32VECTORP(BgL_xz00_3172))
{ /* Llib/srfi4.scm 622 */
BgL_auxz00_4729 = BgL_xz00_3172
; }  else 
{ 
 obj_t BgL_auxz00_4732;
BgL_auxz00_4732 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(25655L), BGl_string3175z00zz__srfi4z00, BGl_string3176z00zz__srfi4z00, BgL_xz00_3172); 
FAILURE(BgL_auxz00_4732,BFALSE,BFALSE);} 
BgL_tmpz00_4728 = 
BGl_u32vectorzd2lengthzd2zz__srfi4z00(BgL_auxz00_4729); } 
return 
BINT(BgL_tmpz00_4728);} } 

}



/* 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_3173, obj_t BgL_xz00_3174)
{
{ /* Llib/srfi4.scm 623 */
{ /* Llib/srfi4.scm 623 */
 long BgL_tmpz00_4739;
{ /* Llib/srfi4.scm 623 */
 obj_t BgL_auxz00_4740;
if(
BGL_S64VECTORP(BgL_xz00_3174))
{ /* Llib/srfi4.scm 623 */
BgL_auxz00_4740 = BgL_xz00_3174
; }  else 
{ 
 obj_t BgL_auxz00_4743;
BgL_auxz00_4743 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(25712L), BGl_string3177z00zz__srfi4z00, BGl_string3178z00zz__srfi4z00, BgL_xz00_3174); 
FAILURE(BgL_auxz00_4743,BFALSE,BFALSE);} 
BgL_tmpz00_4739 = 
BGl_s64vectorzd2lengthzd2zz__srfi4z00(BgL_auxz00_4740); } 
return 
BINT(BgL_tmpz00_4739);} } 

}



/* 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_3175, obj_t BgL_xz00_3176)
{
{ /* Llib/srfi4.scm 624 */
{ /* Llib/srfi4.scm 624 */
 long BgL_tmpz00_4750;
{ /* Llib/srfi4.scm 624 */
 obj_t BgL_auxz00_4751;
if(
BGL_U64VECTORP(BgL_xz00_3176))
{ /* Llib/srfi4.scm 624 */
BgL_auxz00_4751 = BgL_xz00_3176
; }  else 
{ 
 obj_t BgL_auxz00_4754;
BgL_auxz00_4754 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(25769L), BGl_string3179z00zz__srfi4z00, BGl_string3180z00zz__srfi4z00, BgL_xz00_3176); 
FAILURE(BgL_auxz00_4754,BFALSE,BFALSE);} 
BgL_tmpz00_4750 = 
BGl_u64vectorzd2lengthzd2zz__srfi4z00(BgL_auxz00_4751); } 
return 
BINT(BgL_tmpz00_4750);} } 

}



/* 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_3177, obj_t BgL_xz00_3178)
{
{ /* Llib/srfi4.scm 625 */
{ /* Llib/srfi4.scm 625 */
 long BgL_tmpz00_4761;
{ /* Llib/srfi4.scm 625 */
 obj_t BgL_auxz00_4762;
if(
BGL_F32VECTORP(BgL_xz00_3178))
{ /* Llib/srfi4.scm 625 */
BgL_auxz00_4762 = BgL_xz00_3178
; }  else 
{ 
 obj_t BgL_auxz00_4765;
BgL_auxz00_4765 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(25826L), BGl_string3181z00zz__srfi4z00, BGl_string3182z00zz__srfi4z00, BgL_xz00_3178); 
FAILURE(BgL_auxz00_4765,BFALSE,BFALSE);} 
BgL_tmpz00_4761 = 
BGl_f32vectorzd2lengthzd2zz__srfi4z00(BgL_auxz00_4762); } 
return 
BINT(BgL_tmpz00_4761);} } 

}



/* 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_3179, obj_t BgL_xz00_3180)
{
{ /* Llib/srfi4.scm 626 */
{ /* Llib/srfi4.scm 626 */
 long BgL_tmpz00_4772;
{ /* Llib/srfi4.scm 626 */
 obj_t BgL_auxz00_4773;
if(
BGL_F64VECTORP(BgL_xz00_3180))
{ /* Llib/srfi4.scm 626 */
BgL_auxz00_4773 = BgL_xz00_3180
; }  else 
{ 
 obj_t BgL_auxz00_4776;
BgL_auxz00_4776 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(25883L), BGl_string3183z00zz__srfi4z00, BGl_string3184z00zz__srfi4z00, BgL_xz00_3180); 
FAILURE(BgL_auxz00_4776,BFALSE,BFALSE);} 
BgL_tmpz00_4772 = 
BGl_f64vectorzd2lengthzd2zz__srfi4z00(BgL_auxz00_4773); } 
return 
BINT(BgL_tmpz00_4772);} } 

}



/* s8vector */
BGL_EXPORTED_DEF obj_t BGl_s8vectorz00zz__srfi4z00(obj_t BgL_xz00_25)
{
{ /* Llib/srfi4.scm 637 */
{ /* Llib/srfi4.scm 637 */
 obj_t BgL_auxz00_4782;
{ /* Llib/srfi4.scm 637 */
 bool_t BgL_test3634z00_4783;
if(
PAIRP(BgL_xz00_25))
{ /* Llib/srfi4.scm 637 */
BgL_test3634z00_4783 = ((bool_t)1)
; }  else 
{ /* Llib/srfi4.scm 637 */
BgL_test3634z00_4783 = 
NULLP(BgL_xz00_25)
; } 
if(BgL_test3634z00_4783)
{ /* Llib/srfi4.scm 637 */
BgL_auxz00_4782 = BgL_xz00_25
; }  else 
{ 
 obj_t BgL_auxz00_4787;
BgL_auxz00_4787 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(26350L), BGl_string3166z00zz__srfi4z00, BGl_string3185z00zz__srfi4z00, BgL_xz00_25); 
FAILURE(BgL_auxz00_4787,BFALSE,BFALSE);} } 
return 
BGl_listzd2ze3s8vectorz31zz__srfi4z00(BgL_auxz00_4782);} } 

}



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

}



/* u8vector */
BGL_EXPORTED_DEF obj_t BGl_u8vectorz00zz__srfi4z00(obj_t BgL_xz00_26)
{
{ /* Llib/srfi4.scm 637 */
{ /* Llib/srfi4.scm 637 */
 obj_t BgL_auxz00_4793;
{ /* Llib/srfi4.scm 637 */
 bool_t BgL_test3636z00_4794;
if(
PAIRP(BgL_xz00_26))
{ /* Llib/srfi4.scm 637 */
BgL_test3636z00_4794 = ((bool_t)1)
; }  else 
{ /* Llib/srfi4.scm 637 */
BgL_test3636z00_4794 = 
NULLP(BgL_xz00_26)
; } 
if(BgL_test3636z00_4794)
{ /* Llib/srfi4.scm 637 */
BgL_auxz00_4793 = BgL_xz00_26
; }  else 
{ 
 obj_t BgL_auxz00_4798;
BgL_auxz00_4798 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(26350L), BGl_string3168z00zz__srfi4z00, BGl_string3185z00zz__srfi4z00, BgL_xz00_26); 
FAILURE(BgL_auxz00_4798,BFALSE,BFALSE);} } 
return 
BGl_listzd2ze3u8vectorz31zz__srfi4z00(BgL_auxz00_4793);} } 

}



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

}



/* s16vector */
BGL_EXPORTED_DEF obj_t BGl_s16vectorz00zz__srfi4z00(obj_t BgL_xz00_27)
{
{ /* Llib/srfi4.scm 637 */
{ /* Llib/srfi4.scm 637 */
 obj_t BgL_auxz00_4804;
{ /* Llib/srfi4.scm 637 */
 bool_t BgL_test3638z00_4805;
if(
PAIRP(BgL_xz00_27))
{ /* Llib/srfi4.scm 637 */
BgL_test3638z00_4805 = ((bool_t)1)
; }  else 
{ /* Llib/srfi4.scm 637 */
BgL_test3638z00_4805 = 
NULLP(BgL_xz00_27)
; } 
if(BgL_test3638z00_4805)
{ /* Llib/srfi4.scm 637 */
BgL_auxz00_4804 = BgL_xz00_27
; }  else 
{ 
 obj_t BgL_auxz00_4809;
BgL_auxz00_4809 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(26350L), BGl_string3170z00zz__srfi4z00, BGl_string3185z00zz__srfi4z00, BgL_xz00_27); 
FAILURE(BgL_auxz00_4809,BFALSE,BFALSE);} } 
return 
BGl_listzd2ze3s16vectorz31zz__srfi4z00(BgL_auxz00_4804);} } 

}



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

}



/* u16vector */
BGL_EXPORTED_DEF obj_t BGl_u16vectorz00zz__srfi4z00(obj_t BgL_xz00_28)
{
{ /* Llib/srfi4.scm 637 */
{ /* Llib/srfi4.scm 637 */
 obj_t BgL_auxz00_4815;
{ /* Llib/srfi4.scm 637 */
 bool_t BgL_test3640z00_4816;
if(
PAIRP(BgL_xz00_28))
{ /* Llib/srfi4.scm 637 */
BgL_test3640z00_4816 = ((bool_t)1)
; }  else 
{ /* Llib/srfi4.scm 637 */
BgL_test3640z00_4816 = 
NULLP(BgL_xz00_28)
; } 
if(BgL_test3640z00_4816)
{ /* Llib/srfi4.scm 637 */
BgL_auxz00_4815 = BgL_xz00_28
; }  else 
{ 
 obj_t BgL_auxz00_4820;
BgL_auxz00_4820 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(26350L), BGl_string3172z00zz__srfi4z00, BGl_string3185z00zz__srfi4z00, BgL_xz00_28); 
FAILURE(BgL_auxz00_4820,BFALSE,BFALSE);} } 
return 
BGl_listzd2ze3u16vectorz31zz__srfi4z00(BgL_auxz00_4815);} } 

}



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

}



/* s32vector */
BGL_EXPORTED_DEF obj_t BGl_s32vectorz00zz__srfi4z00(obj_t BgL_xz00_29)
{
{ /* Llib/srfi4.scm 637 */
{ /* Llib/srfi4.scm 637 */
 obj_t BgL_auxz00_4826;
{ /* Llib/srfi4.scm 637 */
 bool_t BgL_test3642z00_4827;
if(
PAIRP(BgL_xz00_29))
{ /* Llib/srfi4.scm 637 */
BgL_test3642z00_4827 = ((bool_t)1)
; }  else 
{ /* Llib/srfi4.scm 637 */
BgL_test3642z00_4827 = 
NULLP(BgL_xz00_29)
; } 
if(BgL_test3642z00_4827)
{ /* Llib/srfi4.scm 637 */
BgL_auxz00_4826 = BgL_xz00_29
; }  else 
{ 
 obj_t BgL_auxz00_4831;
BgL_auxz00_4831 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(26350L), BGl_string3174z00zz__srfi4z00, BGl_string3185z00zz__srfi4z00, BgL_xz00_29); 
FAILURE(BgL_auxz00_4831,BFALSE,BFALSE);} } 
return 
BGl_listzd2ze3s32vectorz31zz__srfi4z00(BgL_auxz00_4826);} } 

}



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

}



/* u32vector */
BGL_EXPORTED_DEF obj_t BGl_u32vectorz00zz__srfi4z00(obj_t BgL_xz00_30)
{
{ /* Llib/srfi4.scm 637 */
{ /* Llib/srfi4.scm 637 */
 obj_t BgL_auxz00_4837;
{ /* Llib/srfi4.scm 637 */
 bool_t BgL_test3644z00_4838;
if(
PAIRP(BgL_xz00_30))
{ /* Llib/srfi4.scm 637 */
BgL_test3644z00_4838 = ((bool_t)1)
; }  else 
{ /* Llib/srfi4.scm 637 */
BgL_test3644z00_4838 = 
NULLP(BgL_xz00_30)
; } 
if(BgL_test3644z00_4838)
{ /* Llib/srfi4.scm 637 */
BgL_auxz00_4837 = BgL_xz00_30
; }  else 
{ 
 obj_t BgL_auxz00_4842;
BgL_auxz00_4842 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(26350L), BGl_string3176z00zz__srfi4z00, BGl_string3185z00zz__srfi4z00, BgL_xz00_30); 
FAILURE(BgL_auxz00_4842,BFALSE,BFALSE);} } 
return 
BGl_listzd2ze3u32vectorz31zz__srfi4z00(BgL_auxz00_4837);} } 

}



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

}



/* s64vector */
BGL_EXPORTED_DEF obj_t BGl_s64vectorz00zz__srfi4z00(obj_t BgL_xz00_31)
{
{ /* Llib/srfi4.scm 637 */
{ /* Llib/srfi4.scm 637 */
 obj_t BgL_auxz00_4848;
{ /* Llib/srfi4.scm 637 */
 bool_t BgL_test3646z00_4849;
if(
PAIRP(BgL_xz00_31))
{ /* Llib/srfi4.scm 637 */
BgL_test3646z00_4849 = ((bool_t)1)
; }  else 
{ /* Llib/srfi4.scm 637 */
BgL_test3646z00_4849 = 
NULLP(BgL_xz00_31)
; } 
if(BgL_test3646z00_4849)
{ /* Llib/srfi4.scm 637 */
BgL_auxz00_4848 = BgL_xz00_31
; }  else 
{ 
 obj_t BgL_auxz00_4853;
BgL_auxz00_4853 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(26350L), BGl_string3178z00zz__srfi4z00, BGl_string3185z00zz__srfi4z00, BgL_xz00_31); 
FAILURE(BgL_auxz00_4853,BFALSE,BFALSE);} } 
return 
BGl_listzd2ze3s64vectorz31zz__srfi4z00(BgL_auxz00_4848);} } 

}



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

}



/* u64vector */
BGL_EXPORTED_DEF obj_t BGl_u64vectorz00zz__srfi4z00(obj_t BgL_xz00_32)
{
{ /* Llib/srfi4.scm 637 */
{ /* Llib/srfi4.scm 637 */
 obj_t BgL_auxz00_4859;
{ /* Llib/srfi4.scm 637 */
 bool_t BgL_test3648z00_4860;
if(
PAIRP(BgL_xz00_32))
{ /* Llib/srfi4.scm 637 */
BgL_test3648z00_4860 = ((bool_t)1)
; }  else 
{ /* Llib/srfi4.scm 637 */
BgL_test3648z00_4860 = 
NULLP(BgL_xz00_32)
; } 
if(BgL_test3648z00_4860)
{ /* Llib/srfi4.scm 637 */
BgL_auxz00_4859 = BgL_xz00_32
; }  else 
{ 
 obj_t BgL_auxz00_4864;
BgL_auxz00_4864 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(26350L), BGl_string3180z00zz__srfi4z00, BGl_string3185z00zz__srfi4z00, BgL_xz00_32); 
FAILURE(BgL_auxz00_4864,BFALSE,BFALSE);} } 
return 
BGl_listzd2ze3u64vectorz31zz__srfi4z00(BgL_auxz00_4859);} } 

}



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

}



/* f32vector */
BGL_EXPORTED_DEF obj_t BGl_f32vectorz00zz__srfi4z00(obj_t BgL_xz00_33)
{
{ /* Llib/srfi4.scm 637 */
{ /* Llib/srfi4.scm 637 */
 obj_t BgL_auxz00_4870;
{ /* Llib/srfi4.scm 637 */
 bool_t BgL_test3650z00_4871;
if(
PAIRP(BgL_xz00_33))
{ /* Llib/srfi4.scm 637 */
BgL_test3650z00_4871 = ((bool_t)1)
; }  else 
{ /* Llib/srfi4.scm 637 */
BgL_test3650z00_4871 = 
NULLP(BgL_xz00_33)
; } 
if(BgL_test3650z00_4871)
{ /* Llib/srfi4.scm 637 */
BgL_auxz00_4870 = BgL_xz00_33
; }  else 
{ 
 obj_t BgL_auxz00_4875;
BgL_auxz00_4875 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(26350L), BGl_string3182z00zz__srfi4z00, BGl_string3185z00zz__srfi4z00, BgL_xz00_33); 
FAILURE(BgL_auxz00_4875,BFALSE,BFALSE);} } 
return 
BGl_listzd2ze3f32vectorz31zz__srfi4z00(BgL_auxz00_4870);} } 

}



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

}



/* f64vector */
BGL_EXPORTED_DEF obj_t BGl_f64vectorz00zz__srfi4z00(obj_t BgL_xz00_34)
{
{ /* Llib/srfi4.scm 637 */
{ /* Llib/srfi4.scm 637 */
 obj_t BgL_auxz00_4881;
{ /* Llib/srfi4.scm 637 */
 bool_t BgL_test3652z00_4882;
if(
PAIRP(BgL_xz00_34))
{ /* Llib/srfi4.scm 637 */
BgL_test3652z00_4882 = ((bool_t)1)
; }  else 
{ /* Llib/srfi4.scm 637 */
BgL_test3652z00_4882 = 
NULLP(BgL_xz00_34)
; } 
if(BgL_test3652z00_4882)
{ /* Llib/srfi4.scm 637 */
BgL_auxz00_4881 = BgL_xz00_34
; }  else 
{ 
 obj_t BgL_auxz00_4886;
BgL_auxz00_4886 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(26350L), BGl_string3184z00zz__srfi4z00, BGl_string3185z00zz__srfi4z00, BgL_xz00_34); 
FAILURE(BgL_auxz00_4886,BFALSE,BFALSE);} } 
return 
BGl_listzd2ze3f64vectorz31zz__srfi4z00(BgL_auxz00_4881);} } 

}



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

}



/* _make-s8vector */
obj_t BGl__makezd2s8vectorzd2zz__srfi4z00(obj_t BgL_env1249z00_38, obj_t BgL_opt1248z00_37)
{
{ /* Llib/srfi4.scm 661 */
{ /* Llib/srfi4.scm 661 */
 obj_t BgL_g1250z00_1399;
{ 
 obj_t BgL_auxz00_4892;
if(
VECTORP(BgL_opt1248z00_37))
{ /* Llib/srfi4.scm 661 */
BgL_auxz00_4892 = BgL_opt1248z00_37
; }  else 
{ 
 obj_t BgL_auxz00_4895;
BgL_auxz00_4895 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(27216L), BGl_string3186z00zz__srfi4z00, BGl_string3187z00zz__srfi4z00, BgL_opt1248z00_37); 
FAILURE(BgL_auxz00_4895,BFALSE,BFALSE);} 
BgL_g1250z00_1399 = 
VECTOR_REF(BgL_auxz00_4892,0L); } 
{ 

{ /* Llib/srfi4.scm 661 */
 long BgL_aux1252z00_1401;
{ 
 obj_t BgL_auxz00_4900;
if(
VECTORP(BgL_opt1248z00_37))
{ /* Llib/srfi4.scm 661 */
BgL_auxz00_4900 = BgL_opt1248z00_37
; }  else 
{ 
 obj_t BgL_auxz00_4903;
BgL_auxz00_4903 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(27216L), BGl_string3186z00zz__srfi4z00, BGl_string3187z00zz__srfi4z00, BgL_opt1248z00_37); 
FAILURE(BgL_auxz00_4903,BFALSE,BFALSE);} 
BgL_aux1252z00_1401 = 
VECTOR_LENGTH(BgL_auxz00_4900); } 
switch( BgL_aux1252z00_1401) { case 1L : 

{ /* Llib/srfi4.scm 661 */

{ /* Llib/srfi4.scm 661 */
 long BgL_auxz00_4908;
{ /* Llib/srfi4.scm 661 */
 obj_t BgL_tmpz00_4909;
if(
INTEGERP(BgL_g1250z00_1399))
{ /* Llib/srfi4.scm 661 */
BgL_tmpz00_4909 = BgL_g1250z00_1399
; }  else 
{ 
 obj_t BgL_auxz00_4912;
BgL_auxz00_4912 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(27216L), BGl_string3186z00zz__srfi4z00, BGl_string3192z00zz__srfi4z00, BgL_g1250z00_1399); 
FAILURE(BgL_auxz00_4912,BFALSE,BFALSE);} 
BgL_auxz00_4908 = 
(long)CINT(BgL_tmpz00_4909); } 
return 
BGl_makezd2s8vectorzd2zz__srfi4z00(BgL_auxz00_4908, (int8_t)(0));} } break;case 2L : 

{ /* Llib/srfi4.scm 661 */
 obj_t BgL_initz00_1403;
{ 
 obj_t BgL_auxz00_4918;
if(
VECTORP(BgL_opt1248z00_37))
{ /* Llib/srfi4.scm 661 */
BgL_auxz00_4918 = BgL_opt1248z00_37
; }  else 
{ 
 obj_t BgL_auxz00_4921;
BgL_auxz00_4921 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(27216L), BGl_string3186z00zz__srfi4z00, BGl_string3187z00zz__srfi4z00, BgL_opt1248z00_37); 
FAILURE(BgL_auxz00_4921,BFALSE,BFALSE);} 
BgL_initz00_1403 = 
VECTOR_REF(BgL_auxz00_4918,1L); } 
{ /* Llib/srfi4.scm 661 */

{ /* Llib/srfi4.scm 661 */
 int8_t BgL_auxz00_4935; long BgL_auxz00_4926;
{ /* Llib/srfi4.scm 661 */
 obj_t BgL_tmpz00_4936;
if(
BGL_INT8P(BgL_initz00_1403))
{ /* Llib/srfi4.scm 661 */
BgL_tmpz00_4936 = BgL_initz00_1403
; }  else 
{ 
 obj_t BgL_auxz00_4939;
BgL_auxz00_4939 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(27216L), BGl_string3186z00zz__srfi4z00, BGl_string3193z00zz__srfi4z00, BgL_initz00_1403); 
FAILURE(BgL_auxz00_4939,BFALSE,BFALSE);} 
BgL_auxz00_4935 = 
BGL_BINT8_TO_INT8(BgL_tmpz00_4936); } 
{ /* Llib/srfi4.scm 661 */
 obj_t BgL_tmpz00_4927;
if(
INTEGERP(BgL_g1250z00_1399))
{ /* Llib/srfi4.scm 661 */
BgL_tmpz00_4927 = BgL_g1250z00_1399
; }  else 
{ 
 obj_t BgL_auxz00_4930;
BgL_auxz00_4930 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(27216L), BGl_string3186z00zz__srfi4z00, BGl_string3192z00zz__srfi4z00, BgL_g1250z00_1399); 
FAILURE(BgL_auxz00_4930,BFALSE,BFALSE);} 
BgL_auxz00_4926 = 
(long)CINT(BgL_tmpz00_4927); } 
return 
BGl_makezd2s8vectorzd2zz__srfi4z00(BgL_auxz00_4926, BgL_auxz00_4935);} } } break;
default: 
{ /* Llib/srfi4.scm 661 */
 long BgL_arg1411z00_1404;
{ 
 obj_t BgL_auxz00_4945;
if(
VECTORP(BgL_opt1248z00_37))
{ /* Llib/srfi4.scm 661 */
BgL_auxz00_4945 = BgL_opt1248z00_37
; }  else 
{ 
 obj_t BgL_auxz00_4948;
BgL_auxz00_4948 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(27216L), BGl_string3188z00zz__srfi4z00, BGl_string3187z00zz__srfi4z00, BgL_opt1248z00_37); 
FAILURE(BgL_auxz00_4948,BFALSE,BFALSE);} 
BgL_arg1411z00_1404 = 
VECTOR_LENGTH(BgL_auxz00_4945); } 
return 
BGl_errorz00zz__errorz00(BGl_symbol3189z00zz__srfi4z00, BGl_string3191z00zz__srfi4z00, 
BINT(BgL_arg1411z00_1404));} } } } } } 

}



/* 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_1405;
{ /* Llib/srfi4.scm 661 */
 int32_t BgL_tmpz00_4956;
BgL_tmpz00_4956 = 
(int32_t)(BgL_lenz00_35); 
BgL_vz00_1405 = 
BGL_ALLOC_S8VECTOR(BgL_tmpz00_4956); } 
{ 
 long BgL_iz00_2490;
BgL_iz00_2490 = 0L; 
BgL_loopz00_2489:
if(
(BgL_iz00_2490<BgL_lenz00_35))
{ /* Llib/srfi4.scm 661 */
{ /* Llib/srfi4.scm 661 */
 long BgL_l2100z00_3247;
BgL_l2100z00_3247 = 
BGL_HVECTOR_LENGTH(BgL_vz00_1405); 
if(
BOUND_CHECK(BgL_iz00_2490, BgL_l2100z00_3247))
{ /* Llib/srfi4.scm 661 */
BGL_S8VSET(BgL_vz00_1405, BgL_iz00_2490, BgL_initz00_36); }  else 
{ 
 obj_t BgL_auxz00_4965;
BgL_auxz00_4965 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(27216L), BGl_string3194z00zz__srfi4z00, BgL_vz00_1405, 
(int)(BgL_l2100z00_3247), 
(int)(BgL_iz00_2490)); 
FAILURE(BgL_auxz00_4965,BFALSE,BFALSE);} } BUNSPEC; 
{ 
 long BgL_iz00_4971;
BgL_iz00_4971 = 
(BgL_iz00_2490+1L); 
BgL_iz00_2490 = BgL_iz00_4971; 
goto BgL_loopz00_2489;} }  else 
{ /* Llib/srfi4.scm 661 */((bool_t)0); } } 
return BgL_vz00_1405;} } 

}



/* _make-u8vector */
obj_t BGl__makezd2u8vectorzd2zz__srfi4z00(obj_t BgL_env1254z00_42, obj_t BgL_opt1253z00_41)
{
{ /* Llib/srfi4.scm 662 */
{ /* Llib/srfi4.scm 662 */
 obj_t BgL_g1255z00_1412;
{ 
 obj_t BgL_auxz00_4973;
if(
VECTORP(BgL_opt1253z00_41))
{ /* Llib/srfi4.scm 662 */
BgL_auxz00_4973 = BgL_opt1253z00_41
; }  else 
{ 
 obj_t BgL_auxz00_4976;
BgL_auxz00_4976 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(27248L), BGl_string3195z00zz__srfi4z00, BGl_string3187z00zz__srfi4z00, BgL_opt1253z00_41); 
FAILURE(BgL_auxz00_4976,BFALSE,BFALSE);} 
BgL_g1255z00_1412 = 
VECTOR_REF(BgL_auxz00_4973,0L); } 
{ 

{ /* Llib/srfi4.scm 662 */
 long BgL_aux1257z00_1414;
{ 
 obj_t BgL_auxz00_4981;
if(
VECTORP(BgL_opt1253z00_41))
{ /* Llib/srfi4.scm 662 */
BgL_auxz00_4981 = BgL_opt1253z00_41
; }  else 
{ 
 obj_t BgL_auxz00_4984;
BgL_auxz00_4984 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(27248L), BGl_string3195z00zz__srfi4z00, BGl_string3187z00zz__srfi4z00, BgL_opt1253z00_41); 
FAILURE(BgL_auxz00_4984,BFALSE,BFALSE);} 
BgL_aux1257z00_1414 = 
VECTOR_LENGTH(BgL_auxz00_4981); } 
switch( BgL_aux1257z00_1414) { case 1L : 

{ /* Llib/srfi4.scm 662 */

{ /* Llib/srfi4.scm 662 */
 long BgL_auxz00_4989;
{ /* Llib/srfi4.scm 662 */
 obj_t BgL_tmpz00_4990;
if(
INTEGERP(BgL_g1255z00_1412))
{ /* Llib/srfi4.scm 662 */
BgL_tmpz00_4990 = BgL_g1255z00_1412
; }  else 
{ 
 obj_t BgL_auxz00_4993;
BgL_auxz00_4993 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(27248L), BGl_string3195z00zz__srfi4z00, BGl_string3192z00zz__srfi4z00, BgL_g1255z00_1412); 
FAILURE(BgL_auxz00_4993,BFALSE,BFALSE);} 
BgL_auxz00_4989 = 
(long)CINT(BgL_tmpz00_4990); } 
return 
BGl_makezd2u8vectorzd2zz__srfi4z00(BgL_auxz00_4989, (uint8_t)(0));} } break;case 2L : 

{ /* Llib/srfi4.scm 662 */
 obj_t BgL_initz00_1416;
{ 
 obj_t BgL_auxz00_4999;
if(
VECTORP(BgL_opt1253z00_41))
{ /* Llib/srfi4.scm 662 */
BgL_auxz00_4999 = BgL_opt1253z00_41
; }  else 
{ 
 obj_t BgL_auxz00_5002;
BgL_auxz00_5002 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(27248L), BGl_string3195z00zz__srfi4z00, BGl_string3187z00zz__srfi4z00, BgL_opt1253z00_41); 
FAILURE(BgL_auxz00_5002,BFALSE,BFALSE);} 
BgL_initz00_1416 = 
VECTOR_REF(BgL_auxz00_4999,1L); } 
{ /* Llib/srfi4.scm 662 */

{ /* Llib/srfi4.scm 662 */
 uint8_t BgL_auxz00_5016; long BgL_auxz00_5007;
{ /* Llib/srfi4.scm 662 */
 obj_t BgL_tmpz00_5017;
if(
BGL_UINT8P(BgL_initz00_1416))
{ /* Llib/srfi4.scm 662 */
BgL_tmpz00_5017 = BgL_initz00_1416
; }  else 
{ 
 obj_t BgL_auxz00_5020;
BgL_auxz00_5020 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(27248L), BGl_string3195z00zz__srfi4z00, BGl_string3199z00zz__srfi4z00, BgL_initz00_1416); 
FAILURE(BgL_auxz00_5020,BFALSE,BFALSE);} 
BgL_auxz00_5016 = 
BGL_BUINT8_TO_UINT8(BgL_tmpz00_5017); } 
{ /* Llib/srfi4.scm 662 */
 obj_t BgL_tmpz00_5008;
if(
INTEGERP(BgL_g1255z00_1412))
{ /* Llib/srfi4.scm 662 */
BgL_tmpz00_5008 = BgL_g1255z00_1412
; }  else 
{ 
 obj_t BgL_auxz00_5011;
BgL_auxz00_5011 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(27248L), BGl_string3195z00zz__srfi4z00, BGl_string3192z00zz__srfi4z00, BgL_g1255z00_1412); 
FAILURE(BgL_auxz00_5011,BFALSE,BFALSE);} 
BgL_auxz00_5007 = 
(long)CINT(BgL_tmpz00_5008); } 
return 
BGl_makezd2u8vectorzd2zz__srfi4z00(BgL_auxz00_5007, BgL_auxz00_5016);} } } break;
default: 
{ /* Llib/srfi4.scm 662 */
 long BgL_arg1415z00_1417;
{ 
 obj_t BgL_auxz00_5026;
if(
VECTORP(BgL_opt1253z00_41))
{ /* Llib/srfi4.scm 662 */
BgL_auxz00_5026 = BgL_opt1253z00_41
; }  else 
{ 
 obj_t BgL_auxz00_5029;
BgL_auxz00_5029 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(27248L), BGl_string3196z00zz__srfi4z00, BGl_string3187z00zz__srfi4z00, BgL_opt1253z00_41); 
FAILURE(BgL_auxz00_5029,BFALSE,BFALSE);} 
BgL_arg1415z00_1417 = 
VECTOR_LENGTH(BgL_auxz00_5026); } 
return 
BGl_errorz00zz__errorz00(BGl_symbol3197z00zz__srfi4z00, BGl_string3191z00zz__srfi4z00, 
BINT(BgL_arg1415z00_1417));} } } } } } 

}



/* 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_1418;
{ /* Llib/srfi4.scm 662 */
 int32_t BgL_tmpz00_5037;
BgL_tmpz00_5037 = 
(int32_t)(BgL_lenz00_39); 
BgL_vz00_1418 = 
BGL_ALLOC_U8VECTOR(BgL_tmpz00_5037); } 
{ 
 long BgL_iz00_2500;
BgL_iz00_2500 = 0L; 
BgL_loopz00_2499:
if(
(BgL_iz00_2500<BgL_lenz00_39))
{ /* Llib/srfi4.scm 662 */
{ /* Llib/srfi4.scm 662 */
 long BgL_l2104z00_3251;
BgL_l2104z00_3251 = 
BGL_HVECTOR_LENGTH(BgL_vz00_1418); 
if(
BOUND_CHECK(BgL_iz00_2500, BgL_l2104z00_3251))
{ /* Llib/srfi4.scm 662 */
BGL_U8VSET(BgL_vz00_1418, BgL_iz00_2500, BgL_initz00_40); }  else 
{ 
 obj_t BgL_auxz00_5046;
BgL_auxz00_5046 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(27248L), BGl_string3200z00zz__srfi4z00, BgL_vz00_1418, 
(int)(BgL_l2104z00_3251), 
(int)(BgL_iz00_2500)); 
FAILURE(BgL_auxz00_5046,BFALSE,BFALSE);} } BUNSPEC; 
{ 
 long BgL_iz00_5052;
BgL_iz00_5052 = 
(BgL_iz00_2500+1L); 
BgL_iz00_2500 = BgL_iz00_5052; 
goto BgL_loopz00_2499;} }  else 
{ /* Llib/srfi4.scm 662 */((bool_t)0); } } 
return BgL_vz00_1418;} } 

}



/* _make-s16vector */
obj_t BGl__makezd2s16vectorzd2zz__srfi4z00(obj_t BgL_env1259z00_46, obj_t BgL_opt1258z00_45)
{
{ /* Llib/srfi4.scm 663 */
{ /* Llib/srfi4.scm 663 */
 obj_t BgL_g1260z00_1425;
{ 
 obj_t BgL_auxz00_5054;
if(
VECTORP(BgL_opt1258z00_45))
{ /* Llib/srfi4.scm 663 */
BgL_auxz00_5054 = BgL_opt1258z00_45
; }  else 
{ 
 obj_t BgL_auxz00_5057;
BgL_auxz00_5057 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(27280L), BGl_string3201z00zz__srfi4z00, BGl_string3187z00zz__srfi4z00, BgL_opt1258z00_45); 
FAILURE(BgL_auxz00_5057,BFALSE,BFALSE);} 
BgL_g1260z00_1425 = 
VECTOR_REF(BgL_auxz00_5054,0L); } 
{ 

{ /* Llib/srfi4.scm 663 */
 long BgL_aux1262z00_1427;
{ 
 obj_t BgL_auxz00_5062;
if(
VECTORP(BgL_opt1258z00_45))
{ /* Llib/srfi4.scm 663 */
BgL_auxz00_5062 = BgL_opt1258z00_45
; }  else 
{ 
 obj_t BgL_auxz00_5065;
BgL_auxz00_5065 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(27280L), BGl_string3201z00zz__srfi4z00, BGl_string3187z00zz__srfi4z00, BgL_opt1258z00_45); 
FAILURE(BgL_auxz00_5065,BFALSE,BFALSE);} 
BgL_aux1262z00_1427 = 
VECTOR_LENGTH(BgL_auxz00_5062); } 
switch( BgL_aux1262z00_1427) { case 1L : 

{ /* Llib/srfi4.scm 663 */

{ /* Llib/srfi4.scm 663 */
 long BgL_auxz00_5070;
{ /* Llib/srfi4.scm 663 */
 obj_t BgL_tmpz00_5071;
if(
INTEGERP(BgL_g1260z00_1425))
{ /* Llib/srfi4.scm 663 */
BgL_tmpz00_5071 = BgL_g1260z00_1425
; }  else 
{ 
 obj_t BgL_auxz00_5074;
BgL_auxz00_5074 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(27280L), BGl_string3201z00zz__srfi4z00, BGl_string3192z00zz__srfi4z00, BgL_g1260z00_1425); 
FAILURE(BgL_auxz00_5074,BFALSE,BFALSE);} 
BgL_auxz00_5070 = 
(long)CINT(BgL_tmpz00_5071); } 
return 
BGl_makezd2s16vectorzd2zz__srfi4z00(BgL_auxz00_5070, (int16_t)(0));} } break;case 2L : 

{ /* Llib/srfi4.scm 663 */
 obj_t BgL_initz00_1429;
{ 
 obj_t BgL_auxz00_5080;
if(
VECTORP(BgL_opt1258z00_45))
{ /* Llib/srfi4.scm 663 */
BgL_auxz00_5080 = BgL_opt1258z00_45
; }  else 
{ 
 obj_t BgL_auxz00_5083;
BgL_auxz00_5083 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(27280L), BGl_string3201z00zz__srfi4z00, BGl_string3187z00zz__srfi4z00, BgL_opt1258z00_45); 
FAILURE(BgL_auxz00_5083,BFALSE,BFALSE);} 
BgL_initz00_1429 = 
VECTOR_REF(BgL_auxz00_5080,1L); } 
{ /* Llib/srfi4.scm 663 */

{ /* Llib/srfi4.scm 663 */
 int16_t BgL_auxz00_5097; long BgL_auxz00_5088;
{ /* Llib/srfi4.scm 663 */
 obj_t BgL_tmpz00_5098;
if(
BGL_INT16P(BgL_initz00_1429))
{ /* Llib/srfi4.scm 663 */
BgL_tmpz00_5098 = BgL_initz00_1429
; }  else 
{ 
 obj_t BgL_auxz00_5101;
BgL_auxz00_5101 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(27280L), BGl_string3201z00zz__srfi4z00, BGl_string3205z00zz__srfi4z00, BgL_initz00_1429); 
FAILURE(BgL_auxz00_5101,BFALSE,BFALSE);} 
BgL_auxz00_5097 = 
BGL_BINT16_TO_INT16(BgL_tmpz00_5098); } 
{ /* Llib/srfi4.scm 663 */
 obj_t BgL_tmpz00_5089;
if(
INTEGERP(BgL_g1260z00_1425))
{ /* Llib/srfi4.scm 663 */
BgL_tmpz00_5089 = BgL_g1260z00_1425
; }  else 
{ 
 obj_t BgL_auxz00_5092;
BgL_auxz00_5092 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(27280L), BGl_string3201z00zz__srfi4z00, BGl_string3192z00zz__srfi4z00, BgL_g1260z00_1425); 
FAILURE(BgL_auxz00_5092,BFALSE,BFALSE);} 
BgL_auxz00_5088 = 
(long)CINT(BgL_tmpz00_5089); } 
return 
BGl_makezd2s16vectorzd2zz__srfi4z00(BgL_auxz00_5088, BgL_auxz00_5097);} } } break;
default: 
{ /* Llib/srfi4.scm 663 */
 long BgL_arg1420z00_1430;
{ 
 obj_t BgL_auxz00_5107;
if(
VECTORP(BgL_opt1258z00_45))
{ /* Llib/srfi4.scm 663 */
BgL_auxz00_5107 = BgL_opt1258z00_45
; }  else 
{ 
 obj_t BgL_auxz00_5110;
BgL_auxz00_5110 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(27280L), BGl_string3202z00zz__srfi4z00, BGl_string3187z00zz__srfi4z00, BgL_opt1258z00_45); 
FAILURE(BgL_auxz00_5110,BFALSE,BFALSE);} 
BgL_arg1420z00_1430 = 
VECTOR_LENGTH(BgL_auxz00_5107); } 
return 
BGl_errorz00zz__errorz00(BGl_symbol3203z00zz__srfi4z00, BGl_string3191z00zz__srfi4z00, 
BINT(BgL_arg1420z00_1430));} } } } } } 

}



/* 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_1431;
{ /* Llib/srfi4.scm 663 */
 int32_t BgL_tmpz00_5118;
BgL_tmpz00_5118 = 
(int32_t)(BgL_lenz00_43); 
BgL_vz00_1431 = 
BGL_ALLOC_S16VECTOR(BgL_tmpz00_5118); } 
{ 
 long BgL_iz00_2510;
BgL_iz00_2510 = 0L; 
BgL_loopz00_2509:
if(
(BgL_iz00_2510<BgL_lenz00_43))
{ /* Llib/srfi4.scm 663 */
{ /* Llib/srfi4.scm 663 */
 long BgL_l2108z00_3255;
BgL_l2108z00_3255 = 
BGL_HVECTOR_LENGTH(BgL_vz00_1431); 
if(
BOUND_CHECK(BgL_iz00_2510, BgL_l2108z00_3255))
{ /* Llib/srfi4.scm 663 */
BGL_S16VSET(BgL_vz00_1431, BgL_iz00_2510, BgL_initz00_44); }  else 
{ 
 obj_t BgL_auxz00_5127;
BgL_auxz00_5127 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(27280L), BGl_string3206z00zz__srfi4z00, BgL_vz00_1431, 
(int)(BgL_l2108z00_3255), 
(int)(BgL_iz00_2510)); 
FAILURE(BgL_auxz00_5127,BFALSE,BFALSE);} } BUNSPEC; 
{ 
 long BgL_iz00_5133;
BgL_iz00_5133 = 
(BgL_iz00_2510+1L); 
BgL_iz00_2510 = BgL_iz00_5133; 
goto BgL_loopz00_2509;} }  else 
{ /* Llib/srfi4.scm 663 */((bool_t)0); } } 
return BgL_vz00_1431;} } 

}



/* _make-u16vector */
obj_t BGl__makezd2u16vectorzd2zz__srfi4z00(obj_t BgL_env1264z00_50, obj_t BgL_opt1263z00_49)
{
{ /* Llib/srfi4.scm 664 */
{ /* Llib/srfi4.scm 664 */
 obj_t BgL_g1265z00_1438;
{ 
 obj_t BgL_auxz00_5135;
if(
VECTORP(BgL_opt1263z00_49))
{ /* Llib/srfi4.scm 664 */
BgL_auxz00_5135 = BgL_opt1263z00_49
; }  else 
{ 
 obj_t BgL_auxz00_5138;
BgL_auxz00_5138 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(27314L), BGl_string3207z00zz__srfi4z00, BGl_string3187z00zz__srfi4z00, BgL_opt1263z00_49); 
FAILURE(BgL_auxz00_5138,BFALSE,BFALSE);} 
BgL_g1265z00_1438 = 
VECTOR_REF(BgL_auxz00_5135,0L); } 
{ 

{ /* Llib/srfi4.scm 664 */
 long BgL_aux1267z00_1440;
{ 
 obj_t BgL_auxz00_5143;
if(
VECTORP(BgL_opt1263z00_49))
{ /* Llib/srfi4.scm 664 */
BgL_auxz00_5143 = BgL_opt1263z00_49
; }  else 
{ 
 obj_t BgL_auxz00_5146;
BgL_auxz00_5146 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(27314L), BGl_string3207z00zz__srfi4z00, BGl_string3187z00zz__srfi4z00, BgL_opt1263z00_49); 
FAILURE(BgL_auxz00_5146,BFALSE,BFALSE);} 
BgL_aux1267z00_1440 = 
VECTOR_LENGTH(BgL_auxz00_5143); } 
switch( BgL_aux1267z00_1440) { case 1L : 

{ /* Llib/srfi4.scm 664 */

{ /* Llib/srfi4.scm 664 */
 long BgL_auxz00_5151;
{ /* Llib/srfi4.scm 664 */
 obj_t BgL_tmpz00_5152;
if(
INTEGERP(BgL_g1265z00_1438))
{ /* Llib/srfi4.scm 664 */
BgL_tmpz00_5152 = BgL_g1265z00_1438
; }  else 
{ 
 obj_t BgL_auxz00_5155;
BgL_auxz00_5155 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(27314L), BGl_string3207z00zz__srfi4z00, BGl_string3192z00zz__srfi4z00, BgL_g1265z00_1438); 
FAILURE(BgL_auxz00_5155,BFALSE,BFALSE);} 
BgL_auxz00_5151 = 
(long)CINT(BgL_tmpz00_5152); } 
return 
BGl_makezd2u16vectorzd2zz__srfi4z00(BgL_auxz00_5151, (uint16_t)(0));} } break;case 2L : 

{ /* Llib/srfi4.scm 664 */
 obj_t BgL_initz00_1442;
{ 
 obj_t BgL_auxz00_5161;
if(
VECTORP(BgL_opt1263z00_49))
{ /* Llib/srfi4.scm 664 */
BgL_auxz00_5161 = BgL_opt1263z00_49
; }  else 
{ 
 obj_t BgL_auxz00_5164;
BgL_auxz00_5164 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(27314L), BGl_string3207z00zz__srfi4z00, BGl_string3187z00zz__srfi4z00, BgL_opt1263z00_49); 
FAILURE(BgL_auxz00_5164,BFALSE,BFALSE);} 
BgL_initz00_1442 = 
VECTOR_REF(BgL_auxz00_5161,1L); } 
{ /* Llib/srfi4.scm 664 */

{ /* Llib/srfi4.scm 664 */
 uint16_t BgL_auxz00_5178; long BgL_auxz00_5169;
{ /* Llib/srfi4.scm 664 */
 obj_t BgL_tmpz00_5179;
if(
BGL_UINT16P(BgL_initz00_1442))
{ /* Llib/srfi4.scm 664 */
BgL_tmpz00_5179 = BgL_initz00_1442
; }  else 
{ 
 obj_t BgL_auxz00_5182;
BgL_auxz00_5182 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(27314L), BGl_string3207z00zz__srfi4z00, BGl_string3211z00zz__srfi4z00, BgL_initz00_1442); 
FAILURE(BgL_auxz00_5182,BFALSE,BFALSE);} 
BgL_auxz00_5178 = 
BGL_BUINT16_TO_UINT16(BgL_tmpz00_5179); } 
{ /* Llib/srfi4.scm 664 */
 obj_t BgL_tmpz00_5170;
if(
INTEGERP(BgL_g1265z00_1438))
{ /* Llib/srfi4.scm 664 */
BgL_tmpz00_5170 = BgL_g1265z00_1438
; }  else 
{ 
 obj_t BgL_auxz00_5173;
BgL_auxz00_5173 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(27314L), BGl_string3207z00zz__srfi4z00, BGl_string3192z00zz__srfi4z00, BgL_g1265z00_1438); 
FAILURE(BgL_auxz00_5173,BFALSE,BFALSE);} 
BgL_auxz00_5169 = 
(long)CINT(BgL_tmpz00_5170); } 
return 
BGl_makezd2u16vectorzd2zz__srfi4z00(BgL_auxz00_5169, BgL_auxz00_5178);} } } break;
default: 
{ /* Llib/srfi4.scm 664 */
 long BgL_arg1424z00_1443;
{ 
 obj_t BgL_auxz00_5188;
if(
VECTORP(BgL_opt1263z00_49))
{ /* Llib/srfi4.scm 664 */
BgL_auxz00_5188 = BgL_opt1263z00_49
; }  else 
{ 
 obj_t BgL_auxz00_5191;
BgL_auxz00_5191 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(27314L), BGl_string3208z00zz__srfi4z00, BGl_string3187z00zz__srfi4z00, BgL_opt1263z00_49); 
FAILURE(BgL_auxz00_5191,BFALSE,BFALSE);} 
BgL_arg1424z00_1443 = 
VECTOR_LENGTH(BgL_auxz00_5188); } 
return 
BGl_errorz00zz__errorz00(BGl_symbol3209z00zz__srfi4z00, BGl_string3191z00zz__srfi4z00, 
BINT(BgL_arg1424z00_1443));} } } } } } 

}



/* 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_1444;
{ /* Llib/srfi4.scm 664 */
 int32_t BgL_tmpz00_5199;
BgL_tmpz00_5199 = 
(int32_t)(BgL_lenz00_47); 
BgL_vz00_1444 = 
BGL_ALLOC_U16VECTOR(BgL_tmpz00_5199); } 
{ 
 long BgL_iz00_2520;
BgL_iz00_2520 = 0L; 
BgL_loopz00_2519:
if(
(BgL_iz00_2520<BgL_lenz00_47))
{ /* Llib/srfi4.scm 664 */
{ /* Llib/srfi4.scm 664 */
 long BgL_l2112z00_3259;
BgL_l2112z00_3259 = 
BGL_HVECTOR_LENGTH(BgL_vz00_1444); 
if(
BOUND_CHECK(BgL_iz00_2520, BgL_l2112z00_3259))
{ /* Llib/srfi4.scm 664 */
BGL_U16VSET(BgL_vz00_1444, BgL_iz00_2520, BgL_initz00_48); }  else 
{ 
 obj_t BgL_auxz00_5208;
BgL_auxz00_5208 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(27314L), BGl_string3212z00zz__srfi4z00, BgL_vz00_1444, 
(int)(BgL_l2112z00_3259), 
(int)(BgL_iz00_2520)); 
FAILURE(BgL_auxz00_5208,BFALSE,BFALSE);} } BUNSPEC; 
{ 
 long BgL_iz00_5214;
BgL_iz00_5214 = 
(BgL_iz00_2520+1L); 
BgL_iz00_2520 = BgL_iz00_5214; 
goto BgL_loopz00_2519;} }  else 
{ /* Llib/srfi4.scm 664 */((bool_t)0); } } 
return BgL_vz00_1444;} } 

}



/* _make-s32vector */
obj_t BGl__makezd2s32vectorzd2zz__srfi4z00(obj_t BgL_env1269z00_54, obj_t BgL_opt1268z00_53)
{
{ /* Llib/srfi4.scm 665 */
{ /* Llib/srfi4.scm 665 */
 obj_t BgL_g1270z00_1451;
{ 
 obj_t BgL_auxz00_5216;
if(
VECTORP(BgL_opt1268z00_53))
{ /* Llib/srfi4.scm 665 */
BgL_auxz00_5216 = BgL_opt1268z00_53
; }  else 
{ 
 obj_t BgL_auxz00_5219;
BgL_auxz00_5219 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(27348L), BGl_string3213z00zz__srfi4z00, BGl_string3187z00zz__srfi4z00, BgL_opt1268z00_53); 
FAILURE(BgL_auxz00_5219,BFALSE,BFALSE);} 
BgL_g1270z00_1451 = 
VECTOR_REF(BgL_auxz00_5216,0L); } 
{ 

{ /* Llib/srfi4.scm 665 */
 long BgL_aux1272z00_1453;
{ 
 obj_t BgL_auxz00_5224;
if(
VECTORP(BgL_opt1268z00_53))
{ /* Llib/srfi4.scm 665 */
BgL_auxz00_5224 = BgL_opt1268z00_53
; }  else 
{ 
 obj_t BgL_auxz00_5227;
BgL_auxz00_5227 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(27348L), BGl_string3213z00zz__srfi4z00, BGl_string3187z00zz__srfi4z00, BgL_opt1268z00_53); 
FAILURE(BgL_auxz00_5227,BFALSE,BFALSE);} 
BgL_aux1272z00_1453 = 
VECTOR_LENGTH(BgL_auxz00_5224); } 
switch( BgL_aux1272z00_1453) { case 1L : 

{ /* Llib/srfi4.scm 665 */

{ /* Llib/srfi4.scm 665 */
 long BgL_auxz00_5232;
{ /* Llib/srfi4.scm 665 */
 obj_t BgL_tmpz00_5233;
if(
INTEGERP(BgL_g1270z00_1451))
{ /* Llib/srfi4.scm 665 */
BgL_tmpz00_5233 = BgL_g1270z00_1451
; }  else 
{ 
 obj_t BgL_auxz00_5236;
BgL_auxz00_5236 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(27348L), BGl_string3213z00zz__srfi4z00, BGl_string3192z00zz__srfi4z00, BgL_g1270z00_1451); 
FAILURE(BgL_auxz00_5236,BFALSE,BFALSE);} 
BgL_auxz00_5232 = 
(long)CINT(BgL_tmpz00_5233); } 
return 
BGl_makezd2s32vectorzd2zz__srfi4z00(BgL_auxz00_5232, (int32_t)(0));} } break;case 2L : 

{ /* Llib/srfi4.scm 665 */
 obj_t BgL_initz00_1455;
{ 
 obj_t BgL_auxz00_5242;
if(
VECTORP(BgL_opt1268z00_53))
{ /* Llib/srfi4.scm 665 */
BgL_auxz00_5242 = BgL_opt1268z00_53
; }  else 
{ 
 obj_t BgL_auxz00_5245;
BgL_auxz00_5245 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(27348L), BGl_string3213z00zz__srfi4z00, BGl_string3187z00zz__srfi4z00, BgL_opt1268z00_53); 
FAILURE(BgL_auxz00_5245,BFALSE,BFALSE);} 
BgL_initz00_1455 = 
VECTOR_REF(BgL_auxz00_5242,1L); } 
{ /* Llib/srfi4.scm 665 */

{ /* Llib/srfi4.scm 665 */
 int32_t BgL_auxz00_5259; long BgL_auxz00_5250;
{ /* Llib/srfi4.scm 665 */
 obj_t BgL_tmpz00_5260;
if(
BGL_INT32P(BgL_initz00_1455))
{ /* Llib/srfi4.scm 665 */
BgL_tmpz00_5260 = BgL_initz00_1455
; }  else 
{ 
 obj_t BgL_auxz00_5263;
BgL_auxz00_5263 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(27348L), BGl_string3213z00zz__srfi4z00, BGl_string3217z00zz__srfi4z00, BgL_initz00_1455); 
FAILURE(BgL_auxz00_5263,BFALSE,BFALSE);} 
BgL_auxz00_5259 = 
BGL_BINT32_TO_INT32(BgL_tmpz00_5260); } 
{ /* Llib/srfi4.scm 665 */
 obj_t BgL_tmpz00_5251;
if(
INTEGERP(BgL_g1270z00_1451))
{ /* Llib/srfi4.scm 665 */
BgL_tmpz00_5251 = BgL_g1270z00_1451
; }  else 
{ 
 obj_t BgL_auxz00_5254;
BgL_auxz00_5254 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(27348L), BGl_string3213z00zz__srfi4z00, BGl_string3192z00zz__srfi4z00, BgL_g1270z00_1451); 
FAILURE(BgL_auxz00_5254,BFALSE,BFALSE);} 
BgL_auxz00_5250 = 
(long)CINT(BgL_tmpz00_5251); } 
return 
BGl_makezd2s32vectorzd2zz__srfi4z00(BgL_auxz00_5250, BgL_auxz00_5259);} } } break;
default: 
{ /* Llib/srfi4.scm 665 */
 long BgL_arg1428z00_1456;
{ 
 obj_t BgL_auxz00_5269;
if(
VECTORP(BgL_opt1268z00_53))
{ /* Llib/srfi4.scm 665 */
BgL_auxz00_5269 = BgL_opt1268z00_53
; }  else 
{ 
 obj_t BgL_auxz00_5272;
BgL_auxz00_5272 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(27348L), BGl_string3214z00zz__srfi4z00, BGl_string3187z00zz__srfi4z00, BgL_opt1268z00_53); 
FAILURE(BgL_auxz00_5272,BFALSE,BFALSE);} 
BgL_arg1428z00_1456 = 
VECTOR_LENGTH(BgL_auxz00_5269); } 
return 
BGl_errorz00zz__errorz00(BGl_symbol3215z00zz__srfi4z00, BGl_string3191z00zz__srfi4z00, 
BINT(BgL_arg1428z00_1456));} } } } } } 

}



/* 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_1457;
{ /* Llib/srfi4.scm 665 */
 int32_t BgL_tmpz00_5280;
BgL_tmpz00_5280 = 
(int32_t)(BgL_lenz00_51); 
BgL_vz00_1457 = 
BGL_ALLOC_S32VECTOR(BgL_tmpz00_5280); } 
{ 
 long BgL_iz00_2530;
BgL_iz00_2530 = 0L; 
BgL_loopz00_2529:
if(
(BgL_iz00_2530<BgL_lenz00_51))
{ /* Llib/srfi4.scm 665 */
{ /* Llib/srfi4.scm 665 */
 long BgL_l2116z00_3263;
BgL_l2116z00_3263 = 
BGL_HVECTOR_LENGTH(BgL_vz00_1457); 
if(
BOUND_CHECK(BgL_iz00_2530, BgL_l2116z00_3263))
{ /* Llib/srfi4.scm 665 */
BGL_S32VSET(BgL_vz00_1457, BgL_iz00_2530, BgL_initz00_52); }  else 
{ 
 obj_t BgL_auxz00_5289;
BgL_auxz00_5289 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(27348L), BGl_string3218z00zz__srfi4z00, BgL_vz00_1457, 
(int)(BgL_l2116z00_3263), 
(int)(BgL_iz00_2530)); 
FAILURE(BgL_auxz00_5289,BFALSE,BFALSE);} } BUNSPEC; 
{ 
 long BgL_iz00_5295;
BgL_iz00_5295 = 
(BgL_iz00_2530+1L); 
BgL_iz00_2530 = BgL_iz00_5295; 
goto BgL_loopz00_2529;} }  else 
{ /* Llib/srfi4.scm 665 */((bool_t)0); } } 
return BgL_vz00_1457;} } 

}



/* _make-u32vector */
obj_t BGl__makezd2u32vectorzd2zz__srfi4z00(obj_t BgL_env1274z00_58, obj_t BgL_opt1273z00_57)
{
{ /* Llib/srfi4.scm 666 */
{ /* Llib/srfi4.scm 666 */
 obj_t BgL_g1275z00_1464;
{ 
 obj_t BgL_auxz00_5297;
if(
VECTORP(BgL_opt1273z00_57))
{ /* Llib/srfi4.scm 666 */
BgL_auxz00_5297 = BgL_opt1273z00_57
; }  else 
{ 
 obj_t BgL_auxz00_5300;
BgL_auxz00_5300 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(27382L), BGl_string3219z00zz__srfi4z00, BGl_string3187z00zz__srfi4z00, BgL_opt1273z00_57); 
FAILURE(BgL_auxz00_5300,BFALSE,BFALSE);} 
BgL_g1275z00_1464 = 
VECTOR_REF(BgL_auxz00_5297,0L); } 
{ 

{ /* Llib/srfi4.scm 666 */
 long BgL_aux1277z00_1466;
{ 
 obj_t BgL_auxz00_5305;
if(
VECTORP(BgL_opt1273z00_57))
{ /* Llib/srfi4.scm 666 */
BgL_auxz00_5305 = BgL_opt1273z00_57
; }  else 
{ 
 obj_t BgL_auxz00_5308;
BgL_auxz00_5308 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(27382L), BGl_string3219z00zz__srfi4z00, BGl_string3187z00zz__srfi4z00, BgL_opt1273z00_57); 
FAILURE(BgL_auxz00_5308,BFALSE,BFALSE);} 
BgL_aux1277z00_1466 = 
VECTOR_LENGTH(BgL_auxz00_5305); } 
switch( BgL_aux1277z00_1466) { case 1L : 

{ /* Llib/srfi4.scm 666 */

{ /* Llib/srfi4.scm 666 */
 long BgL_auxz00_5313;
{ /* Llib/srfi4.scm 666 */
 obj_t BgL_tmpz00_5314;
if(
INTEGERP(BgL_g1275z00_1464))
{ /* Llib/srfi4.scm 666 */
BgL_tmpz00_5314 = BgL_g1275z00_1464
; }  else 
{ 
 obj_t BgL_auxz00_5317;
BgL_auxz00_5317 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(27382L), BGl_string3219z00zz__srfi4z00, BGl_string3192z00zz__srfi4z00, BgL_g1275z00_1464); 
FAILURE(BgL_auxz00_5317,BFALSE,BFALSE);} 
BgL_auxz00_5313 = 
(long)CINT(BgL_tmpz00_5314); } 
return 
BGl_makezd2u32vectorzd2zz__srfi4z00(BgL_auxz00_5313, (uint32_t)(0));} } break;case 2L : 

{ /* Llib/srfi4.scm 666 */
 obj_t BgL_initz00_1468;
{ 
 obj_t BgL_auxz00_5323;
if(
VECTORP(BgL_opt1273z00_57))
{ /* Llib/srfi4.scm 666 */
BgL_auxz00_5323 = BgL_opt1273z00_57
; }  else 
{ 
 obj_t BgL_auxz00_5326;
BgL_auxz00_5326 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(27382L), BGl_string3219z00zz__srfi4z00, BGl_string3187z00zz__srfi4z00, BgL_opt1273z00_57); 
FAILURE(BgL_auxz00_5326,BFALSE,BFALSE);} 
BgL_initz00_1468 = 
VECTOR_REF(BgL_auxz00_5323,1L); } 
{ /* Llib/srfi4.scm 666 */

{ /* Llib/srfi4.scm 666 */
 uint32_t BgL_auxz00_5340; long BgL_auxz00_5331;
{ /* Llib/srfi4.scm 666 */
 obj_t BgL_tmpz00_5341;
if(
BGL_UINT32P(BgL_initz00_1468))
{ /* Llib/srfi4.scm 666 */
BgL_tmpz00_5341 = BgL_initz00_1468
; }  else 
{ 
 obj_t BgL_auxz00_5344;
BgL_auxz00_5344 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(27382L), BGl_string3219z00zz__srfi4z00, BGl_string3223z00zz__srfi4z00, BgL_initz00_1468); 
FAILURE(BgL_auxz00_5344,BFALSE,BFALSE);} 
BgL_auxz00_5340 = 
BGL_BUINT32_TO_UINT32(BgL_tmpz00_5341); } 
{ /* Llib/srfi4.scm 666 */
 obj_t BgL_tmpz00_5332;
if(
INTEGERP(BgL_g1275z00_1464))
{ /* Llib/srfi4.scm 666 */
BgL_tmpz00_5332 = BgL_g1275z00_1464
; }  else 
{ 
 obj_t BgL_auxz00_5335;
BgL_auxz00_5335 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(27382L), BGl_string3219z00zz__srfi4z00, BGl_string3192z00zz__srfi4z00, BgL_g1275z00_1464); 
FAILURE(BgL_auxz00_5335,BFALSE,BFALSE);} 
BgL_auxz00_5331 = 
(long)CINT(BgL_tmpz00_5332); } 
return 
BGl_makezd2u32vectorzd2zz__srfi4z00(BgL_auxz00_5331, BgL_auxz00_5340);} } } break;
default: 
{ /* Llib/srfi4.scm 666 */
 long BgL_arg1432z00_1469;
{ 
 obj_t BgL_auxz00_5350;
if(
VECTORP(BgL_opt1273z00_57))
{ /* Llib/srfi4.scm 666 */
BgL_auxz00_5350 = BgL_opt1273z00_57
; }  else 
{ 
 obj_t BgL_auxz00_5353;
BgL_auxz00_5353 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(27382L), BGl_string3220z00zz__srfi4z00, BGl_string3187z00zz__srfi4z00, BgL_opt1273z00_57); 
FAILURE(BgL_auxz00_5353,BFALSE,BFALSE);} 
BgL_arg1432z00_1469 = 
VECTOR_LENGTH(BgL_auxz00_5350); } 
return 
BGl_errorz00zz__errorz00(BGl_symbol3221z00zz__srfi4z00, BGl_string3191z00zz__srfi4z00, 
BINT(BgL_arg1432z00_1469));} } } } } } 

}



/* 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_1470;
{ /* Llib/srfi4.scm 666 */
 int32_t BgL_tmpz00_5361;
BgL_tmpz00_5361 = 
(int32_t)(BgL_lenz00_55); 
BgL_vz00_1470 = 
BGL_ALLOC_U32VECTOR(BgL_tmpz00_5361); } 
{ 
 long BgL_iz00_2540;
BgL_iz00_2540 = 0L; 
BgL_loopz00_2539:
if(
(BgL_iz00_2540<BgL_lenz00_55))
{ /* Llib/srfi4.scm 666 */
{ /* Llib/srfi4.scm 666 */
 long BgL_l2120z00_3267;
BgL_l2120z00_3267 = 
BGL_HVECTOR_LENGTH(BgL_vz00_1470); 
if(
BOUND_CHECK(BgL_iz00_2540, BgL_l2120z00_3267))
{ /* Llib/srfi4.scm 666 */
BGL_U32VSET(BgL_vz00_1470, BgL_iz00_2540, BgL_initz00_56); }  else 
{ 
 obj_t BgL_auxz00_5370;
BgL_auxz00_5370 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(27382L), BGl_string3224z00zz__srfi4z00, BgL_vz00_1470, 
(int)(BgL_l2120z00_3267), 
(int)(BgL_iz00_2540)); 
FAILURE(BgL_auxz00_5370,BFALSE,BFALSE);} } BUNSPEC; 
{ 
 long BgL_iz00_5376;
BgL_iz00_5376 = 
(BgL_iz00_2540+1L); 
BgL_iz00_2540 = BgL_iz00_5376; 
goto BgL_loopz00_2539;} }  else 
{ /* Llib/srfi4.scm 666 */((bool_t)0); } } 
return BgL_vz00_1470;} } 

}



/* _make-s64vector */
obj_t BGl__makezd2s64vectorzd2zz__srfi4z00(obj_t BgL_env1279z00_62, obj_t BgL_opt1278z00_61)
{
{ /* Llib/srfi4.scm 667 */
{ /* Llib/srfi4.scm 667 */
 obj_t BgL_g1280z00_1477;
{ 
 obj_t BgL_auxz00_5378;
if(
VECTORP(BgL_opt1278z00_61))
{ /* Llib/srfi4.scm 667 */
BgL_auxz00_5378 = BgL_opt1278z00_61
; }  else 
{ 
 obj_t BgL_auxz00_5381;
BgL_auxz00_5381 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(27416L), BGl_string3225z00zz__srfi4z00, BGl_string3187z00zz__srfi4z00, BgL_opt1278z00_61); 
FAILURE(BgL_auxz00_5381,BFALSE,BFALSE);} 
BgL_g1280z00_1477 = 
VECTOR_REF(BgL_auxz00_5378,0L); } 
{ 

{ /* Llib/srfi4.scm 667 */
 long BgL_aux1282z00_1479;
{ 
 obj_t BgL_auxz00_5386;
if(
VECTORP(BgL_opt1278z00_61))
{ /* Llib/srfi4.scm 667 */
BgL_auxz00_5386 = BgL_opt1278z00_61
; }  else 
{ 
 obj_t BgL_auxz00_5389;
BgL_auxz00_5389 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(27416L), BGl_string3225z00zz__srfi4z00, BGl_string3187z00zz__srfi4z00, BgL_opt1278z00_61); 
FAILURE(BgL_auxz00_5389,BFALSE,BFALSE);} 
BgL_aux1282z00_1479 = 
VECTOR_LENGTH(BgL_auxz00_5386); } 
switch( BgL_aux1282z00_1479) { case 1L : 

{ /* Llib/srfi4.scm 667 */

{ /* Llib/srfi4.scm 667 */
 long BgL_auxz00_5394;
{ /* Llib/srfi4.scm 667 */
 obj_t BgL_tmpz00_5395;
if(
INTEGERP(BgL_g1280z00_1477))
{ /* Llib/srfi4.scm 667 */
BgL_tmpz00_5395 = BgL_g1280z00_1477
; }  else 
{ 
 obj_t BgL_auxz00_5398;
BgL_auxz00_5398 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(27416L), BGl_string3225z00zz__srfi4z00, BGl_string3192z00zz__srfi4z00, BgL_g1280z00_1477); 
FAILURE(BgL_auxz00_5398,BFALSE,BFALSE);} 
BgL_auxz00_5394 = 
(long)CINT(BgL_tmpz00_5395); } 
return 
BGl_makezd2s64vectorzd2zz__srfi4z00(BgL_auxz00_5394, (int64_t)(0));} } break;case 2L : 

{ /* Llib/srfi4.scm 667 */
 obj_t BgL_initz00_1481;
{ 
 obj_t BgL_auxz00_5404;
if(
VECTORP(BgL_opt1278z00_61))
{ /* Llib/srfi4.scm 667 */
BgL_auxz00_5404 = BgL_opt1278z00_61
; }  else 
{ 
 obj_t BgL_auxz00_5407;
BgL_auxz00_5407 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(27416L), BGl_string3225z00zz__srfi4z00, BGl_string3187z00zz__srfi4z00, BgL_opt1278z00_61); 
FAILURE(BgL_auxz00_5407,BFALSE,BFALSE);} 
BgL_initz00_1481 = 
VECTOR_REF(BgL_auxz00_5404,1L); } 
{ /* Llib/srfi4.scm 667 */

{ /* Llib/srfi4.scm 667 */
 int64_t BgL_auxz00_5421; long BgL_auxz00_5412;
{ /* Llib/srfi4.scm 667 */
 obj_t BgL_tmpz00_5422;
if(
BGL_INT64P(BgL_initz00_1481))
{ /* Llib/srfi4.scm 667 */
BgL_tmpz00_5422 = BgL_initz00_1481
; }  else 
{ 
 obj_t BgL_auxz00_5425;
BgL_auxz00_5425 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(27416L), BGl_string3225z00zz__srfi4z00, BGl_string3229z00zz__srfi4z00, BgL_initz00_1481); 
FAILURE(BgL_auxz00_5425,BFALSE,BFALSE);} 
BgL_auxz00_5421 = 
BGL_BINT64_TO_INT64(BgL_tmpz00_5422); } 
{ /* Llib/srfi4.scm 667 */
 obj_t BgL_tmpz00_5413;
if(
INTEGERP(BgL_g1280z00_1477))
{ /* Llib/srfi4.scm 667 */
BgL_tmpz00_5413 = BgL_g1280z00_1477
; }  else 
{ 
 obj_t BgL_auxz00_5416;
BgL_auxz00_5416 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(27416L), BGl_string3225z00zz__srfi4z00, BGl_string3192z00zz__srfi4z00, BgL_g1280z00_1477); 
FAILURE(BgL_auxz00_5416,BFALSE,BFALSE);} 
BgL_auxz00_5412 = 
(long)CINT(BgL_tmpz00_5413); } 
return 
BGl_makezd2s64vectorzd2zz__srfi4z00(BgL_auxz00_5412, BgL_auxz00_5421);} } } break;
default: 
{ /* Llib/srfi4.scm 667 */
 long BgL_arg1436z00_1482;
{ 
 obj_t BgL_auxz00_5431;
if(
VECTORP(BgL_opt1278z00_61))
{ /* Llib/srfi4.scm 667 */
BgL_auxz00_5431 = BgL_opt1278z00_61
; }  else 
{ 
 obj_t BgL_auxz00_5434;
BgL_auxz00_5434 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(27416L), BGl_string3226z00zz__srfi4z00, BGl_string3187z00zz__srfi4z00, BgL_opt1278z00_61); 
FAILURE(BgL_auxz00_5434,BFALSE,BFALSE);} 
BgL_arg1436z00_1482 = 
VECTOR_LENGTH(BgL_auxz00_5431); } 
return 
BGl_errorz00zz__errorz00(BGl_symbol3227z00zz__srfi4z00, BGl_string3191z00zz__srfi4z00, 
BINT(BgL_arg1436z00_1482));} } } } } } 

}



/* 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_1483;
{ /* Llib/srfi4.scm 667 */
 int32_t BgL_tmpz00_5442;
BgL_tmpz00_5442 = 
(int32_t)(BgL_lenz00_59); 
BgL_vz00_1483 = 
BGL_ALLOC_S64VECTOR(BgL_tmpz00_5442); } 
{ 
 long BgL_iz00_2550;
BgL_iz00_2550 = 0L; 
BgL_loopz00_2549:
if(
(BgL_iz00_2550<BgL_lenz00_59))
{ /* Llib/srfi4.scm 667 */
{ /* Llib/srfi4.scm 667 */
 long BgL_l2124z00_3271;
BgL_l2124z00_3271 = 
BGL_HVECTOR_LENGTH(BgL_vz00_1483); 
if(
BOUND_CHECK(BgL_iz00_2550, BgL_l2124z00_3271))
{ /* Llib/srfi4.scm 667 */
BGL_S64VSET(BgL_vz00_1483, BgL_iz00_2550, BgL_initz00_60); }  else 
{ 
 obj_t BgL_auxz00_5451;
BgL_auxz00_5451 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(27416L), BGl_string3230z00zz__srfi4z00, BgL_vz00_1483, 
(int)(BgL_l2124z00_3271), 
(int)(BgL_iz00_2550)); 
FAILURE(BgL_auxz00_5451,BFALSE,BFALSE);} } BUNSPEC; 
{ 
 long BgL_iz00_5457;
BgL_iz00_5457 = 
(BgL_iz00_2550+1L); 
BgL_iz00_2550 = BgL_iz00_5457; 
goto BgL_loopz00_2549;} }  else 
{ /* Llib/srfi4.scm 667 */((bool_t)0); } } 
return BgL_vz00_1483;} } 

}



/* _make-u64vector */
obj_t BGl__makezd2u64vectorzd2zz__srfi4z00(obj_t BgL_env1284z00_66, obj_t BgL_opt1283z00_65)
{
{ /* Llib/srfi4.scm 668 */
{ /* Llib/srfi4.scm 668 */
 obj_t BgL_g1285z00_1490;
{ 
 obj_t BgL_auxz00_5459;
if(
VECTORP(BgL_opt1283z00_65))
{ /* Llib/srfi4.scm 668 */
BgL_auxz00_5459 = BgL_opt1283z00_65
; }  else 
{ 
 obj_t BgL_auxz00_5462;
BgL_auxz00_5462 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(27450L), BGl_string3231z00zz__srfi4z00, BGl_string3187z00zz__srfi4z00, BgL_opt1283z00_65); 
FAILURE(BgL_auxz00_5462,BFALSE,BFALSE);} 
BgL_g1285z00_1490 = 
VECTOR_REF(BgL_auxz00_5459,0L); } 
{ 

{ /* Llib/srfi4.scm 668 */
 long BgL_aux1287z00_1492;
{ 
 obj_t BgL_auxz00_5467;
if(
VECTORP(BgL_opt1283z00_65))
{ /* Llib/srfi4.scm 668 */
BgL_auxz00_5467 = BgL_opt1283z00_65
; }  else 
{ 
 obj_t BgL_auxz00_5470;
BgL_auxz00_5470 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(27450L), BGl_string3231z00zz__srfi4z00, BGl_string3187z00zz__srfi4z00, BgL_opt1283z00_65); 
FAILURE(BgL_auxz00_5470,BFALSE,BFALSE);} 
BgL_aux1287z00_1492 = 
VECTOR_LENGTH(BgL_auxz00_5467); } 
switch( BgL_aux1287z00_1492) { case 1L : 

{ /* Llib/srfi4.scm 668 */

{ /* Llib/srfi4.scm 668 */
 long BgL_auxz00_5475;
{ /* Llib/srfi4.scm 668 */
 obj_t BgL_tmpz00_5476;
if(
INTEGERP(BgL_g1285z00_1490))
{ /* Llib/srfi4.scm 668 */
BgL_tmpz00_5476 = BgL_g1285z00_1490
; }  else 
{ 
 obj_t BgL_auxz00_5479;
BgL_auxz00_5479 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(27450L), BGl_string3231z00zz__srfi4z00, BGl_string3192z00zz__srfi4z00, BgL_g1285z00_1490); 
FAILURE(BgL_auxz00_5479,BFALSE,BFALSE);} 
BgL_auxz00_5475 = 
(long)CINT(BgL_tmpz00_5476); } 
return 
BGl_makezd2u64vectorzd2zz__srfi4z00(BgL_auxz00_5475, (uint64_t)(0));} } break;case 2L : 

{ /* Llib/srfi4.scm 668 */
 obj_t BgL_initz00_1494;
{ 
 obj_t BgL_auxz00_5485;
if(
VECTORP(BgL_opt1283z00_65))
{ /* Llib/srfi4.scm 668 */
BgL_auxz00_5485 = BgL_opt1283z00_65
; }  else 
{ 
 obj_t BgL_auxz00_5488;
BgL_auxz00_5488 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(27450L), BGl_string3231z00zz__srfi4z00, BGl_string3187z00zz__srfi4z00, BgL_opt1283z00_65); 
FAILURE(BgL_auxz00_5488,BFALSE,BFALSE);} 
BgL_initz00_1494 = 
VECTOR_REF(BgL_auxz00_5485,1L); } 
{ /* Llib/srfi4.scm 668 */

{ /* Llib/srfi4.scm 668 */
 uint64_t BgL_auxz00_5502; long BgL_auxz00_5493;
{ /* Llib/srfi4.scm 668 */
 obj_t BgL_tmpz00_5503;
if(
BGL_UINT64P(BgL_initz00_1494))
{ /* Llib/srfi4.scm 668 */
BgL_tmpz00_5503 = BgL_initz00_1494
; }  else 
{ 
 obj_t BgL_auxz00_5506;
BgL_auxz00_5506 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(27450L), BGl_string3231z00zz__srfi4z00, BGl_string3235z00zz__srfi4z00, BgL_initz00_1494); 
FAILURE(BgL_auxz00_5506,BFALSE,BFALSE);} 
BgL_auxz00_5502 = 
BGL_BINT64_TO_INT64(BgL_tmpz00_5503); } 
{ /* Llib/srfi4.scm 668 */
 obj_t BgL_tmpz00_5494;
if(
INTEGERP(BgL_g1285z00_1490))
{ /* Llib/srfi4.scm 668 */
BgL_tmpz00_5494 = BgL_g1285z00_1490
; }  else 
{ 
 obj_t BgL_auxz00_5497;
BgL_auxz00_5497 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(27450L), BGl_string3231z00zz__srfi4z00, BGl_string3192z00zz__srfi4z00, BgL_g1285z00_1490); 
FAILURE(BgL_auxz00_5497,BFALSE,BFALSE);} 
BgL_auxz00_5493 = 
(long)CINT(BgL_tmpz00_5494); } 
return 
BGl_makezd2u64vectorzd2zz__srfi4z00(BgL_auxz00_5493, BgL_auxz00_5502);} } } break;
default: 
{ /* Llib/srfi4.scm 668 */
 long BgL_arg1442z00_1495;
{ 
 obj_t BgL_auxz00_5512;
if(
VECTORP(BgL_opt1283z00_65))
{ /* Llib/srfi4.scm 668 */
BgL_auxz00_5512 = BgL_opt1283z00_65
; }  else 
{ 
 obj_t BgL_auxz00_5515;
BgL_auxz00_5515 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(27450L), BGl_string3232z00zz__srfi4z00, BGl_string3187z00zz__srfi4z00, BgL_opt1283z00_65); 
FAILURE(BgL_auxz00_5515,BFALSE,BFALSE);} 
BgL_arg1442z00_1495 = 
VECTOR_LENGTH(BgL_auxz00_5512); } 
return 
BGl_errorz00zz__errorz00(BGl_symbol3233z00zz__srfi4z00, BGl_string3191z00zz__srfi4z00, 
BINT(BgL_arg1442z00_1495));} } } } } } 

}



/* 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_1496;
{ /* Llib/srfi4.scm 668 */
 int32_t BgL_tmpz00_5523;
BgL_tmpz00_5523 = 
(int32_t)(BgL_lenz00_63); 
BgL_vz00_1496 = 
BGL_ALLOC_U64VECTOR(BgL_tmpz00_5523); } 
{ 
 long BgL_iz00_2560;
BgL_iz00_2560 = 0L; 
BgL_loopz00_2559:
if(
(BgL_iz00_2560<BgL_lenz00_63))
{ /* Llib/srfi4.scm 668 */
{ /* Llib/srfi4.scm 668 */
 long BgL_l2128z00_3275;
BgL_l2128z00_3275 = 
BGL_HVECTOR_LENGTH(BgL_vz00_1496); 
if(
BOUND_CHECK(BgL_iz00_2560, BgL_l2128z00_3275))
{ /* Llib/srfi4.scm 668 */
BGL_U64VSET(BgL_vz00_1496, BgL_iz00_2560, BgL_initz00_64); }  else 
{ 
 obj_t BgL_auxz00_5532;
BgL_auxz00_5532 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(27450L), BGl_string3236z00zz__srfi4z00, BgL_vz00_1496, 
(int)(BgL_l2128z00_3275), 
(int)(BgL_iz00_2560)); 
FAILURE(BgL_auxz00_5532,BFALSE,BFALSE);} } BUNSPEC; 
{ 
 long BgL_iz00_5538;
BgL_iz00_5538 = 
(BgL_iz00_2560+1L); 
BgL_iz00_2560 = BgL_iz00_5538; 
goto BgL_loopz00_2559;} }  else 
{ /* Llib/srfi4.scm 668 */((bool_t)0); } } 
return BgL_vz00_1496;} } 

}



/* _make-f32vector */
obj_t BGl__makezd2f32vectorzd2zz__srfi4z00(obj_t BgL_env1289z00_70, obj_t BgL_opt1288z00_69)
{
{ /* Llib/srfi4.scm 669 */
{ /* Llib/srfi4.scm 669 */
 obj_t BgL_g1290z00_1503;
{ 
 obj_t BgL_auxz00_5540;
if(
VECTORP(BgL_opt1288z00_69))
{ /* Llib/srfi4.scm 669 */
BgL_auxz00_5540 = BgL_opt1288z00_69
; }  else 
{ 
 obj_t BgL_auxz00_5543;
BgL_auxz00_5543 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(27484L), BGl_string3237z00zz__srfi4z00, BGl_string3187z00zz__srfi4z00, BgL_opt1288z00_69); 
FAILURE(BgL_auxz00_5543,BFALSE,BFALSE);} 
BgL_g1290z00_1503 = 
VECTOR_REF(BgL_auxz00_5540,0L); } 
{ 

{ /* Llib/srfi4.scm 669 */
 long BgL_aux1292z00_1505;
{ 
 obj_t BgL_auxz00_5548;
if(
VECTORP(BgL_opt1288z00_69))
{ /* Llib/srfi4.scm 669 */
BgL_auxz00_5548 = BgL_opt1288z00_69
; }  else 
{ 
 obj_t BgL_auxz00_5551;
BgL_auxz00_5551 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(27484L), BGl_string3237z00zz__srfi4z00, BGl_string3187z00zz__srfi4z00, BgL_opt1288z00_69); 
FAILURE(BgL_auxz00_5551,BFALSE,BFALSE);} 
BgL_aux1292z00_1505 = 
VECTOR_LENGTH(BgL_auxz00_5548); } 
switch( BgL_aux1292z00_1505) { case 1L : 

{ /* Llib/srfi4.scm 669 */

{ /* Llib/srfi4.scm 669 */
 long BgL_auxz00_5556;
{ /* Llib/srfi4.scm 669 */
 obj_t BgL_tmpz00_5557;
if(
INTEGERP(BgL_g1290z00_1503))
{ /* Llib/srfi4.scm 669 */
BgL_tmpz00_5557 = BgL_g1290z00_1503
; }  else 
{ 
 obj_t BgL_auxz00_5560;
BgL_auxz00_5560 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(27484L), BGl_string3237z00zz__srfi4z00, BGl_string3192z00zz__srfi4z00, BgL_g1290z00_1503); 
FAILURE(BgL_auxz00_5560,BFALSE,BFALSE);} 
BgL_auxz00_5556 = 
(long)CINT(BgL_tmpz00_5557); } 
return 
BGl_makezd2f32vectorzd2zz__srfi4z00(BgL_auxz00_5556, 
(float)(0.0));} } break;case 2L : 

{ /* Llib/srfi4.scm 669 */
 obj_t BgL_initz00_1507;
{ 
 obj_t BgL_auxz00_5567;
if(
VECTORP(BgL_opt1288z00_69))
{ /* Llib/srfi4.scm 669 */
BgL_auxz00_5567 = BgL_opt1288z00_69
; }  else 
{ 
 obj_t BgL_auxz00_5570;
BgL_auxz00_5570 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(27484L), BGl_string3237z00zz__srfi4z00, BGl_string3187z00zz__srfi4z00, BgL_opt1288z00_69); 
FAILURE(BgL_auxz00_5570,BFALSE,BFALSE);} 
BgL_initz00_1507 = 
VECTOR_REF(BgL_auxz00_5567,1L); } 
{ /* Llib/srfi4.scm 669 */

{ /* Llib/srfi4.scm 669 */
 float BgL_auxz00_5584; long BgL_auxz00_5575;
{ /* Llib/srfi4.scm 669 */
 obj_t BgL_tmpz00_5585;
if(
REALP(BgL_initz00_1507))
{ /* Llib/srfi4.scm 669 */
BgL_tmpz00_5585 = BgL_initz00_1507
; }  else 
{ 
 obj_t BgL_auxz00_5588;
BgL_auxz00_5588 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(27484L), BGl_string3237z00zz__srfi4z00, BGl_string3241z00zz__srfi4z00, BgL_initz00_1507); 
FAILURE(BgL_auxz00_5588,BFALSE,BFALSE);} 
BgL_auxz00_5584 = 
REAL_TO_FLOAT(BgL_tmpz00_5585); } 
{ /* Llib/srfi4.scm 669 */
 obj_t BgL_tmpz00_5576;
if(
INTEGERP(BgL_g1290z00_1503))
{ /* Llib/srfi4.scm 669 */
BgL_tmpz00_5576 = BgL_g1290z00_1503
; }  else 
{ 
 obj_t BgL_auxz00_5579;
BgL_auxz00_5579 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(27484L), BGl_string3237z00zz__srfi4z00, BGl_string3192z00zz__srfi4z00, BgL_g1290z00_1503); 
FAILURE(BgL_auxz00_5579,BFALSE,BFALSE);} 
BgL_auxz00_5575 = 
(long)CINT(BgL_tmpz00_5576); } 
return 
BGl_makezd2f32vectorzd2zz__srfi4z00(BgL_auxz00_5575, BgL_auxz00_5584);} } } break;
default: 
{ /* Llib/srfi4.scm 669 */
 long BgL_arg1446z00_1508;
{ 
 obj_t BgL_auxz00_5594;
if(
VECTORP(BgL_opt1288z00_69))
{ /* Llib/srfi4.scm 669 */
BgL_auxz00_5594 = BgL_opt1288z00_69
; }  else 
{ 
 obj_t BgL_auxz00_5597;
BgL_auxz00_5597 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(27484L), BGl_string3238z00zz__srfi4z00, BGl_string3187z00zz__srfi4z00, BgL_opt1288z00_69); 
FAILURE(BgL_auxz00_5597,BFALSE,BFALSE);} 
BgL_arg1446z00_1508 = 
VECTOR_LENGTH(BgL_auxz00_5594); } 
return 
BGl_errorz00zz__errorz00(BGl_symbol3239z00zz__srfi4z00, BGl_string3191z00zz__srfi4z00, 
BINT(BgL_arg1446z00_1508));} } } } } } 

}



/* 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_1509;
{ /* Llib/srfi4.scm 669 */
 int32_t BgL_tmpz00_5605;
BgL_tmpz00_5605 = 
(int32_t)(BgL_lenz00_67); 
BgL_vz00_1509 = 
BGL_ALLOC_F32VECTOR(BgL_tmpz00_5605); } 
{ 
 long BgL_iz00_2570;
BgL_iz00_2570 = 0L; 
BgL_loopz00_2569:
if(
(BgL_iz00_2570<BgL_lenz00_67))
{ /* Llib/srfi4.scm 669 */
{ /* Llib/srfi4.scm 669 */
 long BgL_l2132z00_3279;
BgL_l2132z00_3279 = 
BGL_HVECTOR_LENGTH(BgL_vz00_1509); 
if(
BOUND_CHECK(BgL_iz00_2570, BgL_l2132z00_3279))
{ /* Llib/srfi4.scm 669 */
BGL_F32VSET(BgL_vz00_1509, BgL_iz00_2570, BgL_initz00_68); }  else 
{ 
 obj_t BgL_auxz00_5614;
BgL_auxz00_5614 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(27484L), BGl_string3242z00zz__srfi4z00, BgL_vz00_1509, 
(int)(BgL_l2132z00_3279), 
(int)(BgL_iz00_2570)); 
FAILURE(BgL_auxz00_5614,BFALSE,BFALSE);} } BUNSPEC; 
{ 
 long BgL_iz00_5620;
BgL_iz00_5620 = 
(BgL_iz00_2570+1L); 
BgL_iz00_2570 = BgL_iz00_5620; 
goto BgL_loopz00_2569;} }  else 
{ /* Llib/srfi4.scm 669 */((bool_t)0); } } 
return BgL_vz00_1509;} } 

}



/* _make-f64vector */
obj_t BGl__makezd2f64vectorzd2zz__srfi4z00(obj_t BgL_env1294z00_74, obj_t BgL_opt1293z00_73)
{
{ /* Llib/srfi4.scm 670 */
{ /* Llib/srfi4.scm 670 */
 obj_t BgL_g1295z00_1516;
{ 
 obj_t BgL_auxz00_5622;
if(
VECTORP(BgL_opt1293z00_73))
{ /* Llib/srfi4.scm 670 */
BgL_auxz00_5622 = BgL_opt1293z00_73
; }  else 
{ 
 obj_t BgL_auxz00_5625;
BgL_auxz00_5625 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(27515L), BGl_string3243z00zz__srfi4z00, BGl_string3187z00zz__srfi4z00, BgL_opt1293z00_73); 
FAILURE(BgL_auxz00_5625,BFALSE,BFALSE);} 
BgL_g1295z00_1516 = 
VECTOR_REF(BgL_auxz00_5622,0L); } 
{ 

{ /* Llib/srfi4.scm 670 */
 long BgL_aux1297z00_1518;
{ 
 obj_t BgL_auxz00_5630;
if(
VECTORP(BgL_opt1293z00_73))
{ /* Llib/srfi4.scm 670 */
BgL_auxz00_5630 = BgL_opt1293z00_73
; }  else 
{ 
 obj_t BgL_auxz00_5633;
BgL_auxz00_5633 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(27515L), BGl_string3243z00zz__srfi4z00, BGl_string3187z00zz__srfi4z00, BgL_opt1293z00_73); 
FAILURE(BgL_auxz00_5633,BFALSE,BFALSE);} 
BgL_aux1297z00_1518 = 
VECTOR_LENGTH(BgL_auxz00_5630); } 
switch( BgL_aux1297z00_1518) { case 1L : 

{ /* Llib/srfi4.scm 670 */

{ /* Llib/srfi4.scm 670 */
 long BgL_auxz00_5638;
{ /* Llib/srfi4.scm 670 */
 obj_t BgL_tmpz00_5639;
if(
INTEGERP(BgL_g1295z00_1516))
{ /* Llib/srfi4.scm 670 */
BgL_tmpz00_5639 = BgL_g1295z00_1516
; }  else 
{ 
 obj_t BgL_auxz00_5642;
BgL_auxz00_5642 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(27515L), BGl_string3243z00zz__srfi4z00, BGl_string3192z00zz__srfi4z00, BgL_g1295z00_1516); 
FAILURE(BgL_auxz00_5642,BFALSE,BFALSE);} 
BgL_auxz00_5638 = 
(long)CINT(BgL_tmpz00_5639); } 
return 
BGl_makezd2f64vectorzd2zz__srfi4z00(BgL_auxz00_5638, 0.0);} } break;case 2L : 

{ /* Llib/srfi4.scm 670 */
 obj_t BgL_initz00_1520;
{ 
 obj_t BgL_auxz00_5648;
if(
VECTORP(BgL_opt1293z00_73))
{ /* Llib/srfi4.scm 670 */
BgL_auxz00_5648 = BgL_opt1293z00_73
; }  else 
{ 
 obj_t BgL_auxz00_5651;
BgL_auxz00_5651 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(27515L), BGl_string3243z00zz__srfi4z00, BGl_string3187z00zz__srfi4z00, BgL_opt1293z00_73); 
FAILURE(BgL_auxz00_5651,BFALSE,BFALSE);} 
BgL_initz00_1520 = 
VECTOR_REF(BgL_auxz00_5648,1L); } 
{ /* Llib/srfi4.scm 670 */

{ /* Llib/srfi4.scm 670 */
 double BgL_auxz00_5665; long BgL_auxz00_5656;
{ /* Llib/srfi4.scm 670 */
 obj_t BgL_tmpz00_5666;
if(
REALP(BgL_initz00_1520))
{ /* Llib/srfi4.scm 670 */
BgL_tmpz00_5666 = BgL_initz00_1520
; }  else 
{ 
 obj_t BgL_auxz00_5669;
BgL_auxz00_5669 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(27515L), BGl_string3243z00zz__srfi4z00, BGl_string3241z00zz__srfi4z00, BgL_initz00_1520); 
FAILURE(BgL_auxz00_5669,BFALSE,BFALSE);} 
BgL_auxz00_5665 = 
REAL_TO_DOUBLE(BgL_tmpz00_5666); } 
{ /* Llib/srfi4.scm 670 */
 obj_t BgL_tmpz00_5657;
if(
INTEGERP(BgL_g1295z00_1516))
{ /* Llib/srfi4.scm 670 */
BgL_tmpz00_5657 = BgL_g1295z00_1516
; }  else 
{ 
 obj_t BgL_auxz00_5660;
BgL_auxz00_5660 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(27515L), BGl_string3243z00zz__srfi4z00, BGl_string3192z00zz__srfi4z00, BgL_g1295z00_1516); 
FAILURE(BgL_auxz00_5660,BFALSE,BFALSE);} 
BgL_auxz00_5656 = 
(long)CINT(BgL_tmpz00_5657); } 
return 
BGl_makezd2f64vectorzd2zz__srfi4z00(BgL_auxz00_5656, BgL_auxz00_5665);} } } break;
default: 
{ /* Llib/srfi4.scm 670 */
 long BgL_arg1451z00_1521;
{ 
 obj_t BgL_auxz00_5675;
if(
VECTORP(BgL_opt1293z00_73))
{ /* Llib/srfi4.scm 670 */
BgL_auxz00_5675 = BgL_opt1293z00_73
; }  else 
{ 
 obj_t BgL_auxz00_5678;
BgL_auxz00_5678 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(27515L), BGl_string3244z00zz__srfi4z00, BGl_string3187z00zz__srfi4z00, BgL_opt1293z00_73); 
FAILURE(BgL_auxz00_5678,BFALSE,BFALSE);} 
BgL_arg1451z00_1521 = 
VECTOR_LENGTH(BgL_auxz00_5675); } 
return 
BGl_errorz00zz__errorz00(BGl_symbol3245z00zz__srfi4z00, BGl_string3191z00zz__srfi4z00, 
BINT(BgL_arg1451z00_1521));} } } } } } 

}



/* 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_1522;
{ /* Llib/srfi4.scm 670 */
 int32_t BgL_tmpz00_5686;
BgL_tmpz00_5686 = 
(int32_t)(BgL_lenz00_71); 
BgL_vz00_1522 = 
BGL_ALLOC_F64VECTOR(BgL_tmpz00_5686); } 
{ 
 long BgL_iz00_2580;
BgL_iz00_2580 = 0L; 
BgL_loopz00_2579:
if(
(BgL_iz00_2580<BgL_lenz00_71))
{ /* Llib/srfi4.scm 670 */
{ /* Llib/srfi4.scm 670 */
 long BgL_l2136z00_3283;
BgL_l2136z00_3283 = 
BGL_HVECTOR_LENGTH(BgL_vz00_1522); 
if(
BOUND_CHECK(BgL_iz00_2580, BgL_l2136z00_3283))
{ /* Llib/srfi4.scm 670 */
BGL_F64VSET(BgL_vz00_1522, BgL_iz00_2580, BgL_initz00_72); }  else 
{ 
 obj_t BgL_auxz00_5695;
BgL_auxz00_5695 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(27515L), BGl_string3247z00zz__srfi4z00, BgL_vz00_1522, 
(int)(BgL_l2136z00_3283), 
(int)(BgL_iz00_2580)); 
FAILURE(BgL_auxz00_5695,BFALSE,BFALSE);} } BUNSPEC; 
{ 
 long BgL_iz00_5701;
BgL_iz00_5701 = 
(BgL_iz00_2580+1L); 
BgL_iz00_2580 = BgL_iz00_5701; 
goto BgL_loopz00_2579;} }  else 
{ /* Llib/srfi4.scm 670 */((bool_t)0); } } 
return BgL_vz00_1522;} } 

}



/* 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_arg1456z00_2586;
{ /* Llib/srfi4.scm 678 */
 obj_t BgL_arg1457z00_2587;
{ /* Llib/srfi4.scm 678 */
 long BgL_arg1458z00_2588;
{ /* Llib/srfi4.scm 678 */
 long BgL_arg1460z00_2589;
BgL_arg1460z00_2589 = 
BGL_HVECTOR_LENGTH(BgL_vz00_76); 
BgL_arg1458z00_2588 = 
(BgL_arg1460z00_2589-1L); } 
{ /* Llib/srfi4.scm 678 */

BgL_arg1457z00_2587 = 
BGl_integerzd2ze3stringz31zz__r4_numbers_6_5_fixnumz00(BgL_arg1458z00_2588, 10L); } } 
BgL_arg1456z00_2586 = 
string_append_3(BGl_string3248z00zz__srfi4z00, BgL_arg1457z00_2587, BGl_string3249z00zz__srfi4z00); } 
return 
BGl_errorz00zz__errorz00(BgL_funz00_75, BgL_arg1456z00_2586, 
BINT(BgL_kz00_77));} } 

}



/* &hvector-range-error */
obj_t BGl_z62hvectorzd2rangezd2errorz62zz__srfi4z00(obj_t BgL_envz00_3201, obj_t BgL_funz00_3202, obj_t BgL_vz00_3203, obj_t BgL_kz00_3204)
{
{ /* Llib/srfi4.scm 675 */
{ /* Llib/srfi4.scm 678 */
 long BgL_auxz00_5716; obj_t BgL_auxz00_5709;
{ /* Llib/srfi4.scm 678 */
 obj_t BgL_tmpz00_5717;
if(
INTEGERP(BgL_kz00_3204))
{ /* Llib/srfi4.scm 678 */
BgL_tmpz00_5717 = BgL_kz00_3204
; }  else 
{ 
 obj_t BgL_auxz00_5720;
BgL_auxz00_5720 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(27892L), BGl_string3250z00zz__srfi4z00, BGl_string3192z00zz__srfi4z00, BgL_kz00_3204); 
FAILURE(BgL_auxz00_5720,BFALSE,BFALSE);} 
BgL_auxz00_5716 = 
(long)CINT(BgL_tmpz00_5717); } 
if(
STRINGP(BgL_funz00_3202))
{ /* Llib/srfi4.scm 678 */
BgL_auxz00_5709 = BgL_funz00_3202
; }  else 
{ 
 obj_t BgL_auxz00_5712;
BgL_auxz00_5712 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(27892L), BGl_string3250z00zz__srfi4z00, BGl_string3251z00zz__srfi4z00, BgL_funz00_3202); 
FAILURE(BgL_auxz00_5712,BFALSE,BFALSE);} 
return 
BGl_hvectorzd2rangezd2errorz00zz__srfi4z00(BgL_auxz00_5709, BgL_vz00_3203, BgL_auxz00_5716);} } 

}



/* s8vector-ref */
BGL_EXPORTED_DEF int8_t BGl_s8vectorzd2refzd2zz__srfi4z00(obj_t BgL_vz00_78, long BgL_kz00_79)
{
{ /* Llib/srfi4.scm 685 */
{ /* Llib/srfi4.scm 686 */
 long BgL_l2140z00_4328;
BgL_l2140z00_4328 = 
BGL_HVECTOR_LENGTH(BgL_vz00_78); 
if(
BOUND_CHECK(BgL_kz00_79, BgL_l2140z00_4328))
{ /* Llib/srfi4.scm 686 */
return 
BGL_S8VREF(BgL_vz00_78, BgL_kz00_79);}  else 
{ 
 obj_t BgL_auxz00_5730;
BgL_auxz00_5730 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(28196L), BGl_string3252z00zz__srfi4z00, BgL_vz00_78, 
(int)(BgL_l2140z00_4328), 
(int)(BgL_kz00_79)); 
FAILURE(BgL_auxz00_5730,BFALSE,BFALSE);} } } 

}



/* &s8vector-ref */
obj_t BGl_z62s8vectorzd2refzb0zz__srfi4z00(obj_t BgL_envz00_3064, obj_t BgL_vz00_3065, obj_t BgL_kz00_3066)
{
{ /* Llib/srfi4.scm 685 */
{ /* Llib/srfi4.scm 686 */
 int8_t BgL_tmpz00_5736;
{ /* Llib/srfi4.scm 686 */
 obj_t BgL_vz00_4329; long BgL_kz00_4330;
if(
BGL_S8VECTORP(BgL_vz00_3065))
{ /* Llib/srfi4.scm 686 */
BgL_vz00_4329 = BgL_vz00_3065; }  else 
{ 
 obj_t BgL_auxz00_5739;
BgL_auxz00_5739 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(28196L), BGl_string3253z00zz__srfi4z00, BGl_string3166z00zz__srfi4z00, BgL_vz00_3065); 
FAILURE(BgL_auxz00_5739,BFALSE,BFALSE);} 
{ /* Llib/srfi4.scm 686 */
 obj_t BgL_tmpz00_5743;
if(
INTEGERP(BgL_kz00_3066))
{ /* Llib/srfi4.scm 686 */
BgL_tmpz00_5743 = BgL_kz00_3066
; }  else 
{ 
 obj_t BgL_auxz00_5746;
BgL_auxz00_5746 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(28196L), BGl_string3253z00zz__srfi4z00, BGl_string3192z00zz__srfi4z00, BgL_kz00_3066); 
FAILURE(BgL_auxz00_5746,BFALSE,BFALSE);} 
BgL_kz00_4330 = 
(long)CINT(BgL_tmpz00_5743); } 
{ /* Llib/srfi4.scm 686 */
 long BgL_l2140z00_4331;
BgL_l2140z00_4331 = 
BGL_HVECTOR_LENGTH(BgL_vz00_4329); 
if(
BOUND_CHECK(BgL_kz00_4330, BgL_l2140z00_4331))
{ /* Llib/srfi4.scm 686 */
BgL_tmpz00_5736 = 
BGL_S8VREF(BgL_vz00_4329, BgL_kz00_4330)
; }  else 
{ 
 obj_t BgL_auxz00_5755;
BgL_auxz00_5755 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(28196L), BGl_string3252z00zz__srfi4z00, BgL_vz00_4329, 
(int)(BgL_l2140z00_4331), 
(int)(BgL_kz00_4330)); 
FAILURE(BgL_auxz00_5755,BFALSE,BFALSE);} } } 
return 
BGL_INT8_TO_BINT8(BgL_tmpz00_5736);} } 

}



/* u8vector-ref */
BGL_EXPORTED_DEF uint8_t BGl_u8vectorzd2refzd2zz__srfi4z00(obj_t BgL_vz00_80, long BgL_kz00_81)
{
{ /* Llib/srfi4.scm 688 */
{ /* Llib/srfi4.scm 689 */
 long BgL_l2144z00_4332;
BgL_l2144z00_4332 = 
BGL_HVECTOR_LENGTH(BgL_vz00_80); 
if(
BOUND_CHECK(BgL_kz00_81, BgL_l2144z00_4332))
{ /* Llib/srfi4.scm 689 */
return 
BGL_U8VREF(BgL_vz00_80, BgL_kz00_81);}  else 
{ 
 obj_t BgL_auxz00_5766;
BgL_auxz00_5766 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(28255L), BGl_string3254z00zz__srfi4z00, BgL_vz00_80, 
(int)(BgL_l2144z00_4332), 
(int)(BgL_kz00_81)); 
FAILURE(BgL_auxz00_5766,BFALSE,BFALSE);} } } 

}



/* &u8vector-ref */
obj_t BGl_z62u8vectorzd2refzb0zz__srfi4z00(obj_t BgL_envz00_3074, obj_t BgL_vz00_3075, obj_t BgL_kz00_3076)
{
{ /* Llib/srfi4.scm 688 */
{ /* Llib/srfi4.scm 689 */
 uint8_t BgL_tmpz00_5772;
{ /* Llib/srfi4.scm 689 */
 obj_t BgL_vz00_4333; long BgL_kz00_4334;
if(
BGL_U8VECTORP(BgL_vz00_3075))
{ /* Llib/srfi4.scm 689 */
BgL_vz00_4333 = BgL_vz00_3075; }  else 
{ 
 obj_t BgL_auxz00_5775;
BgL_auxz00_5775 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(28255L), BGl_string3255z00zz__srfi4z00, BGl_string3168z00zz__srfi4z00, BgL_vz00_3075); 
FAILURE(BgL_auxz00_5775,BFALSE,BFALSE);} 
{ /* Llib/srfi4.scm 689 */
 obj_t BgL_tmpz00_5779;
if(
INTEGERP(BgL_kz00_3076))
{ /* Llib/srfi4.scm 689 */
BgL_tmpz00_5779 = BgL_kz00_3076
; }  else 
{ 
 obj_t BgL_auxz00_5782;
BgL_auxz00_5782 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(28255L), BGl_string3255z00zz__srfi4z00, BGl_string3192z00zz__srfi4z00, BgL_kz00_3076); 
FAILURE(BgL_auxz00_5782,BFALSE,BFALSE);} 
BgL_kz00_4334 = 
(long)CINT(BgL_tmpz00_5779); } 
{ /* Llib/srfi4.scm 689 */
 long BgL_l2144z00_4335;
BgL_l2144z00_4335 = 
BGL_HVECTOR_LENGTH(BgL_vz00_4333); 
if(
BOUND_CHECK(BgL_kz00_4334, BgL_l2144z00_4335))
{ /* Llib/srfi4.scm 689 */
BgL_tmpz00_5772 = 
BGL_U8VREF(BgL_vz00_4333, BgL_kz00_4334)
; }  else 
{ 
 obj_t BgL_auxz00_5791;
BgL_auxz00_5791 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(28255L), BGl_string3254z00zz__srfi4z00, BgL_vz00_4333, 
(int)(BgL_l2144z00_4335), 
(int)(BgL_kz00_4334)); 
FAILURE(BgL_auxz00_5791,BFALSE,BFALSE);} } } 
return 
BGL_UINT8_TO_BUINT8(BgL_tmpz00_5772);} } 

}



/* s16vector-ref */
BGL_EXPORTED_DEF int16_t BGl_s16vectorzd2refzd2zz__srfi4z00(obj_t BgL_vz00_82, long BgL_kz00_83)
{
{ /* Llib/srfi4.scm 691 */
{ /* Llib/srfi4.scm 692 */
 long BgL_l2148z00_4336;
BgL_l2148z00_4336 = 
BGL_HVECTOR_LENGTH(BgL_vz00_82); 
if(
BOUND_CHECK(BgL_kz00_83, BgL_l2148z00_4336))
{ /* Llib/srfi4.scm 692 */
return 
BGL_S16VREF(BgL_vz00_82, BgL_kz00_83);}  else 
{ 
 obj_t BgL_auxz00_5802;
BgL_auxz00_5802 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(28315L), BGl_string3256z00zz__srfi4z00, BgL_vz00_82, 
(int)(BgL_l2148z00_4336), 
(int)(BgL_kz00_83)); 
FAILURE(BgL_auxz00_5802,BFALSE,BFALSE);} } } 

}



/* &s16vector-ref */
obj_t BGl_z62s16vectorzd2refzb0zz__srfi4z00(obj_t BgL_envz00_3084, obj_t BgL_vz00_3085, obj_t BgL_kz00_3086)
{
{ /* Llib/srfi4.scm 691 */
{ /* Llib/srfi4.scm 692 */
 int16_t BgL_tmpz00_5808;
{ /* Llib/srfi4.scm 692 */
 obj_t BgL_vz00_4337; long BgL_kz00_4338;
if(
BGL_S16VECTORP(BgL_vz00_3085))
{ /* Llib/srfi4.scm 692 */
BgL_vz00_4337 = BgL_vz00_3085; }  else 
{ 
 obj_t BgL_auxz00_5811;
BgL_auxz00_5811 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(28315L), BGl_string3257z00zz__srfi4z00, BGl_string3170z00zz__srfi4z00, BgL_vz00_3085); 
FAILURE(BgL_auxz00_5811,BFALSE,BFALSE);} 
{ /* Llib/srfi4.scm 692 */
 obj_t BgL_tmpz00_5815;
if(
INTEGERP(BgL_kz00_3086))
{ /* Llib/srfi4.scm 692 */
BgL_tmpz00_5815 = BgL_kz00_3086
; }  else 
{ 
 obj_t BgL_auxz00_5818;
BgL_auxz00_5818 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(28315L), BGl_string3257z00zz__srfi4z00, BGl_string3192z00zz__srfi4z00, BgL_kz00_3086); 
FAILURE(BgL_auxz00_5818,BFALSE,BFALSE);} 
BgL_kz00_4338 = 
(long)CINT(BgL_tmpz00_5815); } 
{ /* Llib/srfi4.scm 692 */
 long BgL_l2148z00_4339;
BgL_l2148z00_4339 = 
BGL_HVECTOR_LENGTH(BgL_vz00_4337); 
if(
BOUND_CHECK(BgL_kz00_4338, BgL_l2148z00_4339))
{ /* Llib/srfi4.scm 692 */
BgL_tmpz00_5808 = 
BGL_S16VREF(BgL_vz00_4337, BgL_kz00_4338)
; }  else 
{ 
 obj_t BgL_auxz00_5827;
BgL_auxz00_5827 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(28315L), BGl_string3256z00zz__srfi4z00, BgL_vz00_4337, 
(int)(BgL_l2148z00_4339), 
(int)(BgL_kz00_4338)); 
FAILURE(BgL_auxz00_5827,BFALSE,BFALSE);} } } 
return 
BGL_INT16_TO_BINT16(BgL_tmpz00_5808);} } 

}



/* u16vector-ref */
BGL_EXPORTED_DEF uint16_t BGl_u16vectorzd2refzd2zz__srfi4z00(obj_t BgL_vz00_84, long BgL_kz00_85)
{
{ /* Llib/srfi4.scm 694 */
{ /* Llib/srfi4.scm 695 */
 long BgL_l2152z00_4340;
BgL_l2152z00_4340 = 
BGL_HVECTOR_LENGTH(BgL_vz00_84); 
if(
BOUND_CHECK(BgL_kz00_85, BgL_l2152z00_4340))
{ /* Llib/srfi4.scm 695 */
return 
BGL_U16VREF(BgL_vz00_84, BgL_kz00_85);}  else 
{ 
 obj_t BgL_auxz00_5838;
BgL_auxz00_5838 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(28376L), BGl_string3258z00zz__srfi4z00, BgL_vz00_84, 
(int)(BgL_l2152z00_4340), 
(int)(BgL_kz00_85)); 
FAILURE(BgL_auxz00_5838,BFALSE,BFALSE);} } } 

}



/* &u16vector-ref */
obj_t BGl_z62u16vectorzd2refzb0zz__srfi4z00(obj_t BgL_envz00_3094, obj_t BgL_vz00_3095, obj_t BgL_kz00_3096)
{
{ /* Llib/srfi4.scm 694 */
{ /* Llib/srfi4.scm 695 */
 uint16_t BgL_tmpz00_5844;
{ /* Llib/srfi4.scm 695 */
 obj_t BgL_vz00_4341; long BgL_kz00_4342;
if(
BGL_U16VECTORP(BgL_vz00_3095))
{ /* Llib/srfi4.scm 695 */
BgL_vz00_4341 = BgL_vz00_3095; }  else 
{ 
 obj_t BgL_auxz00_5847;
BgL_auxz00_5847 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(28376L), BGl_string3259z00zz__srfi4z00, BGl_string3172z00zz__srfi4z00, BgL_vz00_3095); 
FAILURE(BgL_auxz00_5847,BFALSE,BFALSE);} 
{ /* Llib/srfi4.scm 695 */
 obj_t BgL_tmpz00_5851;
if(
INTEGERP(BgL_kz00_3096))
{ /* Llib/srfi4.scm 695 */
BgL_tmpz00_5851 = BgL_kz00_3096
; }  else 
{ 
 obj_t BgL_auxz00_5854;
BgL_auxz00_5854 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(28376L), BGl_string3259z00zz__srfi4z00, BGl_string3192z00zz__srfi4z00, BgL_kz00_3096); 
FAILURE(BgL_auxz00_5854,BFALSE,BFALSE);} 
BgL_kz00_4342 = 
(long)CINT(BgL_tmpz00_5851); } 
{ /* Llib/srfi4.scm 695 */
 long BgL_l2152z00_4343;
BgL_l2152z00_4343 = 
BGL_HVECTOR_LENGTH(BgL_vz00_4341); 
if(
BOUND_CHECK(BgL_kz00_4342, BgL_l2152z00_4343))
{ /* Llib/srfi4.scm 695 */
BgL_tmpz00_5844 = 
BGL_U16VREF(BgL_vz00_4341, BgL_kz00_4342)
; }  else 
{ 
 obj_t BgL_auxz00_5863;
BgL_auxz00_5863 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(28376L), BGl_string3258z00zz__srfi4z00, BgL_vz00_4341, 
(int)(BgL_l2152z00_4343), 
(int)(BgL_kz00_4342)); 
FAILURE(BgL_auxz00_5863,BFALSE,BFALSE);} } } 
return 
BGL_UINT16_TO_BUINT16(BgL_tmpz00_5844);} } 

}



/* s32vector-ref */
BGL_EXPORTED_DEF int32_t BGl_s32vectorzd2refzd2zz__srfi4z00(obj_t BgL_vz00_86, long BgL_kz00_87)
{
{ /* Llib/srfi4.scm 697 */
{ /* Llib/srfi4.scm 698 */
 long BgL_l2156z00_4344;
BgL_l2156z00_4344 = 
BGL_HVECTOR_LENGTH(BgL_vz00_86); 
if(
BOUND_CHECK(BgL_kz00_87, BgL_l2156z00_4344))
{ /* Llib/srfi4.scm 698 */
return 
BGL_S32VREF(BgL_vz00_86, BgL_kz00_87);}  else 
{ 
 obj_t BgL_auxz00_5874;
BgL_auxz00_5874 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(28437L), BGl_string3260z00zz__srfi4z00, BgL_vz00_86, 
(int)(BgL_l2156z00_4344), 
(int)(BgL_kz00_87)); 
FAILURE(BgL_auxz00_5874,BFALSE,BFALSE);} } } 

}



/* &s32vector-ref */
obj_t BGl_z62s32vectorzd2refzb0zz__srfi4z00(obj_t BgL_envz00_3104, obj_t BgL_vz00_3105, obj_t BgL_kz00_3106)
{
{ /* Llib/srfi4.scm 697 */
{ /* Llib/srfi4.scm 698 */
 int32_t BgL_tmpz00_5880;
{ /* Llib/srfi4.scm 698 */
 obj_t BgL_vz00_4345; long BgL_kz00_4346;
if(
BGL_S32VECTORP(BgL_vz00_3105))
{ /* Llib/srfi4.scm 698 */
BgL_vz00_4345 = BgL_vz00_3105; }  else 
{ 
 obj_t BgL_auxz00_5883;
BgL_auxz00_5883 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(28437L), BGl_string3261z00zz__srfi4z00, BGl_string3174z00zz__srfi4z00, BgL_vz00_3105); 
FAILURE(BgL_auxz00_5883,BFALSE,BFALSE);} 
{ /* Llib/srfi4.scm 698 */
 obj_t BgL_tmpz00_5887;
if(
INTEGERP(BgL_kz00_3106))
{ /* Llib/srfi4.scm 698 */
BgL_tmpz00_5887 = BgL_kz00_3106
; }  else 
{ 
 obj_t BgL_auxz00_5890;
BgL_auxz00_5890 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(28437L), BGl_string3261z00zz__srfi4z00, BGl_string3192z00zz__srfi4z00, BgL_kz00_3106); 
FAILURE(BgL_auxz00_5890,BFALSE,BFALSE);} 
BgL_kz00_4346 = 
(long)CINT(BgL_tmpz00_5887); } 
{ /* Llib/srfi4.scm 698 */
 long BgL_l2156z00_4347;
BgL_l2156z00_4347 = 
BGL_HVECTOR_LENGTH(BgL_vz00_4345); 
if(
BOUND_CHECK(BgL_kz00_4346, BgL_l2156z00_4347))
{ /* Llib/srfi4.scm 698 */
BgL_tmpz00_5880 = 
BGL_S32VREF(BgL_vz00_4345, BgL_kz00_4346)
; }  else 
{ 
 obj_t BgL_auxz00_5899;
BgL_auxz00_5899 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(28437L), BGl_string3260z00zz__srfi4z00, BgL_vz00_4345, 
(int)(BgL_l2156z00_4347), 
(int)(BgL_kz00_4346)); 
FAILURE(BgL_auxz00_5899,BFALSE,BFALSE);} } } 
return 
BGL_INT32_TO_BINT32(BgL_tmpz00_5880);} } 

}



/* u32vector-ref */
BGL_EXPORTED_DEF uint32_t BGl_u32vectorzd2refzd2zz__srfi4z00(obj_t BgL_vz00_88, long BgL_kz00_89)
{
{ /* Llib/srfi4.scm 700 */
{ /* Llib/srfi4.scm 701 */
 long BgL_l2160z00_4348;
BgL_l2160z00_4348 = 
BGL_HVECTOR_LENGTH(BgL_vz00_88); 
if(
BOUND_CHECK(BgL_kz00_89, BgL_l2160z00_4348))
{ /* Llib/srfi4.scm 701 */
return 
BGL_U32VREF(BgL_vz00_88, BgL_kz00_89);}  else 
{ 
 obj_t BgL_auxz00_5910;
BgL_auxz00_5910 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(28498L), BGl_string3262z00zz__srfi4z00, BgL_vz00_88, 
(int)(BgL_l2160z00_4348), 
(int)(BgL_kz00_89)); 
FAILURE(BgL_auxz00_5910,BFALSE,BFALSE);} } } 

}



/* &u32vector-ref */
obj_t BGl_z62u32vectorzd2refzb0zz__srfi4z00(obj_t BgL_envz00_3114, obj_t BgL_vz00_3115, obj_t BgL_kz00_3116)
{
{ /* Llib/srfi4.scm 700 */
{ /* Llib/srfi4.scm 701 */
 uint32_t BgL_tmpz00_5916;
{ /* Llib/srfi4.scm 701 */
 obj_t BgL_vz00_4349; long BgL_kz00_4350;
if(
BGL_U32VECTORP(BgL_vz00_3115))
{ /* Llib/srfi4.scm 701 */
BgL_vz00_4349 = BgL_vz00_3115; }  else 
{ 
 obj_t BgL_auxz00_5919;
BgL_auxz00_5919 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(28498L), BGl_string3263z00zz__srfi4z00, BGl_string3176z00zz__srfi4z00, BgL_vz00_3115); 
FAILURE(BgL_auxz00_5919,BFALSE,BFALSE);} 
{ /* Llib/srfi4.scm 701 */
 obj_t BgL_tmpz00_5923;
if(
INTEGERP(BgL_kz00_3116))
{ /* Llib/srfi4.scm 701 */
BgL_tmpz00_5923 = BgL_kz00_3116
; }  else 
{ 
 obj_t BgL_auxz00_5926;
BgL_auxz00_5926 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(28498L), BGl_string3263z00zz__srfi4z00, BGl_string3192z00zz__srfi4z00, BgL_kz00_3116); 
FAILURE(BgL_auxz00_5926,BFALSE,BFALSE);} 
BgL_kz00_4350 = 
(long)CINT(BgL_tmpz00_5923); } 
{ /* Llib/srfi4.scm 701 */
 long BgL_l2160z00_4351;
BgL_l2160z00_4351 = 
BGL_HVECTOR_LENGTH(BgL_vz00_4349); 
if(
BOUND_CHECK(BgL_kz00_4350, BgL_l2160z00_4351))
{ /* Llib/srfi4.scm 701 */
BgL_tmpz00_5916 = 
BGL_U32VREF(BgL_vz00_4349, BgL_kz00_4350)
; }  else 
{ 
 obj_t BgL_auxz00_5935;
BgL_auxz00_5935 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(28498L), BGl_string3262z00zz__srfi4z00, BgL_vz00_4349, 
(int)(BgL_l2160z00_4351), 
(int)(BgL_kz00_4350)); 
FAILURE(BgL_auxz00_5935,BFALSE,BFALSE);} } } 
return 
BGL_UINT32_TO_BUINT32(BgL_tmpz00_5916);} } 

}



/* s64vector-ref */
BGL_EXPORTED_DEF int64_t BGl_s64vectorzd2refzd2zz__srfi4z00(obj_t BgL_vz00_90, long BgL_kz00_91)
{
{ /* Llib/srfi4.scm 703 */
{ /* Llib/srfi4.scm 704 */
 long BgL_l2164z00_4352;
BgL_l2164z00_4352 = 
BGL_HVECTOR_LENGTH(BgL_vz00_90); 
if(
BOUND_CHECK(BgL_kz00_91, BgL_l2164z00_4352))
{ /* Llib/srfi4.scm 704 */
return 
BGL_S64VREF(BgL_vz00_90, BgL_kz00_91);}  else 
{ 
 obj_t BgL_auxz00_5946;
BgL_auxz00_5946 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(28559L), BGl_string3264z00zz__srfi4z00, BgL_vz00_90, 
(int)(BgL_l2164z00_4352), 
(int)(BgL_kz00_91)); 
FAILURE(BgL_auxz00_5946,BFALSE,BFALSE);} } } 

}



/* &s64vector-ref */
obj_t BGl_z62s64vectorzd2refzb0zz__srfi4z00(obj_t BgL_envz00_3124, obj_t BgL_vz00_3125, obj_t BgL_kz00_3126)
{
{ /* Llib/srfi4.scm 703 */
{ /* Llib/srfi4.scm 704 */
 int64_t BgL_tmpz00_5952;
{ /* Llib/srfi4.scm 704 */
 obj_t BgL_vz00_4353; long BgL_kz00_4354;
if(
BGL_S64VECTORP(BgL_vz00_3125))
{ /* Llib/srfi4.scm 704 */
BgL_vz00_4353 = BgL_vz00_3125; }  else 
{ 
 obj_t BgL_auxz00_5955;
BgL_auxz00_5955 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(28559L), BGl_string3265z00zz__srfi4z00, BGl_string3178z00zz__srfi4z00, BgL_vz00_3125); 
FAILURE(BgL_auxz00_5955,BFALSE,BFALSE);} 
{ /* Llib/srfi4.scm 704 */
 obj_t BgL_tmpz00_5959;
if(
INTEGERP(BgL_kz00_3126))
{ /* Llib/srfi4.scm 704 */
BgL_tmpz00_5959 = BgL_kz00_3126
; }  else 
{ 
 obj_t BgL_auxz00_5962;
BgL_auxz00_5962 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(28559L), BGl_string3265z00zz__srfi4z00, BGl_string3192z00zz__srfi4z00, BgL_kz00_3126); 
FAILURE(BgL_auxz00_5962,BFALSE,BFALSE);} 
BgL_kz00_4354 = 
(long)CINT(BgL_tmpz00_5959); } 
{ /* Llib/srfi4.scm 704 */
 long BgL_l2164z00_4355;
BgL_l2164z00_4355 = 
BGL_HVECTOR_LENGTH(BgL_vz00_4353); 
if(
BOUND_CHECK(BgL_kz00_4354, BgL_l2164z00_4355))
{ /* Llib/srfi4.scm 704 */
BgL_tmpz00_5952 = 
BGL_S64VREF(BgL_vz00_4353, BgL_kz00_4354)
; }  else 
{ 
 obj_t BgL_auxz00_5971;
BgL_auxz00_5971 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(28559L), BGl_string3264z00zz__srfi4z00, BgL_vz00_4353, 
(int)(BgL_l2164z00_4355), 
(int)(BgL_kz00_4354)); 
FAILURE(BgL_auxz00_5971,BFALSE,BFALSE);} } } 
return 
BGL_INT64_TO_BINT64(BgL_tmpz00_5952);} } 

}



/* u64vector-ref */
BGL_EXPORTED_DEF uint64_t BGl_u64vectorzd2refzd2zz__srfi4z00(obj_t BgL_vz00_92, long BgL_kz00_93)
{
{ /* Llib/srfi4.scm 706 */
{ /* Llib/srfi4.scm 707 */
 long BgL_l2168z00_4356;
BgL_l2168z00_4356 = 
BGL_HVECTOR_LENGTH(BgL_vz00_92); 
if(
BOUND_CHECK(BgL_kz00_93, BgL_l2168z00_4356))
{ /* Llib/srfi4.scm 707 */
return 
BGL_U64VREF(BgL_vz00_92, BgL_kz00_93);}  else 
{ 
 obj_t BgL_auxz00_5982;
BgL_auxz00_5982 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(28620L), BGl_string3266z00zz__srfi4z00, BgL_vz00_92, 
(int)(BgL_l2168z00_4356), 
(int)(BgL_kz00_93)); 
FAILURE(BgL_auxz00_5982,BFALSE,BFALSE);} } } 

}



/* &u64vector-ref */
obj_t BGl_z62u64vectorzd2refzb0zz__srfi4z00(obj_t BgL_envz00_3134, obj_t BgL_vz00_3135, obj_t BgL_kz00_3136)
{
{ /* Llib/srfi4.scm 706 */
{ /* Llib/srfi4.scm 707 */
 uint64_t BgL_tmpz00_5988;
{ /* Llib/srfi4.scm 707 */
 obj_t BgL_vz00_4357; long BgL_kz00_4358;
if(
BGL_U64VECTORP(BgL_vz00_3135))
{ /* Llib/srfi4.scm 707 */
BgL_vz00_4357 = BgL_vz00_3135; }  else 
{ 
 obj_t BgL_auxz00_5991;
BgL_auxz00_5991 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(28620L), BGl_string3267z00zz__srfi4z00, BGl_string3180z00zz__srfi4z00, BgL_vz00_3135); 
FAILURE(BgL_auxz00_5991,BFALSE,BFALSE);} 
{ /* Llib/srfi4.scm 707 */
 obj_t BgL_tmpz00_5995;
if(
INTEGERP(BgL_kz00_3136))
{ /* Llib/srfi4.scm 707 */
BgL_tmpz00_5995 = BgL_kz00_3136
; }  else 
{ 
 obj_t BgL_auxz00_5998;
BgL_auxz00_5998 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(28620L), BGl_string3267z00zz__srfi4z00, BGl_string3192z00zz__srfi4z00, BgL_kz00_3136); 
FAILURE(BgL_auxz00_5998,BFALSE,BFALSE);} 
BgL_kz00_4358 = 
(long)CINT(BgL_tmpz00_5995); } 
{ /* Llib/srfi4.scm 707 */
 long BgL_l2168z00_4359;
BgL_l2168z00_4359 = 
BGL_HVECTOR_LENGTH(BgL_vz00_4357); 
if(
BOUND_CHECK(BgL_kz00_4358, BgL_l2168z00_4359))
{ /* Llib/srfi4.scm 707 */
BgL_tmpz00_5988 = 
BGL_U64VREF(BgL_vz00_4357, BgL_kz00_4358)
; }  else 
{ 
 obj_t BgL_auxz00_6007;
BgL_auxz00_6007 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(28620L), BGl_string3266z00zz__srfi4z00, BgL_vz00_4357, 
(int)(BgL_l2168z00_4359), 
(int)(BgL_kz00_4358)); 
FAILURE(BgL_auxz00_6007,BFALSE,BFALSE);} } } 
return 
BGL_UINT64_TO_BUINT64(BgL_tmpz00_5988);} } 

}



/* f32vector-ref */
BGL_EXPORTED_DEF float BGl_f32vectorzd2refzd2zz__srfi4z00(obj_t BgL_vz00_94, long BgL_kz00_95)
{
{ /* Llib/srfi4.scm 709 */
{ /* Llib/srfi4.scm 710 */
 long BgL_l2172z00_4360;
BgL_l2172z00_4360 = 
BGL_HVECTOR_LENGTH(BgL_vz00_94); 
if(
BOUND_CHECK(BgL_kz00_95, BgL_l2172z00_4360))
{ /* Llib/srfi4.scm 710 */
return 
BGL_F32VREF(BgL_vz00_94, BgL_kz00_95);}  else 
{ 
 obj_t BgL_auxz00_6018;
BgL_auxz00_6018 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(28681L), BGl_string3268z00zz__srfi4z00, BgL_vz00_94, 
(int)(BgL_l2172z00_4360), 
(int)(BgL_kz00_95)); 
FAILURE(BgL_auxz00_6018,BFALSE,BFALSE);} } } 

}



/* &f32vector-ref */
obj_t BGl_z62f32vectorzd2refzb0zz__srfi4z00(obj_t BgL_envz00_3144, obj_t BgL_vz00_3145, obj_t BgL_kz00_3146)
{
{ /* Llib/srfi4.scm 709 */
{ /* Llib/srfi4.scm 710 */
 float BgL_tmpz00_6024;
{ /* Llib/srfi4.scm 710 */
 obj_t BgL_vz00_4361; long BgL_kz00_4362;
if(
BGL_F32VECTORP(BgL_vz00_3145))
{ /* Llib/srfi4.scm 710 */
BgL_vz00_4361 = BgL_vz00_3145; }  else 
{ 
 obj_t BgL_auxz00_6027;
BgL_auxz00_6027 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(28681L), BGl_string3269z00zz__srfi4z00, BGl_string3182z00zz__srfi4z00, BgL_vz00_3145); 
FAILURE(BgL_auxz00_6027,BFALSE,BFALSE);} 
{ /* Llib/srfi4.scm 710 */
 obj_t BgL_tmpz00_6031;
if(
INTEGERP(BgL_kz00_3146))
{ /* Llib/srfi4.scm 710 */
BgL_tmpz00_6031 = BgL_kz00_3146
; }  else 
{ 
 obj_t BgL_auxz00_6034;
BgL_auxz00_6034 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(28681L), BGl_string3269z00zz__srfi4z00, BGl_string3192z00zz__srfi4z00, BgL_kz00_3146); 
FAILURE(BgL_auxz00_6034,BFALSE,BFALSE);} 
BgL_kz00_4362 = 
(long)CINT(BgL_tmpz00_6031); } 
{ /* Llib/srfi4.scm 710 */
 long BgL_l2172z00_4363;
BgL_l2172z00_4363 = 
BGL_HVECTOR_LENGTH(BgL_vz00_4361); 
if(
BOUND_CHECK(BgL_kz00_4362, BgL_l2172z00_4363))
{ /* Llib/srfi4.scm 710 */
BgL_tmpz00_6024 = 
BGL_F32VREF(BgL_vz00_4361, BgL_kz00_4362)
; }  else 
{ 
 obj_t BgL_auxz00_6043;
BgL_auxz00_6043 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(28681L), BGl_string3268z00zz__srfi4z00, BgL_vz00_4361, 
(int)(BgL_l2172z00_4363), 
(int)(BgL_kz00_4362)); 
FAILURE(BgL_auxz00_6043,BFALSE,BFALSE);} } } 
return 
FLOAT_TO_REAL(BgL_tmpz00_6024);} } 

}



/* f64vector-ref */
BGL_EXPORTED_DEF double BGl_f64vectorzd2refzd2zz__srfi4z00(obj_t BgL_vz00_96, long BgL_kz00_97)
{
{ /* Llib/srfi4.scm 712 */
{ /* Llib/srfi4.scm 713 */
 long BgL_l2176z00_4364;
BgL_l2176z00_4364 = 
BGL_HVECTOR_LENGTH(BgL_vz00_96); 
if(
BOUND_CHECK(BgL_kz00_97, BgL_l2176z00_4364))
{ /* Llib/srfi4.scm 713 */
return 
BGL_F64VREF(BgL_vz00_96, BgL_kz00_97);}  else 
{ 
 obj_t BgL_auxz00_6054;
BgL_auxz00_6054 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(28742L), BGl_string3270z00zz__srfi4z00, BgL_vz00_96, 
(int)(BgL_l2176z00_4364), 
(int)(BgL_kz00_97)); 
FAILURE(BgL_auxz00_6054,BFALSE,BFALSE);} } } 

}



/* &f64vector-ref */
obj_t BGl_z62f64vectorzd2refzb0zz__srfi4z00(obj_t BgL_envz00_3154, obj_t BgL_vz00_3155, obj_t BgL_kz00_3156)
{
{ /* Llib/srfi4.scm 712 */
{ /* Llib/srfi4.scm 713 */
 double BgL_tmpz00_6060;
{ /* Llib/srfi4.scm 713 */
 obj_t BgL_vz00_4365; long BgL_kz00_4366;
if(
BGL_F64VECTORP(BgL_vz00_3155))
{ /* Llib/srfi4.scm 713 */
BgL_vz00_4365 = BgL_vz00_3155; }  else 
{ 
 obj_t BgL_auxz00_6063;
BgL_auxz00_6063 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(28742L), BGl_string3271z00zz__srfi4z00, BGl_string3184z00zz__srfi4z00, BgL_vz00_3155); 
FAILURE(BgL_auxz00_6063,BFALSE,BFALSE);} 
{ /* Llib/srfi4.scm 713 */
 obj_t BgL_tmpz00_6067;
if(
INTEGERP(BgL_kz00_3156))
{ /* Llib/srfi4.scm 713 */
BgL_tmpz00_6067 = BgL_kz00_3156
; }  else 
{ 
 obj_t BgL_auxz00_6070;
BgL_auxz00_6070 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(28742L), BGl_string3271z00zz__srfi4z00, BGl_string3192z00zz__srfi4z00, BgL_kz00_3156); 
FAILURE(BgL_auxz00_6070,BFALSE,BFALSE);} 
BgL_kz00_4366 = 
(long)CINT(BgL_tmpz00_6067); } 
{ /* Llib/srfi4.scm 713 */
 long BgL_l2176z00_4367;
BgL_l2176z00_4367 = 
BGL_HVECTOR_LENGTH(BgL_vz00_4365); 
if(
BOUND_CHECK(BgL_kz00_4366, BgL_l2176z00_4367))
{ /* Llib/srfi4.scm 713 */
BgL_tmpz00_6060 = 
BGL_F64VREF(BgL_vz00_4365, BgL_kz00_4366)
; }  else 
{ 
 obj_t BgL_auxz00_6079;
BgL_auxz00_6079 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(28742L), BGl_string3270z00zz__srfi4z00, BgL_vz00_4365, 
(int)(BgL_l2176z00_4367), 
(int)(BgL_kz00_4366)); 
FAILURE(BgL_auxz00_6079,BFALSE,BFALSE);} } } 
return 
DOUBLE_TO_REAL(BgL_tmpz00_6060);} } 

}



/* 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 */
{ /* Llib/srfi4.scm 722 */
 long BgL_l2180z00_4368;
BgL_l2180z00_4368 = 
BGL_HVECTOR_LENGTH(BgL_vz00_100); 
if(
BOUND_CHECK(BgL_kz00_101, BgL_l2180z00_4368))
{ /* Llib/srfi4.scm 722 */
BGL_S8VSET(BgL_vz00_100, BgL_kz00_101, BgL_valz00_102); }  else 
{ 
 obj_t BgL_auxz00_6090;
BgL_auxz00_6090 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(29099L), BGl_string3194z00zz__srfi4z00, BgL_vz00_100, 
(int)(BgL_l2180z00_4368), 
(int)(BgL_kz00_101)); 
FAILURE(BgL_auxz00_6090,BFALSE,BFALSE);} } 
return BUNSPEC;} 

}



/* &s8vector-set! */
obj_t BGl_z62s8vectorzd2setz12za2zz__srfi4z00(obj_t BgL_envz00_3067, obj_t BgL_vz00_3068, obj_t BgL_kz00_3069, obj_t BgL_valz00_3070)
{
{ /* Llib/srfi4.scm 721 */
{ /* Llib/srfi4.scm 721 */
 obj_t BgL_vz00_4369; long BgL_kz00_4370; int8_t BgL_valz00_4371;
if(
BGL_S8VECTORP(BgL_vz00_3068))
{ /* Llib/srfi4.scm 721 */
BgL_vz00_4369 = BgL_vz00_3068; }  else 
{ 
 obj_t BgL_auxz00_6098;
BgL_auxz00_6098 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(29057L), BGl_string3272z00zz__srfi4z00, BGl_string3166z00zz__srfi4z00, BgL_vz00_3068); 
FAILURE(BgL_auxz00_6098,BFALSE,BFALSE);} 
{ /* Llib/srfi4.scm 721 */
 obj_t BgL_tmpz00_6102;
if(
INTEGERP(BgL_kz00_3069))
{ /* Llib/srfi4.scm 721 */
BgL_tmpz00_6102 = BgL_kz00_3069
; }  else 
{ 
 obj_t BgL_auxz00_6105;
BgL_auxz00_6105 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(29057L), BGl_string3272z00zz__srfi4z00, BGl_string3192z00zz__srfi4z00, BgL_kz00_3069); 
FAILURE(BgL_auxz00_6105,BFALSE,BFALSE);} 
BgL_kz00_4370 = 
(long)CINT(BgL_tmpz00_6102); } 
{ /* Llib/srfi4.scm 721 */
 obj_t BgL_tmpz00_6110;
if(
BGL_INT8P(BgL_valz00_3070))
{ /* Llib/srfi4.scm 721 */
BgL_tmpz00_6110 = BgL_valz00_3070
; }  else 
{ 
 obj_t BgL_auxz00_6113;
BgL_auxz00_6113 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(29057L), BGl_string3272z00zz__srfi4z00, BGl_string3193z00zz__srfi4z00, BgL_valz00_3070); 
FAILURE(BgL_auxz00_6113,BFALSE,BFALSE);} 
BgL_valz00_4371 = 
BGL_BINT8_TO_INT8(BgL_tmpz00_6110); } 
{ /* Llib/srfi4.scm 722 */
 long BgL_l2180z00_4372;
BgL_l2180z00_4372 = 
BGL_HVECTOR_LENGTH(BgL_vz00_4369); 
if(
BOUND_CHECK(BgL_kz00_4370, BgL_l2180z00_4372))
{ /* Llib/srfi4.scm 722 */
BGL_S8VSET(BgL_vz00_4369, BgL_kz00_4370, BgL_valz00_4371); }  else 
{ 
 obj_t BgL_auxz00_6122;
BgL_auxz00_6122 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(29099L), BGl_string3194z00zz__srfi4z00, BgL_vz00_4369, 
(int)(BgL_l2180z00_4372), 
(int)(BgL_kz00_4370)); 
FAILURE(BgL_auxz00_6122,BFALSE,BFALSE);} } 
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 */
{ /* Llib/srfi4.scm 725 */
 long BgL_l2184z00_4373;
BgL_l2184z00_4373 = 
BGL_HVECTOR_LENGTH(BgL_vz00_103); 
if(
BOUND_CHECK(BgL_kz00_104, BgL_l2184z00_4373))
{ /* Llib/srfi4.scm 725 */
BGL_U8VSET(BgL_vz00_103, BgL_kz00_104, BgL_valz00_105); }  else 
{ 
 obj_t BgL_auxz00_6132;
BgL_auxz00_6132 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(29168L), BGl_string3200z00zz__srfi4z00, BgL_vz00_103, 
(int)(BgL_l2184z00_4373), 
(int)(BgL_kz00_104)); 
FAILURE(BgL_auxz00_6132,BFALSE,BFALSE);} } 
return BUNSPEC;} 

}



/* &u8vector-set! */
obj_t BGl_z62u8vectorzd2setz12za2zz__srfi4z00(obj_t BgL_envz00_3077, obj_t BgL_vz00_3078, obj_t BgL_kz00_3079, obj_t BgL_valz00_3080)
{
{ /* Llib/srfi4.scm 724 */
{ /* Llib/srfi4.scm 724 */
 obj_t BgL_vz00_4374; long BgL_kz00_4375; uint8_t BgL_valz00_4376;
if(
BGL_U8VECTORP(BgL_vz00_3078))
{ /* Llib/srfi4.scm 724 */
BgL_vz00_4374 = BgL_vz00_3078; }  else 
{ 
 obj_t BgL_auxz00_6140;
BgL_auxz00_6140 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(29126L), BGl_string3273z00zz__srfi4z00, BGl_string3168z00zz__srfi4z00, BgL_vz00_3078); 
FAILURE(BgL_auxz00_6140,BFALSE,BFALSE);} 
{ /* Llib/srfi4.scm 724 */
 obj_t BgL_tmpz00_6144;
if(
INTEGERP(BgL_kz00_3079))
{ /* Llib/srfi4.scm 724 */
BgL_tmpz00_6144 = BgL_kz00_3079
; }  else 
{ 
 obj_t BgL_auxz00_6147;
BgL_auxz00_6147 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(29126L), BGl_string3273z00zz__srfi4z00, BGl_string3192z00zz__srfi4z00, BgL_kz00_3079); 
FAILURE(BgL_auxz00_6147,BFALSE,BFALSE);} 
BgL_kz00_4375 = 
(long)CINT(BgL_tmpz00_6144); } 
{ /* Llib/srfi4.scm 724 */
 obj_t BgL_tmpz00_6152;
if(
BGL_UINT8P(BgL_valz00_3080))
{ /* Llib/srfi4.scm 724 */
BgL_tmpz00_6152 = BgL_valz00_3080
; }  else 
{ 
 obj_t BgL_auxz00_6155;
BgL_auxz00_6155 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(29126L), BGl_string3273z00zz__srfi4z00, BGl_string3199z00zz__srfi4z00, BgL_valz00_3080); 
FAILURE(BgL_auxz00_6155,BFALSE,BFALSE);} 
BgL_valz00_4376 = 
BGL_BUINT8_TO_UINT8(BgL_tmpz00_6152); } 
{ /* Llib/srfi4.scm 725 */
 long BgL_l2184z00_4377;
BgL_l2184z00_4377 = 
BGL_HVECTOR_LENGTH(BgL_vz00_4374); 
if(
BOUND_CHECK(BgL_kz00_4375, BgL_l2184z00_4377))
{ /* Llib/srfi4.scm 725 */
BGL_U8VSET(BgL_vz00_4374, BgL_kz00_4375, BgL_valz00_4376); }  else 
{ 
 obj_t BgL_auxz00_6164;
BgL_auxz00_6164 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(29168L), BGl_string3200z00zz__srfi4z00, BgL_vz00_4374, 
(int)(BgL_l2184z00_4377), 
(int)(BgL_kz00_4375)); 
FAILURE(BgL_auxz00_6164,BFALSE,BFALSE);} } 
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 */
{ /* Llib/srfi4.scm 728 */
 long BgL_l2188z00_4378;
BgL_l2188z00_4378 = 
BGL_HVECTOR_LENGTH(BgL_vz00_106); 
if(
BOUND_CHECK(BgL_kz00_107, BgL_l2188z00_4378))
{ /* Llib/srfi4.scm 728 */
BGL_S16VSET(BgL_vz00_106, BgL_kz00_107, BgL_valz00_108); }  else 
{ 
 obj_t BgL_auxz00_6174;
BgL_auxz00_6174 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(29238L), BGl_string3206z00zz__srfi4z00, BgL_vz00_106, 
(int)(BgL_l2188z00_4378), 
(int)(BgL_kz00_107)); 
FAILURE(BgL_auxz00_6174,BFALSE,BFALSE);} } 
return BUNSPEC;} 

}



/* &s16vector-set! */
obj_t BGl_z62s16vectorzd2setz12za2zz__srfi4z00(obj_t BgL_envz00_3087, obj_t BgL_vz00_3088, obj_t BgL_kz00_3089, obj_t BgL_valz00_3090)
{
{ /* Llib/srfi4.scm 727 */
{ /* Llib/srfi4.scm 727 */
 obj_t BgL_vz00_4379; long BgL_kz00_4380; int16_t BgL_valz00_4381;
if(
BGL_S16VECTORP(BgL_vz00_3088))
{ /* Llib/srfi4.scm 727 */
BgL_vz00_4379 = BgL_vz00_3088; }  else 
{ 
 obj_t BgL_auxz00_6182;
BgL_auxz00_6182 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(29195L), BGl_string3274z00zz__srfi4z00, BGl_string3170z00zz__srfi4z00, BgL_vz00_3088); 
FAILURE(BgL_auxz00_6182,BFALSE,BFALSE);} 
{ /* Llib/srfi4.scm 727 */
 obj_t BgL_tmpz00_6186;
if(
INTEGERP(BgL_kz00_3089))
{ /* Llib/srfi4.scm 727 */
BgL_tmpz00_6186 = BgL_kz00_3089
; }  else 
{ 
 obj_t BgL_auxz00_6189;
BgL_auxz00_6189 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(29195L), BGl_string3274z00zz__srfi4z00, BGl_string3192z00zz__srfi4z00, BgL_kz00_3089); 
FAILURE(BgL_auxz00_6189,BFALSE,BFALSE);} 
BgL_kz00_4380 = 
(long)CINT(BgL_tmpz00_6186); } 
{ /* Llib/srfi4.scm 727 */
 obj_t BgL_tmpz00_6194;
if(
BGL_INT16P(BgL_valz00_3090))
{ /* Llib/srfi4.scm 727 */
BgL_tmpz00_6194 = BgL_valz00_3090
; }  else 
{ 
 obj_t BgL_auxz00_6197;
BgL_auxz00_6197 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(29195L), BGl_string3274z00zz__srfi4z00, BGl_string3205z00zz__srfi4z00, BgL_valz00_3090); 
FAILURE(BgL_auxz00_6197,BFALSE,BFALSE);} 
BgL_valz00_4381 = 
BGL_BINT16_TO_INT16(BgL_tmpz00_6194); } 
{ /* Llib/srfi4.scm 728 */
 long BgL_l2188z00_4382;
BgL_l2188z00_4382 = 
BGL_HVECTOR_LENGTH(BgL_vz00_4379); 
if(
BOUND_CHECK(BgL_kz00_4380, BgL_l2188z00_4382))
{ /* Llib/srfi4.scm 728 */
BGL_S16VSET(BgL_vz00_4379, BgL_kz00_4380, BgL_valz00_4381); }  else 
{ 
 obj_t BgL_auxz00_6206;
BgL_auxz00_6206 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(29238L), BGl_string3206z00zz__srfi4z00, BgL_vz00_4379, 
(int)(BgL_l2188z00_4382), 
(int)(BgL_kz00_4380)); 
FAILURE(BgL_auxz00_6206,BFALSE,BFALSE);} } 
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 */
{ /* Llib/srfi4.scm 731 */
 long BgL_l2192z00_4383;
BgL_l2192z00_4383 = 
BGL_HVECTOR_LENGTH(BgL_vz00_109); 
if(
BOUND_CHECK(BgL_kz00_110, BgL_l2192z00_4383))
{ /* Llib/srfi4.scm 731 */
BGL_U16VSET(BgL_vz00_109, BgL_kz00_110, BgL_valz00_111); }  else 
{ 
 obj_t BgL_auxz00_6216;
BgL_auxz00_6216 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(29309L), BGl_string3212z00zz__srfi4z00, BgL_vz00_109, 
(int)(BgL_l2192z00_4383), 
(int)(BgL_kz00_110)); 
FAILURE(BgL_auxz00_6216,BFALSE,BFALSE);} } 
return BUNSPEC;} 

}



/* &u16vector-set! */
obj_t BGl_z62u16vectorzd2setz12za2zz__srfi4z00(obj_t BgL_envz00_3097, obj_t BgL_vz00_3098, obj_t BgL_kz00_3099, obj_t BgL_valz00_3100)
{
{ /* Llib/srfi4.scm 730 */
{ /* Llib/srfi4.scm 730 */
 obj_t BgL_vz00_4384; long BgL_kz00_4385; uint16_t BgL_valz00_4386;
if(
BGL_U16VECTORP(BgL_vz00_3098))
{ /* Llib/srfi4.scm 730 */
BgL_vz00_4384 = BgL_vz00_3098; }  else 
{ 
 obj_t BgL_auxz00_6224;
BgL_auxz00_6224 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(29266L), BGl_string3275z00zz__srfi4z00, BGl_string3172z00zz__srfi4z00, BgL_vz00_3098); 
FAILURE(BgL_auxz00_6224,BFALSE,BFALSE);} 
{ /* Llib/srfi4.scm 730 */
 obj_t BgL_tmpz00_6228;
if(
INTEGERP(BgL_kz00_3099))
{ /* Llib/srfi4.scm 730 */
BgL_tmpz00_6228 = BgL_kz00_3099
; }  else 
{ 
 obj_t BgL_auxz00_6231;
BgL_auxz00_6231 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(29266L), BGl_string3275z00zz__srfi4z00, BGl_string3192z00zz__srfi4z00, BgL_kz00_3099); 
FAILURE(BgL_auxz00_6231,BFALSE,BFALSE);} 
BgL_kz00_4385 = 
(long)CINT(BgL_tmpz00_6228); } 
{ /* Llib/srfi4.scm 730 */
 obj_t BgL_tmpz00_6236;
if(
BGL_UINT16P(BgL_valz00_3100))
{ /* Llib/srfi4.scm 730 */
BgL_tmpz00_6236 = BgL_valz00_3100
; }  else 
{ 
 obj_t BgL_auxz00_6239;
BgL_auxz00_6239 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(29266L), BGl_string3275z00zz__srfi4z00, BGl_string3211z00zz__srfi4z00, BgL_valz00_3100); 
FAILURE(BgL_auxz00_6239,BFALSE,BFALSE);} 
BgL_valz00_4386 = 
BGL_BUINT16_TO_UINT16(BgL_tmpz00_6236); } 
{ /* Llib/srfi4.scm 731 */
 long BgL_l2192z00_4387;
BgL_l2192z00_4387 = 
BGL_HVECTOR_LENGTH(BgL_vz00_4384); 
if(
BOUND_CHECK(BgL_kz00_4385, BgL_l2192z00_4387))
{ /* Llib/srfi4.scm 731 */
BGL_U16VSET(BgL_vz00_4384, BgL_kz00_4385, BgL_valz00_4386); }  else 
{ 
 obj_t BgL_auxz00_6248;
BgL_auxz00_6248 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(29309L), BGl_string3212z00zz__srfi4z00, BgL_vz00_4384, 
(int)(BgL_l2192z00_4387), 
(int)(BgL_kz00_4385)); 
FAILURE(BgL_auxz00_6248,BFALSE,BFALSE);} } 
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 */
{ /* Llib/srfi4.scm 734 */
 long BgL_l2196z00_4388;
BgL_l2196z00_4388 = 
BGL_HVECTOR_LENGTH(BgL_vz00_112); 
if(
BOUND_CHECK(BgL_kz00_113, BgL_l2196z00_4388))
{ /* Llib/srfi4.scm 734 */
BGL_S32VSET(BgL_vz00_112, BgL_kz00_113, BgL_valz00_114); }  else 
{ 
 obj_t BgL_auxz00_6258;
BgL_auxz00_6258 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(29380L), BGl_string3218z00zz__srfi4z00, BgL_vz00_112, 
(int)(BgL_l2196z00_4388), 
(int)(BgL_kz00_113)); 
FAILURE(BgL_auxz00_6258,BFALSE,BFALSE);} } 
return BUNSPEC;} 

}



/* &s32vector-set! */
obj_t BGl_z62s32vectorzd2setz12za2zz__srfi4z00(obj_t BgL_envz00_3107, obj_t BgL_vz00_3108, obj_t BgL_kz00_3109, obj_t BgL_valz00_3110)
{
{ /* Llib/srfi4.scm 733 */
{ /* Llib/srfi4.scm 733 */
 obj_t BgL_vz00_4389; long BgL_kz00_4390; int32_t BgL_valz00_4391;
if(
BGL_S32VECTORP(BgL_vz00_3108))
{ /* Llib/srfi4.scm 733 */
BgL_vz00_4389 = BgL_vz00_3108; }  else 
{ 
 obj_t BgL_auxz00_6266;
BgL_auxz00_6266 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(29337L), BGl_string3276z00zz__srfi4z00, BGl_string3174z00zz__srfi4z00, BgL_vz00_3108); 
FAILURE(BgL_auxz00_6266,BFALSE,BFALSE);} 
{ /* Llib/srfi4.scm 733 */
 obj_t BgL_tmpz00_6270;
if(
INTEGERP(BgL_kz00_3109))
{ /* Llib/srfi4.scm 733 */
BgL_tmpz00_6270 = BgL_kz00_3109
; }  else 
{ 
 obj_t BgL_auxz00_6273;
BgL_auxz00_6273 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(29337L), BGl_string3276z00zz__srfi4z00, BGl_string3192z00zz__srfi4z00, BgL_kz00_3109); 
FAILURE(BgL_auxz00_6273,BFALSE,BFALSE);} 
BgL_kz00_4390 = 
(long)CINT(BgL_tmpz00_6270); } 
{ /* Llib/srfi4.scm 733 */
 obj_t BgL_tmpz00_6278;
if(
BGL_INT32P(BgL_valz00_3110))
{ /* Llib/srfi4.scm 733 */
BgL_tmpz00_6278 = BgL_valz00_3110
; }  else 
{ 
 obj_t BgL_auxz00_6281;
BgL_auxz00_6281 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(29337L), BGl_string3276z00zz__srfi4z00, BGl_string3217z00zz__srfi4z00, BgL_valz00_3110); 
FAILURE(BgL_auxz00_6281,BFALSE,BFALSE);} 
BgL_valz00_4391 = 
BGL_BINT32_TO_INT32(BgL_tmpz00_6278); } 
{ /* Llib/srfi4.scm 734 */
 long BgL_l2196z00_4392;
BgL_l2196z00_4392 = 
BGL_HVECTOR_LENGTH(BgL_vz00_4389); 
if(
BOUND_CHECK(BgL_kz00_4390, BgL_l2196z00_4392))
{ /* Llib/srfi4.scm 734 */
BGL_S32VSET(BgL_vz00_4389, BgL_kz00_4390, BgL_valz00_4391); }  else 
{ 
 obj_t BgL_auxz00_6290;
BgL_auxz00_6290 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(29380L), BGl_string3218z00zz__srfi4z00, BgL_vz00_4389, 
(int)(BgL_l2196z00_4392), 
(int)(BgL_kz00_4390)); 
FAILURE(BgL_auxz00_6290,BFALSE,BFALSE);} } 
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 */
{ /* Llib/srfi4.scm 737 */
 long BgL_l2200z00_4393;
BgL_l2200z00_4393 = 
BGL_HVECTOR_LENGTH(BgL_vz00_115); 
if(
BOUND_CHECK(BgL_kz00_116, BgL_l2200z00_4393))
{ /* Llib/srfi4.scm 737 */
BGL_U32VSET(BgL_vz00_115, BgL_kz00_116, BgL_valz00_117); }  else 
{ 
 obj_t BgL_auxz00_6300;
BgL_auxz00_6300 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(29451L), BGl_string3224z00zz__srfi4z00, BgL_vz00_115, 
(int)(BgL_l2200z00_4393), 
(int)(BgL_kz00_116)); 
FAILURE(BgL_auxz00_6300,BFALSE,BFALSE);} } 
return BUNSPEC;} 

}



/* &u32vector-set! */
obj_t BGl_z62u32vectorzd2setz12za2zz__srfi4z00(obj_t BgL_envz00_3117, obj_t BgL_vz00_3118, obj_t BgL_kz00_3119, obj_t BgL_valz00_3120)
{
{ /* Llib/srfi4.scm 736 */
{ /* Llib/srfi4.scm 736 */
 obj_t BgL_vz00_4394; long BgL_kz00_4395; uint32_t BgL_valz00_4396;
if(
BGL_U32VECTORP(BgL_vz00_3118))
{ /* Llib/srfi4.scm 736 */
BgL_vz00_4394 = BgL_vz00_3118; }  else 
{ 
 obj_t BgL_auxz00_6308;
BgL_auxz00_6308 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(29408L), BGl_string3277z00zz__srfi4z00, BGl_string3176z00zz__srfi4z00, BgL_vz00_3118); 
FAILURE(BgL_auxz00_6308,BFALSE,BFALSE);} 
{ /* Llib/srfi4.scm 736 */
 obj_t BgL_tmpz00_6312;
if(
INTEGERP(BgL_kz00_3119))
{ /* Llib/srfi4.scm 736 */
BgL_tmpz00_6312 = BgL_kz00_3119
; }  else 
{ 
 obj_t BgL_auxz00_6315;
BgL_auxz00_6315 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(29408L), BGl_string3277z00zz__srfi4z00, BGl_string3192z00zz__srfi4z00, BgL_kz00_3119); 
FAILURE(BgL_auxz00_6315,BFALSE,BFALSE);} 
BgL_kz00_4395 = 
(long)CINT(BgL_tmpz00_6312); } 
{ /* Llib/srfi4.scm 736 */
 obj_t BgL_tmpz00_6320;
if(
BGL_UINT32P(BgL_valz00_3120))
{ /* Llib/srfi4.scm 736 */
BgL_tmpz00_6320 = BgL_valz00_3120
; }  else 
{ 
 obj_t BgL_auxz00_6323;
BgL_auxz00_6323 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(29408L), BGl_string3277z00zz__srfi4z00, BGl_string3223z00zz__srfi4z00, BgL_valz00_3120); 
FAILURE(BgL_auxz00_6323,BFALSE,BFALSE);} 
BgL_valz00_4396 = 
BGL_BUINT32_TO_UINT32(BgL_tmpz00_6320); } 
{ /* Llib/srfi4.scm 737 */
 long BgL_l2200z00_4397;
BgL_l2200z00_4397 = 
BGL_HVECTOR_LENGTH(BgL_vz00_4394); 
if(
BOUND_CHECK(BgL_kz00_4395, BgL_l2200z00_4397))
{ /* Llib/srfi4.scm 737 */
BGL_U32VSET(BgL_vz00_4394, BgL_kz00_4395, BgL_valz00_4396); }  else 
{ 
 obj_t BgL_auxz00_6332;
BgL_auxz00_6332 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(29451L), BGl_string3224z00zz__srfi4z00, BgL_vz00_4394, 
(int)(BgL_l2200z00_4397), 
(int)(BgL_kz00_4395)); 
FAILURE(BgL_auxz00_6332,BFALSE,BFALSE);} } 
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 */
{ /* Llib/srfi4.scm 740 */
 long BgL_l2204z00_4398;
BgL_l2204z00_4398 = 
BGL_HVECTOR_LENGTH(BgL_vz00_118); 
if(
BOUND_CHECK(BgL_kz00_119, BgL_l2204z00_4398))
{ /* Llib/srfi4.scm 740 */
BGL_S64VSET(BgL_vz00_118, BgL_kz00_119, BgL_valz00_120); }  else 
{ 
 obj_t BgL_auxz00_6342;
BgL_auxz00_6342 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(29522L), BGl_string3230z00zz__srfi4z00, BgL_vz00_118, 
(int)(BgL_l2204z00_4398), 
(int)(BgL_kz00_119)); 
FAILURE(BgL_auxz00_6342,BFALSE,BFALSE);} } 
return BUNSPEC;} 

}



/* &s64vector-set! */
obj_t BGl_z62s64vectorzd2setz12za2zz__srfi4z00(obj_t BgL_envz00_3127, obj_t BgL_vz00_3128, obj_t BgL_kz00_3129, obj_t BgL_valz00_3130)
{
{ /* Llib/srfi4.scm 739 */
{ /* Llib/srfi4.scm 739 */
 obj_t BgL_vz00_4399; long BgL_kz00_4400; int64_t BgL_valz00_4401;
if(
BGL_S64VECTORP(BgL_vz00_3128))
{ /* Llib/srfi4.scm 739 */
BgL_vz00_4399 = BgL_vz00_3128; }  else 
{ 
 obj_t BgL_auxz00_6350;
BgL_auxz00_6350 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(29479L), BGl_string3278z00zz__srfi4z00, BGl_string3178z00zz__srfi4z00, BgL_vz00_3128); 
FAILURE(BgL_auxz00_6350,BFALSE,BFALSE);} 
{ /* Llib/srfi4.scm 739 */
 obj_t BgL_tmpz00_6354;
if(
INTEGERP(BgL_kz00_3129))
{ /* Llib/srfi4.scm 739 */
BgL_tmpz00_6354 = BgL_kz00_3129
; }  else 
{ 
 obj_t BgL_auxz00_6357;
BgL_auxz00_6357 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(29479L), BGl_string3278z00zz__srfi4z00, BGl_string3192z00zz__srfi4z00, BgL_kz00_3129); 
FAILURE(BgL_auxz00_6357,BFALSE,BFALSE);} 
BgL_kz00_4400 = 
(long)CINT(BgL_tmpz00_6354); } 
{ /* Llib/srfi4.scm 739 */
 obj_t BgL_tmpz00_6362;
if(
BGL_INT64P(BgL_valz00_3130))
{ /* Llib/srfi4.scm 739 */
BgL_tmpz00_6362 = BgL_valz00_3130
; }  else 
{ 
 obj_t BgL_auxz00_6365;
BgL_auxz00_6365 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(29479L), BGl_string3278z00zz__srfi4z00, BGl_string3229z00zz__srfi4z00, BgL_valz00_3130); 
FAILURE(BgL_auxz00_6365,BFALSE,BFALSE);} 
BgL_valz00_4401 = 
BGL_BINT64_TO_INT64(BgL_tmpz00_6362); } 
{ /* Llib/srfi4.scm 740 */
 long BgL_l2204z00_4402;
BgL_l2204z00_4402 = 
BGL_HVECTOR_LENGTH(BgL_vz00_4399); 
if(
BOUND_CHECK(BgL_kz00_4400, BgL_l2204z00_4402))
{ /* Llib/srfi4.scm 740 */
BGL_S64VSET(BgL_vz00_4399, BgL_kz00_4400, BgL_valz00_4401); }  else 
{ 
 obj_t BgL_auxz00_6374;
BgL_auxz00_6374 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(29522L), BGl_string3230z00zz__srfi4z00, BgL_vz00_4399, 
(int)(BgL_l2204z00_4402), 
(int)(BgL_kz00_4400)); 
FAILURE(BgL_auxz00_6374,BFALSE,BFALSE);} } 
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 */
{ /* Llib/srfi4.scm 743 */
 long BgL_l2208z00_4403;
BgL_l2208z00_4403 = 
BGL_HVECTOR_LENGTH(BgL_vz00_121); 
if(
BOUND_CHECK(BgL_kz00_122, BgL_l2208z00_4403))
{ /* Llib/srfi4.scm 743 */
BGL_U64VSET(BgL_vz00_121, BgL_kz00_122, BgL_valz00_123); }  else 
{ 
 obj_t BgL_auxz00_6384;
BgL_auxz00_6384 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(29593L), BGl_string3236z00zz__srfi4z00, BgL_vz00_121, 
(int)(BgL_l2208z00_4403), 
(int)(BgL_kz00_122)); 
FAILURE(BgL_auxz00_6384,BFALSE,BFALSE);} } 
return BUNSPEC;} 

}



/* &u64vector-set! */
obj_t BGl_z62u64vectorzd2setz12za2zz__srfi4z00(obj_t BgL_envz00_3137, obj_t BgL_vz00_3138, obj_t BgL_kz00_3139, obj_t BgL_valz00_3140)
{
{ /* Llib/srfi4.scm 742 */
{ /* Llib/srfi4.scm 742 */
 obj_t BgL_vz00_4404; long BgL_kz00_4405; uint64_t BgL_valz00_4406;
if(
BGL_U64VECTORP(BgL_vz00_3138))
{ /* Llib/srfi4.scm 742 */
BgL_vz00_4404 = BgL_vz00_3138; }  else 
{ 
 obj_t BgL_auxz00_6392;
BgL_auxz00_6392 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(29550L), BGl_string3279z00zz__srfi4z00, BGl_string3180z00zz__srfi4z00, BgL_vz00_3138); 
FAILURE(BgL_auxz00_6392,BFALSE,BFALSE);} 
{ /* Llib/srfi4.scm 742 */
 obj_t BgL_tmpz00_6396;
if(
INTEGERP(BgL_kz00_3139))
{ /* Llib/srfi4.scm 742 */
BgL_tmpz00_6396 = BgL_kz00_3139
; }  else 
{ 
 obj_t BgL_auxz00_6399;
BgL_auxz00_6399 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(29550L), BGl_string3279z00zz__srfi4z00, BGl_string3192z00zz__srfi4z00, BgL_kz00_3139); 
FAILURE(BgL_auxz00_6399,BFALSE,BFALSE);} 
BgL_kz00_4405 = 
(long)CINT(BgL_tmpz00_6396); } 
{ /* Llib/srfi4.scm 742 */
 obj_t BgL_tmpz00_6404;
if(
BGL_UINT64P(BgL_valz00_3140))
{ /* Llib/srfi4.scm 742 */
BgL_tmpz00_6404 = BgL_valz00_3140
; }  else 
{ 
 obj_t BgL_auxz00_6407;
BgL_auxz00_6407 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(29550L), BGl_string3279z00zz__srfi4z00, BGl_string3235z00zz__srfi4z00, BgL_valz00_3140); 
FAILURE(BgL_auxz00_6407,BFALSE,BFALSE);} 
BgL_valz00_4406 = 
BGL_BINT64_TO_INT64(BgL_tmpz00_6404); } 
{ /* Llib/srfi4.scm 743 */
 long BgL_l2208z00_4407;
BgL_l2208z00_4407 = 
BGL_HVECTOR_LENGTH(BgL_vz00_4404); 
if(
BOUND_CHECK(BgL_kz00_4405, BgL_l2208z00_4407))
{ /* Llib/srfi4.scm 743 */
BGL_U64VSET(BgL_vz00_4404, BgL_kz00_4405, BgL_valz00_4406); }  else 
{ 
 obj_t BgL_auxz00_6416;
BgL_auxz00_6416 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(29593L), BGl_string3236z00zz__srfi4z00, BgL_vz00_4404, 
(int)(BgL_l2208z00_4407), 
(int)(BgL_kz00_4405)); 
FAILURE(BgL_auxz00_6416,BFALSE,BFALSE);} } 
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 */
{ /* Llib/srfi4.scm 746 */
 long BgL_l2212z00_4408;
BgL_l2212z00_4408 = 
BGL_HVECTOR_LENGTH(BgL_vz00_124); 
if(
BOUND_CHECK(BgL_kz00_125, BgL_l2212z00_4408))
{ /* Llib/srfi4.scm 746 */
BGL_F32VSET(BgL_vz00_124, BgL_kz00_125, BgL_valz00_126); }  else 
{ 
 obj_t BgL_auxz00_6426;
BgL_auxz00_6426 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(29664L), BGl_string3242z00zz__srfi4z00, BgL_vz00_124, 
(int)(BgL_l2212z00_4408), 
(int)(BgL_kz00_125)); 
FAILURE(BgL_auxz00_6426,BFALSE,BFALSE);} } 
return BUNSPEC;} 

}



/* &f32vector-set! */
obj_t BGl_z62f32vectorzd2setz12za2zz__srfi4z00(obj_t BgL_envz00_3147, obj_t BgL_vz00_3148, obj_t BgL_kz00_3149, obj_t BgL_valz00_3150)
{
{ /* Llib/srfi4.scm 745 */
{ /* Llib/srfi4.scm 745 */
 obj_t BgL_vz00_4409; long BgL_kz00_4410; float BgL_valz00_4411;
if(
BGL_F32VECTORP(BgL_vz00_3148))
{ /* Llib/srfi4.scm 745 */
BgL_vz00_4409 = BgL_vz00_3148; }  else 
{ 
 obj_t BgL_auxz00_6434;
BgL_auxz00_6434 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(29621L), BGl_string3280z00zz__srfi4z00, BGl_string3182z00zz__srfi4z00, BgL_vz00_3148); 
FAILURE(BgL_auxz00_6434,BFALSE,BFALSE);} 
{ /* Llib/srfi4.scm 745 */
 obj_t BgL_tmpz00_6438;
if(
INTEGERP(BgL_kz00_3149))
{ /* Llib/srfi4.scm 745 */
BgL_tmpz00_6438 = BgL_kz00_3149
; }  else 
{ 
 obj_t BgL_auxz00_6441;
BgL_auxz00_6441 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(29621L), BGl_string3280z00zz__srfi4z00, BGl_string3192z00zz__srfi4z00, BgL_kz00_3149); 
FAILURE(BgL_auxz00_6441,BFALSE,BFALSE);} 
BgL_kz00_4410 = 
(long)CINT(BgL_tmpz00_6438); } 
{ /* Llib/srfi4.scm 745 */
 obj_t BgL_tmpz00_6446;
if(
REALP(BgL_valz00_3150))
{ /* Llib/srfi4.scm 745 */
BgL_tmpz00_6446 = BgL_valz00_3150
; }  else 
{ 
 obj_t BgL_auxz00_6449;
BgL_auxz00_6449 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(29621L), BGl_string3280z00zz__srfi4z00, BGl_string3241z00zz__srfi4z00, BgL_valz00_3150); 
FAILURE(BgL_auxz00_6449,BFALSE,BFALSE);} 
BgL_valz00_4411 = 
REAL_TO_FLOAT(BgL_tmpz00_6446); } 
{ /* Llib/srfi4.scm 746 */
 long BgL_l2212z00_4412;
BgL_l2212z00_4412 = 
BGL_HVECTOR_LENGTH(BgL_vz00_4409); 
if(
BOUND_CHECK(BgL_kz00_4410, BgL_l2212z00_4412))
{ /* Llib/srfi4.scm 746 */
BGL_F32VSET(BgL_vz00_4409, BgL_kz00_4410, BgL_valz00_4411); }  else 
{ 
 obj_t BgL_auxz00_6458;
BgL_auxz00_6458 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(29664L), BGl_string3242z00zz__srfi4z00, BgL_vz00_4409, 
(int)(BgL_l2212z00_4412), 
(int)(BgL_kz00_4410)); 
FAILURE(BgL_auxz00_6458,BFALSE,BFALSE);} } 
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 */
{ /* Llib/srfi4.scm 749 */
 long BgL_l2216z00_4413;
BgL_l2216z00_4413 = 
BGL_HVECTOR_LENGTH(BgL_vz00_127); 
if(
BOUND_CHECK(BgL_kz00_128, BgL_l2216z00_4413))
{ /* Llib/srfi4.scm 749 */
BGL_F64VSET(BgL_vz00_127, BgL_kz00_128, BgL_valz00_129); }  else 
{ 
 obj_t BgL_auxz00_6468;
BgL_auxz00_6468 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(29735L), BGl_string3247z00zz__srfi4z00, BgL_vz00_127, 
(int)(BgL_l2216z00_4413), 
(int)(BgL_kz00_128)); 
FAILURE(BgL_auxz00_6468,BFALSE,BFALSE);} } 
return BUNSPEC;} 

}



/* &f64vector-set! */
obj_t BGl_z62f64vectorzd2setz12za2zz__srfi4z00(obj_t BgL_envz00_3157, obj_t BgL_vz00_3158, obj_t BgL_kz00_3159, obj_t BgL_valz00_3160)
{
{ /* Llib/srfi4.scm 748 */
{ /* Llib/srfi4.scm 748 */
 obj_t BgL_vz00_4414; long BgL_kz00_4415; double BgL_valz00_4416;
if(
BGL_F64VECTORP(BgL_vz00_3158))
{ /* Llib/srfi4.scm 748 */
BgL_vz00_4414 = BgL_vz00_3158; }  else 
{ 
 obj_t BgL_auxz00_6476;
BgL_auxz00_6476 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(29692L), BGl_string3281z00zz__srfi4z00, BGl_string3184z00zz__srfi4z00, BgL_vz00_3158); 
FAILURE(BgL_auxz00_6476,BFALSE,BFALSE);} 
{ /* Llib/srfi4.scm 748 */
 obj_t BgL_tmpz00_6480;
if(
INTEGERP(BgL_kz00_3159))
{ /* Llib/srfi4.scm 748 */
BgL_tmpz00_6480 = BgL_kz00_3159
; }  else 
{ 
 obj_t BgL_auxz00_6483;
BgL_auxz00_6483 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(29692L), BGl_string3281z00zz__srfi4z00, BGl_string3192z00zz__srfi4z00, BgL_kz00_3159); 
FAILURE(BgL_auxz00_6483,BFALSE,BFALSE);} 
BgL_kz00_4415 = 
(long)CINT(BgL_tmpz00_6480); } 
{ /* Llib/srfi4.scm 748 */
 obj_t BgL_tmpz00_6488;
if(
REALP(BgL_valz00_3160))
{ /* Llib/srfi4.scm 748 */
BgL_tmpz00_6488 = BgL_valz00_3160
; }  else 
{ 
 obj_t BgL_auxz00_6491;
BgL_auxz00_6491 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(29692L), BGl_string3281z00zz__srfi4z00, BGl_string3241z00zz__srfi4z00, BgL_valz00_3160); 
FAILURE(BgL_auxz00_6491,BFALSE,BFALSE);} 
BgL_valz00_4416 = 
REAL_TO_DOUBLE(BgL_tmpz00_6488); } 
{ /* Llib/srfi4.scm 749 */
 long BgL_l2216z00_4417;
BgL_l2216z00_4417 = 
BGL_HVECTOR_LENGTH(BgL_vz00_4414); 
if(
BOUND_CHECK(BgL_kz00_4415, BgL_l2216z00_4417))
{ /* Llib/srfi4.scm 749 */
BGL_F64VSET(BgL_vz00_4414, BgL_kz00_4415, BgL_valz00_4416); }  else 
{ 
 obj_t BgL_auxz00_6500;
BgL_auxz00_6500 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(29735L), BGl_string3247z00zz__srfi4z00, BgL_vz00_4414, 
(int)(BgL_l2216z00_4417), 
(int)(BgL_kz00_4415)); 
FAILURE(BgL_auxz00_6500,BFALSE,BFALSE);} } 
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_1535;
BgL_g1063z00_1535 = 
BGL_HVECTOR_LENGTH(BgL_xz00_133); 
{ 
 long BgL_iz00_1538; obj_t BgL_resz00_1539;
BgL_iz00_1538 = BgL_g1063z00_1535; 
BgL_resz00_1539 = BNIL; 
BgL_zc3z04anonymousza31461ze3z87_1540:
if(
(BgL_iz00_1538==0L))
{ /* Llib/srfi4.scm 771 */
return BgL_resz00_1539;}  else 
{ /* Llib/srfi4.scm 771 */
 long BgL_niz00_1542;
BgL_niz00_1542 = 
(BgL_iz00_1538-1L); 
{ /* Llib/srfi4.scm 771 */
 obj_t BgL_arg1464z00_1543;
{ /* Llib/srfi4.scm 771 */
 int8_t BgL_arg1465z00_1544;
{ /* Llib/srfi4.scm 771 */
 long BgL_l2220z00_3367;
BgL_l2220z00_3367 = 
BGL_HVECTOR_LENGTH(BgL_xz00_133); 
if(
BOUND_CHECK(BgL_niz00_1542, BgL_l2220z00_3367))
{ /* Llib/srfi4.scm 771 */
BgL_arg1465z00_1544 = 
BGL_S8VREF(BgL_xz00_133, BgL_niz00_1542); }  else 
{ 
 obj_t BgL_auxz00_6514;
BgL_auxz00_6514 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(30505L), BGl_string3252z00zz__srfi4z00, BgL_xz00_133, 
(int)(BgL_l2220z00_3367), 
(int)(BgL_niz00_1542)); 
FAILURE(BgL_auxz00_6514,BFALSE,BFALSE);} } 
BgL_arg1464z00_1543 = 
MAKE_YOUNG_PAIR(
BGL_INT8_TO_BINT8(BgL_arg1465z00_1544), BgL_resz00_1539); } 
{ 
 obj_t BgL_resz00_6523; long BgL_iz00_6522;
BgL_iz00_6522 = BgL_niz00_1542; 
BgL_resz00_6523 = BgL_arg1464z00_1543; 
BgL_resz00_1539 = BgL_resz00_6523; 
BgL_iz00_1538 = BgL_iz00_6522; 
goto BgL_zc3z04anonymousza31461ze3z87_1540;} } } } } } 

}



/* &s8vector->list */
obj_t BGl_z62s8vectorzd2ze3listz53zz__srfi4z00(obj_t BgL_envz00_3205, obj_t BgL_xz00_3206)
{
{ /* Llib/srfi4.scm 771 */
{ /* Llib/srfi4.scm 771 */
 obj_t BgL_auxz00_6524;
if(
BGL_S8VECTORP(BgL_xz00_3206))
{ /* Llib/srfi4.scm 771 */
BgL_auxz00_6524 = BgL_xz00_3206
; }  else 
{ 
 obj_t BgL_auxz00_6527;
BgL_auxz00_6527 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(30505L), BGl_string3282z00zz__srfi4z00, BGl_string3166z00zz__srfi4z00, BgL_xz00_3206); 
FAILURE(BgL_auxz00_6527,BFALSE,BFALSE);} 
return 
BGl_s8vectorzd2ze3listz31zz__srfi4z00(BgL_auxz00_6524);} } 

}



/* 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_1546;
BgL_g1065z00_1546 = 
BGL_HVECTOR_LENGTH(BgL_xz00_134); 
{ 
 long BgL_iz00_1549; obj_t BgL_resz00_1550;
BgL_iz00_1549 = BgL_g1065z00_1546; 
BgL_resz00_1550 = BNIL; 
BgL_zc3z04anonymousza31466ze3z87_1551:
if(
(BgL_iz00_1549==0L))
{ /* Llib/srfi4.scm 771 */
return BgL_resz00_1550;}  else 
{ /* Llib/srfi4.scm 771 */
 long BgL_niz00_1553;
BgL_niz00_1553 = 
(BgL_iz00_1549-1L); 
{ /* Llib/srfi4.scm 771 */
 obj_t BgL_arg1468z00_1554;
{ /* Llib/srfi4.scm 771 */
 uint8_t BgL_arg1469z00_1555;
{ /* Llib/srfi4.scm 771 */
 long BgL_l2224z00_3371;
BgL_l2224z00_3371 = 
BGL_HVECTOR_LENGTH(BgL_xz00_134); 
if(
BOUND_CHECK(BgL_niz00_1553, BgL_l2224z00_3371))
{ /* Llib/srfi4.scm 771 */
BgL_arg1469z00_1555 = 
BGL_U8VREF(BgL_xz00_134, BgL_niz00_1553); }  else 
{ 
 obj_t BgL_auxz00_6540;
BgL_auxz00_6540 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(30505L), BGl_string3254z00zz__srfi4z00, BgL_xz00_134, 
(int)(BgL_l2224z00_3371), 
(int)(BgL_niz00_1553)); 
FAILURE(BgL_auxz00_6540,BFALSE,BFALSE);} } 
BgL_arg1468z00_1554 = 
MAKE_YOUNG_PAIR(
BGL_UINT8_TO_BUINT8(BgL_arg1469z00_1555), BgL_resz00_1550); } 
{ 
 obj_t BgL_resz00_6549; long BgL_iz00_6548;
BgL_iz00_6548 = BgL_niz00_1553; 
BgL_resz00_6549 = BgL_arg1468z00_1554; 
BgL_resz00_1550 = BgL_resz00_6549; 
BgL_iz00_1549 = BgL_iz00_6548; 
goto BgL_zc3z04anonymousza31466ze3z87_1551;} } } } } } 

}



/* &u8vector->list */
obj_t BGl_z62u8vectorzd2ze3listz53zz__srfi4z00(obj_t BgL_envz00_3207, obj_t BgL_xz00_3208)
{
{ /* Llib/srfi4.scm 771 */
{ /* Llib/srfi4.scm 771 */
 obj_t BgL_auxz00_6550;
if(
BGL_U8VECTORP(BgL_xz00_3208))
{ /* Llib/srfi4.scm 771 */
BgL_auxz00_6550 = BgL_xz00_3208
; }  else 
{ 
 obj_t BgL_auxz00_6553;
BgL_auxz00_6553 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(30505L), BGl_string3283z00zz__srfi4z00, BGl_string3168z00zz__srfi4z00, BgL_xz00_3208); 
FAILURE(BgL_auxz00_6553,BFALSE,BFALSE);} 
return 
BGl_u8vectorzd2ze3listz31zz__srfi4z00(BgL_auxz00_6550);} } 

}



/* 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_1557;
BgL_g1067z00_1557 = 
BGL_HVECTOR_LENGTH(BgL_xz00_135); 
{ 
 long BgL_iz00_1560; obj_t BgL_resz00_1561;
BgL_iz00_1560 = BgL_g1067z00_1557; 
BgL_resz00_1561 = BNIL; 
BgL_zc3z04anonymousza31470ze3z87_1562:
if(
(BgL_iz00_1560==0L))
{ /* Llib/srfi4.scm 771 */
return BgL_resz00_1561;}  else 
{ /* Llib/srfi4.scm 771 */
 long BgL_niz00_1564;
BgL_niz00_1564 = 
(BgL_iz00_1560-1L); 
{ /* Llib/srfi4.scm 771 */
 obj_t BgL_arg1472z00_1565;
{ /* Llib/srfi4.scm 771 */
 int16_t BgL_arg1473z00_1566;
{ /* Llib/srfi4.scm 771 */
 long BgL_l2228z00_3375;
BgL_l2228z00_3375 = 
BGL_HVECTOR_LENGTH(BgL_xz00_135); 
if(
BOUND_CHECK(BgL_niz00_1564, BgL_l2228z00_3375))
{ /* Llib/srfi4.scm 771 */
BgL_arg1473z00_1566 = 
BGL_S16VREF(BgL_xz00_135, BgL_niz00_1564); }  else 
{ 
 obj_t BgL_auxz00_6566;
BgL_auxz00_6566 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(30505L), BGl_string3256z00zz__srfi4z00, BgL_xz00_135, 
(int)(BgL_l2228z00_3375), 
(int)(BgL_niz00_1564)); 
FAILURE(BgL_auxz00_6566,BFALSE,BFALSE);} } 
BgL_arg1472z00_1565 = 
MAKE_YOUNG_PAIR(
BGL_INT16_TO_BINT16(BgL_arg1473z00_1566), BgL_resz00_1561); } 
{ 
 obj_t BgL_resz00_6575; long BgL_iz00_6574;
BgL_iz00_6574 = BgL_niz00_1564; 
BgL_resz00_6575 = BgL_arg1472z00_1565; 
BgL_resz00_1561 = BgL_resz00_6575; 
BgL_iz00_1560 = BgL_iz00_6574; 
goto BgL_zc3z04anonymousza31470ze3z87_1562;} } } } } } 

}



/* &s16vector->list */
obj_t BGl_z62s16vectorzd2ze3listz53zz__srfi4z00(obj_t BgL_envz00_3209, obj_t BgL_xz00_3210)
{
{ /* Llib/srfi4.scm 771 */
{ /* Llib/srfi4.scm 771 */
 obj_t BgL_auxz00_6576;
if(
BGL_S16VECTORP(BgL_xz00_3210))
{ /* Llib/srfi4.scm 771 */
BgL_auxz00_6576 = BgL_xz00_3210
; }  else 
{ 
 obj_t BgL_auxz00_6579;
BgL_auxz00_6579 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(30505L), BGl_string3284z00zz__srfi4z00, BGl_string3170z00zz__srfi4z00, BgL_xz00_3210); 
FAILURE(BgL_auxz00_6579,BFALSE,BFALSE);} 
return 
BGl_s16vectorzd2ze3listz31zz__srfi4z00(BgL_auxz00_6576);} } 

}



/* 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_1568;
BgL_g1069z00_1568 = 
BGL_HVECTOR_LENGTH(BgL_xz00_136); 
{ 
 long BgL_iz00_1571; obj_t BgL_resz00_1572;
BgL_iz00_1571 = BgL_g1069z00_1568; 
BgL_resz00_1572 = BNIL; 
BgL_zc3z04anonymousza31474ze3z87_1573:
if(
(BgL_iz00_1571==0L))
{ /* Llib/srfi4.scm 771 */
return BgL_resz00_1572;}  else 
{ /* Llib/srfi4.scm 771 */
 long BgL_niz00_1575;
BgL_niz00_1575 = 
(BgL_iz00_1571-1L); 
{ /* Llib/srfi4.scm 771 */
 obj_t BgL_arg1476z00_1576;
{ /* Llib/srfi4.scm 771 */
 uint16_t BgL_arg1479z00_1577;
{ /* Llib/srfi4.scm 771 */
 long BgL_l2232z00_3379;
BgL_l2232z00_3379 = 
BGL_HVECTOR_LENGTH(BgL_xz00_136); 
if(
BOUND_CHECK(BgL_niz00_1575, BgL_l2232z00_3379))
{ /* Llib/srfi4.scm 771 */
BgL_arg1479z00_1577 = 
BGL_U16VREF(BgL_xz00_136, BgL_niz00_1575); }  else 
{ 
 obj_t BgL_auxz00_6592;
BgL_auxz00_6592 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(30505L), BGl_string3258z00zz__srfi4z00, BgL_xz00_136, 
(int)(BgL_l2232z00_3379), 
(int)(BgL_niz00_1575)); 
FAILURE(BgL_auxz00_6592,BFALSE,BFALSE);} } 
BgL_arg1476z00_1576 = 
MAKE_YOUNG_PAIR(
BGL_UINT16_TO_BUINT16(BgL_arg1479z00_1577), BgL_resz00_1572); } 
{ 
 obj_t BgL_resz00_6601; long BgL_iz00_6600;
BgL_iz00_6600 = BgL_niz00_1575; 
BgL_resz00_6601 = BgL_arg1476z00_1576; 
BgL_resz00_1572 = BgL_resz00_6601; 
BgL_iz00_1571 = BgL_iz00_6600; 
goto BgL_zc3z04anonymousza31474ze3z87_1573;} } } } } } 

}



/* &u16vector->list */
obj_t BGl_z62u16vectorzd2ze3listz53zz__srfi4z00(obj_t BgL_envz00_3211, obj_t BgL_xz00_3212)
{
{ /* Llib/srfi4.scm 771 */
{ /* Llib/srfi4.scm 771 */
 obj_t BgL_auxz00_6602;
if(
BGL_U16VECTORP(BgL_xz00_3212))
{ /* Llib/srfi4.scm 771 */
BgL_auxz00_6602 = BgL_xz00_3212
; }  else 
{ 
 obj_t BgL_auxz00_6605;
BgL_auxz00_6605 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(30505L), BGl_string3285z00zz__srfi4z00, BGl_string3172z00zz__srfi4z00, BgL_xz00_3212); 
FAILURE(BgL_auxz00_6605,BFALSE,BFALSE);} 
return 
BGl_u16vectorzd2ze3listz31zz__srfi4z00(BgL_auxz00_6602);} } 

}



/* 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_1579;
BgL_g1071z00_1579 = 
BGL_HVECTOR_LENGTH(BgL_xz00_137); 
{ 
 long BgL_iz00_1582; obj_t BgL_resz00_1583;
BgL_iz00_1582 = BgL_g1071z00_1579; 
BgL_resz00_1583 = BNIL; 
BgL_zc3z04anonymousza31480ze3z87_1584:
if(
(BgL_iz00_1582==0L))
{ /* Llib/srfi4.scm 771 */
return BgL_resz00_1583;}  else 
{ /* Llib/srfi4.scm 771 */
 long BgL_niz00_1586;
BgL_niz00_1586 = 
(BgL_iz00_1582-1L); 
{ /* Llib/srfi4.scm 771 */
 obj_t BgL_arg1482z00_1587;
{ /* Llib/srfi4.scm 771 */
 int32_t BgL_arg1483z00_1588;
{ /* Llib/srfi4.scm 771 */
 long BgL_l2236z00_3383;
BgL_l2236z00_3383 = 
BGL_HVECTOR_LENGTH(BgL_xz00_137); 
if(
BOUND_CHECK(BgL_niz00_1586, BgL_l2236z00_3383))
{ /* Llib/srfi4.scm 771 */
BgL_arg1483z00_1588 = 
BGL_S32VREF(BgL_xz00_137, BgL_niz00_1586); }  else 
{ 
 obj_t BgL_auxz00_6618;
BgL_auxz00_6618 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(30505L), BGl_string3260z00zz__srfi4z00, BgL_xz00_137, 
(int)(BgL_l2236z00_3383), 
(int)(BgL_niz00_1586)); 
FAILURE(BgL_auxz00_6618,BFALSE,BFALSE);} } 
BgL_arg1482z00_1587 = 
MAKE_YOUNG_PAIR(
BGL_INT32_TO_BINT32(BgL_arg1483z00_1588), BgL_resz00_1583); } 
{ 
 obj_t BgL_resz00_6627; long BgL_iz00_6626;
BgL_iz00_6626 = BgL_niz00_1586; 
BgL_resz00_6627 = BgL_arg1482z00_1587; 
BgL_resz00_1583 = BgL_resz00_6627; 
BgL_iz00_1582 = BgL_iz00_6626; 
goto BgL_zc3z04anonymousza31480ze3z87_1584;} } } } } } 

}



/* &s32vector->list */
obj_t BGl_z62s32vectorzd2ze3listz53zz__srfi4z00(obj_t BgL_envz00_3213, obj_t BgL_xz00_3214)
{
{ /* Llib/srfi4.scm 771 */
{ /* Llib/srfi4.scm 771 */
 obj_t BgL_auxz00_6628;
if(
BGL_S32VECTORP(BgL_xz00_3214))
{ /* Llib/srfi4.scm 771 */
BgL_auxz00_6628 = BgL_xz00_3214
; }  else 
{ 
 obj_t BgL_auxz00_6631;
BgL_auxz00_6631 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(30505L), BGl_string3286z00zz__srfi4z00, BGl_string3174z00zz__srfi4z00, BgL_xz00_3214); 
FAILURE(BgL_auxz00_6631,BFALSE,BFALSE);} 
return 
BGl_s32vectorzd2ze3listz31zz__srfi4z00(BgL_auxz00_6628);} } 

}



/* 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_1590;
BgL_g1073z00_1590 = 
BGL_HVECTOR_LENGTH(BgL_xz00_138); 
{ 
 long BgL_iz00_1593; obj_t BgL_resz00_1594;
BgL_iz00_1593 = BgL_g1073z00_1590; 
BgL_resz00_1594 = BNIL; 
BgL_zc3z04anonymousza31484ze3z87_1595:
if(
(BgL_iz00_1593==0L))
{ /* Llib/srfi4.scm 771 */
return BgL_resz00_1594;}  else 
{ /* Llib/srfi4.scm 771 */
 long BgL_niz00_1597;
BgL_niz00_1597 = 
(BgL_iz00_1593-1L); 
{ /* Llib/srfi4.scm 771 */
 obj_t BgL_arg1486z00_1598;
{ /* Llib/srfi4.scm 771 */
 uint32_t BgL_arg1487z00_1599;
{ /* Llib/srfi4.scm 771 */
 long BgL_l2240z00_3387;
BgL_l2240z00_3387 = 
BGL_HVECTOR_LENGTH(BgL_xz00_138); 
if(
BOUND_CHECK(BgL_niz00_1597, BgL_l2240z00_3387))
{ /* Llib/srfi4.scm 771 */
BgL_arg1487z00_1599 = 
BGL_U32VREF(BgL_xz00_138, BgL_niz00_1597); }  else 
{ 
 obj_t BgL_auxz00_6644;
BgL_auxz00_6644 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(30505L), BGl_string3262z00zz__srfi4z00, BgL_xz00_138, 
(int)(BgL_l2240z00_3387), 
(int)(BgL_niz00_1597)); 
FAILURE(BgL_auxz00_6644,BFALSE,BFALSE);} } 
BgL_arg1486z00_1598 = 
MAKE_YOUNG_PAIR(
BGL_UINT32_TO_BUINT32(BgL_arg1487z00_1599), BgL_resz00_1594); } 
{ 
 obj_t BgL_resz00_6653; long BgL_iz00_6652;
BgL_iz00_6652 = BgL_niz00_1597; 
BgL_resz00_6653 = BgL_arg1486z00_1598; 
BgL_resz00_1594 = BgL_resz00_6653; 
BgL_iz00_1593 = BgL_iz00_6652; 
goto BgL_zc3z04anonymousza31484ze3z87_1595;} } } } } } 

}



/* &u32vector->list */
obj_t BGl_z62u32vectorzd2ze3listz53zz__srfi4z00(obj_t BgL_envz00_3215, obj_t BgL_xz00_3216)
{
{ /* Llib/srfi4.scm 771 */
{ /* Llib/srfi4.scm 771 */
 obj_t BgL_auxz00_6654;
if(
BGL_U32VECTORP(BgL_xz00_3216))
{ /* Llib/srfi4.scm 771 */
BgL_auxz00_6654 = BgL_xz00_3216
; }  else 
{ 
 obj_t BgL_auxz00_6657;
BgL_auxz00_6657 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(30505L), BGl_string3287z00zz__srfi4z00, BGl_string3176z00zz__srfi4z00, BgL_xz00_3216); 
FAILURE(BgL_auxz00_6657,BFALSE,BFALSE);} 
return 
BGl_u32vectorzd2ze3listz31zz__srfi4z00(BgL_auxz00_6654);} } 

}



/* 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_1601;
BgL_g1075z00_1601 = 
BGL_HVECTOR_LENGTH(BgL_xz00_139); 
{ 
 long BgL_iz00_1604; obj_t BgL_resz00_1605;
BgL_iz00_1604 = BgL_g1075z00_1601; 
BgL_resz00_1605 = BNIL; 
BgL_zc3z04anonymousza31488ze3z87_1606:
if(
(BgL_iz00_1604==0L))
{ /* Llib/srfi4.scm 771 */
return BgL_resz00_1605;}  else 
{ /* Llib/srfi4.scm 771 */
 long BgL_niz00_1608;
BgL_niz00_1608 = 
(BgL_iz00_1604-1L); 
{ /* Llib/srfi4.scm 771 */
 obj_t BgL_arg1490z00_1609;
{ /* Llib/srfi4.scm 771 */
 int64_t BgL_arg1491z00_1610;
{ /* Llib/srfi4.scm 771 */
 long BgL_l2244z00_3391;
BgL_l2244z00_3391 = 
BGL_HVECTOR_LENGTH(BgL_xz00_139); 
if(
BOUND_CHECK(BgL_niz00_1608, BgL_l2244z00_3391))
{ /* Llib/srfi4.scm 771 */
BgL_arg1491z00_1610 = 
BGL_S64VREF(BgL_xz00_139, BgL_niz00_1608); }  else 
{ 
 obj_t BgL_auxz00_6670;
BgL_auxz00_6670 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(30505L), BGl_string3264z00zz__srfi4z00, BgL_xz00_139, 
(int)(BgL_l2244z00_3391), 
(int)(BgL_niz00_1608)); 
FAILURE(BgL_auxz00_6670,BFALSE,BFALSE);} } 
BgL_arg1490z00_1609 = 
MAKE_YOUNG_PAIR(
BGL_INT64_TO_BINT64(BgL_arg1491z00_1610), BgL_resz00_1605); } 
{ 
 obj_t BgL_resz00_6679; long BgL_iz00_6678;
BgL_iz00_6678 = BgL_niz00_1608; 
BgL_resz00_6679 = BgL_arg1490z00_1609; 
BgL_resz00_1605 = BgL_resz00_6679; 
BgL_iz00_1604 = BgL_iz00_6678; 
goto BgL_zc3z04anonymousza31488ze3z87_1606;} } } } } } 

}



/* &s64vector->list */
obj_t BGl_z62s64vectorzd2ze3listz53zz__srfi4z00(obj_t BgL_envz00_3217, obj_t BgL_xz00_3218)
{
{ /* Llib/srfi4.scm 771 */
{ /* Llib/srfi4.scm 771 */
 obj_t BgL_auxz00_6680;
if(
BGL_S64VECTORP(BgL_xz00_3218))
{ /* Llib/srfi4.scm 771 */
BgL_auxz00_6680 = BgL_xz00_3218
; }  else 
{ 
 obj_t BgL_auxz00_6683;
BgL_auxz00_6683 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(30505L), BGl_string3288z00zz__srfi4z00, BGl_string3178z00zz__srfi4z00, BgL_xz00_3218); 
FAILURE(BgL_auxz00_6683,BFALSE,BFALSE);} 
return 
BGl_s64vectorzd2ze3listz31zz__srfi4z00(BgL_auxz00_6680);} } 

}



/* 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_1612;
BgL_g1078z00_1612 = 
BGL_HVECTOR_LENGTH(BgL_xz00_140); 
{ 
 long BgL_iz00_1615; obj_t BgL_resz00_1616;
BgL_iz00_1615 = BgL_g1078z00_1612; 
BgL_resz00_1616 = BNIL; 
BgL_zc3z04anonymousza31492ze3z87_1617:
if(
(BgL_iz00_1615==0L))
{ /* Llib/srfi4.scm 771 */
return BgL_resz00_1616;}  else 
{ /* Llib/srfi4.scm 771 */
 long BgL_niz00_1619;
BgL_niz00_1619 = 
(BgL_iz00_1615-1L); 
{ /* Llib/srfi4.scm 771 */
 obj_t BgL_arg1494z00_1620;
{ /* Llib/srfi4.scm 771 */
 uint64_t BgL_arg1495z00_1621;
{ /* Llib/srfi4.scm 771 */
 long BgL_l2248z00_3395;
BgL_l2248z00_3395 = 
BGL_HVECTOR_LENGTH(BgL_xz00_140); 
if(
BOUND_CHECK(BgL_niz00_1619, BgL_l2248z00_3395))
{ /* Llib/srfi4.scm 771 */
BgL_arg1495z00_1621 = 
BGL_U64VREF(BgL_xz00_140, BgL_niz00_1619); }  else 
{ 
 obj_t BgL_auxz00_6696;
BgL_auxz00_6696 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(30505L), BGl_string3266z00zz__srfi4z00, BgL_xz00_140, 
(int)(BgL_l2248z00_3395), 
(int)(BgL_niz00_1619)); 
FAILURE(BgL_auxz00_6696,BFALSE,BFALSE);} } 
BgL_arg1494z00_1620 = 
MAKE_YOUNG_PAIR(
BGL_UINT64_TO_BUINT64(BgL_arg1495z00_1621), BgL_resz00_1616); } 
{ 
 obj_t BgL_resz00_6705; long BgL_iz00_6704;
BgL_iz00_6704 = BgL_niz00_1619; 
BgL_resz00_6705 = BgL_arg1494z00_1620; 
BgL_resz00_1616 = BgL_resz00_6705; 
BgL_iz00_1615 = BgL_iz00_6704; 
goto BgL_zc3z04anonymousza31492ze3z87_1617;} } } } } } 

}



/* &u64vector->list */
obj_t BGl_z62u64vectorzd2ze3listz53zz__srfi4z00(obj_t BgL_envz00_3219, obj_t BgL_xz00_3220)
{
{ /* Llib/srfi4.scm 771 */
{ /* Llib/srfi4.scm 771 */
 obj_t BgL_auxz00_6706;
if(
BGL_U64VECTORP(BgL_xz00_3220))
{ /* Llib/srfi4.scm 771 */
BgL_auxz00_6706 = BgL_xz00_3220
; }  else 
{ 
 obj_t BgL_auxz00_6709;
BgL_auxz00_6709 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(30505L), BGl_string3289z00zz__srfi4z00, BGl_string3180z00zz__srfi4z00, BgL_xz00_3220); 
FAILURE(BgL_auxz00_6709,BFALSE,BFALSE);} 
return 
BGl_u64vectorzd2ze3listz31zz__srfi4z00(BgL_auxz00_6706);} } 

}



/* 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_1623;
BgL_g1080z00_1623 = 
BGL_HVECTOR_LENGTH(BgL_xz00_141); 
{ 
 long BgL_iz00_1626; obj_t BgL_resz00_1627;
BgL_iz00_1626 = BgL_g1080z00_1623; 
BgL_resz00_1627 = BNIL; 
BgL_zc3z04anonymousza31496ze3z87_1628:
if(
(BgL_iz00_1626==0L))
{ /* Llib/srfi4.scm 771 */
return BgL_resz00_1627;}  else 
{ /* Llib/srfi4.scm 771 */
 long BgL_niz00_1630;
BgL_niz00_1630 = 
(BgL_iz00_1626-1L); 
{ /* Llib/srfi4.scm 771 */
 obj_t BgL_arg1498z00_1631;
{ /* Llib/srfi4.scm 771 */
 float BgL_arg1499z00_1632;
{ /* Llib/srfi4.scm 771 */
 long BgL_l2252z00_3399;
BgL_l2252z00_3399 = 
BGL_HVECTOR_LENGTH(BgL_xz00_141); 
if(
BOUND_CHECK(BgL_niz00_1630, BgL_l2252z00_3399))
{ /* Llib/srfi4.scm 771 */
BgL_arg1499z00_1632 = 
BGL_F32VREF(BgL_xz00_141, BgL_niz00_1630); }  else 
{ 
 obj_t BgL_auxz00_6722;
BgL_auxz00_6722 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(30505L), BGl_string3268z00zz__srfi4z00, BgL_xz00_141, 
(int)(BgL_l2252z00_3399), 
(int)(BgL_niz00_1630)); 
FAILURE(BgL_auxz00_6722,BFALSE,BFALSE);} } 
BgL_arg1498z00_1631 = 
MAKE_YOUNG_PAIR(
FLOAT_TO_REAL(BgL_arg1499z00_1632), BgL_resz00_1627); } 
{ 
 obj_t BgL_resz00_6731; long BgL_iz00_6730;
BgL_iz00_6730 = BgL_niz00_1630; 
BgL_resz00_6731 = BgL_arg1498z00_1631; 
BgL_resz00_1627 = BgL_resz00_6731; 
BgL_iz00_1626 = BgL_iz00_6730; 
goto BgL_zc3z04anonymousza31496ze3z87_1628;} } } } } } 

}



/* &f32vector->list */
obj_t BGl_z62f32vectorzd2ze3listz53zz__srfi4z00(obj_t BgL_envz00_3221, obj_t BgL_xz00_3222)
{
{ /* Llib/srfi4.scm 771 */
{ /* Llib/srfi4.scm 771 */
 obj_t BgL_auxz00_6732;
if(
BGL_F32VECTORP(BgL_xz00_3222))
{ /* Llib/srfi4.scm 771 */
BgL_auxz00_6732 = BgL_xz00_3222
; }  else 
{ 
 obj_t BgL_auxz00_6735;
BgL_auxz00_6735 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(30505L), BGl_string3290z00zz__srfi4z00, BGl_string3182z00zz__srfi4z00, BgL_xz00_3222); 
FAILURE(BgL_auxz00_6735,BFALSE,BFALSE);} 
return 
BGl_f32vectorzd2ze3listz31zz__srfi4z00(BgL_auxz00_6732);} } 

}



/* 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_1634;
BgL_g1082z00_1634 = 
BGL_HVECTOR_LENGTH(BgL_xz00_142); 
{ 
 long BgL_iz00_1637; obj_t BgL_resz00_1638;
BgL_iz00_1637 = BgL_g1082z00_1634; 
BgL_resz00_1638 = BNIL; 
BgL_zc3z04anonymousza31500ze3z87_1639:
if(
(BgL_iz00_1637==0L))
{ /* Llib/srfi4.scm 771 */
return BgL_resz00_1638;}  else 
{ /* Llib/srfi4.scm 771 */
 long BgL_niz00_1641;
BgL_niz00_1641 = 
(BgL_iz00_1637-1L); 
{ /* Llib/srfi4.scm 771 */
 obj_t BgL_arg1502z00_1642;
{ /* Llib/srfi4.scm 771 */
 double BgL_arg1505z00_1643;
{ /* Llib/srfi4.scm 771 */
 long BgL_l2256z00_3403;
BgL_l2256z00_3403 = 
BGL_HVECTOR_LENGTH(BgL_xz00_142); 
if(
BOUND_CHECK(BgL_niz00_1641, BgL_l2256z00_3403))
{ /* Llib/srfi4.scm 771 */
BgL_arg1505z00_1643 = 
BGL_F64VREF(BgL_xz00_142, BgL_niz00_1641); }  else 
{ 
 obj_t BgL_auxz00_6748;
BgL_auxz00_6748 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(30505L), BGl_string3270z00zz__srfi4z00, BgL_xz00_142, 
(int)(BgL_l2256z00_3403), 
(int)(BgL_niz00_1641)); 
FAILURE(BgL_auxz00_6748,BFALSE,BFALSE);} } 
BgL_arg1502z00_1642 = 
MAKE_YOUNG_PAIR(
DOUBLE_TO_REAL(BgL_arg1505z00_1643), BgL_resz00_1638); } 
{ 
 obj_t BgL_resz00_6757; long BgL_iz00_6756;
BgL_iz00_6756 = BgL_niz00_1641; 
BgL_resz00_6757 = BgL_arg1502z00_1642; 
BgL_resz00_1638 = BgL_resz00_6757; 
BgL_iz00_1637 = BgL_iz00_6756; 
goto BgL_zc3z04anonymousza31500ze3z87_1639;} } } } } } 

}



/* &f64vector->list */
obj_t BGl_z62f64vectorzd2ze3listz53zz__srfi4z00(obj_t BgL_envz00_3223, obj_t BgL_xz00_3224)
{
{ /* Llib/srfi4.scm 771 */
{ /* Llib/srfi4.scm 771 */
 obj_t BgL_auxz00_6758;
if(
BGL_F64VECTORP(BgL_xz00_3224))
{ /* Llib/srfi4.scm 771 */
BgL_auxz00_6758 = BgL_xz00_3224
; }  else 
{ 
 obj_t BgL_auxz00_6761;
BgL_auxz00_6761 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(30505L), BGl_string3291z00zz__srfi4z00, BGl_string3184z00zz__srfi4z00, BgL_xz00_3224); 
FAILURE(BgL_auxz00_6761,BFALSE,BFALSE);} 
return 
BGl_f64vectorzd2ze3listz31zz__srfi4z00(BgL_auxz00_6758);} } 

}



/* 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_1645;
BgL_lenz00_1645 = 
bgl_list_length(BgL_xz00_143); 
{ /* Llib/srfi4.scm 796 */
 obj_t BgL_vecz00_1646;
{ /* Llib/srfi4.scm 796 */
 int32_t BgL_tmpz00_6767;
BgL_tmpz00_6767 = 
(int32_t)(BgL_lenz00_1645); 
BgL_vecz00_1646 = 
BGL_ALLOC_S8VECTOR(BgL_tmpz00_6767); } 
{ /* Llib/srfi4.scm 796 */

{ 
 long BgL_iz00_1648; obj_t BgL_lz00_1649;
BgL_iz00_1648 = 0L; 
BgL_lz00_1649 = BgL_xz00_143; 
BgL_zc3z04anonymousza31506ze3z87_1650:
if(
(BgL_iz00_1648==BgL_lenz00_1645))
{ /* Llib/srfi4.scm 796 */
return BgL_vecz00_1646;}  else 
{ /* Llib/srfi4.scm 796 */
{ /* Llib/srfi4.scm 796 */
 obj_t BgL_arg1508z00_1652;
{ /* Llib/srfi4.scm 796 */
 bool_t BgL_test3867z00_6772;
{ /* Llib/srfi4.scm 796 */
 obj_t BgL_tmpz00_6773;
{ /* Llib/srfi4.scm 796 */
 obj_t BgL_pairz00_2615;
if(
PAIRP(BgL_lz00_1649))
{ /* Llib/srfi4.scm 796 */
BgL_pairz00_2615 = BgL_lz00_1649; }  else 
{ 
 obj_t BgL_auxz00_6776;
BgL_auxz00_6776 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(31419L), BGl_string3292z00zz__srfi4z00, BGl_string3293z00zz__srfi4z00, BgL_lz00_1649); 
FAILURE(BgL_auxz00_6776,BFALSE,BFALSE);} 
BgL_tmpz00_6773 = 
CAR(BgL_pairz00_2615); } 
BgL_test3867z00_6772 = 
INTEGERP(BgL_tmpz00_6773); } 
if(BgL_test3867z00_6772)
{ /* Llib/srfi4.scm 796 */
 obj_t BgL_arg1511z00_1655;
{ /* Llib/srfi4.scm 796 */
 obj_t BgL_pairz00_2616;
if(
PAIRP(BgL_lz00_1649))
{ /* Llib/srfi4.scm 796 */
BgL_pairz00_2616 = BgL_lz00_1649; }  else 
{ 
 obj_t BgL_auxz00_6784;
BgL_auxz00_6784 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(31419L), BGl_string3292z00zz__srfi4z00, BGl_string3293z00zz__srfi4z00, BgL_lz00_1649); 
FAILURE(BgL_auxz00_6784,BFALSE,BFALSE);} 
BgL_arg1511z00_1655 = 
CAR(BgL_pairz00_2616); } 
{ /* Llib/srfi4.scm 796 */
 long BgL_xz00_2617;
{ /* Llib/srfi4.scm 796 */
 obj_t BgL_tmpz00_6789;
if(
INTEGERP(BgL_arg1511z00_1655))
{ /* Llib/srfi4.scm 796 */
BgL_tmpz00_6789 = BgL_arg1511z00_1655
; }  else 
{ 
 obj_t BgL_auxz00_6792;
BgL_auxz00_6792 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(31419L), BGl_string3292z00zz__srfi4z00, BGl_string3192z00zz__srfi4z00, BgL_arg1511z00_1655); 
FAILURE(BgL_auxz00_6792,BFALSE,BFALSE);} 
BgL_xz00_2617 = 
(long)CINT(BgL_tmpz00_6789); } 
{ /* Llib/srfi4.scm 796 */
 int8_t BgL_tmpz00_6797;
BgL_tmpz00_6797 = 
(int8_t)(BgL_xz00_2617); 
BgL_arg1508z00_1652 = 
BGL_INT8_TO_BINT8(BgL_tmpz00_6797); } } }  else 
{ /* Llib/srfi4.scm 796 */
 obj_t BgL_pairz00_2618;
if(
PAIRP(BgL_lz00_1649))
{ /* Llib/srfi4.scm 796 */
BgL_pairz00_2618 = BgL_lz00_1649; }  else 
{ 
 obj_t BgL_auxz00_6802;
BgL_auxz00_6802 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(31419L), BGl_string3292z00zz__srfi4z00, BGl_string3293z00zz__srfi4z00, BgL_lz00_1649); 
FAILURE(BgL_auxz00_6802,BFALSE,BFALSE);} 
BgL_arg1508z00_1652 = 
CAR(BgL_pairz00_2618); } } 
{ /* Llib/srfi4.scm 796 */
 long BgL_l2260z00_3407;
BgL_l2260z00_3407 = 
BGL_HVECTOR_LENGTH(BgL_vecz00_1646); 
if(
BOUND_CHECK(BgL_iz00_1648, BgL_l2260z00_3407))
{ /* Llib/srfi4.scm 796 */
 int8_t BgL_tmpz00_6810;
{ /* Llib/srfi4.scm 796 */
 obj_t BgL_tmpz00_6811;
if(
BGL_INT8P(BgL_arg1508z00_1652))
{ /* Llib/srfi4.scm 796 */
BgL_tmpz00_6811 = BgL_arg1508z00_1652
; }  else 
{ 
 obj_t BgL_auxz00_6814;
BgL_auxz00_6814 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(31419L), BGl_string3292z00zz__srfi4z00, BGl_string3193z00zz__srfi4z00, BgL_arg1508z00_1652); 
FAILURE(BgL_auxz00_6814,BFALSE,BFALSE);} 
BgL_tmpz00_6810 = 
BGL_BINT8_TO_INT8(BgL_tmpz00_6811); } 
BGL_S8VSET(BgL_vecz00_1646, BgL_iz00_1648, BgL_tmpz00_6810); }  else 
{ 
 obj_t BgL_auxz00_6820;
BgL_auxz00_6820 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(31419L), BGl_string3194z00zz__srfi4z00, BgL_vecz00_1646, 
(int)(BgL_l2260z00_3407), 
(int)(BgL_iz00_1648)); 
FAILURE(BgL_auxz00_6820,BFALSE,BFALSE);} } BUNSPEC; } 
{ /* Llib/srfi4.scm 796 */
 long BgL_arg1513z00_1657; obj_t BgL_arg1514z00_1658;
BgL_arg1513z00_1657 = 
(BgL_iz00_1648+1L); 
{ /* Llib/srfi4.scm 796 */
 obj_t BgL_pairz00_2620;
if(
PAIRP(BgL_lz00_1649))
{ /* Llib/srfi4.scm 796 */
BgL_pairz00_2620 = BgL_lz00_1649; }  else 
{ 
 obj_t BgL_auxz00_6829;
BgL_auxz00_6829 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(31419L), BGl_string3292z00zz__srfi4z00, BGl_string3293z00zz__srfi4z00, BgL_lz00_1649); 
FAILURE(BgL_auxz00_6829,BFALSE,BFALSE);} 
BgL_arg1514z00_1658 = 
CDR(BgL_pairz00_2620); } 
{ 
 obj_t BgL_lz00_6835; long BgL_iz00_6834;
BgL_iz00_6834 = BgL_arg1513z00_1657; 
BgL_lz00_6835 = BgL_arg1514z00_1658; 
BgL_lz00_1649 = BgL_lz00_6835; 
BgL_iz00_1648 = BgL_iz00_6834; 
goto BgL_zc3z04anonymousza31506ze3z87_1650;} } } } } } } } 

}



/* &list->s8vector */
obj_t BGl_z62listzd2ze3s8vectorz53zz__srfi4z00(obj_t BgL_envz00_3225, obj_t BgL_xz00_3226)
{
{ /* Llib/srfi4.scm 796 */
{ /* Llib/srfi4.scm 796 */
 obj_t BgL_auxz00_6836;
if(
BGl_pairzd2orzd2nullzf3zf3zz__r4_pairs_and_lists_6_3z00(BgL_xz00_3226))
{ /* Llib/srfi4.scm 796 */
BgL_auxz00_6836 = BgL_xz00_3226
; }  else 
{ 
 obj_t BgL_auxz00_6839;
BgL_auxz00_6839 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(31419L), BGl_string3294z00zz__srfi4z00, BGl_string3185z00zz__srfi4z00, BgL_xz00_3226); 
FAILURE(BgL_auxz00_6839,BFALSE,BFALSE);} 
return 
BGl_listzd2ze3s8vectorz31zz__srfi4z00(BgL_auxz00_6836);} } 

}



/* 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_1660;
BgL_lenz00_1660 = 
bgl_list_length(BgL_xz00_144); 
{ /* Llib/srfi4.scm 796 */
 obj_t BgL_vecz00_1661;
{ /* Llib/srfi4.scm 796 */
 int32_t BgL_tmpz00_6845;
BgL_tmpz00_6845 = 
(int32_t)(BgL_lenz00_1660); 
BgL_vecz00_1661 = 
BGL_ALLOC_U8VECTOR(BgL_tmpz00_6845); } 
{ /* Llib/srfi4.scm 796 */

{ 
 long BgL_iz00_1663; obj_t BgL_lz00_1664;
BgL_iz00_1663 = 0L; 
BgL_lz00_1664 = BgL_xz00_144; 
BgL_zc3z04anonymousza31515ze3z87_1665:
if(
(BgL_iz00_1663==BgL_lenz00_1660))
{ /* Llib/srfi4.scm 796 */
return BgL_vecz00_1661;}  else 
{ /* Llib/srfi4.scm 796 */
{ /* Llib/srfi4.scm 796 */
 obj_t BgL_arg1517z00_1667;
{ /* Llib/srfi4.scm 796 */
 bool_t BgL_test3877z00_6850;
{ /* Llib/srfi4.scm 796 */
 obj_t BgL_tmpz00_6851;
{ /* Llib/srfi4.scm 796 */
 obj_t BgL_pairz00_2623;
if(
PAIRP(BgL_lz00_1664))
{ /* Llib/srfi4.scm 796 */
BgL_pairz00_2623 = BgL_lz00_1664; }  else 
{ 
 obj_t BgL_auxz00_6854;
BgL_auxz00_6854 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(31419L), BGl_string3292z00zz__srfi4z00, BGl_string3293z00zz__srfi4z00, BgL_lz00_1664); 
FAILURE(BgL_auxz00_6854,BFALSE,BFALSE);} 
BgL_tmpz00_6851 = 
CAR(BgL_pairz00_2623); } 
BgL_test3877z00_6850 = 
INTEGERP(BgL_tmpz00_6851); } 
if(BgL_test3877z00_6850)
{ /* Llib/srfi4.scm 796 */
 obj_t BgL_arg1522z00_1670;
{ /* Llib/srfi4.scm 796 */
 obj_t BgL_pairz00_2624;
if(
PAIRP(BgL_lz00_1664))
{ /* Llib/srfi4.scm 796 */
BgL_pairz00_2624 = BgL_lz00_1664; }  else 
{ 
 obj_t BgL_auxz00_6862;
BgL_auxz00_6862 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(31419L), BGl_string3292z00zz__srfi4z00, BGl_string3293z00zz__srfi4z00, BgL_lz00_1664); 
FAILURE(BgL_auxz00_6862,BFALSE,BFALSE);} 
BgL_arg1522z00_1670 = 
CAR(BgL_pairz00_2624); } 
{ /* Llib/srfi4.scm 796 */
 long BgL_xz00_2625;
{ /* Llib/srfi4.scm 796 */
 obj_t BgL_tmpz00_6867;
if(
INTEGERP(BgL_arg1522z00_1670))
{ /* Llib/srfi4.scm 796 */
BgL_tmpz00_6867 = BgL_arg1522z00_1670
; }  else 
{ 
 obj_t BgL_auxz00_6870;
BgL_auxz00_6870 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(31419L), BGl_string3292z00zz__srfi4z00, BGl_string3192z00zz__srfi4z00, BgL_arg1522z00_1670); 
FAILURE(BgL_auxz00_6870,BFALSE,BFALSE);} 
BgL_xz00_2625 = 
(long)CINT(BgL_tmpz00_6867); } 
{ /* Llib/srfi4.scm 796 */
 uint8_t BgL_tmpz00_6875;
BgL_tmpz00_6875 = 
(uint8_t)(BgL_xz00_2625); 
BgL_arg1517z00_1667 = 
BGL_UINT8_TO_BUINT8(BgL_tmpz00_6875); } } }  else 
{ /* Llib/srfi4.scm 796 */
 obj_t BgL_pairz00_2626;
if(
PAIRP(BgL_lz00_1664))
{ /* Llib/srfi4.scm 796 */
BgL_pairz00_2626 = BgL_lz00_1664; }  else 
{ 
 obj_t BgL_auxz00_6880;
BgL_auxz00_6880 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(31419L), BGl_string3292z00zz__srfi4z00, BGl_string3293z00zz__srfi4z00, BgL_lz00_1664); 
FAILURE(BgL_auxz00_6880,BFALSE,BFALSE);} 
BgL_arg1517z00_1667 = 
CAR(BgL_pairz00_2626); } } 
{ /* Llib/srfi4.scm 796 */
 long BgL_l2264z00_3411;
BgL_l2264z00_3411 = 
BGL_HVECTOR_LENGTH(BgL_vecz00_1661); 
if(
BOUND_CHECK(BgL_iz00_1663, BgL_l2264z00_3411))
{ /* Llib/srfi4.scm 796 */
 uint8_t BgL_tmpz00_6888;
{ /* Llib/srfi4.scm 796 */
 obj_t BgL_tmpz00_6889;
if(
BGL_UINT8P(BgL_arg1517z00_1667))
{ /* Llib/srfi4.scm 796 */
BgL_tmpz00_6889 = BgL_arg1517z00_1667
; }  else 
{ 
 obj_t BgL_auxz00_6892;
BgL_auxz00_6892 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(31419L), BGl_string3292z00zz__srfi4z00, BGl_string3199z00zz__srfi4z00, BgL_arg1517z00_1667); 
FAILURE(BgL_auxz00_6892,BFALSE,BFALSE);} 
BgL_tmpz00_6888 = 
BGL_BUINT8_TO_UINT8(BgL_tmpz00_6889); } 
BGL_U8VSET(BgL_vecz00_1661, BgL_iz00_1663, BgL_tmpz00_6888); }  else 
{ 
 obj_t BgL_auxz00_6898;
BgL_auxz00_6898 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(31419L), BGl_string3200z00zz__srfi4z00, BgL_vecz00_1661, 
(int)(BgL_l2264z00_3411), 
(int)(BgL_iz00_1663)); 
FAILURE(BgL_auxz00_6898,BFALSE,BFALSE);} } BUNSPEC; } 
{ /* Llib/srfi4.scm 796 */
 long BgL_arg1524z00_1672; obj_t BgL_arg1525z00_1673;
BgL_arg1524z00_1672 = 
(BgL_iz00_1663+1L); 
{ /* Llib/srfi4.scm 796 */
 obj_t BgL_pairz00_2628;
if(
PAIRP(BgL_lz00_1664))
{ /* Llib/srfi4.scm 796 */
BgL_pairz00_2628 = BgL_lz00_1664; }  else 
{ 
 obj_t BgL_auxz00_6907;
BgL_auxz00_6907 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(31419L), BGl_string3292z00zz__srfi4z00, BGl_string3293z00zz__srfi4z00, BgL_lz00_1664); 
FAILURE(BgL_auxz00_6907,BFALSE,BFALSE);} 
BgL_arg1525z00_1673 = 
CDR(BgL_pairz00_2628); } 
{ 
 obj_t BgL_lz00_6913; long BgL_iz00_6912;
BgL_iz00_6912 = BgL_arg1524z00_1672; 
BgL_lz00_6913 = BgL_arg1525z00_1673; 
BgL_lz00_1664 = BgL_lz00_6913; 
BgL_iz00_1663 = BgL_iz00_6912; 
goto BgL_zc3z04anonymousza31515ze3z87_1665;} } } } } } } } 

}



/* &list->u8vector */
obj_t BGl_z62listzd2ze3u8vectorz53zz__srfi4z00(obj_t BgL_envz00_3227, obj_t BgL_xz00_3228)
{
{ /* Llib/srfi4.scm 796 */
{ /* Llib/srfi4.scm 796 */
 obj_t BgL_auxz00_6914;
if(
BGl_pairzd2orzd2nullzf3zf3zz__r4_pairs_and_lists_6_3z00(BgL_xz00_3228))
{ /* Llib/srfi4.scm 796 */
BgL_auxz00_6914 = BgL_xz00_3228
; }  else 
{ 
 obj_t BgL_auxz00_6917;
BgL_auxz00_6917 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(31419L), BGl_string3295z00zz__srfi4z00, BGl_string3185z00zz__srfi4z00, BgL_xz00_3228); 
FAILURE(BgL_auxz00_6917,BFALSE,BFALSE);} 
return 
BGl_listzd2ze3u8vectorz31zz__srfi4z00(BgL_auxz00_6914);} } 

}



/* 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_1675;
BgL_lenz00_1675 = 
bgl_list_length(BgL_xz00_145); 
{ /* Llib/srfi4.scm 796 */
 obj_t BgL_vecz00_1676;
{ /* Llib/srfi4.scm 796 */
 int32_t BgL_tmpz00_6923;
BgL_tmpz00_6923 = 
(int32_t)(BgL_lenz00_1675); 
BgL_vecz00_1676 = 
BGL_ALLOC_S16VECTOR(BgL_tmpz00_6923); } 
{ /* Llib/srfi4.scm 796 */

{ 
 long BgL_iz00_1678; obj_t BgL_lz00_1679;
BgL_iz00_1678 = 0L; 
BgL_lz00_1679 = BgL_xz00_145; 
BgL_zc3z04anonymousza31526ze3z87_1680:
if(
(BgL_iz00_1678==BgL_lenz00_1675))
{ /* Llib/srfi4.scm 796 */
return BgL_vecz00_1676;}  else 
{ /* Llib/srfi4.scm 796 */
{ /* Llib/srfi4.scm 796 */
 obj_t BgL_arg1528z00_1682;
{ /* Llib/srfi4.scm 796 */
 bool_t BgL_test3887z00_6928;
{ /* Llib/srfi4.scm 796 */
 obj_t BgL_tmpz00_6929;
{ /* Llib/srfi4.scm 796 */
 obj_t BgL_pairz00_2631;
if(
PAIRP(BgL_lz00_1679))
{ /* Llib/srfi4.scm 796 */
BgL_pairz00_2631 = BgL_lz00_1679; }  else 
{ 
 obj_t BgL_auxz00_6932;
BgL_auxz00_6932 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(31419L), BGl_string3292z00zz__srfi4z00, BGl_string3293z00zz__srfi4z00, BgL_lz00_1679); 
FAILURE(BgL_auxz00_6932,BFALSE,BFALSE);} 
BgL_tmpz00_6929 = 
CAR(BgL_pairz00_2631); } 
BgL_test3887z00_6928 = 
INTEGERP(BgL_tmpz00_6929); } 
if(BgL_test3887z00_6928)
{ /* Llib/srfi4.scm 796 */
 obj_t BgL_arg1534z00_1685;
{ /* Llib/srfi4.scm 796 */
 obj_t BgL_pairz00_2632;
if(
PAIRP(BgL_lz00_1679))
{ /* Llib/srfi4.scm 796 */
BgL_pairz00_2632 = BgL_lz00_1679; }  else 
{ 
 obj_t BgL_auxz00_6940;
BgL_auxz00_6940 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(31419L), BGl_string3292z00zz__srfi4z00, BGl_string3293z00zz__srfi4z00, BgL_lz00_1679); 
FAILURE(BgL_auxz00_6940,BFALSE,BFALSE);} 
BgL_arg1534z00_1685 = 
CAR(BgL_pairz00_2632); } 
{ /* Llib/srfi4.scm 796 */
 long BgL_xz00_2633;
{ /* Llib/srfi4.scm 796 */
 obj_t BgL_tmpz00_6945;
if(
INTEGERP(BgL_arg1534z00_1685))
{ /* Llib/srfi4.scm 796 */
BgL_tmpz00_6945 = BgL_arg1534z00_1685
; }  else 
{ 
 obj_t BgL_auxz00_6948;
BgL_auxz00_6948 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(31419L), BGl_string3292z00zz__srfi4z00, BGl_string3192z00zz__srfi4z00, BgL_arg1534z00_1685); 
FAILURE(BgL_auxz00_6948,BFALSE,BFALSE);} 
BgL_xz00_2633 = 
(long)CINT(BgL_tmpz00_6945); } 
{ /* Llib/srfi4.scm 796 */
 int16_t BgL_tmpz00_6953;
BgL_tmpz00_6953 = 
(int16_t)(BgL_xz00_2633); 
BgL_arg1528z00_1682 = 
BGL_INT16_TO_BINT16(BgL_tmpz00_6953); } } }  else 
{ /* Llib/srfi4.scm 796 */
 obj_t BgL_pairz00_2634;
if(
PAIRP(BgL_lz00_1679))
{ /* Llib/srfi4.scm 796 */
BgL_pairz00_2634 = BgL_lz00_1679; }  else 
{ 
 obj_t BgL_auxz00_6958;
BgL_auxz00_6958 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(31419L), BGl_string3292z00zz__srfi4z00, BGl_string3293z00zz__srfi4z00, BgL_lz00_1679); 
FAILURE(BgL_auxz00_6958,BFALSE,BFALSE);} 
BgL_arg1528z00_1682 = 
CAR(BgL_pairz00_2634); } } 
{ /* Llib/srfi4.scm 796 */
 long BgL_l2268z00_3415;
BgL_l2268z00_3415 = 
BGL_HVECTOR_LENGTH(BgL_vecz00_1676); 
if(
BOUND_CHECK(BgL_iz00_1678, BgL_l2268z00_3415))
{ /* Llib/srfi4.scm 796 */
 int16_t BgL_tmpz00_6966;
{ /* Llib/srfi4.scm 796 */
 obj_t BgL_tmpz00_6967;
if(
BGL_INT16P(BgL_arg1528z00_1682))
{ /* Llib/srfi4.scm 796 */
BgL_tmpz00_6967 = BgL_arg1528z00_1682
; }  else 
{ 
 obj_t BgL_auxz00_6970;
BgL_auxz00_6970 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(31419L), BGl_string3292z00zz__srfi4z00, BGl_string3205z00zz__srfi4z00, BgL_arg1528z00_1682); 
FAILURE(BgL_auxz00_6970,BFALSE,BFALSE);} 
BgL_tmpz00_6966 = 
BGL_BINT16_TO_INT16(BgL_tmpz00_6967); } 
BGL_S16VSET(BgL_vecz00_1676, BgL_iz00_1678, BgL_tmpz00_6966); }  else 
{ 
 obj_t BgL_auxz00_6976;
BgL_auxz00_6976 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(31419L), BGl_string3206z00zz__srfi4z00, BgL_vecz00_1676, 
(int)(BgL_l2268z00_3415), 
(int)(BgL_iz00_1678)); 
FAILURE(BgL_auxz00_6976,BFALSE,BFALSE);} } BUNSPEC; } 
{ /* Llib/srfi4.scm 796 */
 long BgL_arg1538z00_1687; obj_t BgL_arg1540z00_1688;
BgL_arg1538z00_1687 = 
(BgL_iz00_1678+1L); 
{ /* Llib/srfi4.scm 796 */
 obj_t BgL_pairz00_2636;
if(
PAIRP(BgL_lz00_1679))
{ /* Llib/srfi4.scm 796 */
BgL_pairz00_2636 = BgL_lz00_1679; }  else 
{ 
 obj_t BgL_auxz00_6985;
BgL_auxz00_6985 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(31419L), BGl_string3292z00zz__srfi4z00, BGl_string3293z00zz__srfi4z00, BgL_lz00_1679); 
FAILURE(BgL_auxz00_6985,BFALSE,BFALSE);} 
BgL_arg1540z00_1688 = 
CDR(BgL_pairz00_2636); } 
{ 
 obj_t BgL_lz00_6991; long BgL_iz00_6990;
BgL_iz00_6990 = BgL_arg1538z00_1687; 
BgL_lz00_6991 = BgL_arg1540z00_1688; 
BgL_lz00_1679 = BgL_lz00_6991; 
BgL_iz00_1678 = BgL_iz00_6990; 
goto BgL_zc3z04anonymousza31526ze3z87_1680;} } } } } } } } 

}



/* &list->s16vector */
obj_t BGl_z62listzd2ze3s16vectorz53zz__srfi4z00(obj_t BgL_envz00_3229, obj_t BgL_xz00_3230)
{
{ /* Llib/srfi4.scm 796 */
{ /* Llib/srfi4.scm 796 */
 obj_t BgL_auxz00_6992;
if(
BGl_pairzd2orzd2nullzf3zf3zz__r4_pairs_and_lists_6_3z00(BgL_xz00_3230))
{ /* Llib/srfi4.scm 796 */
BgL_auxz00_6992 = BgL_xz00_3230
; }  else 
{ 
 obj_t BgL_auxz00_6995;
BgL_auxz00_6995 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(31419L), BGl_string3296z00zz__srfi4z00, BGl_string3185z00zz__srfi4z00, BgL_xz00_3230); 
FAILURE(BgL_auxz00_6995,BFALSE,BFALSE);} 
return 
BGl_listzd2ze3s16vectorz31zz__srfi4z00(BgL_auxz00_6992);} } 

}



/* 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_1690;
BgL_lenz00_1690 = 
bgl_list_length(BgL_xz00_146); 
{ /* Llib/srfi4.scm 796 */
 obj_t BgL_vecz00_1691;
{ /* Llib/srfi4.scm 796 */
 int32_t BgL_tmpz00_7001;
BgL_tmpz00_7001 = 
(int32_t)(BgL_lenz00_1690); 
BgL_vecz00_1691 = 
BGL_ALLOC_U16VECTOR(BgL_tmpz00_7001); } 
{ /* Llib/srfi4.scm 796 */

{ 
 long BgL_iz00_1693; obj_t BgL_lz00_1694;
BgL_iz00_1693 = 0L; 
BgL_lz00_1694 = BgL_xz00_146; 
BgL_zc3z04anonymousza31541ze3z87_1695:
if(
(BgL_iz00_1693==BgL_lenz00_1690))
{ /* Llib/srfi4.scm 796 */
return BgL_vecz00_1691;}  else 
{ /* Llib/srfi4.scm 796 */
{ /* Llib/srfi4.scm 796 */
 obj_t BgL_arg1543z00_1697;
{ /* Llib/srfi4.scm 796 */
 bool_t BgL_test3897z00_7006;
{ /* Llib/srfi4.scm 796 */
 obj_t BgL_tmpz00_7007;
{ /* Llib/srfi4.scm 796 */
 obj_t BgL_pairz00_2639;
if(
PAIRP(BgL_lz00_1694))
{ /* Llib/srfi4.scm 796 */
BgL_pairz00_2639 = BgL_lz00_1694; }  else 
{ 
 obj_t BgL_auxz00_7010;
BgL_auxz00_7010 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(31419L), BGl_string3292z00zz__srfi4z00, BGl_string3293z00zz__srfi4z00, BgL_lz00_1694); 
FAILURE(BgL_auxz00_7010,BFALSE,BFALSE);} 
BgL_tmpz00_7007 = 
CAR(BgL_pairz00_2639); } 
BgL_test3897z00_7006 = 
INTEGERP(BgL_tmpz00_7007); } 
if(BgL_test3897z00_7006)
{ /* Llib/srfi4.scm 796 */
 obj_t BgL_arg1547z00_1700;
{ /* Llib/srfi4.scm 796 */
 obj_t BgL_pairz00_2640;
if(
PAIRP(BgL_lz00_1694))
{ /* Llib/srfi4.scm 796 */
BgL_pairz00_2640 = BgL_lz00_1694; }  else 
{ 
 obj_t BgL_auxz00_7018;
BgL_auxz00_7018 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(31419L), BGl_string3292z00zz__srfi4z00, BGl_string3293z00zz__srfi4z00, BgL_lz00_1694); 
FAILURE(BgL_auxz00_7018,BFALSE,BFALSE);} 
BgL_arg1547z00_1700 = 
CAR(BgL_pairz00_2640); } 
{ /* Llib/srfi4.scm 796 */
 long BgL_xz00_2641;
{ /* Llib/srfi4.scm 796 */
 obj_t BgL_tmpz00_7023;
if(
INTEGERP(BgL_arg1547z00_1700))
{ /* Llib/srfi4.scm 796 */
BgL_tmpz00_7023 = BgL_arg1547z00_1700
; }  else 
{ 
 obj_t BgL_auxz00_7026;
BgL_auxz00_7026 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(31419L), BGl_string3292z00zz__srfi4z00, BGl_string3192z00zz__srfi4z00, BgL_arg1547z00_1700); 
FAILURE(BgL_auxz00_7026,BFALSE,BFALSE);} 
BgL_xz00_2641 = 
(long)CINT(BgL_tmpz00_7023); } 
{ /* Llib/srfi4.scm 796 */
 uint16_t BgL_tmpz00_7031;
BgL_tmpz00_7031 = 
(uint16_t)(BgL_xz00_2641); 
BgL_arg1543z00_1697 = 
BGL_UINT16_TO_BUINT16(BgL_tmpz00_7031); } } }  else 
{ /* Llib/srfi4.scm 796 */
 obj_t BgL_pairz00_2642;
if(
PAIRP(BgL_lz00_1694))
{ /* Llib/srfi4.scm 796 */
BgL_pairz00_2642 = BgL_lz00_1694; }  else 
{ 
 obj_t BgL_auxz00_7036;
BgL_auxz00_7036 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(31419L), BGl_string3292z00zz__srfi4z00, BGl_string3293z00zz__srfi4z00, BgL_lz00_1694); 
FAILURE(BgL_auxz00_7036,BFALSE,BFALSE);} 
BgL_arg1543z00_1697 = 
CAR(BgL_pairz00_2642); } } 
{ /* Llib/srfi4.scm 796 */
 long BgL_l2272z00_3419;
BgL_l2272z00_3419 = 
BGL_HVECTOR_LENGTH(BgL_vecz00_1691); 
if(
BOUND_CHECK(BgL_iz00_1693, BgL_l2272z00_3419))
{ /* Llib/srfi4.scm 796 */
 uint16_t BgL_tmpz00_7044;
{ /* Llib/srfi4.scm 796 */
 obj_t BgL_tmpz00_7045;
if(
BGL_UINT16P(BgL_arg1543z00_1697))
{ /* Llib/srfi4.scm 796 */
BgL_tmpz00_7045 = BgL_arg1543z00_1697
; }  else 
{ 
 obj_t BgL_auxz00_7048;
BgL_auxz00_7048 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(31419L), BGl_string3292z00zz__srfi4z00, BGl_string3211z00zz__srfi4z00, BgL_arg1543z00_1697); 
FAILURE(BgL_auxz00_7048,BFALSE,BFALSE);} 
BgL_tmpz00_7044 = 
BGL_BUINT16_TO_UINT16(BgL_tmpz00_7045); } 
BGL_U16VSET(BgL_vecz00_1691, BgL_iz00_1693, BgL_tmpz00_7044); }  else 
{ 
 obj_t BgL_auxz00_7054;
BgL_auxz00_7054 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(31419L), BGl_string3212z00zz__srfi4z00, BgL_vecz00_1691, 
(int)(BgL_l2272z00_3419), 
(int)(BgL_iz00_1693)); 
FAILURE(BgL_auxz00_7054,BFALSE,BFALSE);} } BUNSPEC; } 
{ /* Llib/srfi4.scm 796 */
 long BgL_arg1551z00_1702; obj_t BgL_arg1552z00_1703;
BgL_arg1551z00_1702 = 
(BgL_iz00_1693+1L); 
{ /* Llib/srfi4.scm 796 */
 obj_t BgL_pairz00_2644;
if(
PAIRP(BgL_lz00_1694))
{ /* Llib/srfi4.scm 796 */
BgL_pairz00_2644 = BgL_lz00_1694; }  else 
{ 
 obj_t BgL_auxz00_7063;
BgL_auxz00_7063 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(31419L), BGl_string3292z00zz__srfi4z00, BGl_string3293z00zz__srfi4z00, BgL_lz00_1694); 
FAILURE(BgL_auxz00_7063,BFALSE,BFALSE);} 
BgL_arg1552z00_1703 = 
CDR(BgL_pairz00_2644); } 
{ 
 obj_t BgL_lz00_7069; long BgL_iz00_7068;
BgL_iz00_7068 = BgL_arg1551z00_1702; 
BgL_lz00_7069 = BgL_arg1552z00_1703; 
BgL_lz00_1694 = BgL_lz00_7069; 
BgL_iz00_1693 = BgL_iz00_7068; 
goto BgL_zc3z04anonymousza31541ze3z87_1695;} } } } } } } } 

}



/* &list->u16vector */
obj_t BGl_z62listzd2ze3u16vectorz53zz__srfi4z00(obj_t BgL_envz00_3231, obj_t BgL_xz00_3232)
{
{ /* Llib/srfi4.scm 796 */
{ /* Llib/srfi4.scm 796 */
 obj_t BgL_auxz00_7070;
if(
BGl_pairzd2orzd2nullzf3zf3zz__r4_pairs_and_lists_6_3z00(BgL_xz00_3232))
{ /* Llib/srfi4.scm 796 */
BgL_auxz00_7070 = BgL_xz00_3232
; }  else 
{ 
 obj_t BgL_auxz00_7073;
BgL_auxz00_7073 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(31419L), BGl_string3297z00zz__srfi4z00, BGl_string3185z00zz__srfi4z00, BgL_xz00_3232); 
FAILURE(BgL_auxz00_7073,BFALSE,BFALSE);} 
return 
BGl_listzd2ze3u16vectorz31zz__srfi4z00(BgL_auxz00_7070);} } 

}



/* 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_1705;
BgL_lenz00_1705 = 
bgl_list_length(BgL_xz00_147); 
{ /* Llib/srfi4.scm 796 */
 obj_t BgL_vecz00_1706;
{ /* Llib/srfi4.scm 796 */
 int32_t BgL_tmpz00_7079;
BgL_tmpz00_7079 = 
(int32_t)(BgL_lenz00_1705); 
BgL_vecz00_1706 = 
BGL_ALLOC_S32VECTOR(BgL_tmpz00_7079); } 
{ /* Llib/srfi4.scm 796 */

{ 
 long BgL_iz00_1708; obj_t BgL_lz00_1709;
BgL_iz00_1708 = 0L; 
BgL_lz00_1709 = BgL_xz00_147; 
BgL_zc3z04anonymousza31553ze3z87_1710:
if(
(BgL_iz00_1708==BgL_lenz00_1705))
{ /* Llib/srfi4.scm 796 */
return BgL_vecz00_1706;}  else 
{ /* Llib/srfi4.scm 796 */
{ /* Llib/srfi4.scm 796 */
 obj_t BgL_arg1555z00_1712;
{ /* Llib/srfi4.scm 796 */
 bool_t BgL_test3907z00_7084;
{ /* Llib/srfi4.scm 796 */
 obj_t BgL_tmpz00_7085;
{ /* Llib/srfi4.scm 796 */
 obj_t BgL_pairz00_2647;
if(
PAIRP(BgL_lz00_1709))
{ /* Llib/srfi4.scm 796 */
BgL_pairz00_2647 = BgL_lz00_1709; }  else 
{ 
 obj_t BgL_auxz00_7088;
BgL_auxz00_7088 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(31419L), BGl_string3292z00zz__srfi4z00, BGl_string3293z00zz__srfi4z00, BgL_lz00_1709); 
FAILURE(BgL_auxz00_7088,BFALSE,BFALSE);} 
BgL_tmpz00_7085 = 
CAR(BgL_pairz00_2647); } 
BgL_test3907z00_7084 = 
INTEGERP(BgL_tmpz00_7085); } 
if(BgL_test3907z00_7084)
{ /* Llib/srfi4.scm 796 */
 obj_t BgL_arg1561z00_1715;
{ /* Llib/srfi4.scm 796 */
 obj_t BgL_pairz00_2648;
if(
PAIRP(BgL_lz00_1709))
{ /* Llib/srfi4.scm 796 */
BgL_pairz00_2648 = BgL_lz00_1709; }  else 
{ 
 obj_t BgL_auxz00_7096;
BgL_auxz00_7096 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(31419L), BGl_string3292z00zz__srfi4z00, BGl_string3293z00zz__srfi4z00, BgL_lz00_1709); 
FAILURE(BgL_auxz00_7096,BFALSE,BFALSE);} 
BgL_arg1561z00_1715 = 
CAR(BgL_pairz00_2648); } 
{ /* Llib/srfi4.scm 796 */
 long BgL_xz00_2649;
{ /* Llib/srfi4.scm 796 */
 obj_t BgL_tmpz00_7101;
if(
INTEGERP(BgL_arg1561z00_1715))
{ /* Llib/srfi4.scm 796 */
BgL_tmpz00_7101 = BgL_arg1561z00_1715
; }  else 
{ 
 obj_t BgL_auxz00_7104;
BgL_auxz00_7104 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(31419L), BGl_string3292z00zz__srfi4z00, BGl_string3192z00zz__srfi4z00, BgL_arg1561z00_1715); 
FAILURE(BgL_auxz00_7104,BFALSE,BFALSE);} 
BgL_xz00_2649 = 
(long)CINT(BgL_tmpz00_7101); } 
{ /* Llib/srfi4.scm 796 */
 int32_t BgL_tmpz00_7109;
BgL_tmpz00_7109 = 
(int32_t)(BgL_xz00_2649); 
BgL_arg1555z00_1712 = 
BGL_INT32_TO_BINT32(BgL_tmpz00_7109); } } }  else 
{ /* Llib/srfi4.scm 796 */
 obj_t BgL_pairz00_2650;
if(
PAIRP(BgL_lz00_1709))
{ /* Llib/srfi4.scm 796 */
BgL_pairz00_2650 = BgL_lz00_1709; }  else 
{ 
 obj_t BgL_auxz00_7114;
BgL_auxz00_7114 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(31419L), BGl_string3292z00zz__srfi4z00, BGl_string3293z00zz__srfi4z00, BgL_lz00_1709); 
FAILURE(BgL_auxz00_7114,BFALSE,BFALSE);} 
BgL_arg1555z00_1712 = 
CAR(BgL_pairz00_2650); } } 
{ /* Llib/srfi4.scm 796 */
 long BgL_l2276z00_3423;
BgL_l2276z00_3423 = 
BGL_HVECTOR_LENGTH(BgL_vecz00_1706); 
if(
BOUND_CHECK(BgL_iz00_1708, BgL_l2276z00_3423))
{ /* Llib/srfi4.scm 796 */
 int32_t BgL_tmpz00_7122;
{ /* Llib/srfi4.scm 796 */
 obj_t BgL_tmpz00_7123;
if(
BGL_INT32P(BgL_arg1555z00_1712))
{ /* Llib/srfi4.scm 796 */
BgL_tmpz00_7123 = BgL_arg1555z00_1712
; }  else 
{ 
 obj_t BgL_auxz00_7126;
BgL_auxz00_7126 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(31419L), BGl_string3292z00zz__srfi4z00, BGl_string3217z00zz__srfi4z00, BgL_arg1555z00_1712); 
FAILURE(BgL_auxz00_7126,BFALSE,BFALSE);} 
BgL_tmpz00_7122 = 
BGL_BINT32_TO_INT32(BgL_tmpz00_7123); } 
BGL_S32VSET(BgL_vecz00_1706, BgL_iz00_1708, BgL_tmpz00_7122); }  else 
{ 
 obj_t BgL_auxz00_7132;
BgL_auxz00_7132 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(31419L), BGl_string3218z00zz__srfi4z00, BgL_vecz00_1706, 
(int)(BgL_l2276z00_3423), 
(int)(BgL_iz00_1708)); 
FAILURE(BgL_auxz00_7132,BFALSE,BFALSE);} } BUNSPEC; } 
{ /* Llib/srfi4.scm 796 */
 long BgL_arg1563z00_1717; obj_t BgL_arg1565z00_1718;
BgL_arg1563z00_1717 = 
(BgL_iz00_1708+1L); 
{ /* Llib/srfi4.scm 796 */
 obj_t BgL_pairz00_2652;
if(
PAIRP(BgL_lz00_1709))
{ /* Llib/srfi4.scm 796 */
BgL_pairz00_2652 = BgL_lz00_1709; }  else 
{ 
 obj_t BgL_auxz00_7141;
BgL_auxz00_7141 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(31419L), BGl_string3292z00zz__srfi4z00, BGl_string3293z00zz__srfi4z00, BgL_lz00_1709); 
FAILURE(BgL_auxz00_7141,BFALSE,BFALSE);} 
BgL_arg1565z00_1718 = 
CDR(BgL_pairz00_2652); } 
{ 
 obj_t BgL_lz00_7147; long BgL_iz00_7146;
BgL_iz00_7146 = BgL_arg1563z00_1717; 
BgL_lz00_7147 = BgL_arg1565z00_1718; 
BgL_lz00_1709 = BgL_lz00_7147; 
BgL_iz00_1708 = BgL_iz00_7146; 
goto BgL_zc3z04anonymousza31553ze3z87_1710;} } } } } } } } 

}



/* &list->s32vector */
obj_t BGl_z62listzd2ze3s32vectorz53zz__srfi4z00(obj_t BgL_envz00_3233, obj_t BgL_xz00_3234)
{
{ /* Llib/srfi4.scm 796 */
{ /* Llib/srfi4.scm 796 */
 obj_t BgL_auxz00_7148;
if(
BGl_pairzd2orzd2nullzf3zf3zz__r4_pairs_and_lists_6_3z00(BgL_xz00_3234))
{ /* Llib/srfi4.scm 796 */
BgL_auxz00_7148 = BgL_xz00_3234
; }  else 
{ 
 obj_t BgL_auxz00_7151;
BgL_auxz00_7151 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(31419L), BGl_string3298z00zz__srfi4z00, BGl_string3185z00zz__srfi4z00, BgL_xz00_3234); 
FAILURE(BgL_auxz00_7151,BFALSE,BFALSE);} 
return 
BGl_listzd2ze3s32vectorz31zz__srfi4z00(BgL_auxz00_7148);} } 

}



/* 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_1720;
BgL_lenz00_1720 = 
bgl_list_length(BgL_xz00_148); 
{ /* Llib/srfi4.scm 796 */
 obj_t BgL_vecz00_1721;
{ /* Llib/srfi4.scm 796 */
 int32_t BgL_tmpz00_7157;
BgL_tmpz00_7157 = 
(int32_t)(BgL_lenz00_1720); 
BgL_vecz00_1721 = 
BGL_ALLOC_U32VECTOR(BgL_tmpz00_7157); } 
{ /* Llib/srfi4.scm 796 */

{ 
 long BgL_iz00_1723; obj_t BgL_lz00_1724;
BgL_iz00_1723 = 0L; 
BgL_lz00_1724 = BgL_xz00_148; 
BgL_zc3z04anonymousza31566ze3z87_1725:
if(
(BgL_iz00_1723==BgL_lenz00_1720))
{ /* Llib/srfi4.scm 796 */
return BgL_vecz00_1721;}  else 
{ /* Llib/srfi4.scm 796 */
{ /* Llib/srfi4.scm 796 */
 obj_t BgL_arg1568z00_1727;
{ /* Llib/srfi4.scm 796 */
 bool_t BgL_test3917z00_7162;
{ /* Llib/srfi4.scm 796 */
 obj_t BgL_tmpz00_7163;
{ /* Llib/srfi4.scm 796 */
 obj_t BgL_pairz00_2655;
if(
PAIRP(BgL_lz00_1724))
{ /* Llib/srfi4.scm 796 */
BgL_pairz00_2655 = BgL_lz00_1724; }  else 
{ 
 obj_t BgL_auxz00_7166;
BgL_auxz00_7166 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(31419L), BGl_string3292z00zz__srfi4z00, BGl_string3293z00zz__srfi4z00, BgL_lz00_1724); 
FAILURE(BgL_auxz00_7166,BFALSE,BFALSE);} 
BgL_tmpz00_7163 = 
CAR(BgL_pairz00_2655); } 
BgL_test3917z00_7162 = 
INTEGERP(BgL_tmpz00_7163); } 
if(BgL_test3917z00_7162)
{ /* Llib/srfi4.scm 796 */
 obj_t BgL_arg1573z00_1730;
{ /* Llib/srfi4.scm 796 */
 obj_t BgL_pairz00_2656;
if(
PAIRP(BgL_lz00_1724))
{ /* Llib/srfi4.scm 796 */
BgL_pairz00_2656 = BgL_lz00_1724; }  else 
{ 
 obj_t BgL_auxz00_7174;
BgL_auxz00_7174 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(31419L), BGl_string3292z00zz__srfi4z00, BGl_string3293z00zz__srfi4z00, BgL_lz00_1724); 
FAILURE(BgL_auxz00_7174,BFALSE,BFALSE);} 
BgL_arg1573z00_1730 = 
CAR(BgL_pairz00_2656); } 
{ /* Llib/srfi4.scm 796 */
 long BgL_xz00_2657;
{ /* Llib/srfi4.scm 796 */
 obj_t BgL_tmpz00_7179;
if(
INTEGERP(BgL_arg1573z00_1730))
{ /* Llib/srfi4.scm 796 */
BgL_tmpz00_7179 = BgL_arg1573z00_1730
; }  else 
{ 
 obj_t BgL_auxz00_7182;
BgL_auxz00_7182 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(31419L), BGl_string3292z00zz__srfi4z00, BGl_string3192z00zz__srfi4z00, BgL_arg1573z00_1730); 
FAILURE(BgL_auxz00_7182,BFALSE,BFALSE);} 
BgL_xz00_2657 = 
(long)CINT(BgL_tmpz00_7179); } 
{ /* Llib/srfi4.scm 796 */
 uint32_t BgL_tmpz00_7187;
BgL_tmpz00_7187 = 
(uint32_t)(BgL_xz00_2657); 
BgL_arg1568z00_1727 = 
BGL_UINT32_TO_BUINT32(BgL_tmpz00_7187); } } }  else 
{ /* Llib/srfi4.scm 796 */
 obj_t BgL_pairz00_2658;
if(
PAIRP(BgL_lz00_1724))
{ /* Llib/srfi4.scm 796 */
BgL_pairz00_2658 = BgL_lz00_1724; }  else 
{ 
 obj_t BgL_auxz00_7192;
BgL_auxz00_7192 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(31419L), BGl_string3292z00zz__srfi4z00, BGl_string3293z00zz__srfi4z00, BgL_lz00_1724); 
FAILURE(BgL_auxz00_7192,BFALSE,BFALSE);} 
BgL_arg1568z00_1727 = 
CAR(BgL_pairz00_2658); } } 
{ /* Llib/srfi4.scm 796 */
 long BgL_l2280z00_3427;
BgL_l2280z00_3427 = 
BGL_HVECTOR_LENGTH(BgL_vecz00_1721); 
if(
BOUND_CHECK(BgL_iz00_1723, BgL_l2280z00_3427))
{ /* Llib/srfi4.scm 796 */
 uint32_t BgL_tmpz00_7200;
{ /* Llib/srfi4.scm 796 */
 obj_t BgL_tmpz00_7201;
if(
BGL_UINT32P(BgL_arg1568z00_1727))
{ /* Llib/srfi4.scm 796 */
BgL_tmpz00_7201 = BgL_arg1568z00_1727
; }  else 
{ 
 obj_t BgL_auxz00_7204;
BgL_auxz00_7204 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(31419L), BGl_string3292z00zz__srfi4z00, BGl_string3223z00zz__srfi4z00, BgL_arg1568z00_1727); 
FAILURE(BgL_auxz00_7204,BFALSE,BFALSE);} 
BgL_tmpz00_7200 = 
BGL_BUINT32_TO_UINT32(BgL_tmpz00_7201); } 
BGL_U32VSET(BgL_vecz00_1721, BgL_iz00_1723, BgL_tmpz00_7200); }  else 
{ 
 obj_t BgL_auxz00_7210;
BgL_auxz00_7210 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(31419L), BGl_string3224z00zz__srfi4z00, BgL_vecz00_1721, 
(int)(BgL_l2280z00_3427), 
(int)(BgL_iz00_1723)); 
FAILURE(BgL_auxz00_7210,BFALSE,BFALSE);} } BUNSPEC; } 
{ /* Llib/srfi4.scm 796 */
 long BgL_arg1575z00_1732; obj_t BgL_arg1577z00_1733;
BgL_arg1575z00_1732 = 
(BgL_iz00_1723+1L); 
{ /* Llib/srfi4.scm 796 */
 obj_t BgL_pairz00_2660;
if(
PAIRP(BgL_lz00_1724))
{ /* Llib/srfi4.scm 796 */
BgL_pairz00_2660 = BgL_lz00_1724; }  else 
{ 
 obj_t BgL_auxz00_7219;
BgL_auxz00_7219 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(31419L), BGl_string3292z00zz__srfi4z00, BGl_string3293z00zz__srfi4z00, BgL_lz00_1724); 
FAILURE(BgL_auxz00_7219,BFALSE,BFALSE);} 
BgL_arg1577z00_1733 = 
CDR(BgL_pairz00_2660); } 
{ 
 obj_t BgL_lz00_7225; long BgL_iz00_7224;
BgL_iz00_7224 = BgL_arg1575z00_1732; 
BgL_lz00_7225 = BgL_arg1577z00_1733; 
BgL_lz00_1724 = BgL_lz00_7225; 
BgL_iz00_1723 = BgL_iz00_7224; 
goto BgL_zc3z04anonymousza31566ze3z87_1725;} } } } } } } } 

}



/* &list->u32vector */
obj_t BGl_z62listzd2ze3u32vectorz53zz__srfi4z00(obj_t BgL_envz00_3235, obj_t BgL_xz00_3236)
{
{ /* Llib/srfi4.scm 796 */
{ /* Llib/srfi4.scm 796 */
 obj_t BgL_auxz00_7226;
if(
BGl_pairzd2orzd2nullzf3zf3zz__r4_pairs_and_lists_6_3z00(BgL_xz00_3236))
{ /* Llib/srfi4.scm 796 */
BgL_auxz00_7226 = BgL_xz00_3236
; }  else 
{ 
 obj_t BgL_auxz00_7229;
BgL_auxz00_7229 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(31419L), BGl_string3299z00zz__srfi4z00, BGl_string3185z00zz__srfi4z00, BgL_xz00_3236); 
FAILURE(BgL_auxz00_7229,BFALSE,BFALSE);} 
return 
BGl_listzd2ze3u32vectorz31zz__srfi4z00(BgL_auxz00_7226);} } 

}



/* 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_1735;
BgL_lenz00_1735 = 
bgl_list_length(BgL_xz00_149); 
{ /* Llib/srfi4.scm 796 */
 obj_t BgL_vecz00_1736;
{ /* Llib/srfi4.scm 796 */
 int32_t BgL_tmpz00_7235;
BgL_tmpz00_7235 = 
(int32_t)(BgL_lenz00_1735); 
BgL_vecz00_1736 = 
BGL_ALLOC_S64VECTOR(BgL_tmpz00_7235); } 
{ /* Llib/srfi4.scm 796 */

{ 
 long BgL_iz00_1738; obj_t BgL_lz00_1739;
BgL_iz00_1738 = 0L; 
BgL_lz00_1739 = BgL_xz00_149; 
BgL_zc3z04anonymousza31578ze3z87_1740:
if(
(BgL_iz00_1738==BgL_lenz00_1735))
{ /* Llib/srfi4.scm 796 */
return BgL_vecz00_1736;}  else 
{ /* Llib/srfi4.scm 796 */
{ /* Llib/srfi4.scm 796 */
 obj_t BgL_arg1580z00_1742;
{ /* Llib/srfi4.scm 796 */
 bool_t BgL_test3927z00_7240;
{ /* Llib/srfi4.scm 796 */
 obj_t BgL_tmpz00_7241;
{ /* Llib/srfi4.scm 796 */
 obj_t BgL_pairz00_2663;
if(
PAIRP(BgL_lz00_1739))
{ /* Llib/srfi4.scm 796 */
BgL_pairz00_2663 = BgL_lz00_1739; }  else 
{ 
 obj_t BgL_auxz00_7244;
BgL_auxz00_7244 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(31419L), BGl_string3292z00zz__srfi4z00, BGl_string3293z00zz__srfi4z00, BgL_lz00_1739); 
FAILURE(BgL_auxz00_7244,BFALSE,BFALSE);} 
BgL_tmpz00_7241 = 
CAR(BgL_pairz00_2663); } 
BgL_test3927z00_7240 = 
INTEGERP(BgL_tmpz00_7241); } 
if(BgL_test3927z00_7240)
{ /* Llib/srfi4.scm 796 */
 obj_t BgL_arg1584z00_1745;
{ /* Llib/srfi4.scm 796 */
 obj_t BgL_pairz00_2664;
if(
PAIRP(BgL_lz00_1739))
{ /* Llib/srfi4.scm 796 */
BgL_pairz00_2664 = BgL_lz00_1739; }  else 
{ 
 obj_t BgL_auxz00_7252;
BgL_auxz00_7252 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(31419L), BGl_string3292z00zz__srfi4z00, BGl_string3293z00zz__srfi4z00, BgL_lz00_1739); 
FAILURE(BgL_auxz00_7252,BFALSE,BFALSE);} 
BgL_arg1584z00_1745 = 
CAR(BgL_pairz00_2664); } 
{ /* Llib/srfi4.scm 796 */
 long BgL_xz00_2665;
{ /* Llib/srfi4.scm 796 */
 obj_t BgL_tmpz00_7257;
if(
INTEGERP(BgL_arg1584z00_1745))
{ /* Llib/srfi4.scm 796 */
BgL_tmpz00_7257 = BgL_arg1584z00_1745
; }  else 
{ 
 obj_t BgL_auxz00_7260;
BgL_auxz00_7260 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(31419L), BGl_string3292z00zz__srfi4z00, BGl_string3192z00zz__srfi4z00, BgL_arg1584z00_1745); 
FAILURE(BgL_auxz00_7260,BFALSE,BFALSE);} 
BgL_xz00_2665 = 
(long)CINT(BgL_tmpz00_7257); } 
{ /* Llib/srfi4.scm 796 */
 int64_t BgL_tmpz00_7265;
BgL_tmpz00_7265 = 
(int64_t)(BgL_xz00_2665); 
BgL_arg1580z00_1742 = 
BGL_INT64_TO_BINT64(BgL_tmpz00_7265); } } }  else 
{ /* Llib/srfi4.scm 796 */
 obj_t BgL_pairz00_2666;
if(
PAIRP(BgL_lz00_1739))
{ /* Llib/srfi4.scm 796 */
BgL_pairz00_2666 = BgL_lz00_1739; }  else 
{ 
 obj_t BgL_auxz00_7270;
BgL_auxz00_7270 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(31419L), BGl_string3292z00zz__srfi4z00, BGl_string3293z00zz__srfi4z00, BgL_lz00_1739); 
FAILURE(BgL_auxz00_7270,BFALSE,BFALSE);} 
BgL_arg1580z00_1742 = 
CAR(BgL_pairz00_2666); } } 
{ /* Llib/srfi4.scm 796 */
 long BgL_l2284z00_3431;
BgL_l2284z00_3431 = 
BGL_HVECTOR_LENGTH(BgL_vecz00_1736); 
if(
BOUND_CHECK(BgL_iz00_1738, BgL_l2284z00_3431))
{ /* Llib/srfi4.scm 796 */
 int64_t BgL_tmpz00_7278;
{ /* Llib/srfi4.scm 796 */
 obj_t BgL_tmpz00_7279;
if(
BGL_INT64P(BgL_arg1580z00_1742))
{ /* Llib/srfi4.scm 796 */
BgL_tmpz00_7279 = BgL_arg1580z00_1742
; }  else 
{ 
 obj_t BgL_auxz00_7282;
BgL_auxz00_7282 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(31419L), BGl_string3292z00zz__srfi4z00, BGl_string3229z00zz__srfi4z00, BgL_arg1580z00_1742); 
FAILURE(BgL_auxz00_7282,BFALSE,BFALSE);} 
BgL_tmpz00_7278 = 
BGL_BINT64_TO_INT64(BgL_tmpz00_7279); } 
BGL_S64VSET(BgL_vecz00_1736, BgL_iz00_1738, BgL_tmpz00_7278); }  else 
{ 
 obj_t BgL_auxz00_7288;
BgL_auxz00_7288 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(31419L), BGl_string3230z00zz__srfi4z00, BgL_vecz00_1736, 
(int)(BgL_l2284z00_3431), 
(int)(BgL_iz00_1738)); 
FAILURE(BgL_auxz00_7288,BFALSE,BFALSE);} } BUNSPEC; } 
{ /* Llib/srfi4.scm 796 */
 long BgL_arg1587z00_1747; obj_t BgL_arg1588z00_1748;
BgL_arg1587z00_1747 = 
(BgL_iz00_1738+1L); 
{ /* Llib/srfi4.scm 796 */
 obj_t BgL_pairz00_2668;
if(
PAIRP(BgL_lz00_1739))
{ /* Llib/srfi4.scm 796 */
BgL_pairz00_2668 = BgL_lz00_1739; }  else 
{ 
 obj_t BgL_auxz00_7297;
BgL_auxz00_7297 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(31419L), BGl_string3292z00zz__srfi4z00, BGl_string3293z00zz__srfi4z00, BgL_lz00_1739); 
FAILURE(BgL_auxz00_7297,BFALSE,BFALSE);} 
BgL_arg1588z00_1748 = 
CDR(BgL_pairz00_2668); } 
{ 
 obj_t BgL_lz00_7303; long BgL_iz00_7302;
BgL_iz00_7302 = BgL_arg1587z00_1747; 
BgL_lz00_7303 = BgL_arg1588z00_1748; 
BgL_lz00_1739 = BgL_lz00_7303; 
BgL_iz00_1738 = BgL_iz00_7302; 
goto BgL_zc3z04anonymousza31578ze3z87_1740;} } } } } } } } 

}



/* &list->s64vector */
obj_t BGl_z62listzd2ze3s64vectorz53zz__srfi4z00(obj_t BgL_envz00_3237, obj_t BgL_xz00_3238)
{
{ /* Llib/srfi4.scm 796 */
{ /* Llib/srfi4.scm 796 */
 obj_t BgL_auxz00_7304;
if(
BGl_pairzd2orzd2nullzf3zf3zz__r4_pairs_and_lists_6_3z00(BgL_xz00_3238))
{ /* Llib/srfi4.scm 796 */
BgL_auxz00_7304 = BgL_xz00_3238
; }  else 
{ 
 obj_t BgL_auxz00_7307;
BgL_auxz00_7307 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(31419L), BGl_string3300z00zz__srfi4z00, BGl_string3185z00zz__srfi4z00, BgL_xz00_3238); 
FAILURE(BgL_auxz00_7307,BFALSE,BFALSE);} 
return 
BGl_listzd2ze3s64vectorz31zz__srfi4z00(BgL_auxz00_7304);} } 

}



/* 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_1750;
BgL_lenz00_1750 = 
bgl_list_length(BgL_xz00_150); 
{ /* Llib/srfi4.scm 796 */
 obj_t BgL_vecz00_1751;
{ /* Llib/srfi4.scm 796 */
 int32_t BgL_tmpz00_7313;
BgL_tmpz00_7313 = 
(int32_t)(BgL_lenz00_1750); 
BgL_vecz00_1751 = 
BGL_ALLOC_U64VECTOR(BgL_tmpz00_7313); } 
{ /* Llib/srfi4.scm 796 */

{ 
 long BgL_iz00_1753; obj_t BgL_lz00_1754;
BgL_iz00_1753 = 0L; 
BgL_lz00_1754 = BgL_xz00_150; 
BgL_zc3z04anonymousza31589ze3z87_1755:
if(
(BgL_iz00_1753==BgL_lenz00_1750))
{ /* Llib/srfi4.scm 796 */
return BgL_vecz00_1751;}  else 
{ /* Llib/srfi4.scm 796 */
{ /* Llib/srfi4.scm 796 */
 obj_t BgL_arg1592z00_1757;
{ /* Llib/srfi4.scm 796 */
 bool_t BgL_test3937z00_7318;
{ /* Llib/srfi4.scm 796 */
 obj_t BgL_tmpz00_7319;
{ /* Llib/srfi4.scm 796 */
 obj_t BgL_pairz00_2671;
if(
PAIRP(BgL_lz00_1754))
{ /* Llib/srfi4.scm 796 */
BgL_pairz00_2671 = BgL_lz00_1754; }  else 
{ 
 obj_t BgL_auxz00_7322;
BgL_auxz00_7322 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(31419L), BGl_string3292z00zz__srfi4z00, BGl_string3293z00zz__srfi4z00, BgL_lz00_1754); 
FAILURE(BgL_auxz00_7322,BFALSE,BFALSE);} 
BgL_tmpz00_7319 = 
CAR(BgL_pairz00_2671); } 
BgL_test3937z00_7318 = 
INTEGERP(BgL_tmpz00_7319); } 
if(BgL_test3937z00_7318)
{ /* Llib/srfi4.scm 796 */
 obj_t BgL_arg1595z00_1760;
{ /* Llib/srfi4.scm 796 */
 obj_t BgL_pairz00_2672;
if(
PAIRP(BgL_lz00_1754))
{ /* Llib/srfi4.scm 796 */
BgL_pairz00_2672 = BgL_lz00_1754; }  else 
{ 
 obj_t BgL_auxz00_7330;
BgL_auxz00_7330 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(31419L), BGl_string3292z00zz__srfi4z00, BGl_string3293z00zz__srfi4z00, BgL_lz00_1754); 
FAILURE(BgL_auxz00_7330,BFALSE,BFALSE);} 
BgL_arg1595z00_1760 = 
CAR(BgL_pairz00_2672); } 
{ /* Llib/srfi4.scm 796 */
 long BgL_xz00_2673;
{ /* Llib/srfi4.scm 796 */
 obj_t BgL_tmpz00_7335;
if(
INTEGERP(BgL_arg1595z00_1760))
{ /* Llib/srfi4.scm 796 */
BgL_tmpz00_7335 = BgL_arg1595z00_1760
; }  else 
{ 
 obj_t BgL_auxz00_7338;
BgL_auxz00_7338 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(31419L), BGl_string3292z00zz__srfi4z00, BGl_string3192z00zz__srfi4z00, BgL_arg1595z00_1760); 
FAILURE(BgL_auxz00_7338,BFALSE,BFALSE);} 
BgL_xz00_2673 = 
(long)CINT(BgL_tmpz00_7335); } 
{ /* Llib/srfi4.scm 796 */
 uint64_t BgL_tmpz00_7343;
BgL_tmpz00_7343 = 
(uint64_t)(BgL_xz00_2673); 
BgL_arg1592z00_1757 = 
BGL_UINT64_TO_BUINT64(BgL_tmpz00_7343); } } }  else 
{ /* Llib/srfi4.scm 796 */
 obj_t BgL_pairz00_2674;
if(
PAIRP(BgL_lz00_1754))
{ /* Llib/srfi4.scm 796 */
BgL_pairz00_2674 = BgL_lz00_1754; }  else 
{ 
 obj_t BgL_auxz00_7348;
BgL_auxz00_7348 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(31419L), BGl_string3292z00zz__srfi4z00, BGl_string3293z00zz__srfi4z00, BgL_lz00_1754); 
FAILURE(BgL_auxz00_7348,BFALSE,BFALSE);} 
BgL_arg1592z00_1757 = 
CAR(BgL_pairz00_2674); } } 
{ /* Llib/srfi4.scm 796 */
 long BgL_l2288z00_3435;
BgL_l2288z00_3435 = 
BGL_HVECTOR_LENGTH(BgL_vecz00_1751); 
if(
BOUND_CHECK(BgL_iz00_1753, BgL_l2288z00_3435))
{ /* Llib/srfi4.scm 796 */
 uint64_t BgL_tmpz00_7356;
{ /* Llib/srfi4.scm 796 */
 obj_t BgL_tmpz00_7357;
if(
BGL_UINT64P(BgL_arg1592z00_1757))
{ /* Llib/srfi4.scm 796 */
BgL_tmpz00_7357 = BgL_arg1592z00_1757
; }  else 
{ 
 obj_t BgL_auxz00_7360;
BgL_auxz00_7360 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(31419L), BGl_string3292z00zz__srfi4z00, BGl_string3235z00zz__srfi4z00, BgL_arg1592z00_1757); 
FAILURE(BgL_auxz00_7360,BFALSE,BFALSE);} 
BgL_tmpz00_7356 = 
BGL_BINT64_TO_INT64(BgL_tmpz00_7357); } 
BGL_U64VSET(BgL_vecz00_1751, BgL_iz00_1753, BgL_tmpz00_7356); }  else 
{ 
 obj_t BgL_auxz00_7366;
BgL_auxz00_7366 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(31419L), BGl_string3236z00zz__srfi4z00, BgL_vecz00_1751, 
(int)(BgL_l2288z00_3435), 
(int)(BgL_iz00_1753)); 
FAILURE(BgL_auxz00_7366,BFALSE,BFALSE);} } BUNSPEC; } 
{ /* Llib/srfi4.scm 796 */
 long BgL_arg1597z00_1762; obj_t BgL_arg1598z00_1763;
BgL_arg1597z00_1762 = 
(BgL_iz00_1753+1L); 
{ /* Llib/srfi4.scm 796 */
 obj_t BgL_pairz00_2676;
if(
PAIRP(BgL_lz00_1754))
{ /* Llib/srfi4.scm 796 */
BgL_pairz00_2676 = BgL_lz00_1754; }  else 
{ 
 obj_t BgL_auxz00_7375;
BgL_auxz00_7375 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(31419L), BGl_string3292z00zz__srfi4z00, BGl_string3293z00zz__srfi4z00, BgL_lz00_1754); 
FAILURE(BgL_auxz00_7375,BFALSE,BFALSE);} 
BgL_arg1598z00_1763 = 
CDR(BgL_pairz00_2676); } 
{ 
 obj_t BgL_lz00_7381; long BgL_iz00_7380;
BgL_iz00_7380 = BgL_arg1597z00_1762; 
BgL_lz00_7381 = BgL_arg1598z00_1763; 
BgL_lz00_1754 = BgL_lz00_7381; 
BgL_iz00_1753 = BgL_iz00_7380; 
goto BgL_zc3z04anonymousza31589ze3z87_1755;} } } } } } } } 

}



/* &list->u64vector */
obj_t BGl_z62listzd2ze3u64vectorz53zz__srfi4z00(obj_t BgL_envz00_3239, obj_t BgL_xz00_3240)
{
{ /* Llib/srfi4.scm 796 */
{ /* Llib/srfi4.scm 796 */
 obj_t BgL_auxz00_7382;
if(
BGl_pairzd2orzd2nullzf3zf3zz__r4_pairs_and_lists_6_3z00(BgL_xz00_3240))
{ /* Llib/srfi4.scm 796 */
BgL_auxz00_7382 = BgL_xz00_3240
; }  else 
{ 
 obj_t BgL_auxz00_7385;
BgL_auxz00_7385 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(31419L), BGl_string3301z00zz__srfi4z00, BGl_string3185z00zz__srfi4z00, BgL_xz00_3240); 
FAILURE(BgL_auxz00_7385,BFALSE,BFALSE);} 
return 
BGl_listzd2ze3u64vectorz31zz__srfi4z00(BgL_auxz00_7382);} } 

}



/* 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_1765;
BgL_lenz00_1765 = 
bgl_list_length(BgL_xz00_151); 
{ /* Llib/srfi4.scm 796 */
 obj_t BgL_vecz00_1766;
{ /* Llib/srfi4.scm 796 */
 int32_t BgL_tmpz00_7391;
BgL_tmpz00_7391 = 
(int32_t)(BgL_lenz00_1765); 
BgL_vecz00_1766 = 
BGL_ALLOC_F32VECTOR(BgL_tmpz00_7391); } 
{ /* Llib/srfi4.scm 796 */

{ 
 long BgL_iz00_1768; obj_t BgL_lz00_1769;
BgL_iz00_1768 = 0L; 
BgL_lz00_1769 = BgL_xz00_151; 
BgL_zc3z04anonymousza31599ze3z87_1770:
if(
(BgL_iz00_1768==BgL_lenz00_1765))
{ /* Llib/srfi4.scm 796 */
return BgL_vecz00_1766;}  else 
{ /* Llib/srfi4.scm 796 */
{ /* Llib/srfi4.scm 796 */
 obj_t BgL_arg1602z00_1772;
{ /* Llib/srfi4.scm 796 */
 bool_t BgL_test3947z00_7396;
{ /* Llib/srfi4.scm 796 */
 obj_t BgL_tmpz00_7397;
{ /* Llib/srfi4.scm 796 */
 obj_t BgL_pairz00_2679;
if(
PAIRP(BgL_lz00_1769))
{ /* Llib/srfi4.scm 796 */
BgL_pairz00_2679 = BgL_lz00_1769; }  else 
{ 
 obj_t BgL_auxz00_7400;
BgL_auxz00_7400 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(31419L), BGl_string3292z00zz__srfi4z00, BGl_string3293z00zz__srfi4z00, BgL_lz00_1769); 
FAILURE(BgL_auxz00_7400,BFALSE,BFALSE);} 
BgL_tmpz00_7397 = 
CAR(BgL_pairz00_2679); } 
BgL_test3947z00_7396 = 
INTEGERP(BgL_tmpz00_7397); } 
if(BgL_test3947z00_7396)
{ /* Llib/srfi4.scm 796 */
 obj_t BgL_arg1605z00_1775;
{ /* Llib/srfi4.scm 796 */
 obj_t BgL_pairz00_2680;
if(
PAIRP(BgL_lz00_1769))
{ /* Llib/srfi4.scm 796 */
BgL_pairz00_2680 = BgL_lz00_1769; }  else 
{ 
 obj_t BgL_auxz00_7408;
BgL_auxz00_7408 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(31419L), BGl_string3292z00zz__srfi4z00, BGl_string3293z00zz__srfi4z00, BgL_lz00_1769); 
FAILURE(BgL_auxz00_7408,BFALSE,BFALSE);} 
BgL_arg1605z00_1775 = 
CAR(BgL_pairz00_2680); } 
{ /* Llib/srfi4.scm 796 */
 long BgL_xz00_2681;
{ /* Llib/srfi4.scm 796 */
 obj_t BgL_tmpz00_7413;
if(
INTEGERP(BgL_arg1605z00_1775))
{ /* Llib/srfi4.scm 796 */
BgL_tmpz00_7413 = BgL_arg1605z00_1775
; }  else 
{ 
 obj_t BgL_auxz00_7416;
BgL_auxz00_7416 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(31419L), BGl_string3292z00zz__srfi4z00, BGl_string3192z00zz__srfi4z00, BgL_arg1605z00_1775); 
FAILURE(BgL_auxz00_7416,BFALSE,BFALSE);} 
BgL_xz00_2681 = 
(long)CINT(BgL_tmpz00_7413); } 
{ /* Llib/srfi4.scm 796 */
 uint32_t BgL_tmpz00_7421;
BgL_tmpz00_7421 = 
(uint32_t)(BgL_xz00_2681); 
BgL_arg1602z00_1772 = 
BGL_UINT32_TO_BUINT32(BgL_tmpz00_7421); } } }  else 
{ /* Llib/srfi4.scm 796 */
 obj_t BgL_pairz00_2682;
if(
PAIRP(BgL_lz00_1769))
{ /* Llib/srfi4.scm 796 */
BgL_pairz00_2682 = BgL_lz00_1769; }  else 
{ 
 obj_t BgL_auxz00_7426;
BgL_auxz00_7426 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(31419L), BGl_string3292z00zz__srfi4z00, BGl_string3293z00zz__srfi4z00, BgL_lz00_1769); 
FAILURE(BgL_auxz00_7426,BFALSE,BFALSE);} 
BgL_arg1602z00_1772 = 
CAR(BgL_pairz00_2682); } } 
{ /* Llib/srfi4.scm 796 */
 long BgL_l2292z00_3439;
BgL_l2292z00_3439 = 
BGL_HVECTOR_LENGTH(BgL_vecz00_1766); 
if(
BOUND_CHECK(BgL_iz00_1768, BgL_l2292z00_3439))
{ /* Llib/srfi4.scm 796 */
 float BgL_tmpz00_7434;
{ /* Llib/srfi4.scm 796 */
 obj_t BgL_tmpz00_7435;
if(
REALP(BgL_arg1602z00_1772))
{ /* Llib/srfi4.scm 796 */
BgL_tmpz00_7435 = BgL_arg1602z00_1772
; }  else 
{ 
 obj_t BgL_auxz00_7438;
BgL_auxz00_7438 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(31419L), BGl_string3292z00zz__srfi4z00, BGl_string3241z00zz__srfi4z00, BgL_arg1602z00_1772); 
FAILURE(BgL_auxz00_7438,BFALSE,BFALSE);} 
BgL_tmpz00_7434 = 
REAL_TO_FLOAT(BgL_tmpz00_7435); } 
BGL_F32VSET(BgL_vecz00_1766, BgL_iz00_1768, BgL_tmpz00_7434); }  else 
{ 
 obj_t BgL_auxz00_7444;
BgL_auxz00_7444 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(31419L), BGl_string3242z00zz__srfi4z00, BgL_vecz00_1766, 
(int)(BgL_l2292z00_3439), 
(int)(BgL_iz00_1768)); 
FAILURE(BgL_auxz00_7444,BFALSE,BFALSE);} } BUNSPEC; } 
{ /* Llib/srfi4.scm 796 */
 long BgL_arg1609z00_1777; obj_t BgL_arg1610z00_1778;
BgL_arg1609z00_1777 = 
(BgL_iz00_1768+1L); 
{ /* Llib/srfi4.scm 796 */
 obj_t BgL_pairz00_2684;
if(
PAIRP(BgL_lz00_1769))
{ /* Llib/srfi4.scm 796 */
BgL_pairz00_2684 = BgL_lz00_1769; }  else 
{ 
 obj_t BgL_auxz00_7453;
BgL_auxz00_7453 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(31419L), BGl_string3292z00zz__srfi4z00, BGl_string3293z00zz__srfi4z00, BgL_lz00_1769); 
FAILURE(BgL_auxz00_7453,BFALSE,BFALSE);} 
BgL_arg1610z00_1778 = 
CDR(BgL_pairz00_2684); } 
{ 
 obj_t BgL_lz00_7459; long BgL_iz00_7458;
BgL_iz00_7458 = BgL_arg1609z00_1777; 
BgL_lz00_7459 = BgL_arg1610z00_1778; 
BgL_lz00_1769 = BgL_lz00_7459; 
BgL_iz00_1768 = BgL_iz00_7458; 
goto BgL_zc3z04anonymousza31599ze3z87_1770;} } } } } } } } 

}



/* &list->f32vector */
obj_t BGl_z62listzd2ze3f32vectorz53zz__srfi4z00(obj_t BgL_envz00_3241, obj_t BgL_xz00_3242)
{
{ /* Llib/srfi4.scm 796 */
{ /* Llib/srfi4.scm 796 */
 obj_t BgL_auxz00_7460;
if(
BGl_pairzd2orzd2nullzf3zf3zz__r4_pairs_and_lists_6_3z00(BgL_xz00_3242))
{ /* Llib/srfi4.scm 796 */
BgL_auxz00_7460 = BgL_xz00_3242
; }  else 
{ 
 obj_t BgL_auxz00_7463;
BgL_auxz00_7463 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(31419L), BGl_string3302z00zz__srfi4z00, BGl_string3185z00zz__srfi4z00, BgL_xz00_3242); 
FAILURE(BgL_auxz00_7463,BFALSE,BFALSE);} 
return 
BGl_listzd2ze3f32vectorz31zz__srfi4z00(BgL_auxz00_7460);} } 

}



/* 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_1780;
BgL_lenz00_1780 = 
bgl_list_length(BgL_xz00_152); 
{ /* Llib/srfi4.scm 796 */
 obj_t BgL_vecz00_1781;
{ /* Llib/srfi4.scm 796 */
 int32_t BgL_tmpz00_7469;
BgL_tmpz00_7469 = 
(int32_t)(BgL_lenz00_1780); 
BgL_vecz00_1781 = 
BGL_ALLOC_F64VECTOR(BgL_tmpz00_7469); } 
{ /* Llib/srfi4.scm 796 */

{ 
 long BgL_iz00_1783; obj_t BgL_lz00_1784;
BgL_iz00_1783 = 0L; 
BgL_lz00_1784 = BgL_xz00_152; 
BgL_zc3z04anonymousza31611ze3z87_1785:
if(
(BgL_iz00_1783==BgL_lenz00_1780))
{ /* Llib/srfi4.scm 796 */
return BgL_vecz00_1781;}  else 
{ /* Llib/srfi4.scm 796 */
{ /* Llib/srfi4.scm 796 */
 obj_t BgL_arg1613z00_1787;
{ /* Llib/srfi4.scm 796 */
 bool_t BgL_test3957z00_7474;
{ /* Llib/srfi4.scm 796 */
 obj_t BgL_tmpz00_7475;
{ /* Llib/srfi4.scm 796 */
 obj_t BgL_pairz00_2687;
if(
PAIRP(BgL_lz00_1784))
{ /* Llib/srfi4.scm 796 */
BgL_pairz00_2687 = BgL_lz00_1784; }  else 
{ 
 obj_t BgL_auxz00_7478;
BgL_auxz00_7478 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(31419L), BGl_string3292z00zz__srfi4z00, BGl_string3293z00zz__srfi4z00, BgL_lz00_1784); 
FAILURE(BgL_auxz00_7478,BFALSE,BFALSE);} 
BgL_tmpz00_7475 = 
CAR(BgL_pairz00_2687); } 
BgL_test3957z00_7474 = 
INTEGERP(BgL_tmpz00_7475); } 
if(BgL_test3957z00_7474)
{ /* Llib/srfi4.scm 796 */
 obj_t BgL_arg1616z00_1790;
{ /* Llib/srfi4.scm 796 */
 obj_t BgL_pairz00_2688;
if(
PAIRP(BgL_lz00_1784))
{ /* Llib/srfi4.scm 796 */
BgL_pairz00_2688 = BgL_lz00_1784; }  else 
{ 
 obj_t BgL_auxz00_7486;
BgL_auxz00_7486 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(31419L), BGl_string3292z00zz__srfi4z00, BGl_string3293z00zz__srfi4z00, BgL_lz00_1784); 
FAILURE(BgL_auxz00_7486,BFALSE,BFALSE);} 
BgL_arg1616z00_1790 = 
CAR(BgL_pairz00_2688); } 
{ /* Llib/srfi4.scm 796 */
 long BgL_xz00_2689;
{ /* Llib/srfi4.scm 796 */
 obj_t BgL_tmpz00_7491;
if(
INTEGERP(BgL_arg1616z00_1790))
{ /* Llib/srfi4.scm 796 */
BgL_tmpz00_7491 = BgL_arg1616z00_1790
; }  else 
{ 
 obj_t BgL_auxz00_7494;
BgL_auxz00_7494 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(31419L), BGl_string3292z00zz__srfi4z00, BGl_string3192z00zz__srfi4z00, BgL_arg1616z00_1790); 
FAILURE(BgL_auxz00_7494,BFALSE,BFALSE);} 
BgL_xz00_2689 = 
(long)CINT(BgL_tmpz00_7491); } 
{ /* Llib/srfi4.scm 796 */
 uint64_t BgL_tmpz00_7499;
BgL_tmpz00_7499 = 
(uint64_t)(BgL_xz00_2689); 
BgL_arg1613z00_1787 = 
BGL_UINT64_TO_BUINT64(BgL_tmpz00_7499); } } }  else 
{ /* Llib/srfi4.scm 796 */
 obj_t BgL_pairz00_2690;
if(
PAIRP(BgL_lz00_1784))
{ /* Llib/srfi4.scm 796 */
BgL_pairz00_2690 = BgL_lz00_1784; }  else 
{ 
 obj_t BgL_auxz00_7504;
BgL_auxz00_7504 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(31419L), BGl_string3292z00zz__srfi4z00, BGl_string3293z00zz__srfi4z00, BgL_lz00_1784); 
FAILURE(BgL_auxz00_7504,BFALSE,BFALSE);} 
BgL_arg1613z00_1787 = 
CAR(BgL_pairz00_2690); } } 
{ /* Llib/srfi4.scm 796 */
 long BgL_l2296z00_3443;
BgL_l2296z00_3443 = 
BGL_HVECTOR_LENGTH(BgL_vecz00_1781); 
if(
BOUND_CHECK(BgL_iz00_1783, BgL_l2296z00_3443))
{ /* Llib/srfi4.scm 796 */
 double BgL_tmpz00_7512;
{ /* Llib/srfi4.scm 796 */
 obj_t BgL_tmpz00_7513;
if(
REALP(BgL_arg1613z00_1787))
{ /* Llib/srfi4.scm 796 */
BgL_tmpz00_7513 = BgL_arg1613z00_1787
; }  else 
{ 
 obj_t BgL_auxz00_7516;
BgL_auxz00_7516 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(31419L), BGl_string3292z00zz__srfi4z00, BGl_string3241z00zz__srfi4z00, BgL_arg1613z00_1787); 
FAILURE(BgL_auxz00_7516,BFALSE,BFALSE);} 
BgL_tmpz00_7512 = 
REAL_TO_DOUBLE(BgL_tmpz00_7513); } 
BGL_F64VSET(BgL_vecz00_1781, BgL_iz00_1783, BgL_tmpz00_7512); }  else 
{ 
 obj_t BgL_auxz00_7522;
BgL_auxz00_7522 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(31419L), BGl_string3247z00zz__srfi4z00, BgL_vecz00_1781, 
(int)(BgL_l2296z00_3443), 
(int)(BgL_iz00_1783)); 
FAILURE(BgL_auxz00_7522,BFALSE,BFALSE);} } BUNSPEC; } 
{ /* Llib/srfi4.scm 796 */
 long BgL_arg1619z00_1792; obj_t BgL_arg1620z00_1793;
BgL_arg1619z00_1792 = 
(BgL_iz00_1783+1L); 
{ /* Llib/srfi4.scm 796 */
 obj_t BgL_pairz00_2692;
if(
PAIRP(BgL_lz00_1784))
{ /* Llib/srfi4.scm 796 */
BgL_pairz00_2692 = BgL_lz00_1784; }  else 
{ 
 obj_t BgL_auxz00_7531;
BgL_auxz00_7531 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(31419L), BGl_string3292z00zz__srfi4z00, BGl_string3293z00zz__srfi4z00, BgL_lz00_1784); 
FAILURE(BgL_auxz00_7531,BFALSE,BFALSE);} 
BgL_arg1620z00_1793 = 
CDR(BgL_pairz00_2692); } 
{ 
 obj_t BgL_lz00_7537; long BgL_iz00_7536;
BgL_iz00_7536 = BgL_arg1619z00_1792; 
BgL_lz00_7537 = BgL_arg1620z00_1793; 
BgL_lz00_1784 = BgL_lz00_7537; 
BgL_iz00_1783 = BgL_iz00_7536; 
goto BgL_zc3z04anonymousza31611ze3z87_1785;} } } } } } } } 

}



/* &list->f64vector */
obj_t BGl_z62listzd2ze3f64vectorz53zz__srfi4z00(obj_t BgL_envz00_3243, obj_t BgL_xz00_3244)
{
{ /* Llib/srfi4.scm 796 */
{ /* Llib/srfi4.scm 796 */
 obj_t BgL_auxz00_7538;
if(
BGl_pairzd2orzd2nullzf3zf3zz__r4_pairs_and_lists_6_3z00(BgL_xz00_3244))
{ /* Llib/srfi4.scm 796 */
BgL_auxz00_7538 = BgL_xz00_3244
; }  else 
{ 
 obj_t BgL_auxz00_7541;
BgL_auxz00_7541 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(31419L), BGl_string3303z00zz__srfi4z00, BGl_string3185z00zz__srfi4z00, BgL_xz00_3244); 
FAILURE(BgL_auxz00_7541,BFALSE,BFALSE);} 
return 
BGl_listzd2ze3f64vectorz31zz__srfi4z00(BgL_auxz00_7538);} } 

}



/* _s8vector-copy! */
obj_t BGl__s8vectorzd2copyz12zc0zz__srfi4z00(obj_t BgL_env1299z00_159, obj_t BgL_opt1298z00_158)
{
{ /* Llib/srfi4.scm 838 */
{ /* Llib/srfi4.scm 838 */
 obj_t BgL_targetz00_1795; obj_t BgL_tstartz00_1796; obj_t BgL_sourcez00_1797;
{ 
 obj_t BgL_auxz00_7546;
if(
VECTORP(BgL_opt1298z00_158))
{ /* Llib/srfi4.scm 838 */
BgL_auxz00_7546 = BgL_opt1298z00_158
; }  else 
{ 
 obj_t BgL_auxz00_7549;
BgL_auxz00_7549 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(33208L), BGl_string3304z00zz__srfi4z00, BGl_string3187z00zz__srfi4z00, BgL_opt1298z00_158); 
FAILURE(BgL_auxz00_7549,BFALSE,BFALSE);} 
BgL_targetz00_1795 = 
VECTOR_REF(BgL_auxz00_7546,0L); } 
{ 
 obj_t BgL_auxz00_7554;
if(
VECTORP(BgL_opt1298z00_158))
{ /* Llib/srfi4.scm 838 */
BgL_auxz00_7554 = BgL_opt1298z00_158
; }  else 
{ 
 obj_t BgL_auxz00_7557;
BgL_auxz00_7557 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(33208L), BGl_string3304z00zz__srfi4z00, BGl_string3187z00zz__srfi4z00, BgL_opt1298z00_158); 
FAILURE(BgL_auxz00_7557,BFALSE,BFALSE);} 
BgL_tstartz00_1796 = 
VECTOR_REF(BgL_auxz00_7554,1L); } 
{ 
 obj_t BgL_auxz00_7562;
if(
VECTORP(BgL_opt1298z00_158))
{ /* Llib/srfi4.scm 838 */
BgL_auxz00_7562 = BgL_opt1298z00_158
; }  else 
{ 
 obj_t BgL_auxz00_7565;
BgL_auxz00_7565 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(33208L), BGl_string3304z00zz__srfi4z00, BGl_string3187z00zz__srfi4z00, BgL_opt1298z00_158); 
FAILURE(BgL_auxz00_7565,BFALSE,BFALSE);} 
BgL_sourcez00_1797 = 
VECTOR_REF(BgL_auxz00_7562,2L); } 
{ 

{ /* Llib/srfi4.scm 838 */
 long BgL_aux1301z00_1799;
{ 
 obj_t BgL_auxz00_7570;
if(
VECTORP(BgL_opt1298z00_158))
{ /* Llib/srfi4.scm 838 */
BgL_auxz00_7570 = BgL_opt1298z00_158
; }  else 
{ 
 obj_t BgL_auxz00_7573;
BgL_auxz00_7573 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(33208L), BGl_string3304z00zz__srfi4z00, BGl_string3187z00zz__srfi4z00, BgL_opt1298z00_158); 
FAILURE(BgL_auxz00_7573,BFALSE,BFALSE);} 
BgL_aux1301z00_1799 = 
VECTOR_LENGTH(BgL_auxz00_7570); } 
switch( BgL_aux1301z00_1799) { case 3L : 

{ /* Llib/srfi4.scm 838 */
 long BgL_sendz00_1801;
{ /* Llib/srfi4.scm 838 */
 obj_t BgL_xz00_2693;
if(
BGL_S8VECTORP(BgL_sourcez00_1797))
{ /* Llib/srfi4.scm 838 */
BgL_xz00_2693 = BgL_sourcez00_1797; }  else 
{ 
 obj_t BgL_auxz00_7580;
BgL_auxz00_7580 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(33208L), BGl_string3304z00zz__srfi4z00, BGl_string3166z00zz__srfi4z00, BgL_sourcez00_1797); 
FAILURE(BgL_auxz00_7580,BFALSE,BFALSE);} 
BgL_sendz00_1801 = 
BGL_HVECTOR_LENGTH(BgL_xz00_2693); } 
{ /* Llib/srfi4.scm 838 */

{ /* Llib/srfi4.scm 838 */
 obj_t BgL_auxz00_7601; long BgL_auxz00_7592; obj_t BgL_auxz00_7585;
if(
BGL_S8VECTORP(BgL_sourcez00_1797))
{ /* Llib/srfi4.scm 838 */
BgL_auxz00_7601 = BgL_sourcez00_1797
; }  else 
{ 
 obj_t BgL_auxz00_7604;
BgL_auxz00_7604 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(33208L), BGl_string3304z00zz__srfi4z00, BGl_string3166z00zz__srfi4z00, BgL_sourcez00_1797); 
FAILURE(BgL_auxz00_7604,BFALSE,BFALSE);} 
{ /* Llib/srfi4.scm 838 */
 obj_t BgL_tmpz00_7593;
if(
INTEGERP(BgL_tstartz00_1796))
{ /* Llib/srfi4.scm 838 */
BgL_tmpz00_7593 = BgL_tstartz00_1796
; }  else 
{ 
 obj_t BgL_auxz00_7596;
BgL_auxz00_7596 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(33208L), BGl_string3304z00zz__srfi4z00, BGl_string3192z00zz__srfi4z00, BgL_tstartz00_1796); 
FAILURE(BgL_auxz00_7596,BFALSE,BFALSE);} 
BgL_auxz00_7592 = 
(long)CINT(BgL_tmpz00_7593); } 
if(
BGL_S8VECTORP(BgL_targetz00_1795))
{ /* Llib/srfi4.scm 838 */
BgL_auxz00_7585 = BgL_targetz00_1795
; }  else 
{ 
 obj_t BgL_auxz00_7588;
BgL_auxz00_7588 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(33208L), BGl_string3304z00zz__srfi4z00, BGl_string3166z00zz__srfi4z00, BgL_targetz00_1795); 
FAILURE(BgL_auxz00_7588,BFALSE,BFALSE);} 
return 
BGl_s8vectorzd2copyz12zc0zz__srfi4z00(BgL_auxz00_7585, BgL_auxz00_7592, BgL_auxz00_7601, 
BINT(0L), 
BINT(BgL_sendz00_1801));} } } break;case 4L : 

{ /* Llib/srfi4.scm 838 */
 obj_t BgL_sstartz00_1802;
{ 
 obj_t BgL_auxz00_7611;
if(
VECTORP(BgL_opt1298z00_158))
{ /* Llib/srfi4.scm 838 */
BgL_auxz00_7611 = BgL_opt1298z00_158
; }  else 
{ 
 obj_t BgL_auxz00_7614;
BgL_auxz00_7614 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(33208L), BGl_string3304z00zz__srfi4z00, BGl_string3187z00zz__srfi4z00, BgL_opt1298z00_158); 
FAILURE(BgL_auxz00_7614,BFALSE,BFALSE);} 
BgL_sstartz00_1802 = 
VECTOR_REF(BgL_auxz00_7611,3L); } 
{ /* Llib/srfi4.scm 838 */
 long BgL_sendz00_1803;
{ /* Llib/srfi4.scm 838 */
 obj_t BgL_xz00_2694;
if(
BGL_S8VECTORP(BgL_sourcez00_1797))
{ /* Llib/srfi4.scm 838 */
BgL_xz00_2694 = BgL_sourcez00_1797; }  else 
{ 
 obj_t BgL_auxz00_7621;
BgL_auxz00_7621 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(33208L), BGl_string3304z00zz__srfi4z00, BGl_string3166z00zz__srfi4z00, BgL_sourcez00_1797); 
FAILURE(BgL_auxz00_7621,BFALSE,BFALSE);} 
BgL_sendz00_1803 = 
BGL_HVECTOR_LENGTH(BgL_xz00_2694); } 
{ /* Llib/srfi4.scm 838 */

{ /* Llib/srfi4.scm 838 */
 obj_t BgL_auxz00_7642; long BgL_auxz00_7633; obj_t BgL_auxz00_7626;
if(
BGL_S8VECTORP(BgL_sourcez00_1797))
{ /* Llib/srfi4.scm 838 */
BgL_auxz00_7642 = BgL_sourcez00_1797
; }  else 
{ 
 obj_t BgL_auxz00_7645;
BgL_auxz00_7645 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(33208L), BGl_string3304z00zz__srfi4z00, BGl_string3166z00zz__srfi4z00, BgL_sourcez00_1797); 
FAILURE(BgL_auxz00_7645,BFALSE,BFALSE);} 
{ /* Llib/srfi4.scm 838 */
 obj_t BgL_tmpz00_7634;
if(
INTEGERP(BgL_tstartz00_1796))
{ /* Llib/srfi4.scm 838 */
BgL_tmpz00_7634 = BgL_tstartz00_1796
; }  else 
{ 
 obj_t BgL_auxz00_7637;
BgL_auxz00_7637 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(33208L), BGl_string3304z00zz__srfi4z00, BGl_string3192z00zz__srfi4z00, BgL_tstartz00_1796); 
FAILURE(BgL_auxz00_7637,BFALSE,BFALSE);} 
BgL_auxz00_7633 = 
(long)CINT(BgL_tmpz00_7634); } 
if(
BGL_S8VECTORP(BgL_targetz00_1795))
{ /* Llib/srfi4.scm 838 */
BgL_auxz00_7626 = BgL_targetz00_1795
; }  else 
{ 
 obj_t BgL_auxz00_7629;
BgL_auxz00_7629 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(33208L), BGl_string3304z00zz__srfi4z00, BGl_string3166z00zz__srfi4z00, BgL_targetz00_1795); 
FAILURE(BgL_auxz00_7629,BFALSE,BFALSE);} 
return 
BGl_s8vectorzd2copyz12zc0zz__srfi4z00(BgL_auxz00_7626, BgL_auxz00_7633, BgL_auxz00_7642, BgL_sstartz00_1802, 
BINT(BgL_sendz00_1803));} } } } break;case 5L : 

{ /* Llib/srfi4.scm 838 */
 obj_t BgL_sstartz00_1804;
{ 
 obj_t BgL_auxz00_7651;
if(
VECTORP(BgL_opt1298z00_158))
{ /* Llib/srfi4.scm 838 */
BgL_auxz00_7651 = BgL_opt1298z00_158
; }  else 
{ 
 obj_t BgL_auxz00_7654;
BgL_auxz00_7654 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(33208L), BGl_string3304z00zz__srfi4z00, BGl_string3187z00zz__srfi4z00, BgL_opt1298z00_158); 
FAILURE(BgL_auxz00_7654,BFALSE,BFALSE);} 
BgL_sstartz00_1804 = 
VECTOR_REF(BgL_auxz00_7651,3L); } 
{ /* Llib/srfi4.scm 838 */
 obj_t BgL_sendz00_1805;
{ 
 obj_t BgL_auxz00_7659;
if(
VECTORP(BgL_opt1298z00_158))
{ /* Llib/srfi4.scm 838 */
BgL_auxz00_7659 = BgL_opt1298z00_158
; }  else 
{ 
 obj_t BgL_auxz00_7662;
BgL_auxz00_7662 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(33208L), BGl_string3304z00zz__srfi4z00, BGl_string3187z00zz__srfi4z00, BgL_opt1298z00_158); 
FAILURE(BgL_auxz00_7662,BFALSE,BFALSE);} 
BgL_sendz00_1805 = 
VECTOR_REF(BgL_auxz00_7659,4L); } 
{ /* Llib/srfi4.scm 838 */

{ /* Llib/srfi4.scm 838 */
 obj_t BgL_auxz00_7683; long BgL_auxz00_7674; obj_t BgL_auxz00_7667;
if(
BGL_S8VECTORP(BgL_sourcez00_1797))
{ /* Llib/srfi4.scm 838 */
BgL_auxz00_7683 = BgL_sourcez00_1797
; }  else 
{ 
 obj_t BgL_auxz00_7686;
BgL_auxz00_7686 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(33208L), BGl_string3304z00zz__srfi4z00, BGl_string3166z00zz__srfi4z00, BgL_sourcez00_1797); 
FAILURE(BgL_auxz00_7686,BFALSE,BFALSE);} 
{ /* Llib/srfi4.scm 838 */
 obj_t BgL_tmpz00_7675;
if(
INTEGERP(BgL_tstartz00_1796))
{ /* Llib/srfi4.scm 838 */
BgL_tmpz00_7675 = BgL_tstartz00_1796
; }  else 
{ 
 obj_t BgL_auxz00_7678;
BgL_auxz00_7678 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(33208L), BGl_string3304z00zz__srfi4z00, BGl_string3192z00zz__srfi4z00, BgL_tstartz00_1796); 
FAILURE(BgL_auxz00_7678,BFALSE,BFALSE);} 
BgL_auxz00_7674 = 
(long)CINT(BgL_tmpz00_7675); } 
if(
BGL_S8VECTORP(BgL_targetz00_1795))
{ /* Llib/srfi4.scm 838 */
BgL_auxz00_7667 = BgL_targetz00_1795
; }  else 
{ 
 obj_t BgL_auxz00_7670;
BgL_auxz00_7670 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(33208L), BGl_string3304z00zz__srfi4z00, BGl_string3166z00zz__srfi4z00, BgL_targetz00_1795); 
FAILURE(BgL_auxz00_7670,BFALSE,BFALSE);} 
return 
BGl_s8vectorzd2copyz12zc0zz__srfi4z00(BgL_auxz00_7667, BgL_auxz00_7674, BgL_auxz00_7683, BgL_sstartz00_1804, BgL_sendz00_1805);} } } } break;
default: 
{ /* Llib/srfi4.scm 838 */
 long BgL_arg1621z00_1806;
{ 
 obj_t BgL_auxz00_7691;
if(
VECTORP(BgL_opt1298z00_158))
{ /* Llib/srfi4.scm 838 */
BgL_auxz00_7691 = BgL_opt1298z00_158
; }  else 
{ 
 obj_t BgL_auxz00_7694;
BgL_auxz00_7694 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(33208L), BGl_string3305z00zz__srfi4z00, BGl_string3187z00zz__srfi4z00, BgL_opt1298z00_158); 
FAILURE(BgL_auxz00_7694,BFALSE,BFALSE);} 
BgL_arg1621z00_1806 = 
VECTOR_LENGTH(BgL_auxz00_7691); } 
return 
BGl_errorz00zz__errorz00(BGl_symbol3306z00zz__srfi4z00, BGl_string3308z00zz__srfi4z00, 
BINT(BgL_arg1621z00_1806));} } } } } } 

}



/* 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 */
if(
(BgL_tstartz00_154<0L))
{ /* Llib/srfi4.scm 838 */
BGl_errorz00zz__errorz00(BGl_string3307z00zz__srfi4z00, BGl_string3309z00zz__srfi4z00, 
BINT(BgL_tstartz00_154)); }  else 
{ /* Llib/srfi4.scm 838 */
 bool_t BgL_test3986z00_7706;
{ /* Llib/srfi4.scm 838 */
 long BgL_n1z00_2696;
{ /* Llib/srfi4.scm 838 */
 obj_t BgL_tmpz00_7707;
if(
INTEGERP(BgL_sstartz00_156))
{ /* Llib/srfi4.scm 838 */
BgL_tmpz00_7707 = BgL_sstartz00_156
; }  else 
{ 
 obj_t BgL_auxz00_7710;
BgL_auxz00_7710 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(33208L), BGl_string3307z00zz__srfi4z00, BGl_string3192z00zz__srfi4z00, BgL_sstartz00_156); 
FAILURE(BgL_auxz00_7710,BFALSE,BFALSE);} 
BgL_n1z00_2696 = 
(long)CINT(BgL_tmpz00_7707); } 
BgL_test3986z00_7706 = 
(BgL_n1z00_2696<0L); } 
if(BgL_test3986z00_7706)
{ /* Llib/srfi4.scm 838 */
BGl_errorz00zz__errorz00(BGl_string3307z00zz__srfi4z00, BGl_string3310z00zz__srfi4z00, BgL_sstartz00_156); }  else 
{ /* Llib/srfi4.scm 838 */
 bool_t BgL_test3988z00_7717;
{ /* Llib/srfi4.scm 838 */
 long BgL_arg1630z00_1820;
BgL_arg1630z00_1820 = 
BGL_HVECTOR_LENGTH(BgL_sourcez00_155); 
{ /* Llib/srfi4.scm 838 */
 long BgL_n1z00_2698;
{ /* Llib/srfi4.scm 838 */
 obj_t BgL_tmpz00_7719;
if(
INTEGERP(BgL_sendz00_157))
{ /* Llib/srfi4.scm 838 */
BgL_tmpz00_7719 = BgL_sendz00_157
; }  else 
{ 
 obj_t BgL_auxz00_7722;
BgL_auxz00_7722 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(33208L), BGl_string3307z00zz__srfi4z00, BGl_string3192z00zz__srfi4z00, BgL_sendz00_157); 
FAILURE(BgL_auxz00_7722,BFALSE,BFALSE);} 
BgL_n1z00_2698 = 
(long)CINT(BgL_tmpz00_7719); } 
BgL_test3988z00_7717 = 
(BgL_n1z00_2698>BgL_arg1630z00_1820); } } 
if(BgL_test3988z00_7717)
{ /* Llib/srfi4.scm 838 */
BGl_errorz00zz__errorz00(BGl_string3307z00zz__srfi4z00, BGl_string3311z00zz__srfi4z00, BgL_sendz00_157); }  else 
{ /* Llib/srfi4.scm 838 */
 bool_t BgL_test3990z00_7729;
{ /* Llib/srfi4.scm 838 */
 long BgL_n1z00_2700; long BgL_n2z00_2701;
{ /* Llib/srfi4.scm 838 */
 obj_t BgL_tmpz00_7730;
if(
INTEGERP(BgL_sendz00_157))
{ /* Llib/srfi4.scm 838 */
BgL_tmpz00_7730 = BgL_sendz00_157
; }  else 
{ 
 obj_t BgL_auxz00_7733;
BgL_auxz00_7733 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(33208L), BGl_string3307z00zz__srfi4z00, BGl_string3192z00zz__srfi4z00, BgL_sendz00_157); 
FAILURE(BgL_auxz00_7733,BFALSE,BFALSE);} 
BgL_n1z00_2700 = 
(long)CINT(BgL_tmpz00_7730); } 
{ /* Llib/srfi4.scm 838 */
 obj_t BgL_tmpz00_7738;
if(
INTEGERP(BgL_sstartz00_156))
{ /* Llib/srfi4.scm 838 */
BgL_tmpz00_7738 = BgL_sstartz00_156
; }  else 
{ 
 obj_t BgL_auxz00_7741;
BgL_auxz00_7741 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(33208L), BGl_string3307z00zz__srfi4z00, BGl_string3192z00zz__srfi4z00, BgL_sstartz00_156); 
FAILURE(BgL_auxz00_7741,BFALSE,BFALSE);} 
BgL_n2z00_2701 = 
(long)CINT(BgL_tmpz00_7738); } 
BgL_test3990z00_7729 = 
(BgL_n1z00_2700<BgL_n2z00_2701); } 
if(BgL_test3990z00_7729)
{ /* Llib/srfi4.scm 838 */
BGl_errorz00zz__errorz00(BGl_string3307z00zz__srfi4z00, BGl_string3311z00zz__srfi4z00, BgL_sendz00_157); }  else 
{ /* Llib/srfi4.scm 838 */
 bool_t BgL_test3993z00_7748;
{ /* Llib/srfi4.scm 838 */
 long BgL_a1206z00_1817;
{ /* Llib/srfi4.scm 838 */
 long BgL_za71za7_2702; long BgL_za72za7_2703;
{ /* Llib/srfi4.scm 838 */
 obj_t BgL_tmpz00_7749;
if(
INTEGERP(BgL_sendz00_157))
{ /* Llib/srfi4.scm 838 */
BgL_tmpz00_7749 = BgL_sendz00_157
; }  else 
{ 
 obj_t BgL_auxz00_7752;
BgL_auxz00_7752 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(33208L), BGl_string3307z00zz__srfi4z00, BGl_string3192z00zz__srfi4z00, BgL_sendz00_157); 
FAILURE(BgL_auxz00_7752,BFALSE,BFALSE);} 
BgL_za71za7_2702 = 
(long)CINT(BgL_tmpz00_7749); } 
{ /* Llib/srfi4.scm 838 */
 obj_t BgL_tmpz00_7757;
if(
INTEGERP(BgL_sstartz00_156))
{ /* Llib/srfi4.scm 838 */
BgL_tmpz00_7757 = BgL_sstartz00_156
; }  else 
{ 
 obj_t BgL_auxz00_7760;
BgL_auxz00_7760 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(33208L), BGl_string3307z00zz__srfi4z00, BGl_string3192z00zz__srfi4z00, BgL_sstartz00_156); 
FAILURE(BgL_auxz00_7760,BFALSE,BFALSE);} 
BgL_za72za7_2703 = 
(long)CINT(BgL_tmpz00_7757); } 
BgL_a1206z00_1817 = 
(BgL_za71za7_2702-BgL_za72za7_2703); } 
{ /* Llib/srfi4.scm 838 */
 long BgL_b1207z00_1818;
BgL_b1207z00_1818 = 
BGL_HVECTOR_LENGTH(BgL_targetz00_153); 
{ /* Llib/srfi4.scm 838 */

BgL_test3993z00_7748 = 
(BgL_a1206z00_1817>BgL_b1207z00_1818); } } } 
if(BgL_test3993z00_7748)
{ /* Llib/srfi4.scm 838 */
 long BgL_arg1629z00_1816;
{ /* Llib/srfi4.scm 838 */
 long BgL_za71za7_2707; long BgL_za72za7_2708;
{ /* Llib/srfi4.scm 838 */
 obj_t BgL_tmpz00_7768;
if(
INTEGERP(BgL_sendz00_157))
{ /* Llib/srfi4.scm 838 */
BgL_tmpz00_7768 = BgL_sendz00_157
; }  else 
{ 
 obj_t BgL_auxz00_7771;
BgL_auxz00_7771 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(33208L), BGl_string3307z00zz__srfi4z00, BGl_string3192z00zz__srfi4z00, BgL_sendz00_157); 
FAILURE(BgL_auxz00_7771,BFALSE,BFALSE);} 
BgL_za71za7_2707 = 
(long)CINT(BgL_tmpz00_7768); } 
{ /* Llib/srfi4.scm 838 */
 obj_t BgL_tmpz00_7776;
if(
INTEGERP(BgL_sstartz00_156))
{ /* Llib/srfi4.scm 838 */
BgL_tmpz00_7776 = BgL_sstartz00_156
; }  else 
{ 
 obj_t BgL_auxz00_7779;
BgL_auxz00_7779 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(33208L), BGl_string3307z00zz__srfi4z00, BGl_string3192z00zz__srfi4z00, BgL_sstartz00_156); 
FAILURE(BgL_auxz00_7779,BFALSE,BFALSE);} 
BgL_za72za7_2708 = 
(long)CINT(BgL_tmpz00_7776); } 
BgL_arg1629z00_1816 = 
(BgL_za71za7_2707-BgL_za72za7_2708); } 
BGl_errorz00zz__errorz00(BGl_string3307z00zz__srfi4z00, BGl_string3312z00zz__srfi4z00, 
BINT(BgL_arg1629z00_1816)); }  else 
{ /* Llib/srfi4.scm 838 */BFALSE; } } } } } 
{ /* Llib/srfi4.scm 838 */
 long BgL_auxz00_7796; long BgL_tmpz00_7787;
{ /* Llib/srfi4.scm 838 */
 obj_t BgL_tmpz00_7797;
if(
INTEGERP(BgL_sendz00_157))
{ /* Llib/srfi4.scm 838 */
BgL_tmpz00_7797 = BgL_sendz00_157
; }  else 
{ 
 obj_t BgL_auxz00_7800;
BgL_auxz00_7800 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(33208L), BGl_string3307z00zz__srfi4z00, BGl_string3192z00zz__srfi4z00, BgL_sendz00_157); 
FAILURE(BgL_auxz00_7800,BFALSE,BFALSE);} 
BgL_auxz00_7796 = 
(long)CINT(BgL_tmpz00_7797); } 
{ /* Llib/srfi4.scm 838 */
 obj_t BgL_tmpz00_7788;
if(
INTEGERP(BgL_sstartz00_156))
{ /* Llib/srfi4.scm 838 */
BgL_tmpz00_7788 = BgL_sstartz00_156
; }  else 
{ 
 obj_t BgL_auxz00_7791;
BgL_auxz00_7791 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(33208L), BGl_string3307z00zz__srfi4z00, BGl_string3192z00zz__srfi4z00, BgL_sstartz00_156); 
FAILURE(BgL_auxz00_7791,BFALSE,BFALSE);} 
BgL_tmpz00_7787 = 
(long)CINT(BgL_tmpz00_7788); } 
BGL_SU8VECTOR_COPY(BgL_targetz00_153, BgL_tstartz00_154, BgL_sourcez00_155, BgL_tmpz00_7787, BgL_auxz00_7796); } 
return BUNSPEC;} 

}



/* _u8vector-copy! */
obj_t BGl__u8vectorzd2copyz12zc0zz__srfi4z00(obj_t BgL_env1303z00_166, obj_t BgL_opt1302z00_165)
{
{ /* Llib/srfi4.scm 838 */
{ /* Llib/srfi4.scm 838 */
 obj_t BgL_targetz00_1821; obj_t BgL_tstartz00_1822; obj_t BgL_sourcez00_1823;
{ 
 obj_t BgL_auxz00_7806;
if(
VECTORP(BgL_opt1302z00_165))
{ /* Llib/srfi4.scm 838 */
BgL_auxz00_7806 = BgL_opt1302z00_165
; }  else 
{ 
 obj_t BgL_auxz00_7809;
BgL_auxz00_7809 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(33208L), BGl_string3313z00zz__srfi4z00, BGl_string3187z00zz__srfi4z00, BgL_opt1302z00_165); 
FAILURE(BgL_auxz00_7809,BFALSE,BFALSE);} 
BgL_targetz00_1821 = 
VECTOR_REF(BgL_auxz00_7806,0L); } 
{ 
 obj_t BgL_auxz00_7814;
if(
VECTORP(BgL_opt1302z00_165))
{ /* Llib/srfi4.scm 838 */
BgL_auxz00_7814 = BgL_opt1302z00_165
; }  else 
{ 
 obj_t BgL_auxz00_7817;
BgL_auxz00_7817 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(33208L), BGl_string3313z00zz__srfi4z00, BGl_string3187z00zz__srfi4z00, BgL_opt1302z00_165); 
FAILURE(BgL_auxz00_7817,BFALSE,BFALSE);} 
BgL_tstartz00_1822 = 
VECTOR_REF(BgL_auxz00_7814,1L); } 
{ 
 obj_t BgL_auxz00_7822;
if(
VECTORP(BgL_opt1302z00_165))
{ /* Llib/srfi4.scm 838 */
BgL_auxz00_7822 = BgL_opt1302z00_165
; }  else 
{ 
 obj_t BgL_auxz00_7825;
BgL_auxz00_7825 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(33208L), BGl_string3313z00zz__srfi4z00, BGl_string3187z00zz__srfi4z00, BgL_opt1302z00_165); 
FAILURE(BgL_auxz00_7825,BFALSE,BFALSE);} 
BgL_sourcez00_1823 = 
VECTOR_REF(BgL_auxz00_7822,2L); } 
{ 

{ /* Llib/srfi4.scm 838 */
 long BgL_aux1305z00_1825;
{ 
 obj_t BgL_auxz00_7830;
if(
VECTORP(BgL_opt1302z00_165))
{ /* Llib/srfi4.scm 838 */
BgL_auxz00_7830 = BgL_opt1302z00_165
; }  else 
{ 
 obj_t BgL_auxz00_7833;
BgL_auxz00_7833 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(33208L), BGl_string3313z00zz__srfi4z00, BGl_string3187z00zz__srfi4z00, BgL_opt1302z00_165); 
FAILURE(BgL_auxz00_7833,BFALSE,BFALSE);} 
BgL_aux1305z00_1825 = 
VECTOR_LENGTH(BgL_auxz00_7830); } 
switch( BgL_aux1305z00_1825) { case 3L : 

{ /* Llib/srfi4.scm 838 */
 long BgL_sendz00_1827;
{ /* Llib/srfi4.scm 838 */
 obj_t BgL_xz00_2709;
if(
BGL_U8VECTORP(BgL_sourcez00_1823))
{ /* Llib/srfi4.scm 838 */
BgL_xz00_2709 = BgL_sourcez00_1823; }  else 
{ 
 obj_t BgL_auxz00_7840;
BgL_auxz00_7840 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(33208L), BGl_string3313z00zz__srfi4z00, BGl_string3168z00zz__srfi4z00, BgL_sourcez00_1823); 
FAILURE(BgL_auxz00_7840,BFALSE,BFALSE);} 
BgL_sendz00_1827 = 
BGL_HVECTOR_LENGTH(BgL_xz00_2709); } 
{ /* Llib/srfi4.scm 838 */

{ /* Llib/srfi4.scm 838 */
 obj_t BgL_auxz00_7861; long BgL_auxz00_7852; obj_t BgL_auxz00_7845;
if(
BGL_U8VECTORP(BgL_sourcez00_1823))
{ /* Llib/srfi4.scm 838 */
BgL_auxz00_7861 = BgL_sourcez00_1823
; }  else 
{ 
 obj_t BgL_auxz00_7864;
BgL_auxz00_7864 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(33208L), BGl_string3313z00zz__srfi4z00, BGl_string3168z00zz__srfi4z00, BgL_sourcez00_1823); 
FAILURE(BgL_auxz00_7864,BFALSE,BFALSE);} 
{ /* Llib/srfi4.scm 838 */
 obj_t BgL_tmpz00_7853;
if(
INTEGERP(BgL_tstartz00_1822))
{ /* Llib/srfi4.scm 838 */
BgL_tmpz00_7853 = BgL_tstartz00_1822
; }  else 
{ 
 obj_t BgL_auxz00_7856;
BgL_auxz00_7856 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(33208L), BGl_string3313z00zz__srfi4z00, BGl_string3192z00zz__srfi4z00, BgL_tstartz00_1822); 
FAILURE(BgL_auxz00_7856,BFALSE,BFALSE);} 
BgL_auxz00_7852 = 
(long)CINT(BgL_tmpz00_7853); } 
if(
BGL_U8VECTORP(BgL_targetz00_1821))
{ /* Llib/srfi4.scm 838 */
BgL_auxz00_7845 = BgL_targetz00_1821
; }  else 
{ 
 obj_t BgL_auxz00_7848;
BgL_auxz00_7848 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(33208L), BGl_string3313z00zz__srfi4z00, BGl_string3168z00zz__srfi4z00, BgL_targetz00_1821); 
FAILURE(BgL_auxz00_7848,BFALSE,BFALSE);} 
return 
BGl_u8vectorzd2copyz12zc0zz__srfi4z00(BgL_auxz00_7845, BgL_auxz00_7852, BgL_auxz00_7861, 
BINT(0L), 
BINT(BgL_sendz00_1827));} } } break;case 4L : 

{ /* Llib/srfi4.scm 838 */
 obj_t BgL_sstartz00_1828;
{ 
 obj_t BgL_auxz00_7871;
if(
VECTORP(BgL_opt1302z00_165))
{ /* Llib/srfi4.scm 838 */
BgL_auxz00_7871 = BgL_opt1302z00_165
; }  else 
{ 
 obj_t BgL_auxz00_7874;
BgL_auxz00_7874 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(33208L), BGl_string3313z00zz__srfi4z00, BGl_string3187z00zz__srfi4z00, BgL_opt1302z00_165); 
FAILURE(BgL_auxz00_7874,BFALSE,BFALSE);} 
BgL_sstartz00_1828 = 
VECTOR_REF(BgL_auxz00_7871,3L); } 
{ /* Llib/srfi4.scm 838 */
 long BgL_sendz00_1829;
{ /* Llib/srfi4.scm 838 */
 obj_t BgL_xz00_2710;
if(
BGL_U8VECTORP(BgL_sourcez00_1823))
{ /* Llib/srfi4.scm 838 */
BgL_xz00_2710 = BgL_sourcez00_1823; }  else 
{ 
 obj_t BgL_auxz00_7881;
BgL_auxz00_7881 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(33208L), BGl_string3313z00zz__srfi4z00, BGl_string3168z00zz__srfi4z00, BgL_sourcez00_1823); 
FAILURE(BgL_auxz00_7881,BFALSE,BFALSE);} 
BgL_sendz00_1829 = 
BGL_HVECTOR_LENGTH(BgL_xz00_2710); } 
{ /* Llib/srfi4.scm 838 */

{ /* Llib/srfi4.scm 838 */
 obj_t BgL_auxz00_7902; long BgL_auxz00_7893; obj_t BgL_auxz00_7886;
if(
BGL_U8VECTORP(BgL_sourcez00_1823))
{ /* Llib/srfi4.scm 838 */
BgL_auxz00_7902 = BgL_sourcez00_1823
; }  else 
{ 
 obj_t BgL_auxz00_7905;
BgL_auxz00_7905 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(33208L), BGl_string3313z00zz__srfi4z00, BGl_string3168z00zz__srfi4z00, BgL_sourcez00_1823); 
FAILURE(BgL_auxz00_7905,BFALSE,BFALSE);} 
{ /* Llib/srfi4.scm 838 */
 obj_t BgL_tmpz00_7894;
if(
INTEGERP(BgL_tstartz00_1822))
{ /* Llib/srfi4.scm 838 */
BgL_tmpz00_7894 = BgL_tstartz00_1822
; }  else 
{ 
 obj_t BgL_auxz00_7897;
BgL_auxz00_7897 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(33208L), BGl_string3313z00zz__srfi4z00, BGl_string3192z00zz__srfi4z00, BgL_tstartz00_1822); 
FAILURE(BgL_auxz00_7897,BFALSE,BFALSE);} 
BgL_auxz00_7893 = 
(long)CINT(BgL_tmpz00_7894); } 
if(
BGL_U8VECTORP(BgL_targetz00_1821))
{ /* Llib/srfi4.scm 838 */
BgL_auxz00_7886 = BgL_targetz00_1821
; }  else 
{ 
 obj_t BgL_auxz00_7889;
BgL_auxz00_7889 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(33208L), BGl_string3313z00zz__srfi4z00, BGl_string3168z00zz__srfi4z00, BgL_targetz00_1821); 
FAILURE(BgL_auxz00_7889,BFALSE,BFALSE);} 
return 
BGl_u8vectorzd2copyz12zc0zz__srfi4z00(BgL_auxz00_7886, BgL_auxz00_7893, BgL_auxz00_7902, BgL_sstartz00_1828, 
BINT(BgL_sendz00_1829));} } } } break;case 5L : 

{ /* Llib/srfi4.scm 838 */
 obj_t BgL_sstartz00_1830;
{ 
 obj_t BgL_auxz00_7911;
if(
VECTORP(BgL_opt1302z00_165))
{ /* Llib/srfi4.scm 838 */
BgL_auxz00_7911 = BgL_opt1302z00_165
; }  else 
{ 
 obj_t BgL_auxz00_7914;
BgL_auxz00_7914 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(33208L), BGl_string3313z00zz__srfi4z00, BGl_string3187z00zz__srfi4z00, BgL_opt1302z00_165); 
FAILURE(BgL_auxz00_7914,BFALSE,BFALSE);} 
BgL_sstartz00_1830 = 
VECTOR_REF(BgL_auxz00_7911,3L); } 
{ /* Llib/srfi4.scm 838 */
 obj_t BgL_sendz00_1831;
{ 
 obj_t BgL_auxz00_7919;
if(
VECTORP(BgL_opt1302z00_165))
{ /* Llib/srfi4.scm 838 */
BgL_auxz00_7919 = BgL_opt1302z00_165
; }  else 
{ 
 obj_t BgL_auxz00_7922;
BgL_auxz00_7922 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(33208L), BGl_string3313z00zz__srfi4z00, BGl_string3187z00zz__srfi4z00, BgL_opt1302z00_165); 
FAILURE(BgL_auxz00_7922,BFALSE,BFALSE);} 
BgL_sendz00_1831 = 
VECTOR_REF(BgL_auxz00_7919,4L); } 
{ /* Llib/srfi4.scm 838 */

{ /* Llib/srfi4.scm 838 */
 obj_t BgL_auxz00_7943; long BgL_auxz00_7934; obj_t BgL_auxz00_7927;
if(
BGL_U8VECTORP(BgL_sourcez00_1823))
{ /* Llib/srfi4.scm 838 */
BgL_auxz00_7943 = BgL_sourcez00_1823
; }  else 
{ 
 obj_t BgL_auxz00_7946;
BgL_auxz00_7946 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(33208L), BGl_string3313z00zz__srfi4z00, BGl_string3168z00zz__srfi4z00, BgL_sourcez00_1823); 
FAILURE(BgL_auxz00_7946,BFALSE,BFALSE);} 
{ /* Llib/srfi4.scm 838 */
 obj_t BgL_tmpz00_7935;
if(
INTEGERP(BgL_tstartz00_1822))
{ /* Llib/srfi4.scm 838 */
BgL_tmpz00_7935 = BgL_tstartz00_1822
; }  else 
{ 
 obj_t BgL_auxz00_7938;
BgL_auxz00_7938 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(33208L), BGl_string3313z00zz__srfi4z00, BGl_string3192z00zz__srfi4z00, BgL_tstartz00_1822); 
FAILURE(BgL_auxz00_7938,BFALSE,BFALSE);} 
BgL_auxz00_7934 = 
(long)CINT(BgL_tmpz00_7935); } 
if(
BGL_U8VECTORP(BgL_targetz00_1821))
{ /* Llib/srfi4.scm 838 */
BgL_auxz00_7927 = BgL_targetz00_1821
; }  else 
{ 
 obj_t BgL_auxz00_7930;
BgL_auxz00_7930 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(33208L), BGl_string3313z00zz__srfi4z00, BGl_string3168z00zz__srfi4z00, BgL_targetz00_1821); 
FAILURE(BgL_auxz00_7930,BFALSE,BFALSE);} 
return 
BGl_u8vectorzd2copyz12zc0zz__srfi4z00(BgL_auxz00_7927, BgL_auxz00_7934, BgL_auxz00_7943, BgL_sstartz00_1830, BgL_sendz00_1831);} } } } break;
default: 
{ /* Llib/srfi4.scm 838 */
 long BgL_arg1631z00_1832;
{ 
 obj_t BgL_auxz00_7951;
if(
VECTORP(BgL_opt1302z00_165))
{ /* Llib/srfi4.scm 838 */
BgL_auxz00_7951 = BgL_opt1302z00_165
; }  else 
{ 
 obj_t BgL_auxz00_7954;
BgL_auxz00_7954 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(33208L), BGl_string3314z00zz__srfi4z00, BGl_string3187z00zz__srfi4z00, BgL_opt1302z00_165); 
FAILURE(BgL_auxz00_7954,BFALSE,BFALSE);} 
BgL_arg1631z00_1832 = 
VECTOR_LENGTH(BgL_auxz00_7951); } 
return 
BGl_errorz00zz__errorz00(BGl_symbol3315z00zz__srfi4z00, BGl_string3308z00zz__srfi4z00, 
BINT(BgL_arg1631z00_1832));} } } } } } 

}



/* 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 */
if(
(BgL_tstartz00_161<0L))
{ /* Llib/srfi4.scm 838 */
BGl_errorz00zz__errorz00(BGl_string3316z00zz__srfi4z00, BGl_string3309z00zz__srfi4z00, 
BINT(BgL_tstartz00_161)); }  else 
{ /* Llib/srfi4.scm 838 */
 bool_t BgL_test4020z00_7966;
{ /* Llib/srfi4.scm 838 */
 long BgL_n1z00_2712;
{ /* Llib/srfi4.scm 838 */
 obj_t BgL_tmpz00_7967;
if(
INTEGERP(BgL_sstartz00_163))
{ /* Llib/srfi4.scm 838 */
BgL_tmpz00_7967 = BgL_sstartz00_163
; }  else 
{ 
 obj_t BgL_auxz00_7970;
BgL_auxz00_7970 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(33208L), BGl_string3316z00zz__srfi4z00, BGl_string3192z00zz__srfi4z00, BgL_sstartz00_163); 
FAILURE(BgL_auxz00_7970,BFALSE,BFALSE);} 
BgL_n1z00_2712 = 
(long)CINT(BgL_tmpz00_7967); } 
BgL_test4020z00_7966 = 
(BgL_n1z00_2712<0L); } 
if(BgL_test4020z00_7966)
{ /* Llib/srfi4.scm 838 */
BGl_errorz00zz__errorz00(BGl_string3316z00zz__srfi4z00, BGl_string3310z00zz__srfi4z00, BgL_sstartz00_163); }  else 
{ /* Llib/srfi4.scm 838 */
 bool_t BgL_test4022z00_7977;
{ /* Llib/srfi4.scm 838 */
 long BgL_arg1641z00_1846;
BgL_arg1641z00_1846 = 
BGL_HVECTOR_LENGTH(BgL_sourcez00_162); 
{ /* Llib/srfi4.scm 838 */
 long BgL_n1z00_2714;
{ /* Llib/srfi4.scm 838 */
 obj_t BgL_tmpz00_7979;
if(
INTEGERP(BgL_sendz00_164))
{ /* Llib/srfi4.scm 838 */
BgL_tmpz00_7979 = BgL_sendz00_164
; }  else 
{ 
 obj_t BgL_auxz00_7982;
BgL_auxz00_7982 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(33208L), BGl_string3316z00zz__srfi4z00, BGl_string3192z00zz__srfi4z00, BgL_sendz00_164); 
FAILURE(BgL_auxz00_7982,BFALSE,BFALSE);} 
BgL_n1z00_2714 = 
(long)CINT(BgL_tmpz00_7979); } 
BgL_test4022z00_7977 = 
(BgL_n1z00_2714>BgL_arg1641z00_1846); } } 
if(BgL_test4022z00_7977)
{ /* Llib/srfi4.scm 838 */
BGl_errorz00zz__errorz00(BGl_string3316z00zz__srfi4z00, BGl_string3311z00zz__srfi4z00, BgL_sendz00_164); }  else 
{ /* Llib/srfi4.scm 838 */
 bool_t BgL_test4024z00_7989;
{ /* Llib/srfi4.scm 838 */
 long BgL_n1z00_2716; long BgL_n2z00_2717;
{ /* Llib/srfi4.scm 838 */
 obj_t BgL_tmpz00_7990;
if(
INTEGERP(BgL_sendz00_164))
{ /* Llib/srfi4.scm 838 */
BgL_tmpz00_7990 = BgL_sendz00_164
; }  else 
{ 
 obj_t BgL_auxz00_7993;
BgL_auxz00_7993 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(33208L), BGl_string3316z00zz__srfi4z00, BGl_string3192z00zz__srfi4z00, BgL_sendz00_164); 
FAILURE(BgL_auxz00_7993,BFALSE,BFALSE);} 
BgL_n1z00_2716 = 
(long)CINT(BgL_tmpz00_7990); } 
{ /* Llib/srfi4.scm 838 */
 obj_t BgL_tmpz00_7998;
if(
INTEGERP(BgL_sstartz00_163))
{ /* Llib/srfi4.scm 838 */
BgL_tmpz00_7998 = BgL_sstartz00_163
; }  else 
{ 
 obj_t BgL_auxz00_8001;
BgL_auxz00_8001 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(33208L), BGl_string3316z00zz__srfi4z00, BGl_string3192z00zz__srfi4z00, BgL_sstartz00_163); 
FAILURE(BgL_auxz00_8001,BFALSE,BFALSE);} 
BgL_n2z00_2717 = 
(long)CINT(BgL_tmpz00_7998); } 
BgL_test4024z00_7989 = 
(BgL_n1z00_2716<BgL_n2z00_2717); } 
if(BgL_test4024z00_7989)
{ /* Llib/srfi4.scm 838 */
BGl_errorz00zz__errorz00(BGl_string3316z00zz__srfi4z00, BGl_string3311z00zz__srfi4z00, BgL_sendz00_164); }  else 
{ /* Llib/srfi4.scm 838 */
 bool_t BgL_test4027z00_8008;
{ /* Llib/srfi4.scm 838 */
 long BgL_a1209z00_1843;
{ /* Llib/srfi4.scm 838 */
 long BgL_za71za7_2718; long BgL_za72za7_2719;
{ /* Llib/srfi4.scm 838 */
 obj_t BgL_tmpz00_8009;
if(
INTEGERP(BgL_sendz00_164))
{ /* Llib/srfi4.scm 838 */
BgL_tmpz00_8009 = BgL_sendz00_164
; }  else 
{ 
 obj_t BgL_auxz00_8012;
BgL_auxz00_8012 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(33208L), BGl_string3316z00zz__srfi4z00, BGl_string3192z00zz__srfi4z00, BgL_sendz00_164); 
FAILURE(BgL_auxz00_8012,BFALSE,BFALSE);} 
BgL_za71za7_2718 = 
(long)CINT(BgL_tmpz00_8009); } 
{ /* Llib/srfi4.scm 838 */
 obj_t BgL_tmpz00_8017;
if(
INTEGERP(BgL_sstartz00_163))
{ /* Llib/srfi4.scm 838 */
BgL_tmpz00_8017 = BgL_sstartz00_163
; }  else 
{ 
 obj_t BgL_auxz00_8020;
BgL_auxz00_8020 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(33208L), BGl_string3316z00zz__srfi4z00, BGl_string3192z00zz__srfi4z00, BgL_sstartz00_163); 
FAILURE(BgL_auxz00_8020,BFALSE,BFALSE);} 
BgL_za72za7_2719 = 
(long)CINT(BgL_tmpz00_8017); } 
BgL_a1209z00_1843 = 
(BgL_za71za7_2718-BgL_za72za7_2719); } 
{ /* Llib/srfi4.scm 838 */
 long BgL_b1210z00_1844;
BgL_b1210z00_1844 = 
BGL_HVECTOR_LENGTH(BgL_targetz00_160); 
{ /* Llib/srfi4.scm 838 */

BgL_test4027z00_8008 = 
(BgL_a1209z00_1843>BgL_b1210z00_1844); } } } 
if(BgL_test4027z00_8008)
{ /* Llib/srfi4.scm 838 */
 long BgL_arg1639z00_1842;
{ /* Llib/srfi4.scm 838 */
 long BgL_za71za7_2723; long BgL_za72za7_2724;
{ /* Llib/srfi4.scm 838 */
 obj_t BgL_tmpz00_8028;
if(
INTEGERP(BgL_sendz00_164))
{ /* Llib/srfi4.scm 838 */
BgL_tmpz00_8028 = BgL_sendz00_164
; }  else 
{ 
 obj_t BgL_auxz00_8031;
BgL_auxz00_8031 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(33208L), BGl_string3316z00zz__srfi4z00, BGl_string3192z00zz__srfi4z00, BgL_sendz00_164); 
FAILURE(BgL_auxz00_8031,BFALSE,BFALSE);} 
BgL_za71za7_2723 = 
(long)CINT(BgL_tmpz00_8028); } 
{ /* Llib/srfi4.scm 838 */
 obj_t BgL_tmpz00_8036;
if(
INTEGERP(BgL_sstartz00_163))
{ /* Llib/srfi4.scm 838 */
BgL_tmpz00_8036 = BgL_sstartz00_163
; }  else 
{ 
 obj_t BgL_auxz00_8039;
BgL_auxz00_8039 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(33208L), BGl_string3316z00zz__srfi4z00, BGl_string3192z00zz__srfi4z00, BgL_sstartz00_163); 
FAILURE(BgL_auxz00_8039,BFALSE,BFALSE);} 
BgL_za72za7_2724 = 
(long)CINT(BgL_tmpz00_8036); } 
BgL_arg1639z00_1842 = 
(BgL_za71za7_2723-BgL_za72za7_2724); } 
BGl_errorz00zz__errorz00(BGl_string3316z00zz__srfi4z00, BGl_string3312z00zz__srfi4z00, 
BINT(BgL_arg1639z00_1842)); }  else 
{ /* Llib/srfi4.scm 838 */BFALSE; } } } } } 
{ /* Llib/srfi4.scm 838 */
 long BgL_auxz00_8056; long BgL_tmpz00_8047;
{ /* Llib/srfi4.scm 838 */
 obj_t BgL_tmpz00_8057;
if(
INTEGERP(BgL_sendz00_164))
{ /* Llib/srfi4.scm 838 */
BgL_tmpz00_8057 = BgL_sendz00_164
; }  else 
{ 
 obj_t BgL_auxz00_8060;
BgL_auxz00_8060 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(33208L), BGl_string3316z00zz__srfi4z00, BGl_string3192z00zz__srfi4z00, BgL_sendz00_164); 
FAILURE(BgL_auxz00_8060,BFALSE,BFALSE);} 
BgL_auxz00_8056 = 
(long)CINT(BgL_tmpz00_8057); } 
{ /* Llib/srfi4.scm 838 */
 obj_t BgL_tmpz00_8048;
if(
INTEGERP(BgL_sstartz00_163))
{ /* Llib/srfi4.scm 838 */
BgL_tmpz00_8048 = BgL_sstartz00_163
; }  else 
{ 
 obj_t BgL_auxz00_8051;
BgL_auxz00_8051 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(33208L), BGl_string3316z00zz__srfi4z00, BGl_string3192z00zz__srfi4z00, BgL_sstartz00_163); 
FAILURE(BgL_auxz00_8051,BFALSE,BFALSE);} 
BgL_tmpz00_8047 = 
(long)CINT(BgL_tmpz00_8048); } 
BGL_SU8VECTOR_COPY(BgL_targetz00_160, BgL_tstartz00_161, BgL_sourcez00_162, BgL_tmpz00_8047, BgL_auxz00_8056); } 
return BUNSPEC;} 

}



/* _s16vector-copy! */
obj_t BGl__s16vectorzd2copyz12zc0zz__srfi4z00(obj_t BgL_env1307z00_173, obj_t BgL_opt1306z00_172)
{
{ /* Llib/srfi4.scm 838 */
{ /* Llib/srfi4.scm 838 */
 obj_t BgL_targetz00_1847; obj_t BgL_tstartz00_1848; obj_t BgL_sourcez00_1849;
{ 
 obj_t BgL_auxz00_8066;
if(
VECTORP(BgL_opt1306z00_172))
{ /* Llib/srfi4.scm 838 */
BgL_auxz00_8066 = BgL_opt1306z00_172
; }  else 
{ 
 obj_t BgL_auxz00_8069;
BgL_auxz00_8069 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(33208L), BGl_string3317z00zz__srfi4z00, BGl_string3187z00zz__srfi4z00, BgL_opt1306z00_172); 
FAILURE(BgL_auxz00_8069,BFALSE,BFALSE);} 
BgL_targetz00_1847 = 
VECTOR_REF(BgL_auxz00_8066,0L); } 
{ 
 obj_t BgL_auxz00_8074;
if(
VECTORP(BgL_opt1306z00_172))
{ /* Llib/srfi4.scm 838 */
BgL_auxz00_8074 = BgL_opt1306z00_172
; }  else 
{ 
 obj_t BgL_auxz00_8077;
BgL_auxz00_8077 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(33208L), BGl_string3317z00zz__srfi4z00, BGl_string3187z00zz__srfi4z00, BgL_opt1306z00_172); 
FAILURE(BgL_auxz00_8077,BFALSE,BFALSE);} 
BgL_tstartz00_1848 = 
VECTOR_REF(BgL_auxz00_8074,1L); } 
{ 
 obj_t BgL_auxz00_8082;
if(
VECTORP(BgL_opt1306z00_172))
{ /* Llib/srfi4.scm 838 */
BgL_auxz00_8082 = BgL_opt1306z00_172
; }  else 
{ 
 obj_t BgL_auxz00_8085;
BgL_auxz00_8085 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(33208L), BGl_string3317z00zz__srfi4z00, BGl_string3187z00zz__srfi4z00, BgL_opt1306z00_172); 
FAILURE(BgL_auxz00_8085,BFALSE,BFALSE);} 
BgL_sourcez00_1849 = 
VECTOR_REF(BgL_auxz00_8082,2L); } 
{ 

{ /* Llib/srfi4.scm 838 */
 long BgL_aux1309z00_1851;
{ 
 obj_t BgL_auxz00_8090;
if(
VECTORP(BgL_opt1306z00_172))
{ /* Llib/srfi4.scm 838 */
BgL_auxz00_8090 = BgL_opt1306z00_172
; }  else 
{ 
 obj_t BgL_auxz00_8093;
BgL_auxz00_8093 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(33208L), BGl_string3317z00zz__srfi4z00, BGl_string3187z00zz__srfi4z00, BgL_opt1306z00_172); 
FAILURE(BgL_auxz00_8093,BFALSE,BFALSE);} 
BgL_aux1309z00_1851 = 
VECTOR_LENGTH(BgL_auxz00_8090); } 
switch( BgL_aux1309z00_1851) { case 3L : 

{ /* Llib/srfi4.scm 838 */
 long BgL_sendz00_1853;
{ /* Llib/srfi4.scm 838 */
 obj_t BgL_xz00_2725;
if(
BGL_S16VECTORP(BgL_sourcez00_1849))
{ /* Llib/srfi4.scm 838 */
BgL_xz00_2725 = BgL_sourcez00_1849; }  else 
{ 
 obj_t BgL_auxz00_8100;
BgL_auxz00_8100 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(33208L), BGl_string3317z00zz__srfi4z00, BGl_string3170z00zz__srfi4z00, BgL_sourcez00_1849); 
FAILURE(BgL_auxz00_8100,BFALSE,BFALSE);} 
BgL_sendz00_1853 = 
BGL_HVECTOR_LENGTH(BgL_xz00_2725); } 
{ /* Llib/srfi4.scm 838 */

{ /* Llib/srfi4.scm 838 */
 obj_t BgL_auxz00_8121; long BgL_auxz00_8112; obj_t BgL_auxz00_8105;
if(
BGL_S16VECTORP(BgL_sourcez00_1849))
{ /* Llib/srfi4.scm 838 */
BgL_auxz00_8121 = BgL_sourcez00_1849
; }  else 
{ 
 obj_t BgL_auxz00_8124;
BgL_auxz00_8124 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(33208L), BGl_string3317z00zz__srfi4z00, BGl_string3170z00zz__srfi4z00, BgL_sourcez00_1849); 
FAILURE(BgL_auxz00_8124,BFALSE,BFALSE);} 
{ /* Llib/srfi4.scm 838 */
 obj_t BgL_tmpz00_8113;
if(
INTEGERP(BgL_tstartz00_1848))
{ /* Llib/srfi4.scm 838 */
BgL_tmpz00_8113 = BgL_tstartz00_1848
; }  else 
{ 
 obj_t BgL_auxz00_8116;
BgL_auxz00_8116 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(33208L), BGl_string3317z00zz__srfi4z00, BGl_string3192z00zz__srfi4z00, BgL_tstartz00_1848); 
FAILURE(BgL_auxz00_8116,BFALSE,BFALSE);} 
BgL_auxz00_8112 = 
(long)CINT(BgL_tmpz00_8113); } 
if(
BGL_S16VECTORP(BgL_targetz00_1847))
{ /* Llib/srfi4.scm 838 */
BgL_auxz00_8105 = BgL_targetz00_1847
; }  else 
{ 
 obj_t BgL_auxz00_8108;
BgL_auxz00_8108 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(33208L), BGl_string3317z00zz__srfi4z00, BGl_string3170z00zz__srfi4z00, BgL_targetz00_1847); 
FAILURE(BgL_auxz00_8108,BFALSE,BFALSE);} 
return 
BGl_s16vectorzd2copyz12zc0zz__srfi4z00(BgL_auxz00_8105, BgL_auxz00_8112, BgL_auxz00_8121, 
BINT(0L), 
BINT(BgL_sendz00_1853));} } } break;case 4L : 

{ /* Llib/srfi4.scm 838 */
 obj_t BgL_sstartz00_1854;
{ 
 obj_t BgL_auxz00_8131;
if(
VECTORP(BgL_opt1306z00_172))
{ /* Llib/srfi4.scm 838 */
BgL_auxz00_8131 = BgL_opt1306z00_172
; }  else 
{ 
 obj_t BgL_auxz00_8134;
BgL_auxz00_8134 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(33208L), BGl_string3317z00zz__srfi4z00, BGl_string3187z00zz__srfi4z00, BgL_opt1306z00_172); 
FAILURE(BgL_auxz00_8134,BFALSE,BFALSE);} 
BgL_sstartz00_1854 = 
VECTOR_REF(BgL_auxz00_8131,3L); } 
{ /* Llib/srfi4.scm 838 */
 long BgL_sendz00_1855;
{ /* Llib/srfi4.scm 838 */
 obj_t BgL_xz00_2726;
if(
BGL_S16VECTORP(BgL_sourcez00_1849))
{ /* Llib/srfi4.scm 838 */
BgL_xz00_2726 = BgL_sourcez00_1849; }  else 
{ 
 obj_t BgL_auxz00_8141;
BgL_auxz00_8141 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(33208L), BGl_string3317z00zz__srfi4z00, BGl_string3170z00zz__srfi4z00, BgL_sourcez00_1849); 
FAILURE(BgL_auxz00_8141,BFALSE,BFALSE);} 
BgL_sendz00_1855 = 
BGL_HVECTOR_LENGTH(BgL_xz00_2726); } 
{ /* Llib/srfi4.scm 838 */

{ /* Llib/srfi4.scm 838 */
 obj_t BgL_auxz00_8162; long BgL_auxz00_8153; obj_t BgL_auxz00_8146;
if(
BGL_S16VECTORP(BgL_sourcez00_1849))
{ /* Llib/srfi4.scm 838 */
BgL_auxz00_8162 = BgL_sourcez00_1849
; }  else 
{ 
 obj_t BgL_auxz00_8165;
BgL_auxz00_8165 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(33208L), BGl_string3317z00zz__srfi4z00, BGl_string3170z00zz__srfi4z00, BgL_sourcez00_1849); 
FAILURE(BgL_auxz00_8165,BFALSE,BFALSE);} 
{ /* Llib/srfi4.scm 838 */
 obj_t BgL_tmpz00_8154;
if(
INTEGERP(BgL_tstartz00_1848))
{ /* Llib/srfi4.scm 838 */
BgL_tmpz00_8154 = BgL_tstartz00_1848
; }  else 
{ 
 obj_t BgL_auxz00_8157;
BgL_auxz00_8157 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(33208L), BGl_string3317z00zz__srfi4z00, BGl_string3192z00zz__srfi4z00, BgL_tstartz00_1848); 
FAILURE(BgL_auxz00_8157,BFALSE,BFALSE);} 
BgL_auxz00_8153 = 
(long)CINT(BgL_tmpz00_8154); } 
if(
BGL_S16VECTORP(BgL_targetz00_1847))
{ /* Llib/srfi4.scm 838 */
BgL_auxz00_8146 = BgL_targetz00_1847
; }  else 
{ 
 obj_t BgL_auxz00_8149;
BgL_auxz00_8149 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(33208L), BGl_string3317z00zz__srfi4z00, BGl_string3170z00zz__srfi4z00, BgL_targetz00_1847); 
FAILURE(BgL_auxz00_8149,BFALSE,BFALSE);} 
return 
BGl_s16vectorzd2copyz12zc0zz__srfi4z00(BgL_auxz00_8146, BgL_auxz00_8153, BgL_auxz00_8162, BgL_sstartz00_1854, 
BINT(BgL_sendz00_1855));} } } } break;case 5L : 

{ /* Llib/srfi4.scm 838 */
 obj_t BgL_sstartz00_1856;
{ 
 obj_t BgL_auxz00_8171;
if(
VECTORP(BgL_opt1306z00_172))
{ /* Llib/srfi4.scm 838 */
BgL_auxz00_8171 = BgL_opt1306z00_172
; }  else 
{ 
 obj_t BgL_auxz00_8174;
BgL_auxz00_8174 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(33208L), BGl_string3317z00zz__srfi4z00, BGl_string3187z00zz__srfi4z00, BgL_opt1306z00_172); 
FAILURE(BgL_auxz00_8174,BFALSE,BFALSE);} 
BgL_sstartz00_1856 = 
VECTOR_REF(BgL_auxz00_8171,3L); } 
{ /* Llib/srfi4.scm 838 */
 obj_t BgL_sendz00_1857;
{ 
 obj_t BgL_auxz00_8179;
if(
VECTORP(BgL_opt1306z00_172))
{ /* Llib/srfi4.scm 838 */
BgL_auxz00_8179 = BgL_opt1306z00_172
; }  else 
{ 
 obj_t BgL_auxz00_8182;
BgL_auxz00_8182 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(33208L), BGl_string3317z00zz__srfi4z00, BGl_string3187z00zz__srfi4z00, BgL_opt1306z00_172); 
FAILURE(BgL_auxz00_8182,BFALSE,BFALSE);} 
BgL_sendz00_1857 = 
VECTOR_REF(BgL_auxz00_8179,4L); } 
{ /* Llib/srfi4.scm 838 */

{ /* Llib/srfi4.scm 838 */
 obj_t BgL_auxz00_8203; long BgL_auxz00_8194; obj_t BgL_auxz00_8187;
if(
BGL_S16VECTORP(BgL_sourcez00_1849))
{ /* Llib/srfi4.scm 838 */
BgL_auxz00_8203 = BgL_sourcez00_1849
; }  else 
{ 
 obj_t BgL_auxz00_8206;
BgL_auxz00_8206 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(33208L), BGl_string3317z00zz__srfi4z00, BGl_string3170z00zz__srfi4z00, BgL_sourcez00_1849); 
FAILURE(BgL_auxz00_8206,BFALSE,BFALSE);} 
{ /* Llib/srfi4.scm 838 */
 obj_t BgL_tmpz00_8195;
if(
INTEGERP(BgL_tstartz00_1848))
{ /* Llib/srfi4.scm 838 */
BgL_tmpz00_8195 = BgL_tstartz00_1848
; }  else 
{ 
 obj_t BgL_auxz00_8198;
BgL_auxz00_8198 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(33208L), BGl_string3317z00zz__srfi4z00, BGl_string3192z00zz__srfi4z00, BgL_tstartz00_1848); 
FAILURE(BgL_auxz00_8198,BFALSE,BFALSE);} 
BgL_auxz00_8194 = 
(long)CINT(BgL_tmpz00_8195); } 
if(
BGL_S16VECTORP(BgL_targetz00_1847))
{ /* Llib/srfi4.scm 838 */
BgL_auxz00_8187 = BgL_targetz00_1847
; }  else 
{ 
 obj_t BgL_auxz00_8190;
BgL_auxz00_8190 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(33208L), BGl_string3317z00zz__srfi4z00, BGl_string3170z00zz__srfi4z00, BgL_targetz00_1847); 
FAILURE(BgL_auxz00_8190,BFALSE,BFALSE);} 
return 
BGl_s16vectorzd2copyz12zc0zz__srfi4z00(BgL_auxz00_8187, BgL_auxz00_8194, BgL_auxz00_8203, BgL_sstartz00_1856, BgL_sendz00_1857);} } } } break;
default: 
{ /* Llib/srfi4.scm 838 */
 long BgL_arg1642z00_1858;
{ 
 obj_t BgL_auxz00_8211;
if(
VECTORP(BgL_opt1306z00_172))
{ /* Llib/srfi4.scm 838 */
BgL_auxz00_8211 = BgL_opt1306z00_172
; }  else 
{ 
 obj_t BgL_auxz00_8214;
BgL_auxz00_8214 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(33208L), BGl_string3318z00zz__srfi4z00, BGl_string3187z00zz__srfi4z00, BgL_opt1306z00_172); 
FAILURE(BgL_auxz00_8214,BFALSE,BFALSE);} 
BgL_arg1642z00_1858 = 
VECTOR_LENGTH(BgL_auxz00_8211); } 
return 
BGl_errorz00zz__errorz00(BGl_symbol3319z00zz__srfi4z00, BGl_string3308z00zz__srfi4z00, 
BINT(BgL_arg1642z00_1858));} } } } } } 

}



/* 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 */
if(
(BgL_tstartz00_168<0L))
{ /* Llib/srfi4.scm 838 */
BGl_errorz00zz__errorz00(BGl_string3320z00zz__srfi4z00, BGl_string3309z00zz__srfi4z00, 
BINT(BgL_tstartz00_168)); }  else 
{ /* Llib/srfi4.scm 838 */
 bool_t BgL_test4054z00_8226;
{ /* Llib/srfi4.scm 838 */
 long BgL_n1z00_2728;
{ /* Llib/srfi4.scm 838 */
 obj_t BgL_tmpz00_8227;
if(
INTEGERP(BgL_sstartz00_170))
{ /* Llib/srfi4.scm 838 */
BgL_tmpz00_8227 = BgL_sstartz00_170
; }  else 
{ 
 obj_t BgL_auxz00_8230;
BgL_auxz00_8230 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(33208L), BGl_string3320z00zz__srfi4z00, BGl_string3192z00zz__srfi4z00, BgL_sstartz00_170); 
FAILURE(BgL_auxz00_8230,BFALSE,BFALSE);} 
BgL_n1z00_2728 = 
(long)CINT(BgL_tmpz00_8227); } 
BgL_test4054z00_8226 = 
(BgL_n1z00_2728<0L); } 
if(BgL_test4054z00_8226)
{ /* Llib/srfi4.scm 838 */
BGl_errorz00zz__errorz00(BGl_string3320z00zz__srfi4z00, BGl_string3310z00zz__srfi4z00, BgL_sstartz00_170); }  else 
{ /* Llib/srfi4.scm 838 */
 bool_t BgL_test4056z00_8237;
{ /* Llib/srfi4.scm 838 */
 long BgL_arg1652z00_1872;
BgL_arg1652z00_1872 = 
BGL_HVECTOR_LENGTH(BgL_sourcez00_169); 
{ /* Llib/srfi4.scm 838 */
 long BgL_n1z00_2730;
{ /* Llib/srfi4.scm 838 */
 obj_t BgL_tmpz00_8239;
if(
INTEGERP(BgL_sendz00_171))
{ /* Llib/srfi4.scm 838 */
BgL_tmpz00_8239 = BgL_sendz00_171
; }  else 
{ 
 obj_t BgL_auxz00_8242;
BgL_auxz00_8242 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(33208L), BGl_string3320z00zz__srfi4z00, BGl_string3192z00zz__srfi4z00, BgL_sendz00_171); 
FAILURE(BgL_auxz00_8242,BFALSE,BFALSE);} 
BgL_n1z00_2730 = 
(long)CINT(BgL_tmpz00_8239); } 
BgL_test4056z00_8237 = 
(BgL_n1z00_2730>BgL_arg1652z00_1872); } } 
if(BgL_test4056z00_8237)
{ /* Llib/srfi4.scm 838 */
BGl_errorz00zz__errorz00(BGl_string3320z00zz__srfi4z00, BGl_string3311z00zz__srfi4z00, BgL_sendz00_171); }  else 
{ /* Llib/srfi4.scm 838 */
 bool_t BgL_test4058z00_8249;
{ /* Llib/srfi4.scm 838 */
 long BgL_n1z00_2732; long BgL_n2z00_2733;
{ /* Llib/srfi4.scm 838 */
 obj_t BgL_tmpz00_8250;
if(
INTEGERP(BgL_sendz00_171))
{ /* Llib/srfi4.scm 838 */
BgL_tmpz00_8250 = BgL_sendz00_171
; }  else 
{ 
 obj_t BgL_auxz00_8253;
BgL_auxz00_8253 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(33208L), BGl_string3320z00zz__srfi4z00, BGl_string3192z00zz__srfi4z00, BgL_sendz00_171); 
FAILURE(BgL_auxz00_8253,BFALSE,BFALSE);} 
BgL_n1z00_2732 = 
(long)CINT(BgL_tmpz00_8250); } 
{ /* Llib/srfi4.scm 838 */
 obj_t BgL_tmpz00_8258;
if(
INTEGERP(BgL_sstartz00_170))
{ /* Llib/srfi4.scm 838 */
BgL_tmpz00_8258 = BgL_sstartz00_170
; }  else 
{ 
 obj_t BgL_auxz00_8261;
BgL_auxz00_8261 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(33208L), BGl_string3320z00zz__srfi4z00, BGl_string3192z00zz__srfi4z00, BgL_sstartz00_170); 
FAILURE(BgL_auxz00_8261,BFALSE,BFALSE);} 
BgL_n2z00_2733 = 
(long)CINT(BgL_tmpz00_8258); } 
BgL_test4058z00_8249 = 
(BgL_n1z00_2732<BgL_n2z00_2733); } 
if(BgL_test4058z00_8249)
{ /* Llib/srfi4.scm 838 */
BGl_errorz00zz__errorz00(BGl_string3320z00zz__srfi4z00, BGl_string3311z00zz__srfi4z00, BgL_sendz00_171); }  else 
{ /* Llib/srfi4.scm 838 */
 bool_t BgL_test4061z00_8268;
{ /* Llib/srfi4.scm 838 */
 long BgL_a1212z00_1869;
{ /* Llib/srfi4.scm 838 */
 long BgL_za71za7_2734; long BgL_za72za7_2735;
{ /* Llib/srfi4.scm 838 */
 obj_t BgL_tmpz00_8269;
if(
INTEGERP(BgL_sendz00_171))
{ /* Llib/srfi4.scm 838 */
BgL_tmpz00_8269 = BgL_sendz00_171
; }  else 
{ 
 obj_t BgL_auxz00_8272;
BgL_auxz00_8272 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(33208L), BGl_string3320z00zz__srfi4z00, BGl_string3192z00zz__srfi4z00, BgL_sendz00_171); 
FAILURE(BgL_auxz00_8272,BFALSE,BFALSE);} 
BgL_za71za7_2734 = 
(long)CINT(BgL_tmpz00_8269); } 
{ /* Llib/srfi4.scm 838 */
 obj_t BgL_tmpz00_8277;
if(
INTEGERP(BgL_sstartz00_170))
{ /* Llib/srfi4.scm 838 */
BgL_tmpz00_8277 = BgL_sstartz00_170
; }  else 
{ 
 obj_t BgL_auxz00_8280;
BgL_auxz00_8280 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(33208L), BGl_string3320z00zz__srfi4z00, BGl_string3192z00zz__srfi4z00, BgL_sstartz00_170); 
FAILURE(BgL_auxz00_8280,BFALSE,BFALSE);} 
BgL_za72za7_2735 = 
(long)CINT(BgL_tmpz00_8277); } 
BgL_a1212z00_1869 = 
(BgL_za71za7_2734-BgL_za72za7_2735); } 
{ /* Llib/srfi4.scm 838 */
 long BgL_b1213z00_1870;
BgL_b1213z00_1870 = 
BGL_HVECTOR_LENGTH(BgL_targetz00_167); 
{ /* Llib/srfi4.scm 838 */

BgL_test4061z00_8268 = 
(BgL_a1212z00_1869>BgL_b1213z00_1870); } } } 
if(BgL_test4061z00_8268)
{ /* Llib/srfi4.scm 838 */
 long BgL_arg1651z00_1868;
{ /* Llib/srfi4.scm 838 */
 long BgL_za71za7_2739; long BgL_za72za7_2740;
{ /* Llib/srfi4.scm 838 */
 obj_t BgL_tmpz00_8288;
if(
INTEGERP(BgL_sendz00_171))
{ /* Llib/srfi4.scm 838 */
BgL_tmpz00_8288 = BgL_sendz00_171
; }  else 
{ 
 obj_t BgL_auxz00_8291;
BgL_auxz00_8291 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(33208L), BGl_string3320z00zz__srfi4z00, BGl_string3192z00zz__srfi4z00, BgL_sendz00_171); 
FAILURE(BgL_auxz00_8291,BFALSE,BFALSE);} 
BgL_za71za7_2739 = 
(long)CINT(BgL_tmpz00_8288); } 
{ /* Llib/srfi4.scm 838 */
 obj_t BgL_tmpz00_8296;
if(
INTEGERP(BgL_sstartz00_170))
{ /* Llib/srfi4.scm 838 */
BgL_tmpz00_8296 = BgL_sstartz00_170
; }  else 
{ 
 obj_t BgL_auxz00_8299;
BgL_auxz00_8299 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(33208L), BGl_string3320z00zz__srfi4z00, BGl_string3192z00zz__srfi4z00, BgL_sstartz00_170); 
FAILURE(BgL_auxz00_8299,BFALSE,BFALSE);} 
BgL_za72za7_2740 = 
(long)CINT(BgL_tmpz00_8296); } 
BgL_arg1651z00_1868 = 
(BgL_za71za7_2739-BgL_za72za7_2740); } 
BGl_errorz00zz__errorz00(BGl_string3320z00zz__srfi4z00, BGl_string3312z00zz__srfi4z00, 
BINT(BgL_arg1651z00_1868)); }  else 
{ /* Llib/srfi4.scm 838 */BFALSE; } } } } } 
{ /* Llib/srfi4.scm 838 */
 long BgL_auxz00_8316; long BgL_tmpz00_8307;
{ /* Llib/srfi4.scm 838 */
 obj_t BgL_tmpz00_8317;
if(
INTEGERP(BgL_sendz00_171))
{ /* Llib/srfi4.scm 838 */
BgL_tmpz00_8317 = BgL_sendz00_171
; }  else 
{ 
 obj_t BgL_auxz00_8320;
BgL_auxz00_8320 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(33208L), BGl_string3320z00zz__srfi4z00, BGl_string3192z00zz__srfi4z00, BgL_sendz00_171); 
FAILURE(BgL_auxz00_8320,BFALSE,BFALSE);} 
BgL_auxz00_8316 = 
(long)CINT(BgL_tmpz00_8317); } 
{ /* Llib/srfi4.scm 838 */
 obj_t BgL_tmpz00_8308;
if(
INTEGERP(BgL_sstartz00_170))
{ /* Llib/srfi4.scm 838 */
BgL_tmpz00_8308 = BgL_sstartz00_170
; }  else 
{ 
 obj_t BgL_auxz00_8311;
BgL_auxz00_8311 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(33208L), BGl_string3320z00zz__srfi4z00, BGl_string3192z00zz__srfi4z00, BgL_sstartz00_170); 
FAILURE(BgL_auxz00_8311,BFALSE,BFALSE);} 
BgL_tmpz00_8307 = 
(long)CINT(BgL_tmpz00_8308); } 
BGL_SU16VECTOR_COPY(BgL_targetz00_167, BgL_tstartz00_168, BgL_sourcez00_169, BgL_tmpz00_8307, BgL_auxz00_8316); } 
return BUNSPEC;} 

}



/* _u16vector-copy! */
obj_t BGl__u16vectorzd2copyz12zc0zz__srfi4z00(obj_t BgL_env1311z00_180, obj_t BgL_opt1310z00_179)
{
{ /* 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_8326;
if(
VECTORP(BgL_opt1310z00_179))
{ /* Llib/srfi4.scm 838 */
BgL_auxz00_8326 = BgL_opt1310z00_179
; }  else 
{ 
 obj_t BgL_auxz00_8329;
BgL_auxz00_8329 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(33208L), BGl_string3321z00zz__srfi4z00, BGl_string3187z00zz__srfi4z00, BgL_opt1310z00_179); 
FAILURE(BgL_auxz00_8329,BFALSE,BFALSE);} 
BgL_targetz00_1873 = 
VECTOR_REF(BgL_auxz00_8326,0L); } 
{ 
 obj_t BgL_auxz00_8334;
if(
VECTORP(BgL_opt1310z00_179))
{ /* Llib/srfi4.scm 838 */
BgL_auxz00_8334 = BgL_opt1310z00_179
; }  else 
{ 
 obj_t BgL_auxz00_8337;
BgL_auxz00_8337 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(33208L), BGl_string3321z00zz__srfi4z00, BGl_string3187z00zz__srfi4z00, BgL_opt1310z00_179); 
FAILURE(BgL_auxz00_8337,BFALSE,BFALSE);} 
BgL_tstartz00_1874 = 
VECTOR_REF(BgL_auxz00_8334,1L); } 
{ 
 obj_t BgL_auxz00_8342;
if(
VECTORP(BgL_opt1310z00_179))
{ /* Llib/srfi4.scm 838 */
BgL_auxz00_8342 = BgL_opt1310z00_179
; }  else 
{ 
 obj_t BgL_auxz00_8345;
BgL_auxz00_8345 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(33208L), BGl_string3321z00zz__srfi4z00, BGl_string3187z00zz__srfi4z00, BgL_opt1310z00_179); 
FAILURE(BgL_auxz00_8345,BFALSE,BFALSE);} 
BgL_sourcez00_1875 = 
VECTOR_REF(BgL_auxz00_8342,2L); } 
{ 

{ /* Llib/srfi4.scm 838 */
 long BgL_aux1313z00_1877;
{ 
 obj_t BgL_auxz00_8350;
if(
VECTORP(BgL_opt1310z00_179))
{ /* Llib/srfi4.scm 838 */
BgL_auxz00_8350 = BgL_opt1310z00_179
; }  else 
{ 
 obj_t BgL_auxz00_8353;
BgL_auxz00_8353 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(33208L), BGl_string3321z00zz__srfi4z00, BGl_string3187z00zz__srfi4z00, BgL_opt1310z00_179); 
FAILURE(BgL_auxz00_8353,BFALSE,BFALSE);} 
BgL_aux1313z00_1877 = 
VECTOR_LENGTH(BgL_auxz00_8350); } 
switch( BgL_aux1313z00_1877) { case 3L : 

{ /* Llib/srfi4.scm 838 */
 long BgL_sendz00_1879;
{ /* Llib/srfi4.scm 838 */
 obj_t BgL_xz00_2741;
if(
BGL_U16VECTORP(BgL_sourcez00_1875))
{ /* Llib/srfi4.scm 838 */
BgL_xz00_2741 = BgL_sourcez00_1875; }  else 
{ 
 obj_t BgL_auxz00_8360;
BgL_auxz00_8360 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(33208L), BGl_string3321z00zz__srfi4z00, BGl_string3172z00zz__srfi4z00, BgL_sourcez00_1875); 
FAILURE(BgL_auxz00_8360,BFALSE,BFALSE);} 
BgL_sendz00_1879 = 
BGL_HVECTOR_LENGTH(BgL_xz00_2741); } 
{ /* Llib/srfi4.scm 838 */

{ /* Llib/srfi4.scm 838 */
 obj_t BgL_auxz00_8381; long BgL_auxz00_8372; obj_t BgL_auxz00_8365;
if(
BGL_U16VECTORP(BgL_sourcez00_1875))
{ /* Llib/srfi4.scm 838 */
BgL_auxz00_8381 = BgL_sourcez00_1875
; }  else 
{ 
 obj_t BgL_auxz00_8384;
BgL_auxz00_8384 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(33208L), BGl_string3321z00zz__srfi4z00, BGl_string3172z00zz__srfi4z00, BgL_sourcez00_1875); 
FAILURE(BgL_auxz00_8384,BFALSE,BFALSE);} 
{ /* Llib/srfi4.scm 838 */
 obj_t BgL_tmpz00_8373;
if(
INTEGERP(BgL_tstartz00_1874))
{ /* Llib/srfi4.scm 838 */
BgL_tmpz00_8373 = BgL_tstartz00_1874
; }  else 
{ 
 obj_t BgL_auxz00_8376;
BgL_auxz00_8376 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(33208L), BGl_string3321z00zz__srfi4z00, BGl_string3192z00zz__srfi4z00, BgL_tstartz00_1874); 
FAILURE(BgL_auxz00_8376,BFALSE,BFALSE);} 
BgL_auxz00_8372 = 
(long)CINT(BgL_tmpz00_8373); } 
if(
BGL_U16VECTORP(BgL_targetz00_1873))
{ /* Llib/srfi4.scm 838 */
BgL_auxz00_8365 = BgL_targetz00_1873
; }  else 
{ 
 obj_t BgL_auxz00_8368;
BgL_auxz00_8368 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(33208L), BGl_string3321z00zz__srfi4z00, BGl_string3172z00zz__srfi4z00, BgL_targetz00_1873); 
FAILURE(BgL_auxz00_8368,BFALSE,BFALSE);} 
return 
BGl_u16vectorzd2copyz12zc0zz__srfi4z00(BgL_auxz00_8365, BgL_auxz00_8372, BgL_auxz00_8381, 
BINT(0L), 
BINT(BgL_sendz00_1879));} } } break;case 4L : 

{ /* Llib/srfi4.scm 838 */
 obj_t BgL_sstartz00_1880;
{ 
 obj_t BgL_auxz00_8391;
if(
VECTORP(BgL_opt1310z00_179))
{ /* Llib/srfi4.scm 838 */
BgL_auxz00_8391 = BgL_opt1310z00_179
; }  else 
{ 
 obj_t BgL_auxz00_8394;
BgL_auxz00_8394 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(33208L), BGl_string3321z00zz__srfi4z00, BGl_string3187z00zz__srfi4z00, BgL_opt1310z00_179); 
FAILURE(BgL_auxz00_8394,BFALSE,BFALSE);} 
BgL_sstartz00_1880 = 
VECTOR_REF(BgL_auxz00_8391,3L); } 
{ /* Llib/srfi4.scm 838 */
 long BgL_sendz00_1881;
{ /* Llib/srfi4.scm 838 */
 obj_t BgL_xz00_2742;
if(
BGL_U16VECTORP(BgL_sourcez00_1875))
{ /* Llib/srfi4.scm 838 */
BgL_xz00_2742 = BgL_sourcez00_1875; }  else 
{ 
 obj_t BgL_auxz00_8401;
BgL_auxz00_8401 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(33208L), BGl_string3321z00zz__srfi4z00, BGl_string3172z00zz__srfi4z00, BgL_sourcez00_1875); 
FAILURE(BgL_auxz00_8401,BFALSE,BFALSE);} 
BgL_sendz00_1881 = 
BGL_HVECTOR_LENGTH(BgL_xz00_2742); } 
{ /* Llib/srfi4.scm 838 */

{ /* Llib/srfi4.scm 838 */
 obj_t BgL_auxz00_8422; long BgL_auxz00_8413; obj_t BgL_auxz00_8406;
if(
BGL_U16VECTORP(BgL_sourcez00_1875))
{ /* Llib/srfi4.scm 838 */
BgL_auxz00_8422 = BgL_sourcez00_1875
; }  else 
{ 
 obj_t BgL_auxz00_8425;
BgL_auxz00_8425 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(33208L), BGl_string3321z00zz__srfi4z00, BGl_string3172z00zz__srfi4z00, BgL_sourcez00_1875); 
FAILURE(BgL_auxz00_8425,BFALSE,BFALSE);} 
{ /* Llib/srfi4.scm 838 */
 obj_t BgL_tmpz00_8414;
if(
INTEGERP(BgL_tstartz00_1874))
{ /* Llib/srfi4.scm 838 */
BgL_tmpz00_8414 = BgL_tstartz00_1874
; }  else 
{ 
 obj_t BgL_auxz00_8417;
BgL_auxz00_8417 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(33208L), BGl_string3321z00zz__srfi4z00, BGl_string3192z00zz__srfi4z00, BgL_tstartz00_1874); 
FAILURE(BgL_auxz00_8417,BFALSE,BFALSE);} 
BgL_auxz00_8413 = 
(long)CINT(BgL_tmpz00_8414); } 
if(
BGL_U16VECTORP(BgL_targetz00_1873))
{ /* Llib/srfi4.scm 838 */
BgL_auxz00_8406 = BgL_targetz00_1873
; }  else 
{ 
 obj_t BgL_auxz00_8409;
BgL_auxz00_8409 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(33208L), BGl_string3321z00zz__srfi4z00, BGl_string3172z00zz__srfi4z00, BgL_targetz00_1873); 
FAILURE(BgL_auxz00_8409,BFALSE,BFALSE);} 
return 
BGl_u16vectorzd2copyz12zc0zz__srfi4z00(BgL_auxz00_8406, BgL_auxz00_8413, BgL_auxz00_8422, BgL_sstartz00_1880, 
BINT(BgL_sendz00_1881));} } } } break;case 5L : 

{ /* Llib/srfi4.scm 838 */
 obj_t BgL_sstartz00_1882;
{ 
 obj_t BgL_auxz00_8431;
if(
VECTORP(BgL_opt1310z00_179))
{ /* Llib/srfi4.scm 838 */
BgL_auxz00_8431 = BgL_opt1310z00_179
; }  else 
{ 
 obj_t BgL_auxz00_8434;
BgL_auxz00_8434 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(33208L), BGl_string3321z00zz__srfi4z00, BGl_string3187z00zz__srfi4z00, BgL_opt1310z00_179); 
FAILURE(BgL_auxz00_8434,BFALSE,BFALSE);} 
BgL_sstartz00_1882 = 
VECTOR_REF(BgL_auxz00_8431,3L); } 
{ /* Llib/srfi4.scm 838 */
 obj_t BgL_sendz00_1883;
{ 
 obj_t BgL_auxz00_8439;
if(
VECTORP(BgL_opt1310z00_179))
{ /* Llib/srfi4.scm 838 */
BgL_auxz00_8439 = BgL_opt1310z00_179
; }  else 
{ 
 obj_t BgL_auxz00_8442;
BgL_auxz00_8442 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(33208L), BGl_string3321z00zz__srfi4z00, BGl_string3187z00zz__srfi4z00, BgL_opt1310z00_179); 
FAILURE(BgL_auxz00_8442,BFALSE,BFALSE);} 
BgL_sendz00_1883 = 
VECTOR_REF(BgL_auxz00_8439,4L); } 
{ /* Llib/srfi4.scm 838 */

{ /* Llib/srfi4.scm 838 */
 obj_t BgL_auxz00_8463; long BgL_auxz00_8454; obj_t BgL_auxz00_8447;
if(
BGL_U16VECTORP(BgL_sourcez00_1875))
{ /* Llib/srfi4.scm 838 */
BgL_auxz00_8463 = BgL_sourcez00_1875
; }  else 
{ 
 obj_t BgL_auxz00_8466;
BgL_auxz00_8466 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(33208L), BGl_string3321z00zz__srfi4z00, BGl_string3172z00zz__srfi4z00, BgL_sourcez00_1875); 
FAILURE(BgL_auxz00_8466,BFALSE,BFALSE);} 
{ /* Llib/srfi4.scm 838 */
 obj_t BgL_tmpz00_8455;
if(
INTEGERP(BgL_tstartz00_1874))
{ /* Llib/srfi4.scm 838 */
BgL_tmpz00_8455 = BgL_tstartz00_1874
; }  else 
{ 
 obj_t BgL_auxz00_8458;
BgL_auxz00_8458 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(33208L), BGl_string3321z00zz__srfi4z00, BGl_string3192z00zz__srfi4z00, BgL_tstartz00_1874); 
FAILURE(BgL_auxz00_8458,BFALSE,BFALSE);} 
BgL_auxz00_8454 = 
(long)CINT(BgL_tmpz00_8455); } 
if(
BGL_U16VECTORP(BgL_targetz00_1873))
{ /* Llib/srfi4.scm 838 */
BgL_auxz00_8447 = BgL_targetz00_1873
; }  else 
{ 
 obj_t BgL_auxz00_8450;
BgL_auxz00_8450 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(33208L), BGl_string3321z00zz__srfi4z00, BGl_string3172z00zz__srfi4z00, BgL_targetz00_1873); 
FAILURE(BgL_auxz00_8450,BFALSE,BFALSE);} 
return 
BGl_u16vectorzd2copyz12zc0zz__srfi4z00(BgL_auxz00_8447, BgL_auxz00_8454, BgL_auxz00_8463, BgL_sstartz00_1882, BgL_sendz00_1883);} } } } break;
default: 
{ /* Llib/srfi4.scm 838 */
 long BgL_arg1653z00_1884;
{ 
 obj_t BgL_auxz00_8471;
if(
VECTORP(BgL_opt1310z00_179))
{ /* Llib/srfi4.scm 838 */
BgL_auxz00_8471 = BgL_opt1310z00_179
; }  else 
{ 
 obj_t BgL_auxz00_8474;
BgL_auxz00_8474 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(33208L), BGl_string3322z00zz__srfi4z00, BGl_string3187z00zz__srfi4z00, BgL_opt1310z00_179); 
FAILURE(BgL_auxz00_8474,BFALSE,BFALSE);} 
BgL_arg1653z00_1884 = 
VECTOR_LENGTH(BgL_auxz00_8471); } 
return 
BGl_errorz00zz__errorz00(BGl_symbol3323z00zz__srfi4z00, BGl_string3308z00zz__srfi4z00, 
BINT(BgL_arg1653z00_1884));} } } } } } 

}



/* 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 */
if(
(BgL_tstartz00_175<0L))
{ /* Llib/srfi4.scm 838 */
BGl_errorz00zz__errorz00(BGl_string3324z00zz__srfi4z00, BGl_string3309z00zz__srfi4z00, 
BINT(BgL_tstartz00_175)); }  else 
{ /* Llib/srfi4.scm 838 */
 bool_t BgL_test4088z00_8486;
{ /* Llib/srfi4.scm 838 */
 long BgL_n1z00_2744;
{ /* Llib/srfi4.scm 838 */
 obj_t BgL_tmpz00_8487;
if(
INTEGERP(BgL_sstartz00_177))
{ /* Llib/srfi4.scm 838 */
BgL_tmpz00_8487 = BgL_sstartz00_177
; }  else 
{ 
 obj_t BgL_auxz00_8490;
BgL_auxz00_8490 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(33208L), BGl_string3324z00zz__srfi4z00, BGl_string3192z00zz__srfi4z00, BgL_sstartz00_177); 
FAILURE(BgL_auxz00_8490,BFALSE,BFALSE);} 
BgL_n1z00_2744 = 
(long)CINT(BgL_tmpz00_8487); } 
BgL_test4088z00_8486 = 
(BgL_n1z00_2744<0L); } 
if(BgL_test4088z00_8486)
{ /* Llib/srfi4.scm 838 */
BGl_errorz00zz__errorz00(BGl_string3324z00zz__srfi4z00, BGl_string3310z00zz__srfi4z00, BgL_sstartz00_177); }  else 
{ /* Llib/srfi4.scm 838 */
 bool_t BgL_test4090z00_8497;
{ /* Llib/srfi4.scm 838 */
 long BgL_arg1665z00_1898;
BgL_arg1665z00_1898 = 
BGL_HVECTOR_LENGTH(BgL_sourcez00_176); 
{ /* Llib/srfi4.scm 838 */
 long BgL_n1z00_2746;
{ /* Llib/srfi4.scm 838 */
 obj_t BgL_tmpz00_8499;
if(
INTEGERP(BgL_sendz00_178))
{ /* Llib/srfi4.scm 838 */
BgL_tmpz00_8499 = BgL_sendz00_178
; }  else 
{ 
 obj_t BgL_auxz00_8502;
BgL_auxz00_8502 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(33208L), BGl_string3324z00zz__srfi4z00, BGl_string3192z00zz__srfi4z00, BgL_sendz00_178); 
FAILURE(BgL_auxz00_8502,BFALSE,BFALSE);} 
BgL_n1z00_2746 = 
(long)CINT(BgL_tmpz00_8499); } 
BgL_test4090z00_8497 = 
(BgL_n1z00_2746>BgL_arg1665z00_1898); } } 
if(BgL_test4090z00_8497)
{ /* Llib/srfi4.scm 838 */
BGl_errorz00zz__errorz00(BGl_string3324z00zz__srfi4z00, BGl_string3311z00zz__srfi4z00, BgL_sendz00_178); }  else 
{ /* Llib/srfi4.scm 838 */
 bool_t BgL_test4092z00_8509;
{ /* Llib/srfi4.scm 838 */
 long BgL_n1z00_2748; long BgL_n2z00_2749;
{ /* Llib/srfi4.scm 838 */
 obj_t BgL_tmpz00_8510;
if(
INTEGERP(BgL_sendz00_178))
{ /* Llib/srfi4.scm 838 */
BgL_tmpz00_8510 = BgL_sendz00_178
; }  else 
{ 
 obj_t BgL_auxz00_8513;
BgL_auxz00_8513 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(33208L), BGl_string3324z00zz__srfi4z00, BGl_string3192z00zz__srfi4z00, BgL_sendz00_178); 
FAILURE(BgL_auxz00_8513,BFALSE,BFALSE);} 
BgL_n1z00_2748 = 
(long)CINT(BgL_tmpz00_8510); } 
{ /* Llib/srfi4.scm 838 */
 obj_t BgL_tmpz00_8518;
if(
INTEGERP(BgL_sstartz00_177))
{ /* Llib/srfi4.scm 838 */
BgL_tmpz00_8518 = BgL_sstartz00_177
; }  else 
{ 
 obj_t BgL_auxz00_8521;
BgL_auxz00_8521 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(33208L), BGl_string3324z00zz__srfi4z00, BGl_string3192z00zz__srfi4z00, BgL_sstartz00_177); 
FAILURE(BgL_auxz00_8521,BFALSE,BFALSE);} 
BgL_n2z00_2749 = 
(long)CINT(BgL_tmpz00_8518); } 
BgL_test4092z00_8509 = 
(BgL_n1z00_2748<BgL_n2z00_2749); } 
if(BgL_test4092z00_8509)
{ /* Llib/srfi4.scm 838 */
BGl_errorz00zz__errorz00(BGl_string3324z00zz__srfi4z00, BGl_string3311z00zz__srfi4z00, BgL_sendz00_178); }  else 
{ /* Llib/srfi4.scm 838 */
 bool_t BgL_test4095z00_8528;
{ /* Llib/srfi4.scm 838 */
 long BgL_a1215z00_1895;
{ /* Llib/srfi4.scm 838 */
 long BgL_za71za7_2750; long BgL_za72za7_2751;
{ /* Llib/srfi4.scm 838 */
 obj_t BgL_tmpz00_8529;
if(
INTEGERP(BgL_sendz00_178))
{ /* Llib/srfi4.scm 838 */
BgL_tmpz00_8529 = BgL_sendz00_178
; }  else 
{ 
 obj_t BgL_auxz00_8532;
BgL_auxz00_8532 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(33208L), BGl_string3324z00zz__srfi4z00, BGl_string3192z00zz__srfi4z00, BgL_sendz00_178); 
FAILURE(BgL_auxz00_8532,BFALSE,BFALSE);} 
BgL_za71za7_2750 = 
(long)CINT(BgL_tmpz00_8529); } 
{ /* Llib/srfi4.scm 838 */
 obj_t BgL_tmpz00_8537;
if(
INTEGERP(BgL_sstartz00_177))
{ /* Llib/srfi4.scm 838 */
BgL_tmpz00_8537 = BgL_sstartz00_177
; }  else 
{ 
 obj_t BgL_auxz00_8540;
BgL_auxz00_8540 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(33208L), BGl_string3324z00zz__srfi4z00, BGl_string3192z00zz__srfi4z00, BgL_sstartz00_177); 
FAILURE(BgL_auxz00_8540,BFALSE,BFALSE);} 
BgL_za72za7_2751 = 
(long)CINT(BgL_tmpz00_8537); } 
BgL_a1215z00_1895 = 
(BgL_za71za7_2750-BgL_za72za7_2751); } 
{ /* Llib/srfi4.scm 838 */
 long BgL_b1216z00_1896;
BgL_b1216z00_1896 = 
BGL_HVECTOR_LENGTH(BgL_targetz00_174); 
{ /* Llib/srfi4.scm 838 */

BgL_test4095z00_8528 = 
(BgL_a1215z00_1895>BgL_b1216z00_1896); } } } 
if(BgL_test4095z00_8528)
{ /* Llib/srfi4.scm 838 */
 long BgL_arg1664z00_1894;
{ /* Llib/srfi4.scm 838 */
 long BgL_za71za7_2755; long BgL_za72za7_2756;
{ /* Llib/srfi4.scm 838 */
 obj_t BgL_tmpz00_8548;
if(
INTEGERP(BgL_sendz00_178))
{ /* Llib/srfi4.scm 838 */
BgL_tmpz00_8548 = BgL_sendz00_178
; }  else 
{ 
 obj_t BgL_auxz00_8551;
BgL_auxz00_8551 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(33208L), BGl_string3324z00zz__srfi4z00, BGl_string3192z00zz__srfi4z00, BgL_sendz00_178); 
FAILURE(BgL_auxz00_8551,BFALSE,BFALSE);} 
BgL_za71za7_2755 = 
(long)CINT(BgL_tmpz00_8548); } 
{ /* Llib/srfi4.scm 838 */
 obj_t BgL_tmpz00_8556;
if(
INTEGERP(BgL_sstartz00_177))
{ /* Llib/srfi4.scm 838 */
BgL_tmpz00_8556 = BgL_sstartz00_177
; }  else 
{ 
 obj_t BgL_auxz00_8559;
BgL_auxz00_8559 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(33208L), BGl_string3324z00zz__srfi4z00, BGl_string3192z00zz__srfi4z00, BgL_sstartz00_177); 
FAILURE(BgL_auxz00_8559,BFALSE,BFALSE);} 
BgL_za72za7_2756 = 
(long)CINT(BgL_tmpz00_8556); } 
BgL_arg1664z00_1894 = 
(BgL_za71za7_2755-BgL_za72za7_2756); } 
BGl_errorz00zz__errorz00(BGl_string3324z00zz__srfi4z00, BGl_string3312z00zz__srfi4z00, 
BINT(BgL_arg1664z00_1894)); }  else 
{ /* Llib/srfi4.scm 838 */BFALSE; } } } } } 
{ /* Llib/srfi4.scm 838 */
 long BgL_auxz00_8576; long BgL_tmpz00_8567;
{ /* Llib/srfi4.scm 838 */
 obj_t BgL_tmpz00_8577;
if(
INTEGERP(BgL_sendz00_178))
{ /* Llib/srfi4.scm 838 */
BgL_tmpz00_8577 = BgL_sendz00_178
; }  else 
{ 
 obj_t BgL_auxz00_8580;
BgL_auxz00_8580 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(33208L), BGl_string3324z00zz__srfi4z00, BGl_string3192z00zz__srfi4z00, BgL_sendz00_178); 
FAILURE(BgL_auxz00_8580,BFALSE,BFALSE);} 
BgL_auxz00_8576 = 
(long)CINT(BgL_tmpz00_8577); } 
{ /* Llib/srfi4.scm 838 */
 obj_t BgL_tmpz00_8568;
if(
INTEGERP(BgL_sstartz00_177))
{ /* Llib/srfi4.scm 838 */
BgL_tmpz00_8568 = BgL_sstartz00_177
; }  else 
{ 
 obj_t BgL_auxz00_8571;
BgL_auxz00_8571 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(33208L), BGl_string3324z00zz__srfi4z00, BGl_string3192z00zz__srfi4z00, BgL_sstartz00_177); 
FAILURE(BgL_auxz00_8571,BFALSE,BFALSE);} 
BgL_tmpz00_8567 = 
(long)CINT(BgL_tmpz00_8568); } 
BGL_SU16VECTOR_COPY(BgL_targetz00_174, BgL_tstartz00_175, BgL_sourcez00_176, BgL_tmpz00_8567, BgL_auxz00_8576); } 
return BUNSPEC;} 

}



/* _s32vector-copy! */
obj_t BGl__s32vectorzd2copyz12zc0zz__srfi4z00(obj_t BgL_env1315z00_187, obj_t BgL_opt1314z00_186)
{
{ /* Llib/srfi4.scm 838 */
{ /* Llib/srfi4.scm 838 */
 obj_t BgL_targetz00_1899; obj_t BgL_tstartz00_1900; obj_t BgL_sourcez00_1901;
{ 
 obj_t BgL_auxz00_8586;
if(
VECTORP(BgL_opt1314z00_186))
{ /* Llib/srfi4.scm 838 */
BgL_auxz00_8586 = BgL_opt1314z00_186
; }  else 
{ 
 obj_t BgL_auxz00_8589;
BgL_auxz00_8589 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(33208L), BGl_string3325z00zz__srfi4z00, BGl_string3187z00zz__srfi4z00, BgL_opt1314z00_186); 
FAILURE(BgL_auxz00_8589,BFALSE,BFALSE);} 
BgL_targetz00_1899 = 
VECTOR_REF(BgL_auxz00_8586,0L); } 
{ 
 obj_t BgL_auxz00_8594;
if(
VECTORP(BgL_opt1314z00_186))
{ /* Llib/srfi4.scm 838 */
BgL_auxz00_8594 = BgL_opt1314z00_186
; }  else 
{ 
 obj_t BgL_auxz00_8597;
BgL_auxz00_8597 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(33208L), BGl_string3325z00zz__srfi4z00, BGl_string3187z00zz__srfi4z00, BgL_opt1314z00_186); 
FAILURE(BgL_auxz00_8597,BFALSE,BFALSE);} 
BgL_tstartz00_1900 = 
VECTOR_REF(BgL_auxz00_8594,1L); } 
{ 
 obj_t BgL_auxz00_8602;
if(
VECTORP(BgL_opt1314z00_186))
{ /* Llib/srfi4.scm 838 */
BgL_auxz00_8602 = BgL_opt1314z00_186
; }  else 
{ 
 obj_t BgL_auxz00_8605;
BgL_auxz00_8605 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(33208L), BGl_string3325z00zz__srfi4z00, BGl_string3187z00zz__srfi4z00, BgL_opt1314z00_186); 
FAILURE(BgL_auxz00_8605,BFALSE,BFALSE);} 
BgL_sourcez00_1901 = 
VECTOR_REF(BgL_auxz00_8602,2L); } 
{ 

{ /* Llib/srfi4.scm 838 */
 long BgL_aux1317z00_1903;
{ 
 obj_t BgL_auxz00_8610;
if(
VECTORP(BgL_opt1314z00_186))
{ /* Llib/srfi4.scm 838 */
BgL_auxz00_8610 = BgL_opt1314z00_186
; }  else 
{ 
 obj_t BgL_auxz00_8613;
BgL_auxz00_8613 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(33208L), BGl_string3325z00zz__srfi4z00, BGl_string3187z00zz__srfi4z00, BgL_opt1314z00_186); 
FAILURE(BgL_auxz00_8613,BFALSE,BFALSE);} 
BgL_aux1317z00_1903 = 
VECTOR_LENGTH(BgL_auxz00_8610); } 
switch( BgL_aux1317z00_1903) { case 3L : 

{ /* Llib/srfi4.scm 838 */
 long BgL_sendz00_1905;
{ /* Llib/srfi4.scm 838 */
 obj_t BgL_xz00_2757;
if(
BGL_S32VECTORP(BgL_sourcez00_1901))
{ /* Llib/srfi4.scm 838 */
BgL_xz00_2757 = BgL_sourcez00_1901; }  else 
{ 
 obj_t BgL_auxz00_8620;
BgL_auxz00_8620 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(33208L), BGl_string3325z00zz__srfi4z00, BGl_string3174z00zz__srfi4z00, BgL_sourcez00_1901); 
FAILURE(BgL_auxz00_8620,BFALSE,BFALSE);} 
BgL_sendz00_1905 = 
BGL_HVECTOR_LENGTH(BgL_xz00_2757); } 
{ /* Llib/srfi4.scm 838 */

{ /* Llib/srfi4.scm 838 */
 obj_t BgL_auxz00_8641; long BgL_auxz00_8632; obj_t BgL_auxz00_8625;
if(
BGL_S32VECTORP(BgL_sourcez00_1901))
{ /* Llib/srfi4.scm 838 */
BgL_auxz00_8641 = BgL_sourcez00_1901
; }  else 
{ 
 obj_t BgL_auxz00_8644;
BgL_auxz00_8644 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(33208L), BGl_string3325z00zz__srfi4z00, BGl_string3174z00zz__srfi4z00, BgL_sourcez00_1901); 
FAILURE(BgL_auxz00_8644,BFALSE,BFALSE);} 
{ /* Llib/srfi4.scm 838 */
 obj_t BgL_tmpz00_8633;
if(
INTEGERP(BgL_tstartz00_1900))
{ /* Llib/srfi4.scm 838 */
BgL_tmpz00_8633 = BgL_tstartz00_1900
; }  else 
{ 
 obj_t BgL_auxz00_8636;
BgL_auxz00_8636 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(33208L), BGl_string3325z00zz__srfi4z00, BGl_string3192z00zz__srfi4z00, BgL_tstartz00_1900); 
FAILURE(BgL_auxz00_8636,BFALSE,BFALSE);} 
BgL_auxz00_8632 = 
(long)CINT(BgL_tmpz00_8633); } 
if(
BGL_S32VECTORP(BgL_targetz00_1899))
{ /* Llib/srfi4.scm 838 */
BgL_auxz00_8625 = BgL_targetz00_1899
; }  else 
{ 
 obj_t BgL_auxz00_8628;
BgL_auxz00_8628 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(33208L), BGl_string3325z00zz__srfi4z00, BGl_string3174z00zz__srfi4z00, BgL_targetz00_1899); 
FAILURE(BgL_auxz00_8628,BFALSE,BFALSE);} 
return 
BGl_s32vectorzd2copyz12zc0zz__srfi4z00(BgL_auxz00_8625, BgL_auxz00_8632, BgL_auxz00_8641, 
BINT(0L), 
BINT(BgL_sendz00_1905));} } } break;case 4L : 

{ /* Llib/srfi4.scm 838 */
 obj_t BgL_sstartz00_1906;
{ 
 obj_t BgL_auxz00_8651;
if(
VECTORP(BgL_opt1314z00_186))
{ /* Llib/srfi4.scm 838 */
BgL_auxz00_8651 = BgL_opt1314z00_186
; }  else 
{ 
 obj_t BgL_auxz00_8654;
BgL_auxz00_8654 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(33208L), BGl_string3325z00zz__srfi4z00, BGl_string3187z00zz__srfi4z00, BgL_opt1314z00_186); 
FAILURE(BgL_auxz00_8654,BFALSE,BFALSE);} 
BgL_sstartz00_1906 = 
VECTOR_REF(BgL_auxz00_8651,3L); } 
{ /* Llib/srfi4.scm 838 */
 long BgL_sendz00_1907;
{ /* Llib/srfi4.scm 838 */
 obj_t BgL_xz00_2758;
if(
BGL_S32VECTORP(BgL_sourcez00_1901))
{ /* Llib/srfi4.scm 838 */
BgL_xz00_2758 = BgL_sourcez00_1901; }  else 
{ 
 obj_t BgL_auxz00_8661;
BgL_auxz00_8661 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(33208L), BGl_string3325z00zz__srfi4z00, BGl_string3174z00zz__srfi4z00, BgL_sourcez00_1901); 
FAILURE(BgL_auxz00_8661,BFALSE,BFALSE);} 
BgL_sendz00_1907 = 
BGL_HVECTOR_LENGTH(BgL_xz00_2758); } 
{ /* Llib/srfi4.scm 838 */

{ /* Llib/srfi4.scm 838 */
 obj_t BgL_auxz00_8682; long BgL_auxz00_8673; obj_t BgL_auxz00_8666;
if(
BGL_S32VECTORP(BgL_sourcez00_1901))
{ /* Llib/srfi4.scm 838 */
BgL_auxz00_8682 = BgL_sourcez00_1901
; }  else 
{ 
 obj_t BgL_auxz00_8685;
BgL_auxz00_8685 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(33208L), BGl_string3325z00zz__srfi4z00, BGl_string3174z00zz__srfi4z00, BgL_sourcez00_1901); 
FAILURE(BgL_auxz00_8685,BFALSE,BFALSE);} 
{ /* Llib/srfi4.scm 838 */
 obj_t BgL_tmpz00_8674;
if(
INTEGERP(BgL_tstartz00_1900))
{ /* Llib/srfi4.scm 838 */
BgL_tmpz00_8674 = BgL_tstartz00_1900
; }  else 
{ 
 obj_t BgL_auxz00_8677;
BgL_auxz00_8677 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(33208L), BGl_string3325z00zz__srfi4z00, BGl_string3192z00zz__srfi4z00, BgL_tstartz00_1900); 
FAILURE(BgL_auxz00_8677,BFALSE,BFALSE);} 
BgL_auxz00_8673 = 
(long)CINT(BgL_tmpz00_8674); } 
if(
BGL_S32VECTORP(BgL_targetz00_1899))
{ /* Llib/srfi4.scm 838 */
BgL_auxz00_8666 = BgL_targetz00_1899
; }  else 
{ 
 obj_t BgL_auxz00_8669;
BgL_auxz00_8669 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(33208L), BGl_string3325z00zz__srfi4z00, BGl_string3174z00zz__srfi4z00, BgL_targetz00_1899); 
FAILURE(BgL_auxz00_8669,BFALSE,BFALSE);} 
return 
BGl_s32vectorzd2copyz12zc0zz__srfi4z00(BgL_auxz00_8666, BgL_auxz00_8673, BgL_auxz00_8682, BgL_sstartz00_1906, 
BINT(BgL_sendz00_1907));} } } } break;case 5L : 

{ /* Llib/srfi4.scm 838 */
 obj_t BgL_sstartz00_1908;
{ 
 obj_t BgL_auxz00_8691;
if(
VECTORP(BgL_opt1314z00_186))
{ /* Llib/srfi4.scm 838 */
BgL_auxz00_8691 = BgL_opt1314z00_186
; }  else 
{ 
 obj_t BgL_auxz00_8694;
BgL_auxz00_8694 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(33208L), BGl_string3325z00zz__srfi4z00, BGl_string3187z00zz__srfi4z00, BgL_opt1314z00_186); 
FAILURE(BgL_auxz00_8694,BFALSE,BFALSE);} 
BgL_sstartz00_1908 = 
VECTOR_REF(BgL_auxz00_8691,3L); } 
{ /* Llib/srfi4.scm 838 */
 obj_t BgL_sendz00_1909;
{ 
 obj_t BgL_auxz00_8699;
if(
VECTORP(BgL_opt1314z00_186))
{ /* Llib/srfi4.scm 838 */
BgL_auxz00_8699 = BgL_opt1314z00_186
; }  else 
{ 
 obj_t BgL_auxz00_8702;
BgL_auxz00_8702 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(33208L), BGl_string3325z00zz__srfi4z00, BGl_string3187z00zz__srfi4z00, BgL_opt1314z00_186); 
FAILURE(BgL_auxz00_8702,BFALSE,BFALSE);} 
BgL_sendz00_1909 = 
VECTOR_REF(BgL_auxz00_8699,4L); } 
{ /* Llib/srfi4.scm 838 */

{ /* Llib/srfi4.scm 838 */
 obj_t BgL_auxz00_8723; long BgL_auxz00_8714; obj_t BgL_auxz00_8707;
if(
BGL_S32VECTORP(BgL_sourcez00_1901))
{ /* Llib/srfi4.scm 838 */
BgL_auxz00_8723 = BgL_sourcez00_1901
; }  else 
{ 
 obj_t BgL_auxz00_8726;
BgL_auxz00_8726 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(33208L), BGl_string3325z00zz__srfi4z00, BGl_string3174z00zz__srfi4z00, BgL_sourcez00_1901); 
FAILURE(BgL_auxz00_8726,BFALSE,BFALSE);} 
{ /* Llib/srfi4.scm 838 */
 obj_t BgL_tmpz00_8715;
if(
INTEGERP(BgL_tstartz00_1900))
{ /* Llib/srfi4.scm 838 */
BgL_tmpz00_8715 = BgL_tstartz00_1900
; }  else 
{ 
 obj_t BgL_auxz00_8718;
BgL_auxz00_8718 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(33208L), BGl_string3325z00zz__srfi4z00, BGl_string3192z00zz__srfi4z00, BgL_tstartz00_1900); 
FAILURE(BgL_auxz00_8718,BFALSE,BFALSE);} 
BgL_auxz00_8714 = 
(long)CINT(BgL_tmpz00_8715); } 
if(
BGL_S32VECTORP(BgL_targetz00_1899))
{ /* Llib/srfi4.scm 838 */
BgL_auxz00_8707 = BgL_targetz00_1899
; }  else 
{ 
 obj_t BgL_auxz00_8710;
BgL_auxz00_8710 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(33208L), BGl_string3325z00zz__srfi4z00, BGl_string3174z00zz__srfi4z00, BgL_targetz00_1899); 
FAILURE(BgL_auxz00_8710,BFALSE,BFALSE);} 
return 
BGl_s32vectorzd2copyz12zc0zz__srfi4z00(BgL_auxz00_8707, BgL_auxz00_8714, BgL_auxz00_8723, BgL_sstartz00_1908, BgL_sendz00_1909);} } } } break;
default: 
{ /* Llib/srfi4.scm 838 */
 long BgL_arg1666z00_1910;
{ 
 obj_t BgL_auxz00_8731;
if(
VECTORP(BgL_opt1314z00_186))
{ /* Llib/srfi4.scm 838 */
BgL_auxz00_8731 = BgL_opt1314z00_186
; }  else 
{ 
 obj_t BgL_auxz00_8734;
BgL_auxz00_8734 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(33208L), BGl_string3326z00zz__srfi4z00, BGl_string3187z00zz__srfi4z00, BgL_opt1314z00_186); 
FAILURE(BgL_auxz00_8734,BFALSE,BFALSE);} 
BgL_arg1666z00_1910 = 
VECTOR_LENGTH(BgL_auxz00_8731); } 
return 
BGl_errorz00zz__errorz00(BGl_symbol3327z00zz__srfi4z00, BGl_string3308z00zz__srfi4z00, 
BINT(BgL_arg1666z00_1910));} } } } } } 

}



/* 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 */
if(
(BgL_tstartz00_182<0L))
{ /* Llib/srfi4.scm 838 */
BGl_errorz00zz__errorz00(BGl_string3328z00zz__srfi4z00, BGl_string3309z00zz__srfi4z00, 
BINT(BgL_tstartz00_182)); }  else 
{ /* Llib/srfi4.scm 838 */
 bool_t BgL_test4122z00_8746;
{ /* Llib/srfi4.scm 838 */
 long BgL_n1z00_2760;
{ /* Llib/srfi4.scm 838 */
 obj_t BgL_tmpz00_8747;
if(
INTEGERP(BgL_sstartz00_184))
{ /* Llib/srfi4.scm 838 */
BgL_tmpz00_8747 = BgL_sstartz00_184
; }  else 
{ 
 obj_t BgL_auxz00_8750;
BgL_auxz00_8750 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(33208L), BGl_string3328z00zz__srfi4z00, BGl_string3192z00zz__srfi4z00, BgL_sstartz00_184); 
FAILURE(BgL_auxz00_8750,BFALSE,BFALSE);} 
BgL_n1z00_2760 = 
(long)CINT(BgL_tmpz00_8747); } 
BgL_test4122z00_8746 = 
(BgL_n1z00_2760<0L); } 
if(BgL_test4122z00_8746)
{ /* Llib/srfi4.scm 838 */
BGl_errorz00zz__errorz00(BGl_string3328z00zz__srfi4z00, BGl_string3310z00zz__srfi4z00, BgL_sstartz00_184); }  else 
{ /* Llib/srfi4.scm 838 */
 bool_t BgL_test4124z00_8757;
{ /* Llib/srfi4.scm 838 */
 long BgL_arg1683z00_1924;
BgL_arg1683z00_1924 = 
BGL_HVECTOR_LENGTH(BgL_sourcez00_183); 
{ /* Llib/srfi4.scm 838 */
 long BgL_n1z00_2762;
{ /* Llib/srfi4.scm 838 */
 obj_t BgL_tmpz00_8759;
if(
INTEGERP(BgL_sendz00_185))
{ /* Llib/srfi4.scm 838 */
BgL_tmpz00_8759 = BgL_sendz00_185
; }  else 
{ 
 obj_t BgL_auxz00_8762;
BgL_auxz00_8762 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(33208L), BGl_string3328z00zz__srfi4z00, BGl_string3192z00zz__srfi4z00, BgL_sendz00_185); 
FAILURE(BgL_auxz00_8762,BFALSE,BFALSE);} 
BgL_n1z00_2762 = 
(long)CINT(BgL_tmpz00_8759); } 
BgL_test4124z00_8757 = 
(BgL_n1z00_2762>BgL_arg1683z00_1924); } } 
if(BgL_test4124z00_8757)
{ /* Llib/srfi4.scm 838 */
BGl_errorz00zz__errorz00(BGl_string3328z00zz__srfi4z00, BGl_string3311z00zz__srfi4z00, BgL_sendz00_185); }  else 
{ /* Llib/srfi4.scm 838 */
 bool_t BgL_test4126z00_8769;
{ /* Llib/srfi4.scm 838 */
 long BgL_n1z00_2764; long BgL_n2z00_2765;
{ /* Llib/srfi4.scm 838 */
 obj_t BgL_tmpz00_8770;
if(
INTEGERP(BgL_sendz00_185))
{ /* Llib/srfi4.scm 838 */
BgL_tmpz00_8770 = BgL_sendz00_185
; }  else 
{ 
 obj_t BgL_auxz00_8773;
BgL_auxz00_8773 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(33208L), BGl_string3328z00zz__srfi4z00, BGl_string3192z00zz__srfi4z00, BgL_sendz00_185); 
FAILURE(BgL_auxz00_8773,BFALSE,BFALSE);} 
BgL_n1z00_2764 = 
(long)CINT(BgL_tmpz00_8770); } 
{ /* Llib/srfi4.scm 838 */
 obj_t BgL_tmpz00_8778;
if(
INTEGERP(BgL_sstartz00_184))
{ /* Llib/srfi4.scm 838 */
BgL_tmpz00_8778 = BgL_sstartz00_184
; }  else 
{ 
 obj_t BgL_auxz00_8781;
BgL_auxz00_8781 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(33208L), BGl_string3328z00zz__srfi4z00, BGl_string3192z00zz__srfi4z00, BgL_sstartz00_184); 
FAILURE(BgL_auxz00_8781,BFALSE,BFALSE);} 
BgL_n2z00_2765 = 
(long)CINT(BgL_tmpz00_8778); } 
BgL_test4126z00_8769 = 
(BgL_n1z00_2764<BgL_n2z00_2765); } 
if(BgL_test4126z00_8769)
{ /* Llib/srfi4.scm 838 */
BGl_errorz00zz__errorz00(BGl_string3328z00zz__srfi4z00, BGl_string3311z00zz__srfi4z00, BgL_sendz00_185); }  else 
{ /* Llib/srfi4.scm 838 */
 bool_t BgL_test4129z00_8788;
{ /* Llib/srfi4.scm 838 */
 long BgL_a1218z00_1921;
{ /* Llib/srfi4.scm 838 */
 long BgL_za71za7_2766; long BgL_za72za7_2767;
{ /* Llib/srfi4.scm 838 */
 obj_t BgL_tmpz00_8789;
if(
INTEGERP(BgL_sendz00_185))
{ /* Llib/srfi4.scm 838 */
BgL_tmpz00_8789 = BgL_sendz00_185
; }  else 
{ 
 obj_t BgL_auxz00_8792;
BgL_auxz00_8792 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(33208L), BGl_string3328z00zz__srfi4z00, BGl_string3192z00zz__srfi4z00, BgL_sendz00_185); 
FAILURE(BgL_auxz00_8792,BFALSE,BFALSE);} 
BgL_za71za7_2766 = 
(long)CINT(BgL_tmpz00_8789); } 
{ /* Llib/srfi4.scm 838 */
 obj_t BgL_tmpz00_8797;
if(
INTEGERP(BgL_sstartz00_184))
{ /* Llib/srfi4.scm 838 */
BgL_tmpz00_8797 = BgL_sstartz00_184
; }  else 
{ 
 obj_t BgL_auxz00_8800;
BgL_auxz00_8800 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(33208L), BGl_string3328z00zz__srfi4z00, BGl_string3192z00zz__srfi4z00, BgL_sstartz00_184); 
FAILURE(BgL_auxz00_8800,BFALSE,BFALSE);} 
BgL_za72za7_2767 = 
(long)CINT(BgL_tmpz00_8797); } 
BgL_a1218z00_1921 = 
(BgL_za71za7_2766-BgL_za72za7_2767); } 
{ /* Llib/srfi4.scm 838 */
 long BgL_b1219z00_1922;
BgL_b1219z00_1922 = 
BGL_HVECTOR_LENGTH(BgL_targetz00_181); 
{ /* Llib/srfi4.scm 838 */

BgL_test4129z00_8788 = 
(BgL_a1218z00_1921>BgL_b1219z00_1922); } } } 
if(BgL_test4129z00_8788)
{ /* Llib/srfi4.scm 838 */
 long BgL_arg1681z00_1920;
{ /* Llib/srfi4.scm 838 */
 long BgL_za71za7_2771; long BgL_za72za7_2772;
{ /* Llib/srfi4.scm 838 */
 obj_t BgL_tmpz00_8808;
if(
INTEGERP(BgL_sendz00_185))
{ /* Llib/srfi4.scm 838 */
BgL_tmpz00_8808 = BgL_sendz00_185
; }  else 
{ 
 obj_t BgL_auxz00_8811;
BgL_auxz00_8811 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(33208L), BGl_string3328z00zz__srfi4z00, BGl_string3192z00zz__srfi4z00, BgL_sendz00_185); 
FAILURE(BgL_auxz00_8811,BFALSE,BFALSE);} 
BgL_za71za7_2771 = 
(long)CINT(BgL_tmpz00_8808); } 
{ /* Llib/srfi4.scm 838 */
 obj_t BgL_tmpz00_8816;
if(
INTEGERP(BgL_sstartz00_184))
{ /* Llib/srfi4.scm 838 */
BgL_tmpz00_8816 = BgL_sstartz00_184
; }  else 
{ 
 obj_t BgL_auxz00_8819;
BgL_auxz00_8819 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(33208L), BGl_string3328z00zz__srfi4z00, BGl_string3192z00zz__srfi4z00, BgL_sstartz00_184); 
FAILURE(BgL_auxz00_8819,BFALSE,BFALSE);} 
BgL_za72za7_2772 = 
(long)CINT(BgL_tmpz00_8816); } 
BgL_arg1681z00_1920 = 
(BgL_za71za7_2771-BgL_za72za7_2772); } 
BGl_errorz00zz__errorz00(BGl_string3328z00zz__srfi4z00, BGl_string3312z00zz__srfi4z00, 
BINT(BgL_arg1681z00_1920)); }  else 
{ /* Llib/srfi4.scm 838 */BFALSE; } } } } } 
{ /* Llib/srfi4.scm 838 */
 long BgL_auxz00_8836; long BgL_tmpz00_8827;
{ /* Llib/srfi4.scm 838 */
 obj_t BgL_tmpz00_8837;
if(
INTEGERP(BgL_sendz00_185))
{ /* Llib/srfi4.scm 838 */
BgL_tmpz00_8837 = BgL_sendz00_185
; }  else 
{ 
 obj_t BgL_auxz00_8840;
BgL_auxz00_8840 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(33208L), BGl_string3328z00zz__srfi4z00, BGl_string3192z00zz__srfi4z00, BgL_sendz00_185); 
FAILURE(BgL_auxz00_8840,BFALSE,BFALSE);} 
BgL_auxz00_8836 = 
(long)CINT(BgL_tmpz00_8837); } 
{ /* Llib/srfi4.scm 838 */
 obj_t BgL_tmpz00_8828;
if(
INTEGERP(BgL_sstartz00_184))
{ /* Llib/srfi4.scm 838 */
BgL_tmpz00_8828 = BgL_sstartz00_184
; }  else 
{ 
 obj_t BgL_auxz00_8831;
BgL_auxz00_8831 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(33208L), BGl_string3328z00zz__srfi4z00, BGl_string3192z00zz__srfi4z00, BgL_sstartz00_184); 
FAILURE(BgL_auxz00_8831,BFALSE,BFALSE);} 
BgL_tmpz00_8827 = 
(long)CINT(BgL_tmpz00_8828); } 
BGL_SU32VECTOR_COPY(BgL_targetz00_181, BgL_tstartz00_182, BgL_sourcez00_183, BgL_tmpz00_8827, BgL_auxz00_8836); } 
return BUNSPEC;} 

}



/* _u32vector-copy! */
obj_t BGl__u32vectorzd2copyz12zc0zz__srfi4z00(obj_t BgL_env1319z00_194, obj_t BgL_opt1318z00_193)
{
{ /* Llib/srfi4.scm 838 */
{ /* Llib/srfi4.scm 838 */
 obj_t BgL_targetz00_1925; obj_t BgL_tstartz00_1926; obj_t BgL_sourcez00_1927;
{ 
 obj_t BgL_auxz00_8846;
if(
VECTORP(BgL_opt1318z00_193))
{ /* Llib/srfi4.scm 838 */
BgL_auxz00_8846 = BgL_opt1318z00_193
; }  else 
{ 
 obj_t BgL_auxz00_8849;
BgL_auxz00_8849 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(33208L), BGl_string3329z00zz__srfi4z00, BGl_string3187z00zz__srfi4z00, BgL_opt1318z00_193); 
FAILURE(BgL_auxz00_8849,BFALSE,BFALSE);} 
BgL_targetz00_1925 = 
VECTOR_REF(BgL_auxz00_8846,0L); } 
{ 
 obj_t BgL_auxz00_8854;
if(
VECTORP(BgL_opt1318z00_193))
{ /* Llib/srfi4.scm 838 */
BgL_auxz00_8854 = BgL_opt1318z00_193
; }  else 
{ 
 obj_t BgL_auxz00_8857;
BgL_auxz00_8857 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(33208L), BGl_string3329z00zz__srfi4z00, BGl_string3187z00zz__srfi4z00, BgL_opt1318z00_193); 
FAILURE(BgL_auxz00_8857,BFALSE,BFALSE);} 
BgL_tstartz00_1926 = 
VECTOR_REF(BgL_auxz00_8854,1L); } 
{ 
 obj_t BgL_auxz00_8862;
if(
VECTORP(BgL_opt1318z00_193))
{ /* Llib/srfi4.scm 838 */
BgL_auxz00_8862 = BgL_opt1318z00_193
; }  else 
{ 
 obj_t BgL_auxz00_8865;
BgL_auxz00_8865 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(33208L), BGl_string3329z00zz__srfi4z00, BGl_string3187z00zz__srfi4z00, BgL_opt1318z00_193); 
FAILURE(BgL_auxz00_8865,BFALSE,BFALSE);} 
BgL_sourcez00_1927 = 
VECTOR_REF(BgL_auxz00_8862,2L); } 
{ 

{ /* Llib/srfi4.scm 838 */
 long BgL_aux1321z00_1929;
{ 
 obj_t BgL_auxz00_8870;
if(
VECTORP(BgL_opt1318z00_193))
{ /* Llib/srfi4.scm 838 */
BgL_auxz00_8870 = BgL_opt1318z00_193
; }  else 
{ 
 obj_t BgL_auxz00_8873;
BgL_auxz00_8873 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(33208L), BGl_string3329z00zz__srfi4z00, BGl_string3187z00zz__srfi4z00, BgL_opt1318z00_193); 
FAILURE(BgL_auxz00_8873,BFALSE,BFALSE);} 
BgL_aux1321z00_1929 = 
VECTOR_LENGTH(BgL_auxz00_8870); } 
switch( BgL_aux1321z00_1929) { case 3L : 

{ /* Llib/srfi4.scm 838 */
 long BgL_sendz00_1931;
{ /* Llib/srfi4.scm 838 */
 obj_t BgL_xz00_2773;
if(
BGL_U32VECTORP(BgL_sourcez00_1927))
{ /* Llib/srfi4.scm 838 */
BgL_xz00_2773 = BgL_sourcez00_1927; }  else 
{ 
 obj_t BgL_auxz00_8880;
BgL_auxz00_8880 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(33208L), BGl_string3329z00zz__srfi4z00, BGl_string3176z00zz__srfi4z00, BgL_sourcez00_1927); 
FAILURE(BgL_auxz00_8880,BFALSE,BFALSE);} 
BgL_sendz00_1931 = 
BGL_HVECTOR_LENGTH(BgL_xz00_2773); } 
{ /* Llib/srfi4.scm 838 */

{ /* Llib/srfi4.scm 838 */
 obj_t BgL_auxz00_8901; long BgL_auxz00_8892; obj_t BgL_auxz00_8885;
if(
BGL_U32VECTORP(BgL_sourcez00_1927))
{ /* Llib/srfi4.scm 838 */
BgL_auxz00_8901 = BgL_sourcez00_1927
; }  else 
{ 
 obj_t BgL_auxz00_8904;
BgL_auxz00_8904 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(33208L), BGl_string3329z00zz__srfi4z00, BGl_string3176z00zz__srfi4z00, BgL_sourcez00_1927); 
FAILURE(BgL_auxz00_8904,BFALSE,BFALSE);} 
{ /* Llib/srfi4.scm 838 */
 obj_t BgL_tmpz00_8893;
if(
INTEGERP(BgL_tstartz00_1926))
{ /* Llib/srfi4.scm 838 */
BgL_tmpz00_8893 = BgL_tstartz00_1926
; }  else 
{ 
 obj_t BgL_auxz00_8896;
BgL_auxz00_8896 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(33208L), BGl_string3329z00zz__srfi4z00, BGl_string3192z00zz__srfi4z00, BgL_tstartz00_1926); 
FAILURE(BgL_auxz00_8896,BFALSE,BFALSE);} 
BgL_auxz00_8892 = 
(long)CINT(BgL_tmpz00_8893); } 
if(
BGL_U32VECTORP(BgL_targetz00_1925))
{ /* Llib/srfi4.scm 838 */
BgL_auxz00_8885 = BgL_targetz00_1925
; }  else 
{ 
 obj_t BgL_auxz00_8888;
BgL_auxz00_8888 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(33208L), BGl_string3329z00zz__srfi4z00, BGl_string3176z00zz__srfi4z00, BgL_targetz00_1925); 
FAILURE(BgL_auxz00_8888,BFALSE,BFALSE);} 
return 
BGl_u32vectorzd2copyz12zc0zz__srfi4z00(BgL_auxz00_8885, BgL_auxz00_8892, BgL_auxz00_8901, 
BINT(0L), 
BINT(BgL_sendz00_1931));} } } break;case 4L : 

{ /* Llib/srfi4.scm 838 */
 obj_t BgL_sstartz00_1932;
{ 
 obj_t BgL_auxz00_8911;
if(
VECTORP(BgL_opt1318z00_193))
{ /* Llib/srfi4.scm 838 */
BgL_auxz00_8911 = BgL_opt1318z00_193
; }  else 
{ 
 obj_t BgL_auxz00_8914;
BgL_auxz00_8914 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(33208L), BGl_string3329z00zz__srfi4z00, BGl_string3187z00zz__srfi4z00, BgL_opt1318z00_193); 
FAILURE(BgL_auxz00_8914,BFALSE,BFALSE);} 
BgL_sstartz00_1932 = 
VECTOR_REF(BgL_auxz00_8911,3L); } 
{ /* Llib/srfi4.scm 838 */
 long BgL_sendz00_1933;
{ /* Llib/srfi4.scm 838 */
 obj_t BgL_xz00_2774;
if(
BGL_U32VECTORP(BgL_sourcez00_1927))
{ /* Llib/srfi4.scm 838 */
BgL_xz00_2774 = BgL_sourcez00_1927; }  else 
{ 
 obj_t BgL_auxz00_8921;
BgL_auxz00_8921 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(33208L), BGl_string3329z00zz__srfi4z00, BGl_string3176z00zz__srfi4z00, BgL_sourcez00_1927); 
FAILURE(BgL_auxz00_8921,BFALSE,BFALSE);} 
BgL_sendz00_1933 = 
BGL_HVECTOR_LENGTH(BgL_xz00_2774); } 
{ /* Llib/srfi4.scm 838 */

{ /* Llib/srfi4.scm 838 */
 obj_t BgL_auxz00_8942; long BgL_auxz00_8933; obj_t BgL_auxz00_8926;
if(
BGL_U32VECTORP(BgL_sourcez00_1927))
{ /* Llib/srfi4.scm 838 */
BgL_auxz00_8942 = BgL_sourcez00_1927
; }  else 
{ 
 obj_t BgL_auxz00_8945;
BgL_auxz00_8945 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(33208L), BGl_string3329z00zz__srfi4z00, BGl_string3176z00zz__srfi4z00, BgL_sourcez00_1927); 
FAILURE(BgL_auxz00_8945,BFALSE,BFALSE);} 
{ /* Llib/srfi4.scm 838 */
 obj_t BgL_tmpz00_8934;
if(
INTEGERP(BgL_tstartz00_1926))
{ /* Llib/srfi4.scm 838 */
BgL_tmpz00_8934 = BgL_tstartz00_1926
; }  else 
{ 
 obj_t BgL_auxz00_8937;
BgL_auxz00_8937 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(33208L), BGl_string3329z00zz__srfi4z00, BGl_string3192z00zz__srfi4z00, BgL_tstartz00_1926); 
FAILURE(BgL_auxz00_8937,BFALSE,BFALSE);} 
BgL_auxz00_8933 = 
(long)CINT(BgL_tmpz00_8934); } 
if(
BGL_U32VECTORP(BgL_targetz00_1925))
{ /* Llib/srfi4.scm 838 */
BgL_auxz00_8926 = BgL_targetz00_1925
; }  else 
{ 
 obj_t BgL_auxz00_8929;
BgL_auxz00_8929 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(33208L), BGl_string3329z00zz__srfi4z00, BGl_string3176z00zz__srfi4z00, BgL_targetz00_1925); 
FAILURE(BgL_auxz00_8929,BFALSE,BFALSE);} 
return 
BGl_u32vectorzd2copyz12zc0zz__srfi4z00(BgL_auxz00_8926, BgL_auxz00_8933, BgL_auxz00_8942, BgL_sstartz00_1932, 
BINT(BgL_sendz00_1933));} } } } break;case 5L : 

{ /* Llib/srfi4.scm 838 */
 obj_t BgL_sstartz00_1934;
{ 
 obj_t BgL_auxz00_8951;
if(
VECTORP(BgL_opt1318z00_193))
{ /* Llib/srfi4.scm 838 */
BgL_auxz00_8951 = BgL_opt1318z00_193
; }  else 
{ 
 obj_t BgL_auxz00_8954;
BgL_auxz00_8954 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(33208L), BGl_string3329z00zz__srfi4z00, BGl_string3187z00zz__srfi4z00, BgL_opt1318z00_193); 
FAILURE(BgL_auxz00_8954,BFALSE,BFALSE);} 
BgL_sstartz00_1934 = 
VECTOR_REF(BgL_auxz00_8951,3L); } 
{ /* Llib/srfi4.scm 838 */
 obj_t BgL_sendz00_1935;
{ 
 obj_t BgL_auxz00_8959;
if(
VECTORP(BgL_opt1318z00_193))
{ /* Llib/srfi4.scm 838 */
BgL_auxz00_8959 = BgL_opt1318z00_193
; }  else 
{ 
 obj_t BgL_auxz00_8962;
BgL_auxz00_8962 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(33208L), BGl_string3329z00zz__srfi4z00, BGl_string3187z00zz__srfi4z00, BgL_opt1318z00_193); 
FAILURE(BgL_auxz00_8962,BFALSE,BFALSE);} 
BgL_sendz00_1935 = 
VECTOR_REF(BgL_auxz00_8959,4L); } 
{ /* Llib/srfi4.scm 838 */

{ /* Llib/srfi4.scm 838 */
 obj_t BgL_auxz00_8983; long BgL_auxz00_8974; obj_t BgL_auxz00_8967;
if(
BGL_U32VECTORP(BgL_sourcez00_1927))
{ /* Llib/srfi4.scm 838 */
BgL_auxz00_8983 = BgL_sourcez00_1927
; }  else 
{ 
 obj_t BgL_auxz00_8986;
BgL_auxz00_8986 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(33208L), BGl_string3329z00zz__srfi4z00, BGl_string3176z00zz__srfi4z00, BgL_sourcez00_1927); 
FAILURE(BgL_auxz00_8986,BFALSE,BFALSE);} 
{ /* Llib/srfi4.scm 838 */
 obj_t BgL_tmpz00_8975;
if(
INTEGERP(BgL_tstartz00_1926))
{ /* Llib/srfi4.scm 838 */
BgL_tmpz00_8975 = BgL_tstartz00_1926
; }  else 
{ 
 obj_t BgL_auxz00_8978;
BgL_auxz00_8978 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(33208L), BGl_string3329z00zz__srfi4z00, BGl_string3192z00zz__srfi4z00, BgL_tstartz00_1926); 
FAILURE(BgL_auxz00_8978,BFALSE,BFALSE);} 
BgL_auxz00_8974 = 
(long)CINT(BgL_tmpz00_8975); } 
if(
BGL_U32VECTORP(BgL_targetz00_1925))
{ /* Llib/srfi4.scm 838 */
BgL_auxz00_8967 = BgL_targetz00_1925
; }  else 
{ 
 obj_t BgL_auxz00_8970;
BgL_auxz00_8970 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(33208L), BGl_string3329z00zz__srfi4z00, BGl_string3176z00zz__srfi4z00, BgL_targetz00_1925); 
FAILURE(BgL_auxz00_8970,BFALSE,BFALSE);} 
return 
BGl_u32vectorzd2copyz12zc0zz__srfi4z00(BgL_auxz00_8967, BgL_auxz00_8974, BgL_auxz00_8983, BgL_sstartz00_1934, BgL_sendz00_1935);} } } } break;
default: 
{ /* Llib/srfi4.scm 838 */
 long BgL_arg1687z00_1936;
{ 
 obj_t BgL_auxz00_8991;
if(
VECTORP(BgL_opt1318z00_193))
{ /* Llib/srfi4.scm 838 */
BgL_auxz00_8991 = BgL_opt1318z00_193
; }  else 
{ 
 obj_t BgL_auxz00_8994;
BgL_auxz00_8994 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(33208L), BGl_string3330z00zz__srfi4z00, BGl_string3187z00zz__srfi4z00, BgL_opt1318z00_193); 
FAILURE(BgL_auxz00_8994,BFALSE,BFALSE);} 
BgL_arg1687z00_1936 = 
VECTOR_LENGTH(BgL_auxz00_8991); } 
return 
BGl_errorz00zz__errorz00(BGl_symbol3331z00zz__srfi4z00, BGl_string3308z00zz__srfi4z00, 
BINT(BgL_arg1687z00_1936));} } } } } } 

}



/* 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 */
if(
(BgL_tstartz00_189<0L))
{ /* Llib/srfi4.scm 838 */
BGl_errorz00zz__errorz00(BGl_string3332z00zz__srfi4z00, BGl_string3309z00zz__srfi4z00, 
BINT(BgL_tstartz00_189)); }  else 
{ /* Llib/srfi4.scm 838 */
 bool_t BgL_test4156z00_9006;
{ /* Llib/srfi4.scm 838 */
 long BgL_n1z00_2776;
{ /* Llib/srfi4.scm 838 */
 obj_t BgL_tmpz00_9007;
if(
INTEGERP(BgL_sstartz00_191))
{ /* Llib/srfi4.scm 838 */
BgL_tmpz00_9007 = BgL_sstartz00_191
; }  else 
{ 
 obj_t BgL_auxz00_9010;
BgL_auxz00_9010 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(33208L), BGl_string3332z00zz__srfi4z00, BGl_string3192z00zz__srfi4z00, BgL_sstartz00_191); 
FAILURE(BgL_auxz00_9010,BFALSE,BFALSE);} 
BgL_n1z00_2776 = 
(long)CINT(BgL_tmpz00_9007); } 
BgL_test4156z00_9006 = 
(BgL_n1z00_2776<0L); } 
if(BgL_test4156z00_9006)
{ /* Llib/srfi4.scm 838 */
BGl_errorz00zz__errorz00(BGl_string3332z00zz__srfi4z00, BGl_string3310z00zz__srfi4z00, BgL_sstartz00_191); }  else 
{ /* Llib/srfi4.scm 838 */
 bool_t BgL_test4158z00_9017;
{ /* Llib/srfi4.scm 838 */
 long BgL_arg1698z00_1950;
BgL_arg1698z00_1950 = 
BGL_HVECTOR_LENGTH(BgL_sourcez00_190); 
{ /* Llib/srfi4.scm 838 */
 long BgL_n1z00_2778;
{ /* Llib/srfi4.scm 838 */
 obj_t BgL_tmpz00_9019;
if(
INTEGERP(BgL_sendz00_192))
{ /* Llib/srfi4.scm 838 */
BgL_tmpz00_9019 = BgL_sendz00_192
; }  else 
{ 
 obj_t BgL_auxz00_9022;
BgL_auxz00_9022 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(33208L), BGl_string3332z00zz__srfi4z00, BGl_string3192z00zz__srfi4z00, BgL_sendz00_192); 
FAILURE(BgL_auxz00_9022,BFALSE,BFALSE);} 
BgL_n1z00_2778 = 
(long)CINT(BgL_tmpz00_9019); } 
BgL_test4158z00_9017 = 
(BgL_n1z00_2778>BgL_arg1698z00_1950); } } 
if(BgL_test4158z00_9017)
{ /* Llib/srfi4.scm 838 */
BGl_errorz00zz__errorz00(BGl_string3332z00zz__srfi4z00, BGl_string3311z00zz__srfi4z00, BgL_sendz00_192); }  else 
{ /* Llib/srfi4.scm 838 */
 bool_t BgL_test4160z00_9029;
{ /* Llib/srfi4.scm 838 */
 long BgL_n1z00_2780; long BgL_n2z00_2781;
{ /* Llib/srfi4.scm 838 */
 obj_t BgL_tmpz00_9030;
if(
INTEGERP(BgL_sendz00_192))
{ /* Llib/srfi4.scm 838 */
BgL_tmpz00_9030 = BgL_sendz00_192
; }  else 
{ 
 obj_t BgL_auxz00_9033;
BgL_auxz00_9033 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(33208L), BGl_string3332z00zz__srfi4z00, BGl_string3192z00zz__srfi4z00, BgL_sendz00_192); 
FAILURE(BgL_auxz00_9033,BFALSE,BFALSE);} 
BgL_n1z00_2780 = 
(long)CINT(BgL_tmpz00_9030); } 
{ /* Llib/srfi4.scm 838 */
 obj_t BgL_tmpz00_9038;
if(
INTEGERP(BgL_sstartz00_191))
{ /* Llib/srfi4.scm 838 */
BgL_tmpz00_9038 = BgL_sstartz00_191
; }  else 
{ 
 obj_t BgL_auxz00_9041;
BgL_auxz00_9041 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(33208L), BGl_string3332z00zz__srfi4z00, BGl_string3192z00zz__srfi4z00, BgL_sstartz00_191); 
FAILURE(BgL_auxz00_9041,BFALSE,BFALSE);} 
BgL_n2z00_2781 = 
(long)CINT(BgL_tmpz00_9038); } 
BgL_test4160z00_9029 = 
(BgL_n1z00_2780<BgL_n2z00_2781); } 
if(BgL_test4160z00_9029)
{ /* Llib/srfi4.scm 838 */
BGl_errorz00zz__errorz00(BGl_string3332z00zz__srfi4z00, BGl_string3311z00zz__srfi4z00, BgL_sendz00_192); }  else 
{ /* Llib/srfi4.scm 838 */
 bool_t BgL_test4163z00_9048;
{ /* Llib/srfi4.scm 838 */
 long BgL_a1221z00_1947;
{ /* Llib/srfi4.scm 838 */
 long BgL_za71za7_2782; long BgL_za72za7_2783;
{ /* Llib/srfi4.scm 838 */
 obj_t BgL_tmpz00_9049;
if(
INTEGERP(BgL_sendz00_192))
{ /* Llib/srfi4.scm 838 */
BgL_tmpz00_9049 = BgL_sendz00_192
; }  else 
{ 
 obj_t BgL_auxz00_9052;
BgL_auxz00_9052 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(33208L), BGl_string3332z00zz__srfi4z00, BGl_string3192z00zz__srfi4z00, BgL_sendz00_192); 
FAILURE(BgL_auxz00_9052,BFALSE,BFALSE);} 
BgL_za71za7_2782 = 
(long)CINT(BgL_tmpz00_9049); } 
{ /* Llib/srfi4.scm 838 */
 obj_t BgL_tmpz00_9057;
if(
INTEGERP(BgL_sstartz00_191))
{ /* Llib/srfi4.scm 838 */
BgL_tmpz00_9057 = BgL_sstartz00_191
; }  else 
{ 
 obj_t BgL_auxz00_9060;
BgL_auxz00_9060 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(33208L), BGl_string3332z00zz__srfi4z00, BGl_string3192z00zz__srfi4z00, BgL_sstartz00_191); 
FAILURE(BgL_auxz00_9060,BFALSE,BFALSE);} 
BgL_za72za7_2783 = 
(long)CINT(BgL_tmpz00_9057); } 
BgL_a1221z00_1947 = 
(BgL_za71za7_2782-BgL_za72za7_2783); } 
{ /* Llib/srfi4.scm 838 */
 long BgL_b1222z00_1948;
BgL_b1222z00_1948 = 
BGL_HVECTOR_LENGTH(BgL_targetz00_188); 
{ /* Llib/srfi4.scm 838 */

BgL_test4163z00_9048 = 
(BgL_a1221z00_1947>BgL_b1222z00_1948); } } } 
if(BgL_test4163z00_9048)
{ /* Llib/srfi4.scm 838 */
 long BgL_arg1697z00_1946;
{ /* Llib/srfi4.scm 838 */
 long BgL_za71za7_2787; long BgL_za72za7_2788;
{ /* Llib/srfi4.scm 838 */
 obj_t BgL_tmpz00_9068;
if(
INTEGERP(BgL_sendz00_192))
{ /* Llib/srfi4.scm 838 */
BgL_tmpz00_9068 = BgL_sendz00_192
; }  else 
{ 
 obj_t BgL_auxz00_9071;
BgL_auxz00_9071 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(33208L), BGl_string3332z00zz__srfi4z00, BGl_string3192z00zz__srfi4z00, BgL_sendz00_192); 
FAILURE(BgL_auxz00_9071,BFALSE,BFALSE);} 
BgL_za71za7_2787 = 
(long)CINT(BgL_tmpz00_9068); } 
{ /* Llib/srfi4.scm 838 */
 obj_t BgL_tmpz00_9076;
if(
INTEGERP(BgL_sstartz00_191))
{ /* Llib/srfi4.scm 838 */
BgL_tmpz00_9076 = BgL_sstartz00_191
; }  else 
{ 
 obj_t BgL_auxz00_9079;
BgL_auxz00_9079 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(33208L), BGl_string3332z00zz__srfi4z00, BGl_string3192z00zz__srfi4z00, BgL_sstartz00_191); 
FAILURE(BgL_auxz00_9079,BFALSE,BFALSE);} 
BgL_za72za7_2788 = 
(long)CINT(BgL_tmpz00_9076); } 
BgL_arg1697z00_1946 = 
(BgL_za71za7_2787-BgL_za72za7_2788); } 
BGl_errorz00zz__errorz00(BGl_string3332z00zz__srfi4z00, BGl_string3312z00zz__srfi4z00, 
BINT(BgL_arg1697z00_1946)); }  else 
{ /* Llib/srfi4.scm 838 */BFALSE; } } } } } 
{ /* Llib/srfi4.scm 838 */
 long BgL_auxz00_9096; long BgL_tmpz00_9087;
{ /* Llib/srfi4.scm 838 */
 obj_t BgL_tmpz00_9097;
if(
INTEGERP(BgL_sendz00_192))
{ /* Llib/srfi4.scm 838 */
BgL_tmpz00_9097 = BgL_sendz00_192
; }  else 
{ 
 obj_t BgL_auxz00_9100;
BgL_auxz00_9100 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(33208L), BGl_string3332z00zz__srfi4z00, BGl_string3192z00zz__srfi4z00, BgL_sendz00_192); 
FAILURE(BgL_auxz00_9100,BFALSE,BFALSE);} 
BgL_auxz00_9096 = 
(long)CINT(BgL_tmpz00_9097); } 
{ /* Llib/srfi4.scm 838 */
 obj_t BgL_tmpz00_9088;
if(
INTEGERP(BgL_sstartz00_191))
{ /* Llib/srfi4.scm 838 */
BgL_tmpz00_9088 = BgL_sstartz00_191
; }  else 
{ 
 obj_t BgL_auxz00_9091;
BgL_auxz00_9091 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(33208L), BGl_string3332z00zz__srfi4z00, BGl_string3192z00zz__srfi4z00, BgL_sstartz00_191); 
FAILURE(BgL_auxz00_9091,BFALSE,BFALSE);} 
BgL_tmpz00_9087 = 
(long)CINT(BgL_tmpz00_9088); } 
BGL_SU32VECTOR_COPY(BgL_targetz00_188, BgL_tstartz00_189, BgL_sourcez00_190, BgL_tmpz00_9087, BgL_auxz00_9096); } 
return BUNSPEC;} 

}



/* _s64vector-copy! */
obj_t BGl__s64vectorzd2copyz12zc0zz__srfi4z00(obj_t BgL_env1323z00_201, obj_t BgL_opt1322z00_200)
{
{ /* Llib/srfi4.scm 838 */
{ /* Llib/srfi4.scm 838 */
 obj_t BgL_targetz00_1951; obj_t BgL_tstartz00_1952; obj_t BgL_sourcez00_1953;
{ 
 obj_t BgL_auxz00_9106;
if(
VECTORP(BgL_opt1322z00_200))
{ /* Llib/srfi4.scm 838 */
BgL_auxz00_9106 = BgL_opt1322z00_200
; }  else 
{ 
 obj_t BgL_auxz00_9109;
BgL_auxz00_9109 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(33208L), BGl_string3333z00zz__srfi4z00, BGl_string3187z00zz__srfi4z00, BgL_opt1322z00_200); 
FAILURE(BgL_auxz00_9109,BFALSE,BFALSE);} 
BgL_targetz00_1951 = 
VECTOR_REF(BgL_auxz00_9106,0L); } 
{ 
 obj_t BgL_auxz00_9114;
if(
VECTORP(BgL_opt1322z00_200))
{ /* Llib/srfi4.scm 838 */
BgL_auxz00_9114 = BgL_opt1322z00_200
; }  else 
{ 
 obj_t BgL_auxz00_9117;
BgL_auxz00_9117 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(33208L), BGl_string3333z00zz__srfi4z00, BGl_string3187z00zz__srfi4z00, BgL_opt1322z00_200); 
FAILURE(BgL_auxz00_9117,BFALSE,BFALSE);} 
BgL_tstartz00_1952 = 
VECTOR_REF(BgL_auxz00_9114,1L); } 
{ 
 obj_t BgL_auxz00_9122;
if(
VECTORP(BgL_opt1322z00_200))
{ /* Llib/srfi4.scm 838 */
BgL_auxz00_9122 = BgL_opt1322z00_200
; }  else 
{ 
 obj_t BgL_auxz00_9125;
BgL_auxz00_9125 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(33208L), BGl_string3333z00zz__srfi4z00, BGl_string3187z00zz__srfi4z00, BgL_opt1322z00_200); 
FAILURE(BgL_auxz00_9125,BFALSE,BFALSE);} 
BgL_sourcez00_1953 = 
VECTOR_REF(BgL_auxz00_9122,2L); } 
{ 

{ /* Llib/srfi4.scm 838 */
 long BgL_aux1325z00_1955;
{ 
 obj_t BgL_auxz00_9130;
if(
VECTORP(BgL_opt1322z00_200))
{ /* Llib/srfi4.scm 838 */
BgL_auxz00_9130 = BgL_opt1322z00_200
; }  else 
{ 
 obj_t BgL_auxz00_9133;
BgL_auxz00_9133 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(33208L), BGl_string3333z00zz__srfi4z00, BGl_string3187z00zz__srfi4z00, BgL_opt1322z00_200); 
FAILURE(BgL_auxz00_9133,BFALSE,BFALSE);} 
BgL_aux1325z00_1955 = 
VECTOR_LENGTH(BgL_auxz00_9130); } 
switch( BgL_aux1325z00_1955) { case 3L : 

{ /* Llib/srfi4.scm 838 */
 long BgL_sendz00_1957;
{ /* Llib/srfi4.scm 838 */
 obj_t BgL_xz00_2789;
if(
BGL_S64VECTORP(BgL_sourcez00_1953))
{ /* Llib/srfi4.scm 838 */
BgL_xz00_2789 = BgL_sourcez00_1953; }  else 
{ 
 obj_t BgL_auxz00_9140;
BgL_auxz00_9140 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(33208L), BGl_string3333z00zz__srfi4z00, BGl_string3178z00zz__srfi4z00, BgL_sourcez00_1953); 
FAILURE(BgL_auxz00_9140,BFALSE,BFALSE);} 
BgL_sendz00_1957 = 
BGL_HVECTOR_LENGTH(BgL_xz00_2789); } 
{ /* Llib/srfi4.scm 838 */

{ /* Llib/srfi4.scm 838 */
 obj_t BgL_auxz00_9161; long BgL_auxz00_9152; obj_t BgL_auxz00_9145;
if(
BGL_S64VECTORP(BgL_sourcez00_1953))
{ /* Llib/srfi4.scm 838 */
BgL_auxz00_9161 = BgL_sourcez00_1953
; }  else 
{ 
 obj_t BgL_auxz00_9164;
BgL_auxz00_9164 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(33208L), BGl_string3333z00zz__srfi4z00, BGl_string3178z00zz__srfi4z00, BgL_sourcez00_1953); 
FAILURE(BgL_auxz00_9164,BFALSE,BFALSE);} 
{ /* Llib/srfi4.scm 838 */
 obj_t BgL_tmpz00_9153;
if(
INTEGERP(BgL_tstartz00_1952))
{ /* Llib/srfi4.scm 838 */
BgL_tmpz00_9153 = BgL_tstartz00_1952
; }  else 
{ 
 obj_t BgL_auxz00_9156;
BgL_auxz00_9156 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(33208L), BGl_string3333z00zz__srfi4z00, BGl_string3192z00zz__srfi4z00, BgL_tstartz00_1952); 
FAILURE(BgL_auxz00_9156,BFALSE,BFALSE);} 
BgL_auxz00_9152 = 
(long)CINT(BgL_tmpz00_9153); } 
if(
BGL_S64VECTORP(BgL_targetz00_1951))
{ /* Llib/srfi4.scm 838 */
BgL_auxz00_9145 = BgL_targetz00_1951
; }  else 
{ 
 obj_t BgL_auxz00_9148;
BgL_auxz00_9148 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(33208L), BGl_string3333z00zz__srfi4z00, BGl_string3178z00zz__srfi4z00, BgL_targetz00_1951); 
FAILURE(BgL_auxz00_9148,BFALSE,BFALSE);} 
return 
BGl_s64vectorzd2copyz12zc0zz__srfi4z00(BgL_auxz00_9145, BgL_auxz00_9152, BgL_auxz00_9161, 
BINT(0L), 
BINT(BgL_sendz00_1957));} } } break;case 4L : 

{ /* Llib/srfi4.scm 838 */
 obj_t BgL_sstartz00_1958;
{ 
 obj_t BgL_auxz00_9171;
if(
VECTORP(BgL_opt1322z00_200))
{ /* Llib/srfi4.scm 838 */
BgL_auxz00_9171 = BgL_opt1322z00_200
; }  else 
{ 
 obj_t BgL_auxz00_9174;
BgL_auxz00_9174 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(33208L), BGl_string3333z00zz__srfi4z00, BGl_string3187z00zz__srfi4z00, BgL_opt1322z00_200); 
FAILURE(BgL_auxz00_9174,BFALSE,BFALSE);} 
BgL_sstartz00_1958 = 
VECTOR_REF(BgL_auxz00_9171,3L); } 
{ /* Llib/srfi4.scm 838 */
 long BgL_sendz00_1959;
{ /* Llib/srfi4.scm 838 */
 obj_t BgL_xz00_2790;
if(
BGL_S64VECTORP(BgL_sourcez00_1953))
{ /* Llib/srfi4.scm 838 */
BgL_xz00_2790 = BgL_sourcez00_1953; }  else 
{ 
 obj_t BgL_auxz00_9181;
BgL_auxz00_9181 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(33208L), BGl_string3333z00zz__srfi4z00, BGl_string3178z00zz__srfi4z00, BgL_sourcez00_1953); 
FAILURE(BgL_auxz00_9181,BFALSE,BFALSE);} 
BgL_sendz00_1959 = 
BGL_HVECTOR_LENGTH(BgL_xz00_2790); } 
{ /* Llib/srfi4.scm 838 */

{ /* Llib/srfi4.scm 838 */
 obj_t BgL_auxz00_9202; long BgL_auxz00_9193; obj_t BgL_auxz00_9186;
if(
BGL_S64VECTORP(BgL_sourcez00_1953))
{ /* Llib/srfi4.scm 838 */
BgL_auxz00_9202 = BgL_sourcez00_1953
; }  else 
{ 
 obj_t BgL_auxz00_9205;
BgL_auxz00_9205 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(33208L), BGl_string3333z00zz__srfi4z00, BGl_string3178z00zz__srfi4z00, BgL_sourcez00_1953); 
FAILURE(BgL_auxz00_9205,BFALSE,BFALSE);} 
{ /* Llib/srfi4.scm 838 */
 obj_t BgL_tmpz00_9194;
if(
INTEGERP(BgL_tstartz00_1952))
{ /* Llib/srfi4.scm 838 */
BgL_tmpz00_9194 = BgL_tstartz00_1952
; }  else 
{ 
 obj_t BgL_auxz00_9197;
BgL_auxz00_9197 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(33208L), BGl_string3333z00zz__srfi4z00, BGl_string3192z00zz__srfi4z00, BgL_tstartz00_1952); 
FAILURE(BgL_auxz00_9197,BFALSE,BFALSE);} 
BgL_auxz00_9193 = 
(long)CINT(BgL_tmpz00_9194); } 
if(
BGL_S64VECTORP(BgL_targetz00_1951))
{ /* Llib/srfi4.scm 838 */
BgL_auxz00_9186 = BgL_targetz00_1951
; }  else 
{ 
 obj_t BgL_auxz00_9189;
BgL_auxz00_9189 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(33208L), BGl_string3333z00zz__srfi4z00, BGl_string3178z00zz__srfi4z00, BgL_targetz00_1951); 
FAILURE(BgL_auxz00_9189,BFALSE,BFALSE);} 
return 
BGl_s64vectorzd2copyz12zc0zz__srfi4z00(BgL_auxz00_9186, BgL_auxz00_9193, BgL_auxz00_9202, BgL_sstartz00_1958, 
BINT(BgL_sendz00_1959));} } } } break;case 5L : 

{ /* Llib/srfi4.scm 838 */
 obj_t BgL_sstartz00_1960;
{ 
 obj_t BgL_auxz00_9211;
if(
VECTORP(BgL_opt1322z00_200))
{ /* Llib/srfi4.scm 838 */
BgL_auxz00_9211 = BgL_opt1322z00_200
; }  else 
{ 
 obj_t BgL_auxz00_9214;
BgL_auxz00_9214 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(33208L), BGl_string3333z00zz__srfi4z00, BGl_string3187z00zz__srfi4z00, BgL_opt1322z00_200); 
FAILURE(BgL_auxz00_9214,BFALSE,BFALSE);} 
BgL_sstartz00_1960 = 
VECTOR_REF(BgL_auxz00_9211,3L); } 
{ /* Llib/srfi4.scm 838 */
 obj_t BgL_sendz00_1961;
{ 
 obj_t BgL_auxz00_9219;
if(
VECTORP(BgL_opt1322z00_200))
{ /* Llib/srfi4.scm 838 */
BgL_auxz00_9219 = BgL_opt1322z00_200
; }  else 
{ 
 obj_t BgL_auxz00_9222;
BgL_auxz00_9222 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(33208L), BGl_string3333z00zz__srfi4z00, BGl_string3187z00zz__srfi4z00, BgL_opt1322z00_200); 
FAILURE(BgL_auxz00_9222,BFALSE,BFALSE);} 
BgL_sendz00_1961 = 
VECTOR_REF(BgL_auxz00_9219,4L); } 
{ /* Llib/srfi4.scm 838 */

{ /* Llib/srfi4.scm 838 */
 obj_t BgL_auxz00_9243; long BgL_auxz00_9234; obj_t BgL_auxz00_9227;
if(
BGL_S64VECTORP(BgL_sourcez00_1953))
{ /* Llib/srfi4.scm 838 */
BgL_auxz00_9243 = BgL_sourcez00_1953
; }  else 
{ 
 obj_t BgL_auxz00_9246;
BgL_auxz00_9246 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(33208L), BGl_string3333z00zz__srfi4z00, BGl_string3178z00zz__srfi4z00, BgL_sourcez00_1953); 
FAILURE(BgL_auxz00_9246,BFALSE,BFALSE);} 
{ /* Llib/srfi4.scm 838 */
 obj_t BgL_tmpz00_9235;
if(
INTEGERP(BgL_tstartz00_1952))
{ /* Llib/srfi4.scm 838 */
BgL_tmpz00_9235 = BgL_tstartz00_1952
; }  else 
{ 
 obj_t BgL_auxz00_9238;
BgL_auxz00_9238 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(33208L), BGl_string3333z00zz__srfi4z00, BGl_string3192z00zz__srfi4z00, BgL_tstartz00_1952); 
FAILURE(BgL_auxz00_9238,BFALSE,BFALSE);} 
BgL_auxz00_9234 = 
(long)CINT(BgL_tmpz00_9235); } 
if(
BGL_S64VECTORP(BgL_targetz00_1951))
{ /* Llib/srfi4.scm 838 */
BgL_auxz00_9227 = BgL_targetz00_1951
; }  else 
{ 
 obj_t BgL_auxz00_9230;
BgL_auxz00_9230 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(33208L), BGl_string3333z00zz__srfi4z00, BGl_string3178z00zz__srfi4z00, BgL_targetz00_1951); 
FAILURE(BgL_auxz00_9230,BFALSE,BFALSE);} 
return 
BGl_s64vectorzd2copyz12zc0zz__srfi4z00(BgL_auxz00_9227, BgL_auxz00_9234, BgL_auxz00_9243, BgL_sstartz00_1960, BgL_sendz00_1961);} } } } break;
default: 
{ /* Llib/srfi4.scm 838 */
 long BgL_arg1702z00_1962;
{ 
 obj_t BgL_auxz00_9251;
if(
VECTORP(BgL_opt1322z00_200))
{ /* Llib/srfi4.scm 838 */
BgL_auxz00_9251 = BgL_opt1322z00_200
; }  else 
{ 
 obj_t BgL_auxz00_9254;
BgL_auxz00_9254 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(33208L), BGl_string3334z00zz__srfi4z00, BGl_string3187z00zz__srfi4z00, BgL_opt1322z00_200); 
FAILURE(BgL_auxz00_9254,BFALSE,BFALSE);} 
BgL_arg1702z00_1962 = 
VECTOR_LENGTH(BgL_auxz00_9251); } 
return 
BGl_errorz00zz__errorz00(BGl_symbol3335z00zz__srfi4z00, BGl_string3308z00zz__srfi4z00, 
BINT(BgL_arg1702z00_1962));} } } } } } 

}



/* 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 */
if(
(BgL_tstartz00_196<0L))
{ /* Llib/srfi4.scm 838 */
BGl_errorz00zz__errorz00(BGl_string3336z00zz__srfi4z00, BGl_string3309z00zz__srfi4z00, 
BINT(BgL_tstartz00_196)); }  else 
{ /* Llib/srfi4.scm 838 */
 bool_t BgL_test4190z00_9266;
{ /* Llib/srfi4.scm 838 */
 long BgL_n1z00_2792;
{ /* Llib/srfi4.scm 838 */
 obj_t BgL_tmpz00_9267;
if(
INTEGERP(BgL_sstartz00_198))
{ /* Llib/srfi4.scm 838 */
BgL_tmpz00_9267 = BgL_sstartz00_198
; }  else 
{ 
 obj_t BgL_auxz00_9270;
BgL_auxz00_9270 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(33208L), BGl_string3336z00zz__srfi4z00, BGl_string3192z00zz__srfi4z00, BgL_sstartz00_198); 
FAILURE(BgL_auxz00_9270,BFALSE,BFALSE);} 
BgL_n1z00_2792 = 
(long)CINT(BgL_tmpz00_9267); } 
BgL_test4190z00_9266 = 
(BgL_n1z00_2792<0L); } 
if(BgL_test4190z00_9266)
{ /* Llib/srfi4.scm 838 */
BGl_errorz00zz__errorz00(BGl_string3336z00zz__srfi4z00, BGl_string3310z00zz__srfi4z00, BgL_sstartz00_198); }  else 
{ /* Llib/srfi4.scm 838 */
 bool_t BgL_test4192z00_9277;
{ /* Llib/srfi4.scm 838 */
 long BgL_arg1711z00_1976;
BgL_arg1711z00_1976 = 
BGL_HVECTOR_LENGTH(BgL_sourcez00_197); 
{ /* Llib/srfi4.scm 838 */
 long BgL_n1z00_2794;
{ /* Llib/srfi4.scm 838 */
 obj_t BgL_tmpz00_9279;
if(
INTEGERP(BgL_sendz00_199))
{ /* Llib/srfi4.scm 838 */
BgL_tmpz00_9279 = BgL_sendz00_199
; }  else 
{ 
 obj_t BgL_auxz00_9282;
BgL_auxz00_9282 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(33208L), BGl_string3336z00zz__srfi4z00, BGl_string3192z00zz__srfi4z00, BgL_sendz00_199); 
FAILURE(BgL_auxz00_9282,BFALSE,BFALSE);} 
BgL_n1z00_2794 = 
(long)CINT(BgL_tmpz00_9279); } 
BgL_test4192z00_9277 = 
(BgL_n1z00_2794>BgL_arg1711z00_1976); } } 
if(BgL_test4192z00_9277)
{ /* Llib/srfi4.scm 838 */
BGl_errorz00zz__errorz00(BGl_string3336z00zz__srfi4z00, BGl_string3311z00zz__srfi4z00, BgL_sendz00_199); }  else 
{ /* Llib/srfi4.scm 838 */
 bool_t BgL_test4194z00_9289;
{ /* Llib/srfi4.scm 838 */
 long BgL_n1z00_2796; long BgL_n2z00_2797;
{ /* Llib/srfi4.scm 838 */
 obj_t BgL_tmpz00_9290;
if(
INTEGERP(BgL_sendz00_199))
{ /* Llib/srfi4.scm 838 */
BgL_tmpz00_9290 = BgL_sendz00_199
; }  else 
{ 
 obj_t BgL_auxz00_9293;
BgL_auxz00_9293 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(33208L), BGl_string3336z00zz__srfi4z00, BGl_string3192z00zz__srfi4z00, BgL_sendz00_199); 
FAILURE(BgL_auxz00_9293,BFALSE,BFALSE);} 
BgL_n1z00_2796 = 
(long)CINT(BgL_tmpz00_9290); } 
{ /* Llib/srfi4.scm 838 */
 obj_t BgL_tmpz00_9298;
if(
INTEGERP(BgL_sstartz00_198))
{ /* Llib/srfi4.scm 838 */
BgL_tmpz00_9298 = BgL_sstartz00_198
; }  else 
{ 
 obj_t BgL_auxz00_9301;
BgL_auxz00_9301 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(33208L), BGl_string3336z00zz__srfi4z00, BGl_string3192z00zz__srfi4z00, BgL_sstartz00_198); 
FAILURE(BgL_auxz00_9301,BFALSE,BFALSE);} 
BgL_n2z00_2797 = 
(long)CINT(BgL_tmpz00_9298); } 
BgL_test4194z00_9289 = 
(BgL_n1z00_2796<BgL_n2z00_2797); } 
if(BgL_test4194z00_9289)
{ /* Llib/srfi4.scm 838 */
BGl_errorz00zz__errorz00(BGl_string3336z00zz__srfi4z00, BGl_string3311z00zz__srfi4z00, BgL_sendz00_199); }  else 
{ /* Llib/srfi4.scm 838 */
 bool_t BgL_test4197z00_9308;
{ /* Llib/srfi4.scm 838 */
 long BgL_a1224z00_1973;
{ /* Llib/srfi4.scm 838 */
 long BgL_za71za7_2798; long BgL_za72za7_2799;
{ /* Llib/srfi4.scm 838 */
 obj_t BgL_tmpz00_9309;
if(
INTEGERP(BgL_sendz00_199))
{ /* Llib/srfi4.scm 838 */
BgL_tmpz00_9309 = BgL_sendz00_199
; }  else 
{ 
 obj_t BgL_auxz00_9312;
BgL_auxz00_9312 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(33208L), BGl_string3336z00zz__srfi4z00, BGl_string3192z00zz__srfi4z00, BgL_sendz00_199); 
FAILURE(BgL_auxz00_9312,BFALSE,BFALSE);} 
BgL_za71za7_2798 = 
(long)CINT(BgL_tmpz00_9309); } 
{ /* Llib/srfi4.scm 838 */
 obj_t BgL_tmpz00_9317;
if(
INTEGERP(BgL_sstartz00_198))
{ /* Llib/srfi4.scm 838 */
BgL_tmpz00_9317 = BgL_sstartz00_198
; }  else 
{ 
 obj_t BgL_auxz00_9320;
BgL_auxz00_9320 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(33208L), BGl_string3336z00zz__srfi4z00, BGl_string3192z00zz__srfi4z00, BgL_sstartz00_198); 
FAILURE(BgL_auxz00_9320,BFALSE,BFALSE);} 
BgL_za72za7_2799 = 
(long)CINT(BgL_tmpz00_9317); } 
BgL_a1224z00_1973 = 
(BgL_za71za7_2798-BgL_za72za7_2799); } 
{ /* Llib/srfi4.scm 838 */
 long BgL_b1225z00_1974;
BgL_b1225z00_1974 = 
BGL_HVECTOR_LENGTH(BgL_targetz00_195); 
{ /* Llib/srfi4.scm 838 */

BgL_test4197z00_9308 = 
(BgL_a1224z00_1973>BgL_b1225z00_1974); } } } 
if(BgL_test4197z00_9308)
{ /* Llib/srfi4.scm 838 */
 long BgL_arg1710z00_1972;
{ /* Llib/srfi4.scm 838 */
 long BgL_za71za7_2803; long BgL_za72za7_2804;
{ /* Llib/srfi4.scm 838 */
 obj_t BgL_tmpz00_9328;
if(
INTEGERP(BgL_sendz00_199))
{ /* Llib/srfi4.scm 838 */
BgL_tmpz00_9328 = BgL_sendz00_199
; }  else 
{ 
 obj_t BgL_auxz00_9331;
BgL_auxz00_9331 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(33208L), BGl_string3336z00zz__srfi4z00, BGl_string3192z00zz__srfi4z00, BgL_sendz00_199); 
FAILURE(BgL_auxz00_9331,BFALSE,BFALSE);} 
BgL_za71za7_2803 = 
(long)CINT(BgL_tmpz00_9328); } 
{ /* Llib/srfi4.scm 838 */
 obj_t BgL_tmpz00_9336;
if(
INTEGERP(BgL_sstartz00_198))
{ /* Llib/srfi4.scm 838 */
BgL_tmpz00_9336 = BgL_sstartz00_198
; }  else 
{ 
 obj_t BgL_auxz00_9339;
BgL_auxz00_9339 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(33208L), BGl_string3336z00zz__srfi4z00, BGl_string3192z00zz__srfi4z00, BgL_sstartz00_198); 
FAILURE(BgL_auxz00_9339,BFALSE,BFALSE);} 
BgL_za72za7_2804 = 
(long)CINT(BgL_tmpz00_9336); } 
BgL_arg1710z00_1972 = 
(BgL_za71za7_2803-BgL_za72za7_2804); } 
BGl_errorz00zz__errorz00(BGl_string3336z00zz__srfi4z00, BGl_string3312z00zz__srfi4z00, 
BINT(BgL_arg1710z00_1972)); }  else 
{ /* Llib/srfi4.scm 838 */BFALSE; } } } } } 
{ /* Llib/srfi4.scm 838 */
 long BgL_auxz00_9356; long BgL_tmpz00_9347;
{ /* Llib/srfi4.scm 838 */
 obj_t BgL_tmpz00_9357;
if(
INTEGERP(BgL_sendz00_199))
{ /* Llib/srfi4.scm 838 */
BgL_tmpz00_9357 = BgL_sendz00_199
; }  else 
{ 
 obj_t BgL_auxz00_9360;
BgL_auxz00_9360 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(33208L), BGl_string3336z00zz__srfi4z00, BGl_string3192z00zz__srfi4z00, BgL_sendz00_199); 
FAILURE(BgL_auxz00_9360,BFALSE,BFALSE);} 
BgL_auxz00_9356 = 
(long)CINT(BgL_tmpz00_9357); } 
{ /* Llib/srfi4.scm 838 */
 obj_t BgL_tmpz00_9348;
if(
INTEGERP(BgL_sstartz00_198))
{ /* Llib/srfi4.scm 838 */
BgL_tmpz00_9348 = BgL_sstartz00_198
; }  else 
{ 
 obj_t BgL_auxz00_9351;
BgL_auxz00_9351 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(33208L), BGl_string3336z00zz__srfi4z00, BGl_string3192z00zz__srfi4z00, BgL_sstartz00_198); 
FAILURE(BgL_auxz00_9351,BFALSE,BFALSE);} 
BgL_tmpz00_9347 = 
(long)CINT(BgL_tmpz00_9348); } 
BGL_SU64VECTOR_COPY(BgL_targetz00_195, BgL_tstartz00_196, BgL_sourcez00_197, BgL_tmpz00_9347, BgL_auxz00_9356); } 
return BUNSPEC;} 

}



/* _u64vector-copy! */
obj_t BGl__u64vectorzd2copyz12zc0zz__srfi4z00(obj_t BgL_env1327z00_208, obj_t BgL_opt1326z00_207)
{
{ /* Llib/srfi4.scm 838 */
{ /* Llib/srfi4.scm 838 */
 obj_t BgL_targetz00_1977; obj_t BgL_tstartz00_1978; obj_t BgL_sourcez00_1979;
{ 
 obj_t BgL_auxz00_9366;
if(
VECTORP(BgL_opt1326z00_207))
{ /* Llib/srfi4.scm 838 */
BgL_auxz00_9366 = BgL_opt1326z00_207
; }  else 
{ 
 obj_t BgL_auxz00_9369;
BgL_auxz00_9369 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(33208L), BGl_string3337z00zz__srfi4z00, BGl_string3187z00zz__srfi4z00, BgL_opt1326z00_207); 
FAILURE(BgL_auxz00_9369,BFALSE,BFALSE);} 
BgL_targetz00_1977 = 
VECTOR_REF(BgL_auxz00_9366,0L); } 
{ 
 obj_t BgL_auxz00_9374;
if(
VECTORP(BgL_opt1326z00_207))
{ /* Llib/srfi4.scm 838 */
BgL_auxz00_9374 = BgL_opt1326z00_207
; }  else 
{ 
 obj_t BgL_auxz00_9377;
BgL_auxz00_9377 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(33208L), BGl_string3337z00zz__srfi4z00, BGl_string3187z00zz__srfi4z00, BgL_opt1326z00_207); 
FAILURE(BgL_auxz00_9377,BFALSE,BFALSE);} 
BgL_tstartz00_1978 = 
VECTOR_REF(BgL_auxz00_9374,1L); } 
{ 
 obj_t BgL_auxz00_9382;
if(
VECTORP(BgL_opt1326z00_207))
{ /* Llib/srfi4.scm 838 */
BgL_auxz00_9382 = BgL_opt1326z00_207
; }  else 
{ 
 obj_t BgL_auxz00_9385;
BgL_auxz00_9385 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(33208L), BGl_string3337z00zz__srfi4z00, BGl_string3187z00zz__srfi4z00, BgL_opt1326z00_207); 
FAILURE(BgL_auxz00_9385,BFALSE,BFALSE);} 
BgL_sourcez00_1979 = 
VECTOR_REF(BgL_auxz00_9382,2L); } 
{ 

{ /* Llib/srfi4.scm 838 */
 long BgL_aux1329z00_1981;
{ 
 obj_t BgL_auxz00_9390;
if(
VECTORP(BgL_opt1326z00_207))
{ /* Llib/srfi4.scm 838 */
BgL_auxz00_9390 = BgL_opt1326z00_207
; }  else 
{ 
 obj_t BgL_auxz00_9393;
BgL_auxz00_9393 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(33208L), BGl_string3337z00zz__srfi4z00, BGl_string3187z00zz__srfi4z00, BgL_opt1326z00_207); 
FAILURE(BgL_auxz00_9393,BFALSE,BFALSE);} 
BgL_aux1329z00_1981 = 
VECTOR_LENGTH(BgL_auxz00_9390); } 
switch( BgL_aux1329z00_1981) { case 3L : 

{ /* Llib/srfi4.scm 838 */
 long BgL_sendz00_1983;
{ /* Llib/srfi4.scm 838 */
 obj_t BgL_xz00_2805;
if(
BGL_U64VECTORP(BgL_sourcez00_1979))
{ /* Llib/srfi4.scm 838 */
BgL_xz00_2805 = BgL_sourcez00_1979; }  else 
{ 
 obj_t BgL_auxz00_9400;
BgL_auxz00_9400 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(33208L), BGl_string3337z00zz__srfi4z00, BGl_string3180z00zz__srfi4z00, BgL_sourcez00_1979); 
FAILURE(BgL_auxz00_9400,BFALSE,BFALSE);} 
BgL_sendz00_1983 = 
BGL_HVECTOR_LENGTH(BgL_xz00_2805); } 
{ /* Llib/srfi4.scm 838 */

{ /* Llib/srfi4.scm 838 */
 obj_t BgL_auxz00_9421; long BgL_auxz00_9412; obj_t BgL_auxz00_9405;
if(
BGL_U64VECTORP(BgL_sourcez00_1979))
{ /* Llib/srfi4.scm 838 */
BgL_auxz00_9421 = BgL_sourcez00_1979
; }  else 
{ 
 obj_t BgL_auxz00_9424;
BgL_auxz00_9424 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(33208L), BGl_string3337z00zz__srfi4z00, BGl_string3180z00zz__srfi4z00, BgL_sourcez00_1979); 
FAILURE(BgL_auxz00_9424,BFALSE,BFALSE);} 
{ /* Llib/srfi4.scm 838 */
 obj_t BgL_tmpz00_9413;
if(
INTEGERP(BgL_tstartz00_1978))
{ /* Llib/srfi4.scm 838 */
BgL_tmpz00_9413 = BgL_tstartz00_1978
; }  else 
{ 
 obj_t BgL_auxz00_9416;
BgL_auxz00_9416 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(33208L), BGl_string3337z00zz__srfi4z00, BGl_string3192z00zz__srfi4z00, BgL_tstartz00_1978); 
FAILURE(BgL_auxz00_9416,BFALSE,BFALSE);} 
BgL_auxz00_9412 = 
(long)CINT(BgL_tmpz00_9413); } 
if(
BGL_U64VECTORP(BgL_targetz00_1977))
{ /* Llib/srfi4.scm 838 */
BgL_auxz00_9405 = BgL_targetz00_1977
; }  else 
{ 
 obj_t BgL_auxz00_9408;
BgL_auxz00_9408 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(33208L), BGl_string3337z00zz__srfi4z00, BGl_string3180z00zz__srfi4z00, BgL_targetz00_1977); 
FAILURE(BgL_auxz00_9408,BFALSE,BFALSE);} 
return 
BGl_u64vectorzd2copyz12zc0zz__srfi4z00(BgL_auxz00_9405, BgL_auxz00_9412, BgL_auxz00_9421, 
BINT(0L), 
BINT(BgL_sendz00_1983));} } } break;case 4L : 

{ /* Llib/srfi4.scm 838 */
 obj_t BgL_sstartz00_1984;
{ 
 obj_t BgL_auxz00_9431;
if(
VECTORP(BgL_opt1326z00_207))
{ /* Llib/srfi4.scm 838 */
BgL_auxz00_9431 = BgL_opt1326z00_207
; }  else 
{ 
 obj_t BgL_auxz00_9434;
BgL_auxz00_9434 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(33208L), BGl_string3337z00zz__srfi4z00, BGl_string3187z00zz__srfi4z00, BgL_opt1326z00_207); 
FAILURE(BgL_auxz00_9434,BFALSE,BFALSE);} 
BgL_sstartz00_1984 = 
VECTOR_REF(BgL_auxz00_9431,3L); } 
{ /* Llib/srfi4.scm 838 */
 long BgL_sendz00_1985;
{ /* Llib/srfi4.scm 838 */
 obj_t BgL_xz00_2806;
if(
BGL_U64VECTORP(BgL_sourcez00_1979))
{ /* Llib/srfi4.scm 838 */
BgL_xz00_2806 = BgL_sourcez00_1979; }  else 
{ 
 obj_t BgL_auxz00_9441;
BgL_auxz00_9441 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(33208L), BGl_string3337z00zz__srfi4z00, BGl_string3180z00zz__srfi4z00, BgL_sourcez00_1979); 
FAILURE(BgL_auxz00_9441,BFALSE,BFALSE);} 
BgL_sendz00_1985 = 
BGL_HVECTOR_LENGTH(BgL_xz00_2806); } 
{ /* Llib/srfi4.scm 838 */

{ /* Llib/srfi4.scm 838 */
 obj_t BgL_auxz00_9462; long BgL_auxz00_9453; obj_t BgL_auxz00_9446;
if(
BGL_U64VECTORP(BgL_sourcez00_1979))
{ /* Llib/srfi4.scm 838 */
BgL_auxz00_9462 = BgL_sourcez00_1979
; }  else 
{ 
 obj_t BgL_auxz00_9465;
BgL_auxz00_9465 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(33208L), BGl_string3337z00zz__srfi4z00, BGl_string3180z00zz__srfi4z00, BgL_sourcez00_1979); 
FAILURE(BgL_auxz00_9465,BFALSE,BFALSE);} 
{ /* Llib/srfi4.scm 838 */
 obj_t BgL_tmpz00_9454;
if(
INTEGERP(BgL_tstartz00_1978))
{ /* Llib/srfi4.scm 838 */
BgL_tmpz00_9454 = BgL_tstartz00_1978
; }  else 
{ 
 obj_t BgL_auxz00_9457;
BgL_auxz00_9457 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(33208L), BGl_string3337z00zz__srfi4z00, BGl_string3192z00zz__srfi4z00, BgL_tstartz00_1978); 
FAILURE(BgL_auxz00_9457,BFALSE,BFALSE);} 
BgL_auxz00_9453 = 
(long)CINT(BgL_tmpz00_9454); } 
if(
BGL_U64VECTORP(BgL_targetz00_1977))
{ /* Llib/srfi4.scm 838 */
BgL_auxz00_9446 = BgL_targetz00_1977
; }  else 
{ 
 obj_t BgL_auxz00_9449;
BgL_auxz00_9449 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(33208L), BGl_string3337z00zz__srfi4z00, BGl_string3180z00zz__srfi4z00, BgL_targetz00_1977); 
FAILURE(BgL_auxz00_9449,BFALSE,BFALSE);} 
return 
BGl_u64vectorzd2copyz12zc0zz__srfi4z00(BgL_auxz00_9446, BgL_auxz00_9453, BgL_auxz00_9462, BgL_sstartz00_1984, 
BINT(BgL_sendz00_1985));} } } } break;case 5L : 

{ /* Llib/srfi4.scm 838 */
 obj_t BgL_sstartz00_1986;
{ 
 obj_t BgL_auxz00_9471;
if(
VECTORP(BgL_opt1326z00_207))
{ /* Llib/srfi4.scm 838 */
BgL_auxz00_9471 = BgL_opt1326z00_207
; }  else 
{ 
 obj_t BgL_auxz00_9474;
BgL_auxz00_9474 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(33208L), BGl_string3337z00zz__srfi4z00, BGl_string3187z00zz__srfi4z00, BgL_opt1326z00_207); 
FAILURE(BgL_auxz00_9474,BFALSE,BFALSE);} 
BgL_sstartz00_1986 = 
VECTOR_REF(BgL_auxz00_9471,3L); } 
{ /* Llib/srfi4.scm 838 */
 obj_t BgL_sendz00_1987;
{ 
 obj_t BgL_auxz00_9479;
if(
VECTORP(BgL_opt1326z00_207))
{ /* Llib/srfi4.scm 838 */
BgL_auxz00_9479 = BgL_opt1326z00_207
; }  else 
{ 
 obj_t BgL_auxz00_9482;
BgL_auxz00_9482 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(33208L), BGl_string3337z00zz__srfi4z00, BGl_string3187z00zz__srfi4z00, BgL_opt1326z00_207); 
FAILURE(BgL_auxz00_9482,BFALSE,BFALSE);} 
BgL_sendz00_1987 = 
VECTOR_REF(BgL_auxz00_9479,4L); } 
{ /* Llib/srfi4.scm 838 */

{ /* Llib/srfi4.scm 838 */
 obj_t BgL_auxz00_9503; long BgL_auxz00_9494; obj_t BgL_auxz00_9487;
if(
BGL_U64VECTORP(BgL_sourcez00_1979))
{ /* Llib/srfi4.scm 838 */
BgL_auxz00_9503 = BgL_sourcez00_1979
; }  else 
{ 
 obj_t BgL_auxz00_9506;
BgL_auxz00_9506 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(33208L), BGl_string3337z00zz__srfi4z00, BGl_string3180z00zz__srfi4z00, BgL_sourcez00_1979); 
FAILURE(BgL_auxz00_9506,BFALSE,BFALSE);} 
{ /* Llib/srfi4.scm 838 */
 obj_t BgL_tmpz00_9495;
if(
INTEGERP(BgL_tstartz00_1978))
{ /* Llib/srfi4.scm 838 */
BgL_tmpz00_9495 = BgL_tstartz00_1978
; }  else 
{ 
 obj_t BgL_auxz00_9498;
BgL_auxz00_9498 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(33208L), BGl_string3337z00zz__srfi4z00, BGl_string3192z00zz__srfi4z00, BgL_tstartz00_1978); 
FAILURE(BgL_auxz00_9498,BFALSE,BFALSE);} 
BgL_auxz00_9494 = 
(long)CINT(BgL_tmpz00_9495); } 
if(
BGL_U64VECTORP(BgL_targetz00_1977))
{ /* Llib/srfi4.scm 838 */
BgL_auxz00_9487 = BgL_targetz00_1977
; }  else 
{ 
 obj_t BgL_auxz00_9490;
BgL_auxz00_9490 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(33208L), BGl_string3337z00zz__srfi4z00, BGl_string3180z00zz__srfi4z00, BgL_targetz00_1977); 
FAILURE(BgL_auxz00_9490,BFALSE,BFALSE);} 
return 
BGl_u64vectorzd2copyz12zc0zz__srfi4z00(BgL_auxz00_9487, BgL_auxz00_9494, BgL_auxz00_9503, BgL_sstartz00_1986, BgL_sendz00_1987);} } } } break;
default: 
{ /* Llib/srfi4.scm 838 */
 long BgL_arg1712z00_1988;
{ 
 obj_t BgL_auxz00_9511;
if(
VECTORP(BgL_opt1326z00_207))
{ /* Llib/srfi4.scm 838 */
BgL_auxz00_9511 = BgL_opt1326z00_207
; }  else 
{ 
 obj_t BgL_auxz00_9514;
BgL_auxz00_9514 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(33208L), BGl_string3338z00zz__srfi4z00, BGl_string3187z00zz__srfi4z00, BgL_opt1326z00_207); 
FAILURE(BgL_auxz00_9514,BFALSE,BFALSE);} 
BgL_arg1712z00_1988 = 
VECTOR_LENGTH(BgL_auxz00_9511); } 
return 
BGl_errorz00zz__errorz00(BGl_symbol3339z00zz__srfi4z00, BGl_string3308z00zz__srfi4z00, 
BINT(BgL_arg1712z00_1988));} } } } } } 

}



/* 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 */
if(
(BgL_tstartz00_203<0L))
{ /* Llib/srfi4.scm 838 */
BGl_errorz00zz__errorz00(BGl_string3340z00zz__srfi4z00, BGl_string3309z00zz__srfi4z00, 
BINT(BgL_tstartz00_203)); }  else 
{ /* Llib/srfi4.scm 838 */
 bool_t BgL_test4224z00_9526;
{ /* Llib/srfi4.scm 838 */
 long BgL_n1z00_2808;
{ /* Llib/srfi4.scm 838 */
 obj_t BgL_tmpz00_9527;
if(
INTEGERP(BgL_sstartz00_205))
{ /* Llib/srfi4.scm 838 */
BgL_tmpz00_9527 = BgL_sstartz00_205
; }  else 
{ 
 obj_t BgL_auxz00_9530;
BgL_auxz00_9530 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(33208L), BGl_string3340z00zz__srfi4z00, BGl_string3192z00zz__srfi4z00, BgL_sstartz00_205); 
FAILURE(BgL_auxz00_9530,BFALSE,BFALSE);} 
BgL_n1z00_2808 = 
(long)CINT(BgL_tmpz00_9527); } 
BgL_test4224z00_9526 = 
(BgL_n1z00_2808<0L); } 
if(BgL_test4224z00_9526)
{ /* Llib/srfi4.scm 838 */
BGl_errorz00zz__errorz00(BGl_string3340z00zz__srfi4z00, BGl_string3310z00zz__srfi4z00, BgL_sstartz00_205); }  else 
{ /* Llib/srfi4.scm 838 */
 bool_t BgL_test4226z00_9537;
{ /* Llib/srfi4.scm 838 */
 long BgL_arg1721z00_2002;
BgL_arg1721z00_2002 = 
BGL_HVECTOR_LENGTH(BgL_sourcez00_204); 
{ /* Llib/srfi4.scm 838 */
 long BgL_n1z00_2810;
{ /* Llib/srfi4.scm 838 */
 obj_t BgL_tmpz00_9539;
if(
INTEGERP(BgL_sendz00_206))
{ /* Llib/srfi4.scm 838 */
BgL_tmpz00_9539 = BgL_sendz00_206
; }  else 
{ 
 obj_t BgL_auxz00_9542;
BgL_auxz00_9542 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(33208L), BGl_string3340z00zz__srfi4z00, BGl_string3192z00zz__srfi4z00, BgL_sendz00_206); 
FAILURE(BgL_auxz00_9542,BFALSE,BFALSE);} 
BgL_n1z00_2810 = 
(long)CINT(BgL_tmpz00_9539); } 
BgL_test4226z00_9537 = 
(BgL_n1z00_2810>BgL_arg1721z00_2002); } } 
if(BgL_test4226z00_9537)
{ /* Llib/srfi4.scm 838 */
BGl_errorz00zz__errorz00(BGl_string3340z00zz__srfi4z00, BGl_string3311z00zz__srfi4z00, BgL_sendz00_206); }  else 
{ /* Llib/srfi4.scm 838 */
 bool_t BgL_test4228z00_9549;
{ /* Llib/srfi4.scm 838 */
 long BgL_n1z00_2812; long BgL_n2z00_2813;
{ /* Llib/srfi4.scm 838 */
 obj_t BgL_tmpz00_9550;
if(
INTEGERP(BgL_sendz00_206))
{ /* Llib/srfi4.scm 838 */
BgL_tmpz00_9550 = BgL_sendz00_206
; }  else 
{ 
 obj_t BgL_auxz00_9553;
BgL_auxz00_9553 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(33208L), BGl_string3340z00zz__srfi4z00, BGl_string3192z00zz__srfi4z00, BgL_sendz00_206); 
FAILURE(BgL_auxz00_9553,BFALSE,BFALSE);} 
BgL_n1z00_2812 = 
(long)CINT(BgL_tmpz00_9550); } 
{ /* Llib/srfi4.scm 838 */
 obj_t BgL_tmpz00_9558;
if(
INTEGERP(BgL_sstartz00_205))
{ /* Llib/srfi4.scm 838 */
BgL_tmpz00_9558 = BgL_sstartz00_205
; }  else 
{ 
 obj_t BgL_auxz00_9561;
BgL_auxz00_9561 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(33208L), BGl_string3340z00zz__srfi4z00, BGl_string3192z00zz__srfi4z00, BgL_sstartz00_205); 
FAILURE(BgL_auxz00_9561,BFALSE,BFALSE);} 
BgL_n2z00_2813 = 
(long)CINT(BgL_tmpz00_9558); } 
BgL_test4228z00_9549 = 
(BgL_n1z00_2812<BgL_n2z00_2813); } 
if(BgL_test4228z00_9549)
{ /* Llib/srfi4.scm 838 */
BGl_errorz00zz__errorz00(BGl_string3340z00zz__srfi4z00, BGl_string3311z00zz__srfi4z00, BgL_sendz00_206); }  else 
{ /* Llib/srfi4.scm 838 */
 bool_t BgL_test4231z00_9568;
{ /* Llib/srfi4.scm 838 */
 long BgL_a1227z00_1999;
{ /* Llib/srfi4.scm 838 */
 long BgL_za71za7_2814; long BgL_za72za7_2815;
{ /* Llib/srfi4.scm 838 */
 obj_t BgL_tmpz00_9569;
if(
INTEGERP(BgL_sendz00_206))
{ /* Llib/srfi4.scm 838 */
BgL_tmpz00_9569 = BgL_sendz00_206
; }  else 
{ 
 obj_t BgL_auxz00_9572;
BgL_auxz00_9572 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(33208L), BGl_string3340z00zz__srfi4z00, BGl_string3192z00zz__srfi4z00, BgL_sendz00_206); 
FAILURE(BgL_auxz00_9572,BFALSE,BFALSE);} 
BgL_za71za7_2814 = 
(long)CINT(BgL_tmpz00_9569); } 
{ /* Llib/srfi4.scm 838 */
 obj_t BgL_tmpz00_9577;
if(
INTEGERP(BgL_sstartz00_205))
{ /* Llib/srfi4.scm 838 */
BgL_tmpz00_9577 = BgL_sstartz00_205
; }  else 
{ 
 obj_t BgL_auxz00_9580;
BgL_auxz00_9580 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(33208L), BGl_string3340z00zz__srfi4z00, BGl_string3192z00zz__srfi4z00, BgL_sstartz00_205); 
FAILURE(BgL_auxz00_9580,BFALSE,BFALSE);} 
BgL_za72za7_2815 = 
(long)CINT(BgL_tmpz00_9577); } 
BgL_a1227z00_1999 = 
(BgL_za71za7_2814-BgL_za72za7_2815); } 
{ /* Llib/srfi4.scm 838 */
 long BgL_b1228z00_2000;
BgL_b1228z00_2000 = 
BGL_HVECTOR_LENGTH(BgL_targetz00_202); 
{ /* Llib/srfi4.scm 838 */

BgL_test4231z00_9568 = 
(BgL_a1227z00_1999>BgL_b1228z00_2000); } } } 
if(BgL_test4231z00_9568)
{ /* Llib/srfi4.scm 838 */
 long BgL_arg1720z00_1998;
{ /* Llib/srfi4.scm 838 */
 long BgL_za71za7_2819; long BgL_za72za7_2820;
{ /* Llib/srfi4.scm 838 */
 obj_t BgL_tmpz00_9588;
if(
INTEGERP(BgL_sendz00_206))
{ /* Llib/srfi4.scm 838 */
BgL_tmpz00_9588 = BgL_sendz00_206
; }  else 
{ 
 obj_t BgL_auxz00_9591;
BgL_auxz00_9591 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(33208L), BGl_string3340z00zz__srfi4z00, BGl_string3192z00zz__srfi4z00, BgL_sendz00_206); 
FAILURE(BgL_auxz00_9591,BFALSE,BFALSE);} 
BgL_za71za7_2819 = 
(long)CINT(BgL_tmpz00_9588); } 
{ /* Llib/srfi4.scm 838 */
 obj_t BgL_tmpz00_9596;
if(
INTEGERP(BgL_sstartz00_205))
{ /* Llib/srfi4.scm 838 */
BgL_tmpz00_9596 = BgL_sstartz00_205
; }  else 
{ 
 obj_t BgL_auxz00_9599;
BgL_auxz00_9599 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(33208L), BGl_string3340z00zz__srfi4z00, BGl_string3192z00zz__srfi4z00, BgL_sstartz00_205); 
FAILURE(BgL_auxz00_9599,BFALSE,BFALSE);} 
BgL_za72za7_2820 = 
(long)CINT(BgL_tmpz00_9596); } 
BgL_arg1720z00_1998 = 
(BgL_za71za7_2819-BgL_za72za7_2820); } 
BGl_errorz00zz__errorz00(BGl_string3340z00zz__srfi4z00, BGl_string3312z00zz__srfi4z00, 
BINT(BgL_arg1720z00_1998)); }  else 
{ /* Llib/srfi4.scm 838 */BFALSE; } } } } } 
{ /* Llib/srfi4.scm 838 */
 long BgL_auxz00_9616; long BgL_tmpz00_9607;
{ /* Llib/srfi4.scm 838 */
 obj_t BgL_tmpz00_9617;
if(
INTEGERP(BgL_sendz00_206))
{ /* Llib/srfi4.scm 838 */
BgL_tmpz00_9617 = BgL_sendz00_206
; }  else 
{ 
 obj_t BgL_auxz00_9620;
BgL_auxz00_9620 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(33208L), BGl_string3340z00zz__srfi4z00, BGl_string3192z00zz__srfi4z00, BgL_sendz00_206); 
FAILURE(BgL_auxz00_9620,BFALSE,BFALSE);} 
BgL_auxz00_9616 = 
(long)CINT(BgL_tmpz00_9617); } 
{ /* Llib/srfi4.scm 838 */
 obj_t BgL_tmpz00_9608;
if(
INTEGERP(BgL_sstartz00_205))
{ /* Llib/srfi4.scm 838 */
BgL_tmpz00_9608 = BgL_sstartz00_205
; }  else 
{ 
 obj_t BgL_auxz00_9611;
BgL_auxz00_9611 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(33208L), BGl_string3340z00zz__srfi4z00, BGl_string3192z00zz__srfi4z00, BgL_sstartz00_205); 
FAILURE(BgL_auxz00_9611,BFALSE,BFALSE);} 
BgL_tmpz00_9607 = 
(long)CINT(BgL_tmpz00_9608); } 
BGL_SU64VECTOR_COPY(BgL_targetz00_202, BgL_tstartz00_203, BgL_sourcez00_204, BgL_tmpz00_9607, BgL_auxz00_9616); } 
return BUNSPEC;} 

}



/* _f32vector-copy! */
obj_t BGl__f32vectorzd2copyz12zc0zz__srfi4z00(obj_t BgL_env1331z00_215, obj_t BgL_opt1330z00_214)
{
{ /* Llib/srfi4.scm 838 */
{ /* Llib/srfi4.scm 838 */
 obj_t BgL_targetz00_2003; obj_t BgL_tstartz00_2004; obj_t BgL_sourcez00_2005;
{ 
 obj_t BgL_auxz00_9626;
if(
VECTORP(BgL_opt1330z00_214))
{ /* Llib/srfi4.scm 838 */
BgL_auxz00_9626 = BgL_opt1330z00_214
; }  else 
{ 
 obj_t BgL_auxz00_9629;
BgL_auxz00_9629 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(33208L), BGl_string3341z00zz__srfi4z00, BGl_string3187z00zz__srfi4z00, BgL_opt1330z00_214); 
FAILURE(BgL_auxz00_9629,BFALSE,BFALSE);} 
BgL_targetz00_2003 = 
VECTOR_REF(BgL_auxz00_9626,0L); } 
{ 
 obj_t BgL_auxz00_9634;
if(
VECTORP(BgL_opt1330z00_214))
{ /* Llib/srfi4.scm 838 */
BgL_auxz00_9634 = BgL_opt1330z00_214
; }  else 
{ 
 obj_t BgL_auxz00_9637;
BgL_auxz00_9637 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(33208L), BGl_string3341z00zz__srfi4z00, BGl_string3187z00zz__srfi4z00, BgL_opt1330z00_214); 
FAILURE(BgL_auxz00_9637,BFALSE,BFALSE);} 
BgL_tstartz00_2004 = 
VECTOR_REF(BgL_auxz00_9634,1L); } 
{ 
 obj_t BgL_auxz00_9642;
if(
VECTORP(BgL_opt1330z00_214))
{ /* Llib/srfi4.scm 838 */
BgL_auxz00_9642 = BgL_opt1330z00_214
; }  else 
{ 
 obj_t BgL_auxz00_9645;
BgL_auxz00_9645 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(33208L), BGl_string3341z00zz__srfi4z00, BGl_string3187z00zz__srfi4z00, BgL_opt1330z00_214); 
FAILURE(BgL_auxz00_9645,BFALSE,BFALSE);} 
BgL_sourcez00_2005 = 
VECTOR_REF(BgL_auxz00_9642,2L); } 
{ 

{ /* Llib/srfi4.scm 838 */
 long BgL_aux1333z00_2007;
{ 
 obj_t BgL_auxz00_9650;
if(
VECTORP(BgL_opt1330z00_214))
{ /* Llib/srfi4.scm 838 */
BgL_auxz00_9650 = BgL_opt1330z00_214
; }  else 
{ 
 obj_t BgL_auxz00_9653;
BgL_auxz00_9653 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(33208L), BGl_string3341z00zz__srfi4z00, BGl_string3187z00zz__srfi4z00, BgL_opt1330z00_214); 
FAILURE(BgL_auxz00_9653,BFALSE,BFALSE);} 
BgL_aux1333z00_2007 = 
VECTOR_LENGTH(BgL_auxz00_9650); } 
switch( BgL_aux1333z00_2007) { case 3L : 

{ /* Llib/srfi4.scm 838 */
 long BgL_sendz00_2009;
{ /* Llib/srfi4.scm 838 */
 obj_t BgL_xz00_2821;
if(
BGL_F32VECTORP(BgL_sourcez00_2005))
{ /* Llib/srfi4.scm 838 */
BgL_xz00_2821 = BgL_sourcez00_2005; }  else 
{ 
 obj_t BgL_auxz00_9660;
BgL_auxz00_9660 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(33208L), BGl_string3341z00zz__srfi4z00, BGl_string3182z00zz__srfi4z00, BgL_sourcez00_2005); 
FAILURE(BgL_auxz00_9660,BFALSE,BFALSE);} 
BgL_sendz00_2009 = 
BGL_HVECTOR_LENGTH(BgL_xz00_2821); } 
{ /* Llib/srfi4.scm 838 */

{ /* Llib/srfi4.scm 838 */
 obj_t BgL_auxz00_9681; long BgL_auxz00_9672; obj_t BgL_auxz00_9665;
if(
BGL_F32VECTORP(BgL_sourcez00_2005))
{ /* Llib/srfi4.scm 838 */
BgL_auxz00_9681 = BgL_sourcez00_2005
; }  else 
{ 
 obj_t BgL_auxz00_9684;
BgL_auxz00_9684 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(33208L), BGl_string3341z00zz__srfi4z00, BGl_string3182z00zz__srfi4z00, BgL_sourcez00_2005); 
FAILURE(BgL_auxz00_9684,BFALSE,BFALSE);} 
{ /* Llib/srfi4.scm 838 */
 obj_t BgL_tmpz00_9673;
if(
INTEGERP(BgL_tstartz00_2004))
{ /* Llib/srfi4.scm 838 */
BgL_tmpz00_9673 = BgL_tstartz00_2004
; }  else 
{ 
 obj_t BgL_auxz00_9676;
BgL_auxz00_9676 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(33208L), BGl_string3341z00zz__srfi4z00, BGl_string3192z00zz__srfi4z00, BgL_tstartz00_2004); 
FAILURE(BgL_auxz00_9676,BFALSE,BFALSE);} 
BgL_auxz00_9672 = 
(long)CINT(BgL_tmpz00_9673); } 
if(
BGL_F32VECTORP(BgL_targetz00_2003))
{ /* Llib/srfi4.scm 838 */
BgL_auxz00_9665 = BgL_targetz00_2003
; }  else 
{ 
 obj_t BgL_auxz00_9668;
BgL_auxz00_9668 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(33208L), BGl_string3341z00zz__srfi4z00, BGl_string3182z00zz__srfi4z00, BgL_targetz00_2003); 
FAILURE(BgL_auxz00_9668,BFALSE,BFALSE);} 
return 
BGl_f32vectorzd2copyz12zc0zz__srfi4z00(BgL_auxz00_9665, BgL_auxz00_9672, BgL_auxz00_9681, 
BINT(0L), 
BINT(BgL_sendz00_2009));} } } break;case 4L : 

{ /* Llib/srfi4.scm 838 */
 obj_t BgL_sstartz00_2010;
{ 
 obj_t BgL_auxz00_9691;
if(
VECTORP(BgL_opt1330z00_214))
{ /* Llib/srfi4.scm 838 */
BgL_auxz00_9691 = BgL_opt1330z00_214
; }  else 
{ 
 obj_t BgL_auxz00_9694;
BgL_auxz00_9694 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(33208L), BGl_string3341z00zz__srfi4z00, BGl_string3187z00zz__srfi4z00, BgL_opt1330z00_214); 
FAILURE(BgL_auxz00_9694,BFALSE,BFALSE);} 
BgL_sstartz00_2010 = 
VECTOR_REF(BgL_auxz00_9691,3L); } 
{ /* Llib/srfi4.scm 838 */
 long BgL_sendz00_2011;
{ /* Llib/srfi4.scm 838 */
 obj_t BgL_xz00_2822;
if(
BGL_F32VECTORP(BgL_sourcez00_2005))
{ /* Llib/srfi4.scm 838 */
BgL_xz00_2822 = BgL_sourcez00_2005; }  else 
{ 
 obj_t BgL_auxz00_9701;
BgL_auxz00_9701 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(33208L), BGl_string3341z00zz__srfi4z00, BGl_string3182z00zz__srfi4z00, BgL_sourcez00_2005); 
FAILURE(BgL_auxz00_9701,BFALSE,BFALSE);} 
BgL_sendz00_2011 = 
BGL_HVECTOR_LENGTH(BgL_xz00_2822); } 
{ /* Llib/srfi4.scm 838 */

{ /* Llib/srfi4.scm 838 */
 obj_t BgL_auxz00_9722; long BgL_auxz00_9713; obj_t BgL_auxz00_9706;
if(
BGL_F32VECTORP(BgL_sourcez00_2005))
{ /* Llib/srfi4.scm 838 */
BgL_auxz00_9722 = BgL_sourcez00_2005
; }  else 
{ 
 obj_t BgL_auxz00_9725;
BgL_auxz00_9725 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(33208L), BGl_string3341z00zz__srfi4z00, BGl_string3182z00zz__srfi4z00, BgL_sourcez00_2005); 
FAILURE(BgL_auxz00_9725,BFALSE,BFALSE);} 
{ /* Llib/srfi4.scm 838 */
 obj_t BgL_tmpz00_9714;
if(
INTEGERP(BgL_tstartz00_2004))
{ /* Llib/srfi4.scm 838 */
BgL_tmpz00_9714 = BgL_tstartz00_2004
; }  else 
{ 
 obj_t BgL_auxz00_9717;
BgL_auxz00_9717 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(33208L), BGl_string3341z00zz__srfi4z00, BGl_string3192z00zz__srfi4z00, BgL_tstartz00_2004); 
FAILURE(BgL_auxz00_9717,BFALSE,BFALSE);} 
BgL_auxz00_9713 = 
(long)CINT(BgL_tmpz00_9714); } 
if(
BGL_F32VECTORP(BgL_targetz00_2003))
{ /* Llib/srfi4.scm 838 */
BgL_auxz00_9706 = BgL_targetz00_2003
; }  else 
{ 
 obj_t BgL_auxz00_9709;
BgL_auxz00_9709 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(33208L), BGl_string3341z00zz__srfi4z00, BGl_string3182z00zz__srfi4z00, BgL_targetz00_2003); 
FAILURE(BgL_auxz00_9709,BFALSE,BFALSE);} 
return 
BGl_f32vectorzd2copyz12zc0zz__srfi4z00(BgL_auxz00_9706, BgL_auxz00_9713, BgL_auxz00_9722, BgL_sstartz00_2010, 
BINT(BgL_sendz00_2011));} } } } break;case 5L : 

{ /* Llib/srfi4.scm 838 */
 obj_t BgL_sstartz00_2012;
{ 
 obj_t BgL_auxz00_9731;
if(
VECTORP(BgL_opt1330z00_214))
{ /* Llib/srfi4.scm 838 */
BgL_auxz00_9731 = BgL_opt1330z00_214
; }  else 
{ 
 obj_t BgL_auxz00_9734;
BgL_auxz00_9734 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(33208L), BGl_string3341z00zz__srfi4z00, BGl_string3187z00zz__srfi4z00, BgL_opt1330z00_214); 
FAILURE(BgL_auxz00_9734,BFALSE,BFALSE);} 
BgL_sstartz00_2012 = 
VECTOR_REF(BgL_auxz00_9731,3L); } 
{ /* Llib/srfi4.scm 838 */
 obj_t BgL_sendz00_2013;
{ 
 obj_t BgL_auxz00_9739;
if(
VECTORP(BgL_opt1330z00_214))
{ /* Llib/srfi4.scm 838 */
BgL_auxz00_9739 = BgL_opt1330z00_214
; }  else 
{ 
 obj_t BgL_auxz00_9742;
BgL_auxz00_9742 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(33208L), BGl_string3341z00zz__srfi4z00, BGl_string3187z00zz__srfi4z00, BgL_opt1330z00_214); 
FAILURE(BgL_auxz00_9742,BFALSE,BFALSE);} 
BgL_sendz00_2013 = 
VECTOR_REF(BgL_auxz00_9739,4L); } 
{ /* Llib/srfi4.scm 838 */

{ /* Llib/srfi4.scm 838 */
 obj_t BgL_auxz00_9763; long BgL_auxz00_9754; obj_t BgL_auxz00_9747;
if(
BGL_F32VECTORP(BgL_sourcez00_2005))
{ /* Llib/srfi4.scm 838 */
BgL_auxz00_9763 = BgL_sourcez00_2005
; }  else 
{ 
 obj_t BgL_auxz00_9766;
BgL_auxz00_9766 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(33208L), BGl_string3341z00zz__srfi4z00, BGl_string3182z00zz__srfi4z00, BgL_sourcez00_2005); 
FAILURE(BgL_auxz00_9766,BFALSE,BFALSE);} 
{ /* Llib/srfi4.scm 838 */
 obj_t BgL_tmpz00_9755;
if(
INTEGERP(BgL_tstartz00_2004))
{ /* Llib/srfi4.scm 838 */
BgL_tmpz00_9755 = BgL_tstartz00_2004
; }  else 
{ 
 obj_t BgL_auxz00_9758;
BgL_auxz00_9758 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(33208L), BGl_string3341z00zz__srfi4z00, BGl_string3192z00zz__srfi4z00, BgL_tstartz00_2004); 
FAILURE(BgL_auxz00_9758,BFALSE,BFALSE);} 
BgL_auxz00_9754 = 
(long)CINT(BgL_tmpz00_9755); } 
if(
BGL_F32VECTORP(BgL_targetz00_2003))
{ /* Llib/srfi4.scm 838 */
BgL_auxz00_9747 = BgL_targetz00_2003
; }  else 
{ 
 obj_t BgL_auxz00_9750;
BgL_auxz00_9750 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(33208L), BGl_string3341z00zz__srfi4z00, BGl_string3182z00zz__srfi4z00, BgL_targetz00_2003); 
FAILURE(BgL_auxz00_9750,BFALSE,BFALSE);} 
return 
BGl_f32vectorzd2copyz12zc0zz__srfi4z00(BgL_auxz00_9747, BgL_auxz00_9754, BgL_auxz00_9763, BgL_sstartz00_2012, BgL_sendz00_2013);} } } } break;
default: 
{ /* Llib/srfi4.scm 838 */
 long BgL_arg1722z00_2014;
{ 
 obj_t BgL_auxz00_9771;
if(
VECTORP(BgL_opt1330z00_214))
{ /* Llib/srfi4.scm 838 */
BgL_auxz00_9771 = BgL_opt1330z00_214
; }  else 
{ 
 obj_t BgL_auxz00_9774;
BgL_auxz00_9774 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(33208L), BGl_string3342z00zz__srfi4z00, BGl_string3187z00zz__srfi4z00, BgL_opt1330z00_214); 
FAILURE(BgL_auxz00_9774,BFALSE,BFALSE);} 
BgL_arg1722z00_2014 = 
VECTOR_LENGTH(BgL_auxz00_9771); } 
return 
BGl_errorz00zz__errorz00(BGl_symbol3343z00zz__srfi4z00, BGl_string3308z00zz__srfi4z00, 
BINT(BgL_arg1722z00_2014));} } } } } } 

}



/* 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 */
if(
(BgL_tstartz00_210<0L))
{ /* Llib/srfi4.scm 838 */
BGl_errorz00zz__errorz00(BGl_string3344z00zz__srfi4z00, BGl_string3309z00zz__srfi4z00, 
BINT(BgL_tstartz00_210)); }  else 
{ /* Llib/srfi4.scm 838 */
 bool_t BgL_test4258z00_9786;
{ /* Llib/srfi4.scm 838 */
 long BgL_n1z00_2824;
{ /* Llib/srfi4.scm 838 */
 obj_t BgL_tmpz00_9787;
if(
INTEGERP(BgL_sstartz00_212))
{ /* Llib/srfi4.scm 838 */
BgL_tmpz00_9787 = BgL_sstartz00_212
; }  else 
{ 
 obj_t BgL_auxz00_9790;
BgL_auxz00_9790 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(33208L), BGl_string3344z00zz__srfi4z00, BGl_string3192z00zz__srfi4z00, BgL_sstartz00_212); 
FAILURE(BgL_auxz00_9790,BFALSE,BFALSE);} 
BgL_n1z00_2824 = 
(long)CINT(BgL_tmpz00_9787); } 
BgL_test4258z00_9786 = 
(BgL_n1z00_2824<0L); } 
if(BgL_test4258z00_9786)
{ /* Llib/srfi4.scm 838 */
BGl_errorz00zz__errorz00(BGl_string3344z00zz__srfi4z00, BGl_string3310z00zz__srfi4z00, BgL_sstartz00_212); }  else 
{ /* Llib/srfi4.scm 838 */
 bool_t BgL_test4260z00_9797;
{ /* Llib/srfi4.scm 838 */
 long BgL_arg1731z00_2028;
BgL_arg1731z00_2028 = 
BGL_HVECTOR_LENGTH(BgL_sourcez00_211); 
{ /* Llib/srfi4.scm 838 */
 long BgL_n1z00_2826;
{ /* Llib/srfi4.scm 838 */
 obj_t BgL_tmpz00_9799;
if(
INTEGERP(BgL_sendz00_213))
{ /* Llib/srfi4.scm 838 */
BgL_tmpz00_9799 = BgL_sendz00_213
; }  else 
{ 
 obj_t BgL_auxz00_9802;
BgL_auxz00_9802 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(33208L), BGl_string3344z00zz__srfi4z00, BGl_string3192z00zz__srfi4z00, BgL_sendz00_213); 
FAILURE(BgL_auxz00_9802,BFALSE,BFALSE);} 
BgL_n1z00_2826 = 
(long)CINT(BgL_tmpz00_9799); } 
BgL_test4260z00_9797 = 
(BgL_n1z00_2826>BgL_arg1731z00_2028); } } 
if(BgL_test4260z00_9797)
{ /* Llib/srfi4.scm 838 */
BGl_errorz00zz__errorz00(BGl_string3344z00zz__srfi4z00, BGl_string3311z00zz__srfi4z00, BgL_sendz00_213); }  else 
{ /* Llib/srfi4.scm 838 */
 bool_t BgL_test4262z00_9809;
{ /* Llib/srfi4.scm 838 */
 long BgL_n1z00_2828; long BgL_n2z00_2829;
{ /* Llib/srfi4.scm 838 */
 obj_t BgL_tmpz00_9810;
if(
INTEGERP(BgL_sendz00_213))
{ /* Llib/srfi4.scm 838 */
BgL_tmpz00_9810 = BgL_sendz00_213
; }  else 
{ 
 obj_t BgL_auxz00_9813;
BgL_auxz00_9813 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(33208L), BGl_string3344z00zz__srfi4z00, BGl_string3192z00zz__srfi4z00, BgL_sendz00_213); 
FAILURE(BgL_auxz00_9813,BFALSE,BFALSE);} 
BgL_n1z00_2828 = 
(long)CINT(BgL_tmpz00_9810); } 
{ /* Llib/srfi4.scm 838 */
 obj_t BgL_tmpz00_9818;
if(
INTEGERP(BgL_sstartz00_212))
{ /* Llib/srfi4.scm 838 */
BgL_tmpz00_9818 = BgL_sstartz00_212
; }  else 
{ 
 obj_t BgL_auxz00_9821;
BgL_auxz00_9821 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(33208L), BGl_string3344z00zz__srfi4z00, BGl_string3192z00zz__srfi4z00, BgL_sstartz00_212); 
FAILURE(BgL_auxz00_9821,BFALSE,BFALSE);} 
BgL_n2z00_2829 = 
(long)CINT(BgL_tmpz00_9818); } 
BgL_test4262z00_9809 = 
(BgL_n1z00_2828<BgL_n2z00_2829); } 
if(BgL_test4262z00_9809)
{ /* Llib/srfi4.scm 838 */
BGl_errorz00zz__errorz00(BGl_string3344z00zz__srfi4z00, BGl_string3311z00zz__srfi4z00, BgL_sendz00_213); }  else 
{ /* Llib/srfi4.scm 838 */
 bool_t BgL_test4265z00_9828;
{ /* Llib/srfi4.scm 838 */
 long BgL_a1230z00_2025;
{ /* Llib/srfi4.scm 838 */
 long BgL_za71za7_2830; long BgL_za72za7_2831;
{ /* Llib/srfi4.scm 838 */
 obj_t BgL_tmpz00_9829;
if(
INTEGERP(BgL_sendz00_213))
{ /* Llib/srfi4.scm 838 */
BgL_tmpz00_9829 = BgL_sendz00_213
; }  else 
{ 
 obj_t BgL_auxz00_9832;
BgL_auxz00_9832 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(33208L), BGl_string3344z00zz__srfi4z00, BGl_string3192z00zz__srfi4z00, BgL_sendz00_213); 
FAILURE(BgL_auxz00_9832,BFALSE,BFALSE);} 
BgL_za71za7_2830 = 
(long)CINT(BgL_tmpz00_9829); } 
{ /* Llib/srfi4.scm 838 */
 obj_t BgL_tmpz00_9837;
if(
INTEGERP(BgL_sstartz00_212))
{ /* Llib/srfi4.scm 838 */
BgL_tmpz00_9837 = BgL_sstartz00_212
; }  else 
{ 
 obj_t BgL_auxz00_9840;
BgL_auxz00_9840 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(33208L), BGl_string3344z00zz__srfi4z00, BGl_string3192z00zz__srfi4z00, BgL_sstartz00_212); 
FAILURE(BgL_auxz00_9840,BFALSE,BFALSE);} 
BgL_za72za7_2831 = 
(long)CINT(BgL_tmpz00_9837); } 
BgL_a1230z00_2025 = 
(BgL_za71za7_2830-BgL_za72za7_2831); } 
{ /* Llib/srfi4.scm 838 */
 long BgL_b1231z00_2026;
BgL_b1231z00_2026 = 
BGL_HVECTOR_LENGTH(BgL_targetz00_209); 
{ /* Llib/srfi4.scm 838 */

BgL_test4265z00_9828 = 
(BgL_a1230z00_2025>BgL_b1231z00_2026); } } } 
if(BgL_test4265z00_9828)
{ /* Llib/srfi4.scm 838 */
 long BgL_arg1730z00_2024;
{ /* Llib/srfi4.scm 838 */
 long BgL_za71za7_2835; long BgL_za72za7_2836;
{ /* Llib/srfi4.scm 838 */
 obj_t BgL_tmpz00_9848;
if(
INTEGERP(BgL_sendz00_213))
{ /* Llib/srfi4.scm 838 */
BgL_tmpz00_9848 = BgL_sendz00_213
; }  else 
{ 
 obj_t BgL_auxz00_9851;
BgL_auxz00_9851 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(33208L), BGl_string3344z00zz__srfi4z00, BGl_string3192z00zz__srfi4z00, BgL_sendz00_213); 
FAILURE(BgL_auxz00_9851,BFALSE,BFALSE);} 
BgL_za71za7_2835 = 
(long)CINT(BgL_tmpz00_9848); } 
{ /* Llib/srfi4.scm 838 */
 obj_t BgL_tmpz00_9856;
if(
INTEGERP(BgL_sstartz00_212))
{ /* Llib/srfi4.scm 838 */
BgL_tmpz00_9856 = BgL_sstartz00_212
; }  else 
{ 
 obj_t BgL_auxz00_9859;
BgL_auxz00_9859 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(33208L), BGl_string3344z00zz__srfi4z00, BGl_string3192z00zz__srfi4z00, BgL_sstartz00_212); 
FAILURE(BgL_auxz00_9859,BFALSE,BFALSE);} 
BgL_za72za7_2836 = 
(long)CINT(BgL_tmpz00_9856); } 
BgL_arg1730z00_2024 = 
(BgL_za71za7_2835-BgL_za72za7_2836); } 
BGl_errorz00zz__errorz00(BGl_string3344z00zz__srfi4z00, BGl_string3312z00zz__srfi4z00, 
BINT(BgL_arg1730z00_2024)); }  else 
{ /* Llib/srfi4.scm 838 */BFALSE; } } } } } 
{ /* Llib/srfi4.scm 838 */
 long BgL_auxz00_9876; long BgL_tmpz00_9867;
{ /* Llib/srfi4.scm 838 */
 obj_t BgL_tmpz00_9877;
if(
INTEGERP(BgL_sendz00_213))
{ /* Llib/srfi4.scm 838 */
BgL_tmpz00_9877 = BgL_sendz00_213
; }  else 
{ 
 obj_t BgL_auxz00_9880;
BgL_auxz00_9880 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(33208L), BGl_string3344z00zz__srfi4z00, BGl_string3192z00zz__srfi4z00, BgL_sendz00_213); 
FAILURE(BgL_auxz00_9880,BFALSE,BFALSE);} 
BgL_auxz00_9876 = 
(long)CINT(BgL_tmpz00_9877); } 
{ /* Llib/srfi4.scm 838 */
 obj_t BgL_tmpz00_9868;
if(
INTEGERP(BgL_sstartz00_212))
{ /* Llib/srfi4.scm 838 */
BgL_tmpz00_9868 = BgL_sstartz00_212
; }  else 
{ 
 obj_t BgL_auxz00_9871;
BgL_auxz00_9871 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(33208L), BGl_string3344z00zz__srfi4z00, BGl_string3192z00zz__srfi4z00, BgL_sstartz00_212); 
FAILURE(BgL_auxz00_9871,BFALSE,BFALSE);} 
BgL_tmpz00_9867 = 
(long)CINT(BgL_tmpz00_9868); } 
BGL_F32VECTOR_COPY(BgL_targetz00_209, BgL_tstartz00_210, BgL_sourcez00_211, BgL_tmpz00_9867, BgL_auxz00_9876); } 
return BUNSPEC;} 

}



/* _f64vector-copy! */
obj_t BGl__f64vectorzd2copyz12zc0zz__srfi4z00(obj_t BgL_env1335z00_222, obj_t BgL_opt1334z00_221)
{
{ /* Llib/srfi4.scm 838 */
{ /* Llib/srfi4.scm 838 */
 obj_t BgL_targetz00_2029; obj_t BgL_tstartz00_2030; obj_t BgL_sourcez00_2031;
{ 
 obj_t BgL_auxz00_9886;
if(
VECTORP(BgL_opt1334z00_221))
{ /* Llib/srfi4.scm 838 */
BgL_auxz00_9886 = BgL_opt1334z00_221
; }  else 
{ 
 obj_t BgL_auxz00_9889;
BgL_auxz00_9889 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(33208L), BGl_string3345z00zz__srfi4z00, BGl_string3187z00zz__srfi4z00, BgL_opt1334z00_221); 
FAILURE(BgL_auxz00_9889,BFALSE,BFALSE);} 
BgL_targetz00_2029 = 
VECTOR_REF(BgL_auxz00_9886,0L); } 
{ 
 obj_t BgL_auxz00_9894;
if(
VECTORP(BgL_opt1334z00_221))
{ /* Llib/srfi4.scm 838 */
BgL_auxz00_9894 = BgL_opt1334z00_221
; }  else 
{ 
 obj_t BgL_auxz00_9897;
BgL_auxz00_9897 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(33208L), BGl_string3345z00zz__srfi4z00, BGl_string3187z00zz__srfi4z00, BgL_opt1334z00_221); 
FAILURE(BgL_auxz00_9897,BFALSE,BFALSE);} 
BgL_tstartz00_2030 = 
VECTOR_REF(BgL_auxz00_9894,1L); } 
{ 
 obj_t BgL_auxz00_9902;
if(
VECTORP(BgL_opt1334z00_221))
{ /* Llib/srfi4.scm 838 */
BgL_auxz00_9902 = BgL_opt1334z00_221
; }  else 
{ 
 obj_t BgL_auxz00_9905;
BgL_auxz00_9905 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(33208L), BGl_string3345z00zz__srfi4z00, BGl_string3187z00zz__srfi4z00, BgL_opt1334z00_221); 
FAILURE(BgL_auxz00_9905,BFALSE,BFALSE);} 
BgL_sourcez00_2031 = 
VECTOR_REF(BgL_auxz00_9902,2L); } 
{ 

{ /* Llib/srfi4.scm 838 */
 long BgL_aux1337z00_2033;
{ 
 obj_t BgL_auxz00_9910;
if(
VECTORP(BgL_opt1334z00_221))
{ /* Llib/srfi4.scm 838 */
BgL_auxz00_9910 = BgL_opt1334z00_221
; }  else 
{ 
 obj_t BgL_auxz00_9913;
BgL_auxz00_9913 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(33208L), BGl_string3345z00zz__srfi4z00, BGl_string3187z00zz__srfi4z00, BgL_opt1334z00_221); 
FAILURE(BgL_auxz00_9913,BFALSE,BFALSE);} 
BgL_aux1337z00_2033 = 
VECTOR_LENGTH(BgL_auxz00_9910); } 
switch( BgL_aux1337z00_2033) { case 3L : 

{ /* Llib/srfi4.scm 838 */
 long BgL_sendz00_2035;
{ /* Llib/srfi4.scm 838 */
 obj_t BgL_xz00_2837;
if(
BGL_F64VECTORP(BgL_sourcez00_2031))
{ /* Llib/srfi4.scm 838 */
BgL_xz00_2837 = BgL_sourcez00_2031; }  else 
{ 
 obj_t BgL_auxz00_9920;
BgL_auxz00_9920 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(33208L), BGl_string3345z00zz__srfi4z00, BGl_string3184z00zz__srfi4z00, BgL_sourcez00_2031); 
FAILURE(BgL_auxz00_9920,BFALSE,BFALSE);} 
BgL_sendz00_2035 = 
BGL_HVECTOR_LENGTH(BgL_xz00_2837); } 
{ /* Llib/srfi4.scm 838 */

{ /* Llib/srfi4.scm 838 */
 obj_t BgL_auxz00_9941; long BgL_auxz00_9932; obj_t BgL_auxz00_9925;
if(
BGL_F64VECTORP(BgL_sourcez00_2031))
{ /* Llib/srfi4.scm 838 */
BgL_auxz00_9941 = BgL_sourcez00_2031
; }  else 
{ 
 obj_t BgL_auxz00_9944;
BgL_auxz00_9944 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(33208L), BGl_string3345z00zz__srfi4z00, BGl_string3184z00zz__srfi4z00, BgL_sourcez00_2031); 
FAILURE(BgL_auxz00_9944,BFALSE,BFALSE);} 
{ /* Llib/srfi4.scm 838 */
 obj_t BgL_tmpz00_9933;
if(
INTEGERP(BgL_tstartz00_2030))
{ /* Llib/srfi4.scm 838 */
BgL_tmpz00_9933 = BgL_tstartz00_2030
; }  else 
{ 
 obj_t BgL_auxz00_9936;
BgL_auxz00_9936 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(33208L), BGl_string3345z00zz__srfi4z00, BGl_string3192z00zz__srfi4z00, BgL_tstartz00_2030); 
FAILURE(BgL_auxz00_9936,BFALSE,BFALSE);} 
BgL_auxz00_9932 = 
(long)CINT(BgL_tmpz00_9933); } 
if(
BGL_F64VECTORP(BgL_targetz00_2029))
{ /* Llib/srfi4.scm 838 */
BgL_auxz00_9925 = BgL_targetz00_2029
; }  else 
{ 
 obj_t BgL_auxz00_9928;
BgL_auxz00_9928 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(33208L), BGl_string3345z00zz__srfi4z00, BGl_string3184z00zz__srfi4z00, BgL_targetz00_2029); 
FAILURE(BgL_auxz00_9928,BFALSE,BFALSE);} 
return 
BGl_f64vectorzd2copyz12zc0zz__srfi4z00(BgL_auxz00_9925, BgL_auxz00_9932, BgL_auxz00_9941, 
BINT(0L), 
BINT(BgL_sendz00_2035));} } } break;case 4L : 

{ /* Llib/srfi4.scm 838 */
 obj_t BgL_sstartz00_2036;
{ 
 obj_t BgL_auxz00_9951;
if(
VECTORP(BgL_opt1334z00_221))
{ /* Llib/srfi4.scm 838 */
BgL_auxz00_9951 = BgL_opt1334z00_221
; }  else 
{ 
 obj_t BgL_auxz00_9954;
BgL_auxz00_9954 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(33208L), BGl_string3345z00zz__srfi4z00, BGl_string3187z00zz__srfi4z00, BgL_opt1334z00_221); 
FAILURE(BgL_auxz00_9954,BFALSE,BFALSE);} 
BgL_sstartz00_2036 = 
VECTOR_REF(BgL_auxz00_9951,3L); } 
{ /* Llib/srfi4.scm 838 */
 long BgL_sendz00_2037;
{ /* Llib/srfi4.scm 838 */
 obj_t BgL_xz00_2838;
if(
BGL_F64VECTORP(BgL_sourcez00_2031))
{ /* Llib/srfi4.scm 838 */
BgL_xz00_2838 = BgL_sourcez00_2031; }  else 
{ 
 obj_t BgL_auxz00_9961;
BgL_auxz00_9961 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(33208L), BGl_string3345z00zz__srfi4z00, BGl_string3184z00zz__srfi4z00, BgL_sourcez00_2031); 
FAILURE(BgL_auxz00_9961,BFALSE,BFALSE);} 
BgL_sendz00_2037 = 
BGL_HVECTOR_LENGTH(BgL_xz00_2838); } 
{ /* Llib/srfi4.scm 838 */

{ /* Llib/srfi4.scm 838 */
 obj_t BgL_auxz00_9982; long BgL_auxz00_9973; obj_t BgL_auxz00_9966;
if(
BGL_F64VECTORP(BgL_sourcez00_2031))
{ /* Llib/srfi4.scm 838 */
BgL_auxz00_9982 = BgL_sourcez00_2031
; }  else 
{ 
 obj_t BgL_auxz00_9985;
BgL_auxz00_9985 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(33208L), BGl_string3345z00zz__srfi4z00, BGl_string3184z00zz__srfi4z00, BgL_sourcez00_2031); 
FAILURE(BgL_auxz00_9985,BFALSE,BFALSE);} 
{ /* Llib/srfi4.scm 838 */
 obj_t BgL_tmpz00_9974;
if(
INTEGERP(BgL_tstartz00_2030))
{ /* Llib/srfi4.scm 838 */
BgL_tmpz00_9974 = BgL_tstartz00_2030
; }  else 
{ 
 obj_t BgL_auxz00_9977;
BgL_auxz00_9977 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(33208L), BGl_string3345z00zz__srfi4z00, BGl_string3192z00zz__srfi4z00, BgL_tstartz00_2030); 
FAILURE(BgL_auxz00_9977,BFALSE,BFALSE);} 
BgL_auxz00_9973 = 
(long)CINT(BgL_tmpz00_9974); } 
if(
BGL_F64VECTORP(BgL_targetz00_2029))
{ /* Llib/srfi4.scm 838 */
BgL_auxz00_9966 = BgL_targetz00_2029
; }  else 
{ 
 obj_t BgL_auxz00_9969;
BgL_auxz00_9969 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(33208L), BGl_string3345z00zz__srfi4z00, BGl_string3184z00zz__srfi4z00, BgL_targetz00_2029); 
FAILURE(BgL_auxz00_9969,BFALSE,BFALSE);} 
return 
BGl_f64vectorzd2copyz12zc0zz__srfi4z00(BgL_auxz00_9966, BgL_auxz00_9973, BgL_auxz00_9982, BgL_sstartz00_2036, 
BINT(BgL_sendz00_2037));} } } } break;case 5L : 

{ /* Llib/srfi4.scm 838 */
 obj_t BgL_sstartz00_2038;
{ 
 obj_t BgL_auxz00_9991;
if(
VECTORP(BgL_opt1334z00_221))
{ /* Llib/srfi4.scm 838 */
BgL_auxz00_9991 = BgL_opt1334z00_221
; }  else 
{ 
 obj_t BgL_auxz00_9994;
BgL_auxz00_9994 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(33208L), BGl_string3345z00zz__srfi4z00, BGl_string3187z00zz__srfi4z00, BgL_opt1334z00_221); 
FAILURE(BgL_auxz00_9994,BFALSE,BFALSE);} 
BgL_sstartz00_2038 = 
VECTOR_REF(BgL_auxz00_9991,3L); } 
{ /* Llib/srfi4.scm 838 */
 obj_t BgL_sendz00_2039;
{ 
 obj_t BgL_auxz00_9999;
if(
VECTORP(BgL_opt1334z00_221))
{ /* Llib/srfi4.scm 838 */
BgL_auxz00_9999 = BgL_opt1334z00_221
; }  else 
{ 
 obj_t BgL_auxz00_10002;
BgL_auxz00_10002 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(33208L), BGl_string3345z00zz__srfi4z00, BGl_string3187z00zz__srfi4z00, BgL_opt1334z00_221); 
FAILURE(BgL_auxz00_10002,BFALSE,BFALSE);} 
BgL_sendz00_2039 = 
VECTOR_REF(BgL_auxz00_9999,4L); } 
{ /* Llib/srfi4.scm 838 */

{ /* Llib/srfi4.scm 838 */
 obj_t BgL_auxz00_10023; long BgL_auxz00_10014; obj_t BgL_auxz00_10007;
if(
BGL_F64VECTORP(BgL_sourcez00_2031))
{ /* Llib/srfi4.scm 838 */
BgL_auxz00_10023 = BgL_sourcez00_2031
; }  else 
{ 
 obj_t BgL_auxz00_10026;
BgL_auxz00_10026 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(33208L), BGl_string3345z00zz__srfi4z00, BGl_string3184z00zz__srfi4z00, BgL_sourcez00_2031); 
FAILURE(BgL_auxz00_10026,BFALSE,BFALSE);} 
{ /* Llib/srfi4.scm 838 */
 obj_t BgL_tmpz00_10015;
if(
INTEGERP(BgL_tstartz00_2030))
{ /* Llib/srfi4.scm 838 */
BgL_tmpz00_10015 = BgL_tstartz00_2030
; }  else 
{ 
 obj_t BgL_auxz00_10018;
BgL_auxz00_10018 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(33208L), BGl_string3345z00zz__srfi4z00, BGl_string3192z00zz__srfi4z00, BgL_tstartz00_2030); 
FAILURE(BgL_auxz00_10018,BFALSE,BFALSE);} 
BgL_auxz00_10014 = 
(long)CINT(BgL_tmpz00_10015); } 
if(
BGL_F64VECTORP(BgL_targetz00_2029))
{ /* Llib/srfi4.scm 838 */
BgL_auxz00_10007 = BgL_targetz00_2029
; }  else 
{ 
 obj_t BgL_auxz00_10010;
BgL_auxz00_10010 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(33208L), BGl_string3345z00zz__srfi4z00, BGl_string3184z00zz__srfi4z00, BgL_targetz00_2029); 
FAILURE(BgL_auxz00_10010,BFALSE,BFALSE);} 
return 
BGl_f64vectorzd2copyz12zc0zz__srfi4z00(BgL_auxz00_10007, BgL_auxz00_10014, BgL_auxz00_10023, BgL_sstartz00_2038, BgL_sendz00_2039);} } } } break;
default: 
{ /* Llib/srfi4.scm 838 */
 long BgL_arg1732z00_2040;
{ 
 obj_t BgL_auxz00_10031;
if(
VECTORP(BgL_opt1334z00_221))
{ /* Llib/srfi4.scm 838 */
BgL_auxz00_10031 = BgL_opt1334z00_221
; }  else 
{ 
 obj_t BgL_auxz00_10034;
BgL_auxz00_10034 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(33208L), BGl_string3346z00zz__srfi4z00, BGl_string3187z00zz__srfi4z00, BgL_opt1334z00_221); 
FAILURE(BgL_auxz00_10034,BFALSE,BFALSE);} 
BgL_arg1732z00_2040 = 
VECTOR_LENGTH(BgL_auxz00_10031); } 
return 
BGl_errorz00zz__errorz00(BGl_symbol3347z00zz__srfi4z00, BGl_string3308z00zz__srfi4z00, 
BINT(BgL_arg1732z00_2040));} } } } } } 

}



/* 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 */
if(
(BgL_tstartz00_217<0L))
{ /* Llib/srfi4.scm 838 */
BGl_errorz00zz__errorz00(BGl_string3348z00zz__srfi4z00, BGl_string3309z00zz__srfi4z00, 
BINT(BgL_tstartz00_217)); }  else 
{ /* Llib/srfi4.scm 838 */
 bool_t BgL_test4292z00_10046;
{ /* Llib/srfi4.scm 838 */
 long BgL_n1z00_2840;
{ /* Llib/srfi4.scm 838 */
 obj_t BgL_tmpz00_10047;
if(
INTEGERP(BgL_sstartz00_219))
{ /* Llib/srfi4.scm 838 */
BgL_tmpz00_10047 = BgL_sstartz00_219
; }  else 
{ 
 obj_t BgL_auxz00_10050;
BgL_auxz00_10050 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(33208L), BGl_string3348z00zz__srfi4z00, BGl_string3192z00zz__srfi4z00, BgL_sstartz00_219); 
FAILURE(BgL_auxz00_10050,BFALSE,BFALSE);} 
BgL_n1z00_2840 = 
(long)CINT(BgL_tmpz00_10047); } 
BgL_test4292z00_10046 = 
(BgL_n1z00_2840<0L); } 
if(BgL_test4292z00_10046)
{ /* Llib/srfi4.scm 838 */
BGl_errorz00zz__errorz00(BGl_string3348z00zz__srfi4z00, BGl_string3310z00zz__srfi4z00, BgL_sstartz00_219); }  else 
{ /* Llib/srfi4.scm 838 */
 bool_t BgL_test4294z00_10057;
{ /* Llib/srfi4.scm 838 */
 long BgL_arg1741z00_2054;
BgL_arg1741z00_2054 = 
BGL_HVECTOR_LENGTH(BgL_sourcez00_218); 
{ /* Llib/srfi4.scm 838 */
 long BgL_n1z00_2842;
{ /* Llib/srfi4.scm 838 */
 obj_t BgL_tmpz00_10059;
if(
INTEGERP(BgL_sendz00_220))
{ /* Llib/srfi4.scm 838 */
BgL_tmpz00_10059 = BgL_sendz00_220
; }  else 
{ 
 obj_t BgL_auxz00_10062;
BgL_auxz00_10062 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(33208L), BGl_string3348z00zz__srfi4z00, BGl_string3192z00zz__srfi4z00, BgL_sendz00_220); 
FAILURE(BgL_auxz00_10062,BFALSE,BFALSE);} 
BgL_n1z00_2842 = 
(long)CINT(BgL_tmpz00_10059); } 
BgL_test4294z00_10057 = 
(BgL_n1z00_2842>BgL_arg1741z00_2054); } } 
if(BgL_test4294z00_10057)
{ /* Llib/srfi4.scm 838 */
BGl_errorz00zz__errorz00(BGl_string3348z00zz__srfi4z00, BGl_string3311z00zz__srfi4z00, BgL_sendz00_220); }  else 
{ /* Llib/srfi4.scm 838 */
 bool_t BgL_test4296z00_10069;
{ /* Llib/srfi4.scm 838 */
 long BgL_n1z00_2844; long BgL_n2z00_2845;
{ /* Llib/srfi4.scm 838 */
 obj_t BgL_tmpz00_10070;
if(
INTEGERP(BgL_sendz00_220))
{ /* Llib/srfi4.scm 838 */
BgL_tmpz00_10070 = BgL_sendz00_220
; }  else 
{ 
 obj_t BgL_auxz00_10073;
BgL_auxz00_10073 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(33208L), BGl_string3348z00zz__srfi4z00, BGl_string3192z00zz__srfi4z00, BgL_sendz00_220); 
FAILURE(BgL_auxz00_10073,BFALSE,BFALSE);} 
BgL_n1z00_2844 = 
(long)CINT(BgL_tmpz00_10070); } 
{ /* Llib/srfi4.scm 838 */
 obj_t BgL_tmpz00_10078;
if(
INTEGERP(BgL_sstartz00_219))
{ /* Llib/srfi4.scm 838 */
BgL_tmpz00_10078 = BgL_sstartz00_219
; }  else 
{ 
 obj_t BgL_auxz00_10081;
BgL_auxz00_10081 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(33208L), BGl_string3348z00zz__srfi4z00, BGl_string3192z00zz__srfi4z00, BgL_sstartz00_219); 
FAILURE(BgL_auxz00_10081,BFALSE,BFALSE);} 
BgL_n2z00_2845 = 
(long)CINT(BgL_tmpz00_10078); } 
BgL_test4296z00_10069 = 
(BgL_n1z00_2844<BgL_n2z00_2845); } 
if(BgL_test4296z00_10069)
{ /* Llib/srfi4.scm 838 */
BGl_errorz00zz__errorz00(BGl_string3348z00zz__srfi4z00, BGl_string3311z00zz__srfi4z00, BgL_sendz00_220); }  else 
{ /* Llib/srfi4.scm 838 */
 bool_t BgL_test4299z00_10088;
{ /* Llib/srfi4.scm 838 */
 long BgL_a1233z00_2051;
{ /* Llib/srfi4.scm 838 */
 long BgL_za71za7_2846; long BgL_za72za7_2847;
{ /* Llib/srfi4.scm 838 */
 obj_t BgL_tmpz00_10089;
if(
INTEGERP(BgL_sendz00_220))
{ /* Llib/srfi4.scm 838 */
BgL_tmpz00_10089 = BgL_sendz00_220
; }  else 
{ 
 obj_t BgL_auxz00_10092;
BgL_auxz00_10092 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(33208L), BGl_string3348z00zz__srfi4z00, BGl_string3192z00zz__srfi4z00, BgL_sendz00_220); 
FAILURE(BgL_auxz00_10092,BFALSE,BFALSE);} 
BgL_za71za7_2846 = 
(long)CINT(BgL_tmpz00_10089); } 
{ /* Llib/srfi4.scm 838 */
 obj_t BgL_tmpz00_10097;
if(
INTEGERP(BgL_sstartz00_219))
{ /* Llib/srfi4.scm 838 */
BgL_tmpz00_10097 = BgL_sstartz00_219
; }  else 
{ 
 obj_t BgL_auxz00_10100;
BgL_auxz00_10100 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(33208L), BGl_string3348z00zz__srfi4z00, BGl_string3192z00zz__srfi4z00, BgL_sstartz00_219); 
FAILURE(BgL_auxz00_10100,BFALSE,BFALSE);} 
BgL_za72za7_2847 = 
(long)CINT(BgL_tmpz00_10097); } 
BgL_a1233z00_2051 = 
(BgL_za71za7_2846-BgL_za72za7_2847); } 
{ /* Llib/srfi4.scm 838 */
 long BgL_b1234z00_2052;
BgL_b1234z00_2052 = 
BGL_HVECTOR_LENGTH(BgL_targetz00_216); 
{ /* Llib/srfi4.scm 838 */

BgL_test4299z00_10088 = 
(BgL_a1233z00_2051>BgL_b1234z00_2052); } } } 
if(BgL_test4299z00_10088)
{ /* Llib/srfi4.scm 838 */
 long BgL_arg1740z00_2050;
{ /* Llib/srfi4.scm 838 */
 long BgL_za71za7_2851; long BgL_za72za7_2852;
{ /* Llib/srfi4.scm 838 */
 obj_t BgL_tmpz00_10108;
if(
INTEGERP(BgL_sendz00_220))
{ /* Llib/srfi4.scm 838 */
BgL_tmpz00_10108 = BgL_sendz00_220
; }  else 
{ 
 obj_t BgL_auxz00_10111;
BgL_auxz00_10111 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(33208L), BGl_string3348z00zz__srfi4z00, BGl_string3192z00zz__srfi4z00, BgL_sendz00_220); 
FAILURE(BgL_auxz00_10111,BFALSE,BFALSE);} 
BgL_za71za7_2851 = 
(long)CINT(BgL_tmpz00_10108); } 
{ /* Llib/srfi4.scm 838 */
 obj_t BgL_tmpz00_10116;
if(
INTEGERP(BgL_sstartz00_219))
{ /* Llib/srfi4.scm 838 */
BgL_tmpz00_10116 = BgL_sstartz00_219
; }  else 
{ 
 obj_t BgL_auxz00_10119;
BgL_auxz00_10119 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(33208L), BGl_string3348z00zz__srfi4z00, BGl_string3192z00zz__srfi4z00, BgL_sstartz00_219); 
FAILURE(BgL_auxz00_10119,BFALSE,BFALSE);} 
BgL_za72za7_2852 = 
(long)CINT(BgL_tmpz00_10116); } 
BgL_arg1740z00_2050 = 
(BgL_za71za7_2851-BgL_za72za7_2852); } 
BGl_errorz00zz__errorz00(BGl_string3348z00zz__srfi4z00, BGl_string3312z00zz__srfi4z00, 
BINT(BgL_arg1740z00_2050)); }  else 
{ /* Llib/srfi4.scm 838 */BFALSE; } } } } } 
{ /* Llib/srfi4.scm 838 */
 long BgL_auxz00_10136; long BgL_tmpz00_10127;
{ /* Llib/srfi4.scm 838 */
 obj_t BgL_tmpz00_10137;
if(
INTEGERP(BgL_sendz00_220))
{ /* Llib/srfi4.scm 838 */
BgL_tmpz00_10137 = BgL_sendz00_220
; }  else 
{ 
 obj_t BgL_auxz00_10140;
BgL_auxz00_10140 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(33208L), BGl_string3348z00zz__srfi4z00, BGl_string3192z00zz__srfi4z00, BgL_sendz00_220); 
FAILURE(BgL_auxz00_10140,BFALSE,BFALSE);} 
BgL_auxz00_10136 = 
(long)CINT(BgL_tmpz00_10137); } 
{ /* Llib/srfi4.scm 838 */
 obj_t BgL_tmpz00_10128;
if(
INTEGERP(BgL_sstartz00_219))
{ /* Llib/srfi4.scm 838 */
BgL_tmpz00_10128 = BgL_sstartz00_219
; }  else 
{ 
 obj_t BgL_auxz00_10131;
BgL_auxz00_10131 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string3164z00zz__srfi4z00, 
BINT(33208L), BGl_string3348z00zz__srfi4z00, BGl_string3192z00zz__srfi4z00, BgL_sstartz00_219); 
FAILURE(BgL_auxz00_10131,BFALSE,BFALSE);} 
BgL_tmpz00_10127 = 
(long)CINT(BgL_tmpz00_10128); } 
BGL_F64VECTOR_COPY(BgL_targetz00_216, BgL_tstartz00_217, BgL_sourcez00_218, BgL_tmpz00_10127, BgL_auxz00_10136); } 
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_string3349z00zz__srfi4z00)); 
BGl_modulezd2initializa7ationz75zz__hashz00(254893342L, 
BSTRING_TO_STRING(BGl_string3349z00zz__srfi4z00)); 
BGl_modulezd2initializa7ationz75zz__readerz00(220648206L, 
BSTRING_TO_STRING(BGl_string3349z00zz__srfi4z00)); 
BGl_modulezd2initializa7ationz75zz__paramz00(453939141L, 
BSTRING_TO_STRING(BGl_string3349z00zz__srfi4z00)); 
return 
BGl_modulezd2initializa7ationz75zz__r4_symbols_6_4z00(115192690L, 
BSTRING_TO_STRING(BGl_string3349z00zz__srfi4z00));} 

}

#ifdef __cplusplus
}
#endif
