Public feed
#889468
/*===========================================================================*/
/* (blib.scm) */
/* Bigloo (3.0c) */
/* Inria -- Sophia Antipolis (c) Tue Dec 11 11:07:30 CET 2007 */
/*===========================================================================*/
/* COMPILATION: (/usr/bin/bigloo -cc /home/ambro/roadsend-cross-build/bin/gcc-ignoremarch -mkaddlib -unsafev -copt -DPCC_LINUX -srfi PCC_LINUX -O3 -copt -D_GNU_SOURCE -g -copt -fPIC -c blib.scm -o blib_s.o)*/
/* GC selection */
#define THE_GC BOEHM_GC
/* debug mode */
#define BIGLOO_DEBUG 1
#include <bigloo.h>
#include <sys/types.h>
#include <sys/stat.h>
#include <sys/time.h>
#include <time.h>
#ifdef __cplusplus
extern "C" {
#endif
/* Object type definitions */
typedef struct BgL_z62processzd2exceptionzb0_bgl {
header_t header;
obj_t widening;
obj_t BgL_fnamez00;
obj_t BgL_locationz00;
obj_t BgL_procz00;
obj_t BgL_msgz00;
obj_t BgL_objz00;
} *BgL_z62processzd2exceptionzb0_bglt;
typedef struct BgL_z62iozd2parsezd2errorz62_bgl {
header_t header;
obj_t widening;
obj_t BgL_fnamez00;
obj_t BgL_locationz00;
obj_t BgL_procz00;
obj_t BgL_msgz00;
obj_t BgL_objz00;
} *BgL_z62iozd2parsezd2errorz62_bglt;
typedef struct BgL_z62iozd2writezd2errorz62_bgl {
header_t header;
obj_t widening;
obj_t BgL_fnamez00;
obj_t BgL_locationz00;
obj_t BgL_procz00;
obj_t BgL_msgz00;
obj_t BgL_objz00;
} *BgL_z62iozd2writezd2errorz62_bglt;
typedef struct BgL_z62iozd2errorzb0_bgl {
header_t header;
obj_t widening;
obj_t BgL_fnamez00;
obj_t BgL_locationz00;
obj_t BgL_procz00;
obj_t BgL_msgz00;
obj_t BgL_objz00;
} *BgL_z62iozd2errorzb0_bglt;
typedef struct BgL_z62iozd2readzd2errorz62_bgl {
header_t header;
obj_t widening;
obj_t BgL_fnamez00;
obj_t BgL_locationz00;
obj_t BgL_procz00;
obj_t BgL_msgz00;
obj_t BgL_objz00;
} *BgL_z62iozd2readzd2errorz62_bglt;
typedef struct BgL_z62typezd2errorzb0_bgl {
header_t header;
obj_t widening;
obj_t BgL_fnamez00;
obj_t BgL_locationz00;
obj_t BgL_procz00;
obj_t BgL_msgz00;
obj_t BgL_objz00;
obj_t BgL_typez00;
} *BgL_z62typezd2errorzb0_bglt;
typedef struct BgL_z62errorz62_bgl {
header_t header;
obj_t widening;
obj_t BgL_fnamez00;
obj_t BgL_locationz00;
obj_t BgL_procz00;
obj_t BgL_msgz00;
obj_t BgL_objz00;
} *BgL_z62errorz62_bglt;
typedef struct BgL_z62iozd2portzd2errorz62_bgl {
header_t header;
obj_t widening;
obj_t BgL_fnamez00;
obj_t BgL_locationz00;
obj_t BgL_procz00;
obj_t BgL_msgz00;
obj_t BgL_objz00;
} *BgL_z62iozd2portzd2errorz62_bglt;
typedef struct BgL_z62iozd2malformedzd2urlzd2errorzb0_bgl {
header_t header;
obj_t widening;
obj_t BgL_fnamez00;
obj_t BgL_locationz00;
obj_t BgL_procz00;
obj_t BgL_msgz00;
obj_t BgL_objz00;
} *BgL_z62iozd2malformedzd2urlzd2errorzb0_bglt;
typedef struct BgL_z62iozd2filezd2notzd2foundzd2errorz62_bgl {
header_t header;
obj_t widening;
obj_t BgL_fnamez00;
obj_t BgL_locationz00;
obj_t BgL_procz00;
obj_t BgL_msgz00;
obj_t BgL_objz00;
} *BgL_z62iozd2filezd2notzd2foundzd2errorz62_bglt;
typedef struct BgL_z62iozd2sigpipezd2errorz62_bgl {
header_t header;
obj_t widening;
obj_t BgL_fnamez00;
obj_t BgL_locationz00;
obj_t BgL_procz00;
obj_t BgL_msgz00;
obj_t BgL_objz00;
} *BgL_z62iozd2sigpipezd2errorz62_bglt;
typedef struct BgL_z62iozd2unknownzd2hostzd2errorzb0_bgl {
header_t header;
obj_t widening;
obj_t BgL_fnamez00;
obj_t BgL_locationz00;
obj_t BgL_procz00;
obj_t BgL_msgz00;
obj_t BgL_objz00;
} *BgL_z62iozd2unknownzd2hostzd2errorzb0_bglt;
typedef struct BgL_z62exceptionz62_bgl {
header_t header;
obj_t widening;
obj_t BgL_fnamez00;
obj_t BgL_locationz00;
} *BgL_z62exceptionz62_bglt;
typedef struct BgL_z62conditionz62_bgl {
header_t header;
obj_t widening;
} *BgL_z62conditionz62_bglt;
typedef struct BgL_z62evalzd2warningzb0_bgl {
header_t header;
obj_t widening;
obj_t BgL_fnamez00;
obj_t BgL_locationz00;
obj_t BgL_argsz00;
} *BgL_z62evalzd2warningzb0_bglt;
typedef struct BgL_z62iozd2timeoutzd2errorz62_bgl {
header_t header;
obj_t widening;
obj_t BgL_fnamez00;
obj_t BgL_locationz00;
obj_t BgL_procz00;
obj_t BgL_msgz00;
obj_t BgL_objz00;
} *BgL_z62iozd2timeoutzd2errorz62_bglt;
typedef struct BgL_z62warningz62_bgl {
header_t header;
obj_t widening;
obj_t BgL_fnamez00;
obj_t BgL_locationz00;
obj_t BgL_argsz00;
} *BgL_z62warningz62_bglt;
typedef struct BgL_z62iozd2closedzd2errorz62_bgl {
header_t header;
obj_t widening;
obj_t BgL_fnamez00;
obj_t BgL_locationz00;
obj_t BgL_procz00;
obj_t BgL_msgz00;
obj_t BgL_objz00;
} *BgL_z62iozd2closedzd2errorz62_bglt;
typedef struct BgL_tarzd2headerzd2_bgl {
header_t header;
obj_t widening;
obj_t BgL_namez00;
long BgL_modez00;
long BgL_uidz00;
long BgL_gidz00;
long BgL_siza7eza7;
obj_t BgL_mtimez00;
long BgL_checksumz00;
obj_t BgL_typez00;
obj_t BgL_linknamez00;
obj_t BgL_magicz00;
obj_t BgL_unamez00;
obj_t BgL_gnamez00;
long BgL_devmajorz00;
long BgL_devminorz00;
} *BgL_tarzd2headerzd2_bglt;
BGL_EXPORTED_DECL struct tm* BGl_mktimez00zzblibz00(int, int, int, int, int, int);
BGL_EXPORTED_DECL double BGl_statzd2ctimezd2zzblibz00(struct stat*);
BGL_EXPORTED_DECL struct stat* BGl_statz00zzblibz00(obj_t);
static obj_t BGl__daylightz00zzblibz00(obj_t);
static obj_t BGl__environz00zzblibz00(obj_t);
static obj_t BGl__removez00zzblibz00(obj_t, obj_t, obj_t);
static obj_t BGl__tmzd2mdayzd2zzblibz00(obj_t, obj_t);
BGL_IMPORT obj_t bstring_to_symbol(obj_t);
BGL_EXPORTED_DECL int BGl_tmzd2hourzd2zzblibz00(struct tm*);
BGL_EXPORTED_DECL struct tm* BGl_makezd2tmzd2zzblibz00();
static obj_t BGl_zc3anonymousza31512za3blibze2scmza3449ze3z61zzblibz00(obj_t);
BGL_EXPORTED_DECL double BGl_statzd2mtimezd2zzblibz00(struct stat*);
BGL_EXPORTED_DECL int BGl_statzd2gidzd2zzblibz00(struct stat*);
BGL_IMPORT obj_t BGl_consza2za2zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
static obj_t BGl_requirezd2initializa7ationz75zzblibz00 = BUNSPEC;
BGL_IMPORT obj_t BGl_notifyzd2assertzd2failz00zz__evalz00(obj_t, obj_t, obj_t);
static obj_t BGl__statzd2devzd2zzblibz00(obj_t, obj_t);
static obj_t BGl_proczd2outputzd2zzblibz00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_stringza2zd2ze3stringzd2listz41zzblibz00(char**, obj_t);
BGL_EXPORTED_DECL obj_t BGl_deletezd2duplicateszd2zzblibz00(obj_t);
static obj_t BGl_zc3anonymousza31618za3blibze2scmza3543ze3z61zzblibz00(obj_t, obj_t, obj_t);
static obj_t BGl_zc3anonymousza31624za3blibze2scmza3545ze3z61zzblibz00(obj_t, obj_t);
static obj_t BGl_z52carszb2cdrszb2z52zzblibz00(obj_t, obj_t);
BGL_EXPORTED_DECL bool_t BGl_statzf3zf3zzblibz00(obj_t);
static obj_t BGl__statzd2siza7ez75zzblibz00(obj_t, obj_t);
static obj_t BGl_list2467z00zzblibz00 = BUNSPEC;
static obj_t BGl_list2472z00zzblibz00 = BUNSPEC;
BGL_EXPORTED_DECL obj_t BGl_stringzd2joinzd2zzblibz00(obj_t, obj_t, obj_t);
static obj_t BGl__statzd2modezd2zzblibz00(obj_t, obj_t);
static obj_t BGl_list2475z00zzblibz00 = BUNSPEC;
static obj_t BGl_list2476z00zzblibz00 = BUNSPEC;
BGL_IMPORT obj_t BGl_appendz12z12zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
static obj_t BGl_list2480z00zzblibz00 = BUNSPEC;
static obj_t BGl_list2479z00zzblibz00 = BUNSPEC;
static obj_t BGl_list2481z00zzblibz00 = BUNSPEC;
static obj_t BGl_list2484z00zzblibz00 = BUNSPEC;
BGL_EXPORTED_DECL bool_t BGl_tmzf3zf3zzblibz00(obj_t);
BGL_EXPORTED_DECL double BGl_statzd2atimezd2zzblibz00(struct stat*);
static obj_t BGl_list2500z00zzblibz00 = BUNSPEC;
static obj_t BGl_list2489z00zzblibz00 = BUNSPEC;
static obj_t BGl__stringza2zd2ze3stringzd2listz41zzblibz00(obj_t, obj_t);
BGL_EXPORTED_DECL int BGl_statzd2uidzd2zzblibz00(struct stat*);
static obj_t BGl_list2492z00zzblibz00 = BUNSPEC;
BGL_IMPORT bool_t BGl_integerzf3zf3zz__r4_numbers_6_5_fixnumz00(obj_t);
static obj_t BGl__stmodezf3zf3zzblibz00(obj_t, obj_t);
BGL_EXPORTED_DECL int BGl_tmzd2yearzd2zzblibz00(struct tm*);
static obj_t BGl_list2516z00zzblibz00 = BUNSPEC;
static obj_t BGl_list2521z00zzblibz00 = BUNSPEC;
BGL_EXPORTED_DECL int BGl_tmzd2minzd2zzblibz00(struct tm*);
static obj_t BGl_cerrorz00zzblibz00(obj_t, obj_t);
static obj_t BGl_list2540z00zzblibz00 = BUNSPEC;
static obj_t BGl_list2552z00zzblibz00 = BUNSPEC;
BGL_IMPORT obj_t BGl_everyz00zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
BGL_EXPORTED_DECL int BGl_bstmodezd2ze3stmodez31zzblibz00(obj_t);
static obj_t BGl_list2561z00zzblibz00 = BUNSPEC;
static obj_t BGl_list2562z00zzblibz00 = BUNSPEC;
BGL_EXPORTED_DECL char** BGl_stringzd2listzd2ze3stringza2z41zzblibz00(obj_t);
static obj_t BGl_list2565z00zzblibz00 = BUNSPEC;
static obj_t BGl__tmzd2seczd2zzblibz00(obj_t, obj_t);
static obj_t BGl_list2568z00zzblibz00 = BUNSPEC;
BGL_EXPORTED_DECL obj_t BGl_setenvz00zzblibz00(char *, char *);
static obj_t BGl_list2580z00zzblibz00 = BUNSPEC;
static obj_t BGl_list2579z00zzblibz00 = BUNSPEC;
static obj_t BGl_list2581z00zzblibz00 = BUNSPEC;
static obj_t BGl_list2582z00zzblibz00 = BUNSPEC;
static obj_t BGl_list2584z00zzblibz00 = BUNSPEC;
BGL_EXPORTED_DECL int BGl_tmzd2monzd2zzblibz00(struct tm*);
BGL_EXPORTED_DECL bool_t BGl_fdzd2setzf3z21zzblibz00(obj_t);
BGL_EXPORTED_DECL obj_t BGl_stringzd2ze3hexz31zzblibz00(obj_t);
BGL_IMPORT obj_t BGl_lastzd2pairzd2zz__r4_pairs_and_lists_6_3z00(obj_t);
static obj_t BGl_recurz00zzblibz00(obj_t);
static obj_t BGl_list2628z00zzblibz00 = BUNSPEC;
BGL_EXPORTED_DECL int BGl_statzd2inozd2zzblibz00(struct stat*);
static obj_t BGl_cnstzd2initzd2zzblibz00();
static obj_t BGl__stringzd2listzd2ze3stringza2z41zzblibz00(obj_t, obj_t);
BGL_IMPORT obj_t BGl_unwindzd2untilz12zc0zz__bexitz00(obj_t, obj_t);
static obj_t BGl__statzf3zf3zzblibz00(obj_t, obj_t);
static obj_t BGl_list2678z00zzblibz00 = BUNSPEC;
static obj_t BGl_zc3anonymousza31545za3blibze2scmza3492ze3z61zzblibz00(obj_t, obj_t);
static obj_t BGl_pairzd2foldzd2zzblibz00(obj_t, obj_t, obj_t, obj_t);
static obj_t BGl__lastz00zzblibz00(obj_t, obj_t);
static obj_t BGl__statzd2gidzd2zzblibz00(obj_t, obj_t);
BGL_EXPORTED_DECL int BGl_statzd2rdevzd2zzblibz00(struct stat*);
static obj_t BGl__bstmodezd2ze3stmodez31zzblibz00(obj_t, obj_t);
static obj_t BGl__charzd2ze3hexz31zzblibz00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_strftimez00zzblibz00(struct tm*, obj_t);
static obj_t BGl_foldz00zzblibz00(obj_t, obj_t, obj_t, obj_t);
static obj_t BGl_list2814z00zzblibz00 = BUNSPEC;
BGL_EXPORTED_DECL obj_t BGl_removez00zzblibz00(obj_t, obj_t);
static obj_t BGl__statzd2uidzd2zzblibz00(obj_t, obj_t);
BGL_EXPORTED_DECL int BGl_timeza7oneza7zzblibz00();
BGL_EXPORTED_DECL obj_t BGl_stmodezd2ze3bstmodez31zzblibz00(int);
static obj_t BGl_zc3anonymousza31589za3blibze2scmza3531ze3z61zzblibz00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_lsetzd2differencezd2zzblibz00(obj_t, obj_t, obj_t);
static obj_t BGl__stringzd2joinzd2zzblibz00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_modulezd2initializa7ationz75zzblibz00(long, char *);
BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__r4_output_6_10_3z00(long, char *);
BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__r4_ports_6_10_1z00(long, char *);
BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__r4_control_features_6_9z00(long, char *);
BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__r4_strings_6_7z00(long, char *);
BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__r4_numbers_6_5_fixnumz00(long, char *);
BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__r4_numbers_6_5z00(long, char *);
BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__r4_pairs_and_lists_6_3z00(long, char *);
BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__r4_equivalence_6_2z00(long, char *);
BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__evenvz00(long, char *);
BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__evalz00(long, char *);
BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__bexitz00(long, char *);
BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__errorz00(long, char *);
static obj_t BGl_recurz72z72z00zzblibz00(obj_t, obj_t);
static obj_t BGl__statzd2nlinkzd2zzblibz00(obj_t, obj_t);
BGL_IMPORT obj_t make_string(long, unsigned char);
static obj_t BGl_transposez00zzblibz00(obj_t);
static obj_t BGl_stringzd2beforezd2zzblibz00(obj_t, unsigned char);
BGL_IMPORT long bgl_list_length(obj_t);
static obj_t BGl_nullzd2listzf3z21zzblibz00(obj_t);
static obj_t BGl_zc3anonymousza31465za3blibze2scmza3423ze3z61zzblibz00(obj_t);
static obj_t BGl__makezd2tmzd2zzblibz00(obj_t);
static obj_t BGl__tmzd2hourzd2zzblibz00(obj_t, obj_t);
static obj_t BGl_zc3exitza31423za3blibze2scmza3351ze3z61zzblibz00(obj_t, obj_t);
static obj_t BGl_z52cdrsz52zzblibz00(obj_t);
BGL_EXPORTED_DECL obj_t BGl_environz00zzblibz00();
BGL_IMPORT obj_t BGl_errorzf2czd2locationz20zz__errorz00(obj_t, obj_t, obj_t, char *, long);
BGL_IMPORT obj_t bgl_reverse(obj_t);
static obj_t BGl__statzd2inozd2zzblibz00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_lsetzd2unionz12zc0zzblibz00(obj_t, obj_t);
BGL_EXPORTED_DECL int BGl_tmzd2mdayzd2zzblibz00(struct tm*);
static obj_t BGl_symbol2455z00zzblibz00 = BUNSPEC;
static obj_t BGl__stringzd2ze3hexz31zzblibz00(obj_t, obj_t);
static obj_t BGl_symbol2457z00zzblibz00 = BUNSPEC;
BGL_EXPORTED_DECL bool_t BGl_stringza2zf3z51zzblibz00(obj_t);
static obj_t BGl_symbol2461z00zzblibz00 = BUNSPEC;
static obj_t BGl_symbol2463z00zzblibz00 = BUNSPEC;
static obj_t BGl_symbol2468z00zzblibz00 = BUNSPEC;
static obj_t BGl_symbol2470z00zzblibz00 = BUNSPEC;
static obj_t BGl_symbol2473z00zzblibz00 = BUNSPEC;
static obj_t BGl__mktimez00zzblibz00(obj_t, obj_t);
static obj_t BGl_symbol2477z00zzblibz00 = BUNSPEC;
BGL_IMPORT obj_t get_output_string(obj_t);
static obj_t BGl_symbol2482z00zzblibz00 = BUNSPEC;
static obj_t BGl_symbol2485z00zzblibz00 = BUNSPEC;
static obj_t BGl_symbol2487z00zzblibz00 = BUNSPEC;
BGL_IMPORT obj_t BGl_deletez00zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t, obj_t);
BGL_IMPORT obj_t open_output_string();
BGL_IMPORT obj_t BGl_stringzd2appendzd2zz__r4_strings_6_7z00(obj_t);
static obj_t BGl_symbol2490z00zzblibz00 = BUNSPEC;
static obj_t BGl_symbol2501z00zzblibz00 = BUNSPEC;
static obj_t BGl_symbol2503z00zzblibz00 = BUNSPEC;
static obj_t BGl_symbol2493z00zzblibz00 = BUNSPEC;
static obj_t BGl_symbol2505z00zzblibz00 = BUNSPEC;
static obj_t BGl_symbol2495z00zzblibz00 = BUNSPEC;
static obj_t BGl_symbol2507z00zzblibz00 = BUNSPEC;
static obj_t BGl_symbol2497z00zzblibz00 = BUNSPEC;
static obj_t BGl_symbol2509z00zzblibz00 = BUNSPEC;
static obj_t BGl_symbol2514z00zzblibz00 = BUNSPEC;
BGL_IMPORT obj_t BGl_withzd2outputzd2tozd2portzd2zz__r4_ports_6_10_1z00(obj_t, obj_t);
static obj_t BGl_symbol2517z00zzblibz00 = BUNSPEC;
static obj_t BGl_symbol2519z00zzblibz00 = BUNSPEC;
static obj_t BGl_symbol2522z00zzblibz00 = BUNSPEC;
BGL_EXPORTED_DECL int BGl_tmzd2seczd2zzblibz00(struct tm*);
static obj_t BGl_symbol2524z00zzblibz00 = BUNSPEC;
static obj_t BGl__stmodezd2ze3bstmodez31zzblibz00(obj_t, obj_t);
BGL_EXPORTED_DECL long BGl_statzd2siza7ez75zzblibz00(struct stat*);
BGL_IMPORT obj_t BGl_filterz00zz__r4_control_features_6_9z00(obj_t, obj_t);
static obj_t BGl_symbol2528z00zzblibz00 = BUNSPEC;
BGL_IMPORT obj_t BGl_memqz00zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
static obj_t BGl_symbol2531z00zzblibz00 = BUNSPEC;
static obj_t BGl_symbol2536z00zzblibz00 = BUNSPEC;
BGL_EXPORTED_DECL int BGl_statzd2modezd2zzblibz00(struct stat*);
static obj_t BGl__lsetzd2differencezd2zzblibz00(obj_t, obj_t, obj_t, obj_t);
BGL_IMPORT obj_t c_substring(obj_t, long, long);
static obj_t BGl_symbol2541z00zzblibz00 = BUNSPEC;
static obj_t BGl_symbol2543z00zzblibz00 = BUNSPEC;
static obj_t BGl_symbol2545z00zzblibz00 = BUNSPEC;
static obj_t BGl_symbol2547z00zzblibz00 = BUNSPEC;
static obj_t BGl_zc3anonymousza31508za3blibze2scmza3447ze3z61zzblibz00(obj_t, obj_t);
static obj_t BGl_symbol2550z00zzblibz00 = BUNSPEC;
static obj_t BGl_symbol2553z00zzblibz00 = BUNSPEC;
static obj_t BGl_symbol2555z00zzblibz00 = BUNSPEC;
BGL_IMPORT obj_t string_to_bstring(char *);
static obj_t BGl_symbol2557z00zzblibz00 = BUNSPEC;
static obj_t BGl_symbol2559z00zzblibz00 = BUNSPEC;
BGL_EXPORTED_DECL obj_t BGl_lastz00zzblibz00(obj_t);
static obj_t BGl_symbol2563z00zzblibz00 = BUNSPEC;
static obj_t BGl__tmzd2yearzd2zzblibz00(obj_t, obj_t);
static obj_t BGl_symbol2566z00zzblibz00 = BUNSPEC;
static obj_t BGl_symbol2569z00zzblibz00 = BUNSPEC;
static obj_t BGl_symbol2571z00zzblibz00 = BUNSPEC;
static obj_t BGl_zc3anonymousza31594za3blibze2scmza3532ze3z61zzblibz00(obj_t, obj_t);
static obj_t BGl_symbol2575z00zzblibz00 = BUNSPEC;
static obj_t BGl_symbol2577z00zzblibz00 = BUNSPEC;
static obj_t BGl__statz00zzblibz00(obj_t, obj_t);
static obj_t BGl_symbol2583z00zzblibz00 = BUNSPEC;
static obj_t BGl_symbol2585z00zzblibz00 = BUNSPEC;
static obj_t BGl_symbol2587z00zzblibz00 = BUNSPEC;
static obj_t BGl_symbol2600z00zzblibz00 = BUNSPEC;
static obj_t BGl_symbol2589z00zzblibz00 = BUNSPEC;
static obj_t BGl_symbol2591z00zzblibz00 = BUNSPEC;
static obj_t BGl_symbol2602z00zzblibz00 = BUNSPEC;
static obj_t BGl_symbol2593z00zzblibz00 = BUNSPEC;
static obj_t BGl_symbol2604z00zzblibz00 = BUNSPEC;
static obj_t BGl__statzd2ctimezd2zzblibz00(obj_t, obj_t);
static obj_t BGl_symbol2595z00zzblibz00 = BUNSPEC;
static obj_t BGl_symbol2607z00zzblibz00 = BUNSPEC;
static obj_t BGl_symbol2597z00zzblibz00 = BUNSPEC;
static obj_t BGl__strftimez00zzblibz00(obj_t, obj_t);
static obj_t BGl_symbol2609z00zzblibz00 = BUNSPEC;
static obj_t BGl_symbol2611z00zzblibz00 = BUNSPEC;
static obj_t BGl_recurz72z72zzblibz00(obj_t, obj_t, obj_t);
static obj_t BGl_symbol2613z00zzblibz00 = BUNSPEC;
static obj_t BGl_symbol2615z00zzblibz00 = BUNSPEC;
static obj_t BGl_symbol2617z00zzblibz00 = BUNSPEC;
static obj_t BGl_symbol2620z00zzblibz00 = BUNSPEC;
static obj_t BGl_symbol2623z00zzblibz00 = BUNSPEC;
BGL_EXPORTED_DECL bool_t BGl_stmodezf3zf3zzblibz00(obj_t);
static obj_t BGl_symbol2625z00zzblibz00 = BUNSPEC;
static obj_t BGl_symbol2629z00zzblibz00 = BUNSPEC;
static obj_t BGl_symbol2631z00zzblibz00 = BUNSPEC;
static obj_t BGl_symbol2633z00zzblibz00 = BUNSPEC;
static obj_t BGl_symbol2635z00zzblibz00 = BUNSPEC;
static obj_t BGl_symbol2637z00zzblibz00 = BUNSPEC;
static obj_t BGl_symbol2639z00zzblibz00 = BUNSPEC;
static obj_t BGl_symbol2642z00zzblibz00 = BUNSPEC;
static obj_t BGl_zc3anonymousza31604za3blibze2scmza3538ze3z61zzblibz00(obj_t, obj_t, obj_t);
static obj_t BGl_symbol2645z00zzblibz00 = BUNSPEC;
static obj_t BGl_symbol2647z00zzblibz00 = BUNSPEC;
static obj_t BGl__fdzd2setzf3z21zzblibz00(obj_t, obj_t);
static obj_t BGl_symbol2650z00zzblibz00 = BUNSPEC;
static obj_t BGl_symbol2652z00zzblibz00 = BUNSPEC;
static obj_t BGl_symbol2655z00zzblibz00 = BUNSPEC;
BGL_IMPORT obj_t BGl_anyz00zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
static obj_t BGl_symbol2657z00zzblibz00 = BUNSPEC;
static obj_t BGl_symbol2659z00zzblibz00 = BUNSPEC;
static obj_t BGl_symbol2663z00zzblibz00 = BUNSPEC;
static obj_t BGl_symbol2665z00zzblibz00 = BUNSPEC;
static obj_t BGl__timeza7oneza7zzblibz00(obj_t);
static obj_t BGl_symbol2667z00zzblibz00 = BUNSPEC;
static obj_t BGl_symbol2669z00zzblibz00 = BUNSPEC;
static obj_t BGl_symbol2671z00zzblibz00 = BUNSPEC;
BGL_EXPORTED_DECL int BGl_daylightz00zzblibz00();
static obj_t BGl_symbol2675z00zzblibz00 = BUNSPEC;
static obj_t BGl_zc3exitza31409za3blibze2scmza3325ze3z61zzblibz00(obj_t);
static obj_t BGl_symbol2679z00zzblibz00 = BUNSPEC;
static obj_t BGl_symbol2681z00zzblibz00 = BUNSPEC;
static obj_t BGl_symbol2683z00zzblibz00 = BUNSPEC;
BGL_IMPORT obj_t BGl_formatz00zz__r4_output_6_10_3z00(obj_t, obj_t);
static obj_t BGl_symbol2685z00zzblibz00 = BUNSPEC;
static obj_t BGl__statzd2mtimezd2zzblibz00(obj_t, obj_t);
static obj_t BGl_symbol2688z00zzblibz00 = BUNSPEC;
static obj_t BGl_symbol2690z00zzblibz00 = BUNSPEC;
static obj_t BGl_symbol2701z00zzblibz00 = BUNSPEC;
static obj_t BGl_symbol2692z00zzblibz00 = BUNSPEC;
static obj_t BGl_symbol2703z00zzblibz00 = BUNSPEC;
static obj_t BGl_symbol2694z00zzblibz00 = BUNSPEC;
static obj_t BGl_symbol2705z00zzblibz00 = BUNSPEC;
static obj_t BGl_symbol2696z00zzblibz00 = BUNSPEC;
static obj_t BGl_symbol2707z00zzblibz00 = BUNSPEC;
static obj_t BGl_symbol2709z00zzblibz00 = BUNSPEC;
static obj_t BGl_symbol2699z00zzblibz00 = BUNSPEC;
static obj_t BGl_symbol2711z00zzblibz00 = BUNSPEC;
static obj_t BGl_symbol2713z00zzblibz00 = BUNSPEC;
static obj_t BGl_symbol2715z00zzblibz00 = BUNSPEC;
static obj_t BGl_symbol2717z00zzblibz00 = BUNSPEC;
static obj_t BGl_symbol2719z00zzblibz00 = BUNSPEC;
static obj_t BGl_symbol2721z00zzblibz00 = BUNSPEC;
static obj_t BGl_symbol2722z00zzblibz00 = BUNSPEC;
static obj_t BGl_symbol2724z00zzblibz00 = BUNSPEC;
BGL_EXPORTED_DECL int BGl_statzd2nlinkzd2zzblibz00(struct stat*);
static obj_t BGl_symbol2726z00zzblibz00 = BUNSPEC;
static obj_t BGl_symbol2728z00zzblibz00 = BUNSPEC;
static obj_t BGl_symbol2730z00zzblibz00 = BUNSPEC;
static obj_t BGl_symbol2732z00zzblibz00 = BUNSPEC;
static obj_t BGl_symbol2735z00zzblibz00 = BUNSPEC;
static obj_t BGl_symbol2737z00zzblibz00 = BUNSPEC;
static obj_t BGl_symbol2739z00zzblibz00 = BUNSPEC;
static obj_t BGl_symbol2742z00zzblibz00 = BUNSPEC;
static obj_t BGl__tmzf3zf3zzblibz00(obj_t, obj_t);
static obj_t BGl_symbol2745z00zzblibz00 = BUNSPEC;
static obj_t BGl__tmzd2minzd2zzblibz00(obj_t, obj_t);
static obj_t BGl_symbol2747z00zzblibz00 = BUNSPEC;
static obj_t BGl_symbol2750z00zzblibz00 = BUNSPEC;
static obj_t BGl_symbol2753z00zzblibz00 = BUNSPEC;
BGL_EXPORTED_DECL dev_t BGl_statzd2devzd2zzblibz00(struct stat*);
static obj_t BGl_symbol2755z00zzblibz00 = BUNSPEC;
BGL_IMPORT obj_t BGl_errorzf2locationzf2zz__errorz00(obj_t, obj_t, obj_t, obj_t, obj_t);
static obj_t BGl_symbol2757z00zzblibz00 = BUNSPEC;
static obj_t BGl_symbol2761z00zzblibz00 = BUNSPEC;
static obj_t BGl_symbol2763z00zzblibz00 = BUNSPEC;
static obj_t BGl_symbol2765z00zzblibz00 = BUNSPEC;
static obj_t BGl_symbol2767z00zzblibz00 = BUNSPEC;
static obj_t BGl_symbol2769z00zzblibz00 = BUNSPEC;
static obj_t BGl_symbol2771z00zzblibz00 = BUNSPEC;
static obj_t BGl_symbol2773z00zzblibz00 = BUNSPEC;
static obj_t BGl_symbol2775z00zzblibz00 = BUNSPEC;
static bool_t BGl_forzd2eachzd2delimitedz00zzblibz00(obj_t, obj_t, obj_t);
static obj_t BGl_symbol2777z00zzblibz00 = BUNSPEC;
static obj_t BGl_symbol2779z00zzblibz00 = BUNSPEC;
static obj_t BGl_symbol2781z00zzblibz00 = BUNSPEC;
static obj_t BGl_symbol2783z00zzblibz00 = BUNSPEC;
static obj_t BGl_symbol2785z00zzblibz00 = BUNSPEC;
static obj_t BGl_symbol2787z00zzblibz00 = BUNSPEC;
static obj_t BGl_symbol2789z00zzblibz00 = BUNSPEC;
static obj_t BGl_symbol2791z00zzblibz00 = BUNSPEC;
static obj_t BGl_symbol2793z00zzblibz00 = BUNSPEC;
static obj_t BGl_symbol2804z00zzblibz00 = BUNSPEC;
static obj_t BGl__setenvz00zzblibz00(obj_t, obj_t, obj_t);
static obj_t BGl_symbol2795z00zzblibz00 = BUNSPEC;
static obj_t BGl_symbol2806z00zzblibz00 = BUNSPEC;
static obj_t BGl_symbol2797z00zzblibz00 = BUNSPEC;
static obj_t BGl_symbol2809z00zzblibz00 = BUNSPEC;
static obj_t BGl_symbol2799z00zzblibz00 = BUNSPEC;
static obj_t BGl_symbol2812z00zzblibz00 = BUNSPEC;
static obj_t BGl_symbol2815z00zzblibz00 = BUNSPEC;
static obj_t BGl__tmzd2monzd2zzblibz00(obj_t, obj_t);
static obj_t BGl__stringza2zf3z51zzblibz00(obj_t, obj_t);
static obj_t BGl_symbol2817z00zzblibz00 = BUNSPEC;
static obj_t BGl_symbol2819z00zzblibz00 = BUNSPEC;
BGL_IMPORT obj_t BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(obj_t, obj_t, obj_t, obj_t, obj_t);
static obj_t BGl_symbol2821z00zzblibz00 = BUNSPEC;
static obj_t BGl__deletezd2duplicates2157zd2zzblibz00(obj_t, obj_t);
static obj_t BGl_symbol2823z00zzblibz00 = BUNSPEC;
static obj_t BGl_symbol2825z00zzblibz00 = BUNSPEC;
static obj_t BGl_symbol2827z00zzblibz00 = BUNSPEC;
BGL_IMPORT bool_t BGl_positivezf3zf3zz__r4_numbers_6_5z00(obj_t);
static obj_t BGl_symbol2829z00zzblibz00 = BUNSPEC;
static obj_t BGl_symbol2831z00zzblibz00 = BUNSPEC;
static obj_t BGl_symbol2833z00zzblibz00 = BUNSPEC;
static obj_t BGl_symbol2835z00zzblibz00 = BUNSPEC;
static obj_t BGl__statzd2atimezd2zzblibz00(obj_t, obj_t);
static obj_t BGl__statzd2rdevzd2zzblibz00(obj_t, obj_t);
static obj_t BGl_symbol2837z00zzblibz00 = BUNSPEC;
static obj_t BGl_symbol2839z00zzblibz00 = BUNSPEC;
static obj_t BGl_symbol2841z00zzblibz00 = BUNSPEC;
static obj_t BGl__lsetzd2unionz12zc0zzblibz00(obj_t, obj_t, obj_t);
static obj_t BGl_symbol2843z00zzblibz00 = BUNSPEC;
static obj_t BGl_symbol2845z00zzblibz00 = BUNSPEC;
static obj_t BGl_symbol2847z00zzblibz00 = BUNSPEC;
BGL_IMPORT bool_t BGl_listzf3zf3zz__r4_pairs_and_lists_6_3z00(obj_t);
static obj_t BGl_symbol2849z00zzblibz00 = BUNSPEC;
static obj_t BGl_symbol2851z00zzblibz00 = BUNSPEC;
BGL_EXPORTED_DECL obj_t BGl_charzd2ze3hexz31zzblibz00(unsigned char);
static obj_t BGl_symbol2853z00zzblibz00 = BUNSPEC;
static obj_t BGl_symbol2855z00zzblibz00 = BUNSPEC;
static obj_t BGl_symbol2857z00zzblibz00 = BUNSPEC;
static obj_t BGl_symbol2859z00zzblibz00 = BUNSPEC;
static obj_t BGl_symbol2861z00zzblibz00 = BUNSPEC;
static obj_t BGl_symbol2863z00zzblibz00 = BUNSPEC;
BGL_IMPORT bool_t BGl_eqvzf3zf3zz__r4_equivalence_6_2z00(obj_t, obj_t);
static obj_t BGl_libraryzd2moduleszd2initz00zzblibz00();
BGL_IMPORT obj_t BGl_definezd2primopz12zc0zz__evenvz00(obj_t, obj_t);
BGL_IMPORT obj_t BGl_memberz00zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
static obj_t BGl_methodzd2initzd2zzblibz00();
static obj_t *__cnst;
DEFINE_EXPORT_BGL_PROCEDURE( BGl_lsetzd2unionz12zd2envz12zzblibz00, BgL_bgl__lsetza7d2unionza7122883z00, va_generic_entry, BGl__lsetzd2unionz12zc0zzblibz00, BUNSPEC, -2 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_makezd2tmzd2envz00zzblibz00, BgL_bgl__makeza7d2tmza7d2za7za7b2884z00, BGl__makezd2tmzd2zzblibz00, 0L, BUNSPEC, 0 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_tmzd2hourzd2envz00zzblibz00, BgL_bgl__tmza7d2hourza7d2za7za7b2885z00, BGl__tmzd2hourzd2zzblibz00, 0L, BUNSPEC, 1 );
DEFINE_STRING( BGl_string2456z00zzblibz00, BgL_bgl_string2456za700za7za7b2886za7, "%cdrs, blib.scm:325", 19 );
DEFINE_STRING( BGl_string2458z00zzblibz00, BgL_bgl_string2458za700za7za7b2887za7, "recur''", 7 );
DEFINE_STRING( BGl_string2460z00zzblibz00, BgL_bgl_string2460za700za7za7b2888za7, "/home/ambro/roadsend-cross-build/roadsend-php-2.9.4/runtime/blib.scm", 68 );
DEFINE_STRING( BGl_string2459z00zzblibz00, BgL_bgl_string2459za700za7za7b2889za7, "pair", 4 );
DEFINE_STRING( BGl_string2462z00zzblibz00, BgL_bgl_string2462za700za7za7b2890za7, "pair-fold, blib.scm:335", 23 );
DEFINE_STRING( BGl_string2464z00zzblibz00, BgL_bgl_string2464za700za7za7b2891za7, "lp", 2 );
DEFINE_STRING( BGl_string2465z00zzblibz00, BgL_bgl_string2465za700za7za7b2892za7, "pair-nil", 8 );
DEFINE_STRING( BGl_string2466z00zzblibz00, BgL_bgl_string2466za700za7za7b2893za7, "Wrong number of arguments", 25 );
DEFINE_STRING( BGl_string2469z00zzblibz00, BgL_bgl_string2469za700za7za7b2894za7, "apply", 5 );
DEFINE_STRING( BGl_string2471z00zzblibz00, BgL_bgl_string2471za700za7za7b2895za7, "f", 1 );
DEFINE_STRING( BGl_string2474z00zzblibz00, BgL_bgl_string2474za700za7za7b2896za7, "let", 3 );
DEFINE_STRING( BGl_string2478z00zzblibz00, BgL_bgl_string2478za700za7za7b2897za7, "arg1418", 7 );
DEFINE_STRING( BGl_string2483z00zzblibz00, BgL_bgl_string2483za700za7za7b2898za7, "list1419", 8 );
DEFINE_STRING( BGl_string2486z00zzblibz00, BgL_bgl_string2486za700za7za7b2899za7, "c-cons", 6 );
DEFINE_STRING( BGl_string2488z00zzblibz00, BgL_bgl_string2488za700za7za7b2900za7, "ans", 3 );
DEFINE_STRING( BGl_string2491z00zzblibz00, BgL_bgl_string2491za700za7za7b2901za7, "quote", 5 );
DEFINE_STRING( BGl_string2502z00zzblibz00, BgL_bgl_string2502za700za7za7b2902za7, "funcall", 7 );
DEFINE_STRING( BGl_string2504z00zzblibz00, BgL_bgl_string2504za700za7za7b2903za7, "lis", 3 );
DEFINE_STRING( BGl_string2494z00zzblibz00, BgL_bgl_string2494za700za7za7b2904za7, "append!", 7 );
DEFINE_STRING( BGl_string2506z00zzblibz00, BgL_bgl_string2506za700za7za7b2905za7, "%cars+cdrs+, blib.scm:351", 25 );
DEFINE_STRING( BGl_string2496z00zzblibz00, BgL_bgl_string2496za700za7za7b2906za7, "lists", 5 );
DEFINE_STRING( BGl_string2508z00zzblibz00, BgL_bgl_string2508za700za7za7b2907za7, "recur'", 6 );
DEFINE_STRING( BGl_string2498z00zzblibz00, BgL_bgl_string2498za700za7za7b2908za7, "_", 1 );
DEFINE_STRING( BGl_string2510z00zzblibz00, BgL_bgl_string2510za700za7za7b2909za7, "null-list?, blib.scm:363", 24 );
DEFINE_STRING( BGl_string2499z00zzblibz00, BgL_bgl_string2499za700za7za7b2910za7, "lp:Wrong number of arguments", 28 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_tmzd2mdayzd2envz00zzblibz00, BgL_bgl__tmza7d2mdayza7d2za7za7b2911z00, BGl__tmzd2mdayzd2zzblibz00, 0L, BUNSPEC, 1 );
DEFINE_STRING( BGl_string2511z00zzblibz00, BgL_bgl_string2511za700za7za7b2912za7, "null-list?", 10 );
DEFINE_STRING( BGl_string2512z00zzblibz00, BgL_bgl_string2512za700za7za7b2913za7, "argument out of domain", 22 );
DEFINE_STRING( BGl_string2513z00zzblibz00, BgL_bgl_string2513za700za7za7b2914za7, "blib.scm", 8 );
DEFINE_STRING( BGl_string2515z00zzblibz00, BgL_bgl_string2515za700za7za7b2915za7, "fold, blib.scm:369", 18 );
BGL_IMPORT obj_t BGl_equalzf3zd2envz21zz__r4_equivalence_6_2z00;
DEFINE_STRING( BGl_string2518z00zzblibz00, BgL_bgl_string2518za700za7za7b2916za7, "kons", 4 );
DEFINE_STRING( BGl_string2520z00zzblibz00, BgL_bgl_string2520za700za7za7b2917za7, "cars+ans", 8 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_stringza2zd2ze3stringzd2listzd2envz93zzblibz00, BgL_bgl__stringza7a2za7d2za7e32918za7, opt_generic_entry, BGl__stringza2zd2ze3stringzd2listz41zzblibz00, BFALSE,-1 );
DEFINE_STRING( BGl_string2523z00zzblibz00, BgL_bgl_string2523za700za7za7b2919za7, "arg1437", 7 );
DEFINE_STRING( BGl_string2525z00zzblibz00, BgL_bgl_string2525za700za7za7b2920za7, "string-before, blib.scm:396", 27 );
DEFINE_STRING( BGl_string2526z00zzblibz00, BgL_bgl_string2526za700za7za7b2921za7, "substring", 9 );
DEFINE_STRING( BGl_string2527z00zzblibz00, BgL_bgl_string2527za700za7za7b2922za7, "Illegal index", 13 );
DEFINE_STRING( BGl_string2530z00zzblibz00, BgL_bgl_string2530za700za7za7b2923za7, "bstring", 7 );
DEFINE_STRING( BGl_string2529z00zzblibz00, BgL_bgl_string2529za700za7za7b2924za7, "string-before", 13 );
DEFINE_STRING( BGl_string2532z00zzblibz00, BgL_bgl_string2532za700za7za7b2925za7, "cerror, blib.scm:410", 20 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_stmodezd2ze3bstmodezd2envze3zzblibz00, BgL_bgl__stmodeza7d2za7e3bst2926z00, BGl__stmodezd2ze3bstmodez31zzblibz00, 0L, BUNSPEC, 1 );
DEFINE_STRING( BGl_string2533z00zzblibz00, BgL_bgl_string2533za700za7za7b2927za7, "", 0 );
DEFINE_STRING( BGl_string2534z00zzblibz00, BgL_bgl_string2534za700za7za7b2928za7, " arguments was", 14 );
DEFINE_STRING( BGl_string2535z00zzblibz00, BgL_bgl_string2535za700za7za7b2929za7, "~a: ~a~a", 8 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_tmzd2monzd2envz00zzblibz00, BgL_bgl__tmza7d2monza7d2za7za7bl2930z00, BGl__tmzd2monzd2zzblibz00, 0L, BUNSPEC, 1 );
DEFINE_STRING( BGl_string2537z00zzblibz00, BgL_bgl_string2537za700za7za7b2931za7, "<anonymous:1512:blib.scm:449>", 29 );
DEFINE_STRING( BGl_string2538z00zzblibz00, BgL_bgl_string2538za700za7za7b2932za7, "procedure", 9 );
DEFINE_STRING( BGl_string2539z00zzblibz00, BgL_bgl_string2539za700za7za7b2933za7, "<anonymous:1512:blib.scm:449>:Wrong number of arguments", 55 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_statzd2siza7ezd2envza7zzblibz00, BgL_bgl__statza7d2siza7a7eza772934za7, BGl__statzd2siza7ez75zzblibz00, 0L, BUNSPEC, 1 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_bstmodezd2ze3stmodezd2envze3zzblibz00, BgL_bgl__bstmodeza7d2za7e3st2935z00, BGl__bstmodezd2ze3stmodez31zzblibz00, 0L, BUNSPEC, 1 );
DEFINE_STRING( BGl_string2542z00zzblibz00, BgL_bgl_string2542za700za7za7b2936za7, "display", 7 );
DEFINE_STRING( BGl_string2544z00zzblibz00, BgL_bgl_string2544za700za7za7b2937za7, "delim", 5 );
DEFINE_STRING( BGl_string2546z00zzblibz00, BgL_bgl_string2546za700za7za7b2938za7, "proc-output, blib.scm:422", 25 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_tmzd2minzd2envz00zzblibz00, BgL_bgl__tmza7d2minza7d2za7za7bl2939z00, BGl__tmzd2minzd2zzblibz00, 0L, BUNSPEC, 1 );
DEFINE_STRING( BGl_string2548z00zzblibz00, BgL_bgl_string2548za700za7za7b2940za7, "proc-output", 11 );
DEFINE_STRING( BGl_string2549z00zzblibz00, BgL_bgl_string2549za700za7za7b2941za7, "output-port", 11 );
DEFINE_STRING( BGl_string2551z00zzblibz00, BgL_bgl_string2551za700za7za7b2942za7, "<anonymous:1465:blib.scm:423>", 29 );
DEFINE_STRING( BGl_string2554z00zzblibz00, BgL_bgl_string2554za700za7za7b2943za7, "proc", 4 );
DEFINE_STRING( BGl_string2556z00zzblibz00, BgL_bgl_string2556za700za7za7b2944za7, "args", 4 );
DEFINE_STRING( BGl_string2558z00zzblibz00, BgL_bgl_string2558za700za7za7b2945za7, "transpose, blib.scm:433", 23 );
DEFINE_STRING( BGl_string2560z00zzblibz00, BgL_bgl_string2560za700za7za7b2946za7, "l", 1 );
DEFINE_STRING( BGl_string2564z00zzblibz00, BgL_bgl_string2564za700za7za7b2947za7, "begin", 5 );
DEFINE_STRING( BGl_string2567z00zzblibz00, BgL_bgl_string2567za700za7za7b2948za7, "list?", 5 );
DEFINE_STRING( BGl_string2570z00zzblibz00, BgL_bgl_string2570za700za7za7b2949za7, "loop", 4 );
DEFINE_STRING( BGl_string2572z00zzblibz00, BgL_bgl_string2572za700za7za7b2950za7, "map1348", 7 );
DEFINE_STRING( BGl_string2573z00zzblibz00, BgL_bgl_string2573za700za7za7b2951za7, "map", 3 );
DEFINE_STRING( BGl_string2574z00zzblibz00, BgL_bgl_string2574za700za7za7b2952za7, "argument not a list", 19 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_lastzd2envzd2zzblibz00, BgL_bgl__lastza700za7za7blibza702953z00, BGl__lastz00zzblibz00, 0L, BUNSPEC, 1 );
DEFINE_STRING( BGl_string2576z00zzblibz00, BgL_bgl_string2576za700za7za7b2954za7, "map1354", 7 );
DEFINE_STRING( BGl_string2578z00zzblibz00, BgL_bgl_string2578za700za7za7b2955za7, "for-each-delimited, blib.scm:436", 32 );
DEFINE_STRING( BGl_string2586z00zzblibz00, BgL_bgl_string2586za700za7za7b2956za7, "c-car", 5 );
DEFINE_STRING( BGl_string2588z00zzblibz00, BgL_bgl_string2588za700za7za7b2957za7, "string->hex, blib.scm:460", 25 );
DEFINE_STRING( BGl_string2590z00zzblibz00, BgL_bgl_string2590za700za7za7b2958za7, "_string->hex", 12 );
DEFINE_STRING( BGl_string2601z00zzblibz00, BgL_bgl_string2601za700za7za7b2959za7, "_string*->string-list", 21 );
DEFINE_STRING( BGl_string2592z00zzblibz00, BgL_bgl_string2592za700za7za7b2960za7, "string*?, blib.scm:477", 22 );
DEFINE_STRING( BGl_string2603z00zzblibz00, BgL_bgl_string2603za700za7za7b2961za7, "string*->string-list, blib.scm:483", 34 );
DEFINE_STRING( BGl_string2594z00zzblibz00, BgL_bgl_string2594za700za7za7b2962za7, "string*", 7 );
DEFINE_STRING( BGl_string2605z00zzblibz00, BgL_bgl_string2605za700za7za7b2963za7, "string*->string-list", 20 );
DEFINE_STRING( BGl_string2606z00zzblibz00, BgL_bgl_string2606za700za7za7b2964za7, "long", 4 );
DEFINE_STRING( BGl_string2596z00zzblibz00, BgL_bgl_string2596za700za7za7b2965za7, "_string*->string-list, blib.scm:479", 35 );
DEFINE_STRING( BGl_string2608z00zzblibz00, BgL_bgl_string2608za700za7za7b2966za7, "string-list->string*, blib.scm:487", 34 );
DEFINE_STRING( BGl_string2598z00zzblibz00, BgL_bgl_string2598za700za7za7b2967za7, "string*->string-list::pair-nil", 30 );
DEFINE_STRING( BGl_string2610z00zzblibz00, BgL_bgl_string2610za700za7za7b2968za7, "_string-list->string*", 21 );
DEFINE_STRING( BGl_string2599z00zzblibz00, BgL_bgl_string2599za700za7za7b2969za7, "wrong number of arguments: [1..2] expected, provided", 52 );
DEFINE_STRING( BGl_string2612z00zzblibz00, BgL_bgl_string2612za700za7za7b2970za7, "last, blib.scm:490", 18 );
DEFINE_STRING( BGl_string2614z00zzblibz00, BgL_bgl_string2614za700za7za7b2971za7, "last", 4 );
DEFINE_STRING( BGl_string2616z00zzblibz00, BgL_bgl_string2616za700za7za7b2972za7, "_last", 5 );
DEFINE_STRING( BGl_string2618z00zzblibz00, BgL_bgl_string2618za700za7za7b2973za7, "remove, blib.scm:492", 20 );
DEFINE_STRING( BGl_string2619z00zzblibz00, BgL_bgl_string2619za700za7za7b2974za7, "filter: argument not a list", 27 );
DEFINE_STRING( BGl_string2621z00zzblibz00, BgL_bgl_string2621za700za7za7b2975za7, "remove", 6 );
DEFINE_STRING( BGl_string2622z00zzblibz00, BgL_bgl_string2622za700za7za7b2976za7, "filter: incorrect function arity", 32 );
DEFINE_STRING( BGl_string2624z00zzblibz00, BgL_bgl_string2624za700za7za7b2977za7, "_remove", 7 );
DEFINE_STRING( BGl_string2626z00zzblibz00, BgL_bgl_string2626za700za7za7b2978za7, "<anonymous:1545:blib.scm:492>", 29 );
DEFINE_STRING( BGl_string2627z00zzblibz00, BgL_bgl_string2627za700za7za7b2979za7, "<anonymous:1545:blib.scm:492>:Wrong number of arguments", 55 );
DEFINE_STRING( BGl_string2630z00zzblibz00, BgL_bgl_string2630za700za7za7b2980za7, "pred", 4 );
DEFINE_STRING( BGl_string2632z00zzblibz00, BgL_bgl_string2632za700za7za7b2981za7, "x", 1 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_statzd2modezd2envz00zzblibz00, BgL_bgl__statza7d2modeza7d2za72982za7, BGl__statzd2modezd2zzblibz00, 0L, BUNSPEC, 1 );
DEFINE_STRING( BGl_string2634z00zzblibz00, BgL_bgl_string2634za700za7za7b2983za7, "delete-duplicates, blib.scm:495", 31 );
DEFINE_STRING( BGl_string2636z00zzblibz00, BgL_bgl_string2636za700za7za7b2984za7, "recur", 5 );
DEFINE_STRING( BGl_string2638z00zzblibz00, BgL_bgl_string2638za700za7za7b2985za7, "_string-join, blib.scm:502", 26 );
DEFINE_STRING( BGl_string2640z00zzblibz00, BgL_bgl_string2640za700za7za7b2986za7, "string-join", 11 );
DEFINE_STRING( BGl_string2641z00zzblibz00, BgL_bgl_string2641za700za7za7b2987za7, "wrong number of arguments: [1..3] expected, provided", 52 );
DEFINE_STRING( BGl_string2643z00zzblibz00, BgL_bgl_string2643za700za7za7b2988za7, "infix", 5 );
DEFINE_STRING( BGl_string2644z00zzblibz00, BgL_bgl_string2644za700za7za7b2989za7, " ", 1 );
DEFINE_STRING( BGl_string2646z00zzblibz00, BgL_bgl_string2646za700za7za7b2990za7, "string-join, blib.scm:503", 25 );
DEFINE_STRING( BGl_string2648z00zzblibz00, BgL_bgl_string2648za700za7za7b2991za7, "strict-infix", 12 );
DEFINE_STRING( BGl_string2649z00zzblibz00, BgL_bgl_string2649za700za7za7b2992za7, "string-list should be non-empty list for strict-infix grammar", 61 );
DEFINE_STRING( BGl_string2651z00zzblibz00, BgL_bgl_string2651za700za7za7b2993za7, "suffix", 6 );
DEFINE_STRING( BGl_string2653z00zzblibz00, BgL_bgl_string2653za700za7za7b2994za7, "prefix", 6 );
DEFINE_STRING( BGl_string2654z00zzblibz00, BgL_bgl_string2654za700za7za7b2995za7, "invalid grammar, must be one of: infix, strict-infix, suffix or prefix", 70 );
DEFINE_STRING( BGl_string2656z00zzblibz00, BgL_bgl_string2656za700za7za7b2996za7, "lset-difference, blib.scm:529", 29 );
DEFINE_STRING( BGl_string2658z00zzblibz00, BgL_bgl_string2658za700za7za7b2997za7, "lset-difference", 15 );
DEFINE_STRING( BGl_string2660z00zzblibz00, BgL_bgl_string2660za700za7za7b2998za7, "_lset-difference", 16 );
DEFINE_STRING( BGl_string2661z00zzblibz00, BgL_bgl_string2661za700za7za7b2999za7, "every: argument not a list", 26 );
DEFINE_STRING( BGl_string2662z00zzblibz00, BgL_bgl_string2662za700za7za7b3000za7, "every: incorrect function arity", 31 );
DEFINE_STRING( BGl_string2664z00zzblibz00, BgL_bgl_string2664za700za7za7b3001za7, "<anonymous:1594:blib.scm:532>", 29 );
DEFINE_STRING( BGl_string2666z00zzblibz00, BgL_bgl_string2666za700za7za7b3002za7, "lset-union!, blib.scm:538", 25 );
DEFINE_STRING( BGl_string2668z00zzblibz00, BgL_bgl_string2668za700za7za7b3003za7, "lset-union!", 11 );
DEFINE_STRING( BGl_string2670z00zzblibz00, BgL_bgl_string2670za700za7za7b3004za7, "_lset-union!", 12 );
DEFINE_STRING( BGl_string2672z00zzblibz00, BgL_bgl_string2672za700za7za7b3005za7, "<anonymous:1618:blib.scm:543>", 29 );
DEFINE_STRING( BGl_string2673z00zzblibz00, BgL_bgl_string2673za700za7za7b3006za7, "any: argument not a list", 24 );
DEFINE_STRING( BGl_string2674z00zzblibz00, BgL_bgl_string2674za700za7za7b3007za7, "any: incorrect function arity", 29 );
DEFINE_STRING( BGl_string2676z00zzblibz00, BgL_bgl_string2676za700za7za7b3008za7, "<anonymous:1624:blib.scm:545>", 29 );
DEFINE_STRING( BGl_string2677z00zzblibz00, BgL_bgl_string2677za700za7za7b3009za7, "<anonymous:1624:blib.scm:545>:Wrong number of arguments", 55 );
DEFINE_STRING( BGl_string2680z00zzblibz00, BgL_bgl_string2680za700za7za7b3010za7, "elt=", 4 );
DEFINE_STRING( BGl_string2682z00zzblibz00, BgL_bgl_string2682za700za7za7b3011za7, "elt", 3 );
DEFINE_STRING( BGl_string2684z00zzblibz00, BgL_bgl_string2684za700za7za7b3012za7, "char->hex, blib.scm:552", 23 );
DEFINE_STRING( BGl_string2686z00zzblibz00, BgL_bgl_string2686za700za7za7b3013za7, "_char->hex", 10 );
DEFINE_STRING( BGl_string2687z00zzblibz00, BgL_bgl_string2687za700za7za7b3014za7, "uchar", 5 );
DEFINE_STRING( BGl_string2700z00zzblibz00, BgL_bgl_string2700za700za7za7b3015za7, "tm-min, blib.scm:576", 20 );
DEFINE_STRING( BGl_string2689z00zzblibz00, BgL_bgl_string2689za700za7za7b3016za7, "environ, blib.scm:568", 21 );
DEFINE_STRING( BGl_string2691z00zzblibz00, BgL_bgl_string2691za700za7za7b3017za7, "map1367", 7 );
DEFINE_STRING( BGl_string2702z00zzblibz00, BgL_bgl_string2702za700za7za7b3018za7, "_tm-min", 7 );
DEFINE_STRING( BGl_string2693z00zzblibz00, BgL_bgl_string2693za700za7za7b3019za7, "environ", 7 );
DEFINE_STRING( BGl_string2704z00zzblibz00, BgL_bgl_string2704za700za7za7b3020za7, "tm-hour, blib.scm:581", 21 );
DEFINE_STRING( BGl_string2695z00zzblibz00, BgL_bgl_string2695za700za7za7b3021za7, "tm-sec, blib.scm:571", 20 );
DEFINE_STRING( BGl_string2706z00zzblibz00, BgL_bgl_string2706za700za7za7b3022za7, "_tm-hour", 8 );
DEFINE_STRING( BGl_string2697z00zzblibz00, BgL_bgl_string2697za700za7za7b3023za7, "_tm-sec", 7 );
DEFINE_STRING( BGl_string2708z00zzblibz00, BgL_bgl_string2708za700za7za7b3024za7, "tm-mday, blib.scm:586", 21 );
DEFINE_STRING( BGl_string2698z00zzblibz00, BgL_bgl_string2698za700za7za7b3025za7, "tm", 2 );
DEFINE_STRING( BGl_string2710z00zzblibz00, BgL_bgl_string2710za700za7za7b3026za7, "_tm-mday", 8 );
DEFINE_STRING( BGl_string2712z00zzblibz00, BgL_bgl_string2712za700za7za7b3027za7, "tm-mon, blib.scm:591", 20 );
DEFINE_STRING( BGl_string2714z00zzblibz00, BgL_bgl_string2714za700za7za7b3028za7, "_tm-mon", 7 );
DEFINE_STRING( BGl_string2716z00zzblibz00, BgL_bgl_string2716za700za7za7b3029za7, "tm-year, blib.scm:596", 21 );
DEFINE_STRING( BGl_string2718z00zzblibz00, BgL_bgl_string2718za700za7za7b3030za7, "_tm-year", 8 );
DEFINE_STRING( BGl_string2720z00zzblibz00, BgL_bgl_string2720za700za7za7b3031za7, "tm?, blib.scm:601", 17 );
DEFINE_STRING( BGl_string2723z00zzblibz00, BgL_bgl_string2723za700za7za7b3032za7, "timezone, blib.scm:613", 22 );
DEFINE_STRING( BGl_string2725z00zzblibz00, BgL_bgl_string2725za700za7za7b3033za7, "daylight, blib.scm:625", 22 );
DEFINE_STRING( BGl_string2727z00zzblibz00, BgL_bgl_string2727za700za7za7b3034za7, "make-tm, blib.scm:628", 21 );
DEFINE_STRING( BGl_string2729z00zzblibz00, BgL_bgl_string2729za700za7za7b3035za7, "_strftime, blib.scm:631", 23 );
DEFINE_STRING( BGl_string2731z00zzblibz00, BgL_bgl_string2731za700za7za7b3036za7, "strftime::bstring", 17 );
DEFINE_STRING( BGl_string2733z00zzblibz00, BgL_bgl_string2733za700za7za7b3037za7, "_strftime", 9 );
DEFINE_STRING( BGl_string2734z00zzblibz00, BgL_bgl_string2734za700za7za7b3038za7, "%x %X", 5 );
DEFINE_STRING( BGl_string2736z00zzblibz00, BgL_bgl_string2736za700za7za7b3039za7, "strftime, blib.scm:635", 22 );
DEFINE_STRING( BGl_string2738z00zzblibz00, BgL_bgl_string2738za700za7za7b3040za7, "_mktime, blib.scm:644", 21 );
DEFINE_STRING( BGl_string2740z00zzblibz00, BgL_bgl_string2740za700za7za7b3041za7, "mktime::tm", 10 );
DEFINE_STRING( BGl_string2741z00zzblibz00, BgL_bgl_string2741za700za7za7b3042za7, "wrong number of arguments: [3..6] expected, provided", 52 );
DEFINE_STRING( BGl_string2743z00zzblibz00, BgL_bgl_string2743za700za7za7b3043za7, "_mktime", 7 );
DEFINE_STRING( BGl_string2744z00zzblibz00, BgL_bgl_string2744za700za7za7b3044za7, "int", 3 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_statzd2rdevzd2envz00zzblibz00, BgL_bgl__statza7d2rdevza7d2za73045za7, BGl__statzd2rdevzd2zzblibz00, 0L, BUNSPEC, 1 );
DEFINE_STRING( BGl_string2746z00zzblibz00, BgL_bgl_string2746za700za7za7b3046za7, "mktime, blib.scm:652", 20 );
DEFINE_STRING( BGl_string2748z00zzblibz00, BgL_bgl_string2748za700za7za7b3047za7, "setenv, blib.scm:665", 20 );
DEFINE_STRING( BGl_string2749z00zzblibz00, BgL_bgl_string2749za700za7za7b3048za7, "setenv", 6 );
DEFINE_STRING( BGl_string2751z00zzblibz00, BgL_bgl_string2751za700za7za7b3049za7, "_setenv", 7 );
DEFINE_STRING( BGl_string2752z00zzblibz00, BgL_bgl_string2752za700za7za7b3050za7, "string", 6 );
DEFINE_STRING( BGl_string2754z00zzblibz00, BgL_bgl_string2754za700za7za7b3051za7, "stat?, blib.scm:669", 19 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_stmodezf3zd2envz21zzblibz00, BgL_bgl__stmodeza7f3za7f3za7za7b3052z00, BGl__stmodezf3zf3zzblibz00, 0L, BUNSPEC, 1 );
DEFINE_STRING( BGl_string2756z00zzblibz00, BgL_bgl_string2756za700za7za7b3053za7, "stat", 4 );
DEFINE_STRING( BGl_string2758z00zzblibz00, BgL_bgl_string2758za700za7za7b3054za7, "stat, blib.scm:693", 18 );
DEFINE_STRING( BGl_string2760z00zzblibz00, BgL_bgl_string2760za700za7za7b3055za7, "must be filename or open file descriptor", 40 );
DEFINE_STRING( BGl_string2759z00zzblibz00, BgL_bgl_string2759za700za7za7b3056za7, "bint", 4 );
DEFINE_STRING( BGl_string2762z00zzblibz00, BgL_bgl_string2762za700za7za7b3057za7, "bstmode->stmode, blib.scm:718", 29 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_timeza7onezd2envz75zzblibz00, BgL_bgl__timeza7a7oneza7a7za7za73058z00, BGl__timeza7oneza7zzblibz00, 0L, BUNSPEC, 0 );
DEFINE_STRING( BGl_string2764z00zzblibz00, BgL_bgl_string2764za700za7za7b3059za7, "fsock", 5 );
DEFINE_STRING( BGl_string2766z00zzblibz00, BgL_bgl_string2766za700za7za7b3060za7, "flnk", 4 );
DEFINE_STRING( BGl_string2768z00zzblibz00, BgL_bgl_string2768za700za7za7b3061za7, "freg", 4 );
DEFINE_STRING( BGl_string2770z00zzblibz00, BgL_bgl_string2770za700za7za7b3062za7, "fblk", 4 );
DEFINE_STRING( BGl_string2772z00zzblibz00, BgL_bgl_string2772za700za7za7b3063za7, "fdir", 4 );
DEFINE_STRING( BGl_string2774z00zzblibz00, BgL_bgl_string2774za700za7za7b3064za7, "fchr", 4 );
DEFINE_STRING( BGl_string2776z00zzblibz00, BgL_bgl_string2776za700za7za7b3065za7, "fifo", 4 );
DEFINE_STRING( BGl_string2778z00zzblibz00, BgL_bgl_string2778za700za7za7b3066za7, "suid", 4 );
DEFINE_STRING( BGl_string2780z00zzblibz00, BgL_bgl_string2780za700za7za7b3067za7, "sgid", 4 );
DEFINE_STRING( BGl_string2782z00zzblibz00, BgL_bgl_string2782za700za7za7b3068za7, "svtx", 4 );
DEFINE_STRING( BGl_string2784z00zzblibz00, BgL_bgl_string2784za700za7za7b3069za7, "rusr", 4 );
DEFINE_STRING( BGl_string2786z00zzblibz00, BgL_bgl_string2786za700za7za7b3070za7, "wusr", 4 );
DEFINE_STRING( BGl_string2788z00zzblibz00, BgL_bgl_string2788za700za7za7b3071za7, "xusr", 4 );
DEFINE_STRING( BGl_string2800z00zzblibz00, BgL_bgl_string2800za700za7za7b3072za7, "xoth", 4 );
DEFINE_STRING( BGl_string2790z00zzblibz00, BgL_bgl_string2790za700za7za7b3073za7, "rgrp", 4 );
DEFINE_STRING( BGl_string2801z00zzblibz00, BgL_bgl_string2801za700za7za7b3074za7, "bstmode->stmode", 15 );
DEFINE_STRING( BGl_string2802z00zzblibz00, BgL_bgl_string2802za700za7za7b3075za7, "invalid argument, must be one of (fsock flnk freg fblk fdir fchr fifo suid sgid svtx rusr wusr xusr rgrp wgrp xgrp roth woth xoth): ", 132 );
DEFINE_STRING( BGl_string2792z00zzblibz00, BgL_bgl_string2792za700za7za7b3076za7, "wgrp", 4 );
DEFINE_STRING( BGl_string2803z00zzblibz00, BgL_bgl_string2803za700za7za7b3077za7, "for-each", 8 );
DEFINE_STRING( BGl_string2794z00zzblibz00, BgL_bgl_string2794za700za7za7b3078za7, "xgrp", 4 );
DEFINE_STRING( BGl_string2805z00zzblibz00, BgL_bgl_string2805za700za7za7b3079za7, "stmode->bstmode, blib.scm:795", 29 );
DEFINE_STRING( BGl_string2796z00zzblibz00, BgL_bgl_string2796za700za7za7b3080za7, "roth", 4 );
DEFINE_STRING( BGl_string2807z00zzblibz00, BgL_bgl_string2807za700za7za7b3081za7, "stmode->bstmode", 15 );
DEFINE_STRING( BGl_string2808z00zzblibz00, BgL_bgl_string2808za700za7za7b3082za7, "bstmode", 7 );
DEFINE_STRING( BGl_string2798z00zzblibz00, BgL_bgl_string2798za700za7za7b3083za7, "woth", 4 );
DEFINE_STRING( BGl_string2810z00zzblibz00, BgL_bgl_string2810za700za7za7b3084za7, "_stmode->bstmode", 16 );
DEFINE_STRING( BGl_string2811z00zzblibz00, BgL_bgl_string2811za700za7za7b3085za7, "stmode", 6 );
DEFINE_STRING( BGl_string2813z00zzblibz00, BgL_bgl_string2813za700za7za7b3086za7, "stmode?, blib.scm:873", 21 );
DEFINE_STRING( BGl_string2816z00zzblibz00, BgL_bgl_string2816za700za7za7b3087za7, "stat-mode, blib.scm:898", 23 );
DEFINE_STRING( BGl_string2818z00zzblibz00, BgL_bgl_string2818za700za7za7b3088za7, "_stat-mode", 10 );
DEFINE_STRING( BGl_string2820z00zzblibz00, BgL_bgl_string2820za700za7za7b3089za7, "stat-ino, blib.scm:903", 22 );
DEFINE_STRING( BGl_string2822z00zzblibz00, BgL_bgl_string2822za700za7za7b3090za7, "_stat-ino", 9 );
DEFINE_STRING( BGl_string2824z00zzblibz00, BgL_bgl_string2824za700za7za7b3091za7, "stat-dev, blib.scm:908", 22 );
DEFINE_STRING( BGl_string2826z00zzblibz00, BgL_bgl_string2826za700za7za7b3092za7, "_stat-dev", 9 );
BGL_IMPORT obj_t BGl_pairzf3zd2envz21zz__r4_pairs_and_lists_6_3z00;
DEFINE_STRING( BGl_string2828z00zzblibz00, BgL_bgl_string2828za700za7za7b3093za7, "stat-rdev, blib.scm:913", 23 );
DEFINE_STRING( BGl_string2830z00zzblibz00, BgL_bgl_string2830za700za7za7b3094za7, "_stat-rdev", 10 );
DEFINE_STRING( BGl_string2832z00zzblibz00, BgL_bgl_string2832za700za7za7b3095za7, "stat-nlink, blib.scm:918", 24 );
DEFINE_STRING( BGl_string2834z00zzblibz00, BgL_bgl_string2834za700za7za7b3096za7, "_stat-nlink", 11 );
DEFINE_STRING( BGl_string2836z00zzblibz00, BgL_bgl_string2836za700za7za7b3097za7, "stat-uid, blib.scm:923", 22 );
DEFINE_STRING( BGl_string2838z00zzblibz00, BgL_bgl_string2838za700za7za7b3098za7, "_stat-uid", 9 );
DEFINE_STRING( BGl_string2840z00zzblibz00, BgL_bgl_string2840za700za7za7b3099za7, "stat-gid, blib.scm:928", 22 );
DEFINE_STRING( BGl_string2842z00zzblibz00, BgL_bgl_string2842za700za7za7b3100za7, "_stat-gid", 9 );
DEFINE_STRING( BGl_string2844z00zzblibz00, BgL_bgl_string2844za700za7za7b3101za7, "stat-size, blib.scm:933", 23 );
DEFINE_STRING( BGl_string2846z00zzblibz00, BgL_bgl_string2846za700za7za7b3102za7, "_stat-size", 10 );
DEFINE_STRING( BGl_string2848z00zzblibz00, BgL_bgl_string2848za700za7za7b3103za7, "stat-atime, blib.scm:938", 24 );
DEFINE_STRING( BGl_string2850z00zzblibz00, BgL_bgl_string2850za700za7za7b3104za7, "_stat-atime", 11 );
DEFINE_STRING( BGl_string2852z00zzblibz00, BgL_bgl_string2852za700za7za7b3105za7, "stat-mtime, blib.scm:943", 24 );
DEFINE_STRING( BGl_string2854z00zzblibz00, BgL_bgl_string2854za700za7za7b3106za7, "_stat-mtime", 11 );
DEFINE_STRING( BGl_string2856z00zzblibz00, BgL_bgl_string2856za700za7za7b3107za7, "stat-ctime, blib.scm:948", 24 );
DEFINE_STRING( BGl_string2858z00zzblibz00, BgL_bgl_string2858za700za7za7b3108za7, "_stat-ctime", 11 );
DEFINE_STRING( BGl_string2860z00zzblibz00, BgL_bgl_string2860za700za7za7b3109za7, "fd-set?, blib.scm:952", 21 );
DEFINE_STRING( BGl_string2862z00zzblibz00, BgL_bgl_string2862za700za7za7b3110za7, "fd-set", 6 );
DEFINE_STRING( BGl_string2864z00zzblibz00, BgL_bgl_string2864za700za7za7b3111za7, "method-init, blib.scm:36", 24 );
BGL_IMPORT obj_t BGl_eqzf3zd2envz21zz__r4_equivalence_6_2z00;
DEFINE_EXPORT_BGL_PROCEDURE( BGl_deletezd2duplicateszd2envz00zzblibz00, BgL_bgl__deleteza7d2duplic3112za7, BGl__deletezd2duplicates2157zd2zzblibz00, 0L, BUNSPEC, 1 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_charzd2ze3hexzd2envze3zzblibz00, BgL_bgl__charza7d2za7e3hexza733113za7, BGl__charzd2ze3hexz31zzblibz00, 0L, BUNSPEC, 1 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_removezd2envzd2zzblibz00, BgL_bgl__removeza700za7za7blib3114za7, BGl__removez00zzblibz00, 0L, BUNSPEC, 2 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_tmzf3zd2envz21zzblibz00, BgL_bgl__tmza7f3za7f3za7za7blibza73115za7, BGl__tmzf3zf3zzblibz00, 0L, BUNSPEC, 1 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_statzd2ctimezd2envz00zzblibz00, BgL_bgl__statza7d2ctimeza7d23116z00, BGl__statzd2ctimezd2zzblibz00, 0L, BUNSPEC, 1 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_environzd2envzd2zzblibz00, BgL_bgl__environza700za7za7bli3117za7, BGl__environz00zzblibz00, 0L, BUNSPEC, 0 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_lsetzd2differencezd2envz00zzblibz00, BgL_bgl__lsetza7d2differen3118za7, va_generic_entry, BGl__lsetzd2differencezd2zzblibz00, BUNSPEC, -3 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_setenvzd2envzd2zzblibz00, BgL_bgl__setenvza700za7za7blib3119za7, BGl__setenvz00zzblibz00, 0L, BUNSPEC, 2 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_tmzd2yearzd2envz00zzblibz00, BgL_bgl__tmza7d2yearza7d2za7za7b3120z00, BGl__tmzd2yearzd2zzblibz00, 0L, BUNSPEC, 1 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_stringzd2joinzd2envz00zzblibz00, BgL_bgl__stringza7d2joinza7d3121z00, opt_generic_entry, BGl__stringzd2joinzd2zzblibz00, BFALSE,-1 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_statzd2devzd2envz00zzblibz00, BgL_bgl__statza7d2devza7d2za7za73122z00, BGl__statzd2devzd2zzblibz00, 0L, BUNSPEC, 1 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_statzd2nlinkzd2envz00zzblibz00, BgL_bgl__statza7d2nlinkza7d23123z00, BGl__statzd2nlinkzd2zzblibz00, 0L, BUNSPEC, 1 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_statzd2mtimezd2envz00zzblibz00, BgL_bgl__statza7d2mtimeza7d23124z00, BGl__statzd2mtimezd2zzblibz00, 0L, BUNSPEC, 1 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_strftimezd2envzd2zzblibz00, BgL_bgl__strftimeza700za7za7bl3125za7, opt_generic_entry, BGl__strftimez00zzblibz00, BFALSE,-1 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_statzf3zd2envz21zzblibz00, BgL_bgl__statza7f3za7f3za7za7bli3126z00, BGl__statzf3zf3zzblibz00, 0L, BUNSPEC, 1 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_statzd2inozd2envz00zzblibz00, BgL_bgl__statza7d2inoza7d2za7za73127z00, BGl__statzd2inozd2zzblibz00, 0L, BUNSPEC, 1 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_statzd2uidzd2envz00zzblibz00, BgL_bgl__statza7d2uidza7d2za7za73128z00, BGl__statzd2uidzd2zzblibz00, 0L, BUNSPEC, 1 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_daylightzd2envzd2zzblibz00, BgL_bgl__daylightza700za7za7bl3129za7, BGl__daylightz00zzblibz00, 0L, BUNSPEC, 0 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_tmzd2seczd2envz00zzblibz00, BgL_bgl__tmza7d2secza7d2za7za7bl3130z00, BGl__tmzd2seczd2zzblibz00, 0L, BUNSPEC, 1 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_fdzd2setzf3zd2envzf3zzblibz00, BgL_bgl__fdza7d2setza7f3za721za73131z00, BGl__fdzd2setzf3z21zzblibz00, 0L, BUNSPEC, 1 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_mktimezd2envzd2zzblibz00, BgL_bgl__mktimeza700za7za7blib3132za7, opt_generic_entry, BGl__mktimez00zzblibz00, BFALSE,-1 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_stringza2zf3zd2envz83zzblibz00, BgL_bgl__stringza7a2za7f3za7513133za7, BGl__stringza2zf3z51zzblibz00, 0L, BUNSPEC, 1 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_statzd2atimezd2envz00zzblibz00, BgL_bgl__statza7d2atimeza7d23134z00, BGl__statzd2atimezd2zzblibz00, 0L, BUNSPEC, 1 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_statzd2gidzd2envz00zzblibz00, BgL_bgl__statza7d2gidza7d2za7za73135z00, BGl__statzd2gidzd2zzblibz00, 0L, BUNSPEC, 1 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_stringzd2ze3hexzd2envze3zzblibz00, BgL_bgl__stringza7d2za7e3hex3136z00, BGl__stringzd2ze3hexz31zzblibz00, 0L, BUNSPEC, 1 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_stringzd2listzd2ze3stringza2zd2envz93zzblibz00, BgL_bgl__stringza7d2listza7d3137z00, BGl__stringzd2listzd2ze3stringza2z41zzblibz00, 0L, BUNSPEC, 1 );
BGL_IMPORT obj_t BGl_displayzd2envzd2zz__r4_output_6_10_3z00;
DEFINE_EXPORT_BGL_PROCEDURE( BGl_statzd2envzd2zzblibz00, BgL_bgl__statza700za7za7blibza703138z00, BGl__statz00zzblibz00, 0L, BUNSPEC, 1 );
/* module-initialization */
BGL_EXPORTED_DEF obj_t BGl_modulezd2initializa7ationz75zzblibz00(long BgL_checksumz00_1814, char * BgL_fromz00_1815)
{ AN_OBJECT;
{
if(
CBOOL(BGl_requirezd2initializa7ationz75zzblibz00))
{
BGl_requirezd2initializa7ationz75zzblibz00 =
BBOOL(((bool_t)0));
BGl_libraryzd2moduleszd2initz00zzblibz00();
BGl_cnstzd2initzd2zzblibz00();
BGl_methodzd2initzd2zzblibz00();
return BUNSPEC;} else
{
return BUNSPEC;} }
}
/* library-modules-init */
obj_t BGl_libraryzd2moduleszd2initz00zzblibz00()
{ AN_OBJECT;
{ /* blib.scm 36 */
BGl_modulezd2initializa7ationz75zz__r4_pairs_and_lists_6_3z00(((long)0), "blib");
BGl_modulezd2initializa7ationz75zz__evalz00(((long)0), "blib");
BGl_modulezd2initializa7ationz75zz__r4_equivalence_6_2z00(((long)0), "blib");
BGl_modulezd2initializa7ationz75zz__r4_numbers_6_5_fixnumz00(((long)0), "blib");
BGl_modulezd2initializa7ationz75zz__bexitz00(((long)0), "blib");
BGl_modulezd2initializa7ationz75zz__errorz00(((long)0), "blib");
BGl_modulezd2initializa7ationz75zz__r4_strings_6_7z00(((long)0), "blib");
BGl_modulezd2initializa7ationz75zz__r4_ports_6_10_1z00(((long)0), "blib");
BGl_modulezd2initializa7ationz75zz__r4_control_features_6_9z00(((long)0), "blib");
BGl_modulezd2initializa7ationz75zz__r4_output_6_10_3z00(((long)0), "blib");
BGl_modulezd2initializa7ationz75zz__r4_numbers_6_5z00(((long)0), "blib");
BGl_modulezd2initializa7ationz75zz__evenvz00(((long)0), "blib");
return BUNSPEC;}
}
/* cnst-init */
obj_t BGl_cnstzd2initzd2zzblibz00()
{ AN_OBJECT;
{ /* blib.scm 36 */
BGl_symbol2455z00zzblibz00 =
bstring_to_symbol(BGl_string2456z00zzblibz00);
BGl_symbol2457z00zzblibz00 =
bstring_to_symbol(BGl_string2458z00zzblibz00);
BGl_symbol2461z00zzblibz00 =
bstring_to_symbol(BGl_string2462z00zzblibz00);
BGl_symbol2463z00zzblibz00 =
bstring_to_symbol(BGl_string2464z00zzblibz00);
BGl_symbol2468z00zzblibz00 =
bstring_to_symbol(BGl_string2469z00zzblibz00);
BGl_symbol2470z00zzblibz00 =
bstring_to_symbol(BGl_string2471z00zzblibz00);
BGl_symbol2473z00zzblibz00 =
bstring_to_symbol(BGl_string2474z00zzblibz00);
BGl_symbol2477z00zzblibz00 =
bstring_to_symbol(BGl_string2478z00zzblibz00);
BGl_symbol2482z00zzblibz00 =
bstring_to_symbol(BGl_string2483z00zzblibz00);
BGl_symbol2485z00zzblibz00 =
bstring_to_symbol(BGl_string2486z00zzblibz00);
BGl_symbol2487z00zzblibz00 =
bstring_to_symbol(BGl_string2488z00zzblibz00);
BGl_symbol2490z00zzblibz00 =
bstring_to_symbol(BGl_string2491z00zzblibz00);
BGl_list2489z00zzblibz00 =
MAKE_PAIR(BGl_symbol2490z00zzblibz00,
MAKE_PAIR(BNIL, BNIL));
BGl_list2484z00zzblibz00 =
MAKE_PAIR(BGl_symbol2485z00zzblibz00,
MAKE_PAIR(BGl_symbol2487z00zzblibz00,
MAKE_PAIR(BGl_list2489z00zzblibz00, BNIL)));
BGl_list2481z00zzblibz00 =
MAKE_PAIR(BGl_symbol2482z00zzblibz00,
MAKE_PAIR(BGl_list2484z00zzblibz00, BNIL));
BGl_list2480z00zzblibz00 =
MAKE_PAIR(BGl_list2481z00zzblibz00, BNIL);
BGl_list2479z00zzblibz00 =
MAKE_PAIR(BGl_symbol2473z00zzblibz00,
MAKE_PAIR(BGl_list2480z00zzblibz00,
MAKE_PAIR(BGl_symbol2482z00zzblibz00, BNIL)));
BGl_list2476z00zzblibz00 =
MAKE_PAIR(BGl_symbol2477z00zzblibz00,
MAKE_PAIR(BGl_list2479z00zzblibz00, BNIL));
BGl_list2475z00zzblibz00 =
MAKE_PAIR(BGl_list2476z00zzblibz00, BNIL);
BGl_symbol2493z00zzblibz00 =
bstring_to_symbol(BGl_string2494z00zzblibz00);
BGl_symbol2495z00zzblibz00 =
bstring_to_symbol(BGl_string2496z00zzblibz00);
BGl_list2492z00zzblibz00 =
MAKE_PAIR(BGl_symbol2493z00zzblibz00,
MAKE_PAIR(BGl_symbol2495z00zzblibz00,
MAKE_PAIR(BGl_symbol2477z00zzblibz00, BNIL)));
BGl_list2472z00zzblibz00 =
MAKE_PAIR(BGl_symbol2473z00zzblibz00,
MAKE_PAIR(BGl_list2475z00zzblibz00,
MAKE_PAIR(BGl_list2492z00zzblibz00, BNIL)));
BGl_list2467z00zzblibz00 =
MAKE_PAIR(BGl_symbol2468z00zzblibz00,
MAKE_PAIR(BGl_symbol2470z00zzblibz00,
MAKE_PAIR(BGl_list2472z00zzblibz00, BNIL)));
BGl_symbol2497z00zzblibz00 =
bstring_to_symbol(BGl_string2498z00zzblibz00);
BGl_symbol2501z00zzblibz00 =
bstring_to_symbol(BGl_string2502z00zzblibz00);
BGl_symbol2503z00zzblibz00 =
bstring_to_symbol(BGl_string2504z00zzblibz00);
BGl_list2500z00zzblibz00 =
MAKE_PAIR(BGl_symbol2501z00zzblibz00,
MAKE_PAIR(BGl_symbol2470z00zzblibz00,
MAKE_PAIR(BGl_symbol2470z00zzblibz00,
MAKE_PAIR(BGl_symbol2503z00zzblibz00,
MAKE_PAIR(BGl_symbol2487z00zzblibz00, BNIL)))));
BGl_symbol2505z00zzblibz00 =
bstring_to_symbol(BGl_string2506z00zzblibz00);
BGl_symbol2507z00zzblibz00 =
bstring_to_symbol(BGl_string2508z00zzblibz00);
BGl_symbol2509z00zzblibz00 =
bstring_to_symbol(BGl_string2510z00zzblibz00);
BGl_symbol2514z00zzblibz00 =
bstring_to_symbol(BGl_string2515z00zzblibz00);
BGl_symbol2517z00zzblibz00 =
bstring_to_symbol(BGl_string2518z00zzblibz00);
BGl_symbol2519z00zzblibz00 =
bstring_to_symbol(BGl_string2520z00zzblibz00);
BGl_list2516z00zzblibz00 =
MAKE_PAIR(BGl_symbol2468z00zzblibz00,
MAKE_PAIR(BGl_symbol2517z00zzblibz00,
MAKE_PAIR(BGl_symbol2519z00zzblibz00, BNIL)));
BGl_symbol2522z00zzblibz00 =
bstring_to_symbol(BGl_string2523z00zzblibz00);
BGl_list2521z00zzblibz00 =
MAKE_PAIR(BGl_symbol2501z00zzblibz00,
MAKE_PAIR(BGl_symbol2517z00zzblibz00,
MAKE_PAIR(BGl_symbol2517z00zzblibz00,
MAKE_PAIR(BGl_symbol2522z00zzblibz00,
MAKE_PAIR(BGl_symbol2487z00zzblibz00, BNIL)))));
BGl_symbol2524z00zzblibz00 =
bstring_to_symbol(BGl_string2525z00zzblibz00);
BGl_symbol2528z00zzblibz00 =
bstring_to_symbol(BGl_string2529z00zzblibz00);
BGl_symbol2531z00zzblibz00 =
bstring_to_symbol(BGl_string2532z00zzblibz00);
BGl_symbol2536z00zzblibz00 =
bstring_to_symbol(BGl_string2537z00zzblibz00);
BGl_symbol2541z00zzblibz00 =
bstring_to_symbol(BGl_string2542z00zzblibz00);
BGl_symbol2543z00zzblibz00 =
bstring_to_symbol(BGl_string2544z00zzblibz00);
BGl_list2540z00zzblibz00 =
MAKE_PAIR(BGl_symbol2501z00zzblibz00,
MAKE_PAIR(BGl_symbol2541z00zzblibz00,
MAKE_PAIR(BGl_symbol2541z00zzblibz00,
MAKE_PAIR(BGl_symbol2543z00zzblibz00, BNIL))));
BGl_symbol2545z00zzblibz00 =
bstring_to_symbol(BGl_string2546z00zzblibz00);
BGl_symbol2547z00zzblibz00 =
bstring_to_symbol(BGl_string2548z00zzblibz00);
BGl_symbol2550z00zzblibz00 =
bstring_to_symbol(BGl_string2551z00zzblibz00);
BGl_symbol2553z00zzblibz00 =
bstring_to_symbol(BGl_string2554z00zzblibz00);
BGl_symbol2555z00zzblibz00 =
bstring_to_symbol(BGl_string2556z00zzblibz00);
BGl_list2552z00zzblibz00 =
MAKE_PAIR(BGl_symbol2468z00zzblibz00,
MAKE_PAIR(BGl_symbol2553z00zzblibz00,
MAKE_PAIR(BGl_symbol2555z00zzblibz00, BNIL)));
BGl_symbol2557z00zzblibz00 =
bstring_to_symbol(BGl_string2558z00zzblibz00);
BGl_symbol2559z00zzblibz00 =
bstring_to_symbol(BGl_string2560z00zzblibz00);
BGl_list2561z00zzblibz00 =
MAKE_PAIR(BGl_symbol2559z00zzblibz00, BNIL);
BGl_symbol2563z00zzblibz00 =
bstring_to_symbol(BGl_string2564z00zzblibz00);
BGl_symbol2566z00zzblibz00 =
bstring_to_symbol(BGl_string2567z00zzblibz00);
BGl_list2565z00zzblibz00 =
MAKE_PAIR(BGl_symbol2566z00zzblibz00,
MAKE_PAIR(BGl_symbol2559z00zzblibz00, BNIL));
BGl_list2562z00zzblibz00 =
MAKE_PAIR(BGl_symbol2563z00zzblibz00,
MAKE_PAIR(BGl_list2565z00zzblibz00, BNIL));
BGl_list2568z00zzblibz00 =
MAKE_PAIR(BGl_string2460z00zzblibz00,
BINT(((long)13364)));
BGl_symbol2569z00zzblibz00 =
bstring_to_symbol(BGl_string2570z00zzblibz00);
BGl_symbol2571z00zzblibz00 =
bstring_to_symbol(BGl_string2572z00zzblibz00);
BGl_symbol2575z00zzblibz00 =
bstring_to_symbol(BGl_string2576z00zzblibz00);
BGl_symbol2577z00zzblibz00 =
bstring_to_symbol(BGl_string2578z00zzblibz00);
BGl_symbol2583z00zzblibz00 =
bstring_to_symbol(BGl_string2459z00zzblibz00);
BGl_list2582z00zzblibz00 =
MAKE_PAIR(BGl_symbol2583z00zzblibz00,
MAKE_PAIR(BGl_symbol2559z00zzblibz00, BNIL));
BGl_list2581z00zzblibz00 =
MAKE_PAIR(BGl_list2582z00zzblibz00, BNIL);
BGl_symbol2585z00zzblibz00 =
bstring_to_symbol(BGl_string2586z00zzblibz00);
BGl_list2584z00zzblibz00 =
MAKE_PAIR(BGl_symbol2585z00zzblibz00,
MAKE_PAIR(BGl_symbol2583z00zzblibz00, BNIL));
BGl_list2580z00zzblibz00 =
MAKE_PAIR(BGl_symbol2473z00zzblibz00,
MAKE_PAIR(BGl_list2581z00zzblibz00,
MAKE_PAIR(BGl_list2584z00zzblibz00, BNIL)));
BGl_list2579z00zzblibz00 =
MAKE_PAIR(BGl_symbol2468z00zzblibz00,
MAKE_PAIR(BGl_symbol2553z00zzblibz00,
MAKE_PAIR(BGl_list2580z00zzblibz00, BNIL)));
BGl_symbol2587z00zzblibz00 =
bstring_to_symbol(BGl_string2588z00zzblibz00);
BGl_symbol2589z00zzblibz00 =
bstring_to_symbol(BGl_string2590z00zzblibz00);
BGl_symbol2591z00zzblibz00 =
bstring_to_symbol(BGl_string2592z00zzblibz00);
BGl_symbol2593z00zzblibz00 =
bstring_to_symbol(BGl_string2594z00zzblibz00);
BGl_symbol2595z00zzblibz00 =
bstring_to_symbol(BGl_string2596z00zzblibz00);
BGl_symbol2597z00zzblibz00 =
bstring_to_symbol(BGl_string2598z00zzblibz00);
BGl_symbol2600z00zzblibz00 =
bstring_to_symbol(BGl_string2601z00zzblibz00);
BGl_symbol2602z00zzblibz00 =
bstring_to_symbol(BGl_string2603z00zzblibz00);
BGl_symbol2604z00zzblibz00 =
bstring_to_symbol(BGl_string2605z00zzblibz00);
BGl_symbol2607z00zzblibz00 =
bstring_to_symbol(BGl_string2608z00zzblibz00);
BGl_symbol2609z00zzblibz00 =
bstring_to_symbol(BGl_string2610z00zzblibz00);
BGl_symbol2611z00zzblibz00 =
bstring_to_symbol(BGl_string2612z00zzblibz00);
BGl_symbol2613z00zzblibz00 =
bstring_to_symbol(BGl_string2614z00zzblibz00);
BGl_symbol2615z00zzblibz00 =
bstring_to_symbol(BGl_string2616z00zzblibz00);
BGl_symbol2617z00zzblibz00 =
bstring_to_symbol(BGl_string2618z00zzblibz00);
BGl_symbol2620z00zzblibz00 =
bstring_to_symbol(BGl_string2621z00zzblibz00);
BGl_symbol2623z00zzblibz00 =
bstring_to_symbol(BGl_string2624z00zzblibz00);
BGl_symbol2625z00zzblibz00 =
bstring_to_symbol(BGl_string2626z00zzblibz00);
BGl_symbol2629z00zzblibz00 =
bstring_to_symbol(BGl_string2630z00zzblibz00);
BGl_symbol2631z00zzblibz00 =
bstring_to_symbol(BGl_string2632z00zzblibz00);
BGl_list2628z00zzblibz00 =
MAKE_PAIR(BGl_symbol2501z00zzblibz00,
MAKE_PAIR(BGl_symbol2629z00zzblibz00,
MAKE_PAIR(BGl_symbol2629z00zzblibz00,
MAKE_PAIR(BGl_symbol2631z00zzblibz00, BNIL))));
BGl_symbol2633z00zzblibz00 =
bstring_to_symbol(BGl_string2634z00zzblibz00);
BGl_symbol2635z00zzblibz00 =
bstring_to_symbol(BGl_string2636z00zzblibz00);
BGl_symbol2637z00zzblibz00 =
bstring_to_symbol(BGl_string2638z00zzblibz00);
BGl_symbol2639z00zzblibz00 =
bstring_to_symbol(BGl_string2640z00zzblibz00);
BGl_symbol2642z00zzblibz00 =
bstring_to_symbol(BGl_string2643z00zzblibz00);
BGl_symbol2645z00zzblibz00 =
bstring_to_symbol(BGl_string2646z00zzblibz00);
BGl_symbol2647z00zzblibz00 =
bstring_to_symbol(BGl_string2648z00zzblibz00);
BGl_symbol2650z00zzblibz00 =
bstring_to_symbol(BGl_string2651z00zzblibz00);
BGl_symbol2652z00zzblibz00 =
bstring_to_symbol(BGl_string2653z00zzblibz00);
BGl_symbol2655z00zzblibz00 =
bstring_to_symbol(BGl_string2656z00zzblibz00);
BGl_symbol2657z00zzblibz00 =
bstring_to_symbol(BGl_string2658z00zzblibz00);
BGl_symbol2659z00zzblibz00 =
bstring_to_symbol(BGl_string2660z00zzblibz00);
BGl_symbol2663z00zzblibz00 =
bstring_to_symbol(BGl_string2664z00zzblibz00);
BGl_symbol2665z00zzblibz00 =
bstring_to_symbol(BGl_string2666z00zzblibz00);
BGl_symbol2667z00zzblibz00 =
bstring_to_symbol(BGl_string2668z00zzblibz00);
BGl_symbol2669z00zzblibz00 =
bstring_to_symbol(BGl_string2670z00zzblibz00);
BGl_symbol2671z00zzblibz00 =
bstring_to_symbol(BGl_string2672z00zzblibz00);
BGl_symbol2675z00zzblibz00 =
bstring_to_symbol(BGl_string2676z00zzblibz00);
BGl_symbol2679z00zzblibz00 =
bstring_to_symbol(BGl_string2680z00zzblibz00);
BGl_symbol2681z00zzblibz00 =
bstring_to_symbol(BGl_string2682z00zzblibz00);
BGl_list2678z00zzblibz00 =
MAKE_PAIR(BGl_symbol2501z00zzblibz00,
MAKE_PAIR(BGl_symbol2679z00zzblibz00,
MAKE_PAIR(BGl_symbol2679z00zzblibz00,
MAKE_PAIR(BGl_symbol2631z00zzblibz00,
MAKE_PAIR(BGl_symbol2681z00zzblibz00, BNIL)))));
BGl_symbol2683z00zzblibz00 =
bstring_to_symbol(BGl_string2684z00zzblibz00);
BGl_symbol2685z00zzblibz00 =
bstring_to_symbol(BGl_string2686z00zzblibz00);
BGl_symbol2688z00zzblibz00 =
bstring_to_symbol(BGl_string2689z00zzblibz00);
BGl_symbol2690z00zzblibz00 =
bstring_to_symbol(BGl_string2691z00zzblibz00);
BGl_symbol2692z00zzblibz00 =
bstring_to_symbol(BGl_string2693z00zzblibz00);
BGl_symbol2694z00zzblibz00 =
bstring_to_symbol(BGl_string2695z00zzblibz00);
BGl_symbol2696z00zzblibz00 =
bstring_to_symbol(BGl_string2697z00zzblibz00);
BGl_symbol2699z00zzblibz00 =
bstring_to_symbol(BGl_string2700z00zzblibz00);
BGl_symbol2701z00zzblibz00 =
bstring_to_symbol(BGl_string2702z00zzblibz00);
BGl_symbol2703z00zzblibz00 =
bstring_to_symbol(BGl_string2704z00zzblibz00);
BGl_symbol2705z00zzblibz00 =
bstring_to_symbol(BGl_string2706z00zzblibz00);
BGl_symbol2707z00zzblibz00 =
bstring_to_symbol(BGl_string2708z00zzblibz00);
BGl_symbol2709z00zzblibz00 =
bstring_to_symbol(BGl_string2710z00zzblibz00);
BGl_symbol2711z00zzblibz00 =
bstring_to_symbol(BGl_string2712z00zzblibz00);
BGl_symbol2713z00zzblibz00 =
bstring_to_symbol(BGl_string2714z00zzblibz00);
BGl_symbol2715z00zzblibz00 =
bstring_to_symbol(BGl_string2716z00zzblibz00);
BGl_symbol2717z00zzblibz00 =
bstring_to_symbol(BGl_string2718z00zzblibz00);
BGl_symbol2719z00zzblibz00 =
bstring_to_symbol(BGl_string2720z00zzblibz00);
BGl_symbol2721z00zzblibz00 =
bstring_to_symbol(BGl_string2698z00zzblibz00);
BGl_symbol2722z00zzblibz00 =
bstring_to_symbol(BGl_string2723z00zzblibz00);
BGl_symbol2724z00zzblibz00 =
bstring_to_symbol(BGl_string2725z00zzblibz00);
BGl_symbol2726z00zzblibz00 =
bstring_to_symbol(BGl_string2727z00zzblibz00);
BGl_symbol2728z00zzblibz00 =
bstring_to_symbol(BGl_string2729z00zzblibz00);
BGl_symbol2730z00zzblibz00 =
bstring_to_symbol(BGl_string2731z00zzblibz00);
BGl_symbol2732z00zzblibz00 =
bstring_to_symbol(BGl_string2733z00zzblibz00);
BGl_symbol2735z00zzblibz00 =
bstring_to_symbol(BGl_string2736z00zzblibz00);
BGl_symbol2737z00zzblibz00 =
bstring_to_symbol(BGl_string2738z00zzblibz00);
BGl_symbol2739z00zzblibz00 =
bstring_to_symbol(BGl_string2740z00zzblibz00);
BGl_symbol2742z00zzblibz00 =
bstring_to_symbol(BGl_string2743z00zzblibz00);
BGl_symbol2745z00zzblibz00 =
bstring_to_symbol(BGl_string2746z00zzblibz00);
BGl_symbol2747z00zzblibz00 =
bstring_to_symbol(BGl_string2748z00zzblibz00);
BGl_symbol2750z00zzblibz00 =
bstring_to_symbol(BGl_string2751z00zzblibz00);
BGl_symbol2753z00zzblibz00 =
bstring_to_symbol(BGl_string2754z00zzblibz00);
BGl_symbol2755z00zzblibz00 =
bstring_to_symbol(BGl_string2756z00zzblibz00);
BGl_symbol2757z00zzblibz00 =
bstring_to_symbol(BGl_string2758z00zzblibz00);
BGl_symbol2761z00zzblibz00 =
bstring_to_symbol(BGl_string2762z00zzblibz00);
BGl_symbol2763z00zzblibz00 =
bstring_to_symbol(BGl_string2764z00zzblibz00);
BGl_symbol2765z00zzblibz00 =
bstring_to_symbol(BGl_string2766z00zzblibz00);
BGl_symbol2767z00zzblibz00 =
bstring_to_symbol(BGl_string2768z00zzblibz00);
BGl_symbol2769z00zzblibz00 =
bstring_to_symbol(BGl_string2770z00zzblibz00);
BGl_symbol2771z00zzblibz00 =
bstring_to_symbol(BGl_string2772z00zzblibz00);
BGl_symbol2773z00zzblibz00 =
bstring_to_symbol(BGl_string2774z00zzblibz00);
BGl_symbol2775z00zzblibz00 =
bstring_to_symbol(BGl_string2776z00zzblibz00);
BGl_symbol2777z00zzblibz00 =
bstring_to_symbol(BGl_string2778z00zzblibz00);
BGl_symbol2779z00zzblibz00 =
bstring_to_symbol(BGl_string2780z00zzblibz00);
BGl_symbol2781z00zzblibz00 =
bstring_to_symbol(BGl_string2782z00zzblibz00);
BGl_symbol2783z00zzblibz00 =
bstring_to_symbol(BGl_string2784z00zzblibz00);
BGl_symbol2785z00zzblibz00 =
bstring_to_symbol(BGl_string2786z00zzblibz00);
BGl_symbol2787z00zzblibz00 =
bstring_to_symbol(BGl_string2788z00zzblibz00);
BGl_symbol2789z00zzblibz00 =
bstring_to_symbol(BGl_string2790z00zzblibz00);
BGl_symbol2791z00zzblibz00 =
bstring_to_symbol(BGl_string2792z00zzblibz00);
BGl_symbol2793z00zzblibz00 =
bstring_to_symbol(BGl_string2794z00zzblibz00);
BGl_symbol2795z00zzblibz00 =
bstring_to_symbol(BGl_string2796z00zzblibz00);
BGl_symbol2797z00zzblibz00 =
bstring_to_symbol(BGl_string2798z00zzblibz00);
BGl_symbol2799z00zzblibz00 =
bstring_to_symbol(BGl_string2800z00zzblibz00);
BGl_symbol2804z00zzblibz00 =
bstring_to_symbol(BGl_string2805z00zzblibz00);
BGl_symbol2806z00zzblibz00 =
bstring_to_symbol(BGl_string2807z00zzblibz00);
BGl_symbol2809z00zzblibz00 =
bstring_to_symbol(BGl_string2810z00zzblibz00);
BGl_symbol2812z00zzblibz00 =
bstring_to_symbol(BGl_string2813z00zzblibz00);
BGl_list2814z00zzblibz00 =
MAKE_PAIR(BGl_symbol2763z00zzblibz00,
MAKE_PAIR(BGl_symbol2765z00zzblibz00,
MAKE_PAIR(BGl_symbol2767z00zzblibz00,
MAKE_PAIR(BGl_symbol2769z00zzblibz00,
MAKE_PAIR(BGl_symbol2771z00zzblibz00,
MAKE_PAIR(BGl_symbol2773z00zzblibz00,
MAKE_PAIR(BGl_symbol2775z00zzblibz00,
MAKE_PAIR(BGl_symbol2777z00zzblibz00,
MAKE_PAIR(BGl_symbol2779z00zzblibz00,
MAKE_PAIR(BGl_symbol2781z00zzblibz00,
MAKE_PAIR(BGl_symbol2783z00zzblibz00,
MAKE_PAIR(BGl_symbol2785z00zzblibz00,
MAKE_PAIR(BGl_symbol2787z00zzblibz00,
MAKE_PAIR(BGl_symbol2789z00zzblibz00,
MAKE_PAIR(BGl_symbol2791z00zzblibz00,
MAKE_PAIR(BGl_symbol2793z00zzblibz00,
MAKE_PAIR(BGl_symbol2795z00zzblibz00,
MAKE_PAIR(BGl_symbol2797z00zzblibz00,
MAKE_PAIR(BGl_symbol2799z00zzblibz00, BNIL)))))))))))))))))));
BGl_symbol2815z00zzblibz00 =
bstring_to_symbol(BGl_string2816z00zzblibz00);
BGl_symbol2817z00zzblibz00 =
bstring_to_symbol(BGl_string2818z00zzblibz00);
BGl_symbol2819z00zzblibz00 =
bstring_to_symbol(BGl_string2820z00zzblibz00);
BGl_symbol2821z00zzblibz00 =
bstring_to_symbol(BGl_string2822z00zzblibz00);
BGl_symbol2823z00zzblibz00 =
bstring_to_symbol(BGl_string2824z00zzblibz00);
BGl_symbol2825z00zzblibz00 =
bstring_to_symbol(BGl_string2826z00zzblibz00);
BGl_symbol2827z00zzblibz00 =
bstring_to_symbol(BGl_string2828z00zzblibz00);
BGl_symbol2829z00zzblibz00 =
bstring_to_symbol(BGl_string2830z00zzblibz00);
BGl_symbol2831z00zzblibz00 =
bstring_to_symbol(BGl_string2832z00zzblibz00);
BGl_symbol2833z00zzblibz00 =
bstring_to_symbol(BGl_string2834z00zzblibz00);
BGl_symbol2835z00zzblibz00 =
bstring_to_symbol(BGl_string2836z00zzblibz00);
BGl_symbol2837z00zzblibz00 =
bstring_to_symbol(BGl_string2838z00zzblibz00);
BGl_symbol2839z00zzblibz00 =
bstring_to_symbol(BGl_string2840z00zzblibz00);
BGl_symbol2841z00zzblibz00 =
bstring_to_symbol(BGl_string2842z00zzblibz00);
BGl_symbol2843z00zzblibz00 =
bstring_to_symbol(BGl_string2844z00zzblibz00);
BGl_symbol2845z00zzblibz00 =
bstring_to_symbol(BGl_string2846z00zzblibz00);
BGl_symbol2847z00zzblibz00 =
bstring_to_symbol(BGl_string2848z00zzblibz00);
BGl_symbol2849z00zzblibz00 =
bstring_to_symbol(BGl_string2850z00zzblibz00);
BGl_symbol2851z00zzblibz00 =
bstring_to_symbol(BGl_string2852z00zzblibz00);
BGl_symbol2853z00zzblibz00 =
bstring_to_symbol(BGl_string2854z00zzblibz00);
BGl_symbol2855z00zzblibz00 =
bstring_to_symbol(BGl_string2856z00zzblibz00);
BGl_symbol2857z00zzblibz00 =
bstring_to_symbol(BGl_string2858z00zzblibz00);
BGl_symbol2859z00zzblibz00 =
bstring_to_symbol(BGl_string2860z00zzblibz00);
BGl_symbol2861z00zzblibz00 =
bstring_to_symbol(BGl_string2862z00zzblibz00);
return (
BGl_symbol2863z00zzblibz00 =
bstring_to_symbol(BGl_string2864z00zzblibz00), BUNSPEC) ;}
}
/* %cdrs */
obj_t BGl_z52cdrsz52zzblibz00(obj_t BgL_listsz00_9)
{ AN_OBJECT;
{ /* blib.scm 324 */
{ /* blib.scm 325 */
obj_t BgL_symbol2032z00_1135;
BgL_symbol2032z00_1135 = BGl_symbol2455z00zzblibz00;
{ /* blib.scm 325 */
PUSH_TRACE(BgL_symbol2032z00_1135);
{ /* blib.scm 325 */
obj_t BgL_aux2031z00_1136;
BgL_aux2031z00_1136 =
BGl_zc3exitza31409za3blibze2scmza3325ze3z61zzblibz00(BgL_listsz00_9);
POP_TRACE();
return BgL_aux2031z00_1136;} } } }
}
/* recur'' */
obj_t BGl_recurz72z72z00zzblibz00(obj_t BgL_an_exitd1309z00_1412, obj_t BgL_listsz00_153)
{ AN_OBJECT;
{ /* blib.scm 326 */
if(
PAIRP(BgL_listsz00_153))
{ /* blib.scm 328 */
obj_t BgL_lisz00_156;
BgL_lisz00_156 =
CAR(BgL_listsz00_153);
if(
CBOOL(
BGl_nullzd2listzf3z21zzblibz00(BgL_lisz00_156)))
{ /* blib.scm 329 */
return
BGl_unwindzd2untilz12zc0zz__bexitz00(BgL_an_exitd1309z00_1412, BNIL);} else
{ /* blib.scm 330 */
obj_t BgL_arg1412z00_158;obj_t BgL_arg1413z00_159;
{ /* blib.scm 330 */
obj_t BgL_pairz00_673;
if(
PAIRP(BgL_lisz00_156))
{ /* blib.scm 330 */
BgL_pairz00_673 = BgL_lisz00_156; } else
{ /* blib.scm 330 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2457z00zzblibz00, BGl_string2459z00zzblibz00, BgL_lisz00_156, BGl_string2460z00zzblibz00,
BINT(((long)10377)));
exit( -1 );}
BgL_arg1412z00_158 =
CDR(BgL_pairz00_673); }
BgL_arg1413z00_159 =
BGl_recurz72z72z00zzblibz00(BgL_an_exitd1309z00_1412,
CDR(BgL_listsz00_153));
return
MAKE_PAIR(BgL_arg1412z00_158, BgL_arg1413z00_159);} } else
{ /* blib.scm 327 */
return BNIL;} }
}
/* <exit:1409:blib.scm:325> */
obj_t BGl_zc3exitza31409za3blibze2scmza3325ze3z61zzblibz00(obj_t BgL_listsz00_1413)
{ AN_OBJECT;
{ /* blib.scm 325 */
jmp_buf_t jmpbuf;
void * BgL_an_exit1308z00_148;
{BGL_STORE_TRACE(); if( SET_EXIT(BgL_an_exit1308z00_148) ) { BGL_RESTORE_TRACE();
return
_exit_value_;
} else {
BgL_an_exit1308z00_148 =
(void *)jmpbuf;
{ /* blib.scm 325 */
PUSH_EXIT(BgL_an_exit1308z00_148, ((long)1));
{ /* blib.scm 325 */
obj_t BgL_an_exitd1309z00_149;
BgL_an_exitd1309z00_149 =
BGL_EXITD_TOP();
{ /* blib.scm 326 */
obj_t BgL_res1311z00_152;
BgL_res1311z00_152 =
BGl_recurz72z72z00zzblibz00(BgL_an_exitd1309z00_149, BgL_listsz00_1413);
POP_EXIT();
return BgL_res1311z00_152;} } }
}} }
}
/* pair-fold */
obj_t BGl_pairzd2foldzd2zzblibz00(obj_t BgL_fz00_10, obj_t BgL_za7eroza7_11, obj_t BgL_lis1z00_12, obj_t BgL_listsz00_13)
{ AN_OBJECT;
{ /* blib.scm 334 */
{ /* blib.scm 335 */
obj_t BgL_symbol2034z00_1137;
BgL_symbol2034z00_1137 = BGl_symbol2461z00zzblibz00;
{ /* blib.scm 335 */
PUSH_TRACE(BgL_symbol2034z00_1137);
{ /* blib.scm 335 */
obj_t BgL_aux2033z00_1138;
if(
PAIRP(BgL_listsz00_13))
{ /* blib.scm 336 */
obj_t BgL_g1312z00_162;
BgL_g1312z00_162 =
MAKE_PAIR(BgL_lis1z00_12, BgL_listsz00_13);
{
obj_t BgL_listsz00_163;obj_t BgL_ansz00_164;
BgL_listsz00_163 = BgL_g1312z00_162;
BgL_ansz00_164 = BgL_za7eroza7_11;
BgL_lpz00_165:
{ /* blib.scm 337 */
obj_t BgL_tailsz00_166;
BgL_tailsz00_166 =
BGl_z52cdrsz52zzblibz00(BgL_listsz00_163);
if(
NULLP(BgL_tailsz00_166))
{ /* blib.scm 338 */
BgL_aux2033z00_1138 = BgL_ansz00_164; } else
{ /* blib.scm 339 */
obj_t BgL_arg1417z00_168;
{ /* blib.scm 339 */
obj_t BgL_valz00_1423;
{ /* blib.scm 339 */
obj_t BgL_arg1418z00_169;
{ /* blib.scm 339 */
obj_t BgL_list1419z00_170;
BgL_list1419z00_170 =
MAKE_PAIR(BgL_ansz00_164, BNIL);
BgL_arg1418z00_169 = BgL_list1419z00_170; }
{ /* blib.scm 339 */
obj_t BgL_auxz00_2125;
{ /* blib.scm 339 */
bool_t BgL_testz00_2126;
if(
PAIRP(BgL_listsz00_163))
{ /* blib.scm 339 */
BgL_testz00_2126 = ((bool_t)1)
; } else
{ /* blib.scm 339 */
BgL_testz00_2126 =
NULLP(BgL_listsz00_163)
; }
if(BgL_testz00_2126)
{ /* blib.scm 339 */
BgL_auxz00_2125 = BgL_listsz00_163
; } else
{ /* blib.scm 339 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2463z00zzblibz00, BGl_string2465z00zzblibz00, BgL_listsz00_163, BGl_string2460z00zzblibz00,
BINT(((long)10662)));
exit( -1 );} }
BgL_valz00_1423 =
BGl_appendz12z12zz__r4_pairs_and_lists_6_3z00(BgL_auxz00_2125, BgL_arg1418z00_169); } }
{ /* blib.scm 339 */
int BgL_len2168z00_1424;
BgL_len2168z00_1424 =
(int)(
bgl_list_length(BgL_valz00_1423));
if(
PROCEDURE_CORRECT_ARITYP(BgL_fz00_10, BgL_len2168z00_1424))
{ /* blib.scm 339 */
BgL_arg1417z00_168 =
apply(BgL_fz00_10, BgL_valz00_1423); } else
{ /* blib.scm 339 */
BGl_errorzf2locationzf2zz__errorz00(BGl_symbol2463z00zzblibz00, BGl_string2466z00zzblibz00, BGl_list2467z00zzblibz00, BGl_string2460z00zzblibz00,
BINT(((long)10644)));
FAILURE(BGl_symbol2497z00zzblibz00,BGl_symbol2497z00zzblibz00,BGl_symbol2497z00zzblibz00);} } }
{
obj_t BgL_ansz00_2144;obj_t BgL_listsz00_2143;
BgL_listsz00_2143 = BgL_tailsz00_166;
BgL_ansz00_2144 = BgL_arg1417z00_168;
BgL_ansz00_164 = BgL_ansz00_2144;
BgL_listsz00_163 = BgL_listsz00_2143;
goto BgL_lpz00_165;} } } } } else
{
obj_t BgL_lisz00_680;obj_t BgL_ansz00_681;
BgL_lisz00_680 = BgL_lis1z00_12;
BgL_ansz00_681 = BgL_za7eroza7_11;
BgL_lpz00_679:
if(
CBOOL(
BGl_nullzd2listzf3z21zzblibz00(BgL_lisz00_680)))
{ /* blib.scm 341 */
BgL_aux2033z00_1138 = BgL_ansz00_681; } else
{ /* blib.scm 341 */
obj_t BgL_tailz00_686;
{ /* blib.scm 341 */
obj_t BgL_pairz00_688;
if(
PAIRP(BgL_lisz00_680))
{ /* blib.scm 341 */
BgL_pairz00_688 = BgL_lisz00_680; } else
{ /* blib.scm 341 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2463z00zzblibz00, BGl_string2459z00zzblibz00, BgL_lisz00_680, BGl_string2460z00zzblibz00,
BINT(((long)10692)));
exit( -1 );}
BgL_tailz00_686 =
CDR(BgL_pairz00_688); }
{ /* blib.scm 341 */
obj_t BgL_arg1421z00_687;
if(
PROCEDURE_CORRECT_ARITYP(BgL_fz00_10, ((long)2)))
{ /* blib.scm 341 */
BgL_arg1421z00_687 =
PROCEDURE_ENTRY(BgL_fz00_10)(BgL_fz00_10, BgL_lisz00_680, BgL_ansz00_681, BEOA); } else
{ /* blib.scm 341 */
BGl_errorzf2locationzf2zz__errorz00(BGl_string2499z00zzblibz00, BGl_list2500z00zzblibz00, BgL_fz00_10, BGl_string2460z00zzblibz00,
BINT(((long)10692)));
FAILURE(BGl_symbol2497z00zzblibz00,BGl_symbol2497z00zzblibz00,BGl_symbol2497z00zzblibz00);}
{
obj_t BgL_ansz00_2162;obj_t BgL_lisz00_2161;
BgL_lisz00_2161 = BgL_tailz00_686;
BgL_ansz00_2162 = BgL_arg1421z00_687;
BgL_ansz00_681 = BgL_ansz00_2162;
BgL_lisz00_680 = BgL_lisz00_2161;
goto BgL_lpz00_679;} } } }
POP_TRACE();
return BgL_aux2033z00_1138;} } } }
}
/* %cars+cdrs+ */
obj_t BGl_z52carszb2cdrszb2z52zzblibz00(obj_t BgL_listsz00_15, obj_t BgL_carszd2finalzd2_16)
{ AN_OBJECT;
{ /* blib.scm 350 */
{ /* blib.scm 351 */
obj_t BgL_symbol2036z00_1139;
BgL_symbol2036z00_1139 = BGl_symbol2505z00zzblibz00;
{ /* blib.scm 351 */
PUSH_TRACE(BgL_symbol2036z00_1139);
{ /* blib.scm 351 */
obj_t BgL_aux2035z00_1140;
BgL_aux2035z00_1140 =
BGl_zc3exitza31423za3blibze2scmza3351ze3z61zzblibz00(BgL_listsz00_15, BgL_carszd2finalzd2_16);
POP_TRACE();
return BgL_aux2035z00_1140;} } } }
}
/* recur' */
obj_t BGl_recurz72z72zzblibz00(obj_t BgL_an_exitd1314z00_1409, obj_t BgL_carszd2finalzd2_1408, obj_t BgL_listsz00_185)
{ AN_OBJECT;
{ /* blib.scm 352 */
if(
PAIRP(BgL_listsz00_185))
{ /* blib.scm 354 */
obj_t BgL_listz00_188;
{ /* blib.scm 354 */
obj_t BgL_val0_1338z00_708;obj_t BgL_val1_1339z00_709;
BgL_val0_1338z00_708 =
CAR(BgL_listsz00_185);
BgL_val1_1339z00_709 =
CDR(BgL_listsz00_185);
{ /* blib.scm 354 */
int BgL_auxz00_2171;
BgL_auxz00_2171 =
(int)(((long)2));
BGL_MVALUES_NUMBER_SET(BgL_auxz00_2171); }
{ /* blib.scm 354 */
int BgL_auxz00_2174;
BgL_auxz00_2174 =
(int)(((long)1));
BGL_MVALUES_VAL_SET(BgL_auxz00_2174, BgL_val1_1339z00_709); }
BgL_listz00_188 = BgL_val0_1338z00_708; }
{ /* blib.scm 355 */
obj_t BgL_otherzd2listszd2_189;
{ /* blib.scm 355 */
int BgL_auxz00_2177;
BgL_auxz00_2177 =
(int)(((long)1));
BgL_otherzd2listszd2_189 =
BGL_MVALUES_VAL(BgL_auxz00_2177); }
if(
CBOOL(
BGl_nullzd2listzf3z21zzblibz00(BgL_listz00_188)))
{ /* blib.scm 355 */
obj_t BgL_arg1426z00_191;
{ /* blib.scm 355 */
int BgL_auxz00_2183;
BgL_auxz00_2183 =
(int)(((long)2));
BGL_MVALUES_NUMBER_SET(BgL_auxz00_2183); }
{ /* blib.scm 355 */
int BgL_auxz00_2186;
BgL_auxz00_2186 =
(int)(((long)1));
BGL_MVALUES_VAL_SET(BgL_auxz00_2186, BNIL); }
BgL_arg1426z00_191 = BNIL;
return
BGl_unwindzd2untilz12zc0zz__bexitz00(BgL_an_exitd1314z00_1409, BgL_arg1426z00_191);} else
{ /* blib.scm 356 */
obj_t BgL_az00_194;
{ /* blib.scm 356 */
obj_t BgL_val0_1338z00_721;obj_t BgL_val1_1339z00_722;
{ /* blib.scm 356 */
obj_t BgL_pairz00_723;
if(
PAIRP(BgL_listz00_188))
{ /* blib.scm 356 */
BgL_pairz00_723 = BgL_listz00_188; } else
{ /* blib.scm 356 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2507z00zzblibz00, BGl_string2459z00zzblibz00, BgL_listz00_188, BGl_string2460z00zzblibz00,
BINT(((long)11189)));
exit( -1 );}
BgL_val0_1338z00_721 =
CAR(BgL_pairz00_723); }
{ /* blib.scm 356 */
obj_t BgL_pairz00_724;
if(
PAIRP(BgL_listz00_188))
{ /* blib.scm 356 */
BgL_pairz00_724 = BgL_listz00_188; } else
{ /* blib.scm 356 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2507z00zzblibz00, BGl_string2459z00zzblibz00, BgL_listz00_188, BGl_string2460z00zzblibz00,
BINT(((long)11189)));
exit( -1 );}
BgL_val1_1339z00_722 =
CDR(BgL_pairz00_724); }
{ /* blib.scm 356 */
int BgL_auxz00_2202;
BgL_auxz00_2202 =
(int)(((long)2));
BGL_MVALUES_NUMBER_SET(BgL_auxz00_2202); }
{ /* blib.scm 356 */
int BgL_auxz00_2205;
BgL_auxz00_2205 =
(int)(((long)1));
BGL_MVALUES_VAL_SET(BgL_auxz00_2205, BgL_val1_1339z00_722); }
BgL_az00_194 = BgL_val0_1338z00_721; }
{ /* blib.scm 357 */
obj_t BgL_dz00_195;
{ /* blib.scm 357 */
int BgL_auxz00_2208;
BgL_auxz00_2208 =
(int)(((long)1));
BgL_dz00_195 =
BGL_MVALUES_VAL(BgL_auxz00_2208); }
{ /* blib.scm 357 */
obj_t BgL_carsz00_196;
BgL_carsz00_196 =
BGl_recurz72z72zzblibz00(BgL_an_exitd1314z00_1409, BgL_carszd2finalzd2_1408, BgL_otherzd2listszd2_189);
{ /* blib.scm 358 */
obj_t BgL_cdrsz00_197;
{ /* blib.scm 358 */
int BgL_auxz00_2212;
BgL_auxz00_2212 =
(int)(((long)1));
BgL_cdrsz00_197 =
BGL_MVALUES_VAL(BgL_auxz00_2212); }
{ /* blib.scm 358 */
obj_t BgL_val0_1342z00_198;obj_t BgL_val1_1343z00_199;
BgL_val0_1342z00_198 =
MAKE_PAIR(BgL_az00_194, BgL_carsz00_196);
BgL_val1_1343z00_199 =
MAKE_PAIR(BgL_dz00_195, BgL_cdrsz00_197);
{ /* blib.scm 358 */
int BgL_auxz00_2217;
BgL_auxz00_2217 =
(int)(((long)2));
BGL_MVALUES_NUMBER_SET(BgL_auxz00_2217); }
{ /* blib.scm 358 */
int BgL_auxz00_2220;
BgL_auxz00_2220 =
(int)(((long)1));
BGL_MVALUES_VAL_SET(BgL_auxz00_2220, BgL_val1_1343z00_199); }
return BgL_val0_1342z00_198;} } } } } } } else
{ /* blib.scm 359 */
obj_t BgL_val0_1344z00_200;
{ /* blib.scm 359 */
obj_t BgL_list1427z00_202;
BgL_list1427z00_202 =
MAKE_PAIR(BgL_carszd2finalzd2_1408, BNIL);
BgL_val0_1344z00_200 = BgL_list1427z00_202; }
{ /* blib.scm 359 */
int BgL_auxz00_2224;
BgL_auxz00_2224 =
(int)(((long)2));
BGL_MVALUES_NUMBER_SET(BgL_auxz00_2224); }
{ /* blib.scm 359 */
int BgL_auxz00_2227;
BgL_auxz00_2227 =
(int)(((long)1));
BGL_MVALUES_VAL_SET(BgL_auxz00_2227, BNIL); }
return BgL_val0_1344z00_200;} }
}
/* <exit:1423:blib.scm:351> */
obj_t BGl_zc3exitza31423za3blibze2scmza3351ze3z61zzblibz00(obj_t BgL_listsz00_1411, obj_t BgL_carszd2finalzd2_1410)
{ AN_OBJECT;
{ /* blib.scm 351 */
jmp_buf_t jmpbuf;
void * BgL_an_exit1313z00_180;
{BGL_STORE_TRACE(); if( SET_EXIT(BgL_an_exit1313z00_180) ) { BGL_RESTORE_TRACE();
return
_exit_value_;
} else {
BgL_an_exit1313z00_180 =
(void *)jmpbuf;
{ /* blib.scm 351 */
PUSH_EXIT(BgL_an_exit1313z00_180, ((long)1));
{ /* blib.scm 351 */
obj_t BgL_an_exitd1314z00_181;
BgL_an_exitd1314z00_181 =
BGL_EXITD_TOP();
{ /* blib.scm 352 */
obj_t BgL_res1316z00_184;
BgL_res1316z00_184 =
BGl_recurz72z72zzblibz00(BgL_an_exitd1314z00_181, BgL_carszd2finalzd2_1410, BgL_listsz00_1411);
POP_EXIT();
return BgL_res1316z00_184;} } }
}} }
}
/* null-list? */
obj_t BGl_nullzd2listzf3z21zzblibz00(obj_t BgL_lz00_17)
{ AN_OBJECT;
{ /* blib.scm 362 */
{ /* blib.scm 363 */
obj_t BgL_symbol2038z00_1141;
BgL_symbol2038z00_1141 = BGl_symbol2509z00zzblibz00;
{ /* blib.scm 363 */
PUSH_TRACE(BgL_symbol2038z00_1141);
{ /* blib.scm 363 */
obj_t BgL_aux2037z00_1142;
if(
PAIRP(BgL_lz00_17))
{ /* blib.scm 363 */
BgL_aux2037z00_1142 = BFALSE; } else
{ /* blib.scm 363 */
if(
NULLP(BgL_lz00_17))
{ /* blib.scm 364 */
BgL_aux2037z00_1142 = BTRUE; } else
{ /* blib.scm 364 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string2511z00zzblibz00, BGl_string2512z00zzblibz00, BgL_lz00_17,
BSTRING_TO_STRING(BGl_string2513z00zzblibz00), ((long)11424));
BgL_aux2037z00_1142 =
BGl_errorzf2locationzf2zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string2460z00zzblibz00,
BINT(((long)11424))); } }
POP_TRACE();
return BgL_aux2037z00_1142;} } } }
}
/* fold */
obj_t BGl_foldz00zzblibz00(obj_t BgL_konsz00_18, obj_t BgL_knilz00_19, obj_t BgL_lis1z00_20, obj_t BgL_listsz00_21)
{ AN_OBJECT;
{ /* blib.scm 368 */
{ /* blib.scm 369 */
obj_t BgL_symbol2040z00_1143;
BgL_symbol2040z00_1143 = BGl_symbol2514z00zzblibz00;
{ /* blib.scm 369 */
PUSH_TRACE(BgL_symbol2040z00_1143);
{ /* blib.scm 369 */
obj_t BgL_aux2039z00_1144;
if(
PAIRP(BgL_listsz00_21))
{ /* blib.scm 370 */
obj_t BgL_g1317z00_206;
BgL_g1317z00_206 =
MAKE_PAIR(BgL_lis1z00_20, BgL_listsz00_21);
{
obj_t BgL_listsz00_742;obj_t BgL_ansz00_743;
BgL_listsz00_742 = BgL_g1317z00_206;
BgL_ansz00_743 = BgL_knilz00_19;
BgL_lpz00_741:
{ /* blib.scm 370 */
obj_t BgL_carszb2anszb2_748;
BgL_carszb2anszb2_748 =
BGl_z52carszb2cdrszb2z52zzblibz00(BgL_listsz00_742, BgL_ansz00_743);
{ /* blib.scm 370 */
obj_t BgL_cdrsz00_749;
{ /* blib.scm 370 */
int BgL_auxz00_2251;
BgL_auxz00_2251 =
(int)(((long)1));
BgL_cdrsz00_749 =
BGL_MVALUES_VAL(BgL_auxz00_2251); }
if(
NULLP(BgL_carszb2anszb2_748))
{ /* blib.scm 370 */
BgL_aux2039z00_1144 = BgL_ansz00_743; } else
{ /* blib.scm 370 */
obj_t BgL_arg1432z00_751;
{ /* blib.scm 370 */
obj_t BgL_valz00_1440;
BgL_valz00_1440 = BgL_carszb2anszb2_748;
{ /* blib.scm 370 */
int BgL_len2185z00_1441;
BgL_len2185z00_1441 =
(int)(
bgl_list_length(BgL_valz00_1440));
if(
PROCEDURE_CORRECT_ARITYP(BgL_konsz00_18, BgL_len2185z00_1441))
{ /* blib.scm 370 */
BgL_arg1432z00_751 =
apply(BgL_konsz00_18, BgL_valz00_1440); } else
{ /* blib.scm 370 */
BGl_errorzf2locationzf2zz__errorz00(BGl_symbol2463z00zzblibz00, BGl_string2466z00zzblibz00, BGl_list2516z00zzblibz00, BGl_string2460z00zzblibz00,
BINT(((long)11566)));
FAILURE(BGl_symbol2497z00zzblibz00,BGl_symbol2497z00zzblibz00,BGl_symbol2497z00zzblibz00);} } }
{
obj_t BgL_ansz00_2266;obj_t BgL_listsz00_2265;
BgL_listsz00_2265 = BgL_cdrsz00_749;
BgL_ansz00_2266 = BgL_arg1432z00_751;
BgL_ansz00_743 = BgL_ansz00_2266;
BgL_listsz00_742 = BgL_listsz00_2265;
goto BgL_lpz00_741;} } } } } } else
{
obj_t BgL_lisz00_769;obj_t BgL_ansz00_770;
BgL_lisz00_769 = BgL_lis1z00_20;
BgL_ansz00_770 = BgL_knilz00_19;
BgL_lpz00_768:
if(
CBOOL(
BGl_nullzd2listzf3z21zzblibz00(BgL_lisz00_769)))
{ /* blib.scm 375 */
BgL_aux2039z00_1144 = BgL_ansz00_770; } else
{ /* blib.scm 375 */
obj_t BgL_arg1434z00_776;obj_t BgL_arg1436z00_777;
{ /* blib.scm 375 */
obj_t BgL_pairz00_779;
if(
PAIRP(BgL_lisz00_769))
{ /* blib.scm 375 */
BgL_pairz00_779 = BgL_lisz00_769; } else
{ /* blib.scm 375 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2463z00zzblibz00, BGl_string2459z00zzblibz00, BgL_lisz00_769, BGl_string2460z00zzblibz00,
BINT(((long)11766)));
exit( -1 );}
BgL_arg1434z00_776 =
CDR(BgL_pairz00_779); }
{ /* blib.scm 375 */
obj_t BgL_arg1437z00_778;
{ /* blib.scm 375 */
obj_t BgL_pairz00_780;
if(
PAIRP(BgL_lisz00_769))
{ /* blib.scm 375 */
BgL_pairz00_780 = BgL_lisz00_769; } else
{ /* blib.scm 375 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2463z00zzblibz00, BGl_string2459z00zzblibz00, BgL_lisz00_769, BGl_string2460z00zzblibz00,
BINT(((long)11766)));
exit( -1 );}
BgL_arg1437z00_778 =
CAR(BgL_pairz00_780); }
if(
PROCEDURE_CORRECT_ARITYP(BgL_konsz00_18, ((long)2)))
{ /* blib.scm 375 */
BgL_arg1436z00_777 =
PROCEDURE_ENTRY(BgL_konsz00_18)(BgL_konsz00_18, BgL_arg1437z00_778, BgL_ansz00_770, BEOA); } else
{ /* blib.scm 375 */
BGl_errorzf2locationzf2zz__errorz00(BGl_string2499z00zzblibz00, BGl_list2521z00zzblibz00, BgL_konsz00_18, BGl_string2460z00zzblibz00,
BINT(((long)11766)));
FAILURE(BGl_symbol2497z00zzblibz00,BGl_symbol2497z00zzblibz00,BGl_symbol2497z00zzblibz00);} }
{
obj_t BgL_ansz00_2290;obj_t BgL_lisz00_2289;
BgL_lisz00_2289 = BgL_arg1434z00_776;
BgL_ansz00_2290 = BgL_arg1436z00_777;
BgL_ansz00_770 = BgL_ansz00_2290;
BgL_lisz00_769 = BgL_lisz00_2289;
goto BgL_lpz00_768;} } }
POP_TRACE();
return BgL_aux2039z00_1144;} } } }
}
/* string-before */
obj_t BGl_stringzd2beforezd2zzblibz00(obj_t BgL_sz00_27, unsigned char BgL_delimz00_28)
{ AN_OBJECT;
{ /* blib.scm 395 */
{ /* blib.scm 396 */
obj_t BgL_symbol2042z00_1145;
BgL_symbol2042z00_1145 = BGl_symbol2524z00zzblibz00;
{ /* blib.scm 396 */
PUSH_TRACE(BgL_symbol2042z00_1145);
{ /* blib.scm 396 */
obj_t BgL_aux2041z00_1146;
{ /* blib.scm 396 */
char * BgL_foundz00_228;
{
char * BgL_auxz00_2293;
BgL_auxz00_2293 =
BSTRING_TO_STRING(BgL_sz00_27);
BgL_foundz00_228 =
strchr(BgL_auxz00_2293, BgL_delimz00_28); }
if(
(BgL_foundz00_228 == 0L))
{ /* blib.scm 399 */
BgL_aux2041z00_1146 = BgL_sz00_27; } else
{ /* blib.scm 401 */
int BgL_arg1445z00_231;
{
char * BgL_auxz00_2298;
BgL_auxz00_2298 =
BSTRING_TO_STRING(BgL_sz00_27);
BgL_arg1445z00_231 =
BgL_foundz00_228 - BgL_auxz00_2298; }
{ /* blib.scm 401 */
obj_t BgL_res2012z00_825;
{ /* blib.scm 401 */
long BgL_endz00_806;
BgL_endz00_806 =
(long)(BgL_arg1445z00_231);
{ /* blib.scm 401 */
bool_t BgL_testz00_2302;
if(
(BgL_endz00_806>=((long)0)))
{ /* blib.scm 401 */
if(
(((long)0)>=((long)0)))
{ /* blib.scm 401 */
long BgL_auxz00_2307;
BgL_auxz00_2307 =
(
STRING_LENGTH(BgL_sz00_27)+((long)1));
BgL_testz00_2302 =
BOUND_CHECK(BgL_endz00_806, BgL_auxz00_2307); } else
{ /* blib.scm 401 */
BgL_testz00_2302 = ((bool_t)0)
; } } else
{ /* blib.scm 401 */
BgL_testz00_2302 = ((bool_t)0)
; }
if(BgL_testz00_2302)
{ /* blib.scm 401 */
BgL_res2012z00_825 =
c_substring(BgL_sz00_27, ((long)0), BgL_endz00_806); } else
{ /* blib.scm 401 */
obj_t BgL_arg1621z00_815;
BgL_arg1621z00_815 =
MAKE_PAIR(
BINT(((long)0)),
BINT(BgL_endz00_806));
{ /* blib.scm 401 */
obj_t BgL_aux2193z00_1450;
BgL_aux2193z00_1450 =
BGl_errorzf2locationzf2zz__errorz00(BGl_string2526z00zzblibz00, BGl_string2527z00zzblibz00, BgL_arg1621z00_815, BGl_string2460z00zzblibz00,
BINT(((long)12553)));
if(
STRINGP(BgL_aux2193z00_1450))
{ /* blib.scm 401 */
BgL_res2012z00_825 = BgL_aux2193z00_1450; } else
{ /* blib.scm 401 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2528z00zzblibz00, BGl_string2530z00zzblibz00, BgL_aux2193z00_1450, BGl_string2460z00zzblibz00,
BINT(((long)12553)));
exit( -1 );} } } } }
BgL_aux2041z00_1146 = BgL_res2012z00_825; } } }
POP_TRACE();
return BgL_aux2041z00_1146;} } } }
}
/* cerror */
obj_t BGl_cerrorz00zzblibz00(obj_t BgL_namez00_32, obj_t BgL_argumentsz00_33)
{ AN_OBJECT;
{ /* blib.scm 409 */
{ /* blib.scm 410 */
obj_t BgL_symbol2046z00_1149;
BgL_symbol2046z00_1149 = BGl_symbol2531z00zzblibz00;
{ /* blib.scm 410 */
PUSH_TRACE(BgL_symbol2046z00_1149);
{ /* blib.scm 410 */
obj_t BgL_aux2045z00_1150;
{ /* blib.scm 410 */
int BgL_errnumz00_242;
BgL_errnumz00_242 =
errno;
{ /* blib.scm 412 */
bool_t BgL_testz00_2325;
if(
(
(long)(BgL_errnumz00_242)==((long)0)))
{ /* blib.scm 412 */
BgL_testz00_2325 = ((bool_t)0)
; } else
{ /* blib.scm 412 */
BgL_testz00_2325 = ((bool_t)1)
; }
if(BgL_testz00_2325)
{ /* blib.scm 412 */
{ /* blib.scm 414 */
obj_t BgL_arg1450z00_244;obj_t BgL_arg1451z00_245;
{ /* blib.scm 414 */
char * BgL_arg1456z00_249;obj_t BgL_arg1457z00_250;
{ /* blib.scm 417 */
char * BgL_res2015z00_841;
BgL_res2015z00_841 =
strerror(BgL_errnumz00_242);
BgL_arg1456z00_249 = BgL_res2015z00_841; }
if(
NULLP(BgL_argumentsz00_33))
{ /* blib.scm 418 */
BgL_arg1457z00_250 = BGl_string2533z00zzblibz00; } else
{ /* blib.scm 418 */
BgL_arg1457z00_250 = BGl_string2534z00zzblibz00; }
{ /* blib.scm 414 */
obj_t BgL_list1458z00_251;
{ /* blib.scm 414 */
obj_t BgL_arg1459z00_252;
{ /* blib.scm 414 */
obj_t BgL_arg1460z00_253;
BgL_arg1460z00_253 =
MAKE_PAIR(BgL_arg1457z00_250, BNIL);
BgL_arg1459z00_252 =
MAKE_PAIR(
string_to_bstring(BgL_arg1456z00_249), BgL_arg1460z00_253); }
BgL_list1458z00_251 =
MAKE_PAIR(
BINT(BgL_errnumz00_242), BgL_arg1459z00_252); }
BgL_arg1450z00_244 =
BGl_formatz00zz__r4_output_6_10_3z00(BGl_string2535z00zzblibz00, BgL_list1458z00_251); } }
{ /* blib.scm 419 */
{ /* blib.scm 419 */
obj_t BgL_zc3anonymousza31508za3blibze2scmza3447ze3z61_1254;
BgL_zc3anonymousza31508za3blibze2scmza3447ze3z61_1254 =
make_fx_procedure(BGl_zc3anonymousza31508za3blibze2scmza3447ze3z61zzblibz00,
(int)(((long)1)),
(int)(((long)2)));
PROCEDURE_SET(BgL_zc3anonymousza31508za3blibze2scmza3447ze3z61_1254,
(int)(((long)0)), BGl_displayzd2envzd2zz__r4_output_6_10_3z00);
PROCEDURE_SET(BgL_zc3anonymousza31508za3blibze2scmza3447ze3z61_1254,
(int)(((long)1)), BGl_string2533z00zzblibz00);
{ /* blib.scm 419 */
obj_t BgL_list1506z00_850;
BgL_list1506z00_850 =
MAKE_PAIR(BgL_argumentsz00_33, BNIL);
BgL_arg1451z00_245 =
BGl_proczd2outputzd2zzblibz00(BgL_zc3anonymousza31508za3blibze2scmza3447ze3z61_1254, BgL_list1506z00_850); } } }
BGl_errorzf2czd2locationz20zz__errorz00(BgL_namez00_32, BgL_arg1450z00_244, BgL_arg1451z00_245,
BSTRING_TO_STRING(BGl_string2513z00zzblibz00), ((long)12931)); }
BgL_aux2045z00_1150 =
BGl_errorzf2locationzf2zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string2460z00zzblibz00,
BINT(((long)12931))); } else
{ /* blib.scm 412 */
BgL_aux2045z00_1150 = BFALSE; } } }
POP_TRACE();
return BgL_aux2045z00_1150;} } } }
}
/* <anonymous:1508:blib.scm:447> */
obj_t BGl_zc3anonymousza31508za3blibze2scmza3447ze3z61zzblibz00(obj_t BgL_envz00_1255, obj_t BgL_lz00_1258)
{ AN_OBJECT;
{ /* blib.scm 448 */
{ /* blib.scm 419 */
obj_t BgL_displayz00_1256;obj_t BgL_delimz00_1257;
BgL_displayz00_1256 =
PROCEDURE_REF(BgL_envz00_1255,
(int)(((long)0)));
BgL_delimz00_1257 =
PROCEDURE_REF(BgL_envz00_1255,
(int)(((long)1)));
{
obj_t BgL_lz00_847;
{ /* blib.scm 419 */
bool_t BgL_auxz00_2356;
BgL_lz00_847 = BgL_lz00_1258;
{ /* blib.scm 419 */
obj_t BgL_zc3anonymousza31512za3blibze2scmza3449ze3z61_1253;
{
int BgL_auxz00_2357;
BgL_auxz00_2357 =
(int)(((long)2));
BgL_zc3anonymousza31512za3blibze2scmza3449ze3z61_1253 =
MAKE_EL_PROCEDURE(BgL_auxz00_2357); }
PROCEDURE_EL_SET(BgL_zc3anonymousza31512za3blibze2scmza3449ze3z61_1253,
(int)(((long)0)), BgL_displayz00_1256);
PROCEDURE_EL_SET(BgL_zc3anonymousza31512za3blibze2scmza3449ze3z61_1253,
(int)(((long)1)), BgL_delimz00_1257);
{ /* blib.scm 419 */
obj_t BgL_list1510z00_849;
BgL_list1510z00_849 =
MAKE_PAIR(BgL_lz00_847, BNIL);
BgL_auxz00_2356 =
BGl_forzd2eachzd2delimitedz00zzblibz00(BgL_displayz00_1256, BgL_zc3anonymousza31512za3blibze2scmza3449ze3z61_1253, BgL_list1510z00_849); } }
return
BBOOL(BgL_auxz00_2356);} } } }
}
/* <anonymous:1512:blib.scm:449> */
obj_t BGl_zc3anonymousza31512za3blibze2scmza3449ze3z61zzblibz00(obj_t BgL_envz00_1259)
{ AN_OBJECT;
{ /* blib.scm 451 */
{ /* blib.scm 419 */
obj_t BgL_displayz00_1260;obj_t BgL_delimz00_1261;
BgL_displayz00_1260 =
PROCEDURE_EL_REF(BgL_envz00_1259,
(int)(((long)0)));
BgL_delimz00_1261 =
PROCEDURE_EL_REF(BgL_envz00_1259,
(int)(((long)1)));
{
{ /* blib.scm 419 */
obj_t BgL_funz00_1455;
if(
PROCEDUREP(BgL_displayz00_1260))
{ /* blib.scm 419 */
BgL_funz00_1455 = BgL_displayz00_1260; } else
{ /* blib.scm 419 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2536z00zzblibz00, BGl_string2538z00zzblibz00, BgL_displayz00_1260, BGl_string2460z00zzblibz00,
BINT(((long)13138)));
exit( -1 );}
if(
PROCEDURE_CORRECT_ARITYP(BgL_funz00_1455, ((long)1)))
{ /* blib.scm 419 */
return
PROCEDURE_ENTRY(BgL_funz00_1455)(BgL_displayz00_1260, BgL_delimz00_1261, BEOA);} else
{ /* blib.scm 419 */
BGl_errorzf2locationzf2zz__errorz00(BGl_string2539z00zzblibz00, BGl_list2540z00zzblibz00, BgL_funz00_1455, BGl_string2460z00zzblibz00,
BINT(((long)13138)));
FAILURE(BGl_symbol2497z00zzblibz00,BGl_symbol2497z00zzblibz00,BGl_symbol2497z00zzblibz00);} } } } }
}
/* proc-output */
obj_t BGl_proczd2outputzd2zzblibz00(obj_t BgL_procz00_34, obj_t BgL_argsz00_35)
{ AN_OBJECT;
{ /* blib.scm 421 */
{ /* blib.scm 422 */
obj_t BgL_symbol2048z00_1151;
BgL_symbol2048z00_1151 = BGl_symbol2545z00zzblibz00;
{ /* blib.scm 422 */
PUSH_TRACE(BgL_symbol2048z00_1151);
{ /* blib.scm 422 */
obj_t BgL_aux2047z00_1152;
{ /* blib.scm 422 */
obj_t BgL_osz00_851;
BgL_osz00_851 =
open_output_string();
{ /* blib.scm 422 */
obj_t BgL_zc3anonymousza31465za3blibze2scmza3423ze3z61_1265;
BgL_zc3anonymousza31465za3blibze2scmza3423ze3z61_1265 =
make_fx_procedure(BGl_zc3anonymousza31465za3blibze2scmza3423ze3z61zzblibz00,
(int)(((long)0)),
(int)(((long)2)));
PROCEDURE_SET(BgL_zc3anonymousza31465za3blibze2scmza3423ze3z61_1265,
(int)(((long)0)), BgL_argsz00_35);
PROCEDURE_SET(BgL_zc3anonymousza31465za3blibze2scmza3423ze3z61_1265,
(int)(((long)1)), BgL_procz00_34);
{ /* blib.scm 422 */
obj_t BgL_auxz00_2392;
if(
OUTPUT_PORTP(BgL_osz00_851))
{ /* blib.scm 422 */
BgL_auxz00_2392 = BgL_osz00_851
; } else
{ /* blib.scm 422 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2547z00zzblibz00, BGl_string2549z00zzblibz00, BgL_osz00_851, BGl_string2460z00zzblibz00,
BINT(((long)13212)));
exit( -1 );}
BGl_withzd2outputzd2tozd2portzd2zz__r4_ports_6_10_1z00(BgL_auxz00_2392, BgL_zc3anonymousza31465za3blibze2scmza3423ze3z61_1265); } }
{ /* blib.scm 422 */
obj_t BgL_portz00_853;
if(
OUTPUT_PORTP(BgL_osz00_851))
{ /* blib.scm 422 */
BgL_portz00_853 = BgL_osz00_851; } else
{ /* blib.scm 422 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2547z00zzblibz00, BGl_string2549z00zzblibz00, BgL_osz00_851, BGl_string2460z00zzblibz00,
BINT(((long)13212)));
exit( -1 );}
BgL_aux2047z00_1152 =
get_output_string(BgL_portz00_853); } }
POP_TRACE();
return BgL_aux2047z00_1152;} } } }
}
/* <anonymous:1465:blib.scm:423> */
obj_t BGl_zc3anonymousza31465za3blibze2scmza3423ze3z61zzblibz00(obj_t BgL_envz00_1266)
{ AN_OBJECT;
{ /* blib.scm 425 */
{ /* blib.scm 422 */
obj_t BgL_argsz00_1267;obj_t BgL_procz00_1268;
BgL_argsz00_1267 =
PROCEDURE_REF(BgL_envz00_1266,
(int)(((long)0)));
BgL_procz00_1268 =
PROCEDURE_REF(BgL_envz00_1266,
(int)(((long)1)));
{
{ /* blib.scm 422 */
obj_t BgL_funz00_1464;obj_t BgL_valz00_1465;
if(
PROCEDUREP(BgL_procz00_1268))
{ /* blib.scm 422 */
BgL_funz00_1464 = BgL_procz00_1268; } else
{ /* blib.scm 422 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2550z00zzblibz00, BGl_string2538z00zzblibz00, BgL_procz00_1268, BGl_string2460z00zzblibz00,
BINT(((long)13212)));
exit( -1 );}
BgL_valz00_1465 = BgL_argsz00_1267;
{ /* blib.scm 422 */
int BgL_len2206z00_1466;
BgL_len2206z00_1466 =
(int)(
bgl_list_length(BgL_valz00_1465));
if(
PROCEDURE_CORRECT_ARITYP(BgL_funz00_1464, BgL_len2206z00_1466))
{ /* blib.scm 422 */
return
apply(BgL_funz00_1464, BgL_valz00_1465);} else
{ /* blib.scm 422 */
BGl_errorzf2locationzf2zz__errorz00(BGl_symbol2550z00zzblibz00, BGl_string2466z00zzblibz00, BGl_list2552z00zzblibz00, BGl_string2460z00zzblibz00,
BINT(((long)13212)));
FAILURE(BGl_symbol2497z00zzblibz00,BGl_symbol2497z00zzblibz00,BGl_symbol2497z00zzblibz00);} } } } } }
}
/* transpose */
obj_t BGl_transposez00zzblibz00(obj_t BgL_lz00_36)
{ AN_OBJECT;
{ /* blib.scm 428 */
{ /* blib.scm 433 */
obj_t BgL_symbol2050z00_1153;
BgL_symbol2050z00_1153 = BGl_symbol2557z00zzblibz00;
{ /* blib.scm 433 */
PUSH_TRACE(BgL_symbol2050z00_1153);
{ /* blib.scm 433 */
obj_t BgL_aux2049z00_1154;
if(
BGl_listzf3zf3zz__r4_pairs_and_lists_6_3z00(BgL_lz00_36))
{ /* blib.scm 429 */BUNSPEC; } else
{ /* blib.scm 429 */
BGl_definezd2primopz12zc0zz__evenvz00(BGl_symbol2559z00zzblibz00, BgL_lz00_36);
BGl_notifyzd2assertzd2failz00zz__evalz00(BGl_list2561z00zzblibz00, BGl_list2562z00zzblibz00, BGl_list2568z00zzblibz00); }
{
obj_t BgL_lz00_265;obj_t BgL_accuz00_266;
BgL_lz00_265 = BgL_lz00_36;
BgL_accuz00_266 = BNIL;
BgL_loopz00_267:
{ /* blib.scm 431 */
bool_t BgL_testz00_2429;
{ /* blib.scm 431 */
obj_t BgL_auxz00_2430;
{ /* blib.scm 431 */
obj_t BgL_pairz00_854;
if(
PAIRP(BgL_lz00_265))
{ /* blib.scm 431 */
BgL_pairz00_854 = BgL_lz00_265; } else
{ /* blib.scm 431 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2569z00zzblibz00, BGl_string2459z00zzblibz00, BgL_lz00_265, BGl_string2460z00zzblibz00,
BINT(((long)13433)));
exit( -1 );}
BgL_auxz00_2430 =
CAR(BgL_pairz00_854); }
BgL_testz00_2429 =
NULLP(BgL_auxz00_2430); }
if(BgL_testz00_2429)
{ /* blib.scm 432 */
obj_t BgL_auxz00_2438;
{ /* blib.scm 432 */
bool_t BgL_testz00_2439;
if(
PAIRP(BgL_accuz00_266))
{ /* blib.scm 432 */
BgL_testz00_2439 = ((bool_t)1)
; } else
{ /* blib.scm 432 */
BgL_testz00_2439 =
NULLP(BgL_accuz00_266)
; }
if(BgL_testz00_2439)
{ /* blib.scm 432 */
BgL_auxz00_2438 = BgL_accuz00_266
; } else
{ /* blib.scm 432 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2569z00zzblibz00, BGl_string2465z00zzblibz00, BgL_accuz00_266, BGl_string2460z00zzblibz00,
BINT(((long)13453)));
exit( -1 );} }
BgL_aux2049z00_1154 =
bgl_reverse(BgL_auxz00_2438); } else
{ /* blib.scm 433 */
obj_t BgL_arg1468z00_269;obj_t BgL_arg1469z00_270;
if(
NULLP(BgL_lz00_265))
{ /* blib.scm 433 */
BgL_arg1468z00_269 = BNIL; } else
{ /* blib.scm 433 */
obj_t BgL_head1349z00_273;
{ /* blib.scm 433 */
obj_t BgL_arg1477z00_285;
{ /* blib.scm 433 */
obj_t BgL_pairz00_858;
{ /* blib.scm 433 */
obj_t BgL_pairz00_857;
if(
PAIRP(BgL_lz00_265))
{ /* blib.scm 433 */
BgL_pairz00_857 = BgL_lz00_265; } else
{ /* blib.scm 433 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2569z00zzblibz00, BGl_string2459z00zzblibz00, BgL_lz00_265, BGl_string2460z00zzblibz00,
BINT(((long)13472)));
exit( -1 );}
{ /* blib.scm 433 */
obj_t BgL_aux2214z00_1474;
BgL_aux2214z00_1474 =
CAR(BgL_pairz00_857);
if(
PAIRP(BgL_aux2214z00_1474))
{ /* blib.scm 433 */
BgL_pairz00_858 = BgL_aux2214z00_1474; } else
{ /* blib.scm 433 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2569z00zzblibz00, BGl_string2459z00zzblibz00, BgL_aux2214z00_1474, BGl_string2460z00zzblibz00,
BINT(((long)13472)));
exit( -1 );} } }
BgL_arg1477z00_285 =
CDR(BgL_pairz00_858); }
BgL_head1349z00_273 =
MAKE_PAIR(BgL_arg1477z00_285, BNIL); }
{ /* blib.scm 433 */
obj_t BgL_g1352z00_274;
{ /* blib.scm 433 */
obj_t BgL_pairz00_861;
if(
PAIRP(BgL_lz00_265))
{ /* blib.scm 433 */
BgL_pairz00_861 = BgL_lz00_265; } else
{ /* blib.scm 433 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2569z00zzblibz00, BGl_string2459z00zzblibz00, BgL_lz00_265, BGl_string2460z00zzblibz00,
BINT(((long)13472)));
exit( -1 );}
BgL_g1352z00_274 =
CDR(BgL_pairz00_861); }
{
obj_t BgL_l1347z00_275;obj_t BgL_tail1350z00_276;
BgL_l1347z00_275 = BgL_g1352z00_274;
BgL_tail1350z00_276 = BgL_head1349z00_273;
BgL_map1348z00_277:
if(
PAIRP(BgL_l1347z00_275))
{ /* blib.scm 433 */
obj_t BgL_newtail1351z00_279;
{ /* blib.scm 433 */
obj_t BgL_arg1473z00_281;
{ /* blib.scm 433 */
obj_t BgL_pairz00_864;
{ /* blib.scm 433 */
obj_t BgL_pairz00_863;
BgL_pairz00_863 = BgL_l1347z00_275;
{ /* blib.scm 433 */
obj_t BgL_aux2220z00_1480;
BgL_aux2220z00_1480 =
CAR(BgL_pairz00_863);
if(
PAIRP(BgL_aux2220z00_1480))
{ /* blib.scm 433 */
BgL_pairz00_864 = BgL_aux2220z00_1480; } else
{ /* blib.scm 433 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2571z00zzblibz00, BGl_string2459z00zzblibz00, BgL_aux2220z00_1480, BGl_string2460z00zzblibz00,
BINT(((long)13472)));
exit( -1 );} } }
BgL_arg1473z00_281 =
CDR(BgL_pairz00_864); }
BgL_newtail1351z00_279 =
MAKE_PAIR(BgL_arg1473z00_281, BNIL); }
SET_CDR(BgL_tail1350z00_276, BgL_newtail1351z00_279);
{
obj_t BgL_tail1350z00_2481;obj_t BgL_l1347z00_2479;
BgL_l1347z00_2479 =
CDR(BgL_l1347z00_275);
BgL_tail1350z00_2481 = BgL_newtail1351z00_279;
BgL_tail1350z00_276 = BgL_tail1350z00_2481;
BgL_l1347z00_275 = BgL_l1347z00_2479;
goto BgL_map1348z00_277;} } else
{ /* blib.scm 433 */
if(
NULLP(BgL_l1347z00_275))
{ /* blib.scm 433 */
BgL_arg1468z00_269 = BgL_head1349z00_273; } else
{ /* blib.scm 433 */
BgL_arg1468z00_269 =
BGl_errorzf2locationzf2zz__errorz00(BGl_string2573z00zzblibz00, BGl_string2574z00zzblibz00, BgL_l1347z00_275, BGl_string2460z00zzblibz00,
BINT(((long)13472))); } } } } }
{ /* blib.scm 433 */
obj_t BgL_arg1480z00_288;
if(
NULLP(BgL_lz00_265))
{ /* blib.scm 433 */
BgL_arg1480z00_288 = BNIL; } else
{ /* blib.scm 433 */
obj_t BgL_head1355z00_291;
{ /* blib.scm 433 */
obj_t BgL_arg1489z00_303;
{ /* blib.scm 433 */
obj_t BgL_pairz00_873;
{ /* blib.scm 433 */
obj_t BgL_pairz00_872;
if(
PAIRP(BgL_lz00_265))
{ /* blib.scm 433 */
BgL_pairz00_872 = BgL_lz00_265; } else
{ /* blib.scm 433 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2569z00zzblibz00, BGl_string2459z00zzblibz00, BgL_lz00_265, BGl_string2460z00zzblibz00,
BINT(((long)13488)));
exit( -1 );}
{ /* blib.scm 433 */
obj_t BgL_aux2226z00_1486;
BgL_aux2226z00_1486 =
CAR(BgL_pairz00_872);
if(
PAIRP(BgL_aux2226z00_1486))
{ /* blib.scm 433 */
BgL_pairz00_873 = BgL_aux2226z00_1486; } else
{ /* blib.scm 433 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2569z00zzblibz00, BGl_string2459z00zzblibz00, BgL_aux2226z00_1486, BGl_string2460z00zzblibz00,
BINT(((long)13488)));
exit( -1 );} } }
BgL_arg1489z00_303 =
CAR(BgL_pairz00_873); }
BgL_head1355z00_291 =
MAKE_PAIR(BgL_arg1489z00_303, BNIL); }
{ /* blib.scm 433 */
obj_t BgL_g1358z00_292;
{ /* blib.scm 433 */
obj_t BgL_pairz00_876;
if(
PAIRP(BgL_lz00_265))
{ /* blib.scm 433 */
BgL_pairz00_876 = BgL_lz00_265; } else
{ /* blib.scm 433 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2569z00zzblibz00, BGl_string2459z00zzblibz00, BgL_lz00_265, BGl_string2460z00zzblibz00,
BINT(((long)13488)));
exit( -1 );}
BgL_g1358z00_292 =
CDR(BgL_pairz00_876); }
{
obj_t BgL_l1353z00_293;obj_t BgL_tail1356z00_294;
BgL_l1353z00_293 = BgL_g1358z00_292;
BgL_tail1356z00_294 = BgL_head1355z00_291;
BgL_map1354z00_295:
if(
PAIRP(BgL_l1353z00_293))
{ /* blib.scm 433 */
obj_t BgL_newtail1357z00_297;
{ /* blib.scm 433 */
obj_t BgL_arg1485z00_299;
{ /* blib.scm 433 */
obj_t BgL_pairz00_879;
{ /* blib.scm 433 */
obj_t BgL_pairz00_878;
BgL_pairz00_878 = BgL_l1353z00_293;
{ /* blib.scm 433 */
obj_t BgL_aux2233z00_1492;
BgL_aux2233z00_1492 =
CAR(BgL_pairz00_878);
if(
PAIRP(BgL_aux2233z00_1492))
{ /* blib.scm 433 */
BgL_pairz00_879 = BgL_aux2233z00_1492; } else
{ /* blib.scm 433 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2575z00zzblibz00, BGl_string2459z00zzblibz00, BgL_aux2233z00_1492, BGl_string2460z00zzblibz00,
BINT(((long)13488)));
exit( -1 );} } }
BgL_arg1485z00_299 =
CAR(BgL_pairz00_879); }
BgL_newtail1357z00_297 =
MAKE_PAIR(BgL_arg1485z00_299, BNIL); }
SET_CDR(BgL_tail1356z00_294, BgL_newtail1357z00_297);
{
obj_t BgL_tail1356z00_2520;obj_t BgL_l1353z00_2518;
BgL_l1353z00_2518 =
CDR(BgL_l1353z00_293);
BgL_tail1356z00_2520 = BgL_newtail1357z00_297;
BgL_tail1356z00_294 = BgL_tail1356z00_2520;
BgL_l1353z00_293 = BgL_l1353z00_2518;
goto BgL_map1354z00_295;} } else
{ /* blib.scm 433 */
if(
NULLP(BgL_l1353z00_293))
{ /* blib.scm 433 */
BgL_arg1480z00_288 = BgL_head1355z00_291; } else
{ /* blib.scm 433 */
BgL_arg1480z00_288 =
BGl_errorzf2locationzf2zz__errorz00(BGl_string2573z00zzblibz00, BGl_string2574z00zzblibz00, BgL_l1353z00_293, BGl_string2460z00zzblibz00,
BINT(((long)13488))); } } } } }
BgL_arg1469z00_270 =
MAKE_PAIR(BgL_arg1480z00_288, BgL_accuz00_266); }
{
obj_t BgL_accuz00_2527;obj_t BgL_lz00_2526;
BgL_lz00_2526 = BgL_arg1468z00_269;
BgL_accuz00_2527 = BgL_arg1469z00_270;
BgL_accuz00_266 = BgL_accuz00_2527;
BgL_lz00_265 = BgL_lz00_2526;
goto BgL_loopz00_267;} } } }
POP_TRACE();
return BgL_aux2049z00_1154;} } } }
}
/* for-each-delimited */
bool_t BGl_forzd2eachzd2delimitedz00zzblibz00(obj_t BgL_procz00_37, obj_t BgL_thunkz00_38, obj_t BgL_listsz00_39)
{ AN_OBJECT;
{ /* blib.scm 435 */
{ /* blib.scm 436 */
obj_t BgL_symbol2052z00_1155;
BgL_symbol2052z00_1155 = BGl_symbol2577z00zzblibz00;
{ /* blib.scm 436 */
PUSH_TRACE(BgL_symbol2052z00_1155);
{ /* blib.scm 436 */
bool_t BgL_aux2051z00_1156;
{ /* blib.scm 436 */
obj_t BgL_g1323z00_307;
BgL_g1323z00_307 =
BGl_transposez00zzblibz00(BgL_listsz00_39);
{
obj_t BgL_lz00_308;
BgL_lz00_308 = BgL_g1323z00_307;
BgL_loopz00_309:
if(
NULLP(BgL_lz00_308))
{ /* blib.scm 437 */
BgL_aux2051z00_1156 = ((bool_t)0); } else
{ /* blib.scm 437 */
{ /* blib.scm 438 */
obj_t BgL_funz00_1500;obj_t BgL_valz00_1501;
if(
PROCEDUREP(BgL_procz00_37))
{ /* blib.scm 438 */
BgL_funz00_1500 = BgL_procz00_37; } else
{ /* blib.scm 438 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2569z00zzblibz00, BGl_string2538z00zzblibz00, BgL_procz00_37, BGl_string2460z00zzblibz00,
BINT(((long)13619)));
exit( -1 );}
{ /* blib.scm 438 */
obj_t BgL_pairz00_887;
if(
PAIRP(BgL_lz00_308))
{ /* blib.scm 438 */
BgL_pairz00_887 = BgL_lz00_308; } else
{ /* blib.scm 438 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2569z00zzblibz00, BGl_string2459z00zzblibz00, BgL_lz00_308, BGl_string2460z00zzblibz00,
BINT(((long)13635)));
exit( -1 );}
BgL_valz00_1501 =
CAR(BgL_pairz00_887); }
{ /* blib.scm 438 */
int BgL_len2243z00_1502;
BgL_len2243z00_1502 =
(int)(
bgl_list_length(BgL_valz00_1501));
if(
PROCEDURE_CORRECT_ARITYP(BgL_funz00_1500, BgL_len2243z00_1502))
{ /* blib.scm 438 */
apply(BgL_funz00_1500, BgL_valz00_1501); } else
{ /* blib.scm 438 */
BGl_errorzf2locationzf2zz__errorz00(BGl_symbol2569z00zzblibz00, BGl_string2466z00zzblibz00, BGl_list2579z00zzblibz00, BGl_string2460z00zzblibz00,
BINT(((long)13619)));
FAILURE(BGl_symbol2497z00zzblibz00,BGl_symbol2497z00zzblibz00,BGl_symbol2497z00zzblibz00);} } }
{ /* blib.scm 439 */
bool_t BgL_testz00_2553;
{ /* blib.scm 439 */
obj_t BgL_auxz00_2554;
{ /* blib.scm 439 */
obj_t BgL_pairz00_888;
if(
PAIRP(BgL_lz00_308))
{ /* blib.scm 439 */
BgL_pairz00_888 = BgL_lz00_308; } else
{ /* blib.scm 439 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2569z00zzblibz00, BGl_string2459z00zzblibz00, BgL_lz00_308, BGl_string2460z00zzblibz00,
BINT(((long)13662)));
exit( -1 );}
BgL_auxz00_2554 =
CDR(BgL_pairz00_888); }
BgL_testz00_2553 =
NULLP(BgL_auxz00_2554); }
if(BgL_testz00_2553)
{ /* blib.scm 439 */BFALSE; } else
{ /* blib.scm 439 */
BGl_zc3anonymousza31512za3blibze2scmza3449ze3z61zzblibz00(BgL_thunkz00_38); } }
{ /* blib.scm 440 */
obj_t BgL_arg1496z00_313;
{ /* blib.scm 440 */
obj_t BgL_pairz00_890;
if(
PAIRP(BgL_lz00_308))
{ /* blib.scm 440 */
BgL_pairz00_890 = BgL_lz00_308; } else
{ /* blib.scm 440 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2569z00zzblibz00, BGl_string2459z00zzblibz00, BgL_lz00_308, BGl_string2460z00zzblibz00,
BINT(((long)13689)));
exit( -1 );}
BgL_arg1496z00_313 =
CDR(BgL_pairz00_890); }
{
obj_t BgL_lz00_2570;
BgL_lz00_2570 = BgL_arg1496z00_313;
BgL_lz00_308 = BgL_lz00_2570;
goto BgL_loopz00_309;} } } } }
POP_TRACE();
return BgL_aux2051z00_1156;} } } }
}
/* string->hex */
BGL_EXPORTED_DEF obj_t BGl_stringzd2ze3hexz31zzblibz00(obj_t BgL_sz00_45)
{ AN_OBJECT;
{ /* blib.scm 459 */
{ /* blib.scm 460 */
obj_t BgL_symbol2056z00_1159;
BgL_symbol2056z00_1159 = BGl_symbol2587z00zzblibz00;
{ /* blib.scm 460 */
PUSH_TRACE(BgL_symbol2056z00_1159);
{ /* blib.scm 460 */
obj_t BgL_aux2055z00_1160;
{ /* blib.scm 460 */
long BgL_lenz00_339;
BgL_lenz00_339 =
STRING_LENGTH(BgL_sz00_45);
{ /* blib.scm 460 */
obj_t BgL_resultz00_340;
BgL_resultz00_340 =
make_string(
(BgL_lenz00_339*((long)2)), ((unsigned char)' '));
{ /* blib.scm 461 */
{
char * BgL_auxz00_2578;char * BgL_auxz00_2576;
BgL_auxz00_2578 =
BSTRING_TO_STRING(BgL_resultz00_340);
BgL_auxz00_2576 =
BSTRING_TO_STRING(BgL_sz00_45);
{
static char mask[]="0123456789abcdef";
while( BgL_lenz00_339 --) {
char c = * BgL_auxz00_2576 ++;
* BgL_auxz00_2578 ++ = mask[(c >> 4) & 15];
* BgL_auxz00_2578 ++ = mask[c & 15];
}
}; }
BgL_aux2055z00_1160 = BgL_resultz00_340; } } }
POP_TRACE();
return BgL_aux2055z00_1160;} } } }
}
/* _string->hex */
obj_t BGl__stringzd2ze3hexz31zzblibz00(obj_t BgL_envz00_1296, obj_t BgL_sz00_1297)
{ AN_OBJECT;
{ /* blib.scm 459 */
{ /* blib.scm 460 */
obj_t BgL_auxz00_2582;
if(
STRINGP(BgL_sz00_1297))
{ /* blib.scm 460 */
BgL_auxz00_2582 = BgL_sz00_1297
; } else
{ /* blib.scm 460 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2589z00zzblibz00, BGl_string2530z00zzblibz00, BgL_sz00_1297, BGl_string2460z00zzblibz00,
BINT(((long)13984)));
exit( -1 );}
return
BGl_stringzd2ze3hexz31zzblibz00(BgL_auxz00_2582);} }
}
/* string*? */
BGL_EXPORTED_DEF bool_t BGl_stringza2zf3z51zzblibz00(obj_t BgL_oz00_46)
{ AN_OBJECT;
{ /* blib.scm 476 */
{ /* blib.scm 477 */
obj_t BgL_symbol2058z00_1161;
BgL_symbol2058z00_1161 = BGl_symbol2591z00zzblibz00;
{ /* blib.scm 477 */
PUSH_TRACE(BgL_symbol2058z00_1161);
{ /* blib.scm 477 */
bool_t BgL_aux2057z00_1162;
if(
FOREIGNP(BgL_oz00_46))
{ /* blib.scm 477 */
obj_t BgL_arg1515z00_942;obj_t BgL_arg1516z00_943;
BgL_arg1515z00_942 =
FOREIGN_ID(BgL_oz00_46);
BgL_arg1516z00_943 = BGl_symbol2593z00zzblibz00;
BgL_aux2057z00_1162 =
(BgL_arg1515z00_942==BgL_arg1516z00_943); } else
{ /* blib.scm 477 */
BgL_aux2057z00_1162 = ((bool_t)0); }
POP_TRACE();
return BgL_aux2057z00_1162;} } } }
}
/* _string*? */
obj_t BGl__stringza2zf3z51zzblibz00(obj_t BgL_envz00_1298, obj_t BgL_oz00_1299)
{ AN_OBJECT;
{ /* blib.scm 476 */
return
BBOOL(
BGl_stringza2zf3z51zzblibz00(BgL_oz00_1299));}
}
/* _string*->string-list */
obj_t BGl__stringza2zd2ze3stringzd2listz41zzblibz00(obj_t BgL_envz00_50, obj_t BgL_optz00_49)
{ AN_OBJECT;
{ /* blib.scm 479 */
{ /* blib.scm 479 */
obj_t BgL_symbol2060z00_1163;
BgL_symbol2060z00_1163 = BGl_symbol2595z00zzblibz00;
{ /* blib.scm 479 */
PUSH_TRACE(BgL_symbol2060z00_1163);
{ /* blib.scm 479 */
obj_t BgL_aux2059z00_1164;
{ /* blib.scm 479 */
obj_t BgL_spz00_346;
BgL_spz00_346 =
VECTOR_REF(BgL_optz00_49,
(int)(((long)0)));
{
{ /* blib.scm 479 */
int BgL_aux1392z00_348;
BgL_aux1392z00_348 =
VECTOR_LENGTH(BgL_optz00_49);
switch(
(long)(BgL_aux1392z00_348)) { case ((long)1) :
{ /* blib.scm 479 */
{ /* blib.scm 479 */
obj_t BgL_arg1518z00_351;
BgL_arg1518z00_351 =
VECTOR_REF(BgL_optz00_49,
(int)(((long)0)));
{ /* blib.scm 479 */
char** BgL_auxz00_2603;
if(
BGl_stringza2zf3z51zzblibz00(BgL_arg1518z00_351))
{ /* blib.scm 479 */
BgL_auxz00_2603 =
(char**)FOREIGN_TO_COBJ(BgL_arg1518z00_351)
; } else
{ /* blib.scm 479 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2600z00zzblibz00, BGl_string2594z00zzblibz00, BgL_arg1518z00_351, BGl_string2460z00zzblibz00,
BINT(((long)14375)));
exit( -1 );}
BgL_aux2059z00_1164 =
BGl_stringza2zd2ze3stringzd2listz41zzblibz00(BgL_auxz00_2603, BFALSE); } } } break;case ((long)2) :
{ /* blib.scm 479 */
obj_t BgL_lenz00_352;
BgL_lenz00_352 =
VECTOR_REF(BgL_optz00_49,
(int)(((long)1)));
{ /* blib.scm 479 */
{ /* blib.scm 479 */
obj_t BgL_arg1519z00_353;
BgL_arg1519z00_353 =
VECTOR_REF(BgL_optz00_49,
(int)(((long)0)));
{ /* blib.scm 479 */
char** BgL_auxz00_2615;
if(
BGl_stringza2zf3z51zzblibz00(BgL_arg1519z00_353))
{ /* blib.scm 479 */
BgL_auxz00_2615 =
(char**)FOREIGN_TO_COBJ(BgL_arg1519z00_353)
; } else
{ /* blib.scm 479 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2600z00zzblibz00, BGl_string2594z00zzblibz00, BgL_arg1519z00_353, BGl_string2460z00zzblibz00,
BINT(((long)14375)));
exit( -1 );}
BgL_aux2059z00_1164 =
BGl_stringza2zd2ze3stringzd2listz41zzblibz00(BgL_auxz00_2615, BgL_lenz00_352); } } } } break;
default:
{ /* blib.scm 479 */
obj_t BgL_arg1520z00_354;int BgL_arg1522z00_356;
BgL_arg1520z00_354 = BGl_symbol2597z00zzblibz00;
BgL_arg1522z00_356 =
VECTOR_LENGTH(BgL_optz00_49);
BgL_aux2059z00_1164 =
BGl_errorzf2locationzf2zz__errorz00(BgL_arg1520z00_354, BGl_string2599z00zzblibz00,
BINT(BgL_arg1522z00_356), BGl_string2460z00zzblibz00,
BINT(((long)14375))); } } } } }
POP_TRACE();
return BgL_aux2059z00_1164;} } } }
}
/* string*->string-list */
BGL_EXPORTED_DEF obj_t BGl_stringza2zd2ze3stringzd2listz41zzblibz00(char** BgL_spz00_47, obj_t BgL_lenz00_48)
{ AN_OBJECT;
{ /* blib.scm 479 */
{ /* blib.scm 483 */
obj_t BgL_symbol2062z00_1165;
BgL_symbol2062z00_1165 = BGl_symbol2602z00zzblibz00;
{ /* blib.scm 483 */
PUSH_TRACE(BgL_symbol2062z00_1165);
{ /* blib.scm 483 */
obj_t BgL_aux2061z00_1166;
{ /* blib.scm 483 */
char** BgL_pza2za2_357;obj_t BgL_lenz00_358;
BgL_pza2za2_357 = BgL_spz00_47;
BgL_lenz00_358 =
MAKE_PAIR(BgL_lenz00_48, BNIL);
{ /* blib.scm 483 */
obj_t BgL_dsssl1523z00_359;
BgL_dsssl1523z00_359 = BgL_lenz00_358;
{ /* blib.scm 483 */
obj_t BgL_lenz00_360;
{ /* blib.scm 483 */
bool_t BgL_testz00_2632;
if(
NULLP(BgL_dsssl1523z00_359))
{ /* blib.scm 483 */
BgL_testz00_2632 = ((bool_t)1)
; } else
{ /* blib.scm 483 */
obj_t BgL_auxz00_2635;
{ /* blib.scm 483 */
obj_t BgL_auxz00_2636;
{ /* blib.scm 483 */
obj_t BgL_pairz00_948;
{ /* blib.scm 483 */
obj_t BgL_aux2261z00_1520;
BgL_aux2261z00_1520 = BgL_dsssl1523z00_359;
if(
PAIRP(BgL_aux2261z00_1520))
{ /* blib.scm 483 */
BgL_pairz00_948 = BgL_aux2261z00_1520; } else
{ /* blib.scm 483 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2604z00zzblibz00, BGl_string2459z00zzblibz00, BgL_aux2261z00_1520, BGl_string2460z00zzblibz00,
BINT(((long)14473)));
exit( -1 );} }
BgL_auxz00_2636 =
CAR(BgL_pairz00_948); }
BgL_auxz00_2635 =
BGl_memqz00zz__r4_pairs_and_lists_6_3z00(BgL_auxz00_2636, BNIL); }
BgL_testz00_2632 =
CBOOL(BgL_auxz00_2635); }
if(BgL_testz00_2632)
{ /* blib.scm 483 */
BgL_lenz00_360 = BFALSE; } else
{ /* blib.scm 483 */
obj_t BgL_tmp1524z00_371;
{ /* blib.scm 483 */
obj_t BgL_pairz00_949;
{ /* blib.scm 483 */
obj_t BgL_aux2263z00_1522;
BgL_aux2263z00_1522 = BgL_dsssl1523z00_359;
if(
PAIRP(BgL_aux2263z00_1522))
{ /* blib.scm 483 */
BgL_pairz00_949 = BgL_aux2263z00_1522; } else
{ /* blib.scm 483 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2604z00zzblibz00, BGl_string2459z00zzblibz00, BgL_aux2263z00_1522, BGl_string2460z00zzblibz00,
BINT(((long)14473)));
exit( -1 );} }
BgL_tmp1524z00_371 =
CAR(BgL_pairz00_949); }
{ /* blib.scm 483 */
obj_t BgL_pairz00_950;
{ /* blib.scm 483 */
obj_t BgL_aux2265z00_1524;
BgL_aux2265z00_1524 = BgL_dsssl1523z00_359;
if(
PAIRP(BgL_aux2265z00_1524))
{ /* blib.scm 483 */
BgL_pairz00_950 = BgL_aux2265z00_1524; } else
{ /* blib.scm 483 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2604z00zzblibz00, BGl_string2459z00zzblibz00, BgL_aux2265z00_1524, BGl_string2460z00zzblibz00,
BINT(((long)14473)));
exit( -1 );} }
BgL_dsssl1523z00_359 =
CDR(BgL_pairz00_950); }
BgL_lenz00_360 = BgL_tmp1524z00_371; } }
{
obj_t BgL_accuz00_362;long BgL_iz00_363;
BgL_accuz00_362 = BNIL;
BgL_iz00_363 = ((long)0);
BgL_loopz00_364:
{ /* blib.scm 483 */
char * BgL_pz00_365;
BgL_pz00_365 =
BgL_pza2za2_357[BgL_iz00_363];
{ /* blib.scm 483 */
bool_t BgL_testz00_2658;
{ /* blib.scm 483 */
bool_t BgL_testz00_2659;
if(
CBOOL(BgL_lenz00_360))
{ /* blib.scm 483 */
long BgL_n1z00_951;long BgL_n2z00_952;
BgL_n1z00_951 = BgL_iz00_363;
{ /* blib.scm 483 */
obj_t BgL_auxz00_2662;
if(
INTEGERP(BgL_lenz00_360))
{ /* blib.scm 483 */
BgL_auxz00_2662 = BgL_lenz00_360
; } else
{ /* blib.scm 483 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2569z00zzblibz00, BGl_string2606z00zzblibz00, BgL_lenz00_360, BGl_string2460z00zzblibz00,
BINT(((long)14473)));
exit( -1 );}
BgL_n2z00_952 =
(long)CINT(BgL_auxz00_2662); }
BgL_testz00_2659 =
(BgL_n1z00_951==BgL_n2z00_952); } else
{ /* blib.scm 483 */
BgL_testz00_2659 = ((bool_t)0)
; }
if(BgL_testz00_2659)
{ /* blib.scm 483 */
BgL_testz00_2658 = ((bool_t)1)
; } else
{ /* blib.scm 483 */
BgL_testz00_2658 =
BgL_pz00_365 == NULL
; } }
if(BgL_testz00_2658)
{ /* blib.scm 483 */
obj_t BgL_auxz00_2671;
{ /* blib.scm 483 */
bool_t BgL_testz00_2672;
if(
PAIRP(BgL_accuz00_362))
{ /* blib.scm 483 */
BgL_testz00_2672 = ((bool_t)1)
; } else
{ /* blib.scm 483 */
BgL_testz00_2672 =
NULLP(BgL_accuz00_362)
; }
if(BgL_testz00_2672)
{ /* blib.scm 483 */
BgL_auxz00_2671 = BgL_accuz00_362
; } else
{ /* blib.scm 483 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2569z00zzblibz00, BGl_string2465z00zzblibz00, BgL_accuz00_362, BGl_string2460z00zzblibz00,
BINT(((long)14473)));
exit( -1 );} }
BgL_aux2061z00_1166 =
bgl_reverse(BgL_auxz00_2671); } else
{ /* blib.scm 483 */
obj_t BgL_arg1526z00_367;long BgL_arg1527z00_368;
BgL_arg1526z00_367 =
MAKE_PAIR(
string_to_bstring(BgL_pz00_365), BgL_accuz00_362);
BgL_arg1527z00_368 =
(BgL_iz00_363+((long)1));
{
long BgL_iz00_2684;obj_t BgL_accuz00_2683;
BgL_accuz00_2683 = BgL_arg1526z00_367;
BgL_iz00_2684 = BgL_arg1527z00_368;
BgL_iz00_363 = BgL_iz00_2684;
BgL_accuz00_362 = BgL_accuz00_2683;
goto BgL_loopz00_364;} } } } } } } }
POP_TRACE();
return BgL_aux2061z00_1166;} } } }
}
/* string-list->string* */
BGL_EXPORTED_DEF char** BGl_stringzd2listzd2ze3stringza2z41zzblibz00(obj_t BgL_slz00_51)
{ AN_OBJECT;
{ /* blib.scm 485 */
{ /* blib.scm 487 */
obj_t BgL_symbol2064z00_1167;
BgL_symbol2064z00_1167 = BGl_symbol2607z00zzblibz00;
{ /* blib.scm 487 */
PUSH_TRACE(BgL_symbol2064z00_1167);
{ /* blib.scm 487 */
char** BgL_aux2063z00_1168;
{ /* blib.scm 486 */
char** BgL_valspz00_377;
{
long BgL_auxz00_2687;
{ /* blib.scm 486 */
long BgL_arg1538z00_386;
BgL_arg1538z00_386 =
bgl_list_length(BgL_slz00_51);
BgL_auxz00_2687 =
(((long)1)+BgL_arg1538z00_386); }
BgL_valspz00_377 =
(char**)(GC_malloc(BgL_auxz00_2687 * sizeof(char**))); }
{
long BgL_iz00_378;obj_t BgL_attvalsz00_379;
BgL_iz00_378 = ((long)0);
BgL_attvalsz00_379 = BgL_slz00_51;
BgL_loopz00_380:
if(
NULLP(BgL_attvalsz00_379))
{ /* blib.scm 486 */
BgL_valspz00_377[BgL_iz00_378] =
NULL;
BgL_aux2063z00_1168 = BgL_valspz00_377; } else
{ /* blib.scm 486 */
{
char * BgL_auxz00_2695;
{ /* blib.scm 486 */
obj_t BgL_arg1534z00_382;
{ /* blib.scm 486 */
obj_t BgL_pairz00_958;
{ /* blib.scm 486 */
bool_t BgL_test2272z00_1531;
BgL_test2272z00_1531 =
PAIRP(BgL_attvalsz00_379);
if(BgL_test2272z00_1531)
{ /* blib.scm 486 */
BgL_pairz00_958 = BgL_attvalsz00_379; } else
{ /* blib.scm 486 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2569z00zzblibz00, BGl_string2459z00zzblibz00, BgL_attvalsz00_379, BGl_string2460z00zzblibz00,
BINT(((long)14563)));
exit( -1 );} }
BgL_arg1534z00_382 =
CAR(BgL_pairz00_958); }
{ /* blib.scm 486 */
obj_t BgL_sz00_959;
{ /* blib.scm 486 */
bool_t BgL_test2274z00_1533;
BgL_test2274z00_1533 =
STRINGP(BgL_arg1534z00_382);
if(BgL_test2274z00_1533)
{ /* blib.scm 486 */
BgL_sz00_959 = BgL_arg1534z00_382; } else
{ /* blib.scm 486 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2569z00zzblibz00, BGl_string2530z00zzblibz00, BgL_arg1534z00_382, BGl_string2460z00zzblibz00,
BINT(((long)14563)));
exit( -1 );} }
{ /* blib.scm 486 */
char * BgL_csz00_960;
BgL_csz00_960 =
BSTRING_TO_STRING(BgL_sz00_959);
BgL_auxz00_2695 = BgL_csz00_960; } } }
BgL_valspz00_377[BgL_iz00_378] = BgL_auxz00_2695; }
{ /* blib.scm 486 */
long BgL_arg1535z00_383;obj_t BgL_arg1536z00_384;
BgL_arg1535z00_383 =
(BgL_iz00_378+((long)1));
{ /* blib.scm 486 */
obj_t BgL_pairz00_963;
if(
PAIRP(BgL_attvalsz00_379))
{ /* blib.scm 486 */
BgL_pairz00_963 = BgL_attvalsz00_379; } else
{ /* blib.scm 486 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2569z00zzblibz00, BGl_string2459z00zzblibz00, BgL_attvalsz00_379, BGl_string2460z00zzblibz00,
BINT(((long)14563)));
exit( -1 );}
BgL_arg1536z00_384 =
CDR(BgL_pairz00_963); }
{
obj_t BgL_attvalsz00_2717;long BgL_iz00_2716;
BgL_iz00_2716 = BgL_arg1535z00_383;
BgL_attvalsz00_2717 = BgL_arg1536z00_384;
BgL_attvalsz00_379 = BgL_attvalsz00_2717;
BgL_iz00_378 = BgL_iz00_2716;
goto BgL_loopz00_380;} } } } }
POP_TRACE();
return BgL_aux2063z00_1168;} } } }
}
/* _string-list->string* */
obj_t BGl__stringzd2listzd2ze3stringza2z41zzblibz00(obj_t BgL_envz00_1300, obj_t BgL_slz00_1301)
{ AN_OBJECT;
{ /* blib.scm 485 */
{ /* blib.scm 148 */
char** BgL_resultz00_1538;
{ /* blib.scm 487 */
obj_t BgL_auxz00_2719;
{ /* blib.scm 487 */
bool_t BgL_testz00_2720;
if(
PAIRP(BgL_slz00_1301))
{ /* blib.scm 487 */
BgL_testz00_2720 = ((bool_t)1)
; } else
{ /* blib.scm 487 */
BgL_testz00_2720 =
NULLP(BgL_slz00_1301)
; }
if(BgL_testz00_2720)
{ /* blib.scm 487 */
BgL_auxz00_2719 = BgL_slz00_1301
; } else
{ /* blib.scm 487 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2609z00zzblibz00, BGl_string2465z00zzblibz00, BgL_slz00_1301, BGl_string2460z00zzblibz00,
BINT(((long)14591)));
exit( -1 );} }
BgL_resultz00_1538 =
BGl_stringzd2listzd2ze3stringza2z41zzblibz00(BgL_auxz00_2719); }
return
cobj_to_foreign(BGl_symbol2593z00zzblibz00, BgL_resultz00_1538);} }
}
/* last */
BGL_EXPORTED_DEF obj_t BGl_lastz00zzblibz00(obj_t BgL_lisz00_52)
{ AN_OBJECT;
{ /* blib.scm 490 */
{ /* blib.scm 490 */
obj_t BgL_symbol2066z00_1169;
BgL_symbol2066z00_1169 = BGl_symbol2611z00zzblibz00;
{ /* blib.scm 490 */
PUSH_TRACE(BgL_symbol2066z00_1169);
{ /* blib.scm 490 */
obj_t BgL_aux2065z00_1170;
{ /* blib.scm 490 */
obj_t BgL_auxz00_2730;
{ /* blib.scm 490 */
obj_t BgL_auxz00_2731;
if(
PAIRP(BgL_lisz00_52))
{ /* blib.scm 490 */
BgL_auxz00_2731 = BgL_lisz00_52
; } else
{ /* blib.scm 490 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2613z00zzblibz00, BGl_string2459z00zzblibz00, BgL_lisz00_52, BGl_string2460z00zzblibz00,
BINT(((long)14683)));
exit( -1 );}
BgL_auxz00_2730 =
BGl_lastzd2pairzd2zz__r4_pairs_and_lists_6_3z00(BgL_auxz00_2731); }
BgL_aux2065z00_1170 =
CAR(BgL_auxz00_2730); }
POP_TRACE();
return BgL_aux2065z00_1170;} } } }
}
/* _last */
obj_t BGl__lastz00zzblibz00(obj_t BgL_envz00_1302, obj_t BgL_lisz00_1303)
{ AN_OBJECT;
{ /* blib.scm 490 */
{ /* blib.scm 490 */
obj_t BgL_auxz00_2740;
{ /* blib.scm 490 */
bool_t BgL_testz00_2741;
if(
PAIRP(BgL_lisz00_1303))
{ /* blib.scm 490 */
BgL_testz00_2741 = ((bool_t)1)
; } else
{ /* blib.scm 490 */
BgL_testz00_2741 =
NULLP(BgL_lisz00_1303)
; }
if(BgL_testz00_2741)
{ /* blib.scm 490 */
BgL_auxz00_2740 = BgL_lisz00_1303
; } else
{ /* blib.scm 490 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2615z00zzblibz00, BGl_string2465z00zzblibz00, BgL_lisz00_1303, BGl_string2460z00zzblibz00,
BINT(((long)14672)));
exit( -1 );} }
return
BGl_lastz00zzblibz00(BgL_auxz00_2740);} }
}
/* remove */
BGL_EXPORTED_DEF obj_t BGl_removez00zzblibz00(obj_t BgL_predz00_53, obj_t BgL_lz00_54)
{ AN_OBJECT;
{ /* blib.scm 492 */
{ /* blib.scm 492 */
obj_t BgL_symbol2068z00_1171;
BgL_symbol2068z00_1171 = BGl_symbol2617z00zzblibz00;
{ /* blib.scm 492 */
PUSH_TRACE(BgL_symbol2068z00_1171);
{ /* blib.scm 492 */
obj_t BgL_aux2067z00_1172;
{ /* blib.scm 492 */
obj_t BgL_zc3anonymousza31545za3blibze2scmza3492ze3z61_1304;
BgL_zc3anonymousza31545za3blibze2scmza3492ze3z61_1304 =
make_fx_procedure(BGl_zc3anonymousza31545za3blibze2scmza3492ze3z61zzblibz00,
(int)(((long)1)),
(int)(((long)1)));
PROCEDURE_SET(BgL_zc3anonymousza31545za3blibze2scmza3492ze3z61_1304,
(int)(((long)0)), BgL_predz00_53);
if(
PROCEDURE_CORRECT_ARITYP(BgL_zc3anonymousza31545za3blibze2scmza3492ze3z61_1304,
(int)(((long)1))))
{ /* blib.scm 492 */
if(
BGl_listzf3zf3zz__r4_pairs_and_lists_6_3z00(BgL_lz00_54))
{ /* blib.scm 492 */
BgL_aux2067z00_1172 =
BGl_filterz00zz__r4_control_features_6_9z00(BgL_zc3anonymousza31545za3blibze2scmza3492ze3z61_1304, BgL_lz00_54); } else
{ /* blib.scm 492 */
obj_t BgL_aux2283z00_1543;
BgL_aux2283z00_1543 =
BGl_errorzf2locationzf2zz__errorz00(BFALSE, BGl_string2619z00zzblibz00, BgL_lz00_54, BGl_string2460z00zzblibz00,
BINT(((long)14691)));
{ /* blib.scm 492 */
bool_t BgL_testz00_2763;
if(
PAIRP(BgL_aux2283z00_1543))
{ /* blib.scm 492 */
BgL_testz00_2763 = ((bool_t)1)
; } else
{ /* blib.scm 492 */
BgL_testz00_2763 =
NULLP(BgL_aux2283z00_1543)
; }
if(BgL_testz00_2763)
{ /* blib.scm 492 */
BgL_aux2067z00_1172 = BgL_aux2283z00_1543; } else
{ /* blib.scm 492 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2620z00zzblibz00, BGl_string2465z00zzblibz00, BgL_aux2283z00_1543, BGl_string2460z00zzblibz00,
BINT(((long)14691)));
exit( -1 );} } } } else
{ /* blib.scm 492 */
obj_t BgL_aux2285z00_1545;
BgL_aux2285z00_1545 =
BGl_errorzf2locationzf2zz__errorz00(BFALSE, BGl_string2622z00zzblibz00,
BINT(((long)1)), BGl_string2460z00zzblibz00,
BINT(((long)14691)));
{ /* blib.scm 492 */
bool_t BgL_testz00_2773;
if(
PAIRP(BgL_aux2285z00_1545))
{ /* blib.scm 492 */
BgL_testz00_2773 = ((bool_t)1)
; } else
{ /* blib.scm 492 */
BgL_testz00_2773 =
NULLP(BgL_aux2285z00_1545)
; }
if(BgL_testz00_2773)
{ /* blib.scm 492 */
BgL_aux2067z00_1172 = BgL_aux2285z00_1545; } else
{ /* blib.scm 492 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2620z00zzblibz00, BGl_string2465z00zzblibz00, BgL_aux2285z00_1545, BGl_string2460z00zzblibz00,
BINT(((long)14691)));
exit( -1 );} } } }
POP_TRACE();
return BgL_aux2067z00_1172;} } } }
}
/* _remove */
obj_t BGl__removez00zzblibz00(obj_t BgL_envz00_1305, obj_t BgL_predz00_1306, obj_t BgL_lz00_1307)
{ AN_OBJECT;
{ /* blib.scm 492 */
{ /* blib.scm 492 */
obj_t BgL_auxz00_2787;obj_t BgL_auxz00_2781;
{ /* blib.scm 492 */
bool_t BgL_testz00_2788;
if(
PAIRP(BgL_lz00_1307))
{ /* blib.scm 492 */
BgL_testz00_2788 = ((bool_t)1)
; } else
{ /* blib.scm 492 */
BgL_testz00_2788 =
NULLP(BgL_lz00_1307)
; }
if(BgL_testz00_2788)
{ /* blib.scm 492 */
BgL_auxz00_2787 = BgL_lz00_1307
; } else
{ /* blib.scm 492 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2623z00zzblibz00, BGl_string2465z00zzblibz00, BgL_lz00_1307, BGl_string2460z00zzblibz00,
BINT(((long)14691)));
exit( -1 );} }
if(
PROCEDUREP(BgL_predz00_1306))
{ /* blib.scm 492 */
BgL_auxz00_2781 = BgL_predz00_1306
; } else
{ /* blib.scm 492 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2623z00zzblibz00, BGl_string2538z00zzblibz00, BgL_predz00_1306, BGl_string2460z00zzblibz00,
BINT(((long)14691)));
exit( -1 );}
return
BGl_removez00zzblibz00(BgL_auxz00_2781, BgL_auxz00_2787);} }
}
/* <anonymous:1545:blib.scm:492> */
obj_t BGl_zc3anonymousza31545za3blibze2scmza3492ze3z61zzblibz00(obj_t BgL_envz00_1308, obj_t BgL_xz00_1310)
{ AN_OBJECT;
{ /* blib.scm 492 */
{ /* blib.scm 492 */
obj_t BgL_predz00_1309;
BgL_predz00_1309 =
PROCEDURE_REF(BgL_envz00_1308,
(int)(((long)0)));
{
obj_t BgL_xz00_397;
{ /* blib.scm 492 */
bool_t BgL_auxz00_2798;
BgL_xz00_397 = BgL_xz00_1310;
{ /* blib.scm 492 */
bool_t BgL_testz00_2799;
{ /* blib.scm 492 */
obj_t BgL_funz00_1553;
if(
PROCEDUREP(BgL_predz00_1309))
{ /* blib.scm 492 */
BgL_funz00_1553 = BgL_predz00_1309; } else
{ /* blib.scm 492 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2625z00zzblibz00, BGl_string2538z00zzblibz00, BgL_predz00_1309, BGl_string2460z00zzblibz00,
BINT(((long)14742)));
exit( -1 );}
if(
PROCEDURE_CORRECT_ARITYP(BgL_funz00_1553, ((long)1)))
{ /* blib.scm 492 */
BgL_testz00_2799 =
CBOOL(
PROCEDURE_ENTRY(BgL_funz00_1553)(BgL_predz00_1309, BgL_xz00_397, BEOA))
; } else
{ /* blib.scm 492 */
BGl_errorzf2locationzf2zz__errorz00(BGl_string2627z00zzblibz00, BGl_list2628z00zzblibz00, BgL_funz00_1553, BGl_string2460z00zzblibz00,
BINT(((long)14742)));
FAILURE(BGl_symbol2497z00zzblibz00,BGl_symbol2497z00zzblibz00,BGl_symbol2497z00zzblibz00);} }
if(BgL_testz00_2799)
{ /* blib.scm 492 */
BgL_auxz00_2798 = ((bool_t)0)
; } else
{ /* blib.scm 492 */
BgL_auxz00_2798 = ((bool_t)1)
; } }
return
BBOOL(BgL_auxz00_2798);} } } }
}
/* delete-duplicates */
BGL_EXPORTED_DEF obj_t BGl_deletezd2duplicateszd2zzblibz00(obj_t BgL_lisz00_55)
{ AN_OBJECT;
{ /* blib.scm 494 */
{ /* blib.scm 495 */
obj_t BgL_symbol2070z00_1173;
BgL_symbol2070z00_1173 = BGl_symbol2633z00zzblibz00;
{ /* blib.scm 495 */
PUSH_TRACE(BgL_symbol2070z00_1173);
{ /* blib.scm 495 */
obj_t BgL_aux2069z00_1174;
BgL_aux2069z00_1174 =
BGl_recurz00zzblibz00(BgL_lisz00_55);
POP_TRACE();
return BgL_aux2069z00_1174;} } } }
}
/* recur */
obj_t BGl_recurz00zzblibz00(obj_t BgL_lisz00_401)
{ AN_OBJECT;
{ /* blib.scm 495 */
if(
CBOOL(
BGl_nullzd2listzf3z21zzblibz00(BgL_lisz00_401)))
{ /* blib.scm 496 */
return BgL_lisz00_401;} else
{ /* blib.scm 497 */
obj_t BgL_xz00_404;
{ /* blib.scm 497 */
obj_t BgL_pairz00_968;
if(
PAIRP(BgL_lisz00_401))
{ /* blib.scm 497 */
BgL_pairz00_968 = BgL_lisz00_401; } else
{ /* blib.scm 497 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2635z00zzblibz00, BGl_string2459z00zzblibz00, BgL_lisz00_401, BGl_string2460z00zzblibz00,
BINT(((long)14860)));
exit( -1 );}
BgL_xz00_404 =
CAR(BgL_pairz00_968); }
{ /* blib.scm 497 */
obj_t BgL_tailz00_405;
{ /* blib.scm 498 */
obj_t BgL_pairz00_969;
if(
PAIRP(BgL_lisz00_401))
{ /* blib.scm 498 */
BgL_pairz00_969 = BgL_lisz00_401; } else
{ /* blib.scm 498 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2635z00zzblibz00, BGl_string2459z00zzblibz00, BgL_lisz00_401, BGl_string2460z00zzblibz00,
BINT(((long)14885)));
exit( -1 );}
BgL_tailz00_405 =
CDR(BgL_pairz00_969); }
{ /* blib.scm 498 */
obj_t BgL_newzd2tailzd2_406;
{ /* blib.scm 499 */
obj_t BgL_arg1549z00_408;
{ /* blib.scm 499 */
{ /* blib.scm 499 */
obj_t BgL_auxz00_2832;
{ /* blib.scm 499 */
bool_t BgL_testz00_2833;
if(
PAIRP(BgL_tailz00_405))
{ /* blib.scm 499 */
BgL_testz00_2833 = ((bool_t)1)
; } else
{ /* blib.scm 499 */
BgL_testz00_2833 =
NULLP(BgL_tailz00_405)
; }
if(BgL_testz00_2833)
{ /* blib.scm 499 */
BgL_auxz00_2832 = BgL_tailz00_405
; } else
{ /* blib.scm 499 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2635z00zzblibz00, BGl_string2465z00zzblibz00, BgL_tailz00_405, BGl_string2460z00zzblibz00,
BINT(((long)14916)));
exit( -1 );} }
BgL_arg1549z00_408 =
BGl_deletez00zz__r4_pairs_and_lists_6_3z00(BgL_xz00_404, BgL_auxz00_2832, BGl_equalzf3zd2envz21zz__r4_equivalence_6_2z00); } }
BgL_newzd2tailzd2_406 =
BGl_recurz00zzblibz00(BgL_arg1549z00_408); }
{ /* blib.scm 499 */
if(
(BgL_tailz00_405==BgL_newzd2tailzd2_406))
{ /* blib.scm 500 */
return BgL_lisz00_401;} else
{ /* blib.scm 500 */
return
MAKE_PAIR(BgL_xz00_404, BgL_newzd2tailzd2_406);} } } } } }
}
/* _delete-duplicates2157 */
obj_t BGl__deletezd2duplicates2157zd2zzblibz00(obj_t BgL_envz00_1311, obj_t BgL_lisz00_1312)
{ AN_OBJECT;
{ /* blib.scm 494 */
return
BGl_deletezd2duplicateszd2zzblibz00(BgL_lisz00_1312);}
}
/* _string-join */
obj_t BGl__stringzd2joinzd2zzblibz00(obj_t BgL_envz00_60, obj_t BgL_optz00_59)
{ AN_OBJECT;
{ /* blib.scm 502 */
{ /* blib.scm 502 */
obj_t BgL_symbol2072z00_1175;
BgL_symbol2072z00_1175 = BGl_symbol2637z00zzblibz00;
{ /* blib.scm 502 */
PUSH_TRACE(BgL_symbol2072z00_1175);
{ /* blib.scm 502 */
obj_t BgL_aux2071z00_1176;
{ /* blib.scm 502 */
obj_t BgL_stringzd2listzd2_412;
BgL_stringzd2listzd2_412 =
VECTOR_REF(BgL_optz00_59,
(int)(((long)0)));
{
{ /* blib.scm 502 */
int BgL_aux1394z00_414;
BgL_aux1394z00_414 =
VECTOR_LENGTH(BgL_optz00_59);
switch(
(long)(BgL_aux1394z00_414)) { case ((long)1) :
{ /* blib.scm 502 */
obj_t BgL_grammarz00_417;
BgL_grammarz00_417 = BGl_symbol2642z00zzblibz00;
{ /* blib.scm 502 */
BgL_aux2071z00_1176 =
BGl_stringzd2joinzd2zzblibz00(
VECTOR_REF(BgL_optz00_59,
(int)(((long)0))), BGl_string2644z00zzblibz00, BgL_grammarz00_417); } } break;case ((long)2) :
{ /* blib.scm 502 */
obj_t BgL_delimiterz00_419;
BgL_delimiterz00_419 =
VECTOR_REF(BgL_optz00_59,
(int)(((long)1)));
{ /* blib.scm 502 */
obj_t BgL_grammarz00_420;
BgL_grammarz00_420 = BGl_symbol2642z00zzblibz00;
{ /* blib.scm 502 */
BgL_aux2071z00_1176 =
BGl_stringzd2joinzd2zzblibz00(
VECTOR_REF(BgL_optz00_59,
(int)(((long)0))), BgL_delimiterz00_419, BgL_grammarz00_420); } } } break;case ((long)3) :
{ /* blib.scm 502 */
obj_t BgL_delimiterz00_422;
BgL_delimiterz00_422 =
VECTOR_REF(BgL_optz00_59,
(int)(((long)1)));
{ /* blib.scm 502 */
obj_t BgL_grammarz00_423;
BgL_grammarz00_423 =
VECTOR_REF(BgL_optz00_59,
(int)(((long)2)));
{ /* blib.scm 502 */
BgL_aux2071z00_1176 =
BGl_stringzd2joinzd2zzblibz00(
VECTOR_REF(BgL_optz00_59,
(int)(((long)0))), BgL_delimiterz00_422, BgL_grammarz00_423); } } } break;
default:
{ /* blib.scm 502 */
obj_t BgL_arg1556z00_425;int BgL_arg1561z00_427;
BgL_arg1556z00_425 = BGl_symbol2639z00zzblibz00;
BgL_arg1561z00_427 =
VECTOR_LENGTH(BgL_optz00_59);
BgL_aux2071z00_1176 =
BGl_errorzf2locationzf2zz__errorz00(BgL_arg1556z00_425, BGl_string2641z00zzblibz00,
BINT(BgL_arg1561z00_427), BGl_string2460z00zzblibz00,
BINT(((long)14990))); } } } } }
POP_TRACE();
return BgL_aux2071z00_1176;} } } }
}
/* string-join */
BGL_EXPORTED_DEF obj_t BGl_stringzd2joinzd2zzblibz00(obj_t BgL_stringzd2listzd2_56, obj_t BgL_delimiterz00_57, obj_t BgL_grammarz00_58)
{ AN_OBJECT;
{ /* blib.scm 502 */
{ /* blib.scm 503 */
obj_t BgL_symbol2074z00_1177;
BgL_symbol2074z00_1177 = BGl_symbol2645z00zzblibz00;
{ /* blib.scm 503 */
PUSH_TRACE(BgL_symbol2074z00_1177);
{ /* blib.scm 503 */
obj_t BgL_aux2073z00_1178;
{ /* blib.scm 503 */
obj_t BgL_runner1581z00_448;
{
obj_t BgL_stringzd2listzd2_429;obj_t BgL_accuz00_430;
BgL_stringzd2listzd2_429 = BgL_stringzd2listzd2_56;
BgL_accuz00_430 = BNIL;
BgL_loopz00_431:
if(
NULLP(BgL_stringzd2listzd2_429))
{ /* blib.scm 507 */
if(
NULLP(BgL_accuz00_430))
{ /* blib.scm 508 */
if(
(BgL_grammarz00_58==BGl_symbol2647z00zzblibz00))
{ /* blib.scm 509 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string2640z00zzblibz00, BGl_string2649z00zzblibz00, BGl_string2533z00zzblibz00,
BSTRING_TO_STRING(BGl_string2513z00zzblibz00), ((long)15238));
BgL_runner1581z00_448 =
BGl_errorzf2locationzf2zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string2460z00zzblibz00,
BINT(((long)15238))); } else
{ /* blib.scm 509 */
BgL_runner1581z00_448 = BNIL; } } else
{ /* blib.scm 513 */
bool_t BgL_testz00_2883;
{ /* blib.scm 513 */
bool_t BgL__ortest_1331z00_442;
BgL__ortest_1331z00_442 =
(BgL_grammarz00_58==BGl_symbol2642z00zzblibz00);
if(BgL__ortest_1331z00_442)
{ /* blib.scm 513 */
BgL_testz00_2883 = BgL__ortest_1331z00_442
; } else
{ /* blib.scm 513 */
BgL_testz00_2883 =
(BgL_grammarz00_58==BGl_symbol2647z00zzblibz00)
; } }
if(BgL_testz00_2883)
{ /* blib.scm 515 */
obj_t BgL_auxz00_2887;
{ /* blib.scm 515 */
obj_t BgL_pairz00_972;
if(
PAIRP(BgL_accuz00_430))
{ /* blib.scm 515 */
BgL_pairz00_972 = BgL_accuz00_430; } else
{ /* blib.scm 515 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2569z00zzblibz00, BGl_string2459z00zzblibz00, BgL_accuz00_430, BGl_string2460z00zzblibz00,
BINT(((long)15413)));
exit( -1 );}
{ /* blib.scm 515 */
obj_t BgL_aux2303z00_1564;
BgL_aux2303z00_1564 =
CDR(BgL_pairz00_972);
{ /* blib.scm 515 */
bool_t BgL_testz00_2894;
if(
PAIRP(BgL_aux2303z00_1564))
{ /* blib.scm 515 */
BgL_testz00_2894 = ((bool_t)1)
; } else
{ /* blib.scm 515 */
BgL_testz00_2894 =
NULLP(BgL_aux2303z00_1564)
; }
if(BgL_testz00_2894)
{ /* blib.scm 515 */
BgL_auxz00_2887 = BgL_aux2303z00_1564
; } else
{ /* blib.scm 515 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2569z00zzblibz00, BGl_string2465z00zzblibz00, BgL_aux2303z00_1564, BGl_string2460z00zzblibz00,
BINT(((long)15408)));
exit( -1 );} } } }
BgL_runner1581z00_448 =
bgl_reverse(BgL_auxz00_2887); } else
{ /* blib.scm 513 */
if(
(BgL_grammarz00_58==BGl_symbol2650z00zzblibz00))
{ /* blib.scm 517 */
obj_t BgL_auxz00_2904;
{ /* blib.scm 517 */
bool_t BgL_testz00_2905;
if(
PAIRP(BgL_accuz00_430))
{ /* blib.scm 517 */
BgL_testz00_2905 = ((bool_t)1)
; } else
{ /* blib.scm 517 */
BgL_testz00_2905 =
NULLP(BgL_accuz00_430)
; }
if(BgL_testz00_2905)
{ /* blib.scm 517 */
BgL_auxz00_2904 = BgL_accuz00_430
; } else
{ /* blib.scm 517 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2569z00zzblibz00, BGl_string2465z00zzblibz00, BgL_accuz00_430, BGl_string2460z00zzblibz00,
BINT(((long)15453)));
exit( -1 );} }
BgL_runner1581z00_448 =
bgl_reverse(BgL_auxz00_2904); } else
{ /* blib.scm 513 */
if(
(BgL_grammarz00_58==BGl_symbol2652z00zzblibz00))
{ /* blib.scm 519 */
obj_t BgL_arg1574z00_440;
{ /* blib.scm 519 */
obj_t BgL_auxz00_2915;
{ /* blib.scm 519 */
obj_t BgL_pairz00_977;
if(
PAIRP(BgL_accuz00_430))
{ /* blib.scm 519 */
BgL_pairz00_977 = BgL_accuz00_430; } else
{ /* blib.scm 519 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2569z00zzblibz00, BGl_string2459z00zzblibz00, BgL_accuz00_430, BGl_string2460z00zzblibz00,
BINT(((long)15511)));
exit( -1 );}
{ /* blib.scm 519 */
obj_t BgL_aux2309z00_1570;
BgL_aux2309z00_1570 =
CDR(BgL_pairz00_977);
{ /* blib.scm 519 */
bool_t BgL_testz00_2922;
if(
PAIRP(BgL_aux2309z00_1570))
{ /* blib.scm 519 */
BgL_testz00_2922 = ((bool_t)1)
; } else
{ /* blib.scm 519 */
BgL_testz00_2922 =
NULLP(BgL_aux2309z00_1570)
; }
if(BgL_testz00_2922)
{ /* blib.scm 519 */
BgL_auxz00_2915 = BgL_aux2309z00_1570
; } else
{ /* blib.scm 519 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2569z00zzblibz00, BGl_string2465z00zzblibz00, BgL_aux2309z00_1570, BGl_string2460z00zzblibz00,
BINT(((long)15506)));
exit( -1 );} } } }
BgL_arg1574z00_440 =
bgl_reverse(BgL_auxz00_2915); }
BgL_runner1581z00_448 =
MAKE_PAIR(BgL_delimiterz00_57, BgL_arg1574z00_440); } else
{ /* blib.scm 513 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string2640z00zzblibz00, BGl_string2654z00zzblibz00, BgL_grammarz00_58,
BSTRING_TO_STRING(BGl_string2513z00zzblibz00), ((long)15539));
BgL_runner1581z00_448 =
BGl_errorzf2locationzf2zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string2460z00zzblibz00,
BINT(((long)15539))); } } } } } else
{ /* blib.scm 525 */
obj_t BgL_arg1576z00_443;obj_t BgL_arg1577z00_444;
{ /* blib.scm 525 */
obj_t BgL_pairz00_978;
if(
PAIRP(BgL_stringzd2listzd2_429))
{ /* blib.scm 525 */
BgL_pairz00_978 = BgL_stringzd2listzd2_429; } else
{ /* blib.scm 525 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2569z00zzblibz00, BGl_string2459z00zzblibz00, BgL_stringzd2listzd2_429, BGl_string2460z00zzblibz00,
BINT(((long)15673)));
exit( -1 );}
BgL_arg1576z00_443 =
CDR(BgL_pairz00_978); }
{ /* blib.scm 526 */
obj_t BgL_arg1578z00_445;
{ /* blib.scm 526 */
obj_t BgL_arg1579z00_446;
{ /* blib.scm 526 */
obj_t BgL_pairz00_979;
if(
PAIRP(BgL_stringzd2listzd2_429))
{ /* blib.scm 526 */
BgL_pairz00_979 = BgL_stringzd2listzd2_429; } else
{ /* blib.scm 526 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2569z00zzblibz00, BGl_string2459z00zzblibz00, BgL_stringzd2listzd2_429, BGl_string2460z00zzblibz00,
BINT(((long)15709)));
exit( -1 );}
BgL_arg1579z00_446 =
CAR(BgL_pairz00_979); }
{ /* blib.scm 526 */
obj_t BgL_list1580z00_447;
BgL_list1580z00_447 =
MAKE_PAIR(BgL_accuz00_430, BNIL);
BgL_arg1578z00_445 =
BGl_consza2za2zz__r4_pairs_and_lists_6_3z00(BgL_arg1579z00_446, BgL_list1580z00_447); } }
BgL_arg1577z00_444 =
MAKE_PAIR(BgL_delimiterz00_57, BgL_arg1578z00_445); }
{
obj_t BgL_accuz00_2951;obj_t BgL_stringzd2listzd2_2950;
BgL_stringzd2listzd2_2950 = BgL_arg1576z00_443;
BgL_accuz00_2951 = BgL_arg1577z00_444;
BgL_accuz00_430 = BgL_accuz00_2951;
BgL_stringzd2listzd2_429 = BgL_stringzd2listzd2_2950;
goto BgL_loopz00_431;} } }
BgL_aux2073z00_1178 =
BGl_stringzd2appendzd2zz__r4_strings_6_7z00(BgL_runner1581z00_448); }
POP_TRACE();
return BgL_aux2073z00_1178;} } } }
}
/* lset-difference */
BGL_EXPORTED_DEF obj_t BGl_lsetzd2differencezd2zzblibz00(obj_t BgL_eltzd3zd3_61, obj_t BgL_lis1z00_62, obj_t BgL_listsz00_63)
{ AN_OBJECT;
{ /* blib.scm 528 */
{ /* blib.scm 529 */
obj_t BgL_symbol2076z00_1179;
BgL_symbol2076z00_1179 = BGl_symbol2655z00zzblibz00;
{ /* blib.scm 529 */
PUSH_TRACE(BgL_symbol2076z00_1179);
{ /* blib.scm 529 */
obj_t BgL_aux2075z00_1180;
{ /* blib.scm 529 */
obj_t BgL_listsz00_449;
if(
PROCEDURE_CORRECT_ARITYP(BGl_pairzf3zd2envz21zz__r4_pairs_and_lists_6_3z00,
(int)(((long)1))))
{ /* blib.scm 529 */
if(
BGl_listzf3zf3zz__r4_pairs_and_lists_6_3z00(BgL_listsz00_63))
{ /* blib.scm 529 */
obj_t BgL_auxz00_2960;
{ /* blib.scm 529 */
bool_t BgL_testz00_2961;
if(
PAIRP(BgL_listsz00_63))
{ /* blib.scm 529 */
BgL_testz00_2961 = ((bool_t)1)
; } else
{ /* blib.scm 529 */
BgL_testz00_2961 =
NULLP(BgL_listsz00_63)
; }
if(BgL_testz00_2961)
{ /* blib.scm 529 */
BgL_auxz00_2960 = BgL_listsz00_63
; } else
{ /* blib.scm 529 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2657z00zzblibz00, BGl_string2465z00zzblibz00, BgL_listsz00_63, BGl_string2460z00zzblibz00,
BINT(((long)15796)));
exit( -1 );} }
BgL_listsz00_449 =
BGl_filterz00zz__r4_control_features_6_9z00(BGl_pairzf3zd2envz21zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_2960); } else
{ /* blib.scm 529 */
BgL_listsz00_449 =
BGl_errorzf2locationzf2zz__errorz00(BFALSE, BGl_string2619z00zzblibz00, BgL_listsz00_63, BGl_string2460z00zzblibz00,
BINT(((long)15796))); } } else
{ /* blib.scm 529 */
BgL_listsz00_449 =
BGl_errorzf2locationzf2zz__errorz00(BFALSE, BGl_string2622z00zzblibz00,
BINT(((long)1)), BGl_string2460z00zzblibz00,
BINT(((long)15796))); }
if(
NULLP(BgL_listsz00_449))
{ /* blib.scm 530 */
BgL_aux2075z00_1180 = BgL_lis1z00_62; } else
{ /* blib.scm 531 */
bool_t BgL_testz00_2976;
{ /* blib.scm 531 */
obj_t BgL_auxz00_2977;
{ /* blib.scm 531 */
obj_t BgL_auxz00_2978;
{ /* blib.scm 531 */
bool_t BgL_testz00_2979;
if(
PAIRP(BgL_listsz00_449))
{ /* blib.scm 531 */
BgL_testz00_2979 = ((bool_t)1)
; } else
{ /* blib.scm 531 */
BgL_testz00_2979 =
NULLP(BgL_listsz00_449)
; }
if(BgL_testz00_2979)
{ /* blib.scm 531 */
BgL_auxz00_2978 = BgL_listsz00_449
; } else
{ /* blib.scm 531 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2657z00zzblibz00, BGl_string2465z00zzblibz00, BgL_listsz00_449, BGl_string2460z00zzblibz00,
BINT(((long)15913)));
exit( -1 );} }
BgL_auxz00_2977 =
BGl_memqz00zz__r4_pairs_and_lists_6_3z00(BgL_lis1z00_62, BgL_auxz00_2978); }
BgL_testz00_2976 =
CBOOL(BgL_auxz00_2977); }
if(BgL_testz00_2976)
{ /* blib.scm 531 */
BgL_aux2075z00_1180 = BNIL; } else
{ /* blib.scm 532 */
obj_t BgL_zc3anonymousza31589za3blibze2scmza3531ze3z61_1317;
BgL_zc3anonymousza31589za3blibze2scmza3531ze3z61_1317 =
make_fx_procedure(BGl_zc3anonymousza31589za3blibze2scmza3531ze3z61zzblibz00,
(int)(((long)1)),
(int)(((long)1)));
PROCEDURE_SET(BgL_zc3anonymousza31589za3blibze2scmza3531ze3z61_1317,
(int)(((long)0)), BgL_listsz00_449);
if(
PROCEDURE_CORRECT_ARITYP(BgL_zc3anonymousza31589za3blibze2scmza3531ze3z61_1317,
(int)(((long)1))))
{ /* blib.scm 531 */
if(
BGl_listzf3zf3zz__r4_pairs_and_lists_6_3z00(BgL_lis1z00_62))
{ /* blib.scm 531 */
obj_t BgL_auxz00_2998;
{ /* blib.scm 531 */
bool_t BgL_testz00_2999;
if(
PAIRP(BgL_lis1z00_62))
{ /* blib.scm 531 */
BgL_testz00_2999 = ((bool_t)1)
; } else
{ /* blib.scm 531 */
BgL_testz00_2999 =
NULLP(BgL_lis1z00_62)
; }
if(BgL_testz00_2999)
{ /* blib.scm 531 */
BgL_auxz00_2998 = BgL_lis1z00_62
; } else
{ /* blib.scm 531 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2657z00zzblibz00, BGl_string2465z00zzblibz00, BgL_lis1z00_62, BGl_string2460z00zzblibz00,
BINT(((long)15902)));
exit( -1 );} }
BgL_aux2075z00_1180 =
BGl_filterz00zz__r4_control_features_6_9z00(BgL_zc3anonymousza31589za3blibze2scmza3531ze3z61_1317, BgL_auxz00_2998); } else
{ /* blib.scm 531 */
BgL_aux2075z00_1180 =
BGl_errorzf2locationzf2zz__errorz00(BFALSE, BGl_string2619z00zzblibz00, BgL_lis1z00_62, BGl_string2460z00zzblibz00,
BINT(((long)15902))); } } else
{ /* blib.scm 531 */
BgL_aux2075z00_1180 =
BGl_errorzf2locationzf2zz__errorz00(BFALSE, BGl_string2622z00zzblibz00,
BINT(((long)1)), BGl_string2460z00zzblibz00,
BINT(((long)15902))); } } } }
POP_TRACE();
return BgL_aux2075z00_1180;} } } }
}
/* _lset-difference */
obj_t BGl__lsetzd2differencezd2zzblibz00(obj_t BgL_envz00_1318, obj_t BgL_eltzd3zd3_1319, obj_t BgL_lis1z00_1320, obj_t BgL_listsz00_1321)
{ AN_OBJECT;
{ /* blib.scm 528 */
{ /* blib.scm 529 */
obj_t BgL_auxz00_3013;
if(
PROCEDUREP(BgL_eltzd3zd3_1319))
{ /* blib.scm 529 */
BgL_auxz00_3013 = BgL_eltzd3zd3_1319
; } else
{ /* blib.scm 529 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2659z00zzblibz00, BGl_string2538z00zzblibz00, BgL_eltzd3zd3_1319, BGl_string2460z00zzblibz00,
BINT(((long)15790)));
exit( -1 );}
return
BGl_lsetzd2differencezd2zzblibz00(BgL_auxz00_3013, BgL_lis1z00_1320, BgL_listsz00_1321);} }
}
/* <anonymous:1589:blib.scm:531> */
obj_t BGl_zc3anonymousza31589za3blibze2scmza3531ze3z61zzblibz00(obj_t BgL_envz00_1322, obj_t BgL_xz00_1324)
{ AN_OBJECT;
{ /* blib.scm 532 */
{ /* blib.scm 532 */
obj_t BgL_listsz00_1323;
BgL_listsz00_1323 =
PROCEDURE_REF(BgL_envz00_1322,
(int)(((long)0)));
{
obj_t BgL_xz00_457;
BgL_xz00_457 = BgL_xz00_1324;
{ /* blib.scm 533 */
obj_t BgL_zc3anonymousza31594za3blibze2scmza3532ze3z61_1316;
BgL_zc3anonymousza31594za3blibze2scmza3532ze3z61_1316 =
make_fx_procedure(BGl_zc3anonymousza31594za3blibze2scmza3532ze3z61zzblibz00,
(int)(((long)1)),
(int)(((long)1)));
PROCEDURE_SET(BgL_zc3anonymousza31594za3blibze2scmza3532ze3z61_1316,
(int)(((long)0)), BgL_xz00_457);
if(
PROCEDURE_CORRECT_ARITYP(BgL_zc3anonymousza31594za3blibze2scmza3532ze3z61_1316,
(int)(((long)1))))
{ /* blib.scm 532 */
if(
BGl_listzf3zf3zz__r4_pairs_and_lists_6_3z00(BgL_listsz00_1323))
{ /* blib.scm 532 */
obj_t BgL_list1592z00_464;
BgL_list1592z00_464 =
MAKE_PAIR(BgL_listsz00_1323, BNIL);
return
BGl_everyz00zz__r4_pairs_and_lists_6_3z00(BgL_zc3anonymousza31594za3blibze2scmza3532ze3z61_1316, BgL_list1592z00_464);} else
{ /* blib.scm 532 */
return
BGl_errorzf2locationzf2zz__errorz00(BFALSE, BGl_string2661z00zzblibz00, BgL_listsz00_1323, BGl_string2460z00zzblibz00,
BINT(((long)15954)));} } else
{ /* blib.scm 532 */
return
BGl_errorzf2locationzf2zz__errorz00(BFALSE, BGl_string2662z00zzblibz00,
BINT(((long)1)), BGl_string2460z00zzblibz00,
BINT(((long)15954)));} } } } }
}
/* <anonymous:1594:blib.scm:532> */
obj_t BGl_zc3anonymousza31594za3blibze2scmza3532ze3z61zzblibz00(obj_t BgL_envz00_1325, obj_t BgL_lisz00_1327)
{ AN_OBJECT;
{ /* blib.scm 533 */
{ /* blib.scm 533 */
obj_t BgL_xz00_1326;
BgL_xz00_1326 =
PROCEDURE_REF(BgL_envz00_1325,
(int)(((long)0)));
{
obj_t BgL_lisz00_465;
{ /* blib.scm 533 */
bool_t BgL_auxz00_3041;
BgL_lisz00_465 = BgL_lisz00_1327;
{ /* blib.scm 533 */
bool_t BgL_testz00_3042;
{ /* blib.scm 533 */
obj_t BgL_auxz00_3043;
{ /* blib.scm 533 */
obj_t BgL_auxz00_3044;
{ /* blib.scm 533 */
bool_t BgL_testz00_3045;
if(
PAIRP(BgL_lisz00_465))
{ /* blib.scm 533 */
BgL_testz00_3045 = ((bool_t)1)
; } else
{ /* blib.scm 533 */
BgL_testz00_3045 =
NULLP(BgL_lisz00_465)
; }
if(BgL_testz00_3045)
{ /* blib.scm 533 */
BgL_auxz00_3044 = BgL_lisz00_465
; } else
{ /* blib.scm 533 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2663z00zzblibz00, BGl_string2465z00zzblibz00, BgL_lisz00_465, BGl_string2460z00zzblibz00,
BINT(((long)16007)));
exit( -1 );} }
BgL_auxz00_3043 =
BGl_memberz00zz__r4_pairs_and_lists_6_3z00(BgL_xz00_1326, BgL_auxz00_3044); }
BgL_testz00_3042 =
CBOOL(BgL_auxz00_3043); }
if(BgL_testz00_3042)
{ /* blib.scm 533 */
BgL_auxz00_3041 = ((bool_t)0)
; } else
{ /* blib.scm 533 */
BgL_auxz00_3041 = ((bool_t)1)
; } }
return
BBOOL(BgL_auxz00_3041);} } } }
}
/* lset-union! */
BGL_EXPORTED_DEF obj_t BGl_lsetzd2unionz12zc0zzblibz00(obj_t BgL_eltzd3zd3_64, obj_t BgL_listsz00_65)
{ AN_OBJECT;
{ /* blib.scm 537 */
{ /* blib.scm 538 */
obj_t BgL_symbol2078z00_1181;
BgL_symbol2078z00_1181 = BGl_symbol2665z00zzblibz00;
{ /* blib.scm 538 */
PUSH_TRACE(BgL_symbol2078z00_1181);
{ /* blib.scm 538 */
obj_t BgL_aux2077z00_1182;
{ /* blib.scm 539 */
obj_t BgL_zc3anonymousza31604za3blibze2scmza3538ze3z61_1332;
BgL_zc3anonymousza31604za3blibze2scmza3538ze3z61_1332 =
make_fx_procedure(BGl_zc3anonymousza31604za3blibze2scmza3538ze3z61zzblibz00,
(int)(((long)2)),
(int)(((long)1)));
PROCEDURE_SET(BgL_zc3anonymousza31604za3blibze2scmza3538ze3z61_1332,
(int)(((long)0)), BgL_eltzd3zd3_64);
if(
CBOOL(
BGl_nullzd2listzf3z21zzblibz00(BgL_listsz00_65)))
{ /* blib.scm 538 */
BgL_aux2077z00_1182 = BNIL; } else
{ /* blib.scm 538 */
obj_t BgL_arg1439z00_985;obj_t BgL_arg1440z00_986;
{ /* blib.scm 538 */
obj_t BgL_pairz00_988;
if(
PAIRP(BgL_listsz00_65))
{ /* blib.scm 538 */
BgL_pairz00_988 = BgL_listsz00_65; } else
{ /* blib.scm 538 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2667z00zzblibz00, BGl_string2459z00zzblibz00, BgL_listsz00_65, BGl_string2460z00zzblibz00,
BINT(((long)16078)));
exit( -1 );}
BgL_arg1439z00_985 =
CAR(BgL_pairz00_988); }
{ /* blib.scm 538 */
obj_t BgL_pairz00_989;
if(
PAIRP(BgL_listsz00_65))
{ /* blib.scm 538 */
BgL_pairz00_989 = BgL_listsz00_65; } else
{ /* blib.scm 538 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2667z00zzblibz00, BGl_string2459z00zzblibz00, BgL_listsz00_65, BGl_string2460z00zzblibz00,
BINT(((long)16078)));
exit( -1 );}
BgL_arg1440z00_986 =
CDR(BgL_pairz00_989); }
{ /* blib.scm 538 */
obj_t BgL_aux2329z00_1590;
BgL_aux2329z00_1590 =
BGl_foldz00zzblibz00(BgL_zc3anonymousza31604za3blibze2scmza3538ze3z61_1332, BgL_arg1439z00_985, BgL_arg1440z00_986, BNIL);
{ /* blib.scm 538 */
bool_t BgL_testz00_3077;
if(
PAIRP(BgL_aux2329z00_1590))
{ /* blib.scm 538 */
BgL_testz00_3077 = ((bool_t)1)
; } else
{ /* blib.scm 538 */
BgL_testz00_3077 =
NULLP(BgL_aux2329z00_1590)
; }
if(BgL_testz00_3077)
{ /* blib.scm 538 */
BgL_aux2077z00_1182 = BgL_aux2329z00_1590; } else
{ /* blib.scm 538 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2667z00zzblibz00, BGl_string2465z00zzblibz00, BgL_aux2329z00_1590, BGl_string2460z00zzblibz00,
BINT(((long)16078)));
exit( -1 );} } } } }
POP_TRACE();
return BgL_aux2077z00_1182;} } } }
}
/* _lset-union! */
obj_t BGl__lsetzd2unionz12zc0zzblibz00(obj_t BgL_envz00_1333, obj_t BgL_eltzd3zd3_1334, obj_t BgL_listsz00_1335)
{ AN_OBJECT;
{ /* blib.scm 537 */
{ /* blib.scm 538 */
obj_t BgL_auxz00_3085;
if(
PROCEDUREP(BgL_eltzd3zd3_1334))
{ /* blib.scm 538 */
BgL_auxz00_3085 = BgL_eltzd3zd3_1334
; } else
{ /* blib.scm 538 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2669z00zzblibz00, BGl_string2538z00zzblibz00, BgL_eltzd3zd3_1334, BGl_string2460z00zzblibz00,
BINT(((long)16086)));
exit( -1 );}
return
BGl_lsetzd2unionz12zc0zzblibz00(BgL_auxz00_3085, BgL_listsz00_1335);} }
}
/* <anonymous:1604:blib.scm:538> */
obj_t BGl_zc3anonymousza31604za3blibze2scmza3538ze3z61zzblibz00(obj_t BgL_envz00_1336, obj_t BgL_lisz00_1338, obj_t BgL_ansz00_1339)
{ AN_OBJECT;
{ /* blib.scm 538 */
{ /* blib.scm 539 */
obj_t BgL_eltzd3zd3_1337;
BgL_eltzd3zd3_1337 =
PROCEDURE_REF(BgL_envz00_1336,
(int)(((long)0)));
{
obj_t BgL_lisz00_477;obj_t BgL_ansz00_478;
BgL_lisz00_477 = BgL_lisz00_1338;
BgL_ansz00_478 = BgL_ansz00_1339;
if(
NULLP(BgL_lisz00_477))
{ /* blib.scm 539 */
return BgL_ansz00_478;} else
{ /* blib.scm 539 */
if(
NULLP(BgL_ansz00_478))
{ /* blib.scm 540 */
return BgL_lisz00_477;} else
{ /* blib.scm 540 */
if(
(BgL_lisz00_477==BgL_ansz00_478))
{ /* blib.scm 541 */
return BgL_ansz00_478;} else
{ /* blib.scm 544 */
obj_t BgL_zc3anonymousza31618za3blibze2scmza3543ze3z61_1331;
BgL_zc3anonymousza31618za3blibze2scmza3543ze3z61_1331 =
make_fx_procedure(BGl_zc3anonymousza31618za3blibze2scmza3543ze3z61zzblibz00,
(int)(((long)2)),
(int)(((long)1)));
PROCEDURE_SET(BgL_zc3anonymousza31618za3blibze2scmza3543ze3z61_1331,
(int)(((long)0)), BgL_eltzd3zd3_1337);
return
BGl_pairzd2foldzd2zzblibz00(BgL_zc3anonymousza31618za3blibze2scmza3543ze3z61_1331, BgL_ansz00_478, BgL_lisz00_477, BNIL);} } } } } }
}
/* <anonymous:1618:blib.scm:543> */
obj_t BGl_zc3anonymousza31618za3blibze2scmza3543ze3z61zzblibz00(obj_t BgL_envz00_1340, obj_t BgL_pairz00_1342, obj_t BgL_ansz00_1343)
{ AN_OBJECT;
{ /* blib.scm 543 */
{ /* blib.scm 544 */
obj_t BgL_eltzd3zd3_1341;
BgL_eltzd3zd3_1341 =
PROCEDURE_REF(BgL_envz00_1340,
(int)(((long)0)));
{
obj_t BgL_pairz00_485;obj_t BgL_ansz00_486;
BgL_pairz00_485 = BgL_pairz00_1342;
BgL_ansz00_486 = BgL_ansz00_1343;
{ /* blib.scm 544 */
obj_t BgL_eltz00_488;
{ /* blib.scm 544 */
obj_t BgL_pairz00_992;
if(
PAIRP(BgL_pairz00_485))
{ /* blib.scm 544 */
BgL_pairz00_992 = BgL_pairz00_485; } else
{ /* blib.scm 544 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2671z00zzblibz00, BGl_string2459z00zzblibz00, BgL_pairz00_485, BGl_string2460z00zzblibz00,
BINT(((long)16340)));
exit( -1 );}
BgL_eltz00_488 =
CAR(BgL_pairz00_992); }
{ /* blib.scm 545 */
bool_t BgL_testz00_3114;
{ /* blib.scm 545 */
obj_t BgL_zc3anonymousza31624za3blibze2scmza3545ze3z61_1330;
BgL_zc3anonymousza31624za3blibze2scmza3545ze3z61_1330 =
make_fx_procedure(BGl_zc3anonymousza31624za3blibze2scmza3545ze3z61zzblibz00,
(int)(((long)1)),
(int)(((long)2)));
PROCEDURE_SET(BgL_zc3anonymousza31624za3blibze2scmza3545ze3z61_1330,
(int)(((long)0)), BgL_eltzd3zd3_1341);
PROCEDURE_SET(BgL_zc3anonymousza31624za3blibze2scmza3545ze3z61_1330,
(int)(((long)1)), BgL_eltz00_488);
if(
PROCEDURE_CORRECT_ARITYP(BgL_zc3anonymousza31624za3blibze2scmza3545ze3z61_1330,
(int)(((long)1))))
{ /* blib.scm 545 */
if(
BGl_listzf3zf3zz__r4_pairs_and_lists_6_3z00(BgL_ansz00_486))
{ /* blib.scm 545 */
obj_t BgL_list1622z00_495;
BgL_list1622z00_495 =
MAKE_PAIR(BgL_ansz00_486, BNIL);
BgL_testz00_3114 =
CBOOL(
BGl_anyz00zz__r4_pairs_and_lists_6_3z00(BgL_zc3anonymousza31624za3blibze2scmza3545ze3z61_1330, BgL_list1622z00_495)); } else
{ /* blib.scm 545 */
BgL_testz00_3114 =
CBOOL(
BGl_errorzf2locationzf2zz__errorz00(BFALSE, BGl_string2673z00zzblibz00, BgL_ansz00_486, BGl_string2460z00zzblibz00,
BINT(((long)16354))))
; } } else
{ /* blib.scm 545 */
BgL_testz00_3114 =
CBOOL(
BGl_errorzf2locationzf2zz__errorz00(BFALSE, BGl_string2674z00zzblibz00,
BINT(((long)1)), BGl_string2460z00zzblibz00,
BINT(((long)16354))))
; } }
if(BgL_testz00_3114)
{ /* blib.scm 545 */
return BgL_ansz00_486;} else
{ /* blib.scm 545 */
{ /* blib.scm 547 */
obj_t BgL_pairz00_993;
if(
PAIRP(BgL_pairz00_485))
{ /* blib.scm 547 */
BgL_pairz00_993 = BgL_pairz00_485; } else
{ /* blib.scm 547 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2671z00zzblibz00, BGl_string2459z00zzblibz00, BgL_pairz00_485, BGl_string2460z00zzblibz00,
BINT(((long)16435)));
exit( -1 );}
SET_CDR(BgL_pairz00_993, BgL_ansz00_486); }
return BgL_pairz00_485;} } } } } }
}
/* <anonymous:1624:blib.scm:545> */
obj_t BGl_zc3anonymousza31624za3blibze2scmza3545ze3z61zzblibz00(obj_t BgL_envz00_1344, obj_t BgL_xz00_1347)
{ AN_OBJECT;
{ /* blib.scm 545 */
{ /* blib.scm 545 */
obj_t BgL_eltzd3zd3_1345;obj_t BgL_eltz00_1346;
BgL_eltzd3zd3_1345 =
PROCEDURE_REF(BgL_envz00_1344,
(int)(((long)0)));
BgL_eltz00_1346 =
PROCEDURE_REF(BgL_envz00_1344,
(int)(((long)1)));
{
obj_t BgL_xz00_496;
BgL_xz00_496 = BgL_xz00_1347;
{ /* blib.scm 545 */
obj_t BgL_funz00_1600;
if(
PROCEDUREP(BgL_eltzd3zd3_1345))
{ /* blib.scm 545 */
BgL_funz00_1600 = BgL_eltzd3zd3_1345; } else
{ /* blib.scm 545 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2675z00zzblibz00, BGl_string2538z00zzblibz00, BgL_eltzd3zd3_1345, BGl_string2460z00zzblibz00,
BINT(((long)16375)));
exit( -1 );}
if(
PROCEDURE_CORRECT_ARITYP(BgL_funz00_1600, ((long)2)))
{ /* blib.scm 545 */
return
PROCEDURE_ENTRY(BgL_funz00_1600)(BgL_eltzd3zd3_1345, BgL_xz00_496, BgL_eltz00_1346, BEOA);} else
{ /* blib.scm 545 */
BGl_errorzf2locationzf2zz__errorz00(BGl_string2677z00zzblibz00, BGl_list2678z00zzblibz00, BgL_funz00_1600, BGl_string2460z00zzblibz00,
BINT(((long)16375)));
FAILURE(BGl_symbol2497z00zzblibz00,BGl_symbol2497z00zzblibz00,BGl_symbol2497z00zzblibz00);} } } } }
}
/* char->hex */
BGL_EXPORTED_DEF obj_t BGl_charzd2ze3hexz31zzblibz00(unsigned char BgL_cz00_66)
{ AN_OBJECT;
{ /* blib.scm 551 */
{ /* blib.scm 552 */
obj_t BgL_symbol2080z00_1183;
BgL_symbol2080z00_1183 = BGl_symbol2683z00zzblibz00;
{ /* blib.scm 552 */
PUSH_TRACE(BgL_symbol2080z00_1183);
{ /* blib.scm 552 */
obj_t BgL_aux2079z00_1184;
{ /* blib.scm 552 */
obj_t BgL_sz00_995;
BgL_sz00_995 =
make_string(((long)2), ((unsigned char)' '));
{
char * BgL_auxz00_3161;
BgL_auxz00_3161 =
BSTRING_TO_STRING(BgL_sz00_995);
sprintf(BgL_auxz00_3161, "%02x", BgL_cz00_66); }
BgL_aux2079z00_1184 = BgL_sz00_995; }
POP_TRACE();
return BgL_aux2079z00_1184;} } } }
}
/* _char->hex */
obj_t BGl__charzd2ze3hexz31zzblibz00(obj_t BgL_envz00_1348, obj_t BgL_cz00_1349)
{ AN_OBJECT;
{ /* blib.scm 551 */
{ /* blib.scm 552 */
unsigned char BgL_auxz00_3165;
{ /* blib.scm 552 */
obj_t BgL_auxz00_3166;
if(
CHARP(BgL_cz00_1349))
{ /* blib.scm 552 */
BgL_auxz00_3166 = BgL_cz00_1349
; } else
{ /* blib.scm 552 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2685z00zzblibz00, BGl_string2687z00zzblibz00, BgL_cz00_1349, BGl_string2460z00zzblibz00,
BINT(((long)16538)));
exit( -1 );}
BgL_auxz00_3165 =
CCHAR(BgL_auxz00_3166); }
return
BGl_charzd2ze3hexz31zzblibz00(BgL_auxz00_3165);} }
}
/* environ */
BGL_EXPORTED_DEF obj_t BGl_environz00zzblibz00()
{ AN_OBJECT;
{ /* blib.scm 558 */
{ /* blib.scm 568 */
obj_t BgL_symbol2082z00_1185;
BgL_symbol2082z00_1185 = BGl_symbol2688z00zzblibz00;
{ /* blib.scm 568 */
PUSH_TRACE(BgL_symbol2082z00_1185);
{ /* blib.scm 568 */
obj_t BgL_aux2081z00_1186;
extern char** environ;
{ /* blib.scm 560 */
obj_t BgL_l1366z00_503;
{ /* blib.scm 568 */
char** BgL_arg1640z00_518;
BgL_arg1640z00_518 =
environ;
{ /* blib.scm 563 */
BgL_l1366z00_503 =
BGl_stringza2zd2ze3stringzd2listz41zzblibz00(BgL_arg1640z00_518, BFALSE); } }
if(
NULLP(BgL_l1366z00_503))
{ /* blib.scm 560 */
BgL_aux2081z00_1186 = BNIL; } else
{ /* blib.scm 560 */
obj_t BgL_head1368z00_505;
BgL_head1368z00_505 =
MAKE_PAIR(BNIL, BNIL);
{
obj_t BgL_l1366z00_506;obj_t BgL_tail1369z00_507;
{ /* blib.scm 560 */
obj_t BgL_aux2355z00_1617;
BgL_l1366z00_506 = BgL_l1366z00_503;
BgL_tail1369z00_507 = BgL_head1368z00_505;
BgL_map1367z00_508:
if(
PAIRP(BgL_l1366z00_506))
{ /* blib.scm 560 */
obj_t BgL_newtail1370z00_510;
{ /* blib.scm 560 */
obj_t BgL_arg1635z00_512;
{ /* blib.scm 560 */
obj_t BgL_strz00_514;
BgL_strz00_514 =
CAR(BgL_l1366z00_506);
{ /* blib.scm 561 */
obj_t BgL_arg1637z00_515;obj_t BgL_arg1638z00_516;
{ /* blib.scm 561 */
obj_t BgL_auxz00_3184;
if(
STRINGP(BgL_strz00_514))
{ /* blib.scm 561 */
BgL_auxz00_3184 = BgL_strz00_514
; } else
{ /* blib.scm 561 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2690z00zzblibz00, BGl_string2530z00zzblibz00, BgL_strz00_514, BGl_string2460z00zzblibz00,
BINT(((long)16755)));
exit( -1 );}
BgL_arg1637z00_515 =
BGl_stringzd2beforezd2zzblibz00(BgL_auxz00_3184,
(char)(((unsigned char)'='))); }
{ /* blib.scm 562 */
obj_t BgL_sz00_1009;unsigned char BgL_delimz00_1010;
if(
STRINGP(BgL_strz00_514))
{ /* blib.scm 562 */
BgL_sz00_1009 = BgL_strz00_514; } else
{ /* blib.scm 562 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2690z00zzblibz00, BGl_string2530z00zzblibz00, BgL_strz00_514, BGl_string2460z00zzblibz00,
BINT(((long)16794)));
exit( -1 );}
BgL_delimz00_1010 =
(char)(((unsigned char)'='));
{ /* blib.scm 562 */
char * BgL_foundz00_1011;
{
char * BgL_auxz00_3198;
BgL_auxz00_3198 =
BSTRING_TO_STRING(BgL_sz00_1009);
BgL_foundz00_1011 =
strchr(BgL_auxz00_3198, BgL_delimz00_1010); }
if(
(BgL_foundz00_1011 != 0L))
{ /* blib.scm 562 */
char * BgL_arg1442z00_1013;
BgL_arg1442z00_1013 =
BgL_foundz00_1011 + 1;
BgL_arg1638z00_516 =
string_to_bstring(BgL_arg1442z00_1013); } else
{ /* blib.scm 562 */
BgL_arg1638z00_516 = BFALSE; } } }
BgL_arg1635z00_512 =
MAKE_PAIR(BgL_arg1637z00_515, BgL_arg1638z00_516); } }
BgL_newtail1370z00_510 =
MAKE_PAIR(BgL_arg1635z00_512, BNIL); }
SET_CDR(BgL_tail1369z00_507, BgL_newtail1370z00_510);
{
obj_t BgL_tail1369z00_3210;obj_t BgL_l1366z00_3208;
BgL_l1366z00_3208 =
CDR(BgL_l1366z00_506);
BgL_tail1369z00_3210 = BgL_newtail1370z00_510;
BgL_tail1369z00_507 = BgL_tail1369z00_3210;
BgL_l1366z00_506 = BgL_l1366z00_3208;
goto BgL_map1367z00_508;} } else
{ /* blib.scm 560 */
if(
NULLP(BgL_l1366z00_506))
{ /* blib.scm 560 */
BgL_aux2355z00_1617 =
CDR(BgL_head1368z00_505); } else
{ /* blib.scm 560 */
BgL_aux2355z00_1617 =
BGl_errorzf2locationzf2zz__errorz00(BGl_string2573z00zzblibz00, BGl_string2574z00zzblibz00, BgL_l1366z00_506, BGl_string2460z00zzblibz00,
BINT(((long)16705))); } }
{ /* blib.scm 560 */
bool_t BgL_testz00_3216;
if(
PAIRP(BgL_aux2355z00_1617))
{ /* blib.scm 560 */
BgL_testz00_3216 = ((bool_t)1)
; } else
{ /* blib.scm 560 */
BgL_testz00_3216 =
NULLP(BgL_aux2355z00_1617)
; }
if(BgL_testz00_3216)
{ /* blib.scm 560 */
BgL_aux2081z00_1186 = BgL_aux2355z00_1617; } else
{ /* blib.scm 560 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2692z00zzblibz00, BGl_string2465z00zzblibz00, BgL_aux2355z00_1617, BGl_string2460z00zzblibz00,
BINT(((long)16705)));
exit( -1 );} } } } } }
POP_TRACE();
return BgL_aux2081z00_1186;} } } }
}
/* _environ */
obj_t BGl__environz00zzblibz00(obj_t BgL_envz00_1350)
{ AN_OBJECT;
{ /* blib.scm 558 */
return
BGl_environz00zzblibz00();}
}
/* tm-sec */
BGL_EXPORTED_DEF int BGl_tmzd2seczd2zzblibz00(struct tm* BgL_oz00_67)
{ AN_OBJECT;
{ /* blib.scm 570 */
{ /* blib.scm 571 */
obj_t BgL_symbol2084z00_1187;
BgL_symbol2084z00_1187 = BGl_symbol2694z00zzblibz00;
{ /* blib.scm 571 */
PUSH_TRACE(BgL_symbol2084z00_1187);
{ /* blib.scm 571 */
int BgL_aux2083z00_1188;
{ /* blib.scm 571 */
int BgL_resultz00_1021;
BgL_resultz00_1021 =
BgL_oz00_67->tm_sec;
BgL_aux2083z00_1188 = BgL_resultz00_1021; }
POP_TRACE();
return BgL_aux2083z00_1188;} } } }
}
/* _tm-sec */
obj_t BGl__tmzd2seczd2zzblibz00(obj_t BgL_envz00_1351, obj_t BgL_oz00_1352)
{ AN_OBJECT;
{ /* blib.scm 570 */
{ /* blib.scm 571 */
int BgL_auxz00_3228;
{ /* blib.scm 571 */
struct tm* BgL_auxz00_3229;
if(
BGl_tmzf3zf3zzblibz00(BgL_oz00_1352))
{ /* blib.scm 571 */
BgL_auxz00_3229 =
(struct tm*)FOREIGN_TO_COBJ(BgL_oz00_1352)
; } else
{ /* blib.scm 571 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2696z00zzblibz00, BGl_string2698z00zzblibz00, BgL_oz00_1352, BGl_string2460z00zzblibz00,
BINT(((long)16992)));
exit( -1 );}
BgL_auxz00_3228 =
BGl_tmzd2seczd2zzblibz00(BgL_auxz00_3229); }
return
BINT(BgL_auxz00_3228);} }
}
/* tm-min */
BGL_EXPORTED_DEF int BGl_tmzd2minzd2zzblibz00(struct tm* BgL_oz00_68)
{ AN_OBJECT;
{ /* blib.scm 575 */
{ /* blib.scm 576 */
obj_t BgL_symbol2086z00_1189;
BgL_symbol2086z00_1189 = BGl_symbol2699z00zzblibz00;
{ /* blib.scm 576 */
PUSH_TRACE(BgL_symbol2086z00_1189);
{ /* blib.scm 576 */
int BgL_aux2085z00_1190;
{ /* blib.scm 576 */
int BgL_resultz00_1022;
BgL_resultz00_1022 =
BgL_oz00_68->tm_min;
BgL_aux2085z00_1190 = BgL_resultz00_1022; }
POP_TRACE();
return BgL_aux2085z00_1190;} } } }
}
/* _tm-min */
obj_t BGl__tmzd2minzd2zzblibz00(obj_t BgL_envz00_1353, obj_t BgL_oz00_1354)
{ AN_OBJECT;
{ /* blib.scm 575 */
{ /* blib.scm 576 */
int BgL_auxz00_3241;
{ /* blib.scm 576 */
struct tm* BgL_auxz00_3242;
if(
BGl_tmzf3zf3zzblibz00(BgL_oz00_1354))
{ /* blib.scm 576 */
BgL_auxz00_3242 =
(struct tm*)FOREIGN_TO_COBJ(BgL_oz00_1354)
; } else
{ /* blib.scm 576 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2701z00zzblibz00, BGl_string2698z00zzblibz00, BgL_oz00_1354, BGl_string2460z00zzblibz00,
BINT(((long)17083)));
exit( -1 );}
BgL_auxz00_3241 =
BGl_tmzd2minzd2zzblibz00(BgL_auxz00_3242); }
return
BINT(BgL_auxz00_3241);} }
}
/* tm-hour */
BGL_EXPORTED_DEF int BGl_tmzd2hourzd2zzblibz00(struct tm* BgL_oz00_69)
{ AN_OBJECT;
{ /* blib.scm 580 */
{ /* blib.scm 581 */
obj_t BgL_symbol2088z00_1191;
BgL_symbol2088z00_1191 = BGl_symbol2703z00zzblibz00;
{ /* blib.scm 581 */
PUSH_TRACE(BgL_symbol2088z00_1191);
{ /* blib.scm 581 */
int BgL_aux2087z00_1192;
{ /* blib.scm 581 */
int BgL_resultz00_1023;
BgL_resultz00_1023 =
BgL_oz00_69->tm_hour;
BgL_aux2087z00_1192 = BgL_resultz00_1023; }
POP_TRACE();
return BgL_aux2087z00_1192;} } } }
}
/* _tm-hour */
obj_t BGl__tmzd2hourzd2zzblibz00(obj_t BgL_envz00_1355, obj_t BgL_oz00_1356)
{ AN_OBJECT;
{ /* blib.scm 580 */
{ /* blib.scm 581 */
int BgL_auxz00_3254;
{ /* blib.scm 581 */
struct tm* BgL_auxz00_3255;
if(
BGl_tmzf3zf3zzblibz00(BgL_oz00_1356))
{ /* blib.scm 581 */
BgL_auxz00_3255 =
(struct tm*)FOREIGN_TO_COBJ(BgL_oz00_1356)
; } else
{ /* blib.scm 581 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2705z00zzblibz00, BGl_string2698z00zzblibz00, BgL_oz00_1356, BGl_string2460z00zzblibz00,
BINT(((long)17175)));
exit( -1 );}
BgL_auxz00_3254 =
BGl_tmzd2hourzd2zzblibz00(BgL_auxz00_3255); }
return
BINT(BgL_auxz00_3254);} }
}
/* tm-mday */
BGL_EXPORTED_DEF int BGl_tmzd2mdayzd2zzblibz00(struct tm* BgL_oz00_70)
{ AN_OBJECT;
{ /* blib.scm 585 */
{ /* blib.scm 586 */
obj_t BgL_symbol2090z00_1193;
BgL_symbol2090z00_1193 = BGl_symbol2707z00zzblibz00;
{ /* blib.scm 586 */
PUSH_TRACE(BgL_symbol2090z00_1193);
{ /* blib.scm 586 */
int BgL_aux2089z00_1194;
{ /* blib.scm 586 */
int BgL_resultz00_1024;
BgL_resultz00_1024 =
BgL_oz00_70->tm_mday;
BgL_aux2089z00_1194 = BgL_resultz00_1024; }
POP_TRACE();
return BgL_aux2089z00_1194;} } } }
}
/* _tm-mday */
obj_t BGl__tmzd2mdayzd2zzblibz00(obj_t BgL_envz00_1357, obj_t BgL_oz00_1358)
{ AN_OBJECT;
{ /* blib.scm 585 */
{ /* blib.scm 586 */
int BgL_auxz00_3267;
{ /* blib.scm 586 */
struct tm* BgL_auxz00_3268;
if(
BGl_tmzf3zf3zzblibz00(BgL_oz00_1358))
{ /* blib.scm 586 */
BgL_auxz00_3268 =
(struct tm*)FOREIGN_TO_COBJ(BgL_oz00_1358)
; } else
{ /* blib.scm 586 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2709z00zzblibz00, BGl_string2698z00zzblibz00, BgL_oz00_1358, BGl_string2460z00zzblibz00,
BINT(((long)17268)));
exit( -1 );}
BgL_auxz00_3267 =
BGl_tmzd2mdayzd2zzblibz00(BgL_auxz00_3268); }
return
BINT(BgL_auxz00_3267);} }
}
/* tm-mon */
BGL_EXPORTED_DEF int BGl_tmzd2monzd2zzblibz00(struct tm* BgL_oz00_71)
{ AN_OBJECT;
{ /* blib.scm 590 */
{ /* blib.scm 591 */
obj_t BgL_symbol2092z00_1195;
BgL_symbol2092z00_1195 = BGl_symbol2711z00zzblibz00;
{ /* blib.scm 591 */
PUSH_TRACE(BgL_symbol2092z00_1195);
{ /* blib.scm 591 */
int BgL_aux2091z00_1196;
{ /* blib.scm 591 */
int BgL_resultz00_1025;
BgL_resultz00_1025 =
BgL_oz00_71->tm_mon;
BgL_aux2091z00_1196 = BgL_resultz00_1025; }
POP_TRACE();
return BgL_aux2091z00_1196;} } } }
}
/* _tm-mon */
obj_t BGl__tmzd2monzd2zzblibz00(obj_t BgL_envz00_1359, obj_t BgL_oz00_1360)
{ AN_OBJECT;
{ /* blib.scm 590 */
{ /* blib.scm 591 */
int BgL_auxz00_3280;
{ /* blib.scm 591 */
struct tm* BgL_auxz00_3281;
if(
BGl_tmzf3zf3zzblibz00(BgL_oz00_1360))
{ /* blib.scm 591 */
BgL_auxz00_3281 =
(struct tm*)FOREIGN_TO_COBJ(BgL_oz00_1360)
; } else
{ /* blib.scm 591 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2713z00zzblibz00, BGl_string2698z00zzblibz00, BgL_oz00_1360, BGl_string2460z00zzblibz00,
BINT(((long)17360)));
exit( -1 );}
BgL_auxz00_3280 =
BGl_tmzd2monzd2zzblibz00(BgL_auxz00_3281); }
return
BINT(BgL_auxz00_3280);} }
}
/* tm-year */
BGL_EXPORTED_DEF int BGl_tmzd2yearzd2zzblibz00(struct tm* BgL_oz00_72)
{ AN_OBJECT;
{ /* blib.scm 595 */
{ /* blib.scm 596 */
obj_t BgL_symbol2094z00_1197;
BgL_symbol2094z00_1197 = BGl_symbol2715z00zzblibz00;
{ /* blib.scm 596 */
PUSH_TRACE(BgL_symbol2094z00_1197);
{ /* blib.scm 596 */
int BgL_aux2093z00_1198;
{ /* blib.scm 596 */
int BgL_resultz00_1026;
BgL_resultz00_1026 =
BgL_oz00_72->tm_year;
BgL_aux2093z00_1198 = BgL_resultz00_1026; }
POP_TRACE();
return BgL_aux2093z00_1198;} } } }
}
/* _tm-year */
obj_t BGl__tmzd2yearzd2zzblibz00(obj_t BgL_envz00_1361, obj_t BgL_oz00_1362)
{ AN_OBJECT;
{ /* blib.scm 595 */
{ /* blib.scm 596 */
int BgL_auxz00_3293;
{ /* blib.scm 596 */
struct tm* BgL_auxz00_3294;
if(
BGl_tmzf3zf3zzblibz00(BgL_oz00_1362))
{ /* blib.scm 596 */
BgL_auxz00_3294 =
(struct tm*)FOREIGN_TO_COBJ(BgL_oz00_1362)
; } else
{ /* blib.scm 596 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2717z00zzblibz00, BGl_string2698z00zzblibz00, BgL_oz00_1362, BGl_string2460z00zzblibz00,
BINT(((long)17452)));
exit( -1 );}
BgL_auxz00_3293 =
BGl_tmzd2yearzd2zzblibz00(BgL_auxz00_3294); }
return
BINT(BgL_auxz00_3293);} }
}
/* tm? */
BGL_EXPORTED_DEF bool_t BGl_tmzf3zf3zzblibz00(obj_t BgL_oz00_73)
{ AN_OBJECT;
{ /* blib.scm 600 */
{ /* blib.scm 601 */
obj_t BgL_symbol2096z00_1199;
BgL_symbol2096z00_1199 = BGl_symbol2719z00zzblibz00;
{ /* blib.scm 601 */
PUSH_TRACE(BgL_symbol2096z00_1199);
{ /* blib.scm 601 */
bool_t BgL_aux2095z00_1200;
if(
FOREIGNP(BgL_oz00_73))
{ /* blib.scm 601 */
obj_t BgL_arg1641z00_1028;obj_t BgL_arg1642z00_1029;
BgL_arg1641z00_1028 =
FOREIGN_ID(BgL_oz00_73);
BgL_arg1642z00_1029 = BGl_symbol2721z00zzblibz00;
BgL_aux2095z00_1200 =
(BgL_arg1641z00_1028==BgL_arg1642z00_1029); } else
{ /* blib.scm 601 */
BgL_aux2095z00_1200 = ((bool_t)0); }
POP_TRACE();
return BgL_aux2095z00_1200;} } } }
}
/* _tm? */
obj_t BGl__tmzf3zf3zzblibz00(obj_t BgL_envz00_1363, obj_t BgL_oz00_1364)
{ AN_OBJECT;
{ /* blib.scm 600 */
return
BBOOL(
BGl_tmzf3zf3zzblibz00(BgL_oz00_1364));}
}
/* timezone */
BGL_EXPORTED_DEF int BGl_timeza7oneza7zzblibz00()
{ AN_OBJECT;
{ /* blib.scm 604 */
{ /* blib.scm 613 */
obj_t BgL_symbol2098z00_1201;
BgL_symbol2098z00_1201 = BGl_symbol2722z00zzblibz00;
{ /* blib.scm 613 */
PUSH_TRACE(BgL_symbol2098z00_1201);
{ /* blib.scm 613 */
int BgL_aux2097z00_1202;
BgL_aux2097z00_1202 =
__timezone;
POP_TRACE();
return BgL_aux2097z00_1202;} } } }
}
/* _timezone */
obj_t BGl__timeza7oneza7zzblibz00(obj_t BgL_envz00_1365)
{ AN_OBJECT;
{ /* blib.scm 604 */
return
BINT(
BGl_timeza7oneza7zzblibz00());}
}
/* daylight */
BGL_EXPORTED_DEF int BGl_daylightz00zzblibz00()
{ AN_OBJECT;
{ /* blib.scm 616 */
{ /* blib.scm 625 */
obj_t BgL_symbol2100z00_1203;
BgL_symbol2100z00_1203 = BGl_symbol2724z00zzblibz00;
{ /* blib.scm 625 */
PUSH_TRACE(BgL_symbol2100z00_1203);
{ /* blib.scm 625 */
int BgL_aux2099z00_1204;
BgL_aux2099z00_1204 =
__daylight;
POP_TRACE();
return BgL_aux2099z00_1204;} } } }
}
/* _daylight */
obj_t BGl__daylightz00zzblibz00(obj_t BgL_envz00_1366)
{ AN_OBJECT;
{ /* blib.scm 616 */
return
BINT(
BGl_daylightz00zzblibz00());}
}
/* make-tm */
BGL_EXPORTED_DEF struct tm* BGl_makezd2tmzd2zzblibz00()
{ AN_OBJECT;
{ /* blib.scm 627 */
{ /* blib.scm 628 */
obj_t BgL_symbol2102z00_1205;
BgL_symbol2102z00_1205 = BGl_symbol2726z00zzblibz00;
{ /* blib.scm 628 */
PUSH_TRACE(BgL_symbol2102z00_1205);
{ /* blib.scm 628 */
struct tm* BgL_aux2101z00_1206;
BgL_aux2101z00_1206 =
(struct tm*)GC_malloc_atomic(sizeof(struct tm));
POP_TRACE();
return BgL_aux2101z00_1206;} } } }
}
/* _make-tm */
obj_t BGl__makezd2tmzd2zzblibz00(obj_t BgL_envz00_1367)
{ AN_OBJECT;
{ /* blib.scm 627 */
{
struct tm* BgL_auxz00_3324;
BgL_auxz00_3324 =
BGl_makezd2tmzd2zzblibz00();
return
cobj_to_foreign(BGl_symbol2721z00zzblibz00, BgL_auxz00_3324);} }
}
/* _strftime */
obj_t BGl__strftimez00zzblibz00(obj_t BgL_envz00_77, obj_t BgL_optz00_76)
{ AN_OBJECT;
{ /* blib.scm 631 */
{ /* blib.scm 631 */
obj_t BgL_symbol2104z00_1207;
BgL_symbol2104z00_1207 = BGl_symbol2728z00zzblibz00;
{ /* blib.scm 631 */
PUSH_TRACE(BgL_symbol2104z00_1207);
{ /* blib.scm 631 */
obj_t BgL_aux2103z00_1208;
{ /* blib.scm 631 */
obj_t BgL_tmz00_530;
BgL_tmz00_530 =
VECTOR_REF(BgL_optz00_76,
(int)(((long)0)));
{
{ /* blib.scm 631 */
int BgL_aux1396z00_532;
BgL_aux1396z00_532 =
VECTOR_LENGTH(BgL_optz00_76);
switch(
(long)(BgL_aux1396z00_532)) { case ((long)1) :
{ /* blib.scm 631 */
{ /* blib.scm 631 */
obj_t BgL_arg1644z00_535;
BgL_arg1644z00_535 =
VECTOR_REF(BgL_optz00_76,
(int)(((long)0)));
{ /* blib.scm 631 */
obj_t BgL_res2025z00_1033;
{ /* blib.scm 631 */
struct tm* BgL_tmz00_1031;
if(
BGl_tmzf3zf3zzblibz00(BgL_arg1644z00_535))
{ /* blib.scm 631 */
BgL_tmz00_1031 =
(struct tm*)FOREIGN_TO_COBJ(BgL_arg1644z00_535); } else
{ /* blib.scm 631 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2732z00zzblibz00, BGl_string2698z00zzblibz00, BgL_arg1644z00_535, BGl_string2460z00zzblibz00,
BINT(((long)18083)));
exit( -1 );}
{ /* blib.scm 631 */
char formatted_time[1024];
{
char * BgL_auxz00_3340;
BgL_auxz00_3340 =
BSTRING_TO_STRING(BGl_string2734z00zzblibz00);
strftime(formatted_time,
sizeof(formatted_time),
BgL_auxz00_3340,
BgL_tmz00_1031); }
BgL_res2025z00_1033 =
string_to_bstring(
formatted_time); } }
BgL_aux2103z00_1208 = BgL_res2025z00_1033; } } } break;case ((long)2) :
{ /* blib.scm 631 */
obj_t BgL_formatz00_536;
BgL_formatz00_536 =
VECTOR_REF(BgL_optz00_76,
(int)(((long)1)));
{ /* blib.scm 631 */
{ /* blib.scm 631 */
obj_t BgL_arg1645z00_537;
BgL_arg1645z00_537 =
VECTOR_REF(BgL_optz00_76,
(int)(((long)0)));
{ /* blib.scm 631 */
obj_t BgL_res2026z00_1036;
{ /* blib.scm 631 */
struct tm* BgL_tmz00_1034;obj_t BgL_formatz00_1035;
if(
BGl_tmzf3zf3zzblibz00(BgL_arg1645z00_537))
{ /* blib.scm 631 */
BgL_tmz00_1034 =
(struct tm*)FOREIGN_TO_COBJ(BgL_arg1645z00_537); } else
{ /* blib.scm 631 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2732z00zzblibz00, BGl_string2698z00zzblibz00, BgL_arg1645z00_537, BGl_string2460z00zzblibz00,
BINT(((long)18083)));
exit( -1 );}
if(
STRINGP(BgL_formatz00_536))
{ /* blib.scm 631 */
BgL_formatz00_1035 = BgL_formatz00_536; } else
{ /* blib.scm 631 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2732z00zzblibz00, BGl_string2530z00zzblibz00, BgL_formatz00_536, BGl_string2460z00zzblibz00,
BINT(((long)18083)));
exit( -1 );}
{ /* blib.scm 631 */
char formatted_time[1024];
{
char * BgL_auxz00_3361;
BgL_auxz00_3361 =
BSTRING_TO_STRING(BgL_formatz00_1035);
strftime(formatted_time,
sizeof(formatted_time),
BgL_auxz00_3361,
BgL_tmz00_1034); }
BgL_res2026z00_1036 =
string_to_bstring(
formatted_time); } }
BgL_aux2103z00_1208 = BgL_res2026z00_1036; } } } } break;
default:
{ /* blib.scm 631 */
obj_t BgL_arg1647z00_538;int BgL_arg1649z00_540;
BgL_arg1647z00_538 = BGl_symbol2730z00zzblibz00;
BgL_arg1649z00_540 =
VECTOR_LENGTH(BgL_optz00_76);
BgL_aux2103z00_1208 =
BGl_errorzf2locationzf2zz__errorz00(BgL_arg1647z00_538, BGl_string2599z00zzblibz00,
BINT(BgL_arg1649z00_540), BGl_string2460z00zzblibz00,
BINT(((long)18083))); } } } } }
POP_TRACE();
return BgL_aux2103z00_1208;} } } }
}
/* strftime */
BGL_EXPORTED_DEF obj_t BGl_strftimez00zzblibz00(struct tm* BgL_tmz00_74, obj_t BgL_formatz00_75)
{ AN_OBJECT;
{ /* blib.scm 631 */
{ /* blib.scm 635 */
obj_t BgL_symbol2106z00_1209;
BgL_symbol2106z00_1209 = BGl_symbol2735z00zzblibz00;
{ /* blib.scm 635 */
PUSH_TRACE(BgL_symbol2106z00_1209);
{ /* blib.scm 635 */
obj_t BgL_aux2105z00_1210;
{ /* blib.scm 635 */
char formatted_time[1024];
{
char * BgL_auxz00_3375;
BgL_auxz00_3375 =
BSTRING_TO_STRING(BgL_formatz00_75);
strftime(formatted_time,
sizeof(formatted_time),
BgL_auxz00_3375,
BgL_tmz00_74); }
BgL_aux2105z00_1210 =
string_to_bstring(
formatted_time); }
POP_TRACE();
return BgL_aux2105z00_1210;} } } }
}
/* _mktime */
obj_t BGl__mktimez00zzblibz00(obj_t BgL_envz00_85, obj_t BgL_optz00_84)
{ AN_OBJECT;
{ /* blib.scm 644 */
{ /* blib.scm 644 */
obj_t BgL_symbol2108z00_1211;
BgL_symbol2108z00_1211 = BGl_symbol2737z00zzblibz00;
{ /* blib.scm 644 */
PUSH_TRACE(BgL_symbol2108z00_1211);
{ /* blib.scm 644 */
obj_t BgL_aux2107z00_1212;
{ /* blib.scm 644 */
obj_t BgL_yearz00_541;obj_t BgL_monthz00_542;obj_t BgL_dayz00_543;
BgL_yearz00_541 =
VECTOR_REF(BgL_optz00_84,
(int)(((long)0)));
BgL_monthz00_542 =
VECTOR_REF(BgL_optz00_84,
(int)(((long)1)));
BgL_dayz00_543 =
VECTOR_REF(BgL_optz00_84,
(int)(((long)2)));
{
{ /* blib.scm 644 */
int BgL_aux1398z00_545;
BgL_aux1398z00_545 =
VECTOR_LENGTH(BgL_optz00_84);
switch(
(long)(BgL_aux1398z00_545)) { case ((long)3) :
{ /* blib.scm 644 */
int BgL_hourz00_547;
BgL_hourz00_547 =
(int)(((long)0));
{ /* blib.scm 644 */
int BgL_secondz00_549;
BgL_secondz00_549 = BgL_hourz00_547;
{ /* blib.scm 644 */
{ /* blib.scm 644 */
obj_t BgL_arg1657z00_550;obj_t BgL_arg1664z00_551;obj_t BgL_arg1675z00_552;
BgL_arg1657z00_550 =
VECTOR_REF(BgL_optz00_84,BgL_secondz00_549);
BgL_arg1664z00_551 =
VECTOR_REF(BgL_optz00_84,
(int)(((long)1)));
BgL_arg1675z00_552 =
VECTOR_REF(BgL_optz00_84,
(int)(((long)2)));
{ /* blib.scm 644 */
struct tm* BgL_res2027z00_1044;
{ /* blib.scm 644 */
int BgL_yearz00_1037;int BgL_monthz00_1038;int BgL_dayz00_1039;int BgL_hourz00_1040;int BgL_minutez00_1041;int BgL_secondz00_1042;
{ /* blib.scm 644 */
obj_t BgL_auxz00_3395;
if(
INTEGERP(BgL_arg1657z00_550))
{ /* blib.scm 644 */
BgL_auxz00_3395 = BgL_arg1657z00_550
; } else
{ /* blib.scm 644 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2742z00zzblibz00, BGl_string2744z00zzblibz00, BgL_arg1657z00_550, BGl_string2460z00zzblibz00,
BINT(((long)18434)));
exit( -1 );}
BgL_yearz00_1037 =
CINT(BgL_auxz00_3395); }
{ /* blib.scm 644 */
obj_t BgL_auxz00_3402;
if(
INTEGERP(BgL_arg1664z00_551))
{ /* blib.scm 644 */
BgL_auxz00_3402 = BgL_arg1664z00_551
; } else
{ /* blib.scm 644 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2742z00zzblibz00, BGl_string2744z00zzblibz00, BgL_arg1664z00_551, BGl_string2460z00zzblibz00,
BINT(((long)18434)));
exit( -1 );}
BgL_monthz00_1038 =
CINT(BgL_auxz00_3402); }
{ /* blib.scm 644 */
obj_t BgL_auxz00_3409;
if(
INTEGERP(BgL_arg1675z00_552))
{ /* blib.scm 644 */
BgL_auxz00_3409 = BgL_arg1675z00_552
; } else
{ /* blib.scm 644 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2742z00zzblibz00, BGl_string2744z00zzblibz00, BgL_arg1675z00_552, BGl_string2460z00zzblibz00,
BINT(((long)18434)));
exit( -1 );}
BgL_dayz00_1039 =
CINT(BgL_auxz00_3409); }
BgL_hourz00_1040 = BgL_hourz00_547;
BgL_minutez00_1041 = BgL_hourz00_547;
BgL_secondz00_1042 = BgL_secondz00_549;
{ /* blib.scm 644 */
struct tm* BgL_tmz00_1043;
BgL_tmz00_1043 =
(struct tm*)GC_malloc_atomic(sizeof(struct tm));
BgL_tmz00_1043->tm_sec = BgL_secondz00_1042;
BgL_tmz00_1043->tm_min = BgL_minutez00_1041;
BgL_tmz00_1043->tm_hour = BgL_hourz00_1040;
BgL_tmz00_1043->tm_mday = BgL_dayz00_1039;
BgL_tmz00_1043->tm_mon = BgL_monthz00_1038 - 1;
BgL_tmz00_1043->tm_year = BgL_yearz00_1037 - 1900;;
BgL_res2027z00_1044 = BgL_tmz00_1043; } }
BgL_aux2107z00_1212 =
cobj_to_foreign(BGl_symbol2721z00zzblibz00, BgL_res2027z00_1044); } } } } } break;case ((long)4) :
{ /* blib.scm 644 */
obj_t BgL_hourz00_553;
BgL_hourz00_553 =
VECTOR_REF(BgL_optz00_84,
(int)(((long)3)));
{ /* blib.scm 644 */
int BgL_minutez00_554;
BgL_minutez00_554 =
(int)(((long)0));
{ /* blib.scm 644 */
{ /* blib.scm 644 */
obj_t BgL_arg1682z00_556;obj_t BgL_arg1697z00_557;obj_t BgL_arg1698z00_558;
BgL_arg1682z00_556 =
VECTOR_REF(BgL_optz00_84,BgL_minutez00_554);
BgL_arg1697z00_557 =
VECTOR_REF(BgL_optz00_84,
(int)(((long)1)));
BgL_arg1698z00_558 =
VECTOR_REF(BgL_optz00_84,
(int)(((long)2)));
{ /* blib.scm 644 */
struct tm* BgL_res2028z00_1052;
{ /* blib.scm 644 */
int BgL_yearz00_1045;int BgL_monthz00_1046;int BgL_dayz00_1047;int BgL_hourz00_1048;int BgL_minutez00_1049;int BgL_secondz00_1050;
{ /* blib.scm 644 */
obj_t BgL_auxz00_3427;
if(
INTEGERP(BgL_arg1682z00_556))
{ /* blib.scm 644 */
BgL_auxz00_3427 = BgL_arg1682z00_556
; } else
{ /* blib.scm 644 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2742z00zzblibz00, BGl_string2744z00zzblibz00, BgL_arg1682z00_556, BGl_string2460z00zzblibz00,
BINT(((long)18434)));
exit( -1 );}
BgL_yearz00_1045 =
CINT(BgL_auxz00_3427); }
{ /* blib.scm 644 */
obj_t BgL_auxz00_3434;
if(
INTEGERP(BgL_arg1697z00_557))
{ /* blib.scm 644 */
BgL_auxz00_3434 = BgL_arg1697z00_557
; } else
{ /* blib.scm 644 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2742z00zzblibz00, BGl_string2744z00zzblibz00, BgL_arg1697z00_557, BGl_string2460z00zzblibz00,
BINT(((long)18434)));
exit( -1 );}
BgL_monthz00_1046 =
CINT(BgL_auxz00_3434); }
{ /* blib.scm 644 */
obj_t BgL_auxz00_3441;
if(
INTEGERP(BgL_arg1698z00_558))
{ /* blib.scm 644 */
BgL_auxz00_3441 = BgL_arg1698z00_558
; } else
{ /* blib.scm 644 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2742z00zzblibz00, BGl_string2744z00zzblibz00, BgL_arg1698z00_558, BGl_string2460z00zzblibz00,
BINT(((long)18434)));
exit( -1 );}
BgL_dayz00_1047 =
CINT(BgL_auxz00_3441); }
{ /* blib.scm 644 */
obj_t BgL_auxz00_3448;
if(
INTEGERP(BgL_hourz00_553))
{ /* blib.scm 644 */
BgL_auxz00_3448 = BgL_hourz00_553
; } else
{ /* blib.scm 644 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2742z00zzblibz00, BGl_string2744z00zzblibz00, BgL_hourz00_553, BGl_string2460z00zzblibz00,
BINT(((long)18434)));
exit( -1 );}
BgL_hourz00_1048 =
CINT(BgL_auxz00_3448); }
BgL_minutez00_1049 = BgL_minutez00_554;
BgL_secondz00_1050 = BgL_minutez00_554;
{ /* blib.scm 644 */
struct tm* BgL_tmz00_1051;
BgL_tmz00_1051 =
(struct tm*)GC_malloc_atomic(sizeof(struct tm));
BgL_tmz00_1051->tm_sec = BgL_secondz00_1050;
BgL_tmz00_1051->tm_min = BgL_minutez00_1049;
BgL_tmz00_1051->tm_hour = BgL_hourz00_1048;
BgL_tmz00_1051->tm_mday = BgL_dayz00_1047;
BgL_tmz00_1051->tm_mon = BgL_monthz00_1046 - 1;
BgL_tmz00_1051->tm_year = BgL_yearz00_1045 - 1900;;
BgL_res2028z00_1052 = BgL_tmz00_1051; } }
BgL_aux2107z00_1212 =
cobj_to_foreign(BGl_symbol2721z00zzblibz00, BgL_res2028z00_1052); } } } } } break;case ((long)5) :
{ /* blib.scm 644 */
obj_t BgL_hourz00_559;
BgL_hourz00_559 =
VECTOR_REF(BgL_optz00_84,
(int)(((long)3)));
{ /* blib.scm 644 */
obj_t BgL_minutez00_560;
BgL_minutez00_560 =
VECTOR_REF(BgL_optz00_84,
(int)(((long)4)));
{ /* blib.scm 644 */
int BgL_secondz00_561;
BgL_secondz00_561 =
(int)(((long)0));
{ /* blib.scm 644 */
{ /* blib.scm 644 */
obj_t BgL_arg1699z00_562;obj_t BgL_arg1703z00_563;obj_t BgL_arg1707z00_564;
BgL_arg1699z00_562 =
VECTOR_REF(BgL_optz00_84,BgL_secondz00_561);
BgL_arg1703z00_563 =
VECTOR_REF(BgL_optz00_84,
(int)(((long)1)));
BgL_arg1707z00_564 =
VECTOR_REF(BgL_optz00_84,
(int)(((long)2)));
{ /* blib.scm 644 */
struct tm* BgL_res2029z00_1060;
{ /* blib.scm 644 */
int BgL_yearz00_1053;int BgL_monthz00_1054;int BgL_dayz00_1055;int BgL_hourz00_1056;int BgL_minutez00_1057;int BgL_secondz00_1058;
{ /* blib.scm 644 */
obj_t BgL_auxz00_3468;
if(
INTEGERP(BgL_arg1699z00_562))
{ /* blib.scm 644 */
BgL_auxz00_3468 = BgL_arg1699z00_562
; } else
{ /* blib.scm 644 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2742z00zzblibz00, BGl_string2744z00zzblibz00, BgL_arg1699z00_562, BGl_string2460z00zzblibz00,
BINT(((long)18434)));
exit( -1 );}
BgL_yearz00_1053 =
CINT(BgL_auxz00_3468); }
{ /* blib.scm 644 */
obj_t BgL_auxz00_3475;
if(
INTEGERP(BgL_arg1703z00_563))
{ /* blib.scm 644 */
BgL_auxz00_3475 = BgL_arg1703z00_563
; } else
{ /* blib.scm 644 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2742z00zzblibz00, BGl_string2744z00zzblibz00, BgL_arg1703z00_563, BGl_string2460z00zzblibz00,
BINT(((long)18434)));
exit( -1 );}
BgL_monthz00_1054 =
CINT(BgL_auxz00_3475); }
{ /* blib.scm 644 */
obj_t BgL_auxz00_3482;
if(
INTEGERP(BgL_arg1707z00_564))
{ /* blib.scm 644 */
BgL_auxz00_3482 = BgL_arg1707z00_564
; } else
{ /* blib.scm 644 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2742z00zzblibz00, BGl_string2744z00zzblibz00, BgL_arg1707z00_564, BGl_string2460z00zzblibz00,
BINT(((long)18434)));
exit( -1 );}
BgL_dayz00_1055 =
CINT(BgL_auxz00_3482); }
{ /* blib.scm 644 */
obj_t BgL_auxz00_3489;
if(
INTEGERP(BgL_hourz00_559))
{ /* blib.scm 644 */
BgL_auxz00_3489 = BgL_hourz00_559
; } else
{ /* blib.scm 644 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2742z00zzblibz00, BGl_string2744z00zzblibz00, BgL_hourz00_559, BGl_string2460z00zzblibz00,
BINT(((long)18434)));
exit( -1 );}
BgL_hourz00_1056 =
CINT(BgL_auxz00_3489); }
{ /* blib.scm 644 */
obj_t BgL_auxz00_3496;
if(
INTEGERP(BgL_minutez00_560))
{ /* blib.scm 644 */
BgL_auxz00_3496 = BgL_minutez00_560
; } else
{ /* blib.scm 644 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2742z00zzblibz00, BGl_string2744z00zzblibz00, BgL_minutez00_560, BGl_string2460z00zzblibz00,
BINT(((long)18434)));
exit( -1 );}
BgL_minutez00_1057 =
CINT(BgL_auxz00_3496); }
BgL_secondz00_1058 = BgL_secondz00_561;
{ /* blib.scm 644 */
struct tm* BgL_tmz00_1059;
BgL_tmz00_1059 =
(struct tm*)GC_malloc_atomic(sizeof(struct tm));
BgL_tmz00_1059->tm_sec = BgL_secondz00_1058;
BgL_tmz00_1059->tm_min = BgL_minutez00_1057;
BgL_tmz00_1059->tm_hour = BgL_hourz00_1056;
BgL_tmz00_1059->tm_mday = BgL_dayz00_1055;
BgL_tmz00_1059->tm_mon = BgL_monthz00_1054 - 1;
BgL_tmz00_1059->tm_year = BgL_yearz00_1053 - 1900;;
BgL_res2029z00_1060 = BgL_tmz00_1059; } }
BgL_aux2107z00_1212 =
cobj_to_foreign(BGl_symbol2721z00zzblibz00, BgL_res2029z00_1060); } } } } } } break;case ((long)6) :
{ /* blib.scm 644 */
obj_t BgL_hourz00_565;
BgL_hourz00_565 =
VECTOR_REF(BgL_optz00_84,
(int)(((long)3)));
{ /* blib.scm 644 */
obj_t BgL_minutez00_566;
BgL_minutez00_566 =
VECTOR_REF(BgL_optz00_84,
(int)(((long)4)));
{ /* blib.scm 644 */
obj_t BgL_secondz00_567;
BgL_secondz00_567 =
VECTOR_REF(BgL_optz00_84,
(int)(((long)5)));
{ /* blib.scm 644 */
{ /* blib.scm 644 */
obj_t BgL_arg1710z00_568;obj_t BgL_arg1711z00_569;obj_t BgL_arg1712z00_570;
BgL_arg1710z00_568 =
VECTOR_REF(BgL_optz00_84,
(int)(((long)0)));
BgL_arg1711z00_569 =
VECTOR_REF(BgL_optz00_84,
(int)(((long)1)));
BgL_arg1712z00_570 =
VECTOR_REF(BgL_optz00_84,
(int)(((long)2)));
{ /* blib.scm 644 */
struct tm* BgL_res2030z00_1068;
{ /* blib.scm 644 */
int BgL_yearz00_1061;int BgL_monthz00_1062;int BgL_dayz00_1063;int BgL_hourz00_1064;int BgL_minutez00_1065;int BgL_secondz00_1066;
{ /* blib.scm 644 */
obj_t BgL_auxz00_3518;
if(
INTEGERP(BgL_arg1710z00_568))
{ /* blib.scm 644 */
BgL_auxz00_3518 = BgL_arg1710z00_568
; } else
{ /* blib.scm 644 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2742z00zzblibz00, BGl_string2744z00zzblibz00, BgL_arg1710z00_568, BGl_string2460z00zzblibz00,
BINT(((long)18434)));
exit( -1 );}
BgL_yearz00_1061 =
CINT(BgL_auxz00_3518); }
{ /* blib.scm 644 */
obj_t BgL_auxz00_3525;
if(
INTEGERP(BgL_arg1711z00_569))
{ /* blib.scm 644 */
BgL_auxz00_3525 = BgL_arg1711z00_569
; } else
{ /* blib.scm 644 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2742z00zzblibz00, BGl_string2744z00zzblibz00, BgL_arg1711z00_569, BGl_string2460z00zzblibz00,
BINT(((long)18434)));
exit( -1 );}
BgL_monthz00_1062 =
CINT(BgL_auxz00_3525); }
{ /* blib.scm 644 */
obj_t BgL_auxz00_3532;
if(
INTEGERP(BgL_arg1712z00_570))
{ /* blib.scm 644 */
BgL_auxz00_3532 = BgL_arg1712z00_570
; } else
{ /* blib.scm 644 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2742z00zzblibz00, BGl_string2744z00zzblibz00, BgL_arg1712z00_570, BGl_string2460z00zzblibz00,
BINT(((long)18434)));
exit( -1 );}
BgL_dayz00_1063 =
CINT(BgL_auxz00_3532); }
{ /* blib.scm 644 */
obj_t BgL_auxz00_3539;
if(
INTEGERP(BgL_hourz00_565))
{ /* blib.scm 644 */
BgL_auxz00_3539 = BgL_hourz00_565
; } else
{ /* blib.scm 644 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2742z00zzblibz00, BGl_string2744z00zzblibz00, BgL_hourz00_565, BGl_string2460z00zzblibz00,
BINT(((long)18434)));
exit( -1 );}
BgL_hourz00_1064 =
CINT(BgL_auxz00_3539); }
{ /* blib.scm 644 */
obj_t BgL_auxz00_3546;
if(
INTEGERP(BgL_minutez00_566))
{ /* blib.scm 644 */
BgL_auxz00_3546 = BgL_minutez00_566
; } else
{ /* blib.scm 644 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2742z00zzblibz00, BGl_string2744z00zzblibz00, BgL_minutez00_566, BGl_string2460z00zzblibz00,
BINT(((long)18434)));
exit( -1 );}
BgL_minutez00_1065 =
CINT(BgL_auxz00_3546); }
{ /* blib.scm 644 */
obj_t BgL_auxz00_3553;
if(
INTEGERP(BgL_secondz00_567))
{ /* blib.scm 644 */
BgL_auxz00_3553 = BgL_secondz00_567
; } else
{ /* blib.scm 644 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2742z00zzblibz00, BGl_string2744z00zzblibz00, BgL_secondz00_567, BGl_string2460z00zzblibz00,
BINT(((long)18434)));
exit( -1 );}
BgL_secondz00_1066 =
CINT(BgL_auxz00_3553); }
{ /* blib.scm 644 */
struct tm* BgL_tmz00_1067;
BgL_tmz00_1067 =
(struct tm*)GC_malloc_atomic(sizeof(struct tm));
BgL_tmz00_1067->tm_sec = BgL_secondz00_1066;
BgL_tmz00_1067->tm_min = BgL_minutez00_1065;
BgL_tmz00_1067->tm_hour = BgL_hourz00_1064;
BgL_tmz00_1067->tm_mday = BgL_dayz00_1063;
BgL_tmz00_1067->tm_mon = BgL_monthz00_1062 - 1;
BgL_tmz00_1067->tm_year = BgL_yearz00_1061 - 1900;;
BgL_res2030z00_1068 = BgL_tmz00_1067; } }
BgL_aux2107z00_1212 =
cobj_to_foreign(BGl_symbol2721z00zzblibz00, BgL_res2030z00_1068); } } } } } } break;
default:
{ /* blib.scm 644 */
obj_t BgL_arg1713z00_571;int BgL_arg1715z00_573;
BgL_arg1713z00_571 = BGl_symbol2739z00zzblibz00;
BgL_arg1715z00_573 =
VECTOR_LENGTH(BgL_optz00_84);
BgL_aux2107z00_1212 =
BGl_errorzf2locationzf2zz__errorz00(BgL_arg1713z00_571, BGl_string2741z00zzblibz00,
BINT(BgL_arg1715z00_573), BGl_string2460z00zzblibz00,
BINT(((long)18434))); } } } } }
POP_TRACE();
return BgL_aux2107z00_1212;} } } }
}
/* mktime */
BGL_EXPORTED_DEF struct tm* BGl_mktimez00zzblibz00(int BgL_yearz00_78, int BgL_monthz00_79, int BgL_dayz00_80, int BgL_hourz00_81, int BgL_minutez00_82, int BgL_secondz00_83)
{ AN_OBJECT;
{ /* blib.scm 644 */
{ /* blib.scm 652 */
obj_t BgL_symbol2110z00_1213;
BgL_symbol2110z00_1213 = BGl_symbol2745z00zzblibz00;
{ /* blib.scm 652 */
PUSH_TRACE(BgL_symbol2110z00_1213);
{ /* blib.scm 652 */
struct tm* BgL_aux2109z00_1214;
{ /* blib.scm 652 */
struct tm* BgL_tmz00_1069;
BgL_tmz00_1069 =
(struct tm*)GC_malloc_atomic(sizeof(struct tm));
BgL_tmz00_1069->tm_sec = BgL_secondz00_83;
BgL_tmz00_1069->tm_min = BgL_minutez00_82;
BgL_tmz00_1069->tm_hour = BgL_hourz00_81;
BgL_tmz00_1069->tm_mday = BgL_dayz00_80;
BgL_tmz00_1069->tm_mon = BgL_monthz00_79 - 1;
BgL_tmz00_1069->tm_year = BgL_yearz00_78 - 1900;;
BgL_aux2109z00_1214 = BgL_tmz00_1069; }
POP_TRACE();
return BgL_aux2109z00_1214;} } } }
}
/* setenv */
BGL_EXPORTED_DEF obj_t BGl_setenvz00zzblibz00(char * BgL_namez00_86, char * BgL_valuez00_87)
{ AN_OBJECT;
{ /* blib.scm 664 */
{ /* blib.scm 665 */
obj_t BgL_symbol2112z00_1215;
BgL_symbol2112z00_1215 = BGl_symbol2747z00zzblibz00;
{ /* blib.scm 665 */
PUSH_TRACE(BgL_symbol2112z00_1215);
{ /* blib.scm 665 */
obj_t BgL_aux2111z00_1216;
if(
setenv(BgL_namez00_86, BgL_valuez00_87, 1))
{ /* blib.scm 665 */
BgL_aux2111z00_1216 =
BGl_cerrorz00zzblibz00(BGl_string2749z00zzblibz00, BNIL); } else
{ /* blib.scm 665 */
BgL_aux2111z00_1216 = BFALSE; }
POP_TRACE();
return BgL_aux2111z00_1216;} } } }
}
/* _setenv */
obj_t BGl__setenvz00zzblibz00(obj_t BgL_envz00_1368, obj_t BgL_namez00_1369, obj_t BgL_valuez00_1370)
{ AN_OBJECT;
{ /* blib.scm 664 */
{ /* blib.scm 665 */
char * BgL_auxz00_3587;char * BgL_auxz00_3579;
{ /* blib.scm 665 */
obj_t BgL_auxz00_3588;
if(
STRINGP(BgL_valuez00_1370))
{ /* blib.scm 665 */
BgL_auxz00_3588 = BgL_valuez00_1370
; } else
{ /* blib.scm 665 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2750z00zzblibz00, BGl_string2752z00zzblibz00, BgL_valuez00_1370, BGl_string2460z00zzblibz00,
BINT(((long)18926)));
exit( -1 );}
BgL_auxz00_3587 =
BSTRING_TO_STRING(BgL_auxz00_3588); }
{ /* blib.scm 665 */
obj_t BgL_auxz00_3580;
if(
STRINGP(BgL_namez00_1369))
{ /* blib.scm 665 */
BgL_auxz00_3580 = BgL_namez00_1369
; } else
{ /* blib.scm 665 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2750z00zzblibz00, BGl_string2752z00zzblibz00, BgL_namez00_1369, BGl_string2460z00zzblibz00,
BINT(((long)18926)));
exit( -1 );}
BgL_auxz00_3579 =
BSTRING_TO_STRING(BgL_auxz00_3580); }
return
BGl_setenvz00zzblibz00(BgL_auxz00_3579, BgL_auxz00_3587);} }
}
/* stat? */
BGL_EXPORTED_DEF bool_t BGl_statzf3zf3zzblibz00(obj_t BgL_oz00_88)
{ AN_OBJECT;
{ /* blib.scm 668 */
{ /* blib.scm 669 */
obj_t BgL_symbol2114z00_1217;
BgL_symbol2114z00_1217 = BGl_symbol2753z00zzblibz00;
{ /* blib.scm 669 */
PUSH_TRACE(BgL_symbol2114z00_1217);
{ /* blib.scm 669 */
bool_t BgL_aux2113z00_1218;
if(
FOREIGNP(BgL_oz00_88))
{ /* blib.scm 669 */
obj_t BgL_arg1815z00_1073;obj_t BgL_arg1828z00_1074;
BgL_arg1815z00_1073 =
FOREIGN_ID(BgL_oz00_88);
BgL_arg1828z00_1074 = BGl_symbol2755z00zzblibz00;
BgL_aux2113z00_1218 =
(BgL_arg1815z00_1073==BgL_arg1828z00_1074); } else
{ /* blib.scm 669 */
BgL_aux2113z00_1218 = ((bool_t)0); }
POP_TRACE();
return BgL_aux2113z00_1218;} } } }
}
/* _stat? */
obj_t BGl__statzf3zf3zzblibz00(obj_t BgL_envz00_1371, obj_t BgL_oz00_1372)
{ AN_OBJECT;
{ /* blib.scm 668 */
return
BBOOL(
BGl_statzf3zf3zzblibz00(BgL_oz00_1372));}
}
/* stat */
BGL_EXPORTED_DEF struct stat* BGl_statz00zzblibz00(obj_t BgL_whatz00_89)
{ AN_OBJECT;
{ /* blib.scm 671 */
{ /* blib.scm 693 */
obj_t BgL_symbol2116z00_1219;
BgL_symbol2116z00_1219 = BGl_symbol2757z00zzblibz00;
{ /* blib.scm 693 */
PUSH_TRACE(BgL_symbol2116z00_1219);
{ /* blib.scm 693 */
struct stat* BgL_aux2115z00_1220;
{ /* blib.scm 693 */
struct stat* BgL_bufz00_580;
BgL_bufz00_580 =
(struct stat*)GC_malloc_atomic(sizeof(struct stat));
{ /* blib.scm 693 */
obj_t BgL_failedzf3zf3_581;
if(
STRINGP(BgL_whatz00_89))
{ /* blib.scm 697 */
bool_t BgL_auxz00_3608;
{
char * BgL_auxz00_3609;
{ /* blib.scm 699 */
obj_t BgL_auxz00_3610;
{ /* blib.scm 699 */
bool_t BgL_test2420z00_1687;
BgL_test2420z00_1687 =
STRINGP(BgL_whatz00_89);
if(BgL_test2420z00_1687)
{ /* blib.scm 699 */
BgL_auxz00_3610 = BgL_whatz00_89
; } else
{ /* blib.scm 699 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2755z00zzblibz00, BGl_string2530z00zzblibz00, BgL_whatz00_89, BGl_string2460z00zzblibz00,
BINT(((long)19817)));
exit( -1 );} }
BgL_auxz00_3609 =
BSTRING_TO_STRING(BgL_auxz00_3610); }
BgL_auxz00_3608 =
stat(BgL_auxz00_3609, BgL_bufz00_580); }
BgL_failedzf3zf3_581 =
BBOOL(BgL_auxz00_3608); } else
{ /* blib.scm 701 */
bool_t BgL_testz00_3619;
if(
BGl_integerzf3zf3zz__r4_numbers_6_5_fixnumz00(BgL_whatz00_89))
{ /* blib.scm 701 */
BgL_testz00_3619 =
BGl_positivezf3zf3zz__r4_numbers_6_5z00(BgL_whatz00_89)
; } else
{ /* blib.scm 701 */
BgL_testz00_3619 = ((bool_t)0)
; }
if(BgL_testz00_3619)
{ /* blib.scm 702 */
bool_t BgL_auxz00_3623;
{
int BgL_auxz00_3624;
{ /* blib.scm 704 */
obj_t BgL_auxz00_3625;
{ /* blib.scm 704 */
bool_t BgL_test2422z00_1689;
BgL_test2422z00_1689 =
INTEGERP(BgL_whatz00_89);
if(BgL_test2422z00_1689)
{ /* blib.scm 704 */
BgL_auxz00_3625 = BgL_whatz00_89
; } else
{ /* blib.scm 704 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2755z00zzblibz00, BGl_string2759z00zzblibz00, BgL_whatz00_89, BGl_string2460z00zzblibz00,
BINT(((long)19981)));
exit( -1 );} }
BgL_auxz00_3624 =
CINT(BgL_auxz00_3625); }
BgL_auxz00_3623 =
fstat(BgL_auxz00_3624, BgL_bufz00_580); }
BgL_failedzf3zf3_581 =
BBOOL(BgL_auxz00_3623); } else
{ /* blib.scm 701 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string2756z00zzblibz00, BGl_string2760z00zzblibz00, BgL_whatz00_89,
BSTRING_TO_STRING(BGl_string2513z00zzblibz00), ((long)20028));
BgL_failedzf3zf3_581 =
BGl_errorzf2locationzf2zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string2460z00zzblibz00,
BINT(((long)20028))); } }
{ /* blib.scm 695 */
BgL_aux2115z00_1220 = BgL_bufz00_580; } } }
POP_TRACE();
return BgL_aux2115z00_1220;} } } }
}
/* _stat */
obj_t BGl__statz00zzblibz00(obj_t BgL_envz00_1373, obj_t BgL_whatz00_1374)
{ AN_OBJECT;
{ /* blib.scm 671 */
{
struct stat* BgL_auxz00_3639;
BgL_auxz00_3639 =
BGl_statz00zzblibz00(BgL_whatz00_1374);
return
cobj_to_foreign(BGl_symbol2755z00zzblibz00, BgL_auxz00_3639);} }
}
/* bstmode->stmode */
BGL_EXPORTED_DEF int BGl_bstmodezd2ze3stmodez31zzblibz00(obj_t BgL_oz00_90)
{ AN_OBJECT;
{ /* blib.scm 717 */
{ /* blib.scm 718 */
obj_t BgL_symbol2118z00_1221;
BgL_symbol2118z00_1221 = BGl_symbol2761z00zzblibz00;
{ /* blib.scm 718 */
PUSH_TRACE(BgL_symbol2118z00_1221);
{ /* blib.scm 718 */
int BgL_aux2117z00_1222;
{ /* blib.scm 718 */
int BgL_resz00_585;
BgL_resz00_585 =
(int)(((long)0));
{
obj_t BgL_l1373z00_586;
BgL_l1373z00_586 = BgL_oz00_90;
BgL_forzd2each1374zd2_587:
if(
PAIRP(BgL_l1373z00_586))
{ /* blib.scm 719 */
{ /* blib.scm 745 */
obj_t BgL_oz00_589;
BgL_oz00_589 =
CAR(BgL_l1373z00_586);
if(
BGl_eqvzf3zf3zz__r4_equivalence_6_2z00(BgL_oz00_589, BGl_symbol2763z00zzblibz00))
{ /* blib.scm 747 */
int BgL_arg1836z00_593;
BgL_arg1836z00_593 =
S_IFSOCK;
{ /* blib.scm 747 */
long BgL_xz00_1079;long BgL_yz00_1080;
BgL_xz00_1079 =
(long)(BgL_resz00_585);
BgL_yz00_1080 =
(long)(BgL_arg1836z00_593);
BgL_resz00_585 =
(int)(
(BgL_xz00_1079 | BgL_yz00_1080)); } } else
{ /* blib.scm 745 */
if(
BGl_eqvzf3zf3zz__r4_equivalence_6_2z00(BgL_oz00_589, BGl_symbol2765z00zzblibz00))
{ /* blib.scm 749 */
int BgL_arg1842z00_595;
BgL_arg1842z00_595 =
S_IFLNK;
{ /* blib.scm 749 */
long BgL_xz00_1081;long BgL_yz00_1082;
BgL_xz00_1081 =
(long)(BgL_resz00_585);
BgL_yz00_1082 =
(long)(BgL_arg1842z00_595);
BgL_resz00_585 =
(int)(
(BgL_xz00_1081 | BgL_yz00_1082)); } } else
{ /* blib.scm 745 */
if(
BGl_eqvzf3zf3zz__r4_equivalence_6_2z00(BgL_oz00_589, BGl_symbol2767z00zzblibz00))
{ /* blib.scm 751 */
int BgL_arg1849z00_597;
BgL_arg1849z00_597 =
S_IFREG;
{ /* blib.scm 751 */
long BgL_xz00_1083;long BgL_yz00_1084;
BgL_xz00_1083 =
(long)(BgL_resz00_585);
BgL_yz00_1084 =
(long)(BgL_arg1849z00_597);
BgL_resz00_585 =
(int)(
(BgL_xz00_1083 | BgL_yz00_1084)); } } else
{ /* blib.scm 745 */
if(
BGl_eqvzf3zf3zz__r4_equivalence_6_2z00(BgL_oz00_589, BGl_symbol2769z00zzblibz00))
{ /* blib.scm 753 */
int BgL_arg1855z00_599;
BgL_arg1855z00_599 =
S_IFBLK;
{ /* blib.scm 753 */
long BgL_xz00_1085;long BgL_yz00_1086;
BgL_xz00_1085 =
(long)(BgL_resz00_585);
BgL_yz00_1086 =
(long)(BgL_arg1855z00_599);
BgL_resz00_585 =
(int)(
(BgL_xz00_1085 | BgL_yz00_1086)); } } else
{ /* blib.scm 745 */
if(
BGl_eqvzf3zf3zz__r4_equivalence_6_2z00(BgL_oz00_589, BGl_symbol2771z00zzblibz00))
{ /* blib.scm 755 */
int BgL_arg1862z00_601;
BgL_arg1862z00_601 =
S_IFDIR;
{ /* blib.scm 755 */
long BgL_xz00_1087;long BgL_yz00_1088;
BgL_xz00_1087 =
(long)(BgL_resz00_585);
BgL_yz00_1088 =
(long)(BgL_arg1862z00_601);
BgL_resz00_585 =
(int)(
(BgL_xz00_1087 | BgL_yz00_1088)); } } else
{ /* blib.scm 745 */
if(
BGl_eqvzf3zf3zz__r4_equivalence_6_2z00(BgL_oz00_589, BGl_symbol2773z00zzblibz00))
{ /* blib.scm 757 */
int BgL_arg1868z00_603;
BgL_arg1868z00_603 =
S_IFCHR;
{ /* blib.scm 757 */
long BgL_xz00_1089;long BgL_yz00_1090;
BgL_xz00_1089 =
(long)(BgL_resz00_585);
BgL_yz00_1090 =
(long)(BgL_arg1868z00_603);
BgL_resz00_585 =
(int)(
(BgL_xz00_1089 | BgL_yz00_1090)); } } else
{ /* blib.scm 745 */
if(
BGl_eqvzf3zf3zz__r4_equivalence_6_2z00(BgL_oz00_589, BGl_symbol2775z00zzblibz00))
{ /* blib.scm 759 */
int BgL_arg1876z00_605;
BgL_arg1876z00_605 =
S_IFIFO;
{ /* blib.scm 759 */
long BgL_xz00_1091;long BgL_yz00_1092;
BgL_xz00_1091 =
(long)(BgL_resz00_585);
BgL_yz00_1092 =
(long)(BgL_arg1876z00_605);
BgL_resz00_585 =
(int)(
(BgL_xz00_1091 | BgL_yz00_1092)); } } else
{ /* blib.scm 745 */
if(
BGl_eqvzf3zf3zz__r4_equivalence_6_2z00(BgL_oz00_589, BGl_symbol2777z00zzblibz00))
{ /* blib.scm 761 */
int BgL_arg1882z00_607;
BgL_arg1882z00_607 =
S_ISUID;
{ /* blib.scm 761 */
long BgL_xz00_1093;long BgL_yz00_1094;
BgL_xz00_1093 =
(long)(BgL_resz00_585);
BgL_yz00_1094 =
(long)(BgL_arg1882z00_607);
BgL_resz00_585 =
(int)(
(BgL_xz00_1093 | BgL_yz00_1094)); } } else
{ /* blib.scm 745 */
if(
BGl_eqvzf3zf3zz__r4_equivalence_6_2z00(BgL_oz00_589, BGl_symbol2779z00zzblibz00))
{ /* blib.scm 763 */
int BgL_arg1890z00_609;
BgL_arg1890z00_609 =
S_ISGID;
{ /* blib.scm 763 */
long BgL_xz00_1095;long BgL_yz00_1096;
BgL_xz00_1095 =
(long)(BgL_resz00_585);
BgL_yz00_1096 =
(long)(BgL_arg1890z00_609);
BgL_resz00_585 =
(int)(
(BgL_xz00_1095 | BgL_yz00_1096)); } } else
{ /* blib.scm 745 */
if(
BGl_eqvzf3zf3zz__r4_equivalence_6_2z00(BgL_oz00_589, BGl_symbol2781z00zzblibz00))
{ /* blib.scm 765 */
int BgL_arg1896z00_611;
BgL_arg1896z00_611 =
S_ISVTX;
{ /* blib.scm 765 */
long BgL_xz00_1097;long BgL_yz00_1098;
BgL_xz00_1097 =
(long)(BgL_resz00_585);
BgL_yz00_1098 =
(long)(BgL_arg1896z00_611);
BgL_resz00_585 =
(int)(
(BgL_xz00_1097 | BgL_yz00_1098)); } } else
{ /* blib.scm 745 */
if(
BGl_eqvzf3zf3zz__r4_equivalence_6_2z00(BgL_oz00_589, BGl_symbol2783z00zzblibz00))
{ /* blib.scm 767 */
int BgL_arg1903z00_613;
BgL_arg1903z00_613 =
S_IRUSR;
{ /* blib.scm 767 */
long BgL_xz00_1099;long BgL_yz00_1100;
BgL_xz00_1099 =
(long)(BgL_resz00_585);
BgL_yz00_1100 =
(long)(BgL_arg1903z00_613);
BgL_resz00_585 =
(int)(
(BgL_xz00_1099 | BgL_yz00_1100)); } } else
{ /* blib.scm 745 */
if(
BGl_eqvzf3zf3zz__r4_equivalence_6_2z00(BgL_oz00_589, BGl_symbol2785z00zzblibz00))
{ /* blib.scm 769 */
int BgL_arg1909z00_615;
BgL_arg1909z00_615 =
S_IWUSR;
{ /* blib.scm 769 */
long BgL_xz00_1101;long BgL_yz00_1102;
BgL_xz00_1101 =
(long)(BgL_resz00_585);
BgL_yz00_1102 =
(long)(BgL_arg1909z00_615);
BgL_resz00_585 =
(int)(
(BgL_xz00_1101 | BgL_yz00_1102)); } } else
{ /* blib.scm 745 */
if(
BGl_eqvzf3zf3zz__r4_equivalence_6_2z00(BgL_oz00_589, BGl_symbol2787z00zzblibz00))
{ /* blib.scm 771 */
int BgL_arg1919z00_617;
BgL_arg1919z00_617 =
S_IXUSR;
{ /* blib.scm 771 */
long BgL_xz00_1103;long BgL_yz00_1104;
BgL_xz00_1103 =
(long)(BgL_resz00_585);
BgL_yz00_1104 =
(long)(BgL_arg1919z00_617);
BgL_resz00_585 =
(int)(
(BgL_xz00_1103 | BgL_yz00_1104)); } } else
{ /* blib.scm 745 */
if(
BGl_eqvzf3zf3zz__r4_equivalence_6_2z00(BgL_oz00_589, BGl_symbol2789z00zzblibz00))
{ /* blib.scm 773 */
int BgL_arg1925z00_619;
BgL_arg1925z00_619 =
S_IRGRP;
{ /* blib.scm 773 */
long BgL_xz00_1105;long BgL_yz00_1106;
BgL_xz00_1105 =
(long)(BgL_resz00_585);
BgL_yz00_1106 =
(long)(BgL_arg1925z00_619);
BgL_resz00_585 =
(int)(
(BgL_xz00_1105 | BgL_yz00_1106)); } } else
{ /* blib.scm 745 */
if(
BGl_eqvzf3zf3zz__r4_equivalence_6_2z00(BgL_oz00_589, BGl_symbol2791z00zzblibz00))
{ /* blib.scm 775 */
int BgL_arg1934z00_621;
BgL_arg1934z00_621 =
S_IWGRP;
{ /* blib.scm 775 */
long BgL_xz00_1107;long BgL_yz00_1108;
BgL_xz00_1107 =
(long)(BgL_resz00_585);
BgL_yz00_1108 =
(long)(BgL_arg1934z00_621);
BgL_resz00_585 =
(int)(
(BgL_xz00_1107 | BgL_yz00_1108)); } } else
{ /* blib.scm 745 */
if(
BGl_eqvzf3zf3zz__r4_equivalence_6_2z00(BgL_oz00_589, BGl_symbol2793z00zzblibz00))
{ /* blib.scm 777 */
int BgL_arg1942z00_623;
BgL_arg1942z00_623 =
S_IXGRP;
{ /* blib.scm 777 */
long BgL_xz00_1109;long BgL_yz00_1110;
BgL_xz00_1109 =
(long)(BgL_resz00_585);
BgL_yz00_1110 =
(long)(BgL_arg1942z00_623);
BgL_resz00_585 =
(int)(
(BgL_xz00_1109 | BgL_yz00_1110)); } } else
{ /* blib.scm 745 */
if(
BGl_eqvzf3zf3zz__r4_equivalence_6_2z00(BgL_oz00_589, BGl_symbol2795z00zzblibz00))
{ /* blib.scm 779 */
int BgL_arg1949z00_625;
BgL_arg1949z00_625 =
S_IROTH;
{ /* blib.scm 779 */
long BgL_xz00_1111;long BgL_yz00_1112;
BgL_xz00_1111 =
(long)(BgL_resz00_585);
BgL_yz00_1112 =
(long)(BgL_arg1949z00_625);
BgL_resz00_585 =
(int)(
(BgL_xz00_1111 | BgL_yz00_1112)); } } else
{ /* blib.scm 745 */
if(
BGl_eqvzf3zf3zz__r4_equivalence_6_2z00(BgL_oz00_589, BGl_symbol2797z00zzblibz00))
{ /* blib.scm 781 */
int BgL_arg1957z00_627;
BgL_arg1957z00_627 =
S_IWOTH;
{ /* blib.scm 781 */
long BgL_xz00_1113;long BgL_yz00_1114;
BgL_xz00_1113 =
(long)(BgL_resz00_585);
BgL_yz00_1114 =
(long)(BgL_arg1957z00_627);
BgL_resz00_585 =
(int)(
(BgL_xz00_1113 | BgL_yz00_1114)); } } else
{ /* blib.scm 745 */
if(
BGl_eqvzf3zf3zz__r4_equivalence_6_2z00(BgL_oz00_589, BGl_symbol2799z00zzblibz00))
{ /* blib.scm 783 */
int BgL_arg1964z00_629;
BgL_arg1964z00_629 =
S_IXOTH;
{ /* blib.scm 783 */
long BgL_xz00_1115;long BgL_yz00_1116;
BgL_xz00_1115 =
(long)(BgL_resz00_585);
BgL_yz00_1116 =
(long)(BgL_arg1964z00_629);
BgL_resz00_585 =
(int)(
(BgL_xz00_1115 | BgL_yz00_1116)); } } else
{ /* blib.scm 745 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string2801z00zzblibz00, BGl_string2802z00zzblibz00, BgL_oz00_589,
BSTRING_TO_STRING(BGl_string2513z00zzblibz00), ((long)22486));
BGl_errorzf2locationzf2zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string2460z00zzblibz00,
BINT(((long)22486))); } } } } } } } } } } } } } } } } } } } }
{
obj_t BgL_l1373z00_3784;
BgL_l1373z00_3784 =
CDR(BgL_l1373z00_586);
BgL_l1373z00_586 = BgL_l1373z00_3784;
goto BgL_forzd2each1374zd2_587;} } else
{ /* blib.scm 719 */
if(
NULLP(BgL_l1373z00_586))
{ /* blib.scm 719 */BTRUE; } else
{ /* blib.scm 719 */
BGl_errorzf2locationzf2zz__errorz00(BGl_string2803z00zzblibz00, BGl_string2574z00zzblibz00, BgL_l1373z00_586, BGl_string2460z00zzblibz00,
BINT(((long)20423))); } } }
BgL_aux2117z00_1222 =
BgL_resz00_585; }
POP_TRACE();
return BgL_aux2117z00_1222;} } } }
}
/* _bstmode->stmode */
obj_t BGl__bstmodezd2ze3stmodez31zzblibz00(obj_t BgL_envz00_1375, obj_t BgL_oz00_1376)
{ AN_OBJECT;
{ /* blib.scm 717 */
return
BGl_stmodezd2ze3bstmodez31zzblibz00(
BGl_bstmodezd2ze3stmodez31zzblibz00(BgL_oz00_1376));}
}
/* stmode->bstmode */
BGL_EXPORTED_DEF obj_t BGl_stmodezd2ze3bstmodez31zzblibz00(int BgL_oz00_91)
{ AN_OBJECT;
{ /* blib.scm 792 */
{ /* blib.scm 795 */
obj_t BgL_symbol2120z00_1223;
BgL_symbol2120z00_1223 = BGl_symbol2804z00zzblibz00;
{ /* blib.scm 795 */
PUSH_TRACE(BgL_symbol2120z00_1223);
{ /* blib.scm 795 */
obj_t BgL_aux2119z00_1224;
{ /* blib.scm 795 */
obj_t BgL_resz00_633;
BgL_resz00_633 = BNIL;
if(
(BgL_oz00_91 & S_IFSOCK) == S_IFSOCK)
{ /* blib.scm 799 */
BgL_resz00_633 =
MAKE_PAIR(BGl_symbol2763z00zzblibz00, BgL_resz00_633); } else
{ /* blib.scm 799 */BFALSE; }
if(
(BgL_oz00_91 & S_IFLNK) == S_IFLNK)
{ /* blib.scm 804 */
BgL_resz00_633 =
MAKE_PAIR(BGl_symbol2765z00zzblibz00, BgL_resz00_633); } else
{ /* blib.scm 804 */BFALSE; }
if(
(BgL_oz00_91 & S_IFREG) == S_IFREG)
{ /* blib.scm 806 */
BgL_resz00_633 =
MAKE_PAIR(BGl_symbol2767z00zzblibz00, BgL_resz00_633); } else
{ /* blib.scm 806 */BFALSE; }
if(
(BgL_oz00_91 & S_IFBLK) == S_IFBLK)
{ /* blib.scm 808 */
BgL_resz00_633 =
MAKE_PAIR(BGl_symbol2769z00zzblibz00, BgL_resz00_633); } else
{ /* blib.scm 808 */BFALSE; }
if(
S_ISDIR( BgL_oz00_91 ))
{ /* blib.scm 812 */
BgL_resz00_633 =
MAKE_PAIR(BGl_symbol2771z00zzblibz00, BgL_resz00_633); } else
{ /* blib.scm 812 */BFALSE; }
if(
(BgL_oz00_91 & S_IFCHR) == S_IFCHR)
{ /* blib.scm 814 */
BgL_resz00_633 =
MAKE_PAIR(BGl_symbol2773z00zzblibz00, BgL_resz00_633); } else
{ /* blib.scm 814 */BFALSE; }
if(
(BgL_oz00_91 & S_IFIFO) == S_IFIFO)
{ /* blib.scm 816 */
BgL_resz00_633 =
MAKE_PAIR(BGl_symbol2775z00zzblibz00, BgL_resz00_633); } else
{ /* blib.scm 816 */BFALSE; }
if(
(BgL_oz00_91 & S_ISUID) == S_ISUID)
{ /* blib.scm 821 */
BgL_resz00_633 =
MAKE_PAIR(BGl_symbol2777z00zzblibz00, BgL_resz00_633); } else
{ /* blib.scm 821 */BFALSE; }
if(
(BgL_oz00_91 & S_ISGID) == S_ISGID)
{ /* blib.scm 826 */
BgL_resz00_633 =
MAKE_PAIR(BGl_symbol2779z00zzblibz00, BgL_resz00_633); } else
{ /* blib.scm 826 */BFALSE; }
if(
(BgL_oz00_91 & S_ISVTX) == S_ISVTX)
{ /* blib.scm 831 */
BgL_resz00_633 =
MAKE_PAIR(BGl_symbol2781z00zzblibz00, BgL_resz00_633); } else
{ /* blib.scm 831 */BFALSE; }
if(
(BgL_oz00_91 & S_IRUSR) == S_IRUSR)
{ /* blib.scm 833 */
BgL_resz00_633 =
MAKE_PAIR(BGl_symbol2783z00zzblibz00, BgL_resz00_633); } else
{ /* blib.scm 833 */BFALSE; }
if(
(BgL_oz00_91 & S_IWUSR) == S_IWUSR)
{ /* blib.scm 835 */
BgL_resz00_633 =
MAKE_PAIR(BGl_symbol2785z00zzblibz00, BgL_resz00_633); } else
{ /* blib.scm 835 */BFALSE; }
if(
(BgL_oz00_91 & S_IXUSR) == S_IXUSR)
{ /* blib.scm 837 */
BgL_resz00_633 =
MAKE_PAIR(BGl_symbol2787z00zzblibz00, BgL_resz00_633); } else
{ /* blib.scm 837 */BFALSE; }
if(
(BgL_oz00_91 & S_IRGRP) == S_IRGRP)
{ /* blib.scm 842 */
BgL_resz00_633 =
MAKE_PAIR(BGl_symbol2789z00zzblibz00, BgL_resz00_633); } else
{ /* blib.scm 842 */BFALSE; }
if(
(BgL_oz00_91 & S_IWGRP) == S_IWGRP)
{ /* blib.scm 847 */
BgL_resz00_633 =
MAKE_PAIR(BGl_symbol2791z00zzblibz00, BgL_resz00_633); } else
{ /* blib.scm 847 */BFALSE; }
if(
(BgL_oz00_91 & S_IXGRP) == S_IXGRP)
{ /* blib.scm 852 */
BgL_resz00_633 =
MAKE_PAIR(BGl_symbol2793z00zzblibz00, BgL_resz00_633); } else
{ /* blib.scm 852 */BFALSE; }
if(
(BgL_oz00_91 & S_IROTH) == S_IROTH)
{ /* blib.scm 857 */
BgL_resz00_633 =
MAKE_PAIR(BGl_symbol2795z00zzblibz00, BgL_resz00_633); } else
{ /* blib.scm 857 */BFALSE; }
if(
(BgL_oz00_91 & S_IWOTH) == S_IWOTH)
{ /* blib.scm 862 */
BgL_resz00_633 =
MAKE_PAIR(BGl_symbol2797z00zzblibz00, BgL_resz00_633); } else
{ /* blib.scm 862 */BFALSE; }
if(
(BgL_oz00_91 & S_IXOTH) == S_IXOTH)
{ /* blib.scm 867 */
BgL_resz00_633 =
MAKE_PAIR(BGl_symbol2799z00zzblibz00, BgL_resz00_633); } else
{ /* blib.scm 867 */BFALSE; }
{ /* blib.scm 869 */
obj_t BgL_aux2427z00_1695;
BgL_aux2427z00_1695 = BgL_resz00_633;
if(
BGl_stmodezf3zf3zzblibz00(BgL_aux2427z00_1695))
{ /* blib.scm 869 */
BgL_aux2119z00_1224 = BgL_aux2427z00_1695; } else
{ /* blib.scm 869 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2806z00zzblibz00, BGl_string2808z00zzblibz00, BgL_aux2427z00_1695, BGl_string2460z00zzblibz00,
BINT(((long)25353)));
exit( -1 );} } }
POP_TRACE();
return BgL_aux2119z00_1224;} } } }
}
/* _stmode->bstmode */
obj_t BGl__stmodezd2ze3bstmodez31zzblibz00(obj_t BgL_envz00_1377, obj_t BgL_oz00_1378)
{ AN_OBJECT;
{ /* blib.scm 792 */
{ /* blib.scm 795 */
int BgL_auxz00_3858;
{ /* blib.scm 795 */
obj_t BgL_auxz00_3859;
if(
BGl_stmodezf3zf3zzblibz00(BgL_oz00_1378))
{ /* blib.scm 795 */
BgL_auxz00_3859 = BgL_oz00_1378
; } else
{ /* blib.scm 795 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2809z00zzblibz00, BGl_string2811z00zzblibz00, BgL_oz00_1378, BGl_string2460z00zzblibz00,
BINT(((long)22878)));
exit( -1 );}
BgL_auxz00_3858 =
BGl_bstmodezd2ze3stmodez31zzblibz00(BgL_auxz00_3859); }
return
BGl_stmodezd2ze3bstmodez31zzblibz00(BgL_auxz00_3858);} }
}
/* stmode? */
BGL_EXPORTED_DEF bool_t BGl_stmodezf3zf3zzblibz00(obj_t BgL_oz00_92)
{ AN_OBJECT;
{ /* blib.scm 872 */
{ /* blib.scm 873 */
obj_t BgL_symbol2122z00_1225;
BgL_symbol2122z00_1225 = BGl_symbol2812z00zzblibz00;
{ /* blib.scm 873 */
PUSH_TRACE(BgL_symbol2122z00_1225);
{ /* blib.scm 873 */
bool_t BgL_aux2121z00_1226;
if(
BGl_listzf3zf3zz__r4_pairs_and_lists_6_3z00(BgL_oz00_92))
{ /* blib.scm 874 */
obj_t BgL_arg1996z00_654;
{ /* blib.scm 874 */
obj_t BgL_list1997z00_655;
BgL_list1997z00_655 =
MAKE_PAIR(BGl_list2814z00zzblibz00, BNIL);
BgL_arg1996z00_654 =
BGl_lsetzd2differencezd2zzblibz00(BGl_eqzf3zd2envz21zz__r4_equivalence_6_2z00, BgL_oz00_92, BgL_list1997z00_655); }
BgL_aux2121z00_1226 =
NULLP(BgL_arg1996z00_654); } else
{ /* blib.scm 873 */
BgL_aux2121z00_1226 = ((bool_t)0); }
POP_TRACE();
return BgL_aux2121z00_1226;} } } }
}
/* _stmode? */
obj_t BGl__stmodezf3zf3zzblibz00(obj_t BgL_envz00_1379, obj_t BgL_oz00_1380)
{ AN_OBJECT;
{ /* blib.scm 872 */
return
BBOOL(
BGl_stmodezf3zf3zzblibz00(BgL_oz00_1380));}
}
/* stat-mode */
BGL_EXPORTED_DEF int BGl_statzd2modezd2zzblibz00(struct stat* BgL_oz00_93)
{ AN_OBJECT;
{ /* blib.scm 897 */
{ /* blib.scm 898 */
obj_t BgL_symbol2124z00_1227;
BgL_symbol2124z00_1227 = BGl_symbol2815z00zzblibz00;
{ /* blib.scm 898 */
PUSH_TRACE(BgL_symbol2124z00_1227);
{ /* blib.scm 898 */
int BgL_aux2123z00_1228;
{ /* blib.scm 898 */
int BgL_resultz00_1120;
BgL_resultz00_1120 =
BgL_oz00_93->st_mode;
BgL_aux2123z00_1228 = BgL_resultz00_1120; }
POP_TRACE();
return BgL_aux2123z00_1228;} } } }
}
/* _stat-mode */
obj_t BGl__statzd2modezd2zzblibz00(obj_t BgL_envz00_1384, obj_t BgL_oz00_1385)
{ AN_OBJECT;
{ /* blib.scm 897 */
{ /* blib.scm 898 */
int BgL_auxz00_3879;
{ /* blib.scm 898 */
struct stat* BgL_auxz00_3880;
if(
BGl_statzf3zf3zzblibz00(BgL_oz00_1385))
{ /* blib.scm 898 */
BgL_auxz00_3880 =
(struct stat*)FOREIGN_TO_COBJ(BgL_oz00_1385)
; } else
{ /* blib.scm 898 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2817z00zzblibz00, BGl_string2756z00zzblibz00, BgL_oz00_1385, BGl_string2460z00zzblibz00,
BINT(((long)26045)));
exit( -1 );}
BgL_auxz00_3879 =
BGl_statzd2modezd2zzblibz00(BgL_auxz00_3880); }
return
BGl_stmodezd2ze3bstmodez31zzblibz00(BgL_auxz00_3879);} }
}
/* stat-ino */
BGL_EXPORTED_DEF int BGl_statzd2inozd2zzblibz00(struct stat* BgL_oz00_94)
{ AN_OBJECT;
{ /* blib.scm 902 */
{ /* blib.scm 903 */
obj_t BgL_symbol2126z00_1229;
BgL_symbol2126z00_1229 = BGl_symbol2819z00zzblibz00;
{ /* blib.scm 903 */
PUSH_TRACE(BgL_symbol2126z00_1229);
{ /* blib.scm 903 */
int BgL_aux2125z00_1230;
{ /* blib.scm 903 */
int BgL_resultz00_1121;
BgL_resultz00_1121 =
BgL_oz00_94->st_ino;
BgL_aux2125z00_1230 = BgL_resultz00_1121; }
POP_TRACE();
return BgL_aux2125z00_1230;} } } }
}
/* _stat-ino */
obj_t BGl__statzd2inozd2zzblibz00(obj_t BgL_envz00_1386, obj_t BgL_oz00_1387)
{ AN_OBJECT;
{ /* blib.scm 902 */
{ /* blib.scm 903 */
int BgL_auxz00_3892;
{ /* blib.scm 903 */
struct stat* BgL_auxz00_3893;
if(
BGl_statzf3zf3zzblibz00(BgL_oz00_1387))
{ /* blib.scm 903 */
BgL_auxz00_3893 =
(struct stat*)FOREIGN_TO_COBJ(BgL_oz00_1387)
; } else
{ /* blib.scm 903 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2821z00zzblibz00, BGl_string2756z00zzblibz00, BgL_oz00_1387, BGl_string2460z00zzblibz00,
BINT(((long)26144)));
exit( -1 );}
BgL_auxz00_3892 =
BGl_statzd2inozd2zzblibz00(BgL_auxz00_3893); }
return
BINT(BgL_auxz00_3892);} }
}
/* stat-dev */
BGL_EXPORTED_DEF dev_t BGl_statzd2devzd2zzblibz00(struct stat* BgL_oz00_95)
{ AN_OBJECT;
{ /* blib.scm 907 */
{ /* blib.scm 908 */
obj_t BgL_symbol2128z00_1231;
BgL_symbol2128z00_1231 = BGl_symbol2823z00zzblibz00;
{ /* blib.scm 908 */
PUSH_TRACE(BgL_symbol2128z00_1231);
{ /* blib.scm 908 */
dev_t BgL_aux2127z00_1232;
{ /* blib.scm 908 */
dev_t BgL_resultz00_1122;
BgL_resultz00_1122 =
BgL_oz00_95->st_dev;
BgL_aux2127z00_1232 = BgL_resultz00_1122; }
POP_TRACE();
return BgL_aux2127z00_1232;} } } }
}
/* _stat-dev */
obj_t BGl__statzd2devzd2zzblibz00(obj_t BgL_envz00_1388, obj_t BgL_oz00_1389)
{ AN_OBJECT;
{ /* blib.scm 907 */
{ /* blib.scm 908 */
unsigned long BgL_auxz00_3905;
{ /* blib.scm 908 */
struct stat* BgL_auxz00_3906;
if(
BGl_statzf3zf3zzblibz00(BgL_oz00_1389))
{ /* blib.scm 908 */
BgL_auxz00_3906 =
(struct stat*)FOREIGN_TO_COBJ(BgL_oz00_1389)
; } else
{ /* blib.scm 908 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2825z00zzblibz00, BGl_string2756z00zzblibz00, BgL_oz00_1389, BGl_string2460z00zzblibz00,
BINT(((long)26241)));
exit( -1 );}
BgL_auxz00_3905 =
BGl_statzd2devzd2zzblibz00(BgL_auxz00_3906); }
return
BINT(BgL_auxz00_3905);} }
}
/* stat-rdev */
BGL_EXPORTED_DEF int BGl_statzd2rdevzd2zzblibz00(struct stat* BgL_oz00_96)
{ AN_OBJECT;
{ /* blib.scm 912 */
{ /* blib.scm 913 */
obj_t BgL_symbol2130z00_1233;
BgL_symbol2130z00_1233 = BGl_symbol2827z00zzblibz00;
{ /* blib.scm 913 */
PUSH_TRACE(BgL_symbol2130z00_1233);
{ /* blib.scm 913 */
int BgL_aux2129z00_1234;
{ /* blib.scm 913 */
int BgL_resultz00_1123;
BgL_resultz00_1123 =
BgL_oz00_96->st_rdev;
BgL_aux2129z00_1234 = BgL_resultz00_1123; }
POP_TRACE();
return BgL_aux2129z00_1234;} } } }
}
/* _stat-rdev */
obj_t BGl__statzd2rdevzd2zzblibz00(obj_t BgL_envz00_1390, obj_t BgL_oz00_1391)
{ AN_OBJECT;
{ /* blib.scm 912 */
{ /* blib.scm 913 */
int BgL_auxz00_3918;
{ /* blib.scm 913 */
struct stat* BgL_auxz00_3919;
if(
BGl_statzf3zf3zzblibz00(BgL_oz00_1391))
{ /* blib.scm 913 */
BgL_auxz00_3919 =
(struct stat*)FOREIGN_TO_COBJ(BgL_oz00_1391)
; } else
{ /* blib.scm 913 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2829z00zzblibz00, BGl_string2756z00zzblibz00, BgL_oz00_1391, BGl_string2460z00zzblibz00,
BINT(((long)26339)));
exit( -1 );}
BgL_auxz00_3918 =
BGl_statzd2rdevzd2zzblibz00(BgL_auxz00_3919); }
return
BINT(BgL_auxz00_3918);} }
}
/* stat-nlink */
BGL_EXPORTED_DEF int BGl_statzd2nlinkzd2zzblibz00(struct stat* BgL_oz00_97)
{ AN_OBJECT;
{ /* blib.scm 917 */
{ /* blib.scm 918 */
obj_t BgL_symbol2132z00_1235;
BgL_symbol2132z00_1235 = BGl_symbol2831z00zzblibz00;
{ /* blib.scm 918 */
PUSH_TRACE(BgL_symbol2132z00_1235);
{ /* blib.scm 918 */
int BgL_aux2131z00_1236;
{ /* blib.scm 918 */
int BgL_resultz00_1124;
BgL_resultz00_1124 =
BgL_oz00_97->st_nlink;
BgL_aux2131z00_1236 = BgL_resultz00_1124; }
POP_TRACE();
return BgL_aux2131z00_1236;} } } }
}
/* _stat-nlink */
obj_t BGl__statzd2nlinkzd2zzblibz00(obj_t BgL_envz00_1392, obj_t BgL_oz00_1393)
{ AN_OBJECT;
{ /* blib.scm 917 */
{ /* blib.scm 918 */
int BgL_auxz00_3931;
{ /* blib.scm 918 */
struct stat* BgL_auxz00_3932;
if(
BGl_statzf3zf3zzblibz00(BgL_oz00_1393))
{ /* blib.scm 918 */
BgL_auxz00_3932 =
(struct stat*)FOREIGN_TO_COBJ(BgL_oz00_1393)
; } else
{ /* blib.scm 918 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2833z00zzblibz00, BGl_string2756z00zzblibz00, BgL_oz00_1393, BGl_string2460z00zzblibz00,
BINT(((long)26437)));
exit( -1 );}
BgL_auxz00_3931 =
BGl_statzd2nlinkzd2zzblibz00(BgL_auxz00_3932); }
return
BINT(BgL_auxz00_3931);} }
}
/* stat-uid */
BGL_EXPORTED_DEF int BGl_statzd2uidzd2zzblibz00(struct stat* BgL_oz00_98)
{ AN_OBJECT;
{ /* blib.scm 922 */
{ /* blib.scm 923 */
obj_t BgL_symbol2134z00_1237;
BgL_symbol2134z00_1237 = BGl_symbol2835z00zzblibz00;
{ /* blib.scm 923 */
PUSH_TRACE(BgL_symbol2134z00_1237);
{ /* blib.scm 923 */
int BgL_aux2133z00_1238;
{ /* blib.scm 923 */
int BgL_resultz00_1125;
BgL_resultz00_1125 =
BgL_oz00_98->st_uid;
BgL_aux2133z00_1238 = BgL_resultz00_1125; }
POP_TRACE();
return BgL_aux2133z00_1238;} } } }
}
/* _stat-uid */
obj_t BGl__statzd2uidzd2zzblibz00(obj_t BgL_envz00_1394, obj_t BgL_oz00_1395)
{ AN_OBJECT;
{ /* blib.scm 922 */
{ /* blib.scm 923 */
int BgL_auxz00_3944;
{ /* blib.scm 923 */
struct stat* BgL_auxz00_3945;
if(
BGl_statzf3zf3zzblibz00(BgL_oz00_1395))
{ /* blib.scm 923 */
BgL_auxz00_3945 =
(struct stat*)FOREIGN_TO_COBJ(BgL_oz00_1395)
; } else
{ /* blib.scm 923 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2837z00zzblibz00, BGl_string2756z00zzblibz00, BgL_oz00_1395, BGl_string2460z00zzblibz00,
BINT(((long)26534)));
exit( -1 );}
BgL_auxz00_3944 =
BGl_statzd2uidzd2zzblibz00(BgL_auxz00_3945); }
return
BINT(BgL_auxz00_3944);} }
}
/* stat-gid */
BGL_EXPORTED_DEF int BGl_statzd2gidzd2zzblibz00(struct stat* BgL_oz00_99)
{ AN_OBJECT;
{ /* blib.scm 927 */
{ /* blib.scm 928 */
obj_t BgL_symbol2136z00_1239;
BgL_symbol2136z00_1239 = BGl_symbol2839z00zzblibz00;
{ /* blib.scm 928 */
PUSH_TRACE(BgL_symbol2136z00_1239);
{ /* blib.scm 928 */
int BgL_aux2135z00_1240;
{ /* blib.scm 928 */
int BgL_resultz00_1126;
BgL_resultz00_1126 =
BgL_oz00_99->st_gid;
BgL_aux2135z00_1240 = BgL_resultz00_1126; }
POP_TRACE();
return BgL_aux2135z00_1240;} } } }
}
/* _stat-gid */
obj_t BGl__statzd2gidzd2zzblibz00(obj_t BgL_envz00_1396, obj_t BgL_oz00_1397)
{ AN_OBJECT;
{ /* blib.scm 927 */
{ /* blib.scm 928 */
int BgL_auxz00_3957;
{ /* blib.scm 928 */
struct stat* BgL_auxz00_3958;
if(
BGl_statzf3zf3zzblibz00(BgL_oz00_1397))
{ /* blib.scm 928 */
BgL_auxz00_3958 =
(struct stat*)FOREIGN_TO_COBJ(BgL_oz00_1397)
; } else
{ /* blib.scm 928 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2841z00zzblibz00, BGl_string2756z00zzblibz00, BgL_oz00_1397, BGl_string2460z00zzblibz00,
BINT(((long)26629)));
exit( -1 );}
BgL_auxz00_3957 =
BGl_statzd2gidzd2zzblibz00(BgL_auxz00_3958); }
return
BINT(BgL_auxz00_3957);} }
}
/* stat-size */
BGL_EXPORTED_DEF long BGl_statzd2siza7ez75zzblibz00(struct stat* BgL_oz00_100)
{ AN_OBJECT;
{ /* blib.scm 932 */
{ /* blib.scm 933 */
obj_t BgL_symbol2138z00_1241;
BgL_symbol2138z00_1241 = BGl_symbol2843z00zzblibz00;
{ /* blib.scm 933 */
PUSH_TRACE(BgL_symbol2138z00_1241);
{ /* blib.scm 933 */
long BgL_aux2137z00_1242;
{ /* blib.scm 933 */
long BgL_resultz00_1127;
BgL_resultz00_1127 =
BgL_oz00_100->st_size;
BgL_aux2137z00_1242 = BgL_resultz00_1127; }
POP_TRACE();
return BgL_aux2137z00_1242;} } } }
}
/* _stat-size */
obj_t BGl__statzd2siza7ez75zzblibz00(obj_t BgL_envz00_1398, obj_t BgL_oz00_1399)
{ AN_OBJECT;
{ /* blib.scm 932 */
{ /* blib.scm 933 */
long BgL_auxz00_3970;
{ /* blib.scm 933 */
struct stat* BgL_auxz00_3971;
if(
BGl_statzf3zf3zzblibz00(BgL_oz00_1399))
{ /* blib.scm 933 */
BgL_auxz00_3971 =
(struct stat*)FOREIGN_TO_COBJ(BgL_oz00_1399)
; } else
{ /* blib.scm 933 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2845z00zzblibz00, BGl_string2756z00zzblibz00, BgL_oz00_1399, BGl_string2460z00zzblibz00,
BINT(((long)26726)));
exit( -1 );}
BgL_auxz00_3970 =
BGl_statzd2siza7ez75zzblibz00(BgL_auxz00_3971); }
return
BINT(BgL_auxz00_3970);} }
}
/* stat-atime */
BGL_EXPORTED_DEF double BGl_statzd2atimezd2zzblibz00(struct stat* BgL_oz00_101)
{ AN_OBJECT;
{ /* blib.scm 937 */
{ /* blib.scm 938 */
obj_t BgL_symbol2140z00_1243;
BgL_symbol2140z00_1243 = BGl_symbol2847z00zzblibz00;
{ /* blib.scm 938 */
PUSH_TRACE(BgL_symbol2140z00_1243);
{ /* blib.scm 938 */
double BgL_aux2139z00_1244;
{ /* blib.scm 938 */
double BgL_resultz00_1128;
BgL_resultz00_1128 =
BgL_oz00_101->st_atime;
BgL_aux2139z00_1244 = BgL_resultz00_1128; }
POP_TRACE();
return BgL_aux2139z00_1244;} } } }
}
/* _stat-atime */
obj_t BGl__statzd2atimezd2zzblibz00(obj_t BgL_envz00_1400, obj_t BgL_oz00_1401)
{ AN_OBJECT;
{ /* blib.scm 937 */
{ /* blib.scm 938 */
double BgL_auxz00_3983;
{ /* blib.scm 938 */
struct stat* BgL_auxz00_3984;
if(
BGl_statzf3zf3zzblibz00(BgL_oz00_1401))
{ /* blib.scm 938 */
BgL_auxz00_3984 =
(struct stat*)FOREIGN_TO_COBJ(BgL_oz00_1401)
; } else
{ /* blib.scm 938 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2849z00zzblibz00, BGl_string2756z00zzblibz00, BgL_oz00_1401, BGl_string2460z00zzblibz00,
BINT(((long)26828)));
exit( -1 );}
BgL_auxz00_3983 =
BGl_statzd2atimezd2zzblibz00(BgL_auxz00_3984); }
return
DOUBLE_TO_REAL(BgL_auxz00_3983);} }
}
/* stat-mtime */
BGL_EXPORTED_DEF double BGl_statzd2mtimezd2zzblibz00(struct stat* BgL_oz00_102)
{ AN_OBJECT;
{ /* blib.scm 942 */
{ /* blib.scm 943 */
obj_t BgL_symbol2142z00_1245;
BgL_symbol2142z00_1245 = BGl_symbol2851z00zzblibz00;
{ /* blib.scm 943 */
PUSH_TRACE(BgL_symbol2142z00_1245);
{ /* blib.scm 943 */
double BgL_aux2141z00_1246;
{ /* blib.scm 943 */
double BgL_resultz00_1129;
BgL_resultz00_1129 =
BgL_oz00_102->st_mtime;
BgL_aux2141z00_1246 = BgL_resultz00_1129; }
POP_TRACE();
return BgL_aux2141z00_1246;} } } }
}
/* _stat-mtime */
obj_t BGl__statzd2mtimezd2zzblibz00(obj_t BgL_envz00_1402, obj_t BgL_oz00_1403)
{ AN_OBJECT;
{ /* blib.scm 942 */
{ /* blib.scm 943 */
double BgL_auxz00_3996;
{ /* blib.scm 943 */
struct stat* BgL_auxz00_3997;
if(
BGl_statzf3zf3zzblibz00(BgL_oz00_1403))
{ /* blib.scm 943 */
BgL_auxz00_3997 =
(struct stat*)FOREIGN_TO_COBJ(BgL_oz00_1403)
; } else
{ /* blib.scm 943 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2853z00zzblibz00, BGl_string2756z00zzblibz00, BgL_oz00_1403, BGl_string2460z00zzblibz00,
BINT(((long)26933)));
exit( -1 );}
BgL_auxz00_3996 =
BGl_statzd2mtimezd2zzblibz00(BgL_auxz00_3997); }
return
DOUBLE_TO_REAL(BgL_auxz00_3996);} }
}
/* stat-ctime */
BGL_EXPORTED_DEF double BGl_statzd2ctimezd2zzblibz00(struct stat* BgL_oz00_103)
{ AN_OBJECT;
{ /* blib.scm 947 */
{ /* blib.scm 948 */
obj_t BgL_symbol2144z00_1247;
BgL_symbol2144z00_1247 = BGl_symbol2855z00zzblibz00;
{ /* blib.scm 948 */
PUSH_TRACE(BgL_symbol2144z00_1247);
{ /* blib.scm 948 */
double BgL_aux2143z00_1248;
{ /* blib.scm 948 */
double BgL_resultz00_1130;
BgL_resultz00_1130 =
BgL_oz00_103->st_ctime;
BgL_aux2143z00_1248 = BgL_resultz00_1130; }
POP_TRACE();
return BgL_aux2143z00_1248;} } } }
}
/* _stat-ctime */
obj_t BGl__statzd2ctimezd2zzblibz00(obj_t BgL_envz00_1404, obj_t BgL_oz00_1405)
{ AN_OBJECT;
{ /* blib.scm 947 */
{ /* blib.scm 948 */
double BgL_auxz00_4009;
{ /* blib.scm 948 */
struct stat* BgL_auxz00_4010;
if(
BGl_statzf3zf3zzblibz00(BgL_oz00_1405))
{ /* blib.scm 948 */
BgL_auxz00_4010 =
(struct stat*)FOREIGN_TO_COBJ(BgL_oz00_1405)
; } else
{ /* blib.scm 948 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2857z00zzblibz00, BGl_string2756z00zzblibz00, BgL_oz00_1405, BGl_string2460z00zzblibz00,
BINT(((long)27038)));
exit( -1 );}
BgL_auxz00_4009 =
BGl_statzd2ctimezd2zzblibz00(BgL_auxz00_4010); }
return
DOUBLE_TO_REAL(BgL_auxz00_4009);} }
}
/* fd-set? */
BGL_EXPORTED_DEF bool_t BGl_fdzd2setzf3z21zzblibz00(obj_t BgL_oz00_104)
{ AN_OBJECT;
{ /* blib.scm 951 */
{ /* blib.scm 952 */
obj_t BgL_symbol2146z00_1249;
BgL_symbol2146z00_1249 = BGl_symbol2859z00zzblibz00;
{ /* blib.scm 952 */
PUSH_TRACE(BgL_symbol2146z00_1249);
{ /* blib.scm 952 */
bool_t BgL_aux2145z00_1250;
if(
FOREIGNP(BgL_oz00_104))
{ /* blib.scm 952 */
obj_t BgL_arg2003z00_1132;obj_t BgL_arg2009z00_1133;
BgL_arg2003z00_1132 =
FOREIGN_ID(BgL_oz00_104);
BgL_arg2009z00_1133 = BGl_symbol2861z00zzblibz00;
BgL_aux2145z00_1250 =
(BgL_arg2003z00_1132==BgL_arg2009z00_1133); } else
{ /* blib.scm 952 */
BgL_aux2145z00_1250 = ((bool_t)0); }
POP_TRACE();
return BgL_aux2145z00_1250;} } } }
}
/* _fd-set? */
obj_t BGl__fdzd2setzf3z21zzblibz00(obj_t BgL_envz00_1406, obj_t BgL_oz00_1407)
{ AN_OBJECT;
{ /* blib.scm 951 */
return
BBOOL(
BGl_fdzd2setzf3z21zzblibz00(BgL_oz00_1407));}
}
/* method-init */
obj_t BGl_methodzd2initzd2zzblibz00()
{ AN_OBJECT;
{ /* blib.scm 36 */
{ /* blib.scm 36 */
obj_t BgL_symbol2148z00_1251;
BgL_symbol2148z00_1251 = BGl_symbol2863z00zzblibz00;
{ /* blib.scm 36 */
PUSH_TRACE(BgL_symbol2148z00_1251);
POP_TRACE();
return BUNSPEC;} } }
}
#ifdef __cplusplus
}
#endif