/*===========================================================================*/
/*   (Llib/thread.scm)                                                       */
/*   Bigloo (4.7a)                                                           */
/*   Inria -- Sophia Antipolis (c)       Thu Feb 19 09:11:58 AM CET 2026     */
/*===========================================================================*/
/* COMPILATION: (/home/serrano/prgm/project/bigloo/4.7a/bin/bigloo -srfi bigloo-safe -O3 -fcfa-arithmetic -q -lib-dir /home/serrano/prgm/project/bigloo/4.7a/lib/bigloo/4.7a +rm -O3 -mklib -cc gcc -fsharing -q -unsafev -eval (set! *indent* 4) -stdc -c Llib/thread.scm -indent -o objs/obj_s/Llib/thread.c) */
/* GC selection */
#define THE_GC BOEHM_GC

/* traces mode */
#define BIGLOO_TRACE 0

/* standard Bigloo include */
#include <bigloo.h>

#ifdef __cplusplus
extern "C" {
#endif
#ifndef BGL_MODULE_TYPE_DEFINITIONS
#define BGL_MODULE_TYPE_DEFINITIONS
#ifndef BGL___THREAD_TYPE_DEFINITIONS
#define BGL___THREAD_TYPE_DEFINITIONS

/* object type definitions */
typedef struct BgL_nothreadzd2backendzd2_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_namez00;
} *BgL_nothreadzd2backendzd2_bglt;

typedef struct BgL_threadzd2backendzd2_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_namez00;
} *BgL_threadzd2backendzd2_bglt;

typedef struct BgL_threadz00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_namez00;
} *BgL_threadz00_bglt;

typedef struct BgL_nothreadz00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_namez00;
   obj_t BgL_bodyz00;
   obj_t BgL_z52specificz52;
   obj_t BgL_z52cleanupz52;
   obj_t BgL_endzd2resultzd2;
   obj_t BgL_endzd2exceptionzd2;
   obj_t BgL_z52namez52;
} *BgL_nothreadz00_bglt;


#endif // BGL___THREAD_TYPE_DEFINITIONS
#endif // BGL_MODULE_TYPE_DEFINITIONS

static obj_t BGl_z62threadzd2killz12zd2nothrea1242z70zz__threadz00(obj_t, obj_t, obj_t);
static obj_t BGl_symbol2720z00zz__threadz00 = BUNSPEC;
static obj_t BGl_symbol2802z00zz__threadz00 = BUNSPEC;
static obj_t BGl_z62threadzd2specificzd2noth1244z62zz__threadz00(obj_t, obj_t);
static obj_t BGl_symbol2722z00zz__threadz00 = BUNSPEC;
static obj_t BGl_symbol2561z00zz__threadz00 = BUNSPEC;
static obj_t BGl_symbol2724z00zz__threadz00 = BUNSPEC;
static obj_t BGl_symbol2563z00zz__threadz00 = BUNSPEC;
static obj_t BGl_z62threadzd2namezd2setz12z70zz__threadz00(obj_t, obj_t, obj_t);
static obj_t BGl_z62threadzd2parameterzd2setz12z70zz__threadz00(obj_t, obj_t, obj_t);
static obj_t BGl_symbol2807z00zz__threadz00 = BUNSPEC;
static obj_t BGl_symbol2726z00zz__threadz00 = BUNSPEC;
static obj_t BGl_symbol2728z00zz__threadz00 = BUNSPEC;
static obj_t BGl_z62z52userzd2currentzd2thread1225z30zz__threadz00(obj_t, obj_t);
static obj_t BGl_symbol2567z00zz__threadz00 = BUNSPEC;
static obj_t BGl_symbol2568z00zz__threadz00 = BUNSPEC;
static obj_t BGl_list2535z00zz__threadz00 = BUNSPEC;
extern obj_t bgl_make_nil_condvar(void);
static obj_t BGl_z52currentzd2threadz80zz__threadz00(void);
BGL_EXPORTED_DECL obj_t BGl_threadzd2cleanupzd2zz__threadz00(BgL_threadz00_bglt);
static obj_t BGl_z62threadzd2namezd2setz12zd2not1254za2zz__threadz00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_z52userzd2threadzd2sleepz12z40zz__threadz00(BgL_threadz00_bglt, obj_t);
BGL_EXPORTED_DECL obj_t BGl_tbzd2condvarzd2initializa7ez12zb5zz__threadz00(BgL_threadzd2backendzd2_bglt, obj_t);
static obj_t BGl_z62zc3z04anonymousza31418ze3ze5zz__threadz00(obj_t, obj_t);
static obj_t BGl_z62threadzd2cleanupzd2setz121214z70zz__threadz00(obj_t, obj_t, obj_t);
static obj_t BGl_z62zc3z04anonymousza31579ze3ze5zz__threadz00(obj_t);
static obj_t BGl_z62z52userzd2threadzd2yieldz121231z22zz__threadz00(obj_t, obj_t);
static obj_t BGl_z62threadzd2joinz12za2zz__threadz00(obj_t, obj_t, obj_t);
static obj_t BGl__makezd2mutexzd2zz__threadz00(obj_t, obj_t);
static obj_t BGl_z62z52userzd2currentzd2threadz30zz__threadz00(obj_t, obj_t);
static obj_t BGl_symbol2811z00zz__threadz00 = BUNSPEC;
static obj_t BGl_symbol2730z00zz__threadz00 = BUNSPEC;
static obj_t BGl_symbol2813z00zz__threadz00 = BUNSPEC;
static obj_t BGl_symbol2732z00zz__threadz00 = BUNSPEC;
static obj_t BGl_symbol2734z00zz__threadz00 = BUNSPEC;
static obj_t BGl_symbol2573z00zz__threadz00 = BUNSPEC;
static obj_t BGl_symbol2818z00zz__threadz00 = BUNSPEC;
static obj_t BGl_symbol2737z00zz__threadz00 = BUNSPEC;
static obj_t BGl_z62tbzd2currentzd2threadzd2no1184zb0zz__threadz00(obj_t, obj_t);
extern obj_t BGl_classzd2constructorzd2zz__objectz00(obj_t);
BGL_EXPORTED_DECL obj_t BGl_conditionzd2variablezd2nilz00zz__threadz00(void);
BGL_EXPORTED_DECL obj_t BGl_mutexzd2lockz12zc0zz__threadz00(obj_t, long);
static obj_t BGl_symbol2739z00zz__threadz00 = BUNSPEC;
static obj_t BGl_symbol2577z00zz__threadz00 = BUNSPEC;
static obj_t BGl_symbol2496z00zz__threadz00 = BUNSPEC;
BGL_EXPORTED_DECL obj_t BGl_threadzd2specificzd2zz__threadz00(BgL_threadz00_bglt);
static obj_t BGl_symbol2499z00zz__threadz00 = BUNSPEC;
static obj_t BGl_z62zc3z04anonymousza31362ze3ze5zz__threadz00(obj_t);
static obj_t BGl_z62threadzd2specificzb0zz__threadz00(obj_t, obj_t);
static obj_t BGl_requirezd2initializa7ationz75zz__threadz00 = BUNSPEC;
BGL_EXPORTED_DECL obj_t BGl_withzd2lockzd2zz__threadz00(obj_t, obj_t);
static obj_t BGl_za2threadzd2backendsza2zd2zz__threadz00 = BUNSPEC;
extern obj_t BGl_raisez00zz__errorz00(obj_t);
extern obj_t bgl_remq_bang(obj_t, obj_t);
extern obj_t BGl_exitz00zz__errorz00(obj_t);
static obj_t BGl_z62threadzd2joinz121201za2zz__threadz00(obj_t, obj_t, obj_t);
static obj_t BGl_symbol2821z00zz__threadz00 = BUNSPEC;
static obj_t BGl_symbol2741z00zz__threadz00 = BUNSPEC;
static obj_t BGl_symbol2743z00zz__threadz00 = BUNSPEC;
static obj_t BGl_symbol2581z00zz__threadz00 = BUNSPEC;
BGL_EXPORTED_DECL obj_t BGl_threadzd2cleanupzd2setz12z12zz__threadz00(BgL_threadz00_bglt, obj_t);
static obj_t BGl_symbol2827z00zz__threadz00 = BUNSPEC;
extern void bgl_sleep(long);
static obj_t BGl_symbol2748z00zz__threadz00 = BUNSPEC;
static obj_t BGl_list2634z00zz__threadz00 = BUNSPEC;
BGL_EXPORTED_DECL obj_t BGl_threadzd2joinz12zc0zz__threadz00(BgL_threadz00_bglt, obj_t);
BGL_EXPORTED_DECL obj_t BGl_z52userzd2currentzd2threadz52zz__threadz00(BgL_threadz00_bglt);
extern obj_t BGl_typezd2errorzd2zz__errorz00(obj_t, obj_t, obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_modulezd2initializa7ationz75zz__threadz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zz__objectz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zz__errorz00(long, char *);
BGL_EXPORTED_DECL bool_t BGl_conditionzd2variablezd2broadcastz12z12zz__threadz00(obj_t);
static obj_t BGl_z62tbzd2mutexzd2initializa7ez12zd7zz__threadz00(obj_t, obj_t, obj_t);
extern obj_t BGl_withzd2outputzd2tozd2portzd2zz__r4_ports_6_10_1z00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_makezd2mutexzd2zz__threadz00(obj_t);
BGL_EXPORTED_DECL obj_t BGl_threadzd2sleepz12zc0zz__threadz00(obj_t);
BGL_EXPORTED_DECL obj_t BGl_defaultzd2threadzd2backendz00zz__threadz00(void);
extern obj_t BGl_za2classesza2z00zz__objectz00;
static obj_t BGl_symbol2750z00zz__threadz00 = BUNSPEC;
static obj_t BGl_symbol2832z00zz__threadz00 = BUNSPEC;
static obj_t BGl_symbol2834z00zz__threadz00 = BUNSPEC;
static obj_t BGl_list2801z00zz__threadz00 = BUNSPEC;
static obj_t BGl_symbol2591z00zz__threadz00 = BUNSPEC;
extern obj_t BGl_callzd2virtualzd2getterz00zz__objectz00(BgL_objectz00_bglt, int);
static obj_t BGl_symbol2755z00zz__threadz00 = BUNSPEC;
static obj_t BGl_symbol2593z00zz__threadz00 = BUNSPEC;
extern obj_t bgl_nanoseconds_to_date(BGL_LONGLONG_T);
static obj_t BGl_symbol2839z00zz__threadz00 = BUNSPEC;
static obj_t BGl_list2806z00zz__threadz00 = BUNSPEC;
static obj_t BGl_z62threadzd2namezb0zz__threadz00(obj_t, obj_t);
static obj_t BGl_z62threadzd2parameterzb0zz__threadz00(obj_t, obj_t);
static obj_t BGl_symbol2597z00zz__threadz00 = BUNSPEC;
extern obj_t BGl_registerzd2genericz12zc0zz__objectz00(obj_t, obj_t, obj_t, obj_t);
extern bool_t BGl_classzf3zf3zz__objectz00(obj_t);
static obj_t BGl_z62threadzd2startzd2joinabl1199z62zz__threadz00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_mutexzd2statezd2zz__threadz00(obj_t);
static obj_t BGl_z62z52userzd2threadzd2sleepz121228z22zz__threadz00(obj_t, obj_t, obj_t);
static obj_t BGl_symbol2761z00zz__threadz00 = BUNSPEC;
static obj_t BGl_symbol2844z00zz__threadz00 = BUNSPEC;
BGL_EXPORTED_DECL obj_t BGl_conditionzd2variablezd2namez00zz__threadz00(obj_t);
BGL_EXPORTED_DECL obj_t BGl_currentzd2threadzd2zz__threadz00(void);
static obj_t BGl_list2812z00zz__threadz00 = BUNSPEC;
static obj_t BGl_threadzd2startz12zd2nothre1234ze70zf5zz__threadz00(BgL_nothreadz00_bglt, obj_t);
static obj_t BGl_symbol2846z00zz__threadz00 = BUNSPEC;
static obj_t BGl_nothreadzd2backendzd2zz__threadz00 = BUNSPEC;
static obj_t BGl_symbol2928z00zz__threadz00 = BUNSPEC;
static obj_t BGl_z62threadzd2startzd2joinablez12z70zz__threadz00(obj_t, obj_t);
static obj_t BGl_list2815z00zz__threadz00 = BUNSPEC;
static obj_t BGl_symbol2767z00zz__threadz00 = BUNSPEC;
static obj_t BGl_toplevelzd2initzd2zz__threadz00(void);
static obj_t BGl_list2816z00zz__threadz00 = BUNSPEC;
static obj_t BGl_list2817z00zz__threadz00 = BUNSPEC;
static obj_t BGl_symbol2769z00zz__threadz00 = BUNSPEC;
static obj_t BGl_z62conditionzd2variablezd2namez62zz__threadz00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_z52userzd2threadzd2yieldz12z40zz__threadz00(BgL_threadz00_bglt);
static obj_t BGl_z62zc3z04anonymousza31470ze3ze5zz__threadz00(obj_t);
static obj_t BGl_z62zc3z04anonymousza31462ze3ze5zz__threadz00(obj_t);
BGL_EXPORTED_DECL obj_t BGl_withzd2timedzd2lockz00zz__threadz00(obj_t, int, obj_t);
extern obj_t bgl_make_nil_mutex(void);
BGL_EXPORTED_DECL obj_t BGl_tbzd2mutexzd2initializa7ez12zb5zz__threadz00(BgL_threadzd2backendzd2_bglt, obj_t);
static obj_t BGl_z62withzd2timedzd2lockz62zz__threadz00(obj_t, obj_t, obj_t, obj_t);
static obj_t BGl_z62threadzd2cleanupzd2nothr1248z62zz__threadz00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_currentzd2threadzd2backendz00zz__threadz00(void);
static BgL_nothreadzd2backendzd2_bglt BGl_za2nothreadzd2backendza2zd2zz__threadz00;
static obj_t BGl_symbol2851z00zz__threadz00 = BUNSPEC;
static obj_t BGl_list2820z00zz__threadz00 = BUNSPEC;
static obj_t BGl_symbol2773z00zz__threadz00 = BUNSPEC;
static obj_t BGl_symbol2937z00zz__threadz00 = BUNSPEC;
static obj_t BGl_symbol2856z00zz__threadz00 = BUNSPEC;
static obj_t BGl_list2823z00zz__threadz00 = BUNSPEC;
static obj_t BGl_symbol2775z00zz__threadz00 = BUNSPEC;
static obj_t BGl_list2826z00zz__threadz00 = BUNSPEC;
static obj_t BGl_symbol2779z00zz__threadz00 = BUNSPEC;
static obj_t BGl_z62threadzd2specificzd2setz121210z70zz__threadz00(obj_t, obj_t, obj_t);
static obj_t BGl_list2747z00zz__threadz00 = BUNSPEC;
static obj_t BGl_z62currentzd2dynamiczd2envz62zz__threadz00(obj_t);
static obj_t BGl_z62zc3z04anonymousza31455ze3ze5zz__threadz00(obj_t);
static obj_t BGl_z62zc3z04anonymousza31447ze3ze5zz__threadz00(obj_t);
BGL_EXPORTED_DECL obj_t BGl_threadzd2startz12zc0zz__threadz00(BgL_threadz00_bglt, obj_t);
static BgL_nothreadz00_bglt BGl_z62lambda1427z62zz__threadz00(obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t);
static obj_t BGl_z62threadzd2name1216zb0zz__threadz00(obj_t, obj_t);
extern obj_t BGl_assqz00zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
static obj_t BGl_cnstzd2initzd2zz__threadz00(void);
static obj_t BGl_genericzd2initzd2zz__threadz00(void);
BGL_EXPORTED_DECL obj_t BGl_mutexzd2namezd2zz__threadz00(obj_t);
extern long bgl_list_length(obj_t);
static obj_t BGl_z62tbzd2currentzd2thread1179z62zz__threadz00(obj_t, obj_t);
static obj_t BGl_symbol2862z00zz__threadz00 = BUNSPEC;
static obj_t BGl_symbol2782z00zz__threadz00 = BUNSPEC;
static obj_t BGl_z62mutexzd2nilzb0zz__threadz00(obj_t);
extern obj_t BGl_registerzd2classz12zc0zz__objectz00(obj_t, obj_t, obj_t, long, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t);
static obj_t BGl_list2831z00zz__threadz00 = BUNSPEC;
static obj_t BGl_symbol2784z00zz__threadz00 = BUNSPEC;
static obj_t BGl_importedzd2moduleszd2initz00zz__threadz00(void);
static BgL_threadz00_bglt BGl_z62tbzd2makezd2threadz62zz__threadz00(obj_t, obj_t, obj_t, obj_t);
static obj_t BGl_symbol2867z00zz__threadz00 = BUNSPEC;
static obj_t BGl__makezd2spinlockzd2zz__threadz00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_mutexzd2unlockz12zc0zz__threadz00(obj_t);
static obj_t BGl_symbol2787z00zz__threadz00 = BUNSPEC;
static obj_t BGl_list2754z00zz__threadz00 = BUNSPEC;
static obj_t BGl_gczd2rootszd2initz00zz__threadz00(void);
static BgL_nothreadz00_bglt BGl_z62lambda1431z62zz__threadz00(obj_t);
static obj_t BGl_list2838z00zz__threadz00 = BUNSPEC;
extern obj_t BGl_makezd2classzd2fieldz00zz__objectz00(obj_t, obj_t, obj_t, bool_t, bool_t, obj_t, obj_t, obj_t);
static obj_t BGl_z62zc3z04anonymousza31375ze3ze5zz__threadz00(obj_t, obj_t);
static obj_t BGl_z62lambda1437z62zz__threadz00(obj_t, obj_t);
static obj_t BGl_z62lambda1438z62zz__threadz00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_currentzd2threadzd2backendzd2setz12zc0zz__threadz00(BgL_threadzd2backendzd2_bglt);
static obj_t BGl_z62threadzd2killz12za2zz__threadz00(obj_t, obj_t, obj_t);
static obj_t BGl_z62mutexzf3z91zz__threadz00(obj_t, obj_t);
static obj_t BGl_objectzd2initzd2zz__threadz00(void);
static obj_t BGl_z62threadzd2specific1207zb0zz__threadz00(obj_t, obj_t);
extern obj_t BGl_2za2za2zz__r4_numbers_6_5z00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_threadzd2yieldz12zc0zz__threadz00(void);
static obj_t BGl_z62conditionzd2variablezf3z43zz__threadz00(obj_t, obj_t);
static obj_t BGl_z62defaultzd2threadzd2backendzd2setz12za2zz__threadz00(obj_t, obj_t);
static obj_t BGl_z62threadzd2startz12zd2nothre1234z70zz__threadz00(obj_t, obj_t, obj_t);
static obj_t BGl_z62conditionzd2variablezd2broadcastz12z70zz__threadz00(obj_t, obj_t);
static obj_t BGl__makezd2threadzd2zz__threadz00(obj_t, obj_t);
static obj_t BGl_z62threadzd2sleepz12za2zz__threadz00(obj_t, obj_t);
extern double BGl_numberzd2ze3flonumz31zz__r4_numbers_6_5z00(obj_t);
extern obj_t bgl_bignum_mul(obj_t, obj_t);
static obj_t BGl_symbol2872z00zz__threadz00 = BUNSPEC;
static obj_t BGl_symbol2791z00zz__threadz00 = BUNSPEC;
static obj_t BGl_symbol2874z00zz__threadz00 = BUNSPEC;
static obj_t BGl_list2760z00zz__threadz00 = BUNSPEC;
static obj_t BGl_z62threadzd2specificzd2setz12z70zz__threadz00(obj_t, obj_t, obj_t);
static obj_t BGl_symbol2794z00zz__threadz00 = BUNSPEC;
static obj_t BGl_symbol2957z00zz__threadz00 = BUNSPEC;
static obj_t BGl_list2843z00zz__threadz00 = BUNSPEC;
static obj_t BGl_symbol2796z00zz__threadz00 = BUNSPEC;
static obj_t BGl_symbol2959z00zz__threadz00 = BUNSPEC;
static obj_t BGl_list2927z00zz__threadz00 = BUNSPEC;
static obj_t BGl_symbol2879z00zz__threadz00 = BUNSPEC;
static obj_t BGl_symbol2799z00zz__threadz00 = BUNSPEC;
static obj_t BGl_list2766z00zz__threadz00 = BUNSPEC;
extern obj_t BGl_za2inheritancesza2z00zz__objectz00;
static obj_t BGl_z62zc3z04anonymousza31554ze3ze5zz__threadz00(obj_t);
static obj_t BGl_z62lambda1445z62zz__threadz00(obj_t, obj_t);
extern obj_t BGl_z62exceptionz62zz__objectz00;
static obj_t BGl_z62lambda1446z62zz__threadz00(obj_t, obj_t, obj_t);
extern obj_t BGl_objectz00zz__objectz00;
BGL_EXPORTED_DECL obj_t BGl_getzd2threadzd2backendz00zz__threadz00(obj_t);
extern obj_t BGl_consza2za2zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
static obj_t BGl_z62threadzd2killz121205za2zz__threadz00(obj_t, obj_t, obj_t);
static obj_t BGl_z62dynamiczd2envzf3z43zz__threadz00(obj_t, obj_t);
static obj_t BGl_z62objectzd2writezd2thread1192z62zz__threadz00(obj_t, obj_t, obj_t);
static obj_t BGl_z62mutexzd2namezb0zz__threadz00(obj_t, obj_t);
static obj_t BGl_symbol2881z00zz__threadz00 = BUNSPEC;
static obj_t BGl_z62zc3z04anonymousza31410ze3ze5zz__threadz00(obj_t, obj_t);
static obj_t BGl_list2850z00zz__threadz00 = BUNSPEC;
static obj_t BGl_symbol2886z00zz__threadz00 = BUNSPEC;
static obj_t BGl_list2772z00zz__threadz00 = BUNSPEC;
static obj_t BGl_list2936z00zz__threadz00 = BUNSPEC;
static obj_t BGl_list2855z00zz__threadz00 = BUNSPEC;
BGL_EXPORTED_DECL obj_t BGl_threadzd2killz12zc0zz__threadz00(BgL_threadz00_bglt, int);
static BgL_threadzd2backendzd2_bglt BGl_z62lambda1371z62zz__threadz00(obj_t, obj_t);
static obj_t BGl_z62lambda1453z62zz__threadz00(obj_t, obj_t);
static obj_t BGl_z62zc3z04anonymousza31539ze3ze5zz__threadz00(obj_t);
static BgL_threadzd2backendzd2_bglt BGl_z62lambda1373z62zz__threadz00(obj_t);
static obj_t BGl_z62lambda1454z62zz__threadz00(obj_t, obj_t, obj_t);
static obj_t BGl_z62z52userzd2threadzd2sleepz12z22zz__threadz00(obj_t, obj_t, obj_t);
static obj_t BGl_z62threadzd2specificzd2setz121246z70zz__threadz00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_threadzd2initializa7ez12z67zz__threadz00(BgL_threadz00_bglt);
static obj_t BGl_z62threadzd2cleanup1212zb0zz__threadz00(obj_t, obj_t);
static obj_t BGl_z62lambda1379z62zz__threadz00(obj_t, obj_t);
extern obj_t BGl_displayza2za2zz__r4_output_6_10_3z00(obj_t);
extern obj_t BGl_classzd2namezd2zz__objectz00(obj_t);
BGL_EXPORTED_DECL obj_t BGl_threadzd2specificzd2setz12z12zz__threadz00(BgL_threadz00_bglt, obj_t);
static obj_t BGl_z62threadzd2terminatez12zd2no1240z70zz__threadz00(obj_t, obj_t);
static obj_t BGl_z62threadzd2joinz12zd2nothrea1238z70zz__threadz00(obj_t, obj_t, obj_t);
static obj_t BGl_z62zc3z04anonymousza31403ze3ze5zz__threadz00(obj_t, obj_t);
static obj_t BGl_list2861z00zz__threadz00 = BUNSPEC;
static obj_t BGl_list2781z00zz__threadz00 = BUNSPEC;
static obj_t BGl_list2866z00zz__threadz00 = BUNSPEC;
static obj_t BGl_z62lambda1460z62zz__threadz00(obj_t, obj_t);
static obj_t BGl_list2786z00zz__threadz00 = BUNSPEC;
static obj_t BGl_z62lambda1380z62zz__threadz00(obj_t, obj_t, obj_t);
static obj_t BGl_z62lambda1461z62zz__threadz00(obj_t, obj_t, obj_t);
static obj_t BGl_z62zc3z04anonymousza31394ze3ze5zz__threadz00(obj_t);
static obj_t BGl_z62threadzd2terminatez12za2zz__threadz00(obj_t, obj_t);
static obj_t BGl_list2789z00zz__threadz00 = BUNSPEC;
static BgL_threadz00_bglt BGl_z62lambda1385z62zz__threadz00(obj_t);
static obj_t BGl_z62threadzd2startz12za2zz__threadz00(obj_t, obj_t, obj_t);
static obj_t BGl_z62lambda1468z62zz__threadz00(obj_t, obj_t);
BGL_EXPORTED_DECL bool_t BGl_dynamiczd2envzf3z21zz__threadz00(obj_t);
extern BGL_LONGLONG_T bgl_current_nanoseconds(void);
static obj_t BGl_z62lambda1469z62zz__threadz00(obj_t, obj_t, obj_t);
extern bool_t BGl_isazf3zf3zz__objectz00(obj_t, obj_t);
extern obj_t bstring_to_symbol(obj_t);
static obj_t BGl_z62getzd2threadzd2backendz62zz__threadz00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_threadzd2namezd2setz12z12zz__threadz00(BgL_threadz00_bglt, obj_t);
BGL_EXPORTED_DECL obj_t BGl_mutexzd2nilzd2zz__threadz00(void);
BGL_EXPORTED_DECL BgL_threadz00_bglt BGl_makezd2threadzd2zz__threadz00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_threadzd2startzd2joinablez12z12zz__threadz00(BgL_threadz00_bglt);
BGL_EXPORTED_DECL bool_t BGl_conditionzd2variablezd2signalz12z12zz__threadz00(obj_t);
static obj_t BGl_z62zc3z04anonymousza31420ze3ze5zz__threadz00(obj_t, obj_t, obj_t);
static obj_t BGl_z62tbzd2mutexzd2initializa7ez121185zd7zz__threadz00(obj_t, obj_t, obj_t);
static obj_t BGl_z62zc3z04anonymousza31412ze3ze5zz__threadz00(obj_t, obj_t, obj_t);
static obj_t BGl_z62threadzd2startz121197za2zz__threadz00(obj_t, obj_t, obj_t);
static obj_t BGl_z62zc3z04anonymousza31404ze3ze5zz__threadz00(obj_t, obj_t, obj_t);
static obj_t BGl_zc3z04exitza31574ze3ze70z60zz__threadz00(BgL_nothreadz00_bglt, obj_t, obj_t);
static obj_t BGl_z62threadzd2cleanupzd2setz12z70zz__threadz00(obj_t, obj_t, obj_t);
static obj_t BGl_list2871z00zz__threadz00 = BUNSPEC;
static obj_t BGl_list2790z00zz__threadz00 = BUNSPEC;
static obj_t BGl_list2793z00zz__threadz00 = BUNSPEC;
static obj_t BGl_list2956z00zz__threadz00 = BUNSPEC;
static obj_t BGl_z62threadzd2namezd2setz121218z70zz__threadz00(obj_t, obj_t, obj_t);
static obj_t BGl_z62threadzd2cleanupzb0zz__threadz00(obj_t, obj_t);
static obj_t BGl_z62mutexzd2unlockz12za2zz__threadz00(obj_t, obj_t);
extern obj_t BGl_gensymz00zz__r4_symbols_6_4z00(obj_t);
static obj_t BGl_list2878z00zz__threadz00 = BUNSPEC;
static obj_t BGl_list2798z00zz__threadz00 = BUNSPEC;
static obj_t BGl_z62tbzd2condvarzd2initializa7ez12zd7zz__threadz00(obj_t, obj_t, obj_t);
static obj_t BGl_z62lambda1392z62zz__threadz00(obj_t, obj_t);
static obj_t BGl_z62zc3z04anonymousza31387ze3ze5zz__threadz00(obj_t, obj_t);
static obj_t BGl_z62lambda1393z62zz__threadz00(obj_t, obj_t, obj_t);
static obj_t BGl_z62lambda1475z62zz__threadz00(obj_t, obj_t);
static obj_t BGl_z62lambda1476z62zz__threadz00(obj_t, obj_t, obj_t);
static obj_t BGl_z62threadzd2initializa7ez12z05zz__threadz00(obj_t, obj_t);
static obj_t BGl_symbol2514z00zz__threadz00 = BUNSPEC;
static obj_t BGl_methodzd2initzd2zz__threadz00(void);
extern obj_t BGl_bigloozd2typezd2errorz00zz__errorz00(obj_t, obj_t, obj_t);
extern obj_t BGl_genericzd2addzd2methodz12z12zz__objectz00(obj_t, obj_t, obj_t, obj_t);
static obj_t BGl_z62threadzd2yieldz12za2zz__threadz00(obj_t);
static obj_t BGl_symbol2518z00zz__threadz00 = BUNSPEC;
BGL_EXPORTED_DECL obj_t BGl_threadzd2namezd2zz__threadz00(BgL_threadz00_bglt);
static obj_t BGl_z62threadzd2initializa7ez121195z05zz__threadz00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_makezd2spinlockzd2zz__threadz00(obj_t);
extern obj_t BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(obj_t, obj_t, obj_t, obj_t, int, int);
extern obj_t BGl_objectzd2writezd2zz__objectz00(BgL_objectz00_bglt, obj_t);
static obj_t BGl_z62conditionzd2variablezd2nilz62zz__threadz00(obj_t);
static obj_t BGl_z62tbzd2currentzd2threadz62zz__threadz00(obj_t, obj_t);
static obj_t BGl_list2885z00zz__threadz00 = BUNSPEC;
BGL_EXPORTED_DEF obj_t BGl_nothreadz00zz__threadz00 = BUNSPEC;
static obj_t BGl_z62zc3z04anonymousza31477ze3ze5zz__threadz00(obj_t);
static BgL_nothreadzd2backendzd2_bglt BGl_z62lambda1484z62zz__threadz00(obj_t, obj_t);
static BgL_nothreadzd2backendzd2_bglt BGl_z62lambda1487z62zz__threadz00(obj_t);
static obj_t BGl_symbol2602z00zz__threadz00 = BUNSPEC;
static obj_t BGl_symbol2521z00zz__threadz00 = BUNSPEC;
BGL_EXPORTED_DECL obj_t BGl_threadzd2parameterzd2setz12z12zz__threadz00(obj_t, obj_t);
static obj_t BGl_z62threadzd2cleanupzd2setz12zd21250za2zz__threadz00(obj_t, obj_t, obj_t);
static obj_t BGl_symbol2524z00zz__threadz00 = BUNSPEC;
static obj_t BGl_symbol2607z00zz__threadz00 = BUNSPEC;
BGL_EXPORTED_DECL BgL_threadz00_bglt BGl_tbzd2makezd2threadz00zz__threadz00(BgL_threadzd2backendzd2_bglt, obj_t, obj_t);
static obj_t BGl_z62mutexzd2statezb0zz__threadz00(obj_t, obj_t);
static obj_t BGl_symbol2529z00zz__threadz00 = BUNSPEC;
static obj_t BGl_z62objectzd2printzd2thread1194z62zz__threadz00(obj_t, obj_t, obj_t, obj_t);
static obj_t BGl_z62conditionzd2variablezd2signalz12z70zz__threadz00(obj_t, obj_t);
extern long bgl_date_to_seconds(obj_t);
static BgL_threadz00_bglt BGl_z62tbzd2makezd2threadzd2nothr1182zb0zz__threadz00(obj_t, obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL bool_t BGl_mutexzf3zf3zz__threadz00(obj_t);
static obj_t BGl_z62z52userzd2threadzd2yieldz12z22zz__threadz00(obj_t, obj_t);
static obj_t BGl_za2nothreadzd2currentza2zd2zz__threadz00 = BUNSPEC;
static obj_t BGl_z62tbzd2makezd2thread1176z62zz__threadz00(obj_t, obj_t, obj_t, obj_t);
static obj_t BGl_symbol2612z00zz__threadz00 = BUNSPEC;
static obj_t BGl_z62defaultzd2threadzd2backendz62zz__threadz00(obj_t);
BGL_EXPORTED_DECL obj_t BGl_makezd2conditionzd2variablez00zz__threadz00(obj_t);
static obj_t BGl_symbol2617z00zz__threadz00 = BUNSPEC;
static obj_t BGl_symbol2536z00zz__threadz00 = BUNSPEC;
BGL_EXPORTED_DECL obj_t BGl_threadzd2parameterzd2zz__threadz00(obj_t);
static obj_t BGl_symbol2538z00zz__threadz00 = BUNSPEC;
BGL_EXPORTED_DECL obj_t BGl_currentzd2dynamiczd2envz00zz__threadz00(void);
BGL_EXPORTED_DECL obj_t BGl_threadzd2terminatez12zc0zz__threadz00(BgL_threadz00_bglt);
static obj_t BGl_za2mutexzd2nilza2zd2zz__threadz00 = BUNSPEC;
static obj_t BGl_z62zc3z04anonymousza31398ze3ze5zz__threadz00(obj_t, obj_t);
static obj_t BGl_z62withzd2lockzb0zz__threadz00(obj_t, obj_t, obj_t);
static obj_t BGl__conditionzd2variablezd2waitz12z12zz__threadz00(obj_t, obj_t);
BGL_EXPORTED_DECL bool_t BGl_conditionzd2variablezd2waitz12z12zz__threadz00(obj_t, obj_t, long);
static obj_t BGl_za2conditionzd2variablezd2nilza2z00zz__threadz00 = BUNSPEC;
static obj_t BGl_symbol2622z00zz__threadz00 = BUNSPEC;
static obj_t BGl__makezd2conditionzd2variablez00zz__threadz00(obj_t, obj_t);
static obj_t BGl_symbol2626z00zz__threadz00 = BUNSPEC;
static obj_t BGl_symbol2545z00zz__threadz00 = BUNSPEC;
static obj_t BGl_symbol2709z00zz__threadz00 = BUNSPEC;
extern obj_t bgl_long_to_bignum(long);
static obj_t BGl_symbol2548z00zz__threadz00 = BUNSPEC;
static obj_t BGl__mutexzd2lockz12zc0zz__threadz00(obj_t, obj_t);
static obj_t BGl_z62objectzd2displayzd2threa1190z62zz__threadz00(obj_t, obj_t, obj_t);
static obj_t BGl_z62currentzd2threadzb0zz__threadz00(obj_t);
BGL_EXPORTED_DEF obj_t BGl_threadz00zz__threadz00 = BUNSPEC;
static obj_t BGl_z62zc3z04anonymousza31399ze3ze5zz__threadz00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL bool_t BGl_conditionzd2variablezf3z21zz__threadz00(obj_t);
BGL_EXPORTED_DECL obj_t BGl_defaultzd2threadzd2backendzd2setz12zc0zz__threadz00(BgL_threadzd2backendzd2_bglt);
static obj_t BGl_z62threadzd2terminatez121203za2zz__threadz00(obj_t, obj_t);
static obj_t BGl_z62currentzd2threadzd2backendzd2setz12za2zz__threadz00(obj_t, obj_t);
static obj_t BGl_z62tbzd2condvarzd2initializa71187zc5zz__threadz00(obj_t, obj_t, obj_t);
static obj_t BGl_symbol2713z00zz__threadz00 = BUNSPEC;
static obj_t BGl_z62currentzd2threadzd2backendz62zz__threadz00(obj_t);
static obj_t BGl_symbol2716z00zz__threadz00 = BUNSPEC;
static obj_t BGl_symbol2635z00zz__threadz00 = BUNSPEC;
static obj_t BGl_symbol2554z00zz__threadz00 = BUNSPEC;
static obj_t BGl_symbol2718z00zz__threadz00 = BUNSPEC;
static obj_t BGl_symbol2637z00zz__threadz00 = BUNSPEC;
extern obj_t BGl_errorz00zz__errorz00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_tbzd2currentzd2threadz00zz__threadz00(BgL_threadzd2backendzd2_bglt);
BGL_EXPORTED_DEF obj_t BGl_threadzd2backendzd2zz__threadz00 = BUNSPEC;
static obj_t BGl_z62zc3z04anonymousza31433ze3ze5zz__threadz00(obj_t, obj_t);
static obj_t BGl_z62threadzd2startzd2joinabl1236z62zz__threadz00(obj_t, obj_t);
extern obj_t BGl_callzd2virtualzd2setterz00zz__objectz00(BgL_objectz00_bglt, int, obj_t);
static obj_t BGl_z62threadzd2namezd2nothread1252z62zz__threadz00(obj_t, obj_t);
static obj_t BGl_z62zc3z04anonymousza31489ze3ze5zz__threadz00(obj_t, obj_t);
static obj_t *__cnst;


DEFINE_EXPORT_BGL_PROCEDURE(BGl_makezd2conditionzd2variablezd2envzd2zz__threadz00, BgL_bgl__makeza7d2conditio2962za7, opt_generic_entry, BGl__makezd2conditionzd2variablez00zz__threadz00, BFALSE, -1);
DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2910z00zz__threadz00, BgL_bgl_za762threadza7d2clea2963z00, BGl_z62threadzd2cleanupzd2nothr1248z62zz__threadz00, 0L, BUNSPEC, 1);
DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2912z00zz__threadz00, BgL_bgl_za762threadza7d2clea2964z00, BGl_z62threadzd2cleanupzd2setz12zd21250za2zz__threadz00, 0L, BUNSPEC, 2);
BGL_DEFINE_STRING(BGl_string2920z00zz__threadz00, BgL_bgl_string2920za700za7za7_2965za7, "&thread-cleanup-set!-1250", 25 );
DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2914z00zz__threadz00, BgL_bgl_za762threadza7d2name2966z00, BGl_z62threadzd2namezd2nothread1252z62zz__threadz00, 0L, BUNSPEC, 1);
DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2671z00zz__threadz00, BgL_bgl_za762tbza7d2currentza72967za7, BGl_z62tbzd2currentzd2thread1179z62zz__threadz00, 0L, BUNSPEC, 1);
DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2590z00zz__threadz00, BgL_bgl_za762lambda1437za7622968z00, BGl_z62lambda1437z62zz__threadz00, 0L, BUNSPEC, 1);
BGL_DEFINE_STRING(BGl_string2921z00zz__threadz00, BgL_bgl_string2921za700za7za7_2969za7, "&thread-cleanup-nothr1248", 25 );
DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2915z00zz__threadz00, BgL_bgl_za762threadza7d2name2970z00, BGl_z62threadzd2namezd2setz12zd2not1254za2zz__threadz00, 0L, BUNSPEC, 2);
BGL_DEFINE_STRING(BGl_string2840z00zz__threadz00, BgL_bgl_string2840za700za7za7_2971za7, "method1209", 10 );
BGL_DEFINE_STRING(BGl_string2922z00zz__threadz00, BgL_bgl_string2922za700za7za7_2972za7, "&thread-specific-set!1246", 25 );
BGL_DEFINE_STRING(BGl_string2841z00zz__threadz00, BgL_bgl_string2841za700za7za7_2973za7, "&thread-specific", 16 );
DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2673z00zz__threadz00, BgL_bgl_za762tbza7d2mutexza7d22974za7, BGl_z62tbzd2mutexzd2initializa7ez121185zd7zz__threadz00, 0L, BUNSPEC, 2);
BGL_DEFINE_STRING(BGl_string2923z00zz__threadz00, BgL_bgl_string2923za700za7za7_2975za7, "&thread-specific-noth1244", 25 );
BGL_DEFINE_STRING(BGl_string2842z00zz__threadz00, BgL_bgl_string2842za700za7za7_2976za7, "thread-specific-set!:Wrong number of arguments", 46 );
BGL_DEFINE_STRING(BGl_string2680z00zz__threadz00, BgL_bgl_string2680za700za7za7_2977za7, "thread-start!1197", 17 );
BGL_DEFINE_STRING(BGl_string2924z00zz__threadz00, BgL_bgl_string2924za700za7za7_2978za7, "&thread-kill!-nothrea1242", 25 );
BGL_DEFINE_STRING(BGl_string2762z00zz__threadz00, BgL_bgl_string2762za700za7za7_2979za7, "method1186", 10 );
DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2675z00zz__threadz00, BgL_bgl_za762tbza7d2condvarza72980za7, BGl_z62tbzd2condvarzd2initializa71187zc5zz__threadz00, 0L, BUNSPEC, 2);
DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2594z00zz__threadz00, BgL_bgl_za762za7c3za704anonymo2981za7, BGl_z62zc3z04anonymousza31447ze3ze5zz__threadz00, 0L, BUNSPEC, 0);
BGL_DEFINE_STRING(BGl_string2925z00zz__threadz00, BgL_bgl_string2925za700za7za7_2982za7, "thread-terminate!-no1240", 24 );
BGL_DEFINE_STRING(BGl_string2763z00zz__threadz00, BgL_bgl_string2763za700za7za7_2983za7, "&tb-mutex-initialize!", 21 );
BGL_DEFINE_STRING(BGl_string2682z00zz__threadz00, BgL_bgl_string2682za700za7za7_2984za7, "thread-start-joinabl1199", 24 );
DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2595z00zz__threadz00, BgL_bgl_za762lambda1446za7622985z00, BGl_z62lambda1446z62zz__threadz00, 0L, BUNSPEC, 2);
BGL_DEFINE_STRING(BGl_string2926z00zz__threadz00, BgL_bgl_string2926za700za7za7_2986za7, "thread-terminate!-no1240:Wrong number of arguments", 50 );
BGL_DEFINE_STRING(BGl_string2845z00zz__threadz00, BgL_bgl_string2845za700za7za7_2987za7, "method1211", 10 );
BGL_DEFINE_STRING(BGl_string2764z00zz__threadz00, BgL_bgl_string2764za700za7za7_2988za7, "tb-condvar-initialize!", 22 );
DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2677z00zz__threadz00, BgL_bgl_za762threadza7d2init2989z00, BGl_z62threadzd2initializa7ez121195z05zz__threadz00, 0L, BUNSPEC, 1);
DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2596z00zz__threadz00, BgL_bgl_za762lambda1445za7622990z00, BGl_z62lambda1445z62zz__threadz00, 0L, BUNSPEC, 1);
BGL_DEFINE_STRING(BGl_string2765z00zz__threadz00, BgL_bgl_string2765za700za7za7_2991za7, "tb-condvar-initialize!:Wrong number of arguments", 48 );
BGL_DEFINE_STRING(BGl_string2684z00zz__threadz00, BgL_bgl_string2684za700za7za7_2992za7, "thread-join!1201", 16 );
BGL_DEFINE_STRING(BGl_string2847z00zz__threadz00, BgL_bgl_string2847za700za7za7_2993za7, "v", 1 );
DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2679z00zz__threadz00, BgL_bgl_za762threadza7d2star2994z00, va_generic_entry, BGl_z62threadzd2startz121197za2zz__threadz00, BUNSPEC, -2);
BGL_DEFINE_STRING(BGl_string2929z00zz__threadz00, BgL_bgl_string2929za700za7za7_2995za7, "fun1590", 7 );
BGL_DEFINE_STRING(BGl_string2848z00zz__threadz00, BgL_bgl_string2848za700za7za7_2996za7, "&thread-specific-set!", 21 );
BGL_DEFINE_STRING(BGl_string2686z00zz__threadz00, BgL_bgl_string2686za700za7za7_2997za7, "thread-terminate!1203", 21 );
DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2599z00zz__threadz00, BgL_bgl_za762za7c3za704anonymo2998za7, BGl_z62zc3z04anonymousza31455ze3ze5zz__threadz00, 0L, BUNSPEC, 0);
BGL_DEFINE_STRING(BGl_string2849z00zz__threadz00, BgL_bgl_string2849za700za7za7_2999za7, "thread-cleanup:Wrong number of arguments", 40 );
BGL_DEFINE_STRING(BGl_string2768z00zz__threadz00, BgL_bgl_string2768za700za7za7_3000za7, "method1188", 10 );
BGL_DEFINE_STRING(BGl_string2688z00zz__threadz00, BgL_bgl_string2688za700za7za7_3001za7, "thread-kill!1205", 16 );
DEFINE_EXPORT_BGL_PROCEDURE(BGl_dynamiczd2envzf3zd2envzf3zz__threadz00, BgL_bgl_za762dynamicza7d2env3002z00, BGl_z62dynamiczd2envzf3z43zz__threadz00, 0L, BUNSPEC, 1);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_conditionzd2variablezd2waitz12zd2envzc0zz__threadz00, BgL_bgl__conditionza7d2var3003za7, opt_generic_entry, BGl__conditionzd2variablezd2waitz12z12zz__threadz00, BFALSE, -1);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_conditionzd2variablezd2signalz12zd2envzc0zz__threadz00, BgL_bgl_za762conditionza7d2v3004z00, BGl_z62conditionzd2variablezd2signalz12z70zz__threadz00, 0L, BUNSPEC, 1);
BGL_DEFINE_STRING(BGl_string2930z00zz__threadz00, BgL_bgl_string2930za700za7za7_3005za7, "&thread-terminate!-no1240", 25 );
DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2681z00zz__threadz00, BgL_bgl_za762threadza7d2star3006z00, BGl_z62threadzd2startzd2joinabl1199z62zz__threadz00, 0L, BUNSPEC, 1);
BGL_DEFINE_STRING(BGl_string2931z00zz__threadz00, BgL_bgl_string2931za700za7za7_3007za7, "thread-join!-nothrea1238", 24 );
BGL_DEFINE_STRING(BGl_string2932z00zz__threadz00, BgL_bgl_string2932za700za7za7_3008za7, "&thread-join!-nothrea1238", 25 );
BGL_DEFINE_STRING(BGl_string2770z00zz__threadz00, BgL_bgl_string2770za700za7za7_3009za7, "&tb-condvar-initialize!", 23 );
DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2683z00zz__threadz00, BgL_bgl_za762threadza7d2join3010z00, va_generic_entry, BGl_z62threadzd2joinz121201za2zz__threadz00, BUNSPEC, -2);
BGL_DEFINE_STRING(BGl_string2933z00zz__threadz00, BgL_bgl_string2933za700za7za7_3011za7, "&thread-start-joinabl1236", 25 );
BGL_DEFINE_STRING(BGl_string2852z00zz__threadz00, BgL_bgl_string2852za700za7za7_3012za7, "method1213", 10 );
BGL_DEFINE_STRING(BGl_string2771z00zz__threadz00, BgL_bgl_string2771za700za7za7_3013za7, "thread-initialize!:Wrong number of arguments", 44 );
BGL_DEFINE_STRING(BGl_string2690z00zz__threadz00, BgL_bgl_string2690za700za7za7_3014za7, "thread-specific1207", 19 );
BGL_DEFINE_STRING(BGl_string2934z00zz__threadz00, BgL_bgl_string2934za700za7za7_3015za7, "&thread-start!-nothre1234", 25 );
BGL_DEFINE_STRING(BGl_string2853z00zz__threadz00, BgL_bgl_string2853za700za7za7_3016za7, "&thread-cleanup", 15 );
DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2685z00zz__threadz00, BgL_bgl_za762threadza7d2term3017z00, BGl_z62threadzd2terminatez121203za2zz__threadz00, 0L, BUNSPEC, 1);
BGL_DEFINE_STRING(BGl_string2935z00zz__threadz00, BgL_bgl_string2935za700za7za7_3018za7, "<@exit:1574>~0:Wrong number of arguments", 40 );
BGL_DEFINE_STRING(BGl_string2854z00zz__threadz00, BgL_bgl_string2854za700za7za7_3019za7, "thread-cleanup-set!:Wrong number of arguments", 45 );
BGL_DEFINE_STRING(BGl_string2692z00zz__threadz00, BgL_bgl_string2692za700za7za7_3020za7, "thread-specific-set!1210", 24 );
BGL_DEFINE_STRING(BGl_string2774z00zz__threadz00, BgL_bgl_string2774za700za7za7_3021za7, "method1196", 10 );
DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2687z00zz__threadz00, BgL_bgl_za762threadza7d2kill3022z00, BGl_z62threadzd2killz121205za2zz__threadz00, 0L, BUNSPEC, 2);
BGL_DEFINE_STRING(BGl_string2694z00zz__threadz00, BgL_bgl_string2694za700za7za7_3023za7, "thread-cleanup1212", 18 );
BGL_DEFINE_STRING(BGl_string2938z00zz__threadz00, BgL_bgl_string2938za700za7za7_3024za7, "fun1575", 7 );
BGL_DEFINE_STRING(BGl_string2857z00zz__threadz00, BgL_bgl_string2857za700za7za7_3025za7, "method1215", 10 );
BGL_DEFINE_STRING(BGl_string2776z00zz__threadz00, BgL_bgl_string2776za700za7za7_3026za7, "th", 2 );
DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2689z00zz__threadz00, BgL_bgl_za762threadza7d2spec3027z00, BGl_z62threadzd2specific1207zb0zz__threadz00, 0L, BUNSPEC, 1);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_currentzd2threadzd2backendzd2setz12zd2envz12zz__threadz00, BgL_bgl_za762currentza7d2thr3028z00, BGl_z62currentzd2threadzd2backendzd2setz12za2zz__threadz00, 0L, BUNSPEC, 1);
BGL_DEFINE_STRING(BGl_string2939z00zz__threadz00, BgL_bgl_string2939za700za7za7_3029za7, "<@exit:1574>~0", 14 );
BGL_DEFINE_STRING(BGl_string2858z00zz__threadz00, BgL_bgl_string2858za700za7za7_3030za7, "&thread-cleanup-set!", 20 );
BGL_DEFINE_STRING(BGl_string2777z00zz__threadz00, BgL_bgl_string2777za700za7za7_3031za7, "&thread-initialize!", 19 );
BGL_DEFINE_STRING(BGl_string2696z00zz__threadz00, BgL_bgl_string2696za700za7za7_3032za7, "thread-cleanup-set!1214", 23 );
BGL_DEFINE_STRING(BGl_string2859z00zz__threadz00, BgL_bgl_string2859za700za7za7_3033za7, "thread-name", 11 );
BGL_DEFINE_STRING(BGl_string2778z00zz__threadz00, BgL_bgl_string2778za700za7za7_3034za7, "thread-start!", 13 );
DEFINE_EXPORT_BGL_PROCEDURE(BGl_conditionzd2variablezf3zd2envzf3zz__threadz00, BgL_bgl_za762conditionza7d2v3035z00, BGl_z62conditionzd2variablezf3z43zz__threadz00, 0L, BUNSPEC, 1);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_defaultzd2threadzd2backendzd2setz12zd2envz12zz__threadz00, BgL_bgl_za762defaultza7d2thr3036z00, BGl_z62defaultzd2threadzd2backendzd2setz12za2zz__threadz00, 0L, BUNSPEC, 1);
BGL_DEFINE_STRING(BGl_string2698z00zz__threadz00, BgL_bgl_string2698za700za7za7_3037za7, "thread-name1216", 15 );
DEFINE_EXPORT_BGL_GENERIC(BGl_threadzd2namezd2envz00zz__threadz00, BgL_bgl_za762threadza7d2name3038z00, BGl_z62threadzd2namezb0zz__threadz00, 0L, BUNSPEC, 1);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_makezd2spinlockzd2envz00zz__threadz00, BgL_bgl__makeza7d2spinlock3039za7, opt_generic_entry, BGl__makezd2spinlockzd2zz__threadz00, BFALSE, -1);
BGL_DEFINE_STRING(BGl_string2940z00zz__threadz00, BgL_bgl_string2940za700za7za7_3040za7, "thread-start!-nothre1234~0", 26 );
DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2691z00zz__threadz00, BgL_bgl_za762threadza7d2spec3041z00, BGl_z62threadzd2specificzd2setz121210z70zz__threadz00, 0L, BUNSPEC, 2);
BGL_DEFINE_STRING(BGl_string2941z00zz__threadz00, BgL_bgl_string2941za700za7za7_3042za7, "&object-print-thread1194", 24 );
BGL_DEFINE_STRING(BGl_string2860z00zz__threadz00, BgL_bgl_string2860za700za7za7_3043za7, "thread-name:Wrong number of arguments", 37 );
BGL_DEFINE_STRING(BGl_string2942z00zz__threadz00, BgL_bgl_string2942za700za7za7_3044za7, "object-write-thread1192", 23 );
BGL_DEFINE_STRING(BGl_string2780z00zz__threadz00, BgL_bgl_string2780za700za7za7_3045za7, "Wrong number of arguments", 25 );
DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2693z00zz__threadz00, BgL_bgl_za762threadza7d2clea3046z00, BGl_z62threadzd2cleanup1212zb0zz__threadz00, 0L, BUNSPEC, 1);
BGL_DEFINE_STRING(BGl_string2943z00zz__threadz00, BgL_bgl_string2943za700za7za7_3047za7, "output-port", 11 );
BGL_DEFINE_STRING(BGl_string2944z00zz__threadz00, BgL_bgl_string2944za700za7za7_3048za7, "&object-write-thread1192", 24 );
BGL_DEFINE_STRING(BGl_string2863z00zz__threadz00, BgL_bgl_string2863za700za7za7_3049za7, "method1217", 10 );
DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2695z00zz__threadz00, BgL_bgl_za762threadza7d2clea3050z00, BGl_z62threadzd2cleanupzd2setz121214z70zz__threadz00, 0L, BUNSPEC, 2);
BGL_DEFINE_STRING(BGl_string2945z00zz__threadz00, BgL_bgl_string2945za700za7za7_3051za7, "<@anonymous:1554>", 17 );
BGL_DEFINE_STRING(BGl_string2864z00zz__threadz00, BgL_bgl_string2864za700za7za7_3052za7, "&thread-name", 12 );
BGL_DEFINE_STRING(BGl_string2783z00zz__threadz00, BgL_bgl_string2783za700za7za7_3053za7, "apply", 5 );
BGL_DEFINE_STRING(BGl_string2946z00zz__threadz00, BgL_bgl_string2946za700za7za7_3054za7, "class", 5 );
BGL_DEFINE_STRING(BGl_string2865z00zz__threadz00, BgL_bgl_string2865za700za7za7_3055za7, "thread-name-set!:Wrong number of arguments", 42 );
DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2697z00zz__threadz00, BgL_bgl_za762threadza7d2name3056z00, BGl_z62threadzd2name1216zb0zz__threadz00, 0L, BUNSPEC, 1);
BGL_DEFINE_STRING(BGl_string2947z00zz__threadz00, BgL_bgl_string2947za700za7za7_3057za7, ">", 1 );
BGL_DEFINE_STRING(BGl_string2785z00zz__threadz00, BgL_bgl_string2785za700za7za7_3058za7, "method1198", 10 );
BGL_DEFINE_STRING(BGl_string2948z00zz__threadz00, BgL_bgl_string2948za700za7za7_3059za7, ":", 1 );
DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2699z00zz__threadz00, BgL_bgl_za762threadza7d2name3060z00, BGl_z62threadzd2namezd2setz121218z70zz__threadz00, 0L, BUNSPEC, 2);
BGL_DEFINE_STRING(BGl_string2949z00zz__threadz00, BgL_bgl_string2949za700za7za7_3061za7, "#<", 2 );
BGL_DEFINE_STRING(BGl_string2868z00zz__threadz00, BgL_bgl_string2868za700za7za7_3062za7, "method1219", 10 );
BGL_DEFINE_STRING(BGl_string2869z00zz__threadz00, BgL_bgl_string2869za700za7za7_3063za7, "&thread-name-set!", 17 );
BGL_DEFINE_STRING(BGl_string2788z00zz__threadz00, BgL_bgl_string2788za700za7za7_3064za7, "let", 3 );
DEFINE_EXPORT_BGL_GENERIC(BGl_tbzd2makezd2threadzd2envzd2zz__threadz00, BgL_bgl_za762tbza7d2makeza7d2t3065za7, BGl_z62tbzd2makezd2threadz62zz__threadz00, 0L, BUNSPEC, 3);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_conditionzd2variablezd2namezd2envzd2zz__threadz00, BgL_bgl_za762conditionza7d2v3066z00, BGl_z62conditionzd2variablezd2namez62zz__threadz00, 0L, BUNSPEC, 1);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_currentzd2threadzd2envz00zz__threadz00, BgL_bgl_za762currentza7d2thr3067z00, BGl_z62currentzd2threadzb0zz__threadz00, 0L, BUNSPEC, 0);
DEFINE_EXPORT_BGL_GENERIC(BGl_threadzd2cleanupzd2envz00zz__threadz00, BgL_bgl_za762threadza7d2clea3068z00, BGl_z62threadzd2cleanupzb0zz__threadz00, 0L, BUNSPEC, 1);
BGL_DEFINE_STRING(BGl_string2950z00zz__threadz00, BgL_bgl_string2950za700za7za7_3069za7, "object-display-threa1190", 24 );
BGL_DEFINE_STRING(BGl_string2951z00zz__threadz00, BgL_bgl_string2951za700za7za7_3070za7, "&object-display-threa1190", 25 );
BGL_DEFINE_STRING(BGl_string2870z00zz__threadz00, BgL_bgl_string2870za700za7za7_3071za7, "%user-current-thread:Wrong number of arguments", 46 );
DEFINE_EXPORT_BGL_PROCEDURE(BGl_mutexzf3zd2envz21zz__threadz00, BgL_bgl_za762mutexza7f3za791za7za73072za7, BGl_z62mutexzf3z91zz__threadz00, 0L, BUNSPEC, 1);
BGL_DEFINE_STRING(BGl_string2952z00zz__threadz00, BgL_bgl_string2952za700za7za7_3073za7, "<@anonymous:1539>", 17 );
BGL_DEFINE_STRING(BGl_string2953z00zz__threadz00, BgL_bgl_string2953za700za7za7_3074za7, "&tb-current-thread-no1184", 25 );
BGL_DEFINE_STRING(BGl_string2954z00zz__threadz00, BgL_bgl_string2954za700za7za7_3075za7, "tb-make-thread-nothr1182", 24 );
BGL_DEFINE_STRING(BGl_string2873z00zz__threadz00, BgL_bgl_string2873za700za7za7_3076za7, "method1227", 10 );
BGL_DEFINE_STRING(BGl_string2792z00zz__threadz00, BgL_bgl_string2792za700za7za7_3077za7, "list1529", 8 );
BGL_DEFINE_STRING(BGl_string2955z00zz__threadz00, BgL_bgl_string2955za700za7za7_3078za7, "tb-make-thread-nothr1182:Wrong number of arguments", 50 );
BGL_DEFINE_STRING(BGl_string2875z00zz__threadz00, BgL_bgl_string2875za700za7za7_3079za7, "o", 1 );
BGL_DEFINE_STRING(BGl_string2876z00zz__threadz00, BgL_bgl_string2876za700za7za7_3080za7, "&%user-current-thread", 21 );
BGL_DEFINE_STRING(BGl_string2795z00zz__threadz00, BgL_bgl_string2795za700za7za7_3081za7, "$cons", 5 );
BGL_DEFINE_STRING(BGl_string2958z00zz__threadz00, BgL_bgl_string2958za700za7za7_3082za7, "fun1532", 7 );
BGL_DEFINE_STRING(BGl_string2877z00zz__threadz00, BgL_bgl_string2877za700za7za7_3083za7, "%user-thread-sleep!:Wrong number of arguments", 45 );
BGL_DEFINE_STRING(BGl_string2797z00zz__threadz00, BgL_bgl_string2797za700za7za7_3084za7, "sc", 2 );
DEFINE_EXPORT_BGL_PROCEDURE(BGl_threadzd2parameterzd2envz00zz__threadz00, BgL_bgl_za762threadza7d2para3085z00, BGl_z62threadzd2parameterzb0zz__threadz00, 0L, BUNSPEC, 1);
BGL_DEFINE_STRING(BGl_string2960z00zz__threadz00, BgL_bgl_string2960za700za7za7_3086za7, "new1062", 7 );
BGL_DEFINE_STRING(BGl_string2961z00zz__threadz00, BgL_bgl_string2961za700za7za7_3087za7, "&tb-make-thread-nothr1182", 25 );
BGL_DEFINE_STRING(BGl_string2880z00zz__threadz00, BgL_bgl_string2880za700za7za7_3088za7, "method1230", 10 );
DEFINE_EXPORT_BGL_GENERIC(BGl_threadzd2startz12zd2envz12zz__threadz00, BgL_bgl_za762threadza7d2star3089z00, va_generic_entry, BGl_z62threadzd2startz12za2zz__threadz00, BUNSPEC, -2);
BGL_DEFINE_STRING(BGl_string2882z00zz__threadz00, BgL_bgl_string2882za700za7za7_3090za7, "d", 1 );
BGL_DEFINE_STRING(BGl_string2883z00zz__threadz00, BgL_bgl_string2883za700za7za7_3091za7, "&%user-thread-sleep!", 20 );
BGL_DEFINE_STRING(BGl_string2884z00zz__threadz00, BgL_bgl_string2884za700za7za7_3092za7, "%user-thread-yield!:Wrong number of arguments", 45 );
BGL_DEFINE_STRING(BGl_string2887z00zz__threadz00, BgL_bgl_string2887za700za7za7_3093za7, "method1232", 10 );
BGL_DEFINE_STRING(BGl_string2888z00zz__threadz00, BgL_bgl_string2888za700za7za7_3094za7, "&%user-thread-yield!", 20 );
DEFINE_EXPORT_BGL_PROCEDURE(BGl_mutexzd2nilzd2envz00zz__threadz00, BgL_bgl_za762mutexza7d2nilza7b3095za7, BGl_z62mutexzd2nilzb0zz__threadz00, 0L, BUNSPEC, 0);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_makezd2threadzd2envz00zz__threadz00, BgL_bgl__makeza7d2threadza7d3096z00, opt_generic_entry, BGl__makezd2threadzd2zz__threadz00, BFALSE, -1);
BGL_DEFINE_STRING(BGl_string2891z00zz__threadz00, BgL_bgl_string2891za700za7za7_3097za7, "tb-current-thread", 17 );
BGL_DEFINE_STRING(BGl_string2893z00zz__threadz00, BgL_bgl_string2893za700za7za7_3098za7, "object-display", 14 );
BGL_DEFINE_STRING(BGl_string2895z00zz__threadz00, BgL_bgl_string2895za700za7za7_3099za7, "object-write", 12 );
DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2889z00zz__threadz00, BgL_bgl_za762tbza7d2makeza7d2t3100za7, BGl_z62tbzd2makezd2threadzd2nothr1182zb0zz__threadz00, 0L, BUNSPEC, 3);
DEFINE_EXPORT_BGL_GENERIC(BGl_z52userzd2currentzd2threadzd2envz80zz__threadz00, BgL_bgl_za762za752userza7d2cur3101za7, BGl_z62z52userzd2currentzd2threadz30zz__threadz00, 0L, BUNSPEC, 1);
BGL_DEFINE_STRING(BGl_string2897z00zz__threadz00, BgL_bgl_string2897za700za7za7_3102za7, "object-print", 12 );
BGL_DEFINE_STRING(BGl_string2500z00zz__threadz00, BgL_bgl_string2500za700za7za7_3103za7, "thread", 6 );
BGL_DEFINE_STRING(BGl_string2501z00zz__threadz00, BgL_bgl_string2501za700za7za7_3104za7, "procedure", 9 );
BGL_DEFINE_STRING(BGl_string2502z00zz__threadz00, BgL_bgl_string2502za700za7za7_3105za7, "%current-thread", 15 );
BGL_DEFINE_STRING(BGl_string2503z00zz__threadz00, BgL_bgl_string2503za700za7za7_3106za7, "vector-ref", 10 );
BGL_DEFINE_STRING(BGl_string2504z00zz__threadz00, BgL_bgl_string2504za700za7za7_3107za7, "current-thread", 14 );
BGL_DEFINE_STRING(BGl_string2505z00zz__threadz00, BgL_bgl_string2505za700za7za7_3108za7, "thread-sleep!", 13 );
BGL_DEFINE_STRING(BGl_string2506z00zz__threadz00, BgL_bgl_string2506za700za7za7_3109za7, "thread-yield!", 13 );
BGL_DEFINE_STRING(BGl_string2507z00zz__threadz00, BgL_bgl_string2507za700za7za7_3110za7, "thread-parameter", 16 );
extern obj_t BGl_objectzd2writezd2envz00zz__objectz00;
BGL_DEFINE_STRING(BGl_string2508z00zz__threadz00, BgL_bgl_string2508za700za7za7_3111za7, "pair-nil", 8 );
DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2890z00zz__threadz00, BgL_bgl_za762tbza7d2currentza73112za7, BGl_z62tbzd2currentzd2threadzd2no1184zb0zz__threadz00, 0L, BUNSPEC, 1);
BGL_DEFINE_STRING(BGl_string2509z00zz__threadz00, BgL_bgl_string2509za700za7za7_3113za7, "&thread-parameter", 17 );
DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2892z00zz__threadz00, BgL_bgl_za762objectza7d2disp3114z00, va_generic_entry, BGl_z62objectzd2displayzd2threa1190z62zz__threadz00, BUNSPEC, -2);
DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2894z00zz__threadz00, BgL_bgl_za762objectza7d2writ3115z00, va_generic_entry, BGl_z62objectzd2writezd2thread1192z62zz__threadz00, BUNSPEC, -2);
DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2896z00zz__threadz00, BgL_bgl_za762objectza7d2prin3116z00, BGl_z62objectzd2printzd2thread1194z62zz__threadz00, 0L, BUNSPEC, 3);
DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2898z00zz__threadz00, BgL_bgl_za762threadza7d2star3117z00, va_generic_entry, BGl_z62threadzd2startz12zd2nothre1234z70zz__threadz00, BUNSPEC, -2);
DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2899z00zz__threadz00, BgL_bgl_za762threadza7d2star3118z00, BGl_z62threadzd2startzd2joinabl1236z62zz__threadz00, 0L, BUNSPEC, 1);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_mutexzd2statezd2envz00zz__threadz00, BgL_bgl_za762mutexza7d2state3119z00, BGl_z62mutexzd2statezb0zz__threadz00, 0L, BUNSPEC, 1);
BGL_DEFINE_STRING(BGl_string2510z00zz__threadz00, BgL_bgl_string2510za700za7za7_3120za7, "symbol", 6 );
BGL_DEFINE_STRING(BGl_string2511z00zz__threadz00, BgL_bgl_string2511za700za7za7_3121za7, "thread-parameter-set!", 21 );
BGL_DEFINE_STRING(BGl_string2512z00zz__threadz00, BgL_bgl_string2512za700za7za7_3122za7, "&thread-parameter-set!", 22 );
BGL_DEFINE_STRING(BGl_string2513z00zz__threadz00, BgL_bgl_string2513za700za7za7_3123za7, "case_else1257", 13 );
BGL_DEFINE_STRING(BGl_string2515z00zz__threadz00, BgL_bgl_string2515za700za7za7_3124za7, "make-mutex", 10 );
BGL_DEFINE_STRING(BGl_string2516z00zz__threadz00, BgL_bgl_string2516za700za7za7_3125za7, "wrong number of arguments: [0..1] expected, provided", 52 );
BGL_DEFINE_STRING(BGl_string2517z00zz__threadz00, BgL_bgl_string2517za700za7za7_3126za7, "_make-mutex", 11 );
BGL_DEFINE_STRING(BGl_string2519z00zz__threadz00, BgL_bgl_string2519za700za7za7_3127za7, "mutex", 5 );
DEFINE_EXPORT_BGL_GENERIC(BGl_threadzd2initializa7ez12zd2envzb5zz__threadz00, BgL_bgl_za762threadza7d2init3128z00, BGl_z62threadzd2initializa7ez12z05zz__threadz00, 0L, BUNSPEC, 1);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_currentzd2threadzd2backendzd2envzd2zz__threadz00, BgL_bgl_za762currentza7d2thr3129z00, BGl_z62currentzd2threadzd2backendz62zz__threadz00, 0L, BUNSPEC, 0);
BGL_DEFINE_STRING(BGl_string2520z00zz__threadz00, BgL_bgl_string2520za700za7za7_3130za7, "case_else1261", 13 );
DEFINE_EXPORT_BGL_PROCEDURE(BGl_conditionzd2variablezd2nilzd2envzd2zz__threadz00, BgL_bgl_za762conditionza7d2v3131z00, BGl_z62conditionzd2variablezd2nilz62zz__threadz00, 0L, BUNSPEC, 0);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_mutexzd2lockz12zd2envz12zz__threadz00, BgL_bgl__mutexza7d2lockza7123132z00, opt_generic_entry, BGl__mutexzd2lockz12zc0zz__threadz00, BFALSE, -1);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_currentzd2dynamiczd2envzd2envzd2zz__threadz00, BgL_bgl_za762currentza7d2dyn3133z00, BGl_z62currentzd2dynamiczd2envz62zz__threadz00, 0L, BUNSPEC, 0);
BGL_DEFINE_STRING(BGl_string2603z00zz__threadz00, BgL_bgl_string2603za700za7za7_3134za7, "%cleanup", 8 );
BGL_DEFINE_STRING(BGl_string2522z00zz__threadz00, BgL_bgl_string2522za700za7za7_3135za7, "make-spinlock", 13 );
BGL_DEFINE_STRING(BGl_string2523z00zz__threadz00, BgL_bgl_string2523za700za7za7_3136za7, "_make-spinlock", 14 );
BGL_DEFINE_STRING(BGl_string2525z00zz__threadz00, BgL_bgl_string2525za700za7za7_3137za7, "spinlock", 8 );
DEFINE_EXPORT_BGL_GENERIC(BGl_threadzd2terminatez12zd2envz12zz__threadz00, BgL_bgl_za762threadza7d2term3138z00, BGl_z62threadzd2terminatez12za2zz__threadz00, 0L, BUNSPEC, 1);
BGL_DEFINE_STRING(BGl_string2526z00zz__threadz00, BgL_bgl_string2526za700za7za7_3139za7, "&mutex-name", 11 );
BGL_DEFINE_STRING(BGl_string2608z00zz__threadz00, BgL_bgl_string2608za700za7za7_3140za7, "end-result", 10 );
BGL_DEFINE_STRING(BGl_string2527z00zz__threadz00, BgL_bgl_string2527za700za7za7_3141za7, "_mutex-lock!", 12 );
BGL_DEFINE_STRING(BGl_string2528z00zz__threadz00, BgL_bgl_string2528za700za7za7_3142za7, "case_else1266", 13 );
DEFINE_EXPORT_BGL_PROCEDURE(BGl_withzd2lockzd2envz00zz__threadz00, BgL_bgl_za762withza7d2lockza7b3143za7, BGl_z62withzd2lockzb0zz__threadz00, 0L, BUNSPEC, 2);
DEFINE_EXPORT_BGL_GENERIC(BGl_threadzd2namezd2setz12zd2envzc0zz__threadz00, BgL_bgl_za762threadza7d2name3144z00, BGl_z62threadzd2namezd2setz12z70zz__threadz00, 0L, BUNSPEC, 2);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_mutexzd2namezd2envz00zz__threadz00, BgL_bgl_za762mutexza7d2nameza73145za7, BGl_z62mutexzd2namezb0zz__threadz00, 0L, BUNSPEC, 1);
DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2600z00zz__threadz00, BgL_bgl_za762lambda1454za7623146z00, BGl_z62lambda1454z62zz__threadz00, 0L, BUNSPEC, 2);
DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2601z00zz__threadz00, BgL_bgl_za762lambda1453za7623147z00, BGl_z62lambda1453z62zz__threadz00, 0L, BUNSPEC, 1);
DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2604z00zz__threadz00, BgL_bgl_za762za7c3za704anonymo3148za7, BGl_z62zc3z04anonymousza31462ze3ze5zz__threadz00, 0L, BUNSPEC, 0);
DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2605z00zz__threadz00, BgL_bgl_za762lambda1461za7623149z00, BGl_z62lambda1461z62zz__threadz00, 0L, BUNSPEC, 2);
BGL_DEFINE_STRING(BGl_string2530z00zz__threadz00, BgL_bgl_string2530za700za7za7_3150za7, "mutex-lock!", 11 );
DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2606z00zz__threadz00, BgL_bgl_za762lambda1460za7623151z00, BGl_z62lambda1460z62zz__threadz00, 0L, BUNSPEC, 1);
BGL_DEFINE_STRING(BGl_string2531z00zz__threadz00, BgL_bgl_string2531za700za7za7_3152za7, "bint", 4 );
BGL_DEFINE_STRING(BGl_string2613z00zz__threadz00, BgL_bgl_string2613za700za7za7_3153za7, "end-exception", 13 );
BGL_DEFINE_STRING(BGl_string2532z00zz__threadz00, BgL_bgl_string2532za700za7za7_3154za7, "&mutex-unlock!", 14 );
DEFINE_EXPORT_BGL_PROCEDURE(BGl_mutexzd2unlockz12zd2envz12zz__threadz00, BgL_bgl_za762mutexza7d2unloc3155z00, BGl_z62mutexzd2unlockz12za2zz__threadz00, 0L, BUNSPEC, 1);
BGL_DEFINE_STRING(BGl_string2533z00zz__threadz00, BgL_bgl_string2533za700za7za7_3156za7, "&mutex-state", 12 );
DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2609z00zz__threadz00, BgL_bgl_za762za7c3za704anonymo3157za7, BGl_z62zc3z04anonymousza31470ze3ze5zz__threadz00, 0L, BUNSPEC, 0);
BGL_DEFINE_STRING(BGl_string2534z00zz__threadz00, BgL_bgl_string2534za700za7za7_3158za7, "with-lock:Wrong number of arguments", 35 );
BGL_DEFINE_STRING(BGl_string2618z00zz__threadz00, BgL_bgl_string2618za700za7za7_3159za7, "%name", 5 );
BGL_DEFINE_STRING(BGl_string2537z00zz__threadz00, BgL_bgl_string2537za700za7za7_3160za7, "funcall", 7 );
extern obj_t BGl_conszd2envzd2zz__r4_pairs_and_lists_6_3z00;
BGL_DEFINE_STRING(BGl_string2539z00zz__threadz00, BgL_bgl_string2539za700za7za7_3161za7, "thunk", 5 );
DEFINE_EXPORT_BGL_GENERIC(BGl_threadzd2joinz12zd2envz12zz__threadz00, BgL_bgl_za762threadza7d2join3162z00, va_generic_entry, BGl_z62threadzd2joinz12za2zz__threadz00, BUNSPEC, -2);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_threadzd2yieldz12zd2envz12zz__threadz00, BgL_bgl_za762threadza7d2yiel3163z00, BGl_z62threadzd2yieldz12za2zz__threadz00, 0L, BUNSPEC, 0);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_makezd2mutexzd2envz00zz__threadz00, BgL_bgl__makeza7d2mutexza7d23164z00, opt_generic_entry, BGl__makezd2mutexzd2zz__threadz00, BFALSE, -1);
DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2610z00zz__threadz00, BgL_bgl_za762lambda1469za7623165z00, BGl_z62lambda1469z62zz__threadz00, 0L, BUNSPEC, 2);
DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2611z00zz__threadz00, BgL_bgl_za762lambda1468za7623166z00, BGl_z62lambda1468z62zz__threadz00, 0L, BUNSPEC, 1);
BGL_DEFINE_STRING(BGl_string2700z00zz__threadz00, BgL_bgl_string2700za700za7za7_3167za7, "thread-name-set!1218", 20 );
DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2614z00zz__threadz00, BgL_bgl_za762za7c3za704anonymo3168za7, BGl_z62zc3z04anonymousza31477ze3ze5zz__threadz00, 0L, BUNSPEC, 0);
DEFINE_EXPORT_BGL_GENERIC(BGl_tbzd2currentzd2threadzd2envzd2zz__threadz00, BgL_bgl_za762tbza7d2currentza73169za7, BGl_z62tbzd2currentzd2threadz62zz__threadz00, 0L, BUNSPEC, 1);
BGL_DEFINE_STRING(BGl_string2702z00zz__threadz00, BgL_bgl_string2702za700za7za7_3170za7, "%user-current-thread1225", 24 );
DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2615z00zz__threadz00, BgL_bgl_za762lambda1476za7623171z00, BGl_z62lambda1476z62zz__threadz00, 0L, BUNSPEC, 2);
BGL_DEFINE_STRING(BGl_string2540z00zz__threadz00, BgL_bgl_string2540za700za7za7_3172za7, "&with-lock", 10 );
DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2616z00zz__threadz00, BgL_bgl_za762lambda1475za7623173z00, BGl_z62lambda1475z62zz__threadz00, 0L, BUNSPEC, 1);
BGL_DEFINE_STRING(BGl_string2541z00zz__threadz00, BgL_bgl_string2541za700za7za7_3174za7, "with-timed-lock:Wrong number of arguments", 41 );
BGL_DEFINE_STRING(BGl_string2704z00zz__threadz00, BgL_bgl_string2704za700za7za7_3175za7, "%user-thread-sleep!1228", 23 );
BGL_DEFINE_STRING(BGl_string2542z00zz__threadz00, BgL_bgl_string2542za700za7za7_3176za7, "with-timed-lock", 15 );
BGL_DEFINE_STRING(BGl_string2543z00zz__threadz00, BgL_bgl_string2543za700za7za7_3177za7, "&with-timed-lock", 16 );
BGL_DEFINE_STRING(BGl_string2706z00zz__threadz00, BgL_bgl_string2706za700za7za7_3178za7, "%user-thread-yield!1231", 23 );
DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2619z00zz__threadz00, BgL_bgl_za762za7c3za704anonymo3179za7, BGl_z62zc3z04anonymousza31433ze3ze5zz__threadz00, 0L, BUNSPEC, 1);
BGL_DEFINE_STRING(BGl_string2544z00zz__threadz00, BgL_bgl_string2544za700za7za7_3180za7, "case_else1270", 13 );
BGL_DEFINE_STRING(BGl_string2707z00zz__threadz00, BgL_bgl_string2707za700za7za7_3181za7, "&%user-thread-yield!1231", 24 );
BGL_DEFINE_STRING(BGl_string2708z00zz__threadz00, BgL_bgl_string2708za700za7za7_3182za7, "belong", 6 );
BGL_DEFINE_STRING(BGl_string2627z00zz__threadz00, BgL_bgl_string2627za700za7za7_3183za7, "nothread-backend", 16 );
BGL_DEFINE_STRING(BGl_string2546z00zz__threadz00, BgL_bgl_string2546za700za7za7_3184za7, "make-condition-variable", 23 );
BGL_DEFINE_STRING(BGl_string2628z00zz__threadz00, BgL_bgl_string2628za700za7za7_3185za7, "", 0 );
BGL_DEFINE_STRING(BGl_string2547z00zz__threadz00, BgL_bgl_string2547za700za7za7_3186za7, "_make-condition-variable", 24 );
BGL_DEFINE_STRING(BGl_string2629z00zz__threadz00, BgL_bgl_string2629za700za7za7_3187za7, "&<@anonymous:1489>", 18 );
BGL_DEFINE_STRING(BGl_string2549z00zz__threadz00, BgL_bgl_string2549za700za7za7_3188za7, "condition-variable", 18 );
DEFINE_EXPORT_BGL_PROCEDURE(BGl_threadzd2parameterzd2setz12zd2envzc0zz__threadz00, BgL_bgl_za762threadza7d2para3189z00, BGl_z62threadzd2parameterzd2setz12z70zz__threadz00, 0L, BUNSPEC, 2);
DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2701z00zz__threadz00, BgL_bgl_za762za752userza7d2cur3190za7, BGl_z62z52userzd2currentzd2thread1225z30zz__threadz00, 0L, BUNSPEC, 1);
DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2620z00zz__threadz00, BgL_bgl_za762lambda1431za7623191z00, BGl_z62lambda1431z62zz__threadz00, 0L, BUNSPEC, 0);
DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2621z00zz__threadz00, BgL_bgl_za762lambda1427za7623192z00, BGl_z62lambda1427z62zz__threadz00, 0L, BUNSPEC, 7);
DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2703z00zz__threadz00, BgL_bgl_za762za752userza7d2thr3193za7, BGl_z62z52userzd2threadzd2sleepz121228z22zz__threadz00, 0L, BUNSPEC, 2);
BGL_DEFINE_STRING(BGl_string2710z00zz__threadz00, BgL_bgl_string2710za700za7za7_3194za7, "date, real, or integer", 22 );
DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2623z00zz__threadz00, BgL_bgl_za762za7c3za704anonymo3195za7, BGl_z62zc3z04anonymousza31489ze3ze5zz__threadz00, 0L, BUNSPEC, 1);
BGL_DEFINE_STRING(BGl_string2711z00zz__threadz00, BgL_bgl_string2711za700za7za7_3196za7, "&%user-thread-sleep!1228", 24 );
DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2705z00zz__threadz00, BgL_bgl_za762za752userza7d2thr3197za7, BGl_z62z52userzd2threadzd2yieldz121231z22zz__threadz00, 0L, BUNSPEC, 1);
BGL_DEFINE_STRING(BGl_string2630z00zz__threadz00, BgL_bgl_string2630za700za7za7_3198za7, "&lambda1484", 11 );
DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2624z00zz__threadz00, BgL_bgl_za762lambda1487za7623199z00, BGl_z62lambda1487z62zz__threadz00, 0L, BUNSPEC, 0);
BGL_DEFINE_STRING(BGl_string2712z00zz__threadz00, BgL_bgl_string2712za700za7za7_3200za7, "&%user-current-thread1225", 25 );
BGL_DEFINE_STRING(BGl_string2631z00zz__threadz00, BgL_bgl_string2631za700za7za7_3201za7, "&<@anonymous:1433>", 18 );
DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2625z00zz__threadz00, BgL_bgl_za762lambda1484za7623202z00, BGl_z62lambda1484z62zz__threadz00, 0L, BUNSPEC, 1);
BGL_DEFINE_STRING(BGl_string2550z00zz__threadz00, BgL_bgl_string2550za700za7za7_3203za7, "&condition-variable-name", 24 );
BGL_DEFINE_STRING(BGl_string2632z00zz__threadz00, BgL_bgl_string2632za700za7za7_3204za7, "lambda1427", 10 );
BGL_DEFINE_STRING(BGl_string2551z00zz__threadz00, BgL_bgl_string2551za700za7za7_3205za7, "condvar", 7 );
DEFINE_EXPORT_BGL_GENERIC(BGl_z52userzd2threadzd2yieldz12zd2envz92zz__threadz00, BgL_bgl_za762za752userza7d2thr3206za7, BGl_z62z52userzd2threadzd2yieldz12z22zz__threadz00, 0L, BUNSPEC, 1);
BGL_DEFINE_STRING(BGl_string2714z00zz__threadz00, BgL_bgl_string2714za700za7za7_3207za7, "No method for this object", 25 );
BGL_DEFINE_STRING(BGl_string2633z00zz__threadz00, BgL_bgl_string2633za700za7za7_3208za7, "lambda1427:Wrong number of arguments", 36 );
BGL_DEFINE_STRING(BGl_string2552z00zz__threadz00, BgL_bgl_string2552za700za7za7_3209za7, "_condition-variable-wait!", 25 );
BGL_DEFINE_STRING(BGl_string2715z00zz__threadz00, BgL_bgl_string2715za700za7za7_3210za7, "&thread-name-set!1218", 21 );
BGL_DEFINE_STRING(BGl_string2553z00zz__threadz00, BgL_bgl_string2553za700za7za7_3211za7, "case_else1276", 13 );
BGL_DEFINE_STRING(BGl_string2717z00zz__threadz00, BgL_bgl_string2717za700za7za7_3212za7, "&thread-name1216", 16 );
BGL_DEFINE_STRING(BGl_string2636z00zz__threadz00, BgL_bgl_string2636za700za7za7_3213za7, "fun1429", 7 );
BGL_DEFINE_STRING(BGl_string2555z00zz__threadz00, BgL_bgl_string2555za700za7za7_3214za7, "condition-variable-wait!", 24 );
DEFINE_EXPORT_BGL_PROCEDURE(BGl_withzd2timedzd2lockzd2envzd2zz__threadz00, BgL_bgl_za762withza7d2timedza73215za7, BGl_z62withzd2timedzd2lockz62zz__threadz00, 0L, BUNSPEC, 3);
BGL_DEFINE_STRING(BGl_string2556z00zz__threadz00, BgL_bgl_string2556za700za7za7_3216za7, "wrong number of arguments: [2..3] expected, provided", 52 );
BGL_DEFINE_STRING(BGl_string2719z00zz__threadz00, BgL_bgl_string2719za700za7za7_3217za7, "&thread-cleanup-set!1214", 24 );
BGL_DEFINE_STRING(BGl_string2638z00zz__threadz00, BgL_bgl_string2638za700za7za7_3218za7, "new1117", 7 );
BGL_DEFINE_STRING(BGl_string2557z00zz__threadz00, BgL_bgl_string2557za700za7za7_3219za7, "&condition-variable-signal!", 27 );
BGL_DEFINE_STRING(BGl_string2639z00zz__threadz00, BgL_bgl_string2639za700za7za7_3220za7, "&lambda1427", 11 );
BGL_DEFINE_STRING(BGl_string2558z00zz__threadz00, BgL_bgl_string2558za700za7za7_3221za7, "&condition-variable-broadcast!", 30 );
DEFINE_EXPORT_BGL_GENERIC(BGl_tbzd2mutexzd2initializa7ez12zd2envz67zz__threadz00, BgL_bgl_za762tbza7d2mutexza7d23222za7, BGl_z62tbzd2mutexzd2initializa7ez12zd7zz__threadz00, 0L, BUNSPEC, 2);
DEFINE_EXPORT_BGL_GENERIC(BGl_threadzd2specificzd2setz12zd2envzc0zz__threadz00, BgL_bgl_za762threadza7d2spec3223z00, BGl_z62threadzd2specificzd2setz12z70zz__threadz00, 0L, BUNSPEC, 2);
BGL_DEFINE_STRING(BGl_string2800z00zz__threadz00, BgL_bgl_string2800za700za7za7_3224za7, "quote", 5 );
DEFINE_EXPORT_BGL_GENERIC(BGl_threadzd2specificzd2envz00zz__threadz00, BgL_bgl_za762threadza7d2spec3225z00, BGl_z62threadzd2specificzb0zz__threadz00, 0L, BUNSPEC, 1);
BGL_DEFINE_STRING(BGl_string2721z00zz__threadz00, BgL_bgl_string2721za700za7za7_3226za7, "&thread-cleanup1212", 19 );
BGL_DEFINE_STRING(BGl_string2640z00zz__threadz00, BgL_bgl_string2640za700za7za7_3227za7, "bigloo", 6 );
BGL_DEFINE_STRING(BGl_string2803z00zz__threadz00, BgL_bgl_string2803za700za7za7_3228za7, "cons*", 5 );
BGL_DEFINE_STRING(BGl_string2641z00zz__threadz00, BgL_bgl_string2641za700za7za7_3229za7, "&lambda1476", 11 );
BGL_DEFINE_STRING(BGl_string2804z00zz__threadz00, BgL_bgl_string2804za700za7za7_3230za7, "&thread-start!", 14 );
BGL_DEFINE_STRING(BGl_string2723z00zz__threadz00, BgL_bgl_string2723za700za7za7_3231za7, "&thread-specific-set!1210", 25 );
BGL_DEFINE_STRING(BGl_string2642z00zz__threadz00, BgL_bgl_string2642za700za7za7_3232za7, "&lambda1475", 11 );
BGL_DEFINE_STRING(BGl_string2805z00zz__threadz00, BgL_bgl_string2805za700za7za7_3233za7, "thread-start-joinable!:Wrong number of arguments", 48 );
BGL_DEFINE_STRING(BGl_string2643z00zz__threadz00, BgL_bgl_string2643za700za7za7_3234za7, "&lambda1469", 11 );
BGL_DEFINE_STRING(BGl_string2562z00zz__threadz00, BgL_bgl_string2562za700za7za7_3235za7, "name", 4 );
BGL_DEFINE_STRING(BGl_string2725z00zz__threadz00, BgL_bgl_string2725za700za7za7_3236za7, "&thread-specific1207", 20 );
BGL_DEFINE_STRING(BGl_string2644z00zz__threadz00, BgL_bgl_string2644za700za7za7_3237za7, "&lambda1468", 11 );
extern obj_t BGl_objectzd2printzd2envz00zz__objectz00;
BGL_DEFINE_STRING(BGl_string2645z00zz__threadz00, BgL_bgl_string2645za700za7za7_3238za7, "&lambda1461", 11 );
BGL_DEFINE_STRING(BGl_string2483z00zz__threadz00, BgL_bgl_string2483za700za7za7_3239za7, "nothread", 8 );
BGL_DEFINE_STRING(BGl_string2808z00zz__threadz00, BgL_bgl_string2808za700za7za7_3240za7, "method1200", 10 );
BGL_DEFINE_STRING(BGl_string2727z00zz__threadz00, BgL_bgl_string2727za700za7za7_3241za7, "&thread-kill!1205", 17 );
BGL_DEFINE_STRING(BGl_string2646z00zz__threadz00, BgL_bgl_string2646za700za7za7_3242za7, "&lambda1460", 11 );
DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2559z00zz__threadz00, BgL_bgl_za762lambda1380za7623243z00, BGl_z62lambda1380z62zz__threadz00, 0L, BUNSPEC, 2);
BGL_DEFINE_STRING(BGl_string2484z00zz__threadz00, BgL_bgl_string2484za700za7za7_3244za7, "/tmp/bigloo/runtime/Llib/thread.scm", 35 );
BGL_DEFINE_STRING(BGl_string2809z00zz__threadz00, BgL_bgl_string2809za700za7za7_3245za7, "&thread-start-joinable!", 23 );
BGL_DEFINE_STRING(BGl_string2647z00zz__threadz00, BgL_bgl_string2647za700za7za7_3246za7, "&lambda1454", 11 );
BGL_DEFINE_STRING(BGl_string2485z00zz__threadz00, BgL_bgl_string2485za700za7za7_3247za7, "&current-thread-backend-set!", 28 );
BGL_DEFINE_STRING(BGl_string2729z00zz__threadz00, BgL_bgl_string2729za700za7za7_3248za7, "&thread-terminate!1203", 22 );
BGL_DEFINE_STRING(BGl_string2648z00zz__threadz00, BgL_bgl_string2648za700za7za7_3249za7, "&lambda1453", 11 );
BGL_DEFINE_STRING(BGl_string2486z00zz__threadz00, BgL_bgl_string2486za700za7za7_3250za7, "thread-backend", 14 );
BGL_DEFINE_STRING(BGl_string2649z00zz__threadz00, BgL_bgl_string2649za700za7za7_3251za7, "&lambda1446", 11 );
BGL_DEFINE_STRING(BGl_string2487z00zz__threadz00, BgL_bgl_string2487za700za7za7_3252za7, "default-thread-backend", 22 );
BGL_DEFINE_STRING(BGl_string2569z00zz__threadz00, BgL_bgl_string2569za700za7za7_3253za7, "__thread", 8 );
BGL_DEFINE_STRING(BGl_string2488z00zz__threadz00, BgL_bgl_string2488za700za7za7_3254za7, "pair", 4 );
BGL_DEFINE_STRING(BGl_string2489z00zz__threadz00, BgL_bgl_string2489za700za7za7_3255za7, "&default-thread-backend-set!", 28 );
extern obj_t BGl_objectzd2displayzd2envz00zz__objectz00;
DEFINE_EXPORT_BGL_GENERIC(BGl_threadzd2startzd2joinablez12zd2envzc0zz__threadz00, BgL_bgl_za762threadza7d2star3256z00, BGl_z62threadzd2startzd2joinablez12z70zz__threadz00, 0L, BUNSPEC, 1);
DEFINE_EXPORT_BGL_GENERIC(BGl_threadzd2cleanupzd2setz12zd2envzc0zz__threadz00, BgL_bgl_za762threadza7d2clea3257z00, BGl_z62threadzd2cleanupzd2setz12z70zz__threadz00, 0L, BUNSPEC, 2);
DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2560z00zz__threadz00, BgL_bgl_za762lambda1379za7623258z00, BGl_z62lambda1379z62zz__threadz00, 0L, BUNSPEC, 1);
BGL_DEFINE_STRING(BGl_string2810z00zz__threadz00, BgL_bgl_string2810za700za7za7_3259za7, "thread-join!", 12 );
BGL_DEFINE_STRING(BGl_string2731z00zz__threadz00, BgL_bgl_string2731za700za7za7_3260za7, "&thread-join!1201", 17 );
BGL_DEFINE_STRING(BGl_string2650z00zz__threadz00, BgL_bgl_string2650za700za7za7_3261za7, "&lambda1445", 11 );
BGL_DEFINE_STRING(BGl_string2651z00zz__threadz00, BgL_bgl_string2651za700za7za7_3262za7, "&lambda1438", 11 );
DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2564z00zz__threadz00, BgL_bgl_za762za7c3za704anonymo3263za7, BGl_z62zc3z04anonymousza31375ze3ze5zz__threadz00, 0L, BUNSPEC, 1);
BGL_DEFINE_STRING(BGl_string2814z00zz__threadz00, BgL_bgl_string2814za700za7za7_3264za7, "method1202", 10 );
BGL_DEFINE_STRING(BGl_string2733z00zz__threadz00, BgL_bgl_string2733za700za7za7_3265za7, "&thread-start-joinabl1199", 25 );
BGL_DEFINE_STRING(BGl_string2652z00zz__threadz00, BgL_bgl_string2652za700za7za7_3266za7, "&lambda1437", 11 );
DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2565z00zz__threadz00, BgL_bgl_za762lambda1373za7623267z00, BGl_z62lambda1373z62zz__threadz00, 0L, BUNSPEC, 0);
BGL_DEFINE_STRING(BGl_string2490z00zz__threadz00, BgL_bgl_string2490za700za7za7_3268za7, "loop", 4 );
BGL_DEFINE_STRING(BGl_string2653z00zz__threadz00, BgL_bgl_string2653za700za7za7_3269za7, "&<@anonymous:1387>", 18 );
DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2566z00zz__threadz00, BgL_bgl_za762lambda1371za7623270z00, BGl_z62lambda1371z62zz__threadz00, 0L, BUNSPEC, 1);
BGL_DEFINE_STRING(BGl_string2491z00zz__threadz00, BgL_bgl_string2491za700za7za7_3271za7, "&get-thread-backend", 19 );
BGL_DEFINE_STRING(BGl_string2735z00zz__threadz00, BgL_bgl_string2735za700za7za7_3272za7, "&thread-start!1197", 18 );
BGL_DEFINE_STRING(BGl_string2654z00zz__threadz00, BgL_bgl_string2654za700za7za7_3273za7, "<@anonymous:1420>", 17 );
BGL_DEFINE_STRING(BGl_string2492z00zz__threadz00, BgL_bgl_string2492za700za7za7_3274za7, "bstring", 7 );
BGL_DEFINE_STRING(BGl_string2736z00zz__threadz00, BgL_bgl_string2736za700za7za7_3275za7, "&thread-initialize!1195", 23 );
BGL_DEFINE_STRING(BGl_string2655z00zz__threadz00, BgL_bgl_string2655za700za7za7_3276za7, "<@anonymous:1418>", 17 );
BGL_DEFINE_STRING(BGl_string2574z00zz__threadz00, BgL_bgl_string2574za700za7za7_3277za7, "obj", 3 );
BGL_DEFINE_STRING(BGl_string2493z00zz__threadz00, BgL_bgl_string2493za700za7za7_3278za7, "_make-thread", 12 );
BGL_DEFINE_STRING(BGl_string2656z00zz__threadz00, BgL_bgl_string2656za700za7za7_3279za7, "<@anonymous:1412>", 17 );
BGL_DEFINE_STRING(BGl_string2494z00zz__threadz00, BgL_bgl_string2494za700za7za7_3280za7, "vector", 6 );
BGL_DEFINE_STRING(BGl_string2819z00zz__threadz00, BgL_bgl_string2819za700za7za7_3281za7, "list1530", 8 );
BGL_DEFINE_STRING(BGl_string2738z00zz__threadz00, BgL_bgl_string2738za700za7za7_3282za7, "&tb-condvar-initializ1187", 25 );
BGL_DEFINE_STRING(BGl_string2657z00zz__threadz00, BgL_bgl_string2657za700za7za7_3283za7, "<@anonymous:1410>", 17 );
BGL_DEFINE_STRING(BGl_string2495z00zz__threadz00, BgL_bgl_string2495za700za7za7_3284za7, "case_else1223", 13 );
BGL_DEFINE_STRING(BGl_string2658z00zz__threadz00, BgL_bgl_string2658za700za7za7_3285za7, "<@anonymous:1404>", 17 );
BGL_DEFINE_STRING(BGl_string2659z00zz__threadz00, BgL_bgl_string2659za700za7za7_3286za7, "object", 6 );
BGL_DEFINE_STRING(BGl_string2578z00zz__threadz00, BgL_bgl_string2578za700za7za7_3287za7, "specific", 8 );
BGL_DEFINE_STRING(BGl_string2497z00zz__threadz00, BgL_bgl_string2497za700za7za7_3288za7, "make-thread", 11 );
BGL_DEFINE_STRING(BGl_string2498z00zz__threadz00, BgL_bgl_string2498za700za7za7_3289za7, "wrong number of arguments: [1..2] expected, provided", 52 );
DEFINE_EXPORT_BGL_PROCEDURE(BGl_conditionzd2variablezd2broadcastz12zd2envzc0zz__threadz00, BgL_bgl_za762conditionza7d2v3290z00, BGl_z62conditionzd2variablezd2broadcastz12z70zz__threadz00, 0L, BUNSPEC, 1);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_threadzd2sleepz12zd2envz12zz__threadz00, BgL_bgl_za762threadza7d2slee3291z00, BGl_z62threadzd2sleepz12za2zz__threadz00, 0L, BUNSPEC, 1);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_defaultzd2threadzd2backendzd2envzd2zz__threadz00, BgL_bgl_za762defaultza7d2thr3292z00, BGl_z62defaultzd2threadzd2backendz62zz__threadz00, 0L, BUNSPEC, 0);
BGL_DEFINE_STRING(BGl_string2900z00zz__threadz00, BgL_bgl_string2900za700za7za7_3293za7, "thread-start-joinable!", 22 );
DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2570z00zz__threadz00, BgL_bgl_za762za7c3za704anonymo3294za7, BGl_z62zc3z04anonymousza31394ze3ze5zz__threadz00, 0L, BUNSPEC, 0);
DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2571z00zz__threadz00, BgL_bgl_za762lambda1393za7623295z00, BGl_z62lambda1393z62zz__threadz00, 0L, BUNSPEC, 2);
BGL_DEFINE_STRING(BGl_string2740z00zz__threadz00, BgL_bgl_string2740za700za7za7_3296za7, "&tb-mutex-initialize!1185", 25 );
DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2572z00zz__threadz00, BgL_bgl_za762lambda1392za7623297z00, BGl_z62lambda1392z62zz__threadz00, 0L, BUNSPEC, 1);
BGL_DEFINE_STRING(BGl_string2903z00zz__threadz00, BgL_bgl_string2903za700za7za7_3298za7, "thread-terminate!", 17 );
BGL_DEFINE_STRING(BGl_string2822z00zz__threadz00, BgL_bgl_string2822za700za7za7_3299za7, "timeout", 7 );
BGL_DEFINE_STRING(BGl_string2660z00zz__threadz00, BgL_bgl_string2660za700za7za7_3300za7, "<@anonymous:1403>", 17 );
BGL_DEFINE_STRING(BGl_string2742z00zz__threadz00, BgL_bgl_string2742za700za7za7_3301za7, "&tb-current-thread1179", 22 );
BGL_DEFINE_STRING(BGl_string2661z00zz__threadz00, BgL_bgl_string2661za700za7za7_3302za7, "<@anonymous:1399>", 17 );
BGL_DEFINE_STRING(BGl_string2905z00zz__threadz00, BgL_bgl_string2905za700za7za7_3303za7, "thread-kill!", 12 );
BGL_DEFINE_STRING(BGl_string2824z00zz__threadz00, BgL_bgl_string2824za700za7za7_3304za7, "&thread-join!", 13 );
BGL_DEFINE_STRING(BGl_string2662z00zz__threadz00, BgL_bgl_string2662za700za7za7_3305za7, "<@anonymous:1398>", 17 );
DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2575z00zz__threadz00, BgL_bgl_za762za7c3za704anonymo3306za7, BGl_z62zc3z04anonymousza31399ze3ze5zz__threadz00, 0L, BUNSPEC, 2);
BGL_DEFINE_STRING(BGl_string2825z00zz__threadz00, BgL_bgl_string2825za700za7za7_3307za7, "thread-terminate!:Wrong number of arguments", 43 );
BGL_DEFINE_STRING(BGl_string2744z00zz__threadz00, BgL_bgl_string2744za700za7za7_3308za7, "&tb-make-thread1176", 19 );
BGL_DEFINE_STRING(BGl_string2663z00zz__threadz00, BgL_bgl_string2663za700za7za7_3309za7, "&lambda1393", 11 );
BGL_DEFINE_STRING(BGl_string2582z00zz__threadz00, BgL_bgl_string2582za700za7za7_3310za7, "cleanup", 7 );
DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2576z00zz__threadz00, BgL_bgl_za762za7c3za704anonymo3311za7, BGl_z62zc3z04anonymousza31398ze3ze5zz__threadz00, 0L, BUNSPEC, 1);
BGL_DEFINE_STRING(BGl_string2907z00zz__threadz00, BgL_bgl_string2907za700za7za7_3312za7, "thread-specific", 15 );
BGL_DEFINE_STRING(BGl_string2745z00zz__threadz00, BgL_bgl_string2745za700za7za7_3313za7, "tb-make-thread", 14 );
BGL_DEFINE_STRING(BGl_string2664z00zz__threadz00, BgL_bgl_string2664za700za7za7_3314za7, "&lambda1392", 11 );
BGL_DEFINE_STRING(BGl_string2746z00zz__threadz00, BgL_bgl_string2746za700za7za7_3315za7, "tb-make-thread:Wrong number of arguments", 40 );
BGL_DEFINE_STRING(BGl_string2665z00zz__threadz00, BgL_bgl_string2665za700za7za7_3316za7, "&<@anonymous:1375>", 18 );
BGL_DEFINE_STRING(BGl_string2909z00zz__threadz00, BgL_bgl_string2909za700za7za7_3317za7, "thread-specific-set!", 20 );
BGL_DEFINE_STRING(BGl_string2828z00zz__threadz00, BgL_bgl_string2828za700za7za7_3318za7, "method1204", 10 );
BGL_DEFINE_STRING(BGl_string2666z00zz__threadz00, BgL_bgl_string2666za700za7za7_3319za7, "&lambda1371", 11 );
DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2579z00zz__threadz00, BgL_bgl_za762za7c3za704anonymo3320za7, BGl_z62zc3z04anonymousza31404ze3ze5zz__threadz00, 0L, BUNSPEC, 2);
BGL_DEFINE_STRING(BGl_string2829z00zz__threadz00, BgL_bgl_string2829za700za7za7_3321za7, "&thread-terminate!", 18 );
BGL_DEFINE_STRING(BGl_string2667z00zz__threadz00, BgL_bgl_string2667za700za7za7_3322za7, "&lambda1380", 11 );
BGL_DEFINE_STRING(BGl_string2749z00zz__threadz00, BgL_bgl_string2749za700za7za7_3323za7, "method1178", 10 );
BGL_DEFINE_STRING(BGl_string2668z00zz__threadz00, BgL_bgl_string2668za700za7za7_3324za7, "&lambda1379", 11 );
DEFINE_EXPORT_BGL_PROCEDURE(BGl_getzd2threadzd2backendzd2envzd2zz__threadz00, BgL_bgl_za762getza7d2threadza73325za7, BGl_z62getzd2threadzd2backendz62zz__threadz00, 0L, BUNSPEC, 1);
DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2901z00zz__threadz00, BgL_bgl_za762threadza7d2join3326z00, va_generic_entry, BGl_z62threadzd2joinz12zd2nothrea1238z70zz__threadz00, BUNSPEC, -2);
DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2902z00zz__threadz00, BgL_bgl_za762threadza7d2term3327z00, BGl_z62threadzd2terminatez12zd2no1240z70zz__threadz00, 0L, BUNSPEC, 1);
DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2904z00zz__threadz00, BgL_bgl_za762threadza7d2kill3328z00, BGl_z62threadzd2killz12zd2nothrea1242z70zz__threadz00, 0L, BUNSPEC, 2);
DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2580z00zz__threadz00, BgL_bgl_za762za7c3za704anonymo3329za7, BGl_z62zc3z04anonymousza31403ze3ze5zz__threadz00, 0L, BUNSPEC, 1);
BGL_DEFINE_STRING(BGl_string2911z00zz__threadz00, BgL_bgl_string2911za700za7za7_3330za7, "thread-cleanup", 14 );
BGL_DEFINE_STRING(BGl_string2830z00zz__threadz00, BgL_bgl_string2830za700za7za7_3331za7, "thread-kill!:Wrong number of arguments", 38 );
DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2906z00zz__threadz00, BgL_bgl_za762threadza7d2spec3332z00, BGl_z62threadzd2specificzd2noth1244z62zz__threadz00, 0L, BUNSPEC, 1);
BGL_DEFINE_STRING(BGl_string2913z00zz__threadz00, BgL_bgl_string2913za700za7za7_3333za7, "thread-cleanup-set!", 19 );
BGL_DEFINE_STRING(BGl_string2751z00zz__threadz00, BgL_bgl_string2751za700za7za7_3334za7, "tb", 2 );
BGL_DEFINE_STRING(BGl_string2670z00zz__threadz00, BgL_bgl_string2670za700za7za7_3335za7, "tb-make-thread1176", 18 );
DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2583z00zz__threadz00, BgL_bgl_za762za7c3za704anonymo3336za7, BGl_z62zc3z04anonymousza31410ze3ze5zz__threadz00, 0L, BUNSPEC, 1);
DEFINE_EXPORT_BGL_GENERIC(BGl_z52userzd2threadzd2sleepz12zd2envz92zz__threadz00, BgL_bgl_za762za752userza7d2thr3337za7, BGl_z62z52userzd2threadzd2sleepz12z22zz__threadz00, 0L, BUNSPEC, 2);
DEFINE_EXPORT_BGL_GENERIC(BGl_tbzd2condvarzd2initializa7ez12zd2envz67zz__threadz00, BgL_bgl_za762tbza7d2condvarza73338za7, BGl_z62tbzd2condvarzd2initializa7ez12zd7zz__threadz00, 0L, BUNSPEC, 2);
DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2908z00zz__threadz00, BgL_bgl_za762threadza7d2spec3339z00, BGl_z62threadzd2specificzd2setz121246z70zz__threadz00, 0L, BUNSPEC, 2);
BGL_DEFINE_STRING(BGl_string2833z00zz__threadz00, BgL_bgl_string2833za700za7za7_3340za7, "method1206", 10 );
BGL_DEFINE_STRING(BGl_string2752z00zz__threadz00, BgL_bgl_string2752za700za7za7_3341za7, "&tb-make-thread", 15 );
DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2584z00zz__threadz00, BgL_bgl_za762za7c3za704anonymo3342za7, BGl_z62zc3z04anonymousza31412ze3ze5zz__threadz00, 0L, BUNSPEC, 2);
BGL_DEFINE_STRING(BGl_string2753z00zz__threadz00, BgL_bgl_string2753za700za7za7_3343za7, "tb-current-thread:Wrong number of arguments", 43 );
BGL_DEFINE_STRING(BGl_string2672z00zz__threadz00, BgL_bgl_string2672za700za7za7_3344za7, "tb-current-thread1179", 21 );
DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2585z00zz__threadz00, BgL_bgl_za762za7c3za704anonymo3345za7, BGl_z62zc3z04anonymousza31418ze3ze5zz__threadz00, 0L, BUNSPEC, 1);
DEFINE_EXPORT_BGL_GENERIC(BGl_threadzd2killz12zd2envz12zz__threadz00, BgL_bgl_za762threadza7d2kill3346z00, BGl_z62threadzd2killz12za2zz__threadz00, 0L, BUNSPEC, 2);
BGL_DEFINE_STRING(BGl_string2916z00zz__threadz00, BgL_bgl_string2916za700za7za7_3347za7, "thread-name-set!", 16 );
BGL_DEFINE_STRING(BGl_string2835z00zz__threadz00, BgL_bgl_string2835za700za7za7_3348za7, "n", 1 );
BGL_DEFINE_STRING(BGl_string2592z00zz__threadz00, BgL_bgl_string2592za700za7za7_3349za7, "body", 4 );
DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2586z00zz__threadz00, BgL_bgl_za762za7c3za704anonymo3350za7, BGl_z62zc3z04anonymousza31420ze3ze5zz__threadz00, 0L, BUNSPEC, 2);
BGL_DEFINE_STRING(BGl_string2917z00zz__threadz00, BgL_bgl_string2917za700za7za7_3351za7, "thread-name-set!-not1254", 24 );
BGL_DEFINE_STRING(BGl_string2836z00zz__threadz00, BgL_bgl_string2836za700za7za7_3352za7, "&thread-kill!", 13 );
BGL_DEFINE_STRING(BGl_string2674z00zz__threadz00, BgL_bgl_string2674za700za7za7_3353za7, "tb-mutex-initialize!1185", 24 );
DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2587z00zz__threadz00, BgL_bgl_za762za7c3za704anonymo3354za7, BGl_z62zc3z04anonymousza31387ze3ze5zz__threadz00, 0L, BUNSPEC, 1);
BGL_DEFINE_STRING(BGl_string2918z00zz__threadz00, BgL_bgl_string2918za700za7za7_3355za7, "&thread-name-set!-not1254", 25 );
BGL_DEFINE_STRING(BGl_string2837z00zz__threadz00, BgL_bgl_string2837za700za7za7_3356za7, "thread-specific:Wrong number of arguments", 41 );
BGL_DEFINE_STRING(BGl_string2756z00zz__threadz00, BgL_bgl_string2756za700za7za7_3357za7, "method1180", 10 );
DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2669z00zz__threadz00, BgL_bgl_za762tbza7d2makeza7d2t3358za7, BGl_z62tbzd2makezd2thread1176z62zz__threadz00, 0L, BUNSPEC, 3);
DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2588z00zz__threadz00, BgL_bgl_za762lambda1385za7623359z00, BGl_z62lambda1385z62zz__threadz00, 0L, BUNSPEC, 0);
BGL_DEFINE_STRING(BGl_string2919z00zz__threadz00, BgL_bgl_string2919za700za7za7_3360za7, "&thread-name-nothread1252", 25 );
BGL_DEFINE_STRING(BGl_string2757z00zz__threadz00, BgL_bgl_string2757za700za7za7_3361za7, "&tb-current-thread", 18 );
BGL_DEFINE_STRING(BGl_string2676z00zz__threadz00, BgL_bgl_string2676za700za7za7_3362za7, "tb-condvar-initializ1187", 24 );
DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2589z00zz__threadz00, BgL_bgl_za762lambda1438za7623363z00, BGl_z62lambda1438z62zz__threadz00, 0L, BUNSPEC, 2);
BGL_DEFINE_STRING(BGl_string2758z00zz__threadz00, BgL_bgl_string2758za700za7za7_3364za7, "tb-mutex-initialize!", 20 );
BGL_DEFINE_STRING(BGl_string2759z00zz__threadz00, BgL_bgl_string2759za700za7za7_3365za7, "tb-mutex-initialize!:Wrong number of arguments", 46 );
BGL_DEFINE_STRING(BGl_string2678z00zz__threadz00, BgL_bgl_string2678za700za7za7_3366za7, "thread-initialize!1195", 22 );
BGL_DEFINE_STRING(BGl_string2598z00zz__threadz00, BgL_bgl_string2598za700za7za7_3367za7, "%specific", 9 );

/* contant bindings */
static void bgl_constant_bindings() {
BGL_BIND_STRING(BGl_string2598z00zz__threadz00, BgL_bgl_string2598za700za7za7_3367za7);
BGL_BIND_STRING(BGl_string2678z00zz__threadz00, BgL_bgl_string2678za700za7za7_3366za7);
BGL_BIND_STRING(BGl_string2759z00zz__threadz00, BgL_bgl_string2759za700za7za7_3365za7);
BGL_BIND_STRING(BGl_string2758z00zz__threadz00, BgL_bgl_string2758za700za7za7_3364za7);
BGL_BIND_PROCEDURE(BGl_proc2589z00zz__threadz00, BgL_bgl_za762lambda1438za7623363z00);
BGL_BIND_STRING(BGl_string2676z00zz__threadz00, BgL_bgl_string2676za700za7za7_3362za7);
BGL_BIND_STRING(BGl_string2757z00zz__threadz00, BgL_bgl_string2757za700za7za7_3361za7);
BGL_BIND_STRING(BGl_string2919z00zz__threadz00, BgL_bgl_string2919za700za7za7_3360za7);
BGL_BIND_PROCEDURE(BGl_proc2588z00zz__threadz00, BgL_bgl_za762lambda1385za7623359z00);
BGL_BIND_PROCEDURE(BGl_proc2669z00zz__threadz00, BgL_bgl_za762tbza7d2makeza7d2t3358za7);
BGL_BIND_STRING(BGl_string2756z00zz__threadz00, BgL_bgl_string2756za700za7za7_3357za7);
BGL_BIND_STRING(BGl_string2837z00zz__threadz00, BgL_bgl_string2837za700za7za7_3356za7);
BGL_BIND_STRING(BGl_string2918z00zz__threadz00, BgL_bgl_string2918za700za7za7_3355za7);
BGL_BIND_PROCEDURE(BGl_proc2587z00zz__threadz00, BgL_bgl_za762za7c3za704anonymo3354za7);
BGL_BIND_STRING(BGl_string2674z00zz__threadz00, BgL_bgl_string2674za700za7za7_3353za7);
BGL_BIND_STRING(BGl_string2836z00zz__threadz00, BgL_bgl_string2836za700za7za7_3352za7);
BGL_BIND_STRING(BGl_string2917z00zz__threadz00, BgL_bgl_string2917za700za7za7_3351za7);
BGL_BIND_PROCEDURE(BGl_proc2586z00zz__threadz00, BgL_bgl_za762za7c3za704anonymo3350za7);
BGL_BIND_STRING(BGl_string2592z00zz__threadz00, BgL_bgl_string2592za700za7za7_3349za7);
BGL_BIND_STRING(BGl_string2835z00zz__threadz00, BgL_bgl_string2835za700za7za7_3348za7);
BGL_BIND_STRING(BGl_string2916z00zz__threadz00, BgL_bgl_string2916za700za7za7_3347za7);
BGL_BIND_PROCEDURE(BGl_threadzd2killz12zd2envz12zz__threadz00, BgL_bgl_za762threadza7d2kill3346z00);
BGL_BIND_PROCEDURE(BGl_proc2585z00zz__threadz00, BgL_bgl_za762za7c3za704anonymo3345za7);
BGL_BIND_STRING(BGl_string2672z00zz__threadz00, BgL_bgl_string2672za700za7za7_3344za7);
BGL_BIND_STRING(BGl_string2753z00zz__threadz00, BgL_bgl_string2753za700za7za7_3343za7);
BGL_BIND_PROCEDURE(BGl_proc2584z00zz__threadz00, BgL_bgl_za762za7c3za704anonymo3342za7);
BGL_BIND_STRING(BGl_string2752z00zz__threadz00, BgL_bgl_string2752za700za7za7_3341za7);
BGL_BIND_STRING(BGl_string2833z00zz__threadz00, BgL_bgl_string2833za700za7za7_3340za7);
BGL_BIND_PROCEDURE(BGl_proc2908z00zz__threadz00, BgL_bgl_za762threadza7d2spec3339z00);
BGL_BIND_PROCEDURE(BGl_tbzd2condvarzd2initializa7ez12zd2envz67zz__threadz00, BgL_bgl_za762tbza7d2condvarza73338za7);
BGL_BIND_PROCEDURE(BGl_z52userzd2threadzd2sleepz12zd2envz92zz__threadz00, BgL_bgl_za762za752userza7d2thr3337za7);
BGL_BIND_PROCEDURE(BGl_proc2583z00zz__threadz00, BgL_bgl_za762za7c3za704anonymo3336za7);
BGL_BIND_STRING(BGl_string2670z00zz__threadz00, BgL_bgl_string2670za700za7za7_3335za7);
BGL_BIND_STRING(BGl_string2751z00zz__threadz00, BgL_bgl_string2751za700za7za7_3334za7);
BGL_BIND_STRING(BGl_string2913z00zz__threadz00, BgL_bgl_string2913za700za7za7_3333za7);
BGL_BIND_PROCEDURE(BGl_proc2906z00zz__threadz00, BgL_bgl_za762threadza7d2spec3332z00);
BGL_BIND_STRING(BGl_string2830z00zz__threadz00, BgL_bgl_string2830za700za7za7_3331za7);
BGL_BIND_STRING(BGl_string2911z00zz__threadz00, BgL_bgl_string2911za700za7za7_3330za7);
BGL_BIND_PROCEDURE(BGl_proc2580z00zz__threadz00, BgL_bgl_za762za7c3za704anonymo3329za7);
BGL_BIND_PROCEDURE(BGl_proc2904z00zz__threadz00, BgL_bgl_za762threadza7d2kill3328z00);
BGL_BIND_PROCEDURE(BGl_proc2902z00zz__threadz00, BgL_bgl_za762threadza7d2term3327z00);
BGL_BIND_PROCEDURE(BGl_proc2901z00zz__threadz00, BgL_bgl_za762threadza7d2join3326z00);
BGL_BIND_PROCEDURE(BGl_getzd2threadzd2backendzd2envzd2zz__threadz00, BgL_bgl_za762getza7d2threadza73325za7);
BGL_BIND_STRING(BGl_string2668z00zz__threadz00, BgL_bgl_string2668za700za7za7_3324za7);
BGL_BIND_STRING(BGl_string2749z00zz__threadz00, BgL_bgl_string2749za700za7za7_3323za7);
BGL_BIND_STRING(BGl_string2667z00zz__threadz00, BgL_bgl_string2667za700za7za7_3322za7);
BGL_BIND_STRING(BGl_string2829z00zz__threadz00, BgL_bgl_string2829za700za7za7_3321za7);
BGL_BIND_PROCEDURE(BGl_proc2579z00zz__threadz00, BgL_bgl_za762za7c3za704anonymo3320za7);
BGL_BIND_STRING(BGl_string2666z00zz__threadz00, BgL_bgl_string2666za700za7za7_3319za7);
BGL_BIND_STRING(BGl_string2828z00zz__threadz00, BgL_bgl_string2828za700za7za7_3318za7);
BGL_BIND_STRING(BGl_string2909z00zz__threadz00, BgL_bgl_string2909za700za7za7_3317za7);
BGL_BIND_STRING(BGl_string2665z00zz__threadz00, BgL_bgl_string2665za700za7za7_3316za7);
BGL_BIND_STRING(BGl_string2746z00zz__threadz00, BgL_bgl_string2746za700za7za7_3315za7);
BGL_BIND_STRING(BGl_string2664z00zz__threadz00, BgL_bgl_string2664za700za7za7_3314za7);
BGL_BIND_STRING(BGl_string2745z00zz__threadz00, BgL_bgl_string2745za700za7za7_3313za7);
BGL_BIND_STRING(BGl_string2907z00zz__threadz00, BgL_bgl_string2907za700za7za7_3312za7);
BGL_BIND_PROCEDURE(BGl_proc2576z00zz__threadz00, BgL_bgl_za762za7c3za704anonymo3311za7);
BGL_BIND_STRING(BGl_string2582z00zz__threadz00, BgL_bgl_string2582za700za7za7_3310za7);
BGL_BIND_STRING(BGl_string2663z00zz__threadz00, BgL_bgl_string2663za700za7za7_3309za7);
BGL_BIND_STRING(BGl_string2744z00zz__threadz00, BgL_bgl_string2744za700za7za7_3308za7);
BGL_BIND_STRING(BGl_string2825z00zz__threadz00, BgL_bgl_string2825za700za7za7_3307za7);
BGL_BIND_PROCEDURE(BGl_proc2575z00zz__threadz00, BgL_bgl_za762za7c3za704anonymo3306za7);
BGL_BIND_STRING(BGl_string2662z00zz__threadz00, BgL_bgl_string2662za700za7za7_3305za7);
BGL_BIND_STRING(BGl_string2824z00zz__threadz00, BgL_bgl_string2824za700za7za7_3304za7);
BGL_BIND_STRING(BGl_string2905z00zz__threadz00, BgL_bgl_string2905za700za7za7_3303za7);
BGL_BIND_STRING(BGl_string2661z00zz__threadz00, BgL_bgl_string2661za700za7za7_3302za7);
BGL_BIND_STRING(BGl_string2742z00zz__threadz00, BgL_bgl_string2742za700za7za7_3301za7);
BGL_BIND_STRING(BGl_string2660z00zz__threadz00, BgL_bgl_string2660za700za7za7_3300za7);
BGL_BIND_STRING(BGl_string2822z00zz__threadz00, BgL_bgl_string2822za700za7za7_3299za7);
BGL_BIND_STRING(BGl_string2903z00zz__threadz00, BgL_bgl_string2903za700za7za7_3298za7);
BGL_BIND_PROCEDURE(BGl_proc2572z00zz__threadz00, BgL_bgl_za762lambda1392za7623297z00);
BGL_BIND_STRING(BGl_string2740z00zz__threadz00, BgL_bgl_string2740za700za7za7_3296za7);
BGL_BIND_PROCEDURE(BGl_proc2571z00zz__threadz00, BgL_bgl_za762lambda1393za7623295z00);
BGL_BIND_PROCEDURE(BGl_proc2570z00zz__threadz00, BgL_bgl_za762za7c3za704anonymo3294za7);
BGL_BIND_STRING(BGl_string2900z00zz__threadz00, BgL_bgl_string2900za700za7za7_3293za7);
BGL_BIND_PROCEDURE(BGl_defaultzd2threadzd2backendzd2envzd2zz__threadz00, BgL_bgl_za762defaultza7d2thr3292z00);
BGL_BIND_PROCEDURE(BGl_threadzd2sleepz12zd2envz12zz__threadz00, BgL_bgl_za762threadza7d2slee3291z00);
BGL_BIND_PROCEDURE(BGl_conditionzd2variablezd2broadcastz12zd2envzc0zz__threadz00, BgL_bgl_za762conditionza7d2v3290z00);
BGL_BIND_STRING(BGl_string2498z00zz__threadz00, BgL_bgl_string2498za700za7za7_3289za7);
BGL_BIND_STRING(BGl_string2497z00zz__threadz00, BgL_bgl_string2497za700za7za7_3288za7);
BGL_BIND_STRING(BGl_string2578z00zz__threadz00, BgL_bgl_string2578za700za7za7_3287za7);
BGL_BIND_STRING(BGl_string2659z00zz__threadz00, BgL_bgl_string2659za700za7za7_3286za7);
BGL_BIND_STRING(BGl_string2658z00zz__threadz00, BgL_bgl_string2658za700za7za7_3285za7);
BGL_BIND_STRING(BGl_string2495z00zz__threadz00, BgL_bgl_string2495za700za7za7_3284za7);
BGL_BIND_STRING(BGl_string2657z00zz__threadz00, BgL_bgl_string2657za700za7za7_3283za7);
BGL_BIND_STRING(BGl_string2738z00zz__threadz00, BgL_bgl_string2738za700za7za7_3282za7);
BGL_BIND_STRING(BGl_string2819z00zz__threadz00, BgL_bgl_string2819za700za7za7_3281za7);
BGL_BIND_STRING(BGl_string2494z00zz__threadz00, BgL_bgl_string2494za700za7za7_3280za7);
BGL_BIND_STRING(BGl_string2656z00zz__threadz00, BgL_bgl_string2656za700za7za7_3279za7);
BGL_BIND_STRING(BGl_string2493z00zz__threadz00, BgL_bgl_string2493za700za7za7_3278za7);
BGL_BIND_STRING(BGl_string2574z00zz__threadz00, BgL_bgl_string2574za700za7za7_3277za7);
BGL_BIND_STRING(BGl_string2655z00zz__threadz00, BgL_bgl_string2655za700za7za7_3276za7);
BGL_BIND_STRING(BGl_string2736z00zz__threadz00, BgL_bgl_string2736za700za7za7_3275za7);
BGL_BIND_STRING(BGl_string2492z00zz__threadz00, BgL_bgl_string2492za700za7za7_3274za7);
BGL_BIND_STRING(BGl_string2654z00zz__threadz00, BgL_bgl_string2654za700za7za7_3273za7);
BGL_BIND_STRING(BGl_string2735z00zz__threadz00, BgL_bgl_string2735za700za7za7_3272za7);
BGL_BIND_STRING(BGl_string2491z00zz__threadz00, BgL_bgl_string2491za700za7za7_3271za7);
BGL_BIND_PROCEDURE(BGl_proc2566z00zz__threadz00, BgL_bgl_za762lambda1371za7623270z00);
BGL_BIND_STRING(BGl_string2653z00zz__threadz00, BgL_bgl_string2653za700za7za7_3269za7);
BGL_BIND_STRING(BGl_string2490z00zz__threadz00, BgL_bgl_string2490za700za7za7_3268za7);
BGL_BIND_PROCEDURE(BGl_proc2565z00zz__threadz00, BgL_bgl_za762lambda1373za7623267z00);
BGL_BIND_STRING(BGl_string2652z00zz__threadz00, BgL_bgl_string2652za700za7za7_3266za7);
BGL_BIND_STRING(BGl_string2733z00zz__threadz00, BgL_bgl_string2733za700za7za7_3265za7);
BGL_BIND_STRING(BGl_string2814z00zz__threadz00, BgL_bgl_string2814za700za7za7_3264za7);
BGL_BIND_PROCEDURE(BGl_proc2564z00zz__threadz00, BgL_bgl_za762za7c3za704anonymo3263za7);
BGL_BIND_STRING(BGl_string2651z00zz__threadz00, BgL_bgl_string2651za700za7za7_3262za7);
BGL_BIND_STRING(BGl_string2650z00zz__threadz00, BgL_bgl_string2650za700za7za7_3261za7);
BGL_BIND_STRING(BGl_string2731z00zz__threadz00, BgL_bgl_string2731za700za7za7_3260za7);
BGL_BIND_STRING(BGl_string2810z00zz__threadz00, BgL_bgl_string2810za700za7za7_3259za7);
BGL_BIND_PROCEDURE(BGl_proc2560z00zz__threadz00, BgL_bgl_za762lambda1379za7623258z00);
BGL_BIND_PROCEDURE(BGl_threadzd2cleanupzd2setz12zd2envzc0zz__threadz00, BgL_bgl_za762threadza7d2clea3257z00);
BGL_BIND_PROCEDURE(BGl_threadzd2startzd2joinablez12zd2envzc0zz__threadz00, BgL_bgl_za762threadza7d2star3256z00);
BGL_BIND_STRING(BGl_string2489z00zz__threadz00, BgL_bgl_string2489za700za7za7_3255za7);
BGL_BIND_STRING(BGl_string2488z00zz__threadz00, BgL_bgl_string2488za700za7za7_3254za7);
BGL_BIND_STRING(BGl_string2569z00zz__threadz00, BgL_bgl_string2569za700za7za7_3253za7);
BGL_BIND_STRING(BGl_string2487z00zz__threadz00, BgL_bgl_string2487za700za7za7_3252za7);
BGL_BIND_STRING(BGl_string2649z00zz__threadz00, BgL_bgl_string2649za700za7za7_3251za7);
BGL_BIND_STRING(BGl_string2486z00zz__threadz00, BgL_bgl_string2486za700za7za7_3250za7);
BGL_BIND_STRING(BGl_string2648z00zz__threadz00, BgL_bgl_string2648za700za7za7_3249za7);
BGL_BIND_STRING(BGl_string2729z00zz__threadz00, BgL_bgl_string2729za700za7za7_3248za7);
BGL_BIND_STRING(BGl_string2485z00zz__threadz00, BgL_bgl_string2485za700za7za7_3247za7);
BGL_BIND_STRING(BGl_string2647z00zz__threadz00, BgL_bgl_string2647za700za7za7_3246za7);
BGL_BIND_STRING(BGl_string2809z00zz__threadz00, BgL_bgl_string2809za700za7za7_3245za7);
BGL_BIND_STRING(BGl_string2484z00zz__threadz00, BgL_bgl_string2484za700za7za7_3244za7);
BGL_BIND_PROCEDURE(BGl_proc2559z00zz__threadz00, BgL_bgl_za762lambda1380za7623243z00);
BGL_BIND_STRING(BGl_string2646z00zz__threadz00, BgL_bgl_string2646za700za7za7_3242za7);
BGL_BIND_STRING(BGl_string2727z00zz__threadz00, BgL_bgl_string2727za700za7za7_3241za7);
BGL_BIND_STRING(BGl_string2808z00zz__threadz00, BgL_bgl_string2808za700za7za7_3240za7);
BGL_BIND_STRING(BGl_string2483z00zz__threadz00, BgL_bgl_string2483za700za7za7_3239za7);
BGL_BIND_STRING(BGl_string2645z00zz__threadz00, BgL_bgl_string2645za700za7za7_3238za7);
BGL_BIND_STRING(BGl_string2644z00zz__threadz00, BgL_bgl_string2644za700za7za7_3237za7);
BGL_BIND_STRING(BGl_string2725z00zz__threadz00, BgL_bgl_string2725za700za7za7_3236za7);
BGL_BIND_STRING(BGl_string2562z00zz__threadz00, BgL_bgl_string2562za700za7za7_3235za7);
BGL_BIND_STRING(BGl_string2643z00zz__threadz00, BgL_bgl_string2643za700za7za7_3234za7);
BGL_BIND_STRING(BGl_string2805z00zz__threadz00, BgL_bgl_string2805za700za7za7_3233za7);
BGL_BIND_STRING(BGl_string2642z00zz__threadz00, BgL_bgl_string2642za700za7za7_3232za7);
BGL_BIND_STRING(BGl_string2723z00zz__threadz00, BgL_bgl_string2723za700za7za7_3231za7);
BGL_BIND_STRING(BGl_string2804z00zz__threadz00, BgL_bgl_string2804za700za7za7_3230za7);
BGL_BIND_STRING(BGl_string2641z00zz__threadz00, BgL_bgl_string2641za700za7za7_3229za7);
BGL_BIND_STRING(BGl_string2803z00zz__threadz00, BgL_bgl_string2803za700za7za7_3228za7);
BGL_BIND_STRING(BGl_string2640z00zz__threadz00, BgL_bgl_string2640za700za7za7_3227za7);
BGL_BIND_STRING(BGl_string2721z00zz__threadz00, BgL_bgl_string2721za700za7za7_3226za7);
BGL_BIND_PROCEDURE(BGl_threadzd2specificzd2envz00zz__threadz00, BgL_bgl_za762threadza7d2spec3225z00);
BGL_BIND_STRING(BGl_string2800z00zz__threadz00, BgL_bgl_string2800za700za7za7_3224za7);
BGL_BIND_PROCEDURE(BGl_threadzd2specificzd2setz12zd2envzc0zz__threadz00, BgL_bgl_za762threadza7d2spec3223z00);
BGL_BIND_PROCEDURE(BGl_tbzd2mutexzd2initializa7ez12zd2envz67zz__threadz00, BgL_bgl_za762tbza7d2mutexza7d23222za7);
BGL_BIND_STRING(BGl_string2558z00zz__threadz00, BgL_bgl_string2558za700za7za7_3221za7);
BGL_BIND_STRING(BGl_string2639z00zz__threadz00, BgL_bgl_string2639za700za7za7_3220za7);
BGL_BIND_STRING(BGl_string2557z00zz__threadz00, BgL_bgl_string2557za700za7za7_3219za7);
BGL_BIND_STRING(BGl_string2638z00zz__threadz00, BgL_bgl_string2638za700za7za7_3218za7);
BGL_BIND_STRING(BGl_string2719z00zz__threadz00, BgL_bgl_string2719za700za7za7_3217za7);
BGL_BIND_STRING(BGl_string2556z00zz__threadz00, BgL_bgl_string2556za700za7za7_3216za7);
BGL_BIND_PROCEDURE(BGl_withzd2timedzd2lockzd2envzd2zz__threadz00, BgL_bgl_za762withza7d2timedza73215za7);
BGL_BIND_STRING(BGl_string2555z00zz__threadz00, BgL_bgl_string2555za700za7za7_3214za7);
BGL_BIND_STRING(BGl_string2636z00zz__threadz00, BgL_bgl_string2636za700za7za7_3213za7);
BGL_BIND_STRING(BGl_string2717z00zz__threadz00, BgL_bgl_string2717za700za7za7_3212za7);
BGL_BIND_STRING(BGl_string2553z00zz__threadz00, BgL_bgl_string2553za700za7za7_3211za7);
BGL_BIND_STRING(BGl_string2715z00zz__threadz00, BgL_bgl_string2715za700za7za7_3210za7);
BGL_BIND_STRING(BGl_string2552z00zz__threadz00, BgL_bgl_string2552za700za7za7_3209za7);
BGL_BIND_STRING(BGl_string2633z00zz__threadz00, BgL_bgl_string2633za700za7za7_3208za7);
BGL_BIND_STRING(BGl_string2714z00zz__threadz00, BgL_bgl_string2714za700za7za7_3207za7);
BGL_BIND_PROCEDURE(BGl_z52userzd2threadzd2yieldz12zd2envz92zz__threadz00, BgL_bgl_za762za752userza7d2thr3206za7);
BGL_BIND_STRING(BGl_string2551z00zz__threadz00, BgL_bgl_string2551za700za7za7_3205za7);
BGL_BIND_STRING(BGl_string2632z00zz__threadz00, BgL_bgl_string2632za700za7za7_3204za7);
BGL_BIND_STRING(BGl_string2550z00zz__threadz00, BgL_bgl_string2550za700za7za7_3203za7);
BGL_BIND_PROCEDURE(BGl_proc2625z00zz__threadz00, BgL_bgl_za762lambda1484za7623202z00);
BGL_BIND_STRING(BGl_string2631z00zz__threadz00, BgL_bgl_string2631za700za7za7_3201za7);
BGL_BIND_STRING(BGl_string2712z00zz__threadz00, BgL_bgl_string2712za700za7za7_3200za7);
BGL_BIND_PROCEDURE(BGl_proc2624z00zz__threadz00, BgL_bgl_za762lambda1487za7623199z00);
BGL_BIND_STRING(BGl_string2630z00zz__threadz00, BgL_bgl_string2630za700za7za7_3198za7);
BGL_BIND_PROCEDURE(BGl_proc2705z00zz__threadz00, BgL_bgl_za762za752userza7d2thr3197za7);
BGL_BIND_STRING(BGl_string2711z00zz__threadz00, BgL_bgl_string2711za700za7za7_3196za7);
BGL_BIND_PROCEDURE(BGl_proc2623z00zz__threadz00, BgL_bgl_za762za7c3za704anonymo3195za7);
BGL_BIND_STRING(BGl_string2710z00zz__threadz00, BgL_bgl_string2710za700za7za7_3194za7);
BGL_BIND_PROCEDURE(BGl_proc2703z00zz__threadz00, BgL_bgl_za762za752userza7d2thr3193za7);
BGL_BIND_PROCEDURE(BGl_proc2621z00zz__threadz00, BgL_bgl_za762lambda1427za7623192z00);
BGL_BIND_PROCEDURE(BGl_proc2620z00zz__threadz00, BgL_bgl_za762lambda1431za7623191z00);
BGL_BIND_PROCEDURE(BGl_proc2701z00zz__threadz00, BgL_bgl_za762za752userza7d2cur3190za7);
BGL_BIND_PROCEDURE(BGl_threadzd2parameterzd2setz12zd2envzc0zz__threadz00, BgL_bgl_za762threadza7d2para3189z00);
BGL_BIND_STRING(BGl_string2549z00zz__threadz00, BgL_bgl_string2549za700za7za7_3188za7);
BGL_BIND_STRING(BGl_string2629z00zz__threadz00, BgL_bgl_string2629za700za7za7_3187za7);
BGL_BIND_STRING(BGl_string2547z00zz__threadz00, BgL_bgl_string2547za700za7za7_3186za7);
BGL_BIND_STRING(BGl_string2628z00zz__threadz00, BgL_bgl_string2628za700za7za7_3185za7);
BGL_BIND_STRING(BGl_string2546z00zz__threadz00, BgL_bgl_string2546za700za7za7_3184za7);
BGL_BIND_STRING(BGl_string2627z00zz__threadz00, BgL_bgl_string2627za700za7za7_3183za7);
BGL_BIND_STRING(BGl_string2708z00zz__threadz00, BgL_bgl_string2708za700za7za7_3182za7);
BGL_BIND_STRING(BGl_string2707z00zz__threadz00, BgL_bgl_string2707za700za7za7_3181za7);
BGL_BIND_STRING(BGl_string2544z00zz__threadz00, BgL_bgl_string2544za700za7za7_3180za7);
BGL_BIND_PROCEDURE(BGl_proc2619z00zz__threadz00, BgL_bgl_za762za7c3za704anonymo3179za7);
BGL_BIND_STRING(BGl_string2706z00zz__threadz00, BgL_bgl_string2706za700za7za7_3178za7);
BGL_BIND_STRING(BGl_string2543z00zz__threadz00, BgL_bgl_string2543za700za7za7_3177za7);
BGL_BIND_STRING(BGl_string2542z00zz__threadz00, BgL_bgl_string2542za700za7za7_3176za7);
BGL_BIND_STRING(BGl_string2704z00zz__threadz00, BgL_bgl_string2704za700za7za7_3175za7);
BGL_BIND_STRING(BGl_string2541z00zz__threadz00, BgL_bgl_string2541za700za7za7_3174za7);
BGL_BIND_PROCEDURE(BGl_proc2616z00zz__threadz00, BgL_bgl_za762lambda1475za7623173z00);
BGL_BIND_STRING(BGl_string2540z00zz__threadz00, BgL_bgl_string2540za700za7za7_3172za7);
BGL_BIND_PROCEDURE(BGl_proc2615z00zz__threadz00, BgL_bgl_za762lambda1476za7623171z00);
BGL_BIND_STRING(BGl_string2702z00zz__threadz00, BgL_bgl_string2702za700za7za7_3170za7);
BGL_BIND_PROCEDURE(BGl_tbzd2currentzd2threadzd2envzd2zz__threadz00, BgL_bgl_za762tbza7d2currentza73169za7);
BGL_BIND_PROCEDURE(BGl_proc2614z00zz__threadz00, BgL_bgl_za762za7c3za704anonymo3168za7);
BGL_BIND_STRING(BGl_string2700z00zz__threadz00, BgL_bgl_string2700za700za7za7_3167za7);
BGL_BIND_PROCEDURE(BGl_proc2611z00zz__threadz00, BgL_bgl_za762lambda1468za7623166z00);
BGL_BIND_PROCEDURE(BGl_proc2610z00zz__threadz00, BgL_bgl_za762lambda1469za7623165z00);
BGL_BIND_PROCEDURE(BGl_makezd2mutexzd2envz00zz__threadz00, BgL_bgl__makeza7d2mutexza7d23164z00);
BGL_BIND_PROCEDURE(BGl_threadzd2yieldz12zd2envz12zz__threadz00, BgL_bgl_za762threadza7d2yiel3163z00);
BGL_BIND_PROCEDURE(BGl_threadzd2joinz12zd2envz12zz__threadz00, BgL_bgl_za762threadza7d2join3162z00);
BGL_BIND_STRING(BGl_string2539z00zz__threadz00, BgL_bgl_string2539za700za7za7_3161za7);
BGL_BIND_STRING(BGl_string2537z00zz__threadz00, BgL_bgl_string2537za700za7za7_3160za7);
BGL_BIND_STRING(BGl_string2618z00zz__threadz00, BgL_bgl_string2618za700za7za7_3159za7);
BGL_BIND_STRING(BGl_string2534z00zz__threadz00, BgL_bgl_string2534za700za7za7_3158za7);
BGL_BIND_PROCEDURE(BGl_proc2609z00zz__threadz00, BgL_bgl_za762za7c3za704anonymo3157za7);
BGL_BIND_STRING(BGl_string2533z00zz__threadz00, BgL_bgl_string2533za700za7za7_3156za7);
BGL_BIND_PROCEDURE(BGl_mutexzd2unlockz12zd2envz12zz__threadz00, BgL_bgl_za762mutexza7d2unloc3155z00);
BGL_BIND_STRING(BGl_string2532z00zz__threadz00, BgL_bgl_string2532za700za7za7_3154za7);
BGL_BIND_STRING(BGl_string2613z00zz__threadz00, BgL_bgl_string2613za700za7za7_3153za7);
BGL_BIND_STRING(BGl_string2531z00zz__threadz00, BgL_bgl_string2531za700za7za7_3152za7);
BGL_BIND_PROCEDURE(BGl_proc2606z00zz__threadz00, BgL_bgl_za762lambda1460za7623151z00);
BGL_BIND_STRING(BGl_string2530z00zz__threadz00, BgL_bgl_string2530za700za7za7_3150za7);
BGL_BIND_PROCEDURE(BGl_proc2605z00zz__threadz00, BgL_bgl_za762lambda1461za7623149z00);
BGL_BIND_PROCEDURE(BGl_proc2604z00zz__threadz00, BgL_bgl_za762za7c3za704anonymo3148za7);
BGL_BIND_PROCEDURE(BGl_proc2601z00zz__threadz00, BgL_bgl_za762lambda1453za7623147z00);
BGL_BIND_PROCEDURE(BGl_proc2600z00zz__threadz00, BgL_bgl_za762lambda1454za7623146z00);
BGL_BIND_PROCEDURE(BGl_mutexzd2namezd2envz00zz__threadz00, BgL_bgl_za762mutexza7d2nameza73145za7);
BGL_BIND_PROCEDURE(BGl_threadzd2namezd2setz12zd2envzc0zz__threadz00, BgL_bgl_za762threadza7d2name3144z00);
BGL_BIND_PROCEDURE(BGl_withzd2lockzd2envz00zz__threadz00, BgL_bgl_za762withza7d2lockza7b3143za7);
BGL_BIND_STRING(BGl_string2528z00zz__threadz00, BgL_bgl_string2528za700za7za7_3142za7);
BGL_BIND_STRING(BGl_string2527z00zz__threadz00, BgL_bgl_string2527za700za7za7_3141za7);
BGL_BIND_STRING(BGl_string2608z00zz__threadz00, BgL_bgl_string2608za700za7za7_3140za7);
BGL_BIND_STRING(BGl_string2526z00zz__threadz00, BgL_bgl_string2526za700za7za7_3139za7);
BGL_BIND_PROCEDURE(BGl_threadzd2terminatez12zd2envz12zz__threadz00, BgL_bgl_za762threadza7d2term3138z00);
BGL_BIND_STRING(BGl_string2525z00zz__threadz00, BgL_bgl_string2525za700za7za7_3137za7);
BGL_BIND_STRING(BGl_string2523z00zz__threadz00, BgL_bgl_string2523za700za7za7_3136za7);
BGL_BIND_STRING(BGl_string2522z00zz__threadz00, BgL_bgl_string2522za700za7za7_3135za7);
BGL_BIND_STRING(BGl_string2603z00zz__threadz00, BgL_bgl_string2603za700za7za7_3134za7);
BGL_BIND_PROCEDURE(BGl_currentzd2dynamiczd2envzd2envzd2zz__threadz00, BgL_bgl_za762currentza7d2dyn3133z00);
BGL_BIND_PROCEDURE(BGl_mutexzd2lockz12zd2envz12zz__threadz00, BgL_bgl__mutexza7d2lockza7123132z00);
BGL_BIND_PROCEDURE(BGl_conditionzd2variablezd2nilzd2envzd2zz__threadz00, BgL_bgl_za762conditionza7d2v3131z00);
BGL_BIND_STRING(BGl_string2520z00zz__threadz00, BgL_bgl_string2520za700za7za7_3130za7);
BGL_BIND_PROCEDURE(BGl_currentzd2threadzd2backendzd2envzd2zz__threadz00, BgL_bgl_za762currentza7d2thr3129z00);
BGL_BIND_PROCEDURE(BGl_threadzd2initializa7ez12zd2envzb5zz__threadz00, BgL_bgl_za762threadza7d2init3128z00);
BGL_BIND_STRING(BGl_string2519z00zz__threadz00, BgL_bgl_string2519za700za7za7_3127za7);
BGL_BIND_STRING(BGl_string2517z00zz__threadz00, BgL_bgl_string2517za700za7za7_3126za7);
BGL_BIND_STRING(BGl_string2516z00zz__threadz00, BgL_bgl_string2516za700za7za7_3125za7);
BGL_BIND_STRING(BGl_string2515z00zz__threadz00, BgL_bgl_string2515za700za7za7_3124za7);
BGL_BIND_STRING(BGl_string2513z00zz__threadz00, BgL_bgl_string2513za700za7za7_3123za7);
BGL_BIND_STRING(BGl_string2512z00zz__threadz00, BgL_bgl_string2512za700za7za7_3122za7);
BGL_BIND_STRING(BGl_string2511z00zz__threadz00, BgL_bgl_string2511za700za7za7_3121za7);
BGL_BIND_STRING(BGl_string2510z00zz__threadz00, BgL_bgl_string2510za700za7za7_3120za7);
BGL_BIND_PROCEDURE(BGl_mutexzd2statezd2envz00zz__threadz00, BgL_bgl_za762mutexza7d2state3119z00);
BGL_BIND_PROCEDURE(BGl_proc2899z00zz__threadz00, BgL_bgl_za762threadza7d2star3118z00);
BGL_BIND_PROCEDURE(BGl_proc2898z00zz__threadz00, BgL_bgl_za762threadza7d2star3117z00);
BGL_BIND_PROCEDURE(BGl_proc2896z00zz__threadz00, BgL_bgl_za762objectza7d2prin3116z00);
BGL_BIND_PROCEDURE(BGl_proc2894z00zz__threadz00, BgL_bgl_za762objectza7d2writ3115z00);
BGL_BIND_PROCEDURE(BGl_proc2892z00zz__threadz00, BgL_bgl_za762objectza7d2disp3114z00);
BGL_BIND_STRING(BGl_string2509z00zz__threadz00, BgL_bgl_string2509za700za7za7_3113za7);
BGL_BIND_PROCEDURE(BGl_proc2890z00zz__threadz00, BgL_bgl_za762tbza7d2currentza73112za7);
BGL_BIND_STRING(BGl_string2508z00zz__threadz00, BgL_bgl_string2508za700za7za7_3111za7);
BGL_BIND_STRING(BGl_string2507z00zz__threadz00, BgL_bgl_string2507za700za7za7_3110za7);
BGL_BIND_STRING(BGl_string2506z00zz__threadz00, BgL_bgl_string2506za700za7za7_3109za7);
BGL_BIND_STRING(BGl_string2505z00zz__threadz00, BgL_bgl_string2505za700za7za7_3108za7);
BGL_BIND_STRING(BGl_string2504z00zz__threadz00, BgL_bgl_string2504za700za7za7_3107za7);
BGL_BIND_STRING(BGl_string2503z00zz__threadz00, BgL_bgl_string2503za700za7za7_3106za7);
BGL_BIND_STRING(BGl_string2502z00zz__threadz00, BgL_bgl_string2502za700za7za7_3105za7);
BGL_BIND_STRING(BGl_string2501z00zz__threadz00, BgL_bgl_string2501za700za7za7_3104za7);
BGL_BIND_STRING(BGl_string2500z00zz__threadz00, BgL_bgl_string2500za700za7za7_3103za7);
BGL_BIND_STRING(BGl_string2897z00zz__threadz00, BgL_bgl_string2897za700za7za7_3102za7);
BGL_BIND_PROCEDURE(BGl_z52userzd2currentzd2threadzd2envz80zz__threadz00, BgL_bgl_za762za752userza7d2cur3101za7);
BGL_BIND_PROCEDURE(BGl_proc2889z00zz__threadz00, BgL_bgl_za762tbza7d2makeza7d2t3100za7);
BGL_BIND_STRING(BGl_string2895z00zz__threadz00, BgL_bgl_string2895za700za7za7_3099za7);
BGL_BIND_STRING(BGl_string2893z00zz__threadz00, BgL_bgl_string2893za700za7za7_3098za7);
BGL_BIND_STRING(BGl_string2891z00zz__threadz00, BgL_bgl_string2891za700za7za7_3097za7);
BGL_BIND_PROCEDURE(BGl_makezd2threadzd2envz00zz__threadz00, BgL_bgl__makeza7d2threadza7d3096z00);
BGL_BIND_PROCEDURE(BGl_mutexzd2nilzd2envz00zz__threadz00, BgL_bgl_za762mutexza7d2nilza7b3095za7);
BGL_BIND_STRING(BGl_string2888z00zz__threadz00, BgL_bgl_string2888za700za7za7_3094za7);
BGL_BIND_STRING(BGl_string2887z00zz__threadz00, BgL_bgl_string2887za700za7za7_3093za7);
BGL_BIND_STRING(BGl_string2884z00zz__threadz00, BgL_bgl_string2884za700za7za7_3092za7);
BGL_BIND_STRING(BGl_string2883z00zz__threadz00, BgL_bgl_string2883za700za7za7_3091za7);
BGL_BIND_STRING(BGl_string2882z00zz__threadz00, BgL_bgl_string2882za700za7za7_3090za7);
BGL_BIND_PROCEDURE(BGl_threadzd2startz12zd2envz12zz__threadz00, BgL_bgl_za762threadza7d2star3089z00);
BGL_BIND_STRING(BGl_string2880z00zz__threadz00, BgL_bgl_string2880za700za7za7_3088za7);
BGL_BIND_STRING(BGl_string2961z00zz__threadz00, BgL_bgl_string2961za700za7za7_3087za7);
BGL_BIND_STRING(BGl_string2960z00zz__threadz00, BgL_bgl_string2960za700za7za7_3086za7);
BGL_BIND_PROCEDURE(BGl_threadzd2parameterzd2envz00zz__threadz00, BgL_bgl_za762threadza7d2para3085z00);
BGL_BIND_STRING(BGl_string2797z00zz__threadz00, BgL_bgl_string2797za700za7za7_3084za7);
BGL_BIND_STRING(BGl_string2877z00zz__threadz00, BgL_bgl_string2877za700za7za7_3083za7);
BGL_BIND_STRING(BGl_string2958z00zz__threadz00, BgL_bgl_string2958za700za7za7_3082za7);
BGL_BIND_STRING(BGl_string2795z00zz__threadz00, BgL_bgl_string2795za700za7za7_3081za7);
BGL_BIND_STRING(BGl_string2876z00zz__threadz00, BgL_bgl_string2876za700za7za7_3080za7);
BGL_BIND_STRING(BGl_string2875z00zz__threadz00, BgL_bgl_string2875za700za7za7_3079za7);
BGL_BIND_STRING(BGl_string2955z00zz__threadz00, BgL_bgl_string2955za700za7za7_3078za7);
BGL_BIND_STRING(BGl_string2792z00zz__threadz00, BgL_bgl_string2792za700za7za7_3077za7);
BGL_BIND_STRING(BGl_string2873z00zz__threadz00, BgL_bgl_string2873za700za7za7_3076za7);
BGL_BIND_STRING(BGl_string2954z00zz__threadz00, BgL_bgl_string2954za700za7za7_3075za7);
BGL_BIND_STRING(BGl_string2953z00zz__threadz00, BgL_bgl_string2953za700za7za7_3074za7);
BGL_BIND_STRING(BGl_string2952z00zz__threadz00, BgL_bgl_string2952za700za7za7_3073za7);
BGL_BIND_PROCEDURE(BGl_mutexzf3zd2envz21zz__threadz00, BgL_bgl_za762mutexza7f3za791za7za73072za7);
BGL_BIND_STRING(BGl_string2870z00zz__threadz00, BgL_bgl_string2870za700za7za7_3071za7);
BGL_BIND_STRING(BGl_string2951z00zz__threadz00, BgL_bgl_string2951za700za7za7_3070za7);
BGL_BIND_STRING(BGl_string2950z00zz__threadz00, BgL_bgl_string2950za700za7za7_3069za7);
BGL_BIND_PROCEDURE(BGl_threadzd2cleanupzd2envz00zz__threadz00, BgL_bgl_za762threadza7d2clea3068z00);
BGL_BIND_PROCEDURE(BGl_currentzd2threadzd2envz00zz__threadz00, BgL_bgl_za762currentza7d2thr3067z00);
BGL_BIND_PROCEDURE(BGl_conditionzd2variablezd2namezd2envzd2zz__threadz00, BgL_bgl_za762conditionza7d2v3066z00);
BGL_BIND_PROCEDURE(BGl_tbzd2makezd2threadzd2envzd2zz__threadz00, BgL_bgl_za762tbza7d2makeza7d2t3065za7);
BGL_BIND_STRING(BGl_string2788z00zz__threadz00, BgL_bgl_string2788za700za7za7_3064za7);
BGL_BIND_STRING(BGl_string2869z00zz__threadz00, BgL_bgl_string2869za700za7za7_3063za7);
BGL_BIND_STRING(BGl_string2868z00zz__threadz00, BgL_bgl_string2868za700za7za7_3062za7);
BGL_BIND_STRING(BGl_string2949z00zz__threadz00, BgL_bgl_string2949za700za7za7_3061za7);
BGL_BIND_PROCEDURE(BGl_proc2699z00zz__threadz00, BgL_bgl_za762threadza7d2name3060z00);
BGL_BIND_STRING(BGl_string2948z00zz__threadz00, BgL_bgl_string2948za700za7za7_3059za7);
BGL_BIND_STRING(BGl_string2785z00zz__threadz00, BgL_bgl_string2785za700za7za7_3058za7);
BGL_BIND_STRING(BGl_string2947z00zz__threadz00, BgL_bgl_string2947za700za7za7_3057za7);
BGL_BIND_PROCEDURE(BGl_proc2697z00zz__threadz00, BgL_bgl_za762threadza7d2name3056z00);
BGL_BIND_STRING(BGl_string2865z00zz__threadz00, BgL_bgl_string2865za700za7za7_3055za7);
BGL_BIND_STRING(BGl_string2946z00zz__threadz00, BgL_bgl_string2946za700za7za7_3054za7);
BGL_BIND_STRING(BGl_string2783z00zz__threadz00, BgL_bgl_string2783za700za7za7_3053za7);
BGL_BIND_STRING(BGl_string2864z00zz__threadz00, BgL_bgl_string2864za700za7za7_3052za7);
BGL_BIND_STRING(BGl_string2945z00zz__threadz00, BgL_bgl_string2945za700za7za7_3051za7);
BGL_BIND_PROCEDURE(BGl_proc2695z00zz__threadz00, BgL_bgl_za762threadza7d2clea3050z00);
BGL_BIND_STRING(BGl_string2863z00zz__threadz00, BgL_bgl_string2863za700za7za7_3049za7);
BGL_BIND_STRING(BGl_string2944z00zz__threadz00, BgL_bgl_string2944za700za7za7_3048za7);
BGL_BIND_STRING(BGl_string2943z00zz__threadz00, BgL_bgl_string2943za700za7za7_3047za7);
BGL_BIND_PROCEDURE(BGl_proc2693z00zz__threadz00, BgL_bgl_za762threadza7d2clea3046z00);
BGL_BIND_STRING(BGl_string2780z00zz__threadz00, BgL_bgl_string2780za700za7za7_3045za7);
BGL_BIND_STRING(BGl_string2942z00zz__threadz00, BgL_bgl_string2942za700za7za7_3044za7);
BGL_BIND_STRING(BGl_string2860z00zz__threadz00, BgL_bgl_string2860za700za7za7_3043za7);
BGL_BIND_STRING(BGl_string2941z00zz__threadz00, BgL_bgl_string2941za700za7za7_3042za7);
BGL_BIND_PROCEDURE(BGl_proc2691z00zz__threadz00, BgL_bgl_za762threadza7d2spec3041z00);
BGL_BIND_STRING(BGl_string2940z00zz__threadz00, BgL_bgl_string2940za700za7za7_3040za7);
BGL_BIND_PROCEDURE(BGl_makezd2spinlockzd2envz00zz__threadz00, BgL_bgl__makeza7d2spinlock3039za7);
BGL_BIND_PROCEDURE(BGl_threadzd2namezd2envz00zz__threadz00, BgL_bgl_za762threadza7d2name3038z00);
BGL_BIND_STRING(BGl_string2698z00zz__threadz00, BgL_bgl_string2698za700za7za7_3037za7);
BGL_BIND_PROCEDURE(BGl_defaultzd2threadzd2backendzd2setz12zd2envz12zz__threadz00, BgL_bgl_za762defaultza7d2thr3036z00);
BGL_BIND_PROCEDURE(BGl_conditionzd2variablezf3zd2envzf3zz__threadz00, BgL_bgl_za762conditionza7d2v3035z00);
BGL_BIND_STRING(BGl_string2778z00zz__threadz00, BgL_bgl_string2778za700za7za7_3034za7);
BGL_BIND_STRING(BGl_string2859z00zz__threadz00, BgL_bgl_string2859za700za7za7_3033za7);
BGL_BIND_STRING(BGl_string2696z00zz__threadz00, BgL_bgl_string2696za700za7za7_3032za7);
BGL_BIND_STRING(BGl_string2777z00zz__threadz00, BgL_bgl_string2777za700za7za7_3031za7);
BGL_BIND_STRING(BGl_string2858z00zz__threadz00, BgL_bgl_string2858za700za7za7_3030za7);
BGL_BIND_STRING(BGl_string2939z00zz__threadz00, BgL_bgl_string2939za700za7za7_3029za7);
BGL_BIND_PROCEDURE(BGl_currentzd2threadzd2backendzd2setz12zd2envz12zz__threadz00, BgL_bgl_za762currentza7d2thr3028z00);
BGL_BIND_PROCEDURE(BGl_proc2689z00zz__threadz00, BgL_bgl_za762threadza7d2spec3027z00);
BGL_BIND_STRING(BGl_string2776z00zz__threadz00, BgL_bgl_string2776za700za7za7_3026za7);
BGL_BIND_STRING(BGl_string2857z00zz__threadz00, BgL_bgl_string2857za700za7za7_3025za7);
BGL_BIND_STRING(BGl_string2938z00zz__threadz00, BgL_bgl_string2938za700za7za7_3024za7);
BGL_BIND_STRING(BGl_string2694z00zz__threadz00, BgL_bgl_string2694za700za7za7_3023za7);
BGL_BIND_PROCEDURE(BGl_proc2687z00zz__threadz00, BgL_bgl_za762threadza7d2kill3022z00);
BGL_BIND_STRING(BGl_string2774z00zz__threadz00, BgL_bgl_string2774za700za7za7_3021za7);
BGL_BIND_STRING(BGl_string2692z00zz__threadz00, BgL_bgl_string2692za700za7za7_3020za7);
BGL_BIND_STRING(BGl_string2854z00zz__threadz00, BgL_bgl_string2854za700za7za7_3019za7);
BGL_BIND_STRING(BGl_string2935z00zz__threadz00, BgL_bgl_string2935za700za7za7_3018za7);
BGL_BIND_PROCEDURE(BGl_proc2685z00zz__threadz00, BgL_bgl_za762threadza7d2term3017z00);
BGL_BIND_STRING(BGl_string2853z00zz__threadz00, BgL_bgl_string2853za700za7za7_3016za7);
BGL_BIND_STRING(BGl_string2934z00zz__threadz00, BgL_bgl_string2934za700za7za7_3015za7);
BGL_BIND_STRING(BGl_string2690z00zz__threadz00, BgL_bgl_string2690za700za7za7_3014za7);
BGL_BIND_STRING(BGl_string2771z00zz__threadz00, BgL_bgl_string2771za700za7za7_3013za7);
BGL_BIND_STRING(BGl_string2852z00zz__threadz00, BgL_bgl_string2852za700za7za7_3012za7);
BGL_BIND_STRING(BGl_string2933z00zz__threadz00, BgL_bgl_string2933za700za7za7_3011za7);
BGL_BIND_PROCEDURE(BGl_proc2683z00zz__threadz00, BgL_bgl_za762threadza7d2join3010z00);
BGL_BIND_STRING(BGl_string2770z00zz__threadz00, BgL_bgl_string2770za700za7za7_3009za7);
BGL_BIND_STRING(BGl_string2932z00zz__threadz00, BgL_bgl_string2932za700za7za7_3008za7);
BGL_BIND_STRING(BGl_string2931z00zz__threadz00, BgL_bgl_string2931za700za7za7_3007za7);
BGL_BIND_PROCEDURE(BGl_proc2681z00zz__threadz00, BgL_bgl_za762threadza7d2star3006z00);
BGL_BIND_STRING(BGl_string2930z00zz__threadz00, BgL_bgl_string2930za700za7za7_3005za7);
BGL_BIND_PROCEDURE(BGl_conditionzd2variablezd2signalz12zd2envzc0zz__threadz00, BgL_bgl_za762conditionza7d2v3004z00);
BGL_BIND_PROCEDURE(BGl_conditionzd2variablezd2waitz12zd2envzc0zz__threadz00, BgL_bgl__conditionza7d2var3003za7);
BGL_BIND_PROCEDURE(BGl_dynamiczd2envzf3zd2envzf3zz__threadz00, BgL_bgl_za762dynamicza7d2env3002z00);
BGL_BIND_STRING(BGl_string2688z00zz__threadz00, BgL_bgl_string2688za700za7za7_3001za7);
BGL_BIND_STRING(BGl_string2768z00zz__threadz00, BgL_bgl_string2768za700za7za7_3000za7);
BGL_BIND_STRING(BGl_string2849z00zz__threadz00, BgL_bgl_string2849za700za7za7_2999za7);
BGL_BIND_PROCEDURE(BGl_proc2599z00zz__threadz00, BgL_bgl_za762za7c3za704anonymo2998za7);
BGL_BIND_STRING(BGl_string2686z00zz__threadz00, BgL_bgl_string2686za700za7za7_2997za7);
BGL_BIND_STRING(BGl_string2848z00zz__threadz00, BgL_bgl_string2848za700za7za7_2996za7);
BGL_BIND_STRING(BGl_string2929z00zz__threadz00, BgL_bgl_string2929za700za7za7_2995za7);
BGL_BIND_PROCEDURE(BGl_proc2679z00zz__threadz00, BgL_bgl_za762threadza7d2star2994z00);
BGL_BIND_STRING(BGl_string2847z00zz__threadz00, BgL_bgl_string2847za700za7za7_2993za7);
BGL_BIND_STRING(BGl_string2684z00zz__threadz00, BgL_bgl_string2684za700za7za7_2992za7);
BGL_BIND_STRING(BGl_string2765z00zz__threadz00, BgL_bgl_string2765za700za7za7_2991za7);
BGL_BIND_PROCEDURE(BGl_proc2596z00zz__threadz00, BgL_bgl_za762lambda1445za7622990z00);
BGL_BIND_PROCEDURE(BGl_proc2677z00zz__threadz00, BgL_bgl_za762threadza7d2init2989z00);
BGL_BIND_STRING(BGl_string2764z00zz__threadz00, BgL_bgl_string2764za700za7za7_2988za7);
BGL_BIND_STRING(BGl_string2845z00zz__threadz00, BgL_bgl_string2845za700za7za7_2987za7);
BGL_BIND_STRING(BGl_string2926z00zz__threadz00, BgL_bgl_string2926za700za7za7_2986za7);
BGL_BIND_PROCEDURE(BGl_proc2595z00zz__threadz00, BgL_bgl_za762lambda1446za7622985z00);
BGL_BIND_STRING(BGl_string2682z00zz__threadz00, BgL_bgl_string2682za700za7za7_2984za7);
BGL_BIND_STRING(BGl_string2763z00zz__threadz00, BgL_bgl_string2763za700za7za7_2983za7);
BGL_BIND_STRING(BGl_string2925z00zz__threadz00, BgL_bgl_string2925za700za7za7_2982za7);
BGL_BIND_PROCEDURE(BGl_proc2594z00zz__threadz00, BgL_bgl_za762za7c3za704anonymo2981za7);
BGL_BIND_PROCEDURE(BGl_proc2675z00zz__threadz00, BgL_bgl_za762tbza7d2condvarza72980za7);
BGL_BIND_STRING(BGl_string2762z00zz__threadz00, BgL_bgl_string2762za700za7za7_2979za7);
BGL_BIND_STRING(BGl_string2924z00zz__threadz00, BgL_bgl_string2924za700za7za7_2978za7);
BGL_BIND_STRING(BGl_string2680z00zz__threadz00, BgL_bgl_string2680za700za7za7_2977za7);
BGL_BIND_STRING(BGl_string2842z00zz__threadz00, BgL_bgl_string2842za700za7za7_2976za7);
BGL_BIND_STRING(BGl_string2923z00zz__threadz00, BgL_bgl_string2923za700za7za7_2975za7);
BGL_BIND_PROCEDURE(BGl_proc2673z00zz__threadz00, BgL_bgl_za762tbza7d2mutexza7d22974za7);
BGL_BIND_STRING(BGl_string2841z00zz__threadz00, BgL_bgl_string2841za700za7za7_2973za7);
BGL_BIND_STRING(BGl_string2922z00zz__threadz00, BgL_bgl_string2922za700za7za7_2972za7);
BGL_BIND_STRING(BGl_string2840z00zz__threadz00, BgL_bgl_string2840za700za7za7_2971za7);
BGL_BIND_PROCEDURE(BGl_proc2915z00zz__threadz00, BgL_bgl_za762threadza7d2name2970z00);
BGL_BIND_STRING(BGl_string2921z00zz__threadz00, BgL_bgl_string2921za700za7za7_2969za7);
BGL_BIND_PROCEDURE(BGl_proc2590z00zz__threadz00, BgL_bgl_za762lambda1437za7622968z00);
BGL_BIND_PROCEDURE(BGl_proc2671z00zz__threadz00, BgL_bgl_za762tbza7d2currentza72967za7);
BGL_BIND_PROCEDURE(BGl_proc2914z00zz__threadz00, BgL_bgl_za762threadza7d2name2966z00);
BGL_BIND_STRING(BGl_string2920z00zz__threadz00, BgL_bgl_string2920za700za7za7_2965za7);
BGL_BIND_PROCEDURE(BGl_proc2912z00zz__threadz00, BgL_bgl_za762threadza7d2clea2964z00);
BGL_BIND_PROCEDURE(BGl_proc2910z00zz__threadz00, BgL_bgl_za762threadza7d2clea2963z00);
BGL_BIND_PROCEDURE(BGl_makezd2conditionzd2variablezd2envzd2zz__threadz00, BgL_bgl__makeza7d2conditio2962za7);
}

/* GC roots registration */
static obj_t bgl_gc_roots_register() {
#if defined( BGL_GC_ROOTS )
#define ADD_ROOT( addr ) (addr > roots_max ? roots_max = addr : (addr < roots_min ? roots_min = addr : 0))
void *roots_min = (void*)ULONG_MAX, *roots_max = 0;
ADD_ROOT( (void *)(&BGl_symbol2720z00zz__threadz00) );
ADD_ROOT( (void *)(&BGl_symbol2802z00zz__threadz00) );
ADD_ROOT( (void *)(&BGl_symbol2722z00zz__threadz00) );
ADD_ROOT( (void *)(&BGl_symbol2561z00zz__threadz00) );
ADD_ROOT( (void *)(&BGl_symbol2724z00zz__threadz00) );
ADD_ROOT( (void *)(&BGl_symbol2563z00zz__threadz00) );
ADD_ROOT( (void *)(&BGl_symbol2807z00zz__threadz00) );
ADD_ROOT( (void *)(&BGl_symbol2726z00zz__threadz00) );
ADD_ROOT( (void *)(&BGl_symbol2728z00zz__threadz00) );
ADD_ROOT( (void *)(&BGl_symbol2567z00zz__threadz00) );
ADD_ROOT( (void *)(&BGl_symbol2568z00zz__threadz00) );
ADD_ROOT( (void *)(&BGl_list2535z00zz__threadz00) );
ADD_ROOT( (void *)(&BGl_symbol2811z00zz__threadz00) );
ADD_ROOT( (void *)(&BGl_symbol2730z00zz__threadz00) );
ADD_ROOT( (void *)(&BGl_symbol2813z00zz__threadz00) );
ADD_ROOT( (void *)(&BGl_symbol2732z00zz__threadz00) );
ADD_ROOT( (void *)(&BGl_symbol2734z00zz__threadz00) );
ADD_ROOT( (void *)(&BGl_symbol2573z00zz__threadz00) );
ADD_ROOT( (void *)(&BGl_symbol2818z00zz__threadz00) );
ADD_ROOT( (void *)(&BGl_symbol2737z00zz__threadz00) );
ADD_ROOT( (void *)(&BGl_symbol2739z00zz__threadz00) );
ADD_ROOT( (void *)(&BGl_symbol2577z00zz__threadz00) );
ADD_ROOT( (void *)(&BGl_symbol2496z00zz__threadz00) );
ADD_ROOT( (void *)(&BGl_symbol2499z00zz__threadz00) );
ADD_ROOT( (void *)(&BGl_requirezd2initializa7ationz75zz__threadz00) );
ADD_ROOT( (void *)(&BGl_za2threadzd2backendsza2zd2zz__threadz00) );
ADD_ROOT( (void *)(&BGl_symbol2821z00zz__threadz00) );
ADD_ROOT( (void *)(&BGl_symbol2741z00zz__threadz00) );
ADD_ROOT( (void *)(&BGl_symbol2743z00zz__threadz00) );
ADD_ROOT( (void *)(&BGl_symbol2581z00zz__threadz00) );
ADD_ROOT( (void *)(&BGl_symbol2827z00zz__threadz00) );
ADD_ROOT( (void *)(&BGl_symbol2748z00zz__threadz00) );
ADD_ROOT( (void *)(&BGl_list2634z00zz__threadz00) );
ADD_ROOT( (void *)(&BGl_symbol2750z00zz__threadz00) );
ADD_ROOT( (void *)(&BGl_symbol2832z00zz__threadz00) );
ADD_ROOT( (void *)(&BGl_symbol2834z00zz__threadz00) );
ADD_ROOT( (void *)(&BGl_list2801z00zz__threadz00) );
ADD_ROOT( (void *)(&BGl_symbol2591z00zz__threadz00) );
ADD_ROOT( (void *)(&BGl_symbol2755z00zz__threadz00) );
ADD_ROOT( (void *)(&BGl_symbol2593z00zz__threadz00) );
ADD_ROOT( (void *)(&BGl_symbol2839z00zz__threadz00) );
ADD_ROOT( (void *)(&BGl_list2806z00zz__threadz00) );
ADD_ROOT( (void *)(&BGl_symbol2597z00zz__threadz00) );
ADD_ROOT( (void *)(&BGl_symbol2761z00zz__threadz00) );
ADD_ROOT( (void *)(&BGl_symbol2844z00zz__threadz00) );
ADD_ROOT( (void *)(&BGl_list2812z00zz__threadz00) );
ADD_ROOT( (void *)(&BGl_symbol2846z00zz__threadz00) );
ADD_ROOT( (void *)(&BGl_nothreadzd2backendzd2zz__threadz00) );
ADD_ROOT( (void *)(&BGl_symbol2928z00zz__threadz00) );
ADD_ROOT( (void *)(&BGl_list2815z00zz__threadz00) );
ADD_ROOT( (void *)(&BGl_symbol2767z00zz__threadz00) );
ADD_ROOT( (void *)(&BGl_list2816z00zz__threadz00) );
ADD_ROOT( (void *)(&BGl_list2817z00zz__threadz00) );
ADD_ROOT( (void *)(&BGl_symbol2769z00zz__threadz00) );
ADD_ROOT( (void *)(&BGl_za2nothreadzd2backendza2zd2zz__threadz00) );
ADD_ROOT( (void *)(&BGl_symbol2851z00zz__threadz00) );
ADD_ROOT( (void *)(&BGl_list2820z00zz__threadz00) );
ADD_ROOT( (void *)(&BGl_symbol2773z00zz__threadz00) );
ADD_ROOT( (void *)(&BGl_symbol2937z00zz__threadz00) );
ADD_ROOT( (void *)(&BGl_symbol2856z00zz__threadz00) );
ADD_ROOT( (void *)(&BGl_list2823z00zz__threadz00) );
ADD_ROOT( (void *)(&BGl_symbol2775z00zz__threadz00) );
ADD_ROOT( (void *)(&BGl_list2826z00zz__threadz00) );
ADD_ROOT( (void *)(&BGl_symbol2779z00zz__threadz00) );
ADD_ROOT( (void *)(&BGl_list2747z00zz__threadz00) );
ADD_ROOT( (void *)(&BGl_symbol2862z00zz__threadz00) );
ADD_ROOT( (void *)(&BGl_symbol2782z00zz__threadz00) );
ADD_ROOT( (void *)(&BGl_list2831z00zz__threadz00) );
ADD_ROOT( (void *)(&BGl_symbol2784z00zz__threadz00) );
ADD_ROOT( (void *)(&BGl_symbol2867z00zz__threadz00) );
ADD_ROOT( (void *)(&BGl_symbol2787z00zz__threadz00) );
ADD_ROOT( (void *)(&BGl_list2754z00zz__threadz00) );
ADD_ROOT( (void *)(&BGl_list2838z00zz__threadz00) );
ADD_ROOT( (void *)(&BGl_symbol2872z00zz__threadz00) );
ADD_ROOT( (void *)(&BGl_symbol2791z00zz__threadz00) );
ADD_ROOT( (void *)(&BGl_symbol2874z00zz__threadz00) );
ADD_ROOT( (void *)(&BGl_list2760z00zz__threadz00) );
ADD_ROOT( (void *)(&BGl_symbol2794z00zz__threadz00) );
ADD_ROOT( (void *)(&BGl_symbol2957z00zz__threadz00) );
ADD_ROOT( (void *)(&BGl_list2843z00zz__threadz00) );
ADD_ROOT( (void *)(&BGl_symbol2796z00zz__threadz00) );
ADD_ROOT( (void *)(&BGl_symbol2959z00zz__threadz00) );
ADD_ROOT( (void *)(&BGl_list2927z00zz__threadz00) );
ADD_ROOT( (void *)(&BGl_symbol2879z00zz__threadz00) );
ADD_ROOT( (void *)(&BGl_symbol2799z00zz__threadz00) );
ADD_ROOT( (void *)(&BGl_list2766z00zz__threadz00) );
ADD_ROOT( (void *)(&BGl_symbol2881z00zz__threadz00) );
ADD_ROOT( (void *)(&BGl_list2850z00zz__threadz00) );
ADD_ROOT( (void *)(&BGl_symbol2886z00zz__threadz00) );
ADD_ROOT( (void *)(&BGl_list2772z00zz__threadz00) );
ADD_ROOT( (void *)(&BGl_list2936z00zz__threadz00) );
ADD_ROOT( (void *)(&BGl_list2855z00zz__threadz00) );
ADD_ROOT( (void *)(&BGl_list2861z00zz__threadz00) );
ADD_ROOT( (void *)(&BGl_list2781z00zz__threadz00) );
ADD_ROOT( (void *)(&BGl_list2866z00zz__threadz00) );
ADD_ROOT( (void *)(&BGl_list2786z00zz__threadz00) );
ADD_ROOT( (void *)(&BGl_list2789z00zz__threadz00) );
ADD_ROOT( (void *)(&BGl_list2871z00zz__threadz00) );
ADD_ROOT( (void *)(&BGl_list2790z00zz__threadz00) );
ADD_ROOT( (void *)(&BGl_list2793z00zz__threadz00) );
ADD_ROOT( (void *)(&BGl_list2956z00zz__threadz00) );
ADD_ROOT( (void *)(&BGl_list2878z00zz__threadz00) );
ADD_ROOT( (void *)(&BGl_list2798z00zz__threadz00) );
ADD_ROOT( (void *)(&BGl_symbol2514z00zz__threadz00) );
ADD_ROOT( (void *)(&BGl_symbol2518z00zz__threadz00) );
ADD_ROOT( (void *)(&BGl_list2885z00zz__threadz00) );
ADD_ROOT( (void *)(&BGl_nothreadz00zz__threadz00) );
ADD_ROOT( (void *)(&BGl_symbol2602z00zz__threadz00) );
ADD_ROOT( (void *)(&BGl_symbol2521z00zz__threadz00) );
ADD_ROOT( (void *)(&BGl_symbol2524z00zz__threadz00) );
ADD_ROOT( (void *)(&BGl_symbol2607z00zz__threadz00) );
ADD_ROOT( (void *)(&BGl_symbol2529z00zz__threadz00) );
ADD_ROOT( (void *)(&BGl_za2nothreadzd2currentza2zd2zz__threadz00) );
ADD_ROOT( (void *)(&BGl_symbol2612z00zz__threadz00) );
ADD_ROOT( (void *)(&BGl_symbol2617z00zz__threadz00) );
ADD_ROOT( (void *)(&BGl_symbol2536z00zz__threadz00) );
ADD_ROOT( (void *)(&BGl_symbol2538z00zz__threadz00) );
ADD_ROOT( (void *)(&BGl_za2mutexzd2nilza2zd2zz__threadz00) );
ADD_ROOT( (void *)(&BGl_za2conditionzd2variablezd2nilza2z00zz__threadz00) );
ADD_ROOT( (void *)(&BGl_symbol2622z00zz__threadz00) );
ADD_ROOT( (void *)(&BGl_symbol2626z00zz__threadz00) );
ADD_ROOT( (void *)(&BGl_symbol2545z00zz__threadz00) );
ADD_ROOT( (void *)(&BGl_symbol2709z00zz__threadz00) );
ADD_ROOT( (void *)(&BGl_symbol2548z00zz__threadz00) );
ADD_ROOT( (void *)(&BGl_threadz00zz__threadz00) );
ADD_ROOT( (void *)(&BGl_symbol2713z00zz__threadz00) );
ADD_ROOT( (void *)(&BGl_symbol2716z00zz__threadz00) );
ADD_ROOT( (void *)(&BGl_symbol2635z00zz__threadz00) );
ADD_ROOT( (void *)(&BGl_symbol2554z00zz__threadz00) );
ADD_ROOT( (void *)(&BGl_symbol2718z00zz__threadz00) );
ADD_ROOT( (void *)(&BGl_symbol2637z00zz__threadz00) );
ADD_ROOT( (void *)(&BGl_threadzd2backendzd2zz__threadz00) );
#undef ADD_ROOT
if( roots_max > 0 ) GC_add_roots( roots_min, ((void **)roots_max) + 1 );
#endif
return BUNSPEC;
}



/* module-initialization */
BGL_EXPORTED_DEF obj_t BGl_modulezd2initializa7ationz75zz__threadz00(long BgL_checksumz00_8682, char * BgL_fromz00_8683)
{
{ 
if(
CBOOL(BGl_requirezd2initializa7ationz75zz__threadz00))
{ 
BGl_requirezd2initializa7ationz75zz__threadz00 = 
BBOOL(((bool_t)0)); 
bgl_constant_bindings(); 
BGl_gczd2rootszd2initz00zz__threadz00(); 
BGl_cnstzd2initzd2zz__threadz00(); 
BGl_importedzd2moduleszd2initz00zz__threadz00(); 
BGl_objectzd2initzd2zz__threadz00(); 
BGl_genericzd2initzd2zz__threadz00(); 
BGl_methodzd2initzd2zz__threadz00(); 
return 
BGl_toplevelzd2initzd2zz__threadz00();}  else 
{ 
return BUNSPEC;} } 

}



/* cnst-init */
obj_t BGl_cnstzd2initzd2zz__threadz00(void)
{
{ /* Llib/thread.scm 17 */
BGl_symbol2496z00zz__threadz00 = 
bstring_to_symbol(BGl_string2497z00zz__threadz00); 
BGl_symbol2499z00zz__threadz00 = 
bstring_to_symbol(BGl_string2500z00zz__threadz00); 
BGl_symbol2514z00zz__threadz00 = 
bstring_to_symbol(BGl_string2515z00zz__threadz00); 
BGl_symbol2518z00zz__threadz00 = 
bstring_to_symbol(BGl_string2519z00zz__threadz00); 
BGl_symbol2521z00zz__threadz00 = 
bstring_to_symbol(BGl_string2522z00zz__threadz00); 
BGl_symbol2524z00zz__threadz00 = 
bstring_to_symbol(BGl_string2525z00zz__threadz00); 
BGl_symbol2529z00zz__threadz00 = 
bstring_to_symbol(BGl_string2530z00zz__threadz00); 
BGl_symbol2536z00zz__threadz00 = 
bstring_to_symbol(BGl_string2537z00zz__threadz00); 
BGl_symbol2538z00zz__threadz00 = 
bstring_to_symbol(BGl_string2539z00zz__threadz00); 
BGl_list2535z00zz__threadz00 = 
MAKE_YOUNG_PAIR(BGl_symbol2536z00zz__threadz00, 
MAKE_YOUNG_PAIR(BGl_symbol2538z00zz__threadz00, 
MAKE_YOUNG_PAIR(BGl_symbol2538z00zz__threadz00, BNIL))); 
BGl_symbol2545z00zz__threadz00 = 
bstring_to_symbol(BGl_string2546z00zz__threadz00); 
BGl_symbol2548z00zz__threadz00 = 
bstring_to_symbol(BGl_string2549z00zz__threadz00); 
BGl_symbol2554z00zz__threadz00 = 
bstring_to_symbol(BGl_string2555z00zz__threadz00); 
BGl_symbol2561z00zz__threadz00 = 
bstring_to_symbol(BGl_string2562z00zz__threadz00); 
BGl_symbol2563z00zz__threadz00 = 
bstring_to_symbol(BGl_string2492z00zz__threadz00); 
BGl_symbol2567z00zz__threadz00 = 
bstring_to_symbol(BGl_string2486z00zz__threadz00); 
BGl_symbol2568z00zz__threadz00 = 
bstring_to_symbol(BGl_string2569z00zz__threadz00); 
BGl_symbol2573z00zz__threadz00 = 
bstring_to_symbol(BGl_string2574z00zz__threadz00); 
BGl_symbol2577z00zz__threadz00 = 
bstring_to_symbol(BGl_string2578z00zz__threadz00); 
BGl_symbol2581z00zz__threadz00 = 
bstring_to_symbol(BGl_string2582z00zz__threadz00); 
BGl_symbol2591z00zz__threadz00 = 
bstring_to_symbol(BGl_string2592z00zz__threadz00); 
BGl_symbol2593z00zz__threadz00 = 
bstring_to_symbol(BGl_string2501z00zz__threadz00); 
BGl_symbol2597z00zz__threadz00 = 
bstring_to_symbol(BGl_string2598z00zz__threadz00); 
BGl_symbol2602z00zz__threadz00 = 
bstring_to_symbol(BGl_string2603z00zz__threadz00); 
BGl_symbol2607z00zz__threadz00 = 
bstring_to_symbol(BGl_string2608z00zz__threadz00); 
BGl_symbol2612z00zz__threadz00 = 
bstring_to_symbol(BGl_string2613z00zz__threadz00); 
BGl_symbol2617z00zz__threadz00 = 
bstring_to_symbol(BGl_string2618z00zz__threadz00); 
BGl_symbol2622z00zz__threadz00 = 
bstring_to_symbol(BGl_string2483z00zz__threadz00); 
BGl_symbol2626z00zz__threadz00 = 
bstring_to_symbol(BGl_string2627z00zz__threadz00); 
BGl_symbol2635z00zz__threadz00 = 
bstring_to_symbol(BGl_string2636z00zz__threadz00); 
BGl_symbol2637z00zz__threadz00 = 
bstring_to_symbol(BGl_string2638z00zz__threadz00); 
BGl_list2634z00zz__threadz00 = 
MAKE_YOUNG_PAIR(BGl_symbol2536z00zz__threadz00, 
MAKE_YOUNG_PAIR(BGl_symbol2635z00zz__threadz00, 
MAKE_YOUNG_PAIR(BGl_symbol2635z00zz__threadz00, 
MAKE_YOUNG_PAIR(BGl_symbol2637z00zz__threadz00, BNIL)))); 
BGl_symbol2709z00zz__threadz00 = 
bstring_to_symbol(BGl_string2505z00zz__threadz00); 
BGl_symbol2713z00zz__threadz00 = 
bstring_to_symbol(BGl_string2700z00zz__threadz00); 
BGl_symbol2716z00zz__threadz00 = 
bstring_to_symbol(BGl_string2698z00zz__threadz00); 
BGl_symbol2718z00zz__threadz00 = 
bstring_to_symbol(BGl_string2696z00zz__threadz00); 
BGl_symbol2720z00zz__threadz00 = 
bstring_to_symbol(BGl_string2694z00zz__threadz00); 
BGl_symbol2722z00zz__threadz00 = 
bstring_to_symbol(BGl_string2692z00zz__threadz00); 
BGl_symbol2724z00zz__threadz00 = 
bstring_to_symbol(BGl_string2690z00zz__threadz00); 
BGl_symbol2726z00zz__threadz00 = 
bstring_to_symbol(BGl_string2688z00zz__threadz00); 
BGl_symbol2728z00zz__threadz00 = 
bstring_to_symbol(BGl_string2686z00zz__threadz00); 
BGl_symbol2730z00zz__threadz00 = 
bstring_to_symbol(BGl_string2684z00zz__threadz00); 
BGl_symbol2732z00zz__threadz00 = 
bstring_to_symbol(BGl_string2682z00zz__threadz00); 
BGl_symbol2734z00zz__threadz00 = 
bstring_to_symbol(BGl_string2680z00zz__threadz00); 
BGl_symbol2737z00zz__threadz00 = 
bstring_to_symbol(BGl_string2676z00zz__threadz00); 
BGl_symbol2739z00zz__threadz00 = 
bstring_to_symbol(BGl_string2674z00zz__threadz00); 
BGl_symbol2741z00zz__threadz00 = 
bstring_to_symbol(BGl_string2672z00zz__threadz00); 
BGl_symbol2743z00zz__threadz00 = 
bstring_to_symbol(BGl_string2670z00zz__threadz00); 
BGl_symbol2748z00zz__threadz00 = 
bstring_to_symbol(BGl_string2749z00zz__threadz00); 
BGl_symbol2750z00zz__threadz00 = 
bstring_to_symbol(BGl_string2751z00zz__threadz00); 
BGl_list2747z00zz__threadz00 = 
MAKE_YOUNG_PAIR(BGl_symbol2536z00zz__threadz00, 
MAKE_YOUNG_PAIR(BGl_symbol2748z00zz__threadz00, 
MAKE_YOUNG_PAIR(BGl_symbol2748z00zz__threadz00, 
MAKE_YOUNG_PAIR(BGl_symbol2750z00zz__threadz00, 
MAKE_YOUNG_PAIR(BGl_symbol2591z00zz__threadz00, 
MAKE_YOUNG_PAIR(BGl_symbol2561z00zz__threadz00, BNIL)))))); 
BGl_symbol2755z00zz__threadz00 = 
bstring_to_symbol(BGl_string2756z00zz__threadz00); 
BGl_list2754z00zz__threadz00 = 
MAKE_YOUNG_PAIR(BGl_symbol2536z00zz__threadz00, 
MAKE_YOUNG_PAIR(BGl_symbol2755z00zz__threadz00, 
MAKE_YOUNG_PAIR(BGl_symbol2755z00zz__threadz00, 
MAKE_YOUNG_PAIR(BGl_symbol2750z00zz__threadz00, BNIL)))); 
BGl_symbol2761z00zz__threadz00 = 
bstring_to_symbol(BGl_string2762z00zz__threadz00); 
BGl_list2760z00zz__threadz00 = 
MAKE_YOUNG_PAIR(BGl_symbol2536z00zz__threadz00, 
MAKE_YOUNG_PAIR(BGl_symbol2761z00zz__threadz00, 
MAKE_YOUNG_PAIR(BGl_symbol2761z00zz__threadz00, 
MAKE_YOUNG_PAIR(BGl_symbol2750z00zz__threadz00, 
MAKE_YOUNG_PAIR(BGl_symbol2518z00zz__threadz00, BNIL))))); 
BGl_symbol2767z00zz__threadz00 = 
bstring_to_symbol(BGl_string2768z00zz__threadz00); 
BGl_symbol2769z00zz__threadz00 = 
bstring_to_symbol(BGl_string2551z00zz__threadz00); 
BGl_list2766z00zz__threadz00 = 
MAKE_YOUNG_PAIR(BGl_symbol2536z00zz__threadz00, 
MAKE_YOUNG_PAIR(BGl_symbol2767z00zz__threadz00, 
MAKE_YOUNG_PAIR(BGl_symbol2767z00zz__threadz00, 
MAKE_YOUNG_PAIR(BGl_symbol2750z00zz__threadz00, 
MAKE_YOUNG_PAIR(BGl_symbol2769z00zz__threadz00, BNIL))))); 
BGl_symbol2773z00zz__threadz00 = 
bstring_to_symbol(BGl_string2774z00zz__threadz00); 
BGl_symbol2775z00zz__threadz00 = 
bstring_to_symbol(BGl_string2776z00zz__threadz00); 
BGl_list2772z00zz__threadz00 = 
MAKE_YOUNG_PAIR(BGl_symbol2536z00zz__threadz00, 
MAKE_YOUNG_PAIR(BGl_symbol2773z00zz__threadz00, 
MAKE_YOUNG_PAIR(BGl_symbol2773z00zz__threadz00, 
MAKE_YOUNG_PAIR(BGl_symbol2775z00zz__threadz00, BNIL)))); 
BGl_symbol2779z00zz__threadz00 = 
bstring_to_symbol(BGl_string2778z00zz__threadz00); 
BGl_symbol2782z00zz__threadz00 = 
bstring_to_symbol(BGl_string2783z00zz__threadz00); 
BGl_symbol2784z00zz__threadz00 = 
bstring_to_symbol(BGl_string2785z00zz__threadz00); 
BGl_symbol2787z00zz__threadz00 = 
bstring_to_symbol(BGl_string2788z00zz__threadz00); 
BGl_symbol2791z00zz__threadz00 = 
bstring_to_symbol(BGl_string2792z00zz__threadz00); 
BGl_symbol2794z00zz__threadz00 = 
bstring_to_symbol(BGl_string2795z00zz__threadz00); 
BGl_symbol2796z00zz__threadz00 = 
bstring_to_symbol(BGl_string2797z00zz__threadz00); 
BGl_symbol2799z00zz__threadz00 = 
bstring_to_symbol(BGl_string2800z00zz__threadz00); 
BGl_list2798z00zz__threadz00 = 
MAKE_YOUNG_PAIR(BGl_symbol2799z00zz__threadz00, 
MAKE_YOUNG_PAIR(BNIL, BNIL)); 
BGl_list2793z00zz__threadz00 = 
MAKE_YOUNG_PAIR(BGl_symbol2794z00zz__threadz00, 
MAKE_YOUNG_PAIR(BGl_symbol2796z00zz__threadz00, 
MAKE_YOUNG_PAIR(BGl_list2798z00zz__threadz00, BNIL))); 
BGl_list2790z00zz__threadz00 = 
MAKE_YOUNG_PAIR(BGl_symbol2791z00zz__threadz00, 
MAKE_YOUNG_PAIR(BGl_list2793z00zz__threadz00, BNIL)); 
BGl_list2789z00zz__threadz00 = 
MAKE_YOUNG_PAIR(BGl_list2790z00zz__threadz00, BNIL); 
BGl_symbol2802z00zz__threadz00 = 
bstring_to_symbol(BGl_string2803z00zz__threadz00); 
BGl_list2801z00zz__threadz00 = 
MAKE_YOUNG_PAIR(BGl_symbol2802z00zz__threadz00, 
MAKE_YOUNG_PAIR(BGl_symbol2775z00zz__threadz00, 
MAKE_YOUNG_PAIR(BGl_symbol2791z00zz__threadz00, BNIL))); 
BGl_list2786z00zz__threadz00 = 
MAKE_YOUNG_PAIR(BGl_symbol2787z00zz__threadz00, 
MAKE_YOUNG_PAIR(BGl_list2789z00zz__threadz00, 
MAKE_YOUNG_PAIR(BGl_list2801z00zz__threadz00, BNIL))); 
BGl_list2781z00zz__threadz00 = 
MAKE_YOUNG_PAIR(BGl_symbol2782z00zz__threadz00, 
MAKE_YOUNG_PAIR(BGl_symbol2784z00zz__threadz00, 
MAKE_YOUNG_PAIR(BGl_list2786z00zz__threadz00, BNIL))); 
BGl_symbol2807z00zz__threadz00 = 
bstring_to_symbol(BGl_string2808z00zz__threadz00); 
BGl_list2806z00zz__threadz00 = 
MAKE_YOUNG_PAIR(BGl_symbol2536z00zz__threadz00, 
MAKE_YOUNG_PAIR(BGl_symbol2807z00zz__threadz00, 
MAKE_YOUNG_PAIR(BGl_symbol2807z00zz__threadz00, 
MAKE_YOUNG_PAIR(BGl_symbol2775z00zz__threadz00, BNIL)))); 
BGl_symbol2811z00zz__threadz00 = 
bstring_to_symbol(BGl_string2810z00zz__threadz00); 
BGl_symbol2813z00zz__threadz00 = 
bstring_to_symbol(BGl_string2814z00zz__threadz00); 
BGl_symbol2818z00zz__threadz00 = 
bstring_to_symbol(BGl_string2819z00zz__threadz00); 
BGl_symbol2821z00zz__threadz00 = 
bstring_to_symbol(BGl_string2822z00zz__threadz00); 
BGl_list2820z00zz__threadz00 = 
MAKE_YOUNG_PAIR(BGl_symbol2794z00zz__threadz00, 
MAKE_YOUNG_PAIR(BGl_symbol2821z00zz__threadz00, 
MAKE_YOUNG_PAIR(BGl_list2798z00zz__threadz00, BNIL))); 
BGl_list2817z00zz__threadz00 = 
MAKE_YOUNG_PAIR(BGl_symbol2818z00zz__threadz00, 
MAKE_YOUNG_PAIR(BGl_list2820z00zz__threadz00, BNIL)); 
BGl_list2816z00zz__threadz00 = 
MAKE_YOUNG_PAIR(BGl_list2817z00zz__threadz00, BNIL); 
BGl_list2823z00zz__threadz00 = 
MAKE_YOUNG_PAIR(BGl_symbol2802z00zz__threadz00, 
MAKE_YOUNG_PAIR(BGl_symbol2775z00zz__threadz00, 
MAKE_YOUNG_PAIR(BGl_symbol2818z00zz__threadz00, BNIL))); 
BGl_list2815z00zz__threadz00 = 
MAKE_YOUNG_PAIR(BGl_symbol2787z00zz__threadz00, 
MAKE_YOUNG_PAIR(BGl_list2816z00zz__threadz00, 
MAKE_YOUNG_PAIR(BGl_list2823z00zz__threadz00, BNIL))); 
BGl_list2812z00zz__threadz00 = 
MAKE_YOUNG_PAIR(BGl_symbol2782z00zz__threadz00, 
MAKE_YOUNG_PAIR(BGl_symbol2813z00zz__threadz00, 
MAKE_YOUNG_PAIR(BGl_list2815z00zz__threadz00, BNIL))); 
BGl_symbol2827z00zz__threadz00 = 
bstring_to_symbol(BGl_string2828z00zz__threadz00); 
BGl_list2826z00zz__threadz00 = 
MAKE_YOUNG_PAIR(BGl_symbol2536z00zz__threadz00, 
MAKE_YOUNG_PAIR(BGl_symbol2827z00zz__threadz00, 
MAKE_YOUNG_PAIR(BGl_symbol2827z00zz__threadz00, 
MAKE_YOUNG_PAIR(BGl_symbol2775z00zz__threadz00, BNIL)))); 
BGl_symbol2832z00zz__threadz00 = 
bstring_to_symbol(BGl_string2833z00zz__threadz00); 
BGl_symbol2834z00zz__threadz00 = 
bstring_to_symbol(BGl_string2835z00zz__threadz00); 
BGl_list2831z00zz__threadz00 = 
MAKE_YOUNG_PAIR(BGl_symbol2536z00zz__threadz00, 
MAKE_YOUNG_PAIR(BGl_symbol2832z00zz__threadz00, 
MAKE_YOUNG_PAIR(BGl_symbol2832z00zz__threadz00, 
MAKE_YOUNG_PAIR(BGl_symbol2775z00zz__threadz00, 
MAKE_YOUNG_PAIR(BGl_symbol2834z00zz__threadz00, BNIL))))); 
BGl_symbol2839z00zz__threadz00 = 
bstring_to_symbol(BGl_string2840z00zz__threadz00); 
BGl_list2838z00zz__threadz00 = 
MAKE_YOUNG_PAIR(BGl_symbol2536z00zz__threadz00, 
MAKE_YOUNG_PAIR(BGl_symbol2839z00zz__threadz00, 
MAKE_YOUNG_PAIR(BGl_symbol2839z00zz__threadz00, 
MAKE_YOUNG_PAIR(BGl_symbol2775z00zz__threadz00, BNIL)))); 
BGl_symbol2844z00zz__threadz00 = 
bstring_to_symbol(BGl_string2845z00zz__threadz00); 
BGl_symbol2846z00zz__threadz00 = 
bstring_to_symbol(BGl_string2847z00zz__threadz00); 
BGl_list2843z00zz__threadz00 = 
MAKE_YOUNG_PAIR(BGl_symbol2536z00zz__threadz00, 
MAKE_YOUNG_PAIR(BGl_symbol2844z00zz__threadz00, 
MAKE_YOUNG_PAIR(BGl_symbol2844z00zz__threadz00, 
MAKE_YOUNG_PAIR(BGl_symbol2775z00zz__threadz00, 
MAKE_YOUNG_PAIR(BGl_symbol2846z00zz__threadz00, BNIL))))); 
BGl_symbol2851z00zz__threadz00 = 
bstring_to_symbol(BGl_string2852z00zz__threadz00); 
BGl_list2850z00zz__threadz00 = 
MAKE_YOUNG_PAIR(BGl_symbol2536z00zz__threadz00, 
MAKE_YOUNG_PAIR(BGl_symbol2851z00zz__threadz00, 
MAKE_YOUNG_PAIR(BGl_symbol2851z00zz__threadz00, 
MAKE_YOUNG_PAIR(BGl_symbol2775z00zz__threadz00, BNIL)))); 
BGl_symbol2856z00zz__threadz00 = 
bstring_to_symbol(BGl_string2857z00zz__threadz00); 
BGl_list2855z00zz__threadz00 = 
MAKE_YOUNG_PAIR(BGl_symbol2536z00zz__threadz00, 
MAKE_YOUNG_PAIR(BGl_symbol2856z00zz__threadz00, 
MAKE_YOUNG_PAIR(BGl_symbol2856z00zz__threadz00, 
MAKE_YOUNG_PAIR(BGl_symbol2775z00zz__threadz00, 
MAKE_YOUNG_PAIR(BGl_symbol2846z00zz__threadz00, BNIL))))); 
BGl_symbol2862z00zz__threadz00 = 
bstring_to_symbol(BGl_string2863z00zz__threadz00); 
BGl_list2861z00zz__threadz00 = 
MAKE_YOUNG_PAIR(BGl_symbol2536z00zz__threadz00, 
MAKE_YOUNG_PAIR(BGl_symbol2862z00zz__threadz00, 
MAKE_YOUNG_PAIR(BGl_symbol2862z00zz__threadz00, 
MAKE_YOUNG_PAIR(BGl_symbol2775z00zz__threadz00, BNIL)))); 
BGl_symbol2867z00zz__threadz00 = 
bstring_to_symbol(BGl_string2868z00zz__threadz00); 
BGl_list2866z00zz__threadz00 = 
MAKE_YOUNG_PAIR(BGl_symbol2536z00zz__threadz00, 
MAKE_YOUNG_PAIR(BGl_symbol2867z00zz__threadz00, 
MAKE_YOUNG_PAIR(BGl_symbol2867z00zz__threadz00, 
MAKE_YOUNG_PAIR(BGl_symbol2775z00zz__threadz00, 
MAKE_YOUNG_PAIR(BGl_symbol2846z00zz__threadz00, BNIL))))); 
BGl_symbol2872z00zz__threadz00 = 
bstring_to_symbol(BGl_string2873z00zz__threadz00); 
BGl_symbol2874z00zz__threadz00 = 
bstring_to_symbol(BGl_string2875z00zz__threadz00); 
BGl_list2871z00zz__threadz00 = 
MAKE_YOUNG_PAIR(BGl_symbol2536z00zz__threadz00, 
MAKE_YOUNG_PAIR(BGl_symbol2872z00zz__threadz00, 
MAKE_YOUNG_PAIR(BGl_symbol2872z00zz__threadz00, 
MAKE_YOUNG_PAIR(BGl_symbol2874z00zz__threadz00, BNIL)))); 
BGl_symbol2879z00zz__threadz00 = 
bstring_to_symbol(BGl_string2880z00zz__threadz00); 
BGl_symbol2881z00zz__threadz00 = 
bstring_to_symbol(BGl_string2882z00zz__threadz00); 
BGl_list2878z00zz__threadz00 = 
MAKE_YOUNG_PAIR(BGl_symbol2536z00zz__threadz00, 
MAKE_YOUNG_PAIR(BGl_symbol2879z00zz__threadz00, 
MAKE_YOUNG_PAIR(BGl_symbol2879z00zz__threadz00, 
MAKE_YOUNG_PAIR(BGl_symbol2874z00zz__threadz00, 
MAKE_YOUNG_PAIR(BGl_symbol2881z00zz__threadz00, BNIL))))); 
BGl_symbol2886z00zz__threadz00 = 
bstring_to_symbol(BGl_string2887z00zz__threadz00); 
BGl_list2885z00zz__threadz00 = 
MAKE_YOUNG_PAIR(BGl_symbol2536z00zz__threadz00, 
MAKE_YOUNG_PAIR(BGl_symbol2886z00zz__threadz00, 
MAKE_YOUNG_PAIR(BGl_symbol2886z00zz__threadz00, 
MAKE_YOUNG_PAIR(BGl_symbol2874z00zz__threadz00, BNIL)))); 
BGl_symbol2928z00zz__threadz00 = 
bstring_to_symbol(BGl_string2929z00zz__threadz00); 
BGl_list2927z00zz__threadz00 = 
MAKE_YOUNG_PAIR(BGl_symbol2536z00zz__threadz00, 
MAKE_YOUNG_PAIR(BGl_symbol2928z00zz__threadz00, 
MAKE_YOUNG_PAIR(BGl_symbol2928z00zz__threadz00, BNIL))); 
BGl_symbol2937z00zz__threadz00 = 
bstring_to_symbol(BGl_string2938z00zz__threadz00); 
BGl_list2936z00zz__threadz00 = 
MAKE_YOUNG_PAIR(BGl_symbol2536z00zz__threadz00, 
MAKE_YOUNG_PAIR(BGl_symbol2937z00zz__threadz00, 
MAKE_YOUNG_PAIR(BGl_symbol2937z00zz__threadz00, BNIL))); 
BGl_symbol2957z00zz__threadz00 = 
bstring_to_symbol(BGl_string2958z00zz__threadz00); 
BGl_symbol2959z00zz__threadz00 = 
bstring_to_symbol(BGl_string2960z00zz__threadz00); 
return ( 
BGl_list2956z00zz__threadz00 = 
MAKE_YOUNG_PAIR(BGl_symbol2536z00zz__threadz00, 
MAKE_YOUNG_PAIR(BGl_symbol2957z00zz__threadz00, 
MAKE_YOUNG_PAIR(BGl_symbol2957z00zz__threadz00, 
MAKE_YOUNG_PAIR(BGl_symbol2959z00zz__threadz00, BNIL)))), BUNSPEC) ;} 

}



/* gc-roots-init */
obj_t BGl_gczd2rootszd2initz00zz__threadz00(void)
{
{ /* Llib/thread.scm 17 */
return 
bgl_gc_roots_register();} 

}



/* toplevel-init */
obj_t BGl_toplevelzd2initzd2zz__threadz00(void)
{
{ /* Llib/thread.scm 17 */
{ /* Llib/thread.scm 272 */
 BgL_nothreadzd2backendzd2_bglt BgL_new1058z00_1226;
{ /* Llib/thread.scm 273 */
 BgL_nothreadzd2backendzd2_bglt BgL_new1057z00_1227;
BgL_new1057z00_1227 = 
((BgL_nothreadzd2backendzd2_bglt)BOBJECT( GC_MALLOC( sizeof(struct BgL_nothreadzd2backendzd2_bgl) ))); 
{ /* Llib/thread.scm 273 */
 long BgL_arg1322z00_1228;
BgL_arg1322z00_1228 = 
BGL_CLASS_NUM(BGl_nothreadzd2backendzd2zz__threadz00); 
BGL_OBJECT_CLASS_NUM_SET(
((BgL_objectz00_bglt)BgL_new1057z00_1227), BgL_arg1322z00_1228); } 
BgL_new1058z00_1226 = BgL_new1057z00_1227; } 
((((BgL_threadzd2backendzd2_bglt)COBJECT(
((BgL_threadzd2backendzd2_bglt)BgL_new1058z00_1226)))->BgL_namez00)=((obj_t)BGl_string2483z00zz__threadz00),BUNSPEC); 
BGl_za2nothreadzd2backendza2zd2zz__threadz00 = BgL_new1058z00_1226; } 
{ /* Llib/thread.scm 279 */
 obj_t BgL_list1323z00_1229;
BgL_list1323z00_1229 = 
MAKE_YOUNG_PAIR(
((obj_t)BGl_za2nothreadzd2backendza2zd2zz__threadz00), BNIL); 
BGl_za2threadzd2backendsza2zd2zz__threadz00 = BgL_list1323z00_1229; } 
BGl_za2nothreadzd2currentza2zd2zz__threadz00 = BFALSE; 
BGl_za2mutexzd2nilza2zd2zz__threadz00 = 
bgl_make_nil_mutex(); 
return ( 
BGl_za2conditionzd2variablezd2nilza2z00zz__threadz00 = 
bgl_make_nil_condvar(), BUNSPEC) ;} 

}



/* dynamic-env? */
BGL_EXPORTED_DEF bool_t BGl_dynamiczd2envzf3z21zz__threadz00(obj_t BgL_objz00_3)
{
{ /* Llib/thread.scm 259 */
return 
BGL_DYNAMIC_ENVP(BgL_objz00_3);} 

}



/* &dynamic-env? */
obj_t BGl_z62dynamiczd2envzf3z43zz__threadz00(obj_t BgL_envz00_3501, obj_t BgL_objz00_3502)
{
{ /* Llib/thread.scm 259 */
return 
BBOOL(
BGl_dynamiczd2envzf3z21zz__threadz00(BgL_objz00_3502));} 

}



/* current-dynamic-env */
BGL_EXPORTED_DEF obj_t BGl_currentzd2dynamiczd2envz00zz__threadz00(void)
{
{ /* Llib/thread.scm 265 */
return 
BGL_CURRENT_DYNAMIC_ENV();} 

}



/* &current-dynamic-env */
obj_t BGl_z62currentzd2dynamiczd2envz62zz__threadz00(obj_t BgL_envz00_3503)
{
{ /* Llib/thread.scm 265 */
return 
BGl_currentzd2dynamiczd2envz00zz__threadz00();} 

}



/* current-thread-backend */
BGL_EXPORTED_DEF obj_t BGl_currentzd2threadzd2backendz00zz__threadz00(void)
{
{ /* Llib/thread.scm 284 */
return 
BGL_THREAD_BACKEND();} 

}



/* &current-thread-backend */
obj_t BGl_z62currentzd2threadzd2backendz62zz__threadz00(obj_t BgL_envz00_3504)
{
{ /* Llib/thread.scm 284 */
return 
BGl_currentzd2threadzd2backendz00zz__threadz00();} 

}



/* current-thread-backend-set! */
BGL_EXPORTED_DEF obj_t BGl_currentzd2threadzd2backendzd2setz12zc0zz__threadz00(BgL_threadzd2backendzd2_bglt BgL_tbz00_4)
{
{ /* Llib/thread.scm 290 */
{ /* Llib/thread.scm 291 */
 obj_t BgL_tmpz00_8926;
BgL_tmpz00_8926 = 
((obj_t)BgL_tbz00_4); 
BGL_THREAD_BACKEND_SET(BgL_tmpz00_8926); } BUNSPEC; 
return 
((obj_t)BgL_tbz00_4);} 

}



/* &current-thread-backend-set! */
obj_t BGl_z62currentzd2threadzd2backendzd2setz12za2zz__threadz00(obj_t BgL_envz00_3505, obj_t BgL_tbz00_3506)
{
{ /* Llib/thread.scm 290 */
{ /* Llib/thread.scm 291 */
 BgL_threadzd2backendzd2_bglt BgL_auxz00_8930;
if(
BGl_isazf3zf3zz__objectz00(BgL_tbz00_3506, BGl_threadzd2backendzd2zz__threadz00))
{ /* Llib/thread.scm 291 */
BgL_auxz00_8930 = 
((BgL_threadzd2backendzd2_bglt)BgL_tbz00_3506)
; }  else 
{ 
 obj_t BgL_auxz00_8934;
BgL_auxz00_8934 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2484z00zz__threadz00, 
BINT(11215L), BGl_string2485z00zz__threadz00, BGl_string2486z00zz__threadz00, BgL_tbz00_3506); 
FAILURE(BgL_auxz00_8934,BFALSE,BFALSE);} 
return 
BGl_currentzd2threadzd2backendzd2setz12zc0zz__threadz00(BgL_auxz00_8930);} } 

}



/* default-thread-backend */
BGL_EXPORTED_DEF obj_t BGl_defaultzd2threadzd2backendz00zz__threadz00(void)
{
{ /* Llib/thread.scm 297 */
{ /* Llib/thread.scm 298 */
 obj_t BgL_pairz00_2231;
{ /* Llib/thread.scm 298 */
 obj_t BgL_aux2099z00_3898;
BgL_aux2099z00_3898 = BGl_za2threadzd2backendsza2zd2zz__threadz00; 
if(
NULLP(BgL_aux2099z00_3898))
{ 
 obj_t BgL_auxz00_8941;
BgL_auxz00_8941 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2484z00zz__threadz00, 
BINT(11494L), BGl_string2487z00zz__threadz00, BGl_string2488z00zz__threadz00, BgL_aux2099z00_3898); 
FAILURE(BgL_auxz00_8941,BFALSE,BFALSE);}  else 
{ /* Llib/thread.scm 298 */
BgL_pairz00_2231 = BgL_aux2099z00_3898; } } 
return 
CAR(BgL_pairz00_2231);} } 

}



/* &default-thread-backend */
obj_t BGl_z62defaultzd2threadzd2backendz62zz__threadz00(obj_t BgL_envz00_3507)
{
{ /* Llib/thread.scm 297 */
return 
BGl_defaultzd2threadzd2backendz00zz__threadz00();} 

}



/* default-thread-backend-set! */
BGL_EXPORTED_DEF obj_t BGl_defaultzd2threadzd2backendzd2setz12zc0zz__threadz00(BgL_threadzd2backendzd2_bglt BgL_tbz00_5)
{
{ /* Llib/thread.scm 303 */
BGl_za2threadzd2backendsza2zd2zz__threadz00 = 
bgl_remq_bang(
((obj_t)BgL_tbz00_5), BGl_za2threadzd2backendsza2zd2zz__threadz00); 
return ( 
BGl_za2threadzd2backendsza2zd2zz__threadz00 = 
MAKE_YOUNG_PAIR(
((obj_t)BgL_tbz00_5), BGl_za2threadzd2backendsza2zd2zz__threadz00), BUNSPEC) ;} 

}



/* &default-thread-backend-set! */
obj_t BGl_z62defaultzd2threadzd2backendzd2setz12za2zz__threadz00(obj_t BgL_envz00_3508, obj_t BgL_tbz00_3509)
{
{ /* Llib/thread.scm 303 */
{ /* Llib/thread.scm 304 */
 BgL_threadzd2backendzd2_bglt BgL_auxz00_8951;
if(
BGl_isazf3zf3zz__objectz00(BgL_tbz00_3509, BGl_threadzd2backendzd2zz__threadz00))
{ /* Llib/thread.scm 304 */
BgL_auxz00_8951 = 
((BgL_threadzd2backendzd2_bglt)BgL_tbz00_3509)
; }  else 
{ 
 obj_t BgL_auxz00_8955;
BgL_auxz00_8955 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2484z00zz__threadz00, 
BINT(11833L), BGl_string2489z00zz__threadz00, BGl_string2486z00zz__threadz00, BgL_tbz00_3509); 
FAILURE(BgL_auxz00_8955,BFALSE,BFALSE);} 
return 
BGl_defaultzd2threadzd2backendzd2setz12zc0zz__threadz00(BgL_auxz00_8951);} } 

}



/* get-thread-backend */
BGL_EXPORTED_DEF obj_t BGl_getzd2threadzd2backendz00zz__threadz00(obj_t BgL_namez00_6)
{
{ /* Llib/thread.scm 310 */
{ 
 obj_t BgL_tbsz00_1240;
BgL_tbsz00_1240 = BGl_za2threadzd2backendsza2zd2zz__threadz00; 
BgL_zc3z04anonymousza31331ze3z87_1241:
if(
PAIRP(BgL_tbsz00_1240))
{ /* Llib/thread.scm 313 */
 BgL_threadzd2backendzd2_bglt BgL_i1059z00_1243;
{ /* Llib/thread.scm 313 */
 obj_t BgL_aux2103z00_3904;
BgL_aux2103z00_3904 = 
CAR(BgL_tbsz00_1240); 
{ /* Llib/thread.scm 313 */
 bool_t BgL_test3373z00_8963;
{ /* Llib/thread.scm 313 */
 obj_t BgL_classz00_4580;
BgL_classz00_4580 = BGl_threadzd2backendzd2zz__threadz00; 
if(
BGL_OBJECTP(BgL_aux2103z00_3904))
{ /* Llib/thread.scm 313 */
 BgL_objectz00_bglt BgL_arg1953z00_4582; long BgL_arg1954z00_4583;
BgL_arg1953z00_4582 = 
(BgL_objectz00_bglt)(BgL_aux2103z00_3904); 
BgL_arg1954z00_4583 = 
BGL_CLASS_DEPTH(BgL_classz00_4580); 
if(
BGL_CONDEXPAND_ISA_ARCH64())
{ /* Llib/thread.scm 313 */
 long BgL_idxz00_4591;
BgL_idxz00_4591 = 
BGL_OBJECT_INHERITANCE_NUM(BgL_arg1953z00_4582); 
{ /* Llib/thread.scm 313 */
 obj_t BgL_arg1943z00_4592;
{ /* Llib/thread.scm 313 */
 long BgL_arg1944z00_4593;
BgL_arg1944z00_4593 = 
(BgL_idxz00_4591+BgL_arg1954z00_4583); 
BgL_arg1943z00_4592 = 
VECTOR_REF(BGl_za2inheritancesza2z00zz__objectz00,BgL_arg1944z00_4593); } 
BgL_test3373z00_8963 = 
(BgL_arg1943z00_4592==BgL_classz00_4580); } }  else 
{ /* Llib/thread.scm 313 */
 bool_t BgL_res2066z00_4598;
{ /* Llib/thread.scm 313 */
 obj_t BgL_oclassz00_4602;
{ /* Llib/thread.scm 313 */
 obj_t BgL_arg1959z00_4604; long BgL_arg1960z00_4605;
BgL_arg1959z00_4604 = 
(BGl_za2classesza2z00zz__objectz00); 
{ /* Llib/thread.scm 313 */
 long BgL_arg1961z00_4606;
BgL_arg1961z00_4606 = 
BGL_OBJECT_CLASS_NUM(BgL_arg1953z00_4582); 
BgL_arg1960z00_4605 = 
(BgL_arg1961z00_4606-OBJECT_TYPE); } 
BgL_oclassz00_4602 = 
VECTOR_REF(BgL_arg1959z00_4604,BgL_arg1960z00_4605); } 
{ /* Llib/thread.scm 313 */
 bool_t BgL__ortest_1149z00_4612;
BgL__ortest_1149z00_4612 = 
(BgL_classz00_4580==BgL_oclassz00_4602); 
if(BgL__ortest_1149z00_4612)
{ /* Llib/thread.scm 313 */
BgL_res2066z00_4598 = BgL__ortest_1149z00_4612; }  else 
{ /* Llib/thread.scm 313 */
 long BgL_odepthz00_4613;
{ /* Llib/thread.scm 313 */
 obj_t BgL_arg1947z00_4614;
BgL_arg1947z00_4614 = 
(BgL_oclassz00_4602); 
BgL_odepthz00_4613 = 
BGL_CLASS_DEPTH(BgL_arg1947z00_4614); } 
if(
(BgL_arg1954z00_4583<BgL_odepthz00_4613))
{ /* Llib/thread.scm 313 */
 obj_t BgL_arg1945z00_4618;
{ /* Llib/thread.scm 313 */
 obj_t BgL_arg1946z00_4619;
BgL_arg1946z00_4619 = 
(BgL_oclassz00_4602); 
BgL_arg1945z00_4618 = 
BGL_CLASS_ANCESTORS_REF(BgL_arg1946z00_4619, BgL_arg1954z00_4583); } 
BgL_res2066z00_4598 = 
(BgL_arg1945z00_4618==BgL_classz00_4580); }  else 
{ /* Llib/thread.scm 313 */
BgL_res2066z00_4598 = ((bool_t)0); } } } } 
BgL_test3373z00_8963 = BgL_res2066z00_4598; } }  else 
{ /* Llib/thread.scm 313 */
BgL_test3373z00_8963 = ((bool_t)0)
; } } 
if(BgL_test3373z00_8963)
{ /* Llib/thread.scm 313 */
BgL_i1059z00_1243 = 
((BgL_threadzd2backendzd2_bglt)BgL_aux2103z00_3904); }  else 
{ 
 obj_t BgL_auxz00_8988;
BgL_auxz00_8988 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2484z00zz__threadz00, 
BINT(12243L), BGl_string2490z00zz__threadz00, BGl_string2486z00zz__threadz00, BgL_aux2103z00_3904); 
FAILURE(BgL_auxz00_8988,BFALSE,BFALSE);} } } 
{ /* Llib/thread.scm 314 */
 bool_t BgL_test3378z00_8992;
{ /* Llib/thread.scm 314 */
 obj_t BgL_arg1336z00_1247;
BgL_arg1336z00_1247 = 
(((BgL_threadzd2backendzd2_bglt)COBJECT(BgL_i1059z00_1243))->BgL_namez00); 
{ /* Llib/thread.scm 314 */
 long BgL_l1z00_2235;
BgL_l1z00_2235 = 
STRING_LENGTH(BgL_arg1336z00_1247); 
if(
(BgL_l1z00_2235==
STRING_LENGTH(BgL_namez00_6)))
{ /* Llib/thread.scm 314 */
 int BgL_arg1655z00_2238;
{ /* Llib/thread.scm 314 */
 char * BgL_auxz00_9000; char * BgL_tmpz00_8998;
BgL_auxz00_9000 = 
BSTRING_TO_STRING(BgL_namez00_6); 
BgL_tmpz00_8998 = 
BSTRING_TO_STRING(BgL_arg1336z00_1247); 
BgL_arg1655z00_2238 = 
memcmp(BgL_tmpz00_8998, BgL_auxz00_9000, BgL_l1z00_2235); } 
BgL_test3378z00_8992 = 
(
(long)(BgL_arg1655z00_2238)==0L); }  else 
{ /* Llib/thread.scm 314 */
BgL_test3378z00_8992 = ((bool_t)0)
; } } } 
if(BgL_test3378z00_8992)
{ /* Llib/thread.scm 314 */
return 
CAR(BgL_tbsz00_1240);}  else 
{ 
 obj_t BgL_tbsz00_9006;
BgL_tbsz00_9006 = 
CDR(BgL_tbsz00_1240); 
BgL_tbsz00_1240 = BgL_tbsz00_9006; 
goto BgL_zc3z04anonymousza31331ze3z87_1241;} } }  else 
{ /* Llib/thread.scm 312 */
return BFALSE;} } } 

}



/* &get-thread-backend */
obj_t BGl_z62getzd2threadzd2backendz62zz__threadz00(obj_t BgL_envz00_3510, obj_t BgL_namez00_3511)
{
{ /* Llib/thread.scm 310 */
{ /* Llib/thread.scm 312 */
 obj_t BgL_auxz00_9008;
if(
STRINGP(BgL_namez00_3511))
{ /* Llib/thread.scm 312 */
BgL_auxz00_9008 = BgL_namez00_3511
; }  else 
{ 
 obj_t BgL_auxz00_9011;
BgL_auxz00_9011 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2484z00zz__threadz00, 
BINT(12194L), BGl_string2491z00zz__threadz00, BGl_string2492z00zz__threadz00, BgL_namez00_3511); 
FAILURE(BgL_auxz00_9011,BFALSE,BFALSE);} 
return 
BGl_getzd2threadzd2backendz00zz__threadz00(BgL_auxz00_9008);} } 

}



/* _make-thread */
obj_t BGl__makezd2threadzd2zz__threadz00(obj_t BgL_env1221z00_47, obj_t BgL_opt1220z00_46)
{
{ /* Llib/thread.scm 445 */
{ /* Llib/thread.scm 445 */
 obj_t BgL_g1222z00_4620;
{ 
 obj_t BgL_auxz00_9016;
if(
VECTORP(BgL_opt1220z00_46))
{ /* Llib/thread.scm 445 */
BgL_auxz00_9016 = BgL_opt1220z00_46
; }  else 
{ 
 obj_t BgL_auxz00_9019;
BgL_auxz00_9019 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2484z00zz__threadz00, 
BINT(19158L), BGl_string2493z00zz__threadz00, BGl_string2494z00zz__threadz00, BgL_opt1220z00_46); 
FAILURE(BgL_auxz00_9019,BFALSE,BFALSE);} 
BgL_g1222z00_4620 = 
VECTOR_REF(BgL_auxz00_9016,0L); } 
{ 

{ /* Llib/thread.scm 445 */
 long BgL_aux1224z00_4623;
{ 
 obj_t BgL_auxz00_9024;
if(
VECTORP(BgL_opt1220z00_46))
{ /* Llib/thread.scm 445 */
BgL_auxz00_9024 = BgL_opt1220z00_46
; }  else 
{ 
 obj_t BgL_auxz00_9027;
BgL_auxz00_9027 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2484z00zz__threadz00, 
BINT(19158L), BGl_string2493z00zz__threadz00, BGl_string2494z00zz__threadz00, BgL_opt1220z00_46); 
FAILURE(BgL_auxz00_9027,BFALSE,BFALSE);} 
BgL_aux1224z00_4623 = 
VECTOR_LENGTH(BgL_auxz00_9024); } 
switch( BgL_aux1224z00_4623) { case 1L : 

{ /* Llib/thread.scm 445 */
 obj_t BgL_namez00_4624;
BgL_namez00_4624 = 
BGl_gensymz00zz__r4_symbols_6_4z00(BGl_symbol2499z00zz__threadz00); 
{ /* Llib/thread.scm 445 */

{ /* Llib/thread.scm 445 */
 obj_t BgL_bodyz00_4625;
if(
PROCEDUREP(BgL_g1222z00_4620))
{ /* Llib/thread.scm 445 */
BgL_bodyz00_4625 = BgL_g1222z00_4620; }  else 
{ 
 obj_t BgL_auxz00_9035;
BgL_auxz00_9035 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2484z00zz__threadz00, 
BINT(19158L), BGl_string2493z00zz__threadz00, BGl_string2501z00zz__threadz00, BgL_g1222z00_4620); 
FAILURE(BgL_auxz00_9035,BFALSE,BFALSE);} 
{ /* Llib/thread.scm 446 */
 obj_t BgL_arg1338z00_4626;
BgL_arg1338z00_4626 = 
BGl_defaultzd2threadzd2backendz00zz__threadz00(); 
{ 
 BgL_threadz00_bglt BgL_auxz00_9040;
{ /* Llib/thread.scm 446 */
 BgL_threadzd2backendzd2_bglt BgL_auxz00_9041;
if(
BGl_isazf3zf3zz__objectz00(BgL_arg1338z00_4626, BGl_threadzd2backendzd2zz__threadz00))
{ /* Llib/thread.scm 446 */
BgL_auxz00_9041 = 
((BgL_threadzd2backendzd2_bglt)BgL_arg1338z00_4626)
; }  else 
{ 
 obj_t BgL_auxz00_9045;
BgL_auxz00_9045 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2484z00zz__threadz00, 
BINT(19269L), BGl_string2493z00zz__threadz00, BGl_string2486z00zz__threadz00, BgL_arg1338z00_4626); 
FAILURE(BgL_auxz00_9045,BFALSE,BFALSE);} 
BgL_auxz00_9040 = 
BGl_tbzd2makezd2threadz00zz__threadz00(BgL_auxz00_9041, BgL_bodyz00_4625, BgL_namez00_4624); } 
return 
((obj_t)BgL_auxz00_9040);} } } } } break;case 2L : 

{ /* Llib/thread.scm 445 */
 obj_t BgL_namez00_4627;
{ 
 obj_t BgL_auxz00_9051;
if(
VECTORP(BgL_opt1220z00_46))
{ /* Llib/thread.scm 445 */
BgL_auxz00_9051 = BgL_opt1220z00_46
; }  else 
{ 
 obj_t BgL_auxz00_9054;
BgL_auxz00_9054 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2484z00zz__threadz00, 
BINT(19158L), BGl_string2493z00zz__threadz00, BGl_string2494z00zz__threadz00, BgL_opt1220z00_46); 
FAILURE(BgL_auxz00_9054,BFALSE,BFALSE);} 
BgL_namez00_4627 = 
VECTOR_REF(BgL_auxz00_9051,1L); } 
{ /* Llib/thread.scm 445 */

{ /* Llib/thread.scm 445 */
 obj_t BgL_bodyz00_4628;
if(
PROCEDUREP(BgL_g1222z00_4620))
{ /* Llib/thread.scm 445 */
BgL_bodyz00_4628 = BgL_g1222z00_4620; }  else 
{ 
 obj_t BgL_auxz00_9061;
BgL_auxz00_9061 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2484z00zz__threadz00, 
BINT(19158L), BGl_string2493z00zz__threadz00, BGl_string2501z00zz__threadz00, BgL_g1222z00_4620); 
FAILURE(BgL_auxz00_9061,BFALSE,BFALSE);} 
{ /* Llib/thread.scm 446 */
 obj_t BgL_arg1338z00_4629;
BgL_arg1338z00_4629 = 
BGl_defaultzd2threadzd2backendz00zz__threadz00(); 
{ 
 BgL_threadz00_bglt BgL_auxz00_9066;
{ /* Llib/thread.scm 446 */
 BgL_threadzd2backendzd2_bglt BgL_auxz00_9067;
if(
BGl_isazf3zf3zz__objectz00(BgL_arg1338z00_4629, BGl_threadzd2backendzd2zz__threadz00))
{ /* Llib/thread.scm 446 */
BgL_auxz00_9067 = 
((BgL_threadzd2backendzd2_bglt)BgL_arg1338z00_4629)
; }  else 
{ 
 obj_t BgL_auxz00_9071;
BgL_auxz00_9071 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2484z00zz__threadz00, 
BINT(19269L), BGl_string2493z00zz__threadz00, BGl_string2486z00zz__threadz00, BgL_arg1338z00_4629); 
FAILURE(BgL_auxz00_9071,BFALSE,BFALSE);} 
BgL_auxz00_9066 = 
BGl_tbzd2makezd2threadz00zz__threadz00(BgL_auxz00_9067, BgL_bodyz00_4628, BgL_namez00_4627); } 
return 
((obj_t)BgL_auxz00_9066);} } } } } break;
default: 
{ /* Llib/thread.scm 445 */
 long BgL_arg1337z00_4622;
{ 
 obj_t BgL_auxz00_9077;
if(
VECTORP(BgL_opt1220z00_46))
{ /* Llib/thread.scm 445 */
BgL_auxz00_9077 = BgL_opt1220z00_46
; }  else 
{ 
 obj_t BgL_auxz00_9080;
BgL_auxz00_9080 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2484z00zz__threadz00, 
BINT(19158L), BGl_string2495z00zz__threadz00, BGl_string2494z00zz__threadz00, BgL_opt1220z00_46); 
FAILURE(BgL_auxz00_9080,BFALSE,BFALSE);} 
BgL_arg1337z00_4622 = 
VECTOR_LENGTH(BgL_auxz00_9077); } 
return 
BGl_errorz00zz__errorz00(BGl_symbol2496z00zz__threadz00, BGl_string2498z00zz__threadz00, 
BINT(BgL_arg1337z00_4622));} } } } } } 

}



/* make-thread */
BGL_EXPORTED_DEF BgL_threadz00_bglt BGl_makezd2threadzd2zz__threadz00(obj_t BgL_bodyz00_44, obj_t BgL_namez00_45)
{
{ /* Llib/thread.scm 445 */
{ /* Llib/thread.scm 446 */
 obj_t BgL_arg1338z00_4630;
BgL_arg1338z00_4630 = 
BGl_defaultzd2threadzd2backendz00zz__threadz00(); 
{ /* Llib/thread.scm 446 */
 BgL_threadzd2backendzd2_bglt BgL_auxz00_9089;
{ /* Llib/thread.scm 446 */
 bool_t BgL_test3389z00_9090;
{ /* Llib/thread.scm 446 */
 obj_t BgL_classz00_4631;
BgL_classz00_4631 = BGl_threadzd2backendzd2zz__threadz00; 
if(
BGL_OBJECTP(BgL_arg1338z00_4630))
{ /* Llib/thread.scm 446 */
 BgL_objectz00_bglt BgL_arg1953z00_4633; long BgL_arg1954z00_4634;
BgL_arg1953z00_4633 = 
(BgL_objectz00_bglt)(BgL_arg1338z00_4630); 
BgL_arg1954z00_4634 = 
BGL_CLASS_DEPTH(BgL_classz00_4631); 
if(
BGL_CONDEXPAND_ISA_ARCH64())
{ /* Llib/thread.scm 446 */
 long BgL_idxz00_4642;
BgL_idxz00_4642 = 
BGL_OBJECT_INHERITANCE_NUM(BgL_arg1953z00_4633); 
{ /* Llib/thread.scm 446 */
 obj_t BgL_arg1943z00_4643;
{ /* Llib/thread.scm 446 */
 long BgL_arg1944z00_4644;
BgL_arg1944z00_4644 = 
(BgL_idxz00_4642+BgL_arg1954z00_4634); 
BgL_arg1943z00_4643 = 
VECTOR_REF(BGl_za2inheritancesza2z00zz__objectz00,BgL_arg1944z00_4644); } 
BgL_test3389z00_9090 = 
(BgL_arg1943z00_4643==BgL_classz00_4631); } }  else 
{ /* Llib/thread.scm 446 */
 bool_t BgL_res2066z00_4649;
{ /* Llib/thread.scm 446 */
 obj_t BgL_oclassz00_4653;
{ /* Llib/thread.scm 446 */
 obj_t BgL_arg1959z00_4655; long BgL_arg1960z00_4656;
BgL_arg1959z00_4655 = 
(BGl_za2classesza2z00zz__objectz00); 
{ /* Llib/thread.scm 446 */
 long BgL_arg1961z00_4657;
BgL_arg1961z00_4657 = 
BGL_OBJECT_CLASS_NUM(BgL_arg1953z00_4633); 
BgL_arg1960z00_4656 = 
(BgL_arg1961z00_4657-OBJECT_TYPE); } 
BgL_oclassz00_4653 = 
VECTOR_REF(BgL_arg1959z00_4655,BgL_arg1960z00_4656); } 
{ /* Llib/thread.scm 446 */
 bool_t BgL__ortest_1149z00_4663;
BgL__ortest_1149z00_4663 = 
(BgL_classz00_4631==BgL_oclassz00_4653); 
if(BgL__ortest_1149z00_4663)
{ /* Llib/thread.scm 446 */
BgL_res2066z00_4649 = BgL__ortest_1149z00_4663; }  else 
{ /* Llib/thread.scm 446 */
 long BgL_odepthz00_4664;
{ /* Llib/thread.scm 446 */
 obj_t BgL_arg1947z00_4665;
BgL_arg1947z00_4665 = 
(BgL_oclassz00_4653); 
BgL_odepthz00_4664 = 
BGL_CLASS_DEPTH(BgL_arg1947z00_4665); } 
if(
(BgL_arg1954z00_4634<BgL_odepthz00_4664))
{ /* Llib/thread.scm 446 */
 obj_t BgL_arg1945z00_4669;
{ /* Llib/thread.scm 446 */
 obj_t BgL_arg1946z00_4670;
BgL_arg1946z00_4670 = 
(BgL_oclassz00_4653); 
BgL_arg1945z00_4669 = 
BGL_CLASS_ANCESTORS_REF(BgL_arg1946z00_4670, BgL_arg1954z00_4634); } 
BgL_res2066z00_4649 = 
(BgL_arg1945z00_4669==BgL_classz00_4631); }  else 
{ /* Llib/thread.scm 446 */
BgL_res2066z00_4649 = ((bool_t)0); } } } } 
BgL_test3389z00_9090 = BgL_res2066z00_4649; } }  else 
{ /* Llib/thread.scm 446 */
BgL_test3389z00_9090 = ((bool_t)0)
; } } 
if(BgL_test3389z00_9090)
{ /* Llib/thread.scm 446 */
BgL_auxz00_9089 = 
((BgL_threadzd2backendzd2_bglt)BgL_arg1338z00_4630)
; }  else 
{ 
 obj_t BgL_auxz00_9115;
BgL_auxz00_9115 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2484z00zz__threadz00, 
BINT(19269L), BGl_string2497z00zz__threadz00, BGl_string2486z00zz__threadz00, BgL_arg1338z00_4630); 
FAILURE(BgL_auxz00_9115,BFALSE,BFALSE);} } 
return 
BGl_tbzd2makezd2threadz00zz__threadz00(BgL_auxz00_9089, BgL_bodyz00_44, BgL_namez00_45);} } } 

}



/* %current-thread */
obj_t BGl_z52currentzd2threadz80zz__threadz00(void)
{
{ /* Llib/thread.scm 457 */
{ /* Llib/thread.scm 458 */
 obj_t BgL_tbz00_1256;
BgL_tbz00_1256 = 
BGL_THREAD_BACKEND(); 
{ /* Llib/thread.scm 459 */
 bool_t BgL_test3394z00_9121;
{ /* Llib/thread.scm 459 */
 obj_t BgL_classz00_2257;
BgL_classz00_2257 = BGl_threadzd2backendzd2zz__threadz00; 
if(
BGL_OBJECTP(BgL_tbz00_1256))
{ /* Llib/thread.scm 459 */
 BgL_objectz00_bglt BgL_arg1950z00_2259;
BgL_arg1950z00_2259 = 
(BgL_objectz00_bglt)(BgL_tbz00_1256); 
if(
BGL_CONDEXPAND_ISA_ARCH64())
{ /* Llib/thread.scm 459 */
 long BgL_idxz00_2265;
BgL_idxz00_2265 = 
BGL_OBJECT_INHERITANCE_NUM(BgL_arg1950z00_2259); 
{ /* Llib/thread.scm 459 */
 obj_t BgL_arg1943z00_2266;
{ /* Llib/thread.scm 459 */
 long BgL_arg1944z00_2267;
BgL_arg1944z00_2267 = 
(BgL_idxz00_2265+1L); 
{ /* Llib/thread.scm 459 */
 obj_t BgL_vectorz00_2269;
{ /* Llib/thread.scm 459 */
 obj_t BgL_aux2125z00_3934;
BgL_aux2125z00_3934 = BGl_za2inheritancesza2z00zz__objectz00; 
if(
VECTORP(BgL_aux2125z00_3934))
{ /* Llib/thread.scm 459 */
BgL_vectorz00_2269 = BgL_aux2125z00_3934; }  else 
{ 
 obj_t BgL_auxz00_9131;
BgL_auxz00_9131 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2484z00zz__threadz00, 
BINT(19862L), BGl_string2502z00zz__threadz00, BGl_string2494z00zz__threadz00, BgL_aux2125z00_3934); 
FAILURE(BgL_auxz00_9131,BFALSE,BFALSE);} } 
{ /* Llib/thread.scm 459 */
 bool_t BgL_test3398z00_9135;
{ /* Llib/thread.scm 459 */
 long BgL_tmpz00_9136;
BgL_tmpz00_9136 = 
VECTOR_LENGTH(BgL_vectorz00_2269); 
BgL_test3398z00_9135 = 
BOUND_CHECK(BgL_arg1944z00_2267, BgL_tmpz00_9136); } 
if(BgL_test3398z00_9135)
{ /* Llib/thread.scm 459 */
BgL_arg1943z00_2266 = 
VECTOR_REF(BgL_vectorz00_2269,BgL_arg1944z00_2267); }  else 
{ 
 obj_t BgL_auxz00_9140;
BgL_auxz00_9140 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string2484z00zz__threadz00, 
BINT(19862L), BGl_string2503z00zz__threadz00, BgL_vectorz00_2269, 
(int)(
VECTOR_LENGTH(BgL_vectorz00_2269)), 
(int)(BgL_arg1944z00_2267)); 
FAILURE(BgL_auxz00_9140,BFALSE,BFALSE);} } } } 
BgL_test3394z00_9121 = 
(BgL_arg1943z00_2266==BgL_classz00_2257); } }  else 
{ /* Llib/thread.scm 459 */
 bool_t BgL_res1966z00_2290;
{ /* Llib/thread.scm 459 */
 obj_t BgL_oclassz00_2273;
{ /* Llib/thread.scm 459 */
 obj_t BgL_arg1959z00_2281; long BgL_arg1960z00_2282;
BgL_arg1959z00_2281 = 
(BGl_za2classesza2z00zz__objectz00); 
{ /* Llib/thread.scm 459 */
 long BgL_arg1961z00_2283;
BgL_arg1961z00_2283 = 
BGL_OBJECT_CLASS_NUM(BgL_arg1950z00_2259); 
BgL_arg1960z00_2282 = 
(BgL_arg1961z00_2283-OBJECT_TYPE); } 
BgL_oclassz00_2273 = 
VECTOR_REF(BgL_arg1959z00_2281,BgL_arg1960z00_2282); } 
{ /* Llib/thread.scm 459 */
 bool_t BgL__ortest_1149z00_2274;
BgL__ortest_1149z00_2274 = 
(BgL_classz00_2257==BgL_oclassz00_2273); 
if(BgL__ortest_1149z00_2274)
{ /* Llib/thread.scm 459 */
BgL_res1966z00_2290 = BgL__ortest_1149z00_2274; }  else 
{ /* Llib/thread.scm 459 */
 long BgL_odepthz00_2275;
{ /* Llib/thread.scm 459 */
 obj_t BgL_arg1947z00_2276;
BgL_arg1947z00_2276 = 
(BgL_oclassz00_2273); 
BgL_odepthz00_2275 = 
BGL_CLASS_DEPTH(BgL_arg1947z00_2276); } 
if(
(1L<BgL_odepthz00_2275))
{ /* Llib/thread.scm 459 */
 obj_t BgL_arg1945z00_2278;
{ /* Llib/thread.scm 459 */
 obj_t BgL_arg1946z00_2279;
BgL_arg1946z00_2279 = 
(BgL_oclassz00_2273); 
BgL_arg1945z00_2278 = 
BGL_CLASS_ANCESTORS_REF(BgL_arg1946z00_2279, 1L); } 
BgL_res1966z00_2290 = 
(BgL_arg1945z00_2278==BgL_classz00_2257); }  else 
{ /* Llib/thread.scm 459 */
BgL_res1966z00_2290 = ((bool_t)0); } } } } 
BgL_test3394z00_9121 = BgL_res1966z00_2290; } }  else 
{ /* Llib/thread.scm 459 */
BgL_test3394z00_9121 = ((bool_t)0)
; } } 
if(BgL_test3394z00_9121)
{ /* Llib/thread.scm 460 */
 BgL_threadzd2backendzd2_bglt BgL_auxz00_9161;
{ /* Llib/thread.scm 460 */
 bool_t BgL_test3401z00_9162;
{ /* Llib/thread.scm 460 */
 obj_t BgL_classz00_4671;
BgL_classz00_4671 = BGl_threadzd2backendzd2zz__threadz00; 
if(
BGL_OBJECTP(BgL_tbz00_1256))
{ /* Llib/thread.scm 460 */
 BgL_objectz00_bglt BgL_arg1953z00_4673; long BgL_arg1954z00_4674;
BgL_arg1953z00_4673 = 
(BgL_objectz00_bglt)(BgL_tbz00_1256); 
BgL_arg1954z00_4674 = 
BGL_CLASS_DEPTH(BgL_classz00_4671); 
if(
BGL_CONDEXPAND_ISA_ARCH64())
{ /* Llib/thread.scm 460 */
 long BgL_idxz00_4682;
BgL_idxz00_4682 = 
BGL_OBJECT_INHERITANCE_NUM(BgL_arg1953z00_4673); 
{ /* Llib/thread.scm 460 */
 obj_t BgL_arg1943z00_4683;
{ /* Llib/thread.scm 460 */
 long BgL_arg1944z00_4684;
BgL_arg1944z00_4684 = 
(BgL_idxz00_4682+BgL_arg1954z00_4674); 
BgL_arg1943z00_4683 = 
VECTOR_REF(BGl_za2inheritancesza2z00zz__objectz00,BgL_arg1944z00_4684); } 
BgL_test3401z00_9162 = 
(BgL_arg1943z00_4683==BgL_classz00_4671); } }  else 
{ /* Llib/thread.scm 460 */
 bool_t BgL_res2066z00_4689;
{ /* Llib/thread.scm 460 */
 obj_t BgL_oclassz00_4693;
{ /* Llib/thread.scm 460 */
 obj_t BgL_arg1959z00_4695; long BgL_arg1960z00_4696;
BgL_arg1959z00_4695 = 
(BGl_za2classesza2z00zz__objectz00); 
{ /* Llib/thread.scm 460 */
 long BgL_arg1961z00_4697;
BgL_arg1961z00_4697 = 
BGL_OBJECT_CLASS_NUM(BgL_arg1953z00_4673); 
BgL_arg1960z00_4696 = 
(BgL_arg1961z00_4697-OBJECT_TYPE); } 
BgL_oclassz00_4693 = 
VECTOR_REF(BgL_arg1959z00_4695,BgL_arg1960z00_4696); } 
{ /* Llib/thread.scm 460 */
 bool_t BgL__ortest_1149z00_4703;
BgL__ortest_1149z00_4703 = 
(BgL_classz00_4671==BgL_oclassz00_4693); 
if(BgL__ortest_1149z00_4703)
{ /* Llib/thread.scm 460 */
BgL_res2066z00_4689 = BgL__ortest_1149z00_4703; }  else 
{ /* Llib/thread.scm 460 */
 long BgL_odepthz00_4704;
{ /* Llib/thread.scm 460 */
 obj_t BgL_arg1947z00_4705;
BgL_arg1947z00_4705 = 
(BgL_oclassz00_4693); 
BgL_odepthz00_4704 = 
BGL_CLASS_DEPTH(BgL_arg1947z00_4705); } 
if(
(BgL_arg1954z00_4674<BgL_odepthz00_4704))
{ /* Llib/thread.scm 460 */
 obj_t BgL_arg1945z00_4709;
{ /* Llib/thread.scm 460 */
 obj_t BgL_arg1946z00_4710;
BgL_arg1946z00_4710 = 
(BgL_oclassz00_4693); 
BgL_arg1945z00_4709 = 
BGL_CLASS_ANCESTORS_REF(BgL_arg1946z00_4710, BgL_arg1954z00_4674); } 
BgL_res2066z00_4689 = 
(BgL_arg1945z00_4709==BgL_classz00_4671); }  else 
{ /* Llib/thread.scm 460 */
BgL_res2066z00_4689 = ((bool_t)0); } } } } 
BgL_test3401z00_9162 = BgL_res2066z00_4689; } }  else 
{ /* Llib/thread.scm 460 */
BgL_test3401z00_9162 = ((bool_t)0)
; } } 
if(BgL_test3401z00_9162)
{ /* Llib/thread.scm 460 */
BgL_auxz00_9161 = 
((BgL_threadzd2backendzd2_bglt)BgL_tbz00_1256)
; }  else 
{ 
 obj_t BgL_auxz00_9187;
BgL_auxz00_9187 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2484z00zz__threadz00, 
BINT(19909L), BGl_string2502z00zz__threadz00, BGl_string2486z00zz__threadz00, BgL_tbz00_1256); 
FAILURE(BgL_auxz00_9187,BFALSE,BFALSE);} } 
return 
BGl_tbzd2currentzd2threadz00zz__threadz00(BgL_auxz00_9161);}  else 
{ /* Llib/thread.scm 459 */
return BFALSE;} } } } 

}



/* current-thread */
BGL_EXPORTED_DEF obj_t BGl_currentzd2threadzd2zz__threadz00(void)
{
{ /* Llib/thread.scm 465 */
{ /* Llib/thread.scm 466 */
 obj_t BgL_thz00_1258;
BgL_thz00_1258 = 
BGl_z52currentzd2threadz80zz__threadz00(); 
{ /* Llib/thread.scm 467 */
 bool_t BgL_test3406z00_9193;
{ /* Llib/thread.scm 467 */
 obj_t BgL_classz00_2291;
BgL_classz00_2291 = BGl_threadz00zz__threadz00; 
if(
BGL_OBJECTP(BgL_thz00_1258))
{ /* Llib/thread.scm 467 */
 BgL_objectz00_bglt BgL_arg1950z00_2293;
BgL_arg1950z00_2293 = 
(BgL_objectz00_bglt)(BgL_thz00_1258); 
if(
BGL_CONDEXPAND_ISA_ARCH64())
{ /* Llib/thread.scm 467 */
 long BgL_idxz00_2299;
BgL_idxz00_2299 = 
BGL_OBJECT_INHERITANCE_NUM(BgL_arg1950z00_2293); 
{ /* Llib/thread.scm 467 */
 obj_t BgL_arg1943z00_2300;
{ /* Llib/thread.scm 467 */
 long BgL_arg1944z00_2301;
BgL_arg1944z00_2301 = 
(BgL_idxz00_2299+1L); 
{ /* Llib/thread.scm 467 */
 obj_t BgL_vectorz00_2303;
{ /* Llib/thread.scm 467 */
 obj_t BgL_aux2129z00_3940;
BgL_aux2129z00_3940 = BGl_za2inheritancesza2z00zz__objectz00; 
if(
VECTORP(BgL_aux2129z00_3940))
{ /* Llib/thread.scm 467 */
BgL_vectorz00_2303 = BgL_aux2129z00_3940; }  else 
{ 
 obj_t BgL_auxz00_9203;
BgL_auxz00_9203 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2484z00zz__threadz00, 
BINT(20209L), BGl_string2504z00zz__threadz00, BGl_string2494z00zz__threadz00, BgL_aux2129z00_3940); 
FAILURE(BgL_auxz00_9203,BFALSE,BFALSE);} } 
{ /* Llib/thread.scm 467 */
 bool_t BgL_test3410z00_9207;
{ /* Llib/thread.scm 467 */
 long BgL_tmpz00_9208;
BgL_tmpz00_9208 = 
VECTOR_LENGTH(BgL_vectorz00_2303); 
BgL_test3410z00_9207 = 
BOUND_CHECK(BgL_arg1944z00_2301, BgL_tmpz00_9208); } 
if(BgL_test3410z00_9207)
{ /* Llib/thread.scm 467 */
BgL_arg1943z00_2300 = 
VECTOR_REF(BgL_vectorz00_2303,BgL_arg1944z00_2301); }  else 
{ 
 obj_t BgL_auxz00_9212;
BgL_auxz00_9212 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string2484z00zz__threadz00, 
BINT(20209L), BGl_string2503z00zz__threadz00, BgL_vectorz00_2303, 
(int)(
VECTOR_LENGTH(BgL_vectorz00_2303)), 
(int)(BgL_arg1944z00_2301)); 
FAILURE(BgL_auxz00_9212,BFALSE,BFALSE);} } } } 
BgL_test3406z00_9193 = 
(BgL_arg1943z00_2300==BgL_classz00_2291); } }  else 
{ /* Llib/thread.scm 467 */
 bool_t BgL_res1967z00_2324;
{ /* Llib/thread.scm 467 */
 obj_t BgL_oclassz00_2307;
{ /* Llib/thread.scm 467 */
 obj_t BgL_arg1959z00_2315; long BgL_arg1960z00_2316;
BgL_arg1959z00_2315 = 
(BGl_za2classesza2z00zz__objectz00); 
{ /* Llib/thread.scm 467 */
 long BgL_arg1961z00_2317;
BgL_arg1961z00_2317 = 
BGL_OBJECT_CLASS_NUM(BgL_arg1950z00_2293); 
BgL_arg1960z00_2316 = 
(BgL_arg1961z00_2317-OBJECT_TYPE); } 
BgL_oclassz00_2307 = 
VECTOR_REF(BgL_arg1959z00_2315,BgL_arg1960z00_2316); } 
{ /* Llib/thread.scm 467 */
 bool_t BgL__ortest_1149z00_2308;
BgL__ortest_1149z00_2308 = 
(BgL_classz00_2291==BgL_oclassz00_2307); 
if(BgL__ortest_1149z00_2308)
{ /* Llib/thread.scm 467 */
BgL_res1967z00_2324 = BgL__ortest_1149z00_2308; }  else 
{ /* Llib/thread.scm 467 */
 long BgL_odepthz00_2309;
{ /* Llib/thread.scm 467 */
 obj_t BgL_arg1947z00_2310;
BgL_arg1947z00_2310 = 
(BgL_oclassz00_2307); 
BgL_odepthz00_2309 = 
BGL_CLASS_DEPTH(BgL_arg1947z00_2310); } 
if(
(1L<BgL_odepthz00_2309))
{ /* Llib/thread.scm 467 */
 obj_t BgL_arg1945z00_2312;
{ /* Llib/thread.scm 467 */
 obj_t BgL_arg1946z00_2313;
BgL_arg1946z00_2313 = 
(BgL_oclassz00_2307); 
BgL_arg1945z00_2312 = 
BGL_CLASS_ANCESTORS_REF(BgL_arg1946z00_2313, 1L); } 
BgL_res1967z00_2324 = 
(BgL_arg1945z00_2312==BgL_classz00_2291); }  else 
{ /* Llib/thread.scm 467 */
BgL_res1967z00_2324 = ((bool_t)0); } } } } 
BgL_test3406z00_9193 = BgL_res1967z00_2324; } }  else 
{ /* Llib/thread.scm 467 */
BgL_test3406z00_9193 = ((bool_t)0)
; } } 
if(BgL_test3406z00_9193)
{ /* Llib/thread.scm 468 */
 BgL_threadz00_bglt BgL_auxz00_9233;
{ /* Llib/thread.scm 468 */
 bool_t BgL_test3413z00_9234;
{ /* Llib/thread.scm 468 */
 obj_t BgL_classz00_4711;
BgL_classz00_4711 = BGl_threadz00zz__threadz00; 
if(
BGL_OBJECTP(BgL_thz00_1258))
{ /* Llib/thread.scm 468 */
 BgL_objectz00_bglt BgL_arg1953z00_4713; long BgL_arg1954z00_4714;
BgL_arg1953z00_4713 = 
(BgL_objectz00_bglt)(BgL_thz00_1258); 
BgL_arg1954z00_4714 = 
BGL_CLASS_DEPTH(BgL_classz00_4711); 
if(
BGL_CONDEXPAND_ISA_ARCH64())
{ /* Llib/thread.scm 468 */
 long BgL_idxz00_4722;
BgL_idxz00_4722 = 
BGL_OBJECT_INHERITANCE_NUM(BgL_arg1953z00_4713); 
{ /* Llib/thread.scm 468 */
 obj_t BgL_arg1943z00_4723;
{ /* Llib/thread.scm 468 */
 long BgL_arg1944z00_4724;
BgL_arg1944z00_4724 = 
(BgL_idxz00_4722+BgL_arg1954z00_4714); 
BgL_arg1943z00_4723 = 
VECTOR_REF(BGl_za2inheritancesza2z00zz__objectz00,BgL_arg1944z00_4724); } 
BgL_test3413z00_9234 = 
(BgL_arg1943z00_4723==BgL_classz00_4711); } }  else 
{ /* Llib/thread.scm 468 */
 bool_t BgL_res2066z00_4729;
{ /* Llib/thread.scm 468 */
 obj_t BgL_oclassz00_4733;
{ /* Llib/thread.scm 468 */
 obj_t BgL_arg1959z00_4735; long BgL_arg1960z00_4736;
BgL_arg1959z00_4735 = 
(BGl_za2classesza2z00zz__objectz00); 
{ /* Llib/thread.scm 468 */
 long BgL_arg1961z00_4737;
BgL_arg1961z00_4737 = 
BGL_OBJECT_CLASS_NUM(BgL_arg1953z00_4713); 
BgL_arg1960z00_4736 = 
(BgL_arg1961z00_4737-OBJECT_TYPE); } 
BgL_oclassz00_4733 = 
VECTOR_REF(BgL_arg1959z00_4735,BgL_arg1960z00_4736); } 
{ /* Llib/thread.scm 468 */
 bool_t BgL__ortest_1149z00_4743;
BgL__ortest_1149z00_4743 = 
(BgL_classz00_4711==BgL_oclassz00_4733); 
if(BgL__ortest_1149z00_4743)
{ /* Llib/thread.scm 468 */
BgL_res2066z00_4729 = BgL__ortest_1149z00_4743; }  else 
{ /* Llib/thread.scm 468 */
 long BgL_odepthz00_4744;
{ /* Llib/thread.scm 468 */
 obj_t BgL_arg1947z00_4745;
BgL_arg1947z00_4745 = 
(BgL_oclassz00_4733); 
BgL_odepthz00_4744 = 
BGL_CLASS_DEPTH(BgL_arg1947z00_4745); } 
if(
(BgL_arg1954z00_4714<BgL_odepthz00_4744))
{ /* Llib/thread.scm 468 */
 obj_t BgL_arg1945z00_4749;
{ /* Llib/thread.scm 468 */
 obj_t BgL_arg1946z00_4750;
BgL_arg1946z00_4750 = 
(BgL_oclassz00_4733); 
BgL_arg1945z00_4749 = 
BGL_CLASS_ANCESTORS_REF(BgL_arg1946z00_4750, BgL_arg1954z00_4714); } 
BgL_res2066z00_4729 = 
(BgL_arg1945z00_4749==BgL_classz00_4711); }  else 
{ /* Llib/thread.scm 468 */
BgL_res2066z00_4729 = ((bool_t)0); } } } } 
BgL_test3413z00_9234 = BgL_res2066z00_4729; } }  else 
{ /* Llib/thread.scm 468 */
BgL_test3413z00_9234 = ((bool_t)0)
; } } 
if(BgL_test3413z00_9234)
{ /* Llib/thread.scm 468 */
BgL_auxz00_9233 = 
((BgL_threadz00_bglt)BgL_thz00_1258)
; }  else 
{ 
 obj_t BgL_auxz00_9259;
BgL_auxz00_9259 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2484z00zz__threadz00, 
BINT(20250L), BGl_string2504z00zz__threadz00, BGl_string2500z00zz__threadz00, BgL_thz00_1258); 
FAILURE(BgL_auxz00_9259,BFALSE,BFALSE);} } 
return 
BGl_z52userzd2currentzd2threadz52zz__threadz00(BgL_auxz00_9233);}  else 
{ /* Llib/thread.scm 467 */
return BFALSE;} } } } 

}



/* &current-thread */
obj_t BGl_z62currentzd2threadzb0zz__threadz00(obj_t BgL_envz00_3512)
{
{ /* Llib/thread.scm 465 */
return 
BGl_currentzd2threadzd2zz__threadz00();} 

}



/* thread-sleep! */
BGL_EXPORTED_DEF obj_t BGl_threadzd2sleepz12zc0zz__threadz00(obj_t BgL_objz00_51)
{
{ /* Llib/thread.scm 494 */
{ /* Llib/thread.scm 495 */
 obj_t BgL_arg1341z00_4751;
BgL_arg1341z00_4751 = 
BGl_currentzd2threadzd2zz__threadz00(); 
{ /* Llib/thread.scm 495 */
 BgL_threadz00_bglt BgL_auxz00_9266;
{ /* Llib/thread.scm 495 */
 bool_t BgL_test3418z00_9267;
{ /* Llib/thread.scm 495 */
 obj_t BgL_classz00_4752;
BgL_classz00_4752 = BGl_threadz00zz__threadz00; 
if(
BGL_OBJECTP(BgL_arg1341z00_4751))
{ /* Llib/thread.scm 495 */
 BgL_objectz00_bglt BgL_arg1953z00_4754; long BgL_arg1954z00_4755;
BgL_arg1953z00_4754 = 
(BgL_objectz00_bglt)(BgL_arg1341z00_4751); 
BgL_arg1954z00_4755 = 
BGL_CLASS_DEPTH(BgL_classz00_4752); 
if(
BGL_CONDEXPAND_ISA_ARCH64())
{ /* Llib/thread.scm 495 */
 long BgL_idxz00_4763;
BgL_idxz00_4763 = 
BGL_OBJECT_INHERITANCE_NUM(BgL_arg1953z00_4754); 
{ /* Llib/thread.scm 495 */
 obj_t BgL_arg1943z00_4764;
{ /* Llib/thread.scm 495 */
 long BgL_arg1944z00_4765;
BgL_arg1944z00_4765 = 
(BgL_idxz00_4763+BgL_arg1954z00_4755); 
BgL_arg1943z00_4764 = 
VECTOR_REF(BGl_za2inheritancesza2z00zz__objectz00,BgL_arg1944z00_4765); } 
BgL_test3418z00_9267 = 
(BgL_arg1943z00_4764==BgL_classz00_4752); } }  else 
{ /* Llib/thread.scm 495 */
 bool_t BgL_res2066z00_4770;
{ /* Llib/thread.scm 495 */
 obj_t BgL_oclassz00_4774;
{ /* Llib/thread.scm 495 */
 obj_t BgL_arg1959z00_4776; long BgL_arg1960z00_4777;
BgL_arg1959z00_4776 = 
(BGl_za2classesza2z00zz__objectz00); 
{ /* Llib/thread.scm 495 */
 long BgL_arg1961z00_4778;
BgL_arg1961z00_4778 = 
BGL_OBJECT_CLASS_NUM(BgL_arg1953z00_4754); 
BgL_arg1960z00_4777 = 
(BgL_arg1961z00_4778-OBJECT_TYPE); } 
BgL_oclassz00_4774 = 
VECTOR_REF(BgL_arg1959z00_4776,BgL_arg1960z00_4777); } 
{ /* Llib/thread.scm 495 */
 bool_t BgL__ortest_1149z00_4784;
BgL__ortest_1149z00_4784 = 
(BgL_classz00_4752==BgL_oclassz00_4774); 
if(BgL__ortest_1149z00_4784)
{ /* Llib/thread.scm 495 */
BgL_res2066z00_4770 = BgL__ortest_1149z00_4784; }  else 
{ /* Llib/thread.scm 495 */
 long BgL_odepthz00_4785;
{ /* Llib/thread.scm 495 */
 obj_t BgL_arg1947z00_4786;
BgL_arg1947z00_4786 = 
(BgL_oclassz00_4774); 
BgL_odepthz00_4785 = 
BGL_CLASS_DEPTH(BgL_arg1947z00_4786); } 
if(
(BgL_arg1954z00_4755<BgL_odepthz00_4785))
{ /* Llib/thread.scm 495 */
 obj_t BgL_arg1945z00_4790;
{ /* Llib/thread.scm 495 */
 obj_t BgL_arg1946z00_4791;
BgL_arg1946z00_4791 = 
(BgL_oclassz00_4774); 
BgL_arg1945z00_4790 = 
BGL_CLASS_ANCESTORS_REF(BgL_arg1946z00_4791, BgL_arg1954z00_4755); } 
BgL_res2066z00_4770 = 
(BgL_arg1945z00_4790==BgL_classz00_4752); }  else 
{ /* Llib/thread.scm 495 */
BgL_res2066z00_4770 = ((bool_t)0); } } } } 
BgL_test3418z00_9267 = BgL_res2066z00_4770; } }  else 
{ /* Llib/thread.scm 495 */
BgL_test3418z00_9267 = ((bool_t)0)
; } } 
if(BgL_test3418z00_9267)
{ /* Llib/thread.scm 495 */
BgL_auxz00_9266 = 
((BgL_threadz00_bglt)BgL_arg1341z00_4751)
; }  else 
{ 
 obj_t BgL_auxz00_9292;
BgL_auxz00_9292 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2484z00zz__threadz00, 
BINT(21345L), BGl_string2505z00zz__threadz00, BGl_string2500z00zz__threadz00, BgL_arg1341z00_4751); 
FAILURE(BgL_auxz00_9292,BFALSE,BFALSE);} } 
return 
BGl_z52userzd2threadzd2sleepz12z40zz__threadz00(BgL_auxz00_9266, BgL_objz00_51);} } } 

}



/* &thread-sleep! */
obj_t BGl_z62threadzd2sleepz12za2zz__threadz00(obj_t BgL_envz00_3513, obj_t BgL_objz00_3514)
{
{ /* Llib/thread.scm 494 */
return 
BGl_threadzd2sleepz12zc0zz__threadz00(BgL_objz00_3514);} 

}



/* thread-yield! */
BGL_EXPORTED_DEF obj_t BGl_threadzd2yieldz12zc0zz__threadz00(void)
{
{ /* Llib/thread.scm 506 */
{ /* Llib/thread.scm 507 */
 obj_t BgL_arg1342z00_4792;
BgL_arg1342z00_4792 = 
BGl_currentzd2threadzd2zz__threadz00(); 
{ /* Llib/thread.scm 507 */
 BgL_threadz00_bglt BgL_auxz00_9299;
{ /* Llib/thread.scm 507 */
 bool_t BgL_test3423z00_9300;
{ /* Llib/thread.scm 507 */
 obj_t BgL_classz00_4793;
BgL_classz00_4793 = BGl_threadz00zz__threadz00; 
if(
BGL_OBJECTP(BgL_arg1342z00_4792))
{ /* Llib/thread.scm 507 */
 BgL_objectz00_bglt BgL_arg1953z00_4795; long BgL_arg1954z00_4796;
BgL_arg1953z00_4795 = 
(BgL_objectz00_bglt)(BgL_arg1342z00_4792); 
BgL_arg1954z00_4796 = 
BGL_CLASS_DEPTH(BgL_classz00_4793); 
if(
BGL_CONDEXPAND_ISA_ARCH64())
{ /* Llib/thread.scm 507 */
 long BgL_idxz00_4804;
BgL_idxz00_4804 = 
BGL_OBJECT_INHERITANCE_NUM(BgL_arg1953z00_4795); 
{ /* Llib/thread.scm 507 */
 obj_t BgL_arg1943z00_4805;
{ /* Llib/thread.scm 507 */
 long BgL_arg1944z00_4806;
BgL_arg1944z00_4806 = 
(BgL_idxz00_4804+BgL_arg1954z00_4796); 
BgL_arg1943z00_4805 = 
VECTOR_REF(BGl_za2inheritancesza2z00zz__objectz00,BgL_arg1944z00_4806); } 
BgL_test3423z00_9300 = 
(BgL_arg1943z00_4805==BgL_classz00_4793); } }  else 
{ /* Llib/thread.scm 507 */
 bool_t BgL_res2066z00_4811;
{ /* Llib/thread.scm 507 */
 obj_t BgL_oclassz00_4815;
{ /* Llib/thread.scm 507 */
 obj_t BgL_arg1959z00_4817; long BgL_arg1960z00_4818;
BgL_arg1959z00_4817 = 
(BGl_za2classesza2z00zz__objectz00); 
{ /* Llib/thread.scm 507 */
 long BgL_arg1961z00_4819;
BgL_arg1961z00_4819 = 
BGL_OBJECT_CLASS_NUM(BgL_arg1953z00_4795); 
BgL_arg1960z00_4818 = 
(BgL_arg1961z00_4819-OBJECT_TYPE); } 
BgL_oclassz00_4815 = 
VECTOR_REF(BgL_arg1959z00_4817,BgL_arg1960z00_4818); } 
{ /* Llib/thread.scm 507 */
 bool_t BgL__ortest_1149z00_4825;
BgL__ortest_1149z00_4825 = 
(BgL_classz00_4793==BgL_oclassz00_4815); 
if(BgL__ortest_1149z00_4825)
{ /* Llib/thread.scm 507 */
BgL_res2066z00_4811 = BgL__ortest_1149z00_4825; }  else 
{ /* Llib/thread.scm 507 */
 long BgL_odepthz00_4826;
{ /* Llib/thread.scm 507 */
 obj_t BgL_arg1947z00_4827;
BgL_arg1947z00_4827 = 
(BgL_oclassz00_4815); 
BgL_odepthz00_4826 = 
BGL_CLASS_DEPTH(BgL_arg1947z00_4827); } 
if(
(BgL_arg1954z00_4796<BgL_odepthz00_4826))
{ /* Llib/thread.scm 507 */
 obj_t BgL_arg1945z00_4831;
{ /* Llib/thread.scm 507 */
 obj_t BgL_arg1946z00_4832;
BgL_arg1946z00_4832 = 
(BgL_oclassz00_4815); 
BgL_arg1945z00_4831 = 
BGL_CLASS_ANCESTORS_REF(BgL_arg1946z00_4832, BgL_arg1954z00_4796); } 
BgL_res2066z00_4811 = 
(BgL_arg1945z00_4831==BgL_classz00_4793); }  else 
{ /* Llib/thread.scm 507 */
BgL_res2066z00_4811 = ((bool_t)0); } } } } 
BgL_test3423z00_9300 = BgL_res2066z00_4811; } }  else 
{ /* Llib/thread.scm 507 */
BgL_test3423z00_9300 = ((bool_t)0)
; } } 
if(BgL_test3423z00_9300)
{ /* Llib/thread.scm 507 */
BgL_auxz00_9299 = 
((BgL_threadz00_bglt)BgL_arg1342z00_4792)
; }  else 
{ 
 obj_t BgL_auxz00_9325;
BgL_auxz00_9325 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2484z00zz__threadz00, 
BINT(21936L), BGl_string2506z00zz__threadz00, BGl_string2500z00zz__threadz00, BgL_arg1342z00_4792); 
FAILURE(BgL_auxz00_9325,BFALSE,BFALSE);} } 
return 
BGl_z52userzd2threadzd2yieldz12z40zz__threadz00(BgL_auxz00_9299);} } } 

}



/* &thread-yield! */
obj_t BGl_z62threadzd2yieldz12za2zz__threadz00(obj_t BgL_envz00_3515)
{
{ /* Llib/thread.scm 506 */
return 
BGl_threadzd2yieldz12zc0zz__threadz00();} 

}



/* thread-parameter */
BGL_EXPORTED_DEF obj_t BGl_threadzd2parameterzd2zz__threadz00(obj_t BgL_idz00_53)
{
{ /* Llib/thread.scm 512 */
{ /* Llib/thread.scm 513 */
 obj_t BgL_cz00_2327;
{ /* Llib/thread.scm 513 */
 obj_t BgL_arg1345z00_2328;
BgL_arg1345z00_2328 = 
BGL_PARAMETERS(); 
{ /* Llib/thread.scm 513 */
 obj_t BgL_auxz00_9332;
{ /* Llib/thread.scm 513 */
 bool_t BgL_test3428z00_9333;
if(
PAIRP(BgL_arg1345z00_2328))
{ /* Llib/thread.scm 513 */
BgL_test3428z00_9333 = ((bool_t)1)
; }  else 
{ /* Llib/thread.scm 513 */
BgL_test3428z00_9333 = 
NULLP(BgL_arg1345z00_2328)
; } 
if(BgL_test3428z00_9333)
{ /* Llib/thread.scm 513 */
BgL_auxz00_9332 = BgL_arg1345z00_2328
; }  else 
{ 
 obj_t BgL_auxz00_9337;
BgL_auxz00_9337 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2484z00zz__threadz00, 
BINT(22236L), BGl_string2507z00zz__threadz00, BGl_string2508z00zz__threadz00, BgL_arg1345z00_2328); 
FAILURE(BgL_auxz00_9337,BFALSE,BFALSE);} } 
BgL_cz00_2327 = 
BGl_assqz00zz__r4_pairs_and_lists_6_3z00(BgL_idz00_53, BgL_auxz00_9332); } } 
if(
PAIRP(BgL_cz00_2327))
{ /* Llib/thread.scm 514 */
return 
CDR(BgL_cz00_2327);}  else 
{ /* Llib/thread.scm 514 */
return BFALSE;} } } 

}



/* &thread-parameter */
obj_t BGl_z62threadzd2parameterzb0zz__threadz00(obj_t BgL_envz00_3516, obj_t BgL_idz00_3517)
{
{ /* Llib/thread.scm 512 */
{ /* Llib/thread.scm 513 */
 obj_t BgL_auxz00_9345;
if(
SYMBOLP(BgL_idz00_3517))
{ /* Llib/thread.scm 513 */
BgL_auxz00_9345 = BgL_idz00_3517
; }  else 
{ 
 obj_t BgL_auxz00_9348;
BgL_auxz00_9348 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2484z00zz__threadz00, 
BINT(22199L), BGl_string2509z00zz__threadz00, BGl_string2510z00zz__threadz00, BgL_idz00_3517); 
FAILURE(BgL_auxz00_9348,BFALSE,BFALSE);} 
return 
BGl_threadzd2parameterzd2zz__threadz00(BgL_auxz00_9345);} } 

}



/* thread-parameter-set! */
BGL_EXPORTED_DEF obj_t BGl_threadzd2parameterzd2setz12z12zz__threadz00(obj_t BgL_idz00_54, obj_t BgL_valz00_55)
{
{ /* Llib/thread.scm 521 */
{ /* Llib/thread.scm 522 */
 obj_t BgL_cz00_1265;
{ /* Llib/thread.scm 522 */
 obj_t BgL_arg1352z00_1270;
BgL_arg1352z00_1270 = 
BGL_PARAMETERS(); 
{ /* Llib/thread.scm 522 */
 obj_t BgL_auxz00_9354;
{ /* Llib/thread.scm 522 */
 bool_t BgL_test3432z00_9355;
if(
PAIRP(BgL_arg1352z00_1270))
{ /* Llib/thread.scm 522 */
BgL_test3432z00_9355 = ((bool_t)1)
; }  else 
{ /* Llib/thread.scm 522 */
BgL_test3432z00_9355 = 
NULLP(BgL_arg1352z00_1270)
; } 
if(BgL_test3432z00_9355)
{ /* Llib/thread.scm 522 */
BgL_auxz00_9354 = BgL_arg1352z00_1270
; }  else 
{ 
 obj_t BgL_auxz00_9359;
BgL_auxz00_9359 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2484z00zz__threadz00, 
BINT(22583L), BGl_string2511z00zz__threadz00, BGl_string2508z00zz__threadz00, BgL_arg1352z00_1270); 
FAILURE(BgL_auxz00_9359,BFALSE,BFALSE);} } 
BgL_cz00_1265 = 
BGl_assqz00zz__r4_pairs_and_lists_6_3z00(BgL_idz00_54, BgL_auxz00_9354); } } 
if(
PAIRP(BgL_cz00_1265))
{ /* Llib/thread.scm 523 */
return 
SET_CDR(BgL_cz00_1265, BgL_valz00_55);}  else 
{ /* Llib/thread.scm 523 */
{ /* Llib/thread.scm 527 */
 obj_t BgL_arg1347z00_1267;
{ /* Llib/thread.scm 527 */
 obj_t BgL_arg1349z00_1268; obj_t BgL_arg1351z00_1269;
BgL_arg1349z00_1268 = 
MAKE_YOUNG_PAIR(BgL_idz00_54, BgL_valz00_55); 
BgL_arg1351z00_1269 = 
BGL_PARAMETERS(); 
BgL_arg1347z00_1267 = 
MAKE_YOUNG_PAIR(BgL_arg1349z00_1268, BgL_arg1351z00_1269); } 
BGL_PARAMETERS_SET(BgL_arg1347z00_1267); } 
return BgL_valz00_55;} } } 

}



/* &thread-parameter-set! */
obj_t BGl_z62threadzd2parameterzd2setz12z70zz__threadz00(obj_t BgL_envz00_3518, obj_t BgL_idz00_3519, obj_t BgL_valz00_3520)
{
{ /* Llib/thread.scm 521 */
{ /* Llib/thread.scm 522 */
 obj_t BgL_auxz00_9371;
if(
SYMBOLP(BgL_idz00_3519))
{ /* Llib/thread.scm 522 */
BgL_auxz00_9371 = BgL_idz00_3519
; }  else 
{ 
 obj_t BgL_auxz00_9374;
BgL_auxz00_9374 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2484z00zz__threadz00, 
BINT(22546L), BGl_string2512z00zz__threadz00, BGl_string2510z00zz__threadz00, BgL_idz00_3519); 
FAILURE(BgL_auxz00_9374,BFALSE,BFALSE);} 
return 
BGl_threadzd2parameterzd2setz12z12zz__threadz00(BgL_auxz00_9371, BgL_valz00_3520);} } 

}



/* mutex? */
BGL_EXPORTED_DEF bool_t BGl_mutexzf3zf3zz__threadz00(obj_t BgL_objz00_73)
{
{ /* Llib/thread.scm 614 */
return 
BGL_MUTEXP(BgL_objz00_73);} 

}



/* &mutex? */
obj_t BGl_z62mutexzf3z91zz__threadz00(obj_t BgL_envz00_3521, obj_t BgL_objz00_3522)
{
{ /* Llib/thread.scm 614 */
return 
BBOOL(
BGl_mutexzf3zf3zz__threadz00(BgL_objz00_3522));} 

}



/* _make-mutex */
obj_t BGl__makezd2mutexzd2zz__threadz00(obj_t BgL_env1256z00_76, obj_t BgL_opt1255z00_75)
{
{ /* Llib/thread.scm 620 */
{ /* Llib/thread.scm 620 */

{ 

{ /* Llib/thread.scm 620 */
 long BgL_aux1258z00_4837;
{ 
 obj_t BgL_auxz00_9382;
if(
VECTORP(BgL_opt1255z00_75))
{ /* Llib/thread.scm 620 */
BgL_auxz00_9382 = BgL_opt1255z00_75
; }  else 
{ 
 obj_t BgL_auxz00_9385;
BgL_auxz00_9385 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2484z00zz__threadz00, 
BINT(27138L), BGl_string2517z00zz__threadz00, BGl_string2494z00zz__threadz00, BgL_opt1255z00_75); 
FAILURE(BgL_auxz00_9385,BFALSE,BFALSE);} 
BgL_aux1258z00_4837 = 
VECTOR_LENGTH(BgL_auxz00_9382); } 
switch( BgL_aux1258z00_4837) { case 0L : 

{ /* Llib/thread.scm 620 */
 obj_t BgL_namez00_4838;
BgL_namez00_4838 = 
BGl_gensymz00zz__r4_symbols_6_4z00(BGl_symbol2518z00zz__threadz00); 
{ /* Llib/thread.scm 620 */

return 
bgl_make_mutex(BgL_namez00_4838);} } break;case 1L : 

{ /* Llib/thread.scm 620 */
 obj_t BgL_namez00_4839;
{ 
 obj_t BgL_auxz00_9392;
if(
VECTORP(BgL_opt1255z00_75))
{ /* Llib/thread.scm 620 */
BgL_auxz00_9392 = BgL_opt1255z00_75
; }  else 
{ 
 obj_t BgL_auxz00_9395;
BgL_auxz00_9395 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2484z00zz__threadz00, 
BINT(27138L), BGl_string2517z00zz__threadz00, BGl_string2494z00zz__threadz00, BgL_opt1255z00_75); 
FAILURE(BgL_auxz00_9395,BFALSE,BFALSE);} 
BgL_namez00_4839 = 
VECTOR_REF(BgL_auxz00_9392,0L); } 
{ /* Llib/thread.scm 620 */

return 
bgl_make_mutex(BgL_namez00_4839);} } break;
default: 
{ /* Llib/thread.scm 620 */
 long BgL_arg1353z00_4836;
{ 
 obj_t BgL_auxz00_9401;
if(
VECTORP(BgL_opt1255z00_75))
{ /* Llib/thread.scm 620 */
BgL_auxz00_9401 = BgL_opt1255z00_75
; }  else 
{ 
 obj_t BgL_auxz00_9404;
BgL_auxz00_9404 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2484z00zz__threadz00, 
BINT(27138L), BGl_string2513z00zz__threadz00, BGl_string2494z00zz__threadz00, BgL_opt1255z00_75); 
FAILURE(BgL_auxz00_9404,BFALSE,BFALSE);} 
BgL_arg1353z00_4836 = 
VECTOR_LENGTH(BgL_auxz00_9401); } 
return 
BGl_errorz00zz__errorz00(BGl_symbol2514z00zz__threadz00, BGl_string2516z00zz__threadz00, 
BINT(BgL_arg1353z00_4836));} } } } } } 

}



/* make-mutex */
BGL_EXPORTED_DEF obj_t BGl_makezd2mutexzd2zz__threadz00(obj_t BgL_namez00_74)
{
{ /* Llib/thread.scm 620 */
return 
bgl_make_mutex(BgL_namez00_74);} 

}



/* _make-spinlock */
obj_t BGl__makezd2spinlockzd2zz__threadz00(obj_t BgL_env1260z00_79, obj_t BgL_opt1259z00_78)
{
{ /* Llib/thread.scm 626 */
{ /* Llib/thread.scm 626 */

{ 

{ /* Llib/thread.scm 626 */
 long BgL_aux1262z00_4842;
{ 
 obj_t BgL_auxz00_9413;
if(
VECTORP(BgL_opt1259z00_78))
{ /* Llib/thread.scm 626 */
BgL_auxz00_9413 = BgL_opt1259z00_78
; }  else 
{ 
 obj_t BgL_auxz00_9416;
BgL_auxz00_9416 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2484z00zz__threadz00, 
BINT(27446L), BGl_string2523z00zz__threadz00, BGl_string2494z00zz__threadz00, BgL_opt1259z00_78); 
FAILURE(BgL_auxz00_9416,BFALSE,BFALSE);} 
BgL_aux1262z00_4842 = 
VECTOR_LENGTH(BgL_auxz00_9413); } 
switch( BgL_aux1262z00_4842) { case 0L : 

{ /* Llib/thread.scm 626 */
 obj_t BgL_namez00_4843;
BgL_namez00_4843 = 
BGl_gensymz00zz__r4_symbols_6_4z00(BGl_symbol2524z00zz__threadz00); 
{ /* Llib/thread.scm 626 */

return 
bgl_make_spinlock(BgL_namez00_4843);} } break;case 1L : 

{ /* Llib/thread.scm 626 */
 obj_t BgL_namez00_4844;
{ 
 obj_t BgL_auxz00_9423;
if(
VECTORP(BgL_opt1259z00_78))
{ /* Llib/thread.scm 626 */
BgL_auxz00_9423 = BgL_opt1259z00_78
; }  else 
{ 
 obj_t BgL_auxz00_9426;
BgL_auxz00_9426 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2484z00zz__threadz00, 
BINT(27446L), BGl_string2523z00zz__threadz00, BGl_string2494z00zz__threadz00, BgL_opt1259z00_78); 
FAILURE(BgL_auxz00_9426,BFALSE,BFALSE);} 
BgL_namez00_4844 = 
VECTOR_REF(BgL_auxz00_9423,0L); } 
{ /* Llib/thread.scm 626 */

return 
bgl_make_spinlock(BgL_namez00_4844);} } break;
default: 
{ /* Llib/thread.scm 626 */
 long BgL_arg1355z00_4841;
{ 
 obj_t BgL_auxz00_9432;
if(
VECTORP(BgL_opt1259z00_78))
{ /* Llib/thread.scm 626 */
BgL_auxz00_9432 = BgL_opt1259z00_78
; }  else 
{ 
 obj_t BgL_auxz00_9435;
BgL_auxz00_9435 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2484z00zz__threadz00, 
BINT(27446L), BGl_string2520z00zz__threadz00, BGl_string2494z00zz__threadz00, BgL_opt1259z00_78); 
FAILURE(BgL_auxz00_9435,BFALSE,BFALSE);} 
BgL_arg1355z00_4841 = 
VECTOR_LENGTH(BgL_auxz00_9432); } 
return 
BGl_errorz00zz__errorz00(BGl_symbol2521z00zz__threadz00, BGl_string2516z00zz__threadz00, 
BINT(BgL_arg1355z00_4841));} } } } } } 

}



/* make-spinlock */
BGL_EXPORTED_DEF obj_t BGl_makezd2spinlockzd2zz__threadz00(obj_t BgL_namez00_77)
{
{ /* Llib/thread.scm 626 */
return 
bgl_make_spinlock(BgL_namez00_77);} 

}



/* mutex-nil */
BGL_EXPORTED_DEF obj_t BGl_mutexzd2nilzd2zz__threadz00(void)
{
{ /* Llib/thread.scm 633 */
return BGl_za2mutexzd2nilza2zd2zz__threadz00;} 

}



/* &mutex-nil */
obj_t BGl_z62mutexzd2nilzb0zz__threadz00(obj_t BgL_envz00_3523)
{
{ /* Llib/thread.scm 633 */
return 
BGl_mutexzd2nilzd2zz__threadz00();} 

}



/* mutex-name */
BGL_EXPORTED_DEF obj_t BGl_mutexzd2namezd2zz__threadz00(obj_t BgL_objz00_80)
{
{ /* Llib/thread.scm 638 */
return 
BGL_MUTEX_NAME(BgL_objz00_80);} 

}



/* &mutex-name */
obj_t BGl_z62mutexzd2namezb0zz__threadz00(obj_t BgL_envz00_3524, obj_t BgL_objz00_3525)
{
{ /* Llib/thread.scm 638 */
{ /* Llib/thread.scm 639 */
 obj_t BgL_auxz00_9446;
if(
BGL_MUTEXP(BgL_objz00_3525))
{ /* Llib/thread.scm 639 */
BgL_auxz00_9446 = BgL_objz00_3525
; }  else 
{ 
 obj_t BgL_auxz00_9449;
BgL_auxz00_9449 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2484z00zz__threadz00, 
BINT(28093L), BGl_string2526z00zz__threadz00, BGl_string2519z00zz__threadz00, BgL_objz00_3525); 
FAILURE(BgL_auxz00_9449,BFALSE,BFALSE);} 
return 
BGl_mutexzd2namezd2zz__threadz00(BgL_auxz00_9446);} } 

}



/* _mutex-lock! */
obj_t BGl__mutexzd2lockz12zc0zz__threadz00(obj_t BgL_env1264z00_84, obj_t BgL_opt1263z00_83)
{
{ /* Llib/thread.scm 644 */
{ /* Llib/thread.scm 644 */
 obj_t BgL_g1265z00_4845;
{ 
 obj_t BgL_auxz00_9454;
if(
VECTORP(BgL_opt1263z00_83))
{ /* Llib/thread.scm 644 */
BgL_auxz00_9454 = BgL_opt1263z00_83
; }  else 
{ 
 obj_t BgL_auxz00_9457;
BgL_auxz00_9457 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2484z00zz__threadz00, 
BINT(28335L), BGl_string2527z00zz__threadz00, BGl_string2494z00zz__threadz00, BgL_opt1263z00_83); 
FAILURE(BgL_auxz00_9457,BFALSE,BFALSE);} 
BgL_g1265z00_4845 = 
VECTOR_REF(BgL_auxz00_9454,0L); } 
{ 

{ /* Llib/thread.scm 644 */
 long BgL_aux1267z00_4848;
{ 
 obj_t BgL_auxz00_9462;
if(
VECTORP(BgL_opt1263z00_83))
{ /* Llib/thread.scm 644 */
BgL_auxz00_9462 = BgL_opt1263z00_83
; }  else 
{ 
 obj_t BgL_auxz00_9465;
BgL_auxz00_9465 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2484z00zz__threadz00, 
BINT(28335L), BGl_string2527z00zz__threadz00, BGl_string2494z00zz__threadz00, BgL_opt1263z00_83); 
FAILURE(BgL_auxz00_9465,BFALSE,BFALSE);} 
BgL_aux1267z00_4848 = 
VECTOR_LENGTH(BgL_auxz00_9462); } 
switch( BgL_aux1267z00_4848) { case 1L : 

{ /* Llib/thread.scm 644 */

{ /* Llib/thread.scm 644 */
 obj_t BgL_mz00_4849;
if(
BGL_MUTEXP(BgL_g1265z00_4845))
{ /* Llib/thread.scm 644 */
BgL_mz00_4849 = BgL_g1265z00_4845; }  else 
{ 
 obj_t BgL_auxz00_9472;
BgL_auxz00_9472 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2484z00zz__threadz00, 
BINT(28335L), BGl_string2527z00zz__threadz00, BGl_string2519z00zz__threadz00, BgL_g1265z00_4845); 
FAILURE(BgL_auxz00_9472,BFALSE,BFALSE);} 
{ /* Llib/thread.scm 646 */
 int BgL_arg1358z00_4850;
BgL_arg1358z00_4850 = 
BGL_MUTEX_LOCK(BgL_mz00_4849); 
return 
BBOOL(
(
(long)(BgL_arg1358z00_4850)==0L));} } } break;case 2L : 

{ /* Llib/thread.scm 644 */
 obj_t BgL_timeoutz00_4851;
{ 
 obj_t BgL_auxz00_9480;
if(
VECTORP(BgL_opt1263z00_83))
{ /* Llib/thread.scm 644 */
BgL_auxz00_9480 = BgL_opt1263z00_83
; }  else 
{ 
 obj_t BgL_auxz00_9483;
BgL_auxz00_9483 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2484z00zz__threadz00, 
BINT(28335L), BGl_string2527z00zz__threadz00, BGl_string2494z00zz__threadz00, BgL_opt1263z00_83); 
FAILURE(BgL_auxz00_9483,BFALSE,BFALSE);} 
BgL_timeoutz00_4851 = 
VECTOR_REF(BgL_auxz00_9480,1L); } 
{ /* Llib/thread.scm 644 */

{ /* Llib/thread.scm 644 */
 obj_t BgL_mz00_4852; long BgL_timeoutz00_4853;
if(
BGL_MUTEXP(BgL_g1265z00_4845))
{ /* Llib/thread.scm 644 */
BgL_mz00_4852 = BgL_g1265z00_4845; }  else 
{ 
 obj_t BgL_auxz00_9490;
BgL_auxz00_9490 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2484z00zz__threadz00, 
BINT(28335L), BGl_string2527z00zz__threadz00, BGl_string2519z00zz__threadz00, BgL_g1265z00_4845); 
FAILURE(BgL_auxz00_9490,BFALSE,BFALSE);} 
{ /* Llib/thread.scm 644 */
 obj_t BgL_tmpz00_9494;
if(
INTEGERP(BgL_timeoutz00_4851))
{ /* Llib/thread.scm 644 */
BgL_tmpz00_9494 = BgL_timeoutz00_4851
; }  else 
{ 
 obj_t BgL_auxz00_9497;
BgL_auxz00_9497 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2484z00zz__threadz00, 
BINT(28335L), BGl_string2527z00zz__threadz00, BGl_string2531z00zz__threadz00, BgL_timeoutz00_4851); 
FAILURE(BgL_auxz00_9497,BFALSE,BFALSE);} 
BgL_timeoutz00_4853 = 
(long)CINT(BgL_tmpz00_9494); } 
if(
(BgL_timeoutz00_4853==0L))
{ /* Llib/thread.scm 646 */
 int BgL_arg1358z00_4854;
BgL_arg1358z00_4854 = 
BGL_MUTEX_LOCK(BgL_mz00_4852); 
return 
BBOOL(
(
(long)(BgL_arg1358z00_4854)==0L));}  else 
{ /* Llib/thread.scm 647 */
 int BgL_arg1359z00_4855;
BgL_arg1359z00_4855 = 
BGL_MUTEX_TIMED_LOCK(BgL_mz00_4852, BgL_timeoutz00_4853); 
return 
BBOOL(
(
(long)(BgL_arg1359z00_4855)==0L));} } } } break;
default: 
{ /* Llib/thread.scm 644 */
 long BgL_arg1356z00_4847;
{ 
 obj_t BgL_auxz00_9512;
if(
VECTORP(BgL_opt1263z00_83))
{ /* Llib/thread.scm 644 */
BgL_auxz00_9512 = BgL_opt1263z00_83
; }  else 
{ 
 obj_t BgL_auxz00_9515;
BgL_auxz00_9515 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2484z00zz__threadz00, 
BINT(28335L), BGl_string2528z00zz__threadz00, BGl_string2494z00zz__threadz00, BgL_opt1263z00_83); 
FAILURE(BgL_auxz00_9515,BFALSE,BFALSE);} 
BgL_arg1356z00_4847 = 
VECTOR_LENGTH(BgL_auxz00_9512); } 
return 
BGl_errorz00zz__errorz00(BGl_symbol2529z00zz__threadz00, BGl_string2498z00zz__threadz00, 
BINT(BgL_arg1356z00_4847));} } } } } } 

}



/* mutex-lock! */
BGL_EXPORTED_DEF obj_t BGl_mutexzd2lockz12zc0zz__threadz00(obj_t BgL_mz00_81, long BgL_timeoutz00_82)
{
{ /* Llib/thread.scm 644 */
if(
(BgL_timeoutz00_82==0L))
{ /* Llib/thread.scm 646 */
 int BgL_arg1358z00_4856;
BgL_arg1358z00_4856 = 
BGL_MUTEX_LOCK(BgL_mz00_81); 
return 
BBOOL(
(
(long)(BgL_arg1358z00_4856)==0L));}  else 
{ /* Llib/thread.scm 647 */
 int BgL_arg1359z00_4857;
BgL_arg1359z00_4857 = 
BGL_MUTEX_TIMED_LOCK(BgL_mz00_81, BgL_timeoutz00_82); 
return 
BBOOL(
(
(long)(BgL_arg1359z00_4857)==0L));} } 

}



/* mutex-unlock! */
BGL_EXPORTED_DEF obj_t BGl_mutexzd2unlockz12zc0zz__threadz00(obj_t BgL_mz00_85)
{
{ /* Llib/thread.scm 652 */
{ /* Llib/thread.scm 653 */
 int BgL_arg1360z00_4858;
BgL_arg1360z00_4858 = 
BGL_MUTEX_UNLOCK(BgL_mz00_85); 
return 
BBOOL(
(
(long)(BgL_arg1360z00_4858)==0L));} } 

}



/* &mutex-unlock! */
obj_t BGl_z62mutexzd2unlockz12za2zz__threadz00(obj_t BgL_envz00_3526, obj_t BgL_mz00_3527)
{
{ /* Llib/thread.scm 652 */
{ /* Llib/thread.scm 653 */
 obj_t BgL_auxz00_9537;
if(
BGL_MUTEXP(BgL_mz00_3527))
{ /* Llib/thread.scm 653 */
BgL_auxz00_9537 = BgL_mz00_3527
; }  else 
{ 
 obj_t BgL_auxz00_9540;
BgL_auxz00_9540 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2484z00zz__threadz00, 
BINT(28760L), BGl_string2532z00zz__threadz00, BGl_string2519z00zz__threadz00, BgL_mz00_3527); 
FAILURE(BgL_auxz00_9540,BFALSE,BFALSE);} 
return 
BGl_mutexzd2unlockz12zc0zz__threadz00(BgL_auxz00_9537);} } 

}



/* mutex-state */
BGL_EXPORTED_DEF obj_t BGl_mutexzd2statezd2zz__threadz00(obj_t BgL_mutexz00_86)
{
{ /* Llib/thread.scm 658 */
return 
BGL_MUTEX_STATE(BgL_mutexz00_86);} 

}



/* &mutex-state */
obj_t BGl_z62mutexzd2statezb0zz__threadz00(obj_t BgL_envz00_3528, obj_t BgL_mutexz00_3529)
{
{ /* Llib/thread.scm 658 */
{ /* Llib/thread.scm 659 */
 obj_t BgL_auxz00_9546;
if(
BGL_MUTEXP(BgL_mutexz00_3529))
{ /* Llib/thread.scm 659 */
BgL_auxz00_9546 = BgL_mutexz00_3529
; }  else 
{ 
 obj_t BgL_auxz00_9549;
BgL_auxz00_9549 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2484z00zz__threadz00, 
BINT(29043L), BGl_string2533z00zz__threadz00, BGl_string2519z00zz__threadz00, BgL_mutexz00_3529); 
FAILURE(BgL_auxz00_9549,BFALSE,BFALSE);} 
return 
BGl_mutexzd2statezd2zz__threadz00(BgL_auxz00_9546);} } 

}



/* with-lock */
BGL_EXPORTED_DEF obj_t BGl_withzd2lockzd2zz__threadz00(obj_t BgL_mutexz00_88, obj_t BgL_thunkz00_89)
{
{ /* Llib/thread.scm 670 */
{ /* Llib/thread.scm 671 */
 obj_t BgL_top3455z00_9555;
BgL_top3455z00_9555 = 
BGL_EXITD_TOP_AS_OBJ(); 
BGL_MUTEX_LOCK(BgL_mutexz00_88); 
BGL_EXITD_PUSH_PROTECT(BgL_top3455z00_9555, BgL_mutexz00_88); BUNSPEC; 
{ /* Llib/thread.scm 671 */
 obj_t BgL_tmp3454z00_9554;
if(
PROCEDURE_CORRECT_ARITYP(BgL_thunkz00_89, 0))
{ /* Llib/thread.scm 672 */
BgL_tmp3454z00_9554 = 
BGL_PROCEDURE_CALL0(BgL_thunkz00_89); }  else 
{ /* Llib/thread.scm 672 */
FAILURE(BGl_string2534z00zz__threadz00,BGl_list2535z00zz__threadz00,BgL_thunkz00_89);} 
BGL_EXITD_POP_PROTECT(BgL_top3455z00_9555); BUNSPEC; 
BGL_MUTEX_UNLOCK(BgL_mutexz00_88); 
return BgL_tmp3454z00_9554;} } } 

}



/* &with-lock */
obj_t BGl_z62withzd2lockzb0zz__threadz00(obj_t BgL_envz00_3530, obj_t BgL_mutexz00_3531, obj_t BgL_thunkz00_3532)
{
{ /* Llib/thread.scm 670 */
{ /* Llib/thread.scm 671 */
 obj_t BgL_auxz00_9574; obj_t BgL_auxz00_9567;
if(
PROCEDUREP(BgL_thunkz00_3532))
{ /* Llib/thread.scm 671 */
BgL_auxz00_9574 = BgL_thunkz00_3532
; }  else 
{ 
 obj_t BgL_auxz00_9577;
BgL_auxz00_9577 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2484z00zz__threadz00, 
BINT(29606L), BGl_string2540z00zz__threadz00, BGl_string2501z00zz__threadz00, BgL_thunkz00_3532); 
FAILURE(BgL_auxz00_9577,BFALSE,BFALSE);} 
if(
BGL_MUTEXP(BgL_mutexz00_3531))
{ /* Llib/thread.scm 671 */
BgL_auxz00_9567 = BgL_mutexz00_3531
; }  else 
{ 
 obj_t BgL_auxz00_9570;
BgL_auxz00_9570 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2484z00zz__threadz00, 
BINT(29606L), BGl_string2540z00zz__threadz00, BGl_string2519z00zz__threadz00, BgL_mutexz00_3531); 
FAILURE(BgL_auxz00_9570,BFALSE,BFALSE);} 
return 
BGl_withzd2lockzd2zz__threadz00(BgL_auxz00_9567, BgL_auxz00_9574);} } 

}



/* with-timed-lock */
BGL_EXPORTED_DEF obj_t BGl_withzd2timedzd2lockz00zz__threadz00(obj_t BgL_mutexz00_90, int BgL_timeoutz00_91, obj_t BgL_thunkz00_92)
{
{ /* Llib/thread.scm 677 */
{ /* Llib/thread.scm 678 */
 bool_t BgL_test3459z00_9582;
{ /* Llib/thread.scm 678 */
 long BgL_timeoutz00_2377;
BgL_timeoutz00_2377 = 
(long)(BgL_timeoutz00_91); 
if(
(BgL_timeoutz00_2377==0L))
{ /* Llib/thread.scm 646 */
 int BgL_arg1358z00_2379;
BgL_arg1358z00_2379 = 
BGL_MUTEX_LOCK(BgL_mutexz00_90); 
BgL_test3459z00_9582 = 
(
(long)(BgL_arg1358z00_2379)==0L); }  else 
{ /* Llib/thread.scm 647 */
 int BgL_arg1359z00_2380;
BgL_arg1359z00_2380 = 
BGL_MUTEX_TIMED_LOCK(BgL_mutexz00_90, BgL_timeoutz00_2377); 
BgL_test3459z00_9582 = 
(
(long)(BgL_arg1359z00_2380)==0L); } } 
if(BgL_test3459z00_9582)
{ /* Llib/thread.scm 679 */
 obj_t BgL_exitd1103z00_2373;
BgL_exitd1103z00_2373 = 
BGL_EXITD_TOP_AS_OBJ(); 
{ /* Llib/thread.scm 681 */
 obj_t BgL_zc3z04anonymousza31362ze3z87_3533;
BgL_zc3z04anonymousza31362ze3z87_3533 = 
MAKE_FX_PROCEDURE(BGl_z62zc3z04anonymousza31362ze3ze5zz__threadz00, 
(int)(0L), 
(int)(1L)); 
PROCEDURE_SET(BgL_zc3z04anonymousza31362ze3z87_3533, 
(int)(0L), BgL_mutexz00_90); 
{ /* Llib/thread.scm 679 */
 obj_t BgL_arg1939z00_2387;
{ /* Llib/thread.scm 679 */
 obj_t BgL_arg1940z00_2388;
BgL_arg1940z00_2388 = 
BGL_EXITD_PROTECT(BgL_exitd1103z00_2373); 
BgL_arg1939z00_2387 = 
MAKE_YOUNG_PAIR(BgL_zc3z04anonymousza31362ze3z87_3533, BgL_arg1940z00_2388); } 
BGL_EXITD_PROTECT_SET(BgL_exitd1103z00_2373, BgL_arg1939z00_2387); BUNSPEC; } 
{ /* Llib/thread.scm 680 */
 obj_t BgL_tmp1105z00_2375;
if(
PROCEDURE_CORRECT_ARITYP(BgL_thunkz00_92, 0))
{ /* Llib/thread.scm 680 */
BgL_tmp1105z00_2375 = 
BGL_PROCEDURE_CALL0(BgL_thunkz00_92); }  else 
{ /* Llib/thread.scm 680 */
FAILURE(BGl_string2541z00zz__threadz00,BGl_list2535z00zz__threadz00,BgL_thunkz00_92);} 
{ /* Llib/thread.scm 679 */
 bool_t BgL_test3462z00_9607;
{ /* Llib/thread.scm 679 */
 obj_t BgL_arg1938z00_2390;
BgL_arg1938z00_2390 = 
BGL_EXITD_PROTECT(BgL_exitd1103z00_2373); 
BgL_test3462z00_9607 = 
PAIRP(BgL_arg1938z00_2390); } 
if(BgL_test3462z00_9607)
{ /* Llib/thread.scm 679 */
 obj_t BgL_arg1936z00_2391;
{ /* Llib/thread.scm 679 */
 obj_t BgL_arg1937z00_2392;
BgL_arg1937z00_2392 = 
BGL_EXITD_PROTECT(BgL_exitd1103z00_2373); 
{ /* Llib/thread.scm 679 */
 obj_t BgL_pairz00_2393;
if(
PAIRP(BgL_arg1937z00_2392))
{ /* Llib/thread.scm 679 */
BgL_pairz00_2393 = BgL_arg1937z00_2392; }  else 
{ 
 obj_t BgL_auxz00_9613;
BgL_auxz00_9613 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2484z00zz__threadz00, 
BINT(29953L), BGl_string2542z00zz__threadz00, BGl_string2488z00zz__threadz00, BgL_arg1937z00_2392); 
FAILURE(BgL_auxz00_9613,BFALSE,BFALSE);} 
BgL_arg1936z00_2391 = 
CDR(BgL_pairz00_2393); } } 
BGL_EXITD_PROTECT_SET(BgL_exitd1103z00_2373, BgL_arg1936z00_2391); BUNSPEC; }  else 
{ /* Llib/thread.scm 679 */BFALSE; } } 
{ /* Llib/thread.scm 653 */
 int BgL_arg1360z00_2395;
BgL_arg1360z00_2395 = 
BGL_MUTEX_UNLOCK(BgL_mutexz00_90); 
(
(long)(BgL_arg1360z00_2395)==0L); } 
return BgL_tmp1105z00_2375;} } }  else 
{ /* Llib/thread.scm 678 */
return BFALSE;} } } 

}



/* &with-timed-lock */
obj_t BGl_z62withzd2timedzd2lockz62zz__threadz00(obj_t BgL_envz00_3534, obj_t BgL_mutexz00_3535, obj_t BgL_timeoutz00_3536, obj_t BgL_thunkz00_3537)
{
{ /* Llib/thread.scm 677 */
{ /* Llib/thread.scm 678 */
 obj_t BgL_auxz00_9638; int BgL_auxz00_9629; obj_t BgL_auxz00_9622;
if(
PROCEDUREP(BgL_thunkz00_3537))
{ /* Llib/thread.scm 678 */
BgL_auxz00_9638 = BgL_thunkz00_3537
; }  else 
{ 
 obj_t BgL_auxz00_9641;
BgL_auxz00_9641 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2484z00zz__threadz00, 
BINT(29913L), BGl_string2543z00zz__threadz00, BGl_string2501z00zz__threadz00, BgL_thunkz00_3537); 
FAILURE(BgL_auxz00_9641,BFALSE,BFALSE);} 
{ /* Llib/thread.scm 678 */
 obj_t BgL_tmpz00_9630;
if(
INTEGERP(BgL_timeoutz00_3536))
{ /* Llib/thread.scm 678 */
BgL_tmpz00_9630 = BgL_timeoutz00_3536
; }  else 
{ 
 obj_t BgL_auxz00_9633;
BgL_auxz00_9633 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2484z00zz__threadz00, 
BINT(29913L), BGl_string2543z00zz__threadz00, BGl_string2531z00zz__threadz00, BgL_timeoutz00_3536); 
FAILURE(BgL_auxz00_9633,BFALSE,BFALSE);} 
BgL_auxz00_9629 = 
CINT(BgL_tmpz00_9630); } 
if(
BGL_MUTEXP(BgL_mutexz00_3535))
{ /* Llib/thread.scm 678 */
BgL_auxz00_9622 = BgL_mutexz00_3535
; }  else 
{ 
 obj_t BgL_auxz00_9625;
BgL_auxz00_9625 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2484z00zz__threadz00, 
BINT(29913L), BGl_string2543z00zz__threadz00, BGl_string2519z00zz__threadz00, BgL_mutexz00_3535); 
FAILURE(BgL_auxz00_9625,BFALSE,BFALSE);} 
return 
BGl_withzd2timedzd2lockz00zz__threadz00(BgL_auxz00_9622, BgL_auxz00_9629, BgL_auxz00_9638);} } 

}



/* &<@anonymous:1362> */
obj_t BGl_z62zc3z04anonymousza31362ze3ze5zz__threadz00(obj_t BgL_envz00_3538)
{
{ /* Llib/thread.scm 679 */
{ /* Llib/thread.scm 653 */
 obj_t BgL_mutexz00_3539;
BgL_mutexz00_3539 = 
((obj_t)
PROCEDURE_REF(BgL_envz00_3538, 
(int)(0L))); 
{ /* Llib/thread.scm 653 */
 bool_t BgL_tmpz00_9649;
{ /* Llib/thread.scm 653 */
 int BgL_arg1360z00_4859;
BgL_arg1360z00_4859 = 
BGL_MUTEX_UNLOCK(BgL_mutexz00_3539); 
BgL_tmpz00_9649 = 
(
(long)(BgL_arg1360z00_4859)==0L); } 
return 
BBOOL(BgL_tmpz00_9649);} } } 

}



/* condition-variable? */
BGL_EXPORTED_DEF bool_t BGl_conditionzd2variablezf3z21zz__threadz00(obj_t BgL_objz00_93)
{
{ /* Llib/thread.scm 686 */
return 
BGL_CONDVARP(BgL_objz00_93);} 

}



/* &condition-variable? */
obj_t BGl_z62conditionzd2variablezf3z43zz__threadz00(obj_t BgL_envz00_3540, obj_t BgL_objz00_3541)
{
{ /* Llib/thread.scm 686 */
return 
BBOOL(
BGl_conditionzd2variablezf3z21zz__threadz00(BgL_objz00_3541));} 

}



/* _make-condition-variable */
obj_t BGl__makezd2conditionzd2variablez00zz__threadz00(obj_t BgL_env1269z00_96, obj_t BgL_opt1268z00_95)
{
{ /* Llib/thread.scm 692 */
{ /* Llib/thread.scm 692 */

{ 

{ /* Llib/thread.scm 692 */
 long BgL_aux1271z00_4862;
{ 
 obj_t BgL_auxz00_9657;
if(
VECTORP(BgL_opt1268z00_95))
{ /* Llib/thread.scm 692 */
BgL_auxz00_9657 = BgL_opt1268z00_95
; }  else 
{ 
 obj_t BgL_auxz00_9660;
BgL_auxz00_9660 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2484z00zz__threadz00, 
BINT(30513L), BGl_string2547z00zz__threadz00, BGl_string2494z00zz__threadz00, BgL_opt1268z00_95); 
FAILURE(BgL_auxz00_9660,BFALSE,BFALSE);} 
BgL_aux1271z00_4862 = 
VECTOR_LENGTH(BgL_auxz00_9657); } 
switch( BgL_aux1271z00_4862) { case 0L : 

{ /* Llib/thread.scm 693 */
 obj_t BgL_namez00_4863;
BgL_namez00_4863 = 
BGl_gensymz00zz__r4_symbols_6_4z00(BGl_symbol2548z00zz__threadz00); 
{ /* Llib/thread.scm 692 */

return 
bgl_make_condvar(BgL_namez00_4863);} } break;case 1L : 

{ /* Llib/thread.scm 692 */
 obj_t BgL_namez00_4864;
{ 
 obj_t BgL_auxz00_9667;
if(
VECTORP(BgL_opt1268z00_95))
{ /* Llib/thread.scm 692 */
BgL_auxz00_9667 = BgL_opt1268z00_95
; }  else 
{ 
 obj_t BgL_auxz00_9670;
BgL_auxz00_9670 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2484z00zz__threadz00, 
BINT(30513L), BGl_string2547z00zz__threadz00, BGl_string2494z00zz__threadz00, BgL_opt1268z00_95); 
FAILURE(BgL_auxz00_9670,BFALSE,BFALSE);} 
BgL_namez00_4864 = 
VECTOR_REF(BgL_auxz00_9667,0L); } 
{ /* Llib/thread.scm 692 */

return 
bgl_make_condvar(BgL_namez00_4864);} } break;
default: 
{ /* Llib/thread.scm 692 */
 long BgL_arg1363z00_4861;
{ 
 obj_t BgL_auxz00_9676;
if(
VECTORP(BgL_opt1268z00_95))
{ /* Llib/thread.scm 692 */
BgL_auxz00_9676 = BgL_opt1268z00_95
; }  else 
{ 
 obj_t BgL_auxz00_9679;
BgL_auxz00_9679 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2484z00zz__threadz00, 
BINT(30513L), BGl_string2544z00zz__threadz00, BGl_string2494z00zz__threadz00, BgL_opt1268z00_95); 
FAILURE(BgL_auxz00_9679,BFALSE,BFALSE);} 
BgL_arg1363z00_4861 = 
VECTOR_LENGTH(BgL_auxz00_9676); } 
return 
BGl_errorz00zz__errorz00(BGl_symbol2545z00zz__threadz00, BGl_string2516z00zz__threadz00, 
BINT(BgL_arg1363z00_4861));} } } } } } 

}



/* make-condition-variable */
BGL_EXPORTED_DEF obj_t BGl_makezd2conditionzd2variablez00zz__threadz00(obj_t BgL_namez00_94)
{
{ /* Llib/thread.scm 692 */
return 
bgl_make_condvar(BgL_namez00_94);} 

}



/* condition-variable-nil */
BGL_EXPORTED_DEF obj_t BGl_conditionzd2variablezd2nilz00zz__threadz00(void)
{
{ /* Llib/thread.scm 700 */
return BGl_za2conditionzd2variablezd2nilza2z00zz__threadz00;} 

}



/* &condition-variable-nil */
obj_t BGl_z62conditionzd2variablezd2nilz62zz__threadz00(obj_t BgL_envz00_3542)
{
{ /* Llib/thread.scm 700 */
return 
BGl_conditionzd2variablezd2nilz00zz__threadz00();} 

}



/* condition-variable-name */
BGL_EXPORTED_DEF obj_t BGl_conditionzd2variablezd2namez00zz__threadz00(obj_t BgL_objz00_97)
{
{ /* Llib/thread.scm 705 */
return 
BGL_CONDVAR_NAME(BgL_objz00_97);} 

}



/* &condition-variable-name */
obj_t BGl_z62conditionzd2variablezd2namez62zz__threadz00(obj_t BgL_envz00_3543, obj_t BgL_objz00_3544)
{
{ /* Llib/thread.scm 705 */
{ /* Llib/thread.scm 706 */
 obj_t BgL_auxz00_9690;
if(
BGL_CONDVARP(BgL_objz00_3544))
{ /* Llib/thread.scm 706 */
BgL_auxz00_9690 = BgL_objz00_3544
; }  else 
{ 
 obj_t BgL_auxz00_9693;
BgL_auxz00_9693 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2484z00zz__threadz00, 
BINT(31238L), BGl_string2550z00zz__threadz00, BGl_string2551z00zz__threadz00, BgL_objz00_3544); 
FAILURE(BgL_auxz00_9693,BFALSE,BFALSE);} 
return 
BGl_conditionzd2variablezd2namez00zz__threadz00(BgL_auxz00_9690);} } 

}



/* _condition-variable-wait! */
obj_t BGl__conditionzd2variablezd2waitz12z12zz__threadz00(obj_t BgL_env1273z00_102, obj_t BgL_opt1272z00_101)
{
{ /* Llib/thread.scm 711 */
{ /* Llib/thread.scm 711 */
 obj_t BgL_g1274z00_4865; obj_t BgL_g1275z00_4866;
{ 
 obj_t BgL_auxz00_9698;
if(
VECTORP(BgL_opt1272z00_101))
{ /* Llib/thread.scm 711 */
BgL_auxz00_9698 = BgL_opt1272z00_101
; }  else 
{ 
 obj_t BgL_auxz00_9701;
BgL_auxz00_9701 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2484z00zz__threadz00, 
BINT(31482L), BGl_string2552z00zz__threadz00, BGl_string2494z00zz__threadz00, BgL_opt1272z00_101); 
FAILURE(BgL_auxz00_9701,BFALSE,BFALSE);} 
BgL_g1274z00_4865 = 
VECTOR_REF(BgL_auxz00_9698,0L); } 
{ 
 obj_t BgL_auxz00_9706;
if(
VECTORP(BgL_opt1272z00_101))
{ /* Llib/thread.scm 711 */
BgL_auxz00_9706 = BgL_opt1272z00_101
; }  else 
{ 
 obj_t BgL_auxz00_9709;
BgL_auxz00_9709 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2484z00zz__threadz00, 
BINT(31482L), BGl_string2552z00zz__threadz00, BGl_string2494z00zz__threadz00, BgL_opt1272z00_101); 
FAILURE(BgL_auxz00_9709,BFALSE,BFALSE);} 
BgL_g1275z00_4866 = 
VECTOR_REF(BgL_auxz00_9706,1L); } 
{ 

{ /* Llib/thread.scm 711 */
 long BgL_aux1277z00_4869;
{ 
 obj_t BgL_auxz00_9714;
if(
VECTORP(BgL_opt1272z00_101))
{ /* Llib/thread.scm 711 */
BgL_auxz00_9714 = BgL_opt1272z00_101
; }  else 
{ 
 obj_t BgL_auxz00_9717;
BgL_auxz00_9717 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2484z00zz__threadz00, 
BINT(31482L), BGl_string2552z00zz__threadz00, BGl_string2494z00zz__threadz00, BgL_opt1272z00_101); 
FAILURE(BgL_auxz00_9717,BFALSE,BFALSE);} 
BgL_aux1277z00_4869 = 
VECTOR_LENGTH(BgL_auxz00_9714); } 
switch( BgL_aux1277z00_4869) { case 2L : 

{ /* Llib/thread.scm 711 */

{ /* Llib/thread.scm 711 */
 obj_t BgL_cz00_4870; obj_t BgL_mz00_4871;
if(
BGL_CONDVARP(BgL_g1274z00_4865))
{ /* Llib/thread.scm 711 */
BgL_cz00_4870 = BgL_g1274z00_4865; }  else 
{ 
 obj_t BgL_auxz00_9724;
BgL_auxz00_9724 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2484z00zz__threadz00, 
BINT(31482L), BGl_string2552z00zz__threadz00, BGl_string2551z00zz__threadz00, BgL_g1274z00_4865); 
FAILURE(BgL_auxz00_9724,BFALSE,BFALSE);} 
if(
BGL_MUTEXP(BgL_g1275z00_4866))
{ /* Llib/thread.scm 711 */
BgL_mz00_4871 = BgL_g1275z00_4866; }  else 
{ 
 obj_t BgL_auxz00_9730;
BgL_auxz00_9730 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2484z00zz__threadz00, 
BINT(31482L), BGl_string2552z00zz__threadz00, BGl_string2519z00zz__threadz00, BgL_g1275z00_4866); 
FAILURE(BgL_auxz00_9730,BFALSE,BFALSE);} 
return 
BBOOL(
BGL_CONDVAR_WAIT(BgL_cz00_4870, BgL_mz00_4871));} } break;case 3L : 

{ /* Llib/thread.scm 711 */
 obj_t BgL_timeoutz00_4872;
{ 
 obj_t BgL_auxz00_9736;
if(
VECTORP(BgL_opt1272z00_101))
{ /* Llib/thread.scm 711 */
BgL_auxz00_9736 = BgL_opt1272z00_101
; }  else 
{ 
 obj_t BgL_auxz00_9739;
BgL_auxz00_9739 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2484z00zz__threadz00, 
BINT(31482L), BGl_string2552z00zz__threadz00, BGl_string2494z00zz__threadz00, BgL_opt1272z00_101); 
FAILURE(BgL_auxz00_9739,BFALSE,BFALSE);} 
BgL_timeoutz00_4872 = 
VECTOR_REF(BgL_auxz00_9736,2L); } 
{ /* Llib/thread.scm 711 */

{ /* Llib/thread.scm 711 */
 obj_t BgL_cz00_4873; obj_t BgL_mz00_4874; long BgL_timeoutz00_4875;
if(
BGL_CONDVARP(BgL_g1274z00_4865))
{ /* Llib/thread.scm 711 */
BgL_cz00_4873 = BgL_g1274z00_4865; }  else 
{ 
 obj_t BgL_auxz00_9746;
BgL_auxz00_9746 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2484z00zz__threadz00, 
BINT(31482L), BGl_string2552z00zz__threadz00, BGl_string2551z00zz__threadz00, BgL_g1274z00_4865); 
FAILURE(BgL_auxz00_9746,BFALSE,BFALSE);} 
if(
BGL_MUTEXP(BgL_g1275z00_4866))
{ /* Llib/thread.scm 711 */
BgL_mz00_4874 = BgL_g1275z00_4866; }  else 
{ 
 obj_t BgL_auxz00_9752;
BgL_auxz00_9752 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2484z00zz__threadz00, 
BINT(31482L), BGl_string2552z00zz__threadz00, BGl_string2519z00zz__threadz00, BgL_g1275z00_4866); 
FAILURE(BgL_auxz00_9752,BFALSE,BFALSE);} 
{ /* Llib/thread.scm 711 */
 obj_t BgL_tmpz00_9756;
if(
INTEGERP(BgL_timeoutz00_4872))
{ /* Llib/thread.scm 711 */
BgL_tmpz00_9756 = BgL_timeoutz00_4872
; }  else 
{ 
 obj_t BgL_auxz00_9759;
BgL_auxz00_9759 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2484z00zz__threadz00, 
BINT(31482L), BGl_string2552z00zz__threadz00, BGl_string2531z00zz__threadz00, BgL_timeoutz00_4872); 
FAILURE(BgL_auxz00_9759,BFALSE,BFALSE);} 
BgL_timeoutz00_4875 = 
(long)CINT(BgL_tmpz00_9756); } 
if(
(BgL_timeoutz00_4875==0L))
{ /* Llib/thread.scm 712 */
return 
BBOOL(
BGL_CONDVAR_WAIT(BgL_cz00_4873, BgL_mz00_4874));}  else 
{ /* Llib/thread.scm 712 */
return 
BBOOL(
BGL_CONDVAR_TIMED_WAIT(BgL_cz00_4873, BgL_mz00_4874, BgL_timeoutz00_4875));} } } } break;
default: 
{ /* Llib/thread.scm 711 */
 long BgL_arg1364z00_4868;
{ 
 obj_t BgL_auxz00_9770;
if(
VECTORP(BgL_opt1272z00_101))
{ /* Llib/thread.scm 711 */
BgL_auxz00_9770 = BgL_opt1272z00_101
; }  else 
{ 
 obj_t BgL_auxz00_9773;
BgL_auxz00_9773 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2484z00zz__threadz00, 
BINT(31482L), BGl_string2553z00zz__threadz00, BGl_string2494z00zz__threadz00, BgL_opt1272z00_101); 
FAILURE(BgL_auxz00_9773,BFALSE,BFALSE);} 
BgL_arg1364z00_4868 = 
VECTOR_LENGTH(BgL_auxz00_9770); } 
return 
BGl_errorz00zz__errorz00(BGl_symbol2554z00zz__threadz00, BGl_string2556z00zz__threadz00, 
BINT(BgL_arg1364z00_4868));} } } } } } 

}



/* condition-variable-wait! */
BGL_EXPORTED_DEF bool_t BGl_conditionzd2variablezd2waitz12z12zz__threadz00(obj_t BgL_cz00_98, obj_t BgL_mz00_99, long BgL_timeoutz00_100)
{
{ /* Llib/thread.scm 711 */
if(
(BgL_timeoutz00_100==0L))
{ /* Llib/thread.scm 712 */
return 
BGL_CONDVAR_WAIT(BgL_cz00_98, BgL_mz00_99);}  else 
{ /* Llib/thread.scm 712 */
return 
BGL_CONDVAR_TIMED_WAIT(BgL_cz00_98, BgL_mz00_99, BgL_timeoutz00_100);} } 

}



/* condition-variable-signal! */
BGL_EXPORTED_DEF bool_t BGl_conditionzd2variablezd2signalz12z12zz__threadz00(obj_t BgL_cz00_103)
{
{ /* Llib/thread.scm 719 */
return 
BGL_CONDVAR_SIGNAL(BgL_cz00_103);} 

}



/* &condition-variable-signal! */
obj_t BGl_z62conditionzd2variablezd2signalz12z70zz__threadz00(obj_t BgL_envz00_3545, obj_t BgL_cz00_3546)
{
{ /* Llib/thread.scm 719 */
{ /* Llib/thread.scm 720 */
 bool_t BgL_tmpz00_9786;
{ /* Llib/thread.scm 720 */
 obj_t BgL_auxz00_9787;
if(
BGL_CONDVARP(BgL_cz00_3546))
{ /* Llib/thread.scm 720 */
BgL_auxz00_9787 = BgL_cz00_3546
; }  else 
{ 
 obj_t BgL_auxz00_9790;
BgL_auxz00_9790 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2484z00zz__threadz00, 
BINT(31924L), BGl_string2557z00zz__threadz00, BGl_string2551z00zz__threadz00, BgL_cz00_3546); 
FAILURE(BgL_auxz00_9790,BFALSE,BFALSE);} 
BgL_tmpz00_9786 = 
BGl_conditionzd2variablezd2signalz12z12zz__threadz00(BgL_auxz00_9787); } 
return 
BBOOL(BgL_tmpz00_9786);} } 

}



/* condition-variable-broadcast! */
BGL_EXPORTED_DEF bool_t BGl_conditionzd2variablezd2broadcastz12z12zz__threadz00(obj_t BgL_cz00_104)
{
{ /* Llib/thread.scm 725 */
return 
BGL_CONDVAR_BROADCAST(BgL_cz00_104);} 

}



/* &condition-variable-broadcast! */
obj_t BGl_z62conditionzd2variablezd2broadcastz12z70zz__threadz00(obj_t BgL_envz00_3547, obj_t BgL_cz00_3548)
{
{ /* Llib/thread.scm 725 */
{ /* Llib/thread.scm 726 */
 bool_t BgL_tmpz00_9797;
{ /* Llib/thread.scm 726 */
 obj_t BgL_auxz00_9798;
if(
BGL_CONDVARP(BgL_cz00_3548))
{ /* Llib/thread.scm 726 */
BgL_auxz00_9798 = BgL_cz00_3548
; }  else 
{ 
 obj_t BgL_auxz00_9801;
BgL_auxz00_9801 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2484z00zz__threadz00, 
BINT(32221L), BGl_string2558z00zz__threadz00, BGl_string2551z00zz__threadz00, BgL_cz00_3548); 
FAILURE(BgL_auxz00_9801,BFALSE,BFALSE);} 
BgL_tmpz00_9797 = 
BGl_conditionzd2variablezd2broadcastz12z12zz__threadz00(BgL_auxz00_9798); } 
return 
BBOOL(BgL_tmpz00_9797);} } 

}



/* object-init */
obj_t BGl_objectzd2initzd2zz__threadz00(void)
{
{ /* Llib/thread.scm 17 */
{ /* Llib/thread.scm 161 */
 obj_t BgL_arg1369z00_1313; obj_t BgL_arg1370z00_1314;
{ /* Llib/thread.scm 161 */
 obj_t BgL_v1161z00_1325;
BgL_v1161z00_1325 = 
create_vector(1L); 
VECTOR_SET(BgL_v1161z00_1325,0L,
BGl_makezd2classzd2fieldz00zz__objectz00(BGl_symbol2561z00zz__threadz00, BGl_proc2560z00zz__threadz00, BGl_proc2559z00zz__threadz00, ((bool_t)1), ((bool_t)0), BFALSE, BFALSE, BGl_symbol2563z00zz__threadz00)); 
BgL_arg1369z00_1313 = BgL_v1161z00_1325; } 
{ /* Llib/thread.scm 161 */
 obj_t BgL_v1162z00_1336;
BgL_v1162z00_1336 = 
create_vector(0L); 
BgL_arg1370z00_1314 = BgL_v1162z00_1336; } 
BGl_threadzd2backendzd2zz__threadz00 = 
BGl_registerzd2classz12zc0zz__objectz00(BGl_symbol2567z00zz__threadz00, BGl_symbol2568z00zz__threadz00, BGl_objectz00zz__objectz00, 20365L, BGl_proc2566z00zz__threadz00, BGl_proc2565z00zz__threadz00, BFALSE, BGl_proc2564z00zz__threadz00, BFALSE, BgL_arg1369z00_1313, BgL_arg1370z00_1314); } 
{ /* Llib/thread.scm 164 */
 obj_t BgL_arg1383z00_1342; obj_t BgL_arg1384z00_1343;
{ /* Llib/thread.scm 164 */
 obj_t BgL_v1163z00_1349;
BgL_v1163z00_1349 = 
create_vector(3L); 
VECTOR_SET(BgL_v1163z00_1349,0L,
BGl_makezd2classzd2fieldz00zz__objectz00(BGl_symbol2561z00zz__threadz00, BGl_proc2572z00zz__threadz00, BGl_proc2571z00zz__threadz00, ((bool_t)0), ((bool_t)0), BFALSE, BGl_proc2570z00zz__threadz00, BGl_symbol2573z00zz__threadz00)); 
VECTOR_SET(BgL_v1163z00_1349,1L,
BGl_makezd2classzd2fieldz00zz__objectz00(BGl_symbol2577z00zz__threadz00, BGl_proc2576z00zz__threadz00, BGl_proc2575z00zz__threadz00, ((bool_t)0), ((bool_t)1), BFALSE, BFALSE, BGl_symbol2573z00zz__threadz00)); 
VECTOR_SET(BgL_v1163z00_1349,2L,
BGl_makezd2classzd2fieldz00zz__objectz00(BGl_symbol2581z00zz__threadz00, BGl_proc2580z00zz__threadz00, BGl_proc2579z00zz__threadz00, ((bool_t)0), ((bool_t)1), BFALSE, BFALSE, BGl_symbol2573z00zz__threadz00)); 
BgL_arg1383z00_1342 = BgL_v1163z00_1349; } 
{ /* Llib/thread.scm 164 */
 obj_t BgL_v1164z00_1383;
BgL_v1164z00_1383 = 
create_vector(2L); 
{ /* Llib/thread.scm 167 */
 obj_t BgL_arg1405z00_1384;
{ /* Llib/thread.scm 167 */
 obj_t BgL_arg1407z00_1385;
BgL_arg1407z00_1385 = 
MAKE_YOUNG_PAIR(BGl_proc2583z00zz__threadz00, BGl_proc2584z00zz__threadz00); 
BgL_arg1405z00_1384 = 
MAKE_YOUNG_PAIR(
BINT(0L), BgL_arg1407z00_1385); } 
VECTOR_SET(BgL_v1164z00_1383,0L,BgL_arg1405z00_1384); } 
{ /* Llib/thread.scm 168 */
 obj_t BgL_arg1414z00_1401;
{ /* Llib/thread.scm 168 */
 obj_t BgL_arg1415z00_1402;
BgL_arg1415z00_1402 = 
MAKE_YOUNG_PAIR(BGl_proc2585z00zz__threadz00, BGl_proc2586z00zz__threadz00); 
BgL_arg1414z00_1401 = 
MAKE_YOUNG_PAIR(
BINT(1L), BgL_arg1415z00_1402); } 
VECTOR_SET(BgL_v1164z00_1383,1L,BgL_arg1414z00_1401); } 
BgL_arg1384z00_1343 = BgL_v1164z00_1383; } 
BGl_threadz00zz__threadz00 = 
BGl_registerzd2classz12zc0zz__objectz00(BGl_symbol2499z00zz__threadz00, BGl_symbol2568z00zz__threadz00, BGl_objectz00zz__objectz00, 35587L, BFALSE, BGl_proc2588z00zz__threadz00, BGl_threadzd2initializa7ez12zd2envzb5zz__threadz00, BGl_proc2587z00zz__threadz00, BFALSE, BgL_arg1383z00_1342, BgL_arg1384z00_1343); } 
{ /* Llib/thread.scm 170 */
 obj_t BgL_arg1425z00_1423; obj_t BgL_arg1426z00_1424;
{ /* Llib/thread.scm 170 */
 obj_t BgL_v1165z00_1442;
BgL_v1165z00_1442 = 
create_vector(6L); 
VECTOR_SET(BgL_v1165z00_1442,0L,
BGl_makezd2classzd2fieldz00zz__objectz00(BGl_symbol2591z00zz__threadz00, BGl_proc2590z00zz__threadz00, BGl_proc2589z00zz__threadz00, ((bool_t)1), ((bool_t)0), BFALSE, BFALSE, BGl_symbol2593z00zz__threadz00)); 
VECTOR_SET(BgL_v1165z00_1442,1L,
BGl_makezd2classzd2fieldz00zz__objectz00(BGl_symbol2597z00zz__threadz00, BGl_proc2596z00zz__threadz00, BGl_proc2595z00zz__threadz00, ((bool_t)0), ((bool_t)0), BFALSE, BGl_proc2594z00zz__threadz00, BGl_symbol2573z00zz__threadz00)); 
VECTOR_SET(BgL_v1165z00_1442,2L,
BGl_makezd2classzd2fieldz00zz__objectz00(BGl_symbol2602z00zz__threadz00, BGl_proc2601z00zz__threadz00, BGl_proc2600z00zz__threadz00, ((bool_t)0), ((bool_t)0), BFALSE, BGl_proc2599z00zz__threadz00, BGl_symbol2573z00zz__threadz00)); 
VECTOR_SET(BgL_v1165z00_1442,3L,
BGl_makezd2classzd2fieldz00zz__objectz00(BGl_symbol2607z00zz__threadz00, BGl_proc2606z00zz__threadz00, BGl_proc2605z00zz__threadz00, ((bool_t)0), ((bool_t)0), BFALSE, BGl_proc2604z00zz__threadz00, BGl_symbol2573z00zz__threadz00)); 
VECTOR_SET(BgL_v1165z00_1442,4L,
BGl_makezd2classzd2fieldz00zz__objectz00(BGl_symbol2612z00zz__threadz00, BGl_proc2611z00zz__threadz00, BGl_proc2610z00zz__threadz00, ((bool_t)0), ((bool_t)0), BFALSE, BGl_proc2609z00zz__threadz00, BGl_symbol2573z00zz__threadz00)); 
VECTOR_SET(BgL_v1165z00_1442,5L,
BGl_makezd2classzd2fieldz00zz__objectz00(BGl_symbol2617z00zz__threadz00, BGl_proc2616z00zz__threadz00, BGl_proc2615z00zz__threadz00, ((bool_t)0), ((bool_t)0), BFALSE, BGl_proc2614z00zz__threadz00, BGl_symbol2563z00zz__threadz00)); 
BgL_arg1425z00_1423 = BgL_v1165z00_1442; } 
{ /* Llib/thread.scm 170 */
 obj_t BgL_v1166z00_1518;
BgL_v1166z00_1518 = 
create_vector(0L); 
BgL_arg1426z00_1424 = BgL_v1166z00_1518; } 
BGl_nothreadz00zz__threadz00 = 
BGl_registerzd2classz12zc0zz__objectz00(BGl_symbol2622z00zz__threadz00, BGl_symbol2568z00zz__threadz00, BGl_threadz00zz__threadz00, 50609L, BGl_proc2621z00zz__threadz00, BGl_proc2620z00zz__threadz00, BGl_threadzd2initializa7ez12zd2envzb5zz__threadz00, BGl_proc2619z00zz__threadz00, BFALSE, BgL_arg1425z00_1423, BgL_arg1426z00_1424); } 
{ /* Llib/thread.scm 159 */
 obj_t BgL_arg1482z00_1525; obj_t BgL_arg1483z00_1526;
{ /* Llib/thread.scm 159 */
 obj_t BgL_v1167z00_1537;
BgL_v1167z00_1537 = 
create_vector(0L); 
BgL_arg1482z00_1525 = BgL_v1167z00_1537; } 
{ /* Llib/thread.scm 159 */
 obj_t BgL_v1168z00_1538;
BgL_v1168z00_1538 = 
create_vector(0L); 
BgL_arg1483z00_1526 = BgL_v1168z00_1538; } 
return ( 
BGl_nothreadzd2backendzd2zz__threadz00 = 
BGl_registerzd2classz12zc0zz__objectz00(BGl_symbol2626z00zz__threadz00, BGl_symbol2568z00zz__threadz00, BGl_threadzd2backendzd2zz__threadz00, 1284L, BGl_proc2625z00zz__threadz00, BGl_proc2624z00zz__threadz00, BFALSE, BGl_proc2623z00zz__threadz00, BFALSE, BgL_arg1482z00_1525, BgL_arg1483z00_1526), BUNSPEC) ;} } 

}



/* &<@anonymous:1489> */
obj_t BGl_z62zc3z04anonymousza31489ze3ze5zz__threadz00(obj_t BgL_envz00_3593, obj_t BgL_new1056z00_3594)
{
{ /* Llib/thread.scm 159 */
{ 
 BgL_nothreadzd2backendzd2_bglt BgL_auxz00_9847;
{ /* Llib/thread.scm 159 */
 BgL_nothreadzd2backendzd2_bglt BgL_new1056z00_4916;
{ /* Llib/thread.scm 159 */
 bool_t BgL_test3485z00_9848;
{ /* Llib/thread.scm 159 */
 obj_t BgL_classz00_4876;
BgL_classz00_4876 = BGl_nothreadzd2backendzd2zz__threadz00; 
if(
BGL_OBJECTP(BgL_new1056z00_3594))
{ /* Llib/thread.scm 159 */
 BgL_objectz00_bglt BgL_arg1953z00_4878; long BgL_arg1954z00_4879;
BgL_arg1953z00_4878 = 
(BgL_objectz00_bglt)(BgL_new1056z00_3594); 
BgL_arg1954z00_4879 = 
BGL_CLASS_DEPTH(BgL_classz00_4876); 
if(
BGL_CONDEXPAND_ISA_ARCH64())
{ /* Llib/thread.scm 159 */
 long BgL_idxz00_4887;
BgL_idxz00_4887 = 
BGL_OBJECT_INHERITANCE_NUM(BgL_arg1953z00_4878); 
{ /* Llib/thread.scm 159 */
 obj_t BgL_arg1943z00_4888;
{ /* Llib/thread.scm 159 */
 long BgL_arg1944z00_4889;
BgL_arg1944z00_4889 = 
(BgL_idxz00_4887+BgL_arg1954z00_4879); 
BgL_arg1943z00_4888 = 
VECTOR_REF(BGl_za2inheritancesza2z00zz__objectz00,BgL_arg1944z00_4889); } 
BgL_test3485z00_9848 = 
(BgL_arg1943z00_4888==BgL_classz00_4876); } }  else 
{ /* Llib/thread.scm 159 */
 bool_t BgL_res2066z00_4894;
{ /* Llib/thread.scm 159 */
 obj_t BgL_oclassz00_4898;
{ /* Llib/thread.scm 159 */
 obj_t BgL_arg1959z00_4900; long BgL_arg1960z00_4901;
BgL_arg1959z00_4900 = 
(BGl_za2classesza2z00zz__objectz00); 
{ /* Llib/thread.scm 159 */
 long BgL_arg1961z00_4902;
BgL_arg1961z00_4902 = 
BGL_OBJECT_CLASS_NUM(BgL_arg1953z00_4878); 
BgL_arg1960z00_4901 = 
(BgL_arg1961z00_4902-OBJECT_TYPE); } 
BgL_oclassz00_4898 = 
VECTOR_REF(BgL_arg1959z00_4900,BgL_arg1960z00_4901); } 
{ /* Llib/thread.scm 159 */
 bool_t BgL__ortest_1149z00_4908;
BgL__ortest_1149z00_4908 = 
(BgL_classz00_4876==BgL_oclassz00_4898); 
if(BgL__ortest_1149z00_4908)
{ /* Llib/thread.scm 159 */
BgL_res2066z00_4894 = BgL__ortest_1149z00_4908; }  else 
{ /* Llib/thread.scm 159 */
 long BgL_odepthz00_4909;
{ /* Llib/thread.scm 159 */
 obj_t BgL_arg1947z00_4910;
BgL_arg1947z00_4910 = 
(BgL_oclassz00_4898); 
BgL_odepthz00_4909 = 
BGL_CLASS_DEPTH(BgL_arg1947z00_4910); } 
if(
(BgL_arg1954z00_4879<BgL_odepthz00_4909))
{ /* Llib/thread.scm 159 */
 obj_t BgL_arg1945z00_4914;
{ /* Llib/thread.scm 159 */
 obj_t BgL_arg1946z00_4915;
BgL_arg1946z00_4915 = 
(BgL_oclassz00_4898); 
BgL_arg1945z00_4914 = 
BGL_CLASS_ANCESTORS_REF(BgL_arg1946z00_4915, BgL_arg1954z00_4879); } 
BgL_res2066z00_4894 = 
(BgL_arg1945z00_4914==BgL_classz00_4876); }  else 
{ /* Llib/thread.scm 159 */
BgL_res2066z00_4894 = ((bool_t)0); } } } } 
BgL_test3485z00_9848 = BgL_res2066z00_4894; } }  else 
{ /* Llib/thread.scm 159 */
BgL_test3485z00_9848 = ((bool_t)0)
; } } 
if(BgL_test3485z00_9848)
{ /* Llib/thread.scm 159 */
BgL_new1056z00_4916 = 
((BgL_nothreadzd2backendzd2_bglt)BgL_new1056z00_3594); }  else 
{ 
 obj_t BgL_auxz00_9873;
BgL_auxz00_9873 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2484z00zz__threadz00, 
BINT(5661L), BGl_string2629z00zz__threadz00, BGl_string2627z00zz__threadz00, BgL_new1056z00_3594); 
FAILURE(BgL_auxz00_9873,BFALSE,BFALSE);} } 
((((BgL_threadzd2backendzd2_bglt)COBJECT(
((BgL_threadzd2backendzd2_bglt)BgL_new1056z00_4916)))->BgL_namez00)=((obj_t)BGl_string2628z00zz__threadz00),BUNSPEC); 
BgL_auxz00_9847 = BgL_new1056z00_4916; } 
return 
((obj_t)BgL_auxz00_9847);} } 

}



/* &lambda1487 */
BgL_nothreadzd2backendzd2_bglt BGl_z62lambda1487z62zz__threadz00(obj_t BgL_envz00_3595)
{
{ /* Llib/thread.scm 159 */
{ /* Llib/thread.scm 159 */
 BgL_nothreadzd2backendzd2_bglt BgL_new1055z00_4917;
BgL_new1055z00_4917 = 
((BgL_nothreadzd2backendzd2_bglt)BOBJECT( GC_MALLOC( sizeof(struct BgL_nothreadzd2backendzd2_bgl) ))); 
{ /* Llib/thread.scm 159 */
 long BgL_arg1488z00_4918;
BgL_arg1488z00_4918 = 
BGL_CLASS_NUM(BGl_nothreadzd2backendzd2zz__threadz00); 
BGL_OBJECT_CLASS_NUM_SET(
((BgL_objectz00_bglt)BgL_new1055z00_4917), BgL_arg1488z00_4918); } 
return BgL_new1055z00_4917;} } 

}



/* &lambda1484 */
BgL_nothreadzd2backendzd2_bglt BGl_z62lambda1484z62zz__threadz00(obj_t BgL_envz00_3596, obj_t BgL_name1054z00_3597)
{
{ /* Llib/thread.scm 159 */
{ /* Llib/thread.scm 159 */
 obj_t BgL_name1054z00_4919;
if(
STRINGP(BgL_name1054z00_3597))
{ /* Llib/thread.scm 159 */
BgL_name1054z00_4919 = BgL_name1054z00_3597; }  else 
{ 
 obj_t BgL_auxz00_9886;
BgL_auxz00_9886 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2484z00zz__threadz00, 
BINT(5661L), BGl_string2630z00zz__threadz00, BGl_string2492z00zz__threadz00, BgL_name1054z00_3597); 
FAILURE(BgL_auxz00_9886,BFALSE,BFALSE);} 
{ /* Llib/thread.scm 159 */
 BgL_nothreadzd2backendzd2_bglt BgL_new1120z00_4920;
{ /* Llib/thread.scm 159 */
 BgL_nothreadzd2backendzd2_bglt BgL_new1118z00_4921;
BgL_new1118z00_4921 = 
((BgL_nothreadzd2backendzd2_bglt)BOBJECT( GC_MALLOC( sizeof(struct BgL_nothreadzd2backendzd2_bgl) ))); 
{ /* Llib/thread.scm 159 */
 long BgL_arg1486z00_4922;
BgL_arg1486z00_4922 = 
BGL_CLASS_NUM(BGl_nothreadzd2backendzd2zz__threadz00); 
BGL_OBJECT_CLASS_NUM_SET(
((BgL_objectz00_bglt)BgL_new1118z00_4921), BgL_arg1486z00_4922); } 
BgL_new1120z00_4920 = BgL_new1118z00_4921; } 
((((BgL_threadzd2backendzd2_bglt)COBJECT(
((BgL_threadzd2backendzd2_bglt)BgL_new1120z00_4920)))->BgL_namez00)=((obj_t)BgL_name1054z00_4919),BUNSPEC); 
return BgL_new1120z00_4920;} } } 

}



/* &<@anonymous:1433> */
obj_t BGl_z62zc3z04anonymousza31433ze3ze5zz__threadz00(obj_t BgL_envz00_3598, obj_t BgL_new1052z00_3599)
{
{ /* Llib/thread.scm 170 */
{ 
 BgL_nothreadz00_bglt BgL_auxz00_9896;
{ /* Llib/thread.scm 170 */
 BgL_nothreadz00_bglt BgL_new1052z00_4963;
{ /* Llib/thread.scm 170 */
 bool_t BgL_test3491z00_9897;
{ /* Llib/thread.scm 170 */
 obj_t BgL_classz00_4923;
BgL_classz00_4923 = BGl_nothreadz00zz__threadz00; 
if(
BGL_OBJECTP(BgL_new1052z00_3599))
{ /* Llib/thread.scm 170 */
 BgL_objectz00_bglt BgL_arg1953z00_4925; long BgL_arg1954z00_4926;
BgL_arg1953z00_4925 = 
(BgL_objectz00_bglt)(BgL_new1052z00_3599); 
BgL_arg1954z00_4926 = 
BGL_CLASS_DEPTH(BgL_classz00_4923); 
if(
BGL_CONDEXPAND_ISA_ARCH64())
{ /* Llib/thread.scm 170 */
 long BgL_idxz00_4934;
BgL_idxz00_4934 = 
BGL_OBJECT_INHERITANCE_NUM(BgL_arg1953z00_4925); 
{ /* Llib/thread.scm 170 */
 obj_t BgL_arg1943z00_4935;
{ /* Llib/thread.scm 170 */
 long BgL_arg1944z00_4936;
BgL_arg1944z00_4936 = 
(BgL_idxz00_4934+BgL_arg1954z00_4926); 
BgL_arg1943z00_4935 = 
VECTOR_REF(BGl_za2inheritancesza2z00zz__objectz00,BgL_arg1944z00_4936); } 
BgL_test3491z00_9897 = 
(BgL_arg1943z00_4935==BgL_classz00_4923); } }  else 
{ /* Llib/thread.scm 170 */
 bool_t BgL_res2066z00_4941;
{ /* Llib/thread.scm 170 */
 obj_t BgL_oclassz00_4945;
{ /* Llib/thread.scm 170 */
 obj_t BgL_arg1959z00_4947; long BgL_arg1960z00_4948;
BgL_arg1959z00_4947 = 
(BGl_za2classesza2z00zz__objectz00); 
{ /* Llib/thread.scm 170 */
 long BgL_arg1961z00_4949;
BgL_arg1961z00_4949 = 
BGL_OBJECT_CLASS_NUM(BgL_arg1953z00_4925); 
BgL_arg1960z00_4948 = 
(BgL_arg1961z00_4949-OBJECT_TYPE); } 
BgL_oclassz00_4945 = 
VECTOR_REF(BgL_arg1959z00_4947,BgL_arg1960z00_4948); } 
{ /* Llib/thread.scm 170 */
 bool_t BgL__ortest_1149z00_4955;
BgL__ortest_1149z00_4955 = 
(BgL_classz00_4923==BgL_oclassz00_4945); 
if(BgL__ortest_1149z00_4955)
{ /* Llib/thread.scm 170 */
BgL_res2066z00_4941 = BgL__ortest_1149z00_4955; }  else 
{ /* Llib/thread.scm 170 */
 long BgL_odepthz00_4956;
{ /* Llib/thread.scm 170 */
 obj_t BgL_arg1947z00_4957;
BgL_arg1947z00_4957 = 
(BgL_oclassz00_4945); 
BgL_odepthz00_4956 = 
BGL_CLASS_DEPTH(BgL_arg1947z00_4957); } 
if(
(BgL_arg1954z00_4926<BgL_odepthz00_4956))
{ /* Llib/thread.scm 170 */
 obj_t BgL_arg1945z00_4961;
{ /* Llib/thread.scm 170 */
 obj_t BgL_arg1946z00_4962;
BgL_arg1946z00_4962 = 
(BgL_oclassz00_4945); 
BgL_arg1945z00_4961 = 
BGL_CLASS_ANCESTORS_REF(BgL_arg1946z00_4962, BgL_arg1954z00_4926); } 
BgL_res2066z00_4941 = 
(BgL_arg1945z00_4961==BgL_classz00_4923); }  else 
{ /* Llib/thread.scm 170 */
BgL_res2066z00_4941 = ((bool_t)0); } } } } 
BgL_test3491z00_9897 = BgL_res2066z00_4941; } }  else 
{ /* Llib/thread.scm 170 */
BgL_test3491z00_9897 = ((bool_t)0)
; } } 
if(BgL_test3491z00_9897)
{ /* Llib/thread.scm 170 */
BgL_new1052z00_4963 = 
((BgL_nothreadz00_bglt)BgL_new1052z00_3599); }  else 
{ 
 obj_t BgL_auxz00_9922;
BgL_auxz00_9922 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2484z00zz__threadz00, 
BINT(6013L), BGl_string2631z00zz__threadz00, BGl_string2483z00zz__threadz00, BgL_new1052z00_3599); 
FAILURE(BgL_auxz00_9922,BFALSE,BFALSE);} } 
((((BgL_threadz00_bglt)COBJECT(
((BgL_threadz00_bglt)BgL_new1052z00_4963)))->BgL_namez00)=((obj_t)BUNSPEC),BUNSPEC); 
((((BgL_nothreadz00_bglt)COBJECT(BgL_new1052z00_4963))->BgL_bodyz00)=((obj_t)BGl_conszd2envzd2zz__r4_pairs_and_lists_6_3z00),BUNSPEC); 
((((BgL_nothreadz00_bglt)COBJECT(BgL_new1052z00_4963))->BgL_z52specificz52)=((obj_t)BUNSPEC),BUNSPEC); 
((((BgL_nothreadz00_bglt)COBJECT(BgL_new1052z00_4963))->BgL_z52cleanupz52)=((obj_t)BUNSPEC),BUNSPEC); 
((((BgL_nothreadz00_bglt)COBJECT(BgL_new1052z00_4963))->BgL_endzd2resultzd2)=((obj_t)BUNSPEC),BUNSPEC); 
((((BgL_nothreadz00_bglt)COBJECT(BgL_new1052z00_4963))->BgL_endzd2exceptionzd2)=((obj_t)BUNSPEC),BUNSPEC); 
((((BgL_nothreadz00_bglt)COBJECT(BgL_new1052z00_4963))->BgL_z52namez52)=((obj_t)BGl_string2628z00zz__threadz00),BUNSPEC); 
BgL_auxz00_9896 = BgL_new1052z00_4963; } 
return 
((obj_t)BgL_auxz00_9896);} } 

}



/* &lambda1431 */
BgL_nothreadz00_bglt BGl_z62lambda1431z62zz__threadz00(obj_t BgL_envz00_3600)
{
{ /* Llib/thread.scm 170 */
{ /* Llib/thread.scm 170 */
 BgL_nothreadz00_bglt BgL_new1051z00_4964;
BgL_new1051z00_4964 = 
((BgL_nothreadz00_bglt)BOBJECT( GC_MALLOC( sizeof(struct BgL_nothreadz00_bgl) ))); 
{ /* Llib/thread.scm 170 */
 long BgL_arg1432z00_4965;
BgL_arg1432z00_4965 = 
BGL_CLASS_NUM(BGl_nothreadz00zz__threadz00); 
BGL_OBJECT_CLASS_NUM_SET(
((BgL_objectz00_bglt)BgL_new1051z00_4964), BgL_arg1432z00_4965); } 
return BgL_new1051z00_4964;} } 

}



/* &lambda1427 */
BgL_nothreadz00_bglt BGl_z62lambda1427z62zz__threadz00(obj_t BgL_envz00_3601, obj_t BgL_name1044z00_3602, obj_t BgL_body1045z00_3603, obj_t BgL_z52specific1046z52_3604, obj_t BgL_z52cleanup1047z52_3605, obj_t BgL_endzd2result1048zd2_3606, obj_t BgL_endzd2exception1049zd2_3607, obj_t BgL_z52name1050z52_3608)
{
{ /* Llib/thread.scm 170 */
{ /* Llib/thread.scm 170 */
 obj_t BgL_body1045z00_4966; obj_t BgL_z52name1050z52_4967;
if(
PROCEDUREP(BgL_body1045z00_3603))
{ /* Llib/thread.scm 170 */
BgL_body1045z00_4966 = BgL_body1045z00_3603; }  else 
{ 
 obj_t BgL_auxz00_9941;
BgL_auxz00_9941 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2484z00zz__threadz00, 
BINT(6013L), BGl_string2639z00zz__threadz00, BGl_string2501z00zz__threadz00, BgL_body1045z00_3603); 
FAILURE(BgL_auxz00_9941,BFALSE,BFALSE);} 
if(
STRINGP(BgL_z52name1050z52_3608))
{ /* Llib/thread.scm 170 */
BgL_z52name1050z52_4967 = BgL_z52name1050z52_3608; }  else 
{ 
 obj_t BgL_auxz00_9947;
BgL_auxz00_9947 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2484z00zz__threadz00, 
BINT(6013L), BGl_string2639z00zz__threadz00, BGl_string2492z00zz__threadz00, BgL_z52name1050z52_3608); 
FAILURE(BgL_auxz00_9947,BFALSE,BFALSE);} 
{ /* Llib/thread.scm 170 */
 BgL_nothreadz00_bglt BgL_new1117z00_4968;
{ /* Llib/thread.scm 170 */
 BgL_nothreadz00_bglt BgL_new1116z00_4969;
BgL_new1116z00_4969 = 
((BgL_nothreadz00_bglt)BOBJECT( GC_MALLOC( sizeof(struct BgL_nothreadz00_bgl) ))); 
{ /* Llib/thread.scm 170 */
 long BgL_arg1430z00_4970;
BgL_arg1430z00_4970 = 
BGL_CLASS_NUM(BGl_nothreadz00zz__threadz00); 
BGL_OBJECT_CLASS_NUM_SET(
((BgL_objectz00_bglt)BgL_new1116z00_4969), BgL_arg1430z00_4970); } 
BgL_new1117z00_4968 = BgL_new1116z00_4969; } 
((((BgL_threadz00_bglt)COBJECT(
((BgL_threadz00_bglt)BgL_new1117z00_4968)))->BgL_namez00)=((obj_t)BgL_name1044z00_3602),BUNSPEC); 
((((BgL_nothreadz00_bglt)COBJECT(BgL_new1117z00_4968))->BgL_bodyz00)=((obj_t)BgL_body1045z00_4966),BUNSPEC); 
((((BgL_nothreadz00_bglt)COBJECT(BgL_new1117z00_4968))->BgL_z52specificz52)=((obj_t)BgL_z52specific1046z52_3604),BUNSPEC); 
((((BgL_nothreadz00_bglt)COBJECT(BgL_new1117z00_4968))->BgL_z52cleanupz52)=((obj_t)BgL_z52cleanup1047z52_3605),BUNSPEC); 
((((BgL_nothreadz00_bglt)COBJECT(BgL_new1117z00_4968))->BgL_endzd2resultzd2)=((obj_t)BgL_endzd2result1048zd2_3606),BUNSPEC); 
((((BgL_nothreadz00_bglt)COBJECT(BgL_new1117z00_4968))->BgL_endzd2exceptionzd2)=((obj_t)BgL_endzd2exception1049zd2_3607),BUNSPEC); 
((((BgL_nothreadz00_bglt)COBJECT(BgL_new1117z00_4968))->BgL_z52namez52)=((obj_t)BgL_z52name1050z52_4967),BUNSPEC); 
{ /* Llib/thread.scm 170 */
 obj_t BgL_fun1429z00_4971;
BgL_fun1429z00_4971 = 
BGl_classzd2constructorzd2zz__objectz00(BGl_nothreadz00zz__threadz00); 
{ /* Llib/thread.scm 170 */
 obj_t BgL_funz00_4972;
if(
PROCEDUREP(BgL_fun1429z00_4971))
{ /* Llib/thread.scm 170 */
BgL_funz00_4972 = BgL_fun1429z00_4971; }  else 
{ 
 obj_t BgL_auxz00_9966;
BgL_auxz00_9966 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2484z00zz__threadz00, 
BINT(6013L), BGl_string2632z00zz__threadz00, BGl_string2501z00zz__threadz00, BgL_fun1429z00_4971); 
FAILURE(BgL_auxz00_9966,BFALSE,BFALSE);} 
if(
PROCEDURE_CORRECT_ARITYP(BgL_funz00_4972, 1))
{ /* Llib/thread.scm 170 */
(VA_PROCEDUREP( BgL_funz00_4972 ) ? ((obj_t (*)(obj_t, ...))PROCEDURE_ENTRY(BgL_funz00_4972))(BgL_fun1429z00_4971, 
((obj_t)BgL_new1117z00_4968), BEOA) : ((obj_t (*)(obj_t, obj_t))PROCEDURE_ENTRY(BgL_funz00_4972))(BgL_fun1429z00_4971, 
((obj_t)BgL_new1117z00_4968)) ); }  else 
{ /* Llib/thread.scm 170 */
FAILURE(BGl_string2633z00zz__threadz00,BGl_list2634z00zz__threadz00,BgL_funz00_4972);} } } 
return BgL_new1117z00_4968;} } } 

}



/* &<@anonymous:1477> */
obj_t BGl_z62zc3z04anonymousza31477ze3ze5zz__threadz00(obj_t BgL_envz00_3609)
{
{ /* Llib/thread.scm 170 */
return BGl_string2640z00zz__threadz00;} 

}



/* &lambda1476 */
obj_t BGl_z62lambda1476z62zz__threadz00(obj_t BgL_envz00_3610, obj_t BgL_oz00_3611, obj_t BgL_vz00_3612)
{
{ /* Llib/thread.scm 170 */
{ /* Llib/thread.scm 170 */
 BgL_nothreadz00_bglt BgL_oz00_5013; obj_t BgL_vz00_5014;
{ /* Llib/thread.scm 170 */
 bool_t BgL_test3500z00_9978;
{ /* Llib/thread.scm 170 */
 obj_t BgL_classz00_4973;
BgL_classz00_4973 = BGl_nothreadz00zz__threadz00; 
if(
BGL_OBJECTP(BgL_oz00_3611))
{ /* Llib/thread.scm 170 */
 BgL_objectz00_bglt BgL_arg1953z00_4975; long BgL_arg1954z00_4976;
BgL_arg1953z00_4975 = 
(BgL_objectz00_bglt)(BgL_oz00_3611); 
BgL_arg1954z00_4976 = 
BGL_CLASS_DEPTH(BgL_classz00_4973); 
if(
BGL_CONDEXPAND_ISA_ARCH64())
{ /* Llib/thread.scm 170 */
 long BgL_idxz00_4984;
BgL_idxz00_4984 = 
BGL_OBJECT_INHERITANCE_NUM(BgL_arg1953z00_4975); 
{ /* Llib/thread.scm 170 */
 obj_t BgL_arg1943z00_4985;
{ /* Llib/thread.scm 170 */
 long BgL_arg1944z00_4986;
BgL_arg1944z00_4986 = 
(BgL_idxz00_4984+BgL_arg1954z00_4976); 
BgL_arg1943z00_4985 = 
VECTOR_REF(BGl_za2inheritancesza2z00zz__objectz00,BgL_arg1944z00_4986); } 
BgL_test3500z00_9978 = 
(BgL_arg1943z00_4985==BgL_classz00_4973); } }  else 
{ /* Llib/thread.scm 170 */
 bool_t BgL_res2066z00_4991;
{ /* Llib/thread.scm 170 */
 obj_t BgL_oclassz00_4995;
{ /* Llib/thread.scm 170 */
 obj_t BgL_arg1959z00_4997; long BgL_arg1960z00_4998;
BgL_arg1959z00_4997 = 
(BGl_za2classesza2z00zz__objectz00); 
{ /* Llib/thread.scm 170 */
 long BgL_arg1961z00_4999;
BgL_arg1961z00_4999 = 
BGL_OBJECT_CLASS_NUM(BgL_arg1953z00_4975); 
BgL_arg1960z00_4998 = 
(BgL_arg1961z00_4999-OBJECT_TYPE); } 
BgL_oclassz00_4995 = 
VECTOR_REF(BgL_arg1959z00_4997,BgL_arg1960z00_4998); } 
{ /* Llib/thread.scm 170 */
 bool_t BgL__ortest_1149z00_5005;
BgL__ortest_1149z00_5005 = 
(BgL_classz00_4973==BgL_oclassz00_4995); 
if(BgL__ortest_1149z00_5005)
{ /* Llib/thread.scm 170 */
BgL_res2066z00_4991 = BgL__ortest_1149z00_5005; }  else 
{ /* Llib/thread.scm 170 */
 long BgL_odepthz00_5006;
{ /* Llib/thread.scm 170 */
 obj_t BgL_arg1947z00_5007;
BgL_arg1947z00_5007 = 
(BgL_oclassz00_4995); 
BgL_odepthz00_5006 = 
BGL_CLASS_DEPTH(BgL_arg1947z00_5007); } 
if(
(BgL_arg1954z00_4976<BgL_odepthz00_5006))
{ /* Llib/thread.scm 170 */
 obj_t BgL_arg1945z00_5011;
{ /* Llib/thread.scm 170 */
 obj_t BgL_arg1946z00_5012;
BgL_arg1946z00_5012 = 
(BgL_oclassz00_4995); 
BgL_arg1945z00_5011 = 
BGL_CLASS_ANCESTORS_REF(BgL_arg1946z00_5012, BgL_arg1954z00_4976); } 
BgL_res2066z00_4991 = 
(BgL_arg1945z00_5011==BgL_classz00_4973); }  else 
{ /* Llib/thread.scm 170 */
BgL_res2066z00_4991 = ((bool_t)0); } } } } 
BgL_test3500z00_9978 = BgL_res2066z00_4991; } }  else 
{ /* Llib/thread.scm 170 */
BgL_test3500z00_9978 = ((bool_t)0)
; } } 
if(BgL_test3500z00_9978)
{ /* Llib/thread.scm 170 */
BgL_oz00_5013 = 
((BgL_nothreadz00_bglt)BgL_oz00_3611); }  else 
{ 
 obj_t BgL_auxz00_10003;
BgL_auxz00_10003 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2484z00zz__threadz00, 
BINT(6013L), BGl_string2641z00zz__threadz00, BGl_string2483z00zz__threadz00, BgL_oz00_3611); 
FAILURE(BgL_auxz00_10003,BFALSE,BFALSE);} } 
if(
STRINGP(BgL_vz00_3612))
{ /* Llib/thread.scm 170 */
BgL_vz00_5014 = BgL_vz00_3612; }  else 
{ 
 obj_t BgL_auxz00_10009;
BgL_auxz00_10009 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2484z00zz__threadz00, 
BINT(6013L), BGl_string2641z00zz__threadz00, BGl_string2492z00zz__threadz00, BgL_vz00_3612); 
FAILURE(BgL_auxz00_10009,BFALSE,BFALSE);} 
return 
((((BgL_nothreadz00_bglt)COBJECT(BgL_oz00_5013))->BgL_z52namez52)=((obj_t)BgL_vz00_5014),BUNSPEC);} } 

}



/* &lambda1475 */
obj_t BGl_z62lambda1475z62zz__threadz00(obj_t BgL_envz00_3613, obj_t BgL_oz00_3614)
{
{ /* Llib/thread.scm 170 */
{ /* Llib/thread.scm 170 */
 BgL_nothreadz00_bglt BgL_oz00_5055;
{ /* Llib/thread.scm 170 */
 bool_t BgL_test3506z00_10014;
{ /* Llib/thread.scm 170 */
 obj_t BgL_classz00_5015;
BgL_classz00_5015 = BGl_nothreadz00zz__threadz00; 
if(
BGL_OBJECTP(BgL_oz00_3614))
{ /* Llib/thread.scm 170 */
 BgL_objectz00_bglt BgL_arg1953z00_5017; long BgL_arg1954z00_5018;
BgL_arg1953z00_5017 = 
(BgL_objectz00_bglt)(BgL_oz00_3614); 
BgL_arg1954z00_5018 = 
BGL_CLASS_DEPTH(BgL_classz00_5015); 
if(
BGL_CONDEXPAND_ISA_ARCH64())
{ /* Llib/thread.scm 170 */
 long BgL_idxz00_5026;
BgL_idxz00_5026 = 
BGL_OBJECT_INHERITANCE_NUM(BgL_arg1953z00_5017); 
{ /* Llib/thread.scm 170 */
 obj_t BgL_arg1943z00_5027;
{ /* Llib/thread.scm 170 */
 long BgL_arg1944z00_5028;
BgL_arg1944z00_5028 = 
(BgL_idxz00_5026+BgL_arg1954z00_5018); 
BgL_arg1943z00_5027 = 
VECTOR_REF(BGl_za2inheritancesza2z00zz__objectz00,BgL_arg1944z00_5028); } 
BgL_test3506z00_10014 = 
(BgL_arg1943z00_5027==BgL_classz00_5015); } }  else 
{ /* Llib/thread.scm 170 */
 bool_t BgL_res2066z00_5033;
{ /* Llib/thread.scm 170 */
 obj_t BgL_oclassz00_5037;
{ /* Llib/thread.scm 170 */
 obj_t BgL_arg1959z00_5039; long BgL_arg1960z00_5040;
BgL_arg1959z00_5039 = 
(BGl_za2classesza2z00zz__objectz00); 
{ /* Llib/thread.scm 170 */
 long BgL_arg1961z00_5041;
BgL_arg1961z00_5041 = 
BGL_OBJECT_CLASS_NUM(BgL_arg1953z00_5017); 
BgL_arg1960z00_5040 = 
(BgL_arg1961z00_5041-OBJECT_TYPE); } 
BgL_oclassz00_5037 = 
VECTOR_REF(BgL_arg1959z00_5039,BgL_arg1960z00_5040); } 
{ /* Llib/thread.scm 170 */
 bool_t BgL__ortest_1149z00_5047;
BgL__ortest_1149z00_5047 = 
(BgL_classz00_5015==BgL_oclassz00_5037); 
if(BgL__ortest_1149z00_5047)
{ /* Llib/thread.scm 170 */
BgL_res2066z00_5033 = BgL__ortest_1149z00_5047; }  else 
{ /* Llib/thread.scm 170 */
 long BgL_odepthz00_5048;
{ /* Llib/thread.scm 170 */
 obj_t BgL_arg1947z00_5049;
BgL_arg1947z00_5049 = 
(BgL_oclassz00_5037); 
BgL_odepthz00_5048 = 
BGL_CLASS_DEPTH(BgL_arg1947z00_5049); } 
if(
(BgL_arg1954z00_5018<BgL_odepthz00_5048))
{ /* Llib/thread.scm 170 */
 obj_t BgL_arg1945z00_5053;
{ /* Llib/thread.scm 170 */
 obj_t BgL_arg1946z00_5054;
BgL_arg1946z00_5054 = 
(BgL_oclassz00_5037); 
BgL_arg1945z00_5053 = 
BGL_CLASS_ANCESTORS_REF(BgL_arg1946z00_5054, BgL_arg1954z00_5018); } 
BgL_res2066z00_5033 = 
(BgL_arg1945z00_5053==BgL_classz00_5015); }  else 
{ /* Llib/thread.scm 170 */
BgL_res2066z00_5033 = ((bool_t)0); } } } } 
BgL_test3506z00_10014 = BgL_res2066z00_5033; } }  else 
{ /* Llib/thread.scm 170 */
BgL_test3506z00_10014 = ((bool_t)0)
; } } 
if(BgL_test3506z00_10014)
{ /* Llib/thread.scm 170 */
BgL_oz00_5055 = 
((BgL_nothreadz00_bglt)BgL_oz00_3614); }  else 
{ 
 obj_t BgL_auxz00_10039;
BgL_auxz00_10039 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2484z00zz__threadz00, 
BINT(6013L), BGl_string2642z00zz__threadz00, BGl_string2483z00zz__threadz00, BgL_oz00_3614); 
FAILURE(BgL_auxz00_10039,BFALSE,BFALSE);} } 
return 
(((BgL_nothreadz00_bglt)COBJECT(BgL_oz00_5055))->BgL_z52namez52);} } 

}



/* &<@anonymous:1470> */
obj_t BGl_z62zc3z04anonymousza31470ze3ze5zz__threadz00(obj_t BgL_envz00_3615)
{
{ /* Llib/thread.scm 170 */
return BUNSPEC;} 

}



/* &lambda1469 */
obj_t BGl_z62lambda1469z62zz__threadz00(obj_t BgL_envz00_3616, obj_t BgL_oz00_3617, obj_t BgL_vz00_3618)
{
{ /* Llib/thread.scm 170 */
{ /* Llib/thread.scm 170 */
 BgL_nothreadz00_bglt BgL_oz00_5096;
{ /* Llib/thread.scm 170 */
 bool_t BgL_test3511z00_10044;
{ /* Llib/thread.scm 170 */
 obj_t BgL_classz00_5056;
BgL_classz00_5056 = BGl_nothreadz00zz__threadz00; 
if(
BGL_OBJECTP(BgL_oz00_3617))
{ /* Llib/thread.scm 170 */
 BgL_objectz00_bglt BgL_arg1953z00_5058; long BgL_arg1954z00_5059;
BgL_arg1953z00_5058 = 
(BgL_objectz00_bglt)(BgL_oz00_3617); 
BgL_arg1954z00_5059 = 
BGL_CLASS_DEPTH(BgL_classz00_5056); 
if(
BGL_CONDEXPAND_ISA_ARCH64())
{ /* Llib/thread.scm 170 */
 long BgL_idxz00_5067;
BgL_idxz00_5067 = 
BGL_OBJECT_INHERITANCE_NUM(BgL_arg1953z00_5058); 
{ /* Llib/thread.scm 170 */
 obj_t BgL_arg1943z00_5068;
{ /* Llib/thread.scm 170 */
 long BgL_arg1944z00_5069;
BgL_arg1944z00_5069 = 
(BgL_idxz00_5067+BgL_arg1954z00_5059); 
BgL_arg1943z00_5068 = 
VECTOR_REF(BGl_za2inheritancesza2z00zz__objectz00,BgL_arg1944z00_5069); } 
BgL_test3511z00_10044 = 
(BgL_arg1943z00_5068==BgL_classz00_5056); } }  else 
{ /* Llib/thread.scm 170 */
 bool_t BgL_res2066z00_5074;
{ /* Llib/thread.scm 170 */
 obj_t BgL_oclassz00_5078;
{ /* Llib/thread.scm 170 */
 obj_t BgL_arg1959z00_5080; long BgL_arg1960z00_5081;
BgL_arg1959z00_5080 = 
(BGl_za2classesza2z00zz__objectz00); 
{ /* Llib/thread.scm 170 */
 long BgL_arg1961z00_5082;
BgL_arg1961z00_5082 = 
BGL_OBJECT_CLASS_NUM(BgL_arg1953z00_5058); 
BgL_arg1960z00_5081 = 
(BgL_arg1961z00_5082-OBJECT_TYPE); } 
BgL_oclassz00_5078 = 
VECTOR_REF(BgL_arg1959z00_5080,BgL_arg1960z00_5081); } 
{ /* Llib/thread.scm 170 */
 bool_t BgL__ortest_1149z00_5088;
BgL__ortest_1149z00_5088 = 
(BgL_classz00_5056==BgL_oclassz00_5078); 
if(BgL__ortest_1149z00_5088)
{ /* Llib/thread.scm 170 */
BgL_res2066z00_5074 = BgL__ortest_1149z00_5088; }  else 
{ /* Llib/thread.scm 170 */
 long BgL_odepthz00_5089;
{ /* Llib/thread.scm 170 */
 obj_t BgL_arg1947z00_5090;
BgL_arg1947z00_5090 = 
(BgL_oclassz00_5078); 
BgL_odepthz00_5089 = 
BGL_CLASS_DEPTH(BgL_arg1947z00_5090); } 
if(
(BgL_arg1954z00_5059<BgL_odepthz00_5089))
{ /* Llib/thread.scm 170 */
 obj_t BgL_arg1945z00_5094;
{ /* Llib/thread.scm 170 */
 obj_t BgL_arg1946z00_5095;
BgL_arg1946z00_5095 = 
(BgL_oclassz00_5078); 
BgL_arg1945z00_5094 = 
BGL_CLASS_ANCESTORS_REF(BgL_arg1946z00_5095, BgL_arg1954z00_5059); } 
BgL_res2066z00_5074 = 
(BgL_arg1945z00_5094==BgL_classz00_5056); }  else 
{ /* Llib/thread.scm 170 */
BgL_res2066z00_5074 = ((bool_t)0); } } } } 
BgL_test3511z00_10044 = BgL_res2066z00_5074; } }  else 
{ /* Llib/thread.scm 170 */
BgL_test3511z00_10044 = ((bool_t)0)
; } } 
if(BgL_test3511z00_10044)
{ /* Llib/thread.scm 170 */
BgL_oz00_5096 = 
((BgL_nothreadz00_bglt)BgL_oz00_3617); }  else 
{ 
 obj_t BgL_auxz00_10069;
BgL_auxz00_10069 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2484z00zz__threadz00, 
BINT(6013L), BGl_string2643z00zz__threadz00, BGl_string2483z00zz__threadz00, BgL_oz00_3617); 
FAILURE(BgL_auxz00_10069,BFALSE,BFALSE);} } 
return 
((((BgL_nothreadz00_bglt)COBJECT(BgL_oz00_5096))->BgL_endzd2exceptionzd2)=((obj_t)BgL_vz00_3618),BUNSPEC);} } 

}



/* &lambda1468 */
obj_t BGl_z62lambda1468z62zz__threadz00(obj_t BgL_envz00_3619, obj_t BgL_oz00_3620)
{
{ /* Llib/thread.scm 170 */
{ /* Llib/thread.scm 170 */
 BgL_nothreadz00_bglt BgL_oz00_5137;
{ /* Llib/thread.scm 170 */
 bool_t BgL_test3516z00_10074;
{ /* Llib/thread.scm 170 */
 obj_t BgL_classz00_5097;
BgL_classz00_5097 = BGl_nothreadz00zz__threadz00; 
if(
BGL_OBJECTP(BgL_oz00_3620))
{ /* Llib/thread.scm 170 */
 BgL_objectz00_bglt BgL_arg1953z00_5099; long BgL_arg1954z00_5100;
BgL_arg1953z00_5099 = 
(BgL_objectz00_bglt)(BgL_oz00_3620); 
BgL_arg1954z00_5100 = 
BGL_CLASS_DEPTH(BgL_classz00_5097); 
if(
BGL_CONDEXPAND_ISA_ARCH64())
{ /* Llib/thread.scm 170 */
 long BgL_idxz00_5108;
BgL_idxz00_5108 = 
BGL_OBJECT_INHERITANCE_NUM(BgL_arg1953z00_5099); 
{ /* Llib/thread.scm 170 */
 obj_t BgL_arg1943z00_5109;
{ /* Llib/thread.scm 170 */
 long BgL_arg1944z00_5110;
BgL_arg1944z00_5110 = 
(BgL_idxz00_5108+BgL_arg1954z00_5100); 
BgL_arg1943z00_5109 = 
VECTOR_REF(BGl_za2inheritancesza2z00zz__objectz00,BgL_arg1944z00_5110); } 
BgL_test3516z00_10074 = 
(BgL_arg1943z00_5109==BgL_classz00_5097); } }  else 
{ /* Llib/thread.scm 170 */
 bool_t BgL_res2066z00_5115;
{ /* Llib/thread.scm 170 */
 obj_t BgL_oclassz00_5119;
{ /* Llib/thread.scm 170 */
 obj_t BgL_arg1959z00_5121; long BgL_arg1960z00_5122;
BgL_arg1959z00_5121 = 
(BGl_za2classesza2z00zz__objectz00); 
{ /* Llib/thread.scm 170 */
 long BgL_arg1961z00_5123;
BgL_arg1961z00_5123 = 
BGL_OBJECT_CLASS_NUM(BgL_arg1953z00_5099); 
BgL_arg1960z00_5122 = 
(BgL_arg1961z00_5123-OBJECT_TYPE); } 
BgL_oclassz00_5119 = 
VECTOR_REF(BgL_arg1959z00_5121,BgL_arg1960z00_5122); } 
{ /* Llib/thread.scm 170 */
 bool_t BgL__ortest_1149z00_5129;
BgL__ortest_1149z00_5129 = 
(BgL_classz00_5097==BgL_oclassz00_5119); 
if(BgL__ortest_1149z00_5129)
{ /* Llib/thread.scm 170 */
BgL_res2066z00_5115 = BgL__ortest_1149z00_5129; }  else 
{ /* Llib/thread.scm 170 */
 long BgL_odepthz00_5130;
{ /* Llib/thread.scm 170 */
 obj_t BgL_arg1947z00_5131;
BgL_arg1947z00_5131 = 
(BgL_oclassz00_5119); 
BgL_odepthz00_5130 = 
BGL_CLASS_DEPTH(BgL_arg1947z00_5131); } 
if(
(BgL_arg1954z00_5100<BgL_odepthz00_5130))
{ /* Llib/thread.scm 170 */
 obj_t BgL_arg1945z00_5135;
{ /* Llib/thread.scm 170 */
 obj_t BgL_arg1946z00_5136;
BgL_arg1946z00_5136 = 
(BgL_oclassz00_5119); 
BgL_arg1945z00_5135 = 
BGL_CLASS_ANCESTORS_REF(BgL_arg1946z00_5136, BgL_arg1954z00_5100); } 
BgL_res2066z00_5115 = 
(BgL_arg1945z00_5135==BgL_classz00_5097); }  else 
{ /* Llib/thread.scm 170 */
BgL_res2066z00_5115 = ((bool_t)0); } } } } 
BgL_test3516z00_10074 = BgL_res2066z00_5115; } }  else 
{ /* Llib/thread.scm 170 */
BgL_test3516z00_10074 = ((bool_t)0)
; } } 
if(BgL_test3516z00_10074)
{ /* Llib/thread.scm 170 */
BgL_oz00_5137 = 
((BgL_nothreadz00_bglt)BgL_oz00_3620); }  else 
{ 
 obj_t BgL_auxz00_10099;
BgL_auxz00_10099 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2484z00zz__threadz00, 
BINT(6013L), BGl_string2644z00zz__threadz00, BGl_string2483z00zz__threadz00, BgL_oz00_3620); 
FAILURE(BgL_auxz00_10099,BFALSE,BFALSE);} } 
return 
(((BgL_nothreadz00_bglt)COBJECT(BgL_oz00_5137))->BgL_endzd2exceptionzd2);} } 

}



/* &<@anonymous:1462> */
obj_t BGl_z62zc3z04anonymousza31462ze3ze5zz__threadz00(obj_t BgL_envz00_3621)
{
{ /* Llib/thread.scm 170 */
return BUNSPEC;} 

}



/* &lambda1461 */
obj_t BGl_z62lambda1461z62zz__threadz00(obj_t BgL_envz00_3622, obj_t BgL_oz00_3623, obj_t BgL_vz00_3624)
{
{ /* Llib/thread.scm 170 */
{ /* Llib/thread.scm 170 */
 BgL_nothreadz00_bglt BgL_oz00_5178;
{ /* Llib/thread.scm 170 */
 bool_t BgL_test3521z00_10104;
{ /* Llib/thread.scm 170 */
 obj_t BgL_classz00_5138;
BgL_classz00_5138 = BGl_nothreadz00zz__threadz00; 
if(
BGL_OBJECTP(BgL_oz00_3623))
{ /* Llib/thread.scm 170 */
 BgL_objectz00_bglt BgL_arg1953z00_5140; long BgL_arg1954z00_5141;
BgL_arg1953z00_5140 = 
(BgL_objectz00_bglt)(BgL_oz00_3623); 
BgL_arg1954z00_5141 = 
BGL_CLASS_DEPTH(BgL_classz00_5138); 
if(
BGL_CONDEXPAND_ISA_ARCH64())
{ /* Llib/thread.scm 170 */
 long BgL_idxz00_5149;
BgL_idxz00_5149 = 
BGL_OBJECT_INHERITANCE_NUM(BgL_arg1953z00_5140); 
{ /* Llib/thread.scm 170 */
 obj_t BgL_arg1943z00_5150;
{ /* Llib/thread.scm 170 */
 long BgL_arg1944z00_5151;
BgL_arg1944z00_5151 = 
(BgL_idxz00_5149+BgL_arg1954z00_5141); 
BgL_arg1943z00_5150 = 
VECTOR_REF(BGl_za2inheritancesza2z00zz__objectz00,BgL_arg1944z00_5151); } 
BgL_test3521z00_10104 = 
(BgL_arg1943z00_5150==BgL_classz00_5138); } }  else 
{ /* Llib/thread.scm 170 */
 bool_t BgL_res2066z00_5156;
{ /* Llib/thread.scm 170 */
 obj_t BgL_oclassz00_5160;
{ /* Llib/thread.scm 170 */
 obj_t BgL_arg1959z00_5162; long BgL_arg1960z00_5163;
BgL_arg1959z00_5162 = 
(BGl_za2classesza2z00zz__objectz00); 
{ /* Llib/thread.scm 170 */
 long BgL_arg1961z00_5164;
BgL_arg1961z00_5164 = 
BGL_OBJECT_CLASS_NUM(BgL_arg1953z00_5140); 
BgL_arg1960z00_5163 = 
(BgL_arg1961z00_5164-OBJECT_TYPE); } 
BgL_oclassz00_5160 = 
VECTOR_REF(BgL_arg1959z00_5162,BgL_arg1960z00_5163); } 
{ /* Llib/thread.scm 170 */
 bool_t BgL__ortest_1149z00_5170;
BgL__ortest_1149z00_5170 = 
(BgL_classz00_5138==BgL_oclassz00_5160); 
if(BgL__ortest_1149z00_5170)
{ /* Llib/thread.scm 170 */
BgL_res2066z00_5156 = BgL__ortest_1149z00_5170; }  else 
{ /* Llib/thread.scm 170 */
 long BgL_odepthz00_5171;
{ /* Llib/thread.scm 170 */
 obj_t BgL_arg1947z00_5172;
BgL_arg1947z00_5172 = 
(BgL_oclassz00_5160); 
BgL_odepthz00_5171 = 
BGL_CLASS_DEPTH(BgL_arg1947z00_5172); } 
if(
(BgL_arg1954z00_5141<BgL_odepthz00_5171))
{ /* Llib/thread.scm 170 */
 obj_t BgL_arg1945z00_5176;
{ /* Llib/thread.scm 170 */
 obj_t BgL_arg1946z00_5177;
BgL_arg1946z00_5177 = 
(BgL_oclassz00_5160); 
BgL_arg1945z00_5176 = 
BGL_CLASS_ANCESTORS_REF(BgL_arg1946z00_5177, BgL_arg1954z00_5141); } 
BgL_res2066z00_5156 = 
(BgL_arg1945z00_5176==BgL_classz00_5138); }  else 
{ /* Llib/thread.scm 170 */
BgL_res2066z00_5156 = ((bool_t)0); } } } } 
BgL_test3521z00_10104 = BgL_res2066z00_5156; } }  else 
{ /* Llib/thread.scm 170 */
BgL_test3521z00_10104 = ((bool_t)0)
; } } 
if(BgL_test3521z00_10104)
{ /* Llib/thread.scm 170 */
BgL_oz00_5178 = 
((BgL_nothreadz00_bglt)BgL_oz00_3623); }  else 
{ 
 obj_t BgL_auxz00_10129;
BgL_auxz00_10129 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2484z00zz__threadz00, 
BINT(6013L), BGl_string2645z00zz__threadz00, BGl_string2483z00zz__threadz00, BgL_oz00_3623); 
FAILURE(BgL_auxz00_10129,BFALSE,BFALSE);} } 
return 
((((BgL_nothreadz00_bglt)COBJECT(BgL_oz00_5178))->BgL_endzd2resultzd2)=((obj_t)BgL_vz00_3624),BUNSPEC);} } 

}



/* &lambda1460 */
obj_t BGl_z62lambda1460z62zz__threadz00(obj_t BgL_envz00_3625, obj_t BgL_oz00_3626)
{
{ /* Llib/thread.scm 170 */
{ /* Llib/thread.scm 170 */
 BgL_nothreadz00_bglt BgL_oz00_5219;
{ /* Llib/thread.scm 170 */
 bool_t BgL_test3526z00_10134;
{ /* Llib/thread.scm 170 */
 obj_t BgL_classz00_5179;
BgL_classz00_5179 = BGl_nothreadz00zz__threadz00; 
if(
BGL_OBJECTP(BgL_oz00_3626))
{ /* Llib/thread.scm 170 */
 BgL_objectz00_bglt BgL_arg1953z00_5181; long BgL_arg1954z00_5182;
BgL_arg1953z00_5181 = 
(BgL_objectz00_bglt)(BgL_oz00_3626); 
BgL_arg1954z00_5182 = 
BGL_CLASS_DEPTH(BgL_classz00_5179); 
if(
BGL_CONDEXPAND_ISA_ARCH64())
{ /* Llib/thread.scm 170 */
 long BgL_idxz00_5190;
BgL_idxz00_5190 = 
BGL_OBJECT_INHERITANCE_NUM(BgL_arg1953z00_5181); 
{ /* Llib/thread.scm 170 */
 obj_t BgL_arg1943z00_5191;
{ /* Llib/thread.scm 170 */
 long BgL_arg1944z00_5192;
BgL_arg1944z00_5192 = 
(BgL_idxz00_5190+BgL_arg1954z00_5182); 
BgL_arg1943z00_5191 = 
VECTOR_REF(BGl_za2inheritancesza2z00zz__objectz00,BgL_arg1944z00_5192); } 
BgL_test3526z00_10134 = 
(BgL_arg1943z00_5191==BgL_classz00_5179); } }  else 
{ /* Llib/thread.scm 170 */
 bool_t BgL_res2066z00_5197;
{ /* Llib/thread.scm 170 */
 obj_t BgL_oclassz00_5201;
{ /* Llib/thread.scm 170 */
 obj_t BgL_arg1959z00_5203; long BgL_arg1960z00_5204;
BgL_arg1959z00_5203 = 
(BGl_za2classesza2z00zz__objectz00); 
{ /* Llib/thread.scm 170 */
 long BgL_arg1961z00_5205;
BgL_arg1961z00_5205 = 
BGL_OBJECT_CLASS_NUM(BgL_arg1953z00_5181); 
BgL_arg1960z00_5204 = 
(BgL_arg1961z00_5205-OBJECT_TYPE); } 
BgL_oclassz00_5201 = 
VECTOR_REF(BgL_arg1959z00_5203,BgL_arg1960z00_5204); } 
{ /* Llib/thread.scm 170 */
 bool_t BgL__ortest_1149z00_5211;
BgL__ortest_1149z00_5211 = 
(BgL_classz00_5179==BgL_oclassz00_5201); 
if(BgL__ortest_1149z00_5211)
{ /* Llib/thread.scm 170 */
BgL_res2066z00_5197 = BgL__ortest_1149z00_5211; }  else 
{ /* Llib/thread.scm 170 */
 long BgL_odepthz00_5212;
{ /* Llib/thread.scm 170 */
 obj_t BgL_arg1947z00_5213;
BgL_arg1947z00_5213 = 
(BgL_oclassz00_5201); 
BgL_odepthz00_5212 = 
BGL_CLASS_DEPTH(BgL_arg1947z00_5213); } 
if(
(BgL_arg1954z00_5182<BgL_odepthz00_5212))
{ /* Llib/thread.scm 170 */
 obj_t BgL_arg1945z00_5217;
{ /* Llib/thread.scm 170 */
 obj_t BgL_arg1946z00_5218;
BgL_arg1946z00_5218 = 
(BgL_oclassz00_5201); 
BgL_arg1945z00_5217 = 
BGL_CLASS_ANCESTORS_REF(BgL_arg1946z00_5218, BgL_arg1954z00_5182); } 
BgL_res2066z00_5197 = 
(BgL_arg1945z00_5217==BgL_classz00_5179); }  else 
{ /* Llib/thread.scm 170 */
BgL_res2066z00_5197 = ((bool_t)0); } } } } 
BgL_test3526z00_10134 = BgL_res2066z00_5197; } }  else 
{ /* Llib/thread.scm 170 */
BgL_test3526z00_10134 = ((bool_t)0)
; } } 
if(BgL_test3526z00_10134)
{ /* Llib/thread.scm 170 */
BgL_oz00_5219 = 
((BgL_nothreadz00_bglt)BgL_oz00_3626); }  else 
{ 
 obj_t BgL_auxz00_10159;
BgL_auxz00_10159 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2484z00zz__threadz00, 
BINT(6013L), BGl_string2646z00zz__threadz00, BGl_string2483z00zz__threadz00, BgL_oz00_3626); 
FAILURE(BgL_auxz00_10159,BFALSE,BFALSE);} } 
return 
(((BgL_nothreadz00_bglt)COBJECT(BgL_oz00_5219))->BgL_endzd2resultzd2);} } 

}



/* &<@anonymous:1455> */
obj_t BGl_z62zc3z04anonymousza31455ze3ze5zz__threadz00(obj_t BgL_envz00_3627)
{
{ /* Llib/thread.scm 170 */
return 
BBOOL(((bool_t)0));} 

}



/* &lambda1454 */
obj_t BGl_z62lambda1454z62zz__threadz00(obj_t BgL_envz00_3628, obj_t BgL_oz00_3629, obj_t BgL_vz00_3630)
{
{ /* Llib/thread.scm 170 */
{ /* Llib/thread.scm 170 */
 BgL_nothreadz00_bglt BgL_oz00_5260;
{ /* Llib/thread.scm 170 */
 bool_t BgL_test3531z00_10165;
{ /* Llib/thread.scm 170 */
 obj_t BgL_classz00_5220;
BgL_classz00_5220 = BGl_nothreadz00zz__threadz00; 
if(
BGL_OBJECTP(BgL_oz00_3629))
{ /* Llib/thread.scm 170 */
 BgL_objectz00_bglt BgL_arg1953z00_5222; long BgL_arg1954z00_5223;
BgL_arg1953z00_5222 = 
(BgL_objectz00_bglt)(BgL_oz00_3629); 
BgL_arg1954z00_5223 = 
BGL_CLASS_DEPTH(BgL_classz00_5220); 
if(
BGL_CONDEXPAND_ISA_ARCH64())
{ /* Llib/thread.scm 170 */
 long BgL_idxz00_5231;
BgL_idxz00_5231 = 
BGL_OBJECT_INHERITANCE_NUM(BgL_arg1953z00_5222); 
{ /* Llib/thread.scm 170 */
 obj_t BgL_arg1943z00_5232;
{ /* Llib/thread.scm 170 */
 long BgL_arg1944z00_5233;
BgL_arg1944z00_5233 = 
(BgL_idxz00_5231+BgL_arg1954z00_5223); 
BgL_arg1943z00_5232 = 
VECTOR_REF(BGl_za2inheritancesza2z00zz__objectz00,BgL_arg1944z00_5233); } 
BgL_test3531z00_10165 = 
(BgL_arg1943z00_5232==BgL_classz00_5220); } }  else 
{ /* Llib/thread.scm 170 */
 bool_t BgL_res2066z00_5238;
{ /* Llib/thread.scm 170 */
 obj_t BgL_oclassz00_5242;
{ /* Llib/thread.scm 170 */
 obj_t BgL_arg1959z00_5244; long BgL_arg1960z00_5245;
BgL_arg1959z00_5244 = 
(BGl_za2classesza2z00zz__objectz00); 
{ /* Llib/thread.scm 170 */
 long BgL_arg1961z00_5246;
BgL_arg1961z00_5246 = 
BGL_OBJECT_CLASS_NUM(BgL_arg1953z00_5222); 
BgL_arg1960z00_5245 = 
(BgL_arg1961z00_5246-OBJECT_TYPE); } 
BgL_oclassz00_5242 = 
VECTOR_REF(BgL_arg1959z00_5244,BgL_arg1960z00_5245); } 
{ /* Llib/thread.scm 170 */
 bool_t BgL__ortest_1149z00_5252;
BgL__ortest_1149z00_5252 = 
(BgL_classz00_5220==BgL_oclassz00_5242); 
if(BgL__ortest_1149z00_5252)
{ /* Llib/thread.scm 170 */
BgL_res2066z00_5238 = BgL__ortest_1149z00_5252; }  else 
{ /* Llib/thread.scm 170 */
 long BgL_odepthz00_5253;
{ /* Llib/thread.scm 170 */
 obj_t BgL_arg1947z00_5254;
BgL_arg1947z00_5254 = 
(BgL_oclassz00_5242); 
BgL_odepthz00_5253 = 
BGL_CLASS_DEPTH(BgL_arg1947z00_5254); } 
if(
(BgL_arg1954z00_5223<BgL_odepthz00_5253))
{ /* Llib/thread.scm 170 */
 obj_t BgL_arg1945z00_5258;
{ /* Llib/thread.scm 170 */
 obj_t BgL_arg1946z00_5259;
BgL_arg1946z00_5259 = 
(BgL_oclassz00_5242); 
BgL_arg1945z00_5258 = 
BGL_CLASS_ANCESTORS_REF(BgL_arg1946z00_5259, BgL_arg1954z00_5223); } 
BgL_res2066z00_5238 = 
(BgL_arg1945z00_5258==BgL_classz00_5220); }  else 
{ /* Llib/thread.scm 170 */
BgL_res2066z00_5238 = ((bool_t)0); } } } } 
BgL_test3531z00_10165 = BgL_res2066z00_5238; } }  else 
{ /* Llib/thread.scm 170 */
BgL_test3531z00_10165 = ((bool_t)0)
; } } 
if(BgL_test3531z00_10165)
{ /* Llib/thread.scm 170 */
BgL_oz00_5260 = 
((BgL_nothreadz00_bglt)BgL_oz00_3629); }  else 
{ 
 obj_t BgL_auxz00_10190;
BgL_auxz00_10190 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2484z00zz__threadz00, 
BINT(6013L), BGl_string2647z00zz__threadz00, BGl_string2483z00zz__threadz00, BgL_oz00_3629); 
FAILURE(BgL_auxz00_10190,BFALSE,BFALSE);} } 
return 
((((BgL_nothreadz00_bglt)COBJECT(BgL_oz00_5260))->BgL_z52cleanupz52)=((obj_t)BgL_vz00_3630),BUNSPEC);} } 

}



/* &lambda1453 */
obj_t BGl_z62lambda1453z62zz__threadz00(obj_t BgL_envz00_3631, obj_t BgL_oz00_3632)
{
{ /* Llib/thread.scm 170 */
{ /* Llib/thread.scm 170 */
 BgL_nothreadz00_bglt BgL_oz00_5301;
{ /* Llib/thread.scm 170 */
 bool_t BgL_test3536z00_10195;
{ /* Llib/thread.scm 170 */
 obj_t BgL_classz00_5261;
BgL_classz00_5261 = BGl_nothreadz00zz__threadz00; 
if(
BGL_OBJECTP(BgL_oz00_3632))
{ /* Llib/thread.scm 170 */
 BgL_objectz00_bglt BgL_arg1953z00_5263; long BgL_arg1954z00_5264;
BgL_arg1953z00_5263 = 
(BgL_objectz00_bglt)(BgL_oz00_3632); 
BgL_arg1954z00_5264 = 
BGL_CLASS_DEPTH(BgL_classz00_5261); 
if(
BGL_CONDEXPAND_ISA_ARCH64())
{ /* Llib/thread.scm 170 */
 long BgL_idxz00_5272;
BgL_idxz00_5272 = 
BGL_OBJECT_INHERITANCE_NUM(BgL_arg1953z00_5263); 
{ /* Llib/thread.scm 170 */
 obj_t BgL_arg1943z00_5273;
{ /* Llib/thread.scm 170 */
 long BgL_arg1944z00_5274;
BgL_arg1944z00_5274 = 
(BgL_idxz00_5272+BgL_arg1954z00_5264); 
BgL_arg1943z00_5273 = 
VECTOR_REF(BGl_za2inheritancesza2z00zz__objectz00,BgL_arg1944z00_5274); } 
BgL_test3536z00_10195 = 
(BgL_arg1943z00_5273==BgL_classz00_5261); } }  else 
{ /* Llib/thread.scm 170 */
 bool_t BgL_res2066z00_5279;
{ /* Llib/thread.scm 170 */
 obj_t BgL_oclassz00_5283;
{ /* Llib/thread.scm 170 */
 obj_t BgL_arg1959z00_5285; long BgL_arg1960z00_5286;
BgL_arg1959z00_5285 = 
(BGl_za2classesza2z00zz__objectz00); 
{ /* Llib/thread.scm 170 */
 long BgL_arg1961z00_5287;
BgL_arg1961z00_5287 = 
BGL_OBJECT_CLASS_NUM(BgL_arg1953z00_5263); 
BgL_arg1960z00_5286 = 
(BgL_arg1961z00_5287-OBJECT_TYPE); } 
BgL_oclassz00_5283 = 
VECTOR_REF(BgL_arg1959z00_5285,BgL_arg1960z00_5286); } 
{ /* Llib/thread.scm 170 */
 bool_t BgL__ortest_1149z00_5293;
BgL__ortest_1149z00_5293 = 
(BgL_classz00_5261==BgL_oclassz00_5283); 
if(BgL__ortest_1149z00_5293)
{ /* Llib/thread.scm 170 */
BgL_res2066z00_5279 = BgL__ortest_1149z00_5293; }  else 
{ /* Llib/thread.scm 170 */
 long BgL_odepthz00_5294;
{ /* Llib/thread.scm 170 */
 obj_t BgL_arg1947z00_5295;
BgL_arg1947z00_5295 = 
(BgL_oclassz00_5283); 
BgL_odepthz00_5294 = 
BGL_CLASS_DEPTH(BgL_arg1947z00_5295); } 
if(
(BgL_arg1954z00_5264<BgL_odepthz00_5294))
{ /* Llib/thread.scm 170 */
 obj_t BgL_arg1945z00_5299;
{ /* Llib/thread.scm 170 */
 obj_t BgL_arg1946z00_5300;
BgL_arg1946z00_5300 = 
(BgL_oclassz00_5283); 
BgL_arg1945z00_5299 = 
BGL_CLASS_ANCESTORS_REF(BgL_arg1946z00_5300, BgL_arg1954z00_5264); } 
BgL_res2066z00_5279 = 
(BgL_arg1945z00_5299==BgL_classz00_5261); }  else 
{ /* Llib/thread.scm 170 */
BgL_res2066z00_5279 = ((bool_t)0); } } } } 
BgL_test3536z00_10195 = BgL_res2066z00_5279; } }  else 
{ /* Llib/thread.scm 170 */
BgL_test3536z00_10195 = ((bool_t)0)
; } } 
if(BgL_test3536z00_10195)
{ /* Llib/thread.scm 170 */
BgL_oz00_5301 = 
((BgL_nothreadz00_bglt)BgL_oz00_3632); }  else 
{ 
 obj_t BgL_auxz00_10220;
BgL_auxz00_10220 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2484z00zz__threadz00, 
BINT(6013L), BGl_string2648z00zz__threadz00, BGl_string2483z00zz__threadz00, BgL_oz00_3632); 
FAILURE(BgL_auxz00_10220,BFALSE,BFALSE);} } 
return 
(((BgL_nothreadz00_bglt)COBJECT(BgL_oz00_5301))->BgL_z52cleanupz52);} } 

}



/* &<@anonymous:1447> */
obj_t BGl_z62zc3z04anonymousza31447ze3ze5zz__threadz00(obj_t BgL_envz00_3633)
{
{ /* Llib/thread.scm 170 */
return BUNSPEC;} 

}



/* &lambda1446 */
obj_t BGl_z62lambda1446z62zz__threadz00(obj_t BgL_envz00_3634, obj_t BgL_oz00_3635, obj_t BgL_vz00_3636)
{
{ /* Llib/thread.scm 170 */
{ /* Llib/thread.scm 170 */
 BgL_nothreadz00_bglt BgL_oz00_5342;
{ /* Llib/thread.scm 170 */
 bool_t BgL_test3541z00_10225;
{ /* Llib/thread.scm 170 */
 obj_t BgL_classz00_5302;
BgL_classz00_5302 = BGl_nothreadz00zz__threadz00; 
if(
BGL_OBJECTP(BgL_oz00_3635))
{ /* Llib/thread.scm 170 */
 BgL_objectz00_bglt BgL_arg1953z00_5304; long BgL_arg1954z00_5305;
BgL_arg1953z00_5304 = 
(BgL_objectz00_bglt)(BgL_oz00_3635); 
BgL_arg1954z00_5305 = 
BGL_CLASS_DEPTH(BgL_classz00_5302); 
if(
BGL_CONDEXPAND_ISA_ARCH64())
{ /* Llib/thread.scm 170 */
 long BgL_idxz00_5313;
BgL_idxz00_5313 = 
BGL_OBJECT_INHERITANCE_NUM(BgL_arg1953z00_5304); 
{ /* Llib/thread.scm 170 */
 obj_t BgL_arg1943z00_5314;
{ /* Llib/thread.scm 170 */
 long BgL_arg1944z00_5315;
BgL_arg1944z00_5315 = 
(BgL_idxz00_5313+BgL_arg1954z00_5305); 
BgL_arg1943z00_5314 = 
VECTOR_REF(BGl_za2inheritancesza2z00zz__objectz00,BgL_arg1944z00_5315); } 
BgL_test3541z00_10225 = 
(BgL_arg1943z00_5314==BgL_classz00_5302); } }  else 
{ /* Llib/thread.scm 170 */
 bool_t BgL_res2066z00_5320;
{ /* Llib/thread.scm 170 */
 obj_t BgL_oclassz00_5324;
{ /* Llib/thread.scm 170 */
 obj_t BgL_arg1959z00_5326; long BgL_arg1960z00_5327;
BgL_arg1959z00_5326 = 
(BGl_za2classesza2z00zz__objectz00); 
{ /* Llib/thread.scm 170 */
 long BgL_arg1961z00_5328;
BgL_arg1961z00_5328 = 
BGL_OBJECT_CLASS_NUM(BgL_arg1953z00_5304); 
BgL_arg1960z00_5327 = 
(BgL_arg1961z00_5328-OBJECT_TYPE); } 
BgL_oclassz00_5324 = 
VECTOR_REF(BgL_arg1959z00_5326,BgL_arg1960z00_5327); } 
{ /* Llib/thread.scm 170 */
 bool_t BgL__ortest_1149z00_5334;
BgL__ortest_1149z00_5334 = 
(BgL_classz00_5302==BgL_oclassz00_5324); 
if(BgL__ortest_1149z00_5334)
{ /* Llib/thread.scm 170 */
BgL_res2066z00_5320 = BgL__ortest_1149z00_5334; }  else 
{ /* Llib/thread.scm 170 */
 long BgL_odepthz00_5335;
{ /* Llib/thread.scm 170 */
 obj_t BgL_arg1947z00_5336;
BgL_arg1947z00_5336 = 
(BgL_oclassz00_5324); 
BgL_odepthz00_5335 = 
BGL_CLASS_DEPTH(BgL_arg1947z00_5336); } 
if(
(BgL_arg1954z00_5305<BgL_odepthz00_5335))
{ /* Llib/thread.scm 170 */
 obj_t BgL_arg1945z00_5340;
{ /* Llib/thread.scm 170 */
 obj_t BgL_arg1946z00_5341;
BgL_arg1946z00_5341 = 
(BgL_oclassz00_5324); 
BgL_arg1945z00_5340 = 
BGL_CLASS_ANCESTORS_REF(BgL_arg1946z00_5341, BgL_arg1954z00_5305); } 
BgL_res2066z00_5320 = 
(BgL_arg1945z00_5340==BgL_classz00_5302); }  else 
{ /* Llib/thread.scm 170 */
BgL_res2066z00_5320 = ((bool_t)0); } } } } 
BgL_test3541z00_10225 = BgL_res2066z00_5320; } }  else 
{ /* Llib/thread.scm 170 */
BgL_test3541z00_10225 = ((bool_t)0)
; } } 
if(BgL_test3541z00_10225)
{ /* Llib/thread.scm 170 */
BgL_oz00_5342 = 
((BgL_nothreadz00_bglt)BgL_oz00_3635); }  else 
{ 
 obj_t BgL_auxz00_10250;
BgL_auxz00_10250 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2484z00zz__threadz00, 
BINT(6013L), BGl_string2649z00zz__threadz00, BGl_string2483z00zz__threadz00, BgL_oz00_3635); 
FAILURE(BgL_auxz00_10250,BFALSE,BFALSE);} } 
return 
((((BgL_nothreadz00_bglt)COBJECT(BgL_oz00_5342))->BgL_z52specificz52)=((obj_t)BgL_vz00_3636),BUNSPEC);} } 

}



/* &lambda1445 */
obj_t BGl_z62lambda1445z62zz__threadz00(obj_t BgL_envz00_3637, obj_t BgL_oz00_3638)
{
{ /* Llib/thread.scm 170 */
{ /* Llib/thread.scm 170 */
 BgL_nothreadz00_bglt BgL_oz00_5383;
{ /* Llib/thread.scm 170 */
 bool_t BgL_test3546z00_10255;
{ /* Llib/thread.scm 170 */
 obj_t BgL_classz00_5343;
BgL_classz00_5343 = BGl_nothreadz00zz__threadz00; 
if(
BGL_OBJECTP(BgL_oz00_3638))
{ /* Llib/thread.scm 170 */
 BgL_objectz00_bglt BgL_arg1953z00_5345; long BgL_arg1954z00_5346;
BgL_arg1953z00_5345 = 
(BgL_objectz00_bglt)(BgL_oz00_3638); 
BgL_arg1954z00_5346 = 
BGL_CLASS_DEPTH(BgL_classz00_5343); 
if(
BGL_CONDEXPAND_ISA_ARCH64())
{ /* Llib/thread.scm 170 */
 long BgL_idxz00_5354;
BgL_idxz00_5354 = 
BGL_OBJECT_INHERITANCE_NUM(BgL_arg1953z00_5345); 
{ /* Llib/thread.scm 170 */
 obj_t BgL_arg1943z00_5355;
{ /* Llib/thread.scm 170 */
 long BgL_arg1944z00_5356;
BgL_arg1944z00_5356 = 
(BgL_idxz00_5354+BgL_arg1954z00_5346); 
BgL_arg1943z00_5355 = 
VECTOR_REF(BGl_za2inheritancesza2z00zz__objectz00,BgL_arg1944z00_5356); } 
BgL_test3546z00_10255 = 
(BgL_arg1943z00_5355==BgL_classz00_5343); } }  else 
{ /* Llib/thread.scm 170 */
 bool_t BgL_res2066z00_5361;
{ /* Llib/thread.scm 170 */
 obj_t BgL_oclassz00_5365;
{ /* Llib/thread.scm 170 */
 obj_t BgL_arg1959z00_5367; long BgL_arg1960z00_5368;
BgL_arg1959z00_5367 = 
(BGl_za2classesza2z00zz__objectz00); 
{ /* Llib/thread.scm 170 */
 long BgL_arg1961z00_5369;
BgL_arg1961z00_5369 = 
BGL_OBJECT_CLASS_NUM(BgL_arg1953z00_5345); 
BgL_arg1960z00_5368 = 
(BgL_arg1961z00_5369-OBJECT_TYPE); } 
BgL_oclassz00_5365 = 
VECTOR_REF(BgL_arg1959z00_5367,BgL_arg1960z00_5368); } 
{ /* Llib/thread.scm 170 */
 bool_t BgL__ortest_1149z00_5375;
BgL__ortest_1149z00_5375 = 
(BgL_classz00_5343==BgL_oclassz00_5365); 
if(BgL__ortest_1149z00_5375)
{ /* Llib/thread.scm 170 */
BgL_res2066z00_5361 = BgL__ortest_1149z00_5375; }  else 
{ /* Llib/thread.scm 170 */
 long BgL_odepthz00_5376;
{ /* Llib/thread.scm 170 */
 obj_t BgL_arg1947z00_5377;
BgL_arg1947z00_5377 = 
(BgL_oclassz00_5365); 
BgL_odepthz00_5376 = 
BGL_CLASS_DEPTH(BgL_arg1947z00_5377); } 
if(
(BgL_arg1954z00_5346<BgL_odepthz00_5376))
{ /* Llib/thread.scm 170 */
 obj_t BgL_arg1945z00_5381;
{ /* Llib/thread.scm 170 */
 obj_t BgL_arg1946z00_5382;
BgL_arg1946z00_5382 = 
(BgL_oclassz00_5365); 
BgL_arg1945z00_5381 = 
BGL_CLASS_ANCESTORS_REF(BgL_arg1946z00_5382, BgL_arg1954z00_5346); } 
BgL_res2066z00_5361 = 
(BgL_arg1945z00_5381==BgL_classz00_5343); }  else 
{ /* Llib/thread.scm 170 */
BgL_res2066z00_5361 = ((bool_t)0); } } } } 
BgL_test3546z00_10255 = BgL_res2066z00_5361; } }  else 
{ /* Llib/thread.scm 170 */
BgL_test3546z00_10255 = ((bool_t)0)
; } } 
if(BgL_test3546z00_10255)
{ /* Llib/thread.scm 170 */
BgL_oz00_5383 = 
((BgL_nothreadz00_bglt)BgL_oz00_3638); }  else 
{ 
 obj_t BgL_auxz00_10280;
BgL_auxz00_10280 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2484z00zz__threadz00, 
BINT(6013L), BGl_string2650z00zz__threadz00, BGl_string2483z00zz__threadz00, BgL_oz00_3638); 
FAILURE(BgL_auxz00_10280,BFALSE,BFALSE);} } 
return 
(((BgL_nothreadz00_bglt)COBJECT(BgL_oz00_5383))->BgL_z52specificz52);} } 

}



/* &lambda1438 */
obj_t BGl_z62lambda1438z62zz__threadz00(obj_t BgL_envz00_3639, obj_t BgL_oz00_3640, obj_t BgL_vz00_3641)
{
{ /* Llib/thread.scm 170 */
{ /* Llib/thread.scm 170 */
 BgL_nothreadz00_bglt BgL_oz00_5424; obj_t BgL_vz00_5425;
{ /* Llib/thread.scm 170 */
 bool_t BgL_test3551z00_10285;
{ /* Llib/thread.scm 170 */
 obj_t BgL_classz00_5384;
BgL_classz00_5384 = BGl_nothreadz00zz__threadz00; 
if(
BGL_OBJECTP(BgL_oz00_3640))
{ /* Llib/thread.scm 170 */
 BgL_objectz00_bglt BgL_arg1953z00_5386; long BgL_arg1954z00_5387;
BgL_arg1953z00_5386 = 
(BgL_objectz00_bglt)(BgL_oz00_3640); 
BgL_arg1954z00_5387 = 
BGL_CLASS_DEPTH(BgL_classz00_5384); 
if(
BGL_CONDEXPAND_ISA_ARCH64())
{ /* Llib/thread.scm 170 */
 long BgL_idxz00_5395;
BgL_idxz00_5395 = 
BGL_OBJECT_INHERITANCE_NUM(BgL_arg1953z00_5386); 
{ /* Llib/thread.scm 170 */
 obj_t BgL_arg1943z00_5396;
{ /* Llib/thread.scm 170 */
 long BgL_arg1944z00_5397;
BgL_arg1944z00_5397 = 
(BgL_idxz00_5395+BgL_arg1954z00_5387); 
BgL_arg1943z00_5396 = 
VECTOR_REF(BGl_za2inheritancesza2z00zz__objectz00,BgL_arg1944z00_5397); } 
BgL_test3551z00_10285 = 
(BgL_arg1943z00_5396==BgL_classz00_5384); } }  else 
{ /* Llib/thread.scm 170 */
 bool_t BgL_res2066z00_5402;
{ /* Llib/thread.scm 170 */
 obj_t BgL_oclassz00_5406;
{ /* Llib/thread.scm 170 */
 obj_t BgL_arg1959z00_5408; long BgL_arg1960z00_5409;
BgL_arg1959z00_5408 = 
(BGl_za2classesza2z00zz__objectz00); 
{ /* Llib/thread.scm 170 */
 long BgL_arg1961z00_5410;
BgL_arg1961z00_5410 = 
BGL_OBJECT_CLASS_NUM(BgL_arg1953z00_5386); 
BgL_arg1960z00_5409 = 
(BgL_arg1961z00_5410-OBJECT_TYPE); } 
BgL_oclassz00_5406 = 
VECTOR_REF(BgL_arg1959z00_5408,BgL_arg1960z00_5409); } 
{ /* Llib/thread.scm 170 */
 bool_t BgL__ortest_1149z00_5416;
BgL__ortest_1149z00_5416 = 
(BgL_classz00_5384==BgL_oclassz00_5406); 
if(BgL__ortest_1149z00_5416)
{ /* Llib/thread.scm 170 */
BgL_res2066z00_5402 = BgL__ortest_1149z00_5416; }  else 
{ /* Llib/thread.scm 170 */
 long BgL_odepthz00_5417;
{ /* Llib/thread.scm 170 */
 obj_t BgL_arg1947z00_5418;
BgL_arg1947z00_5418 = 
(BgL_oclassz00_5406); 
BgL_odepthz00_5417 = 
BGL_CLASS_DEPTH(BgL_arg1947z00_5418); } 
if(
(BgL_arg1954z00_5387<BgL_odepthz00_5417))
{ /* Llib/thread.scm 170 */
 obj_t BgL_arg1945z00_5422;
{ /* Llib/thread.scm 170 */
 obj_t BgL_arg1946z00_5423;
BgL_arg1946z00_5423 = 
(BgL_oclassz00_5406); 
BgL_arg1945z00_5422 = 
BGL_CLASS_ANCESTORS_REF(BgL_arg1946z00_5423, BgL_arg1954z00_5387); } 
BgL_res2066z00_5402 = 
(BgL_arg1945z00_5422==BgL_classz00_5384); }  else 
{ /* Llib/thread.scm 170 */
BgL_res2066z00_5402 = ((bool_t)0); } } } } 
BgL_test3551z00_10285 = BgL_res2066z00_5402; } }  else 
{ /* Llib/thread.scm 170 */
BgL_test3551z00_10285 = ((bool_t)0)
; } } 
if(BgL_test3551z00_10285)
{ /* Llib/thread.scm 170 */
BgL_oz00_5424 = 
((BgL_nothreadz00_bglt)BgL_oz00_3640); }  else 
{ 
 obj_t BgL_auxz00_10310;
BgL_auxz00_10310 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2484z00zz__threadz00, 
BINT(6013L), BGl_string2651z00zz__threadz00, BGl_string2483z00zz__threadz00, BgL_oz00_3640); 
FAILURE(BgL_auxz00_10310,BFALSE,BFALSE);} } 
if(
PROCEDUREP(BgL_vz00_3641))
{ /* Llib/thread.scm 170 */
BgL_vz00_5425 = BgL_vz00_3641; }  else 
{ 
 obj_t BgL_auxz00_10316;
BgL_auxz00_10316 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2484z00zz__threadz00, 
BINT(6013L), BGl_string2651z00zz__threadz00, BGl_string2501z00zz__threadz00, BgL_vz00_3641); 
FAILURE(BgL_auxz00_10316,BFALSE,BFALSE);} 
return 
((((BgL_nothreadz00_bglt)COBJECT(BgL_oz00_5424))->BgL_bodyz00)=((obj_t)BgL_vz00_5425),BUNSPEC);} } 

}



/* &lambda1437 */
obj_t BGl_z62lambda1437z62zz__threadz00(obj_t BgL_envz00_3642, obj_t BgL_oz00_3643)
{
{ /* Llib/thread.scm 170 */
{ /* Llib/thread.scm 170 */
 BgL_nothreadz00_bglt BgL_oz00_5466;
{ /* Llib/thread.scm 170 */
 bool_t BgL_test3557z00_10321;
{ /* Llib/thread.scm 170 */
 obj_t BgL_classz00_5426;
BgL_classz00_5426 = BGl_nothreadz00zz__threadz00; 
if(
BGL_OBJECTP(BgL_oz00_3643))
{ /* Llib/thread.scm 170 */
 BgL_objectz00_bglt BgL_arg1953z00_5428; long BgL_arg1954z00_5429;
BgL_arg1953z00_5428 = 
(BgL_objectz00_bglt)(BgL_oz00_3643); 
BgL_arg1954z00_5429 = 
BGL_CLASS_DEPTH(BgL_classz00_5426); 
if(
BGL_CONDEXPAND_ISA_ARCH64())
{ /* Llib/thread.scm 170 */
 long BgL_idxz00_5437;
BgL_idxz00_5437 = 
BGL_OBJECT_INHERITANCE_NUM(BgL_arg1953z00_5428); 
{ /* Llib/thread.scm 170 */
 obj_t BgL_arg1943z00_5438;
{ /* Llib/thread.scm 170 */
 long BgL_arg1944z00_5439;
BgL_arg1944z00_5439 = 
(BgL_idxz00_5437+BgL_arg1954z00_5429); 
BgL_arg1943z00_5438 = 
VECTOR_REF(BGl_za2inheritancesza2z00zz__objectz00,BgL_arg1944z00_5439); } 
BgL_test3557z00_10321 = 
(BgL_arg1943z00_5438==BgL_classz00_5426); } }  else 
{ /* Llib/thread.scm 170 */
 bool_t BgL_res2066z00_5444;
{ /* Llib/thread.scm 170 */
 obj_t BgL_oclassz00_5448;
{ /* Llib/thread.scm 170 */
 obj_t BgL_arg1959z00_5450; long BgL_arg1960z00_5451;
BgL_arg1959z00_5450 = 
(BGl_za2classesza2z00zz__objectz00); 
{ /* Llib/thread.scm 170 */
 long BgL_arg1961z00_5452;
BgL_arg1961z00_5452 = 
BGL_OBJECT_CLASS_NUM(BgL_arg1953z00_5428); 
BgL_arg1960z00_5451 = 
(BgL_arg1961z00_5452-OBJECT_TYPE); } 
BgL_oclassz00_5448 = 
VECTOR_REF(BgL_arg1959z00_5450,BgL_arg1960z00_5451); } 
{ /* Llib/thread.scm 170 */
 bool_t BgL__ortest_1149z00_5458;
BgL__ortest_1149z00_5458 = 
(BgL_classz00_5426==BgL_oclassz00_5448); 
if(BgL__ortest_1149z00_5458)
{ /* Llib/thread.scm 170 */
BgL_res2066z00_5444 = BgL__ortest_1149z00_5458; }  else 
{ /* Llib/thread.scm 170 */
 long BgL_odepthz00_5459;
{ /* Llib/thread.scm 170 */
 obj_t BgL_arg1947z00_5460;
BgL_arg1947z00_5460 = 
(BgL_oclassz00_5448); 
BgL_odepthz00_5459 = 
BGL_CLASS_DEPTH(BgL_arg1947z00_5460); } 
if(
(BgL_arg1954z00_5429<BgL_odepthz00_5459))
{ /* Llib/thread.scm 170 */
 obj_t BgL_arg1945z00_5464;
{ /* Llib/thread.scm 170 */
 obj_t BgL_arg1946z00_5465;
BgL_arg1946z00_5465 = 
(BgL_oclassz00_5448); 
BgL_arg1945z00_5464 = 
BGL_CLASS_ANCESTORS_REF(BgL_arg1946z00_5465, BgL_arg1954z00_5429); } 
BgL_res2066z00_5444 = 
(BgL_arg1945z00_5464==BgL_classz00_5426); }  else 
{ /* Llib/thread.scm 170 */
BgL_res2066z00_5444 = ((bool_t)0); } } } } 
BgL_test3557z00_10321 = BgL_res2066z00_5444; } }  else 
{ /* Llib/thread.scm 170 */
BgL_test3557z00_10321 = ((bool_t)0)
; } } 
if(BgL_test3557z00_10321)
{ /* Llib/thread.scm 170 */
BgL_oz00_5466 = 
((BgL_nothreadz00_bglt)BgL_oz00_3643); }  else 
{ 
 obj_t BgL_auxz00_10346;
BgL_auxz00_10346 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2484z00zz__threadz00, 
BINT(6013L), BGl_string2652z00zz__threadz00, BGl_string2483z00zz__threadz00, BgL_oz00_3643); 
FAILURE(BgL_auxz00_10346,BFALSE,BFALSE);} } 
return 
(((BgL_nothreadz00_bglt)COBJECT(BgL_oz00_5466))->BgL_bodyz00);} } 

}



/* &<@anonymous:1387> */
obj_t BGl_z62zc3z04anonymousza31387ze3ze5zz__threadz00(obj_t BgL_envz00_3644, obj_t BgL_new1042z00_3645)
{
{ /* Llib/thread.scm 164 */
{ 
 BgL_threadz00_bglt BgL_auxz00_10351;
{ /* Llib/thread.scm 164 */
 BgL_threadz00_bglt BgL_new1042z00_5507;
{ /* Llib/thread.scm 164 */
 bool_t BgL_test3562z00_10352;
{ /* Llib/thread.scm 164 */
 obj_t BgL_classz00_5467;
BgL_classz00_5467 = BGl_threadz00zz__threadz00; 
if(
BGL_OBJECTP(BgL_new1042z00_3645))
{ /* Llib/thread.scm 164 */
 BgL_objectz00_bglt BgL_arg1953z00_5469; long BgL_arg1954z00_5470;
BgL_arg1953z00_5469 = 
(BgL_objectz00_bglt)(BgL_new1042z00_3645); 
BgL_arg1954z00_5470 = 
BGL_CLASS_DEPTH(BgL_classz00_5467); 
if(
BGL_CONDEXPAND_ISA_ARCH64())
{ /* Llib/thread.scm 164 */
 long BgL_idxz00_5478;
BgL_idxz00_5478 = 
BGL_OBJECT_INHERITANCE_NUM(BgL_arg1953z00_5469); 
{ /* Llib/thread.scm 164 */
 obj_t BgL_arg1943z00_5479;
{ /* Llib/thread.scm 164 */
 long BgL_arg1944z00_5480;
BgL_arg1944z00_5480 = 
(BgL_idxz00_5478+BgL_arg1954z00_5470); 
BgL_arg1943z00_5479 = 
VECTOR_REF(BGl_za2inheritancesza2z00zz__objectz00,BgL_arg1944z00_5480); } 
BgL_test3562z00_10352 = 
(BgL_arg1943z00_5479==BgL_classz00_5467); } }  else 
{ /* Llib/thread.scm 164 */
 bool_t BgL_res2066z00_5485;
{ /* Llib/thread.scm 164 */
 obj_t BgL_oclassz00_5489;
{ /* Llib/thread.scm 164 */
 obj_t BgL_arg1959z00_5491; long BgL_arg1960z00_5492;
BgL_arg1959z00_5491 = 
(BGl_za2classesza2z00zz__objectz00); 
{ /* Llib/thread.scm 164 */
 long BgL_arg1961z00_5493;
BgL_arg1961z00_5493 = 
BGL_OBJECT_CLASS_NUM(BgL_arg1953z00_5469); 
BgL_arg1960z00_5492 = 
(BgL_arg1961z00_5493-OBJECT_TYPE); } 
BgL_oclassz00_5489 = 
VECTOR_REF(BgL_arg1959z00_5491,BgL_arg1960z00_5492); } 
{ /* Llib/thread.scm 164 */
 bool_t BgL__ortest_1149z00_5499;
BgL__ortest_1149z00_5499 = 
(BgL_classz00_5467==BgL_oclassz00_5489); 
if(BgL__ortest_1149z00_5499)
{ /* Llib/thread.scm 164 */
BgL_res2066z00_5485 = BgL__ortest_1149z00_5499; }  else 
{ /* Llib/thread.scm 164 */
 long BgL_odepthz00_5500;
{ /* Llib/thread.scm 164 */
 obj_t BgL_arg1947z00_5501;
BgL_arg1947z00_5501 = 
(BgL_oclassz00_5489); 
BgL_odepthz00_5500 = 
BGL_CLASS_DEPTH(BgL_arg1947z00_5501); } 
if(
(BgL_arg1954z00_5470<BgL_odepthz00_5500))
{ /* Llib/thread.scm 164 */
 obj_t BgL_arg1945z00_5505;
{ /* Llib/thread.scm 164 */
 obj_t BgL_arg1946z00_5506;
BgL_arg1946z00_5506 = 
(BgL_oclassz00_5489); 
BgL_arg1945z00_5505 = 
BGL_CLASS_ANCESTORS_REF(BgL_arg1946z00_5506, BgL_arg1954z00_5470); } 
BgL_res2066z00_5485 = 
(BgL_arg1945z00_5505==BgL_classz00_5467); }  else 
{ /* Llib/thread.scm 164 */
BgL_res2066z00_5485 = ((bool_t)0); } } } } 
BgL_test3562z00_10352 = BgL_res2066z00_5485; } }  else 
{ /* Llib/thread.scm 164 */
BgL_test3562z00_10352 = ((bool_t)0)
; } } 
if(BgL_test3562z00_10352)
{ /* Llib/thread.scm 164 */
BgL_new1042z00_5507 = 
((BgL_threadz00_bglt)BgL_new1042z00_3645); }  else 
{ 
 obj_t BgL_auxz00_10377;
BgL_auxz00_10377 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2484z00zz__threadz00, 
BINT(5779L), BGl_string2653z00zz__threadz00, BGl_string2500z00zz__threadz00, BgL_new1042z00_3645); 
FAILURE(BgL_auxz00_10377,BFALSE,BFALSE);} } 
((((BgL_threadz00_bglt)COBJECT(BgL_new1042z00_5507))->BgL_namez00)=((obj_t)BUNSPEC),BUNSPEC); 
BgL_auxz00_10351 = BgL_new1042z00_5507; } 
return 
((obj_t)BgL_auxz00_10351);} } 

}



/* &lambda1385 */
BgL_threadz00_bglt BGl_z62lambda1385z62zz__threadz00(obj_t BgL_envz00_3646)
{
{ /* Llib/thread.scm 164 */
{ /* Llib/thread.scm 164 */
 BgL_threadz00_bglt BgL_new1041z00_5508;
BgL_new1041z00_5508 = 
((BgL_threadz00_bglt)BOBJECT( GC_MALLOC( sizeof(struct BgL_threadz00_bgl) ))); 
{ /* Llib/thread.scm 164 */
 long BgL_arg1386z00_5509;
BgL_arg1386z00_5509 = 
BGL_CLASS_NUM(BGl_threadz00zz__threadz00); 
BGL_OBJECT_CLASS_NUM_SET(
((BgL_objectz00_bglt)BgL_new1041z00_5508), BgL_arg1386z00_5509); } 
return BgL_new1041z00_5508;} } 

}



/* &<@anonymous:1420> */
obj_t BGl_z62zc3z04anonymousza31420ze3ze5zz__threadz00(obj_t BgL_envz00_3647, obj_t BgL_oz00_3648, obj_t BgL_vz00_3649)
{
{ /* Llib/thread.scm 168 */
{ /* Llib/thread.scm 168 */
 BgL_threadz00_bglt BgL_auxz00_10387;
{ /* Llib/thread.scm 168 */
 bool_t BgL_test3567z00_10388;
{ /* Llib/thread.scm 168 */
 obj_t BgL_classz00_5550;
BgL_classz00_5550 = BGl_threadz00zz__threadz00; 
if(
BGL_OBJECTP(BgL_oz00_3648))
{ /* Llib/thread.scm 168 */
 BgL_objectz00_bglt BgL_arg1953z00_5552; long BgL_arg1954z00_5553;
BgL_arg1953z00_5552 = 
(BgL_objectz00_bglt)(BgL_oz00_3648); 
BgL_arg1954z00_5553 = 
BGL_CLASS_DEPTH(BgL_classz00_5550); 
if(
BGL_CONDEXPAND_ISA_ARCH64())
{ /* Llib/thread.scm 168 */
 long BgL_idxz00_5561;
BgL_idxz00_5561 = 
BGL_OBJECT_INHERITANCE_NUM(BgL_arg1953z00_5552); 
{ /* Llib/thread.scm 168 */
 obj_t BgL_arg1943z00_5562;
{ /* Llib/thread.scm 168 */
 long BgL_arg1944z00_5563;
BgL_arg1944z00_5563 = 
(BgL_idxz00_5561+BgL_arg1954z00_5553); 
BgL_arg1943z00_5562 = 
VECTOR_REF(BGl_za2inheritancesza2z00zz__objectz00,BgL_arg1944z00_5563); } 
BgL_test3567z00_10388 = 
(BgL_arg1943z00_5562==BgL_classz00_5550); } }  else 
{ /* Llib/thread.scm 168 */
 bool_t BgL_res2066z00_5568;
{ /* Llib/thread.scm 168 */
 obj_t BgL_oclassz00_5572;
{ /* Llib/thread.scm 168 */
 obj_t BgL_arg1959z00_5574; long BgL_arg1960z00_5575;
BgL_arg1959z00_5574 = 
(BGl_za2classesza2z00zz__objectz00); 
{ /* Llib/thread.scm 168 */
 long BgL_arg1961z00_5576;
BgL_arg1961z00_5576 = 
BGL_OBJECT_CLASS_NUM(BgL_arg1953z00_5552); 
BgL_arg1960z00_5575 = 
(BgL_arg1961z00_5576-OBJECT_TYPE); } 
BgL_oclassz00_5572 = 
VECTOR_REF(BgL_arg1959z00_5574,BgL_arg1960z00_5575); } 
{ /* Llib/thread.scm 168 */
 bool_t BgL__ortest_1149z00_5582;
BgL__ortest_1149z00_5582 = 
(BgL_classz00_5550==BgL_oclassz00_5572); 
if(BgL__ortest_1149z00_5582)
{ /* Llib/thread.scm 168 */
BgL_res2066z00_5568 = BgL__ortest_1149z00_5582; }  else 
{ /* Llib/thread.scm 168 */
 long BgL_odepthz00_5583;
{ /* Llib/thread.scm 168 */
 obj_t BgL_arg1947z00_5584;
BgL_arg1947z00_5584 = 
(BgL_oclassz00_5572); 
BgL_odepthz00_5583 = 
BGL_CLASS_DEPTH(BgL_arg1947z00_5584); } 
if(
(BgL_arg1954z00_5553<BgL_odepthz00_5583))
{ /* Llib/thread.scm 168 */
 obj_t BgL_arg1945z00_5588;
{ /* Llib/thread.scm 168 */
 obj_t BgL_arg1946z00_5589;
BgL_arg1946z00_5589 = 
(BgL_oclassz00_5572); 
BgL_arg1945z00_5588 = 
BGL_CLASS_ANCESTORS_REF(BgL_arg1946z00_5589, BgL_arg1954z00_5553); } 
BgL_res2066z00_5568 = 
(BgL_arg1945z00_5588==BgL_classz00_5550); }  else 
{ /* Llib/thread.scm 168 */
BgL_res2066z00_5568 = ((bool_t)0); } } } } 
BgL_test3567z00_10388 = BgL_res2066z00_5568; } }  else 
{ /* Llib/thread.scm 168 */
BgL_test3567z00_10388 = ((bool_t)0)
; } } 
if(BgL_test3567z00_10388)
{ /* Llib/thread.scm 168 */
BgL_auxz00_10387 = 
((BgL_threadz00_bglt)BgL_oz00_3648)
; }  else 
{ 
 obj_t BgL_auxz00_10413;
BgL_auxz00_10413 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2484z00zz__threadz00, 
BINT(5949L), BGl_string2654z00zz__threadz00, BGl_string2500z00zz__threadz00, BgL_oz00_3648); 
FAILURE(BgL_auxz00_10413,BFALSE,BFALSE);} } 
return 
BGl_threadzd2cleanupzd2setz12z12zz__threadz00(BgL_auxz00_10387, BgL_vz00_3649);} } 

}



/* &<@anonymous:1418> */
obj_t BGl_z62zc3z04anonymousza31418ze3ze5zz__threadz00(obj_t BgL_envz00_3650, obj_t BgL_oz00_3651)
{
{ /* Llib/thread.scm 168 */
{ /* Llib/thread.scm 168 */
 BgL_threadz00_bglt BgL_auxz00_10418;
{ /* Llib/thread.scm 168 */
 bool_t BgL_test3572z00_10419;
{ /* Llib/thread.scm 168 */
 obj_t BgL_classz00_5630;
BgL_classz00_5630 = BGl_threadz00zz__threadz00; 
if(
BGL_OBJECTP(BgL_oz00_3651))
{ /* Llib/thread.scm 168 */
 BgL_objectz00_bglt BgL_arg1953z00_5632; long BgL_arg1954z00_5633;
BgL_arg1953z00_5632 = 
(BgL_objectz00_bglt)(BgL_oz00_3651); 
BgL_arg1954z00_5633 = 
BGL_CLASS_DEPTH(BgL_classz00_5630); 
if(
BGL_CONDEXPAND_ISA_ARCH64())
{ /* Llib/thread.scm 168 */
 long BgL_idxz00_5641;
BgL_idxz00_5641 = 
BGL_OBJECT_INHERITANCE_NUM(BgL_arg1953z00_5632); 
{ /* Llib/thread.scm 168 */
 obj_t BgL_arg1943z00_5642;
{ /* Llib/thread.scm 168 */
 long BgL_arg1944z00_5643;
BgL_arg1944z00_5643 = 
(BgL_idxz00_5641+BgL_arg1954z00_5633); 
BgL_arg1943z00_5642 = 
VECTOR_REF(BGl_za2inheritancesza2z00zz__objectz00,BgL_arg1944z00_5643); } 
BgL_test3572z00_10419 = 
(BgL_arg1943z00_5642==BgL_classz00_5630); } }  else 
{ /* Llib/thread.scm 168 */
 bool_t BgL_res2066z00_5648;
{ /* Llib/thread.scm 168 */
 obj_t BgL_oclassz00_5652;
{ /* Llib/thread.scm 168 */
 obj_t BgL_arg1959z00_5654; long BgL_arg1960z00_5655;
BgL_arg1959z00_5654 = 
(BGl_za2classesza2z00zz__objectz00); 
{ /* Llib/thread.scm 168 */
 long BgL_arg1961z00_5656;
BgL_arg1961z00_5656 = 
BGL_OBJECT_CLASS_NUM(BgL_arg1953z00_5632); 
BgL_arg1960z00_5655 = 
(BgL_arg1961z00_5656-OBJECT_TYPE); } 
BgL_oclassz00_5652 = 
VECTOR_REF(BgL_arg1959z00_5654,BgL_arg1960z00_5655); } 
{ /* Llib/thread.scm 168 */
 bool_t BgL__ortest_1149z00_5662;
BgL__ortest_1149z00_5662 = 
(BgL_classz00_5630==BgL_oclassz00_5652); 
if(BgL__ortest_1149z00_5662)
{ /* Llib/thread.scm 168 */
BgL_res2066z00_5648 = BgL__ortest_1149z00_5662; }  else 
{ /* Llib/thread.scm 168 */
 long BgL_odepthz00_5663;
{ /* Llib/thread.scm 168 */
 obj_t BgL_arg1947z00_5664;
BgL_arg1947z00_5664 = 
(BgL_oclassz00_5652); 
BgL_odepthz00_5663 = 
BGL_CLASS_DEPTH(BgL_arg1947z00_5664); } 
if(
(BgL_arg1954z00_5633<BgL_odepthz00_5663))
{ /* Llib/thread.scm 168 */
 obj_t BgL_arg1945z00_5668;
{ /* Llib/thread.scm 168 */
 obj_t BgL_arg1946z00_5669;
BgL_arg1946z00_5669 = 
(BgL_oclassz00_5652); 
BgL_arg1945z00_5668 = 
BGL_CLASS_ANCESTORS_REF(BgL_arg1946z00_5669, BgL_arg1954z00_5633); } 
BgL_res2066z00_5648 = 
(BgL_arg1945z00_5668==BgL_classz00_5630); }  else 
{ /* Llib/thread.scm 168 */
BgL_res2066z00_5648 = ((bool_t)0); } } } } 
BgL_test3572z00_10419 = BgL_res2066z00_5648; } }  else 
{ /* Llib/thread.scm 168 */
BgL_test3572z00_10419 = ((bool_t)0)
; } } 
if(BgL_test3572z00_10419)
{ /* Llib/thread.scm 168 */
BgL_auxz00_10418 = 
((BgL_threadz00_bglt)BgL_oz00_3651)
; }  else 
{ 
 obj_t BgL_auxz00_10444;
BgL_auxz00_10444 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2484z00zz__threadz00, 
BINT(5949L), BGl_string2655z00zz__threadz00, BGl_string2500z00zz__threadz00, BgL_oz00_3651); 
FAILURE(BgL_auxz00_10444,BFALSE,BFALSE);} } 
return 
BGl_threadzd2cleanupzd2zz__threadz00(BgL_auxz00_10418);} } 

}



/* &<@anonymous:1412> */
obj_t BGl_z62zc3z04anonymousza31412ze3ze5zz__threadz00(obj_t BgL_envz00_3652, obj_t BgL_oz00_3653, obj_t BgL_vz00_3654)
{
{ /* Llib/thread.scm 167 */
{ /* Llib/thread.scm 167 */
 BgL_threadz00_bglt BgL_auxz00_10449;
{ /* Llib/thread.scm 167 */
 bool_t BgL_test3577z00_10450;
{ /* Llib/thread.scm 167 */
 obj_t BgL_classz00_5710;
BgL_classz00_5710 = BGl_threadz00zz__threadz00; 
if(
BGL_OBJECTP(BgL_oz00_3653))
{ /* Llib/thread.scm 167 */
 BgL_objectz00_bglt BgL_arg1953z00_5712; long BgL_arg1954z00_5713;
BgL_arg1953z00_5712 = 
(BgL_objectz00_bglt)(BgL_oz00_3653); 
BgL_arg1954z00_5713 = 
BGL_CLASS_DEPTH(BgL_classz00_5710); 
if(
BGL_CONDEXPAND_ISA_ARCH64())
{ /* Llib/thread.scm 167 */
 long BgL_idxz00_5721;
BgL_idxz00_5721 = 
BGL_OBJECT_INHERITANCE_NUM(BgL_arg1953z00_5712); 
{ /* Llib/thread.scm 167 */
 obj_t BgL_arg1943z00_5722;
{ /* Llib/thread.scm 167 */
 long BgL_arg1944z00_5723;
BgL_arg1944z00_5723 = 
(BgL_idxz00_5721+BgL_arg1954z00_5713); 
BgL_arg1943z00_5722 = 
VECTOR_REF(BGl_za2inheritancesza2z00zz__objectz00,BgL_arg1944z00_5723); } 
BgL_test3577z00_10450 = 
(BgL_arg1943z00_5722==BgL_classz00_5710); } }  else 
{ /* Llib/thread.scm 167 */
 bool_t BgL_res2066z00_5728;
{ /* Llib/thread.scm 167 */
 obj_t BgL_oclassz00_5732;
{ /* Llib/thread.scm 167 */
 obj_t BgL_arg1959z00_5734; long BgL_arg1960z00_5735;
BgL_arg1959z00_5734 = 
(BGl_za2classesza2z00zz__objectz00); 
{ /* Llib/thread.scm 167 */
 long BgL_arg1961z00_5736;
BgL_arg1961z00_5736 = 
BGL_OBJECT_CLASS_NUM(BgL_arg1953z00_5712); 
BgL_arg1960z00_5735 = 
(BgL_arg1961z00_5736-OBJECT_TYPE); } 
BgL_oclassz00_5732 = 
VECTOR_REF(BgL_arg1959z00_5734,BgL_arg1960z00_5735); } 
{ /* Llib/thread.scm 167 */
 bool_t BgL__ortest_1149z00_5742;
BgL__ortest_1149z00_5742 = 
(BgL_classz00_5710==BgL_oclassz00_5732); 
if(BgL__ortest_1149z00_5742)
{ /* Llib/thread.scm 167 */
BgL_res2066z00_5728 = BgL__ortest_1149z00_5742; }  else 
{ /* Llib/thread.scm 167 */
 long BgL_odepthz00_5743;
{ /* Llib/thread.scm 167 */
 obj_t BgL_arg1947z00_5744;
BgL_arg1947z00_5744 = 
(BgL_oclassz00_5732); 
BgL_odepthz00_5743 = 
BGL_CLASS_DEPTH(BgL_arg1947z00_5744); } 
if(
(BgL_arg1954z00_5713<BgL_odepthz00_5743))
{ /* Llib/thread.scm 167 */
 obj_t BgL_arg1945z00_5748;
{ /* Llib/thread.scm 167 */
 obj_t BgL_arg1946z00_5749;
BgL_arg1946z00_5749 = 
(BgL_oclassz00_5732); 
BgL_arg1945z00_5748 = 
BGL_CLASS_ANCESTORS_REF(BgL_arg1946z00_5749, BgL_arg1954z00_5713); } 
BgL_res2066z00_5728 = 
(BgL_arg1945z00_5748==BgL_classz00_5710); }  else 
{ /* Llib/thread.scm 167 */
BgL_res2066z00_5728 = ((bool_t)0); } } } } 
BgL_test3577z00_10450 = BgL_res2066z00_5728; } }  else 
{ /* Llib/thread.scm 167 */
BgL_test3577z00_10450 = ((bool_t)0)
; } } 
if(BgL_test3577z00_10450)
{ /* Llib/thread.scm 167 */
BgL_auxz00_10449 = 
((BgL_threadz00_bglt)BgL_oz00_3653)
; }  else 
{ 
 obj_t BgL_auxz00_10475;
BgL_auxz00_10475 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2484z00zz__threadz00, 
BINT(5881L), BGl_string2656z00zz__threadz00, BGl_string2500z00zz__threadz00, BgL_oz00_3653); 
FAILURE(BgL_auxz00_10475,BFALSE,BFALSE);} } 
return 
BGl_threadzd2specificzd2setz12z12zz__threadz00(BgL_auxz00_10449, BgL_vz00_3654);} } 

}



/* &<@anonymous:1410> */
obj_t BGl_z62zc3z04anonymousza31410ze3ze5zz__threadz00(obj_t BgL_envz00_3655, obj_t BgL_oz00_3656)
{
{ /* Llib/thread.scm 167 */
{ /* Llib/thread.scm 167 */
 BgL_threadz00_bglt BgL_auxz00_10480;
{ /* Llib/thread.scm 167 */
 bool_t BgL_test3582z00_10481;
{ /* Llib/thread.scm 167 */
 obj_t BgL_classz00_5790;
BgL_classz00_5790 = BGl_threadz00zz__threadz00; 
if(
BGL_OBJECTP(BgL_oz00_3656))
{ /* Llib/thread.scm 167 */
 BgL_objectz00_bglt BgL_arg1953z00_5792; long BgL_arg1954z00_5793;
BgL_arg1953z00_5792 = 
(BgL_objectz00_bglt)(BgL_oz00_3656); 
BgL_arg1954z00_5793 = 
BGL_CLASS_DEPTH(BgL_classz00_5790); 
if(
BGL_CONDEXPAND_ISA_ARCH64())
{ /* Llib/thread.scm 167 */
 long BgL_idxz00_5801;
BgL_idxz00_5801 = 
BGL_OBJECT_INHERITANCE_NUM(BgL_arg1953z00_5792); 
{ /* Llib/thread.scm 167 */
 obj_t BgL_arg1943z00_5802;
{ /* Llib/thread.scm 167 */
 long BgL_arg1944z00_5803;
BgL_arg1944z00_5803 = 
(BgL_idxz00_5801+BgL_arg1954z00_5793); 
BgL_arg1943z00_5802 = 
VECTOR_REF(BGl_za2inheritancesza2z00zz__objectz00,BgL_arg1944z00_5803); } 
BgL_test3582z00_10481 = 
(BgL_arg1943z00_5802==BgL_classz00_5790); } }  else 
{ /* Llib/thread.scm 167 */
 bool_t BgL_res2066z00_5808;
{ /* Llib/thread.scm 167 */
 obj_t BgL_oclassz00_5812;
{ /* Llib/thread.scm 167 */
 obj_t BgL_arg1959z00_5814; long BgL_arg1960z00_5815;
BgL_arg1959z00_5814 = 
(BGl_za2classesza2z00zz__objectz00); 
{ /* Llib/thread.scm 167 */
 long BgL_arg1961z00_5816;
BgL_arg1961z00_5816 = 
BGL_OBJECT_CLASS_NUM(BgL_arg1953z00_5792); 
BgL_arg1960z00_5815 = 
(BgL_arg1961z00_5816-OBJECT_TYPE); } 
BgL_oclassz00_5812 = 
VECTOR_REF(BgL_arg1959z00_5814,BgL_arg1960z00_5815); } 
{ /* Llib/thread.scm 167 */
 bool_t BgL__ortest_1149z00_5822;
BgL__ortest_1149z00_5822 = 
(BgL_classz00_5790==BgL_oclassz00_5812); 
if(BgL__ortest_1149z00_5822)
{ /* Llib/thread.scm 167 */
BgL_res2066z00_5808 = BgL__ortest_1149z00_5822; }  else 
{ /* Llib/thread.scm 167 */
 long BgL_odepthz00_5823;
{ /* Llib/thread.scm 167 */
 obj_t BgL_arg1947z00_5824;
BgL_arg1947z00_5824 = 
(BgL_oclassz00_5812); 
BgL_odepthz00_5823 = 
BGL_CLASS_DEPTH(BgL_arg1947z00_5824); } 
if(
(BgL_arg1954z00_5793<BgL_odepthz00_5823))
{ /* Llib/thread.scm 167 */
 obj_t BgL_arg1945z00_5828;
{ /* Llib/thread.scm 167 */
 obj_t BgL_arg1946z00_5829;
BgL_arg1946z00_5829 = 
(BgL_oclassz00_5812); 
BgL_arg1945z00_5828 = 
BGL_CLASS_ANCESTORS_REF(BgL_arg1946z00_5829, BgL_arg1954z00_5793); } 
BgL_res2066z00_5808 = 
(BgL_arg1945z00_5828==BgL_classz00_5790); }  else 
{ /* Llib/thread.scm 167 */
BgL_res2066z00_5808 = ((bool_t)0); } } } } 
BgL_test3582z00_10481 = BgL_res2066z00_5808; } }  else 
{ /* Llib/thread.scm 167 */
BgL_test3582z00_10481 = ((bool_t)0)
; } } 
if(BgL_test3582z00_10481)
{ /* Llib/thread.scm 167 */
BgL_auxz00_10480 = 
((BgL_threadz00_bglt)BgL_oz00_3656)
; }  else 
{ 
 obj_t BgL_auxz00_10506;
BgL_auxz00_10506 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2484z00zz__threadz00, 
BINT(5881L), BGl_string2657z00zz__threadz00, BGl_string2500z00zz__threadz00, BgL_oz00_3656); 
FAILURE(BgL_auxz00_10506,BFALSE,BFALSE);} } 
return 
BGl_threadzd2specificzd2zz__threadz00(BgL_auxz00_10480);} } 

}



/* &<@anonymous:1404> */
obj_t BGl_z62zc3z04anonymousza31404ze3ze5zz__threadz00(obj_t BgL_envz00_3657, obj_t BgL_oz00_3658, obj_t BgL_vz00_3659)
{
{ /* Llib/thread.scm 164 */
{ /* Llib/thread.scm 164 */
 BgL_objectz00_bglt BgL_auxz00_10511;
{ /* Llib/thread.scm 164 */
 bool_t BgL_test3587z00_10512;
{ /* Llib/thread.scm 164 */
 obj_t BgL_classz00_5870;
BgL_classz00_5870 = BGl_objectz00zz__objectz00; 
if(
BGL_OBJECTP(BgL_oz00_3658))
{ /* Llib/thread.scm 164 */
 BgL_objectz00_bglt BgL_arg1953z00_5872; long BgL_arg1954z00_5873;
BgL_arg1953z00_5872 = 
(BgL_objectz00_bglt)(BgL_oz00_3658); 
BgL_arg1954z00_5873 = 
BGL_CLASS_DEPTH(BgL_classz00_5870); 
if(
BGL_CONDEXPAND_ISA_ARCH64())
{ /* Llib/thread.scm 164 */
 long BgL_idxz00_5881;
BgL_idxz00_5881 = 
BGL_OBJECT_INHERITANCE_NUM(BgL_arg1953z00_5872); 
{ /* Llib/thread.scm 164 */
 obj_t BgL_arg1943z00_5882;
{ /* Llib/thread.scm 164 */
 long BgL_arg1944z00_5883;
BgL_arg1944z00_5883 = 
(BgL_idxz00_5881+BgL_arg1954z00_5873); 
BgL_arg1943z00_5882 = 
VECTOR_REF(BGl_za2inheritancesza2z00zz__objectz00,BgL_arg1944z00_5883); } 
BgL_test3587z00_10512 = 
(BgL_arg1943z00_5882==BgL_classz00_5870); } }  else 
{ /* Llib/thread.scm 164 */
 bool_t BgL_res2066z00_5888;
{ /* Llib/thread.scm 164 */
 obj_t BgL_oclassz00_5892;
{ /* Llib/thread.scm 164 */
 obj_t BgL_arg1959z00_5894; long BgL_arg1960z00_5895;
BgL_arg1959z00_5894 = 
(BGl_za2classesza2z00zz__objectz00); 
{ /* Llib/thread.scm 164 */
 long BgL_arg1961z00_5896;
BgL_arg1961z00_5896 = 
BGL_OBJECT_CLASS_NUM(BgL_arg1953z00_5872); 
BgL_arg1960z00_5895 = 
(BgL_arg1961z00_5896-OBJECT_TYPE); } 
BgL_oclassz00_5892 = 
VECTOR_REF(BgL_arg1959z00_5894,BgL_arg1960z00_5895); } 
{ /* Llib/thread.scm 164 */
 bool_t BgL__ortest_1149z00_5902;
BgL__ortest_1149z00_5902 = 
(BgL_classz00_5870==BgL_oclassz00_5892); 
if(BgL__ortest_1149z00_5902)
{ /* Llib/thread.scm 164 */
BgL_res2066z00_5888 = BgL__ortest_1149z00_5902; }  else 
{ /* Llib/thread.scm 164 */
 long BgL_odepthz00_5903;
{ /* Llib/thread.scm 164 */
 obj_t BgL_arg1947z00_5904;
BgL_arg1947z00_5904 = 
(BgL_oclassz00_5892); 
BgL_odepthz00_5903 = 
BGL_CLASS_DEPTH(BgL_arg1947z00_5904); } 
if(
(BgL_arg1954z00_5873<BgL_odepthz00_5903))
{ /* Llib/thread.scm 164 */
 obj_t BgL_arg1945z00_5908;
{ /* Llib/thread.scm 164 */
 obj_t BgL_arg1946z00_5909;
BgL_arg1946z00_5909 = 
(BgL_oclassz00_5892); 
BgL_arg1945z00_5908 = 
BGL_CLASS_ANCESTORS_REF(BgL_arg1946z00_5909, BgL_arg1954z00_5873); } 
BgL_res2066z00_5888 = 
(BgL_arg1945z00_5908==BgL_classz00_5870); }  else 
{ /* Llib/thread.scm 164 */
BgL_res2066z00_5888 = ((bool_t)0); } } } } 
BgL_test3587z00_10512 = BgL_res2066z00_5888; } }  else 
{ /* Llib/thread.scm 164 */
BgL_test3587z00_10512 = ((bool_t)0)
; } } 
if(BgL_test3587z00_10512)
{ /* Llib/thread.scm 164 */
BgL_auxz00_10511 = 
((BgL_objectz00_bglt)BgL_oz00_3658)
; }  else 
{ 
 obj_t BgL_auxz00_10537;
BgL_auxz00_10537 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2484z00zz__threadz00, 
BINT(5779L), BGl_string2658z00zz__threadz00, BGl_string2659z00zz__threadz00, BgL_oz00_3658); 
FAILURE(BgL_auxz00_10537,BFALSE,BFALSE);} } 
return 
BGl_callzd2virtualzd2setterz00zz__objectz00(BgL_auxz00_10511, 
(int)(1L), BgL_vz00_3659);} } 

}



/* &<@anonymous:1403> */
obj_t BGl_z62zc3z04anonymousza31403ze3ze5zz__threadz00(obj_t BgL_envz00_3660, obj_t BgL_oz00_3661)
{
{ /* Llib/thread.scm 164 */
{ /* Llib/thread.scm 164 */
 BgL_objectz00_bglt BgL_auxz00_10543;
{ /* Llib/thread.scm 164 */
 bool_t BgL_test3592z00_10544;
{ /* Llib/thread.scm 164 */
 obj_t BgL_classz00_5950;
BgL_classz00_5950 = BGl_objectz00zz__objectz00; 
if(
BGL_OBJECTP(BgL_oz00_3661))
{ /* Llib/thread.scm 164 */
 BgL_objectz00_bglt BgL_arg1953z00_5952; long BgL_arg1954z00_5953;
BgL_arg1953z00_5952 = 
(BgL_objectz00_bglt)(BgL_oz00_3661); 
BgL_arg1954z00_5953 = 
BGL_CLASS_DEPTH(BgL_classz00_5950); 
if(
BGL_CONDEXPAND_ISA_ARCH64())
{ /* Llib/thread.scm 164 */
 long BgL_idxz00_5961;
BgL_idxz00_5961 = 
BGL_OBJECT_INHERITANCE_NUM(BgL_arg1953z00_5952); 
{ /* Llib/thread.scm 164 */
 obj_t BgL_arg1943z00_5962;
{ /* Llib/thread.scm 164 */
 long BgL_arg1944z00_5963;
BgL_arg1944z00_5963 = 
(BgL_idxz00_5961+BgL_arg1954z00_5953); 
BgL_arg1943z00_5962 = 
VECTOR_REF(BGl_za2inheritancesza2z00zz__objectz00,BgL_arg1944z00_5963); } 
BgL_test3592z00_10544 = 
(BgL_arg1943z00_5962==BgL_classz00_5950); } }  else 
{ /* Llib/thread.scm 164 */
 bool_t BgL_res2066z00_5968;
{ /* Llib/thread.scm 164 */
 obj_t BgL_oclassz00_5972;
{ /* Llib/thread.scm 164 */
 obj_t BgL_arg1959z00_5974; long BgL_arg1960z00_5975;
BgL_arg1959z00_5974 = 
(BGl_za2classesza2z00zz__objectz00); 
{ /* Llib/thread.scm 164 */
 long BgL_arg1961z00_5976;
BgL_arg1961z00_5976 = 
BGL_OBJECT_CLASS_NUM(BgL_arg1953z00_5952); 
BgL_arg1960z00_5975 = 
(BgL_arg1961z00_5976-OBJECT_TYPE); } 
BgL_oclassz00_5972 = 
VECTOR_REF(BgL_arg1959z00_5974,BgL_arg1960z00_5975); } 
{ /* Llib/thread.scm 164 */
 bool_t BgL__ortest_1149z00_5982;
BgL__ortest_1149z00_5982 = 
(BgL_classz00_5950==BgL_oclassz00_5972); 
if(BgL__ortest_1149z00_5982)
{ /* Llib/thread.scm 164 */
BgL_res2066z00_5968 = BgL__ortest_1149z00_5982; }  else 
{ /* Llib/thread.scm 164 */
 long BgL_odepthz00_5983;
{ /* Llib/thread.scm 164 */
 obj_t BgL_arg1947z00_5984;
BgL_arg1947z00_5984 = 
(BgL_oclassz00_5972); 
BgL_odepthz00_5983 = 
BGL_CLASS_DEPTH(BgL_arg1947z00_5984); } 
if(
(BgL_arg1954z00_5953<BgL_odepthz00_5983))
{ /* Llib/thread.scm 164 */
 obj_t BgL_arg1945z00_5988;
{ /* Llib/thread.scm 164 */
 obj_t BgL_arg1946z00_5989;
BgL_arg1946z00_5989 = 
(BgL_oclassz00_5972); 
BgL_arg1945z00_5988 = 
BGL_CLASS_ANCESTORS_REF(BgL_arg1946z00_5989, BgL_arg1954z00_5953); } 
BgL_res2066z00_5968 = 
(BgL_arg1945z00_5988==BgL_classz00_5950); }  else 
{ /* Llib/thread.scm 164 */
BgL_res2066z00_5968 = ((bool_t)0); } } } } 
BgL_test3592z00_10544 = BgL_res2066z00_5968; } }  else 
{ /* Llib/thread.scm 164 */
BgL_test3592z00_10544 = ((bool_t)0)
; } } 
if(BgL_test3592z00_10544)
{ /* Llib/thread.scm 164 */
BgL_auxz00_10543 = 
((BgL_objectz00_bglt)BgL_oz00_3661)
; }  else 
{ 
 obj_t BgL_auxz00_10569;
BgL_auxz00_10569 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2484z00zz__threadz00, 
BINT(5779L), BGl_string2660z00zz__threadz00, BGl_string2659z00zz__threadz00, BgL_oz00_3661); 
FAILURE(BgL_auxz00_10569,BFALSE,BFALSE);} } 
return 
BGl_callzd2virtualzd2getterz00zz__objectz00(BgL_auxz00_10543, 
(int)(1L));} } 

}



/* &<@anonymous:1399> */
obj_t BGl_z62zc3z04anonymousza31399ze3ze5zz__threadz00(obj_t BgL_envz00_3662, obj_t BgL_oz00_3663, obj_t BgL_vz00_3664)
{
{ /* Llib/thread.scm 164 */
{ /* Llib/thread.scm 164 */
 BgL_objectz00_bglt BgL_auxz00_10575;
{ /* Llib/thread.scm 164 */
 bool_t BgL_test3597z00_10576;
{ /* Llib/thread.scm 164 */
 obj_t BgL_classz00_6030;
BgL_classz00_6030 = BGl_objectz00zz__objectz00; 
if(
BGL_OBJECTP(BgL_oz00_3663))
{ /* Llib/thread.scm 164 */
 BgL_objectz00_bglt BgL_arg1953z00_6032; long BgL_arg1954z00_6033;
BgL_arg1953z00_6032 = 
(BgL_objectz00_bglt)(BgL_oz00_3663); 
BgL_arg1954z00_6033 = 
BGL_CLASS_DEPTH(BgL_classz00_6030); 
if(
BGL_CONDEXPAND_ISA_ARCH64())
{ /* Llib/thread.scm 164 */
 long BgL_idxz00_6041;
BgL_idxz00_6041 = 
BGL_OBJECT_INHERITANCE_NUM(BgL_arg1953z00_6032); 
{ /* Llib/thread.scm 164 */
 obj_t BgL_arg1943z00_6042;
{ /* Llib/thread.scm 164 */
 long BgL_arg1944z00_6043;
BgL_arg1944z00_6043 = 
(BgL_idxz00_6041+BgL_arg1954z00_6033); 
BgL_arg1943z00_6042 = 
VECTOR_REF(BGl_za2inheritancesza2z00zz__objectz00,BgL_arg1944z00_6043); } 
BgL_test3597z00_10576 = 
(BgL_arg1943z00_6042==BgL_classz00_6030); } }  else 
{ /* Llib/thread.scm 164 */
 bool_t BgL_res2066z00_6048;
{ /* Llib/thread.scm 164 */
 obj_t BgL_oclassz00_6052;
{ /* Llib/thread.scm 164 */
 obj_t BgL_arg1959z00_6054; long BgL_arg1960z00_6055;
BgL_arg1959z00_6054 = 
(BGl_za2classesza2z00zz__objectz00); 
{ /* Llib/thread.scm 164 */
 long BgL_arg1961z00_6056;
BgL_arg1961z00_6056 = 
BGL_OBJECT_CLASS_NUM(BgL_arg1953z00_6032); 
BgL_arg1960z00_6055 = 
(BgL_arg1961z00_6056-OBJECT_TYPE); } 
BgL_oclassz00_6052 = 
VECTOR_REF(BgL_arg1959z00_6054,BgL_arg1960z00_6055); } 
{ /* Llib/thread.scm 164 */
 bool_t BgL__ortest_1149z00_6062;
BgL__ortest_1149z00_6062 = 
(BgL_classz00_6030==BgL_oclassz00_6052); 
if(BgL__ortest_1149z00_6062)
{ /* Llib/thread.scm 164 */
BgL_res2066z00_6048 = BgL__ortest_1149z00_6062; }  else 
{ /* Llib/thread.scm 164 */
 long BgL_odepthz00_6063;
{ /* Llib/thread.scm 164 */
 obj_t BgL_arg1947z00_6064;
BgL_arg1947z00_6064 = 
(BgL_oclassz00_6052); 
BgL_odepthz00_6063 = 
BGL_CLASS_DEPTH(BgL_arg1947z00_6064); } 
if(
(BgL_arg1954z00_6033<BgL_odepthz00_6063))
{ /* Llib/thread.scm 164 */
 obj_t BgL_arg1945z00_6068;
{ /* Llib/thread.scm 164 */
 obj_t BgL_arg1946z00_6069;
BgL_arg1946z00_6069 = 
(BgL_oclassz00_6052); 
BgL_arg1945z00_6068 = 
BGL_CLASS_ANCESTORS_REF(BgL_arg1946z00_6069, BgL_arg1954z00_6033); } 
BgL_res2066z00_6048 = 
(BgL_arg1945z00_6068==BgL_classz00_6030); }  else 
{ /* Llib/thread.scm 164 */
BgL_res2066z00_6048 = ((bool_t)0); } } } } 
BgL_test3597z00_10576 = BgL_res2066z00_6048; } }  else 
{ /* Llib/thread.scm 164 */
BgL_test3597z00_10576 = ((bool_t)0)
; } } 
if(BgL_test3597z00_10576)
{ /* Llib/thread.scm 164 */
BgL_auxz00_10575 = 
((BgL_objectz00_bglt)BgL_oz00_3663)
; }  else 
{ 
 obj_t BgL_auxz00_10601;
BgL_auxz00_10601 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2484z00zz__threadz00, 
BINT(5779L), BGl_string2661z00zz__threadz00, BGl_string2659z00zz__threadz00, BgL_oz00_3663); 
FAILURE(BgL_auxz00_10601,BFALSE,BFALSE);} } 
return 
BGl_callzd2virtualzd2setterz00zz__objectz00(BgL_auxz00_10575, 
(int)(0L), BgL_vz00_3664);} } 

}



/* &<@anonymous:1398> */
obj_t BGl_z62zc3z04anonymousza31398ze3ze5zz__threadz00(obj_t BgL_envz00_3665, obj_t BgL_oz00_3666)
{
{ /* Llib/thread.scm 164 */
{ /* Llib/thread.scm 164 */
 BgL_objectz00_bglt BgL_auxz00_10607;
{ /* Llib/thread.scm 164 */
 bool_t BgL_test3602z00_10608;
{ /* Llib/thread.scm 164 */
 obj_t BgL_classz00_6110;
BgL_classz00_6110 = BGl_objectz00zz__objectz00; 
if(
BGL_OBJECTP(BgL_oz00_3666))
{ /* Llib/thread.scm 164 */
 BgL_objectz00_bglt BgL_arg1953z00_6112; long BgL_arg1954z00_6113;
BgL_arg1953z00_6112 = 
(BgL_objectz00_bglt)(BgL_oz00_3666); 
BgL_arg1954z00_6113 = 
BGL_CLASS_DEPTH(BgL_classz00_6110); 
if(
BGL_CONDEXPAND_ISA_ARCH64())
{ /* Llib/thread.scm 164 */
 long BgL_idxz00_6121;
BgL_idxz00_6121 = 
BGL_OBJECT_INHERITANCE_NUM(BgL_arg1953z00_6112); 
{ /* Llib/thread.scm 164 */
 obj_t BgL_arg1943z00_6122;
{ /* Llib/thread.scm 164 */
 long BgL_arg1944z00_6123;
BgL_arg1944z00_6123 = 
(BgL_idxz00_6121+BgL_arg1954z00_6113); 
BgL_arg1943z00_6122 = 
VECTOR_REF(BGl_za2inheritancesza2z00zz__objectz00,BgL_arg1944z00_6123); } 
BgL_test3602z00_10608 = 
(BgL_arg1943z00_6122==BgL_classz00_6110); } }  else 
{ /* Llib/thread.scm 164 */
 bool_t BgL_res2066z00_6128;
{ /* Llib/thread.scm 164 */
 obj_t BgL_oclassz00_6132;
{ /* Llib/thread.scm 164 */
 obj_t BgL_arg1959z00_6134; long BgL_arg1960z00_6135;
BgL_arg1959z00_6134 = 
(BGl_za2classesza2z00zz__objectz00); 
{ /* Llib/thread.scm 164 */
 long BgL_arg1961z00_6136;
BgL_arg1961z00_6136 = 
BGL_OBJECT_CLASS_NUM(BgL_arg1953z00_6112); 
BgL_arg1960z00_6135 = 
(BgL_arg1961z00_6136-OBJECT_TYPE); } 
BgL_oclassz00_6132 = 
VECTOR_REF(BgL_arg1959z00_6134,BgL_arg1960z00_6135); } 
{ /* Llib/thread.scm 164 */
 bool_t BgL__ortest_1149z00_6142;
BgL__ortest_1149z00_6142 = 
(BgL_classz00_6110==BgL_oclassz00_6132); 
if(BgL__ortest_1149z00_6142)
{ /* Llib/thread.scm 164 */
BgL_res2066z00_6128 = BgL__ortest_1149z00_6142; }  else 
{ /* Llib/thread.scm 164 */
 long BgL_odepthz00_6143;
{ /* Llib/thread.scm 164 */
 obj_t BgL_arg1947z00_6144;
BgL_arg1947z00_6144 = 
(BgL_oclassz00_6132); 
BgL_odepthz00_6143 = 
BGL_CLASS_DEPTH(BgL_arg1947z00_6144); } 
if(
(BgL_arg1954z00_6113<BgL_odepthz00_6143))
{ /* Llib/thread.scm 164 */
 obj_t BgL_arg1945z00_6148;
{ /* Llib/thread.scm 164 */
 obj_t BgL_arg1946z00_6149;
BgL_arg1946z00_6149 = 
(BgL_oclassz00_6132); 
BgL_arg1945z00_6148 = 
BGL_CLASS_ANCESTORS_REF(BgL_arg1946z00_6149, BgL_arg1954z00_6113); } 
BgL_res2066z00_6128 = 
(BgL_arg1945z00_6148==BgL_classz00_6110); }  else 
{ /* Llib/thread.scm 164 */
BgL_res2066z00_6128 = ((bool_t)0); } } } } 
BgL_test3602z00_10608 = BgL_res2066z00_6128; } }  else 
{ /* Llib/thread.scm 164 */
BgL_test3602z00_10608 = ((bool_t)0)
; } } 
if(BgL_test3602z00_10608)
{ /* Llib/thread.scm 164 */
BgL_auxz00_10607 = 
((BgL_objectz00_bglt)BgL_oz00_3666)
; }  else 
{ 
 obj_t BgL_auxz00_10633;
BgL_auxz00_10633 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2484z00zz__threadz00, 
BINT(5779L), BGl_string2662z00zz__threadz00, BGl_string2659z00zz__threadz00, BgL_oz00_3666); 
FAILURE(BgL_auxz00_10633,BFALSE,BFALSE);} } 
return 
BGl_callzd2virtualzd2getterz00zz__objectz00(BgL_auxz00_10607, 
(int)(0L));} } 

}



/* &<@anonymous:1394> */
obj_t BGl_z62zc3z04anonymousza31394ze3ze5zz__threadz00(obj_t BgL_envz00_3667)
{
{ /* Llib/thread.scm 164 */
return 
BGl_gensymz00zz__r4_symbols_6_4z00(BGl_symbol2499z00zz__threadz00);} 

}



/* &lambda1393 */
obj_t BGl_z62lambda1393z62zz__threadz00(obj_t BgL_envz00_3668, obj_t BgL_oz00_3669, obj_t BgL_vz00_3670)
{
{ /* Llib/thread.scm 164 */
{ /* Llib/thread.scm 164 */
 BgL_threadz00_bglt BgL_oz00_6190;
{ /* Llib/thread.scm 164 */
 bool_t BgL_test3607z00_10640;
{ /* Llib/thread.scm 164 */
 obj_t BgL_classz00_6150;
BgL_classz00_6150 = BGl_threadz00zz__threadz00; 
if(
BGL_OBJECTP(BgL_oz00_3669))
{ /* Llib/thread.scm 164 */
 BgL_objectz00_bglt BgL_arg1953z00_6152; long BgL_arg1954z00_6153;
BgL_arg1953z00_6152 = 
(BgL_objectz00_bglt)(BgL_oz00_3669); 
BgL_arg1954z00_6153 = 
BGL_CLASS_DEPTH(BgL_classz00_6150); 
if(
BGL_CONDEXPAND_ISA_ARCH64())
{ /* Llib/thread.scm 164 */
 long BgL_idxz00_6161;
BgL_idxz00_6161 = 
BGL_OBJECT_INHERITANCE_NUM(BgL_arg1953z00_6152); 
{ /* Llib/thread.scm 164 */
 obj_t BgL_arg1943z00_6162;
{ /* Llib/thread.scm 164 */
 long BgL_arg1944z00_6163;
BgL_arg1944z00_6163 = 
(BgL_idxz00_6161+BgL_arg1954z00_6153); 
BgL_arg1943z00_6162 = 
VECTOR_REF(BGl_za2inheritancesza2z00zz__objectz00,BgL_arg1944z00_6163); } 
BgL_test3607z00_10640 = 
(BgL_arg1943z00_6162==BgL_classz00_6150); } }  else 
{ /* Llib/thread.scm 164 */
 bool_t BgL_res2066z00_6168;
{ /* Llib/thread.scm 164 */
 obj_t BgL_oclassz00_6172;
{ /* Llib/thread.scm 164 */
 obj_t BgL_arg1959z00_6174; long BgL_arg1960z00_6175;
BgL_arg1959z00_6174 = 
(BGl_za2classesza2z00zz__objectz00); 
{ /* Llib/thread.scm 164 */
 long BgL_arg1961z00_6176;
BgL_arg1961z00_6176 = 
BGL_OBJECT_CLASS_NUM(BgL_arg1953z00_6152); 
BgL_arg1960z00_6175 = 
(BgL_arg1961z00_6176-OBJECT_TYPE); } 
BgL_oclassz00_6172 = 
VECTOR_REF(BgL_arg1959z00_6174,BgL_arg1960z00_6175); } 
{ /* Llib/thread.scm 164 */
 bool_t BgL__ortest_1149z00_6182;
BgL__ortest_1149z00_6182 = 
(BgL_classz00_6150==BgL_oclassz00_6172); 
if(BgL__ortest_1149z00_6182)
{ /* Llib/thread.scm 164 */
BgL_res2066z00_6168 = BgL__ortest_1149z00_6182; }  else 
{ /* Llib/thread.scm 164 */
 long BgL_odepthz00_6183;
{ /* Llib/thread.scm 164 */
 obj_t BgL_arg1947z00_6184;
BgL_arg1947z00_6184 = 
(BgL_oclassz00_6172); 
BgL_odepthz00_6183 = 
BGL_CLASS_DEPTH(BgL_arg1947z00_6184); } 
if(
(BgL_arg1954z00_6153<BgL_odepthz00_6183))
{ /* Llib/thread.scm 164 */
 obj_t BgL_arg1945z00_6188;
{ /* Llib/thread.scm 164 */
 obj_t BgL_arg1946z00_6189;
BgL_arg1946z00_6189 = 
(BgL_oclassz00_6172); 
BgL_arg1945z00_6188 = 
BGL_CLASS_ANCESTORS_REF(BgL_arg1946z00_6189, BgL_arg1954z00_6153); } 
BgL_res2066z00_6168 = 
(BgL_arg1945z00_6188==BgL_classz00_6150); }  else 
{ /* Llib/thread.scm 164 */
BgL_res2066z00_6168 = ((bool_t)0); } } } } 
BgL_test3607z00_10640 = BgL_res2066z00_6168; } }  else 
{ /* Llib/thread.scm 164 */
BgL_test3607z00_10640 = ((bool_t)0)
; } } 
if(BgL_test3607z00_10640)
{ /* Llib/thread.scm 164 */
BgL_oz00_6190 = 
((BgL_threadz00_bglt)BgL_oz00_3669); }  else 
{ 
 obj_t BgL_auxz00_10665;
BgL_auxz00_10665 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2484z00zz__threadz00, 
BINT(5779L), BGl_string2663z00zz__threadz00, BGl_string2500z00zz__threadz00, BgL_oz00_3669); 
FAILURE(BgL_auxz00_10665,BFALSE,BFALSE);} } 
return 
((((BgL_threadz00_bglt)COBJECT(BgL_oz00_6190))->BgL_namez00)=((obj_t)BgL_vz00_3670),BUNSPEC);} } 

}



/* &lambda1392 */
obj_t BGl_z62lambda1392z62zz__threadz00(obj_t BgL_envz00_3671, obj_t BgL_oz00_3672)
{
{ /* Llib/thread.scm 164 */
{ /* Llib/thread.scm 164 */
 BgL_threadz00_bglt BgL_oz00_6231;
{ /* Llib/thread.scm 164 */
 bool_t BgL_test3612z00_10670;
{ /* Llib/thread.scm 164 */
 obj_t BgL_classz00_6191;
BgL_classz00_6191 = BGl_threadz00zz__threadz00; 
if(
BGL_OBJECTP(BgL_oz00_3672))
{ /* Llib/thread.scm 164 */
 BgL_objectz00_bglt BgL_arg1953z00_6193; long BgL_arg1954z00_6194;
BgL_arg1953z00_6193 = 
(BgL_objectz00_bglt)(BgL_oz00_3672); 
BgL_arg1954z00_6194 = 
BGL_CLASS_DEPTH(BgL_classz00_6191); 
if(
BGL_CONDEXPAND_ISA_ARCH64())
{ /* Llib/thread.scm 164 */
 long BgL_idxz00_6202;
BgL_idxz00_6202 = 
BGL_OBJECT_INHERITANCE_NUM(BgL_arg1953z00_6193); 
{ /* Llib/thread.scm 164 */
 obj_t BgL_arg1943z00_6203;
{ /* Llib/thread.scm 164 */
 long BgL_arg1944z00_6204;
BgL_arg1944z00_6204 = 
(BgL_idxz00_6202+BgL_arg1954z00_6194); 
BgL_arg1943z00_6203 = 
VECTOR_REF(BGl_za2inheritancesza2z00zz__objectz00,BgL_arg1944z00_6204); } 
BgL_test3612z00_10670 = 
(BgL_arg1943z00_6203==BgL_classz00_6191); } }  else 
{ /* Llib/thread.scm 164 */
 bool_t BgL_res2066z00_6209;
{ /* Llib/thread.scm 164 */
 obj_t BgL_oclassz00_6213;
{ /* Llib/thread.scm 164 */
 obj_t BgL_arg1959z00_6215; long BgL_arg1960z00_6216;
BgL_arg1959z00_6215 = 
(BGl_za2classesza2z00zz__objectz00); 
{ /* Llib/thread.scm 164 */
 long BgL_arg1961z00_6217;
BgL_arg1961z00_6217 = 
BGL_OBJECT_CLASS_NUM(BgL_arg1953z00_6193); 
BgL_arg1960z00_6216 = 
(BgL_arg1961z00_6217-OBJECT_TYPE); } 
BgL_oclassz00_6213 = 
VECTOR_REF(BgL_arg1959z00_6215,BgL_arg1960z00_6216); } 
{ /* Llib/thread.scm 164 */
 bool_t BgL__ortest_1149z00_6223;
BgL__ortest_1149z00_6223 = 
(BgL_classz00_6191==BgL_oclassz00_6213); 
if(BgL__ortest_1149z00_6223)
{ /* Llib/thread.scm 164 */
BgL_res2066z00_6209 = BgL__ortest_1149z00_6223; }  else 
{ /* Llib/thread.scm 164 */
 long BgL_odepthz00_6224;
{ /* Llib/thread.scm 164 */
 obj_t BgL_arg1947z00_6225;
BgL_arg1947z00_6225 = 
(BgL_oclassz00_6213); 
BgL_odepthz00_6224 = 
BGL_CLASS_DEPTH(BgL_arg1947z00_6225); } 
if(
(BgL_arg1954z00_6194<BgL_odepthz00_6224))
{ /* Llib/thread.scm 164 */
 obj_t BgL_arg1945z00_6229;
{ /* Llib/thread.scm 164 */
 obj_t BgL_arg1946z00_6230;
BgL_arg1946z00_6230 = 
(BgL_oclassz00_6213); 
BgL_arg1945z00_6229 = 
BGL_CLASS_ANCESTORS_REF(BgL_arg1946z00_6230, BgL_arg1954z00_6194); } 
BgL_res2066z00_6209 = 
(BgL_arg1945z00_6229==BgL_classz00_6191); }  else 
{ /* Llib/thread.scm 164 */
BgL_res2066z00_6209 = ((bool_t)0); } } } } 
BgL_test3612z00_10670 = BgL_res2066z00_6209; } }  else 
{ /* Llib/thread.scm 164 */
BgL_test3612z00_10670 = ((bool_t)0)
; } } 
if(BgL_test3612z00_10670)
{ /* Llib/thread.scm 164 */
BgL_oz00_6231 = 
((BgL_threadz00_bglt)BgL_oz00_3672); }  else 
{ 
 obj_t BgL_auxz00_10695;
BgL_auxz00_10695 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2484z00zz__threadz00, 
BINT(5779L), BGl_string2664z00zz__threadz00, BGl_string2500z00zz__threadz00, BgL_oz00_3672); 
FAILURE(BgL_auxz00_10695,BFALSE,BFALSE);} } 
return 
(((BgL_threadz00_bglt)COBJECT(BgL_oz00_6231))->BgL_namez00);} } 

}



/* &<@anonymous:1375> */
obj_t BGl_z62zc3z04anonymousza31375ze3ze5zz__threadz00(obj_t BgL_envz00_3673, obj_t BgL_new1039z00_3674)
{
{ /* Llib/thread.scm 161 */
{ 
 BgL_threadzd2backendzd2_bglt BgL_auxz00_10700;
{ /* Llib/thread.scm 161 */
 BgL_threadzd2backendzd2_bglt BgL_new1039z00_6272;
{ /* Llib/thread.scm 161 */
 bool_t BgL_test3617z00_10701;
{ /* Llib/thread.scm 161 */
 obj_t BgL_classz00_6232;
BgL_classz00_6232 = BGl_threadzd2backendzd2zz__threadz00; 
if(
BGL_OBJECTP(BgL_new1039z00_3674))
{ /* Llib/thread.scm 161 */
 BgL_objectz00_bglt BgL_arg1953z00_6234; long BgL_arg1954z00_6235;
BgL_arg1953z00_6234 = 
(BgL_objectz00_bglt)(BgL_new1039z00_3674); 
BgL_arg1954z00_6235 = 
BGL_CLASS_DEPTH(BgL_classz00_6232); 
if(
BGL_CONDEXPAND_ISA_ARCH64())
{ /* Llib/thread.scm 161 */
 long BgL_idxz00_6243;
BgL_idxz00_6243 = 
BGL_OBJECT_INHERITANCE_NUM(BgL_arg1953z00_6234); 
{ /* Llib/thread.scm 161 */
 obj_t BgL_arg1943z00_6244;
{ /* Llib/thread.scm 161 */
 long BgL_arg1944z00_6245;
BgL_arg1944z00_6245 = 
(BgL_idxz00_6243+BgL_arg1954z00_6235); 
BgL_arg1943z00_6244 = 
VECTOR_REF(BGl_za2inheritancesza2z00zz__objectz00,BgL_arg1944z00_6245); } 
BgL_test3617z00_10701 = 
(BgL_arg1943z00_6244==BgL_classz00_6232); } }  else 
{ /* Llib/thread.scm 161 */
 bool_t BgL_res2066z00_6250;
{ /* Llib/thread.scm 161 */
 obj_t BgL_oclassz00_6254;
{ /* Llib/thread.scm 161 */
 obj_t BgL_arg1959z00_6256; long BgL_arg1960z00_6257;
BgL_arg1959z00_6256 = 
(BGl_za2classesza2z00zz__objectz00); 
{ /* Llib/thread.scm 161 */
 long BgL_arg1961z00_6258;
BgL_arg1961z00_6258 = 
BGL_OBJECT_CLASS_NUM(BgL_arg1953z00_6234); 
BgL_arg1960z00_6257 = 
(BgL_arg1961z00_6258-OBJECT_TYPE); } 
BgL_oclassz00_6254 = 
VECTOR_REF(BgL_arg1959z00_6256,BgL_arg1960z00_6257); } 
{ /* Llib/thread.scm 161 */
 bool_t BgL__ortest_1149z00_6264;
BgL__ortest_1149z00_6264 = 
(BgL_classz00_6232==BgL_oclassz00_6254); 
if(BgL__ortest_1149z00_6264)
{ /* Llib/thread.scm 161 */
BgL_res2066z00_6250 = BgL__ortest_1149z00_6264; }  else 
{ /* Llib/thread.scm 161 */
 long BgL_odepthz00_6265;
{ /* Llib/thread.scm 161 */
 obj_t BgL_arg1947z00_6266;
BgL_arg1947z00_6266 = 
(BgL_oclassz00_6254); 
BgL_odepthz00_6265 = 
BGL_CLASS_DEPTH(BgL_arg1947z00_6266); } 
if(
(BgL_arg1954z00_6235<BgL_odepthz00_6265))
{ /* Llib/thread.scm 161 */
 obj_t BgL_arg1945z00_6270;
{ /* Llib/thread.scm 161 */
 obj_t BgL_arg1946z00_6271;
BgL_arg1946z00_6271 = 
(BgL_oclassz00_6254); 
BgL_arg1945z00_6270 = 
BGL_CLASS_ANCESTORS_REF(BgL_arg1946z00_6271, BgL_arg1954z00_6235); } 
BgL_res2066z00_6250 = 
(BgL_arg1945z00_6270==BgL_classz00_6232); }  else 
{ /* Llib/thread.scm 161 */
BgL_res2066z00_6250 = ((bool_t)0); } } } } 
BgL_test3617z00_10701 = BgL_res2066z00_6250; } }  else 
{ /* Llib/thread.scm 161 */
BgL_test3617z00_10701 = ((bool_t)0)
; } } 
if(BgL_test3617z00_10701)
{ /* Llib/thread.scm 161 */
BgL_new1039z00_6272 = 
((BgL_threadzd2backendzd2_bglt)BgL_new1039z00_3674); }  else 
{ 
 obj_t BgL_auxz00_10726;
BgL_auxz00_10726 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2484z00zz__threadz00, 
BINT(5716L), BGl_string2665z00zz__threadz00, BGl_string2486z00zz__threadz00, BgL_new1039z00_3674); 
FAILURE(BgL_auxz00_10726,BFALSE,BFALSE);} } 
((((BgL_threadzd2backendzd2_bglt)COBJECT(BgL_new1039z00_6272))->BgL_namez00)=((obj_t)BGl_string2628z00zz__threadz00),BUNSPEC); 
BgL_auxz00_10700 = BgL_new1039z00_6272; } 
return 
((obj_t)BgL_auxz00_10700);} } 

}



/* &lambda1373 */
BgL_threadzd2backendzd2_bglt BGl_z62lambda1373z62zz__threadz00(obj_t BgL_envz00_3675)
{
{ /* Llib/thread.scm 161 */
{ /* Llib/thread.scm 161 */
 BgL_threadzd2backendzd2_bglt BgL_new1038z00_6273;
BgL_new1038z00_6273 = 
((BgL_threadzd2backendzd2_bglt)BOBJECT( GC_MALLOC( sizeof(struct BgL_threadzd2backendzd2_bgl) ))); 
{ /* Llib/thread.scm 161 */
 long BgL_arg1374z00_6274;
BgL_arg1374z00_6274 = 
BGL_CLASS_NUM(BGl_threadzd2backendzd2zz__threadz00); 
BGL_OBJECT_CLASS_NUM_SET(
((BgL_objectz00_bglt)BgL_new1038z00_6273), BgL_arg1374z00_6274); } 
return BgL_new1038z00_6273;} } 

}



/* &lambda1371 */
BgL_threadzd2backendzd2_bglt BGl_z62lambda1371z62zz__threadz00(obj_t BgL_envz00_3676, obj_t BgL_name1037z00_3677)
{
{ /* Llib/thread.scm 161 */
{ /* Llib/thread.scm 161 */
 obj_t BgL_name1037z00_6275;
if(
STRINGP(BgL_name1037z00_3677))
{ /* Llib/thread.scm 161 */
BgL_name1037z00_6275 = BgL_name1037z00_3677; }  else 
{ 
 obj_t BgL_auxz00_10738;
BgL_auxz00_10738 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2484z00zz__threadz00, 
BINT(5716L), BGl_string2666z00zz__threadz00, BGl_string2492z00zz__threadz00, BgL_name1037z00_3677); 
FAILURE(BgL_auxz00_10738,BFALSE,BFALSE);} 
{ /* Llib/thread.scm 161 */
 BgL_threadzd2backendzd2_bglt BgL_new1113z00_6276;
{ /* Llib/thread.scm 161 */
 BgL_threadzd2backendzd2_bglt BgL_new1112z00_6277;
BgL_new1112z00_6277 = 
((BgL_threadzd2backendzd2_bglt)BOBJECT( GC_MALLOC( sizeof(struct BgL_threadzd2backendzd2_bgl) ))); 
{ /* Llib/thread.scm 161 */
 long BgL_arg1372z00_6278;
BgL_arg1372z00_6278 = 
BGL_CLASS_NUM(BGl_threadzd2backendzd2zz__threadz00); 
BGL_OBJECT_CLASS_NUM_SET(
((BgL_objectz00_bglt)BgL_new1112z00_6277), BgL_arg1372z00_6278); } 
BgL_new1113z00_6276 = BgL_new1112z00_6277; } 
((((BgL_threadzd2backendzd2_bglt)COBJECT(BgL_new1113z00_6276))->BgL_namez00)=((obj_t)BgL_name1037z00_6275),BUNSPEC); 
return BgL_new1113z00_6276;} } } 

}



/* &lambda1380 */
obj_t BGl_z62lambda1380z62zz__threadz00(obj_t BgL_envz00_3678, obj_t BgL_oz00_3679, obj_t BgL_vz00_3680)
{
{ /* Llib/thread.scm 161 */
{ /* Llib/thread.scm 161 */
 BgL_threadzd2backendzd2_bglt BgL_oz00_6319; obj_t BgL_vz00_6320;
{ /* Llib/thread.scm 161 */
 bool_t BgL_test3623z00_10747;
{ /* Llib/thread.scm 161 */
 obj_t BgL_classz00_6279;
BgL_classz00_6279 = BGl_threadzd2backendzd2zz__threadz00; 
if(
BGL_OBJECTP(BgL_oz00_3679))
{ /* Llib/thread.scm 161 */
 BgL_objectz00_bglt BgL_arg1953z00_6281; long BgL_arg1954z00_6282;
BgL_arg1953z00_6281 = 
(BgL_objectz00_bglt)(BgL_oz00_3679); 
BgL_arg1954z00_6282 = 
BGL_CLASS_DEPTH(BgL_classz00_6279); 
if(
BGL_CONDEXPAND_ISA_ARCH64())
{ /* Llib/thread.scm 161 */
 long BgL_idxz00_6290;
BgL_idxz00_6290 = 
BGL_OBJECT_INHERITANCE_NUM(BgL_arg1953z00_6281); 
{ /* Llib/thread.scm 161 */
 obj_t BgL_arg1943z00_6291;
{ /* Llib/thread.scm 161 */
 long BgL_arg1944z00_6292;
BgL_arg1944z00_6292 = 
(BgL_idxz00_6290+BgL_arg1954z00_6282); 
BgL_arg1943z00_6291 = 
VECTOR_REF(BGl_za2inheritancesza2z00zz__objectz00,BgL_arg1944z00_6292); } 
BgL_test3623z00_10747 = 
(BgL_arg1943z00_6291==BgL_classz00_6279); } }  else 
{ /* Llib/thread.scm 161 */
 bool_t BgL_res2066z00_6297;
{ /* Llib/thread.scm 161 */
 obj_t BgL_oclassz00_6301;
{ /* Llib/thread.scm 161 */
 obj_t BgL_arg1959z00_6303; long BgL_arg1960z00_6304;
BgL_arg1959z00_6303 = 
(BGl_za2classesza2z00zz__objectz00); 
{ /* Llib/thread.scm 161 */
 long BgL_arg1961z00_6305;
BgL_arg1961z00_6305 = 
BGL_OBJECT_CLASS_NUM(BgL_arg1953z00_6281); 
BgL_arg1960z00_6304 = 
(BgL_arg1961z00_6305-OBJECT_TYPE); } 
BgL_oclassz00_6301 = 
VECTOR_REF(BgL_arg1959z00_6303,BgL_arg1960z00_6304); } 
{ /* Llib/thread.scm 161 */
 bool_t BgL__ortest_1149z00_6311;
BgL__ortest_1149z00_6311 = 
(BgL_classz00_6279==BgL_oclassz00_6301); 
if(BgL__ortest_1149z00_6311)
{ /* Llib/thread.scm 161 */
BgL_res2066z00_6297 = BgL__ortest_1149z00_6311; }  else 
{ /* Llib/thread.scm 161 */
 long BgL_odepthz00_6312;
{ /* Llib/thread.scm 161 */
 obj_t BgL_arg1947z00_6313;
BgL_arg1947z00_6313 = 
(BgL_oclassz00_6301); 
BgL_odepthz00_6312 = 
BGL_CLASS_DEPTH(BgL_arg1947z00_6313); } 
if(
(BgL_arg1954z00_6282<BgL_odepthz00_6312))
{ /* Llib/thread.scm 161 */
 obj_t BgL_arg1945z00_6317;
{ /* Llib/thread.scm 161 */
 obj_t BgL_arg1946z00_6318;
BgL_arg1946z00_6318 = 
(BgL_oclassz00_6301); 
BgL_arg1945z00_6317 = 
BGL_CLASS_ANCESTORS_REF(BgL_arg1946z00_6318, BgL_arg1954z00_6282); } 
BgL_res2066z00_6297 = 
(BgL_arg1945z00_6317==BgL_classz00_6279); }  else 
{ /* Llib/thread.scm 161 */
BgL_res2066z00_6297 = ((bool_t)0); } } } } 
BgL_test3623z00_10747 = BgL_res2066z00_6297; } }  else 
{ /* Llib/thread.scm 161 */
BgL_test3623z00_10747 = ((bool_t)0)
; } } 
if(BgL_test3623z00_10747)
{ /* Llib/thread.scm 161 */
BgL_oz00_6319 = 
((BgL_threadzd2backendzd2_bglt)BgL_oz00_3679); }  else 
{ 
 obj_t BgL_auxz00_10772;
BgL_auxz00_10772 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2484z00zz__threadz00, 
BINT(5716L), BGl_string2667z00zz__threadz00, BGl_string2486z00zz__threadz00, BgL_oz00_3679); 
FAILURE(BgL_auxz00_10772,BFALSE,BFALSE);} } 
if(
STRINGP(BgL_vz00_3680))
{ /* Llib/thread.scm 161 */
BgL_vz00_6320 = BgL_vz00_3680; }  else 
{ 
 obj_t BgL_auxz00_10778;
BgL_auxz00_10778 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2484z00zz__threadz00, 
BINT(5716L), BGl_string2667z00zz__threadz00, BGl_string2492z00zz__threadz00, BgL_vz00_3680); 
FAILURE(BgL_auxz00_10778,BFALSE,BFALSE);} 
return 
((((BgL_threadzd2backendzd2_bglt)COBJECT(BgL_oz00_6319))->BgL_namez00)=((obj_t)BgL_vz00_6320),BUNSPEC);} } 

}



/* &lambda1379 */
obj_t BGl_z62lambda1379z62zz__threadz00(obj_t BgL_envz00_3681, obj_t BgL_oz00_3682)
{
{ /* Llib/thread.scm 161 */
{ /* Llib/thread.scm 161 */
 BgL_threadzd2backendzd2_bglt BgL_oz00_6361;
{ /* Llib/thread.scm 161 */
 bool_t BgL_test3629z00_10783;
{ /* Llib/thread.scm 161 */
 obj_t BgL_classz00_6321;
BgL_classz00_6321 = BGl_threadzd2backendzd2zz__threadz00; 
if(
BGL_OBJECTP(BgL_oz00_3682))
{ /* Llib/thread.scm 161 */
 BgL_objectz00_bglt BgL_arg1953z00_6323; long BgL_arg1954z00_6324;
BgL_arg1953z00_6323 = 
(BgL_objectz00_bglt)(BgL_oz00_3682); 
BgL_arg1954z00_6324 = 
BGL_CLASS_DEPTH(BgL_classz00_6321); 
if(
BGL_CONDEXPAND_ISA_ARCH64())
{ /* Llib/thread.scm 161 */
 long BgL_idxz00_6332;
BgL_idxz00_6332 = 
BGL_OBJECT_INHERITANCE_NUM(BgL_arg1953z00_6323); 
{ /* Llib/thread.scm 161 */
 obj_t BgL_arg1943z00_6333;
{ /* Llib/thread.scm 161 */
 long BgL_arg1944z00_6334;
BgL_arg1944z00_6334 = 
(BgL_idxz00_6332+BgL_arg1954z00_6324); 
BgL_arg1943z00_6333 = 
VECTOR_REF(BGl_za2inheritancesza2z00zz__objectz00,BgL_arg1944z00_6334); } 
BgL_test3629z00_10783 = 
(BgL_arg1943z00_6333==BgL_classz00_6321); } }  else 
{ /* Llib/thread.scm 161 */
 bool_t BgL_res2066z00_6339;
{ /* Llib/thread.scm 161 */
 obj_t BgL_oclassz00_6343;
{ /* Llib/thread.scm 161 */
 obj_t BgL_arg1959z00_6345; long BgL_arg1960z00_6346;
BgL_arg1959z00_6345 = 
(BGl_za2classesza2z00zz__objectz00); 
{ /* Llib/thread.scm 161 */
 long BgL_arg1961z00_6347;
BgL_arg1961z00_6347 = 
BGL_OBJECT_CLASS_NUM(BgL_arg1953z00_6323); 
BgL_arg1960z00_6346 = 
(BgL_arg1961z00_6347-OBJECT_TYPE); } 
BgL_oclassz00_6343 = 
VECTOR_REF(BgL_arg1959z00_6345,BgL_arg1960z00_6346); } 
{ /* Llib/thread.scm 161 */
 bool_t BgL__ortest_1149z00_6353;
BgL__ortest_1149z00_6353 = 
(BgL_classz00_6321==BgL_oclassz00_6343); 
if(BgL__ortest_1149z00_6353)
{ /* Llib/thread.scm 161 */
BgL_res2066z00_6339 = BgL__ortest_1149z00_6353; }  else 
{ /* Llib/thread.scm 161 */
 long BgL_odepthz00_6354;
{ /* Llib/thread.scm 161 */
 obj_t BgL_arg1947z00_6355;
BgL_arg1947z00_6355 = 
(BgL_oclassz00_6343); 
BgL_odepthz00_6354 = 
BGL_CLASS_DEPTH(BgL_arg1947z00_6355); } 
if(
(BgL_arg1954z00_6324<BgL_odepthz00_6354))
{ /* Llib/thread.scm 161 */
 obj_t BgL_arg1945z00_6359;
{ /* Llib/thread.scm 161 */
 obj_t BgL_arg1946z00_6360;
BgL_arg1946z00_6360 = 
(BgL_oclassz00_6343); 
BgL_arg1945z00_6359 = 
BGL_CLASS_ANCESTORS_REF(BgL_arg1946z00_6360, BgL_arg1954z00_6324); } 
BgL_res2066z00_6339 = 
(BgL_arg1945z00_6359==BgL_classz00_6321); }  else 
{ /* Llib/thread.scm 161 */
BgL_res2066z00_6339 = ((bool_t)0); } } } } 
BgL_test3629z00_10783 = BgL_res2066z00_6339; } }  else 
{ /* Llib/thread.scm 161 */
BgL_test3629z00_10783 = ((bool_t)0)
; } } 
if(BgL_test3629z00_10783)
{ /* Llib/thread.scm 161 */
BgL_oz00_6361 = 
((BgL_threadzd2backendzd2_bglt)BgL_oz00_3682); }  else 
{ 
 obj_t BgL_auxz00_10808;
BgL_auxz00_10808 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2484z00zz__threadz00, 
BINT(5716L), BGl_string2668z00zz__threadz00, BGl_string2486z00zz__threadz00, BgL_oz00_3682); 
FAILURE(BgL_auxz00_10808,BFALSE,BFALSE);} } 
return 
(((BgL_threadzd2backendzd2_bglt)COBJECT(BgL_oz00_6361))->BgL_namez00);} } 

}



/* generic-init */
obj_t BGl_genericzd2initzd2zz__threadz00(void)
{
{ /* Llib/thread.scm 17 */
BGl_registerzd2genericz12zc0zz__objectz00(BGl_tbzd2makezd2threadzd2envzd2zz__threadz00, BGl_proc2669z00zz__threadz00, BGl_threadzd2backendzd2zz__threadz00, BGl_string2670z00zz__threadz00); 
BGl_registerzd2genericz12zc0zz__objectz00(BGl_tbzd2currentzd2threadzd2envzd2zz__threadz00, BGl_proc2671z00zz__threadz00, BGl_threadzd2backendzd2zz__threadz00, BGl_string2672z00zz__threadz00); 
BGl_registerzd2genericz12zc0zz__objectz00(BGl_tbzd2mutexzd2initializa7ez12zd2envz67zz__threadz00, BGl_proc2673z00zz__threadz00, BGl_threadzd2backendzd2zz__threadz00, BGl_string2674z00zz__threadz00); 
BGl_registerzd2genericz12zc0zz__objectz00(BGl_tbzd2condvarzd2initializa7ez12zd2envz67zz__threadz00, BGl_proc2675z00zz__threadz00, BGl_threadzd2backendzd2zz__threadz00, BGl_string2676z00zz__threadz00); 
BGl_registerzd2genericz12zc0zz__objectz00(BGl_threadzd2initializa7ez12zd2envzb5zz__threadz00, BGl_proc2677z00zz__threadz00, BGl_threadz00zz__threadz00, BGl_string2678z00zz__threadz00); 
BGl_registerzd2genericz12zc0zz__objectz00(BGl_threadzd2startz12zd2envz12zz__threadz00, BGl_proc2679z00zz__threadz00, BGl_threadz00zz__threadz00, BGl_string2680z00zz__threadz00); 
BGl_registerzd2genericz12zc0zz__objectz00(BGl_threadzd2startzd2joinablez12zd2envzc0zz__threadz00, BGl_proc2681z00zz__threadz00, BGl_threadz00zz__threadz00, BGl_string2682z00zz__threadz00); 
BGl_registerzd2genericz12zc0zz__objectz00(BGl_threadzd2joinz12zd2envz12zz__threadz00, BGl_proc2683z00zz__threadz00, BGl_threadz00zz__threadz00, BGl_string2684z00zz__threadz00); 
BGl_registerzd2genericz12zc0zz__objectz00(BGl_threadzd2terminatez12zd2envz12zz__threadz00, BGl_proc2685z00zz__threadz00, BGl_threadz00zz__threadz00, BGl_string2686z00zz__threadz00); 
BGl_registerzd2genericz12zc0zz__objectz00(BGl_threadzd2killz12zd2envz12zz__threadz00, BGl_proc2687z00zz__threadz00, BGl_threadz00zz__threadz00, BGl_string2688z00zz__threadz00); 
BGl_registerzd2genericz12zc0zz__objectz00(BGl_threadzd2specificzd2envz00zz__threadz00, BGl_proc2689z00zz__threadz00, BGl_threadz00zz__threadz00, BGl_string2690z00zz__threadz00); 
BGl_registerzd2genericz12zc0zz__objectz00(BGl_threadzd2specificzd2setz12zd2envzc0zz__threadz00, BGl_proc2691z00zz__threadz00, BGl_threadz00zz__threadz00, BGl_string2692z00zz__threadz00); 
BGl_registerzd2genericz12zc0zz__objectz00(BGl_threadzd2cleanupzd2envz00zz__threadz00, BGl_proc2693z00zz__threadz00, BGl_threadz00zz__threadz00, BGl_string2694z00zz__threadz00); 
BGl_registerzd2genericz12zc0zz__objectz00(BGl_threadzd2cleanupzd2setz12zd2envzc0zz__threadz00, BGl_proc2695z00zz__threadz00, BGl_threadz00zz__threadz00, BGl_string2696z00zz__threadz00); 
BGl_registerzd2genericz12zc0zz__objectz00(BGl_threadzd2namezd2envz00zz__threadz00, BGl_proc2697z00zz__threadz00, BGl_threadz00zz__threadz00, BGl_string2698z00zz__threadz00); 
BGl_registerzd2genericz12zc0zz__objectz00(BGl_threadzd2namezd2setz12zd2envzc0zz__threadz00, BGl_proc2699z00zz__threadz00, BGl_threadz00zz__threadz00, BGl_string2700z00zz__threadz00); 
BGl_registerzd2genericz12zc0zz__objectz00(BGl_z52userzd2currentzd2threadzd2envz80zz__threadz00, BGl_proc2701z00zz__threadz00, BGl_threadz00zz__threadz00, BGl_string2702z00zz__threadz00); 
BGl_registerzd2genericz12zc0zz__objectz00(BGl_z52userzd2threadzd2sleepz12zd2envz92zz__threadz00, BGl_proc2703z00zz__threadz00, BGl_threadz00zz__threadz00, BGl_string2704z00zz__threadz00); 
return 
BGl_registerzd2genericz12zc0zz__objectz00(BGl_z52userzd2threadzd2yieldz12zd2envz92zz__threadz00, BGl_proc2705z00zz__threadz00, BGl_threadz00zz__threadz00, BGl_string2706z00zz__threadz00);} 

}



/* &%user-thread-yield!1231 */
obj_t BGl_z62z52userzd2threadzd2yieldz121231z22zz__threadz00(obj_t BgL_envz00_3704, obj_t BgL_oz00_3705)
{
{ /* Llib/thread.scm 500 */
{ /* Llib/thread.scm 500 */
 BgL_threadz00_bglt BgL_oz00_6402;
{ /* Llib/thread.scm 500 */
 bool_t BgL_test3634z00_10832;
{ /* Llib/thread.scm 500 */
 obj_t BgL_classz00_6362;
BgL_classz00_6362 = BGl_threadz00zz__threadz00; 
if(
BGL_OBJECTP(BgL_oz00_3705))
{ /* Llib/thread.scm 500 */
 BgL_objectz00_bglt BgL_arg1953z00_6364; long BgL_arg1954z00_6365;
BgL_arg1953z00_6364 = 
(BgL_objectz00_bglt)(BgL_oz00_3705); 
BgL_arg1954z00_6365 = 
BGL_CLASS_DEPTH(BgL_classz00_6362); 
if(
BGL_CONDEXPAND_ISA_ARCH64())
{ /* Llib/thread.scm 500 */
 long BgL_idxz00_6373;
BgL_idxz00_6373 = 
BGL_OBJECT_INHERITANCE_NUM(BgL_arg1953z00_6364); 
{ /* Llib/thread.scm 500 */
 obj_t BgL_arg1943z00_6374;
{ /* Llib/thread.scm 500 */
 long BgL_arg1944z00_6375;
BgL_arg1944z00_6375 = 
(BgL_idxz00_6373+BgL_arg1954z00_6365); 
BgL_arg1943z00_6374 = 
VECTOR_REF(BGl_za2inheritancesza2z00zz__objectz00,BgL_arg1944z00_6375); } 
BgL_test3634z00_10832 = 
(BgL_arg1943z00_6374==BgL_classz00_6362); } }  else 
{ /* Llib/thread.scm 500 */
 bool_t BgL_res2066z00_6380;
{ /* Llib/thread.scm 500 */
 obj_t BgL_oclassz00_6384;
{ /* Llib/thread.scm 500 */
 obj_t BgL_arg1959z00_6386; long BgL_arg1960z00_6387;
BgL_arg1959z00_6386 = 
(BGl_za2classesza2z00zz__objectz00); 
{ /* Llib/thread.scm 500 */
 long BgL_arg1961z00_6388;
BgL_arg1961z00_6388 = 
BGL_OBJECT_CLASS_NUM(BgL_arg1953z00_6364); 
BgL_arg1960z00_6387 = 
(BgL_arg1961z00_6388-OBJECT_TYPE); } 
BgL_oclassz00_6384 = 
VECTOR_REF(BgL_arg1959z00_6386,BgL_arg1960z00_6387); } 
{ /* Llib/thread.scm 500 */
 bool_t BgL__ortest_1149z00_6394;
BgL__ortest_1149z00_6394 = 
(BgL_classz00_6362==BgL_oclassz00_6384); 
if(BgL__ortest_1149z00_6394)
{ /* Llib/thread.scm 500 */
BgL_res2066z00_6380 = BgL__ortest_1149z00_6394; }  else 
{ /* Llib/thread.scm 500 */
 long BgL_odepthz00_6395;
{ /* Llib/thread.scm 500 */
 obj_t BgL_arg1947z00_6396;
BgL_arg1947z00_6396 = 
(BgL_oclassz00_6384); 
BgL_odepthz00_6395 = 
BGL_CLASS_DEPTH(BgL_arg1947z00_6396); } 
if(
(BgL_arg1954z00_6365<BgL_odepthz00_6395))
{ /* Llib/thread.scm 500 */
 obj_t BgL_arg1945z00_6400;
{ /* Llib/thread.scm 500 */
 obj_t BgL_arg1946z00_6401;
BgL_arg1946z00_6401 = 
(BgL_oclassz00_6384); 
BgL_arg1945z00_6400 = 
BGL_CLASS_ANCESTORS_REF(BgL_arg1946z00_6401, BgL_arg1954z00_6365); } 
BgL_res2066z00_6380 = 
(BgL_arg1945z00_6400==BgL_classz00_6362); }  else 
{ /* Llib/thread.scm 500 */
BgL_res2066z00_6380 = ((bool_t)0); } } } } 
BgL_test3634z00_10832 = BgL_res2066z00_6380; } }  else 
{ /* Llib/thread.scm 500 */
BgL_test3634z00_10832 = ((bool_t)0)
; } } 
if(BgL_test3634z00_10832)
{ /* Llib/thread.scm 500 */
BgL_oz00_6402 = 
((BgL_threadz00_bglt)BgL_oz00_3705); }  else 
{ 
 obj_t BgL_auxz00_10857;
BgL_auxz00_10857 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2484z00zz__threadz00, 
BINT(21576L), BGl_string2707z00zz__threadz00, BGl_string2500z00zz__threadz00, BgL_oz00_3705); 
FAILURE(BgL_auxz00_10857,BFALSE,BFALSE);} } 
return BUNSPEC;} } 

}



/* &%user-thread-sleep!1228 */
obj_t BGl_z62z52userzd2threadzd2sleepz121228z22zz__threadz00(obj_t BgL_envz00_3706, obj_t BgL_oz00_3707, obj_t BgL_dz00_3708)
{
{ /* Llib/thread.scm 473 */
{ /* Llib/thread.scm 475 */
 BgL_threadz00_bglt BgL_oz00_6443;
{ /* Llib/thread.scm 475 */
 bool_t BgL_test3639z00_10861;
{ /* Llib/thread.scm 475 */
 obj_t BgL_classz00_6403;
BgL_classz00_6403 = BGl_threadz00zz__threadz00; 
if(
BGL_OBJECTP(BgL_oz00_3707))
{ /* Llib/thread.scm 475 */
 BgL_objectz00_bglt BgL_arg1953z00_6405; long BgL_arg1954z00_6406;
BgL_arg1953z00_6405 = 
(BgL_objectz00_bglt)(BgL_oz00_3707); 
BgL_arg1954z00_6406 = 
BGL_CLASS_DEPTH(BgL_classz00_6403); 
if(
BGL_CONDEXPAND_ISA_ARCH64())
{ /* Llib/thread.scm 475 */
 long BgL_idxz00_6414;
BgL_idxz00_6414 = 
BGL_OBJECT_INHERITANCE_NUM(BgL_arg1953z00_6405); 
{ /* Llib/thread.scm 475 */
 obj_t BgL_arg1943z00_6415;
{ /* Llib/thread.scm 475 */
 long BgL_arg1944z00_6416;
BgL_arg1944z00_6416 = 
(BgL_idxz00_6414+BgL_arg1954z00_6406); 
BgL_arg1943z00_6415 = 
VECTOR_REF(BGl_za2inheritancesza2z00zz__objectz00,BgL_arg1944z00_6416); } 
BgL_test3639z00_10861 = 
(BgL_arg1943z00_6415==BgL_classz00_6403); } }  else 
{ /* Llib/thread.scm 475 */
 bool_t BgL_res2066z00_6421;
{ /* Llib/thread.scm 475 */
 obj_t BgL_oclassz00_6425;
{ /* Llib/thread.scm 475 */
 obj_t BgL_arg1959z00_6427; long BgL_arg1960z00_6428;
BgL_arg1959z00_6427 = 
(BGl_za2classesza2z00zz__objectz00); 
{ /* Llib/thread.scm 475 */
 long BgL_arg1961z00_6429;
BgL_arg1961z00_6429 = 
BGL_OBJECT_CLASS_NUM(BgL_arg1953z00_6405); 
BgL_arg1960z00_6428 = 
(BgL_arg1961z00_6429-OBJECT_TYPE); } 
BgL_oclassz00_6425 = 
VECTOR_REF(BgL_arg1959z00_6427,BgL_arg1960z00_6428); } 
{ /* Llib/thread.scm 475 */
 bool_t BgL__ortest_1149z00_6435;
BgL__ortest_1149z00_6435 = 
(BgL_classz00_6403==BgL_oclassz00_6425); 
if(BgL__ortest_1149z00_6435)
{ /* Llib/thread.scm 475 */
BgL_res2066z00_6421 = BgL__ortest_1149z00_6435; }  else 
{ /* Llib/thread.scm 475 */
 long BgL_odepthz00_6436;
{ /* Llib/thread.scm 475 */
 obj_t BgL_arg1947z00_6437;
BgL_arg1947z00_6437 = 
(BgL_oclassz00_6425); 
BgL_odepthz00_6436 = 
BGL_CLASS_DEPTH(BgL_arg1947z00_6437); } 
if(
(BgL_arg1954z00_6406<BgL_odepthz00_6436))
{ /* Llib/thread.scm 475 */
 obj_t BgL_arg1945z00_6441;
{ /* Llib/thread.scm 475 */
 obj_t BgL_arg1946z00_6442;
BgL_arg1946z00_6442 = 
(BgL_oclassz00_6425); 
BgL_arg1945z00_6441 = 
BGL_CLASS_ANCESTORS_REF(BgL_arg1946z00_6442, BgL_arg1954z00_6406); } 
BgL_res2066z00_6421 = 
(BgL_arg1945z00_6441==BgL_classz00_6403); }  else 
{ /* Llib/thread.scm 475 */
BgL_res2066z00_6421 = ((bool_t)0); } } } } 
BgL_test3639z00_10861 = BgL_res2066z00_6421; } }  else 
{ /* Llib/thread.scm 475 */
BgL_test3639z00_10861 = ((bool_t)0)
; } } 
if(BgL_test3639z00_10861)
{ /* Llib/thread.scm 475 */
BgL_oz00_6443 = 
((BgL_threadz00_bglt)BgL_oz00_3707); }  else 
{ 
 obj_t BgL_auxz00_10886;
BgL_auxz00_10886 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2484z00zz__threadz00, 
BINT(20545L), BGl_string2711z00zz__threadz00, BGl_string2500z00zz__threadz00, BgL_oz00_3707); 
FAILURE(BgL_auxz00_10886,BFALSE,BFALSE);} } 
if(
BGL_DATEP(BgL_dz00_3708))
{ /* Llib/thread.scm 476 */
 long BgL_cdtz00_6444;
BgL_cdtz00_6444 = 
bgl_date_to_seconds(
bgl_nanoseconds_to_date(
bgl_current_nanoseconds())); 
{ /* Llib/thread.scm 476 */
 long BgL_dtz00_6445;
BgL_dtz00_6445 = 
bgl_date_to_seconds(BgL_dz00_3708); 
{ /* Llib/thread.scm 477 */
 obj_t BgL_az00_6446;
{ /* Llib/thread.scm 478 */
 long BgL_a1153z00_6447;
{ /* Llib/thread.scm 478 */
 long BgL_res1968z00_6448;
{ /* Llib/thread.scm 478 */
 long BgL_tmpz00_10896;
BgL_tmpz00_10896 = 
(BgL_dtz00_6445-BgL_cdtz00_6444); 
BgL_res1968z00_6448 = 
(long)(BgL_tmpz00_10896); } 
BgL_a1153z00_6447 = BgL_res1968z00_6448; } 
BgL_az00_6446 = 
BGl_2za2za2zz__r4_numbers_6_5z00(
make_belong(BgL_a1153z00_6447), 
BINT(1000000L)); } 
{ /* Llib/thread.scm 478 */

{ /* Llib/thread.scm 479 */
 bool_t BgL_test3645z00_10902;
{ /* Llib/thread.scm 479 */
 long BgL_n1z00_6449;
{ /* Llib/thread.scm 479 */
 obj_t BgL_tmpz00_10903;
if(
ELONGP(BgL_az00_6446))
{ /* Llib/thread.scm 479 */
BgL_tmpz00_10903 = BgL_az00_6446
; }  else 
{ 
 obj_t BgL_auxz00_10906;
BgL_auxz00_10906 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2484z00zz__threadz00, 
BINT(20694L), BGl_string2704z00zz__threadz00, BGl_string2708z00zz__threadz00, BgL_az00_6446); 
FAILURE(BgL_auxz00_10906,BFALSE,BFALSE);} 
BgL_n1z00_6449 = 
BELONG_TO_LONG(BgL_tmpz00_10903); } 
BgL_test3645z00_10902 = 
(BgL_n1z00_6449>((long)0)); } 
if(BgL_test3645z00_10902)
{ /* Llib/thread.scm 479 */
 long BgL_arg1514z00_6450;
{ /* Llib/thread.scm 479 */
 long BgL_xz00_6451;
{ /* Llib/thread.scm 479 */
 obj_t BgL_tmpz00_10912;
if(
ELONGP(BgL_az00_6446))
{ /* Llib/thread.scm 479 */
BgL_tmpz00_10912 = BgL_az00_6446
; }  else 
{ 
 obj_t BgL_auxz00_10915;
BgL_auxz00_10915 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2484z00zz__threadz00, 
BINT(20723L), BGl_string2704z00zz__threadz00, BGl_string2708z00zz__threadz00, BgL_az00_6446); 
FAILURE(BgL_auxz00_10915,BFALSE,BFALSE);} 
BgL_xz00_6451 = 
BELONG_TO_LONG(BgL_tmpz00_10912); } 
BgL_arg1514z00_6450 = 
(long)(BgL_xz00_6451); } 
bgl_sleep(BgL_arg1514z00_6450); BUNSPEC; 
return 
BINT(BgL_arg1514z00_6450);}  else 
{ /* Llib/thread.scm 479 */
return BFALSE;} } } } } }  else 
{ /* Llib/thread.scm 475 */
if(
INTEGERP(BgL_dz00_3708))
{ /* Llib/thread.scm 481 */
 obj_t BgL_arg1517z00_6452;
{ /* Llib/thread.scm 481 */
 obj_t BgL_tmpz00_6453;
BgL_tmpz00_6453 = 
BINT(0L); 
{ /* Llib/thread.scm 481 */
 bool_t BgL_test3649z00_10926;
{ /* Llib/thread.scm 481 */
 obj_t BgL_tmpz00_10927;
BgL_tmpz00_10927 = 
BINT(1000L); 
BgL_test3649z00_10926 = 
BGL_MULFX_OV(BgL_dz00_3708, BgL_tmpz00_10927, BgL_tmpz00_6453); } 
if(BgL_test3649z00_10926)
{ /* Llib/thread.scm 481 */
BgL_arg1517z00_6452 = 
bgl_bignum_mul(
bgl_long_to_bignum(
(long)CINT(BgL_dz00_3708)), 
bgl_long_to_bignum(1000L)); }  else 
{ /* Llib/thread.scm 481 */
BgL_arg1517z00_6452 = BgL_tmpz00_6453; } } } 
{ /* Llib/thread.scm 481 */
 long BgL_msz00_6454;
{ /* Llib/thread.scm 481 */
 obj_t BgL_tmpz00_10934;
if(
INTEGERP(BgL_arg1517z00_6452))
{ /* Llib/thread.scm 481 */
BgL_tmpz00_10934 = BgL_arg1517z00_6452
; }  else 
{ 
 obj_t BgL_auxz00_10937;
BgL_auxz00_10937 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2484z00zz__threadz00, 
BINT(20772L), BGl_string2704z00zz__threadz00, BGl_string2531z00zz__threadz00, BgL_arg1517z00_6452); 
FAILURE(BgL_auxz00_10937,BFALSE,BFALSE);} 
BgL_msz00_6454 = 
(long)CINT(BgL_tmpz00_10934); } 
bgl_sleep(BgL_msz00_6454); BUNSPEC; 
return 
BINT(BgL_msz00_6454);} }  else 
{ /* Llib/thread.scm 480 */
if(
ELONGP(BgL_dz00_3708))
{ /* Llib/thread.scm 483 */
 obj_t BgL_arg1520z00_6455;
{ /* Llib/thread.scm 483 */
 long BgL_a1154z00_6456;
{ /* Llib/thread.scm 483 */
 long BgL_xz00_6457;
BgL_xz00_6457 = 
BELONG_TO_LONG(BgL_dz00_3708); 
BgL_a1154z00_6456 = 
(long)(BgL_xz00_6457); } 
{ /* Llib/thread.scm 483 */
 obj_t BgL_za71za7_6458;
BgL_za71za7_6458 = 
BINT(BgL_a1154z00_6456); 
{ /* Llib/thread.scm 483 */
 obj_t BgL_tmpz00_6459;
BgL_tmpz00_6459 = 
BINT(0L); 
{ /* Llib/thread.scm 483 */
 bool_t BgL_test3652z00_10950;
{ /* Llib/thread.scm 483 */
 obj_t BgL_tmpz00_10951;
BgL_tmpz00_10951 = 
BINT(1000L); 
BgL_test3652z00_10950 = 
BGL_MULFX_OV(BgL_za71za7_6458, BgL_tmpz00_10951, BgL_tmpz00_6459); } 
if(BgL_test3652z00_10950)
{ /* Llib/thread.scm 483 */
BgL_arg1520z00_6455 = 
bgl_bignum_mul(
bgl_long_to_bignum(
(long)CINT(BgL_za71za7_6458)), 
bgl_long_to_bignum(1000L)); }  else 
{ /* Llib/thread.scm 483 */
BgL_arg1520z00_6455 = BgL_tmpz00_6459; } } } } } 
{ /* Llib/thread.scm 483 */
 long BgL_msz00_6460;
{ /* Llib/thread.scm 483 */
 obj_t BgL_tmpz00_10958;
if(
INTEGERP(BgL_arg1520z00_6455))
{ /* Llib/thread.scm 483 */
BgL_tmpz00_10958 = BgL_arg1520z00_6455
; }  else 
{ 
 obj_t BgL_auxz00_10961;
BgL_auxz00_10961 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2484z00zz__threadz00, 
BINT(20833L), BGl_string2704z00zz__threadz00, BGl_string2531z00zz__threadz00, BgL_arg1520z00_6455); 
FAILURE(BgL_auxz00_10961,BFALSE,BFALSE);} 
BgL_msz00_6460 = 
(long)CINT(BgL_tmpz00_10958); } 
bgl_sleep(BgL_msz00_6460); BUNSPEC; 
return 
BINT(BgL_msz00_6460);} }  else 
{ /* Llib/thread.scm 482 */
if(
LLONGP(BgL_dz00_3708))
{ /* Llib/thread.scm 485 */
 obj_t BgL_arg1522z00_6461;
{ /* Llib/thread.scm 485 */
 long BgL_a1155z00_6462;
{ /* Llib/thread.scm 485 */
 BGL_LONGLONG_T BgL_tmpz00_10970;
BgL_tmpz00_10970 = 
BLLONG_TO_LLONG(BgL_dz00_3708); 
BgL_a1155z00_6462 = 
LLONG_TO_LONG(BgL_tmpz00_10970); } 
{ /* Llib/thread.scm 485 */
 obj_t BgL_za71za7_6463;
BgL_za71za7_6463 = 
BINT(BgL_a1155z00_6462); 
{ /* Llib/thread.scm 485 */
 obj_t BgL_tmpz00_6464;
BgL_tmpz00_6464 = 
BINT(0L); 
{ /* Llib/thread.scm 485 */
 bool_t BgL_test3655z00_10975;
{ /* Llib/thread.scm 485 */
 obj_t BgL_tmpz00_10976;
BgL_tmpz00_10976 = 
BINT(1000L); 
BgL_test3655z00_10975 = 
BGL_MULFX_OV(BgL_za71za7_6463, BgL_tmpz00_10976, BgL_tmpz00_6464); } 
if(BgL_test3655z00_10975)
{ /* Llib/thread.scm 485 */
BgL_arg1522z00_6461 = 
bgl_bignum_mul(
bgl_long_to_bignum(
(long)CINT(BgL_za71za7_6463)), 
bgl_long_to_bignum(1000L)); }  else 
{ /* Llib/thread.scm 485 */
BgL_arg1522z00_6461 = BgL_tmpz00_6464; } } } } } 
{ /* Llib/thread.scm 485 */
 long BgL_msz00_6465;
{ /* Llib/thread.scm 485 */
 obj_t BgL_tmpz00_10983;
if(
INTEGERP(BgL_arg1522z00_6461))
{ /* Llib/thread.scm 485 */
BgL_tmpz00_10983 = BgL_arg1522z00_6461
; }  else 
{ 
 obj_t BgL_auxz00_10986;
BgL_auxz00_10986 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2484z00zz__threadz00, 
BINT(20894L), BGl_string2704z00zz__threadz00, BGl_string2531z00zz__threadz00, BgL_arg1522z00_6461); 
FAILURE(BgL_auxz00_10986,BFALSE,BFALSE);} 
BgL_msz00_6465 = 
(long)CINT(BgL_tmpz00_10983); } 
bgl_sleep(BgL_msz00_6465); BUNSPEC; 
return 
BINT(BgL_msz00_6465);} }  else 
{ /* Llib/thread.scm 486 */
 bool_t BgL_test3657z00_10993;
if(
INTEGERP(BgL_dz00_3708))
{ /* Llib/thread.scm 486 */
BgL_test3657z00_10993 = ((bool_t)1)
; }  else 
{ /* Llib/thread.scm 486 */
BgL_test3657z00_10993 = 
REALP(BgL_dz00_3708)
; } 
if(BgL_test3657z00_10993)
{ /* Llib/thread.scm 487 */
 long BgL_arg1524z00_6466;
{ /* Llib/thread.scm 487 */
 double BgL_arg1525z00_6467;
if(
BGL_FAST_REALP(BgL_dz00_3708))
{ /* Llib/thread.scm 487 */
 double BgL_arg1527z00_6468;
BgL_arg1527z00_6468 = 
BGL_FAST_REAL_TO_DOUBLE(BgL_dz00_3708); 
BgL_arg1525z00_6467 = 
(BgL_arg1527z00_6468*1000000.0); }  else 
{ /* Llib/thread.scm 487 */
BgL_arg1525z00_6467 = 
(
BGl_numberzd2ze3flonumz31zz__r4_numbers_6_5z00(BgL_dz00_3708)*1000000.0); } 
BgL_arg1524z00_6466 = 
(long)(BgL_arg1525z00_6467); } 
bgl_sleep(BgL_arg1524z00_6466); BUNSPEC; 
return 
BINT(BgL_arg1524z00_6466);}  else 
{ /* Llib/thread.scm 486 */
return 
BGl_bigloozd2typezd2errorz00zz__errorz00(BGl_symbol2709z00zz__threadz00, BGl_string2710z00zz__threadz00, BgL_dz00_3708);} } } } } } } 

}



/* &%user-current-thread1225 */
obj_t BGl_z62z52userzd2currentzd2thread1225z30zz__threadz00(obj_t BgL_envz00_3709, obj_t BgL_oz00_3710)
{
{ /* Llib/thread.scm 451 */
{ 
 BgL_threadz00_bglt BgL_auxz00_11007;
{ /* Llib/thread.scm 451 */
 BgL_threadz00_bglt BgL_oz00_6509;
{ /* Llib/thread.scm 451 */
 bool_t BgL_test3660z00_11008;
{ /* Llib/thread.scm 451 */
 obj_t BgL_classz00_6469;
BgL_classz00_6469 = BGl_threadz00zz__threadz00; 
if(
BGL_OBJECTP(BgL_oz00_3710))
{ /* Llib/thread.scm 451 */
 BgL_objectz00_bglt BgL_arg1953z00_6471; long BgL_arg1954z00_6472;
BgL_arg1953z00_6471 = 
(BgL_objectz00_bglt)(BgL_oz00_3710); 
BgL_arg1954z00_6472 = 
BGL_CLASS_DEPTH(BgL_classz00_6469); 
if(
BGL_CONDEXPAND_ISA_ARCH64())
{ /* Llib/thread.scm 451 */
 long BgL_idxz00_6480;
BgL_idxz00_6480 = 
BGL_OBJECT_INHERITANCE_NUM(BgL_arg1953z00_6471); 
{ /* Llib/thread.scm 451 */
 obj_t BgL_arg1943z00_6481;
{ /* Llib/thread.scm 451 */
 long BgL_arg1944z00_6482;
BgL_arg1944z00_6482 = 
(BgL_idxz00_6480+BgL_arg1954z00_6472); 
BgL_arg1943z00_6481 = 
VECTOR_REF(BGl_za2inheritancesza2z00zz__objectz00,BgL_arg1944z00_6482); } 
BgL_test3660z00_11008 = 
(BgL_arg1943z00_6481==BgL_classz00_6469); } }  else 
{ /* Llib/thread.scm 451 */
 bool_t BgL_res2066z00_6487;
{ /* Llib/thread.scm 451 */
 obj_t BgL_oclassz00_6491;
{ /* Llib/thread.scm 451 */
 obj_t BgL_arg1959z00_6493; long BgL_arg1960z00_6494;
BgL_arg1959z00_6493 = 
(BGl_za2classesza2z00zz__objectz00); 
{ /* Llib/thread.scm 451 */
 long BgL_arg1961z00_6495;
BgL_arg1961z00_6495 = 
BGL_OBJECT_CLASS_NUM(BgL_arg1953z00_6471); 
BgL_arg1960z00_6494 = 
(BgL_arg1961z00_6495-OBJECT_TYPE); } 
BgL_oclassz00_6491 = 
VECTOR_REF(BgL_arg1959z00_6493,BgL_arg1960z00_6494); } 
{ /* Llib/thread.scm 451 */
 bool_t BgL__ortest_1149z00_6501;
BgL__ortest_1149z00_6501 = 
(BgL_classz00_6469==BgL_oclassz00_6491); 
if(BgL__ortest_1149z00_6501)
{ /* Llib/thread.scm 451 */
BgL_res2066z00_6487 = BgL__ortest_1149z00_6501; }  else 
{ /* Llib/thread.scm 451 */
 long BgL_odepthz00_6502;
{ /* Llib/thread.scm 451 */
 obj_t BgL_arg1947z00_6503;
BgL_arg1947z00_6503 = 
(BgL_oclassz00_6491); 
BgL_odepthz00_6502 = 
BGL_CLASS_DEPTH(BgL_arg1947z00_6503); } 
if(
(BgL_arg1954z00_6472<BgL_odepthz00_6502))
{ /* Llib/thread.scm 451 */
 obj_t BgL_arg1945z00_6507;
{ /* Llib/thread.scm 451 */
 obj_t BgL_arg1946z00_6508;
BgL_arg1946z00_6508 = 
(BgL_oclassz00_6491); 
BgL_arg1945z00_6507 = 
BGL_CLASS_ANCESTORS_REF(BgL_arg1946z00_6508, BgL_arg1954z00_6472); } 
BgL_res2066z00_6487 = 
(BgL_arg1945z00_6507==BgL_classz00_6469); }  else 
{ /* Llib/thread.scm 451 */
BgL_res2066z00_6487 = ((bool_t)0); } } } } 
BgL_test3660z00_11008 = BgL_res2066z00_6487; } }  else 
{ /* Llib/thread.scm 451 */
BgL_test3660z00_11008 = ((bool_t)0)
; } } 
if(BgL_test3660z00_11008)
{ /* Llib/thread.scm 451 */
BgL_oz00_6509 = 
((BgL_threadz00_bglt)BgL_oz00_3710); }  else 
{ 
 obj_t BgL_auxz00_11033;
BgL_auxz00_11033 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2484z00zz__threadz00, 
BINT(19506L), BGl_string2712z00zz__threadz00, BGl_string2500z00zz__threadz00, BgL_oz00_3710); 
FAILURE(BgL_auxz00_11033,BFALSE,BFALSE);} } 
BgL_auxz00_11007 = BgL_oz00_6509; } 
return 
((obj_t)BgL_auxz00_11007);} } 

}



/* &thread-name-set!1218 */
obj_t BGl_z62threadzd2namezd2setz121218z70zz__threadz00(obj_t BgL_envz00_3711, obj_t BgL_thz00_3712, obj_t BgL_vz00_3713)
{
{ /* Llib/thread.scm 440 */
{ /* Llib/thread.scm 440 */
 BgL_threadz00_bglt BgL_thz00_6550; obj_t BgL_vz00_6551;
{ /* Llib/thread.scm 440 */
 bool_t BgL_test3665z00_11038;
{ /* Llib/thread.scm 440 */
 obj_t BgL_classz00_6510;
BgL_classz00_6510 = BGl_threadz00zz__threadz00; 
if(
BGL_OBJECTP(BgL_thz00_3712))
{ /* Llib/thread.scm 440 */
 BgL_objectz00_bglt BgL_arg1953z00_6512; long BgL_arg1954z00_6513;
BgL_arg1953z00_6512 = 
(BgL_objectz00_bglt)(BgL_thz00_3712); 
BgL_arg1954z00_6513 = 
BGL_CLASS_DEPTH(BgL_classz00_6510); 
if(
BGL_CONDEXPAND_ISA_ARCH64())
{ /* Llib/thread.scm 440 */
 long BgL_idxz00_6521;
BgL_idxz00_6521 = 
BGL_OBJECT_INHERITANCE_NUM(BgL_arg1953z00_6512); 
{ /* Llib/thread.scm 440 */
 obj_t BgL_arg1943z00_6522;
{ /* Llib/thread.scm 440 */
 long BgL_arg1944z00_6523;
BgL_arg1944z00_6523 = 
(BgL_idxz00_6521+BgL_arg1954z00_6513); 
BgL_arg1943z00_6522 = 
VECTOR_REF(BGl_za2inheritancesza2z00zz__objectz00,BgL_arg1944z00_6523); } 
BgL_test3665z00_11038 = 
(BgL_arg1943z00_6522==BgL_classz00_6510); } }  else 
{ /* Llib/thread.scm 440 */
 bool_t BgL_res2066z00_6528;
{ /* Llib/thread.scm 440 */
 obj_t BgL_oclassz00_6532;
{ /* Llib/thread.scm 440 */
 obj_t BgL_arg1959z00_6534; long BgL_arg1960z00_6535;
BgL_arg1959z00_6534 = 
(BGl_za2classesza2z00zz__objectz00); 
{ /* Llib/thread.scm 440 */
 long BgL_arg1961z00_6536;
BgL_arg1961z00_6536 = 
BGL_OBJECT_CLASS_NUM(BgL_arg1953z00_6512); 
BgL_arg1960z00_6535 = 
(BgL_arg1961z00_6536-OBJECT_TYPE); } 
BgL_oclassz00_6532 = 
VECTOR_REF(BgL_arg1959z00_6534,BgL_arg1960z00_6535); } 
{ /* Llib/thread.scm 440 */
 bool_t BgL__ortest_1149z00_6542;
BgL__ortest_1149z00_6542 = 
(BgL_classz00_6510==BgL_oclassz00_6532); 
if(BgL__ortest_1149z00_6542)
{ /* Llib/thread.scm 440 */
BgL_res2066z00_6528 = BgL__ortest_1149z00_6542; }  else 
{ /* Llib/thread.scm 440 */
 long BgL_odepthz00_6543;
{ /* Llib/thread.scm 440 */
 obj_t BgL_arg1947z00_6544;
BgL_arg1947z00_6544 = 
(BgL_oclassz00_6532); 
BgL_odepthz00_6543 = 
BGL_CLASS_DEPTH(BgL_arg1947z00_6544); } 
if(
(BgL_arg1954z00_6513<BgL_odepthz00_6543))
{ /* Llib/thread.scm 440 */
 obj_t BgL_arg1945z00_6548;
{ /* Llib/thread.scm 440 */
 obj_t BgL_arg1946z00_6549;
BgL_arg1946z00_6549 = 
(BgL_oclassz00_6532); 
BgL_arg1945z00_6548 = 
BGL_CLASS_ANCESTORS_REF(BgL_arg1946z00_6549, BgL_arg1954z00_6513); } 
BgL_res2066z00_6528 = 
(BgL_arg1945z00_6548==BgL_classz00_6510); }  else 
{ /* Llib/thread.scm 440 */
BgL_res2066z00_6528 = ((bool_t)0); } } } } 
BgL_test3665z00_11038 = BgL_res2066z00_6528; } }  else 
{ /* Llib/thread.scm 440 */
BgL_test3665z00_11038 = ((bool_t)0)
; } } 
if(BgL_test3665z00_11038)
{ /* Llib/thread.scm 440 */
BgL_thz00_6550 = 
((BgL_threadz00_bglt)BgL_thz00_3712); }  else 
{ 
 obj_t BgL_auxz00_11063;
BgL_auxz00_11063 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2484z00zz__threadz00, 
BINT(18877L), BGl_string2715z00zz__threadz00, BGl_string2500z00zz__threadz00, BgL_thz00_3712); 
FAILURE(BgL_auxz00_11063,BFALSE,BFALSE);} } 
if(
STRINGP(BgL_vz00_3713))
{ /* Llib/thread.scm 440 */
BgL_vz00_6551 = BgL_vz00_3713; }  else 
{ 
 obj_t BgL_auxz00_11069;
BgL_auxz00_11069 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2484z00zz__threadz00, 
BINT(18877L), BGl_string2715z00zz__threadz00, BGl_string2492z00zz__threadz00, BgL_vz00_3713); 
FAILURE(BgL_auxz00_11069,BFALSE,BFALSE);} 
return 
BGl_errorz00zz__errorz00(BGl_symbol2713z00zz__threadz00, BGl_string2714z00zz__threadz00, 
((obj_t)BgL_thz00_6550));} } 

}



/* &thread-name1216 */
obj_t BGl_z62threadzd2name1216zb0zz__threadz00(obj_t BgL_envz00_3714, obj_t BgL_thz00_3715)
{
{ /* Llib/thread.scm 435 */
{ /* Llib/thread.scm 435 */
 BgL_threadz00_bglt BgL_thz00_6592;
{ /* Llib/thread.scm 435 */
 bool_t BgL_test3671z00_11075;
{ /* Llib/thread.scm 435 */
 obj_t BgL_classz00_6552;
BgL_classz00_6552 = BGl_threadz00zz__threadz00; 
if(
BGL_OBJECTP(BgL_thz00_3715))
{ /* Llib/thread.scm 435 */
 BgL_objectz00_bglt BgL_arg1953z00_6554; long BgL_arg1954z00_6555;
BgL_arg1953z00_6554 = 
(BgL_objectz00_bglt)(BgL_thz00_3715); 
BgL_arg1954z00_6555 = 
BGL_CLASS_DEPTH(BgL_classz00_6552); 
if(
BGL_CONDEXPAND_ISA_ARCH64())
{ /* Llib/thread.scm 435 */
 long BgL_idxz00_6563;
BgL_idxz00_6563 = 
BGL_OBJECT_INHERITANCE_NUM(BgL_arg1953z00_6554); 
{ /* Llib/thread.scm 435 */
 obj_t BgL_arg1943z00_6564;
{ /* Llib/thread.scm 435 */
 long BgL_arg1944z00_6565;
BgL_arg1944z00_6565 = 
(BgL_idxz00_6563+BgL_arg1954z00_6555); 
BgL_arg1943z00_6564 = 
VECTOR_REF(BGl_za2inheritancesza2z00zz__objectz00,BgL_arg1944z00_6565); } 
BgL_test3671z00_11075 = 
(BgL_arg1943z00_6564==BgL_classz00_6552); } }  else 
{ /* Llib/thread.scm 435 */
 bool_t BgL_res2066z00_6570;
{ /* Llib/thread.scm 435 */
 obj_t BgL_oclassz00_6574;
{ /* Llib/thread.scm 435 */
 obj_t BgL_arg1959z00_6576; long BgL_arg1960z00_6577;
BgL_arg1959z00_6576 = 
(BGl_za2classesza2z00zz__objectz00); 
{ /* Llib/thread.scm 435 */
 long BgL_arg1961z00_6578;
BgL_arg1961z00_6578 = 
BGL_OBJECT_CLASS_NUM(BgL_arg1953z00_6554); 
BgL_arg1960z00_6577 = 
(BgL_arg1961z00_6578-OBJECT_TYPE); } 
BgL_oclassz00_6574 = 
VECTOR_REF(BgL_arg1959z00_6576,BgL_arg1960z00_6577); } 
{ /* Llib/thread.scm 435 */
 bool_t BgL__ortest_1149z00_6584;
BgL__ortest_1149z00_6584 = 
(BgL_classz00_6552==BgL_oclassz00_6574); 
if(BgL__ortest_1149z00_6584)
{ /* Llib/thread.scm 435 */
BgL_res2066z00_6570 = BgL__ortest_1149z00_6584; }  else 
{ /* Llib/thread.scm 435 */
 long BgL_odepthz00_6585;
{ /* Llib/thread.scm 435 */
 obj_t BgL_arg1947z00_6586;
BgL_arg1947z00_6586 = 
(BgL_oclassz00_6574); 
BgL_odepthz00_6585 = 
BGL_CLASS_DEPTH(BgL_arg1947z00_6586); } 
if(
(BgL_arg1954z00_6555<BgL_odepthz00_6585))
{ /* Llib/thread.scm 435 */
 obj_t BgL_arg1945z00_6590;
{ /* Llib/thread.scm 435 */
 obj_t BgL_arg1946z00_6591;
BgL_arg1946z00_6591 = 
(BgL_oclassz00_6574); 
BgL_arg1945z00_6590 = 
BGL_CLASS_ANCESTORS_REF(BgL_arg1946z00_6591, BgL_arg1954z00_6555); } 
BgL_res2066z00_6570 = 
(BgL_arg1945z00_6590==BgL_classz00_6552); }  else 
{ /* Llib/thread.scm 435 */
BgL_res2066z00_6570 = ((bool_t)0); } } } } 
BgL_test3671z00_11075 = BgL_res2066z00_6570; } }  else 
{ /* Llib/thread.scm 435 */
BgL_test3671z00_11075 = ((bool_t)0)
; } } 
if(BgL_test3671z00_11075)
{ /* Llib/thread.scm 435 */
BgL_thz00_6592 = 
((BgL_threadz00_bglt)BgL_thz00_3715); }  else 
{ 
 obj_t BgL_auxz00_11100;
BgL_auxz00_11100 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2484z00zz__threadz00, 
BINT(18612L), BGl_string2717z00zz__threadz00, BGl_string2500z00zz__threadz00, BgL_thz00_3715); 
FAILURE(BgL_auxz00_11100,BFALSE,BFALSE);} } 
return 
BGl_errorz00zz__errorz00(BGl_symbol2716z00zz__threadz00, BGl_string2714z00zz__threadz00, 
((obj_t)BgL_thz00_6592));} } 

}



/* &thread-cleanup-set!1214 */
obj_t BGl_z62threadzd2cleanupzd2setz121214z70zz__threadz00(obj_t BgL_envz00_3716, obj_t BgL_thz00_3717, obj_t BgL_vz00_3718)
{
{ /* Llib/thread.scm 430 */
{ /* Llib/thread.scm 430 */
 BgL_threadz00_bglt BgL_thz00_6633;
{ /* Llib/thread.scm 430 */
 bool_t BgL_test3676z00_11106;
{ /* Llib/thread.scm 430 */
 obj_t BgL_classz00_6593;
BgL_classz00_6593 = BGl_threadz00zz__threadz00; 
if(
BGL_OBJECTP(BgL_thz00_3717))
{ /* Llib/thread.scm 430 */
 BgL_objectz00_bglt BgL_arg1953z00_6595; long BgL_arg1954z00_6596;
BgL_arg1953z00_6595 = 
(BgL_objectz00_bglt)(BgL_thz00_3717); 
BgL_arg1954z00_6596 = 
BGL_CLASS_DEPTH(BgL_classz00_6593); 
if(
BGL_CONDEXPAND_ISA_ARCH64())
{ /* Llib/thread.scm 430 */
 long BgL_idxz00_6604;
BgL_idxz00_6604 = 
BGL_OBJECT_INHERITANCE_NUM(BgL_arg1953z00_6595); 
{ /* Llib/thread.scm 430 */
 obj_t BgL_arg1943z00_6605;
{ /* Llib/thread.scm 430 */
 long BgL_arg1944z00_6606;
BgL_arg1944z00_6606 = 
(BgL_idxz00_6604+BgL_arg1954z00_6596); 
BgL_arg1943z00_6605 = 
VECTOR_REF(BGl_za2inheritancesza2z00zz__objectz00,BgL_arg1944z00_6606); } 
BgL_test3676z00_11106 = 
(BgL_arg1943z00_6605==BgL_classz00_6593); } }  else 
{ /* Llib/thread.scm 430 */
 bool_t BgL_res2066z00_6611;
{ /* Llib/thread.scm 430 */
 obj_t BgL_oclassz00_6615;
{ /* Llib/thread.scm 430 */
 obj_t BgL_arg1959z00_6617; long BgL_arg1960z00_6618;
BgL_arg1959z00_6617 = 
(BGl_za2classesza2z00zz__objectz00); 
{ /* Llib/thread.scm 430 */
 long BgL_arg1961z00_6619;
BgL_arg1961z00_6619 = 
BGL_OBJECT_CLASS_NUM(BgL_arg1953z00_6595); 
BgL_arg1960z00_6618 = 
(BgL_arg1961z00_6619-OBJECT_TYPE); } 
BgL_oclassz00_6615 = 
VECTOR_REF(BgL_arg1959z00_6617,BgL_arg1960z00_6618); } 
{ /* Llib/thread.scm 430 */
 bool_t BgL__ortest_1149z00_6625;
BgL__ortest_1149z00_6625 = 
(BgL_classz00_6593==BgL_oclassz00_6615); 
if(BgL__ortest_1149z00_6625)
{ /* Llib/thread.scm 430 */
BgL_res2066z00_6611 = BgL__ortest_1149z00_6625; }  else 
{ /* Llib/thread.scm 430 */
 long BgL_odepthz00_6626;
{ /* Llib/thread.scm 430 */
 obj_t BgL_arg1947z00_6627;
BgL_arg1947z00_6627 = 
(BgL_oclassz00_6615); 
BgL_odepthz00_6626 = 
BGL_CLASS_DEPTH(BgL_arg1947z00_6627); } 
if(
(BgL_arg1954z00_6596<BgL_odepthz00_6626))
{ /* Llib/thread.scm 430 */
 obj_t BgL_arg1945z00_6631;
{ /* Llib/thread.scm 430 */
 obj_t BgL_arg1946z00_6632;
BgL_arg1946z00_6632 = 
(BgL_oclassz00_6615); 
BgL_arg1945z00_6631 = 
BGL_CLASS_ANCESTORS_REF(BgL_arg1946z00_6632, BgL_arg1954z00_6596); } 
BgL_res2066z00_6611 = 
(BgL_arg1945z00_6631==BgL_classz00_6593); }  else 
{ /* Llib/thread.scm 430 */
BgL_res2066z00_6611 = ((bool_t)0); } } } } 
BgL_test3676z00_11106 = BgL_res2066z00_6611; } }  else 
{ /* Llib/thread.scm 430 */
BgL_test3676z00_11106 = ((bool_t)0)
; } } 
if(BgL_test3676z00_11106)
{ /* Llib/thread.scm 430 */
BgL_thz00_6633 = 
((BgL_threadz00_bglt)BgL_thz00_3717); }  else 
{ 
 obj_t BgL_auxz00_11131;
BgL_auxz00_11131 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2484z00zz__threadz00, 
BINT(18332L), BGl_string2719z00zz__threadz00, BGl_string2500z00zz__threadz00, BgL_thz00_3717); 
FAILURE(BgL_auxz00_11131,BFALSE,BFALSE);} } 
return 
BGl_errorz00zz__errorz00(BGl_symbol2718z00zz__threadz00, BGl_string2714z00zz__threadz00, 
((obj_t)BgL_thz00_6633));} } 

}



/* &thread-cleanup1212 */
obj_t BGl_z62threadzd2cleanup1212zb0zz__threadz00(obj_t BgL_envz00_3719, obj_t BgL_thz00_3720)
{
{ /* Llib/thread.scm 425 */
{ /* Llib/thread.scm 425 */
 BgL_threadz00_bglt BgL_thz00_6674;
{ /* Llib/thread.scm 425 */
 bool_t BgL_test3681z00_11137;
{ /* Llib/thread.scm 425 */
 obj_t BgL_classz00_6634;
BgL_classz00_6634 = BGl_threadz00zz__threadz00; 
if(
BGL_OBJECTP(BgL_thz00_3720))
{ /* Llib/thread.scm 425 */
 BgL_objectz00_bglt BgL_arg1953z00_6636; long BgL_arg1954z00_6637;
BgL_arg1953z00_6636 = 
(BgL_objectz00_bglt)(BgL_thz00_3720); 
BgL_arg1954z00_6637 = 
BGL_CLASS_DEPTH(BgL_classz00_6634); 
if(
BGL_CONDEXPAND_ISA_ARCH64())
{ /* Llib/thread.scm 425 */
 long BgL_idxz00_6645;
BgL_idxz00_6645 = 
BGL_OBJECT_INHERITANCE_NUM(BgL_arg1953z00_6636); 
{ /* Llib/thread.scm 425 */
 obj_t BgL_arg1943z00_6646;
{ /* Llib/thread.scm 425 */
 long BgL_arg1944z00_6647;
BgL_arg1944z00_6647 = 
(BgL_idxz00_6645+BgL_arg1954z00_6637); 
BgL_arg1943z00_6646 = 
VECTOR_REF(BGl_za2inheritancesza2z00zz__objectz00,BgL_arg1944z00_6647); } 
BgL_test3681z00_11137 = 
(BgL_arg1943z00_6646==BgL_classz00_6634); } }  else 
{ /* Llib/thread.scm 425 */
 bool_t BgL_res2066z00_6652;
{ /* Llib/thread.scm 425 */
 obj_t BgL_oclassz00_6656;
{ /* Llib/thread.scm 425 */
 obj_t BgL_arg1959z00_6658; long BgL_arg1960z00_6659;
BgL_arg1959z00_6658 = 
(BGl_za2classesza2z00zz__objectz00); 
{ /* Llib/thread.scm 425 */
 long BgL_arg1961z00_6660;
BgL_arg1961z00_6660 = 
BGL_OBJECT_CLASS_NUM(BgL_arg1953z00_6636); 
BgL_arg1960z00_6659 = 
(BgL_arg1961z00_6660-OBJECT_TYPE); } 
BgL_oclassz00_6656 = 
VECTOR_REF(BgL_arg1959z00_6658,BgL_arg1960z00_6659); } 
{ /* Llib/thread.scm 425 */
 bool_t BgL__ortest_1149z00_6666;
BgL__ortest_1149z00_6666 = 
(BgL_classz00_6634==BgL_oclassz00_6656); 
if(BgL__ortest_1149z00_6666)
{ /* Llib/thread.scm 425 */
BgL_res2066z00_6652 = BgL__ortest_1149z00_6666; }  else 
{ /* Llib/thread.scm 425 */
 long BgL_odepthz00_6667;
{ /* Llib/thread.scm 425 */
 obj_t BgL_arg1947z00_6668;
BgL_arg1947z00_6668 = 
(BgL_oclassz00_6656); 
BgL_odepthz00_6667 = 
BGL_CLASS_DEPTH(BgL_arg1947z00_6668); } 
if(
(BgL_arg1954z00_6637<BgL_odepthz00_6667))
{ /* Llib/thread.scm 425 */
 obj_t BgL_arg1945z00_6672;
{ /* Llib/thread.scm 425 */
 obj_t BgL_arg1946z00_6673;
BgL_arg1946z00_6673 = 
(BgL_oclassz00_6656); 
BgL_arg1945z00_6672 = 
BGL_CLASS_ANCESTORS_REF(BgL_arg1946z00_6673, BgL_arg1954z00_6637); } 
BgL_res2066z00_6652 = 
(BgL_arg1945z00_6672==BgL_classz00_6634); }  else 
{ /* Llib/thread.scm 425 */
BgL_res2066z00_6652 = ((bool_t)0); } } } } 
BgL_test3681z00_11137 = BgL_res2066z00_6652; } }  else 
{ /* Llib/thread.scm 425 */
BgL_test3681z00_11137 = ((bool_t)0)
; } } 
if(BgL_test3681z00_11137)
{ /* Llib/thread.scm 425 */
BgL_thz00_6674 = 
((BgL_threadz00_bglt)BgL_thz00_3720); }  else 
{ 
 obj_t BgL_auxz00_11162;
BgL_auxz00_11162 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2484z00zz__threadz00, 
BINT(18064L), BGl_string2721z00zz__threadz00, BGl_string2500z00zz__threadz00, BgL_thz00_3720); 
FAILURE(BgL_auxz00_11162,BFALSE,BFALSE);} } 
return 
BGl_errorz00zz__errorz00(BGl_symbol2720z00zz__threadz00, BGl_string2714z00zz__threadz00, 
((obj_t)BgL_thz00_6674));} } 

}



/* &thread-specific-set!1210 */
obj_t BGl_z62threadzd2specificzd2setz121210z70zz__threadz00(obj_t BgL_envz00_3721, obj_t BgL_thz00_3722, obj_t BgL_vz00_3723)
{
{ /* Llib/thread.scm 420 */
{ /* Llib/thread.scm 420 */
 BgL_threadz00_bglt BgL_thz00_6715;
{ /* Llib/thread.scm 420 */
 bool_t BgL_test3686z00_11168;
{ /* Llib/thread.scm 420 */
 obj_t BgL_classz00_6675;
BgL_classz00_6675 = BGl_threadz00zz__threadz00; 
if(
BGL_OBJECTP(BgL_thz00_3722))
{ /* Llib/thread.scm 420 */
 BgL_objectz00_bglt BgL_arg1953z00_6677; long BgL_arg1954z00_6678;
BgL_arg1953z00_6677 = 
(BgL_objectz00_bglt)(BgL_thz00_3722); 
BgL_arg1954z00_6678 = 
BGL_CLASS_DEPTH(BgL_classz00_6675); 
if(
BGL_CONDEXPAND_ISA_ARCH64())
{ /* Llib/thread.scm 420 */
 long BgL_idxz00_6686;
BgL_idxz00_6686 = 
BGL_OBJECT_INHERITANCE_NUM(BgL_arg1953z00_6677); 
{ /* Llib/thread.scm 420 */
 obj_t BgL_arg1943z00_6687;
{ /* Llib/thread.scm 420 */
 long BgL_arg1944z00_6688;
BgL_arg1944z00_6688 = 
(BgL_idxz00_6686+BgL_arg1954z00_6678); 
BgL_arg1943z00_6687 = 
VECTOR_REF(BGl_za2inheritancesza2z00zz__objectz00,BgL_arg1944z00_6688); } 
BgL_test3686z00_11168 = 
(BgL_arg1943z00_6687==BgL_classz00_6675); } }  else 
{ /* Llib/thread.scm 420 */
 bool_t BgL_res2066z00_6693;
{ /* Llib/thread.scm 420 */
 obj_t BgL_oclassz00_6697;
{ /* Llib/thread.scm 420 */
 obj_t BgL_arg1959z00_6699; long BgL_arg1960z00_6700;
BgL_arg1959z00_6699 = 
(BGl_za2classesza2z00zz__objectz00); 
{ /* Llib/thread.scm 420 */
 long BgL_arg1961z00_6701;
BgL_arg1961z00_6701 = 
BGL_OBJECT_CLASS_NUM(BgL_arg1953z00_6677); 
BgL_arg1960z00_6700 = 
(BgL_arg1961z00_6701-OBJECT_TYPE); } 
BgL_oclassz00_6697 = 
VECTOR_REF(BgL_arg1959z00_6699,BgL_arg1960z00_6700); } 
{ /* Llib/thread.scm 420 */
 bool_t BgL__ortest_1149z00_6707;
BgL__ortest_1149z00_6707 = 
(BgL_classz00_6675==BgL_oclassz00_6697); 
if(BgL__ortest_1149z00_6707)
{ /* Llib/thread.scm 420 */
BgL_res2066z00_6693 = BgL__ortest_1149z00_6707; }  else 
{ /* Llib/thread.scm 420 */
 long BgL_odepthz00_6708;
{ /* Llib/thread.scm 420 */
 obj_t BgL_arg1947z00_6709;
BgL_arg1947z00_6709 = 
(BgL_oclassz00_6697); 
BgL_odepthz00_6708 = 
BGL_CLASS_DEPTH(BgL_arg1947z00_6709); } 
if(
(BgL_arg1954z00_6678<BgL_odepthz00_6708))
{ /* Llib/thread.scm 420 */
 obj_t BgL_arg1945z00_6713;
{ /* Llib/thread.scm 420 */
 obj_t BgL_arg1946z00_6714;
BgL_arg1946z00_6714 = 
(BgL_oclassz00_6697); 
BgL_arg1945z00_6713 = 
BGL_CLASS_ANCESTORS_REF(BgL_arg1946z00_6714, BgL_arg1954z00_6678); } 
BgL_res2066z00_6693 = 
(BgL_arg1945z00_6713==BgL_classz00_6675); }  else 
{ /* Llib/thread.scm 420 */
BgL_res2066z00_6693 = ((bool_t)0); } } } } 
BgL_test3686z00_11168 = BgL_res2066z00_6693; } }  else 
{ /* Llib/thread.scm 420 */
BgL_test3686z00_11168 = ((bool_t)0)
; } } 
if(BgL_test3686z00_11168)
{ /* Llib/thread.scm 420 */
BgL_thz00_6715 = 
((BgL_threadz00_bglt)BgL_thz00_3722); }  else 
{ 
 obj_t BgL_auxz00_11193;
BgL_auxz00_11193 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2484z00zz__threadz00, 
BINT(17783L), BGl_string2723z00zz__threadz00, BGl_string2500z00zz__threadz00, BgL_thz00_3722); 
FAILURE(BgL_auxz00_11193,BFALSE,BFALSE);} } 
return 
BGl_errorz00zz__errorz00(BGl_symbol2722z00zz__threadz00, BGl_string2714z00zz__threadz00, 
((obj_t)BgL_thz00_6715));} } 

}



/* &thread-specific1207 */
obj_t BGl_z62threadzd2specific1207zb0zz__threadz00(obj_t BgL_envz00_3724, obj_t BgL_thz00_3725)
{
{ /* Llib/thread.scm 415 */
{ /* Llib/thread.scm 415 */
 BgL_threadz00_bglt BgL_thz00_6756;
{ /* Llib/thread.scm 415 */
 bool_t BgL_test3691z00_11199;
{ /* Llib/thread.scm 415 */
 obj_t BgL_classz00_6716;
BgL_classz00_6716 = BGl_threadz00zz__threadz00; 
if(
BGL_OBJECTP(BgL_thz00_3725))
{ /* Llib/thread.scm 415 */
 BgL_objectz00_bglt BgL_arg1953z00_6718; long BgL_arg1954z00_6719;
BgL_arg1953z00_6718 = 
(BgL_objectz00_bglt)(BgL_thz00_3725); 
BgL_arg1954z00_6719 = 
BGL_CLASS_DEPTH(BgL_classz00_6716); 
if(
BGL_CONDEXPAND_ISA_ARCH64())
{ /* Llib/thread.scm 415 */
 long BgL_idxz00_6727;
BgL_idxz00_6727 = 
BGL_OBJECT_INHERITANCE_NUM(BgL_arg1953z00_6718); 
{ /* Llib/thread.scm 415 */
 obj_t BgL_arg1943z00_6728;
{ /* Llib/thread.scm 415 */
 long BgL_arg1944z00_6729;
BgL_arg1944z00_6729 = 
(BgL_idxz00_6727+BgL_arg1954z00_6719); 
BgL_arg1943z00_6728 = 
VECTOR_REF(BGl_za2inheritancesza2z00zz__objectz00,BgL_arg1944z00_6729); } 
BgL_test3691z00_11199 = 
(BgL_arg1943z00_6728==BgL_classz00_6716); } }  else 
{ /* Llib/thread.scm 415 */
 bool_t BgL_res2066z00_6734;
{ /* Llib/thread.scm 415 */
 obj_t BgL_oclassz00_6738;
{ /* Llib/thread.scm 415 */
 obj_t BgL_arg1959z00_6740; long BgL_arg1960z00_6741;
BgL_arg1959z00_6740 = 
(BGl_za2classesza2z00zz__objectz00); 
{ /* Llib/thread.scm 415 */
 long BgL_arg1961z00_6742;
BgL_arg1961z00_6742 = 
BGL_OBJECT_CLASS_NUM(BgL_arg1953z00_6718); 
BgL_arg1960z00_6741 = 
(BgL_arg1961z00_6742-OBJECT_TYPE); } 
BgL_oclassz00_6738 = 
VECTOR_REF(BgL_arg1959z00_6740,BgL_arg1960z00_6741); } 
{ /* Llib/thread.scm 415 */
 bool_t BgL__ortest_1149z00_6748;
BgL__ortest_1149z00_6748 = 
(BgL_classz00_6716==BgL_oclassz00_6738); 
if(BgL__ortest_1149z00_6748)
{ /* Llib/thread.scm 415 */
BgL_res2066z00_6734 = BgL__ortest_1149z00_6748; }  else 
{ /* Llib/thread.scm 415 */
 long BgL_odepthz00_6749;
{ /* Llib/thread.scm 415 */
 obj_t BgL_arg1947z00_6750;
BgL_arg1947z00_6750 = 
(BgL_oclassz00_6738); 
BgL_odepthz00_6749 = 
BGL_CLASS_DEPTH(BgL_arg1947z00_6750); } 
if(
(BgL_arg1954z00_6719<BgL_odepthz00_6749))
{ /* Llib/thread.scm 415 */
 obj_t BgL_arg1945z00_6754;
{ /* Llib/thread.scm 415 */
 obj_t BgL_arg1946z00_6755;
BgL_arg1946z00_6755 = 
(BgL_oclassz00_6738); 
BgL_arg1945z00_6754 = 
BGL_CLASS_ANCESTORS_REF(BgL_arg1946z00_6755, BgL_arg1954z00_6719); } 
BgL_res2066z00_6734 = 
(BgL_arg1945z00_6754==BgL_classz00_6716); }  else 
{ /* Llib/thread.scm 415 */
BgL_res2066z00_6734 = ((bool_t)0); } } } } 
BgL_test3691z00_11199 = BgL_res2066z00_6734; } }  else 
{ /* Llib/thread.scm 415 */
BgL_test3691z00_11199 = ((bool_t)0)
; } } 
if(BgL_test3691z00_11199)
{ /* Llib/thread.scm 415 */
BgL_thz00_6756 = 
((BgL_threadz00_bglt)BgL_thz00_3725); }  else 
{ 
 obj_t BgL_auxz00_11224;
BgL_auxz00_11224 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2484z00zz__threadz00, 
BINT(17514L), BGl_string2725z00zz__threadz00, BGl_string2500z00zz__threadz00, BgL_thz00_3725); 
FAILURE(BgL_auxz00_11224,BFALSE,BFALSE);} } 
return 
BGl_errorz00zz__errorz00(BGl_symbol2724z00zz__threadz00, BGl_string2714z00zz__threadz00, 
((obj_t)BgL_thz00_6756));} } 

}



/* &thread-kill!1205 */
obj_t BGl_z62threadzd2killz121205za2zz__threadz00(obj_t BgL_envz00_3726, obj_t BgL_thz00_3727, obj_t BgL_nz00_3728)
{
{ /* Llib/thread.scm 410 */
{ /* Llib/thread.scm 410 */
 BgL_threadz00_bglt BgL_thz00_6797; int BgL_nz00_6798;
{ /* Llib/thread.scm 410 */
 bool_t BgL_test3696z00_11230;
{ /* Llib/thread.scm 410 */
 obj_t BgL_classz00_6757;
BgL_classz00_6757 = BGl_threadz00zz__threadz00; 
if(
BGL_OBJECTP(BgL_thz00_3727))
{ /* Llib/thread.scm 410 */
 BgL_objectz00_bglt BgL_arg1953z00_6759; long BgL_arg1954z00_6760;
BgL_arg1953z00_6759 = 
(BgL_objectz00_bglt)(BgL_thz00_3727); 
BgL_arg1954z00_6760 = 
BGL_CLASS_DEPTH(BgL_classz00_6757); 
if(
BGL_CONDEXPAND_ISA_ARCH64())
{ /* Llib/thread.scm 410 */
 long BgL_idxz00_6768;
BgL_idxz00_6768 = 
BGL_OBJECT_INHERITANCE_NUM(BgL_arg1953z00_6759); 
{ /* Llib/thread.scm 410 */
 obj_t BgL_arg1943z00_6769;
{ /* Llib/thread.scm 410 */
 long BgL_arg1944z00_6770;
BgL_arg1944z00_6770 = 
(BgL_idxz00_6768+BgL_arg1954z00_6760); 
BgL_arg1943z00_6769 = 
VECTOR_REF(BGl_za2inheritancesza2z00zz__objectz00,BgL_arg1944z00_6770); } 
BgL_test3696z00_11230 = 
(BgL_arg1943z00_6769==BgL_classz00_6757); } }  else 
{ /* Llib/thread.scm 410 */
 bool_t BgL_res2066z00_6775;
{ /* Llib/thread.scm 410 */
 obj_t BgL_oclassz00_6779;
{ /* Llib/thread.scm 410 */
 obj_t BgL_arg1959z00_6781; long BgL_arg1960z00_6782;
BgL_arg1959z00_6781 = 
(BGl_za2classesza2z00zz__objectz00); 
{ /* Llib/thread.scm 410 */
 long BgL_arg1961z00_6783;
BgL_arg1961z00_6783 = 
BGL_OBJECT_CLASS_NUM(BgL_arg1953z00_6759); 
BgL_arg1960z00_6782 = 
(BgL_arg1961z00_6783-OBJECT_TYPE); } 
BgL_oclassz00_6779 = 
VECTOR_REF(BgL_arg1959z00_6781,BgL_arg1960z00_6782); } 
{ /* Llib/thread.scm 410 */
 bool_t BgL__ortest_1149z00_6789;
BgL__ortest_1149z00_6789 = 
(BgL_classz00_6757==BgL_oclassz00_6779); 
if(BgL__ortest_1149z00_6789)
{ /* Llib/thread.scm 410 */
BgL_res2066z00_6775 = BgL__ortest_1149z00_6789; }  else 
{ /* Llib/thread.scm 410 */
 long BgL_odepthz00_6790;
{ /* Llib/thread.scm 410 */
 obj_t BgL_arg1947z00_6791;
BgL_arg1947z00_6791 = 
(BgL_oclassz00_6779); 
BgL_odepthz00_6790 = 
BGL_CLASS_DEPTH(BgL_arg1947z00_6791); } 
if(
(BgL_arg1954z00_6760<BgL_odepthz00_6790))
{ /* Llib/thread.scm 410 */
 obj_t BgL_arg1945z00_6795;
{ /* Llib/thread.scm 410 */
 obj_t BgL_arg1946z00_6796;
BgL_arg1946z00_6796 = 
(BgL_oclassz00_6779); 
BgL_arg1945z00_6795 = 
BGL_CLASS_ANCESTORS_REF(BgL_arg1946z00_6796, BgL_arg1954z00_6760); } 
BgL_res2066z00_6775 = 
(BgL_arg1945z00_6795==BgL_classz00_6757); }  else 
{ /* Llib/thread.scm 410 */
BgL_res2066z00_6775 = ((bool_t)0); } } } } 
BgL_test3696z00_11230 = BgL_res2066z00_6775; } }  else 
{ /* Llib/thread.scm 410 */
BgL_test3696z00_11230 = ((bool_t)0)
; } } 
if(BgL_test3696z00_11230)
{ /* Llib/thread.scm 410 */
BgL_thz00_6797 = 
((BgL_threadz00_bglt)BgL_thz00_3727); }  else 
{ 
 obj_t BgL_auxz00_11255;
BgL_auxz00_11255 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2484z00zz__threadz00, 
BINT(17241L), BGl_string2727z00zz__threadz00, BGl_string2500z00zz__threadz00, BgL_thz00_3727); 
FAILURE(BgL_auxz00_11255,BFALSE,BFALSE);} } 
{ /* Llib/thread.scm 410 */
 obj_t BgL_tmpz00_11259;
if(
INTEGERP(BgL_nz00_3728))
{ /* Llib/thread.scm 410 */
BgL_tmpz00_11259 = BgL_nz00_3728
; }  else 
{ 
 obj_t BgL_auxz00_11262;
BgL_auxz00_11262 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2484z00zz__threadz00, 
BINT(17241L), BGl_string2727z00zz__threadz00, BGl_string2531z00zz__threadz00, BgL_nz00_3728); 
FAILURE(BgL_auxz00_11262,BFALSE,BFALSE);} 
BgL_nz00_6798 = 
CINT(BgL_tmpz00_11259); } 
return 
BGl_errorz00zz__errorz00(BGl_symbol2726z00zz__threadz00, BGl_string2714z00zz__threadz00, 
((obj_t)BgL_thz00_6797));} } 

}



/* &thread-terminate!1203 */
obj_t BGl_z62threadzd2terminatez121203za2zz__threadz00(obj_t BgL_envz00_3729, obj_t BgL_thz00_3730)
{
{ /* Llib/thread.scm 405 */
{ /* Llib/thread.scm 405 */
 BgL_threadz00_bglt BgL_thz00_6839;
{ /* Llib/thread.scm 405 */
 bool_t BgL_test3702z00_11269;
{ /* Llib/thread.scm 405 */
 obj_t BgL_classz00_6799;
BgL_classz00_6799 = BGl_threadz00zz__threadz00; 
if(
BGL_OBJECTP(BgL_thz00_3730))
{ /* Llib/thread.scm 405 */
 BgL_objectz00_bglt BgL_arg1953z00_6801; long BgL_arg1954z00_6802;
BgL_arg1953z00_6801 = 
(BgL_objectz00_bglt)(BgL_thz00_3730); 
BgL_arg1954z00_6802 = 
BGL_CLASS_DEPTH(BgL_classz00_6799); 
if(
BGL_CONDEXPAND_ISA_ARCH64())
{ /* Llib/thread.scm 405 */
 long BgL_idxz00_6810;
BgL_idxz00_6810 = 
BGL_OBJECT_INHERITANCE_NUM(BgL_arg1953z00_6801); 
{ /* Llib/thread.scm 405 */
 obj_t BgL_arg1943z00_6811;
{ /* Llib/thread.scm 405 */
 long BgL_arg1944z00_6812;
BgL_arg1944z00_6812 = 
(BgL_idxz00_6810+BgL_arg1954z00_6802); 
BgL_arg1943z00_6811 = 
VECTOR_REF(BGl_za2inheritancesza2z00zz__objectz00,BgL_arg1944z00_6812); } 
BgL_test3702z00_11269 = 
(BgL_arg1943z00_6811==BgL_classz00_6799); } }  else 
{ /* Llib/thread.scm 405 */
 bool_t BgL_res2066z00_6817;
{ /* Llib/thread.scm 405 */
 obj_t BgL_oclassz00_6821;
{ /* Llib/thread.scm 405 */
 obj_t BgL_arg1959z00_6823; long BgL_arg1960z00_6824;
BgL_arg1959z00_6823 = 
(BGl_za2classesza2z00zz__objectz00); 
{ /* Llib/thread.scm 405 */
 long BgL_arg1961z00_6825;
BgL_arg1961z00_6825 = 
BGL_OBJECT_CLASS_NUM(BgL_arg1953z00_6801); 
BgL_arg1960z00_6824 = 
(BgL_arg1961z00_6825-OBJECT_TYPE); } 
BgL_oclassz00_6821 = 
VECTOR_REF(BgL_arg1959z00_6823,BgL_arg1960z00_6824); } 
{ /* Llib/thread.scm 405 */
 bool_t BgL__ortest_1149z00_6831;
BgL__ortest_1149z00_6831 = 
(BgL_classz00_6799==BgL_oclassz00_6821); 
if(BgL__ortest_1149z00_6831)
{ /* Llib/thread.scm 405 */
BgL_res2066z00_6817 = BgL__ortest_1149z00_6831; }  else 
{ /* Llib/thread.scm 405 */
 long BgL_odepthz00_6832;
{ /* Llib/thread.scm 405 */
 obj_t BgL_arg1947z00_6833;
BgL_arg1947z00_6833 = 
(BgL_oclassz00_6821); 
BgL_odepthz00_6832 = 
BGL_CLASS_DEPTH(BgL_arg1947z00_6833); } 
if(
(BgL_arg1954z00_6802<BgL_odepthz00_6832))
{ /* Llib/thread.scm 405 */
 obj_t BgL_arg1945z00_6837;
{ /* Llib/thread.scm 405 */
 obj_t BgL_arg1946z00_6838;
BgL_arg1946z00_6838 = 
(BgL_oclassz00_6821); 
BgL_arg1945z00_6837 = 
BGL_CLASS_ANCESTORS_REF(BgL_arg1946z00_6838, BgL_arg1954z00_6802); } 
BgL_res2066z00_6817 = 
(BgL_arg1945z00_6837==BgL_classz00_6799); }  else 
{ /* Llib/thread.scm 405 */
BgL_res2066z00_6817 = ((bool_t)0); } } } } 
BgL_test3702z00_11269 = BgL_res2066z00_6817; } }  else 
{ /* Llib/thread.scm 405 */
BgL_test3702z00_11269 = ((bool_t)0)
; } } 
if(BgL_test3702z00_11269)
{ /* Llib/thread.scm 405 */
BgL_thz00_6839 = 
((BgL_threadz00_bglt)BgL_thz00_3730); }  else 
{ 
 obj_t BgL_auxz00_11294;
BgL_auxz00_11294 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2484z00zz__threadz00, 
BINT(16970L), BGl_string2729z00zz__threadz00, BGl_string2500z00zz__threadz00, BgL_thz00_3730); 
FAILURE(BgL_auxz00_11294,BFALSE,BFALSE);} } 
return 
BGl_errorz00zz__errorz00(BGl_symbol2728z00zz__threadz00, BGl_string2714z00zz__threadz00, 
((obj_t)BgL_thz00_6839));} } 

}



/* &thread-join!1201 */
obj_t BGl_z62threadzd2joinz121201za2zz__threadz00(obj_t BgL_envz00_3731, obj_t BgL_thz00_3732, obj_t BgL_timeoutz00_3733)
{
{ /* Llib/thread.scm 400 */
{ /* Llib/thread.scm 400 */
 BgL_threadz00_bglt BgL_thz00_6880;
{ /* Llib/thread.scm 400 */
 bool_t BgL_test3707z00_11300;
{ /* Llib/thread.scm 400 */
 obj_t BgL_classz00_6840;
BgL_classz00_6840 = BGl_threadz00zz__threadz00; 
if(
BGL_OBJECTP(BgL_thz00_3732))
{ /* Llib/thread.scm 400 */
 BgL_objectz00_bglt BgL_arg1953z00_6842; long BgL_arg1954z00_6843;
BgL_arg1953z00_6842 = 
(BgL_objectz00_bglt)(BgL_thz00_3732); 
BgL_arg1954z00_6843 = 
BGL_CLASS_DEPTH(BgL_classz00_6840); 
if(
BGL_CONDEXPAND_ISA_ARCH64())
{ /* Llib/thread.scm 400 */
 long BgL_idxz00_6851;
BgL_idxz00_6851 = 
BGL_OBJECT_INHERITANCE_NUM(BgL_arg1953z00_6842); 
{ /* Llib/thread.scm 400 */
 obj_t BgL_arg1943z00_6852;
{ /* Llib/thread.scm 400 */
 long BgL_arg1944z00_6853;
BgL_arg1944z00_6853 = 
(BgL_idxz00_6851+BgL_arg1954z00_6843); 
BgL_arg1943z00_6852 = 
VECTOR_REF(BGl_za2inheritancesza2z00zz__objectz00,BgL_arg1944z00_6853); } 
BgL_test3707z00_11300 = 
(BgL_arg1943z00_6852==BgL_classz00_6840); } }  else 
{ /* Llib/thread.scm 400 */
 bool_t BgL_res2066z00_6858;
{ /* Llib/thread.scm 400 */
 obj_t BgL_oclassz00_6862;
{ /* Llib/thread.scm 400 */
 obj_t BgL_arg1959z00_6864; long BgL_arg1960z00_6865;
BgL_arg1959z00_6864 = 
(BGl_za2classesza2z00zz__objectz00); 
{ /* Llib/thread.scm 400 */
 long BgL_arg1961z00_6866;
BgL_arg1961z00_6866 = 
BGL_OBJECT_CLASS_NUM(BgL_arg1953z00_6842); 
BgL_arg1960z00_6865 = 
(BgL_arg1961z00_6866-OBJECT_TYPE); } 
BgL_oclassz00_6862 = 
VECTOR_REF(BgL_arg1959z00_6864,BgL_arg1960z00_6865); } 
{ /* Llib/thread.scm 400 */
 bool_t BgL__ortest_1149z00_6872;
BgL__ortest_1149z00_6872 = 
(BgL_classz00_6840==BgL_oclassz00_6862); 
if(BgL__ortest_1149z00_6872)
{ /* Llib/thread.scm 400 */
BgL_res2066z00_6858 = BgL__ortest_1149z00_6872; }  else 
{ /* Llib/thread.scm 400 */
 long BgL_odepthz00_6873;
{ /* Llib/thread.scm 400 */
 obj_t BgL_arg1947z00_6874;
BgL_arg1947z00_6874 = 
(BgL_oclassz00_6862); 
BgL_odepthz00_6873 = 
BGL_CLASS_DEPTH(BgL_arg1947z00_6874); } 
if(
(BgL_arg1954z00_6843<BgL_odepthz00_6873))
{ /* Llib/thread.scm 400 */
 obj_t BgL_arg1945z00_6878;
{ /* Llib/thread.scm 400 */
 obj_t BgL_arg1946z00_6879;
BgL_arg1946z00_6879 = 
(BgL_oclassz00_6862); 
BgL_arg1945z00_6878 = 
BGL_CLASS_ANCESTORS_REF(BgL_arg1946z00_6879, BgL_arg1954z00_6843); } 
BgL_res2066z00_6858 = 
(BgL_arg1945z00_6878==BgL_classz00_6840); }  else 
{ /* Llib/thread.scm 400 */
BgL_res2066z00_6858 = ((bool_t)0); } } } } 
BgL_test3707z00_11300 = BgL_res2066z00_6858; } }  else 
{ /* Llib/thread.scm 400 */
BgL_test3707z00_11300 = ((bool_t)0)
; } } 
if(BgL_test3707z00_11300)
{ /* Llib/thread.scm 400 */
BgL_thz00_6880 = 
((BgL_threadz00_bglt)BgL_thz00_3732); }  else 
{ 
 obj_t BgL_auxz00_11325;
BgL_auxz00_11325 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2484z00zz__threadz00, 
BINT(16694L), BGl_string2731z00zz__threadz00, BGl_string2500z00zz__threadz00, BgL_thz00_3732); 
FAILURE(BgL_auxz00_11325,BFALSE,BFALSE);} } 
return 
BGl_errorz00zz__errorz00(BGl_symbol2730z00zz__threadz00, BGl_string2714z00zz__threadz00, 
((obj_t)BgL_thz00_6880));} } 

}



/* &thread-start-joinabl1199 */
obj_t BGl_z62threadzd2startzd2joinabl1199z62zz__threadz00(obj_t BgL_envz00_3734, obj_t BgL_thz00_3735)
{
{ /* Llib/thread.scm 395 */
{ /* Llib/thread.scm 395 */
 BgL_threadz00_bglt BgL_thz00_6921;
{ /* Llib/thread.scm 395 */
 bool_t BgL_test3712z00_11331;
{ /* Llib/thread.scm 395 */
 obj_t BgL_classz00_6881;
BgL_classz00_6881 = BGl_threadz00zz__threadz00; 
if(
BGL_OBJECTP(BgL_thz00_3735))
{ /* Llib/thread.scm 395 */
 BgL_objectz00_bglt BgL_arg1953z00_6883; long BgL_arg1954z00_6884;
BgL_arg1953z00_6883 = 
(BgL_objectz00_bglt)(BgL_thz00_3735); 
BgL_arg1954z00_6884 = 
BGL_CLASS_DEPTH(BgL_classz00_6881); 
if(
BGL_CONDEXPAND_ISA_ARCH64())
{ /* Llib/thread.scm 395 */
 long BgL_idxz00_6892;
BgL_idxz00_6892 = 
BGL_OBJECT_INHERITANCE_NUM(BgL_arg1953z00_6883); 
{ /* Llib/thread.scm 395 */
 obj_t BgL_arg1943z00_6893;
{ /* Llib/thread.scm 395 */
 long BgL_arg1944z00_6894;
BgL_arg1944z00_6894 = 
(BgL_idxz00_6892+BgL_arg1954z00_6884); 
BgL_arg1943z00_6893 = 
VECTOR_REF(BGl_za2inheritancesza2z00zz__objectz00,BgL_arg1944z00_6894); } 
BgL_test3712z00_11331 = 
(BgL_arg1943z00_6893==BgL_classz00_6881); } }  else 
{ /* Llib/thread.scm 395 */
 bool_t BgL_res2066z00_6899;
{ /* Llib/thread.scm 395 */
 obj_t BgL_oclassz00_6903;
{ /* Llib/thread.scm 395 */
 obj_t BgL_arg1959z00_6905; long BgL_arg1960z00_6906;
BgL_arg1959z00_6905 = 
(BGl_za2classesza2z00zz__objectz00); 
{ /* Llib/thread.scm 395 */
 long BgL_arg1961z00_6907;
BgL_arg1961z00_6907 = 
BGL_OBJECT_CLASS_NUM(BgL_arg1953z00_6883); 
BgL_arg1960z00_6906 = 
(BgL_arg1961z00_6907-OBJECT_TYPE); } 
BgL_oclassz00_6903 = 
VECTOR_REF(BgL_arg1959z00_6905,BgL_arg1960z00_6906); } 
{ /* Llib/thread.scm 395 */
 bool_t BgL__ortest_1149z00_6913;
BgL__ortest_1149z00_6913 = 
(BgL_classz00_6881==BgL_oclassz00_6903); 
if(BgL__ortest_1149z00_6913)
{ /* Llib/thread.scm 395 */
BgL_res2066z00_6899 = BgL__ortest_1149z00_6913; }  else 
{ /* Llib/thread.scm 395 */
 long BgL_odepthz00_6914;
{ /* Llib/thread.scm 395 */
 obj_t BgL_arg1947z00_6915;
BgL_arg1947z00_6915 = 
(BgL_oclassz00_6903); 
BgL_odepthz00_6914 = 
BGL_CLASS_DEPTH(BgL_arg1947z00_6915); } 
if(
(BgL_arg1954z00_6884<BgL_odepthz00_6914))
{ /* Llib/thread.scm 395 */
 obj_t BgL_arg1945z00_6919;
{ /* Llib/thread.scm 395 */
 obj_t BgL_arg1946z00_6920;
BgL_arg1946z00_6920 = 
(BgL_oclassz00_6903); 
BgL_arg1945z00_6919 = 
BGL_CLASS_ANCESTORS_REF(BgL_arg1946z00_6920, BgL_arg1954z00_6884); } 
BgL_res2066z00_6899 = 
(BgL_arg1945z00_6919==BgL_classz00_6881); }  else 
{ /* Llib/thread.scm 395 */
BgL_res2066z00_6899 = ((bool_t)0); } } } } 
BgL_test3712z00_11331 = BgL_res2066z00_6899; } }  else 
{ /* Llib/thread.scm 395 */
BgL_test3712z00_11331 = ((bool_t)0)
; } } 
if(BgL_test3712z00_11331)
{ /* Llib/thread.scm 395 */
BgL_thz00_6921 = 
((BgL_threadz00_bglt)BgL_thz00_3735); }  else 
{ 
 obj_t BgL_auxz00_11356;
BgL_auxz00_11356 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2484z00zz__threadz00, 
BINT(16418L), BGl_string2733z00zz__threadz00, BGl_string2500z00zz__threadz00, BgL_thz00_3735); 
FAILURE(BgL_auxz00_11356,BFALSE,BFALSE);} } 
return 
BGl_errorz00zz__errorz00(BGl_symbol2732z00zz__threadz00, BGl_string2714z00zz__threadz00, 
((obj_t)BgL_thz00_6921));} } 

}



/* &thread-start!1197 */
obj_t BGl_z62threadzd2startz121197za2zz__threadz00(obj_t BgL_envz00_3736, obj_t BgL_thz00_3737, obj_t BgL_scz00_3738)
{
{ /* Llib/thread.scm 390 */
{ /* Llib/thread.scm 390 */
 BgL_threadz00_bglt BgL_thz00_6962;
{ /* Llib/thread.scm 390 */
 bool_t BgL_test3717z00_11362;
{ /* Llib/thread.scm 390 */
 obj_t BgL_classz00_6922;
BgL_classz00_6922 = BGl_threadz00zz__threadz00; 
if(
BGL_OBJECTP(BgL_thz00_3737))
{ /* Llib/thread.scm 390 */
 BgL_objectz00_bglt BgL_arg1953z00_6924; long BgL_arg1954z00_6925;
BgL_arg1953z00_6924 = 
(BgL_objectz00_bglt)(BgL_thz00_3737); 
BgL_arg1954z00_6925 = 
BGL_CLASS_DEPTH(BgL_classz00_6922); 
if(
BGL_CONDEXPAND_ISA_ARCH64())
{ /* Llib/thread.scm 390 */
 long BgL_idxz00_6933;
BgL_idxz00_6933 = 
BGL_OBJECT_INHERITANCE_NUM(BgL_arg1953z00_6924); 
{ /* Llib/thread.scm 390 */
 obj_t BgL_arg1943z00_6934;
{ /* Llib/thread.scm 390 */
 long BgL_arg1944z00_6935;
BgL_arg1944z00_6935 = 
(BgL_idxz00_6933+BgL_arg1954z00_6925); 
BgL_arg1943z00_6934 = 
VECTOR_REF(BGl_za2inheritancesza2z00zz__objectz00,BgL_arg1944z00_6935); } 
BgL_test3717z00_11362 = 
(BgL_arg1943z00_6934==BgL_classz00_6922); } }  else 
{ /* Llib/thread.scm 390 */
 bool_t BgL_res2066z00_6940;
{ /* Llib/thread.scm 390 */
 obj_t BgL_oclassz00_6944;
{ /* Llib/thread.scm 390 */
 obj_t BgL_arg1959z00_6946; long BgL_arg1960z00_6947;
BgL_arg1959z00_6946 = 
(BGl_za2classesza2z00zz__objectz00); 
{ /* Llib/thread.scm 390 */
 long BgL_arg1961z00_6948;
BgL_arg1961z00_6948 = 
BGL_OBJECT_CLASS_NUM(BgL_arg1953z00_6924); 
BgL_arg1960z00_6947 = 
(BgL_arg1961z00_6948-OBJECT_TYPE); } 
BgL_oclassz00_6944 = 
VECTOR_REF(BgL_arg1959z00_6946,BgL_arg1960z00_6947); } 
{ /* Llib/thread.scm 390 */
 bool_t BgL__ortest_1149z00_6954;
BgL__ortest_1149z00_6954 = 
(BgL_classz00_6922==BgL_oclassz00_6944); 
if(BgL__ortest_1149z00_6954)
{ /* Llib/thread.scm 390 */
BgL_res2066z00_6940 = BgL__ortest_1149z00_6954; }  else 
{ /* Llib/thread.scm 390 */
 long BgL_odepthz00_6955;
{ /* Llib/thread.scm 390 */
 obj_t BgL_arg1947z00_6956;
BgL_arg1947z00_6956 = 
(BgL_oclassz00_6944); 
BgL_odepthz00_6955 = 
BGL_CLASS_DEPTH(BgL_arg1947z00_6956); } 
if(
(BgL_arg1954z00_6925<BgL_odepthz00_6955))
{ /* Llib/thread.scm 390 */
 obj_t BgL_arg1945z00_6960;
{ /* Llib/thread.scm 390 */
 obj_t BgL_arg1946z00_6961;
BgL_arg1946z00_6961 = 
(BgL_oclassz00_6944); 
BgL_arg1945z00_6960 = 
BGL_CLASS_ANCESTORS_REF(BgL_arg1946z00_6961, BgL_arg1954z00_6925); } 
BgL_res2066z00_6940 = 
(BgL_arg1945z00_6960==BgL_classz00_6922); }  else 
{ /* Llib/thread.scm 390 */
BgL_res2066z00_6940 = ((bool_t)0); } } } } 
BgL_test3717z00_11362 = BgL_res2066z00_6940; } }  else 
{ /* Llib/thread.scm 390 */
BgL_test3717z00_11362 = ((bool_t)0)
; } } 
if(BgL_test3717z00_11362)
{ /* Llib/thread.scm 390 */
BgL_thz00_6962 = 
((BgL_threadz00_bglt)BgL_thz00_3737); }  else 
{ 
 obj_t BgL_auxz00_11387;
BgL_auxz00_11387 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2484z00zz__threadz00, 
BINT(16146L), BGl_string2735z00zz__threadz00, BGl_string2500z00zz__threadz00, BgL_thz00_3737); 
FAILURE(BgL_auxz00_11387,BFALSE,BFALSE);} } 
return 
BGl_errorz00zz__errorz00(BGl_symbol2734z00zz__threadz00, BGl_string2714z00zz__threadz00, 
((obj_t)BgL_thz00_6962));} } 

}



/* &thread-initialize!1195 */
obj_t BGl_z62threadzd2initializa7ez121195z05zz__threadz00(obj_t BgL_envz00_3739, obj_t BgL_thz00_3740)
{
{ /* Llib/thread.scm 384 */
{ 
 BgL_threadz00_bglt BgL_auxz00_11393;
{ /* Llib/thread.scm 384 */
 BgL_threadz00_bglt BgL_thz00_7003;
{ /* Llib/thread.scm 384 */
 bool_t BgL_test3722z00_11394;
{ /* Llib/thread.scm 384 */
 obj_t BgL_classz00_6963;
BgL_classz00_6963 = BGl_threadz00zz__threadz00; 
if(
BGL_OBJECTP(BgL_thz00_3740))
{ /* Llib/thread.scm 384 */
 BgL_objectz00_bglt BgL_arg1953z00_6965; long BgL_arg1954z00_6966;
BgL_arg1953z00_6965 = 
(BgL_objectz00_bglt)(BgL_thz00_3740); 
BgL_arg1954z00_6966 = 
BGL_CLASS_DEPTH(BgL_classz00_6963); 
if(
BGL_CONDEXPAND_ISA_ARCH64())
{ /* Llib/thread.scm 384 */
 long BgL_idxz00_6974;
BgL_idxz00_6974 = 
BGL_OBJECT_INHERITANCE_NUM(BgL_arg1953z00_6965); 
{ /* Llib/thread.scm 384 */
 obj_t BgL_arg1943z00_6975;
{ /* Llib/thread.scm 384 */
 long BgL_arg1944z00_6976;
BgL_arg1944z00_6976 = 
(BgL_idxz00_6974+BgL_arg1954z00_6966); 
BgL_arg1943z00_6975 = 
VECTOR_REF(BGl_za2inheritancesza2z00zz__objectz00,BgL_arg1944z00_6976); } 
BgL_test3722z00_11394 = 
(BgL_arg1943z00_6975==BgL_classz00_6963); } }  else 
{ /* Llib/thread.scm 384 */
 bool_t BgL_res2066z00_6981;
{ /* Llib/thread.scm 384 */
 obj_t BgL_oclassz00_6985;
{ /* Llib/thread.scm 384 */
 obj_t BgL_arg1959z00_6987; long BgL_arg1960z00_6988;
BgL_arg1959z00_6987 = 
(BGl_za2classesza2z00zz__objectz00); 
{ /* Llib/thread.scm 384 */
 long BgL_arg1961z00_6989;
BgL_arg1961z00_6989 = 
BGL_OBJECT_CLASS_NUM(BgL_arg1953z00_6965); 
BgL_arg1960z00_6988 = 
(BgL_arg1961z00_6989-OBJECT_TYPE); } 
BgL_oclassz00_6985 = 
VECTOR_REF(BgL_arg1959z00_6987,BgL_arg1960z00_6988); } 
{ /* Llib/thread.scm 384 */
 bool_t BgL__ortest_1149z00_6995;
BgL__ortest_1149z00_6995 = 
(BgL_classz00_6963==BgL_oclassz00_6985); 
if(BgL__ortest_1149z00_6995)
{ /* Llib/thread.scm 384 */
BgL_res2066z00_6981 = BgL__ortest_1149z00_6995; }  else 
{ /* Llib/thread.scm 384 */
 long BgL_odepthz00_6996;
{ /* Llib/thread.scm 384 */
 obj_t BgL_arg1947z00_6997;
BgL_arg1947z00_6997 = 
(BgL_oclassz00_6985); 
BgL_odepthz00_6996 = 
BGL_CLASS_DEPTH(BgL_arg1947z00_6997); } 
if(
(BgL_arg1954z00_6966<BgL_odepthz00_6996))
{ /* Llib/thread.scm 384 */
 obj_t BgL_arg1945z00_7001;
{ /* Llib/thread.scm 384 */
 obj_t BgL_arg1946z00_7002;
BgL_arg1946z00_7002 = 
(BgL_oclassz00_6985); 
BgL_arg1945z00_7001 = 
BGL_CLASS_ANCESTORS_REF(BgL_arg1946z00_7002, BgL_arg1954z00_6966); } 
BgL_res2066z00_6981 = 
(BgL_arg1945z00_7001==BgL_classz00_6963); }  else 
{ /* Llib/thread.scm 384 */
BgL_res2066z00_6981 = ((bool_t)0); } } } } 
BgL_test3722z00_11394 = BgL_res2066z00_6981; } }  else 
{ /* Llib/thread.scm 384 */
BgL_test3722z00_11394 = ((bool_t)0)
; } } 
if(BgL_test3722z00_11394)
{ /* Llib/thread.scm 384 */
BgL_thz00_7003 = 
((BgL_threadz00_bglt)BgL_thz00_3740); }  else 
{ 
 obj_t BgL_auxz00_11419;
BgL_auxz00_11419 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2484z00zz__threadz00, 
BINT(15868L), BGl_string2736z00zz__threadz00, BGl_string2500z00zz__threadz00, BgL_thz00_3740); 
FAILURE(BgL_auxz00_11419,BFALSE,BFALSE);} } 
BgL_auxz00_11393 = BgL_thz00_7003; } 
return 
((obj_t)BgL_auxz00_11393);} } 

}



/* &tb-condvar-initializ1187 */
obj_t BGl_z62tbzd2condvarzd2initializa71187zc5zz__threadz00(obj_t BgL_envz00_3741, obj_t BgL_tbz00_3742, obj_t BgL_condvarz00_3743)
{
{ /* Llib/thread.scm 355 */
{ /* Llib/thread.scm 355 */
 BgL_threadzd2backendzd2_bglt BgL_tbz00_7044; obj_t BgL_condvarz00_7045;
{ /* Llib/thread.scm 355 */
 bool_t BgL_test3727z00_11424;
{ /* Llib/thread.scm 355 */
 obj_t BgL_classz00_7004;
BgL_classz00_7004 = BGl_threadzd2backendzd2zz__threadz00; 
if(
BGL_OBJECTP(BgL_tbz00_3742))
{ /* Llib/thread.scm 355 */
 BgL_objectz00_bglt BgL_arg1953z00_7006; long BgL_arg1954z00_7007;
BgL_arg1953z00_7006 = 
(BgL_objectz00_bglt)(BgL_tbz00_3742); 
BgL_arg1954z00_7007 = 
BGL_CLASS_DEPTH(BgL_classz00_7004); 
if(
BGL_CONDEXPAND_ISA_ARCH64())
{ /* Llib/thread.scm 355 */
 long BgL_idxz00_7015;
BgL_idxz00_7015 = 
BGL_OBJECT_INHERITANCE_NUM(BgL_arg1953z00_7006); 
{ /* Llib/thread.scm 355 */
 obj_t BgL_arg1943z00_7016;
{ /* Llib/thread.scm 355 */
 long BgL_arg1944z00_7017;
BgL_arg1944z00_7017 = 
(BgL_idxz00_7015+BgL_arg1954z00_7007); 
BgL_arg1943z00_7016 = 
VECTOR_REF(BGl_za2inheritancesza2z00zz__objectz00,BgL_arg1944z00_7017); } 
BgL_test3727z00_11424 = 
(BgL_arg1943z00_7016==BgL_classz00_7004); } }  else 
{ /* Llib/thread.scm 355 */
 bool_t BgL_res2066z00_7022;
{ /* Llib/thread.scm 355 */
 obj_t BgL_oclassz00_7026;
{ /* Llib/thread.scm 355 */
 obj_t BgL_arg1959z00_7028; long BgL_arg1960z00_7029;
BgL_arg1959z00_7028 = 
(BGl_za2classesza2z00zz__objectz00); 
{ /* Llib/thread.scm 355 */
 long BgL_arg1961z00_7030;
BgL_arg1961z00_7030 = 
BGL_OBJECT_CLASS_NUM(BgL_arg1953z00_7006); 
BgL_arg1960z00_7029 = 
(BgL_arg1961z00_7030-OBJECT_TYPE); } 
BgL_oclassz00_7026 = 
VECTOR_REF(BgL_arg1959z00_7028,BgL_arg1960z00_7029); } 
{ /* Llib/thread.scm 355 */
 bool_t BgL__ortest_1149z00_7036;
BgL__ortest_1149z00_7036 = 
(BgL_classz00_7004==BgL_oclassz00_7026); 
if(BgL__ortest_1149z00_7036)
{ /* Llib/thread.scm 355 */
BgL_res2066z00_7022 = BgL__ortest_1149z00_7036; }  else 
{ /* Llib/thread.scm 355 */
 long BgL_odepthz00_7037;
{ /* Llib/thread.scm 355 */
 obj_t BgL_arg1947z00_7038;
BgL_arg1947z00_7038 = 
(BgL_oclassz00_7026); 
BgL_odepthz00_7037 = 
BGL_CLASS_DEPTH(BgL_arg1947z00_7038); } 
if(
(BgL_arg1954z00_7007<BgL_odepthz00_7037))
{ /* Llib/thread.scm 355 */
 obj_t BgL_arg1945z00_7042;
{ /* Llib/thread.scm 355 */
 obj_t BgL_arg1946z00_7043;
BgL_arg1946z00_7043 = 
(BgL_oclassz00_7026); 
BgL_arg1945z00_7042 = 
BGL_CLASS_ANCESTORS_REF(BgL_arg1946z00_7043, BgL_arg1954z00_7007); } 
BgL_res2066z00_7022 = 
(BgL_arg1945z00_7042==BgL_classz00_7004); }  else 
{ /* Llib/thread.scm 355 */
BgL_res2066z00_7022 = ((bool_t)0); } } } } 
BgL_test3727z00_11424 = BgL_res2066z00_7022; } }  else 
{ /* Llib/thread.scm 355 */
BgL_test3727z00_11424 = ((bool_t)0)
; } } 
if(BgL_test3727z00_11424)
{ /* Llib/thread.scm 355 */
BgL_tbz00_7044 = 
((BgL_threadzd2backendzd2_bglt)BgL_tbz00_3742); }  else 
{ 
 obj_t BgL_auxz00_11449;
BgL_auxz00_11449 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2484z00zz__threadz00, 
BINT(14317L), BGl_string2738z00zz__threadz00, BGl_string2486z00zz__threadz00, BgL_tbz00_3742); 
FAILURE(BgL_auxz00_11449,BFALSE,BFALSE);} } 
if(
BGL_CONDVARP(BgL_condvarz00_3743))
{ /* Llib/thread.scm 355 */
BgL_condvarz00_7045 = BgL_condvarz00_3743; }  else 
{ 
 obj_t BgL_auxz00_11455;
BgL_auxz00_11455 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2484z00zz__threadz00, 
BINT(14317L), BGl_string2738z00zz__threadz00, BGl_string2551z00zz__threadz00, BgL_condvarz00_3743); 
FAILURE(BgL_auxz00_11455,BFALSE,BFALSE);} 
return 
BGl_errorz00zz__errorz00(BGl_symbol2737z00zz__threadz00, BGl_string2714z00zz__threadz00, 
((obj_t)BgL_tbz00_7044));} } 

}



/* &tb-mutex-initialize!1185 */
obj_t BGl_z62tbzd2mutexzd2initializa7ez121185zd7zz__threadz00(obj_t BgL_envz00_3744, obj_t BgL_tbz00_3745, obj_t BgL_mutexz00_3746)
{
{ /* Llib/thread.scm 350 */
{ /* Llib/thread.scm 350 */
 BgL_threadzd2backendzd2_bglt BgL_tbz00_7086; obj_t BgL_mutexz00_7087;
{ /* Llib/thread.scm 350 */
 bool_t BgL_test3733z00_11461;
{ /* Llib/thread.scm 350 */
 obj_t BgL_classz00_7046;
BgL_classz00_7046 = BGl_threadzd2backendzd2zz__threadz00; 
if(
BGL_OBJECTP(BgL_tbz00_3745))
{ /* Llib/thread.scm 350 */
 BgL_objectz00_bglt BgL_arg1953z00_7048; long BgL_arg1954z00_7049;
BgL_arg1953z00_7048 = 
(BgL_objectz00_bglt)(BgL_tbz00_3745); 
BgL_arg1954z00_7049 = 
BGL_CLASS_DEPTH(BgL_classz00_7046); 
if(
BGL_CONDEXPAND_ISA_ARCH64())
{ /* Llib/thread.scm 350 */
 long BgL_idxz00_7057;
BgL_idxz00_7057 = 
BGL_OBJECT_INHERITANCE_NUM(BgL_arg1953z00_7048); 
{ /* Llib/thread.scm 350 */
 obj_t BgL_arg1943z00_7058;
{ /* Llib/thread.scm 350 */
 long BgL_arg1944z00_7059;
BgL_arg1944z00_7059 = 
(BgL_idxz00_7057+BgL_arg1954z00_7049); 
BgL_arg1943z00_7058 = 
VECTOR_REF(BGl_za2inheritancesza2z00zz__objectz00,BgL_arg1944z00_7059); } 
BgL_test3733z00_11461 = 
(BgL_arg1943z00_7058==BgL_classz00_7046); } }  else 
{ /* Llib/thread.scm 350 */
 bool_t BgL_res2066z00_7064;
{ /* Llib/thread.scm 350 */
 obj_t BgL_oclassz00_7068;
{ /* Llib/thread.scm 350 */
 obj_t BgL_arg1959z00_7070; long BgL_arg1960z00_7071;
BgL_arg1959z00_7070 = 
(BGl_za2classesza2z00zz__objectz00); 
{ /* Llib/thread.scm 350 */
 long BgL_arg1961z00_7072;
BgL_arg1961z00_7072 = 
BGL_OBJECT_CLASS_NUM(BgL_arg1953z00_7048); 
BgL_arg1960z00_7071 = 
(BgL_arg1961z00_7072-OBJECT_TYPE); } 
BgL_oclassz00_7068 = 
VECTOR_REF(BgL_arg1959z00_7070,BgL_arg1960z00_7071); } 
{ /* Llib/thread.scm 350 */
 bool_t BgL__ortest_1149z00_7078;
BgL__ortest_1149z00_7078 = 
(BgL_classz00_7046==BgL_oclassz00_7068); 
if(BgL__ortest_1149z00_7078)
{ /* Llib/thread.scm 350 */
BgL_res2066z00_7064 = BgL__ortest_1149z00_7078; }  else 
{ /* Llib/thread.scm 350 */
 long BgL_odepthz00_7079;
{ /* Llib/thread.scm 350 */
 obj_t BgL_arg1947z00_7080;
BgL_arg1947z00_7080 = 
(BgL_oclassz00_7068); 
BgL_odepthz00_7079 = 
BGL_CLASS_DEPTH(BgL_arg1947z00_7080); } 
if(
(BgL_arg1954z00_7049<BgL_odepthz00_7079))
{ /* Llib/thread.scm 350 */
 obj_t BgL_arg1945z00_7084;
{ /* Llib/thread.scm 350 */
 obj_t BgL_arg1946z00_7085;
BgL_arg1946z00_7085 = 
(BgL_oclassz00_7068); 
BgL_arg1945z00_7084 = 
BGL_CLASS_ANCESTORS_REF(BgL_arg1946z00_7085, BgL_arg1954z00_7049); } 
BgL_res2066z00_7064 = 
(BgL_arg1945z00_7084==BgL_classz00_7046); }  else 
{ /* Llib/thread.scm 350 */
BgL_res2066z00_7064 = ((bool_t)0); } } } } 
BgL_test3733z00_11461 = BgL_res2066z00_7064; } }  else 
{ /* Llib/thread.scm 350 */
BgL_test3733z00_11461 = ((bool_t)0)
; } } 
if(BgL_test3733z00_11461)
{ /* Llib/thread.scm 350 */
BgL_tbz00_7086 = 
((BgL_threadzd2backendzd2_bglt)BgL_tbz00_3745); }  else 
{ 
 obj_t BgL_auxz00_11486;
BgL_auxz00_11486 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2484z00zz__threadz00, 
BINT(14029L), BGl_string2740z00zz__threadz00, BGl_string2486z00zz__threadz00, BgL_tbz00_3745); 
FAILURE(BgL_auxz00_11486,BFALSE,BFALSE);} } 
if(
BGL_MUTEXP(BgL_mutexz00_3746))
{ /* Llib/thread.scm 350 */
BgL_mutexz00_7087 = BgL_mutexz00_3746; }  else 
{ 
 obj_t BgL_auxz00_11492;
BgL_auxz00_11492 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2484z00zz__threadz00, 
BINT(14029L), BGl_string2740z00zz__threadz00, BGl_string2519z00zz__threadz00, BgL_mutexz00_3746); 
FAILURE(BgL_auxz00_11492,BFALSE,BFALSE);} 
return 
BGl_errorz00zz__errorz00(BGl_symbol2739z00zz__threadz00, BGl_string2714z00zz__threadz00, 
((obj_t)BgL_tbz00_7086));} } 

}



/* &tb-current-thread1179 */
obj_t BGl_z62tbzd2currentzd2thread1179z62zz__threadz00(obj_t BgL_envz00_3747, obj_t BgL_tbz00_3748)
{
{ /* Llib/thread.scm 326 */
{ /* Llib/thread.scm 326 */
 BgL_threadzd2backendzd2_bglt BgL_tbz00_7128;
{ /* Llib/thread.scm 326 */
 bool_t BgL_test3739z00_11498;
{ /* Llib/thread.scm 326 */
 obj_t BgL_classz00_7088;
BgL_classz00_7088 = BGl_threadzd2backendzd2zz__threadz00; 
if(
BGL_OBJECTP(BgL_tbz00_3748))
{ /* Llib/thread.scm 326 */
 BgL_objectz00_bglt BgL_arg1953z00_7090; long BgL_arg1954z00_7091;
BgL_arg1953z00_7090 = 
(BgL_objectz00_bglt)(BgL_tbz00_3748); 
BgL_arg1954z00_7091 = 
BGL_CLASS_DEPTH(BgL_classz00_7088); 
if(
BGL_CONDEXPAND_ISA_ARCH64())
{ /* Llib/thread.scm 326 */
 long BgL_idxz00_7099;
BgL_idxz00_7099 = 
BGL_OBJECT_INHERITANCE_NUM(BgL_arg1953z00_7090); 
{ /* Llib/thread.scm 326 */
 obj_t BgL_arg1943z00_7100;
{ /* Llib/thread.scm 326 */
 long BgL_arg1944z00_7101;
BgL_arg1944z00_7101 = 
(BgL_idxz00_7099+BgL_arg1954z00_7091); 
BgL_arg1943z00_7100 = 
VECTOR_REF(BGl_za2inheritancesza2z00zz__objectz00,BgL_arg1944z00_7101); } 
BgL_test3739z00_11498 = 
(BgL_arg1943z00_7100==BgL_classz00_7088); } }  else 
{ /* Llib/thread.scm 326 */
 bool_t BgL_res2066z00_7106;
{ /* Llib/thread.scm 326 */
 obj_t BgL_oclassz00_7110;
{ /* Llib/thread.scm 326 */
 obj_t BgL_arg1959z00_7112; long BgL_arg1960z00_7113;
BgL_arg1959z00_7112 = 
(BGl_za2classesza2z00zz__objectz00); 
{ /* Llib/thread.scm 326 */
 long BgL_arg1961z00_7114;
BgL_arg1961z00_7114 = 
BGL_OBJECT_CLASS_NUM(BgL_arg1953z00_7090); 
BgL_arg1960z00_7113 = 
(BgL_arg1961z00_7114-OBJECT_TYPE); } 
BgL_oclassz00_7110 = 
VECTOR_REF(BgL_arg1959z00_7112,BgL_arg1960z00_7113); } 
{ /* Llib/thread.scm 326 */
 bool_t BgL__ortest_1149z00_7120;
BgL__ortest_1149z00_7120 = 
(BgL_classz00_7088==BgL_oclassz00_7110); 
if(BgL__ortest_1149z00_7120)
{ /* Llib/thread.scm 326 */
BgL_res2066z00_7106 = BgL__ortest_1149z00_7120; }  else 
{ /* Llib/thread.scm 326 */
 long BgL_odepthz00_7121;
{ /* Llib/thread.scm 326 */
 obj_t BgL_arg1947z00_7122;
BgL_arg1947z00_7122 = 
(BgL_oclassz00_7110); 
BgL_odepthz00_7121 = 
BGL_CLASS_DEPTH(BgL_arg1947z00_7122); } 
if(
(BgL_arg1954z00_7091<BgL_odepthz00_7121))
{ /* Llib/thread.scm 326 */
 obj_t BgL_arg1945z00_7126;
{ /* Llib/thread.scm 326 */
 obj_t BgL_arg1946z00_7127;
BgL_arg1946z00_7127 = 
(BgL_oclassz00_7110); 
BgL_arg1945z00_7126 = 
BGL_CLASS_ANCESTORS_REF(BgL_arg1946z00_7127, BgL_arg1954z00_7091); } 
BgL_res2066z00_7106 = 
(BgL_arg1945z00_7126==BgL_classz00_7088); }  else 
{ /* Llib/thread.scm 326 */
BgL_res2066z00_7106 = ((bool_t)0); } } } } 
BgL_test3739z00_11498 = BgL_res2066z00_7106; } }  else 
{ /* Llib/thread.scm 326 */
BgL_test3739z00_11498 = ((bool_t)0)
; } } 
if(BgL_test3739z00_11498)
{ /* Llib/thread.scm 326 */
BgL_tbz00_7128 = 
((BgL_threadzd2backendzd2_bglt)BgL_tbz00_3748); }  else 
{ 
 obj_t BgL_auxz00_11523;
BgL_auxz00_11523 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2484z00zz__threadz00, 
BINT(12844L), BGl_string2742z00zz__threadz00, BGl_string2486z00zz__threadz00, BgL_tbz00_3748); 
FAILURE(BgL_auxz00_11523,BFALSE,BFALSE);} } 
return 
BGl_errorz00zz__errorz00(BGl_symbol2741z00zz__threadz00, BGl_string2714z00zz__threadz00, 
((obj_t)BgL_tbz00_7128));} } 

}



/* &tb-make-thread1176 */
obj_t BGl_z62tbzd2makezd2thread1176z62zz__threadz00(obj_t BgL_envz00_3749, obj_t BgL_tbz00_3750, obj_t BgL_bodyz00_3751, obj_t BgL_namez00_3752)
{
{ /* Llib/thread.scm 321 */
{ /* Llib/thread.scm 321 */
 BgL_threadzd2backendzd2_bglt BgL_tbz00_7169; obj_t BgL_bodyz00_7170;
{ /* Llib/thread.scm 321 */
 bool_t BgL_test3744z00_11529;
{ /* Llib/thread.scm 321 */
 obj_t BgL_classz00_7129;
BgL_classz00_7129 = BGl_threadzd2backendzd2zz__threadz00; 
if(
BGL_OBJECTP(BgL_tbz00_3750))
{ /* Llib/thread.scm 321 */
 BgL_objectz00_bglt BgL_arg1953z00_7131; long BgL_arg1954z00_7132;
BgL_arg1953z00_7131 = 
(BgL_objectz00_bglt)(BgL_tbz00_3750); 
BgL_arg1954z00_7132 = 
BGL_CLASS_DEPTH(BgL_classz00_7129); 
if(
BGL_CONDEXPAND_ISA_ARCH64())
{ /* Llib/thread.scm 321 */
 long BgL_idxz00_7140;
BgL_idxz00_7140 = 
BGL_OBJECT_INHERITANCE_NUM(BgL_arg1953z00_7131); 
{ /* Llib/thread.scm 321 */
 obj_t BgL_arg1943z00_7141;
{ /* Llib/thread.scm 321 */
 long BgL_arg1944z00_7142;
BgL_arg1944z00_7142 = 
(BgL_idxz00_7140+BgL_arg1954z00_7132); 
BgL_arg1943z00_7141 = 
VECTOR_REF(BGl_za2inheritancesza2z00zz__objectz00,BgL_arg1944z00_7142); } 
BgL_test3744z00_11529 = 
(BgL_arg1943z00_7141==BgL_classz00_7129); } }  else 
{ /* Llib/thread.scm 321 */
 bool_t BgL_res2066z00_7147;
{ /* Llib/thread.scm 321 */
 obj_t BgL_oclassz00_7151;
{ /* Llib/thread.scm 321 */
 obj_t BgL_arg1959z00_7153; long BgL_arg1960z00_7154;
BgL_arg1959z00_7153 = 
(BGl_za2classesza2z00zz__objectz00); 
{ /* Llib/thread.scm 321 */
 long BgL_arg1961z00_7155;
BgL_arg1961z00_7155 = 
BGL_OBJECT_CLASS_NUM(BgL_arg1953z00_7131); 
BgL_arg1960z00_7154 = 
(BgL_arg1961z00_7155-OBJECT_TYPE); } 
BgL_oclassz00_7151 = 
VECTOR_REF(BgL_arg1959z00_7153,BgL_arg1960z00_7154); } 
{ /* Llib/thread.scm 321 */
 bool_t BgL__ortest_1149z00_7161;
BgL__ortest_1149z00_7161 = 
(BgL_classz00_7129==BgL_oclassz00_7151); 
if(BgL__ortest_1149z00_7161)
{ /* Llib/thread.scm 321 */
BgL_res2066z00_7147 = BgL__ortest_1149z00_7161; }  else 
{ /* Llib/thread.scm 321 */
 long BgL_odepthz00_7162;
{ /* Llib/thread.scm 321 */
 obj_t BgL_arg1947z00_7163;
BgL_arg1947z00_7163 = 
(BgL_oclassz00_7151); 
BgL_odepthz00_7162 = 
BGL_CLASS_DEPTH(BgL_arg1947z00_7163); } 
if(
(BgL_arg1954z00_7132<BgL_odepthz00_7162))
{ /* Llib/thread.scm 321 */
 obj_t BgL_arg1945z00_7167;
{ /* Llib/thread.scm 321 */
 obj_t BgL_arg1946z00_7168;
BgL_arg1946z00_7168 = 
(BgL_oclassz00_7151); 
BgL_arg1945z00_7167 = 
BGL_CLASS_ANCESTORS_REF(BgL_arg1946z00_7168, BgL_arg1954z00_7132); } 
BgL_res2066z00_7147 = 
(BgL_arg1945z00_7167==BgL_classz00_7129); }  else 
{ /* Llib/thread.scm 321 */
BgL_res2066z00_7147 = ((bool_t)0); } } } } 
BgL_test3744z00_11529 = BgL_res2066z00_7147; } }  else 
{ /* Llib/thread.scm 321 */
BgL_test3744z00_11529 = ((bool_t)0)
; } } 
if(BgL_test3744z00_11529)
{ /* Llib/thread.scm 321 */
BgL_tbz00_7169 = 
((BgL_threadzd2backendzd2_bglt)BgL_tbz00_3750); }  else 
{ 
 obj_t BgL_auxz00_11554;
BgL_auxz00_11554 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2484z00zz__threadz00, 
BINT(12558L), BGl_string2744z00zz__threadz00, BGl_string2486z00zz__threadz00, BgL_tbz00_3750); 
FAILURE(BgL_auxz00_11554,BFALSE,BFALSE);} } 
if(
PROCEDUREP(BgL_bodyz00_3751))
{ /* Llib/thread.scm 321 */
BgL_bodyz00_7170 = BgL_bodyz00_3751; }  else 
{ 
 obj_t BgL_auxz00_11560;
BgL_auxz00_11560 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2484z00zz__threadz00, 
BINT(12558L), BGl_string2744z00zz__threadz00, BGl_string2501z00zz__threadz00, BgL_bodyz00_3751); 
FAILURE(BgL_auxz00_11560,BFALSE,BFALSE);} 
return 
BGl_errorz00zz__errorz00(BGl_symbol2743z00zz__threadz00, BGl_string2714z00zz__threadz00, 
((obj_t)BgL_tbz00_7169));} } 

}



/* tb-make-thread */
BGL_EXPORTED_DEF BgL_threadz00_bglt BGl_tbzd2makezd2threadz00zz__threadz00(BgL_threadzd2backendzd2_bglt BgL_tbz00_7, obj_t BgL_bodyz00_8, obj_t BgL_namez00_9)
{
{ /* Llib/thread.scm 321 */
{ /* Llib/thread.scm 321 */
 obj_t BgL_method1178z00_1650;
{ /* Llib/thread.scm 321 */
 obj_t BgL_res1973z00_2549;
{ /* Llib/thread.scm 321 */
 long BgL_objzd2classzd2numz00_2520;
BgL_objzd2classzd2numz00_2520 = 
BGL_OBJECT_CLASS_NUM(
((BgL_objectz00_bglt)BgL_tbz00_7)); 
{ /* Llib/thread.scm 321 */
 obj_t BgL_arg1955z00_2521;
BgL_arg1955z00_2521 = 
PROCEDURE_REF(BGl_tbzd2makezd2threadzd2envzd2zz__threadz00, 
(int)(1L)); 
{ /* Llib/thread.scm 321 */
 int BgL_offsetz00_2524;
BgL_offsetz00_2524 = 
(int)(BgL_objzd2classzd2numz00_2520); 
{ /* Llib/thread.scm 321 */
 long BgL_offsetz00_2525;
BgL_offsetz00_2525 = 
(
(long)(BgL_offsetz00_2524)-OBJECT_TYPE); 
{ /* Llib/thread.scm 321 */
 long BgL_modz00_2526;
BgL_modz00_2526 = 
(BgL_offsetz00_2525 >> 
(int)(
(long)(
(int)(4L)))); 
{ /* Llib/thread.scm 321 */
 long BgL_restz00_2528;
BgL_restz00_2528 = 
(BgL_offsetz00_2525 & 
(long)(
(int)(
(
(long)(
(int)(
(1L << 
(int)(
(long)(
(int)(4L))))))-1L)))); 
{ /* Llib/thread.scm 321 */

{ /* Llib/thread.scm 321 */
 obj_t BgL_bucketz00_2530;
BgL_bucketz00_2530 = 
VECTOR_REF(
((obj_t)BgL_arg1955z00_2521),BgL_modz00_2526); 
BgL_res1973z00_2549 = 
VECTOR_REF(
((obj_t)BgL_bucketz00_2530),BgL_restz00_2528); } } } } } } } } 
BgL_method1178z00_1650 = BgL_res1973z00_2549; } 
if(
PROCEDURE_CORRECT_ARITYP(BgL_method1178z00_1650, 3))
{ /* Llib/thread.scm 321 */
 obj_t BgL_aux2348z00_4262;
BgL_aux2348z00_4262 = 
BGL_PROCEDURE_CALL3(BgL_method1178z00_1650, 
((obj_t)BgL_tbz00_7), BgL_bodyz00_8, BgL_namez00_9); 
{ /* Llib/thread.scm 321 */
 bool_t BgL_test3751z00_11600;
{ /* Llib/thread.scm 321 */
 obj_t BgL_classz00_7171;
BgL_classz00_7171 = BGl_threadz00zz__threadz00; 
if(
BGL_OBJECTP(BgL_aux2348z00_4262))
{ /* Llib/thread.scm 321 */
 BgL_objectz00_bglt BgL_arg1953z00_7173; long BgL_arg1954z00_7174;
BgL_arg1953z00_7173 = 
(BgL_objectz00_bglt)(BgL_aux2348z00_4262); 
BgL_arg1954z00_7174 = 
BGL_CLASS_DEPTH(BgL_classz00_7171); 
if(
BGL_CONDEXPAND_ISA_ARCH64())
{ /* Llib/thread.scm 321 */
 long BgL_idxz00_7182;
BgL_idxz00_7182 = 
BGL_OBJECT_INHERITANCE_NUM(BgL_arg1953z00_7173); 
{ /* Llib/thread.scm 321 */
 obj_t BgL_arg1943z00_7183;
{ /* Llib/thread.scm 321 */
 long BgL_arg1944z00_7184;
BgL_arg1944z00_7184 = 
(BgL_idxz00_7182+BgL_arg1954z00_7174); 
BgL_arg1943z00_7183 = 
VECTOR_REF(BGl_za2inheritancesza2z00zz__objectz00,BgL_arg1944z00_7184); } 
BgL_test3751z00_11600 = 
(BgL_arg1943z00_7183==BgL_classz00_7171); } }  else 
{ /* Llib/thread.scm 321 */
 bool_t BgL_res2066z00_7189;
{ /* Llib/thread.scm 321 */
 obj_t BgL_oclassz00_7193;
{ /* Llib/thread.scm 321 */
 obj_t BgL_arg1959z00_7195; long BgL_arg1960z00_7196;
BgL_arg1959z00_7195 = 
(BGl_za2classesza2z00zz__objectz00); 
{ /* Llib/thread.scm 321 */
 long BgL_arg1961z00_7197;
BgL_arg1961z00_7197 = 
BGL_OBJECT_CLASS_NUM(BgL_arg1953z00_7173); 
BgL_arg1960z00_7196 = 
(BgL_arg1961z00_7197-OBJECT_TYPE); } 
BgL_oclassz00_7193 = 
VECTOR_REF(BgL_arg1959z00_7195,BgL_arg1960z00_7196); } 
{ /* Llib/thread.scm 321 */
 bool_t BgL__ortest_1149z00_7203;
BgL__ortest_1149z00_7203 = 
(BgL_classz00_7171==BgL_oclassz00_7193); 
if(BgL__ortest_1149z00_7203)
{ /* Llib/thread.scm 321 */
BgL_res2066z00_7189 = BgL__ortest_1149z00_7203; }  else 
{ /* Llib/thread.scm 321 */
 long BgL_odepthz00_7204;
{ /* Llib/thread.scm 321 */
 obj_t BgL_arg1947z00_7205;
BgL_arg1947z00_7205 = 
(BgL_oclassz00_7193); 
BgL_odepthz00_7204 = 
BGL_CLASS_DEPTH(BgL_arg1947z00_7205); } 
if(
(BgL_arg1954z00_7174<BgL_odepthz00_7204))
{ /* Llib/thread.scm 321 */
 obj_t BgL_arg1945z00_7209;
{ /* Llib/thread.scm 321 */
 obj_t BgL_arg1946z00_7210;
BgL_arg1946z00_7210 = 
(BgL_oclassz00_7193); 
BgL_arg1945z00_7209 = 
BGL_CLASS_ANCESTORS_REF(BgL_arg1946z00_7210, BgL_arg1954z00_7174); } 
BgL_res2066z00_7189 = 
(BgL_arg1945z00_7209==BgL_classz00_7171); }  else 
{ /* Llib/thread.scm 321 */
BgL_res2066z00_7189 = ((bool_t)0); } } } } 
BgL_test3751z00_11600 = BgL_res2066z00_7189; } }  else 
{ /* Llib/thread.scm 321 */
BgL_test3751z00_11600 = ((bool_t)0)
; } } 
if(BgL_test3751z00_11600)
{ /* Llib/thread.scm 321 */
return 
((BgL_threadz00_bglt)BgL_aux2348z00_4262);}  else 
{ 
 obj_t BgL_auxz00_11625;
BgL_auxz00_11625 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2484z00zz__threadz00, 
BINT(12558L), BGl_string2745z00zz__threadz00, BGl_string2500z00zz__threadz00, BgL_aux2348z00_4262); 
FAILURE(BgL_auxz00_11625,BFALSE,BFALSE);} } }  else 
{ /* Llib/thread.scm 321 */
FAILURE(BGl_string2746z00zz__threadz00,BGl_list2747z00zz__threadz00,BgL_method1178z00_1650);} } } 

}



/* &tb-make-thread */
BgL_threadz00_bglt BGl_z62tbzd2makezd2threadz62zz__threadz00(obj_t BgL_envz00_3753, obj_t BgL_tbz00_3754, obj_t BgL_bodyz00_3755, obj_t BgL_namez00_3756)
{
{ /* Llib/thread.scm 321 */
{ /* Llib/thread.scm 321 */
 obj_t BgL_auxz00_11660; BgL_threadzd2backendzd2_bglt BgL_auxz00_11630;
if(
PROCEDUREP(BgL_bodyz00_3755))
{ /* Llib/thread.scm 321 */
BgL_auxz00_11660 = BgL_bodyz00_3755
; }  else 
{ 
 obj_t BgL_auxz00_11663;
BgL_auxz00_11663 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2484z00zz__threadz00, 
BINT(12558L), BGl_string2752z00zz__threadz00, BGl_string2501z00zz__threadz00, BgL_bodyz00_3755); 
FAILURE(BgL_auxz00_11663,BFALSE,BFALSE);} 
{ /* Llib/thread.scm 321 */
 bool_t BgL_test3756z00_11631;
{ /* Llib/thread.scm 321 */
 obj_t BgL_classz00_7211;
BgL_classz00_7211 = BGl_threadzd2backendzd2zz__threadz00; 
if(
BGL_OBJECTP(BgL_tbz00_3754))
{ /* Llib/thread.scm 321 */
 BgL_objectz00_bglt BgL_arg1953z00_7213; long BgL_arg1954z00_7214;
BgL_arg1953z00_7213 = 
(BgL_objectz00_bglt)(BgL_tbz00_3754); 
BgL_arg1954z00_7214 = 
BGL_CLASS_DEPTH(BgL_classz00_7211); 
if(
BGL_CONDEXPAND_ISA_ARCH64())
{ /* Llib/thread.scm 321 */
 long BgL_idxz00_7222;
BgL_idxz00_7222 = 
BGL_OBJECT_INHERITANCE_NUM(BgL_arg1953z00_7213); 
{ /* Llib/thread.scm 321 */
 obj_t BgL_arg1943z00_7223;
{ /* Llib/thread.scm 321 */
 long BgL_arg1944z00_7224;
BgL_arg1944z00_7224 = 
(BgL_idxz00_7222+BgL_arg1954z00_7214); 
BgL_arg1943z00_7223 = 
VECTOR_REF(BGl_za2inheritancesza2z00zz__objectz00,BgL_arg1944z00_7224); } 
BgL_test3756z00_11631 = 
(BgL_arg1943z00_7223==BgL_classz00_7211); } }  else 
{ /* Llib/thread.scm 321 */
 bool_t BgL_res2066z00_7229;
{ /* Llib/thread.scm 321 */
 obj_t BgL_oclassz00_7233;
{ /* Llib/thread.scm 321 */
 obj_t BgL_arg1959z00_7235; long BgL_arg1960z00_7236;
BgL_arg1959z00_7235 = 
(BGl_za2classesza2z00zz__objectz00); 
{ /* Llib/thread.scm 321 */
 long BgL_arg1961z00_7237;
BgL_arg1961z00_7237 = 
BGL_OBJECT_CLASS_NUM(BgL_arg1953z00_7213); 
BgL_arg1960z00_7236 = 
(BgL_arg1961z00_7237-OBJECT_TYPE); } 
BgL_oclassz00_7233 = 
VECTOR_REF(BgL_arg1959z00_7235,BgL_arg1960z00_7236); } 
{ /* Llib/thread.scm 321 */
 bool_t BgL__ortest_1149z00_7243;
BgL__ortest_1149z00_7243 = 
(BgL_classz00_7211==BgL_oclassz00_7233); 
if(BgL__ortest_1149z00_7243)
{ /* Llib/thread.scm 321 */
BgL_res2066z00_7229 = BgL__ortest_1149z00_7243; }  else 
{ /* Llib/thread.scm 321 */
 long BgL_odepthz00_7244;
{ /* Llib/thread.scm 321 */
 obj_t BgL_arg1947z00_7245;
BgL_arg1947z00_7245 = 
(BgL_oclassz00_7233); 
BgL_odepthz00_7244 = 
BGL_CLASS_DEPTH(BgL_arg1947z00_7245); } 
if(
(BgL_arg1954z00_7214<BgL_odepthz00_7244))
{ /* Llib/thread.scm 321 */
 obj_t BgL_arg1945z00_7249;
{ /* Llib/thread.scm 321 */
 obj_t BgL_arg1946z00_7250;
BgL_arg1946z00_7250 = 
(BgL_oclassz00_7233); 
BgL_arg1945z00_7249 = 
BGL_CLASS_ANCESTORS_REF(BgL_arg1946z00_7250, BgL_arg1954z00_7214); } 
BgL_res2066z00_7229 = 
(BgL_arg1945z00_7249==BgL_classz00_7211); }  else 
{ /* Llib/thread.scm 321 */
BgL_res2066z00_7229 = ((bool_t)0); } } } } 
BgL_test3756z00_11631 = BgL_res2066z00_7229; } }  else 
{ /* Llib/thread.scm 321 */
BgL_test3756z00_11631 = ((bool_t)0)
; } } 
if(BgL_test3756z00_11631)
{ /* Llib/thread.scm 321 */
BgL_auxz00_11630 = 
((BgL_threadzd2backendzd2_bglt)BgL_tbz00_3754)
; }  else 
{ 
 obj_t BgL_auxz00_11656;
BgL_auxz00_11656 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2484z00zz__threadz00, 
BINT(12558L), BGl_string2752z00zz__threadz00, BGl_string2486z00zz__threadz00, BgL_tbz00_3754); 
FAILURE(BgL_auxz00_11656,BFALSE,BFALSE);} } 
return 
BGl_tbzd2makezd2threadz00zz__threadz00(BgL_auxz00_11630, BgL_auxz00_11660, BgL_namez00_3756);} } 

}



/* tb-current-thread */
BGL_EXPORTED_DEF obj_t BGl_tbzd2currentzd2threadz00zz__threadz00(BgL_threadzd2backendzd2_bglt BgL_tbz00_10)
{
{ /* Llib/thread.scm 326 */
{ /* Llib/thread.scm 326 */
 obj_t BgL_method1180z00_1651;
{ /* Llib/thread.scm 326 */
 obj_t BgL_res1978z00_2580;
{ /* Llib/thread.scm 326 */
 long BgL_objzd2classzd2numz00_2551;
BgL_objzd2classzd2numz00_2551 = 
BGL_OBJECT_CLASS_NUM(
((BgL_objectz00_bglt)BgL_tbz00_10)); 
{ /* Llib/thread.scm 326 */
 obj_t BgL_arg1955z00_2552;
BgL_arg1955z00_2552 = 
PROCEDURE_REF(BGl_tbzd2currentzd2threadzd2envzd2zz__threadz00, 
(int)(1L)); 
{ /* Llib/thread.scm 326 */
 int BgL_offsetz00_2555;
BgL_offsetz00_2555 = 
(int)(BgL_objzd2classzd2numz00_2551); 
{ /* Llib/thread.scm 326 */
 long BgL_offsetz00_2556;
BgL_offsetz00_2556 = 
(
(long)(BgL_offsetz00_2555)-OBJECT_TYPE); 
{ /* Llib/thread.scm 326 */
 long BgL_modz00_2557;
BgL_modz00_2557 = 
(BgL_offsetz00_2556 >> 
(int)(
(long)(
(int)(4L)))); 
{ /* Llib/thread.scm 326 */
 long BgL_restz00_2559;
BgL_restz00_2559 = 
(BgL_offsetz00_2556 & 
(long)(
(int)(
(
(long)(
(int)(
(1L << 
(int)(
(long)(
(int)(4L))))))-1L)))); 
{ /* Llib/thread.scm 326 */

{ /* Llib/thread.scm 326 */
 obj_t BgL_bucketz00_2561;
BgL_bucketz00_2561 = 
VECTOR_REF(
((obj_t)BgL_arg1955z00_2552),BgL_modz00_2557); 
BgL_res1978z00_2580 = 
VECTOR_REF(
((obj_t)BgL_bucketz00_2561),BgL_restz00_2559); } } } } } } } } 
BgL_method1180z00_1651 = BgL_res1978z00_2580; } 
if(
PROCEDURE_CORRECT_ARITYP(BgL_method1180z00_1651, 1))
{ /* Llib/thread.scm 326 */
return 
BGL_PROCEDURE_CALL1(BgL_method1180z00_1651, 
((obj_t)BgL_tbz00_10));}  else 
{ /* Llib/thread.scm 326 */
FAILURE(BGl_string2753z00zz__threadz00,BGl_list2754z00zz__threadz00,BgL_method1180z00_1651);} } } 

}



/* &tb-current-thread */
obj_t BGl_z62tbzd2currentzd2threadz62zz__threadz00(obj_t BgL_envz00_3757, obj_t BgL_tbz00_3758)
{
{ /* Llib/thread.scm 326 */
{ /* Llib/thread.scm 326 */
 BgL_threadzd2backendzd2_bglt BgL_auxz00_11701;
{ /* Llib/thread.scm 326 */
 bool_t BgL_test3763z00_11702;
{ /* Llib/thread.scm 326 */
 obj_t BgL_classz00_7251;
BgL_classz00_7251 = BGl_threadzd2backendzd2zz__threadz00; 
if(
BGL_OBJECTP(BgL_tbz00_3758))
{ /* Llib/thread.scm 326 */
 BgL_objectz00_bglt BgL_arg1953z00_7253; long BgL_arg1954z00_7254;
BgL_arg1953z00_7253 = 
(BgL_objectz00_bglt)(BgL_tbz00_3758); 
BgL_arg1954z00_7254 = 
BGL_CLASS_DEPTH(BgL_classz00_7251); 
if(
BGL_CONDEXPAND_ISA_ARCH64())
{ /* Llib/thread.scm 326 */
 long BgL_idxz00_7262;
BgL_idxz00_7262 = 
BGL_OBJECT_INHERITANCE_NUM(BgL_arg1953z00_7253); 
{ /* Llib/thread.scm 326 */
 obj_t BgL_arg1943z00_7263;
{ /* Llib/thread.scm 326 */
 long BgL_arg1944z00_7264;
BgL_arg1944z00_7264 = 
(BgL_idxz00_7262+BgL_arg1954z00_7254); 
BgL_arg1943z00_7263 = 
VECTOR_REF(BGl_za2inheritancesza2z00zz__objectz00,BgL_arg1944z00_7264); } 
BgL_test3763z00_11702 = 
(BgL_arg1943z00_7263==BgL_classz00_7251); } }  else 
{ /* Llib/thread.scm 326 */
 bool_t BgL_res2066z00_7269;
{ /* Llib/thread.scm 326 */
 obj_t BgL_oclassz00_7273;
{ /* Llib/thread.scm 326 */
 obj_t BgL_arg1959z00_7275; long BgL_arg1960z00_7276;
BgL_arg1959z00_7275 = 
(BGl_za2classesza2z00zz__objectz00); 
{ /* Llib/thread.scm 326 */
 long BgL_arg1961z00_7277;
BgL_arg1961z00_7277 = 
BGL_OBJECT_CLASS_NUM(BgL_arg1953z00_7253); 
BgL_arg1960z00_7276 = 
(BgL_arg1961z00_7277-OBJECT_TYPE); } 
BgL_oclassz00_7273 = 
VECTOR_REF(BgL_arg1959z00_7275,BgL_arg1960z00_7276); } 
{ /* Llib/thread.scm 326 */
 bool_t BgL__ortest_1149z00_7283;
BgL__ortest_1149z00_7283 = 
(BgL_classz00_7251==BgL_oclassz00_7273); 
if(BgL__ortest_1149z00_7283)
{ /* Llib/thread.scm 326 */
BgL_res2066z00_7269 = BgL__ortest_1149z00_7283; }  else 
{ /* Llib/thread.scm 326 */
 long BgL_odepthz00_7284;
{ /* Llib/thread.scm 326 */
 obj_t BgL_arg1947z00_7285;
BgL_arg1947z00_7285 = 
(BgL_oclassz00_7273); 
BgL_odepthz00_7284 = 
BGL_CLASS_DEPTH(BgL_arg1947z00_7285); } 
if(
(BgL_arg1954z00_7254<BgL_odepthz00_7284))
{ /* Llib/thread.scm 326 */
 obj_t BgL_arg1945z00_7289;
{ /* Llib/thread.scm 326 */
 obj_t BgL_arg1946z00_7290;
BgL_arg1946z00_7290 = 
(BgL_oclassz00_7273); 
BgL_arg1945z00_7289 = 
BGL_CLASS_ANCESTORS_REF(BgL_arg1946z00_7290, BgL_arg1954z00_7254); } 
BgL_res2066z00_7269 = 
(BgL_arg1945z00_7289==BgL_classz00_7251); }  else 
{ /* Llib/thread.scm 326 */
BgL_res2066z00_7269 = ((bool_t)0); } } } } 
BgL_test3763z00_11702 = BgL_res2066z00_7269; } }  else 
{ /* Llib/thread.scm 326 */
BgL_test3763z00_11702 = ((bool_t)0)
; } } 
if(BgL_test3763z00_11702)
{ /* Llib/thread.scm 326 */
BgL_auxz00_11701 = 
((BgL_threadzd2backendzd2_bglt)BgL_tbz00_3758)
; }  else 
{ 
 obj_t BgL_auxz00_11727;
BgL_auxz00_11727 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2484z00zz__threadz00, 
BINT(12844L), BGl_string2757z00zz__threadz00, BGl_string2486z00zz__threadz00, BgL_tbz00_3758); 
FAILURE(BgL_auxz00_11727,BFALSE,BFALSE);} } 
return 
BGl_tbzd2currentzd2threadz00zz__threadz00(BgL_auxz00_11701);} } 

}



/* tb-mutex-initialize! */
BGL_EXPORTED_DEF obj_t BGl_tbzd2mutexzd2initializa7ez12zb5zz__threadz00(BgL_threadzd2backendzd2_bglt BgL_tbz00_15, obj_t BgL_mutexz00_16)
{
{ /* Llib/thread.scm 350 */
{ /* Llib/thread.scm 350 */
 obj_t BgL_method1186z00_1652;
{ /* Llib/thread.scm 350 */
 obj_t BgL_res1983z00_2611;
{ /* Llib/thread.scm 350 */
 long BgL_objzd2classzd2numz00_2582;
BgL_objzd2classzd2numz00_2582 = 
BGL_OBJECT_CLASS_NUM(
((BgL_objectz00_bglt)BgL_tbz00_15)); 
{ /* Llib/thread.scm 350 */
 obj_t BgL_arg1955z00_2583;
BgL_arg1955z00_2583 = 
PROCEDURE_REF(BGl_tbzd2mutexzd2initializa7ez12zd2envz67zz__threadz00, 
(int)(1L)); 
{ /* Llib/thread.scm 350 */
 int BgL_offsetz00_2586;
BgL_offsetz00_2586 = 
(int)(BgL_objzd2classzd2numz00_2582); 
{ /* Llib/thread.scm 350 */
 long BgL_offsetz00_2587;
BgL_offsetz00_2587 = 
(
(long)(BgL_offsetz00_2586)-OBJECT_TYPE); 
{ /* Llib/thread.scm 350 */
 long BgL_modz00_2588;
BgL_modz00_2588 = 
(BgL_offsetz00_2587 >> 
(int)(
(long)(
(int)(4L)))); 
{ /* Llib/thread.scm 350 */
 long BgL_restz00_2590;
BgL_restz00_2590 = 
(BgL_offsetz00_2587 & 
(long)(
(int)(
(
(long)(
(int)(
(1L << 
(int)(
(long)(
(int)(4L))))))-1L)))); 
{ /* Llib/thread.scm 350 */

{ /* Llib/thread.scm 350 */
 obj_t BgL_bucketz00_2592;
BgL_bucketz00_2592 = 
VECTOR_REF(
((obj_t)BgL_arg1955z00_2583),BgL_modz00_2588); 
BgL_res1983z00_2611 = 
VECTOR_REF(
((obj_t)BgL_bucketz00_2592),BgL_restz00_2590); } } } } } } } } 
BgL_method1186z00_1652 = BgL_res1983z00_2611; } 
if(
PROCEDURE_CORRECT_ARITYP(BgL_method1186z00_1652, 2))
{ /* Llib/thread.scm 350 */
 obj_t BgL_aux2358z00_4280;
BgL_aux2358z00_4280 = 
BGL_PROCEDURE_CALL2(BgL_method1186z00_1652, 
((obj_t)BgL_tbz00_15), BgL_mutexz00_16); 
if(
BGL_MUTEXP(BgL_aux2358z00_4280))
{ /* Llib/thread.scm 350 */
return BgL_aux2358z00_4280;}  else 
{ 
 obj_t BgL_auxz00_11767;
BgL_auxz00_11767 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2484z00zz__threadz00, 
BINT(14029L), BGl_string2758z00zz__threadz00, BGl_string2519z00zz__threadz00, BgL_aux2358z00_4280); 
FAILURE(BgL_auxz00_11767,BFALSE,BFALSE);} }  else 
{ /* Llib/thread.scm 350 */
FAILURE(BGl_string2759z00zz__threadz00,BGl_list2760z00zz__threadz00,BgL_method1186z00_1652);} } } 

}



/* &tb-mutex-initialize! */
obj_t BGl_z62tbzd2mutexzd2initializa7ez12zd7zz__threadz00(obj_t BgL_envz00_3759, obj_t BgL_tbz00_3760, obj_t BgL_mutexz00_3761)
{
{ /* Llib/thread.scm 350 */
{ /* Llib/thread.scm 350 */
 obj_t BgL_auxz00_11802; BgL_threadzd2backendzd2_bglt BgL_auxz00_11772;
if(
BGL_MUTEXP(BgL_mutexz00_3761))
{ /* Llib/thread.scm 350 */
BgL_auxz00_11802 = BgL_mutexz00_3761
; }  else 
{ 
 obj_t BgL_auxz00_11805;
BgL_auxz00_11805 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2484z00zz__threadz00, 
BINT(14029L), BGl_string2763z00zz__threadz00, BGl_string2519z00zz__threadz00, BgL_mutexz00_3761); 
FAILURE(BgL_auxz00_11805,BFALSE,BFALSE);} 
{ /* Llib/thread.scm 350 */
 bool_t BgL_test3770z00_11773;
{ /* Llib/thread.scm 350 */
 obj_t BgL_classz00_7291;
BgL_classz00_7291 = BGl_threadzd2backendzd2zz__threadz00; 
if(
BGL_OBJECTP(BgL_tbz00_3760))
{ /* Llib/thread.scm 350 */
 BgL_objectz00_bglt BgL_arg1953z00_7293; long BgL_arg1954z00_7294;
BgL_arg1953z00_7293 = 
(BgL_objectz00_bglt)(BgL_tbz00_3760); 
BgL_arg1954z00_7294 = 
BGL_CLASS_DEPTH(BgL_classz00_7291); 
if(
BGL_CONDEXPAND_ISA_ARCH64())
{ /* Llib/thread.scm 350 */
 long BgL_idxz00_7302;
BgL_idxz00_7302 = 
BGL_OBJECT_INHERITANCE_NUM(BgL_arg1953z00_7293); 
{ /* Llib/thread.scm 350 */
 obj_t BgL_arg1943z00_7303;
{ /* Llib/thread.scm 350 */
 long BgL_arg1944z00_7304;
BgL_arg1944z00_7304 = 
(BgL_idxz00_7302+BgL_arg1954z00_7294); 
BgL_arg1943z00_7303 = 
VECTOR_REF(BGl_za2inheritancesza2z00zz__objectz00,BgL_arg1944z00_7304); } 
BgL_test3770z00_11773 = 
(BgL_arg1943z00_7303==BgL_classz00_7291); } }  else 
{ /* Llib/thread.scm 350 */
 bool_t BgL_res2066z00_7309;
{ /* Llib/thread.scm 350 */
 obj_t BgL_oclassz00_7313;
{ /* Llib/thread.scm 350 */
 obj_t BgL_arg1959z00_7315; long BgL_arg1960z00_7316;
BgL_arg1959z00_7315 = 
(BGl_za2classesza2z00zz__objectz00); 
{ /* Llib/thread.scm 350 */
 long BgL_arg1961z00_7317;
BgL_arg1961z00_7317 = 
BGL_OBJECT_CLASS_NUM(BgL_arg1953z00_7293); 
BgL_arg1960z00_7316 = 
(BgL_arg1961z00_7317-OBJECT_TYPE); } 
BgL_oclassz00_7313 = 
VECTOR_REF(BgL_arg1959z00_7315,BgL_arg1960z00_7316); } 
{ /* Llib/thread.scm 350 */
 bool_t BgL__ortest_1149z00_7323;
BgL__ortest_1149z00_7323 = 
(BgL_classz00_7291==BgL_oclassz00_7313); 
if(BgL__ortest_1149z00_7323)
{ /* Llib/thread.scm 350 */
BgL_res2066z00_7309 = BgL__ortest_1149z00_7323; }  else 
{ /* Llib/thread.scm 350 */
 long BgL_odepthz00_7324;
{ /* Llib/thread.scm 350 */
 obj_t BgL_arg1947z00_7325;
BgL_arg1947z00_7325 = 
(BgL_oclassz00_7313); 
BgL_odepthz00_7324 = 
BGL_CLASS_DEPTH(BgL_arg1947z00_7325); } 
if(
(BgL_arg1954z00_7294<BgL_odepthz00_7324))
{ /* Llib/thread.scm 350 */
 obj_t BgL_arg1945z00_7329;
{ /* Llib/thread.scm 350 */
 obj_t BgL_arg1946z00_7330;
BgL_arg1946z00_7330 = 
(BgL_oclassz00_7313); 
BgL_arg1945z00_7329 = 
BGL_CLASS_ANCESTORS_REF(BgL_arg1946z00_7330, BgL_arg1954z00_7294); } 
BgL_res2066z00_7309 = 
(BgL_arg1945z00_7329==BgL_classz00_7291); }  else 
{ /* Llib/thread.scm 350 */
BgL_res2066z00_7309 = ((bool_t)0); } } } } 
BgL_test3770z00_11773 = BgL_res2066z00_7309; } }  else 
{ /* Llib/thread.scm 350 */
BgL_test3770z00_11773 = ((bool_t)0)
; } } 
if(BgL_test3770z00_11773)
{ /* Llib/thread.scm 350 */
BgL_auxz00_11772 = 
((BgL_threadzd2backendzd2_bglt)BgL_tbz00_3760)
; }  else 
{ 
 obj_t BgL_auxz00_11798;
BgL_auxz00_11798 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2484z00zz__threadz00, 
BINT(14029L), BGl_string2763z00zz__threadz00, BGl_string2486z00zz__threadz00, BgL_tbz00_3760); 
FAILURE(BgL_auxz00_11798,BFALSE,BFALSE);} } 
return 
BGl_tbzd2mutexzd2initializa7ez12zb5zz__threadz00(BgL_auxz00_11772, BgL_auxz00_11802);} } 

}



/* tb-condvar-initialize! */
BGL_EXPORTED_DEF obj_t BGl_tbzd2condvarzd2initializa7ez12zb5zz__threadz00(BgL_threadzd2backendzd2_bglt BgL_tbz00_17, obj_t BgL_condvarz00_18)
{
{ /* Llib/thread.scm 355 */
{ /* Llib/thread.scm 355 */
 obj_t BgL_method1188z00_1653;
{ /* Llib/thread.scm 355 */
 obj_t BgL_res1988z00_2642;
{ /* Llib/thread.scm 355 */
 long BgL_objzd2classzd2numz00_2613;
BgL_objzd2classzd2numz00_2613 = 
BGL_OBJECT_CLASS_NUM(
((BgL_objectz00_bglt)BgL_tbz00_17)); 
{ /* Llib/thread.scm 355 */
 obj_t BgL_arg1955z00_2614;
BgL_arg1955z00_2614 = 
PROCEDURE_REF(BGl_tbzd2condvarzd2initializa7ez12zd2envz67zz__threadz00, 
(int)(1L)); 
{ /* Llib/thread.scm 355 */
 int BgL_offsetz00_2617;
BgL_offsetz00_2617 = 
(int)(BgL_objzd2classzd2numz00_2613); 
{ /* Llib/thread.scm 355 */
 long BgL_offsetz00_2618;
BgL_offsetz00_2618 = 
(
(long)(BgL_offsetz00_2617)-OBJECT_TYPE); 
{ /* Llib/thread.scm 355 */
 long BgL_modz00_2619;
BgL_modz00_2619 = 
(BgL_offsetz00_2618 >> 
(int)(
(long)(
(int)(4L)))); 
{ /* Llib/thread.scm 355 */
 long BgL_restz00_2621;
BgL_restz00_2621 = 
(BgL_offsetz00_2618 & 
(long)(
(int)(
(
(long)(
(int)(
(1L << 
(int)(
(long)(
(int)(4L))))))-1L)))); 
{ /* Llib/thread.scm 355 */

{ /* Llib/thread.scm 355 */
 obj_t BgL_bucketz00_2623;
BgL_bucketz00_2623 = 
VECTOR_REF(
((obj_t)BgL_arg1955z00_2614),BgL_modz00_2619); 
BgL_res1988z00_2642 = 
VECTOR_REF(
((obj_t)BgL_bucketz00_2623),BgL_restz00_2621); } } } } } } } } 
BgL_method1188z00_1653 = BgL_res1988z00_2642; } 
if(
PROCEDURE_CORRECT_ARITYP(BgL_method1188z00_1653, 2))
{ /* Llib/thread.scm 355 */
 obj_t BgL_aux2365z00_4290;
BgL_aux2365z00_4290 = 
BGL_PROCEDURE_CALL2(BgL_method1188z00_1653, 
((obj_t)BgL_tbz00_17), BgL_condvarz00_18); 
if(
BGL_CONDVARP(BgL_aux2365z00_4290))
{ /* Llib/thread.scm 355 */
return BgL_aux2365z00_4290;}  else 
{ 
 obj_t BgL_auxz00_11845;
BgL_auxz00_11845 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2484z00zz__threadz00, 
BINT(14317L), BGl_string2764z00zz__threadz00, BGl_string2551z00zz__threadz00, BgL_aux2365z00_4290); 
FAILURE(BgL_auxz00_11845,BFALSE,BFALSE);} }  else 
{ /* Llib/thread.scm 355 */
FAILURE(BGl_string2765z00zz__threadz00,BGl_list2766z00zz__threadz00,BgL_method1188z00_1653);} } } 

}



/* &tb-condvar-initialize! */
obj_t BGl_z62tbzd2condvarzd2initializa7ez12zd7zz__threadz00(obj_t BgL_envz00_3762, obj_t BgL_tbz00_3763, obj_t BgL_condvarz00_3764)
{
{ /* Llib/thread.scm 355 */
{ /* Llib/thread.scm 355 */
 obj_t BgL_auxz00_11880; BgL_threadzd2backendzd2_bglt BgL_auxz00_11850;
if(
BGL_CONDVARP(BgL_condvarz00_3764))
{ /* Llib/thread.scm 355 */
BgL_auxz00_11880 = BgL_condvarz00_3764
; }  else 
{ 
 obj_t BgL_auxz00_11883;
BgL_auxz00_11883 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2484z00zz__threadz00, 
BINT(14317L), BGl_string2770z00zz__threadz00, BGl_string2551z00zz__threadz00, BgL_condvarz00_3764); 
FAILURE(BgL_auxz00_11883,BFALSE,BFALSE);} 
{ /* Llib/thread.scm 355 */
 bool_t BgL_test3778z00_11851;
{ /* Llib/thread.scm 355 */
 obj_t BgL_classz00_7331;
BgL_classz00_7331 = BGl_threadzd2backendzd2zz__threadz00; 
if(
BGL_OBJECTP(BgL_tbz00_3763))
{ /* Llib/thread.scm 355 */
 BgL_objectz00_bglt BgL_arg1953z00_7333; long BgL_arg1954z00_7334;
BgL_arg1953z00_7333 = 
(BgL_objectz00_bglt)(BgL_tbz00_3763); 
BgL_arg1954z00_7334 = 
BGL_CLASS_DEPTH(BgL_classz00_7331); 
if(
BGL_CONDEXPAND_ISA_ARCH64())
{ /* Llib/thread.scm 355 */
 long BgL_idxz00_7342;
BgL_idxz00_7342 = 
BGL_OBJECT_INHERITANCE_NUM(BgL_arg1953z00_7333); 
{ /* Llib/thread.scm 355 */
 obj_t BgL_arg1943z00_7343;
{ /* Llib/thread.scm 355 */
 long BgL_arg1944z00_7344;
BgL_arg1944z00_7344 = 
(BgL_idxz00_7342+BgL_arg1954z00_7334); 
BgL_arg1943z00_7343 = 
VECTOR_REF(BGl_za2inheritancesza2z00zz__objectz00,BgL_arg1944z00_7344); } 
BgL_test3778z00_11851 = 
(BgL_arg1943z00_7343==BgL_classz00_7331); } }  else 
{ /* Llib/thread.scm 355 */
 bool_t BgL_res2066z00_7349;
{ /* Llib/thread.scm 355 */
 obj_t BgL_oclassz00_7353;
{ /* Llib/thread.scm 355 */
 obj_t BgL_arg1959z00_7355; long BgL_arg1960z00_7356;
BgL_arg1959z00_7355 = 
(BGl_za2classesza2z00zz__objectz00); 
{ /* Llib/thread.scm 355 */
 long BgL_arg1961z00_7357;
BgL_arg1961z00_7357 = 
BGL_OBJECT_CLASS_NUM(BgL_arg1953z00_7333); 
BgL_arg1960z00_7356 = 
(BgL_arg1961z00_7357-OBJECT_TYPE); } 
BgL_oclassz00_7353 = 
VECTOR_REF(BgL_arg1959z00_7355,BgL_arg1960z00_7356); } 
{ /* Llib/thread.scm 355 */
 bool_t BgL__ortest_1149z00_7363;
BgL__ortest_1149z00_7363 = 
(BgL_classz00_7331==BgL_oclassz00_7353); 
if(BgL__ortest_1149z00_7363)
{ /* Llib/thread.scm 355 */
BgL_res2066z00_7349 = BgL__ortest_1149z00_7363; }  else 
{ /* Llib/thread.scm 355 */
 long BgL_odepthz00_7364;
{ /* Llib/thread.scm 355 */
 obj_t BgL_arg1947z00_7365;
BgL_arg1947z00_7365 = 
(BgL_oclassz00_7353); 
BgL_odepthz00_7364 = 
BGL_CLASS_DEPTH(BgL_arg1947z00_7365); } 
if(
(BgL_arg1954z00_7334<BgL_odepthz00_7364))
{ /* Llib/thread.scm 355 */
 obj_t BgL_arg1945z00_7369;
{ /* Llib/thread.scm 355 */
 obj_t BgL_arg1946z00_7370;
BgL_arg1946z00_7370 = 
(BgL_oclassz00_7353); 
BgL_arg1945z00_7369 = 
BGL_CLASS_ANCESTORS_REF(BgL_arg1946z00_7370, BgL_arg1954z00_7334); } 
BgL_res2066z00_7349 = 
(BgL_arg1945z00_7369==BgL_classz00_7331); }  else 
{ /* Llib/thread.scm 355 */
BgL_res2066z00_7349 = ((bool_t)0); } } } } 
BgL_test3778z00_11851 = BgL_res2066z00_7349; } }  else 
{ /* Llib/thread.scm 355 */
BgL_test3778z00_11851 = ((bool_t)0)
; } } 
if(BgL_test3778z00_11851)
{ /* Llib/thread.scm 355 */
BgL_auxz00_11850 = 
((BgL_threadzd2backendzd2_bglt)BgL_tbz00_3763)
; }  else 
{ 
 obj_t BgL_auxz00_11876;
BgL_auxz00_11876 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2484z00zz__threadz00, 
BINT(14317L), BGl_string2770z00zz__threadz00, BGl_string2486z00zz__threadz00, BgL_tbz00_3763); 
FAILURE(BgL_auxz00_11876,BFALSE,BFALSE);} } 
return 
BGl_tbzd2condvarzd2initializa7ez12zb5zz__threadz00(BgL_auxz00_11850, BgL_auxz00_11880);} } 

}



/* thread-initialize! */
BGL_EXPORTED_DEF obj_t BGl_threadzd2initializa7ez12z67zz__threadz00(BgL_threadz00_bglt BgL_thz00_26)
{
{ /* Llib/thread.scm 384 */
{ /* Llib/thread.scm 384 */
 obj_t BgL_method1196z00_1654;
{ /* Llib/thread.scm 384 */
 obj_t BgL_res1993z00_2673;
{ /* Llib/thread.scm 384 */
 long BgL_objzd2classzd2numz00_2644;
BgL_objzd2classzd2numz00_2644 = 
BGL_OBJECT_CLASS_NUM(
((BgL_objectz00_bglt)BgL_thz00_26)); 
{ /* Llib/thread.scm 384 */
 obj_t BgL_arg1955z00_2645;
BgL_arg1955z00_2645 = 
PROCEDURE_REF(BGl_threadzd2initializa7ez12zd2envzb5zz__threadz00, 
(int)(1L)); 
{ /* Llib/thread.scm 384 */
 int BgL_offsetz00_2648;
BgL_offsetz00_2648 = 
(int)(BgL_objzd2classzd2numz00_2644); 
{ /* Llib/thread.scm 384 */
 long BgL_offsetz00_2649;
BgL_offsetz00_2649 = 
(
(long)(BgL_offsetz00_2648)-OBJECT_TYPE); 
{ /* Llib/thread.scm 384 */
 long BgL_modz00_2650;
BgL_modz00_2650 = 
(BgL_offsetz00_2649 >> 
(int)(
(long)(
(int)(4L)))); 
{ /* Llib/thread.scm 384 */
 long BgL_restz00_2652;
BgL_restz00_2652 = 
(BgL_offsetz00_2649 & 
(long)(
(int)(
(
(long)(
(int)(
(1L << 
(int)(
(long)(
(int)(4L))))))-1L)))); 
{ /* Llib/thread.scm 384 */

{ /* Llib/thread.scm 384 */
 obj_t BgL_bucketz00_2654;
BgL_bucketz00_2654 = 
VECTOR_REF(
((obj_t)BgL_arg1955z00_2645),BgL_modz00_2650); 
BgL_res1993z00_2673 = 
VECTOR_REF(
((obj_t)BgL_bucketz00_2654),BgL_restz00_2652); } } } } } } } } 
BgL_method1196z00_1654 = BgL_res1993z00_2673; } 
if(
PROCEDURE_CORRECT_ARITYP(BgL_method1196z00_1654, 1))
{ /* Llib/thread.scm 384 */
return 
BGL_PROCEDURE_CALL1(BgL_method1196z00_1654, 
((obj_t)BgL_thz00_26));}  else 
{ /* Llib/thread.scm 384 */
FAILURE(BGl_string2771z00zz__threadz00,BGl_list2772z00zz__threadz00,BgL_method1196z00_1654);} } } 

}



/* &thread-initialize! */
obj_t BGl_z62threadzd2initializa7ez12z05zz__threadz00(obj_t BgL_envz00_3683, obj_t BgL_thz00_3684)
{
{ /* Llib/thread.scm 384 */
{ /* Llib/thread.scm 384 */
 BgL_threadz00_bglt BgL_auxz00_11921;
{ /* Llib/thread.scm 384 */
 bool_t BgL_test3785z00_11922;
{ /* Llib/thread.scm 384 */
 obj_t BgL_classz00_7371;
BgL_classz00_7371 = BGl_threadz00zz__threadz00; 
if(
BGL_OBJECTP(BgL_thz00_3684))
{ /* Llib/thread.scm 384 */
 BgL_objectz00_bglt BgL_arg1953z00_7373; long BgL_arg1954z00_7374;
BgL_arg1953z00_7373 = 
(BgL_objectz00_bglt)(BgL_thz00_3684); 
BgL_arg1954z00_7374 = 
BGL_CLASS_DEPTH(BgL_classz00_7371); 
if(
BGL_CONDEXPAND_ISA_ARCH64())
{ /* Llib/thread.scm 384 */
 long BgL_idxz00_7382;
BgL_idxz00_7382 = 
BGL_OBJECT_INHERITANCE_NUM(BgL_arg1953z00_7373); 
{ /* Llib/thread.scm 384 */
 obj_t BgL_arg1943z00_7383;
{ /* Llib/thread.scm 384 */
 long BgL_arg1944z00_7384;
BgL_arg1944z00_7384 = 
(BgL_idxz00_7382+BgL_arg1954z00_7374); 
BgL_arg1943z00_7383 = 
VECTOR_REF(BGl_za2inheritancesza2z00zz__objectz00,BgL_arg1944z00_7384); } 
BgL_test3785z00_11922 = 
(BgL_arg1943z00_7383==BgL_classz00_7371); } }  else 
{ /* Llib/thread.scm 384 */
 bool_t BgL_res2066z00_7389;
{ /* Llib/thread.scm 384 */
 obj_t BgL_oclassz00_7393;
{ /* Llib/thread.scm 384 */
 obj_t BgL_arg1959z00_7395; long BgL_arg1960z00_7396;
BgL_arg1959z00_7395 = 
(BGl_za2classesza2z00zz__objectz00); 
{ /* Llib/thread.scm 384 */
 long BgL_arg1961z00_7397;
BgL_arg1961z00_7397 = 
BGL_OBJECT_CLASS_NUM(BgL_arg1953z00_7373); 
BgL_arg1960z00_7396 = 
(BgL_arg1961z00_7397-OBJECT_TYPE); } 
BgL_oclassz00_7393 = 
VECTOR_REF(BgL_arg1959z00_7395,BgL_arg1960z00_7396); } 
{ /* Llib/thread.scm 384 */
 bool_t BgL__ortest_1149z00_7403;
BgL__ortest_1149z00_7403 = 
(BgL_classz00_7371==BgL_oclassz00_7393); 
if(BgL__ortest_1149z00_7403)
{ /* Llib/thread.scm 384 */
BgL_res2066z00_7389 = BgL__ortest_1149z00_7403; }  else 
{ /* Llib/thread.scm 384 */
 long BgL_odepthz00_7404;
{ /* Llib/thread.scm 384 */
 obj_t BgL_arg1947z00_7405;
BgL_arg1947z00_7405 = 
(BgL_oclassz00_7393); 
BgL_odepthz00_7404 = 
BGL_CLASS_DEPTH(BgL_arg1947z00_7405); } 
if(
(BgL_arg1954z00_7374<BgL_odepthz00_7404))
{ /* Llib/thread.scm 384 */
 obj_t BgL_arg1945z00_7409;
{ /* Llib/thread.scm 384 */
 obj_t BgL_arg1946z00_7410;
BgL_arg1946z00_7410 = 
(BgL_oclassz00_7393); 
BgL_arg1945z00_7409 = 
BGL_CLASS_ANCESTORS_REF(BgL_arg1946z00_7410, BgL_arg1954z00_7374); } 
BgL_res2066z00_7389 = 
(BgL_arg1945z00_7409==BgL_classz00_7371); }  else 
{ /* Llib/thread.scm 384 */
BgL_res2066z00_7389 = ((bool_t)0); } } } } 
BgL_test3785z00_11922 = BgL_res2066z00_7389; } }  else 
{ /* Llib/thread.scm 384 */
BgL_test3785z00_11922 = ((bool_t)0)
; } } 
if(BgL_test3785z00_11922)
{ /* Llib/thread.scm 384 */
BgL_auxz00_11921 = 
((BgL_threadz00_bglt)BgL_thz00_3684)
; }  else 
{ 
 obj_t BgL_auxz00_11947;
BgL_auxz00_11947 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2484z00zz__threadz00, 
BINT(15868L), BGl_string2777z00zz__threadz00, BGl_string2500z00zz__threadz00, BgL_thz00_3684); 
FAILURE(BgL_auxz00_11947,BFALSE,BFALSE);} } 
return 
BGl_threadzd2initializa7ez12z67zz__threadz00(BgL_auxz00_11921);} } 

}



/* thread-start! */
BGL_EXPORTED_DEF obj_t BGl_threadzd2startz12zc0zz__threadz00(BgL_threadz00_bglt BgL_thz00_27, obj_t BgL_scz00_28)
{
{ /* Llib/thread.scm 390 */
{ /* Llib/thread.scm 390 */
 obj_t BgL_method1198z00_1655;
{ /* Llib/thread.scm 390 */
 obj_t BgL_res1998z00_2704;
{ /* Llib/thread.scm 390 */
 long BgL_objzd2classzd2numz00_2675;
BgL_objzd2classzd2numz00_2675 = 
BGL_OBJECT_CLASS_NUM(
((BgL_objectz00_bglt)BgL_thz00_27)); 
{ /* Llib/thread.scm 390 */
 obj_t BgL_arg1955z00_2676;
BgL_arg1955z00_2676 = 
PROCEDURE_REF(BGl_threadzd2startz12zd2envz12zz__threadz00, 
(int)(1L)); 
{ /* Llib/thread.scm 390 */
 int BgL_offsetz00_2679;
BgL_offsetz00_2679 = 
(int)(BgL_objzd2classzd2numz00_2675); 
{ /* Llib/thread.scm 390 */
 long BgL_offsetz00_2680;
BgL_offsetz00_2680 = 
(
(long)(BgL_offsetz00_2679)-OBJECT_TYPE); 
{ /* Llib/thread.scm 390 */
 long BgL_modz00_2681;
BgL_modz00_2681 = 
(BgL_offsetz00_2680 >> 
(int)(
(long)(
(int)(4L)))); 
{ /* Llib/thread.scm 390 */
 long BgL_restz00_2683;
BgL_restz00_2683 = 
(BgL_offsetz00_2680 & 
(long)(
(int)(
(
(long)(
(int)(
(1L << 
(int)(
(long)(
(int)(4L))))))-1L)))); 
{ /* Llib/thread.scm 390 */

{ /* Llib/thread.scm 390 */
 obj_t BgL_bucketz00_2685;
BgL_bucketz00_2685 = 
VECTOR_REF(
((obj_t)BgL_arg1955z00_2676),BgL_modz00_2681); 
BgL_res1998z00_2704 = 
VECTOR_REF(
((obj_t)BgL_bucketz00_2685),BgL_restz00_2683); } } } } } } } } 
BgL_method1198z00_1655 = BgL_res1998z00_2704; } 
{ /* Llib/thread.scm 390 */
 obj_t BgL_valz00_4308;
{ /* Llib/thread.scm 390 */
 obj_t BgL_list1529z00_1656;
BgL_list1529z00_1656 = 
MAKE_YOUNG_PAIR(BgL_scz00_28, BNIL); 
{ /* Llib/thread.scm 390 */
 obj_t BgL_aux2374z00_4305;
BgL_aux2374z00_4305 = 
BGl_consza2za2zz__r4_pairs_and_lists_6_3z00(
((obj_t)BgL_thz00_27), BgL_list1529z00_1656); 
{ /* Llib/thread.scm 390 */
 bool_t BgL_test3790z00_11980;
if(
PAIRP(BgL_aux2374z00_4305))
{ /* Llib/thread.scm 390 */
BgL_test3790z00_11980 = ((bool_t)1)
; }  else 
{ /* Llib/thread.scm 390 */
BgL_test3790z00_11980 = 
NULLP(BgL_aux2374z00_4305)
; } 
if(BgL_test3790z00_11980)
{ /* Llib/thread.scm 390 */
BgL_valz00_4308 = BgL_aux2374z00_4305; }  else 
{ 
 obj_t BgL_auxz00_11984;
BgL_auxz00_11984 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2484z00zz__threadz00, 
BINT(16146L), BGl_string2778z00zz__threadz00, BGl_string2508z00zz__threadz00, BgL_aux2374z00_4305); 
FAILURE(BgL_auxz00_11984,BFALSE,BFALSE);} } } } 
{ /* Llib/thread.scm 390 */
 long BgL_len2376z00_4309;
BgL_len2376z00_4309 = 
(int)(
bgl_list_length(BgL_valz00_4308)); 
if(
PROCEDURE_CORRECT_ARITYP(BgL_method1198z00_1655, BgL_len2376z00_4309))
{ /* Llib/thread.scm 390 */
return 
apply(BgL_method1198z00_1655, BgL_valz00_4308);}  else 
{ /* Llib/thread.scm 390 */
FAILURE(BGl_symbol2779z00zz__threadz00,BGl_string2780z00zz__threadz00,BGl_list2781z00zz__threadz00);} } } } } 

}



/* &thread-start! */
obj_t BGl_z62threadzd2startz12za2zz__threadz00(obj_t BgL_envz00_3765, obj_t BgL_thz00_3766, obj_t BgL_scz00_3767)
{
{ /* Llib/thread.scm 390 */
{ /* Llib/thread.scm 390 */
 BgL_threadz00_bglt BgL_auxz00_11995;
{ /* Llib/thread.scm 390 */
 bool_t BgL_test3793z00_11996;
{ /* Llib/thread.scm 390 */
 obj_t BgL_classz00_7412;
BgL_classz00_7412 = BGl_threadz00zz__threadz00; 
if(
BGL_OBJECTP(BgL_thz00_3766))
{ /* Llib/thread.scm 390 */
 BgL_objectz00_bglt BgL_arg1953z00_7414; long BgL_arg1954z00_7415;
BgL_arg1953z00_7414 = 
(BgL_objectz00_bglt)(BgL_thz00_3766); 
BgL_arg1954z00_7415 = 
BGL_CLASS_DEPTH(BgL_classz00_7412); 
if(
BGL_CONDEXPAND_ISA_ARCH64())
{ /* Llib/thread.scm 390 */
 long BgL_idxz00_7423;
BgL_idxz00_7423 = 
BGL_OBJECT_INHERITANCE_NUM(BgL_arg1953z00_7414); 
{ /* Llib/thread.scm 390 */
 obj_t BgL_arg1943z00_7424;
{ /* Llib/thread.scm 390 */
 long BgL_arg1944z00_7425;
BgL_arg1944z00_7425 = 
(BgL_idxz00_7423+BgL_arg1954z00_7415); 
BgL_arg1943z00_7424 = 
VECTOR_REF(BGl_za2inheritancesza2z00zz__objectz00,BgL_arg1944z00_7425); } 
BgL_test3793z00_11996 = 
(BgL_arg1943z00_7424==BgL_classz00_7412); } }  else 
{ /* Llib/thread.scm 390 */
 bool_t BgL_res2066z00_7430;
{ /* Llib/thread.scm 390 */
 obj_t BgL_oclassz00_7434;
{ /* Llib/thread.scm 390 */
 obj_t BgL_arg1959z00_7436; long BgL_arg1960z00_7437;
BgL_arg1959z00_7436 = 
(BGl_za2classesza2z00zz__objectz00); 
{ /* Llib/thread.scm 390 */
 long BgL_arg1961z00_7438;
BgL_arg1961z00_7438 = 
BGL_OBJECT_CLASS_NUM(BgL_arg1953z00_7414); 
BgL_arg1960z00_7437 = 
(BgL_arg1961z00_7438-OBJECT_TYPE); } 
BgL_oclassz00_7434 = 
VECTOR_REF(BgL_arg1959z00_7436,BgL_arg1960z00_7437); } 
{ /* Llib/thread.scm 390 */
 bool_t BgL__ortest_1149z00_7444;
BgL__ortest_1149z00_7444 = 
(BgL_classz00_7412==BgL_oclassz00_7434); 
if(BgL__ortest_1149z00_7444)
{ /* Llib/thread.scm 390 */
BgL_res2066z00_7430 = BgL__ortest_1149z00_7444; }  else 
{ /* Llib/thread.scm 390 */
 long BgL_odepthz00_7445;
{ /* Llib/thread.scm 390 */
 obj_t BgL_arg1947z00_7446;
BgL_arg1947z00_7446 = 
(BgL_oclassz00_7434); 
BgL_odepthz00_7445 = 
BGL_CLASS_DEPTH(BgL_arg1947z00_7446); } 
if(
(BgL_arg1954z00_7415<BgL_odepthz00_7445))
{ /* Llib/thread.scm 390 */
 obj_t BgL_arg1945z00_7450;
{ /* Llib/thread.scm 390 */
 obj_t BgL_arg1946z00_7451;
BgL_arg1946z00_7451 = 
(BgL_oclassz00_7434); 
BgL_arg1945z00_7450 = 
BGL_CLASS_ANCESTORS_REF(BgL_arg1946z00_7451, BgL_arg1954z00_7415); } 
BgL_res2066z00_7430 = 
(BgL_arg1945z00_7450==BgL_classz00_7412); }  else 
{ /* Llib/thread.scm 390 */
BgL_res2066z00_7430 = ((bool_t)0); } } } } 
BgL_test3793z00_11996 = BgL_res2066z00_7430; } }  else 
{ /* Llib/thread.scm 390 */
BgL_test3793z00_11996 = ((bool_t)0)
; } } 
if(BgL_test3793z00_11996)
{ /* Llib/thread.scm 390 */
BgL_auxz00_11995 = 
((BgL_threadz00_bglt)BgL_thz00_3766)
; }  else 
{ 
 obj_t BgL_auxz00_12021;
BgL_auxz00_12021 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2484z00zz__threadz00, 
BINT(16146L), BGl_string2804z00zz__threadz00, BGl_string2500z00zz__threadz00, BgL_thz00_3766); 
FAILURE(BgL_auxz00_12021,BFALSE,BFALSE);} } 
return 
BGl_threadzd2startz12zc0zz__threadz00(BgL_auxz00_11995, BgL_scz00_3767);} } 

}



/* thread-start-joinable! */
BGL_EXPORTED_DEF obj_t BGl_threadzd2startzd2joinablez12z12zz__threadz00(BgL_threadz00_bglt BgL_thz00_29)
{
{ /* Llib/thread.scm 395 */
{ /* Llib/thread.scm 395 */
 obj_t BgL_method1200z00_1657;
{ /* Llib/thread.scm 395 */
 obj_t BgL_res2003z00_2735;
{ /* Llib/thread.scm 395 */
 long BgL_objzd2classzd2numz00_2706;
BgL_objzd2classzd2numz00_2706 = 
BGL_OBJECT_CLASS_NUM(
((BgL_objectz00_bglt)BgL_thz00_29)); 
{ /* Llib/thread.scm 395 */
 obj_t BgL_arg1955z00_2707;
BgL_arg1955z00_2707 = 
PROCEDURE_REF(BGl_threadzd2startzd2joinablez12zd2envzc0zz__threadz00, 
(int)(1L)); 
{ /* Llib/thread.scm 395 */
 int BgL_offsetz00_2710;
BgL_offsetz00_2710 = 
(int)(BgL_objzd2classzd2numz00_2706); 
{ /* Llib/thread.scm 395 */
 long BgL_offsetz00_2711;
BgL_offsetz00_2711 = 
(
(long)(BgL_offsetz00_2710)-OBJECT_TYPE); 
{ /* Llib/thread.scm 395 */
 long BgL_modz00_2712;
BgL_modz00_2712 = 
(BgL_offsetz00_2711 >> 
(int)(
(long)(
(int)(4L)))); 
{ /* Llib/thread.scm 395 */
 long BgL_restz00_2714;
BgL_restz00_2714 = 
(BgL_offsetz00_2711 & 
(long)(
(int)(
(
(long)(
(int)(
(1L << 
(int)(
(long)(
(int)(4L))))))-1L)))); 
{ /* Llib/thread.scm 395 */

{ /* Llib/thread.scm 395 */
 obj_t BgL_bucketz00_2716;
BgL_bucketz00_2716 = 
VECTOR_REF(
((obj_t)BgL_arg1955z00_2707),BgL_modz00_2712); 
BgL_res2003z00_2735 = 
VECTOR_REF(
((obj_t)BgL_bucketz00_2716),BgL_restz00_2714); } } } } } } } } 
BgL_method1200z00_1657 = BgL_res2003z00_2735; } 
if(
PROCEDURE_CORRECT_ARITYP(BgL_method1200z00_1657, 1))
{ /* Llib/thread.scm 395 */
return 
BGL_PROCEDURE_CALL1(BgL_method1200z00_1657, 
((obj_t)BgL_thz00_29));}  else 
{ /* Llib/thread.scm 395 */
FAILURE(BGl_string2805z00zz__threadz00,BGl_list2806z00zz__threadz00,BgL_method1200z00_1657);} } } 

}



/* &thread-start-joinable! */
obj_t BGl_z62threadzd2startzd2joinablez12z70zz__threadz00(obj_t BgL_envz00_3768, obj_t BgL_thz00_3769)
{
{ /* Llib/thread.scm 395 */
{ /* Llib/thread.scm 395 */
 BgL_threadz00_bglt BgL_auxz00_12059;
{ /* Llib/thread.scm 395 */
 bool_t BgL_test3799z00_12060;
{ /* Llib/thread.scm 395 */
 obj_t BgL_classz00_7452;
BgL_classz00_7452 = BGl_threadz00zz__threadz00; 
if(
BGL_OBJECTP(BgL_thz00_3769))
{ /* Llib/thread.scm 395 */
 BgL_objectz00_bglt BgL_arg1953z00_7454; long BgL_arg1954z00_7455;
BgL_arg1953z00_7454 = 
(BgL_objectz00_bglt)(BgL_thz00_3769); 
BgL_arg1954z00_7455 = 
BGL_CLASS_DEPTH(BgL_classz00_7452); 
if(
BGL_CONDEXPAND_ISA_ARCH64())
{ /* Llib/thread.scm 395 */
 long BgL_idxz00_7463;
BgL_idxz00_7463 = 
BGL_OBJECT_INHERITANCE_NUM(BgL_arg1953z00_7454); 
{ /* Llib/thread.scm 395 */
 obj_t BgL_arg1943z00_7464;
{ /* Llib/thread.scm 395 */
 long BgL_arg1944z00_7465;
BgL_arg1944z00_7465 = 
(BgL_idxz00_7463+BgL_arg1954z00_7455); 
BgL_arg1943z00_7464 = 
VECTOR_REF(BGl_za2inheritancesza2z00zz__objectz00,BgL_arg1944z00_7465); } 
BgL_test3799z00_12060 = 
(BgL_arg1943z00_7464==BgL_classz00_7452); } }  else 
{ /* Llib/thread.scm 395 */
 bool_t BgL_res2066z00_7470;
{ /* Llib/thread.scm 395 */
 obj_t BgL_oclassz00_7474;
{ /* Llib/thread.scm 395 */
 obj_t BgL_arg1959z00_7476; long BgL_arg1960z00_7477;
BgL_arg1959z00_7476 = 
(BGl_za2classesza2z00zz__objectz00); 
{ /* Llib/thread.scm 395 */
 long BgL_arg1961z00_7478;
BgL_arg1961z00_7478 = 
BGL_OBJECT_CLASS_NUM(BgL_arg1953z00_7454); 
BgL_arg1960z00_7477 = 
(BgL_arg1961z00_7478-OBJECT_TYPE); } 
BgL_oclassz00_7474 = 
VECTOR_REF(BgL_arg1959z00_7476,BgL_arg1960z00_7477); } 
{ /* Llib/thread.scm 395 */
 bool_t BgL__ortest_1149z00_7484;
BgL__ortest_1149z00_7484 = 
(BgL_classz00_7452==BgL_oclassz00_7474); 
if(BgL__ortest_1149z00_7484)
{ /* Llib/thread.scm 395 */
BgL_res2066z00_7470 = BgL__ortest_1149z00_7484; }  else 
{ /* Llib/thread.scm 395 */
 long BgL_odepthz00_7485;
{ /* Llib/thread.scm 395 */
 obj_t BgL_arg1947z00_7486;
BgL_arg1947z00_7486 = 
(BgL_oclassz00_7474); 
BgL_odepthz00_7485 = 
BGL_CLASS_DEPTH(BgL_arg1947z00_7486); } 
if(
(BgL_arg1954z00_7455<BgL_odepthz00_7485))
{ /* Llib/thread.scm 395 */
 obj_t BgL_arg1945z00_7490;
{ /* Llib/thread.scm 395 */
 obj_t BgL_arg1946z00_7491;
BgL_arg1946z00_7491 = 
(BgL_oclassz00_7474); 
BgL_arg1945z00_7490 = 
BGL_CLASS_ANCESTORS_REF(BgL_arg1946z00_7491, BgL_arg1954z00_7455); } 
BgL_res2066z00_7470 = 
(BgL_arg1945z00_7490==BgL_classz00_7452); }  else 
{ /* Llib/thread.scm 395 */
BgL_res2066z00_7470 = ((bool_t)0); } } } } 
BgL_test3799z00_12060 = BgL_res2066z00_7470; } }  else 
{ /* Llib/thread.scm 395 */
BgL_test3799z00_12060 = ((bool_t)0)
; } } 
if(BgL_test3799z00_12060)
{ /* Llib/thread.scm 395 */
BgL_auxz00_12059 = 
((BgL_threadz00_bglt)BgL_thz00_3769)
; }  else 
{ 
 obj_t BgL_auxz00_12085;
BgL_auxz00_12085 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2484z00zz__threadz00, 
BINT(16418L), BGl_string2809z00zz__threadz00, BGl_string2500z00zz__threadz00, BgL_thz00_3769); 
FAILURE(BgL_auxz00_12085,BFALSE,BFALSE);} } 
return 
BGl_threadzd2startzd2joinablez12z12zz__threadz00(BgL_auxz00_12059);} } 

}



/* thread-join! */
BGL_EXPORTED_DEF obj_t BGl_threadzd2joinz12zc0zz__threadz00(BgL_threadz00_bglt BgL_thz00_30, obj_t BgL_timeoutz00_31)
{
{ /* Llib/thread.scm 400 */
{ /* Llib/thread.scm 400 */
 obj_t BgL_method1202z00_1658;
{ /* Llib/thread.scm 400 */
 obj_t BgL_res2008z00_2766;
{ /* Llib/thread.scm 400 */
 long BgL_objzd2classzd2numz00_2737;
BgL_objzd2classzd2numz00_2737 = 
BGL_OBJECT_CLASS_NUM(
((BgL_objectz00_bglt)BgL_thz00_30)); 
{ /* Llib/thread.scm 400 */
 obj_t BgL_arg1955z00_2738;
BgL_arg1955z00_2738 = 
PROCEDURE_REF(BGl_threadzd2joinz12zd2envz12zz__threadz00, 
(int)(1L)); 
{ /* Llib/thread.scm 400 */
 int BgL_offsetz00_2741;
BgL_offsetz00_2741 = 
(int)(BgL_objzd2classzd2numz00_2737); 
{ /* Llib/thread.scm 400 */
 long BgL_offsetz00_2742;
BgL_offsetz00_2742 = 
(
(long)(BgL_offsetz00_2741)-OBJECT_TYPE); 
{ /* Llib/thread.scm 400 */
 long BgL_modz00_2743;
BgL_modz00_2743 = 
(BgL_offsetz00_2742 >> 
(int)(
(long)(
(int)(4L)))); 
{ /* Llib/thread.scm 400 */
 long BgL_restz00_2745;
BgL_restz00_2745 = 
(BgL_offsetz00_2742 & 
(long)(
(int)(
(
(long)(
(int)(
(1L << 
(int)(
(long)(
(int)(4L))))))-1L)))); 
{ /* Llib/thread.scm 400 */

{ /* Llib/thread.scm 400 */
 obj_t BgL_bucketz00_2747;
BgL_bucketz00_2747 = 
VECTOR_REF(
((obj_t)BgL_arg1955z00_2738),BgL_modz00_2743); 
BgL_res2008z00_2766 = 
VECTOR_REF(
((obj_t)BgL_bucketz00_2747),BgL_restz00_2745); } } } } } } } } 
BgL_method1202z00_1658 = BgL_res2008z00_2766; } 
{ /* Llib/thread.scm 400 */
 obj_t BgL_valz00_4323;
{ /* Llib/thread.scm 400 */
 obj_t BgL_list1530z00_1659;
BgL_list1530z00_1659 = 
MAKE_YOUNG_PAIR(BgL_timeoutz00_31, BNIL); 
{ /* Llib/thread.scm 400 */
 obj_t BgL_aux2382z00_4320;
BgL_aux2382z00_4320 = 
BGl_consza2za2zz__r4_pairs_and_lists_6_3z00(
((obj_t)BgL_thz00_30), BgL_list1530z00_1659); 
{ /* Llib/thread.scm 400 */
 bool_t BgL_test3804z00_12118;
if(
PAIRP(BgL_aux2382z00_4320))
{ /* Llib/thread.scm 400 */
BgL_test3804z00_12118 = ((bool_t)1)
; }  else 
{ /* Llib/thread.scm 400 */
BgL_test3804z00_12118 = 
NULLP(BgL_aux2382z00_4320)
; } 
if(BgL_test3804z00_12118)
{ /* Llib/thread.scm 400 */
BgL_valz00_4323 = BgL_aux2382z00_4320; }  else 
{ 
 obj_t BgL_auxz00_12122;
BgL_auxz00_12122 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2484z00zz__threadz00, 
BINT(16694L), BGl_string2810z00zz__threadz00, BGl_string2508z00zz__threadz00, BgL_aux2382z00_4320); 
FAILURE(BgL_auxz00_12122,BFALSE,BFALSE);} } } } 
{ /* Llib/thread.scm 400 */
 long BgL_len2384z00_4324;
BgL_len2384z00_4324 = 
(int)(
bgl_list_length(BgL_valz00_4323)); 
if(
PROCEDURE_CORRECT_ARITYP(BgL_method1202z00_1658, BgL_len2384z00_4324))
{ /* Llib/thread.scm 400 */
return 
apply(BgL_method1202z00_1658, BgL_valz00_4323);}  else 
{ /* Llib/thread.scm 400 */
FAILURE(BGl_symbol2811z00zz__threadz00,BGl_string2780z00zz__threadz00,BGl_list2812z00zz__threadz00);} } } } } 

}



/* &thread-join! */
obj_t BGl_z62threadzd2joinz12za2zz__threadz00(obj_t BgL_envz00_3770, obj_t BgL_thz00_3771, obj_t BgL_timeoutz00_3772)
{
{ /* Llib/thread.scm 400 */
{ /* Llib/thread.scm 400 */
 BgL_threadz00_bglt BgL_auxz00_12133;
{ /* Llib/thread.scm 400 */
 bool_t BgL_test3807z00_12134;
{ /* Llib/thread.scm 400 */
 obj_t BgL_classz00_7493;
BgL_classz00_7493 = BGl_threadz00zz__threadz00; 
if(
BGL_OBJECTP(BgL_thz00_3771))
{ /* Llib/thread.scm 400 */
 BgL_objectz00_bglt BgL_arg1953z00_7495; long BgL_arg1954z00_7496;
BgL_arg1953z00_7495 = 
(BgL_objectz00_bglt)(BgL_thz00_3771); 
BgL_arg1954z00_7496 = 
BGL_CLASS_DEPTH(BgL_classz00_7493); 
if(
BGL_CONDEXPAND_ISA_ARCH64())
{ /* Llib/thread.scm 400 */
 long BgL_idxz00_7504;
BgL_idxz00_7504 = 
BGL_OBJECT_INHERITANCE_NUM(BgL_arg1953z00_7495); 
{ /* Llib/thread.scm 400 */
 obj_t BgL_arg1943z00_7505;
{ /* Llib/thread.scm 400 */
 long BgL_arg1944z00_7506;
BgL_arg1944z00_7506 = 
(BgL_idxz00_7504+BgL_arg1954z00_7496); 
BgL_arg1943z00_7505 = 
VECTOR_REF(BGl_za2inheritancesza2z00zz__objectz00,BgL_arg1944z00_7506); } 
BgL_test3807z00_12134 = 
(BgL_arg1943z00_7505==BgL_classz00_7493); } }  else 
{ /* Llib/thread.scm 400 */
 bool_t BgL_res2066z00_7511;
{ /* Llib/thread.scm 400 */
 obj_t BgL_oclassz00_7515;
{ /* Llib/thread.scm 400 */
 obj_t BgL_arg1959z00_7517; long BgL_arg1960z00_7518;
BgL_arg1959z00_7517 = 
(BGl_za2classesza2z00zz__objectz00); 
{ /* Llib/thread.scm 400 */
 long BgL_arg1961z00_7519;
BgL_arg1961z00_7519 = 
BGL_OBJECT_CLASS_NUM(BgL_arg1953z00_7495); 
BgL_arg1960z00_7518 = 
(BgL_arg1961z00_7519-OBJECT_TYPE); } 
BgL_oclassz00_7515 = 
VECTOR_REF(BgL_arg1959z00_7517,BgL_arg1960z00_7518); } 
{ /* Llib/thread.scm 400 */
 bool_t BgL__ortest_1149z00_7525;
BgL__ortest_1149z00_7525 = 
(BgL_classz00_7493==BgL_oclassz00_7515); 
if(BgL__ortest_1149z00_7525)
{ /* Llib/thread.scm 400 */
BgL_res2066z00_7511 = BgL__ortest_1149z00_7525; }  else 
{ /* Llib/thread.scm 400 */
 long BgL_odepthz00_7526;
{ /* Llib/thread.scm 400 */
 obj_t BgL_arg1947z00_7527;
BgL_arg1947z00_7527 = 
(BgL_oclassz00_7515); 
BgL_odepthz00_7526 = 
BGL_CLASS_DEPTH(BgL_arg1947z00_7527); } 
if(
(BgL_arg1954z00_7496<BgL_odepthz00_7526))
{ /* Llib/thread.scm 400 */
 obj_t BgL_arg1945z00_7531;
{ /* Llib/thread.scm 400 */
 obj_t BgL_arg1946z00_7532;
BgL_arg1946z00_7532 = 
(BgL_oclassz00_7515); 
BgL_arg1945z00_7531 = 
BGL_CLASS_ANCESTORS_REF(BgL_arg1946z00_7532, BgL_arg1954z00_7496); } 
BgL_res2066z00_7511 = 
(BgL_arg1945z00_7531==BgL_classz00_7493); }  else 
{ /* Llib/thread.scm 400 */
BgL_res2066z00_7511 = ((bool_t)0); } } } } 
BgL_test3807z00_12134 = BgL_res2066z00_7511; } }  else 
{ /* Llib/thread.scm 400 */
BgL_test3807z00_12134 = ((bool_t)0)
; } } 
if(BgL_test3807z00_12134)
{ /* Llib/thread.scm 400 */
BgL_auxz00_12133 = 
((BgL_threadz00_bglt)BgL_thz00_3771)
; }  else 
{ 
 obj_t BgL_auxz00_12159;
BgL_auxz00_12159 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2484z00zz__threadz00, 
BINT(16694L), BGl_string2824z00zz__threadz00, BGl_string2500z00zz__threadz00, BgL_thz00_3771); 
FAILURE(BgL_auxz00_12159,BFALSE,BFALSE);} } 
return 
BGl_threadzd2joinz12zc0zz__threadz00(BgL_auxz00_12133, BgL_timeoutz00_3772);} } 

}



/* thread-terminate! */
BGL_EXPORTED_DEF obj_t BGl_threadzd2terminatez12zc0zz__threadz00(BgL_threadz00_bglt BgL_thz00_32)
{
{ /* Llib/thread.scm 405 */
{ /* Llib/thread.scm 405 */
 obj_t BgL_method1204z00_1660;
{ /* Llib/thread.scm 405 */
 obj_t BgL_res2013z00_2797;
{ /* Llib/thread.scm 405 */
 long BgL_objzd2classzd2numz00_2768;
BgL_objzd2classzd2numz00_2768 = 
BGL_OBJECT_CLASS_NUM(
((BgL_objectz00_bglt)BgL_thz00_32)); 
{ /* Llib/thread.scm 405 */
 obj_t BgL_arg1955z00_2769;
BgL_arg1955z00_2769 = 
PROCEDURE_REF(BGl_threadzd2terminatez12zd2envz12zz__threadz00, 
(int)(1L)); 
{ /* Llib/thread.scm 405 */
 int BgL_offsetz00_2772;
BgL_offsetz00_2772 = 
(int)(BgL_objzd2classzd2numz00_2768); 
{ /* Llib/thread.scm 405 */
 long BgL_offsetz00_2773;
BgL_offsetz00_2773 = 
(
(long)(BgL_offsetz00_2772)-OBJECT_TYPE); 
{ /* Llib/thread.scm 405 */
 long BgL_modz00_2774;
BgL_modz00_2774 = 
(BgL_offsetz00_2773 >> 
(int)(
(long)(
(int)(4L)))); 
{ /* Llib/thread.scm 405 */
 long BgL_restz00_2776;
BgL_restz00_2776 = 
(BgL_offsetz00_2773 & 
(long)(
(int)(
(
(long)(
(int)(
(1L << 
(int)(
(long)(
(int)(4L))))))-1L)))); 
{ /* Llib/thread.scm 405 */

{ /* Llib/thread.scm 405 */
 obj_t BgL_bucketz00_2778;
BgL_bucketz00_2778 = 
VECTOR_REF(
((obj_t)BgL_arg1955z00_2769),BgL_modz00_2774); 
BgL_res2013z00_2797 = 
VECTOR_REF(
((obj_t)BgL_bucketz00_2778),BgL_restz00_2776); } } } } } } } } 
BgL_method1204z00_1660 = BgL_res2013z00_2797; } 
if(
PROCEDURE_CORRECT_ARITYP(BgL_method1204z00_1660, 1))
{ /* Llib/thread.scm 405 */
return 
BGL_PROCEDURE_CALL1(BgL_method1204z00_1660, 
((obj_t)BgL_thz00_32));}  else 
{ /* Llib/thread.scm 405 */
FAILURE(BGl_string2825z00zz__threadz00,BGl_list2826z00zz__threadz00,BgL_method1204z00_1660);} } } 

}



/* &thread-terminate! */
obj_t BGl_z62threadzd2terminatez12za2zz__threadz00(obj_t BgL_envz00_3773, obj_t BgL_thz00_3774)
{
{ /* Llib/thread.scm 405 */
{ /* Llib/thread.scm 405 */
 BgL_threadz00_bglt BgL_auxz00_12197;
{ /* Llib/thread.scm 405 */
 bool_t BgL_test3813z00_12198;
{ /* Llib/thread.scm 405 */
 obj_t BgL_classz00_7533;
BgL_classz00_7533 = BGl_threadz00zz__threadz00; 
if(
BGL_OBJECTP(BgL_thz00_3774))
{ /* Llib/thread.scm 405 */
 BgL_objectz00_bglt BgL_arg1953z00_7535; long BgL_arg1954z00_7536;
BgL_arg1953z00_7535 = 
(BgL_objectz00_bglt)(BgL_thz00_3774); 
BgL_arg1954z00_7536 = 
BGL_CLASS_DEPTH(BgL_classz00_7533); 
if(
BGL_CONDEXPAND_ISA_ARCH64())
{ /* Llib/thread.scm 405 */
 long BgL_idxz00_7544;
BgL_idxz00_7544 = 
BGL_OBJECT_INHERITANCE_NUM(BgL_arg1953z00_7535); 
{ /* Llib/thread.scm 405 */
 obj_t BgL_arg1943z00_7545;
{ /* Llib/thread.scm 405 */
 long BgL_arg1944z00_7546;
BgL_arg1944z00_7546 = 
(BgL_idxz00_7544+BgL_arg1954z00_7536); 
BgL_arg1943z00_7545 = 
VECTOR_REF(BGl_za2inheritancesza2z00zz__objectz00,BgL_arg1944z00_7546); } 
BgL_test3813z00_12198 = 
(BgL_arg1943z00_7545==BgL_classz00_7533); } }  else 
{ /* Llib/thread.scm 405 */
 bool_t BgL_res2066z00_7551;
{ /* Llib/thread.scm 405 */
 obj_t BgL_oclassz00_7555;
{ /* Llib/thread.scm 405 */
 obj_t BgL_arg1959z00_7557; long BgL_arg1960z00_7558;
BgL_arg1959z00_7557 = 
(BGl_za2classesza2z00zz__objectz00); 
{ /* Llib/thread.scm 405 */
 long BgL_arg1961z00_7559;
BgL_arg1961z00_7559 = 
BGL_OBJECT_CLASS_NUM(BgL_arg1953z00_7535); 
BgL_arg1960z00_7558 = 
(BgL_arg1961z00_7559-OBJECT_TYPE); } 
BgL_oclassz00_7555 = 
VECTOR_REF(BgL_arg1959z00_7557,BgL_arg1960z00_7558); } 
{ /* Llib/thread.scm 405 */
 bool_t BgL__ortest_1149z00_7565;
BgL__ortest_1149z00_7565 = 
(BgL_classz00_7533==BgL_oclassz00_7555); 
if(BgL__ortest_1149z00_7565)
{ /* Llib/thread.scm 405 */
BgL_res2066z00_7551 = BgL__ortest_1149z00_7565; }  else 
{ /* Llib/thread.scm 405 */
 long BgL_odepthz00_7566;
{ /* Llib/thread.scm 405 */
 obj_t BgL_arg1947z00_7567;
BgL_arg1947z00_7567 = 
(BgL_oclassz00_7555); 
BgL_odepthz00_7566 = 
BGL_CLASS_DEPTH(BgL_arg1947z00_7567); } 
if(
(BgL_arg1954z00_7536<BgL_odepthz00_7566))
{ /* Llib/thread.scm 405 */
 obj_t BgL_arg1945z00_7571;
{ /* Llib/thread.scm 405 */
 obj_t BgL_arg1946z00_7572;
BgL_arg1946z00_7572 = 
(BgL_oclassz00_7555); 
BgL_arg1945z00_7571 = 
BGL_CLASS_ANCESTORS_REF(BgL_arg1946z00_7572, BgL_arg1954z00_7536); } 
BgL_res2066z00_7551 = 
(BgL_arg1945z00_7571==BgL_classz00_7533); }  else 
{ /* Llib/thread.scm 405 */
BgL_res2066z00_7551 = ((bool_t)0); } } } } 
BgL_test3813z00_12198 = BgL_res2066z00_7551; } }  else 
{ /* Llib/thread.scm 405 */
BgL_test3813z00_12198 = ((bool_t)0)
; } } 
if(BgL_test3813z00_12198)
{ /* Llib/thread.scm 405 */
BgL_auxz00_12197 = 
((BgL_threadz00_bglt)BgL_thz00_3774)
; }  else 
{ 
 obj_t BgL_auxz00_12223;
BgL_auxz00_12223 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2484z00zz__threadz00, 
BINT(16970L), BGl_string2829z00zz__threadz00, BGl_string2500z00zz__threadz00, BgL_thz00_3774); 
FAILURE(BgL_auxz00_12223,BFALSE,BFALSE);} } 
return 
BGl_threadzd2terminatez12zc0zz__threadz00(BgL_auxz00_12197);} } 

}



/* thread-kill! */
BGL_EXPORTED_DEF obj_t BGl_threadzd2killz12zc0zz__threadz00(BgL_threadz00_bglt BgL_thz00_33, int BgL_nz00_34)
{
{ /* Llib/thread.scm 410 */
{ /* Llib/thread.scm 410 */
 obj_t BgL_method1206z00_1661;
{ /* Llib/thread.scm 410 */
 obj_t BgL_res2018z00_2828;
{ /* Llib/thread.scm 410 */
 long BgL_objzd2classzd2numz00_2799;
BgL_objzd2classzd2numz00_2799 = 
BGL_OBJECT_CLASS_NUM(
((BgL_objectz00_bglt)BgL_thz00_33)); 
{ /* Llib/thread.scm 410 */
 obj_t BgL_arg1955z00_2800;
BgL_arg1955z00_2800 = 
PROCEDURE_REF(BGl_threadzd2killz12zd2envz12zz__threadz00, 
(int)(1L)); 
{ /* Llib/thread.scm 410 */
 int BgL_offsetz00_2803;
BgL_offsetz00_2803 = 
(int)(BgL_objzd2classzd2numz00_2799); 
{ /* Llib/thread.scm 410 */
 long BgL_offsetz00_2804;
BgL_offsetz00_2804 = 
(
(long)(BgL_offsetz00_2803)-OBJECT_TYPE); 
{ /* Llib/thread.scm 410 */
 long BgL_modz00_2805;
BgL_modz00_2805 = 
(BgL_offsetz00_2804 >> 
(int)(
(long)(
(int)(4L)))); 
{ /* Llib/thread.scm 410 */
 long BgL_restz00_2807;
BgL_restz00_2807 = 
(BgL_offsetz00_2804 & 
(long)(
(int)(
(
(long)(
(int)(
(1L << 
(int)(
(long)(
(int)(4L))))))-1L)))); 
{ /* Llib/thread.scm 410 */

{ /* Llib/thread.scm 410 */
 obj_t BgL_bucketz00_2809;
BgL_bucketz00_2809 = 
VECTOR_REF(
((obj_t)BgL_arg1955z00_2800),BgL_modz00_2805); 
BgL_res2018z00_2828 = 
VECTOR_REF(
((obj_t)BgL_bucketz00_2809),BgL_restz00_2807); } } } } } } } } 
BgL_method1206z00_1661 = BgL_res2018z00_2828; } 
if(
PROCEDURE_CORRECT_ARITYP(BgL_method1206z00_1661, 2))
{ /* Llib/thread.scm 410 */
return 
BGL_PROCEDURE_CALL2(BgL_method1206z00_1661, 
((obj_t)BgL_thz00_33), 
BINT(BgL_nz00_34));}  else 
{ /* Llib/thread.scm 410 */
FAILURE(BGl_string2830z00zz__threadz00,BGl_list2831z00zz__threadz00,BgL_method1206z00_1661);} } } 

}



/* &thread-kill! */
obj_t BGl_z62threadzd2killz12za2zz__threadz00(obj_t BgL_envz00_3775, obj_t BgL_thz00_3776, obj_t BgL_nz00_3777)
{
{ /* Llib/thread.scm 410 */
{ /* Llib/thread.scm 410 */
 int BgL_auxz00_12293; BgL_threadz00_bglt BgL_auxz00_12263;
{ /* Llib/thread.scm 410 */
 obj_t BgL_tmpz00_12294;
if(
INTEGERP(BgL_nz00_3777))
{ /* Llib/thread.scm 410 */
BgL_tmpz00_12294 = BgL_nz00_3777
; }  else 
{ 
 obj_t BgL_auxz00_12297;
BgL_auxz00_12297 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2484z00zz__threadz00, 
BINT(17241L), BGl_string2836z00zz__threadz00, BGl_string2531z00zz__threadz00, BgL_nz00_3777); 
FAILURE(BgL_auxz00_12297,BFALSE,BFALSE);} 
BgL_auxz00_12293 = 
CINT(BgL_tmpz00_12294); } 
{ /* Llib/thread.scm 410 */
 bool_t BgL_test3819z00_12264;
{ /* Llib/thread.scm 410 */
 obj_t BgL_classz00_7573;
BgL_classz00_7573 = BGl_threadz00zz__threadz00; 
if(
BGL_OBJECTP(BgL_thz00_3776))
{ /* Llib/thread.scm 410 */
 BgL_objectz00_bglt BgL_arg1953z00_7575; long BgL_arg1954z00_7576;
BgL_arg1953z00_7575 = 
(BgL_objectz00_bglt)(BgL_thz00_3776); 
BgL_arg1954z00_7576 = 
BGL_CLASS_DEPTH(BgL_classz00_7573); 
if(
BGL_CONDEXPAND_ISA_ARCH64())
{ /* Llib/thread.scm 410 */
 long BgL_idxz00_7584;
BgL_idxz00_7584 = 
BGL_OBJECT_INHERITANCE_NUM(BgL_arg1953z00_7575); 
{ /* Llib/thread.scm 410 */
 obj_t BgL_arg1943z00_7585;
{ /* Llib/thread.scm 410 */
 long BgL_arg1944z00_7586;
BgL_arg1944z00_7586 = 
(BgL_idxz00_7584+BgL_arg1954z00_7576); 
BgL_arg1943z00_7585 = 
VECTOR_REF(BGl_za2inheritancesza2z00zz__objectz00,BgL_arg1944z00_7586); } 
BgL_test3819z00_12264 = 
(BgL_arg1943z00_7585==BgL_classz00_7573); } }  else 
{ /* Llib/thread.scm 410 */
 bool_t BgL_res2066z00_7591;
{ /* Llib/thread.scm 410 */
 obj_t BgL_oclassz00_7595;
{ /* Llib/thread.scm 410 */
 obj_t BgL_arg1959z00_7597; long BgL_arg1960z00_7598;
BgL_arg1959z00_7597 = 
(BGl_za2classesza2z00zz__objectz00); 
{ /* Llib/thread.scm 410 */
 long BgL_arg1961z00_7599;
BgL_arg1961z00_7599 = 
BGL_OBJECT_CLASS_NUM(BgL_arg1953z00_7575); 
BgL_arg1960z00_7598 = 
(BgL_arg1961z00_7599-OBJECT_TYPE); } 
BgL_oclassz00_7595 = 
VECTOR_REF(BgL_arg1959z00_7597,BgL_arg1960z00_7598); } 
{ /* Llib/thread.scm 410 */
 bool_t BgL__ortest_1149z00_7605;
BgL__ortest_1149z00_7605 = 
(BgL_classz00_7573==BgL_oclassz00_7595); 
if(BgL__ortest_1149z00_7605)
{ /* Llib/thread.scm 410 */
BgL_res2066z00_7591 = BgL__ortest_1149z00_7605; }  else 
{ /* Llib/thread.scm 410 */
 long BgL_odepthz00_7606;
{ /* Llib/thread.scm 410 */
 obj_t BgL_arg1947z00_7607;
BgL_arg1947z00_7607 = 
(BgL_oclassz00_7595); 
BgL_odepthz00_7606 = 
BGL_CLASS_DEPTH(BgL_arg1947z00_7607); } 
if(
(BgL_arg1954z00_7576<BgL_odepthz00_7606))
{ /* Llib/thread.scm 410 */
 obj_t BgL_arg1945z00_7611;
{ /* Llib/thread.scm 410 */
 obj_t BgL_arg1946z00_7612;
BgL_arg1946z00_7612 = 
(BgL_oclassz00_7595); 
BgL_arg1945z00_7611 = 
BGL_CLASS_ANCESTORS_REF(BgL_arg1946z00_7612, BgL_arg1954z00_7576); } 
BgL_res2066z00_7591 = 
(BgL_arg1945z00_7611==BgL_classz00_7573); }  else 
{ /* Llib/thread.scm 410 */
BgL_res2066z00_7591 = ((bool_t)0); } } } } 
BgL_test3819z00_12264 = BgL_res2066z00_7591; } }  else 
{ /* Llib/thread.scm 410 */
BgL_test3819z00_12264 = ((bool_t)0)
; } } 
if(BgL_test3819z00_12264)
{ /* Llib/thread.scm 410 */
BgL_auxz00_12263 = 
((BgL_threadz00_bglt)BgL_thz00_3776)
; }  else 
{ 
 obj_t BgL_auxz00_12289;
BgL_auxz00_12289 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2484z00zz__threadz00, 
BINT(17241L), BGl_string2836z00zz__threadz00, BGl_string2500z00zz__threadz00, BgL_thz00_3776); 
FAILURE(BgL_auxz00_12289,BFALSE,BFALSE);} } 
return 
BGl_threadzd2killz12zc0zz__threadz00(BgL_auxz00_12263, BgL_auxz00_12293);} } 

}



/* thread-specific */
BGL_EXPORTED_DEF obj_t BGl_threadzd2specificzd2zz__threadz00(BgL_threadz00_bglt BgL_thz00_35)
{
{ /* Llib/thread.scm 415 */
{ /* Llib/thread.scm 415 */
 obj_t BgL_method1209z00_1662;
{ /* Llib/thread.scm 415 */
 obj_t BgL_res2023z00_2859;
{ /* Llib/thread.scm 415 */
 long BgL_objzd2classzd2numz00_2830;
BgL_objzd2classzd2numz00_2830 = 
BGL_OBJECT_CLASS_NUM(
((BgL_objectz00_bglt)BgL_thz00_35)); 
{ /* Llib/thread.scm 415 */
 obj_t BgL_arg1955z00_2831;
BgL_arg1955z00_2831 = 
PROCEDURE_REF(BGl_threadzd2specificzd2envz00zz__threadz00, 
(int)(1L)); 
{ /* Llib/thread.scm 415 */
 int BgL_offsetz00_2834;
BgL_offsetz00_2834 = 
(int)(BgL_objzd2classzd2numz00_2830); 
{ /* Llib/thread.scm 415 */
 long BgL_offsetz00_2835;
BgL_offsetz00_2835 = 
(
(long)(BgL_offsetz00_2834)-OBJECT_TYPE); 
{ /* Llib/thread.scm 415 */
 long BgL_modz00_2836;
BgL_modz00_2836 = 
(BgL_offsetz00_2835 >> 
(int)(
(long)(
(int)(4L)))); 
{ /* Llib/thread.scm 415 */
 long BgL_restz00_2838;
BgL_restz00_2838 = 
(BgL_offsetz00_2835 & 
(long)(
(int)(
(
(long)(
(int)(
(1L << 
(int)(
(long)(
(int)(4L))))))-1L)))); 
{ /* Llib/thread.scm 415 */

{ /* Llib/thread.scm 415 */
 obj_t BgL_bucketz00_2840;
BgL_bucketz00_2840 = 
VECTOR_REF(
((obj_t)BgL_arg1955z00_2831),BgL_modz00_2836); 
BgL_res2023z00_2859 = 
VECTOR_REF(
((obj_t)BgL_bucketz00_2840),BgL_restz00_2838); } } } } } } } } 
BgL_method1209z00_1662 = BgL_res2023z00_2859; } 
if(
PROCEDURE_CORRECT_ARITYP(BgL_method1209z00_1662, 1))
{ /* Llib/thread.scm 415 */
return 
BGL_PROCEDURE_CALL1(BgL_method1209z00_1662, 
((obj_t)BgL_thz00_35));}  else 
{ /* Llib/thread.scm 415 */
FAILURE(BGl_string2837z00zz__threadz00,BGl_list2838z00zz__threadz00,BgL_method1209z00_1662);} } } 

}



/* &thread-specific */
obj_t BGl_z62threadzd2specificzb0zz__threadz00(obj_t BgL_envz00_3778, obj_t BgL_thz00_3779)
{
{ /* Llib/thread.scm 415 */
{ /* Llib/thread.scm 415 */
 BgL_threadz00_bglt BgL_auxz00_12336;
{ /* Llib/thread.scm 415 */
 bool_t BgL_test3826z00_12337;
{ /* Llib/thread.scm 415 */
 obj_t BgL_classz00_7613;
BgL_classz00_7613 = BGl_threadz00zz__threadz00; 
if(
BGL_OBJECTP(BgL_thz00_3779))
{ /* Llib/thread.scm 415 */
 BgL_objectz00_bglt BgL_arg1953z00_7615; long BgL_arg1954z00_7616;
BgL_arg1953z00_7615 = 
(BgL_objectz00_bglt)(BgL_thz00_3779); 
BgL_arg1954z00_7616 = 
BGL_CLASS_DEPTH(BgL_classz00_7613); 
if(
BGL_CONDEXPAND_ISA_ARCH64())
{ /* Llib/thread.scm 415 */
 long BgL_idxz00_7624;
BgL_idxz00_7624 = 
BGL_OBJECT_INHERITANCE_NUM(BgL_arg1953z00_7615); 
{ /* Llib/thread.scm 415 */
 obj_t BgL_arg1943z00_7625;
{ /* Llib/thread.scm 415 */
 long BgL_arg1944z00_7626;
BgL_arg1944z00_7626 = 
(BgL_idxz00_7624+BgL_arg1954z00_7616); 
BgL_arg1943z00_7625 = 
VECTOR_REF(BGl_za2inheritancesza2z00zz__objectz00,BgL_arg1944z00_7626); } 
BgL_test3826z00_12337 = 
(BgL_arg1943z00_7625==BgL_classz00_7613); } }  else 
{ /* Llib/thread.scm 415 */
 bool_t BgL_res2066z00_7631;
{ /* Llib/thread.scm 415 */
 obj_t BgL_oclassz00_7635;
{ /* Llib/thread.scm 415 */
 obj_t BgL_arg1959z00_7637; long BgL_arg1960z00_7638;
BgL_arg1959z00_7637 = 
(BGl_za2classesza2z00zz__objectz00); 
{ /* Llib/thread.scm 415 */
 long BgL_arg1961z00_7639;
BgL_arg1961z00_7639 = 
BGL_OBJECT_CLASS_NUM(BgL_arg1953z00_7615); 
BgL_arg1960z00_7638 = 
(BgL_arg1961z00_7639-OBJECT_TYPE); } 
BgL_oclassz00_7635 = 
VECTOR_REF(BgL_arg1959z00_7637,BgL_arg1960z00_7638); } 
{ /* Llib/thread.scm 415 */
 bool_t BgL__ortest_1149z00_7645;
BgL__ortest_1149z00_7645 = 
(BgL_classz00_7613==BgL_oclassz00_7635); 
if(BgL__ortest_1149z00_7645)
{ /* Llib/thread.scm 415 */
BgL_res2066z00_7631 = BgL__ortest_1149z00_7645; }  else 
{ /* Llib/thread.scm 415 */
 long BgL_odepthz00_7646;
{ /* Llib/thread.scm 415 */
 obj_t BgL_arg1947z00_7647;
BgL_arg1947z00_7647 = 
(BgL_oclassz00_7635); 
BgL_odepthz00_7646 = 
BGL_CLASS_DEPTH(BgL_arg1947z00_7647); } 
if(
(BgL_arg1954z00_7616<BgL_odepthz00_7646))
{ /* Llib/thread.scm 415 */
 obj_t BgL_arg1945z00_7651;
{ /* Llib/thread.scm 415 */
 obj_t BgL_arg1946z00_7652;
BgL_arg1946z00_7652 = 
(BgL_oclassz00_7635); 
BgL_arg1945z00_7651 = 
BGL_CLASS_ANCESTORS_REF(BgL_arg1946z00_7652, BgL_arg1954z00_7616); } 
BgL_res2066z00_7631 = 
(BgL_arg1945z00_7651==BgL_classz00_7613); }  else 
{ /* Llib/thread.scm 415 */
BgL_res2066z00_7631 = ((bool_t)0); } } } } 
BgL_test3826z00_12337 = BgL_res2066z00_7631; } }  else 
{ /* Llib/thread.scm 415 */
BgL_test3826z00_12337 = ((bool_t)0)
; } } 
if(BgL_test3826z00_12337)
{ /* Llib/thread.scm 415 */
BgL_auxz00_12336 = 
((BgL_threadz00_bglt)BgL_thz00_3779)
; }  else 
{ 
 obj_t BgL_auxz00_12362;
BgL_auxz00_12362 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2484z00zz__threadz00, 
BINT(17514L), BGl_string2841z00zz__threadz00, BGl_string2500z00zz__threadz00, BgL_thz00_3779); 
FAILURE(BgL_auxz00_12362,BFALSE,BFALSE);} } 
return 
BGl_threadzd2specificzd2zz__threadz00(BgL_auxz00_12336);} } 

}



/* thread-specific-set! */
BGL_EXPORTED_DEF obj_t BGl_threadzd2specificzd2setz12z12zz__threadz00(BgL_threadz00_bglt BgL_thz00_36, obj_t BgL_vz00_37)
{
{ /* Llib/thread.scm 420 */
{ /* Llib/thread.scm 420 */
 obj_t BgL_method1211z00_1663;
{ /* Llib/thread.scm 420 */
 obj_t BgL_res2028z00_2890;
{ /* Llib/thread.scm 420 */
 long BgL_objzd2classzd2numz00_2861;
BgL_objzd2classzd2numz00_2861 = 
BGL_OBJECT_CLASS_NUM(
((BgL_objectz00_bglt)BgL_thz00_36)); 
{ /* Llib/thread.scm 420 */
 obj_t BgL_arg1955z00_2862;
BgL_arg1955z00_2862 = 
PROCEDURE_REF(BGl_threadzd2specificzd2setz12zd2envzc0zz__threadz00, 
(int)(1L)); 
{ /* Llib/thread.scm 420 */
 int BgL_offsetz00_2865;
BgL_offsetz00_2865 = 
(int)(BgL_objzd2classzd2numz00_2861); 
{ /* Llib/thread.scm 420 */
 long BgL_offsetz00_2866;
BgL_offsetz00_2866 = 
(
(long)(BgL_offsetz00_2865)-OBJECT_TYPE); 
{ /* Llib/thread.scm 420 */
 long BgL_modz00_2867;
BgL_modz00_2867 = 
(BgL_offsetz00_2866 >> 
(int)(
(long)(
(int)(4L)))); 
{ /* Llib/thread.scm 420 */
 long BgL_restz00_2869;
BgL_restz00_2869 = 
(BgL_offsetz00_2866 & 
(long)(
(int)(
(
(long)(
(int)(
(1L << 
(int)(
(long)(
(int)(4L))))))-1L)))); 
{ /* Llib/thread.scm 420 */

{ /* Llib/thread.scm 420 */
 obj_t BgL_bucketz00_2871;
BgL_bucketz00_2871 = 
VECTOR_REF(
((obj_t)BgL_arg1955z00_2862),BgL_modz00_2867); 
BgL_res2028z00_2890 = 
VECTOR_REF(
((obj_t)BgL_bucketz00_2871),BgL_restz00_2869); } } } } } } } } 
BgL_method1211z00_1663 = BgL_res2028z00_2890; } 
if(
PROCEDURE_CORRECT_ARITYP(BgL_method1211z00_1663, 2))
{ /* Llib/thread.scm 420 */
return 
BGL_PROCEDURE_CALL2(BgL_method1211z00_1663, 
((obj_t)BgL_thz00_36), BgL_vz00_37);}  else 
{ /* Llib/thread.scm 420 */
FAILURE(BGl_string2842z00zz__threadz00,BGl_list2843z00zz__threadz00,BgL_method1211z00_1663);} } } 

}



/* &thread-specific-set! */
obj_t BGl_z62threadzd2specificzd2setz12z70zz__threadz00(obj_t BgL_envz00_3780, obj_t BgL_thz00_3781, obj_t BgL_vz00_3782)
{
{ /* Llib/thread.scm 420 */
{ /* Llib/thread.scm 420 */
 BgL_threadz00_bglt BgL_auxz00_12401;
{ /* Llib/thread.scm 420 */
 bool_t BgL_test3832z00_12402;
{ /* Llib/thread.scm 420 */
 obj_t BgL_classz00_7653;
BgL_classz00_7653 = BGl_threadz00zz__threadz00; 
if(
BGL_OBJECTP(BgL_thz00_3781))
{ /* Llib/thread.scm 420 */
 BgL_objectz00_bglt BgL_arg1953z00_7655; long BgL_arg1954z00_7656;
BgL_arg1953z00_7655 = 
(BgL_objectz00_bglt)(BgL_thz00_3781); 
BgL_arg1954z00_7656 = 
BGL_CLASS_DEPTH(BgL_classz00_7653); 
if(
BGL_CONDEXPAND_ISA_ARCH64())
{ /* Llib/thread.scm 420 */
 long BgL_idxz00_7664;
BgL_idxz00_7664 = 
BGL_OBJECT_INHERITANCE_NUM(BgL_arg1953z00_7655); 
{ /* Llib/thread.scm 420 */
 obj_t BgL_arg1943z00_7665;
{ /* Llib/thread.scm 420 */
 long BgL_arg1944z00_7666;
BgL_arg1944z00_7666 = 
(BgL_idxz00_7664+BgL_arg1954z00_7656); 
BgL_arg1943z00_7665 = 
VECTOR_REF(BGl_za2inheritancesza2z00zz__objectz00,BgL_arg1944z00_7666); } 
BgL_test3832z00_12402 = 
(BgL_arg1943z00_7665==BgL_classz00_7653); } }  else 
{ /* Llib/thread.scm 420 */
 bool_t BgL_res2066z00_7671;
{ /* Llib/thread.scm 420 */
 obj_t BgL_oclassz00_7675;
{ /* Llib/thread.scm 420 */
 obj_t BgL_arg1959z00_7677; long BgL_arg1960z00_7678;
BgL_arg1959z00_7677 = 
(BGl_za2classesza2z00zz__objectz00); 
{ /* Llib/thread.scm 420 */
 long BgL_arg1961z00_7679;
BgL_arg1961z00_7679 = 
BGL_OBJECT_CLASS_NUM(BgL_arg1953z00_7655); 
BgL_arg1960z00_7678 = 
(BgL_arg1961z00_7679-OBJECT_TYPE); } 
BgL_oclassz00_7675 = 
VECTOR_REF(BgL_arg1959z00_7677,BgL_arg1960z00_7678); } 
{ /* Llib/thread.scm 420 */
 bool_t BgL__ortest_1149z00_7685;
BgL__ortest_1149z00_7685 = 
(BgL_classz00_7653==BgL_oclassz00_7675); 
if(BgL__ortest_1149z00_7685)
{ /* Llib/thread.scm 420 */
BgL_res2066z00_7671 = BgL__ortest_1149z00_7685; }  else 
{ /* Llib/thread.scm 420 */
 long BgL_odepthz00_7686;
{ /* Llib/thread.scm 420 */
 obj_t BgL_arg1947z00_7687;
BgL_arg1947z00_7687 = 
(BgL_oclassz00_7675); 
BgL_odepthz00_7686 = 
BGL_CLASS_DEPTH(BgL_arg1947z00_7687); } 
if(
(BgL_arg1954z00_7656<BgL_odepthz00_7686))
{ /* Llib/thread.scm 420 */
 obj_t BgL_arg1945z00_7691;
{ /* Llib/thread.scm 420 */
 obj_t BgL_arg1946z00_7692;
BgL_arg1946z00_7692 = 
(BgL_oclassz00_7675); 
BgL_arg1945z00_7691 = 
BGL_CLASS_ANCESTORS_REF(BgL_arg1946z00_7692, BgL_arg1954z00_7656); } 
BgL_res2066z00_7671 = 
(BgL_arg1945z00_7691==BgL_classz00_7653); }  else 
{ /* Llib/thread.scm 420 */
BgL_res2066z00_7671 = ((bool_t)0); } } } } 
BgL_test3832z00_12402 = BgL_res2066z00_7671; } }  else 
{ /* Llib/thread.scm 420 */
BgL_test3832z00_12402 = ((bool_t)0)
; } } 
if(BgL_test3832z00_12402)
{ /* Llib/thread.scm 420 */
BgL_auxz00_12401 = 
((BgL_threadz00_bglt)BgL_thz00_3781)
; }  else 
{ 
 obj_t BgL_auxz00_12427;
BgL_auxz00_12427 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2484z00zz__threadz00, 
BINT(17783L), BGl_string2848z00zz__threadz00, BGl_string2500z00zz__threadz00, BgL_thz00_3781); 
FAILURE(BgL_auxz00_12427,BFALSE,BFALSE);} } 
return 
BGl_threadzd2specificzd2setz12z12zz__threadz00(BgL_auxz00_12401, BgL_vz00_3782);} } 

}



/* thread-cleanup */
BGL_EXPORTED_DEF obj_t BGl_threadzd2cleanupzd2zz__threadz00(BgL_threadz00_bglt BgL_thz00_38)
{
{ /* Llib/thread.scm 425 */
{ /* Llib/thread.scm 425 */
 obj_t BgL_method1213z00_1664;
{ /* Llib/thread.scm 425 */
 obj_t BgL_res2033z00_2921;
{ /* Llib/thread.scm 425 */
 long BgL_objzd2classzd2numz00_2892;
BgL_objzd2classzd2numz00_2892 = 
BGL_OBJECT_CLASS_NUM(
((BgL_objectz00_bglt)BgL_thz00_38)); 
{ /* Llib/thread.scm 425 */
 obj_t BgL_arg1955z00_2893;
BgL_arg1955z00_2893 = 
PROCEDURE_REF(BGl_threadzd2cleanupzd2envz00zz__threadz00, 
(int)(1L)); 
{ /* Llib/thread.scm 425 */
 int BgL_offsetz00_2896;
BgL_offsetz00_2896 = 
(int)(BgL_objzd2classzd2numz00_2892); 
{ /* Llib/thread.scm 425 */
 long BgL_offsetz00_2897;
BgL_offsetz00_2897 = 
(
(long)(BgL_offsetz00_2896)-OBJECT_TYPE); 
{ /* Llib/thread.scm 425 */
 long BgL_modz00_2898;
BgL_modz00_2898 = 
(BgL_offsetz00_2897 >> 
(int)(
(long)(
(int)(4L)))); 
{ /* Llib/thread.scm 425 */
 long BgL_restz00_2900;
BgL_restz00_2900 = 
(BgL_offsetz00_2897 & 
(long)(
(int)(
(
(long)(
(int)(
(1L << 
(int)(
(long)(
(int)(4L))))))-1L)))); 
{ /* Llib/thread.scm 425 */

{ /* Llib/thread.scm 425 */
 obj_t BgL_bucketz00_2902;
BgL_bucketz00_2902 = 
VECTOR_REF(
((obj_t)BgL_arg1955z00_2893),BgL_modz00_2898); 
BgL_res2033z00_2921 = 
VECTOR_REF(
((obj_t)BgL_bucketz00_2902),BgL_restz00_2900); } } } } } } } } 
BgL_method1213z00_1664 = BgL_res2033z00_2921; } 
if(
PROCEDURE_CORRECT_ARITYP(BgL_method1213z00_1664, 1))
{ /* Llib/thread.scm 425 */
return 
BGL_PROCEDURE_CALL1(BgL_method1213z00_1664, 
((obj_t)BgL_thz00_38));}  else 
{ /* Llib/thread.scm 425 */
FAILURE(BGl_string2849z00zz__threadz00,BGl_list2850z00zz__threadz00,BgL_method1213z00_1664);} } } 

}



/* &thread-cleanup */
obj_t BGl_z62threadzd2cleanupzb0zz__threadz00(obj_t BgL_envz00_3783, obj_t BgL_thz00_3784)
{
{ /* Llib/thread.scm 425 */
{ /* Llib/thread.scm 425 */
 BgL_threadz00_bglt BgL_auxz00_12465;
{ /* Llib/thread.scm 425 */
 bool_t BgL_test3838z00_12466;
{ /* Llib/thread.scm 425 */
 obj_t BgL_classz00_7693;
BgL_classz00_7693 = BGl_threadz00zz__threadz00; 
if(
BGL_OBJECTP(BgL_thz00_3784))
{ /* Llib/thread.scm 425 */
 BgL_objectz00_bglt BgL_arg1953z00_7695; long BgL_arg1954z00_7696;
BgL_arg1953z00_7695 = 
(BgL_objectz00_bglt)(BgL_thz00_3784); 
BgL_arg1954z00_7696 = 
BGL_CLASS_DEPTH(BgL_classz00_7693); 
if(
BGL_CONDEXPAND_ISA_ARCH64())
{ /* Llib/thread.scm 425 */
 long BgL_idxz00_7704;
BgL_idxz00_7704 = 
BGL_OBJECT_INHERITANCE_NUM(BgL_arg1953z00_7695); 
{ /* Llib/thread.scm 425 */
 obj_t BgL_arg1943z00_7705;
{ /* Llib/thread.scm 425 */
 long BgL_arg1944z00_7706;
BgL_arg1944z00_7706 = 
(BgL_idxz00_7704+BgL_arg1954z00_7696); 
BgL_arg1943z00_7705 = 
VECTOR_REF(BGl_za2inheritancesza2z00zz__objectz00,BgL_arg1944z00_7706); } 
BgL_test3838z00_12466 = 
(BgL_arg1943z00_7705==BgL_classz00_7693); } }  else 
{ /* Llib/thread.scm 425 */
 bool_t BgL_res2066z00_7711;
{ /* Llib/thread.scm 425 */
 obj_t BgL_oclassz00_7715;
{ /* Llib/thread.scm 425 */
 obj_t BgL_arg1959z00_7717; long BgL_arg1960z00_7718;
BgL_arg1959z00_7717 = 
(BGl_za2classesza2z00zz__objectz00); 
{ /* Llib/thread.scm 425 */
 long BgL_arg1961z00_7719;
BgL_arg1961z00_7719 = 
BGL_OBJECT_CLASS_NUM(BgL_arg1953z00_7695); 
BgL_arg1960z00_7718 = 
(BgL_arg1961z00_7719-OBJECT_TYPE); } 
BgL_oclassz00_7715 = 
VECTOR_REF(BgL_arg1959z00_7717,BgL_arg1960z00_7718); } 
{ /* Llib/thread.scm 425 */
 bool_t BgL__ortest_1149z00_7725;
BgL__ortest_1149z00_7725 = 
(BgL_classz00_7693==BgL_oclassz00_7715); 
if(BgL__ortest_1149z00_7725)
{ /* Llib/thread.scm 425 */
BgL_res2066z00_7711 = BgL__ortest_1149z00_7725; }  else 
{ /* Llib/thread.scm 425 */
 long BgL_odepthz00_7726;
{ /* Llib/thread.scm 425 */
 obj_t BgL_arg1947z00_7727;
BgL_arg1947z00_7727 = 
(BgL_oclassz00_7715); 
BgL_odepthz00_7726 = 
BGL_CLASS_DEPTH(BgL_arg1947z00_7727); } 
if(
(BgL_arg1954z00_7696<BgL_odepthz00_7726))
{ /* Llib/thread.scm 425 */
 obj_t BgL_arg1945z00_7731;
{ /* Llib/thread.scm 425 */
 obj_t BgL_arg1946z00_7732;
BgL_arg1946z00_7732 = 
(BgL_oclassz00_7715); 
BgL_arg1945z00_7731 = 
BGL_CLASS_ANCESTORS_REF(BgL_arg1946z00_7732, BgL_arg1954z00_7696); } 
BgL_res2066z00_7711 = 
(BgL_arg1945z00_7731==BgL_classz00_7693); }  else 
{ /* Llib/thread.scm 425 */
BgL_res2066z00_7711 = ((bool_t)0); } } } } 
BgL_test3838z00_12466 = BgL_res2066z00_7711; } }  else 
{ /* Llib/thread.scm 425 */
BgL_test3838z00_12466 = ((bool_t)0)
; } } 
if(BgL_test3838z00_12466)
{ /* Llib/thread.scm 425 */
BgL_auxz00_12465 = 
((BgL_threadz00_bglt)BgL_thz00_3784)
; }  else 
{ 
 obj_t BgL_auxz00_12491;
BgL_auxz00_12491 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2484z00zz__threadz00, 
BINT(18064L), BGl_string2853z00zz__threadz00, BGl_string2500z00zz__threadz00, BgL_thz00_3784); 
FAILURE(BgL_auxz00_12491,BFALSE,BFALSE);} } 
return 
BGl_threadzd2cleanupzd2zz__threadz00(BgL_auxz00_12465);} } 

}



/* thread-cleanup-set! */
BGL_EXPORTED_DEF obj_t BGl_threadzd2cleanupzd2setz12z12zz__threadz00(BgL_threadz00_bglt BgL_thz00_39, obj_t BgL_vz00_40)
{
{ /* Llib/thread.scm 430 */
{ /* Llib/thread.scm 430 */
 obj_t BgL_method1215z00_1665;
{ /* Llib/thread.scm 430 */
 obj_t BgL_res2038z00_2952;
{ /* Llib/thread.scm 430 */
 long BgL_objzd2classzd2numz00_2923;
BgL_objzd2classzd2numz00_2923 = 
BGL_OBJECT_CLASS_NUM(
((BgL_objectz00_bglt)BgL_thz00_39)); 
{ /* Llib/thread.scm 430 */
 obj_t BgL_arg1955z00_2924;
BgL_arg1955z00_2924 = 
PROCEDURE_REF(BGl_threadzd2cleanupzd2setz12zd2envzc0zz__threadz00, 
(int)(1L)); 
{ /* Llib/thread.scm 430 */
 int BgL_offsetz00_2927;
BgL_offsetz00_2927 = 
(int)(BgL_objzd2classzd2numz00_2923); 
{ /* Llib/thread.scm 430 */
 long BgL_offsetz00_2928;
BgL_offsetz00_2928 = 
(
(long)(BgL_offsetz00_2927)-OBJECT_TYPE); 
{ /* Llib/thread.scm 430 */
 long BgL_modz00_2929;
BgL_modz00_2929 = 
(BgL_offsetz00_2928 >> 
(int)(
(long)(
(int)(4L)))); 
{ /* Llib/thread.scm 430 */
 long BgL_restz00_2931;
BgL_restz00_2931 = 
(BgL_offsetz00_2928 & 
(long)(
(int)(
(
(long)(
(int)(
(1L << 
(int)(
(long)(
(int)(4L))))))-1L)))); 
{ /* Llib/thread.scm 430 */

{ /* Llib/thread.scm 430 */
 obj_t BgL_bucketz00_2933;
BgL_bucketz00_2933 = 
VECTOR_REF(
((obj_t)BgL_arg1955z00_2924),BgL_modz00_2929); 
BgL_res2038z00_2952 = 
VECTOR_REF(
((obj_t)BgL_bucketz00_2933),BgL_restz00_2931); } } } } } } } } 
BgL_method1215z00_1665 = BgL_res2038z00_2952; } 
if(
PROCEDURE_CORRECT_ARITYP(BgL_method1215z00_1665, 2))
{ /* Llib/thread.scm 430 */
return 
BGL_PROCEDURE_CALL2(BgL_method1215z00_1665, 
((obj_t)BgL_thz00_39), BgL_vz00_40);}  else 
{ /* Llib/thread.scm 430 */
FAILURE(BGl_string2854z00zz__threadz00,BGl_list2855z00zz__threadz00,BgL_method1215z00_1665);} } } 

}



/* &thread-cleanup-set! */
obj_t BGl_z62threadzd2cleanupzd2setz12z70zz__threadz00(obj_t BgL_envz00_3785, obj_t BgL_thz00_3786, obj_t BgL_vz00_3787)
{
{ /* Llib/thread.scm 430 */
{ /* Llib/thread.scm 430 */
 BgL_threadz00_bglt BgL_auxz00_12530;
{ /* Llib/thread.scm 430 */
 bool_t BgL_test3844z00_12531;
{ /* Llib/thread.scm 430 */
 obj_t BgL_classz00_7733;
BgL_classz00_7733 = BGl_threadz00zz__threadz00; 
if(
BGL_OBJECTP(BgL_thz00_3786))
{ /* Llib/thread.scm 430 */
 BgL_objectz00_bglt BgL_arg1953z00_7735; long BgL_arg1954z00_7736;
BgL_arg1953z00_7735 = 
(BgL_objectz00_bglt)(BgL_thz00_3786); 
BgL_arg1954z00_7736 = 
BGL_CLASS_DEPTH(BgL_classz00_7733); 
if(
BGL_CONDEXPAND_ISA_ARCH64())
{ /* Llib/thread.scm 430 */
 long BgL_idxz00_7744;
BgL_idxz00_7744 = 
BGL_OBJECT_INHERITANCE_NUM(BgL_arg1953z00_7735); 
{ /* Llib/thread.scm 430 */
 obj_t BgL_arg1943z00_7745;
{ /* Llib/thread.scm 430 */
 long BgL_arg1944z00_7746;
BgL_arg1944z00_7746 = 
(BgL_idxz00_7744+BgL_arg1954z00_7736); 
BgL_arg1943z00_7745 = 
VECTOR_REF(BGl_za2inheritancesza2z00zz__objectz00,BgL_arg1944z00_7746); } 
BgL_test3844z00_12531 = 
(BgL_arg1943z00_7745==BgL_classz00_7733); } }  else 
{ /* Llib/thread.scm 430 */
 bool_t BgL_res2066z00_7751;
{ /* Llib/thread.scm 430 */
 obj_t BgL_oclassz00_7755;
{ /* Llib/thread.scm 430 */
 obj_t BgL_arg1959z00_7757; long BgL_arg1960z00_7758;
BgL_arg1959z00_7757 = 
(BGl_za2classesza2z00zz__objectz00); 
{ /* Llib/thread.scm 430 */
 long BgL_arg1961z00_7759;
BgL_arg1961z00_7759 = 
BGL_OBJECT_CLASS_NUM(BgL_arg1953z00_7735); 
BgL_arg1960z00_7758 = 
(BgL_arg1961z00_7759-OBJECT_TYPE); } 
BgL_oclassz00_7755 = 
VECTOR_REF(BgL_arg1959z00_7757,BgL_arg1960z00_7758); } 
{ /* Llib/thread.scm 430 */
 bool_t BgL__ortest_1149z00_7765;
BgL__ortest_1149z00_7765 = 
(BgL_classz00_7733==BgL_oclassz00_7755); 
if(BgL__ortest_1149z00_7765)
{ /* Llib/thread.scm 430 */
BgL_res2066z00_7751 = BgL__ortest_1149z00_7765; }  else 
{ /* Llib/thread.scm 430 */
 long BgL_odepthz00_7766;
{ /* Llib/thread.scm 430 */
 obj_t BgL_arg1947z00_7767;
BgL_arg1947z00_7767 = 
(BgL_oclassz00_7755); 
BgL_odepthz00_7766 = 
BGL_CLASS_DEPTH(BgL_arg1947z00_7767); } 
if(
(BgL_arg1954z00_7736<BgL_odepthz00_7766))
{ /* Llib/thread.scm 430 */
 obj_t BgL_arg1945z00_7771;
{ /* Llib/thread.scm 430 */
 obj_t BgL_arg1946z00_7772;
BgL_arg1946z00_7772 = 
(BgL_oclassz00_7755); 
BgL_arg1945z00_7771 = 
BGL_CLASS_ANCESTORS_REF(BgL_arg1946z00_7772, BgL_arg1954z00_7736); } 
BgL_res2066z00_7751 = 
(BgL_arg1945z00_7771==BgL_classz00_7733); }  else 
{ /* Llib/thread.scm 430 */
BgL_res2066z00_7751 = ((bool_t)0); } } } } 
BgL_test3844z00_12531 = BgL_res2066z00_7751; } }  else 
{ /* Llib/thread.scm 430 */
BgL_test3844z00_12531 = ((bool_t)0)
; } } 
if(BgL_test3844z00_12531)
{ /* Llib/thread.scm 430 */
BgL_auxz00_12530 = 
((BgL_threadz00_bglt)BgL_thz00_3786)
; }  else 
{ 
 obj_t BgL_auxz00_12556;
BgL_auxz00_12556 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2484z00zz__threadz00, 
BINT(18332L), BGl_string2858z00zz__threadz00, BGl_string2500z00zz__threadz00, BgL_thz00_3786); 
FAILURE(BgL_auxz00_12556,BFALSE,BFALSE);} } 
return 
BGl_threadzd2cleanupzd2setz12z12zz__threadz00(BgL_auxz00_12530, BgL_vz00_3787);} } 

}



/* thread-name */
BGL_EXPORTED_DEF obj_t BGl_threadzd2namezd2zz__threadz00(BgL_threadz00_bglt BgL_thz00_41)
{
{ /* Llib/thread.scm 435 */
{ /* Llib/thread.scm 435 */
 obj_t BgL_method1217z00_1666;
{ /* Llib/thread.scm 435 */
 obj_t BgL_res2043z00_2983;
{ /* Llib/thread.scm 435 */
 long BgL_objzd2classzd2numz00_2954;
BgL_objzd2classzd2numz00_2954 = 
BGL_OBJECT_CLASS_NUM(
((BgL_objectz00_bglt)BgL_thz00_41)); 
{ /* Llib/thread.scm 435 */
 obj_t BgL_arg1955z00_2955;
BgL_arg1955z00_2955 = 
PROCEDURE_REF(BGl_threadzd2namezd2envz00zz__threadz00, 
(int)(1L)); 
{ /* Llib/thread.scm 435 */
 int BgL_offsetz00_2958;
BgL_offsetz00_2958 = 
(int)(BgL_objzd2classzd2numz00_2954); 
{ /* Llib/thread.scm 435 */
 long BgL_offsetz00_2959;
BgL_offsetz00_2959 = 
(
(long)(BgL_offsetz00_2958)-OBJECT_TYPE); 
{ /* Llib/thread.scm 435 */
 long BgL_modz00_2960;
BgL_modz00_2960 = 
(BgL_offsetz00_2959 >> 
(int)(
(long)(
(int)(4L)))); 
{ /* Llib/thread.scm 435 */
 long BgL_restz00_2962;
BgL_restz00_2962 = 
(BgL_offsetz00_2959 & 
(long)(
(int)(
(
(long)(
(int)(
(1L << 
(int)(
(long)(
(int)(4L))))))-1L)))); 
{ /* Llib/thread.scm 435 */

{ /* Llib/thread.scm 435 */
 obj_t BgL_bucketz00_2964;
BgL_bucketz00_2964 = 
VECTOR_REF(
((obj_t)BgL_arg1955z00_2955),BgL_modz00_2960); 
BgL_res2043z00_2983 = 
VECTOR_REF(
((obj_t)BgL_bucketz00_2964),BgL_restz00_2962); } } } } } } } } 
BgL_method1217z00_1666 = BgL_res2043z00_2983; } 
if(
PROCEDURE_CORRECT_ARITYP(BgL_method1217z00_1666, 1))
{ /* Llib/thread.scm 435 */
 obj_t BgL_aux2407z00_4367;
BgL_aux2407z00_4367 = 
BGL_PROCEDURE_CALL1(BgL_method1217z00_1666, 
((obj_t)BgL_thz00_41)); 
if(
STRINGP(BgL_aux2407z00_4367))
{ /* Llib/thread.scm 435 */
return BgL_aux2407z00_4367;}  else 
{ 
 obj_t BgL_auxz00_12595;
BgL_auxz00_12595 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2484z00zz__threadz00, 
BINT(18612L), BGl_string2859z00zz__threadz00, BGl_string2492z00zz__threadz00, BgL_aux2407z00_4367); 
FAILURE(BgL_auxz00_12595,BFALSE,BFALSE);} }  else 
{ /* Llib/thread.scm 435 */
FAILURE(BGl_string2860z00zz__threadz00,BGl_list2861z00zz__threadz00,BgL_method1217z00_1666);} } } 

}



/* &thread-name */
obj_t BGl_z62threadzd2namezb0zz__threadz00(obj_t BgL_envz00_3788, obj_t BgL_thz00_3789)
{
{ /* Llib/thread.scm 435 */
{ /* Llib/thread.scm 435 */
 BgL_threadz00_bglt BgL_auxz00_12600;
{ /* Llib/thread.scm 435 */
 bool_t BgL_test3851z00_12601;
{ /* Llib/thread.scm 435 */
 obj_t BgL_classz00_7773;
BgL_classz00_7773 = BGl_threadz00zz__threadz00; 
if(
BGL_OBJECTP(BgL_thz00_3789))
{ /* Llib/thread.scm 435 */
 BgL_objectz00_bglt BgL_arg1953z00_7775; long BgL_arg1954z00_7776;
BgL_arg1953z00_7775 = 
(BgL_objectz00_bglt)(BgL_thz00_3789); 
BgL_arg1954z00_7776 = 
BGL_CLASS_DEPTH(BgL_classz00_7773); 
if(
BGL_CONDEXPAND_ISA_ARCH64())
{ /* Llib/thread.scm 435 */
 long BgL_idxz00_7784;
BgL_idxz00_7784 = 
BGL_OBJECT_INHERITANCE_NUM(BgL_arg1953z00_7775); 
{ /* Llib/thread.scm 435 */
 obj_t BgL_arg1943z00_7785;
{ /* Llib/thread.scm 435 */
 long BgL_arg1944z00_7786;
BgL_arg1944z00_7786 = 
(BgL_idxz00_7784+BgL_arg1954z00_7776); 
BgL_arg1943z00_7785 = 
VECTOR_REF(BGl_za2inheritancesza2z00zz__objectz00,BgL_arg1944z00_7786); } 
BgL_test3851z00_12601 = 
(BgL_arg1943z00_7785==BgL_classz00_7773); } }  else 
{ /* Llib/thread.scm 435 */
 bool_t BgL_res2066z00_7791;
{ /* Llib/thread.scm 435 */
 obj_t BgL_oclassz00_7795;
{ /* Llib/thread.scm 435 */
 obj_t BgL_arg1959z00_7797; long BgL_arg1960z00_7798;
BgL_arg1959z00_7797 = 
(BGl_za2classesza2z00zz__objectz00); 
{ /* Llib/thread.scm 435 */
 long BgL_arg1961z00_7799;
BgL_arg1961z00_7799 = 
BGL_OBJECT_CLASS_NUM(BgL_arg1953z00_7775); 
BgL_arg1960z00_7798 = 
(BgL_arg1961z00_7799-OBJECT_TYPE); } 
BgL_oclassz00_7795 = 
VECTOR_REF(BgL_arg1959z00_7797,BgL_arg1960z00_7798); } 
{ /* Llib/thread.scm 435 */
 bool_t BgL__ortest_1149z00_7805;
BgL__ortest_1149z00_7805 = 
(BgL_classz00_7773==BgL_oclassz00_7795); 
if(BgL__ortest_1149z00_7805)
{ /* Llib/thread.scm 435 */
BgL_res2066z00_7791 = BgL__ortest_1149z00_7805; }  else 
{ /* Llib/thread.scm 435 */
 long BgL_odepthz00_7806;
{ /* Llib/thread.scm 435 */
 obj_t BgL_arg1947z00_7807;
BgL_arg1947z00_7807 = 
(BgL_oclassz00_7795); 
BgL_odepthz00_7806 = 
BGL_CLASS_DEPTH(BgL_arg1947z00_7807); } 
if(
(BgL_arg1954z00_7776<BgL_odepthz00_7806))
{ /* Llib/thread.scm 435 */
 obj_t BgL_arg1945z00_7811;
{ /* Llib/thread.scm 435 */
 obj_t BgL_arg1946z00_7812;
BgL_arg1946z00_7812 = 
(BgL_oclassz00_7795); 
BgL_arg1945z00_7811 = 
BGL_CLASS_ANCESTORS_REF(BgL_arg1946z00_7812, BgL_arg1954z00_7776); } 
BgL_res2066z00_7791 = 
(BgL_arg1945z00_7811==BgL_classz00_7773); }  else 
{ /* Llib/thread.scm 435 */
BgL_res2066z00_7791 = ((bool_t)0); } } } } 
BgL_test3851z00_12601 = BgL_res2066z00_7791; } }  else 
{ /* Llib/thread.scm 435 */
BgL_test3851z00_12601 = ((bool_t)0)
; } } 
if(BgL_test3851z00_12601)
{ /* Llib/thread.scm 435 */
BgL_auxz00_12600 = 
((BgL_threadz00_bglt)BgL_thz00_3789)
; }  else 
{ 
 obj_t BgL_auxz00_12626;
BgL_auxz00_12626 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2484z00zz__threadz00, 
BINT(18612L), BGl_string2864z00zz__threadz00, BGl_string2500z00zz__threadz00, BgL_thz00_3789); 
FAILURE(BgL_auxz00_12626,BFALSE,BFALSE);} } 
return 
BGl_threadzd2namezd2zz__threadz00(BgL_auxz00_12600);} } 

}



/* thread-name-set! */
BGL_EXPORTED_DEF obj_t BGl_threadzd2namezd2setz12z12zz__threadz00(BgL_threadz00_bglt BgL_thz00_42, obj_t BgL_vz00_43)
{
{ /* Llib/thread.scm 440 */
{ /* Llib/thread.scm 440 */
 obj_t BgL_method1219z00_1667;
{ /* Llib/thread.scm 440 */
 obj_t BgL_res2048z00_3014;
{ /* Llib/thread.scm 440 */
 long BgL_objzd2classzd2numz00_2985;
BgL_objzd2classzd2numz00_2985 = 
BGL_OBJECT_CLASS_NUM(
((BgL_objectz00_bglt)BgL_thz00_42)); 
{ /* Llib/thread.scm 440 */
 obj_t BgL_arg1955z00_2986;
BgL_arg1955z00_2986 = 
PROCEDURE_REF(BGl_threadzd2namezd2setz12zd2envzc0zz__threadz00, 
(int)(1L)); 
{ /* Llib/thread.scm 440 */
 int BgL_offsetz00_2989;
BgL_offsetz00_2989 = 
(int)(BgL_objzd2classzd2numz00_2985); 
{ /* Llib/thread.scm 440 */
 long BgL_offsetz00_2990;
BgL_offsetz00_2990 = 
(
(long)(BgL_offsetz00_2989)-OBJECT_TYPE); 
{ /* Llib/thread.scm 440 */
 long BgL_modz00_2991;
BgL_modz00_2991 = 
(BgL_offsetz00_2990 >> 
(int)(
(long)(
(int)(4L)))); 
{ /* Llib/thread.scm 440 */
 long BgL_restz00_2993;
BgL_restz00_2993 = 
(BgL_offsetz00_2990 & 
(long)(
(int)(
(
(long)(
(int)(
(1L << 
(int)(
(long)(
(int)(4L))))))-1L)))); 
{ /* Llib/thread.scm 440 */

{ /* Llib/thread.scm 440 */
 obj_t BgL_bucketz00_2995;
BgL_bucketz00_2995 = 
VECTOR_REF(
((obj_t)BgL_arg1955z00_2986),BgL_modz00_2991); 
BgL_res2048z00_3014 = 
VECTOR_REF(
((obj_t)BgL_bucketz00_2995),BgL_restz00_2993); } } } } } } } } 
BgL_method1219z00_1667 = BgL_res2048z00_3014; } 
if(
PROCEDURE_CORRECT_ARITYP(BgL_method1219z00_1667, 2))
{ /* Llib/thread.scm 440 */
return 
BGL_PROCEDURE_CALL2(BgL_method1219z00_1667, 
((obj_t)BgL_thz00_42), BgL_vz00_43);}  else 
{ /* Llib/thread.scm 440 */
FAILURE(BGl_string2865z00zz__threadz00,BGl_list2866z00zz__threadz00,BgL_method1219z00_1667);} } } 

}



/* &thread-name-set! */
obj_t BGl_z62threadzd2namezd2setz12z70zz__threadz00(obj_t BgL_envz00_3790, obj_t BgL_thz00_3791, obj_t BgL_vz00_3792)
{
{ /* Llib/thread.scm 440 */
{ /* Llib/thread.scm 440 */
 obj_t BgL_auxz00_12695; BgL_threadz00_bglt BgL_auxz00_12665;
if(
STRINGP(BgL_vz00_3792))
{ /* Llib/thread.scm 440 */
BgL_auxz00_12695 = BgL_vz00_3792
; }  else 
{ 
 obj_t BgL_auxz00_12698;
BgL_auxz00_12698 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2484z00zz__threadz00, 
BINT(18877L), BGl_string2869z00zz__threadz00, BGl_string2492z00zz__threadz00, BgL_vz00_3792); 
FAILURE(BgL_auxz00_12698,BFALSE,BFALSE);} 
{ /* Llib/thread.scm 440 */
 bool_t BgL_test3857z00_12666;
{ /* Llib/thread.scm 440 */
 obj_t BgL_classz00_7813;
BgL_classz00_7813 = BGl_threadz00zz__threadz00; 
if(
BGL_OBJECTP(BgL_thz00_3791))
{ /* Llib/thread.scm 440 */
 BgL_objectz00_bglt BgL_arg1953z00_7815; long BgL_arg1954z00_7816;
BgL_arg1953z00_7815 = 
(BgL_objectz00_bglt)(BgL_thz00_3791); 
BgL_arg1954z00_7816 = 
BGL_CLASS_DEPTH(BgL_classz00_7813); 
if(
BGL_CONDEXPAND_ISA_ARCH64())
{ /* Llib/thread.scm 440 */
 long BgL_idxz00_7824;
BgL_idxz00_7824 = 
BGL_OBJECT_INHERITANCE_NUM(BgL_arg1953z00_7815); 
{ /* Llib/thread.scm 440 */
 obj_t BgL_arg1943z00_7825;
{ /* Llib/thread.scm 440 */
 long BgL_arg1944z00_7826;
BgL_arg1944z00_7826 = 
(BgL_idxz00_7824+BgL_arg1954z00_7816); 
BgL_arg1943z00_7825 = 
VECTOR_REF(BGl_za2inheritancesza2z00zz__objectz00,BgL_arg1944z00_7826); } 
BgL_test3857z00_12666 = 
(BgL_arg1943z00_7825==BgL_classz00_7813); } }  else 
{ /* Llib/thread.scm 440 */
 bool_t BgL_res2066z00_7831;
{ /* Llib/thread.scm 440 */
 obj_t BgL_oclassz00_7835;
{ /* Llib/thread.scm 440 */
 obj_t BgL_arg1959z00_7837; long BgL_arg1960z00_7838;
BgL_arg1959z00_7837 = 
(BGl_za2classesza2z00zz__objectz00); 
{ /* Llib/thread.scm 440 */
 long BgL_arg1961z00_7839;
BgL_arg1961z00_7839 = 
BGL_OBJECT_CLASS_NUM(BgL_arg1953z00_7815); 
BgL_arg1960z00_7838 = 
(BgL_arg1961z00_7839-OBJECT_TYPE); } 
BgL_oclassz00_7835 = 
VECTOR_REF(BgL_arg1959z00_7837,BgL_arg1960z00_7838); } 
{ /* Llib/thread.scm 440 */
 bool_t BgL__ortest_1149z00_7845;
BgL__ortest_1149z00_7845 = 
(BgL_classz00_7813==BgL_oclassz00_7835); 
if(BgL__ortest_1149z00_7845)
{ /* Llib/thread.scm 440 */
BgL_res2066z00_7831 = BgL__ortest_1149z00_7845; }  else 
{ /* Llib/thread.scm 440 */
 long BgL_odepthz00_7846;
{ /* Llib/thread.scm 440 */
 obj_t BgL_arg1947z00_7847;
BgL_arg1947z00_7847 = 
(BgL_oclassz00_7835); 
BgL_odepthz00_7846 = 
BGL_CLASS_DEPTH(BgL_arg1947z00_7847); } 
if(
(BgL_arg1954z00_7816<BgL_odepthz00_7846))
{ /* Llib/thread.scm 440 */
 obj_t BgL_arg1945z00_7851;
{ /* Llib/thread.scm 440 */
 obj_t BgL_arg1946z00_7852;
BgL_arg1946z00_7852 = 
(BgL_oclassz00_7835); 
BgL_arg1945z00_7851 = 
BGL_CLASS_ANCESTORS_REF(BgL_arg1946z00_7852, BgL_arg1954z00_7816); } 
BgL_res2066z00_7831 = 
(BgL_arg1945z00_7851==BgL_classz00_7813); }  else 
{ /* Llib/thread.scm 440 */
BgL_res2066z00_7831 = ((bool_t)0); } } } } 
BgL_test3857z00_12666 = BgL_res2066z00_7831; } }  else 
{ /* Llib/thread.scm 440 */
BgL_test3857z00_12666 = ((bool_t)0)
; } } 
if(BgL_test3857z00_12666)
{ /* Llib/thread.scm 440 */
BgL_auxz00_12665 = 
((BgL_threadz00_bglt)BgL_thz00_3791)
; }  else 
{ 
 obj_t BgL_auxz00_12691;
BgL_auxz00_12691 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2484z00zz__threadz00, 
BINT(18877L), BGl_string2869z00zz__threadz00, BGl_string2500z00zz__threadz00, BgL_thz00_3791); 
FAILURE(BgL_auxz00_12691,BFALSE,BFALSE);} } 
return 
BGl_threadzd2namezd2setz12z12zz__threadz00(BgL_auxz00_12665, BgL_auxz00_12695);} } 

}



/* %user-current-thread */
BGL_EXPORTED_DEF obj_t BGl_z52userzd2currentzd2threadz52zz__threadz00(BgL_threadz00_bglt BgL_oz00_48)
{
{ /* Llib/thread.scm 451 */
{ /* Llib/thread.scm 451 */
 obj_t BgL_method1227z00_1668;
{ /* Llib/thread.scm 451 */
 obj_t BgL_res2053z00_3045;
{ /* Llib/thread.scm 451 */
 long BgL_objzd2classzd2numz00_3016;
BgL_objzd2classzd2numz00_3016 = 
BGL_OBJECT_CLASS_NUM(
((BgL_objectz00_bglt)BgL_oz00_48)); 
{ /* Llib/thread.scm 451 */
 obj_t BgL_arg1955z00_3017;
BgL_arg1955z00_3017 = 
PROCEDURE_REF(BGl_z52userzd2currentzd2threadzd2envz80zz__threadz00, 
(int)(1L)); 
{ /* Llib/thread.scm 451 */
 int BgL_offsetz00_3020;
BgL_offsetz00_3020 = 
(int)(BgL_objzd2classzd2numz00_3016); 
{ /* Llib/thread.scm 451 */
 long BgL_offsetz00_3021;
BgL_offsetz00_3021 = 
(
(long)(BgL_offsetz00_3020)-OBJECT_TYPE); 
{ /* Llib/thread.scm 451 */
 long BgL_modz00_3022;
BgL_modz00_3022 = 
(BgL_offsetz00_3021 >> 
(int)(
(long)(
(int)(4L)))); 
{ /* Llib/thread.scm 451 */
 long BgL_restz00_3024;
BgL_restz00_3024 = 
(BgL_offsetz00_3021 & 
(long)(
(int)(
(
(long)(
(int)(
(1L << 
(int)(
(long)(
(int)(4L))))))-1L)))); 
{ /* Llib/thread.scm 451 */

{ /* Llib/thread.scm 451 */
 obj_t BgL_bucketz00_3026;
BgL_bucketz00_3026 = 
VECTOR_REF(
((obj_t)BgL_arg1955z00_3017),BgL_modz00_3022); 
BgL_res2053z00_3045 = 
VECTOR_REF(
((obj_t)BgL_bucketz00_3026),BgL_restz00_3024); } } } } } } } } 
BgL_method1227z00_1668 = BgL_res2053z00_3045; } 
if(
PROCEDURE_CORRECT_ARITYP(BgL_method1227z00_1668, 1))
{ /* Llib/thread.scm 451 */
return 
BGL_PROCEDURE_CALL1(BgL_method1227z00_1668, 
((obj_t)BgL_oz00_48));}  else 
{ /* Llib/thread.scm 451 */
FAILURE(BGl_string2870z00zz__threadz00,BGl_list2871z00zz__threadz00,BgL_method1227z00_1668);} } } 

}



/* &%user-current-thread */
obj_t BGl_z62z52userzd2currentzd2threadz30zz__threadz00(obj_t BgL_envz00_3793, obj_t BgL_oz00_3794)
{
{ /* Llib/thread.scm 451 */
{ /* Llib/thread.scm 451 */
 BgL_threadz00_bglt BgL_auxz00_12736;
{ /* Llib/thread.scm 451 */
 bool_t BgL_test3864z00_12737;
{ /* Llib/thread.scm 451 */
 obj_t BgL_classz00_7853;
BgL_classz00_7853 = BGl_threadz00zz__threadz00; 
if(
BGL_OBJECTP(BgL_oz00_3794))
{ /* Llib/thread.scm 451 */
 BgL_objectz00_bglt BgL_arg1953z00_7855; long BgL_arg1954z00_7856;
BgL_arg1953z00_7855 = 
(BgL_objectz00_bglt)(BgL_oz00_3794); 
BgL_arg1954z00_7856 = 
BGL_CLASS_DEPTH(BgL_classz00_7853); 
if(
BGL_CONDEXPAND_ISA_ARCH64())
{ /* Llib/thread.scm 451 */
 long BgL_idxz00_7864;
BgL_idxz00_7864 = 
BGL_OBJECT_INHERITANCE_NUM(BgL_arg1953z00_7855); 
{ /* Llib/thread.scm 451 */
 obj_t BgL_arg1943z00_7865;
{ /* Llib/thread.scm 451 */
 long BgL_arg1944z00_7866;
BgL_arg1944z00_7866 = 
(BgL_idxz00_7864+BgL_arg1954z00_7856); 
BgL_arg1943z00_7865 = 
VECTOR_REF(BGl_za2inheritancesza2z00zz__objectz00,BgL_arg1944z00_7866); } 
BgL_test3864z00_12737 = 
(BgL_arg1943z00_7865==BgL_classz00_7853); } }  else 
{ /* Llib/thread.scm 451 */
 bool_t BgL_res2066z00_7871;
{ /* Llib/thread.scm 451 */
 obj_t BgL_oclassz00_7875;
{ /* Llib/thread.scm 451 */
 obj_t BgL_arg1959z00_7877; long BgL_arg1960z00_7878;
BgL_arg1959z00_7877 = 
(BGl_za2classesza2z00zz__objectz00); 
{ /* Llib/thread.scm 451 */
 long BgL_arg1961z00_7879;
BgL_arg1961z00_7879 = 
BGL_OBJECT_CLASS_NUM(BgL_arg1953z00_7855); 
BgL_arg1960z00_7878 = 
(BgL_arg1961z00_7879-OBJECT_TYPE); } 
BgL_oclassz00_7875 = 
VECTOR_REF(BgL_arg1959z00_7877,BgL_arg1960z00_7878); } 
{ /* Llib/thread.scm 451 */
 bool_t BgL__ortest_1149z00_7885;
BgL__ortest_1149z00_7885 = 
(BgL_classz00_7853==BgL_oclassz00_7875); 
if(BgL__ortest_1149z00_7885)
{ /* Llib/thread.scm 451 */
BgL_res2066z00_7871 = BgL__ortest_1149z00_7885; }  else 
{ /* Llib/thread.scm 451 */
 long BgL_odepthz00_7886;
{ /* Llib/thread.scm 451 */
 obj_t BgL_arg1947z00_7887;
BgL_arg1947z00_7887 = 
(BgL_oclassz00_7875); 
BgL_odepthz00_7886 = 
BGL_CLASS_DEPTH(BgL_arg1947z00_7887); } 
if(
(BgL_arg1954z00_7856<BgL_odepthz00_7886))
{ /* Llib/thread.scm 451 */
 obj_t BgL_arg1945z00_7891;
{ /* Llib/thread.scm 451 */
 obj_t BgL_arg1946z00_7892;
BgL_arg1946z00_7892 = 
(BgL_oclassz00_7875); 
BgL_arg1945z00_7891 = 
BGL_CLASS_ANCESTORS_REF(BgL_arg1946z00_7892, BgL_arg1954z00_7856); } 
BgL_res2066z00_7871 = 
(BgL_arg1945z00_7891==BgL_classz00_7853); }  else 
{ /* Llib/thread.scm 451 */
BgL_res2066z00_7871 = ((bool_t)0); } } } } 
BgL_test3864z00_12737 = BgL_res2066z00_7871; } }  else 
{ /* Llib/thread.scm 451 */
BgL_test3864z00_12737 = ((bool_t)0)
; } } 
if(BgL_test3864z00_12737)
{ /* Llib/thread.scm 451 */
BgL_auxz00_12736 = 
((BgL_threadz00_bglt)BgL_oz00_3794)
; }  else 
{ 
 obj_t BgL_auxz00_12762;
BgL_auxz00_12762 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2484z00zz__threadz00, 
BINT(19506L), BGl_string2876z00zz__threadz00, BGl_string2500z00zz__threadz00, BgL_oz00_3794); 
FAILURE(BgL_auxz00_12762,BFALSE,BFALSE);} } 
return 
BGl_z52userzd2currentzd2threadz52zz__threadz00(BgL_auxz00_12736);} } 

}



/* %user-thread-sleep! */
BGL_EXPORTED_DEF obj_t BGl_z52userzd2threadzd2sleepz12z40zz__threadz00(BgL_threadz00_bglt BgL_oz00_49, obj_t BgL_dz00_50)
{
{ /* Llib/thread.scm 473 */
{ /* Llib/thread.scm 473 */
 obj_t BgL_method1230z00_1669;
{ /* Llib/thread.scm 473 */
 obj_t BgL_res2058z00_3076;
{ /* Llib/thread.scm 473 */
 long BgL_objzd2classzd2numz00_3047;
BgL_objzd2classzd2numz00_3047 = 
BGL_OBJECT_CLASS_NUM(
((BgL_objectz00_bglt)BgL_oz00_49)); 
{ /* Llib/thread.scm 473 */
 obj_t BgL_arg1955z00_3048;
BgL_arg1955z00_3048 = 
PROCEDURE_REF(BGl_z52userzd2threadzd2sleepz12zd2envz92zz__threadz00, 
(int)(1L)); 
{ /* Llib/thread.scm 473 */
 int BgL_offsetz00_3051;
BgL_offsetz00_3051 = 
(int)(BgL_objzd2classzd2numz00_3047); 
{ /* Llib/thread.scm 473 */
 long BgL_offsetz00_3052;
BgL_offsetz00_3052 = 
(
(long)(BgL_offsetz00_3051)-OBJECT_TYPE); 
{ /* Llib/thread.scm 473 */
 long BgL_modz00_3053;
BgL_modz00_3053 = 
(BgL_offsetz00_3052 >> 
(int)(
(long)(
(int)(4L)))); 
{ /* Llib/thread.scm 473 */
 long BgL_restz00_3055;
BgL_restz00_3055 = 
(BgL_offsetz00_3052 & 
(long)(
(int)(
(
(long)(
(int)(
(1L << 
(int)(
(long)(
(int)(4L))))))-1L)))); 
{ /* Llib/thread.scm 473 */

{ /* Llib/thread.scm 473 */
 obj_t BgL_bucketz00_3057;
BgL_bucketz00_3057 = 
VECTOR_REF(
((obj_t)BgL_arg1955z00_3048),BgL_modz00_3053); 
BgL_res2058z00_3076 = 
VECTOR_REF(
((obj_t)BgL_bucketz00_3057),BgL_restz00_3055); } } } } } } } } 
BgL_method1230z00_1669 = BgL_res2058z00_3076; } 
if(
PROCEDURE_CORRECT_ARITYP(BgL_method1230z00_1669, 2))
{ /* Llib/thread.scm 473 */
return 
BGL_PROCEDURE_CALL2(BgL_method1230z00_1669, 
((obj_t)BgL_oz00_49), BgL_dz00_50);}  else 
{ /* Llib/thread.scm 473 */
FAILURE(BGl_string2877z00zz__threadz00,BGl_list2878z00zz__threadz00,BgL_method1230z00_1669);} } } 

}



/* &%user-thread-sleep! */
obj_t BGl_z62z52userzd2threadzd2sleepz12z22zz__threadz00(obj_t BgL_envz00_3795, obj_t BgL_oz00_3796, obj_t BgL_dz00_3797)
{
{ /* Llib/thread.scm 473 */
{ /* Llib/thread.scm 473 */
 BgL_threadz00_bglt BgL_auxz00_12801;
{ /* Llib/thread.scm 473 */
 bool_t BgL_test3870z00_12802;
{ /* Llib/thread.scm 473 */
 obj_t BgL_classz00_7893;
BgL_classz00_7893 = BGl_threadz00zz__threadz00; 
if(
BGL_OBJECTP(BgL_oz00_3796))
{ /* Llib/thread.scm 473 */
 BgL_objectz00_bglt BgL_arg1953z00_7895; long BgL_arg1954z00_7896;
BgL_arg1953z00_7895 = 
(BgL_objectz00_bglt)(BgL_oz00_3796); 
BgL_arg1954z00_7896 = 
BGL_CLASS_DEPTH(BgL_classz00_7893); 
if(
BGL_CONDEXPAND_ISA_ARCH64())
{ /* Llib/thread.scm 473 */
 long BgL_idxz00_7904;
BgL_idxz00_7904 = 
BGL_OBJECT_INHERITANCE_NUM(BgL_arg1953z00_7895); 
{ /* Llib/thread.scm 473 */
 obj_t BgL_arg1943z00_7905;
{ /* Llib/thread.scm 473 */
 long BgL_arg1944z00_7906;
BgL_arg1944z00_7906 = 
(BgL_idxz00_7904+BgL_arg1954z00_7896); 
BgL_arg1943z00_7905 = 
VECTOR_REF(BGl_za2inheritancesza2z00zz__objectz00,BgL_arg1944z00_7906); } 
BgL_test3870z00_12802 = 
(BgL_arg1943z00_7905==BgL_classz00_7893); } }  else 
{ /* Llib/thread.scm 473 */
 bool_t BgL_res2066z00_7911;
{ /* Llib/thread.scm 473 */
 obj_t BgL_oclassz00_7915;
{ /* Llib/thread.scm 473 */
 obj_t BgL_arg1959z00_7917; long BgL_arg1960z00_7918;
BgL_arg1959z00_7917 = 
(BGl_za2classesza2z00zz__objectz00); 
{ /* Llib/thread.scm 473 */
 long BgL_arg1961z00_7919;
BgL_arg1961z00_7919 = 
BGL_OBJECT_CLASS_NUM(BgL_arg1953z00_7895); 
BgL_arg1960z00_7918 = 
(BgL_arg1961z00_7919-OBJECT_TYPE); } 
BgL_oclassz00_7915 = 
VECTOR_REF(BgL_arg1959z00_7917,BgL_arg1960z00_7918); } 
{ /* Llib/thread.scm 473 */
 bool_t BgL__ortest_1149z00_7925;
BgL__ortest_1149z00_7925 = 
(BgL_classz00_7893==BgL_oclassz00_7915); 
if(BgL__ortest_1149z00_7925)
{ /* Llib/thread.scm 473 */
BgL_res2066z00_7911 = BgL__ortest_1149z00_7925; }  else 
{ /* Llib/thread.scm 473 */
 long BgL_odepthz00_7926;
{ /* Llib/thread.scm 473 */
 obj_t BgL_arg1947z00_7927;
BgL_arg1947z00_7927 = 
(BgL_oclassz00_7915); 
BgL_odepthz00_7926 = 
BGL_CLASS_DEPTH(BgL_arg1947z00_7927); } 
if(
(BgL_arg1954z00_7896<BgL_odepthz00_7926))
{ /* Llib/thread.scm 473 */
 obj_t BgL_arg1945z00_7931;
{ /* Llib/thread.scm 473 */
 obj_t BgL_arg1946z00_7932;
BgL_arg1946z00_7932 = 
(BgL_oclassz00_7915); 
BgL_arg1945z00_7931 = 
BGL_CLASS_ANCESTORS_REF(BgL_arg1946z00_7932, BgL_arg1954z00_7896); } 
BgL_res2066z00_7911 = 
(BgL_arg1945z00_7931==BgL_classz00_7893); }  else 
{ /* Llib/thread.scm 473 */
BgL_res2066z00_7911 = ((bool_t)0); } } } } 
BgL_test3870z00_12802 = BgL_res2066z00_7911; } }  else 
{ /* Llib/thread.scm 473 */
BgL_test3870z00_12802 = ((bool_t)0)
; } } 
if(BgL_test3870z00_12802)
{ /* Llib/thread.scm 473 */
BgL_auxz00_12801 = 
((BgL_threadz00_bglt)BgL_oz00_3796)
; }  else 
{ 
 obj_t BgL_auxz00_12827;
BgL_auxz00_12827 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2484z00zz__threadz00, 
BINT(20480L), BGl_string2883z00zz__threadz00, BGl_string2500z00zz__threadz00, BgL_oz00_3796); 
FAILURE(BgL_auxz00_12827,BFALSE,BFALSE);} } 
return 
BGl_z52userzd2threadzd2sleepz12z40zz__threadz00(BgL_auxz00_12801, BgL_dz00_3797);} } 

}



/* %user-thread-yield! */
BGL_EXPORTED_DEF obj_t BGl_z52userzd2threadzd2yieldz12z40zz__threadz00(BgL_threadz00_bglt BgL_oz00_52)
{
{ /* Llib/thread.scm 500 */
{ /* Llib/thread.scm 500 */
 obj_t BgL_method1232z00_1670;
{ /* Llib/thread.scm 500 */
 obj_t BgL_res2063z00_3107;
{ /* Llib/thread.scm 500 */
 long BgL_objzd2classzd2numz00_3078;
BgL_objzd2classzd2numz00_3078 = 
BGL_OBJECT_CLASS_NUM(
((BgL_objectz00_bglt)BgL_oz00_52)); 
{ /* Llib/thread.scm 500 */
 obj_t BgL_arg1955z00_3079;
BgL_arg1955z00_3079 = 
PROCEDURE_REF(BGl_z52userzd2threadzd2yieldz12zd2envz92zz__threadz00, 
(int)(1L)); 
{ /* Llib/thread.scm 500 */
 int BgL_offsetz00_3082;
BgL_offsetz00_3082 = 
(int)(BgL_objzd2classzd2numz00_3078); 
{ /* Llib/thread.scm 500 */
 long BgL_offsetz00_3083;
BgL_offsetz00_3083 = 
(
(long)(BgL_offsetz00_3082)-OBJECT_TYPE); 
{ /* Llib/thread.scm 500 */
 long BgL_modz00_3084;
BgL_modz00_3084 = 
(BgL_offsetz00_3083 >> 
(int)(
(long)(
(int)(4L)))); 
{ /* Llib/thread.scm 500 */
 long BgL_restz00_3086;
BgL_restz00_3086 = 
(BgL_offsetz00_3083 & 
(long)(
(int)(
(
(long)(
(int)(
(1L << 
(int)(
(long)(
(int)(4L))))))-1L)))); 
{ /* Llib/thread.scm 500 */

{ /* Llib/thread.scm 500 */
 obj_t BgL_bucketz00_3088;
BgL_bucketz00_3088 = 
VECTOR_REF(
((obj_t)BgL_arg1955z00_3079),BgL_modz00_3084); 
BgL_res2063z00_3107 = 
VECTOR_REF(
((obj_t)BgL_bucketz00_3088),BgL_restz00_3086); } } } } } } } } 
BgL_method1232z00_1670 = BgL_res2063z00_3107; } 
if(
PROCEDURE_CORRECT_ARITYP(BgL_method1232z00_1670, 1))
{ /* Llib/thread.scm 500 */
return 
BGL_PROCEDURE_CALL1(BgL_method1232z00_1670, 
((obj_t)BgL_oz00_52));}  else 
{ /* Llib/thread.scm 500 */
FAILURE(BGl_string2884z00zz__threadz00,BGl_list2885z00zz__threadz00,BgL_method1232z00_1670);} } } 

}



/* &%user-thread-yield! */
obj_t BGl_z62z52userzd2threadzd2yieldz12z22zz__threadz00(obj_t BgL_envz00_3798, obj_t BgL_oz00_3799)
{
{ /* Llib/thread.scm 500 */
{ /* Llib/thread.scm 500 */
 BgL_threadz00_bglt BgL_auxz00_12865;
{ /* Llib/thread.scm 500 */
 bool_t BgL_test3876z00_12866;
{ /* Llib/thread.scm 500 */
 obj_t BgL_classz00_7933;
BgL_classz00_7933 = BGl_threadz00zz__threadz00; 
if(
BGL_OBJECTP(BgL_oz00_3799))
{ /* Llib/thread.scm 500 */
 BgL_objectz00_bglt BgL_arg1953z00_7935; long BgL_arg1954z00_7936;
BgL_arg1953z00_7935 = 
(BgL_objectz00_bglt)(BgL_oz00_3799); 
BgL_arg1954z00_7936 = 
BGL_CLASS_DEPTH(BgL_classz00_7933); 
if(
BGL_CONDEXPAND_ISA_ARCH64())
{ /* Llib/thread.scm 500 */
 long BgL_idxz00_7944;
BgL_idxz00_7944 = 
BGL_OBJECT_INHERITANCE_NUM(BgL_arg1953z00_7935); 
{ /* Llib/thread.scm 500 */
 obj_t BgL_arg1943z00_7945;
{ /* Llib/thread.scm 500 */
 long BgL_arg1944z00_7946;
BgL_arg1944z00_7946 = 
(BgL_idxz00_7944+BgL_arg1954z00_7936); 
BgL_arg1943z00_7945 = 
VECTOR_REF(BGl_za2inheritancesza2z00zz__objectz00,BgL_arg1944z00_7946); } 
BgL_test3876z00_12866 = 
(BgL_arg1943z00_7945==BgL_classz00_7933); } }  else 
{ /* Llib/thread.scm 500 */
 bool_t BgL_res2066z00_7951;
{ /* Llib/thread.scm 500 */
 obj_t BgL_oclassz00_7955;
{ /* Llib/thread.scm 500 */
 obj_t BgL_arg1959z00_7957; long BgL_arg1960z00_7958;
BgL_arg1959z00_7957 = 
(BGl_za2classesza2z00zz__objectz00); 
{ /* Llib/thread.scm 500 */
 long BgL_arg1961z00_7959;
BgL_arg1961z00_7959 = 
BGL_OBJECT_CLASS_NUM(BgL_arg1953z00_7935); 
BgL_arg1960z00_7958 = 
(BgL_arg1961z00_7959-OBJECT_TYPE); } 
BgL_oclassz00_7955 = 
VECTOR_REF(BgL_arg1959z00_7957,BgL_arg1960z00_7958); } 
{ /* Llib/thread.scm 500 */
 bool_t BgL__ortest_1149z00_7965;
BgL__ortest_1149z00_7965 = 
(BgL_classz00_7933==BgL_oclassz00_7955); 
if(BgL__ortest_1149z00_7965)
{ /* Llib/thread.scm 500 */
BgL_res2066z00_7951 = BgL__ortest_1149z00_7965; }  else 
{ /* Llib/thread.scm 500 */
 long BgL_odepthz00_7966;
{ /* Llib/thread.scm 500 */
 obj_t BgL_arg1947z00_7967;
BgL_arg1947z00_7967 = 
(BgL_oclassz00_7955); 
BgL_odepthz00_7966 = 
BGL_CLASS_DEPTH(BgL_arg1947z00_7967); } 
if(
(BgL_arg1954z00_7936<BgL_odepthz00_7966))
{ /* Llib/thread.scm 500 */
 obj_t BgL_arg1945z00_7971;
{ /* Llib/thread.scm 500 */
 obj_t BgL_arg1946z00_7972;
BgL_arg1946z00_7972 = 
(BgL_oclassz00_7955); 
BgL_arg1945z00_7971 = 
BGL_CLASS_ANCESTORS_REF(BgL_arg1946z00_7972, BgL_arg1954z00_7936); } 
BgL_res2066z00_7951 = 
(BgL_arg1945z00_7971==BgL_classz00_7933); }  else 
{ /* Llib/thread.scm 500 */
BgL_res2066z00_7951 = ((bool_t)0); } } } } 
BgL_test3876z00_12866 = BgL_res2066z00_7951; } }  else 
{ /* Llib/thread.scm 500 */
BgL_test3876z00_12866 = ((bool_t)0)
; } } 
if(BgL_test3876z00_12866)
{ /* Llib/thread.scm 500 */
BgL_auxz00_12865 = 
((BgL_threadz00_bglt)BgL_oz00_3799)
; }  else 
{ 
 obj_t BgL_auxz00_12891;
BgL_auxz00_12891 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2484z00zz__threadz00, 
BINT(21576L), BGl_string2888z00zz__threadz00, BGl_string2500z00zz__threadz00, BgL_oz00_3799); 
FAILURE(BgL_auxz00_12891,BFALSE,BFALSE);} } 
return 
BGl_z52userzd2threadzd2yieldz12z40zz__threadz00(BgL_auxz00_12865);} } 

}



/* method-init */
obj_t BGl_methodzd2initzd2zz__threadz00(void)
{
{ /* Llib/thread.scm 17 */
BGl_genericzd2addzd2methodz12z12zz__objectz00(BGl_tbzd2makezd2threadzd2envzd2zz__threadz00, BGl_nothreadzd2backendzd2zz__threadz00, BGl_proc2889z00zz__threadz00, BGl_string2745z00zz__threadz00); 
BGl_genericzd2addzd2methodz12z12zz__objectz00(BGl_tbzd2currentzd2threadzd2envzd2zz__threadz00, BGl_nothreadzd2backendzd2zz__threadz00, BGl_proc2890z00zz__threadz00, BGl_string2891z00zz__threadz00); 
BGl_genericzd2addzd2methodz12z12zz__objectz00(BGl_objectzd2displayzd2envz00zz__objectz00, BGl_threadz00zz__threadz00, BGl_proc2892z00zz__threadz00, BGl_string2893z00zz__threadz00); 
BGl_genericzd2addzd2methodz12z12zz__objectz00(BGl_objectzd2writezd2envz00zz__objectz00, BGl_threadz00zz__threadz00, BGl_proc2894z00zz__threadz00, BGl_string2895z00zz__threadz00); 
BGl_genericzd2addzd2methodz12z12zz__objectz00(BGl_objectzd2printzd2envz00zz__objectz00, BGl_threadz00zz__threadz00, BGl_proc2896z00zz__threadz00, BGl_string2897z00zz__threadz00); 
BGl_genericzd2addzd2methodz12z12zz__objectz00(BGl_threadzd2startz12zd2envz12zz__threadz00, BGl_nothreadz00zz__threadz00, BGl_proc2898z00zz__threadz00, BGl_string2778z00zz__threadz00); 
BGl_genericzd2addzd2methodz12z12zz__objectz00(BGl_threadzd2startzd2joinablez12zd2envzc0zz__threadz00, BGl_nothreadz00zz__threadz00, BGl_proc2899z00zz__threadz00, BGl_string2900z00zz__threadz00); 
BGl_genericzd2addzd2methodz12z12zz__objectz00(BGl_threadzd2joinz12zd2envz12zz__threadz00, BGl_nothreadz00zz__threadz00, BGl_proc2901z00zz__threadz00, BGl_string2810z00zz__threadz00); 
BGl_genericzd2addzd2methodz12z12zz__objectz00(BGl_threadzd2terminatez12zd2envz12zz__threadz00, BGl_nothreadz00zz__threadz00, BGl_proc2902z00zz__threadz00, BGl_string2903z00zz__threadz00); 
BGl_genericzd2addzd2methodz12z12zz__objectz00(BGl_threadzd2killz12zd2envz12zz__threadz00, BGl_nothreadz00zz__threadz00, BGl_proc2904z00zz__threadz00, BGl_string2905z00zz__threadz00); 
BGl_genericzd2addzd2methodz12z12zz__objectz00(BGl_threadzd2specificzd2envz00zz__threadz00, BGl_nothreadz00zz__threadz00, BGl_proc2906z00zz__threadz00, BGl_string2907z00zz__threadz00); 
BGl_genericzd2addzd2methodz12z12zz__objectz00(BGl_threadzd2specificzd2setz12zd2envzc0zz__threadz00, BGl_nothreadz00zz__threadz00, BGl_proc2908z00zz__threadz00, BGl_string2909z00zz__threadz00); 
BGl_genericzd2addzd2methodz12z12zz__objectz00(BGl_threadzd2cleanupzd2envz00zz__threadz00, BGl_nothreadz00zz__threadz00, BGl_proc2910z00zz__threadz00, BGl_string2911z00zz__threadz00); 
BGl_genericzd2addzd2methodz12z12zz__objectz00(BGl_threadzd2cleanupzd2setz12zd2envzc0zz__threadz00, BGl_nothreadz00zz__threadz00, BGl_proc2912z00zz__threadz00, BGl_string2913z00zz__threadz00); 
BGl_genericzd2addzd2methodz12z12zz__objectz00(BGl_threadzd2namezd2envz00zz__threadz00, BGl_nothreadz00zz__threadz00, BGl_proc2914z00zz__threadz00, BGl_string2859z00zz__threadz00); 
return 
BGl_genericzd2addzd2methodz12z12zz__objectz00(BGl_threadzd2namezd2setz12zd2envzc0zz__threadz00, BGl_nothreadz00zz__threadz00, BGl_proc2915z00zz__threadz00, BGl_string2916z00zz__threadz00);} 

}



/* &thread-name-set!-not1254 */
obj_t BGl_z62threadzd2namezd2setz12zd2not1254za2zz__threadz00(obj_t BgL_envz00_3819, obj_t BgL_thz00_3820, obj_t BgL_vz00_3821)
{
{ /* Llib/thread.scm 608 */
{ /* Llib/thread.scm 609 */
 BgL_nothreadz00_bglt BgL_thz00_8013;
{ /* Llib/thread.scm 609 */
 bool_t BgL_test3881z00_12912;
{ /* Llib/thread.scm 609 */
 obj_t BgL_classz00_7973;
BgL_classz00_7973 = BGl_nothreadz00zz__threadz00; 
if(
BGL_OBJECTP(BgL_thz00_3820))
{ /* Llib/thread.scm 609 */
 BgL_objectz00_bglt BgL_arg1953z00_7975; long BgL_arg1954z00_7976;
BgL_arg1953z00_7975 = 
(BgL_objectz00_bglt)(BgL_thz00_3820); 
BgL_arg1954z00_7976 = 
BGL_CLASS_DEPTH(BgL_classz00_7973); 
if(
BGL_CONDEXPAND_ISA_ARCH64())
{ /* Llib/thread.scm 609 */
 long BgL_idxz00_7984;
BgL_idxz00_7984 = 
BGL_OBJECT_INHERITANCE_NUM(BgL_arg1953z00_7975); 
{ /* Llib/thread.scm 609 */
 obj_t BgL_arg1943z00_7985;
{ /* Llib/thread.scm 609 */
 long BgL_arg1944z00_7986;
BgL_arg1944z00_7986 = 
(BgL_idxz00_7984+BgL_arg1954z00_7976); 
BgL_arg1943z00_7985 = 
VECTOR_REF(BGl_za2inheritancesza2z00zz__objectz00,BgL_arg1944z00_7986); } 
BgL_test3881z00_12912 = 
(BgL_arg1943z00_7985==BgL_classz00_7973); } }  else 
{ /* Llib/thread.scm 609 */
 bool_t BgL_res2066z00_7991;
{ /* Llib/thread.scm 609 */
 obj_t BgL_oclassz00_7995;
{ /* Llib/thread.scm 609 */
 obj_t BgL_arg1959z00_7997; long BgL_arg1960z00_7998;
BgL_arg1959z00_7997 = 
(BGl_za2classesza2z00zz__objectz00); 
{ /* Llib/thread.scm 609 */
 long BgL_arg1961z00_7999;
BgL_arg1961z00_7999 = 
BGL_OBJECT_CLASS_NUM(BgL_arg1953z00_7975); 
BgL_arg1960z00_7998 = 
(BgL_arg1961z00_7999-OBJECT_TYPE); } 
BgL_oclassz00_7995 = 
VECTOR_REF(BgL_arg1959z00_7997,BgL_arg1960z00_7998); } 
{ /* Llib/thread.scm 609 */
 bool_t BgL__ortest_1149z00_8005;
BgL__ortest_1149z00_8005 = 
(BgL_classz00_7973==BgL_oclassz00_7995); 
if(BgL__ortest_1149z00_8005)
{ /* Llib/thread.scm 609 */
BgL_res2066z00_7991 = BgL__ortest_1149z00_8005; }  else 
{ /* Llib/thread.scm 609 */
 long BgL_odepthz00_8006;
{ /* Llib/thread.scm 609 */
 obj_t BgL_arg1947z00_8007;
BgL_arg1947z00_8007 = 
(BgL_oclassz00_7995); 
BgL_odepthz00_8006 = 
BGL_CLASS_DEPTH(BgL_arg1947z00_8007); } 
if(
(BgL_arg1954z00_7976<BgL_odepthz00_8006))
{ /* Llib/thread.scm 609 */
 obj_t BgL_arg1945z00_8011;
{ /* Llib/thread.scm 609 */
 obj_t BgL_arg1946z00_8012;
BgL_arg1946z00_8012 = 
(BgL_oclassz00_7995); 
BgL_arg1945z00_8011 = 
BGL_CLASS_ANCESTORS_REF(BgL_arg1946z00_8012, BgL_arg1954z00_7976); } 
BgL_res2066z00_7991 = 
(BgL_arg1945z00_8011==BgL_classz00_7973); }  else 
{ /* Llib/thread.scm 609 */
BgL_res2066z00_7991 = ((bool_t)0); } } } } 
BgL_test3881z00_12912 = BgL_res2066z00_7991; } }  else 
{ /* Llib/thread.scm 609 */
BgL_test3881z00_12912 = ((bool_t)0)
; } } 
if(BgL_test3881z00_12912)
{ /* Llib/thread.scm 609 */
BgL_thz00_8013 = 
((BgL_nothreadz00_bglt)BgL_thz00_3820); }  else 
{ 
 obj_t BgL_auxz00_12937;
BgL_auxz00_12937 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2484z00zz__threadz00, 
BINT(26595L), BGl_string2918z00zz__threadz00, BGl_string2483z00zz__threadz00, BgL_thz00_3820); 
FAILURE(BgL_auxz00_12937,BFALSE,BFALSE);} } 
{ 
 obj_t BgL_auxz00_12941;
if(
STRINGP(BgL_vz00_3821))
{ /* Llib/thread.scm 609 */
BgL_auxz00_12941 = BgL_vz00_3821
; }  else 
{ 
 obj_t BgL_auxz00_12944;
BgL_auxz00_12944 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2484z00zz__threadz00, 
BINT(26629L), BGl_string2917z00zz__threadz00, BGl_string2492z00zz__threadz00, BgL_vz00_3821); 
FAILURE(BgL_auxz00_12944,BFALSE,BFALSE);} 
return 
((((BgL_nothreadz00_bglt)COBJECT(BgL_thz00_8013))->BgL_z52namez52)=((obj_t)BgL_auxz00_12941),BUNSPEC);} } } 

}



/* &thread-name-nothread1252 */
obj_t BGl_z62threadzd2namezd2nothread1252z62zz__threadz00(obj_t BgL_envz00_3822, obj_t BgL_thz00_3823)
{
{ /* Llib/thread.scm 602 */
{ /* Llib/thread.scm 603 */
 BgL_nothreadz00_bglt BgL_thz00_8054;
{ /* Llib/thread.scm 603 */
 bool_t BgL_test3887z00_12949;
{ /* Llib/thread.scm 603 */
 obj_t BgL_classz00_8014;
BgL_classz00_8014 = BGl_nothreadz00zz__threadz00; 
if(
BGL_OBJECTP(BgL_thz00_3823))
{ /* Llib/thread.scm 603 */
 BgL_objectz00_bglt BgL_arg1953z00_8016; long BgL_arg1954z00_8017;
BgL_arg1953z00_8016 = 
(BgL_objectz00_bglt)(BgL_thz00_3823); 
BgL_arg1954z00_8017 = 
BGL_CLASS_DEPTH(BgL_classz00_8014); 
if(
BGL_CONDEXPAND_ISA_ARCH64())
{ /* Llib/thread.scm 603 */
 long BgL_idxz00_8025;
BgL_idxz00_8025 = 
BGL_OBJECT_INHERITANCE_NUM(BgL_arg1953z00_8016); 
{ /* Llib/thread.scm 603 */
 obj_t BgL_arg1943z00_8026;
{ /* Llib/thread.scm 603 */
 long BgL_arg1944z00_8027;
BgL_arg1944z00_8027 = 
(BgL_idxz00_8025+BgL_arg1954z00_8017); 
BgL_arg1943z00_8026 = 
VECTOR_REF(BGl_za2inheritancesza2z00zz__objectz00,BgL_arg1944z00_8027); } 
BgL_test3887z00_12949 = 
(BgL_arg1943z00_8026==BgL_classz00_8014); } }  else 
{ /* Llib/thread.scm 603 */
 bool_t BgL_res2066z00_8032;
{ /* Llib/thread.scm 603 */
 obj_t BgL_oclassz00_8036;
{ /* Llib/thread.scm 603 */
 obj_t BgL_arg1959z00_8038; long BgL_arg1960z00_8039;
BgL_arg1959z00_8038 = 
(BGl_za2classesza2z00zz__objectz00); 
{ /* Llib/thread.scm 603 */
 long BgL_arg1961z00_8040;
BgL_arg1961z00_8040 = 
BGL_OBJECT_CLASS_NUM(BgL_arg1953z00_8016); 
BgL_arg1960z00_8039 = 
(BgL_arg1961z00_8040-OBJECT_TYPE); } 
BgL_oclassz00_8036 = 
VECTOR_REF(BgL_arg1959z00_8038,BgL_arg1960z00_8039); } 
{ /* Llib/thread.scm 603 */
 bool_t BgL__ortest_1149z00_8046;
BgL__ortest_1149z00_8046 = 
(BgL_classz00_8014==BgL_oclassz00_8036); 
if(BgL__ortest_1149z00_8046)
{ /* Llib/thread.scm 603 */
BgL_res2066z00_8032 = BgL__ortest_1149z00_8046; }  else 
{ /* Llib/thread.scm 603 */
 long BgL_odepthz00_8047;
{ /* Llib/thread.scm 603 */
 obj_t BgL_arg1947z00_8048;
BgL_arg1947z00_8048 = 
(BgL_oclassz00_8036); 
BgL_odepthz00_8047 = 
BGL_CLASS_DEPTH(BgL_arg1947z00_8048); } 
if(
(BgL_arg1954z00_8017<BgL_odepthz00_8047))
{ /* Llib/thread.scm 603 */
 obj_t BgL_arg1945z00_8052;
{ /* Llib/thread.scm 603 */
 obj_t BgL_arg1946z00_8053;
BgL_arg1946z00_8053 = 
(BgL_oclassz00_8036); 
BgL_arg1945z00_8052 = 
BGL_CLASS_ANCESTORS_REF(BgL_arg1946z00_8053, BgL_arg1954z00_8017); } 
BgL_res2066z00_8032 = 
(BgL_arg1945z00_8052==BgL_classz00_8014); }  else 
{ /* Llib/thread.scm 603 */
BgL_res2066z00_8032 = ((bool_t)0); } } } } 
BgL_test3887z00_12949 = BgL_res2066z00_8032; } }  else 
{ /* Llib/thread.scm 603 */
BgL_test3887z00_12949 = ((bool_t)0)
; } } 
if(BgL_test3887z00_12949)
{ /* Llib/thread.scm 603 */
BgL_thz00_8054 = 
((BgL_nothreadz00_bglt)BgL_thz00_3823); }  else 
{ 
 obj_t BgL_auxz00_12974;
BgL_auxz00_12974 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2484z00zz__threadz00, 
BINT(26278L), BGl_string2919z00zz__threadz00, BGl_string2483z00zz__threadz00, BgL_thz00_3823); 
FAILURE(BgL_auxz00_12974,BFALSE,BFALSE);} } 
return 
(((BgL_nothreadz00_bglt)COBJECT(BgL_thz00_8054))->BgL_z52namez52);} } 

}



/* &thread-cleanup-set!-1250 */
obj_t BGl_z62threadzd2cleanupzd2setz12zd21250za2zz__threadz00(obj_t BgL_envz00_3824, obj_t BgL_thz00_3825, obj_t BgL_vz00_3826)
{
{ /* Llib/thread.scm 596 */
{ /* Llib/thread.scm 597 */
 BgL_nothreadz00_bglt BgL_thz00_8095;
{ /* Llib/thread.scm 597 */
 bool_t BgL_test3892z00_12979;
{ /* Llib/thread.scm 597 */
 obj_t BgL_classz00_8055;
BgL_classz00_8055 = BGl_nothreadz00zz__threadz00; 
if(
BGL_OBJECTP(BgL_thz00_3825))
{ /* Llib/thread.scm 597 */
 BgL_objectz00_bglt BgL_arg1953z00_8057; long BgL_arg1954z00_8058;
BgL_arg1953z00_8057 = 
(BgL_objectz00_bglt)(BgL_thz00_3825); 
BgL_arg1954z00_8058 = 
BGL_CLASS_DEPTH(BgL_classz00_8055); 
if(
BGL_CONDEXPAND_ISA_ARCH64())
{ /* Llib/thread.scm 597 */
 long BgL_idxz00_8066;
BgL_idxz00_8066 = 
BGL_OBJECT_INHERITANCE_NUM(BgL_arg1953z00_8057); 
{ /* Llib/thread.scm 597 */
 obj_t BgL_arg1943z00_8067;
{ /* Llib/thread.scm 597 */
 long BgL_arg1944z00_8068;
BgL_arg1944z00_8068 = 
(BgL_idxz00_8066+BgL_arg1954z00_8058); 
BgL_arg1943z00_8067 = 
VECTOR_REF(BGl_za2inheritancesza2z00zz__objectz00,BgL_arg1944z00_8068); } 
BgL_test3892z00_12979 = 
(BgL_arg1943z00_8067==BgL_classz00_8055); } }  else 
{ /* Llib/thread.scm 597 */
 bool_t BgL_res2066z00_8073;
{ /* Llib/thread.scm 597 */
 obj_t BgL_oclassz00_8077;
{ /* Llib/thread.scm 597 */
 obj_t BgL_arg1959z00_8079; long BgL_arg1960z00_8080;
BgL_arg1959z00_8079 = 
(BGl_za2classesza2z00zz__objectz00); 
{ /* Llib/thread.scm 597 */
 long BgL_arg1961z00_8081;
BgL_arg1961z00_8081 = 
BGL_OBJECT_CLASS_NUM(BgL_arg1953z00_8057); 
BgL_arg1960z00_8080 = 
(BgL_arg1961z00_8081-OBJECT_TYPE); } 
BgL_oclassz00_8077 = 
VECTOR_REF(BgL_arg1959z00_8079,BgL_arg1960z00_8080); } 
{ /* Llib/thread.scm 597 */
 bool_t BgL__ortest_1149z00_8087;
BgL__ortest_1149z00_8087 = 
(BgL_classz00_8055==BgL_oclassz00_8077); 
if(BgL__ortest_1149z00_8087)
{ /* Llib/thread.scm 597 */
BgL_res2066z00_8073 = BgL__ortest_1149z00_8087; }  else 
{ /* Llib/thread.scm 597 */
 long BgL_odepthz00_8088;
{ /* Llib/thread.scm 597 */
 obj_t BgL_arg1947z00_8089;
BgL_arg1947z00_8089 = 
(BgL_oclassz00_8077); 
BgL_odepthz00_8088 = 
BGL_CLASS_DEPTH(BgL_arg1947z00_8089); } 
if(
(BgL_arg1954z00_8058<BgL_odepthz00_8088))
{ /* Llib/thread.scm 597 */
 obj_t BgL_arg1945z00_8093;
{ /* Llib/thread.scm 597 */
 obj_t BgL_arg1946z00_8094;
BgL_arg1946z00_8094 = 
(BgL_oclassz00_8077); 
BgL_arg1945z00_8093 = 
BGL_CLASS_ANCESTORS_REF(BgL_arg1946z00_8094, BgL_arg1954z00_8058); } 
BgL_res2066z00_8073 = 
(BgL_arg1945z00_8093==BgL_classz00_8055); }  else 
{ /* Llib/thread.scm 597 */
BgL_res2066z00_8073 = ((bool_t)0); } } } } 
BgL_test3892z00_12979 = BgL_res2066z00_8073; } }  else 
{ /* Llib/thread.scm 597 */
BgL_test3892z00_12979 = ((bool_t)0)
; } } 
if(BgL_test3892z00_12979)
{ /* Llib/thread.scm 597 */
BgL_thz00_8095 = 
((BgL_nothreadz00_bglt)BgL_thz00_3825); }  else 
{ 
 obj_t BgL_auxz00_13004;
BgL_auxz00_13004 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2484z00zz__threadz00, 
BINT(25953L), BGl_string2920z00zz__threadz00, BGl_string2483z00zz__threadz00, BgL_thz00_3825); 
FAILURE(BgL_auxz00_13004,BFALSE,BFALSE);} } 
return 
((((BgL_nothreadz00_bglt)COBJECT(BgL_thz00_8095))->BgL_z52cleanupz52)=((obj_t)BgL_vz00_3826),BUNSPEC);} } 

}



/* &thread-cleanup-nothr1248 */
obj_t BGl_z62threadzd2cleanupzd2nothr1248z62zz__threadz00(obj_t BgL_envz00_3827, obj_t BgL_thz00_3828)
{
{ /* Llib/thread.scm 590 */
{ /* Llib/thread.scm 591 */
 BgL_nothreadz00_bglt BgL_thz00_8136;
{ /* Llib/thread.scm 591 */
 bool_t BgL_test3897z00_13009;
{ /* Llib/thread.scm 591 */
 obj_t BgL_classz00_8096;
BgL_classz00_8096 = BGl_nothreadz00zz__threadz00; 
if(
BGL_OBJECTP(BgL_thz00_3828))
{ /* Llib/thread.scm 591 */
 BgL_objectz00_bglt BgL_arg1953z00_8098; long BgL_arg1954z00_8099;
BgL_arg1953z00_8098 = 
(BgL_objectz00_bglt)(BgL_thz00_3828); 
BgL_arg1954z00_8099 = 
BGL_CLASS_DEPTH(BgL_classz00_8096); 
if(
BGL_CONDEXPAND_ISA_ARCH64())
{ /* Llib/thread.scm 591 */
 long BgL_idxz00_8107;
BgL_idxz00_8107 = 
BGL_OBJECT_INHERITANCE_NUM(BgL_arg1953z00_8098); 
{ /* Llib/thread.scm 591 */
 obj_t BgL_arg1943z00_8108;
{ /* Llib/thread.scm 591 */
 long BgL_arg1944z00_8109;
BgL_arg1944z00_8109 = 
(BgL_idxz00_8107+BgL_arg1954z00_8099); 
BgL_arg1943z00_8108 = 
VECTOR_REF(BGl_za2inheritancesza2z00zz__objectz00,BgL_arg1944z00_8109); } 
BgL_test3897z00_13009 = 
(BgL_arg1943z00_8108==BgL_classz00_8096); } }  else 
{ /* Llib/thread.scm 591 */
 bool_t BgL_res2066z00_8114;
{ /* Llib/thread.scm 591 */
 obj_t BgL_oclassz00_8118;
{ /* Llib/thread.scm 591 */
 obj_t BgL_arg1959z00_8120; long BgL_arg1960z00_8121;
BgL_arg1959z00_8120 = 
(BGl_za2classesza2z00zz__objectz00); 
{ /* Llib/thread.scm 591 */
 long BgL_arg1961z00_8122;
BgL_arg1961z00_8122 = 
BGL_OBJECT_CLASS_NUM(BgL_arg1953z00_8098); 
BgL_arg1960z00_8121 = 
(BgL_arg1961z00_8122-OBJECT_TYPE); } 
BgL_oclassz00_8118 = 
VECTOR_REF(BgL_arg1959z00_8120,BgL_arg1960z00_8121); } 
{ /* Llib/thread.scm 591 */
 bool_t BgL__ortest_1149z00_8128;
BgL__ortest_1149z00_8128 = 
(BgL_classz00_8096==BgL_oclassz00_8118); 
if(BgL__ortest_1149z00_8128)
{ /* Llib/thread.scm 591 */
BgL_res2066z00_8114 = BgL__ortest_1149z00_8128; }  else 
{ /* Llib/thread.scm 591 */
 long BgL_odepthz00_8129;
{ /* Llib/thread.scm 591 */
 obj_t BgL_arg1947z00_8130;
BgL_arg1947z00_8130 = 
(BgL_oclassz00_8118); 
BgL_odepthz00_8129 = 
BGL_CLASS_DEPTH(BgL_arg1947z00_8130); } 
if(
(BgL_arg1954z00_8099<BgL_odepthz00_8129))
{ /* Llib/thread.scm 591 */
 obj_t BgL_arg1945z00_8134;
{ /* Llib/thread.scm 591 */
 obj_t BgL_arg1946z00_8135;
BgL_arg1946z00_8135 = 
(BgL_oclassz00_8118); 
BgL_arg1945z00_8134 = 
BGL_CLASS_ANCESTORS_REF(BgL_arg1946z00_8135, BgL_arg1954z00_8099); } 
BgL_res2066z00_8114 = 
(BgL_arg1945z00_8134==BgL_classz00_8096); }  else 
{ /* Llib/thread.scm 591 */
BgL_res2066z00_8114 = ((bool_t)0); } } } } 
BgL_test3897z00_13009 = BgL_res2066z00_8114; } }  else 
{ /* Llib/thread.scm 591 */
BgL_test3897z00_13009 = ((bool_t)0)
; } } 
if(BgL_test3897z00_13009)
{ /* Llib/thread.scm 591 */
BgL_thz00_8136 = 
((BgL_nothreadz00_bglt)BgL_thz00_3828); }  else 
{ 
 obj_t BgL_auxz00_13034;
BgL_auxz00_13034 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2484z00zz__threadz00, 
BINT(25627L), BGl_string2921z00zz__threadz00, BGl_string2483z00zz__threadz00, BgL_thz00_3828); 
FAILURE(BgL_auxz00_13034,BFALSE,BFALSE);} } 
return 
(((BgL_nothreadz00_bglt)COBJECT(BgL_thz00_8136))->BgL_z52cleanupz52);} } 

}



/* &thread-specific-set!1246 */
obj_t BGl_z62threadzd2specificzd2setz121246z70zz__threadz00(obj_t BgL_envz00_3829, obj_t BgL_thz00_3830, obj_t BgL_vz00_3831)
{
{ /* Llib/thread.scm 584 */
{ /* Llib/thread.scm 585 */
 BgL_nothreadz00_bglt BgL_thz00_8177;
{ /* Llib/thread.scm 585 */
 bool_t BgL_test3902z00_13039;
{ /* Llib/thread.scm 585 */
 obj_t BgL_classz00_8137;
BgL_classz00_8137 = BGl_nothreadz00zz__threadz00; 
if(
BGL_OBJECTP(BgL_thz00_3830))
{ /* Llib/thread.scm 585 */
 BgL_objectz00_bglt BgL_arg1953z00_8139; long BgL_arg1954z00_8140;
BgL_arg1953z00_8139 = 
(BgL_objectz00_bglt)(BgL_thz00_3830); 
BgL_arg1954z00_8140 = 
BGL_CLASS_DEPTH(BgL_classz00_8137); 
if(
BGL_CONDEXPAND_ISA_ARCH64())
{ /* Llib/thread.scm 585 */
 long BgL_idxz00_8148;
BgL_idxz00_8148 = 
BGL_OBJECT_INHERITANCE_NUM(BgL_arg1953z00_8139); 
{ /* Llib/thread.scm 585 */
 obj_t BgL_arg1943z00_8149;
{ /* Llib/thread.scm 585 */
 long BgL_arg1944z00_8150;
BgL_arg1944z00_8150 = 
(BgL_idxz00_8148+BgL_arg1954z00_8140); 
BgL_arg1943z00_8149 = 
VECTOR_REF(BGl_za2inheritancesza2z00zz__objectz00,BgL_arg1944z00_8150); } 
BgL_test3902z00_13039 = 
(BgL_arg1943z00_8149==BgL_classz00_8137); } }  else 
{ /* Llib/thread.scm 585 */
 bool_t BgL_res2066z00_8155;
{ /* Llib/thread.scm 585 */
 obj_t BgL_oclassz00_8159;
{ /* Llib/thread.scm 585 */
 obj_t BgL_arg1959z00_8161; long BgL_arg1960z00_8162;
BgL_arg1959z00_8161 = 
(BGl_za2classesza2z00zz__objectz00); 
{ /* Llib/thread.scm 585 */
 long BgL_arg1961z00_8163;
BgL_arg1961z00_8163 = 
BGL_OBJECT_CLASS_NUM(BgL_arg1953z00_8139); 
BgL_arg1960z00_8162 = 
(BgL_arg1961z00_8163-OBJECT_TYPE); } 
BgL_oclassz00_8159 = 
VECTOR_REF(BgL_arg1959z00_8161,BgL_arg1960z00_8162); } 
{ /* Llib/thread.scm 585 */
 bool_t BgL__ortest_1149z00_8169;
BgL__ortest_1149z00_8169 = 
(BgL_classz00_8137==BgL_oclassz00_8159); 
if(BgL__ortest_1149z00_8169)
{ /* Llib/thread.scm 585 */
BgL_res2066z00_8155 = BgL__ortest_1149z00_8169; }  else 
{ /* Llib/thread.scm 585 */
 long BgL_odepthz00_8170;
{ /* Llib/thread.scm 585 */
 obj_t BgL_arg1947z00_8171;
BgL_arg1947z00_8171 = 
(BgL_oclassz00_8159); 
BgL_odepthz00_8170 = 
BGL_CLASS_DEPTH(BgL_arg1947z00_8171); } 
if(
(BgL_arg1954z00_8140<BgL_odepthz00_8170))
{ /* Llib/thread.scm 585 */
 obj_t BgL_arg1945z00_8175;
{ /* Llib/thread.scm 585 */
 obj_t BgL_arg1946z00_8176;
BgL_arg1946z00_8176 = 
(BgL_oclassz00_8159); 
BgL_arg1945z00_8175 = 
BGL_CLASS_ANCESTORS_REF(BgL_arg1946z00_8176, BgL_arg1954z00_8140); } 
BgL_res2066z00_8155 = 
(BgL_arg1945z00_8175==BgL_classz00_8137); }  else 
{ /* Llib/thread.scm 585 */
BgL_res2066z00_8155 = ((bool_t)0); } } } } 
BgL_test3902z00_13039 = BgL_res2066z00_8155; } }  else 
{ /* Llib/thread.scm 585 */
BgL_test3902z00_13039 = ((bool_t)0)
; } } 
if(BgL_test3902z00_13039)
{ /* Llib/thread.scm 585 */
BgL_thz00_8177 = 
((BgL_nothreadz00_bglt)BgL_thz00_3830); }  else 
{ 
 obj_t BgL_auxz00_13064;
BgL_auxz00_13064 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2484z00zz__threadz00, 
BINT(25297L), BGl_string2922z00zz__threadz00, BGl_string2483z00zz__threadz00, BgL_thz00_3830); 
FAILURE(BgL_auxz00_13064,BFALSE,BFALSE);} } 
return 
((((BgL_nothreadz00_bglt)COBJECT(BgL_thz00_8177))->BgL_z52specificz52)=((obj_t)BgL_vz00_3831),BUNSPEC);} } 

}



/* &thread-specific-noth1244 */
obj_t BGl_z62threadzd2specificzd2noth1244z62zz__threadz00(obj_t BgL_envz00_3832, obj_t BgL_thz00_3833)
{
{ /* Llib/thread.scm 578 */
{ /* Llib/thread.scm 579 */
 BgL_nothreadz00_bglt BgL_thz00_8218;
{ /* Llib/thread.scm 579 */
 bool_t BgL_test3907z00_13069;
{ /* Llib/thread.scm 579 */
 obj_t BgL_classz00_8178;
BgL_classz00_8178 = BGl_nothreadz00zz__threadz00; 
if(
BGL_OBJECTP(BgL_thz00_3833))
{ /* Llib/thread.scm 579 */
 BgL_objectz00_bglt BgL_arg1953z00_8180; long BgL_arg1954z00_8181;
BgL_arg1953z00_8180 = 
(BgL_objectz00_bglt)(BgL_thz00_3833); 
BgL_arg1954z00_8181 = 
BGL_CLASS_DEPTH(BgL_classz00_8178); 
if(
BGL_CONDEXPAND_ISA_ARCH64())
{ /* Llib/thread.scm 579 */
 long BgL_idxz00_8189;
BgL_idxz00_8189 = 
BGL_OBJECT_INHERITANCE_NUM(BgL_arg1953z00_8180); 
{ /* Llib/thread.scm 579 */
 obj_t BgL_arg1943z00_8190;
{ /* Llib/thread.scm 579 */
 long BgL_arg1944z00_8191;
BgL_arg1944z00_8191 = 
(BgL_idxz00_8189+BgL_arg1954z00_8181); 
BgL_arg1943z00_8190 = 
VECTOR_REF(BGl_za2inheritancesza2z00zz__objectz00,BgL_arg1944z00_8191); } 
BgL_test3907z00_13069 = 
(BgL_arg1943z00_8190==BgL_classz00_8178); } }  else 
{ /* Llib/thread.scm 579 */
 bool_t BgL_res2066z00_8196;
{ /* Llib/thread.scm 579 */
 obj_t BgL_oclassz00_8200;
{ /* Llib/thread.scm 579 */
 obj_t BgL_arg1959z00_8202; long BgL_arg1960z00_8203;
BgL_arg1959z00_8202 = 
(BGl_za2classesza2z00zz__objectz00); 
{ /* Llib/thread.scm 579 */
 long BgL_arg1961z00_8204;
BgL_arg1961z00_8204 = 
BGL_OBJECT_CLASS_NUM(BgL_arg1953z00_8180); 
BgL_arg1960z00_8203 = 
(BgL_arg1961z00_8204-OBJECT_TYPE); } 
BgL_oclassz00_8200 = 
VECTOR_REF(BgL_arg1959z00_8202,BgL_arg1960z00_8203); } 
{ /* Llib/thread.scm 579 */
 bool_t BgL__ortest_1149z00_8210;
BgL__ortest_1149z00_8210 = 
(BgL_classz00_8178==BgL_oclassz00_8200); 
if(BgL__ortest_1149z00_8210)
{ /* Llib/thread.scm 579 */
BgL_res2066z00_8196 = BgL__ortest_1149z00_8210; }  else 
{ /* Llib/thread.scm 579 */
 long BgL_odepthz00_8211;
{ /* Llib/thread.scm 579 */
 obj_t BgL_arg1947z00_8212;
BgL_arg1947z00_8212 = 
(BgL_oclassz00_8200); 
BgL_odepthz00_8211 = 
BGL_CLASS_DEPTH(BgL_arg1947z00_8212); } 
if(
(BgL_arg1954z00_8181<BgL_odepthz00_8211))
{ /* Llib/thread.scm 579 */
 obj_t BgL_arg1945z00_8216;
{ /* Llib/thread.scm 579 */
 obj_t BgL_arg1946z00_8217;
BgL_arg1946z00_8217 = 
(BgL_oclassz00_8200); 
BgL_arg1945z00_8216 = 
BGL_CLASS_ANCESTORS_REF(BgL_arg1946z00_8217, BgL_arg1954z00_8181); } 
BgL_res2066z00_8196 = 
(BgL_arg1945z00_8216==BgL_classz00_8178); }  else 
{ /* Llib/thread.scm 579 */
BgL_res2066z00_8196 = ((bool_t)0); } } } } 
BgL_test3907z00_13069 = BgL_res2066z00_8196; } }  else 
{ /* Llib/thread.scm 579 */
BgL_test3907z00_13069 = ((bool_t)0)
; } } 
if(BgL_test3907z00_13069)
{ /* Llib/thread.scm 579 */
BgL_thz00_8218 = 
((BgL_nothreadz00_bglt)BgL_thz00_3833); }  else 
{ 
 obj_t BgL_auxz00_13094;
BgL_auxz00_13094 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2484z00zz__threadz00, 
BINT(24968L), BGl_string2923z00zz__threadz00, BGl_string2483z00zz__threadz00, BgL_thz00_3833); 
FAILURE(BgL_auxz00_13094,BFALSE,BFALSE);} } 
return 
(((BgL_nothreadz00_bglt)COBJECT(BgL_thz00_8218))->BgL_z52specificz52);} } 

}



/* &thread-kill!-nothrea1242 */
obj_t BGl_z62threadzd2killz12zd2nothrea1242z70zz__threadz00(obj_t BgL_envz00_3834, obj_t BgL_thz00_3835, obj_t BgL_nz00_3836)
{
{ /* Llib/thread.scm 572 */
{ /* Llib/thread.scm 572 */
 BgL_nothreadz00_bglt BgL_thz00_8259; int BgL_nz00_8260;
{ /* Llib/thread.scm 572 */
 bool_t BgL_test3912z00_13099;
{ /* Llib/thread.scm 572 */
 obj_t BgL_classz00_8219;
BgL_classz00_8219 = BGl_nothreadz00zz__threadz00; 
if(
BGL_OBJECTP(BgL_thz00_3835))
{ /* Llib/thread.scm 572 */
 BgL_objectz00_bglt BgL_arg1953z00_8221; long BgL_arg1954z00_8222;
BgL_arg1953z00_8221 = 
(BgL_objectz00_bglt)(BgL_thz00_3835); 
BgL_arg1954z00_8222 = 
BGL_CLASS_DEPTH(BgL_classz00_8219); 
if(
BGL_CONDEXPAND_ISA_ARCH64())
{ /* Llib/thread.scm 572 */
 long BgL_idxz00_8230;
BgL_idxz00_8230 = 
BGL_OBJECT_INHERITANCE_NUM(BgL_arg1953z00_8221); 
{ /* Llib/thread.scm 572 */
 obj_t BgL_arg1943z00_8231;
{ /* Llib/thread.scm 572 */
 long BgL_arg1944z00_8232;
BgL_arg1944z00_8232 = 
(BgL_idxz00_8230+BgL_arg1954z00_8222); 
BgL_arg1943z00_8231 = 
VECTOR_REF(BGl_za2inheritancesza2z00zz__objectz00,BgL_arg1944z00_8232); } 
BgL_test3912z00_13099 = 
(BgL_arg1943z00_8231==BgL_classz00_8219); } }  else 
{ /* Llib/thread.scm 572 */
 bool_t BgL_res2066z00_8237;
{ /* Llib/thread.scm 572 */
 obj_t BgL_oclassz00_8241;
{ /* Llib/thread.scm 572 */
 obj_t BgL_arg1959z00_8243; long BgL_arg1960z00_8244;
BgL_arg1959z00_8243 = 
(BGl_za2classesza2z00zz__objectz00); 
{ /* Llib/thread.scm 572 */
 long BgL_arg1961z00_8245;
BgL_arg1961z00_8245 = 
BGL_OBJECT_CLASS_NUM(BgL_arg1953z00_8221); 
BgL_arg1960z00_8244 = 
(BgL_arg1961z00_8245-OBJECT_TYPE); } 
BgL_oclassz00_8241 = 
VECTOR_REF(BgL_arg1959z00_8243,BgL_arg1960z00_8244); } 
{ /* Llib/thread.scm 572 */
 bool_t BgL__ortest_1149z00_8251;
BgL__ortest_1149z00_8251 = 
(BgL_classz00_8219==BgL_oclassz00_8241); 
if(BgL__ortest_1149z00_8251)
{ /* Llib/thread.scm 572 */
BgL_res2066z00_8237 = BgL__ortest_1149z00_8251; }  else 
{ /* Llib/thread.scm 572 */
 long BgL_odepthz00_8252;
{ /* Llib/thread.scm 572 */
 obj_t BgL_arg1947z00_8253;
BgL_arg1947z00_8253 = 
(BgL_oclassz00_8241); 
BgL_odepthz00_8252 = 
BGL_CLASS_DEPTH(BgL_arg1947z00_8253); } 
if(
(BgL_arg1954z00_8222<BgL_odepthz00_8252))
{ /* Llib/thread.scm 572 */
 obj_t BgL_arg1945z00_8257;
{ /* Llib/thread.scm 572 */
 obj_t BgL_arg1946z00_8258;
BgL_arg1946z00_8258 = 
(BgL_oclassz00_8241); 
BgL_arg1945z00_8257 = 
BGL_CLASS_ANCESTORS_REF(BgL_arg1946z00_8258, BgL_arg1954z00_8222); } 
BgL_res2066z00_8237 = 
(BgL_arg1945z00_8257==BgL_classz00_8219); }  else 
{ /* Llib/thread.scm 572 */
BgL_res2066z00_8237 = ((bool_t)0); } } } } 
BgL_test3912z00_13099 = BgL_res2066z00_8237; } }  else 
{ /* Llib/thread.scm 572 */
BgL_test3912z00_13099 = ((bool_t)0)
; } } 
if(BgL_test3912z00_13099)
{ /* Llib/thread.scm 572 */
BgL_thz00_8259 = 
((BgL_nothreadz00_bglt)BgL_thz00_3835); }  else 
{ 
 obj_t BgL_auxz00_13124;
BgL_auxz00_13124 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2484z00zz__threadz00, 
BINT(24629L), BGl_string2924z00zz__threadz00, BGl_string2483z00zz__threadz00, BgL_thz00_3835); 
FAILURE(BgL_auxz00_13124,BFALSE,BFALSE);} } 
{ /* Llib/thread.scm 572 */
 obj_t BgL_tmpz00_13128;
if(
INTEGERP(BgL_nz00_3836))
{ /* Llib/thread.scm 572 */
BgL_tmpz00_13128 = BgL_nz00_3836
; }  else 
{ 
 obj_t BgL_auxz00_13131;
BgL_auxz00_13131 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2484z00zz__threadz00, 
BINT(24629L), BGl_string2924z00zz__threadz00, BGl_string2531z00zz__threadz00, BgL_nz00_3836); 
FAILURE(BgL_auxz00_13131,BFALSE,BFALSE);} 
BgL_nz00_8260 = 
CINT(BgL_tmpz00_13128); } 
return BUNSPEC;} } 

}



/* &thread-terminate!-no1240 */
obj_t BGl_z62threadzd2terminatez12zd2no1240z70zz__threadz00(obj_t BgL_envz00_3837, obj_t BgL_thz00_3838)
{
{ /* Llib/thread.scm 564 */
{ /* Llib/thread.scm 565 */
 BgL_nothreadz00_bglt BgL_thz00_8301;
{ /* Llib/thread.scm 565 */
 bool_t BgL_test3918z00_13136;
{ /* Llib/thread.scm 565 */
 obj_t BgL_classz00_8261;
BgL_classz00_8261 = BGl_nothreadz00zz__threadz00; 
if(
BGL_OBJECTP(BgL_thz00_3838))
{ /* Llib/thread.scm 565 */
 BgL_objectz00_bglt BgL_arg1953z00_8263; long BgL_arg1954z00_8264;
BgL_arg1953z00_8263 = 
(BgL_objectz00_bglt)(BgL_thz00_3838); 
BgL_arg1954z00_8264 = 
BGL_CLASS_DEPTH(BgL_classz00_8261); 
if(
BGL_CONDEXPAND_ISA_ARCH64())
{ /* Llib/thread.scm 565 */
 long BgL_idxz00_8272;
BgL_idxz00_8272 = 
BGL_OBJECT_INHERITANCE_NUM(BgL_arg1953z00_8263); 
{ /* Llib/thread.scm 565 */
 obj_t BgL_arg1943z00_8273;
{ /* Llib/thread.scm 565 */
 long BgL_arg1944z00_8274;
BgL_arg1944z00_8274 = 
(BgL_idxz00_8272+BgL_arg1954z00_8264); 
BgL_arg1943z00_8273 = 
VECTOR_REF(BGl_za2inheritancesza2z00zz__objectz00,BgL_arg1944z00_8274); } 
BgL_test3918z00_13136 = 
(BgL_arg1943z00_8273==BgL_classz00_8261); } }  else 
{ /* Llib/thread.scm 565 */
 bool_t BgL_res2066z00_8279;
{ /* Llib/thread.scm 565 */
 obj_t BgL_oclassz00_8283;
{ /* Llib/thread.scm 565 */
 obj_t BgL_arg1959z00_8285; long BgL_arg1960z00_8286;
BgL_arg1959z00_8285 = 
(BGl_za2classesza2z00zz__objectz00); 
{ /* Llib/thread.scm 565 */
 long BgL_arg1961z00_8287;
BgL_arg1961z00_8287 = 
BGL_OBJECT_CLASS_NUM(BgL_arg1953z00_8263); 
BgL_arg1960z00_8286 = 
(BgL_arg1961z00_8287-OBJECT_TYPE); } 
BgL_oclassz00_8283 = 
VECTOR_REF(BgL_arg1959z00_8285,BgL_arg1960z00_8286); } 
{ /* Llib/thread.scm 565 */
 bool_t BgL__ortest_1149z00_8293;
BgL__ortest_1149z00_8293 = 
(BgL_classz00_8261==BgL_oclassz00_8283); 
if(BgL__ortest_1149z00_8293)
{ /* Llib/thread.scm 565 */
BgL_res2066z00_8279 = BgL__ortest_1149z00_8293; }  else 
{ /* Llib/thread.scm 565 */
 long BgL_odepthz00_8294;
{ /* Llib/thread.scm 565 */
 obj_t BgL_arg1947z00_8295;
BgL_arg1947z00_8295 = 
(BgL_oclassz00_8283); 
BgL_odepthz00_8294 = 
BGL_CLASS_DEPTH(BgL_arg1947z00_8295); } 
if(
(BgL_arg1954z00_8264<BgL_odepthz00_8294))
{ /* Llib/thread.scm 565 */
 obj_t BgL_arg1945z00_8299;
{ /* Llib/thread.scm 565 */
 obj_t BgL_arg1946z00_8300;
BgL_arg1946z00_8300 = 
(BgL_oclassz00_8283); 
BgL_arg1945z00_8299 = 
BGL_CLASS_ANCESTORS_REF(BgL_arg1946z00_8300, BgL_arg1954z00_8264); } 
BgL_res2066z00_8279 = 
(BgL_arg1945z00_8299==BgL_classz00_8261); }  else 
{ /* Llib/thread.scm 565 */
BgL_res2066z00_8279 = ((bool_t)0); } } } } 
BgL_test3918z00_13136 = BgL_res2066z00_8279; } }  else 
{ /* Llib/thread.scm 565 */
BgL_test3918z00_13136 = ((bool_t)0)
; } } 
if(BgL_test3918z00_13136)
{ /* Llib/thread.scm 565 */
BgL_thz00_8301 = 
((BgL_nothreadz00_bglt)BgL_thz00_3838); }  else 
{ 
 obj_t BgL_auxz00_13161;
BgL_auxz00_13161 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2484z00zz__threadz00, 
BINT(24306L), BGl_string2930z00zz__threadz00, BGl_string2483z00zz__threadz00, BgL_thz00_3838); 
FAILURE(BgL_auxz00_13161,BFALSE,BFALSE);} } 
{ /* Llib/thread.scm 566 */
 bool_t BgL_test3923z00_13165;
{ /* Llib/thread.scm 566 */
 obj_t BgL_tmpz00_13166;
BgL_tmpz00_13166 = 
(((BgL_nothreadz00_bglt)COBJECT(BgL_thz00_8301))->BgL_z52cleanupz52); 
BgL_test3923z00_13165 = 
PROCEDUREP(BgL_tmpz00_13166); } 
if(BgL_test3923z00_13165)
{ /* Llib/thread.scm 566 */
 obj_t BgL_fun1590z00_8302;
BgL_fun1590z00_8302 = 
(((BgL_nothreadz00_bglt)COBJECT(BgL_thz00_8301))->BgL_z52cleanupz52); 
{ /* Llib/thread.scm 566 */
 obj_t BgL_funz00_8303;
if(
PROCEDUREP(BgL_fun1590z00_8302))
{ /* Llib/thread.scm 566 */
BgL_funz00_8303 = BgL_fun1590z00_8302; }  else 
{ 
 obj_t BgL_auxz00_13172;
BgL_auxz00_13172 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2484z00zz__threadz00, 
BINT(24377L), BGl_string2925z00zz__threadz00, BGl_string2501z00zz__threadz00, BgL_fun1590z00_8302); 
FAILURE(BgL_auxz00_13172,BFALSE,BFALSE);} 
if(
PROCEDURE_CORRECT_ARITYP(BgL_funz00_8303, 0))
{ /* Llib/thread.scm 566 */
(VA_PROCEDUREP( BgL_funz00_8303 ) ? ((obj_t (*)(obj_t, ...))PROCEDURE_ENTRY(BgL_funz00_8303))(BgL_fun1590z00_8302, BEOA) : ((obj_t (*)(obj_t))PROCEDURE_ENTRY(BgL_funz00_8303))(BgL_fun1590z00_8302) ); }  else 
{ /* Llib/thread.scm 566 */
FAILURE(BGl_string2926z00zz__threadz00,BGl_list2927z00zz__threadz00,BgL_funz00_8303);} } }  else 
{ /* Llib/thread.scm 566 */BFALSE; } } 
{ /* Llib/thread.scm 567 */
 obj_t BgL_list1593z00_8304;
BgL_list1593z00_8304 = 
MAKE_YOUNG_PAIR(
BINT(0L), BNIL); 
return 
BGl_exitz00zz__errorz00(BgL_list1593z00_8304);} } } 

}



/* &thread-join!-nothrea1238 */
obj_t BGl_z62threadzd2joinz12zd2nothrea1238z70zz__threadz00(obj_t BgL_envz00_3839, obj_t BgL_thz00_3840, obj_t BgL_timeoutz00_3841)
{
{ /* Llib/thread.scm 555 */
{ /* Llib/thread.scm 556 */
 BgL_nothreadz00_bglt BgL_thz00_8345;
{ /* Llib/thread.scm 556 */
 bool_t BgL_test3926z00_13185;
{ /* Llib/thread.scm 556 */
 obj_t BgL_classz00_8305;
BgL_classz00_8305 = BGl_nothreadz00zz__threadz00; 
if(
BGL_OBJECTP(BgL_thz00_3840))
{ /* Llib/thread.scm 556 */
 BgL_objectz00_bglt BgL_arg1953z00_8307; long BgL_arg1954z00_8308;
BgL_arg1953z00_8307 = 
(BgL_objectz00_bglt)(BgL_thz00_3840); 
BgL_arg1954z00_8308 = 
BGL_CLASS_DEPTH(BgL_classz00_8305); 
if(
BGL_CONDEXPAND_ISA_ARCH64())
{ /* Llib/thread.scm 556 */
 long BgL_idxz00_8316;
BgL_idxz00_8316 = 
BGL_OBJECT_INHERITANCE_NUM(BgL_arg1953z00_8307); 
{ /* Llib/thread.scm 556 */
 obj_t BgL_arg1943z00_8317;
{ /* Llib/thread.scm 556 */
 long BgL_arg1944z00_8318;
BgL_arg1944z00_8318 = 
(BgL_idxz00_8316+BgL_arg1954z00_8308); 
BgL_arg1943z00_8317 = 
VECTOR_REF(BGl_za2inheritancesza2z00zz__objectz00,BgL_arg1944z00_8318); } 
BgL_test3926z00_13185 = 
(BgL_arg1943z00_8317==BgL_classz00_8305); } }  else 
{ /* Llib/thread.scm 556 */
 bool_t BgL_res2066z00_8323;
{ /* Llib/thread.scm 556 */
 obj_t BgL_oclassz00_8327;
{ /* Llib/thread.scm 556 */
 obj_t BgL_arg1959z00_8329; long BgL_arg1960z00_8330;
BgL_arg1959z00_8329 = 
(BGl_za2classesza2z00zz__objectz00); 
{ /* Llib/thread.scm 556 */
 long BgL_arg1961z00_8331;
BgL_arg1961z00_8331 = 
BGL_OBJECT_CLASS_NUM(BgL_arg1953z00_8307); 
BgL_arg1960z00_8330 = 
(BgL_arg1961z00_8331-OBJECT_TYPE); } 
BgL_oclassz00_8327 = 
VECTOR_REF(BgL_arg1959z00_8329,BgL_arg1960z00_8330); } 
{ /* Llib/thread.scm 556 */
 bool_t BgL__ortest_1149z00_8337;
BgL__ortest_1149z00_8337 = 
(BgL_classz00_8305==BgL_oclassz00_8327); 
if(BgL__ortest_1149z00_8337)
{ /* Llib/thread.scm 556 */
BgL_res2066z00_8323 = BgL__ortest_1149z00_8337; }  else 
{ /* Llib/thread.scm 556 */
 long BgL_odepthz00_8338;
{ /* Llib/thread.scm 556 */
 obj_t BgL_arg1947z00_8339;
BgL_arg1947z00_8339 = 
(BgL_oclassz00_8327); 
BgL_odepthz00_8338 = 
BGL_CLASS_DEPTH(BgL_arg1947z00_8339); } 
if(
(BgL_arg1954z00_8308<BgL_odepthz00_8338))
{ /* Llib/thread.scm 556 */
 obj_t BgL_arg1945z00_8343;
{ /* Llib/thread.scm 556 */
 obj_t BgL_arg1946z00_8344;
BgL_arg1946z00_8344 = 
(BgL_oclassz00_8327); 
BgL_arg1945z00_8343 = 
BGL_CLASS_ANCESTORS_REF(BgL_arg1946z00_8344, BgL_arg1954z00_8308); } 
BgL_res2066z00_8323 = 
(BgL_arg1945z00_8343==BgL_classz00_8305); }  else 
{ /* Llib/thread.scm 556 */
BgL_res2066z00_8323 = ((bool_t)0); } } } } 
BgL_test3926z00_13185 = BgL_res2066z00_8323; } }  else 
{ /* Llib/thread.scm 556 */
BgL_test3926z00_13185 = ((bool_t)0)
; } } 
if(BgL_test3926z00_13185)
{ /* Llib/thread.scm 556 */
BgL_thz00_8345 = 
((BgL_nothreadz00_bglt)BgL_thz00_3840); }  else 
{ 
 obj_t BgL_auxz00_13210;
BgL_auxz00_13210 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2484z00zz__threadz00, 
BINT(23895L), BGl_string2932z00zz__threadz00, BGl_string2483z00zz__threadz00, BgL_thz00_3840); 
FAILURE(BgL_auxz00_13210,BFALSE,BFALSE);} } 
{ /* Llib/thread.scm 557 */
 bool_t BgL_test3931z00_13214;
{ /* Llib/thread.scm 557 */
 obj_t BgL_arg1586z00_8346;
BgL_arg1586z00_8346 = 
(((BgL_nothreadz00_bglt)COBJECT(BgL_thz00_8345))->BgL_endzd2exceptionzd2); 
{ /* Llib/thread.scm 557 */
 obj_t BgL_classz00_8347;
BgL_classz00_8347 = BGl_z62exceptionz62zz__objectz00; 
if(
BGL_OBJECTP(BgL_arg1586z00_8346))
{ /* Llib/thread.scm 557 */
 BgL_objectz00_bglt BgL_arg1950z00_8348;
BgL_arg1950z00_8348 = 
(BgL_objectz00_bglt)(BgL_arg1586z00_8346); 
if(
BGL_CONDEXPAND_ISA_ARCH64())
{ /* Llib/thread.scm 557 */
 long BgL_idxz00_8349;
BgL_idxz00_8349 = 
BGL_OBJECT_INHERITANCE_NUM(BgL_arg1950z00_8348); 
{ /* Llib/thread.scm 557 */
 obj_t BgL_arg1943z00_8350;
{ /* Llib/thread.scm 557 */
 long BgL_arg1944z00_8351;
BgL_arg1944z00_8351 = 
(BgL_idxz00_8349+2L); 
{ /* Llib/thread.scm 557 */
 obj_t BgL_vectorz00_8352;
{ /* Llib/thread.scm 557 */
 obj_t BgL_aux2447z00_8353;
BgL_aux2447z00_8353 = BGl_za2inheritancesza2z00zz__objectz00; 
if(
VECTORP(BgL_aux2447z00_8353))
{ /* Llib/thread.scm 557 */
BgL_vectorz00_8352 = BgL_aux2447z00_8353; }  else 
{ 
 obj_t BgL_auxz00_13225;
BgL_auxz00_13225 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2484z00zz__threadz00, 
BINT(23958L), BGl_string2931z00zz__threadz00, BGl_string2494z00zz__threadz00, BgL_aux2447z00_8353); 
FAILURE(BgL_auxz00_13225,BFALSE,BFALSE);} } 
{ /* Llib/thread.scm 557 */
 bool_t BgL_test3935z00_13229;
{ /* Llib/thread.scm 557 */
 long BgL_tmpz00_13230;
BgL_tmpz00_13230 = 
VECTOR_LENGTH(BgL_vectorz00_8352); 
BgL_test3935z00_13229 = 
BOUND_CHECK(BgL_arg1944z00_8351, BgL_tmpz00_13230); } 
if(BgL_test3935z00_13229)
{ /* Llib/thread.scm 557 */
BgL_arg1943z00_8350 = 
VECTOR_REF(BgL_vectorz00_8352,BgL_arg1944z00_8351); }  else 
{ 
 obj_t BgL_auxz00_13234;
BgL_auxz00_13234 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string2484z00zz__threadz00, 
BINT(23958L), BGl_string2503z00zz__threadz00, BgL_vectorz00_8352, 
(int)(
VECTOR_LENGTH(BgL_vectorz00_8352)), 
(int)(BgL_arg1944z00_8351)); 
FAILURE(BgL_auxz00_13234,BFALSE,BFALSE);} } } } 
BgL_test3931z00_13214 = 
(BgL_arg1943z00_8350==BgL_classz00_8347); } }  else 
{ /* Llib/thread.scm 557 */
 bool_t BgL_res2064z00_8354;
{ /* Llib/thread.scm 557 */
 obj_t BgL_oclassz00_8355;
{ /* Llib/thread.scm 557 */
 obj_t BgL_arg1959z00_8356; long BgL_arg1960z00_8357;
BgL_arg1959z00_8356 = 
(BGl_za2classesza2z00zz__objectz00); 
{ /* Llib/thread.scm 557 */
 long BgL_arg1961z00_8358;
BgL_arg1961z00_8358 = 
BGL_OBJECT_CLASS_NUM(BgL_arg1950z00_8348); 
BgL_arg1960z00_8357 = 
(BgL_arg1961z00_8358-OBJECT_TYPE); } 
BgL_oclassz00_8355 = 
VECTOR_REF(BgL_arg1959z00_8356,BgL_arg1960z00_8357); } 
{ /* Llib/thread.scm 557 */
 bool_t BgL__ortest_1149z00_8359;
BgL__ortest_1149z00_8359 = 
(BgL_classz00_8347==BgL_oclassz00_8355); 
if(BgL__ortest_1149z00_8359)
{ /* Llib/thread.scm 557 */
BgL_res2064z00_8354 = BgL__ortest_1149z00_8359; }  else 
{ /* Llib/thread.scm 557 */
 long BgL_odepthz00_8360;
{ /* Llib/thread.scm 557 */
 obj_t BgL_arg1947z00_8361;
BgL_arg1947z00_8361 = 
(BgL_oclassz00_8355); 
BgL_odepthz00_8360 = 
BGL_CLASS_DEPTH(BgL_arg1947z00_8361); } 
if(
(2L<BgL_odepthz00_8360))
{ /* Llib/thread.scm 557 */
 obj_t BgL_arg1945z00_8362;
{ /* Llib/thread.scm 557 */
 obj_t BgL_arg1946z00_8363;
BgL_arg1946z00_8363 = 
(BgL_oclassz00_8355); 
BgL_arg1945z00_8362 = 
BGL_CLASS_ANCESTORS_REF(BgL_arg1946z00_8363, 2L); } 
BgL_res2064z00_8354 = 
(BgL_arg1945z00_8362==BgL_classz00_8347); }  else 
{ /* Llib/thread.scm 557 */
BgL_res2064z00_8354 = ((bool_t)0); } } } } 
BgL_test3931z00_13214 = BgL_res2064z00_8354; } }  else 
{ /* Llib/thread.scm 557 */
BgL_test3931z00_13214 = ((bool_t)0)
; } } } 
if(BgL_test3931z00_13214)
{ /* Llib/thread.scm 557 */
return 
BGl_raisez00zz__errorz00(
(((BgL_nothreadz00_bglt)COBJECT(BgL_thz00_8345))->BgL_endzd2exceptionzd2));}  else 
{ /* Llib/thread.scm 557 */
return 
(((BgL_nothreadz00_bglt)COBJECT(BgL_thz00_8345))->BgL_endzd2resultzd2);} } } } 

}



/* &thread-start-joinabl1236 */
obj_t BGl_z62threadzd2startzd2joinabl1236z62zz__threadz00(obj_t BgL_envz00_3842, obj_t BgL_thz00_3843)
{
{ /* Llib/thread.scm 549 */
{ /* Llib/thread.scm 550 */
 BgL_nothreadz00_bglt BgL_thz00_8404;
{ /* Llib/thread.scm 550 */
 bool_t BgL_test3938z00_13258;
{ /* Llib/thread.scm 550 */
 obj_t BgL_classz00_8364;
BgL_classz00_8364 = BGl_nothreadz00zz__threadz00; 
if(
BGL_OBJECTP(BgL_thz00_3843))
{ /* Llib/thread.scm 550 */
 BgL_objectz00_bglt BgL_arg1953z00_8366; long BgL_arg1954z00_8367;
BgL_arg1953z00_8366 = 
(BgL_objectz00_bglt)(BgL_thz00_3843); 
BgL_arg1954z00_8367 = 
BGL_CLASS_DEPTH(BgL_classz00_8364); 
if(
BGL_CONDEXPAND_ISA_ARCH64())
{ /* Llib/thread.scm 550 */
 long BgL_idxz00_8375;
BgL_idxz00_8375 = 
BGL_OBJECT_INHERITANCE_NUM(BgL_arg1953z00_8366); 
{ /* Llib/thread.scm 550 */
 obj_t BgL_arg1943z00_8376;
{ /* Llib/thread.scm 550 */
 long BgL_arg1944z00_8377;
BgL_arg1944z00_8377 = 
(BgL_idxz00_8375+BgL_arg1954z00_8367); 
BgL_arg1943z00_8376 = 
VECTOR_REF(BGl_za2inheritancesza2z00zz__objectz00,BgL_arg1944z00_8377); } 
BgL_test3938z00_13258 = 
(BgL_arg1943z00_8376==BgL_classz00_8364); } }  else 
{ /* Llib/thread.scm 550 */
 bool_t BgL_res2066z00_8382;
{ /* Llib/thread.scm 550 */
 obj_t BgL_oclassz00_8386;
{ /* Llib/thread.scm 550 */
 obj_t BgL_arg1959z00_8388; long BgL_arg1960z00_8389;
BgL_arg1959z00_8388 = 
(BGl_za2classesza2z00zz__objectz00); 
{ /* Llib/thread.scm 550 */
 long BgL_arg1961z00_8390;
BgL_arg1961z00_8390 = 
BGL_OBJECT_CLASS_NUM(BgL_arg1953z00_8366); 
BgL_arg1960z00_8389 = 
(BgL_arg1961z00_8390-OBJECT_TYPE); } 
BgL_oclassz00_8386 = 
VECTOR_REF(BgL_arg1959z00_8388,BgL_arg1960z00_8389); } 
{ /* Llib/thread.scm 550 */
 bool_t BgL__ortest_1149z00_8396;
BgL__ortest_1149z00_8396 = 
(BgL_classz00_8364==BgL_oclassz00_8386); 
if(BgL__ortest_1149z00_8396)
{ /* Llib/thread.scm 550 */
BgL_res2066z00_8382 = BgL__ortest_1149z00_8396; }  else 
{ /* Llib/thread.scm 550 */
 long BgL_odepthz00_8397;
{ /* Llib/thread.scm 550 */
 obj_t BgL_arg1947z00_8398;
BgL_arg1947z00_8398 = 
(BgL_oclassz00_8386); 
BgL_odepthz00_8397 = 
BGL_CLASS_DEPTH(BgL_arg1947z00_8398); } 
if(
(BgL_arg1954z00_8367<BgL_odepthz00_8397))
{ /* Llib/thread.scm 550 */
 obj_t BgL_arg1945z00_8402;
{ /* Llib/thread.scm 550 */
 obj_t BgL_arg1946z00_8403;
BgL_arg1946z00_8403 = 
(BgL_oclassz00_8386); 
BgL_arg1945z00_8402 = 
BGL_CLASS_ANCESTORS_REF(BgL_arg1946z00_8403, BgL_arg1954z00_8367); } 
BgL_res2066z00_8382 = 
(BgL_arg1945z00_8402==BgL_classz00_8364); }  else 
{ /* Llib/thread.scm 550 */
BgL_res2066z00_8382 = ((bool_t)0); } } } } 
BgL_test3938z00_13258 = BgL_res2066z00_8382; } }  else 
{ /* Llib/thread.scm 550 */
BgL_test3938z00_13258 = ((bool_t)0)
; } } 
if(BgL_test3938z00_13258)
{ /* Llib/thread.scm 550 */
BgL_thz00_8404 = 
((BgL_nothreadz00_bglt)BgL_thz00_3843); }  else 
{ 
 obj_t BgL_auxz00_13283;
BgL_auxz00_13283 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2484z00zz__threadz00, 
BINT(23596L), BGl_string2933z00zz__threadz00, BGl_string2483z00zz__threadz00, BgL_thz00_3843); 
FAILURE(BgL_auxz00_13283,BFALSE,BFALSE);} } 
return 
BGl_threadzd2startz12zc0zz__threadz00(
((BgL_threadz00_bglt)BgL_thz00_8404), BNIL);} } 

}



/* &thread-start!-nothre1234 */
obj_t BGl_z62threadzd2startz12zd2nothre1234z70zz__threadz00(obj_t BgL_envz00_3844, obj_t BgL_thz00_3845, obj_t BgL_scdz00_3846)
{
{ /* Llib/thread.scm 533 */
{ /* Llib/thread.scm 534 */
 BgL_nothreadz00_bglt BgL_auxz00_13289;
{ /* Llib/thread.scm 534 */
 bool_t BgL_test3943z00_13290;
{ /* Llib/thread.scm 534 */
 obj_t BgL_classz00_8405;
BgL_classz00_8405 = BGl_nothreadz00zz__threadz00; 
if(
BGL_OBJECTP(BgL_thz00_3845))
{ /* Llib/thread.scm 534 */
 BgL_objectz00_bglt BgL_arg1953z00_8407; long BgL_arg1954z00_8408;
BgL_arg1953z00_8407 = 
(BgL_objectz00_bglt)(BgL_thz00_3845); 
BgL_arg1954z00_8408 = 
BGL_CLASS_DEPTH(BgL_classz00_8405); 
if(
BGL_CONDEXPAND_ISA_ARCH64())
{ /* Llib/thread.scm 534 */
 long BgL_idxz00_8416;
BgL_idxz00_8416 = 
BGL_OBJECT_INHERITANCE_NUM(BgL_arg1953z00_8407); 
{ /* Llib/thread.scm 534 */
 obj_t BgL_arg1943z00_8417;
{ /* Llib/thread.scm 534 */
 long BgL_arg1944z00_8418;
BgL_arg1944z00_8418 = 
(BgL_idxz00_8416+BgL_arg1954z00_8408); 
BgL_arg1943z00_8417 = 
VECTOR_REF(BGl_za2inheritancesza2z00zz__objectz00,BgL_arg1944z00_8418); } 
BgL_test3943z00_13290 = 
(BgL_arg1943z00_8417==BgL_classz00_8405); } }  else 
{ /* Llib/thread.scm 534 */
 bool_t BgL_res2066z00_8423;
{ /* Llib/thread.scm 534 */
 obj_t BgL_oclassz00_8427;
{ /* Llib/thread.scm 534 */
 obj_t BgL_arg1959z00_8429; long BgL_arg1960z00_8430;
BgL_arg1959z00_8429 = 
(BGl_za2classesza2z00zz__objectz00); 
{ /* Llib/thread.scm 534 */
 long BgL_arg1961z00_8431;
BgL_arg1961z00_8431 = 
BGL_OBJECT_CLASS_NUM(BgL_arg1953z00_8407); 
BgL_arg1960z00_8430 = 
(BgL_arg1961z00_8431-OBJECT_TYPE); } 
BgL_oclassz00_8427 = 
VECTOR_REF(BgL_arg1959z00_8429,BgL_arg1960z00_8430); } 
{ /* Llib/thread.scm 534 */
 bool_t BgL__ortest_1149z00_8437;
BgL__ortest_1149z00_8437 = 
(BgL_classz00_8405==BgL_oclassz00_8427); 
if(BgL__ortest_1149z00_8437)
{ /* Llib/thread.scm 534 */
BgL_res2066z00_8423 = BgL__ortest_1149z00_8437; }  else 
{ /* Llib/thread.scm 534 */
 long BgL_odepthz00_8438;
{ /* Llib/thread.scm 534 */
 obj_t BgL_arg1947z00_8439;
BgL_arg1947z00_8439 = 
(BgL_oclassz00_8427); 
BgL_odepthz00_8438 = 
BGL_CLASS_DEPTH(BgL_arg1947z00_8439); } 
if(
(BgL_arg1954z00_8408<BgL_odepthz00_8438))
{ /* Llib/thread.scm 534 */
 obj_t BgL_arg1945z00_8443;
{ /* Llib/thread.scm 534 */
 obj_t BgL_arg1946z00_8444;
BgL_arg1946z00_8444 = 
(BgL_oclassz00_8427); 
BgL_arg1945z00_8443 = 
BGL_CLASS_ANCESTORS_REF(BgL_arg1946z00_8444, BgL_arg1954z00_8408); } 
BgL_res2066z00_8423 = 
(BgL_arg1945z00_8443==BgL_classz00_8405); }  else 
{ /* Llib/thread.scm 534 */
BgL_res2066z00_8423 = ((bool_t)0); } } } } 
BgL_test3943z00_13290 = BgL_res2066z00_8423; } }  else 
{ /* Llib/thread.scm 534 */
BgL_test3943z00_13290 = ((bool_t)0)
; } } 
if(BgL_test3943z00_13290)
{ /* Llib/thread.scm 534 */
BgL_auxz00_13289 = 
((BgL_nothreadz00_bglt)BgL_thz00_3845)
; }  else 
{ 
 obj_t BgL_auxz00_13315;
BgL_auxz00_13315 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2484z00zz__threadz00, 
BINT(23004L), BGl_string2934z00zz__threadz00, BGl_string2483z00zz__threadz00, BgL_thz00_3845); 
FAILURE(BgL_auxz00_13315,BFALSE,BFALSE);} } 
return 
BGl_threadzd2startz12zd2nothre1234ze70zf5zz__threadz00(BgL_auxz00_13289, BgL_scdz00_3846);} } 

}



/* <@exit:1574>~0 */
obj_t BGl_zc3z04exitza31574ze3ze70z60zz__threadz00(BgL_nothreadz00_bglt BgL_i1071z00_3881, obj_t BgL_cell1075z00_3880, obj_t BgL_env1080z00_3879)
{
{ /* Llib/thread.scm 538 */
jmp_buf_t jmpbuf; 
 void * BgL_an_exit1084z00_1747;
if (SET_EXIT(BgL_an_exit1084z00_1747)) { 
return 
BGL_EXIT_VALUE();
} else {
#if (SIGSETJMP_SAVESIGS == 0)
  // MS: CARE 5 jan 2021: see runtime/Clib/csystem.c
  // bgl_restore_signal_handlers();
#endif

BgL_an_exit1084z00_1747 = 
(void *)jmpbuf; 
PUSH_ENV_EXIT(BgL_env1080z00_3879, BgL_an_exit1084z00_1747, 1L); 
{ /* Llib/thread.scm 538 */
 obj_t BgL_escape1076z00_1748;
BgL_escape1076z00_1748 = 
BGL_ENV_EXITD_TOP_AS_OBJ(BgL_env1080z00_3879); 
{ /* Llib/thread.scm 538 */
 obj_t BgL_res1087z00_1749;
{ /* Llib/thread.scm 538 */
 obj_t BgL_ohs1072z00_1750;
BgL_ohs1072z00_1750 = 
BGL_ENV_ERROR_HANDLER_GET(BgL_env1080z00_3879); 
{ /* Llib/thread.scm 538 */
 obj_t BgL_hds1073z00_1751;
BgL_hds1073z00_1751 = 
MAKE_STACK_PAIR(BgL_escape1076z00_1748, BgL_cell1075z00_3880); 
BGL_ENV_ERROR_HANDLER_SET(BgL_env1080z00_3879, BgL_hds1073z00_1751); BUNSPEC; 
{ /* Llib/thread.scm 538 */
 obj_t BgL_exitd1081z00_1752;
BgL_exitd1081z00_1752 = 
BGL_ENV_EXITD_TOP_AS_OBJ(BgL_env1080z00_3879); 
{ /* Llib/thread.scm 538 */
 obj_t BgL_tmp1083z00_1753;
{ /* Llib/thread.scm 538 */
 obj_t BgL_arg1577z00_1756;
BgL_arg1577z00_1756 = 
BGL_EXITD_PROTECT(BgL_exitd1081z00_1752); 
BgL_tmp1083z00_1753 = 
MAKE_YOUNG_PAIR(BgL_ohs1072z00_1750, BgL_arg1577z00_1756); } 
{ /* Llib/thread.scm 538 */

BGL_EXITD_PROTECT_SET(BgL_exitd1081z00_1752, BgL_tmp1083z00_1753); BUNSPEC; 
{ /* Llib/thread.scm 538 */
 obj_t BgL_tmp1082z00_1754;
{ 
 obj_t BgL_auxz00_13331;
{ /* Llib/thread.scm 542 */
 obj_t BgL_fun1575z00_1755;
BgL_fun1575z00_1755 = 
(((BgL_nothreadz00_bglt)COBJECT(BgL_i1071z00_3881))->BgL_bodyz00); 
if(
PROCEDURE_CORRECT_ARITYP(BgL_fun1575z00_1755, 0))
{ /* Llib/thread.scm 542 */
BgL_auxz00_13331 = 
BGL_PROCEDURE_CALL0(BgL_fun1575z00_1755)
; }  else 
{ /* Llib/thread.scm 542 */
FAILURE(BGl_string2935z00zz__threadz00,BGl_list2936z00zz__threadz00,BgL_fun1575z00_1755);} } 
BgL_tmp1082z00_1754 = 
((((BgL_nothreadz00_bglt)COBJECT(BgL_i1071z00_3881))->BgL_endzd2resultzd2)=((obj_t)BgL_auxz00_13331),BUNSPEC); } 
{ /* Llib/thread.scm 538 */
 bool_t BgL_test3949z00_13340;
{ /* Llib/thread.scm 538 */
 obj_t BgL_arg1938z00_3137;
BgL_arg1938z00_3137 = 
BGL_EXITD_PROTECT(BgL_exitd1081z00_1752); 
BgL_test3949z00_13340 = 
PAIRP(BgL_arg1938z00_3137); } 
if(BgL_test3949z00_13340)
{ /* Llib/thread.scm 538 */
 obj_t BgL_arg1936z00_3138;
{ /* Llib/thread.scm 538 */
 obj_t BgL_arg1937z00_3139;
BgL_arg1937z00_3139 = 
BGL_EXITD_PROTECT(BgL_exitd1081z00_1752); 
{ /* Llib/thread.scm 538 */
 obj_t BgL_pairz00_3140;
if(
PAIRP(BgL_arg1937z00_3139))
{ /* Llib/thread.scm 538 */
BgL_pairz00_3140 = BgL_arg1937z00_3139; }  else 
{ 
 obj_t BgL_auxz00_13346;
BgL_auxz00_13346 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2484z00zz__threadz00, 
BINT(23160L), BGl_string2939z00zz__threadz00, BGl_string2488z00zz__threadz00, BgL_arg1937z00_3139); 
FAILURE(BgL_auxz00_13346,BFALSE,BFALSE);} 
BgL_arg1936z00_3138 = 
CDR(BgL_pairz00_3140); } } 
BGL_EXITD_PROTECT_SET(BgL_exitd1081z00_1752, BgL_arg1936z00_3138); BUNSPEC; }  else 
{ /* Llib/thread.scm 538 */BFALSE; } } 
BGL_ENV_ERROR_HANDLER_SET(BgL_env1080z00_3879, BgL_ohs1072z00_1750); BUNSPEC; 
BgL_res1087z00_1749 = BgL_tmp1082z00_1754; } } } } } } 
POP_ENV_EXIT(BgL_env1080z00_3879); 
return BgL_res1087z00_1749;} } 
}} 

}



/* thread-start!-nothre1234~0 */
obj_t BGl_threadzd2startz12zd2nothre1234ze70zf5zz__threadz00(BgL_nothreadz00_bglt BgL_thz00_1732, obj_t BgL_scdz00_1733)
{
{ /* Llib/thread.scm 533 */
{ /* Llib/thread.scm 534 */
 obj_t BgL_threadz00_1736;
BgL_threadz00_1736 = BGl_za2nothreadzd2currentza2zd2zz__threadz00; 
{ /* Llib/thread.scm 535 */
 obj_t BgL_exitd1067z00_1737;
BgL_exitd1067z00_1737 = 
BGL_EXITD_TOP_AS_OBJ(); 
{ /* Llib/thread.scm 544 */
 obj_t BgL_zc3z04anonymousza31579ze3z87_3810;
BgL_zc3z04anonymousza31579ze3z87_3810 = 
MAKE_FX_PROCEDURE(BGl_z62zc3z04anonymousza31579ze3ze5zz__threadz00, 
(int)(0L), 
(int)(1L)); 
PROCEDURE_SET(BgL_zc3z04anonymousza31579ze3z87_3810, 
(int)(0L), BgL_threadz00_1736); 
{ /* Llib/thread.scm 535 */
 obj_t BgL_arg1939z00_3134;
{ /* Llib/thread.scm 535 */
 obj_t BgL_arg1940z00_3135;
BgL_arg1940z00_3135 = 
BGL_EXITD_PROTECT(BgL_exitd1067z00_1737); 
BgL_arg1939z00_3134 = 
MAKE_YOUNG_PAIR(BgL_zc3z04anonymousza31579ze3z87_3810, BgL_arg1940z00_3135); } 
BGL_EXITD_PROTECT_SET(BgL_exitd1067z00_1737, BgL_arg1939z00_3134); BUNSPEC; } 
{ /* Llib/thread.scm 536 */
 BgL_nothreadz00_bglt BgL_tmp1069z00_1739;
BGl_za2nothreadzd2currentza2zd2zz__threadz00 = 
((obj_t)BgL_thz00_1732); 
{ /* Llib/thread.scm 538 */
 obj_t BgL_env1080z00_1742;
BgL_env1080z00_1742 = 
BGL_CURRENT_DYNAMIC_ENV(); 
{ /* Llib/thread.scm 538 */
 obj_t BgL_cell1075z00_1743;
BgL_cell1075z00_1743 = 
MAKE_STACK_CELL(BUNSPEC); 
{ /* Llib/thread.scm 538 */
 obj_t BgL_val1079z00_1744;
BgL_val1079z00_1744 = 
BGl_zc3z04exitza31574ze3ze70z60zz__threadz00(BgL_thz00_1732, BgL_cell1075z00_1743, BgL_env1080z00_1742); 
if(
(BgL_val1079z00_1744==BgL_cell1075z00_1743))
{ /* Llib/thread.scm 538 */
{ /* Llib/thread.scm 538 */
 int BgL_tmpz00_13369;
BgL_tmpz00_13369 = 
(int)(0L); 
BGL_SIGSETMASK(BgL_tmpz00_13369); } 
{ /* Llib/thread.scm 538 */
 obj_t BgL_arg1573z00_1745;
BgL_arg1573z00_1745 = 
CELL_REF(
((obj_t)BgL_val1079z00_1744)); 
((((BgL_nothreadz00_bglt)COBJECT(BgL_thz00_1732))->BgL_endzd2exceptionzd2)=((obj_t)BgL_arg1573z00_1745),BUNSPEC); 
BGl_raisez00zz__errorz00(BgL_arg1573z00_1745); } }  else 
{ /* Llib/thread.scm 538 */BgL_val1079z00_1744; } } } } 
BgL_tmp1069z00_1739 = BgL_thz00_1732; 
{ /* Llib/thread.scm 535 */
 bool_t BgL_test3952z00_13376;
{ /* Llib/thread.scm 535 */
 obj_t BgL_arg1938z00_3143;
BgL_arg1938z00_3143 = 
BGL_EXITD_PROTECT(BgL_exitd1067z00_1737); 
BgL_test3952z00_13376 = 
PAIRP(BgL_arg1938z00_3143); } 
if(BgL_test3952z00_13376)
{ /* Llib/thread.scm 535 */
 obj_t BgL_arg1936z00_3144;
{ /* Llib/thread.scm 535 */
 obj_t BgL_arg1937z00_3145;
BgL_arg1937z00_3145 = 
BGL_EXITD_PROTECT(BgL_exitd1067z00_1737); 
{ /* Llib/thread.scm 535 */
 obj_t BgL_pairz00_3146;
if(
PAIRP(BgL_arg1937z00_3145))
{ /* Llib/thread.scm 535 */
BgL_pairz00_3146 = BgL_arg1937z00_3145; }  else 
{ 
 obj_t BgL_auxz00_13382;
BgL_auxz00_13382 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2484z00zz__threadz00, 
BINT(23045L), BGl_string2940z00zz__threadz00, BGl_string2488z00zz__threadz00, BgL_arg1937z00_3145); 
FAILURE(BgL_auxz00_13382,BFALSE,BFALSE);} 
BgL_arg1936z00_3144 = 
CDR(BgL_pairz00_3146); } } 
BGL_EXITD_PROTECT_SET(BgL_exitd1067z00_1737, BgL_arg1936z00_3144); BUNSPEC; }  else 
{ /* Llib/thread.scm 535 */BFALSE; } } 
BGl_za2nothreadzd2currentza2zd2zz__threadz00 = BgL_threadz00_1736; 
return 
((obj_t)BgL_tmp1069z00_1739);} } } } } 

}



/* &<@anonymous:1579> */
obj_t BGl_z62zc3z04anonymousza31579ze3ze5zz__threadz00(obj_t BgL_envz00_3847)
{
{ /* Llib/thread.scm 535 */
{ /* Llib/thread.scm 544 */
 obj_t BgL_threadz00_3848;
BgL_threadz00_3848 = 
PROCEDURE_REF(BgL_envz00_3847, 
(int)(0L)); 
return ( 
BGl_za2nothreadzd2currentza2zd2zz__threadz00 = BgL_threadz00_3848, BUNSPEC) ;} } 

}



/* &object-print-thread1194 */
obj_t BGl_z62objectzd2printzd2thread1194z62zz__threadz00(obj_t BgL_envz00_3849, obj_t BgL_oz00_3850, obj_t BgL_portz00_3851, obj_t BgL_printzd2slotzd2_3852)
{
{ /* Llib/thread.scm 378 */
{ /* Llib/thread.scm 379 */
 BgL_threadz00_bglt BgL_oz00_8485;
{ /* Llib/thread.scm 379 */
 bool_t BgL_test3954z00_13391;
{ /* Llib/thread.scm 379 */
 obj_t BgL_classz00_8445;
BgL_classz00_8445 = BGl_threadz00zz__threadz00; 
if(
BGL_OBJECTP(BgL_oz00_3850))
{ /* Llib/thread.scm 379 */
 BgL_objectz00_bglt BgL_arg1953z00_8447; long BgL_arg1954z00_8448;
BgL_arg1953z00_8447 = 
(BgL_objectz00_bglt)(BgL_oz00_3850); 
BgL_arg1954z00_8448 = 
BGL_CLASS_DEPTH(BgL_classz00_8445); 
if(
BGL_CONDEXPAND_ISA_ARCH64())
{ /* Llib/thread.scm 379 */
 long BgL_idxz00_8456;
BgL_idxz00_8456 = 
BGL_OBJECT_INHERITANCE_NUM(BgL_arg1953z00_8447); 
{ /* Llib/thread.scm 379 */
 obj_t BgL_arg1943z00_8457;
{ /* Llib/thread.scm 379 */
 long BgL_arg1944z00_8458;
BgL_arg1944z00_8458 = 
(BgL_idxz00_8456+BgL_arg1954z00_8448); 
BgL_arg1943z00_8457 = 
VECTOR_REF(BGl_za2inheritancesza2z00zz__objectz00,BgL_arg1944z00_8458); } 
BgL_test3954z00_13391 = 
(BgL_arg1943z00_8457==BgL_classz00_8445); } }  else 
{ /* Llib/thread.scm 379 */
 bool_t BgL_res2066z00_8463;
{ /* Llib/thread.scm 379 */
 obj_t BgL_oclassz00_8467;
{ /* Llib/thread.scm 379 */
 obj_t BgL_arg1959z00_8469; long BgL_arg1960z00_8470;
BgL_arg1959z00_8469 = 
(BGl_za2classesza2z00zz__objectz00); 
{ /* Llib/thread.scm 379 */
 long BgL_arg1961z00_8471;
BgL_arg1961z00_8471 = 
BGL_OBJECT_CLASS_NUM(BgL_arg1953z00_8447); 
BgL_arg1960z00_8470 = 
(BgL_arg1961z00_8471-OBJECT_TYPE); } 
BgL_oclassz00_8467 = 
VECTOR_REF(BgL_arg1959z00_8469,BgL_arg1960z00_8470); } 
{ /* Llib/thread.scm 379 */
 bool_t BgL__ortest_1149z00_8477;
BgL__ortest_1149z00_8477 = 
(BgL_classz00_8445==BgL_oclassz00_8467); 
if(BgL__ortest_1149z00_8477)
{ /* Llib/thread.scm 379 */
BgL_res2066z00_8463 = BgL__ortest_1149z00_8477; }  else 
{ /* Llib/thread.scm 379 */
 long BgL_odepthz00_8478;
{ /* Llib/thread.scm 379 */
 obj_t BgL_arg1947z00_8479;
BgL_arg1947z00_8479 = 
(BgL_oclassz00_8467); 
BgL_odepthz00_8478 = 
BGL_CLASS_DEPTH(BgL_arg1947z00_8479); } 
if(
(BgL_arg1954z00_8448<BgL_odepthz00_8478))
{ /* Llib/thread.scm 379 */
 obj_t BgL_arg1945z00_8483;
{ /* Llib/thread.scm 379 */
 obj_t BgL_arg1946z00_8484;
BgL_arg1946z00_8484 = 
(BgL_oclassz00_8467); 
BgL_arg1945z00_8483 = 
BGL_CLASS_ANCESTORS_REF(BgL_arg1946z00_8484, BgL_arg1954z00_8448); } 
BgL_res2066z00_8463 = 
(BgL_arg1945z00_8483==BgL_classz00_8445); }  else 
{ /* Llib/thread.scm 379 */
BgL_res2066z00_8463 = ((bool_t)0); } } } } 
BgL_test3954z00_13391 = BgL_res2066z00_8463; } }  else 
{ /* Llib/thread.scm 379 */
BgL_test3954z00_13391 = ((bool_t)0)
; } } 
if(BgL_test3954z00_13391)
{ /* Llib/thread.scm 379 */
BgL_oz00_8485 = 
((BgL_threadz00_bglt)BgL_oz00_3850); }  else 
{ 
 obj_t BgL_auxz00_13416;
BgL_auxz00_13416 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2484z00zz__threadz00, 
BINT(15622L), BGl_string2941z00zz__threadz00, BGl_string2500z00zz__threadz00, BgL_oz00_3850); 
FAILURE(BgL_auxz00_13416,BFALSE,BFALSE);} } 
{ /* Llib/thread.scm 379 */
 obj_t BgL_list1570z00_8486;
BgL_list1570z00_8486 = 
MAKE_YOUNG_PAIR(BgL_portz00_3851, BNIL); 
return 
BGl_objectzd2writezd2zz__objectz00(
((BgL_objectz00_bglt)BgL_oz00_8485), BgL_list1570z00_8486);} } } 

}



/* &object-write-thread1192 */
obj_t BGl_z62objectzd2writezd2thread1192z62zz__threadz00(obj_t BgL_envz00_3853, obj_t BgL_oz00_3854, obj_t BgL_portz00_3855)
{
{ /* Llib/thread.scm 369 */
{ /* Llib/thread.scm 370 */
 BgL_threadz00_bglt BgL_oz00_8527;
{ /* Llib/thread.scm 370 */
 bool_t BgL_test3959z00_13423;
{ /* Llib/thread.scm 370 */
 obj_t BgL_classz00_8487;
BgL_classz00_8487 = BGl_threadz00zz__threadz00; 
if(
BGL_OBJECTP(BgL_oz00_3854))
{ /* Llib/thread.scm 370 */
 BgL_objectz00_bglt BgL_arg1953z00_8489; long BgL_arg1954z00_8490;
BgL_arg1953z00_8489 = 
(BgL_objectz00_bglt)(BgL_oz00_3854); 
BgL_arg1954z00_8490 = 
BGL_CLASS_DEPTH(BgL_classz00_8487); 
if(
BGL_CONDEXPAND_ISA_ARCH64())
{ /* Llib/thread.scm 370 */
 long BgL_idxz00_8498;
BgL_idxz00_8498 = 
BGL_OBJECT_INHERITANCE_NUM(BgL_arg1953z00_8489); 
{ /* Llib/thread.scm 370 */
 obj_t BgL_arg1943z00_8499;
{ /* Llib/thread.scm 370 */
 long BgL_arg1944z00_8500;
BgL_arg1944z00_8500 = 
(BgL_idxz00_8498+BgL_arg1954z00_8490); 
BgL_arg1943z00_8499 = 
VECTOR_REF(BGl_za2inheritancesza2z00zz__objectz00,BgL_arg1944z00_8500); } 
BgL_test3959z00_13423 = 
(BgL_arg1943z00_8499==BgL_classz00_8487); } }  else 
{ /* Llib/thread.scm 370 */
 bool_t BgL_res2066z00_8505;
{ /* Llib/thread.scm 370 */
 obj_t BgL_oclassz00_8509;
{ /* Llib/thread.scm 370 */
 obj_t BgL_arg1959z00_8511; long BgL_arg1960z00_8512;
BgL_arg1959z00_8511 = 
(BGl_za2classesza2z00zz__objectz00); 
{ /* Llib/thread.scm 370 */
 long BgL_arg1961z00_8513;
BgL_arg1961z00_8513 = 
BGL_OBJECT_CLASS_NUM(BgL_arg1953z00_8489); 
BgL_arg1960z00_8512 = 
(BgL_arg1961z00_8513-OBJECT_TYPE); } 
BgL_oclassz00_8509 = 
VECTOR_REF(BgL_arg1959z00_8511,BgL_arg1960z00_8512); } 
{ /* Llib/thread.scm 370 */
 bool_t BgL__ortest_1149z00_8519;
BgL__ortest_1149z00_8519 = 
(BgL_classz00_8487==BgL_oclassz00_8509); 
if(BgL__ortest_1149z00_8519)
{ /* Llib/thread.scm 370 */
BgL_res2066z00_8505 = BgL__ortest_1149z00_8519; }  else 
{ /* Llib/thread.scm 370 */
 long BgL_odepthz00_8520;
{ /* Llib/thread.scm 370 */
 obj_t BgL_arg1947z00_8521;
BgL_arg1947z00_8521 = 
(BgL_oclassz00_8509); 
BgL_odepthz00_8520 = 
BGL_CLASS_DEPTH(BgL_arg1947z00_8521); } 
if(
(BgL_arg1954z00_8490<BgL_odepthz00_8520))
{ /* Llib/thread.scm 370 */
 obj_t BgL_arg1945z00_8525;
{ /* Llib/thread.scm 370 */
 obj_t BgL_arg1946z00_8526;
BgL_arg1946z00_8526 = 
(BgL_oclassz00_8509); 
BgL_arg1945z00_8525 = 
BGL_CLASS_ANCESTORS_REF(BgL_arg1946z00_8526, BgL_arg1954z00_8490); } 
BgL_res2066z00_8505 = 
(BgL_arg1945z00_8525==BgL_classz00_8487); }  else 
{ /* Llib/thread.scm 370 */
BgL_res2066z00_8505 = ((bool_t)0); } } } } 
BgL_test3959z00_13423 = BgL_res2066z00_8505; } }  else 
{ /* Llib/thread.scm 370 */
BgL_test3959z00_13423 = ((bool_t)0)
; } } 
if(BgL_test3959z00_13423)
{ /* Llib/thread.scm 370 */
BgL_oz00_8527 = 
((BgL_threadz00_bglt)BgL_oz00_3854); }  else 
{ 
 obj_t BgL_auxz00_13448;
BgL_auxz00_13448 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2484z00zz__threadz00, 
BINT(15158L), BGl_string2944z00zz__threadz00, BGl_string2500z00zz__threadz00, BgL_oz00_3854); 
FAILURE(BgL_auxz00_13448,BFALSE,BFALSE);} } 
{ /* Llib/thread.scm 370 */
 obj_t BgL_arg1551z00_8528;
if(
PAIRP(BgL_portz00_3855))
{ /* Llib/thread.scm 370 */
BgL_arg1551z00_8528 = 
CAR(BgL_portz00_3855); }  else 
{ /* Llib/thread.scm 370 */
 obj_t BgL_tmpz00_13455;
BgL_tmpz00_13455 = 
BGL_CURRENT_DYNAMIC_ENV(); 
BgL_arg1551z00_8528 = 
BGL_ENV_CURRENT_OUTPUT_PORT(BgL_tmpz00_13455); } 
{ /* Llib/thread.scm 372 */
 obj_t BgL_zc3z04anonymousza31554ze3z87_8529;
BgL_zc3z04anonymousza31554ze3z87_8529 = 
MAKE_FX_PROCEDURE(BGl_z62zc3z04anonymousza31554ze3ze5zz__threadz00, 
(int)(0L), 
(int)(1L)); 
PROCEDURE_SET(BgL_zc3z04anonymousza31554ze3z87_8529, 
(int)(0L), 
((obj_t)BgL_oz00_8527)); 
{ /* Llib/thread.scm 370 */
 obj_t BgL_auxz00_13464;
if(
OUTPUT_PORTP(BgL_arg1551z00_8528))
{ /* Llib/thread.scm 370 */
BgL_auxz00_13464 = BgL_arg1551z00_8528
; }  else 
{ 
 obj_t BgL_auxz00_13467;
BgL_auxz00_13467 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2484z00zz__threadz00, 
BINT(15207L), BGl_string2942z00zz__threadz00, BGl_string2943z00zz__threadz00, BgL_arg1551z00_8528); 
FAILURE(BgL_auxz00_13467,BFALSE,BFALSE);} 
return 
BGl_withzd2outputzd2tozd2portzd2zz__r4_ports_6_10_1z00(BgL_auxz00_13464, BgL_zc3z04anonymousza31554ze3z87_8529);} } } } } 

}



/* &<@anonymous:1554> */
obj_t BGl_z62zc3z04anonymousza31554ze3ze5zz__threadz00(obj_t BgL_envz00_3856)
{
{ /* Llib/thread.scm 371 */
{ /* Llib/thread.scm 372 */
 BgL_threadz00_bglt BgL_oz00_3857;
BgL_oz00_3857 = 
((BgL_threadz00_bglt)
PROCEDURE_REF(BgL_envz00_3856, 
(int)(0L))); 
{ /* Llib/thread.scm 373 */
 obj_t BgL_arg1555z00_8530; obj_t BgL_arg1558z00_8531;
{ /* Llib/thread.scm 373 */
 obj_t BgL_arg1568z00_8532;
{ /* Llib/thread.scm 373 */
 obj_t BgL_arg1959z00_8533; long BgL_arg1960z00_8534;
BgL_arg1959z00_8533 = 
(BGl_za2classesza2z00zz__objectz00); 
{ /* Llib/thread.scm 373 */
 long BgL_arg1961z00_8535;
BgL_arg1961z00_8535 = 
BGL_OBJECT_CLASS_NUM(
((BgL_objectz00_bglt)BgL_oz00_3857)); 
BgL_arg1960z00_8534 = 
(BgL_arg1961z00_8535-OBJECT_TYPE); } 
BgL_arg1568z00_8532 = 
VECTOR_REF(BgL_arg1959z00_8533,BgL_arg1960z00_8534); } 
{ /* Llib/thread.scm 373 */
 obj_t BgL_auxz00_13480;
if(
BGl_classzf3zf3zz__objectz00(BgL_arg1568z00_8532))
{ /* Llib/thread.scm 373 */
BgL_auxz00_13480 = BgL_arg1568z00_8532
; }  else 
{ 
 obj_t BgL_auxz00_13483;
BgL_auxz00_13483 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2484z00zz__threadz00, 
BINT(15319L), BGl_string2945z00zz__threadz00, BGl_string2946z00zz__threadz00, BgL_arg1568z00_8532); 
FAILURE(BgL_auxz00_13483,BFALSE,BFALSE);} 
BgL_arg1555z00_8530 = 
BGl_classzd2namezd2zz__objectz00(BgL_auxz00_13480); } } 
BgL_arg1558z00_8531 = 
(((BgL_threadz00_bglt)COBJECT(BgL_oz00_3857))->BgL_namez00); 
{ /* Llib/thread.scm 373 */
 obj_t BgL_list1559z00_8536;
{ /* Llib/thread.scm 373 */
 obj_t BgL_arg1561z00_8537;
{ /* Llib/thread.scm 373 */
 obj_t BgL_arg1562z00_8538;
{ /* Llib/thread.scm 373 */
 obj_t BgL_arg1563z00_8539;
{ /* Llib/thread.scm 373 */
 obj_t BgL_arg1565z00_8540;
BgL_arg1565z00_8540 = 
MAKE_YOUNG_PAIR(BGl_string2947z00zz__threadz00, BNIL); 
BgL_arg1563z00_8539 = 
MAKE_YOUNG_PAIR(BgL_arg1558z00_8531, BgL_arg1565z00_8540); } 
BgL_arg1562z00_8538 = 
MAKE_YOUNG_PAIR(BGl_string2948z00zz__threadz00, BgL_arg1563z00_8539); } 
BgL_arg1561z00_8537 = 
MAKE_YOUNG_PAIR(BgL_arg1555z00_8530, BgL_arg1562z00_8538); } 
BgL_list1559z00_8536 = 
MAKE_YOUNG_PAIR(BGl_string2949z00zz__threadz00, BgL_arg1561z00_8537); } 
return 
BGl_displayza2za2zz__r4_output_6_10_3z00(BgL_list1559z00_8536);} } } } 

}



/* &object-display-threa1190 */
obj_t BGl_z62objectzd2displayzd2threa1190z62zz__threadz00(obj_t BgL_envz00_3858, obj_t BgL_oz00_3859, obj_t BgL_portz00_3860)
{
{ /* Llib/thread.scm 360 */
{ /* Llib/thread.scm 361 */
 BgL_threadz00_bglt BgL_oz00_8581;
{ /* Llib/thread.scm 361 */
 bool_t BgL_test3967z00_13495;
{ /* Llib/thread.scm 361 */
 obj_t BgL_classz00_8541;
BgL_classz00_8541 = BGl_threadz00zz__threadz00; 
if(
BGL_OBJECTP(BgL_oz00_3859))
{ /* Llib/thread.scm 361 */
 BgL_objectz00_bglt BgL_arg1953z00_8543; long BgL_arg1954z00_8544;
BgL_arg1953z00_8543 = 
(BgL_objectz00_bglt)(BgL_oz00_3859); 
BgL_arg1954z00_8544 = 
BGL_CLASS_DEPTH(BgL_classz00_8541); 
if(
BGL_CONDEXPAND_ISA_ARCH64())
{ /* Llib/thread.scm 361 */
 long BgL_idxz00_8552;
BgL_idxz00_8552 = 
BGL_OBJECT_INHERITANCE_NUM(BgL_arg1953z00_8543); 
{ /* Llib/thread.scm 361 */
 obj_t BgL_arg1943z00_8553;
{ /* Llib/thread.scm 361 */
 long BgL_arg1944z00_8554;
BgL_arg1944z00_8554 = 
(BgL_idxz00_8552+BgL_arg1954z00_8544); 
BgL_arg1943z00_8553 = 
VECTOR_REF(BGl_za2inheritancesza2z00zz__objectz00,BgL_arg1944z00_8554); } 
BgL_test3967z00_13495 = 
(BgL_arg1943z00_8553==BgL_classz00_8541); } }  else 
{ /* Llib/thread.scm 361 */
 bool_t BgL_res2066z00_8559;
{ /* Llib/thread.scm 361 */
 obj_t BgL_oclassz00_8563;
{ /* Llib/thread.scm 361 */
 obj_t BgL_arg1959z00_8565; long BgL_arg1960z00_8566;
BgL_arg1959z00_8565 = 
(BGl_za2classesza2z00zz__objectz00); 
{ /* Llib/thread.scm 361 */
 long BgL_arg1961z00_8567;
BgL_arg1961z00_8567 = 
BGL_OBJECT_CLASS_NUM(BgL_arg1953z00_8543); 
BgL_arg1960z00_8566 = 
(BgL_arg1961z00_8567-OBJECT_TYPE); } 
BgL_oclassz00_8563 = 
VECTOR_REF(BgL_arg1959z00_8565,BgL_arg1960z00_8566); } 
{ /* Llib/thread.scm 361 */
 bool_t BgL__ortest_1149z00_8573;
BgL__ortest_1149z00_8573 = 
(BgL_classz00_8541==BgL_oclassz00_8563); 
if(BgL__ortest_1149z00_8573)
{ /* Llib/thread.scm 361 */
BgL_res2066z00_8559 = BgL__ortest_1149z00_8573; }  else 
{ /* Llib/thread.scm 361 */
 long BgL_odepthz00_8574;
{ /* Llib/thread.scm 361 */
 obj_t BgL_arg1947z00_8575;
BgL_arg1947z00_8575 = 
(BgL_oclassz00_8563); 
BgL_odepthz00_8574 = 
BGL_CLASS_DEPTH(BgL_arg1947z00_8575); } 
if(
(BgL_arg1954z00_8544<BgL_odepthz00_8574))
{ /* Llib/thread.scm 361 */
 obj_t BgL_arg1945z00_8579;
{ /* Llib/thread.scm 361 */
 obj_t BgL_arg1946z00_8580;
BgL_arg1946z00_8580 = 
(BgL_oclassz00_8563); 
BgL_arg1945z00_8579 = 
BGL_CLASS_ANCESTORS_REF(BgL_arg1946z00_8580, BgL_arg1954z00_8544); } 
BgL_res2066z00_8559 = 
(BgL_arg1945z00_8579==BgL_classz00_8541); }  else 
{ /* Llib/thread.scm 361 */
BgL_res2066z00_8559 = ((bool_t)0); } } } } 
BgL_test3967z00_13495 = BgL_res2066z00_8559; } }  else 
{ /* Llib/thread.scm 361 */
BgL_test3967z00_13495 = ((bool_t)0)
; } } 
if(BgL_test3967z00_13495)
{ /* Llib/thread.scm 361 */
BgL_oz00_8581 = 
((BgL_threadz00_bglt)BgL_oz00_3859); }  else 
{ 
 obj_t BgL_auxz00_13520;
BgL_auxz00_13520 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2484z00zz__threadz00, 
BINT(14682L), BGl_string2951z00zz__threadz00, BGl_string2500z00zz__threadz00, BgL_oz00_3859); 
FAILURE(BgL_auxz00_13520,BFALSE,BFALSE);} } 
{ /* Llib/thread.scm 361 */
 obj_t BgL_arg1534z00_8582;
if(
PAIRP(BgL_portz00_3860))
{ /* Llib/thread.scm 361 */
BgL_arg1534z00_8582 = 
CAR(BgL_portz00_3860); }  else 
{ /* Llib/thread.scm 361 */
 obj_t BgL_tmpz00_13527;
BgL_tmpz00_13527 = 
BGL_CURRENT_DYNAMIC_ENV(); 
BgL_arg1534z00_8582 = 
BGL_ENV_CURRENT_OUTPUT_PORT(BgL_tmpz00_13527); } 
{ /* Llib/thread.scm 363 */
 obj_t BgL_zc3z04anonymousza31539ze3z87_8583;
BgL_zc3z04anonymousza31539ze3z87_8583 = 
MAKE_FX_PROCEDURE(BGl_z62zc3z04anonymousza31539ze3ze5zz__threadz00, 
(int)(0L), 
(int)(1L)); 
PROCEDURE_SET(BgL_zc3z04anonymousza31539ze3z87_8583, 
(int)(0L), 
((obj_t)BgL_oz00_8581)); 
{ /* Llib/thread.scm 361 */
 obj_t BgL_auxz00_13536;
if(
OUTPUT_PORTP(BgL_arg1534z00_8582))
{ /* Llib/thread.scm 361 */
BgL_auxz00_13536 = BgL_arg1534z00_8582
; }  else 
{ 
 obj_t BgL_auxz00_13539;
BgL_auxz00_13539 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2484z00zz__threadz00, 
BINT(14731L), BGl_string2950z00zz__threadz00, BGl_string2943z00zz__threadz00, BgL_arg1534z00_8582); 
FAILURE(BgL_auxz00_13539,BFALSE,BFALSE);} 
return 
BGl_withzd2outputzd2tozd2portzd2zz__r4_ports_6_10_1z00(BgL_auxz00_13536, BgL_zc3z04anonymousza31539ze3z87_8583);} } } } } 

}



/* &<@anonymous:1539> */
obj_t BGl_z62zc3z04anonymousza31539ze3ze5zz__threadz00(obj_t BgL_envz00_3861)
{
{ /* Llib/thread.scm 362 */
{ /* Llib/thread.scm 363 */
 BgL_threadz00_bglt BgL_oz00_3862;
BgL_oz00_3862 = 
((BgL_threadz00_bglt)
PROCEDURE_REF(BgL_envz00_3861, 
(int)(0L))); 
{ /* Llib/thread.scm 364 */
 obj_t BgL_arg1540z00_8584; obj_t BgL_arg1541z00_8585;
{ /* Llib/thread.scm 364 */
 obj_t BgL_arg1549z00_8586;
{ /* Llib/thread.scm 364 */
 obj_t BgL_arg1959z00_8587; long BgL_arg1960z00_8588;
BgL_arg1959z00_8587 = 
(BGl_za2classesza2z00zz__objectz00); 
{ /* Llib/thread.scm 364 */
 long BgL_arg1961z00_8589;
BgL_arg1961z00_8589 = 
BGL_OBJECT_CLASS_NUM(
((BgL_objectz00_bglt)BgL_oz00_3862)); 
BgL_arg1960z00_8588 = 
(BgL_arg1961z00_8589-OBJECT_TYPE); } 
BgL_arg1549z00_8586 = 
VECTOR_REF(BgL_arg1959z00_8587,BgL_arg1960z00_8588); } 
{ /* Llib/thread.scm 364 */
 obj_t BgL_auxz00_13552;
if(
BGl_classzf3zf3zz__objectz00(BgL_arg1549z00_8586))
{ /* Llib/thread.scm 364 */
BgL_auxz00_13552 = BgL_arg1549z00_8586
; }  else 
{ 
 obj_t BgL_auxz00_13555;
BgL_auxz00_13555 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2484z00zz__threadz00, 
BINT(14843L), BGl_string2952z00zz__threadz00, BGl_string2946z00zz__threadz00, BgL_arg1549z00_8586); 
FAILURE(BgL_auxz00_13555,BFALSE,BFALSE);} 
BgL_arg1540z00_8584 = 
BGl_classzd2namezd2zz__objectz00(BgL_auxz00_13552); } } 
BgL_arg1541z00_8585 = 
(((BgL_threadz00_bglt)COBJECT(BgL_oz00_3862))->BgL_namez00); 
{ /* Llib/thread.scm 364 */
 obj_t BgL_list1542z00_8590;
{ /* Llib/thread.scm 364 */
 obj_t BgL_arg1543z00_8591;
{ /* Llib/thread.scm 364 */
 obj_t BgL_arg1545z00_8592;
{ /* Llib/thread.scm 364 */
 obj_t BgL_arg1546z00_8593;
{ /* Llib/thread.scm 364 */
 obj_t BgL_arg1547z00_8594;
BgL_arg1547z00_8594 = 
MAKE_YOUNG_PAIR(BGl_string2947z00zz__threadz00, BNIL); 
BgL_arg1546z00_8593 = 
MAKE_YOUNG_PAIR(BgL_arg1541z00_8585, BgL_arg1547z00_8594); } 
BgL_arg1545z00_8592 = 
MAKE_YOUNG_PAIR(BGl_string2948z00zz__threadz00, BgL_arg1546z00_8593); } 
BgL_arg1543z00_8591 = 
MAKE_YOUNG_PAIR(BgL_arg1540z00_8584, BgL_arg1545z00_8592); } 
BgL_list1542z00_8590 = 
MAKE_YOUNG_PAIR(BGl_string2949z00zz__threadz00, BgL_arg1543z00_8591); } 
return 
BGl_displayza2za2zz__r4_output_6_10_3z00(BgL_list1542z00_8590);} } } } 

}



/* &tb-current-thread-no1184 */
obj_t BGl_z62tbzd2currentzd2threadzd2no1184zb0zz__threadz00(obj_t BgL_envz00_3863, obj_t BgL_tbz00_3864)
{
{ /* Llib/thread.scm 344 */
{ /* Llib/thread.scm 344 */
 BgL_nothreadzd2backendzd2_bglt BgL_tbz00_8635;
{ /* Llib/thread.scm 344 */
 bool_t BgL_test3975z00_13567;
{ /* Llib/thread.scm 344 */
 obj_t BgL_classz00_8595;
BgL_classz00_8595 = BGl_nothreadzd2backendzd2zz__threadz00; 
if(
BGL_OBJECTP(BgL_tbz00_3864))
{ /* Llib/thread.scm 344 */
 BgL_objectz00_bglt BgL_arg1953z00_8597; long BgL_arg1954z00_8598;
BgL_arg1953z00_8597 = 
(BgL_objectz00_bglt)(BgL_tbz00_3864); 
BgL_arg1954z00_8598 = 
BGL_CLASS_DEPTH(BgL_classz00_8595); 
if(
BGL_CONDEXPAND_ISA_ARCH64())
{ /* Llib/thread.scm 344 */
 long BgL_idxz00_8606;
BgL_idxz00_8606 = 
BGL_OBJECT_INHERITANCE_NUM(BgL_arg1953z00_8597); 
{ /* Llib/thread.scm 344 */
 obj_t BgL_arg1943z00_8607;
{ /* Llib/thread.scm 344 */
 long BgL_arg1944z00_8608;
BgL_arg1944z00_8608 = 
(BgL_idxz00_8606+BgL_arg1954z00_8598); 
BgL_arg1943z00_8607 = 
VECTOR_REF(BGl_za2inheritancesza2z00zz__objectz00,BgL_arg1944z00_8608); } 
BgL_test3975z00_13567 = 
(BgL_arg1943z00_8607==BgL_classz00_8595); } }  else 
{ /* Llib/thread.scm 344 */
 bool_t BgL_res2066z00_8613;
{ /* Llib/thread.scm 344 */
 obj_t BgL_oclassz00_8617;
{ /* Llib/thread.scm 344 */
 obj_t BgL_arg1959z00_8619; long BgL_arg1960z00_8620;
BgL_arg1959z00_8619 = 
(BGl_za2classesza2z00zz__objectz00); 
{ /* Llib/thread.scm 344 */
 long BgL_arg1961z00_8621;
BgL_arg1961z00_8621 = 
BGL_OBJECT_CLASS_NUM(BgL_arg1953z00_8597); 
BgL_arg1960z00_8620 = 
(BgL_arg1961z00_8621-OBJECT_TYPE); } 
BgL_oclassz00_8617 = 
VECTOR_REF(BgL_arg1959z00_8619,BgL_arg1960z00_8620); } 
{ /* Llib/thread.scm 344 */
 bool_t BgL__ortest_1149z00_8627;
BgL__ortest_1149z00_8627 = 
(BgL_classz00_8595==BgL_oclassz00_8617); 
if(BgL__ortest_1149z00_8627)
{ /* Llib/thread.scm 344 */
BgL_res2066z00_8613 = BgL__ortest_1149z00_8627; }  else 
{ /* Llib/thread.scm 344 */
 long BgL_odepthz00_8628;
{ /* Llib/thread.scm 344 */
 obj_t BgL_arg1947z00_8629;
BgL_arg1947z00_8629 = 
(BgL_oclassz00_8617); 
BgL_odepthz00_8628 = 
BGL_CLASS_DEPTH(BgL_arg1947z00_8629); } 
if(
(BgL_arg1954z00_8598<BgL_odepthz00_8628))
{ /* Llib/thread.scm 344 */
 obj_t BgL_arg1945z00_8633;
{ /* Llib/thread.scm 344 */
 obj_t BgL_arg1946z00_8634;
BgL_arg1946z00_8634 = 
(BgL_oclassz00_8617); 
BgL_arg1945z00_8633 = 
BGL_CLASS_ANCESTORS_REF(BgL_arg1946z00_8634, BgL_arg1954z00_8598); } 
BgL_res2066z00_8613 = 
(BgL_arg1945z00_8633==BgL_classz00_8595); }  else 
{ /* Llib/thread.scm 344 */
BgL_res2066z00_8613 = ((bool_t)0); } } } } 
BgL_test3975z00_13567 = BgL_res2066z00_8613; } }  else 
{ /* Llib/thread.scm 344 */
BgL_test3975z00_13567 = ((bool_t)0)
; } } 
if(BgL_test3975z00_13567)
{ /* Llib/thread.scm 344 */
BgL_tbz00_8635 = 
((BgL_nothreadzd2backendzd2_bglt)BgL_tbz00_3864); }  else 
{ 
 obj_t BgL_auxz00_13592;
BgL_auxz00_13592 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2484z00zz__threadz00, 
BINT(13727L), BGl_string2953z00zz__threadz00, BGl_string2627z00zz__threadz00, BgL_tbz00_3864); 
FAILURE(BgL_auxz00_13592,BFALSE,BFALSE);} } 
return BGl_za2nothreadzd2currentza2zd2zz__threadz00;} } 

}



/* &tb-make-thread-nothr1182 */
BgL_threadz00_bglt BGl_z62tbzd2makezd2threadzd2nothr1182zb0zz__threadz00(obj_t BgL_envz00_3865, obj_t BgL_tbz00_3866, obj_t BgL_bodyz00_3867, obj_t BgL_namez00_3868)
{
{ /* Llib/thread.scm 336 */
{ /* Llib/thread.scm 337 */
 BgL_nothreadzd2backendzd2_bglt BgL_tbz00_8676;
{ /* Llib/thread.scm 337 */
 bool_t BgL_test3980z00_13596;
{ /* Llib/thread.scm 337 */
 obj_t BgL_classz00_8636;
BgL_classz00_8636 = BGl_nothreadzd2backendzd2zz__threadz00; 
if(
BGL_OBJECTP(BgL_tbz00_3866))
{ /* Llib/thread.scm 337 */
 BgL_objectz00_bglt BgL_arg1953z00_8638; long BgL_arg1954z00_8639;
BgL_arg1953z00_8638 = 
(BgL_objectz00_bglt)(BgL_tbz00_3866); 
BgL_arg1954z00_8639 = 
BGL_CLASS_DEPTH(BgL_classz00_8636); 
if(
BGL_CONDEXPAND_ISA_ARCH64())
{ /* Llib/thread.scm 337 */
 long BgL_idxz00_8647;
BgL_idxz00_8647 = 
BGL_OBJECT_INHERITANCE_NUM(BgL_arg1953z00_8638); 
{ /* Llib/thread.scm 337 */
 obj_t BgL_arg1943z00_8648;
{ /* Llib/thread.scm 337 */
 long BgL_arg1944z00_8649;
BgL_arg1944z00_8649 = 
(BgL_idxz00_8647+BgL_arg1954z00_8639); 
BgL_arg1943z00_8648 = 
VECTOR_REF(BGl_za2inheritancesza2z00zz__objectz00,BgL_arg1944z00_8649); } 
BgL_test3980z00_13596 = 
(BgL_arg1943z00_8648==BgL_classz00_8636); } }  else 
{ /* Llib/thread.scm 337 */
 bool_t BgL_res2066z00_8654;
{ /* Llib/thread.scm 337 */
 obj_t BgL_oclassz00_8658;
{ /* Llib/thread.scm 337 */
 obj_t BgL_arg1959z00_8660; long BgL_arg1960z00_8661;
BgL_arg1959z00_8660 = 
(BGl_za2classesza2z00zz__objectz00); 
{ /* Llib/thread.scm 337 */
 long BgL_arg1961z00_8662;
BgL_arg1961z00_8662 = 
BGL_OBJECT_CLASS_NUM(BgL_arg1953z00_8638); 
BgL_arg1960z00_8661 = 
(BgL_arg1961z00_8662-OBJECT_TYPE); } 
BgL_oclassz00_8658 = 
VECTOR_REF(BgL_arg1959z00_8660,BgL_arg1960z00_8661); } 
{ /* Llib/thread.scm 337 */
 bool_t BgL__ortest_1149z00_8668;
BgL__ortest_1149z00_8668 = 
(BgL_classz00_8636==BgL_oclassz00_8658); 
if(BgL__ortest_1149z00_8668)
{ /* Llib/thread.scm 337 */
BgL_res2066z00_8654 = BgL__ortest_1149z00_8668; }  else 
{ /* Llib/thread.scm 337 */
 long BgL_odepthz00_8669;
{ /* Llib/thread.scm 337 */
 obj_t BgL_arg1947z00_8670;
BgL_arg1947z00_8670 = 
(BgL_oclassz00_8658); 
BgL_odepthz00_8669 = 
BGL_CLASS_DEPTH(BgL_arg1947z00_8670); } 
if(
(BgL_arg1954z00_8639<BgL_odepthz00_8669))
{ /* Llib/thread.scm 337 */
 obj_t BgL_arg1945z00_8674;
{ /* Llib/thread.scm 337 */
 obj_t BgL_arg1946z00_8675;
BgL_arg1946z00_8675 = 
(BgL_oclassz00_8658); 
BgL_arg1945z00_8674 = 
BGL_CLASS_ANCESTORS_REF(BgL_arg1946z00_8675, BgL_arg1954z00_8639); } 
BgL_res2066z00_8654 = 
(BgL_arg1945z00_8674==BgL_classz00_8636); }  else 
{ /* Llib/thread.scm 337 */
BgL_res2066z00_8654 = ((bool_t)0); } } } } 
BgL_test3980z00_13596 = BgL_res2066z00_8654; } }  else 
{ /* Llib/thread.scm 337 */
BgL_test3980z00_13596 = ((bool_t)0)
; } } 
if(BgL_test3980z00_13596)
{ /* Llib/thread.scm 337 */
BgL_tbz00_8676 = 
((BgL_nothreadzd2backendzd2_bglt)BgL_tbz00_3866); }  else 
{ 
 obj_t BgL_auxz00_13621;
BgL_auxz00_13621 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2484z00zz__threadz00, 
BINT(13443L), BGl_string2961z00zz__threadz00, BGl_string2627z00zz__threadz00, BgL_tbz00_3866); 
FAILURE(BgL_auxz00_13621,BFALSE,BFALSE);} } 
{ /* Llib/thread.scm 337 */
 BgL_nothreadz00_bglt BgL_new1062z00_8677;
{ /* Llib/thread.scm 339 */
 BgL_nothreadz00_bglt BgL_new1060z00_8678;
BgL_new1060z00_8678 = 
((BgL_nothreadz00_bglt)BOBJECT( GC_MALLOC( sizeof(struct BgL_nothreadz00_bgl) ))); 
{ /* Llib/thread.scm 339 */
 long BgL_arg1533z00_8679;
BgL_arg1533z00_8679 = 
BGL_CLASS_NUM(BGl_nothreadz00zz__threadz00); 
BGL_OBJECT_CLASS_NUM_SET(
((BgL_objectz00_bglt)BgL_new1060z00_8678), BgL_arg1533z00_8679); } 
BgL_new1062z00_8677 = BgL_new1060z00_8678; } 
((((BgL_threadz00_bglt)COBJECT(
((BgL_threadz00_bglt)BgL_new1062z00_8677)))->BgL_namez00)=((obj_t)BgL_namez00_3868),BUNSPEC); 
{ 
 obj_t BgL_auxz00_13631;
if(
PROCEDUREP(BgL_bodyz00_3867))
{ /* Llib/thread.scm 338 */
BgL_auxz00_13631 = BgL_bodyz00_3867
; }  else 
{ 
 obj_t BgL_auxz00_13634;
BgL_auxz00_13634 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2484z00zz__threadz00, 
BINT(13472L), BGl_string2954z00zz__threadz00, BGl_string2501z00zz__threadz00, BgL_bodyz00_3867); 
FAILURE(BgL_auxz00_13634,BFALSE,BFALSE);} 
((((BgL_nothreadz00_bglt)COBJECT(BgL_new1062z00_8677))->BgL_bodyz00)=((obj_t)BgL_auxz00_13631),BUNSPEC); } 
((((BgL_nothreadz00_bglt)COBJECT(BgL_new1062z00_8677))->BgL_z52specificz52)=((obj_t)BUNSPEC),BUNSPEC); 
((((BgL_nothreadz00_bglt)COBJECT(BgL_new1062z00_8677))->BgL_z52cleanupz52)=((obj_t)BFALSE),BUNSPEC); 
((((BgL_nothreadz00_bglt)COBJECT(BgL_new1062z00_8677))->BgL_endzd2resultzd2)=((obj_t)BUNSPEC),BUNSPEC); 
((((BgL_nothreadz00_bglt)COBJECT(BgL_new1062z00_8677))->BgL_endzd2exceptionzd2)=((obj_t)BUNSPEC),BUNSPEC); 
((((BgL_nothreadz00_bglt)COBJECT(BgL_new1062z00_8677))->BgL_z52namez52)=((obj_t)BGl_string2640z00zz__threadz00),BUNSPEC); 
{ /* Llib/thread.scm 337 */
 obj_t BgL_fun1532z00_8680;
BgL_fun1532z00_8680 = 
BGl_classzd2constructorzd2zz__objectz00(BGl_nothreadz00zz__threadz00); 
{ /* Llib/thread.scm 337 */
 obj_t BgL_funz00_8681;
if(
PROCEDUREP(BgL_fun1532z00_8680))
{ /* Llib/thread.scm 337 */
BgL_funz00_8681 = BgL_fun1532z00_8680; }  else 
{ 
 obj_t BgL_auxz00_13647;
BgL_auxz00_13647 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2484z00zz__threadz00, 
BINT(13443L), BGl_string2954z00zz__threadz00, BGl_string2501z00zz__threadz00, BgL_fun1532z00_8680); 
FAILURE(BgL_auxz00_13647,BFALSE,BFALSE);} 
if(
PROCEDURE_CORRECT_ARITYP(BgL_funz00_8681, 1))
{ /* Llib/thread.scm 337 */
(VA_PROCEDUREP( BgL_funz00_8681 ) ? ((obj_t (*)(obj_t, ...))PROCEDURE_ENTRY(BgL_funz00_8681))(BgL_fun1532z00_8680, 
((obj_t)BgL_new1062z00_8677), BEOA) : ((obj_t (*)(obj_t, obj_t))PROCEDURE_ENTRY(BgL_funz00_8681))(BgL_fun1532z00_8680, 
((obj_t)BgL_new1062z00_8677)) ); }  else 
{ /* Llib/thread.scm 337 */
FAILURE(BGl_string2955z00zz__threadz00,BGl_list2956z00zz__threadz00,BgL_funz00_8681);} } } 
return 
((BgL_threadz00_bglt)BgL_new1062z00_8677);} } } 

}



/* imported-modules-init */
obj_t BGl_importedzd2moduleszd2initz00zz__threadz00(void)
{
{ /* Llib/thread.scm 17 */
BGl_modulezd2initializa7ationz75zz__errorz00(88804785L, 
BSTRING_TO_STRING(BGl_string2569z00zz__threadz00)); 
return 
BGl_modulezd2initializa7ationz75zz__objectz00(475449627L, 
BSTRING_TO_STRING(BGl_string2569z00zz__threadz00));} 

}

#ifdef __cplusplus
}
#endif
