/*===========================================================================*/
/*   (Ieee/pairlist.scm)                                                     */
/*   Bigloo (4.7a)                                                           */
/*   Inria -- Sophia Antipolis (c)       Thu Feb 19 09:11:58 AM CET 2026     */
/*===========================================================================*/
/* COMPILATION: (/home/serrano/prgm/project/bigloo/4.7a/bin/bigloo -srfi bigloo-unsafe -O3 -fcfa-arithmetic -q -lib-dir /home/serrano/prgm/project/bigloo/4.7a/lib/bigloo/4.7a +rm -mklib -cc gcc -fsharing -q -no-hello -unsafe -safee -O4 -stdc -c Ieee/pairlist.scm -indent -o objs/obj_u/Ieee/pairlist.c) */
/* GC selection */
#define THE_GC BOEHM_GC

/* unsafe mode */
#define BIGLOO_UNSAFE 1

/* traces mode */
#define BIGLOO_TRACE 0

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

#ifdef __cplusplus
extern "C"
{
#endif
#ifndef BGL_MODULE_TYPE_DEFINITIONS
#define BGL_MODULE_TYPE_DEFINITIONS
#ifndef BGL___R4_PAIRS_AND_LISTS_6_3_TYPE_DEFINITIONS
#define BGL___R4_PAIRS_AND_LISTS_6_3_TYPE_DEFINITIONS
#endif													// BGL___R4_PAIRS_AND_LISTS_6_3_TYPE_DEFINITIONS
#endif													// BGL_MODULE_TYPE_DEFINITIONS

	static obj_t BGl_z62carz62zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
	static obj_t BGl_z62nullzf3z91zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
	static obj_t BGl_z62cdaarz62zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
	BGL_EXPORTED_DECL bool_t
		BGl_pairzd2orzd2nullzf3zf3zz__r4_pairs_and_lists_6_3z00(obj_t);
	static obj_t BGl_z62caddrz62zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
	BGL_EXPORTED_DECL obj_t BGl_cddddrz00zz__r4_pairs_and_lists_6_3z00(obj_t);
	static obj_t BGl_z62lengthz62zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
	static obj_t BGl_z62takez62zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t, obj_t);
	BGL_EXPORTED_DECL obj_t bgl_append2(obj_t, obj_t);
	BGL_EXPORTED_DECL obj_t BGl_reducez00zz__r4_pairs_and_lists_6_3z00(obj_t,
		obj_t, obj_t);
	BGL_EXPORTED_DECL obj_t BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(obj_t,
		obj_t);
	static obj_t BGl_z62appendz62zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
	BGL_EXPORTED_DECL obj_t BGl_cdaadrz00zz__r4_pairs_and_lists_6_3z00(obj_t);
	BGL_EXPORTED_DECL obj_t BGl_caddarz00zz__r4_pairs_and_lists_6_3z00(obj_t);
	BGL_EXPORTED_DECL obj_t BGl_ereversez00zz__r4_pairs_and_lists_6_3z00(obj_t);
	static obj_t BGl_z62listz62zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
	static obj_t BGl_z62cddaarz62zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
	static obj_t BGl_z62cdaddrz62zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
	BGL_EXPORTED_DECL obj_t BGl_anyz00zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
	BGL_EXPORTED_DECL obj_t
		BGl_deletezd2duplicatesz12zc0zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
	static obj_t BGl_requirezd2initializa7ationz75zz__r4_pairs_and_lists_6_3z00 =
		BUNSPEC;
	BGL_EXPORTED_DECL obj_t BGl_listzd2tailzd2zz__r4_pairs_and_lists_6_3z00(obj_t,
		long);
	BGL_EXPORTED_DECL obj_t bgl_remq_bang(obj_t, obj_t);
	BGL_EXPORTED_DECL obj_t
		BGl_treezd2copyzd2zz__r4_pairs_and_lists_6_3z00(obj_t);
	BGL_EXPORTED_DECL obj_t BGl_caaaarz00zz__r4_pairs_and_lists_6_3z00(obj_t);
	BGL_EXPORTED_DECL obj_t BGl_cddarz00zz__r4_pairs_and_lists_6_3z00(obj_t);
	static obj_t BGl_z62caadarz62zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
	BGL_EXPORTED_DECL obj_t
		BGl_listzd2copyzd2zz__r4_pairs_and_lists_6_3z00(obj_t);
	BGL_EXPORTED_DECL obj_t BGl_takez00zz__r4_pairs_and_lists_6_3z00(obj_t, long);
	BGL_EXPORTED_DECL obj_t bgl_list_ref(obj_t, long);
	static obj_t BGl_z62epairzf3z91zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
	extern bool_t BGl_equalzf3zf3zz__r4_equivalence_6_2z00(obj_t, obj_t);
	BGL_EXPORTED_DECL obj_t BGl_findzd2tailzd2zz__r4_pairs_and_lists_6_3z00(obj_t,
		obj_t);
	BGL_EXPORTED_DECL obj_t BGl_caaarz00zz__r4_pairs_and_lists_6_3z00(obj_t);
	extern obj_t BGl_typezd2errorzd2zz__errorz00(obj_t, obj_t, obj_t, obj_t,
		obj_t);
	BGL_EXPORTED_DECL obj_t
		BGl_modulezd2initializa7ationz75zz__r4_pairs_and_lists_6_3z00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__paramz00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__errorz00(long, char *);
	BGL_EXPORTED_DECL obj_t BGl_listz00zz__r4_pairs_and_lists_6_3z00(obj_t);
	static obj_t BGl_z62caarz62zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
	static obj_t BGl_z62cdrz62zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
	static obj_t BGl_z62cdadrz62zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
	static obj_t BGl_appendzd2listze70z35zz__r4_pairs_and_lists_6_3z00(obj_t);
	static obj_t BGl_recurze70ze7zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
	static obj_t BGl_appendzd2listze71z35zz__r4_pairs_and_lists_6_3z00(obj_t);
	static obj_t BGl_appendzd2listze72z35zz__r4_pairs_and_lists_6_3z00(obj_t);
	BGL_EXPORTED_DECL obj_t BGl_deletez00zz__r4_pairs_and_lists_6_3z00(obj_t,
		obj_t, obj_t);
	BGL_EXPORTED_DECL obj_t BGl_assocz00zz__r4_pairs_and_lists_6_3z00(obj_t,
		obj_t);
	static obj_t BGl_z62assqz62zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t, obj_t);
	BGL_EXPORTED_DECL obj_t BGl_cdadarz00zz__r4_pairs_and_lists_6_3z00(obj_t);
	static obj_t BGl_z62cerz62zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
	BGL_EXPORTED_DECL obj_t BGl_cadddrz00zz__r4_pairs_and_lists_6_3z00(obj_t);
	static obj_t BGl_z62assvz62zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t, obj_t);
	static obj_t BGl_z62pairzd2orzd2nullzf3z91zz__r4_pairs_and_lists_6_3z00(obj_t,
		obj_t);
	static obj_t BGl_z62cddadrz62zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
	BGL_EXPORTED_DECL obj_t BGl_everyz00zz__r4_pairs_and_lists_6_3z00(obj_t,
		obj_t);
	static obj_t BGl_z62makezd2listzb0zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t,
		obj_t);
	static obj_t BGl__deletezd2duplicateszd2zz__r4_pairs_and_lists_6_3z00(obj_t,
		obj_t);
	static obj_t BGl_z62iotaz62zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t, obj_t);
	BGL_EXPORTED_DECL obj_t
		BGl_setzd2cdrz12zc0zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
	static obj_t BGl_z62setzd2carz12za2zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t,
		obj_t);
	BGL_EXPORTED_DECL obj_t
		BGl_listzd2splitz12zc0zz__r4_pairs_and_lists_6_3z00(obj_t, int, obj_t);
	BGL_EXPORTED_DECL obj_t BGl_caarz00zz__r4_pairs_and_lists_6_3z00(obj_t);
	BGL_EXPORTED_DECL obj_t BGl_appendz12z12zz__r4_pairs_and_lists_6_3z00(obj_t);
	static obj_t BGl_z62remqz62zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t, obj_t);
	static obj_t BGl_consza21ze70z45zz__r4_pairs_and_lists_6_3z00(obj_t);
	BGL_EXPORTED_DECL obj_t BGl_caaadrz00zz__r4_pairs_and_lists_6_3z00(obj_t);
	static obj_t BGl_z62appendz12z70zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
	BGL_EXPORTED_DECL obj_t BGl_cdddrz00zz__r4_pairs_and_lists_6_3z00(obj_t);
	static obj_t BGl_z62cadaarz62zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
	static obj_t BGl_z62caaddrz62zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
	static obj_t BGl__deletez00zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
	static obj_t BGl_z62memqz62zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t, obj_t);
	BGL_EXPORTED_DECL obj_t BGl_assqz00zz__r4_pairs_and_lists_6_3z00(obj_t,
		obj_t);
	static obj_t BGl_cnstzd2initzd2zz__r4_pairs_and_lists_6_3z00(void);
	static obj_t BGl_z62memvz62zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t, obj_t);
	BGL_EXPORTED_DECL bool_t BGl_listzf3zf3zz__r4_pairs_and_lists_6_3z00(obj_t);
	BGL_EXPORTED_DECL obj_t BGl_caadrz00zz__r4_pairs_and_lists_6_3z00(obj_t);
	static obj_t BGl_z62remqz12z70zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t,
		obj_t);
	BGL_EXPORTED_DECL obj_t bgl_reverse(obj_t);
	BGL_EXPORTED_DECL obj_t BGl_assvz00zz__r4_pairs_and_lists_6_3z00(obj_t,
		obj_t);
	static obj_t BGl_z62cadrz62zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
	static obj_t BGl_symbol2144z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
	static obj_t BGl_z62reversez62zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
	BGL_EXPORTED_DECL long bgl_list_length(obj_t);
	static obj_t BGl_z62cddarz62zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
	static obj_t
		BGl_importedzd2moduleszd2initz00zz__r4_pairs_and_lists_6_3z00(void);
	BGL_EXPORTED_DECL obj_t BGl_iotaz00zz__r4_pairs_and_lists_6_3z00(int, obj_t);
	static obj_t BGl_gczd2rootszd2initz00zz__r4_pairs_and_lists_6_3z00(void);
	BGL_EXPORTED_DECL obj_t
		BGl_setzd2cerz12zc0zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
	BGL_EXPORTED_DECL obj_t bgl_remq(obj_t, obj_t);
	BGL_EXPORTED_DECL obj_t BGl_appendz00zz__r4_pairs_and_lists_6_3z00(obj_t);
	static obj_t BGl_z62dropz62zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t, obj_t);
	extern obj_t BGl_2za2za2zz__r4_numbers_6_5z00(obj_t, obj_t);
	static obj_t BGl_z62appendzd22zb0zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t,
		obj_t);
	extern obj_t BGl_2zb2zb2zz__r4_numbers_6_5z00(obj_t, obj_t);
	static obj_t BGl_z62caaarz62zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
	extern obj_t BGl_2zd2zd2zz__r4_numbers_6_5z00(obj_t, obj_t);
	BGL_EXPORTED_DECL obj_t BGl_cddaarz00zz__r4_pairs_and_lists_6_3z00(obj_t);
	BGL_EXPORTED_DECL obj_t BGl_cdaddrz00zz__r4_pairs_and_lists_6_3z00(obj_t);
	static obj_t BGl_z62ereversez62zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
	static obj_t BGl_z62cdddarz62zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
	extern obj_t bgl_bignum_mul(obj_t, obj_t);
	BGL_EXPORTED_DECL bool_t BGl_pairzf3zf3zz__r4_pairs_and_lists_6_3z00(obj_t);
	static obj_t
		BGl__deletezd2duplicatesz12zc0zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
	BGL_EXPORTED_DECL obj_t BGl_memqz00zz__r4_pairs_and_lists_6_3z00(obj_t,
		obj_t);
	BGL_EXPORTED_DECL obj_t BGl_memvz00zz__r4_pairs_and_lists_6_3z00(obj_t,
		obj_t);
	BGL_EXPORTED_DECL obj_t BGl_carz00zz__r4_pairs_and_lists_6_3z00(obj_t);
	BGL_EXPORTED_DECL obj_t BGl_cadrz00zz__r4_pairs_and_lists_6_3z00(obj_t);
	BGL_EXPORTED_DECL obj_t BGl_caadarz00zz__r4_pairs_and_lists_6_3z00(obj_t);
	BGL_EXPORTED_DECL obj_t BGl_consza2za2zz__r4_pairs_and_lists_6_3z00(obj_t,
		obj_t);
	BGL_EXPORTED_DECL obj_t bgl_reverse_bang(obj_t);
	static obj_t BGl_z62assocz62zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t,
		obj_t);
	static obj_t BGl_z62cdaaarz62zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
	static obj_t BGl_z62cadadrz62zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
	BGL_EXPORTED_DECL obj_t BGl_makezd2listzd2zz__r4_pairs_and_lists_6_3z00(int,
		obj_t);
	static obj_t BGl_z62listzd2refzb0zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t,
		obj_t);
	BGL_EXPORTED_DECL bool_t BGl_epairzf3zf3zz__r4_pairs_and_lists_6_3z00(obj_t);
	static obj_t BGl_z62everyz62zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t,
		obj_t);
	BGL_EXPORTED_DECL obj_t BGl_dropz00zz__r4_pairs_and_lists_6_3z00(obj_t, long);
	BGL_EXPORTED_DECL obj_t BGl_cadarz00zz__r4_pairs_and_lists_6_3z00(obj_t);
	static obj_t BGl_z62memberz62zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t,
		obj_t);
	static obj_t BGl_z62cdarz62zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
	static obj_t BGl_z62findz62zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t, obj_t);
	static obj_t BGl_z62cdddrz62zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
	extern obj_t bgl_bignum_add(obj_t, obj_t);
	static obj_t BGl_z62anyz62zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t, obj_t);
	static obj_t BGl_z62lastzd2pairzb0zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
	BGL_EXPORTED_DECL obj_t
		BGl_listzd2splitzd2zz__r4_pairs_and_lists_6_3z00(obj_t, int, obj_t);
	BGL_EXPORTED_DECL obj_t
		BGl_listzd2tabulatezd2zz__r4_pairs_and_lists_6_3z00(int, obj_t);
	static obj_t BGl_z62appendzd22z12za2zz__r4_pairs_and_lists_6_3z00(obj_t,
		obj_t, obj_t);
	extern obj_t bstring_to_symbol(obj_t);
	static obj_t BGl_z62listzf3z91zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
	static obj_t BGl_z62caadrz62zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
	BGL_EXPORTED_DECL obj_t BGl_cddadrz00zz__r4_pairs_and_lists_6_3z00(obj_t);
	static obj_t BGl_z62cddddrz62zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
	BGL_EXPORTED_DECL obj_t BGl_econsz00zz__r4_pairs_and_lists_6_3z00(obj_t,
		obj_t, obj_t);
	static obj_t BGl_z62setzd2cdrz12za2zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t,
		obj_t);
	BGL_EXPORTED_DECL obj_t BGl_cdrz00zz__r4_pairs_and_lists_6_3z00(obj_t);
	static obj_t BGl_appendzd221011zd2zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
	BGL_EXPORTED_DECL obj_t BGl_cdarz00zz__r4_pairs_and_lists_6_3z00(obj_t);
	BGL_EXPORTED_DECL obj_t BGl_cadaarz00zz__r4_pairs_and_lists_6_3z00(obj_t);
	static obj_t BGl_z62reducez62zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t,
		obj_t, obj_t);
	BGL_EXPORTED_DECL obj_t BGl_caaddrz00zz__r4_pairs_and_lists_6_3z00(obj_t);
	BGL_EXPORTED_DECL obj_t BGl_findz00zz__r4_pairs_and_lists_6_3z00(obj_t,
		obj_t);
	extern obj_t BGl_bigloozd2typezd2errorz00zz__errorz00(obj_t, obj_t, obj_t);
	static obj_t BGl_z62cdaadrz62zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
	static obj_t BGl_z62caddarz62zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
	static obj_t BGl_z62pairzf3z91zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
	BGL_EXPORTED_DECL bool_t BGl_nullzf3zf3zz__r4_pairs_and_lists_6_3z00(obj_t);
	BGL_EXPORTED_DECL obj_t BGl_cerz00zz__r4_pairs_and_lists_6_3z00(obj_t);
	static obj_t BGl_z62listzd2splitzb0zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t,
		obj_t, obj_t);
	BGL_EXPORTED_DECL obj_t BGl_cdaarz00zz__r4_pairs_and_lists_6_3z00(obj_t);
	static obj_t BGl_z62listzd2setz12za2zz__r4_pairs_and_lists_6_3z00(obj_t,
		obj_t, obj_t, obj_t);
	BGL_EXPORTED_DECL obj_t BGl_caddrz00zz__r4_pairs_and_lists_6_3z00(obj_t);
	static obj_t BGl_z62caaaarz62zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
	static obj_t BGl_z62consza2zc0zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t,
		obj_t);
	static obj_t BGl_z62cddrz62zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
	static obj_t BGl_loopze70ze7zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t,
		obj_t);
	BGL_EXPORTED_DECL obj_t BGl_deletez12z12zz__r4_pairs_and_lists_6_3z00(obj_t,
		obj_t, obj_t);
	static obj_t BGl_z62consz62zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t, obj_t);
	static obj_t BGl_z62setzd2cerz12za2zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t,
		obj_t);
	static obj_t BGl_z62listzd2splitz12za2zz__r4_pairs_and_lists_6_3z00(obj_t,
		obj_t, obj_t, obj_t);
	BGL_EXPORTED_DECL obj_t BGl_eappendz00zz__r4_pairs_and_lists_6_3z00(obj_t);
	static obj_t BGl_z62cadarz62zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
	static obj_t BGl_z62eappendzd22zb0zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t,
		obj_t);
	BGL_EXPORTED_DECL obj_t BGl_cdddarz00zz__r4_pairs_and_lists_6_3z00(obj_t);
	static obj_t BGl_z62eappendz62zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
	extern obj_t bgl_bignum_sub(obj_t, obj_t);
	BGL_EXPORTED_DECL obj_t
		BGl_lastzd2pairzd2zz__r4_pairs_and_lists_6_3z00(obj_t);
	BGL_EXPORTED_DECL obj_t
		BGl_deletezd2duplicateszd2zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
	static obj_t BGl__deletez12z12zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
	BGL_EXPORTED_DECL obj_t
		BGl_appendzd22z12zc0zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
	static obj_t BGl_z62listzd2tailzb0zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t,
		obj_t);
	BGL_EXPORTED_DECL obj_t BGl_cdaaarz00zz__r4_pairs_and_lists_6_3z00(obj_t);
	BGL_EXPORTED_DECL obj_t BGl_cddrz00zz__r4_pairs_and_lists_6_3z00(obj_t);
	static obj_t BGl_z62treezd2copyzb0zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
	BGL_EXPORTED_DECL obj_t BGl_cadadrz00zz__r4_pairs_and_lists_6_3z00(obj_t);
	static obj_t BGl_z62listzd2tabulatezb0zz__r4_pairs_and_lists_6_3z00(obj_t,
		obj_t, obj_t);
	static obj_t BGl_z62reversez12z70zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
	static obj_t BGl_z62cdadarz62zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
	static obj_t BGl_z62cadddrz62zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
	extern obj_t bgl_long_to_bignum(long);
	static obj_t BGl_z62listzd2copyzb0zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
	BGL_EXPORTED_DECL obj_t
		BGl_setzd2carz12zc0zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
	BGL_EXPORTED_DECL obj_t BGl_consz00zz__r4_pairs_and_lists_6_3z00(obj_t,
		obj_t);
	BGL_EXPORTED_DECL obj_t BGl_memberz00zz__r4_pairs_and_lists_6_3z00(obj_t,
		obj_t);
	static obj_t BGl_z62findzd2tailzb0zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t,
		obj_t);
	static obj_t BGl_z62econsz62zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t, obj_t,
		obj_t);
	BGL_EXPORTED_DECL obj_t BGl_cdadrz00zz__r4_pairs_and_lists_6_3z00(obj_t);
	static obj_t BGl_z62caaadrz62zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
	extern bool_t BGl_eqvzf3zf3zz__r4_equivalence_6_2z00(obj_t, obj_t);
	BGL_EXPORTED_DECL obj_t
		BGl_listzd2setz12zc0zz__r4_pairs_and_lists_6_3z00(obj_t, long, obj_t);
	static obj_t *__cnst;


	   
		 
		BGL_DEFINE_STRING(BGl_string2120z00zz__r4_pairs_and_lists_6_3z00,
		BgL_bgl_string2120za700za7za7_2147za7, "&member", 7);
	      BGL_DEFINE_STRING(BGl_string2121z00zz__r4_pairs_and_lists_6_3z00,
		BgL_bgl_string2121za700za7za7_2148za7, "&assq", 5);
	      BGL_DEFINE_STRING(BGl_string2122z00zz__r4_pairs_and_lists_6_3z00,
		BgL_bgl_string2122za700za7za7_2149za7, "&assv", 5);
	     
		DEFINE_EXPORT_BGL_PROCEDURE(BGl_anyzd2envzd2zz__r4_pairs_and_lists_6_3z00,
		BgL_bgl_za762anyza762za7za7__r4_2150z00, va_generic_entry,
		BGl_z62anyz62zz__r4_pairs_and_lists_6_3z00, BUNSPEC, -2);
	      BGL_DEFINE_STRING(BGl_string2123z00zz__r4_pairs_and_lists_6_3z00,
		BgL_bgl_string2123za700za7za7_2151za7, "&assoc", 6);
	      BGL_DEFINE_STRING(BGl_string2124z00zz__r4_pairs_and_lists_6_3z00,
		BgL_bgl_string2124za700za7za7_2152za7, "&remq", 5);
	      BGL_DEFINE_STRING(BGl_string2125z00zz__r4_pairs_and_lists_6_3z00,
		BgL_bgl_string2125za700za7za7_2153za7, "&remq!", 6);
	      BGL_DEFINE_STRING(BGl_string2126z00zz__r4_pairs_and_lists_6_3z00,
		BgL_bgl_string2126za700za7za7_2154za7, "_delete", 7);
	      BGL_DEFINE_STRING(BGl_string2127z00zz__r4_pairs_and_lists_6_3z00,
		BgL_bgl_string2127za700za7za7_2155za7, "vector", 6);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_lastzd2pairzd2envz00zz__r4_pairs_and_lists_6_3z00,
		BgL_bgl_za762lastza7d2pairza7b2156za7,
		BGl_z62lastzd2pairzb0zz__r4_pairs_and_lists_6_3z00, 0L, BUNSPEC, 1);
	      BGL_DEFINE_STRING(BGl_string2128z00zz__r4_pairs_and_lists_6_3z00,
		BgL_bgl_string2128za700za7za7_2157za7, "_delete!", 8);
	      BGL_DEFINE_STRING(BGl_string2129z00zz__r4_pairs_and_lists_6_3z00,
		BgL_bgl_string2129za700za7za7_2158za7, "&reverse!", 9);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_treezd2copyzd2envz00zz__r4_pairs_and_lists_6_3z00,
		BgL_bgl_za762treeza7d2copyza7b2159za7,
		BGl_z62treezd2copyzb0zz__r4_pairs_and_lists_6_3z00, 0L, BUNSPEC, 1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_listzf3zd2envz21zz__r4_pairs_and_lists_6_3z00,
		BgL_bgl_za762listza7f3za791za7za7_2160za7,
		BGl_z62listzf3z91zz__r4_pairs_and_lists_6_3z00, 0L, BUNSPEC, 1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE(BGl_caadrzd2envzd2zz__r4_pairs_and_lists_6_3z00,
		BgL_bgl_za762caadrza762za7za7__r2161z00,
		BGl_z62caadrz62zz__r4_pairs_and_lists_6_3z00, 0L, BUNSPEC, 1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE(BGl_cddrzd2envzd2zz__r4_pairs_and_lists_6_3z00,
		BgL_bgl_za762cddrza762za7za7__r42162z00,
		BGl_z62cddrz62zz__r4_pairs_and_lists_6_3z00, 0L, BUNSPEC, 1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_cddadrzd2envzd2zz__r4_pairs_and_lists_6_3z00,
		BgL_bgl_za762cddadrza762za7za7__2163z00,
		BGl_z62cddadrz62zz__r4_pairs_and_lists_6_3z00, 0L, BUNSPEC, 1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_listzd2copyzd2envz00zz__r4_pairs_and_lists_6_3z00,
		BgL_bgl_za762listza7d2copyza7b2164za7,
		BGl_z62listzd2copyzb0zz__r4_pairs_and_lists_6_3z00, 0L, BUNSPEC, 1);
	      BGL_DEFINE_STRING(BGl_string2130z00zz__r4_pairs_and_lists_6_3z00,
		BgL_bgl_string2130za700za7za7_2165za7, "&every", 6);
	      BGL_DEFINE_STRING(BGl_string2131z00zz__r4_pairs_and_lists_6_3z00,
		BgL_bgl_string2131za700za7za7_2166za7, "procedure", 9);
	      BGL_DEFINE_STRING(BGl_string2132z00zz__r4_pairs_and_lists_6_3z00,
		BgL_bgl_string2132za700za7za7_2167za7, "&any", 4);
	      BGL_DEFINE_STRING(BGl_string2133z00zz__r4_pairs_and_lists_6_3z00,
		BgL_bgl_string2133za700za7za7_2168za7, "&find", 5);
	      BGL_DEFINE_STRING(BGl_string2134z00zz__r4_pairs_and_lists_6_3z00,
		BgL_bgl_string2134za700za7za7_2169za7, "&find-tail", 10);
	      BGL_DEFINE_STRING(BGl_string2135z00zz__r4_pairs_and_lists_6_3z00,
		BgL_bgl_string2135za700za7za7_2170za7, "&reduce", 7);
	      BGL_DEFINE_STRING(BGl_string2136z00zz__r4_pairs_and_lists_6_3z00,
		BgL_bgl_string2136za700za7za7_2171za7, "&make-list", 10);
	      BGL_DEFINE_STRING(BGl_string2137z00zz__r4_pairs_and_lists_6_3z00,
		BgL_bgl_string2137za700za7za7_2172za7, "&list-tabulate", 14);
	      BGL_DEFINE_STRING(BGl_string2138z00zz__r4_pairs_and_lists_6_3z00,
		BgL_bgl_string2138za700za7za7_2173za7, "&list-split", 11);
	      BGL_DEFINE_STRING(BGl_string2139z00zz__r4_pairs_and_lists_6_3z00,
		BgL_bgl_string2139za700za7za7_2174za7, "&list-split!", 12);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_findzd2tailzd2envz00zz__r4_pairs_and_lists_6_3z00,
		BgL_bgl_za762findza7d2tailza7b2175za7,
		BGl_z62findzd2tailzb0zz__r4_pairs_and_lists_6_3z00, 0L, BUNSPEC, 2);
	     
		DEFINE_EXPORT_BGL_PROCEDURE(BGl_caaarzd2envzd2zz__r4_pairs_and_lists_6_3z00,
		BgL_bgl_za762caaarza762za7za7__r2176z00,
		BGl_z62caaarz62zz__r4_pairs_and_lists_6_3z00, 0L, BUNSPEC, 1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE(BGl_cdarzd2envzd2zz__r4_pairs_and_lists_6_3z00,
		BgL_bgl_za762cdarza762za7za7__r42177z00,
		BGl_z62cdarz62zz__r4_pairs_and_lists_6_3z00, 0L, BUNSPEC, 1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE(BGl_listzd2envzd2zz__r4_pairs_and_lists_6_3z00,
		BgL_bgl_za762listza762za7za7__r42178z00, va_generic_entry,
		BGl_z62listz62zz__r4_pairs_and_lists_6_3z00, BUNSPEC, -1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_cddaarzd2envzd2zz__r4_pairs_and_lists_6_3z00,
		BgL_bgl_za762cddaarza762za7za7__2179z00,
		BGl_z62cddaarz62zz__r4_pairs_and_lists_6_3z00, 0L, BUNSPEC, 1);
	      BGL_DEFINE_STRING(BGl_string2140z00zz__r4_pairs_and_lists_6_3z00,
		BgL_bgl_string2140za700za7za7_2180za7, "&iota", 5);
	      BGL_DEFINE_STRING(BGl_string2141z00zz__r4_pairs_and_lists_6_3z00,
		BgL_bgl_string2141za700za7za7_2181za7, "&list-copy", 10);
	      BGL_DEFINE_STRING(BGl_string2142z00zz__r4_pairs_and_lists_6_3z00,
		BgL_bgl_string2142za700za7za7_2182za7, "_delete-duplicates", 18);
	      BGL_DEFINE_STRING(BGl_string2143z00zz__r4_pairs_and_lists_6_3z00,
		BgL_bgl_string2143za700za7za7_2183za7, "_delete-duplicates!", 19);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_pairzf3zd2envz21zz__r4_pairs_and_lists_6_3z00,
		BgL_bgl_za762pairza7f3za791za7za7_2184za7,
		BGl_z62pairzf3z91zz__r4_pairs_and_lists_6_3z00, 0L, BUNSPEC, 1);
	      BGL_DEFINE_STRING(BGl_string2145z00zz__r4_pairs_and_lists_6_3z00,
		BgL_bgl_string2145za700za7za7_2185za7, "delete-duplicates!", 18);
	      BGL_DEFINE_STRING(BGl_string2146z00zz__r4_pairs_and_lists_6_3z00,
		BgL_bgl_string2146za700za7za7_2186za7, "__r4_pairs_and_lists_6_3", 24);
	      BGL_DEFINE_STRING(BGl_string2067z00zz__r4_pairs_and_lists_6_3z00,
		BgL_bgl_string2067za700za7za7_2187za7,
		"/tmp/bigloo/runtime/Ieee/pairlist.scm", 37);
	      BGL_DEFINE_STRING(BGl_string2068z00zz__r4_pairs_and_lists_6_3z00,
		BgL_bgl_string2068za700za7za7_2188za7, "&car", 4);
	      BGL_DEFINE_STRING(BGl_string2069z00zz__r4_pairs_and_lists_6_3z00,
		BgL_bgl_string2069za700za7za7_2189za7, "pair", 4);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_nullzf3zd2envz21zz__r4_pairs_and_lists_6_3z00,
		BgL_bgl_za762nullza7f3za791za7za7_2190za7,
		BGl_z62nullzf3z91zz__r4_pairs_and_lists_6_3z00, 0L, BUNSPEC, 1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE(BGl_cerzd2envzd2zz__r4_pairs_and_lists_6_3z00,
		BgL_bgl_za762cerza762za7za7__r4_2191z00,
		BGl_z62cerz62zz__r4_pairs_and_lists_6_3z00, 0L, BUNSPEC, 1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE(BGl_caddrzd2envzd2zz__r4_pairs_and_lists_6_3z00,
		BgL_bgl_za762caddrza762za7za7__r2192z00,
		BGl_z62caddrz62zz__r4_pairs_and_lists_6_3z00, 0L, BUNSPEC, 1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_pairzd2orzd2nullzf3zd2envz21zz__r4_pairs_and_lists_6_3z00,
		BgL_bgl_za762pairza7d2orza7d2n2193za7,
		BGl_z62pairzd2orzd2nullzf3z91zz__r4_pairs_and_lists_6_3z00, 0L, BUNSPEC, 1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_cddddrzd2envzd2zz__r4_pairs_and_lists_6_3z00,
		BgL_bgl_za762cddddrza762za7za7__2194z00,
		BGl_z62cddddrz62zz__r4_pairs_and_lists_6_3z00, 0L, BUNSPEC, 1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_makezd2listzd2envz00zz__r4_pairs_and_lists_6_3z00,
		BgL_bgl_za762makeza7d2listza7b2195za7, va_generic_entry,
		BGl_z62makezd2listzb0zz__r4_pairs_and_lists_6_3z00, BUNSPEC, -2);
	      BGL_DEFINE_STRING(BGl_string2070z00zz__r4_pairs_and_lists_6_3z00,
		BgL_bgl_string2070za700za7za7_2196za7, "&cdr", 4);
	      BGL_DEFINE_STRING(BGl_string2071z00zz__r4_pairs_and_lists_6_3z00,
		BgL_bgl_string2071za700za7za7_2197za7, "&cer", 4);
	      BGL_DEFINE_STRING(BGl_string2072z00zz__r4_pairs_and_lists_6_3z00,
		BgL_bgl_string2072za700za7za7_2198za7, "epair", 5);
	      BGL_DEFINE_STRING(BGl_string2073z00zz__r4_pairs_and_lists_6_3z00,
		BgL_bgl_string2073za700za7za7_2199za7, "&caar", 5);
	      BGL_DEFINE_STRING(BGl_string2074z00zz__r4_pairs_and_lists_6_3z00,
		BgL_bgl_string2074za700za7za7_2200za7, "&cadr", 5);
	      BGL_DEFINE_STRING(BGl_string2075z00zz__r4_pairs_and_lists_6_3z00,
		BgL_bgl_string2075za700za7za7_2201za7, "&cdar", 5);
	      BGL_DEFINE_STRING(BGl_string2076z00zz__r4_pairs_and_lists_6_3z00,
		BgL_bgl_string2076za700za7za7_2202za7, "&cddr", 5);
	      BGL_DEFINE_STRING(BGl_string2077z00zz__r4_pairs_and_lists_6_3z00,
		BgL_bgl_string2077za700za7za7_2203za7, "&caaar", 6);
	      BGL_DEFINE_STRING(BGl_string2078z00zz__r4_pairs_and_lists_6_3z00,
		BgL_bgl_string2078za700za7za7_2204za7, "&caadr", 6);
	      BGL_DEFINE_STRING(BGl_string2079z00zz__r4_pairs_and_lists_6_3z00,
		BgL_bgl_string2079za700za7za7_2205za7, "&cadar", 6);
	     
		DEFINE_EXPORT_BGL_PROCEDURE(BGl_cadarzd2envzd2zz__r4_pairs_and_lists_6_3z00,
		BgL_bgl_za762cadarza762za7za7__r2206z00,
		BGl_z62cadarz62zz__r4_pairs_and_lists_6_3z00, 0L, BUNSPEC, 1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_caaadrzd2envzd2zz__r4_pairs_and_lists_6_3z00,
		BgL_bgl_za762caaadrza762za7za7__2207z00,
		BGl_z62caaadrz62zz__r4_pairs_and_lists_6_3z00, 0L, BUNSPEC, 1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_ereversezd2envzd2zz__r4_pairs_and_lists_6_3z00,
		BgL_bgl_za762ereverseza762za7za72208z00,
		BGl_z62ereversez62zz__r4_pairs_and_lists_6_3z00, 0L, BUNSPEC, 1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_cdddarzd2envzd2zz__r4_pairs_and_lists_6_3z00,
		BgL_bgl_za762cdddarza762za7za7__2209z00,
		BGl_z62cdddarz62zz__r4_pairs_and_lists_6_3z00, 0L, BUNSPEC, 1);
	      BGL_DEFINE_STRING(BGl_string2080z00zz__r4_pairs_and_lists_6_3z00,
		BgL_bgl_string2080za700za7za7_2210za7, "&caddr", 6);
	      BGL_DEFINE_STRING(BGl_string2081z00zz__r4_pairs_and_lists_6_3z00,
		BgL_bgl_string2081za700za7za7_2211za7, "&cdaar", 6);
	      BGL_DEFINE_STRING(BGl_string2082z00zz__r4_pairs_and_lists_6_3z00,
		BgL_bgl_string2082za700za7za7_2212za7, "&cddar", 6);
	      BGL_DEFINE_STRING(BGl_string2083z00zz__r4_pairs_and_lists_6_3z00,
		BgL_bgl_string2083za700za7za7_2213za7, "&cdadr", 6);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_deletezd2duplicateszd2envz00zz__r4_pairs_and_lists_6_3z00,
		BgL_bgl__deleteza7d2duplic2214za7, opt_generic_entry,
		BGl__deletezd2duplicateszd2zz__r4_pairs_and_lists_6_3z00, BFALSE, -1);
	      BGL_DEFINE_STRING(BGl_string2084z00zz__r4_pairs_and_lists_6_3z00,
		BgL_bgl_string2084za700za7za7_2215za7, "&cdddr", 6);
	      BGL_DEFINE_STRING(BGl_string2085z00zz__r4_pairs_and_lists_6_3z00,
		BgL_bgl_string2085za700za7za7_2216za7, "&caaaar", 7);
	      BGL_DEFINE_STRING(BGl_string2086z00zz__r4_pairs_and_lists_6_3z00,
		BgL_bgl_string2086za700za7za7_2217za7, "&caaadr", 7);
	      BGL_DEFINE_STRING(BGl_string2087z00zz__r4_pairs_and_lists_6_3z00,
		BgL_bgl_string2087za700za7za7_2218za7, "&caadar", 7);
	      BGL_DEFINE_STRING(BGl_string2088z00zz__r4_pairs_and_lists_6_3z00,
		BgL_bgl_string2088za700za7za7_2219za7, "&cadaar", 7);
	      BGL_DEFINE_STRING(BGl_string2089z00zz__r4_pairs_and_lists_6_3z00,
		BgL_bgl_string2089za700za7za7_2220za7, "&cdaaar", 7);
	     
		DEFINE_EXPORT_BGL_PROCEDURE(BGl_assqzd2envzd2zz__r4_pairs_and_lists_6_3z00,
		BgL_bgl_za762assqza762za7za7__r42221z00,
		BGl_z62assqz62zz__r4_pairs_and_lists_6_3z00, 0L, BUNSPEC, 2);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_caaaarzd2envzd2zz__r4_pairs_and_lists_6_3z00,
		BgL_bgl_za762caaaarza762za7za7__2222z00,
		BGl_z62caaaarz62zz__r4_pairs_and_lists_6_3z00, 0L, BUNSPEC, 1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_listzd2tabulatezd2envz00zz__r4_pairs_and_lists_6_3z00,
		BgL_bgl_za762listza7d2tabula2223z00,
		BGl_z62listzd2tabulatezb0zz__r4_pairs_and_lists_6_3z00, 0L, BUNSPEC, 2);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_reversezd2envzd2zz__r4_pairs_and_lists_6_3z00,
		BgL_bgl_za762reverseza762za7za7_2224z00,
		BGl_z62reversez62zz__r4_pairs_and_lists_6_3z00, 0L, BUNSPEC, 1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE(BGl_takezd2envzd2zz__r4_pairs_and_lists_6_3z00,
		BgL_bgl_za762takeza762za7za7__r42225z00,
		BGl_z62takez62zz__r4_pairs_and_lists_6_3z00, 0L, BUNSPEC, 2);
	      BGL_DEFINE_STRING(BGl_string2090z00zz__r4_pairs_and_lists_6_3z00,
		BgL_bgl_string2090za700za7za7_2226za7, "&caaddr", 7);
	      BGL_DEFINE_STRING(BGl_string2091z00zz__r4_pairs_and_lists_6_3z00,
		BgL_bgl_string2091za700za7za7_2227za7, "&caddar", 7);
	      BGL_DEFINE_STRING(BGl_string2092z00zz__r4_pairs_and_lists_6_3z00,
		BgL_bgl_string2092za700za7za7_2228za7, "&cadadr", 7);
	      BGL_DEFINE_STRING(BGl_string2093z00zz__r4_pairs_and_lists_6_3z00,
		BgL_bgl_string2093za700za7za7_2229za7, "&cadddr", 7);
	      BGL_DEFINE_STRING(BGl_string2094z00zz__r4_pairs_and_lists_6_3z00,
		BgL_bgl_string2094za700za7za7_2230za7, "&cdaadr", 7);
	      BGL_DEFINE_STRING(BGl_string2095z00zz__r4_pairs_and_lists_6_3z00,
		BgL_bgl_string2095za700za7za7_2231za7, "&cdaddr", 7);
	      BGL_DEFINE_STRING(BGl_string2096z00zz__r4_pairs_and_lists_6_3z00,
		BgL_bgl_string2096za700za7za7_2232za7, "&cddaar", 7);
	      BGL_DEFINE_STRING(BGl_string2097z00zz__r4_pairs_and_lists_6_3z00,
		BgL_bgl_string2097za700za7za7_2233za7, "&cddadr", 7);
	      BGL_DEFINE_STRING(BGl_string2098z00zz__r4_pairs_and_lists_6_3z00,
		BgL_bgl_string2098za700za7za7_2234za7, "&cdadar", 7);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_setzd2cerz12zd2envz12zz__r4_pairs_and_lists_6_3z00,
		BgL_bgl_za762setza7d2cerza712za72235z00,
		BGl_z62setzd2cerz12za2zz__r4_pairs_and_lists_6_3z00, 0L, BUNSPEC, 2);
	      BGL_DEFINE_STRING(BGl_string2099z00zz__r4_pairs_and_lists_6_3z00,
		BgL_bgl_string2099za700za7za7_2236za7, "&cdddar", 7);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_appendzd2envzd2zz__r4_pairs_and_lists_6_3z00,
		BgL_bgl_za762appendza762za7za7__2237z00, va_generic_entry,
		BGl_z62appendz62zz__r4_pairs_and_lists_6_3z00, BUNSPEC, -1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE(BGl_cdadrzd2envzd2zz__r4_pairs_and_lists_6_3z00,
		BgL_bgl_za762cdadrza762za7za7__r2238z00,
		BGl_z62cdadrz62zz__r4_pairs_and_lists_6_3z00, 0L, BUNSPEC, 1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_caaddrzd2envzd2zz__r4_pairs_and_lists_6_3z00,
		BgL_bgl_za762caaddrza762za7za7__2239z00,
		BGl_z62caaddrz62zz__r4_pairs_and_lists_6_3z00, 0L, BUNSPEC, 1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE(BGl_memqzd2envzd2zz__r4_pairs_and_lists_6_3z00,
		BgL_bgl_za762memqza762za7za7__r42240z00,
		BGl_z62memqz62zz__r4_pairs_and_lists_6_3z00, 0L, BUNSPEC, 2);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_listzd2setz12zd2envz12zz__r4_pairs_and_lists_6_3z00,
		BgL_bgl_za762listza7d2setza7122241za7,
		BGl_z62listzd2setz12za2zz__r4_pairs_and_lists_6_3z00, 0L, BUNSPEC, 3);
	     
		DEFINE_EXPORT_BGL_PROCEDURE(BGl_assoczd2envzd2zz__r4_pairs_and_lists_6_3z00,
		BgL_bgl_za762assocza762za7za7__r2242z00,
		BGl_z62assocz62zz__r4_pairs_and_lists_6_3z00, 0L, BUNSPEC, 2);
	     
		DEFINE_EXPORT_BGL_PROCEDURE(BGl_cdaarzd2envzd2zz__r4_pairs_and_lists_6_3z00,
		BgL_bgl_za762cdaarza762za7za7__r2243z00,
		BGl_z62cdaarz62zz__r4_pairs_and_lists_6_3z00, 0L, BUNSPEC, 1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_caadarzd2envzd2zz__r4_pairs_and_lists_6_3z00,
		BgL_bgl_za762caadarza762za7za7__2244z00,
		BGl_z62caadarz62zz__r4_pairs_and_lists_6_3z00, 0L, BUNSPEC, 1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_epairzf3zd2envz21zz__r4_pairs_and_lists_6_3z00,
		BgL_bgl_za762epairza7f3za791za7za72245za7,
		BGl_z62epairzf3z91zz__r4_pairs_and_lists_6_3z00, 0L, BUNSPEC, 1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_appendz12zd2envzc0zz__r4_pairs_and_lists_6_3z00,
		BgL_bgl_za762appendza712za770za72246z00, va_generic_entry,
		BGl_z62appendz12z70zz__r4_pairs_and_lists_6_3z00, BUNSPEC, -1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE(BGl_cdddrzd2envzd2zz__r4_pairs_and_lists_6_3z00,
		BgL_bgl_za762cdddrza762za7za7__r2247z00,
		BGl_z62cdddrz62zz__r4_pairs_and_lists_6_3z00, 0L, BUNSPEC, 1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_remqz12zd2envzc0zz__r4_pairs_and_lists_6_3z00,
		BgL_bgl_za762remqza712za770za7za7_2248za7,
		BGl_z62remqz12z70zz__r4_pairs_and_lists_6_3z00, 0L, BUNSPEC, 2);
	     
		DEFINE_EXPORT_BGL_PROCEDURE(BGl_assvzd2envzd2zz__r4_pairs_and_lists_6_3z00,
		BgL_bgl_za762assvza762za7za7__r42249z00,
		BGl_z62assvz62zz__r4_pairs_and_lists_6_3z00, 0L, BUNSPEC, 2);
	     
		DEFINE_EXPORT_BGL_PROCEDURE(BGl_cddarzd2envzd2zz__r4_pairs_and_lists_6_3z00,
		BgL_bgl_za762cddarza762za7za7__r2250z00,
		BGl_z62cddarz62zz__r4_pairs_and_lists_6_3z00, 0L, BUNSPEC, 1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_cadadrzd2envzd2zz__r4_pairs_and_lists_6_3z00,
		BgL_bgl_za762cadadrza762za7za7__2251z00,
		BGl_z62cadadrz62zz__r4_pairs_and_lists_6_3z00, 0L, BUNSPEC, 1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_listzd2refzd2envz00zz__r4_pairs_and_lists_6_3z00,
		BgL_bgl_za762listza7d2refza7b02252za7,
		BGl_z62listzd2refzb0zz__r4_pairs_and_lists_6_3z00, 0L, BUNSPEC, 2);
	     
		DEFINE_EXPORT_BGL_PROCEDURE(BGl_iotazd2envzd2zz__r4_pairs_and_lists_6_3z00,
		BgL_bgl_za762iotaza762za7za7__r42253z00, va_generic_entry,
		BGl_z62iotaz62zz__r4_pairs_and_lists_6_3z00, BUNSPEC, -2);
	     
		DEFINE_EXPORT_BGL_PROCEDURE(BGl_conszd2envzd2zz__r4_pairs_and_lists_6_3z00,
		BgL_bgl_za762consza762za7za7__r42254z00,
		BGl_z62consz62zz__r4_pairs_and_lists_6_3z00, 0L, BUNSPEC, 2);
	     
		DEFINE_EXPORT_BGL_PROCEDURE(BGl_remqzd2envzd2zz__r4_pairs_and_lists_6_3z00,
		BgL_bgl_za762remqza762za7za7__r42255z00,
		BGl_z62remqz62zz__r4_pairs_and_lists_6_3z00, 0L, BUNSPEC, 2);
	     
		DEFINE_EXPORT_BGL_PROCEDURE(BGl_econszd2envzd2zz__r4_pairs_and_lists_6_3z00,
		BgL_bgl_za762econsza762za7za7__r2256z00,
		BGl_z62econsz62zz__r4_pairs_and_lists_6_3z00, 0L, BUNSPEC, 3);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_cadaarzd2envzd2zz__r4_pairs_and_lists_6_3z00,
		BgL_bgl_za762cadaarza762za7za7__2257z00,
		BGl_z62cadaarz62zz__r4_pairs_and_lists_6_3z00, 0L, BUNSPEC, 1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE(BGl_memvzd2envzd2zz__r4_pairs_and_lists_6_3z00,
		BgL_bgl_za762memvza762za7za7__r42258z00,
		BGl_z62memvz62zz__r4_pairs_and_lists_6_3z00, 0L, BUNSPEC, 2);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_reversez12zd2envzc0zz__r4_pairs_and_lists_6_3z00,
		BgL_bgl_za762reverseza712za7702259za7,
		BGl_z62reversez12z70zz__r4_pairs_and_lists_6_3z00, 0L, BUNSPEC, 1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_consza2zd2envz70zz__r4_pairs_and_lists_6_3z00,
		BgL_bgl_za762consza7a2za7c0za7za7_2260za7, va_generic_entry,
		BGl_z62consza2zc0zz__r4_pairs_and_lists_6_3z00, BUNSPEC, -2);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_cadddrzd2envzd2zz__r4_pairs_and_lists_6_3z00,
		BgL_bgl_za762cadddrza762za7za7__2261z00,
		BGl_z62cadddrz62zz__r4_pairs_and_lists_6_3z00, 0L, BUNSPEC, 1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_deletez12zd2envzc0zz__r4_pairs_and_lists_6_3z00,
		BgL_bgl__deleteza712za712za7za7_2262z00, opt_generic_entry,
		BGl__deletez12z12zz__r4_pairs_and_lists_6_3z00, BFALSE, -1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE(BGl_dropzd2envzd2zz__r4_pairs_and_lists_6_3z00,
		BgL_bgl_za762dropza762za7za7__r42263z00,
		BGl_z62dropz62zz__r4_pairs_and_lists_6_3z00, 0L, BUNSPEC, 2);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_listzd2splitz12zd2envz12zz__r4_pairs_and_lists_6_3z00,
		BgL_bgl_za762listza7d2splitza72264za7, va_generic_entry,
		BGl_z62listzd2splitz12za2zz__r4_pairs_and_lists_6_3z00, BUNSPEC, -3);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_appendzd22zd2envz00zz__r4_pairs_and_lists_6_3z00,
		BgL_bgl_za762appendza7d22za7b02265za7,
		BGl_z62appendzd22zb0zz__r4_pairs_and_lists_6_3z00, 0L, BUNSPEC, 2);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_cdaadrzd2envzd2zz__r4_pairs_and_lists_6_3z00,
		BgL_bgl_za762cdaadrza762za7za7__2266z00,
		BGl_z62cdaadrz62zz__r4_pairs_and_lists_6_3z00, 0L, BUNSPEC, 1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_caddarzd2envzd2zz__r4_pairs_and_lists_6_3z00,
		BgL_bgl_za762caddarza762za7za7__2267z00,
		BGl_z62caddarz62zz__r4_pairs_and_lists_6_3z00, 0L, BUNSPEC, 1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_deletezd2duplicatesz12zd2envz12zz__r4_pairs_and_lists_6_3z00,
		BgL_bgl__deleteza7d2duplic2268za7, opt_generic_entry,
		BGl__deletezd2duplicatesz12zc0zz__r4_pairs_and_lists_6_3z00, BFALSE, -1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_listzd2tailzd2envz00zz__r4_pairs_and_lists_6_3z00,
		BgL_bgl_za762listza7d2tailza7b2269za7,
		BGl_z62listzd2tailzb0zz__r4_pairs_and_lists_6_3z00, 0L, BUNSPEC, 2);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_listzd2splitzd2envz00zz__r4_pairs_and_lists_6_3z00,
		BgL_bgl_za762listza7d2splitza72270za7, va_generic_entry,
		BGl_z62listzd2splitzb0zz__r4_pairs_and_lists_6_3z00, BUNSPEC, -3);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_appendzd22z12zd2envz12zz__r4_pairs_and_lists_6_3z00,
		BgL_bgl_za762appendza7d22za7122271za7,
		BGl_z62appendzd22z12za2zz__r4_pairs_and_lists_6_3z00, 0L, BUNSPEC, 2);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_cdaaarzd2envzd2zz__r4_pairs_and_lists_6_3z00,
		BgL_bgl_za762cdaaarza762za7za7__2272z00,
		BGl_z62cdaaarz62zz__r4_pairs_and_lists_6_3z00, 0L, BUNSPEC, 1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_lengthzd2envzd2zz__r4_pairs_and_lists_6_3z00,
		BgL_bgl_za762lengthza762za7za7__2273z00,
		BGl_z62lengthz62zz__r4_pairs_and_lists_6_3z00, 0L, BUNSPEC, 1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_setzd2carz12zd2envz12zz__r4_pairs_and_lists_6_3z00,
		BgL_bgl_za762setza7d2carza712za72274z00,
		BGl_z62setzd2carz12za2zz__r4_pairs_and_lists_6_3z00, 0L, BUNSPEC, 2);
	extern obj_t BGl_equalzf3zd2envz21zz__r4_equivalence_6_2z00;
	   
		 
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_memberzd2envzd2zz__r4_pairs_and_lists_6_3z00,
		BgL_bgl_za762memberza762za7za7__2275z00,
		BGl_z62memberz62zz__r4_pairs_and_lists_6_3z00, 0L, BUNSPEC, 2);
	     
		DEFINE_EXPORT_BGL_PROCEDURE(BGl_cdrzd2envzd2zz__r4_pairs_and_lists_6_3z00,
		BgL_bgl_za762cdrza762za7za7__r4_2276z00,
		BGl_z62cdrz62zz__r4_pairs_and_lists_6_3z00, 0L, BUNSPEC, 1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE(BGl_findzd2envzd2zz__r4_pairs_and_lists_6_3z00,
		BgL_bgl_za762findza762za7za7__r42277z00,
		BGl_z62findz62zz__r4_pairs_and_lists_6_3z00, 0L, BUNSPEC, 2);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_cdaddrzd2envzd2zz__r4_pairs_and_lists_6_3z00,
		BgL_bgl_za762cdaddrza762za7za7__2278z00,
		BGl_z62cdaddrz62zz__r4_pairs_and_lists_6_3z00, 0L, BUNSPEC, 1);
	      BGL_DEFINE_STRING(BGl_string2100z00zz__r4_pairs_and_lists_6_3z00,
		BgL_bgl_string2100za700za7za7_2279za7, "&cddddr", 7);
	      BGL_DEFINE_STRING(BGl_string2101z00zz__r4_pairs_and_lists_6_3z00,
		BgL_bgl_string2101za700za7za7_2280za7, "&set-car!", 9);
	      BGL_DEFINE_STRING(BGl_string2102z00zz__r4_pairs_and_lists_6_3z00,
		BgL_bgl_string2102za700za7za7_2281za7, "&set-cdr!", 9);
	      BGL_DEFINE_STRING(BGl_string2103z00zz__r4_pairs_and_lists_6_3z00,
		BgL_bgl_string2103za700za7za7_2282za7, "&set-cer!", 9);
	      BGL_DEFINE_STRING(BGl_string2104z00zz__r4_pairs_and_lists_6_3z00,
		BgL_bgl_string2104za700za7za7_2283za7, "&append-2", 9);
	      BGL_DEFINE_STRING(BGl_string2105z00zz__r4_pairs_and_lists_6_3z00,
		BgL_bgl_string2105za700za7za7_2284za7, "pair-nil", 8);
	      BGL_DEFINE_STRING(BGl_string2106z00zz__r4_pairs_and_lists_6_3z00,
		BgL_bgl_string2106za700za7za7_2285za7, "&eappend-2", 10);
	      BGL_DEFINE_STRING(BGl_string2107z00zz__r4_pairs_and_lists_6_3z00,
		BgL_bgl_string2107za700za7za7_2286za7, "&append-2!", 10);
	      BGL_DEFINE_STRING(BGl_string2108z00zz__r4_pairs_and_lists_6_3z00,
		BgL_bgl_string2108za700za7za7_2287za7, "&length", 7);
	      BGL_DEFINE_STRING(BGl_string2109z00zz__r4_pairs_and_lists_6_3z00,
		BgL_bgl_string2109za700za7za7_2288za7, "&reverse", 8);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_deletezd2envzd2zz__r4_pairs_and_lists_6_3z00,
		BgL_bgl__deleteza700za7za7__r42289za7, opt_generic_entry,
		BGl__deletez00zz__r4_pairs_and_lists_6_3z00, BFALSE, -1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE(BGl_carzd2envzd2zz__r4_pairs_and_lists_6_3z00,
		BgL_bgl_za762carza762za7za7__r4_2290z00,
		BGl_z62carz62zz__r4_pairs_and_lists_6_3z00, 0L, BUNSPEC, 1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE(BGl_cadrzd2envzd2zz__r4_pairs_and_lists_6_3z00,
		BgL_bgl_za762cadrza762za7za7__r42291z00,
		BGl_z62cadrz62zz__r4_pairs_and_lists_6_3z00, 0L, BUNSPEC, 1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_cdadarzd2envzd2zz__r4_pairs_and_lists_6_3z00,
		BgL_bgl_za762cdadarza762za7za7__2292z00,
		BGl_z62cdadarz62zz__r4_pairs_and_lists_6_3z00, 0L, BUNSPEC, 1);
	      BGL_DEFINE_STRING(BGl_string2110z00zz__r4_pairs_and_lists_6_3z00,
		BgL_bgl_string2110za700za7za7_2293za7, "&ereverse", 9);
	      BGL_DEFINE_STRING(BGl_string2111z00zz__r4_pairs_and_lists_6_3z00,
		BgL_bgl_string2111za700za7za7_2294za7, "&take", 5);
	      BGL_DEFINE_STRING(BGl_string2112z00zz__r4_pairs_and_lists_6_3z00,
		BgL_bgl_string2112za700za7za7_2295za7, "bint", 4);
	      BGL_DEFINE_STRING(BGl_string2113z00zz__r4_pairs_and_lists_6_3z00,
		BgL_bgl_string2113za700za7za7_2296za7, "&drop", 5);
	      BGL_DEFINE_STRING(BGl_string2114z00zz__r4_pairs_and_lists_6_3z00,
		BgL_bgl_string2114za700za7za7_2297za7, "&list-tail", 10);
	      BGL_DEFINE_STRING(BGl_string2115z00zz__r4_pairs_and_lists_6_3z00,
		BgL_bgl_string2115za700za7za7_2298za7, "&list-ref", 9);
	      BGL_DEFINE_STRING(BGl_string2116z00zz__r4_pairs_and_lists_6_3z00,
		BgL_bgl_string2116za700za7za7_2299za7, "&list-set!", 10);
	     
		DEFINE_EXPORT_BGL_PROCEDURE(BGl_everyzd2envzd2zz__r4_pairs_and_lists_6_3z00,
		BgL_bgl_za762everyza762za7za7__r2300z00, va_generic_entry,
		BGl_z62everyz62zz__r4_pairs_and_lists_6_3z00, BUNSPEC, -2);
	      BGL_DEFINE_STRING(BGl_string2117z00zz__r4_pairs_and_lists_6_3z00,
		BgL_bgl_string2117za700za7za7_2301za7, "&last-pair", 10);
	      BGL_DEFINE_STRING(BGl_string2118z00zz__r4_pairs_and_lists_6_3z00,
		BgL_bgl_string2118za700za7za7_2302za7, "&memq", 5);
	      BGL_DEFINE_STRING(BGl_string2119z00zz__r4_pairs_and_lists_6_3z00,
		BgL_bgl_string2119za700za7za7_2303za7, "&memv", 5);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_setzd2cdrz12zd2envz12zz__r4_pairs_and_lists_6_3z00,
		BgL_bgl_za762setza7d2cdrza712za72304z00,
		BGl_z62setzd2cdrz12za2zz__r4_pairs_and_lists_6_3z00, 0L, BUNSPEC, 2);
	     
		DEFINE_EXPORT_BGL_PROCEDURE(BGl_caarzd2envzd2zz__r4_pairs_and_lists_6_3z00,
		BgL_bgl_za762caarza762za7za7__r42305z00,
		BGl_z62caarz62zz__r4_pairs_and_lists_6_3z00, 0L, BUNSPEC, 1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_reducezd2envzd2zz__r4_pairs_and_lists_6_3z00,
		BgL_bgl_za762reduceza762za7za7__2306z00,
		BGl_z62reducez62zz__r4_pairs_and_lists_6_3z00, 0L, BUNSPEC, 3);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_eappendzd22zd2envz00zz__r4_pairs_and_lists_6_3z00,
		BgL_bgl_za762eappendza7d22za7b2307za7,
		BGl_z62eappendzd22zb0zz__r4_pairs_and_lists_6_3z00, 0L, BUNSPEC, 2);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_eappendzd2envzd2zz__r4_pairs_and_lists_6_3z00,
		BgL_bgl_za762eappendza762za7za7_2308z00, va_generic_entry,
		BGl_z62eappendz62zz__r4_pairs_and_lists_6_3z00, BUNSPEC, -1);

/* contant bindings */
	static void bgl_constant_bindings()
	{
		BGL_BIND_PROCEDURE(BGl_eappendzd2envzd2zz__r4_pairs_and_lists_6_3z00,
			BgL_bgl_za762eappendza762za7za7_2308z00);
		BGL_BIND_PROCEDURE(BGl_eappendzd22zd2envz00zz__r4_pairs_and_lists_6_3z00,
			BgL_bgl_za762eappendza7d22za7b2307za7);
		BGL_BIND_PROCEDURE(BGl_reducezd2envzd2zz__r4_pairs_and_lists_6_3z00,
			BgL_bgl_za762reduceza762za7za7__2306z00);
		BGL_BIND_PROCEDURE(BGl_caarzd2envzd2zz__r4_pairs_and_lists_6_3z00,
			BgL_bgl_za762caarza762za7za7__r42305z00);
		BGL_BIND_PROCEDURE(BGl_setzd2cdrz12zd2envz12zz__r4_pairs_and_lists_6_3z00,
			BgL_bgl_za762setza7d2cdrza712za72304z00);
		BGL_BIND_STRING(BGl_string2119z00zz__r4_pairs_and_lists_6_3z00,
			BgL_bgl_string2119za700za7za7_2303za7);
		BGL_BIND_STRING(BGl_string2118z00zz__r4_pairs_and_lists_6_3z00,
			BgL_bgl_string2118za700za7za7_2302za7);
		BGL_BIND_STRING(BGl_string2117z00zz__r4_pairs_and_lists_6_3z00,
			BgL_bgl_string2117za700za7za7_2301za7);
		BGL_BIND_PROCEDURE(BGl_everyzd2envzd2zz__r4_pairs_and_lists_6_3z00,
			BgL_bgl_za762everyza762za7za7__r2300z00);
		BGL_BIND_STRING(BGl_string2116z00zz__r4_pairs_and_lists_6_3z00,
			BgL_bgl_string2116za700za7za7_2299za7);
		BGL_BIND_STRING(BGl_string2115z00zz__r4_pairs_and_lists_6_3z00,
			BgL_bgl_string2115za700za7za7_2298za7);
		BGL_BIND_STRING(BGl_string2114z00zz__r4_pairs_and_lists_6_3z00,
			BgL_bgl_string2114za700za7za7_2297za7);
		BGL_BIND_STRING(BGl_string2113z00zz__r4_pairs_and_lists_6_3z00,
			BgL_bgl_string2113za700za7za7_2296za7);
		BGL_BIND_STRING(BGl_string2112z00zz__r4_pairs_and_lists_6_3z00,
			BgL_bgl_string2112za700za7za7_2295za7);
		BGL_BIND_STRING(BGl_string2111z00zz__r4_pairs_and_lists_6_3z00,
			BgL_bgl_string2111za700za7za7_2294za7);
		BGL_BIND_STRING(BGl_string2110z00zz__r4_pairs_and_lists_6_3z00,
			BgL_bgl_string2110za700za7za7_2293za7);
		BGL_BIND_PROCEDURE(BGl_cdadarzd2envzd2zz__r4_pairs_and_lists_6_3z00,
			BgL_bgl_za762cdadarza762za7za7__2292z00);
		BGL_BIND_PROCEDURE(BGl_cadrzd2envzd2zz__r4_pairs_and_lists_6_3z00,
			BgL_bgl_za762cadrza762za7za7__r42291z00);
		BGL_BIND_PROCEDURE(BGl_carzd2envzd2zz__r4_pairs_and_lists_6_3z00,
			BgL_bgl_za762carza762za7za7__r4_2290z00);
		BGL_BIND_PROCEDURE(BGl_deletezd2envzd2zz__r4_pairs_and_lists_6_3z00,
			BgL_bgl__deleteza700za7za7__r42289za7);
		BGL_BIND_STRING(BGl_string2109z00zz__r4_pairs_and_lists_6_3z00,
			BgL_bgl_string2109za700za7za7_2288za7);
		BGL_BIND_STRING(BGl_string2108z00zz__r4_pairs_and_lists_6_3z00,
			BgL_bgl_string2108za700za7za7_2287za7);
		BGL_BIND_STRING(BGl_string2107z00zz__r4_pairs_and_lists_6_3z00,
			BgL_bgl_string2107za700za7za7_2286za7);
		BGL_BIND_STRING(BGl_string2106z00zz__r4_pairs_and_lists_6_3z00,
			BgL_bgl_string2106za700za7za7_2285za7);
		BGL_BIND_STRING(BGl_string2105z00zz__r4_pairs_and_lists_6_3z00,
			BgL_bgl_string2105za700za7za7_2284za7);
		BGL_BIND_STRING(BGl_string2104z00zz__r4_pairs_and_lists_6_3z00,
			BgL_bgl_string2104za700za7za7_2283za7);
		BGL_BIND_STRING(BGl_string2103z00zz__r4_pairs_and_lists_6_3z00,
			BgL_bgl_string2103za700za7za7_2282za7);
		BGL_BIND_STRING(BGl_string2102z00zz__r4_pairs_and_lists_6_3z00,
			BgL_bgl_string2102za700za7za7_2281za7);
		BGL_BIND_STRING(BGl_string2101z00zz__r4_pairs_and_lists_6_3z00,
			BgL_bgl_string2101za700za7za7_2280za7);
		BGL_BIND_STRING(BGl_string2100z00zz__r4_pairs_and_lists_6_3z00,
			BgL_bgl_string2100za700za7za7_2279za7);
		BGL_BIND_PROCEDURE(BGl_cdaddrzd2envzd2zz__r4_pairs_and_lists_6_3z00,
			BgL_bgl_za762cdaddrza762za7za7__2278z00);
		BGL_BIND_PROCEDURE(BGl_findzd2envzd2zz__r4_pairs_and_lists_6_3z00,
			BgL_bgl_za762findza762za7za7__r42277z00);
		BGL_BIND_PROCEDURE(BGl_cdrzd2envzd2zz__r4_pairs_and_lists_6_3z00,
			BgL_bgl_za762cdrza762za7za7__r4_2276z00);
		BGL_BIND_PROCEDURE(BGl_memberzd2envzd2zz__r4_pairs_and_lists_6_3z00,
			BgL_bgl_za762memberza762za7za7__2275z00);
		BGL_BIND_PROCEDURE(BGl_setzd2carz12zd2envz12zz__r4_pairs_and_lists_6_3z00,
			BgL_bgl_za762setza7d2carza712za72274z00);
		BGL_BIND_PROCEDURE(BGl_lengthzd2envzd2zz__r4_pairs_and_lists_6_3z00,
			BgL_bgl_za762lengthza762za7za7__2273z00);
		BGL_BIND_PROCEDURE(BGl_cdaaarzd2envzd2zz__r4_pairs_and_lists_6_3z00,
			BgL_bgl_za762cdaaarza762za7za7__2272z00);
		BGL_BIND_PROCEDURE(BGl_appendzd22z12zd2envz12zz__r4_pairs_and_lists_6_3z00,
			BgL_bgl_za762appendza7d22za7122271za7);
		BGL_BIND_PROCEDURE(BGl_listzd2splitzd2envz00zz__r4_pairs_and_lists_6_3z00,
			BgL_bgl_za762listza7d2splitza72270za7);
		BGL_BIND_PROCEDURE(BGl_listzd2tailzd2envz00zz__r4_pairs_and_lists_6_3z00,
			BgL_bgl_za762listza7d2tailza7b2269za7);
		BGL_BIND_PROCEDURE
			(BGl_deletezd2duplicatesz12zd2envz12zz__r4_pairs_and_lists_6_3z00,
			BgL_bgl__deleteza7d2duplic2268za7);
		BGL_BIND_PROCEDURE(BGl_caddarzd2envzd2zz__r4_pairs_and_lists_6_3z00,
			BgL_bgl_za762caddarza762za7za7__2267z00);
		BGL_BIND_PROCEDURE(BGl_cdaadrzd2envzd2zz__r4_pairs_and_lists_6_3z00,
			BgL_bgl_za762cdaadrza762za7za7__2266z00);
		BGL_BIND_PROCEDURE(BGl_appendzd22zd2envz00zz__r4_pairs_and_lists_6_3z00,
			BgL_bgl_za762appendza7d22za7b02265za7);
		BGL_BIND_PROCEDURE
			(BGl_listzd2splitz12zd2envz12zz__r4_pairs_and_lists_6_3z00,
			BgL_bgl_za762listza7d2splitza72264za7);
		BGL_BIND_PROCEDURE(BGl_dropzd2envzd2zz__r4_pairs_and_lists_6_3z00,
			BgL_bgl_za762dropza762za7za7__r42263z00);
		BGL_BIND_PROCEDURE(BGl_deletez12zd2envzc0zz__r4_pairs_and_lists_6_3z00,
			BgL_bgl__deleteza712za712za7za7_2262z00);
		BGL_BIND_PROCEDURE(BGl_cadddrzd2envzd2zz__r4_pairs_and_lists_6_3z00,
			BgL_bgl_za762cadddrza762za7za7__2261z00);
		BGL_BIND_PROCEDURE(BGl_consza2zd2envz70zz__r4_pairs_and_lists_6_3z00,
			BgL_bgl_za762consza7a2za7c0za7za7_2260za7);
		BGL_BIND_PROCEDURE(BGl_reversez12zd2envzc0zz__r4_pairs_and_lists_6_3z00,
			BgL_bgl_za762reverseza712za7702259za7);
		BGL_BIND_PROCEDURE(BGl_memvzd2envzd2zz__r4_pairs_and_lists_6_3z00,
			BgL_bgl_za762memvza762za7za7__r42258z00);
		BGL_BIND_PROCEDURE(BGl_cadaarzd2envzd2zz__r4_pairs_and_lists_6_3z00,
			BgL_bgl_za762cadaarza762za7za7__2257z00);
		BGL_BIND_PROCEDURE(BGl_econszd2envzd2zz__r4_pairs_and_lists_6_3z00,
			BgL_bgl_za762econsza762za7za7__r2256z00);
		BGL_BIND_PROCEDURE(BGl_remqzd2envzd2zz__r4_pairs_and_lists_6_3z00,
			BgL_bgl_za762remqza762za7za7__r42255z00);
		BGL_BIND_PROCEDURE(BGl_conszd2envzd2zz__r4_pairs_and_lists_6_3z00,
			BgL_bgl_za762consza762za7za7__r42254z00);
		BGL_BIND_PROCEDURE(BGl_iotazd2envzd2zz__r4_pairs_and_lists_6_3z00,
			BgL_bgl_za762iotaza762za7za7__r42253z00);
		BGL_BIND_PROCEDURE(BGl_listzd2refzd2envz00zz__r4_pairs_and_lists_6_3z00,
			BgL_bgl_za762listza7d2refza7b02252za7);
		BGL_BIND_PROCEDURE(BGl_cadadrzd2envzd2zz__r4_pairs_and_lists_6_3z00,
			BgL_bgl_za762cadadrza762za7za7__2251z00);
		BGL_BIND_PROCEDURE(BGl_cddarzd2envzd2zz__r4_pairs_and_lists_6_3z00,
			BgL_bgl_za762cddarza762za7za7__r2250z00);
		BGL_BIND_PROCEDURE(BGl_assvzd2envzd2zz__r4_pairs_and_lists_6_3z00,
			BgL_bgl_za762assvza762za7za7__r42249z00);
		BGL_BIND_PROCEDURE(BGl_remqz12zd2envzc0zz__r4_pairs_and_lists_6_3z00,
			BgL_bgl_za762remqza712za770za7za7_2248za7);
		BGL_BIND_PROCEDURE(BGl_cdddrzd2envzd2zz__r4_pairs_and_lists_6_3z00,
			BgL_bgl_za762cdddrza762za7za7__r2247z00);
		BGL_BIND_PROCEDURE(BGl_appendz12zd2envzc0zz__r4_pairs_and_lists_6_3z00,
			BgL_bgl_za762appendza712za770za72246z00);
		BGL_BIND_PROCEDURE(BGl_epairzf3zd2envz21zz__r4_pairs_and_lists_6_3z00,
			BgL_bgl_za762epairza7f3za791za7za72245za7);
		BGL_BIND_PROCEDURE(BGl_caadarzd2envzd2zz__r4_pairs_and_lists_6_3z00,
			BgL_bgl_za762caadarza762za7za7__2244z00);
		BGL_BIND_PROCEDURE(BGl_cdaarzd2envzd2zz__r4_pairs_and_lists_6_3z00,
			BgL_bgl_za762cdaarza762za7za7__r2243z00);
		BGL_BIND_PROCEDURE(BGl_assoczd2envzd2zz__r4_pairs_and_lists_6_3z00,
			BgL_bgl_za762assocza762za7za7__r2242z00);
		BGL_BIND_PROCEDURE(BGl_listzd2setz12zd2envz12zz__r4_pairs_and_lists_6_3z00,
			BgL_bgl_za762listza7d2setza7122241za7);
		BGL_BIND_PROCEDURE(BGl_memqzd2envzd2zz__r4_pairs_and_lists_6_3z00,
			BgL_bgl_za762memqza762za7za7__r42240z00);
		BGL_BIND_PROCEDURE(BGl_caaddrzd2envzd2zz__r4_pairs_and_lists_6_3z00,
			BgL_bgl_za762caaddrza762za7za7__2239z00);
		BGL_BIND_PROCEDURE(BGl_cdadrzd2envzd2zz__r4_pairs_and_lists_6_3z00,
			BgL_bgl_za762cdadrza762za7za7__r2238z00);
		BGL_BIND_PROCEDURE(BGl_appendzd2envzd2zz__r4_pairs_and_lists_6_3z00,
			BgL_bgl_za762appendza762za7za7__2237z00);
		BGL_BIND_STRING(BGl_string2099z00zz__r4_pairs_and_lists_6_3z00,
			BgL_bgl_string2099za700za7za7_2236za7);
		BGL_BIND_PROCEDURE(BGl_setzd2cerz12zd2envz12zz__r4_pairs_and_lists_6_3z00,
			BgL_bgl_za762setza7d2cerza712za72235z00);
		BGL_BIND_STRING(BGl_string2098z00zz__r4_pairs_and_lists_6_3z00,
			BgL_bgl_string2098za700za7za7_2234za7);
		BGL_BIND_STRING(BGl_string2097z00zz__r4_pairs_and_lists_6_3z00,
			BgL_bgl_string2097za700za7za7_2233za7);
		BGL_BIND_STRING(BGl_string2096z00zz__r4_pairs_and_lists_6_3z00,
			BgL_bgl_string2096za700za7za7_2232za7);
		BGL_BIND_STRING(BGl_string2095z00zz__r4_pairs_and_lists_6_3z00,
			BgL_bgl_string2095za700za7za7_2231za7);
		BGL_BIND_STRING(BGl_string2094z00zz__r4_pairs_and_lists_6_3z00,
			BgL_bgl_string2094za700za7za7_2230za7);
		BGL_BIND_STRING(BGl_string2093z00zz__r4_pairs_and_lists_6_3z00,
			BgL_bgl_string2093za700za7za7_2229za7);
		BGL_BIND_STRING(BGl_string2092z00zz__r4_pairs_and_lists_6_3z00,
			BgL_bgl_string2092za700za7za7_2228za7);
		BGL_BIND_STRING(BGl_string2091z00zz__r4_pairs_and_lists_6_3z00,
			BgL_bgl_string2091za700za7za7_2227za7);
		BGL_BIND_STRING(BGl_string2090z00zz__r4_pairs_and_lists_6_3z00,
			BgL_bgl_string2090za700za7za7_2226za7);
		BGL_BIND_PROCEDURE(BGl_takezd2envzd2zz__r4_pairs_and_lists_6_3z00,
			BgL_bgl_za762takeza762za7za7__r42225z00);
		BGL_BIND_PROCEDURE(BGl_reversezd2envzd2zz__r4_pairs_and_lists_6_3z00,
			BgL_bgl_za762reverseza762za7za7_2224z00);
		BGL_BIND_PROCEDURE
			(BGl_listzd2tabulatezd2envz00zz__r4_pairs_and_lists_6_3z00,
			BgL_bgl_za762listza7d2tabula2223z00);
		BGL_BIND_PROCEDURE(BGl_caaaarzd2envzd2zz__r4_pairs_and_lists_6_3z00,
			BgL_bgl_za762caaaarza762za7za7__2222z00);
		BGL_BIND_PROCEDURE(BGl_assqzd2envzd2zz__r4_pairs_and_lists_6_3z00,
			BgL_bgl_za762assqza762za7za7__r42221z00);
		BGL_BIND_STRING(BGl_string2089z00zz__r4_pairs_and_lists_6_3z00,
			BgL_bgl_string2089za700za7za7_2220za7);
		BGL_BIND_STRING(BGl_string2088z00zz__r4_pairs_and_lists_6_3z00,
			BgL_bgl_string2088za700za7za7_2219za7);
		BGL_BIND_STRING(BGl_string2087z00zz__r4_pairs_and_lists_6_3z00,
			BgL_bgl_string2087za700za7za7_2218za7);
		BGL_BIND_STRING(BGl_string2086z00zz__r4_pairs_and_lists_6_3z00,
			BgL_bgl_string2086za700za7za7_2217za7);
		BGL_BIND_STRING(BGl_string2085z00zz__r4_pairs_and_lists_6_3z00,
			BgL_bgl_string2085za700za7za7_2216za7);
		BGL_BIND_STRING(BGl_string2084z00zz__r4_pairs_and_lists_6_3z00,
			BgL_bgl_string2084za700za7za7_2215za7);
		BGL_BIND_PROCEDURE
			(BGl_deletezd2duplicateszd2envz00zz__r4_pairs_and_lists_6_3z00,
			BgL_bgl__deleteza7d2duplic2214za7);
		BGL_BIND_STRING(BGl_string2083z00zz__r4_pairs_and_lists_6_3z00,
			BgL_bgl_string2083za700za7za7_2213za7);
		BGL_BIND_STRING(BGl_string2082z00zz__r4_pairs_and_lists_6_3z00,
			BgL_bgl_string2082za700za7za7_2212za7);
		BGL_BIND_STRING(BGl_string2081z00zz__r4_pairs_and_lists_6_3z00,
			BgL_bgl_string2081za700za7za7_2211za7);
		BGL_BIND_STRING(BGl_string2080z00zz__r4_pairs_and_lists_6_3z00,
			BgL_bgl_string2080za700za7za7_2210za7);
		BGL_BIND_PROCEDURE(BGl_cdddarzd2envzd2zz__r4_pairs_and_lists_6_3z00,
			BgL_bgl_za762cdddarza762za7za7__2209z00);
		BGL_BIND_PROCEDURE(BGl_ereversezd2envzd2zz__r4_pairs_and_lists_6_3z00,
			BgL_bgl_za762ereverseza762za7za72208z00);
		BGL_BIND_PROCEDURE(BGl_caaadrzd2envzd2zz__r4_pairs_and_lists_6_3z00,
			BgL_bgl_za762caaadrza762za7za7__2207z00);
		BGL_BIND_PROCEDURE(BGl_cadarzd2envzd2zz__r4_pairs_and_lists_6_3z00,
			BgL_bgl_za762cadarza762za7za7__r2206z00);
		BGL_BIND_STRING(BGl_string2079z00zz__r4_pairs_and_lists_6_3z00,
			BgL_bgl_string2079za700za7za7_2205za7);
		BGL_BIND_STRING(BGl_string2078z00zz__r4_pairs_and_lists_6_3z00,
			BgL_bgl_string2078za700za7za7_2204za7);
		BGL_BIND_STRING(BGl_string2077z00zz__r4_pairs_and_lists_6_3z00,
			BgL_bgl_string2077za700za7za7_2203za7);
		BGL_BIND_STRING(BGl_string2076z00zz__r4_pairs_and_lists_6_3z00,
			BgL_bgl_string2076za700za7za7_2202za7);
		BGL_BIND_STRING(BGl_string2075z00zz__r4_pairs_and_lists_6_3z00,
			BgL_bgl_string2075za700za7za7_2201za7);
		BGL_BIND_STRING(BGl_string2074z00zz__r4_pairs_and_lists_6_3z00,
			BgL_bgl_string2074za700za7za7_2200za7);
		BGL_BIND_STRING(BGl_string2073z00zz__r4_pairs_and_lists_6_3z00,
			BgL_bgl_string2073za700za7za7_2199za7);
		BGL_BIND_STRING(BGl_string2072z00zz__r4_pairs_and_lists_6_3z00,
			BgL_bgl_string2072za700za7za7_2198za7);
		BGL_BIND_STRING(BGl_string2071z00zz__r4_pairs_and_lists_6_3z00,
			BgL_bgl_string2071za700za7za7_2197za7);
		BGL_BIND_STRING(BGl_string2070z00zz__r4_pairs_and_lists_6_3z00,
			BgL_bgl_string2070za700za7za7_2196za7);
		BGL_BIND_PROCEDURE(BGl_makezd2listzd2envz00zz__r4_pairs_and_lists_6_3z00,
			BgL_bgl_za762makeza7d2listza7b2195za7);
		BGL_BIND_PROCEDURE(BGl_cddddrzd2envzd2zz__r4_pairs_and_lists_6_3z00,
			BgL_bgl_za762cddddrza762za7za7__2194z00);
		BGL_BIND_PROCEDURE
			(BGl_pairzd2orzd2nullzf3zd2envz21zz__r4_pairs_and_lists_6_3z00,
			BgL_bgl_za762pairza7d2orza7d2n2193za7);
		BGL_BIND_PROCEDURE(BGl_caddrzd2envzd2zz__r4_pairs_and_lists_6_3z00,
			BgL_bgl_za762caddrza762za7za7__r2192z00);
		BGL_BIND_PROCEDURE(BGl_cerzd2envzd2zz__r4_pairs_and_lists_6_3z00,
			BgL_bgl_za762cerza762za7za7__r4_2191z00);
		BGL_BIND_PROCEDURE(BGl_nullzf3zd2envz21zz__r4_pairs_and_lists_6_3z00,
			BgL_bgl_za762nullza7f3za791za7za7_2190za7);
		BGL_BIND_STRING(BGl_string2069z00zz__r4_pairs_and_lists_6_3z00,
			BgL_bgl_string2069za700za7za7_2189za7);
		BGL_BIND_STRING(BGl_string2068z00zz__r4_pairs_and_lists_6_3z00,
			BgL_bgl_string2068za700za7za7_2188za7);
		BGL_BIND_STRING(BGl_string2067z00zz__r4_pairs_and_lists_6_3z00,
			BgL_bgl_string2067za700za7za7_2187za7);
		BGL_BIND_STRING(BGl_string2146z00zz__r4_pairs_and_lists_6_3z00,
			BgL_bgl_string2146za700za7za7_2186za7);
		BGL_BIND_STRING(BGl_string2145z00zz__r4_pairs_and_lists_6_3z00,
			BgL_bgl_string2145za700za7za7_2185za7);
		BGL_BIND_PROCEDURE(BGl_pairzf3zd2envz21zz__r4_pairs_and_lists_6_3z00,
			BgL_bgl_za762pairza7f3za791za7za7_2184za7);
		BGL_BIND_STRING(BGl_string2143z00zz__r4_pairs_and_lists_6_3z00,
			BgL_bgl_string2143za700za7za7_2183za7);
		BGL_BIND_STRING(BGl_string2142z00zz__r4_pairs_and_lists_6_3z00,
			BgL_bgl_string2142za700za7za7_2182za7);
		BGL_BIND_STRING(BGl_string2141z00zz__r4_pairs_and_lists_6_3z00,
			BgL_bgl_string2141za700za7za7_2181za7);
		BGL_BIND_STRING(BGl_string2140z00zz__r4_pairs_and_lists_6_3z00,
			BgL_bgl_string2140za700za7za7_2180za7);
		BGL_BIND_PROCEDURE(BGl_cddaarzd2envzd2zz__r4_pairs_and_lists_6_3z00,
			BgL_bgl_za762cddaarza762za7za7__2179z00);
		BGL_BIND_PROCEDURE(BGl_listzd2envzd2zz__r4_pairs_and_lists_6_3z00,
			BgL_bgl_za762listza762za7za7__r42178z00);
		BGL_BIND_PROCEDURE(BGl_cdarzd2envzd2zz__r4_pairs_and_lists_6_3z00,
			BgL_bgl_za762cdarza762za7za7__r42177z00);
		BGL_BIND_PROCEDURE(BGl_caaarzd2envzd2zz__r4_pairs_and_lists_6_3z00,
			BgL_bgl_za762caaarza762za7za7__r2176z00);
		BGL_BIND_PROCEDURE(BGl_findzd2tailzd2envz00zz__r4_pairs_and_lists_6_3z00,
			BgL_bgl_za762findza7d2tailza7b2175za7);
		BGL_BIND_STRING(BGl_string2139z00zz__r4_pairs_and_lists_6_3z00,
			BgL_bgl_string2139za700za7za7_2174za7);
		BGL_BIND_STRING(BGl_string2138z00zz__r4_pairs_and_lists_6_3z00,
			BgL_bgl_string2138za700za7za7_2173za7);
		BGL_BIND_STRING(BGl_string2137z00zz__r4_pairs_and_lists_6_3z00,
			BgL_bgl_string2137za700za7za7_2172za7);
		BGL_BIND_STRING(BGl_string2136z00zz__r4_pairs_and_lists_6_3z00,
			BgL_bgl_string2136za700za7za7_2171za7);
		BGL_BIND_STRING(BGl_string2135z00zz__r4_pairs_and_lists_6_3z00,
			BgL_bgl_string2135za700za7za7_2170za7);
		BGL_BIND_STRING(BGl_string2134z00zz__r4_pairs_and_lists_6_3z00,
			BgL_bgl_string2134za700za7za7_2169za7);
		BGL_BIND_STRING(BGl_string2133z00zz__r4_pairs_and_lists_6_3z00,
			BgL_bgl_string2133za700za7za7_2168za7);
		BGL_BIND_STRING(BGl_string2132z00zz__r4_pairs_and_lists_6_3z00,
			BgL_bgl_string2132za700za7za7_2167za7);
		BGL_BIND_STRING(BGl_string2131z00zz__r4_pairs_and_lists_6_3z00,
			BgL_bgl_string2131za700za7za7_2166za7);
		BGL_BIND_STRING(BGl_string2130z00zz__r4_pairs_and_lists_6_3z00,
			BgL_bgl_string2130za700za7za7_2165za7);
		BGL_BIND_PROCEDURE(BGl_listzd2copyzd2envz00zz__r4_pairs_and_lists_6_3z00,
			BgL_bgl_za762listza7d2copyza7b2164za7);
		BGL_BIND_PROCEDURE(BGl_cddadrzd2envzd2zz__r4_pairs_and_lists_6_3z00,
			BgL_bgl_za762cddadrza762za7za7__2163z00);
		BGL_BIND_PROCEDURE(BGl_cddrzd2envzd2zz__r4_pairs_and_lists_6_3z00,
			BgL_bgl_za762cddrza762za7za7__r42162z00);
		BGL_BIND_PROCEDURE(BGl_caadrzd2envzd2zz__r4_pairs_and_lists_6_3z00,
			BgL_bgl_za762caadrza762za7za7__r2161z00);
		BGL_BIND_PROCEDURE(BGl_listzf3zd2envz21zz__r4_pairs_and_lists_6_3z00,
			BgL_bgl_za762listza7f3za791za7za7_2160za7);
		BGL_BIND_PROCEDURE(BGl_treezd2copyzd2envz00zz__r4_pairs_and_lists_6_3z00,
			BgL_bgl_za762treeza7d2copyza7b2159za7);
		BGL_BIND_STRING(BGl_string2129z00zz__r4_pairs_and_lists_6_3z00,
			BgL_bgl_string2129za700za7za7_2158za7);
		BGL_BIND_STRING(BGl_string2128z00zz__r4_pairs_and_lists_6_3z00,
			BgL_bgl_string2128za700za7za7_2157za7);
		BGL_BIND_PROCEDURE(BGl_lastzd2pairzd2envz00zz__r4_pairs_and_lists_6_3z00,
			BgL_bgl_za762lastza7d2pairza7b2156za7);
		BGL_BIND_STRING(BGl_string2127z00zz__r4_pairs_and_lists_6_3z00,
			BgL_bgl_string2127za700za7za7_2155za7);
		BGL_BIND_STRING(BGl_string2126z00zz__r4_pairs_and_lists_6_3z00,
			BgL_bgl_string2126za700za7za7_2154za7);
		BGL_BIND_STRING(BGl_string2125z00zz__r4_pairs_and_lists_6_3z00,
			BgL_bgl_string2125za700za7za7_2153za7);
		BGL_BIND_STRING(BGl_string2124z00zz__r4_pairs_and_lists_6_3z00,
			BgL_bgl_string2124za700za7za7_2152za7);
		BGL_BIND_STRING(BGl_string2123z00zz__r4_pairs_and_lists_6_3z00,
			BgL_bgl_string2123za700za7za7_2151za7);
		BGL_BIND_PROCEDURE(BGl_anyzd2envzd2zz__r4_pairs_and_lists_6_3z00,
			BgL_bgl_za762anyza762za7za7__r4_2150z00);
		BGL_BIND_STRING(BGl_string2122z00zz__r4_pairs_and_lists_6_3z00,
			BgL_bgl_string2122za700za7za7_2149za7);
		BGL_BIND_STRING(BGl_string2121z00zz__r4_pairs_and_lists_6_3z00,
			BgL_bgl_string2121za700za7za7_2148za7);
		BGL_BIND_STRING(BGl_string2120z00zz__r4_pairs_and_lists_6_3z00,
			BgL_bgl_string2120za700za7za7_2147za7);
	}

/* GC roots registration */
	static obj_t bgl_gc_roots_register()
	{
#if defined( BGL_GC_ROOTS )
#define ADD_ROOT( addr ) (addr > roots_max ? roots_max = addr : (addr < roots_min ? roots_min = addr : 0))
		void *roots_min = (void *) ULONG_MAX, *roots_max = 0;

		ADD_ROOT((void
				*) (&BGl_requirezd2initializa7ationz75zz__r4_pairs_and_lists_6_3z00));
		ADD_ROOT((void *) (&BGl_symbol2144z00zz__r4_pairs_and_lists_6_3z00));
#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__r4_pairs_and_lists_6_3z00(long
		BgL_checksumz00_3077, char *BgL_fromz00_3078)
	{
		{
			if (CBOOL(BGl_requirezd2initializa7ationz75zz__r4_pairs_and_lists_6_3z00))
				{
					BGl_requirezd2initializa7ationz75zz__r4_pairs_and_lists_6_3z00 =
						BBOOL(((bool_t) 0));
					bgl_constant_bindings();
					BGl_gczd2rootszd2initz00zz__r4_pairs_and_lists_6_3z00();
					BGl_cnstzd2initzd2zz__r4_pairs_and_lists_6_3z00();
					return
						BGl_importedzd2moduleszd2initz00zz__r4_pairs_and_lists_6_3z00();
				}
			else
				{
					return BUNSPEC;
				}
		}

	}



/* cnst-init */
	obj_t BGl_cnstzd2initzd2zz__r4_pairs_and_lists_6_3z00(void)
	{
		{	/* Ieee/pairlist.scm 18 */
			return (BGl_symbol2144z00zz__r4_pairs_and_lists_6_3z00 =
				bstring_to_symbol(BGl_string2145z00zz__r4_pairs_and_lists_6_3z00),
				BUNSPEC);
		}

	}



/* gc-roots-init */
	obj_t BGl_gczd2rootszd2initz00zz__r4_pairs_and_lists_6_3z00(void)
	{
		{	/* Ieee/pairlist.scm 18 */
			return bgl_gc_roots_register();
		}

	}



/* append-21011 */
	obj_t BGl_appendzd221011zd2zz__r4_pairs_and_lists_6_3z00(obj_t BgL_l1z00_1,
		obj_t BgL_l2z00_2)
	{
		{
			if (NULLP(BgL_l1z00_1))
				{
					return BgL_l2z00_2;
				}
			else
				{
					obj_t BgL_headz00_810;

					BgL_headz00_810 = MAKE_YOUNG_PAIR(BNIL, BgL_l2z00_2);
					{
						obj_t BgL_prevz00_1653;
						obj_t BgL_tailz00_1654;

						BgL_prevz00_1653 = BgL_headz00_810;
						BgL_tailz00_1654 = BgL_l1z00_1;
					BgL_loopz00_1652:
						if (PAIRP(BgL_tailz00_1654))
							{
								obj_t BgL_newzd2prevzd2_1660;

								BgL_newzd2prevzd2_1660 =
									MAKE_YOUNG_PAIR(CAR(BgL_tailz00_1654), BgL_l2z00_2);
								SET_CDR(BgL_prevz00_1653, BgL_newzd2prevzd2_1660);
								{
									obj_t BgL_tailz00_3097;
									obj_t BgL_prevz00_3096;

									BgL_prevz00_3096 = BgL_newzd2prevzd2_1660;
									BgL_tailz00_3097 = CDR(BgL_tailz00_1654);
									BgL_tailz00_1654 = BgL_tailz00_3097;
									BgL_prevz00_1653 = BgL_prevz00_3096;
									goto BgL_loopz00_1652;
								}
							}
						else
							{
								BNIL;
							}
					}
					return CDR(BgL_headz00_810);
				}
		}

	}



/* pair? */
	BGL_EXPORTED_DEF bool_t BGl_pairzf3zf3zz__r4_pairs_and_lists_6_3z00(obj_t
		BgL_objz00_3)
	{
		{	/* Ieee/pairlist.scm 228 */
			return PAIRP(BgL_objz00_3);
		}

	}



/* &pair? */
	obj_t BGl_z62pairzf3z91zz__r4_pairs_and_lists_6_3z00(obj_t BgL_envz00_2686,
		obj_t BgL_objz00_2687)
	{
		{	/* Ieee/pairlist.scm 228 */
			return
				BBOOL(BGl_pairzf3zf3zz__r4_pairs_and_lists_6_3z00(BgL_objz00_2687));
		}

	}



/* epair? */
	BGL_EXPORTED_DEF bool_t BGl_epairzf3zf3zz__r4_pairs_and_lists_6_3z00(obj_t
		BgL_objz00_4)
	{
		{	/* Ieee/pairlist.scm 234 */
			return EPAIRP(BgL_objz00_4);
		}

	}



/* &epair? */
	obj_t BGl_z62epairzf3z91zz__r4_pairs_and_lists_6_3z00(obj_t BgL_envz00_2688,
		obj_t BgL_objz00_2689)
	{
		{	/* Ieee/pairlist.scm 234 */
			return
				BBOOL(BGl_epairzf3zf3zz__r4_pairs_and_lists_6_3z00(BgL_objz00_2689));
		}

	}



/* pair-or-null? */
	BGL_EXPORTED_DEF bool_t
		BGl_pairzd2orzd2nullzf3zf3zz__r4_pairs_and_lists_6_3z00(obj_t BgL_objz00_5)
	{
		{	/* Ieee/pairlist.scm 240 */
			if (PAIRP(BgL_objz00_5))
				{	/* Ieee/pairlist.scm 241 */
					return ((bool_t) 1);
				}
			else
				{	/* Ieee/pairlist.scm 241 */
					return NULLP(BgL_objz00_5);
				}
		}

	}



/* &pair-or-null? */
	obj_t BGl_z62pairzd2orzd2nullzf3z91zz__r4_pairs_and_lists_6_3z00(obj_t
		BgL_envz00_2690, obj_t BgL_objz00_2691)
	{
		{	/* Ieee/pairlist.scm 240 */
			return
				BBOOL(BGl_pairzd2orzd2nullzf3zf3zz__r4_pairs_and_lists_6_3z00
				(BgL_objz00_2691));
		}

	}



/* cons */
	BGL_EXPORTED_DEF obj_t BGl_consz00zz__r4_pairs_and_lists_6_3z00(obj_t
		BgL_obj1z00_6, obj_t BgL_obj2z00_7)
	{
		{	/* Ieee/pairlist.scm 248 */
			return MAKE_YOUNG_PAIR(BgL_obj1z00_6, BgL_obj2z00_7);
		}

	}



/* &cons */
	obj_t BGl_z62consz62zz__r4_pairs_and_lists_6_3z00(obj_t BgL_envz00_2692,
		obj_t BgL_obj1z00_2693, obj_t BgL_obj2z00_2694)
	{
		{	/* Ieee/pairlist.scm 248 */
			return
				BGl_consz00zz__r4_pairs_and_lists_6_3z00(BgL_obj1z00_2693,
				BgL_obj2z00_2694);
		}

	}



/* econs */
	BGL_EXPORTED_DEF obj_t BGl_econsz00zz__r4_pairs_and_lists_6_3z00(obj_t
		BgL_obj1z00_8, obj_t BgL_obj2z00_9, obj_t BgL_obj3z00_10)
	{
		{	/* Ieee/pairlist.scm 254 */
			return MAKE_YOUNG_EPAIR(BgL_obj1z00_8, BgL_obj2z00_9, BgL_obj3z00_10);
		}

	}



/* &econs */
	obj_t BGl_z62econsz62zz__r4_pairs_and_lists_6_3z00(obj_t BgL_envz00_2695,
		obj_t BgL_obj1z00_2696, obj_t BgL_obj2z00_2697, obj_t BgL_obj3z00_2698)
	{
		{	/* Ieee/pairlist.scm 254 */
			return
				BGl_econsz00zz__r4_pairs_and_lists_6_3z00(BgL_obj1z00_2696,
				BgL_obj2z00_2697, BgL_obj3z00_2698);
		}

	}



/* car */
	BGL_EXPORTED_DEF obj_t BGl_carz00zz__r4_pairs_and_lists_6_3z00(obj_t
		BgL_pairz00_11)
	{
		{	/* Ieee/pairlist.scm 260 */
			return CAR(BgL_pairz00_11);
		}

	}



/* &car */
	obj_t BGl_z62carz62zz__r4_pairs_and_lists_6_3z00(obj_t BgL_envz00_2699,
		obj_t BgL_pairz00_2700)
	{
		{	/* Ieee/pairlist.scm 260 */
			{	/* Ieee/pairlist.scm 261 */
				obj_t BgL_auxz00_3116;

				if (PAIRP(BgL_pairz00_2700))
					{	/* Ieee/pairlist.scm 261 */
						BgL_auxz00_3116 = BgL_pairz00_2700;
					}
				else
					{
						obj_t BgL_auxz00_3119;

						BgL_auxz00_3119 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string2067z00zz__r4_pairs_and_lists_6_3z00, BINT(10711L),
							BGl_string2068z00zz__r4_pairs_and_lists_6_3z00,
							BGl_string2069z00zz__r4_pairs_and_lists_6_3z00, BgL_pairz00_2700);
						FAILURE(BgL_auxz00_3119, BFALSE, BFALSE);
					}
				return BGl_carz00zz__r4_pairs_and_lists_6_3z00(BgL_auxz00_3116);
			}
		}

	}



/* cdr */
	BGL_EXPORTED_DEF obj_t BGl_cdrz00zz__r4_pairs_and_lists_6_3z00(obj_t
		BgL_pairz00_12)
	{
		{	/* Ieee/pairlist.scm 266 */
			return CDR(BgL_pairz00_12);
		}

	}



/* &cdr */
	obj_t BGl_z62cdrz62zz__r4_pairs_and_lists_6_3z00(obj_t BgL_envz00_2701,
		obj_t BgL_pairz00_2702)
	{
		{	/* Ieee/pairlist.scm 266 */
			{	/* Ieee/pairlist.scm 267 */
				obj_t BgL_auxz00_3125;

				if (PAIRP(BgL_pairz00_2702))
					{	/* Ieee/pairlist.scm 267 */
						BgL_auxz00_3125 = BgL_pairz00_2702;
					}
				else
					{
						obj_t BgL_auxz00_3128;

						BgL_auxz00_3128 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string2067z00zz__r4_pairs_and_lists_6_3z00, BINT(10976L),
							BGl_string2070z00zz__r4_pairs_and_lists_6_3z00,
							BGl_string2069z00zz__r4_pairs_and_lists_6_3z00, BgL_pairz00_2702);
						FAILURE(BgL_auxz00_3128, BFALSE, BFALSE);
					}
				return BGl_cdrz00zz__r4_pairs_and_lists_6_3z00(BgL_auxz00_3125);
			}
		}

	}



/* cer */
	BGL_EXPORTED_DEF obj_t BGl_cerz00zz__r4_pairs_and_lists_6_3z00(obj_t
		BgL_objz00_13)
	{
		{	/* Ieee/pairlist.scm 272 */
			return CER(BgL_objz00_13);
		}

	}



/* &cer */
	obj_t BGl_z62cerz62zz__r4_pairs_and_lists_6_3z00(obj_t BgL_envz00_2703,
		obj_t BgL_objz00_2704)
	{
		{	/* Ieee/pairlist.scm 272 */
			{	/* Ieee/pairlist.scm 273 */
				obj_t BgL_auxz00_3134;

				if (EPAIRP(BgL_objz00_2704))
					{	/* Ieee/pairlist.scm 273 */
						BgL_auxz00_3134 = BgL_objz00_2704;
					}
				else
					{
						obj_t BgL_auxz00_3137;

						BgL_auxz00_3137 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string2067z00zz__r4_pairs_and_lists_6_3z00, BINT(11240L),
							BGl_string2071z00zz__r4_pairs_and_lists_6_3z00,
							BGl_string2072z00zz__r4_pairs_and_lists_6_3z00, BgL_objz00_2704);
						FAILURE(BgL_auxz00_3137, BFALSE, BFALSE);
					}
				return BGl_cerz00zz__r4_pairs_and_lists_6_3z00(BgL_auxz00_3134);
			}
		}

	}



/* caar */
	BGL_EXPORTED_DEF obj_t BGl_caarz00zz__r4_pairs_and_lists_6_3z00(obj_t
		BgL_pairz00_14)
	{
		{	/* Ieee/pairlist.scm 278 */
			return CAR(CAR(BgL_pairz00_14));
		}

	}



/* &caar */
	obj_t BGl_z62caarz62zz__r4_pairs_and_lists_6_3z00(obj_t BgL_envz00_2705,
		obj_t BgL_pairz00_2706)
	{
		{	/* Ieee/pairlist.scm 278 */
			{	/* Ieee/pairlist.scm 279 */
				obj_t BgL_auxz00_3144;

				if (PAIRP(BgL_pairz00_2706))
					{	/* Ieee/pairlist.scm 279 */
						BgL_auxz00_3144 = BgL_pairz00_2706;
					}
				else
					{
						obj_t BgL_auxz00_3147;

						BgL_auxz00_3147 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string2067z00zz__r4_pairs_and_lists_6_3z00, BINT(11510L),
							BGl_string2073z00zz__r4_pairs_and_lists_6_3z00,
							BGl_string2069z00zz__r4_pairs_and_lists_6_3z00, BgL_pairz00_2706);
						FAILURE(BgL_auxz00_3147, BFALSE, BFALSE);
					}
				return BGl_caarz00zz__r4_pairs_and_lists_6_3z00(BgL_auxz00_3144);
			}
		}

	}



/* cadr */
	BGL_EXPORTED_DEF obj_t BGl_cadrz00zz__r4_pairs_and_lists_6_3z00(obj_t
		BgL_pairz00_15)
	{
		{	/* Ieee/pairlist.scm 284 */
			return CAR(CDR(BgL_pairz00_15));
		}

	}



/* &cadr */
	obj_t BGl_z62cadrz62zz__r4_pairs_and_lists_6_3z00(obj_t BgL_envz00_2707,
		obj_t BgL_pairz00_2708)
	{
		{	/* Ieee/pairlist.scm 284 */
			{	/* Ieee/pairlist.scm 285 */
				obj_t BgL_auxz00_3154;

				if (PAIRP(BgL_pairz00_2708))
					{	/* Ieee/pairlist.scm 285 */
						BgL_auxz00_3154 = BgL_pairz00_2708;
					}
				else
					{
						obj_t BgL_auxz00_3157;

						BgL_auxz00_3157 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string2067z00zz__r4_pairs_and_lists_6_3z00, BINT(11781L),
							BGl_string2074z00zz__r4_pairs_and_lists_6_3z00,
							BGl_string2069z00zz__r4_pairs_and_lists_6_3z00, BgL_pairz00_2708);
						FAILURE(BgL_auxz00_3157, BFALSE, BFALSE);
					}
				return BGl_cadrz00zz__r4_pairs_and_lists_6_3z00(BgL_auxz00_3154);
			}
		}

	}



/* cdar */
	BGL_EXPORTED_DEF obj_t BGl_cdarz00zz__r4_pairs_and_lists_6_3z00(obj_t
		BgL_pairz00_16)
	{
		{	/* Ieee/pairlist.scm 290 */
			return CDR(CAR(BgL_pairz00_16));
		}

	}



/* &cdar */
	obj_t BGl_z62cdarz62zz__r4_pairs_and_lists_6_3z00(obj_t BgL_envz00_2709,
		obj_t BgL_pairz00_2710)
	{
		{	/* Ieee/pairlist.scm 290 */
			{	/* Ieee/pairlist.scm 291 */
				obj_t BgL_auxz00_3164;

				if (PAIRP(BgL_pairz00_2710))
					{	/* Ieee/pairlist.scm 291 */
						BgL_auxz00_3164 = BgL_pairz00_2710;
					}
				else
					{
						obj_t BgL_auxz00_3167;

						BgL_auxz00_3167 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string2067z00zz__r4_pairs_and_lists_6_3z00, BINT(12052L),
							BGl_string2075z00zz__r4_pairs_and_lists_6_3z00,
							BGl_string2069z00zz__r4_pairs_and_lists_6_3z00, BgL_pairz00_2710);
						FAILURE(BgL_auxz00_3167, BFALSE, BFALSE);
					}
				return BGl_cdarz00zz__r4_pairs_and_lists_6_3z00(BgL_auxz00_3164);
			}
		}

	}



/* cddr */
	BGL_EXPORTED_DEF obj_t BGl_cddrz00zz__r4_pairs_and_lists_6_3z00(obj_t
		BgL_pairz00_17)
	{
		{	/* Ieee/pairlist.scm 296 */
			return CDR(CDR(BgL_pairz00_17));
		}

	}



/* &cddr */
	obj_t BGl_z62cddrz62zz__r4_pairs_and_lists_6_3z00(obj_t BgL_envz00_2711,
		obj_t BgL_pairz00_2712)
	{
		{	/* Ieee/pairlist.scm 296 */
			{	/* Ieee/pairlist.scm 297 */
				obj_t BgL_auxz00_3174;

				if (PAIRP(BgL_pairz00_2712))
					{	/* Ieee/pairlist.scm 297 */
						BgL_auxz00_3174 = BgL_pairz00_2712;
					}
				else
					{
						obj_t BgL_auxz00_3177;

						BgL_auxz00_3177 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string2067z00zz__r4_pairs_and_lists_6_3z00, BINT(12323L),
							BGl_string2076z00zz__r4_pairs_and_lists_6_3z00,
							BGl_string2069z00zz__r4_pairs_and_lists_6_3z00, BgL_pairz00_2712);
						FAILURE(BgL_auxz00_3177, BFALSE, BFALSE);
					}
				return BGl_cddrz00zz__r4_pairs_and_lists_6_3z00(BgL_auxz00_3174);
			}
		}

	}



/* caaar */
	BGL_EXPORTED_DEF obj_t BGl_caaarz00zz__r4_pairs_and_lists_6_3z00(obj_t
		BgL_pairz00_18)
	{
		{	/* Ieee/pairlist.scm 302 */
			return CAR(CAR(CAR(BgL_pairz00_18)));
		}

	}



/* &caaar */
	obj_t BGl_z62caaarz62zz__r4_pairs_and_lists_6_3z00(obj_t BgL_envz00_2713,
		obj_t BgL_pairz00_2714)
	{
		{	/* Ieee/pairlist.scm 302 */
			{	/* Ieee/pairlist.scm 303 */
				obj_t BgL_auxz00_3185;

				if (PAIRP(BgL_pairz00_2714))
					{	/* Ieee/pairlist.scm 303 */
						BgL_auxz00_3185 = BgL_pairz00_2714;
					}
				else
					{
						obj_t BgL_auxz00_3188;

						BgL_auxz00_3188 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string2067z00zz__r4_pairs_and_lists_6_3z00, BINT(12600L),
							BGl_string2077z00zz__r4_pairs_and_lists_6_3z00,
							BGl_string2069z00zz__r4_pairs_and_lists_6_3z00, BgL_pairz00_2714);
						FAILURE(BgL_auxz00_3188, BFALSE, BFALSE);
					}
				return BGl_caaarz00zz__r4_pairs_and_lists_6_3z00(BgL_auxz00_3185);
			}
		}

	}



/* caadr */
	BGL_EXPORTED_DEF obj_t BGl_caadrz00zz__r4_pairs_and_lists_6_3z00(obj_t
		BgL_pairz00_19)
	{
		{	/* Ieee/pairlist.scm 308 */
			return CAR(CAR(CDR(BgL_pairz00_19)));
		}

	}



/* &caadr */
	obj_t BGl_z62caadrz62zz__r4_pairs_and_lists_6_3z00(obj_t BgL_envz00_2715,
		obj_t BgL_pairz00_2716)
	{
		{	/* Ieee/pairlist.scm 308 */
			{	/* Ieee/pairlist.scm 309 */
				obj_t BgL_auxz00_3196;

				if (PAIRP(BgL_pairz00_2716))
					{	/* Ieee/pairlist.scm 309 */
						BgL_auxz00_3196 = BgL_pairz00_2716;
					}
				else
					{
						obj_t BgL_auxz00_3199;

						BgL_auxz00_3199 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string2067z00zz__r4_pairs_and_lists_6_3z00, BINT(12878L),
							BGl_string2078z00zz__r4_pairs_and_lists_6_3z00,
							BGl_string2069z00zz__r4_pairs_and_lists_6_3z00, BgL_pairz00_2716);
						FAILURE(BgL_auxz00_3199, BFALSE, BFALSE);
					}
				return BGl_caadrz00zz__r4_pairs_and_lists_6_3z00(BgL_auxz00_3196);
			}
		}

	}



/* cadar */
	BGL_EXPORTED_DEF obj_t BGl_cadarz00zz__r4_pairs_and_lists_6_3z00(obj_t
		BgL_pairz00_20)
	{
		{	/* Ieee/pairlist.scm 314 */
			return CAR(CDR(CAR(BgL_pairz00_20)));
		}

	}



/* &cadar */
	obj_t BGl_z62cadarz62zz__r4_pairs_and_lists_6_3z00(obj_t BgL_envz00_2717,
		obj_t BgL_pairz00_2718)
	{
		{	/* Ieee/pairlist.scm 314 */
			{	/* Ieee/pairlist.scm 315 */
				obj_t BgL_auxz00_3207;

				if (PAIRP(BgL_pairz00_2718))
					{	/* Ieee/pairlist.scm 315 */
						BgL_auxz00_3207 = BgL_pairz00_2718;
					}
				else
					{
						obj_t BgL_auxz00_3210;

						BgL_auxz00_3210 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string2067z00zz__r4_pairs_and_lists_6_3z00, BINT(13156L),
							BGl_string2079z00zz__r4_pairs_and_lists_6_3z00,
							BGl_string2069z00zz__r4_pairs_and_lists_6_3z00, BgL_pairz00_2718);
						FAILURE(BgL_auxz00_3210, BFALSE, BFALSE);
					}
				return BGl_cadarz00zz__r4_pairs_and_lists_6_3z00(BgL_auxz00_3207);
			}
		}

	}



/* caddr */
	BGL_EXPORTED_DEF obj_t BGl_caddrz00zz__r4_pairs_and_lists_6_3z00(obj_t
		BgL_pairz00_21)
	{
		{	/* Ieee/pairlist.scm 320 */
			return CAR(CDR(CDR(BgL_pairz00_21)));
		}

	}



/* &caddr */
	obj_t BGl_z62caddrz62zz__r4_pairs_and_lists_6_3z00(obj_t BgL_envz00_2719,
		obj_t BgL_pairz00_2720)
	{
		{	/* Ieee/pairlist.scm 320 */
			{	/* Ieee/pairlist.scm 321 */
				obj_t BgL_auxz00_3218;

				if (PAIRP(BgL_pairz00_2720))
					{	/* Ieee/pairlist.scm 321 */
						BgL_auxz00_3218 = BgL_pairz00_2720;
					}
				else
					{
						obj_t BgL_auxz00_3221;

						BgL_auxz00_3221 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string2067z00zz__r4_pairs_and_lists_6_3z00, BINT(13434L),
							BGl_string2080z00zz__r4_pairs_and_lists_6_3z00,
							BGl_string2069z00zz__r4_pairs_and_lists_6_3z00, BgL_pairz00_2720);
						FAILURE(BgL_auxz00_3221, BFALSE, BFALSE);
					}
				return BGl_caddrz00zz__r4_pairs_and_lists_6_3z00(BgL_auxz00_3218);
			}
		}

	}



/* cdaar */
	BGL_EXPORTED_DEF obj_t BGl_cdaarz00zz__r4_pairs_and_lists_6_3z00(obj_t
		BgL_pairz00_22)
	{
		{	/* Ieee/pairlist.scm 326 */
			return CDR(CAR(CAR(BgL_pairz00_22)));
		}

	}



/* &cdaar */
	obj_t BGl_z62cdaarz62zz__r4_pairs_and_lists_6_3z00(obj_t BgL_envz00_2721,
		obj_t BgL_pairz00_2722)
	{
		{	/* Ieee/pairlist.scm 326 */
			{	/* Ieee/pairlist.scm 327 */
				obj_t BgL_auxz00_3229;

				if (PAIRP(BgL_pairz00_2722))
					{	/* Ieee/pairlist.scm 327 */
						BgL_auxz00_3229 = BgL_pairz00_2722;
					}
				else
					{
						obj_t BgL_auxz00_3232;

						BgL_auxz00_3232 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string2067z00zz__r4_pairs_and_lists_6_3z00, BINT(13712L),
							BGl_string2081z00zz__r4_pairs_and_lists_6_3z00,
							BGl_string2069z00zz__r4_pairs_and_lists_6_3z00, BgL_pairz00_2722);
						FAILURE(BgL_auxz00_3232, BFALSE, BFALSE);
					}
				return BGl_cdaarz00zz__r4_pairs_and_lists_6_3z00(BgL_auxz00_3229);
			}
		}

	}



/* cddar */
	BGL_EXPORTED_DEF obj_t BGl_cddarz00zz__r4_pairs_and_lists_6_3z00(obj_t
		BgL_pairz00_23)
	{
		{	/* Ieee/pairlist.scm 332 */
			return CDR(CDR(CAR(BgL_pairz00_23)));
		}

	}



/* &cddar */
	obj_t BGl_z62cddarz62zz__r4_pairs_and_lists_6_3z00(obj_t BgL_envz00_2723,
		obj_t BgL_pairz00_2724)
	{
		{	/* Ieee/pairlist.scm 332 */
			{	/* Ieee/pairlist.scm 333 */
				obj_t BgL_auxz00_3240;

				if (PAIRP(BgL_pairz00_2724))
					{	/* Ieee/pairlist.scm 333 */
						BgL_auxz00_3240 = BgL_pairz00_2724;
					}
				else
					{
						obj_t BgL_auxz00_3243;

						BgL_auxz00_3243 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string2067z00zz__r4_pairs_and_lists_6_3z00, BINT(13990L),
							BGl_string2082z00zz__r4_pairs_and_lists_6_3z00,
							BGl_string2069z00zz__r4_pairs_and_lists_6_3z00, BgL_pairz00_2724);
						FAILURE(BgL_auxz00_3243, BFALSE, BFALSE);
					}
				return BGl_cddarz00zz__r4_pairs_and_lists_6_3z00(BgL_auxz00_3240);
			}
		}

	}



/* cdadr */
	BGL_EXPORTED_DEF obj_t BGl_cdadrz00zz__r4_pairs_and_lists_6_3z00(obj_t
		BgL_pairz00_24)
	{
		{	/* Ieee/pairlist.scm 338 */
			return CDR(CAR(CDR(BgL_pairz00_24)));
		}

	}



/* &cdadr */
	obj_t BGl_z62cdadrz62zz__r4_pairs_and_lists_6_3z00(obj_t BgL_envz00_2725,
		obj_t BgL_pairz00_2726)
	{
		{	/* Ieee/pairlist.scm 338 */
			{	/* Ieee/pairlist.scm 339 */
				obj_t BgL_auxz00_3251;

				if (PAIRP(BgL_pairz00_2726))
					{	/* Ieee/pairlist.scm 339 */
						BgL_auxz00_3251 = BgL_pairz00_2726;
					}
				else
					{
						obj_t BgL_auxz00_3254;

						BgL_auxz00_3254 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string2067z00zz__r4_pairs_and_lists_6_3z00, BINT(14268L),
							BGl_string2083z00zz__r4_pairs_and_lists_6_3z00,
							BGl_string2069z00zz__r4_pairs_and_lists_6_3z00, BgL_pairz00_2726);
						FAILURE(BgL_auxz00_3254, BFALSE, BFALSE);
					}
				return BGl_cdadrz00zz__r4_pairs_and_lists_6_3z00(BgL_auxz00_3251);
			}
		}

	}



/* cdddr */
	BGL_EXPORTED_DEF obj_t BGl_cdddrz00zz__r4_pairs_and_lists_6_3z00(obj_t
		BgL_pairz00_25)
	{
		{	/* Ieee/pairlist.scm 344 */
			return CDR(CDR(CDR(BgL_pairz00_25)));
		}

	}



/* &cdddr */
	obj_t BGl_z62cdddrz62zz__r4_pairs_and_lists_6_3z00(obj_t BgL_envz00_2727,
		obj_t BgL_pairz00_2728)
	{
		{	/* Ieee/pairlist.scm 344 */
			{	/* Ieee/pairlist.scm 345 */
				obj_t BgL_auxz00_3262;

				if (PAIRP(BgL_pairz00_2728))
					{	/* Ieee/pairlist.scm 345 */
						BgL_auxz00_3262 = BgL_pairz00_2728;
					}
				else
					{
						obj_t BgL_auxz00_3265;

						BgL_auxz00_3265 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string2067z00zz__r4_pairs_and_lists_6_3z00, BINT(14546L),
							BGl_string2084z00zz__r4_pairs_and_lists_6_3z00,
							BGl_string2069z00zz__r4_pairs_and_lists_6_3z00, BgL_pairz00_2728);
						FAILURE(BgL_auxz00_3265, BFALSE, BFALSE);
					}
				return BGl_cdddrz00zz__r4_pairs_and_lists_6_3z00(BgL_auxz00_3262);
			}
		}

	}



/* caaaar */
	BGL_EXPORTED_DEF obj_t BGl_caaaarz00zz__r4_pairs_and_lists_6_3z00(obj_t
		BgL_pairz00_26)
	{
		{	/* Ieee/pairlist.scm 350 */
			return CAR(CAR(CAR(CAR(BgL_pairz00_26))));
		}

	}



/* &caaaar */
	obj_t BGl_z62caaaarz62zz__r4_pairs_and_lists_6_3z00(obj_t BgL_envz00_2729,
		obj_t BgL_pairz00_2730)
	{
		{	/* Ieee/pairlist.scm 350 */
			{	/* Ieee/pairlist.scm 351 */
				obj_t BgL_auxz00_3274;

				if (PAIRP(BgL_pairz00_2730))
					{	/* Ieee/pairlist.scm 351 */
						BgL_auxz00_3274 = BgL_pairz00_2730;
					}
				else
					{
						obj_t BgL_auxz00_3277;

						BgL_auxz00_3277 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string2067z00zz__r4_pairs_and_lists_6_3z00, BINT(14830L),
							BGl_string2085z00zz__r4_pairs_and_lists_6_3z00,
							BGl_string2069z00zz__r4_pairs_and_lists_6_3z00, BgL_pairz00_2730);
						FAILURE(BgL_auxz00_3277, BFALSE, BFALSE);
					}
				return BGl_caaaarz00zz__r4_pairs_and_lists_6_3z00(BgL_auxz00_3274);
			}
		}

	}



/* caaadr */
	BGL_EXPORTED_DEF obj_t BGl_caaadrz00zz__r4_pairs_and_lists_6_3z00(obj_t
		BgL_pairz00_27)
	{
		{	/* Ieee/pairlist.scm 356 */
			return CAR(CAR(CAR(CDR(BgL_pairz00_27))));
		}

	}



/* &caaadr */
	obj_t BGl_z62caaadrz62zz__r4_pairs_and_lists_6_3z00(obj_t BgL_envz00_2731,
		obj_t BgL_pairz00_2732)
	{
		{	/* Ieee/pairlist.scm 356 */
			{	/* Ieee/pairlist.scm 357 */
				obj_t BgL_auxz00_3286;

				if (PAIRP(BgL_pairz00_2732))
					{	/* Ieee/pairlist.scm 357 */
						BgL_auxz00_3286 = BgL_pairz00_2732;
					}
				else
					{
						obj_t BgL_auxz00_3289;

						BgL_auxz00_3289 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string2067z00zz__r4_pairs_and_lists_6_3z00, BINT(15115L),
							BGl_string2086z00zz__r4_pairs_and_lists_6_3z00,
							BGl_string2069z00zz__r4_pairs_and_lists_6_3z00, BgL_pairz00_2732);
						FAILURE(BgL_auxz00_3289, BFALSE, BFALSE);
					}
				return BGl_caaadrz00zz__r4_pairs_and_lists_6_3z00(BgL_auxz00_3286);
			}
		}

	}



/* caadar */
	BGL_EXPORTED_DEF obj_t BGl_caadarz00zz__r4_pairs_and_lists_6_3z00(obj_t
		BgL_pairz00_28)
	{
		{	/* Ieee/pairlist.scm 362 */
			return CAR(CAR(CDR(CAR(BgL_pairz00_28))));
		}

	}



/* &caadar */
	obj_t BGl_z62caadarz62zz__r4_pairs_and_lists_6_3z00(obj_t BgL_envz00_2733,
		obj_t BgL_pairz00_2734)
	{
		{	/* Ieee/pairlist.scm 362 */
			{	/* Ieee/pairlist.scm 363 */
				obj_t BgL_auxz00_3298;

				if (PAIRP(BgL_pairz00_2734))
					{	/* Ieee/pairlist.scm 363 */
						BgL_auxz00_3298 = BgL_pairz00_2734;
					}
				else
					{
						obj_t BgL_auxz00_3301;

						BgL_auxz00_3301 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string2067z00zz__r4_pairs_and_lists_6_3z00, BINT(15400L),
							BGl_string2087z00zz__r4_pairs_and_lists_6_3z00,
							BGl_string2069z00zz__r4_pairs_and_lists_6_3z00, BgL_pairz00_2734);
						FAILURE(BgL_auxz00_3301, BFALSE, BFALSE);
					}
				return BGl_caadarz00zz__r4_pairs_and_lists_6_3z00(BgL_auxz00_3298);
			}
		}

	}



/* cadaar */
	BGL_EXPORTED_DEF obj_t BGl_cadaarz00zz__r4_pairs_and_lists_6_3z00(obj_t
		BgL_pairz00_29)
	{
		{	/* Ieee/pairlist.scm 368 */
			return CAR(CDR(CAR(CAR(BgL_pairz00_29))));
		}

	}



/* &cadaar */
	obj_t BGl_z62cadaarz62zz__r4_pairs_and_lists_6_3z00(obj_t BgL_envz00_2735,
		obj_t BgL_pairz00_2736)
	{
		{	/* Ieee/pairlist.scm 368 */
			{	/* Ieee/pairlist.scm 369 */
				obj_t BgL_auxz00_3310;

				if (PAIRP(BgL_pairz00_2736))
					{	/* Ieee/pairlist.scm 369 */
						BgL_auxz00_3310 = BgL_pairz00_2736;
					}
				else
					{
						obj_t BgL_auxz00_3313;

						BgL_auxz00_3313 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string2067z00zz__r4_pairs_and_lists_6_3z00, BINT(15685L),
							BGl_string2088z00zz__r4_pairs_and_lists_6_3z00,
							BGl_string2069z00zz__r4_pairs_and_lists_6_3z00, BgL_pairz00_2736);
						FAILURE(BgL_auxz00_3313, BFALSE, BFALSE);
					}
				return BGl_cadaarz00zz__r4_pairs_and_lists_6_3z00(BgL_auxz00_3310);
			}
		}

	}



/* cdaaar */
	BGL_EXPORTED_DEF obj_t BGl_cdaaarz00zz__r4_pairs_and_lists_6_3z00(obj_t
		BgL_pairz00_30)
	{
		{	/* Ieee/pairlist.scm 374 */
			return CDR(CAR(CAR(CAR(BgL_pairz00_30))));
		}

	}



/* &cdaaar */
	obj_t BGl_z62cdaaarz62zz__r4_pairs_and_lists_6_3z00(obj_t BgL_envz00_2737,
		obj_t BgL_pairz00_2738)
	{
		{	/* Ieee/pairlist.scm 374 */
			{	/* Ieee/pairlist.scm 375 */
				obj_t BgL_auxz00_3322;

				if (PAIRP(BgL_pairz00_2738))
					{	/* Ieee/pairlist.scm 375 */
						BgL_auxz00_3322 = BgL_pairz00_2738;
					}
				else
					{
						obj_t BgL_auxz00_3325;

						BgL_auxz00_3325 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string2067z00zz__r4_pairs_and_lists_6_3z00, BINT(15970L),
							BGl_string2089z00zz__r4_pairs_and_lists_6_3z00,
							BGl_string2069z00zz__r4_pairs_and_lists_6_3z00, BgL_pairz00_2738);
						FAILURE(BgL_auxz00_3325, BFALSE, BFALSE);
					}
				return BGl_cdaaarz00zz__r4_pairs_and_lists_6_3z00(BgL_auxz00_3322);
			}
		}

	}



/* caaddr */
	BGL_EXPORTED_DEF obj_t BGl_caaddrz00zz__r4_pairs_and_lists_6_3z00(obj_t
		BgL_pairz00_31)
	{
		{	/* Ieee/pairlist.scm 380 */
			return CAR(CAR(CDR(CDR(BgL_pairz00_31))));
		}

	}



/* &caaddr */
	obj_t BGl_z62caaddrz62zz__r4_pairs_and_lists_6_3z00(obj_t BgL_envz00_2739,
		obj_t BgL_pairz00_2740)
	{
		{	/* Ieee/pairlist.scm 380 */
			{	/* Ieee/pairlist.scm 381 */
				obj_t BgL_auxz00_3334;

				if (PAIRP(BgL_pairz00_2740))
					{	/* Ieee/pairlist.scm 381 */
						BgL_auxz00_3334 = BgL_pairz00_2740;
					}
				else
					{
						obj_t BgL_auxz00_3337;

						BgL_auxz00_3337 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string2067z00zz__r4_pairs_and_lists_6_3z00, BINT(16255L),
							BGl_string2090z00zz__r4_pairs_and_lists_6_3z00,
							BGl_string2069z00zz__r4_pairs_and_lists_6_3z00, BgL_pairz00_2740);
						FAILURE(BgL_auxz00_3337, BFALSE, BFALSE);
					}
				return BGl_caaddrz00zz__r4_pairs_and_lists_6_3z00(BgL_auxz00_3334);
			}
		}

	}



/* caddar */
	BGL_EXPORTED_DEF obj_t BGl_caddarz00zz__r4_pairs_and_lists_6_3z00(obj_t
		BgL_pairz00_32)
	{
		{	/* Ieee/pairlist.scm 386 */
			return CAR(CDR(CDR(CAR(BgL_pairz00_32))));
		}

	}



/* &caddar */
	obj_t BGl_z62caddarz62zz__r4_pairs_and_lists_6_3z00(obj_t BgL_envz00_2741,
		obj_t BgL_pairz00_2742)
	{
		{	/* Ieee/pairlist.scm 386 */
			{	/* Ieee/pairlist.scm 387 */
				obj_t BgL_auxz00_3346;

				if (PAIRP(BgL_pairz00_2742))
					{	/* Ieee/pairlist.scm 387 */
						BgL_auxz00_3346 = BgL_pairz00_2742;
					}
				else
					{
						obj_t BgL_auxz00_3349;

						BgL_auxz00_3349 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string2067z00zz__r4_pairs_and_lists_6_3z00, BINT(16540L),
							BGl_string2091z00zz__r4_pairs_and_lists_6_3z00,
							BGl_string2069z00zz__r4_pairs_and_lists_6_3z00, BgL_pairz00_2742);
						FAILURE(BgL_auxz00_3349, BFALSE, BFALSE);
					}
				return BGl_caddarz00zz__r4_pairs_and_lists_6_3z00(BgL_auxz00_3346);
			}
		}

	}



/* cadadr */
	BGL_EXPORTED_DEF obj_t BGl_cadadrz00zz__r4_pairs_and_lists_6_3z00(obj_t
		BgL_pairz00_33)
	{
		{	/* Ieee/pairlist.scm 392 */
			return CAR(CDR(CAR(CDR(BgL_pairz00_33))));
		}

	}



/* &cadadr */
	obj_t BGl_z62cadadrz62zz__r4_pairs_and_lists_6_3z00(obj_t BgL_envz00_2743,
		obj_t BgL_pairz00_2744)
	{
		{	/* Ieee/pairlist.scm 392 */
			{	/* Ieee/pairlist.scm 393 */
				obj_t BgL_auxz00_3358;

				if (PAIRP(BgL_pairz00_2744))
					{	/* Ieee/pairlist.scm 393 */
						BgL_auxz00_3358 = BgL_pairz00_2744;
					}
				else
					{
						obj_t BgL_auxz00_3361;

						BgL_auxz00_3361 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string2067z00zz__r4_pairs_and_lists_6_3z00, BINT(16825L),
							BGl_string2092z00zz__r4_pairs_and_lists_6_3z00,
							BGl_string2069z00zz__r4_pairs_and_lists_6_3z00, BgL_pairz00_2744);
						FAILURE(BgL_auxz00_3361, BFALSE, BFALSE);
					}
				return BGl_cadadrz00zz__r4_pairs_and_lists_6_3z00(BgL_auxz00_3358);
			}
		}

	}



/* cadddr */
	BGL_EXPORTED_DEF obj_t BGl_cadddrz00zz__r4_pairs_and_lists_6_3z00(obj_t
		BgL_pairz00_34)
	{
		{	/* Ieee/pairlist.scm 398 */
			return CAR(CDR(CDR(CDR(BgL_pairz00_34))));
		}

	}



/* &cadddr */
	obj_t BGl_z62cadddrz62zz__r4_pairs_and_lists_6_3z00(obj_t BgL_envz00_2745,
		obj_t BgL_pairz00_2746)
	{
		{	/* Ieee/pairlist.scm 398 */
			{	/* Ieee/pairlist.scm 399 */
				obj_t BgL_auxz00_3370;

				if (PAIRP(BgL_pairz00_2746))
					{	/* Ieee/pairlist.scm 399 */
						BgL_auxz00_3370 = BgL_pairz00_2746;
					}
				else
					{
						obj_t BgL_auxz00_3373;

						BgL_auxz00_3373 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string2067z00zz__r4_pairs_and_lists_6_3z00, BINT(17110L),
							BGl_string2093z00zz__r4_pairs_and_lists_6_3z00,
							BGl_string2069z00zz__r4_pairs_and_lists_6_3z00, BgL_pairz00_2746);
						FAILURE(BgL_auxz00_3373, BFALSE, BFALSE);
					}
				return BGl_cadddrz00zz__r4_pairs_and_lists_6_3z00(BgL_auxz00_3370);
			}
		}

	}



/* cdaadr */
	BGL_EXPORTED_DEF obj_t BGl_cdaadrz00zz__r4_pairs_and_lists_6_3z00(obj_t
		BgL_pairz00_35)
	{
		{	/* Ieee/pairlist.scm 404 */
			return CDR(CAR(CAR(CDR(BgL_pairz00_35))));
		}

	}



/* &cdaadr */
	obj_t BGl_z62cdaadrz62zz__r4_pairs_and_lists_6_3z00(obj_t BgL_envz00_2747,
		obj_t BgL_pairz00_2748)
	{
		{	/* Ieee/pairlist.scm 404 */
			{	/* Ieee/pairlist.scm 405 */
				obj_t BgL_auxz00_3382;

				if (PAIRP(BgL_pairz00_2748))
					{	/* Ieee/pairlist.scm 405 */
						BgL_auxz00_3382 = BgL_pairz00_2748;
					}
				else
					{
						obj_t BgL_auxz00_3385;

						BgL_auxz00_3385 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string2067z00zz__r4_pairs_and_lists_6_3z00, BINT(17395L),
							BGl_string2094z00zz__r4_pairs_and_lists_6_3z00,
							BGl_string2069z00zz__r4_pairs_and_lists_6_3z00, BgL_pairz00_2748);
						FAILURE(BgL_auxz00_3385, BFALSE, BFALSE);
					}
				return BGl_cdaadrz00zz__r4_pairs_and_lists_6_3z00(BgL_auxz00_3382);
			}
		}

	}



/* cdaddr */
	BGL_EXPORTED_DEF obj_t BGl_cdaddrz00zz__r4_pairs_and_lists_6_3z00(obj_t
		BgL_pairz00_36)
	{
		{	/* Ieee/pairlist.scm 410 */
			return CDR(CAR(CDR(CDR(BgL_pairz00_36))));
		}

	}



/* &cdaddr */
	obj_t BGl_z62cdaddrz62zz__r4_pairs_and_lists_6_3z00(obj_t BgL_envz00_2749,
		obj_t BgL_pairz00_2750)
	{
		{	/* Ieee/pairlist.scm 410 */
			{	/* Ieee/pairlist.scm 411 */
				obj_t BgL_auxz00_3394;

				if (PAIRP(BgL_pairz00_2750))
					{	/* Ieee/pairlist.scm 411 */
						BgL_auxz00_3394 = BgL_pairz00_2750;
					}
				else
					{
						obj_t BgL_auxz00_3397;

						BgL_auxz00_3397 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string2067z00zz__r4_pairs_and_lists_6_3z00, BINT(17680L),
							BGl_string2095z00zz__r4_pairs_and_lists_6_3z00,
							BGl_string2069z00zz__r4_pairs_and_lists_6_3z00, BgL_pairz00_2750);
						FAILURE(BgL_auxz00_3397, BFALSE, BFALSE);
					}
				return BGl_cdaddrz00zz__r4_pairs_and_lists_6_3z00(BgL_auxz00_3394);
			}
		}

	}



/* cddaar */
	BGL_EXPORTED_DEF obj_t BGl_cddaarz00zz__r4_pairs_and_lists_6_3z00(obj_t
		BgL_pairz00_37)
	{
		{	/* Ieee/pairlist.scm 416 */
			return CDR(CDR(CAR(CAR(BgL_pairz00_37))));
		}

	}



/* &cddaar */
	obj_t BGl_z62cddaarz62zz__r4_pairs_and_lists_6_3z00(obj_t BgL_envz00_2751,
		obj_t BgL_pairz00_2752)
	{
		{	/* Ieee/pairlist.scm 416 */
			{	/* Ieee/pairlist.scm 417 */
				obj_t BgL_auxz00_3406;

				if (PAIRP(BgL_pairz00_2752))
					{	/* Ieee/pairlist.scm 417 */
						BgL_auxz00_3406 = BgL_pairz00_2752;
					}
				else
					{
						obj_t BgL_auxz00_3409;

						BgL_auxz00_3409 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string2067z00zz__r4_pairs_and_lists_6_3z00, BINT(17965L),
							BGl_string2096z00zz__r4_pairs_and_lists_6_3z00,
							BGl_string2069z00zz__r4_pairs_and_lists_6_3z00, BgL_pairz00_2752);
						FAILURE(BgL_auxz00_3409, BFALSE, BFALSE);
					}
				return BGl_cddaarz00zz__r4_pairs_and_lists_6_3z00(BgL_auxz00_3406);
			}
		}

	}



/* cddadr */
	BGL_EXPORTED_DEF obj_t BGl_cddadrz00zz__r4_pairs_and_lists_6_3z00(obj_t
		BgL_pairz00_38)
	{
		{	/* Ieee/pairlist.scm 422 */
			return CDR(CDR(CAR(CDR(BgL_pairz00_38))));
		}

	}



/* &cddadr */
	obj_t BGl_z62cddadrz62zz__r4_pairs_and_lists_6_3z00(obj_t BgL_envz00_2753,
		obj_t BgL_pairz00_2754)
	{
		{	/* Ieee/pairlist.scm 422 */
			{	/* Ieee/pairlist.scm 423 */
				obj_t BgL_auxz00_3418;

				if (PAIRP(BgL_pairz00_2754))
					{	/* Ieee/pairlist.scm 423 */
						BgL_auxz00_3418 = BgL_pairz00_2754;
					}
				else
					{
						obj_t BgL_auxz00_3421;

						BgL_auxz00_3421 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string2067z00zz__r4_pairs_and_lists_6_3z00, BINT(18250L),
							BGl_string2097z00zz__r4_pairs_and_lists_6_3z00,
							BGl_string2069z00zz__r4_pairs_and_lists_6_3z00, BgL_pairz00_2754);
						FAILURE(BgL_auxz00_3421, BFALSE, BFALSE);
					}
				return BGl_cddadrz00zz__r4_pairs_and_lists_6_3z00(BgL_auxz00_3418);
			}
		}

	}



/* cdadar */
	BGL_EXPORTED_DEF obj_t BGl_cdadarz00zz__r4_pairs_and_lists_6_3z00(obj_t
		BgL_pairz00_39)
	{
		{	/* Ieee/pairlist.scm 428 */
			return CDR(CAR(CDR(CAR(BgL_pairz00_39))));
		}

	}



/* &cdadar */
	obj_t BGl_z62cdadarz62zz__r4_pairs_and_lists_6_3z00(obj_t BgL_envz00_2755,
		obj_t BgL_pairz00_2756)
	{
		{	/* Ieee/pairlist.scm 428 */
			{	/* Ieee/pairlist.scm 429 */
				obj_t BgL_auxz00_3430;

				if (PAIRP(BgL_pairz00_2756))
					{	/* Ieee/pairlist.scm 429 */
						BgL_auxz00_3430 = BgL_pairz00_2756;
					}
				else
					{
						obj_t BgL_auxz00_3433;

						BgL_auxz00_3433 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string2067z00zz__r4_pairs_and_lists_6_3z00, BINT(18535L),
							BGl_string2098z00zz__r4_pairs_and_lists_6_3z00,
							BGl_string2069z00zz__r4_pairs_and_lists_6_3z00, BgL_pairz00_2756);
						FAILURE(BgL_auxz00_3433, BFALSE, BFALSE);
					}
				return BGl_cdadarz00zz__r4_pairs_and_lists_6_3z00(BgL_auxz00_3430);
			}
		}

	}



/* cdddar */
	BGL_EXPORTED_DEF obj_t BGl_cdddarz00zz__r4_pairs_and_lists_6_3z00(obj_t
		BgL_pairz00_40)
	{
		{	/* Ieee/pairlist.scm 434 */
			return CDR(CDR(CDR(CAR(BgL_pairz00_40))));
		}

	}



/* &cdddar */
	obj_t BGl_z62cdddarz62zz__r4_pairs_and_lists_6_3z00(obj_t BgL_envz00_2757,
		obj_t BgL_pairz00_2758)
	{
		{	/* Ieee/pairlist.scm 434 */
			{	/* Ieee/pairlist.scm 435 */
				obj_t BgL_auxz00_3442;

				if (PAIRP(BgL_pairz00_2758))
					{	/* Ieee/pairlist.scm 435 */
						BgL_auxz00_3442 = BgL_pairz00_2758;
					}
				else
					{
						obj_t BgL_auxz00_3445;

						BgL_auxz00_3445 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string2067z00zz__r4_pairs_and_lists_6_3z00, BINT(18820L),
							BGl_string2099z00zz__r4_pairs_and_lists_6_3z00,
							BGl_string2069z00zz__r4_pairs_and_lists_6_3z00, BgL_pairz00_2758);
						FAILURE(BgL_auxz00_3445, BFALSE, BFALSE);
					}
				return BGl_cdddarz00zz__r4_pairs_and_lists_6_3z00(BgL_auxz00_3442);
			}
		}

	}



/* cddddr */
	BGL_EXPORTED_DEF obj_t BGl_cddddrz00zz__r4_pairs_and_lists_6_3z00(obj_t
		BgL_pairz00_41)
	{
		{	/* Ieee/pairlist.scm 441 */
			return CDR(CDR(CDR(CDR(BgL_pairz00_41))));
		}

	}



/* &cddddr */
	obj_t BGl_z62cddddrz62zz__r4_pairs_and_lists_6_3z00(obj_t BgL_envz00_2759,
		obj_t BgL_pairz00_2760)
	{
		{	/* Ieee/pairlist.scm 441 */
			{	/* Ieee/pairlist.scm 442 */
				obj_t BgL_auxz00_3454;

				if (PAIRP(BgL_pairz00_2760))
					{	/* Ieee/pairlist.scm 442 */
						BgL_auxz00_3454 = BgL_pairz00_2760;
					}
				else
					{
						obj_t BgL_auxz00_3457;

						BgL_auxz00_3457 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string2067z00zz__r4_pairs_and_lists_6_3z00, BINT(19106L),
							BGl_string2100z00zz__r4_pairs_and_lists_6_3z00,
							BGl_string2069z00zz__r4_pairs_and_lists_6_3z00, BgL_pairz00_2760);
						FAILURE(BgL_auxz00_3457, BFALSE, BFALSE);
					}
				return BGl_cddddrz00zz__r4_pairs_and_lists_6_3z00(BgL_auxz00_3454);
			}
		}

	}



/* set-car! */
	BGL_EXPORTED_DEF obj_t BGl_setzd2carz12zc0zz__r4_pairs_and_lists_6_3z00(obj_t
		BgL_pairz00_42, obj_t BgL_objz00_43)
	{
		{	/* Ieee/pairlist.scm 447 */
			return SET_CAR(BgL_pairz00_42, BgL_objz00_43);
		}

	}



/* &set-car! */
	obj_t BGl_z62setzd2carz12za2zz__r4_pairs_and_lists_6_3z00(obj_t
		BgL_envz00_2761, obj_t BgL_pairz00_2762, obj_t BgL_objz00_2763)
	{
		{	/* Ieee/pairlist.scm 447 */
			{	/* Ieee/pairlist.scm 448 */
				obj_t BgL_auxz00_3463;

				if (PAIRP(BgL_pairz00_2762))
					{	/* Ieee/pairlist.scm 448 */
						BgL_auxz00_3463 = BgL_pairz00_2762;
					}
				else
					{
						obj_t BgL_auxz00_3466;

						BgL_auxz00_3466 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string2067z00zz__r4_pairs_and_lists_6_3z00, BINT(19382L),
							BGl_string2101z00zz__r4_pairs_and_lists_6_3z00,
							BGl_string2069z00zz__r4_pairs_and_lists_6_3z00, BgL_pairz00_2762);
						FAILURE(BgL_auxz00_3466, BFALSE, BFALSE);
					}
				return
					BGl_setzd2carz12zc0zz__r4_pairs_and_lists_6_3z00(BgL_auxz00_3463,
					BgL_objz00_2763);
			}
		}

	}



/* set-cdr! */
	BGL_EXPORTED_DEF obj_t BGl_setzd2cdrz12zc0zz__r4_pairs_and_lists_6_3z00(obj_t
		BgL_pairz00_44, obj_t BgL_objz00_45)
	{
		{	/* Ieee/pairlist.scm 453 */
			return SET_CDR(BgL_pairz00_44, BgL_objz00_45);
		}

	}



/* &set-cdr! */
	obj_t BGl_z62setzd2cdrz12za2zz__r4_pairs_and_lists_6_3z00(obj_t
		BgL_envz00_2764, obj_t BgL_pairz00_2765, obj_t BgL_objz00_2766)
	{
		{	/* Ieee/pairlist.scm 453 */
			{	/* Ieee/pairlist.scm 454 */
				obj_t BgL_auxz00_3472;

				if (PAIRP(BgL_pairz00_2765))
					{	/* Ieee/pairlist.scm 454 */
						BgL_auxz00_3472 = BgL_pairz00_2765;
					}
				else
					{
						obj_t BgL_auxz00_3475;

						BgL_auxz00_3475 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string2067z00zz__r4_pairs_and_lists_6_3z00, BINT(19665L),
							BGl_string2102z00zz__r4_pairs_and_lists_6_3z00,
							BGl_string2069z00zz__r4_pairs_and_lists_6_3z00, BgL_pairz00_2765);
						FAILURE(BgL_auxz00_3475, BFALSE, BFALSE);
					}
				return
					BGl_setzd2cdrz12zc0zz__r4_pairs_and_lists_6_3z00(BgL_auxz00_3472,
					BgL_objz00_2766);
			}
		}

	}



/* set-cer! */
	BGL_EXPORTED_DEF obj_t BGl_setzd2cerz12zc0zz__r4_pairs_and_lists_6_3z00(obj_t
		BgL_epairz00_46, obj_t BgL_objz00_47)
	{
		{	/* Ieee/pairlist.scm 459 */
			return SET_CER(BgL_epairz00_46, BgL_objz00_47);
		}

	}



/* &set-cer! */
	obj_t BGl_z62setzd2cerz12za2zz__r4_pairs_and_lists_6_3z00(obj_t
		BgL_envz00_2767, obj_t BgL_epairz00_2768, obj_t BgL_objz00_2769)
	{
		{	/* Ieee/pairlist.scm 459 */
			{	/* Ieee/pairlist.scm 460 */
				obj_t BgL_auxz00_3481;

				if (EPAIRP(BgL_epairz00_2768))
					{	/* Ieee/pairlist.scm 460 */
						BgL_auxz00_3481 = BgL_epairz00_2768;
					}
				else
					{
						obj_t BgL_auxz00_3484;

						BgL_auxz00_3484 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string2067z00zz__r4_pairs_and_lists_6_3z00, BINT(19949L),
							BGl_string2103z00zz__r4_pairs_and_lists_6_3z00,
							BGl_string2072z00zz__r4_pairs_and_lists_6_3z00,
							BgL_epairz00_2768);
						FAILURE(BgL_auxz00_3484, BFALSE, BFALSE);
					}
				return
					BGl_setzd2cerz12zc0zz__r4_pairs_and_lists_6_3z00(BgL_auxz00_3481,
					BgL_objz00_2769);
			}
		}

	}



/* null? */
	BGL_EXPORTED_DEF bool_t BGl_nullzf3zf3zz__r4_pairs_and_lists_6_3z00(obj_t
		BgL_objz00_48)
	{
		{	/* Ieee/pairlist.scm 465 */
			return NULLP(BgL_objz00_48);
		}

	}



/* &null? */
	obj_t BGl_z62nullzf3z91zz__r4_pairs_and_lists_6_3z00(obj_t BgL_envz00_2770,
		obj_t BgL_objz00_2771)
	{
		{	/* Ieee/pairlist.scm 465 */
			return
				BBOOL(BGl_nullzf3zf3zz__r4_pairs_and_lists_6_3z00(BgL_objz00_2771));
		}

	}



/* list */
	BGL_EXPORTED_DEF obj_t BGl_listz00zz__r4_pairs_and_lists_6_3z00(obj_t
		BgL_lz00_49)
	{
		{	/* Ieee/pairlist.scm 471 */
			return BgL_lz00_49;
		}

	}



/* &list */
	obj_t BGl_z62listz62zz__r4_pairs_and_lists_6_3z00(obj_t BgL_envz00_2772,
		obj_t BgL_lz00_2773)
	{
		{	/* Ieee/pairlist.scm 471 */
			return BGl_listz00zz__r4_pairs_and_lists_6_3z00(BgL_lz00_2773);
		}

	}



/* list? */
	BGL_EXPORTED_DEF bool_t BGl_listzf3zf3zz__r4_pairs_and_lists_6_3z00(obj_t
		BgL_xz00_50)
	{
		{	/* Ieee/pairlist.scm 477 */
			{
				obj_t BgL_xz00_890;
				obj_t BgL_prevz00_891;

				if (NULLP(BgL_xz00_50))
					{	/* Ieee/pairlist.scm 494 */
						return ((bool_t) 1);
					}
				else
					{	/* Ieee/pairlist.scm 494 */
						if (PAIRP(BgL_xz00_50))
							{	/* Ieee/pairlist.scm 497 */
								obj_t BgL_arg1296z00_895;

								BgL_arg1296z00_895 = CDR(BgL_xz00_50);
								if (NULLP(BgL_arg1296z00_895))
									{	/* Ieee/pairlist.scm 479 */
										return ((bool_t) 1);
									}
								else
									{	/* Ieee/pairlist.scm 479 */
										if (PAIRP(BgL_arg1296z00_895))
											{	/* Ieee/pairlist.scm 481 */
												if ((BgL_arg1296z00_895 == BgL_xz00_50))
													{	/* Ieee/pairlist.scm 482 */
														return ((bool_t) 0);
													}
												else
													{	/* Ieee/pairlist.scm 482 */
														BgL_xz00_890 = CDR(BgL_arg1296z00_895);
														BgL_prevz00_891 = BgL_xz00_50;
													BgL_l2z00_892:
														if (NULLP(BgL_xz00_890))
															{	/* Ieee/pairlist.scm 487 */
																return ((bool_t) 1);
															}
														else
															{	/* Ieee/pairlist.scm 487 */
																if (PAIRP(BgL_xz00_890))
																	{	/* Ieee/pairlist.scm 489 */
																		if ((BgL_xz00_890 == BgL_prevz00_891))
																			{	/* Ieee/pairlist.scm 490 */
																				return ((bool_t) 0);
																			}
																		else
																			{	/* Ieee/pairlist.scm 492 */
																				obj_t BgL_arg1322z00_1844;
																				obj_t BgL_arg1329z00_1845;

																				BgL_arg1322z00_1844 = CDR(BgL_xz00_890);
																				BgL_arg1329z00_1845 =
																					CDR(((obj_t) BgL_prevz00_891));
																				if (NULLP(BgL_arg1322z00_1844))
																					{	/* Ieee/pairlist.scm 479 */
																						return ((bool_t) 1);
																					}
																				else
																					{	/* Ieee/pairlist.scm 479 */
																						if (PAIRP(BgL_arg1322z00_1844))
																							{	/* Ieee/pairlist.scm 481 */
																								if (
																									(BgL_arg1322z00_1844 ==
																										BgL_arg1329z00_1845))
																									{	/* Ieee/pairlist.scm 482 */
																										return ((bool_t) 0);
																									}
																								else
																									{
																										obj_t BgL_prevz00_3521;
																										obj_t BgL_xz00_3519;

																										BgL_xz00_3519 =
																											CDR(BgL_arg1322z00_1844);
																										BgL_prevz00_3521 =
																											BgL_arg1329z00_1845;
																										BgL_prevz00_891 =
																											BgL_prevz00_3521;
																										BgL_xz00_890 =
																											BgL_xz00_3519;
																										goto BgL_l2z00_892;
																									}
																							}
																						else
																							{	/* Ieee/pairlist.scm 481 */
																								return ((bool_t) 0);
																							}
																					}
																			}
																	}
																else
																	{	/* Ieee/pairlist.scm 489 */
																		return ((bool_t) 0);
																	}
															}
													}
											}
										else
											{	/* Ieee/pairlist.scm 481 */
												return ((bool_t) 0);
											}
									}
							}
						else
							{	/* Ieee/pairlist.scm 496 */
								return ((bool_t) 0);
							}
					}
			}
		}

	}



/* &list? */
	obj_t BGl_z62listzf3z91zz__r4_pairs_and_lists_6_3z00(obj_t BgL_envz00_2774,
		obj_t BgL_xz00_2775)
	{
		{	/* Ieee/pairlist.scm 477 */
			return BBOOL(BGl_listzf3zf3zz__r4_pairs_and_lists_6_3z00(BgL_xz00_2775));
		}

	}



/* append-2 */
	BGL_EXPORTED_DEF obj_t bgl_append2(obj_t BgL_l1z00_51, obj_t BgL_l2z00_52)
	{
		{	/* Ieee/pairlist.scm 504 */
			{	/* Ieee/pairlist.scm 505 */
				obj_t BgL_headz00_903;

				BgL_headz00_903 = MAKE_YOUNG_PAIR(BNIL, BgL_l2z00_52);
				{
					obj_t BgL_prevz00_1872;
					obj_t BgL_tailz00_1873;

					BgL_prevz00_1872 = BgL_headz00_903;
					BgL_tailz00_1873 = BgL_l1z00_51;
				BgL_loopz00_1871:
					if (NULLP(BgL_tailz00_1873))
						{	/* Ieee/pairlist.scm 507 */
							BNIL;
						}
					else
						{	/* Ieee/pairlist.scm 509 */
							obj_t BgL_newzd2prevzd2_1879;

							{	/* Ieee/pairlist.scm 509 */
								obj_t BgL_arg1332z00_1880;

								BgL_arg1332z00_1880 = CAR(((obj_t) BgL_tailz00_1873));
								BgL_newzd2prevzd2_1879 =
									MAKE_YOUNG_PAIR(BgL_arg1332z00_1880, BgL_l2z00_52);
							}
							SET_CDR(BgL_prevz00_1872, BgL_newzd2prevzd2_1879);
							{	/* Ieee/pairlist.scm 511 */
								obj_t BgL_arg1331z00_1881;

								BgL_arg1331z00_1881 = CDR(((obj_t) BgL_tailz00_1873));
								{
									obj_t BgL_tailz00_3535;
									obj_t BgL_prevz00_3534;

									BgL_prevz00_3534 = BgL_newzd2prevzd2_1879;
									BgL_tailz00_3535 = BgL_arg1331z00_1881;
									BgL_tailz00_1873 = BgL_tailz00_3535;
									BgL_prevz00_1872 = BgL_prevz00_3534;
									goto BgL_loopz00_1871;
								}
							}
						}
				}
				return CDR(BgL_headz00_903);
			}
		}

	}



/* &append-2 */
	obj_t BGl_z62appendzd22zb0zz__r4_pairs_and_lists_6_3z00(obj_t BgL_envz00_2776,
		obj_t BgL_l1z00_2777, obj_t BgL_l2z00_2778)
	{
		{	/* Ieee/pairlist.scm 504 */
			{	/* Ieee/pairlist.scm 505 */
				obj_t BgL_auxz00_3537;

				if (BGl_pairzd2orzd2nullzf3zf3zz__r4_pairs_and_lists_6_3z00
					(BgL_l1z00_2777))
					{	/* Ieee/pairlist.scm 505 */
						BgL_auxz00_3537 = BgL_l1z00_2777;
					}
				else
					{
						obj_t BgL_auxz00_3540;

						BgL_auxz00_3540 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string2067z00zz__r4_pairs_and_lists_6_3z00, BINT(21406L),
							BGl_string2104z00zz__r4_pairs_and_lists_6_3z00,
							BGl_string2105z00zz__r4_pairs_and_lists_6_3z00, BgL_l1z00_2777);
						FAILURE(BgL_auxz00_3540, BFALSE, BFALSE);
					}
				return bgl_append2(BgL_auxz00_3537, BgL_l2z00_2778);
			}
		}

	}



/* eappend-2 */
	BGL_EXPORTED_DEF obj_t BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(obj_t
		BgL_l1z00_53, obj_t BgL_l2z00_54)
	{
		{	/* Ieee/pairlist.scm 518 */
			{	/* Ieee/pairlist.scm 519 */
				obj_t BgL_headz00_911;

				if (EPAIRP(BgL_l2z00_54))
					{	/* Ieee/pairlist.scm 520 */
						obj_t BgL_arg1341z00_923;

						BgL_arg1341z00_923 = CER(((obj_t) BgL_l2z00_54));
						{	/* Ieee/pairlist.scm 520 */
							obj_t BgL_res1871z00_1887;

							BgL_res1871z00_1887 =
								MAKE_YOUNG_EPAIR(BNIL, BgL_l2z00_54, BgL_arg1341z00_923);
							BgL_headz00_911 = BgL_res1871z00_1887;
						}
					}
				else
					{	/* Ieee/pairlist.scm 519 */
						BgL_headz00_911 = MAKE_YOUNG_PAIR(BNIL, BgL_l2z00_54);
					}
				{
					obj_t BgL_prevz00_912;
					obj_t BgL_tailz00_913;

					BgL_prevz00_912 = BgL_headz00_911;
					BgL_tailz00_913 = BgL_l1z00_53;
				BgL_loopz00_914:
					if (NULLP(BgL_tailz00_913))
						{	/* Ieee/pairlist.scm 523 */
							BNIL;
						}
					else
						{	/* Ieee/pairlist.scm 525 */
							obj_t BgL_newzd2prevzd2_916;

							if (EPAIRP(BgL_tailz00_913))
								{	/* Ieee/pairlist.scm 526 */
									obj_t BgL_arg1336z00_919;
									obj_t BgL_arg1337z00_920;

									BgL_arg1336z00_919 = CAR(((obj_t) BgL_tailz00_913));
									BgL_arg1337z00_920 = CER(((obj_t) BgL_tailz00_913));
									{	/* Ieee/pairlist.scm 526 */
										obj_t BgL_res1872z00_1890;

										BgL_res1872z00_1890 =
											MAKE_YOUNG_EPAIR(BgL_arg1336z00_919, BgL_l2z00_54,
											BgL_arg1337z00_920);
										BgL_newzd2prevzd2_916 = BgL_res1872z00_1890;
									}
								}
							else
								{	/* Ieee/pairlist.scm 527 */
									obj_t BgL_arg1338z00_921;

									BgL_arg1338z00_921 = CAR(((obj_t) BgL_tailz00_913));
									BgL_newzd2prevzd2_916 =
										MAKE_YOUNG_PAIR(BgL_arg1338z00_921, BgL_l2z00_54);
								}
							SET_CDR(BgL_prevz00_912, BgL_newzd2prevzd2_916);
							{	/* Ieee/pairlist.scm 529 */
								obj_t BgL_arg1334z00_917;

								BgL_arg1334z00_917 = CDR(((obj_t) BgL_tailz00_913));
								{
									obj_t BgL_tailz00_3567;
									obj_t BgL_prevz00_3566;

									BgL_prevz00_3566 = BgL_newzd2prevzd2_916;
									BgL_tailz00_3567 = BgL_arg1334z00_917;
									BgL_tailz00_913 = BgL_tailz00_3567;
									BgL_prevz00_912 = BgL_prevz00_3566;
									goto BgL_loopz00_914;
								}
							}
						}
					return CDR(BgL_headz00_911);
				}
			}
		}

	}



/* &eappend-2 */
	obj_t BGl_z62eappendzd22zb0zz__r4_pairs_and_lists_6_3z00(obj_t
		BgL_envz00_2779, obj_t BgL_l1z00_2780, obj_t BgL_l2z00_2781)
	{
		{	/* Ieee/pairlist.scm 518 */
			{	/* Ieee/pairlist.scm 519 */
				obj_t BgL_auxz00_3569;

				if (BGl_pairzd2orzd2nullzf3zf3zz__r4_pairs_and_lists_6_3z00
					(BgL_l1z00_2780))
					{	/* Ieee/pairlist.scm 519 */
						BgL_auxz00_3569 = BgL_l1z00_2780;
					}
				else
					{
						obj_t BgL_auxz00_3572;

						BgL_auxz00_3572 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string2067z00zz__r4_pairs_and_lists_6_3z00, BINT(21897L),
							BGl_string2106z00zz__r4_pairs_and_lists_6_3z00,
							BGl_string2105z00zz__r4_pairs_and_lists_6_3z00, BgL_l1z00_2780);
						FAILURE(BgL_auxz00_3572, BFALSE, BFALSE);
					}
				return
					BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(BgL_auxz00_3569,
					BgL_l2z00_2781);
			}
		}

	}



/* append */
	BGL_EXPORTED_DEF obj_t BGl_appendz00zz__r4_pairs_and_lists_6_3z00(obj_t
		BgL_lz00_55)
	{
		{	/* Ieee/pairlist.scm 536 */
			BGL_TAIL return
				BGl_appendzd2listze72z35zz__r4_pairs_and_lists_6_3z00(BgL_lz00_55);
		}

	}



/* append-list~2 */
	obj_t BGl_appendzd2listze72z35zz__r4_pairs_and_lists_6_3z00(obj_t
		BgL_lz00_924)
	{
		{	/* Ieee/pairlist.scm 537 */
			{	/* Ieee/pairlist.scm 538 */
				long BgL_lenz00_926;

				BgL_lenz00_926 = bgl_list_length(BgL_lz00_924);
				{

					switch (BgL_lenz00_926)
						{
						case 0L:

							return BNIL;
							break;
						case 1L:

							return CAR(((obj_t) BgL_lz00_924));
							break;
						case 2L:

							{	/* Ieee/pairlist.scm 544 */
								obj_t BgL_arg1342z00_929;
								obj_t BgL_arg1343z00_930;

								BgL_arg1342z00_929 = CAR(((obj_t) BgL_lz00_924));
								{	/* Ieee/pairlist.scm 545 */
									obj_t BgL_pairz00_1900;

									BgL_pairz00_1900 = CDR(((obj_t) BgL_lz00_924));
									BgL_arg1343z00_930 = CAR(BgL_pairz00_1900);
								}
								return
									BGl_appendzd221011zd2zz__r4_pairs_and_lists_6_3z00
									(BgL_arg1342z00_929, BgL_arg1343z00_930);
							}
							break;
						default:
							{	/* Ieee/pairlist.scm 546 */
								obj_t BgL_arg1346z00_932;
								obj_t BgL_arg1347z00_933;

								BgL_arg1346z00_932 = CAR(((obj_t) BgL_lz00_924));
								{	/* Ieee/pairlist.scm 547 */
									obj_t BgL_arg1349z00_934;

									BgL_arg1349z00_934 = CDR(((obj_t) BgL_lz00_924));
									BgL_arg1347z00_933 =
										BGl_appendzd2listze72z35zz__r4_pairs_and_lists_6_3z00
										(BgL_arg1349z00_934);
								}
								return
									BGl_appendzd221011zd2zz__r4_pairs_and_lists_6_3z00
									(BgL_arg1346z00_932, BgL_arg1347z00_933);
							}
						}
				}
			}
		}

	}



/* &append */
	obj_t BGl_z62appendz62zz__r4_pairs_and_lists_6_3z00(obj_t BgL_envz00_2782,
		obj_t BgL_lz00_2783)
	{
		{	/* Ieee/pairlist.scm 536 */
			return BGl_appendz00zz__r4_pairs_and_lists_6_3z00(BgL_lz00_2783);
		}

	}



/* eappend */
	BGL_EXPORTED_DEF obj_t BGl_eappendz00zz__r4_pairs_and_lists_6_3z00(obj_t
		BgL_lz00_56)
	{
		{	/* Ieee/pairlist.scm 553 */
			BGL_TAIL return
				BGl_appendzd2listze71z35zz__r4_pairs_and_lists_6_3z00(BgL_lz00_56);
		}

	}



/* append-list~1 */
	obj_t BGl_appendzd2listze71z35zz__r4_pairs_and_lists_6_3z00(obj_t
		BgL_lz00_935)
	{
		{	/* Ieee/pairlist.scm 554 */
			{	/* Ieee/pairlist.scm 555 */
				long BgL_lenz00_937;

				BgL_lenz00_937 = bgl_list_length(BgL_lz00_935);
				{

					switch (BgL_lenz00_937)
						{
						case 0L:

							return BNIL;
							break;
						case 1L:

							return CAR(((obj_t) BgL_lz00_935));
							break;
						case 2L:

							{	/* Ieee/pairlist.scm 561 */
								obj_t BgL_arg1351z00_940;
								obj_t BgL_arg1352z00_941;

								BgL_arg1351z00_940 = CAR(((obj_t) BgL_lz00_935));
								{	/* Ieee/pairlist.scm 562 */
									obj_t BgL_pairz00_1906;

									BgL_pairz00_1906 = CDR(((obj_t) BgL_lz00_935));
									BgL_arg1352z00_941 = CAR(BgL_pairz00_1906);
								}
								return
									BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00
									(BgL_arg1351z00_940, BgL_arg1352z00_941);
							}
							break;
						default:
							{	/* Ieee/pairlist.scm 563 */
								obj_t BgL_arg1355z00_943;
								obj_t BgL_arg1356z00_944;

								BgL_arg1355z00_943 = CAR(((obj_t) BgL_lz00_935));
								BgL_arg1356z00_944 =
									BGl_appendzd2listze71z35zz__r4_pairs_and_lists_6_3z00(CDR(
										((obj_t) BgL_lz00_935)));
								return
									BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00
									(BgL_arg1355z00_943, BgL_arg1356z00_944);
							}
						}
				}
			}
		}

	}



/* &eappend */
	obj_t BGl_z62eappendz62zz__r4_pairs_and_lists_6_3z00(obj_t BgL_envz00_2784,
		obj_t BgL_lz00_2785)
	{
		{	/* Ieee/pairlist.scm 553 */
			return BGl_eappendz00zz__r4_pairs_and_lists_6_3z00(BgL_lz00_2785);
		}

	}



/* append! */
	BGL_EXPORTED_DEF obj_t BGl_appendz12z12zz__r4_pairs_and_lists_6_3z00(obj_t
		BgL_lz00_57)
	{
		{	/* Ieee/pairlist.scm 570 */
			BGL_TAIL return
				BGl_appendzd2listze70z35zz__r4_pairs_and_lists_6_3z00(BgL_lz00_57);
		}

	}



/* append-list~0 */
	obj_t BGl_appendzd2listze70z35zz__r4_pairs_and_lists_6_3z00(obj_t
		BgL_lz00_946)
	{
		{	/* Ieee/pairlist.scm 571 */
			{	/* Ieee/pairlist.scm 572 */
				long BgL_lenz00_948;

				BgL_lenz00_948 = bgl_list_length(BgL_lz00_946);
				{

					switch (BgL_lenz00_948)
						{
						case 0L:

							return BNIL;
							break;
						case 1L:

							return CAR(((obj_t) BgL_lz00_946));
							break;
						case 2L:

							{	/* Ieee/pairlist.scm 578 */
								obj_t BgL_arg1358z00_951;
								obj_t BgL_arg1359z00_952;

								BgL_arg1358z00_951 = CAR(((obj_t) BgL_lz00_946));
								{	/* Ieee/pairlist.scm 579 */
									obj_t BgL_pairz00_1912;

									BgL_pairz00_1912 = CDR(((obj_t) BgL_lz00_946));
									BgL_arg1359z00_952 = CAR(BgL_pairz00_1912);
								}
								return
									BGl_appendzd22z12zc0zz__r4_pairs_and_lists_6_3z00
									(BgL_arg1358z00_951, BgL_arg1359z00_952);
							}
							break;
						default:
							{	/* Ieee/pairlist.scm 580 */
								obj_t BgL_arg1361z00_954;
								obj_t BgL_arg1362z00_955;

								BgL_arg1361z00_954 = CAR(((obj_t) BgL_lz00_946));
								{	/* Ieee/pairlist.scm 581 */
									obj_t BgL_arg1363z00_956;

									BgL_arg1363z00_956 = CDR(((obj_t) BgL_lz00_946));
									BgL_arg1362z00_955 =
										BGl_appendzd2listze70z35zz__r4_pairs_and_lists_6_3z00
										(BgL_arg1363z00_956);
								}
								return
									BGl_appendzd22z12zc0zz__r4_pairs_and_lists_6_3z00
									(BgL_arg1361z00_954, BgL_arg1362z00_955);
							}
						}
				}
			}
		}

	}



/* &append! */
	obj_t BGl_z62appendz12z70zz__r4_pairs_and_lists_6_3z00(obj_t BgL_envz00_2786,
		obj_t BgL_lz00_2787)
	{
		{	/* Ieee/pairlist.scm 570 */
			return BGl_appendz12z12zz__r4_pairs_and_lists_6_3z00(BgL_lz00_2787);
		}

	}



/* append-2! */
	BGL_EXPORTED_DEF obj_t BGl_appendzd22z12zc0zz__r4_pairs_and_lists_6_3z00(obj_t
		BgL_xz00_58, obj_t BgL_yz00_59)
	{
		{	/* Ieee/pairlist.scm 587 */
			if (NULLP(BgL_xz00_58))
				{	/* Ieee/pairlist.scm 588 */
					return BgL_yz00_59;
				}
			else
				{	/* Ieee/pairlist.scm 591 */
					obj_t BgL_arg1365z00_959;

					BgL_arg1365z00_959 = CDR(BgL_xz00_58);
					{
						obj_t BgL_az00_1923;
						obj_t BgL_bz00_1924;

						BgL_az00_1923 = BgL_xz00_58;
						BgL_bz00_1924 = BgL_arg1365z00_959;
					BgL_dozd2loopzd2zd21018zd2_1922:
						if (NULLP(BgL_bz00_1924))
							{	/* Ieee/pairlist.scm 590 */
								{	/* Ieee/pairlist.scm 454 */
									obj_t BgL_tmpz00_3636;

									BgL_tmpz00_3636 = ((obj_t) BgL_az00_1923);
									SET_CDR(BgL_tmpz00_3636, BgL_yz00_59);
								}
								return BgL_xz00_58;
							}
						else
							{	/* Ieee/pairlist.scm 591 */
								obj_t BgL_arg1368z00_1928;

								BgL_arg1368z00_1928 = CDR(((obj_t) BgL_bz00_1924));
								{
									obj_t BgL_bz00_3642;
									obj_t BgL_az00_3641;

									BgL_az00_3641 = BgL_bz00_1924;
									BgL_bz00_3642 = BgL_arg1368z00_1928;
									BgL_bz00_1924 = BgL_bz00_3642;
									BgL_az00_1923 = BgL_az00_3641;
									goto BgL_dozd2loopzd2zd21018zd2_1922;
								}
							}
					}
				}
		}

	}



/* &append-2! */
	obj_t BGl_z62appendzd22z12za2zz__r4_pairs_and_lists_6_3z00(obj_t
		BgL_envz00_2788, obj_t BgL_xz00_2789, obj_t BgL_yz00_2790)
	{
		{	/* Ieee/pairlist.scm 587 */
			{	/* Ieee/pairlist.scm 588 */
				obj_t BgL_auxz00_3650;
				obj_t BgL_auxz00_3643;

				if (BGl_pairzd2orzd2nullzf3zf3zz__r4_pairs_and_lists_6_3z00
					(BgL_yz00_2790))
					{	/* Ieee/pairlist.scm 588 */
						BgL_auxz00_3650 = BgL_yz00_2790;
					}
				else
					{
						obj_t BgL_auxz00_3653;

						BgL_auxz00_3653 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string2067z00zz__r4_pairs_and_lists_6_3z00, BINT(24084L),
							BGl_string2107z00zz__r4_pairs_and_lists_6_3z00,
							BGl_string2105z00zz__r4_pairs_and_lists_6_3z00, BgL_yz00_2790);
						FAILURE(BgL_auxz00_3653, BFALSE, BFALSE);
					}
				if (BGl_pairzd2orzd2nullzf3zf3zz__r4_pairs_and_lists_6_3z00
					(BgL_xz00_2789))
					{	/* Ieee/pairlist.scm 588 */
						BgL_auxz00_3643 = BgL_xz00_2789;
					}
				else
					{
						obj_t BgL_auxz00_3646;

						BgL_auxz00_3646 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string2067z00zz__r4_pairs_and_lists_6_3z00, BINT(24084L),
							BGl_string2107z00zz__r4_pairs_and_lists_6_3z00,
							BGl_string2105z00zz__r4_pairs_and_lists_6_3z00, BgL_xz00_2789);
						FAILURE(BgL_auxz00_3646, BFALSE, BFALSE);
					}
				return
					BGl_appendzd22z12zc0zz__r4_pairs_and_lists_6_3z00(BgL_auxz00_3643,
					BgL_auxz00_3650);
			}
		}

	}



/* length */
	BGL_EXPORTED_DEF long bgl_list_length(obj_t BgL_listz00_60)
	{
		{	/* Ieee/pairlist.scm 599 */
			{
				obj_t BgL_lz00_1943;
				long BgL_resz00_1944;

				BgL_lz00_1943 = BgL_listz00_60;
				BgL_resz00_1944 = 0L;
			BgL_loopz00_1942:
				if (NULLP(BgL_lz00_1943))
					{	/* Ieee/pairlist.scm 603 */
						return BgL_resz00_1944;
					}
				else
					{
						long BgL_resz00_3663;
						obj_t BgL_lz00_3660;

						BgL_lz00_3660 = CDR(((obj_t) BgL_lz00_1943));
						BgL_resz00_3663 = (1L + BgL_resz00_1944);
						BgL_resz00_1944 = BgL_resz00_3663;
						BgL_lz00_1943 = BgL_lz00_3660;
						goto BgL_loopz00_1942;
					}
			}
		}

	}



/* &length */
	obj_t BGl_z62lengthz62zz__r4_pairs_and_lists_6_3z00(obj_t BgL_envz00_2791,
		obj_t BgL_listz00_2792)
	{
		{	/* Ieee/pairlist.scm 599 */
			{	/* Ieee/pairlist.scm 600 */
				long BgL_tmpz00_3665;

				{	/* Ieee/pairlist.scm 600 */
					obj_t BgL_auxz00_3666;

					if (BGl_pairzd2orzd2nullzf3zf3zz__r4_pairs_and_lists_6_3z00
						(BgL_listz00_2792))
						{	/* Ieee/pairlist.scm 600 */
							BgL_auxz00_3666 = BgL_listz00_2792;
						}
					else
						{
							obj_t BgL_auxz00_3669;

							BgL_auxz00_3669 =
								BGl_typezd2errorzd2zz__errorz00
								(BGl_string2067z00zz__r4_pairs_and_lists_6_3z00, BINT(24469L),
								BGl_string2108z00zz__r4_pairs_and_lists_6_3z00,
								BGl_string2105z00zz__r4_pairs_and_lists_6_3z00,
								BgL_listz00_2792);
							FAILURE(BgL_auxz00_3669, BFALSE, BFALSE);
						}
					BgL_tmpz00_3665 = bgl_list_length(BgL_auxz00_3666);
				}
				return BINT(BgL_tmpz00_3665);
			}
		}

	}



/* reverse */
	BGL_EXPORTED_DEF obj_t bgl_reverse(obj_t BgL_lz00_61)
	{
		{	/* Ieee/pairlist.scm 611 */
			{
				obj_t BgL_lz00_1966;
				obj_t BgL_accz00_1967;

				BgL_lz00_1966 = BgL_lz00_61;
				BgL_accz00_1967 = BNIL;
			BgL_loopz00_1965:
				if (NULLP(BgL_lz00_1966))
					{	/* Ieee/pairlist.scm 614 */
						return BgL_accz00_1967;
					}
				else
					{	/* Ieee/pairlist.scm 616 */
						obj_t BgL_arg1376z00_1973;
						obj_t BgL_arg1377z00_1974;

						BgL_arg1376z00_1973 = CDR(((obj_t) BgL_lz00_1966));
						{	/* Ieee/pairlist.scm 616 */
							obj_t BgL_arg1378z00_1975;

							BgL_arg1378z00_1975 = CAR(((obj_t) BgL_lz00_1966));
							BgL_arg1377z00_1974 =
								MAKE_YOUNG_PAIR(BgL_arg1378z00_1975, BgL_accz00_1967);
						}
						{
							obj_t BgL_accz00_3683;
							obj_t BgL_lz00_3682;

							BgL_lz00_3682 = BgL_arg1376z00_1973;
							BgL_accz00_3683 = BgL_arg1377z00_1974;
							BgL_accz00_1967 = BgL_accz00_3683;
							BgL_lz00_1966 = BgL_lz00_3682;
							goto BgL_loopz00_1965;
						}
					}
			}
		}

	}



/* &reverse */
	obj_t BGl_z62reversez62zz__r4_pairs_and_lists_6_3z00(obj_t BgL_envz00_2793,
		obj_t BgL_lz00_2794)
	{
		{	/* Ieee/pairlist.scm 611 */
			{	/* Ieee/pairlist.scm 612 */
				obj_t BgL_auxz00_3684;

				if (BGl_pairzd2orzd2nullzf3zf3zz__r4_pairs_and_lists_6_3z00
					(BgL_lz00_2794))
					{	/* Ieee/pairlist.scm 612 */
						BgL_auxz00_3684 = BgL_lz00_2794;
					}
				else
					{
						obj_t BgL_auxz00_3687;

						BgL_auxz00_3687 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string2067z00zz__r4_pairs_and_lists_6_3z00, BINT(24839L),
							BGl_string2109z00zz__r4_pairs_and_lists_6_3z00,
							BGl_string2105z00zz__r4_pairs_and_lists_6_3z00, BgL_lz00_2794);
						FAILURE(BgL_auxz00_3687, BFALSE, BFALSE);
					}
				return bgl_reverse(BgL_auxz00_3684);
			}
		}

	}



/* ereverse */
	BGL_EXPORTED_DEF obj_t BGl_ereversez00zz__r4_pairs_and_lists_6_3z00(obj_t
		BgL_lz00_62)
	{
		{	/* Ieee/pairlist.scm 621 */
			{
				obj_t BgL_lz00_986;
				obj_t BgL_accz00_987;

				BgL_lz00_986 = BgL_lz00_62;
				BgL_accz00_987 = BNIL;
			BgL_zc3z04anonymousza31379ze3z87_988:
				if (NULLP(BgL_lz00_986))
					{	/* Ieee/pairlist.scm 624 */
						return BgL_accz00_987;
					}
				else
					{	/* Ieee/pairlist.scm 626 */
						obj_t BgL_arg1381z00_990;
						obj_t BgL_arg1382z00_991;

						BgL_arg1381z00_990 = CDR(((obj_t) BgL_lz00_986));
						if (EPAIRP(BgL_lz00_986))
							{	/* Ieee/pairlist.scm 628 */
								obj_t BgL_arg1384z00_993;
								obj_t BgL_arg1385z00_994;

								BgL_arg1384z00_993 = CAR(((obj_t) BgL_lz00_986));
								BgL_arg1385z00_994 = CER(((obj_t) BgL_lz00_986));
								{	/* Ieee/pairlist.scm 628 */
									obj_t BgL_res1873z00_1981;

									BgL_res1873z00_1981 =
										MAKE_YOUNG_EPAIR(BgL_arg1384z00_993, BgL_accz00_987,
										BgL_arg1385z00_994);
									BgL_arg1382z00_991 = BgL_res1873z00_1981;
								}
							}
						else
							{	/* Ieee/pairlist.scm 629 */
								obj_t BgL_arg1386z00_995;

								BgL_arg1386z00_995 = CAR(((obj_t) BgL_lz00_986));
								BgL_arg1382z00_991 =
									MAKE_YOUNG_PAIR(BgL_arg1386z00_995, BgL_accz00_987);
							}
						{
							obj_t BgL_accz00_3707;
							obj_t BgL_lz00_3706;

							BgL_lz00_3706 = BgL_arg1381z00_990;
							BgL_accz00_3707 = BgL_arg1382z00_991;
							BgL_accz00_987 = BgL_accz00_3707;
							BgL_lz00_986 = BgL_lz00_3706;
							goto BgL_zc3z04anonymousza31379ze3z87_988;
						}
					}
			}
		}

	}



/* &ereverse */
	obj_t BGl_z62ereversez62zz__r4_pairs_and_lists_6_3z00(obj_t BgL_envz00_2795,
		obj_t BgL_lz00_2796)
	{
		{	/* Ieee/pairlist.scm 621 */
			{	/* Ieee/pairlist.scm 624 */
				obj_t BgL_auxz00_3708;

				if (BGl_pairzd2orzd2nullzf3zf3zz__r4_pairs_and_lists_6_3z00
					(BgL_lz00_2796))
					{	/* Ieee/pairlist.scm 624 */
						BgL_auxz00_3708 = BgL_lz00_2796;
					}
				else
					{
						obj_t BgL_auxz00_3711;

						BgL_auxz00_3711 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string2067z00zz__r4_pairs_and_lists_6_3z00, BINT(25233L),
							BGl_string2110z00zz__r4_pairs_and_lists_6_3z00,
							BGl_string2105z00zz__r4_pairs_and_lists_6_3z00, BgL_lz00_2796);
						FAILURE(BgL_auxz00_3711, BFALSE, BFALSE);
					}
				return BGl_ereversez00zz__r4_pairs_and_lists_6_3z00(BgL_auxz00_3708);
			}
		}

	}



/* take */
	BGL_EXPORTED_DEF obj_t BGl_takez00zz__r4_pairs_and_lists_6_3z00(obj_t
		BgL_listz00_63, long BgL_kz00_64)
	{
		{	/* Ieee/pairlist.scm 634 */
			{
				obj_t BgL_listz00_2004;
				long BgL_kz00_2005;
				obj_t BgL_resz00_2006;

				BgL_listz00_2004 = BgL_listz00_63;
				BgL_kz00_2005 = BgL_kz00_64;
				BgL_resz00_2006 = BNIL;
			BgL_loopz00_2003:
				if ((BgL_kz00_2005 == 0L))
					{	/* Ieee/pairlist.scm 638 */
						return bgl_reverse_bang(BgL_resz00_2006);
					}
				else
					{	/* Ieee/pairlist.scm 640 */
						obj_t BgL_arg1389z00_2013;
						long BgL_arg1390z00_2014;
						obj_t BgL_arg1391z00_2015;

						BgL_arg1389z00_2013 = CDR(((obj_t) BgL_listz00_2004));
						BgL_arg1390z00_2014 = (BgL_kz00_2005 - 1L);
						{	/* Ieee/pairlist.scm 640 */
							obj_t BgL_arg1392z00_2016;

							BgL_arg1392z00_2016 = CAR(((obj_t) BgL_listz00_2004));
							BgL_arg1391z00_2015 =
								MAKE_YOUNG_PAIR(BgL_arg1392z00_2016, BgL_resz00_2006);
						}
						{
							obj_t BgL_resz00_3727;
							long BgL_kz00_3726;
							obj_t BgL_listz00_3725;

							BgL_listz00_3725 = BgL_arg1389z00_2013;
							BgL_kz00_3726 = BgL_arg1390z00_2014;
							BgL_resz00_3727 = BgL_arg1391z00_2015;
							BgL_resz00_2006 = BgL_resz00_3727;
							BgL_kz00_2005 = BgL_kz00_3726;
							BgL_listz00_2004 = BgL_listz00_3725;
							goto BgL_loopz00_2003;
						}
					}
			}
		}

	}



/* &take */
	obj_t BGl_z62takez62zz__r4_pairs_and_lists_6_3z00(obj_t BgL_envz00_2797,
		obj_t BgL_listz00_2798, obj_t BgL_kz00_2799)
	{
		{	/* Ieee/pairlist.scm 634 */
			{	/* Ieee/pairlist.scm 635 */
				long BgL_auxz00_3735;
				obj_t BgL_auxz00_3728;

				{	/* Ieee/pairlist.scm 635 */
					obj_t BgL_tmpz00_3736;

					if (INTEGERP(BgL_kz00_2799))
						{	/* Ieee/pairlist.scm 635 */
							BgL_tmpz00_3736 = BgL_kz00_2799;
						}
					else
						{
							obj_t BgL_auxz00_3739;

							BgL_auxz00_3739 =
								BGl_typezd2errorzd2zz__errorz00
								(BGl_string2067z00zz__r4_pairs_and_lists_6_3z00, BINT(25600L),
								BGl_string2111z00zz__r4_pairs_and_lists_6_3z00,
								BGl_string2112z00zz__r4_pairs_and_lists_6_3z00, BgL_kz00_2799);
							FAILURE(BgL_auxz00_3739, BFALSE, BFALSE);
						}
					BgL_auxz00_3735 = (long) CINT(BgL_tmpz00_3736);
				}
				if (BGl_pairzd2orzd2nullzf3zf3zz__r4_pairs_and_lists_6_3z00
					(BgL_listz00_2798))
					{	/* Ieee/pairlist.scm 635 */
						BgL_auxz00_3728 = BgL_listz00_2798;
					}
				else
					{
						obj_t BgL_auxz00_3731;

						BgL_auxz00_3731 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string2067z00zz__r4_pairs_and_lists_6_3z00, BINT(25600L),
							BGl_string2111z00zz__r4_pairs_and_lists_6_3z00,
							BGl_string2105z00zz__r4_pairs_and_lists_6_3z00, BgL_listz00_2798);
						FAILURE(BgL_auxz00_3731, BFALSE, BFALSE);
					}
				return
					BGl_takez00zz__r4_pairs_and_lists_6_3z00(BgL_auxz00_3728,
					BgL_auxz00_3735);
			}
		}

	}



/* drop */
	BGL_EXPORTED_DEF obj_t BGl_dropz00zz__r4_pairs_and_lists_6_3z00(obj_t
		BgL_listz00_65, long BgL_kz00_66)
	{
		{	/* Ieee/pairlist.scm 645 */
		BGl_dropz00zz__r4_pairs_and_lists_6_3z00:
			if ((BgL_kz00_66 == 0L))
				{	/* Ieee/pairlist.scm 646 */
					return BgL_listz00_65;
				}
			else
				{	/* Ieee/pairlist.scm 648 */
					obj_t BgL_listz00_2029;
					long BgL_kz00_2030;

					BgL_listz00_2029 = CDR(((obj_t) BgL_listz00_65));
					BgL_kz00_2030 = (BgL_kz00_66 - 1L);
					if ((BgL_kz00_2030 == 0L))
						{	/* Ieee/pairlist.scm 646 */
							return BgL_listz00_2029;
						}
					else
						{
							long BgL_kz00_3755;
							obj_t BgL_listz00_3752;

							BgL_listz00_3752 = CDR(((obj_t) BgL_listz00_2029));
							BgL_kz00_3755 = (BgL_kz00_2030 - 1L);
							BgL_kz00_66 = BgL_kz00_3755;
							BgL_listz00_65 = BgL_listz00_3752;
							goto BGl_dropz00zz__r4_pairs_and_lists_6_3z00;
						}
				}
		}

	}



/* &drop */
	obj_t BGl_z62dropz62zz__r4_pairs_and_lists_6_3z00(obj_t BgL_envz00_2800,
		obj_t BgL_listz00_2801, obj_t BgL_kz00_2802)
	{
		{	/* Ieee/pairlist.scm 645 */
			{	/* Ieee/pairlist.scm 646 */
				long BgL_auxz00_3764;
				obj_t BgL_auxz00_3757;

				{	/* Ieee/pairlist.scm 646 */
					obj_t BgL_tmpz00_3765;

					if (INTEGERP(BgL_kz00_2802))
						{	/* Ieee/pairlist.scm 646 */
							BgL_tmpz00_3765 = BgL_kz00_2802;
						}
					else
						{
							obj_t BgL_auxz00_3768;

							BgL_auxz00_3768 =
								BGl_typezd2errorzd2zz__errorz00
								(BGl_string2067z00zz__r4_pairs_and_lists_6_3z00, BINT(25998L),
								BGl_string2113z00zz__r4_pairs_and_lists_6_3z00,
								BGl_string2112z00zz__r4_pairs_and_lists_6_3z00, BgL_kz00_2802);
							FAILURE(BgL_auxz00_3768, BFALSE, BFALSE);
						}
					BgL_auxz00_3764 = (long) CINT(BgL_tmpz00_3765);
				}
				if (BGl_pairzd2orzd2nullzf3zf3zz__r4_pairs_and_lists_6_3z00
					(BgL_listz00_2801))
					{	/* Ieee/pairlist.scm 646 */
						BgL_auxz00_3757 = BgL_listz00_2801;
					}
				else
					{
						obj_t BgL_auxz00_3760;

						BgL_auxz00_3760 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string2067z00zz__r4_pairs_and_lists_6_3z00, BINT(25998L),
							BGl_string2113z00zz__r4_pairs_and_lists_6_3z00,
							BGl_string2105z00zz__r4_pairs_and_lists_6_3z00, BgL_listz00_2801);
						FAILURE(BgL_auxz00_3760, BFALSE, BFALSE);
					}
				return
					BGl_dropz00zz__r4_pairs_and_lists_6_3z00(BgL_auxz00_3757,
					BgL_auxz00_3764);
			}
		}

	}



/* list-tail */
	BGL_EXPORTED_DEF obj_t BGl_listzd2tailzd2zz__r4_pairs_and_lists_6_3z00(obj_t
		BgL_listz00_67, long BgL_kz00_68)
	{
		{	/* Ieee/pairlist.scm 653 */
			{
				obj_t BgL_listz00_2039;
				long BgL_kz00_2040;

				BgL_listz00_2039 = BgL_listz00_67;
				BgL_kz00_2040 = BgL_kz00_68;
			BgL_dropz00_2038:
				if ((BgL_kz00_2040 == 0L))
					{	/* Ieee/pairlist.scm 646 */
						return BgL_listz00_2039;
					}
				else
					{
						long BgL_kz00_3779;
						obj_t BgL_listz00_3776;

						BgL_listz00_3776 = CDR(((obj_t) BgL_listz00_2039));
						BgL_kz00_3779 = (BgL_kz00_2040 - 1L);
						BgL_kz00_2040 = BgL_kz00_3779;
						BgL_listz00_2039 = BgL_listz00_3776;
						goto BgL_dropz00_2038;
					}
			}
		}

	}



/* &list-tail */
	obj_t BGl_z62listzd2tailzb0zz__r4_pairs_and_lists_6_3z00(obj_t
		BgL_envz00_2803, obj_t BgL_listz00_2804, obj_t BgL_kz00_2805)
	{
		{	/* Ieee/pairlist.scm 653 */
			{	/* Ieee/pairlist.scm 654 */
				long BgL_auxz00_3788;
				obj_t BgL_auxz00_3781;

				{	/* Ieee/pairlist.scm 654 */
					obj_t BgL_tmpz00_3789;

					if (INTEGERP(BgL_kz00_2805))
						{	/* Ieee/pairlist.scm 654 */
							BgL_tmpz00_3789 = BgL_kz00_2805;
						}
					else
						{
							obj_t BgL_auxz00_3792;

							BgL_auxz00_3792 =
								BGl_typezd2errorzd2zz__errorz00
								(BGl_string2067z00zz__r4_pairs_and_lists_6_3z00, BINT(26316L),
								BGl_string2114z00zz__r4_pairs_and_lists_6_3z00,
								BGl_string2112z00zz__r4_pairs_and_lists_6_3z00, BgL_kz00_2805);
							FAILURE(BgL_auxz00_3792, BFALSE, BFALSE);
						}
					BgL_auxz00_3788 = (long) CINT(BgL_tmpz00_3789);
				}
				if (BGl_pairzd2orzd2nullzf3zf3zz__r4_pairs_and_lists_6_3z00
					(BgL_listz00_2804))
					{	/* Ieee/pairlist.scm 654 */
						BgL_auxz00_3781 = BgL_listz00_2804;
					}
				else
					{
						obj_t BgL_auxz00_3784;

						BgL_auxz00_3784 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string2067z00zz__r4_pairs_and_lists_6_3z00, BINT(26316L),
							BGl_string2114z00zz__r4_pairs_and_lists_6_3z00,
							BGl_string2105z00zz__r4_pairs_and_lists_6_3z00, BgL_listz00_2804);
						FAILURE(BgL_auxz00_3784, BFALSE, BFALSE);
					}
				return
					BGl_listzd2tailzd2zz__r4_pairs_and_lists_6_3z00(BgL_auxz00_3781,
					BgL_auxz00_3788);
			}
		}

	}



/* list-ref */
	BGL_EXPORTED_DEF obj_t bgl_list_ref(obj_t BgL_listz00_69, long BgL_kz00_70)
	{
		{	/* Ieee/pairlist.scm 659 */
		bgl_list_ref:
			if ((BgL_kz00_70 == 0L))
				{	/* Ieee/pairlist.scm 660 */
					return CAR(((obj_t) BgL_listz00_69));
				}
			else
				{	/* Ieee/pairlist.scm 662 */
					obj_t BgL_listz00_2059;
					long BgL_kz00_2060;

					BgL_listz00_2059 = CDR(((obj_t) BgL_listz00_69));
					BgL_kz00_2060 = (BgL_kz00_70 - 1L);
					if ((BgL_kz00_2060 == 0L))
						{	/* Ieee/pairlist.scm 660 */
							return CAR(((obj_t) BgL_listz00_2059));
						}
					else
						{
							long BgL_kz00_3812;
							obj_t BgL_listz00_3809;

							BgL_listz00_3809 = CDR(((obj_t) BgL_listz00_2059));
							BgL_kz00_3812 = (BgL_kz00_2060 - 1L);
							BgL_kz00_70 = BgL_kz00_3812;
							BgL_listz00_69 = BgL_listz00_3809;
							goto bgl_list_ref;
						}
				}
		}

	}



/* &list-ref */
	obj_t BGl_z62listzd2refzb0zz__r4_pairs_and_lists_6_3z00(obj_t BgL_envz00_2806,
		obj_t BgL_listz00_2807, obj_t BgL_kz00_2808)
	{
		{	/* Ieee/pairlist.scm 659 */
			{	/* Ieee/pairlist.scm 660 */
				long BgL_auxz00_3821;
				obj_t BgL_auxz00_3814;

				{	/* Ieee/pairlist.scm 660 */
					obj_t BgL_tmpz00_3822;

					if (INTEGERP(BgL_kz00_2808))
						{	/* Ieee/pairlist.scm 660 */
							BgL_tmpz00_3822 = BgL_kz00_2808;
						}
					else
						{
							obj_t BgL_auxz00_3825;

							BgL_auxz00_3825 =
								BGl_typezd2errorzd2zz__errorz00
								(BGl_string2067z00zz__r4_pairs_and_lists_6_3z00, BINT(26583L),
								BGl_string2115z00zz__r4_pairs_and_lists_6_3z00,
								BGl_string2112z00zz__r4_pairs_and_lists_6_3z00, BgL_kz00_2808);
							FAILURE(BgL_auxz00_3825, BFALSE, BFALSE);
						}
					BgL_auxz00_3821 = (long) CINT(BgL_tmpz00_3822);
				}
				if (BGl_pairzd2orzd2nullzf3zf3zz__r4_pairs_and_lists_6_3z00
					(BgL_listz00_2807))
					{	/* Ieee/pairlist.scm 660 */
						BgL_auxz00_3814 = BgL_listz00_2807;
					}
				else
					{
						obj_t BgL_auxz00_3817;

						BgL_auxz00_3817 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string2067z00zz__r4_pairs_and_lists_6_3z00, BINT(26583L),
							BGl_string2115z00zz__r4_pairs_and_lists_6_3z00,
							BGl_string2105z00zz__r4_pairs_and_lists_6_3z00, BgL_listz00_2807);
						FAILURE(BgL_auxz00_3817, BFALSE, BFALSE);
					}
				return bgl_list_ref(BgL_auxz00_3814, BgL_auxz00_3821);
			}
		}

	}



/* list-set! */
	BGL_EXPORTED_DEF obj_t BGl_listzd2setz12zc0zz__r4_pairs_and_lists_6_3z00(obj_t
		BgL_listz00_71, long BgL_kz00_72, obj_t BgL_valz00_73)
	{
		{	/* Ieee/pairlist.scm 667 */
		BGl_listzd2setz12zc0zz__r4_pairs_and_lists_6_3z00:
			if ((BgL_kz00_72 == 0L))
				{	/* Ieee/pairlist.scm 448 */
					obj_t BgL_tmpz00_3833;

					BgL_tmpz00_3833 = ((obj_t) BgL_listz00_71);
					return SET_CAR(BgL_tmpz00_3833, BgL_valz00_73);
				}
			else
				{	/* Ieee/pairlist.scm 670 */
					obj_t BgL_arg1401z00_2070;
					long BgL_arg1402z00_2071;

					BgL_arg1401z00_2070 = CDR(((obj_t) BgL_listz00_71));
					BgL_arg1402z00_2071 = (BgL_kz00_72 - 1L);
					if ((BgL_arg1402z00_2071 == 0L))
						{	/* Ieee/pairlist.scm 448 */
							obj_t BgL_tmpz00_3841;

							BgL_tmpz00_3841 = ((obj_t) ((obj_t) BgL_arg1401z00_2070));
							return SET_CAR(BgL_tmpz00_3841, BgL_valz00_73);
						}
					else
						{	/* Ieee/pairlist.scm 670 */
							obj_t BgL_arg1401z00_2080;
							long BgL_arg1402z00_2081;

							BgL_arg1401z00_2080 =
								CDR(((obj_t) ((obj_t) BgL_arg1401z00_2070)));
							BgL_arg1402z00_2081 = (BgL_arg1402z00_2071 - 1L);
							{
								long BgL_kz00_3850;
								obj_t BgL_listz00_3849;

								BgL_listz00_3849 = BgL_arg1401z00_2080;
								BgL_kz00_3850 = BgL_arg1402z00_2081;
								BgL_kz00_72 = BgL_kz00_3850;
								BgL_listz00_71 = BgL_listz00_3849;
								goto BGl_listzd2setz12zc0zz__r4_pairs_and_lists_6_3z00;
							}
						}
				}
		}

	}



/* &list-set! */
	obj_t BGl_z62listzd2setz12za2zz__r4_pairs_and_lists_6_3z00(obj_t
		BgL_envz00_2809, obj_t BgL_listz00_2810, obj_t BgL_kz00_2811,
		obj_t BgL_valz00_2812)
	{
		{	/* Ieee/pairlist.scm 667 */
			{	/* Ieee/pairlist.scm 668 */
				long BgL_auxz00_3858;
				obj_t BgL_auxz00_3851;

				{	/* Ieee/pairlist.scm 668 */
					obj_t BgL_tmpz00_3859;

					if (INTEGERP(BgL_kz00_2811))
						{	/* Ieee/pairlist.scm 668 */
							BgL_tmpz00_3859 = BgL_kz00_2811;
						}
					else
						{
							obj_t BgL_auxz00_3862;

							BgL_auxz00_3862 =
								BGl_typezd2errorzd2zz__errorz00
								(BGl_string2067z00zz__r4_pairs_and_lists_6_3z00, BINT(26915L),
								BGl_string2116z00zz__r4_pairs_and_lists_6_3z00,
								BGl_string2112z00zz__r4_pairs_and_lists_6_3z00, BgL_kz00_2811);
							FAILURE(BgL_auxz00_3862, BFALSE, BFALSE);
						}
					BgL_auxz00_3858 = (long) CINT(BgL_tmpz00_3859);
				}
				if (BGl_pairzd2orzd2nullzf3zf3zz__r4_pairs_and_lists_6_3z00
					(BgL_listz00_2810))
					{	/* Ieee/pairlist.scm 668 */
						BgL_auxz00_3851 = BgL_listz00_2810;
					}
				else
					{
						obj_t BgL_auxz00_3854;

						BgL_auxz00_3854 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string2067z00zz__r4_pairs_and_lists_6_3z00, BINT(26915L),
							BGl_string2116z00zz__r4_pairs_and_lists_6_3z00,
							BGl_string2105z00zz__r4_pairs_and_lists_6_3z00, BgL_listz00_2810);
						FAILURE(BgL_auxz00_3854, BFALSE, BFALSE);
					}
				return
					BGl_listzd2setz12zc0zz__r4_pairs_and_lists_6_3z00(BgL_auxz00_3851,
					BgL_auxz00_3858, BgL_valz00_2812);
			}
		}

	}



/* last-pair */
	BGL_EXPORTED_DEF obj_t BGl_lastzd2pairzd2zz__r4_pairs_and_lists_6_3z00(obj_t
		BgL_xz00_74)
	{
		{	/* Ieee/pairlist.scm 675 */
		BGl_lastzd2pairzd2zz__r4_pairs_and_lists_6_3z00:
			{	/* Ieee/pairlist.scm 676 */
				bool_t BgL_test2393z00_3868;

				{	/* Ieee/pairlist.scm 229 */
					obj_t BgL_tmpz00_3869;

					BgL_tmpz00_3869 = CDR(BgL_xz00_74);
					BgL_test2393z00_3868 = PAIRP(BgL_tmpz00_3869);
				}
				if (BgL_test2393z00_3868)
					{	/* Ieee/pairlist.scm 677 */
						obj_t BgL_xz00_2092;

						BgL_xz00_2092 = CDR(BgL_xz00_74);
						{	/* Ieee/pairlist.scm 676 */
							bool_t BgL_test2394z00_3873;

							{	/* Ieee/pairlist.scm 229 */
								obj_t BgL_tmpz00_3874;

								BgL_tmpz00_3874 = CDR(BgL_xz00_2092);
								BgL_test2394z00_3873 = PAIRP(BgL_tmpz00_3874);
							}
							if (BgL_test2394z00_3873)
								{
									obj_t BgL_xz00_3877;

									BgL_xz00_3877 = CDR(BgL_xz00_2092);
									BgL_xz00_74 = BgL_xz00_3877;
									goto BGl_lastzd2pairzd2zz__r4_pairs_and_lists_6_3z00;
								}
							else
								{	/* Ieee/pairlist.scm 676 */
									return BgL_xz00_2092;
								}
						}
					}
				else
					{	/* Ieee/pairlist.scm 676 */
						return BgL_xz00_74;
					}
			}
		}

	}



/* &last-pair */
	obj_t BGl_z62lastzd2pairzb0zz__r4_pairs_and_lists_6_3z00(obj_t
		BgL_envz00_2813, obj_t BgL_xz00_2814)
	{
		{	/* Ieee/pairlist.scm 675 */
			{	/* Ieee/pairlist.scm 676 */
				obj_t BgL_auxz00_3879;

				if (PAIRP(BgL_xz00_2814))
					{	/* Ieee/pairlist.scm 676 */
						BgL_auxz00_3879 = BgL_xz00_2814;
					}
				else
					{
						obj_t BgL_auxz00_3882;

						BgL_auxz00_3882 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string2067z00zz__r4_pairs_and_lists_6_3z00, BINT(27252L),
							BGl_string2117z00zz__r4_pairs_and_lists_6_3z00,
							BGl_string2069z00zz__r4_pairs_and_lists_6_3z00, BgL_xz00_2814);
						FAILURE(BgL_auxz00_3882, BFALSE, BFALSE);
					}
				return BGl_lastzd2pairzd2zz__r4_pairs_and_lists_6_3z00(BgL_auxz00_3879);
			}
		}

	}



/* memq */
	BGL_EXPORTED_DEF obj_t BGl_memqz00zz__r4_pairs_and_lists_6_3z00(obj_t
		BgL_objz00_75, obj_t BgL_listz00_76)
	{
		{	/* Ieee/pairlist.scm 683 */
			{
				obj_t BgL_listz00_2099;

				BgL_listz00_2099 = BgL_listz00_76;
			BgL_loopz00_2098:
				if (PAIRP(BgL_listz00_2099))
					{	/* Ieee/pairlist.scm 685 */
						if ((CAR(BgL_listz00_2099) == BgL_objz00_75))
							{	/* Ieee/pairlist.scm 686 */
								return BgL_listz00_2099;
							}
						else
							{
								obj_t BgL_listz00_3892;

								BgL_listz00_3892 = CDR(BgL_listz00_2099);
								BgL_listz00_2099 = BgL_listz00_3892;
								goto BgL_loopz00_2098;
							}
					}
				else
					{	/* Ieee/pairlist.scm 685 */
						return BFALSE;
					}
			}
		}

	}



/* &memq */
	obj_t BGl_z62memqz62zz__r4_pairs_and_lists_6_3z00(obj_t BgL_envz00_2815,
		obj_t BgL_objz00_2816, obj_t BgL_listz00_2817)
	{
		{	/* Ieee/pairlist.scm 683 */
			{	/* Ieee/pairlist.scm 685 */
				obj_t BgL_auxz00_3894;

				if (BGl_pairzd2orzd2nullzf3zf3zz__r4_pairs_and_lists_6_3z00
					(BgL_listz00_2817))
					{	/* Ieee/pairlist.scm 685 */
						BgL_auxz00_3894 = BgL_listz00_2817;
					}
				else
					{
						obj_t BgL_auxz00_3897;

						BgL_auxz00_3897 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string2067z00zz__r4_pairs_and_lists_6_3z00, BINT(27590L),
							BGl_string2118z00zz__r4_pairs_and_lists_6_3z00,
							BGl_string2105z00zz__r4_pairs_and_lists_6_3z00, BgL_listz00_2817);
						FAILURE(BgL_auxz00_3897, BFALSE, BFALSE);
					}
				return
					BGl_memqz00zz__r4_pairs_and_lists_6_3z00(BgL_objz00_2816,
					BgL_auxz00_3894);
			}
		}

	}



/* memv */
	BGL_EXPORTED_DEF obj_t BGl_memvz00zz__r4_pairs_and_lists_6_3z00(obj_t
		BgL_objz00_77, obj_t BgL_listz00_78)
	{
		{	/* Ieee/pairlist.scm 694 */
			{
				obj_t BgL_listz00_2107;

				BgL_listz00_2107 = BgL_listz00_78;
			BgL_loopz00_2106:
				if (PAIRP(BgL_listz00_2107))
					{	/* Ieee/pairlist.scm 696 */
						if (BGl_eqvzf3zf3zz__r4_equivalence_6_2z00(CAR(BgL_listz00_2107),
								BgL_objz00_77))
							{	/* Ieee/pairlist.scm 697 */
								return BgL_listz00_2107;
							}
						else
							{
								obj_t BgL_listz00_3907;

								BgL_listz00_3907 = CDR(BgL_listz00_2107);
								BgL_listz00_2107 = BgL_listz00_3907;
								goto BgL_loopz00_2106;
							}
					}
				else
					{	/* Ieee/pairlist.scm 696 */
						return BFALSE;
					}
			}
		}

	}



/* &memv */
	obj_t BGl_z62memvz62zz__r4_pairs_and_lists_6_3z00(obj_t BgL_envz00_2818,
		obj_t BgL_objz00_2819, obj_t BgL_listz00_2820)
	{
		{	/* Ieee/pairlist.scm 694 */
			{	/* Ieee/pairlist.scm 696 */
				obj_t BgL_auxz00_3909;

				if (BGl_pairzd2orzd2nullzf3zf3zz__r4_pairs_and_lists_6_3z00
					(BgL_listz00_2820))
					{	/* Ieee/pairlist.scm 696 */
						BgL_auxz00_3909 = BgL_listz00_2820;
					}
				else
					{
						obj_t BgL_auxz00_3912;

						BgL_auxz00_3912 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string2067z00zz__r4_pairs_and_lists_6_3z00, BINT(27962L),
							BGl_string2119z00zz__r4_pairs_and_lists_6_3z00,
							BGl_string2105z00zz__r4_pairs_and_lists_6_3z00, BgL_listz00_2820);
						FAILURE(BgL_auxz00_3912, BFALSE, BFALSE);
					}
				return
					BGl_memvz00zz__r4_pairs_and_lists_6_3z00(BgL_objz00_2819,
					BgL_auxz00_3909);
			}
		}

	}



/* member */
	BGL_EXPORTED_DEF obj_t BGl_memberz00zz__r4_pairs_and_lists_6_3z00(obj_t
		BgL_objz00_79, obj_t BgL_listz00_80)
	{
		{	/* Ieee/pairlist.scm 705 */
			{
				obj_t BgL_listz00_2115;

				BgL_listz00_2115 = BgL_listz00_80;
			BgL_loopz00_2114:
				if (PAIRP(BgL_listz00_2115))
					{	/* Ieee/pairlist.scm 708 */
						if (BGl_equalzf3zf3zz__r4_equivalence_6_2z00(BgL_objz00_79,
								CAR(BgL_listz00_2115)))
							{	/* Ieee/pairlist.scm 709 */
								return BgL_listz00_2115;
							}
						else
							{
								obj_t BgL_listz00_3922;

								BgL_listz00_3922 = CDR(BgL_listz00_2115);
								BgL_listz00_2115 = BgL_listz00_3922;
								goto BgL_loopz00_2114;
							}
					}
				else
					{	/* Ieee/pairlist.scm 708 */
						return BFALSE;
					}
			}
		}

	}



/* &member */
	obj_t BGl_z62memberz62zz__r4_pairs_and_lists_6_3z00(obj_t BgL_envz00_2821,
		obj_t BgL_objz00_2822, obj_t BgL_listz00_2823)
	{
		{	/* Ieee/pairlist.scm 705 */
			{	/* Ieee/pairlist.scm 708 */
				obj_t BgL_auxz00_3924;

				if (BGl_pairzd2orzd2nullzf3zf3zz__r4_pairs_and_lists_6_3z00
					(BgL_listz00_2823))
					{	/* Ieee/pairlist.scm 708 */
						BgL_auxz00_3924 = BgL_listz00_2823;
					}
				else
					{
						obj_t BgL_auxz00_3927;

						BgL_auxz00_3927 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string2067z00zz__r4_pairs_and_lists_6_3z00, BINT(28345L),
							BGl_string2120z00zz__r4_pairs_and_lists_6_3z00,
							BGl_string2105z00zz__r4_pairs_and_lists_6_3z00, BgL_listz00_2823);
						FAILURE(BgL_auxz00_3927, BFALSE, BFALSE);
					}
				return
					BGl_memberz00zz__r4_pairs_and_lists_6_3z00(BgL_objz00_2822,
					BgL_auxz00_3924);
			}
		}

	}



/* assq */
	BGL_EXPORTED_DEF obj_t BGl_assqz00zz__r4_pairs_and_lists_6_3z00(obj_t
		BgL_objz00_81, obj_t BgL_alistz00_82)
	{
		{	/* Ieee/pairlist.scm 715 */
			{
				obj_t BgL_alistz00_1050;

				BgL_alistz00_1050 = BgL_alistz00_82;
			BgL_zc3z04anonymousza31427ze3z87_1051:
				if (PAIRP(BgL_alistz00_1050))
					{	/* Ieee/pairlist.scm 717 */
						if ((CAR(CAR(BgL_alistz00_1050)) == BgL_objz00_81))
							{	/* Ieee/pairlist.scm 718 */
								return CAR(BgL_alistz00_1050);
							}
						else
							{
								obj_t BgL_alistz00_3939;

								BgL_alistz00_3939 = CDR(BgL_alistz00_1050);
								BgL_alistz00_1050 = BgL_alistz00_3939;
								goto BgL_zc3z04anonymousza31427ze3z87_1051;
							}
					}
				else
					{	/* Ieee/pairlist.scm 717 */
						return BFALSE;
					}
			}
		}

	}



/* &assq */
	obj_t BGl_z62assqz62zz__r4_pairs_and_lists_6_3z00(obj_t BgL_envz00_2824,
		obj_t BgL_objz00_2825, obj_t BgL_alistz00_2826)
	{
		{	/* Ieee/pairlist.scm 715 */
			{	/* Ieee/pairlist.scm 717 */
				obj_t BgL_auxz00_3941;

				if (BGl_pairzd2orzd2nullzf3zf3zz__r4_pairs_and_lists_6_3z00
					(BgL_alistz00_2826))
					{	/* Ieee/pairlist.scm 717 */
						BgL_auxz00_3941 = BgL_alistz00_2826;
					}
				else
					{
						obj_t BgL_auxz00_3944;

						BgL_auxz00_3944 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string2067z00zz__r4_pairs_and_lists_6_3z00, BINT(28716L),
							BGl_string2121z00zz__r4_pairs_and_lists_6_3z00,
							BGl_string2105z00zz__r4_pairs_and_lists_6_3z00,
							BgL_alistz00_2826);
						FAILURE(BgL_auxz00_3944, BFALSE, BFALSE);
					}
				return
					BGl_assqz00zz__r4_pairs_and_lists_6_3z00(BgL_objz00_2825,
					BgL_auxz00_3941);
			}
		}

	}



/* assv */
	BGL_EXPORTED_DEF obj_t BGl_assvz00zz__r4_pairs_and_lists_6_3z00(obj_t
		BgL_objz00_83, obj_t BgL_alistz00_84)
	{
		{	/* Ieee/pairlist.scm 726 */
			{
				obj_t BgL_alistz00_1061;

				BgL_alistz00_1061 = BgL_alistz00_84;
			BgL_zc3z04anonymousza31435ze3z87_1062:
				if (PAIRP(BgL_alistz00_1061))
					{	/* Ieee/pairlist.scm 728 */
						if (BGl_eqvzf3zf3zz__r4_equivalence_6_2z00(CAR(CAR
									(BgL_alistz00_1061)), BgL_objz00_83))
							{	/* Ieee/pairlist.scm 729 */
								return CAR(BgL_alistz00_1061);
							}
						else
							{
								obj_t BgL_alistz00_3956;

								BgL_alistz00_3956 = CDR(BgL_alistz00_1061);
								BgL_alistz00_1061 = BgL_alistz00_3956;
								goto BgL_zc3z04anonymousza31435ze3z87_1062;
							}
					}
				else
					{	/* Ieee/pairlist.scm 728 */
						return BFALSE;
					}
			}
		}

	}



/* &assv */
	obj_t BGl_z62assvz62zz__r4_pairs_and_lists_6_3z00(obj_t BgL_envz00_2827,
		obj_t BgL_objz00_2828, obj_t BgL_alistz00_2829)
	{
		{	/* Ieee/pairlist.scm 726 */
			{	/* Ieee/pairlist.scm 728 */
				obj_t BgL_auxz00_3958;

				if (BGl_pairzd2orzd2nullzf3zf3zz__r4_pairs_and_lists_6_3z00
					(BgL_alistz00_2829))
					{	/* Ieee/pairlist.scm 728 */
						BgL_auxz00_3958 = BgL_alistz00_2829;
					}
				else
					{
						obj_t BgL_auxz00_3961;

						BgL_auxz00_3961 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string2067z00zz__r4_pairs_and_lists_6_3z00, BINT(29135L),
							BGl_string2122z00zz__r4_pairs_and_lists_6_3z00,
							BGl_string2105z00zz__r4_pairs_and_lists_6_3z00,
							BgL_alistz00_2829);
						FAILURE(BgL_auxz00_3961, BFALSE, BFALSE);
					}
				return
					BGl_assvz00zz__r4_pairs_and_lists_6_3z00(BgL_objz00_2828,
					BgL_auxz00_3958);
			}
		}

	}



/* assoc */
	BGL_EXPORTED_DEF obj_t BGl_assocz00zz__r4_pairs_and_lists_6_3z00(obj_t
		BgL_objz00_85, obj_t BgL_alistz00_86)
	{
		{	/* Ieee/pairlist.scm 737 */
			{
				obj_t BgL_alistz00_1072;

				BgL_alistz00_1072 = BgL_alistz00_86;
			BgL_zc3z04anonymousza31445ze3z87_1073:
				if (PAIRP(BgL_alistz00_1072))
					{	/* Ieee/pairlist.scm 739 */
						if (BGl_equalzf3zf3zz__r4_equivalence_6_2z00(CAR(CAR
									(BgL_alistz00_1072)), BgL_objz00_85))
							{	/* Ieee/pairlist.scm 740 */
								return CAR(BgL_alistz00_1072);
							}
						else
							{
								obj_t BgL_alistz00_3973;

								BgL_alistz00_3973 = CDR(BgL_alistz00_1072);
								BgL_alistz00_1072 = BgL_alistz00_3973;
								goto BgL_zc3z04anonymousza31445ze3z87_1073;
							}
					}
				else
					{	/* Ieee/pairlist.scm 739 */
						return BFALSE;
					}
			}
		}

	}



/* &assoc */
	obj_t BGl_z62assocz62zz__r4_pairs_and_lists_6_3z00(obj_t BgL_envz00_2830,
		obj_t BgL_objz00_2831, obj_t BgL_alistz00_2832)
	{
		{	/* Ieee/pairlist.scm 737 */
			{	/* Ieee/pairlist.scm 739 */
				obj_t BgL_auxz00_3975;

				if (BGl_pairzd2orzd2nullzf3zf3zz__r4_pairs_and_lists_6_3z00
					(BgL_alistz00_2832))
					{	/* Ieee/pairlist.scm 739 */
						BgL_auxz00_3975 = BgL_alistz00_2832;
					}
				else
					{
						obj_t BgL_auxz00_3978;

						BgL_auxz00_3978 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string2067z00zz__r4_pairs_and_lists_6_3z00, BINT(29549L),
							BGl_string2123z00zz__r4_pairs_and_lists_6_3z00,
							BGl_string2105z00zz__r4_pairs_and_lists_6_3z00,
							BgL_alistz00_2832);
						FAILURE(BgL_auxz00_3978, BFALSE, BFALSE);
					}
				return
					BGl_assocz00zz__r4_pairs_and_lists_6_3z00(BgL_objz00_2831,
					BgL_auxz00_3975);
			}
		}

	}



/* remq */
	BGL_EXPORTED_DEF obj_t bgl_remq(obj_t BgL_xz00_87, obj_t BgL_yz00_88)
	{
		{	/* Ieee/pairlist.scm 751 */
		bgl_remq:
			if (NULLP(BgL_yz00_88))
				{	/* Ieee/pairlist.scm 753 */
					return BgL_yz00_88;
				}
			else
				{	/* Ieee/pairlist.scm 753 */
					if ((BgL_xz00_87 == CAR(BgL_yz00_88)))
						{
							obj_t BgL_yz00_3988;

							BgL_yz00_3988 = CDR(BgL_yz00_88);
							BgL_yz00_88 = BgL_yz00_3988;
							goto bgl_remq;
						}
					else
						{	/* Ieee/pairlist.scm 754 */
							return
								MAKE_YOUNG_PAIR(CAR(BgL_yz00_88),
								bgl_remq(BgL_xz00_87, CDR(BgL_yz00_88)));
						}
				}
		}

	}



/* &remq */
	obj_t BGl_z62remqz62zz__r4_pairs_and_lists_6_3z00(obj_t BgL_envz00_2833,
		obj_t BgL_xz00_2834, obj_t BgL_yz00_2835)
	{
		{	/* Ieee/pairlist.scm 751 */
			{	/* Ieee/pairlist.scm 753 */
				obj_t BgL_auxz00_3994;

				if (BGl_pairzd2orzd2nullzf3zf3zz__r4_pairs_and_lists_6_3z00
					(BgL_yz00_2835))
					{	/* Ieee/pairlist.scm 753 */
						BgL_auxz00_3994 = BgL_yz00_2835;
					}
				else
					{
						obj_t BgL_auxz00_3997;

						BgL_auxz00_3997 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string2067z00zz__r4_pairs_and_lists_6_3z00, BINT(30160L),
							BGl_string2124z00zz__r4_pairs_and_lists_6_3z00,
							BGl_string2105z00zz__r4_pairs_and_lists_6_3z00, BgL_yz00_2835);
						FAILURE(BgL_auxz00_3997, BFALSE, BFALSE);
					}
				return bgl_remq(BgL_xz00_2834, BgL_auxz00_3994);
			}
		}

	}



/* remq! */
	BGL_EXPORTED_DEF obj_t bgl_remq_bang(obj_t BgL_xz00_89, obj_t BgL_yz00_90)
	{
		{	/* Ieee/pairlist.scm 760 */
		bgl_remq_bang:
			if (NULLP(BgL_yz00_90))
				{	/* Ieee/pairlist.scm 762 */
					return BgL_yz00_90;
				}
			else
				{	/* Ieee/pairlist.scm 762 */
					if ((BgL_xz00_89 == CAR(BgL_yz00_90)))
						{
							obj_t BgL_yz00_4007;

							BgL_yz00_4007 = CDR(BgL_yz00_90);
							BgL_yz00_90 = BgL_yz00_4007;
							goto bgl_remq_bang;
						}
					else
						{
							obj_t BgL_prevz00_1095;

							BgL_prevz00_1095 = BgL_yz00_90;
						BgL_zc3z04anonymousza31467ze3z87_1096:
							if (NULLP(CDR(((obj_t) BgL_prevz00_1095))))
								{	/* Ieee/pairlist.scm 765 */
									return BgL_yz00_90;
								}
							else
								{	/* Ieee/pairlist.scm 767 */
									bool_t BgL_test2420z00_4013;

									{	/* Ieee/pairlist.scm 767 */
										obj_t BgL_tmpz00_4014;

										{	/* Ieee/pairlist.scm 285 */
											obj_t BgL_pairz00_2144;

											BgL_pairz00_2144 = CDR(((obj_t) BgL_prevz00_1095));
											BgL_tmpz00_4014 = CAR(BgL_pairz00_2144);
										}
										BgL_test2420z00_4013 = (BgL_tmpz00_4014 == BgL_xz00_89);
									}
									if (BgL_test2420z00_4013)
										{	/* Ieee/pairlist.scm 767 */
											{	/* Ieee/pairlist.scm 768 */
												obj_t BgL_arg1472z00_1101;

												{	/* Ieee/pairlist.scm 297 */
													obj_t BgL_pairz00_2148;

													BgL_pairz00_2148 = CDR(((obj_t) BgL_prevz00_1095));
													BgL_arg1472z00_1101 = CDR(BgL_pairz00_2148);
												}
												{	/* Ieee/pairlist.scm 454 */
													obj_t BgL_tmpz00_4022;

													BgL_tmpz00_4022 = ((obj_t) BgL_prevz00_1095);
													SET_CDR(BgL_tmpz00_4022, BgL_arg1472z00_1101);
												}
											}
											{

												goto BgL_zc3z04anonymousza31467ze3z87_1096;
											}
										}
									else
										{	/* Ieee/pairlist.scm 770 */
											obj_t BgL_arg1473z00_1102;

											BgL_arg1473z00_1102 = CDR(((obj_t) BgL_prevz00_1095));
											{
												obj_t BgL_prevz00_4027;

												BgL_prevz00_4027 = BgL_arg1473z00_1102;
												BgL_prevz00_1095 = BgL_prevz00_4027;
												goto BgL_zc3z04anonymousza31467ze3z87_1096;
											}
										}
								}
						}
				}
		}

	}



/* &remq! */
	obj_t BGl_z62remqz12z70zz__r4_pairs_and_lists_6_3z00(obj_t BgL_envz00_2836,
		obj_t BgL_xz00_2837, obj_t BgL_yz00_2838)
	{
		{	/* Ieee/pairlist.scm 760 */
			{	/* Ieee/pairlist.scm 762 */
				obj_t BgL_auxz00_4028;

				if (BGl_pairzd2orzd2nullzf3zf3zz__r4_pairs_and_lists_6_3z00
					(BgL_yz00_2838))
					{	/* Ieee/pairlist.scm 762 */
						BgL_auxz00_4028 = BgL_yz00_2838;
					}
				else
					{
						obj_t BgL_auxz00_4031;

						BgL_auxz00_4031 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string2067z00zz__r4_pairs_and_lists_6_3z00, BINT(30520L),
							BGl_string2125z00zz__r4_pairs_and_lists_6_3z00,
							BGl_string2105z00zz__r4_pairs_and_lists_6_3z00, BgL_yz00_2838);
						FAILURE(BgL_auxz00_4031, BFALSE, BFALSE);
					}
				return bgl_remq_bang(BgL_xz00_2837, BgL_auxz00_4028);
			}
		}

	}



/* _delete */
	obj_t BGl__deletez00zz__r4_pairs_and_lists_6_3z00(obj_t BgL_env1106z00_95,
		obj_t BgL_opt1105z00_94)
	{
		{	/* Ieee/pairlist.scm 775 */
			{	/* Ieee/pairlist.scm 775 */
				obj_t BgL_g1107z00_1107;
				obj_t BgL_g1108z00_1108;

				{
					obj_t BgL_auxz00_4036;

					if (VECTORP(BgL_opt1105z00_94))
						{	/* Ieee/pairlist.scm 775 */
							BgL_auxz00_4036 = BgL_opt1105z00_94;
						}
					else
						{
							obj_t BgL_auxz00_4039;

							BgL_auxz00_4039 =
								BGl_typezd2errorzd2zz__errorz00
								(BGl_string2067z00zz__r4_pairs_and_lists_6_3z00, BINT(31076L),
								BGl_string2126z00zz__r4_pairs_and_lists_6_3z00,
								BGl_string2127z00zz__r4_pairs_and_lists_6_3z00,
								BgL_opt1105z00_94);
							FAILURE(BgL_auxz00_4039, BFALSE, BFALSE);
						}
					BgL_g1107z00_1107 = VECTOR_REF(BgL_auxz00_4036, 0L);
				}
				{
					obj_t BgL_auxz00_4044;

					if (VECTORP(BgL_opt1105z00_94))
						{	/* Ieee/pairlist.scm 775 */
							BgL_auxz00_4044 = BgL_opt1105z00_94;
						}
					else
						{
							obj_t BgL_auxz00_4047;

							BgL_auxz00_4047 =
								BGl_typezd2errorzd2zz__errorz00
								(BGl_string2067z00zz__r4_pairs_and_lists_6_3z00, BINT(31076L),
								BGl_string2126z00zz__r4_pairs_and_lists_6_3z00,
								BGl_string2127z00zz__r4_pairs_and_lists_6_3z00,
								BgL_opt1105z00_94);
							FAILURE(BgL_auxz00_4047, BFALSE, BFALSE);
						}
					BgL_g1108z00_1108 = VECTOR_REF(BgL_auxz00_4044, 1L);
				}
				{	/* Ieee/pairlist.scm 775 */
					long BgL_aux1110z00_1110;

					{
						obj_t BgL_auxz00_4052;

						if (VECTORP(BgL_opt1105z00_94))
							{	/* Ieee/pairlist.scm 775 */
								BgL_auxz00_4052 = BgL_opt1105z00_94;
							}
						else
							{
								obj_t BgL_auxz00_4055;

								BgL_auxz00_4055 =
									BGl_typezd2errorzd2zz__errorz00
									(BGl_string2067z00zz__r4_pairs_and_lists_6_3z00, BINT(31076L),
									BGl_string2126z00zz__r4_pairs_and_lists_6_3z00,
									BGl_string2127z00zz__r4_pairs_and_lists_6_3z00,
									BgL_opt1105z00_94);
								FAILURE(BgL_auxz00_4055, BFALSE, BFALSE);
							}
						BgL_aux1110z00_1110 = VECTOR_LENGTH(BgL_auxz00_4052);
					}
					switch (BgL_aux1110z00_1110)
						{
						case 2L:

							{	/* Ieee/pairlist.scm 775 */

								{	/* Ieee/pairlist.scm 775 */
									obj_t BgL_auxz00_4060;

									if (BGl_pairzd2orzd2nullzf3zf3zz__r4_pairs_and_lists_6_3z00
										(BgL_g1108z00_1108))
										{	/* Ieee/pairlist.scm 775 */
											BgL_auxz00_4060 = BgL_g1108z00_1108;
										}
									else
										{
											obj_t BgL_auxz00_4063;

											BgL_auxz00_4063 =
												BGl_typezd2errorzd2zz__errorz00
												(BGl_string2067z00zz__r4_pairs_and_lists_6_3z00,
												BINT(31076L),
												BGl_string2126z00zz__r4_pairs_and_lists_6_3z00,
												BGl_string2105z00zz__r4_pairs_and_lists_6_3z00,
												BgL_g1108z00_1108);
											FAILURE(BgL_auxz00_4063, BFALSE, BFALSE);
										}
									return
										BGl_deletez00zz__r4_pairs_and_lists_6_3z00
										(BgL_g1107z00_1107, BgL_auxz00_4060,
										BGl_equalzf3zd2envz21zz__r4_equivalence_6_2z00);
								}
							}
							break;
						case 3L:

							{	/* Ieee/pairlist.scm 775 */
								obj_t BgL_eqz00_1112;

								{
									obj_t BgL_auxz00_4068;

									if (VECTORP(BgL_opt1105z00_94))
										{	/* Ieee/pairlist.scm 775 */
											BgL_auxz00_4068 = BgL_opt1105z00_94;
										}
									else
										{
											obj_t BgL_auxz00_4071;

											BgL_auxz00_4071 =
												BGl_typezd2errorzd2zz__errorz00
												(BGl_string2067z00zz__r4_pairs_and_lists_6_3z00,
												BINT(31076L),
												BGl_string2126z00zz__r4_pairs_and_lists_6_3z00,
												BGl_string2127z00zz__r4_pairs_and_lists_6_3z00,
												BgL_opt1105z00_94);
											FAILURE(BgL_auxz00_4071, BFALSE, BFALSE);
										}
									BgL_eqz00_1112 = VECTOR_REF(BgL_auxz00_4068, 2L);
								}
								{	/* Ieee/pairlist.scm 775 */

									{	/* Ieee/pairlist.scm 775 */
										obj_t BgL_auxz00_4076;

										if (BGl_pairzd2orzd2nullzf3zf3zz__r4_pairs_and_lists_6_3z00
											(BgL_g1108z00_1108))
											{	/* Ieee/pairlist.scm 775 */
												BgL_auxz00_4076 = BgL_g1108z00_1108;
											}
										else
											{
												obj_t BgL_auxz00_4079;

												BgL_auxz00_4079 =
													BGl_typezd2errorzd2zz__errorz00
													(BGl_string2067z00zz__r4_pairs_and_lists_6_3z00,
													BINT(31076L),
													BGl_string2126z00zz__r4_pairs_and_lists_6_3z00,
													BGl_string2105z00zz__r4_pairs_and_lists_6_3z00,
													BgL_g1108z00_1108);
												FAILURE(BgL_auxz00_4079, BFALSE, BFALSE);
											}
										return
											BGl_deletez00zz__r4_pairs_and_lists_6_3z00
											(BgL_g1107z00_1107, BgL_auxz00_4076, BgL_eqz00_1112);
									}
								}
							}
							break;
						default:
							return BUNSPEC;
						}
				}
			}
		}

	}



/* delete */
	BGL_EXPORTED_DEF obj_t BGl_deletez00zz__r4_pairs_and_lists_6_3z00(obj_t
		BgL_xz00_91, obj_t BgL_yz00_92, obj_t BgL_eqz00_93)
	{
		{	/* Ieee/pairlist.scm 775 */
			return
				BGl_loopze70ze7zz__r4_pairs_and_lists_6_3z00(BgL_eqz00_93, BgL_xz00_91,
				BgL_yz00_92);
		}

	}



/* loop~0 */
	obj_t BGl_loopze70ze7zz__r4_pairs_and_lists_6_3z00(obj_t BgL_eqz00_2885,
		obj_t BgL_xz00_1114, obj_t BgL_yz00_1115)
	{
		{	/* Ieee/pairlist.scm 776 */
		BGl_loopze70ze7zz__r4_pairs_and_lists_6_3z00:
			if (NULLP(BgL_yz00_1115))
				{	/* Ieee/pairlist.scm 779 */
					return BgL_yz00_1115;
				}
			else
				{	/* Ieee/pairlist.scm 780 */
					bool_t BgL_test2429z00_4088;

					{	/* Ieee/pairlist.scm 780 */
						obj_t BgL_arg1486z00_1124;

						BgL_arg1486z00_1124 = CAR(((obj_t) BgL_yz00_1115));
						BgL_test2429z00_4088 =
							CBOOL(BGL_PROCEDURE_CALL2(BgL_eqz00_2885, BgL_xz00_1114,
								BgL_arg1486z00_1124));
					}
					if (BgL_test2429z00_4088)
						{	/* Ieee/pairlist.scm 780 */
							obj_t BgL_arg1481z00_1120;

							BgL_arg1481z00_1120 = CDR(((obj_t) BgL_yz00_1115));
							{
								obj_t BgL_yz00_4099;

								BgL_yz00_4099 = BgL_arg1481z00_1120;
								BgL_yz00_1115 = BgL_yz00_4099;
								goto BGl_loopze70ze7zz__r4_pairs_and_lists_6_3z00;
							}
						}
					else
						{	/* Ieee/pairlist.scm 781 */
							obj_t BgL_arg1482z00_1121;
							obj_t BgL_arg1483z00_1122;

							BgL_arg1482z00_1121 = CAR(((obj_t) BgL_yz00_1115));
							{	/* Ieee/pairlist.scm 781 */
								obj_t BgL_arg1484z00_1123;

								BgL_arg1484z00_1123 = CDR(((obj_t) BgL_yz00_1115));
								BgL_arg1483z00_1122 =
									BGl_loopze70ze7zz__r4_pairs_and_lists_6_3z00(BgL_eqz00_2885,
									BgL_xz00_1114, BgL_arg1484z00_1123);
							}
							return MAKE_YOUNG_PAIR(BgL_arg1482z00_1121, BgL_arg1483z00_1122);
						}
				}
		}

	}



/* _delete! */
	obj_t BGl__deletez12z12zz__r4_pairs_and_lists_6_3z00(obj_t BgL_env1112z00_100,
		obj_t BgL_opt1111z00_99)
	{
		{	/* Ieee/pairlist.scm 786 */
			{	/* Ieee/pairlist.scm 786 */
				obj_t BgL_g1113z00_1126;
				obj_t BgL_g1114z00_1127;

				{
					obj_t BgL_auxz00_4106;

					if (VECTORP(BgL_opt1111z00_99))
						{	/* Ieee/pairlist.scm 786 */
							BgL_auxz00_4106 = BgL_opt1111z00_99;
						}
					else
						{
							obj_t BgL_auxz00_4109;

							BgL_auxz00_4109 =
								BGl_typezd2errorzd2zz__errorz00
								(BGl_string2067z00zz__r4_pairs_and_lists_6_3z00, BINT(31485L),
								BGl_string2128z00zz__r4_pairs_and_lists_6_3z00,
								BGl_string2127z00zz__r4_pairs_and_lists_6_3z00,
								BgL_opt1111z00_99);
							FAILURE(BgL_auxz00_4109, BFALSE, BFALSE);
						}
					BgL_g1113z00_1126 = VECTOR_REF(BgL_auxz00_4106, 0L);
				}
				{
					obj_t BgL_auxz00_4114;

					if (VECTORP(BgL_opt1111z00_99))
						{	/* Ieee/pairlist.scm 786 */
							BgL_auxz00_4114 = BgL_opt1111z00_99;
						}
					else
						{
							obj_t BgL_auxz00_4117;

							BgL_auxz00_4117 =
								BGl_typezd2errorzd2zz__errorz00
								(BGl_string2067z00zz__r4_pairs_and_lists_6_3z00, BINT(31485L),
								BGl_string2128z00zz__r4_pairs_and_lists_6_3z00,
								BGl_string2127z00zz__r4_pairs_and_lists_6_3z00,
								BgL_opt1111z00_99);
							FAILURE(BgL_auxz00_4117, BFALSE, BFALSE);
						}
					BgL_g1114z00_1127 = VECTOR_REF(BgL_auxz00_4114, 1L);
				}
				{	/* Ieee/pairlist.scm 786 */
					long BgL_aux1116z00_1129;

					{
						obj_t BgL_auxz00_4122;

						if (VECTORP(BgL_opt1111z00_99))
							{	/* Ieee/pairlist.scm 786 */
								BgL_auxz00_4122 = BgL_opt1111z00_99;
							}
						else
							{
								obj_t BgL_auxz00_4125;

								BgL_auxz00_4125 =
									BGl_typezd2errorzd2zz__errorz00
									(BGl_string2067z00zz__r4_pairs_and_lists_6_3z00, BINT(31485L),
									BGl_string2128z00zz__r4_pairs_and_lists_6_3z00,
									BGl_string2127z00zz__r4_pairs_and_lists_6_3z00,
									BgL_opt1111z00_99);
								FAILURE(BgL_auxz00_4125, BFALSE, BFALSE);
							}
						BgL_aux1116z00_1129 = VECTOR_LENGTH(BgL_auxz00_4122);
					}
					switch (BgL_aux1116z00_1129)
						{
						case 2L:

							{	/* Ieee/pairlist.scm 786 */

								{	/* Ieee/pairlist.scm 786 */
									obj_t BgL_auxz00_4130;

									if (BGl_pairzd2orzd2nullzf3zf3zz__r4_pairs_and_lists_6_3z00
										(BgL_g1114z00_1127))
										{	/* Ieee/pairlist.scm 786 */
											BgL_auxz00_4130 = BgL_g1114z00_1127;
										}
									else
										{
											obj_t BgL_auxz00_4133;

											BgL_auxz00_4133 =
												BGl_typezd2errorzd2zz__errorz00
												(BGl_string2067z00zz__r4_pairs_and_lists_6_3z00,
												BINT(31485L),
												BGl_string2128z00zz__r4_pairs_and_lists_6_3z00,
												BGl_string2105z00zz__r4_pairs_and_lists_6_3z00,
												BgL_g1114z00_1127);
											FAILURE(BgL_auxz00_4133, BFALSE, BFALSE);
										}
									return
										BGl_deletez12z12zz__r4_pairs_and_lists_6_3z00
										(BgL_g1113z00_1126, BgL_auxz00_4130,
										BGl_equalzf3zd2envz21zz__r4_equivalence_6_2z00);
								}
							}
							break;
						case 3L:

							{	/* Ieee/pairlist.scm 786 */
								obj_t BgL_eqz00_1131;

								{
									obj_t BgL_auxz00_4138;

									if (VECTORP(BgL_opt1111z00_99))
										{	/* Ieee/pairlist.scm 786 */
											BgL_auxz00_4138 = BgL_opt1111z00_99;
										}
									else
										{
											obj_t BgL_auxz00_4141;

											BgL_auxz00_4141 =
												BGl_typezd2errorzd2zz__errorz00
												(BGl_string2067z00zz__r4_pairs_and_lists_6_3z00,
												BINT(31485L),
												BGl_string2128z00zz__r4_pairs_and_lists_6_3z00,
												BGl_string2127z00zz__r4_pairs_and_lists_6_3z00,
												BgL_opt1111z00_99);
											FAILURE(BgL_auxz00_4141, BFALSE, BFALSE);
										}
									BgL_eqz00_1131 = VECTOR_REF(BgL_auxz00_4138, 2L);
								}
								{	/* Ieee/pairlist.scm 786 */

									{	/* Ieee/pairlist.scm 786 */
										obj_t BgL_auxz00_4146;

										if (BGl_pairzd2orzd2nullzf3zf3zz__r4_pairs_and_lists_6_3z00
											(BgL_g1114z00_1127))
											{	/* Ieee/pairlist.scm 786 */
												BgL_auxz00_4146 = BgL_g1114z00_1127;
											}
										else
											{
												obj_t BgL_auxz00_4149;

												BgL_auxz00_4149 =
													BGl_typezd2errorzd2zz__errorz00
													(BGl_string2067z00zz__r4_pairs_and_lists_6_3z00,
													BINT(31485L),
													BGl_string2128z00zz__r4_pairs_and_lists_6_3z00,
													BGl_string2105z00zz__r4_pairs_and_lists_6_3z00,
													BgL_g1114z00_1127);
												FAILURE(BgL_auxz00_4149, BFALSE, BFALSE);
											}
										return
											BGl_deletez12z12zz__r4_pairs_and_lists_6_3z00
											(BgL_g1113z00_1126, BgL_auxz00_4146, BgL_eqz00_1131);
									}
								}
							}
							break;
						default:
							return BUNSPEC;
						}
				}
			}
		}

	}



/* delete! */
	BGL_EXPORTED_DEF obj_t BGl_deletez12z12zz__r4_pairs_and_lists_6_3z00(obj_t
		BgL_xz00_96, obj_t BgL_yz00_97, obj_t BgL_eqz00_98)
	{
		{	/* Ieee/pairlist.scm 786 */
			{
				obj_t BgL_xz00_1133;
				obj_t BgL_yz00_1134;

				BgL_xz00_1133 = BgL_xz00_96;
				BgL_yz00_1134 = BgL_yz00_97;
			BgL_zc3z04anonymousza31487ze3z87_1135:
				if (NULLP(BgL_yz00_1134))
					{	/* Ieee/pairlist.scm 790 */
						return BgL_yz00_1134;
					}
				else
					{	/* Ieee/pairlist.scm 791 */
						bool_t BgL_test2437z00_4157;

						{	/* Ieee/pairlist.scm 791 */
							obj_t BgL_arg1505z00_1152;

							BgL_arg1505z00_1152 = CAR(((obj_t) BgL_yz00_1134));
							BgL_test2437z00_4157 =
								CBOOL(BGL_PROCEDURE_CALL2(BgL_eqz00_98, BgL_xz00_1133,
									BgL_arg1505z00_1152));
						}
						if (BgL_test2437z00_4157)
							{	/* Ieee/pairlist.scm 791 */
								obj_t BgL_arg1491z00_1139;

								BgL_arg1491z00_1139 = CDR(((obj_t) BgL_yz00_1134));
								{
									obj_t BgL_yz00_4168;

									BgL_yz00_4168 = BgL_arg1491z00_1139;
									BgL_yz00_1134 = BgL_yz00_4168;
									goto BgL_zc3z04anonymousza31487ze3z87_1135;
								}
							}
						else
							{
								obj_t BgL_prevz00_1141;

								BgL_prevz00_1141 = BgL_yz00_1134;
							BgL_zc3z04anonymousza31492ze3z87_1142:
								if (NULLP(CDR(((obj_t) BgL_prevz00_1141))))
									{	/* Ieee/pairlist.scm 793 */
										return BgL_yz00_1134;
									}
								else
									{	/* Ieee/pairlist.scm 795 */
										bool_t BgL_test2439z00_4173;

										{	/* Ieee/pairlist.scm 795 */
											obj_t BgL_arg1501z00_1149;

											{	/* Ieee/pairlist.scm 285 */
												obj_t BgL_pairz00_2161;

												BgL_pairz00_2161 = CDR(((obj_t) BgL_prevz00_1141));
												BgL_arg1501z00_1149 = CAR(BgL_pairz00_2161);
											}
											BgL_test2439z00_4173 =
												CBOOL(BGL_PROCEDURE_CALL2(BgL_eqz00_98,
													BgL_arg1501z00_1149, BgL_xz00_1133));
										}
										if (BgL_test2439z00_4173)
											{	/* Ieee/pairlist.scm 795 */
												{	/* Ieee/pairlist.scm 796 */
													obj_t BgL_arg1499z00_1147;

													{	/* Ieee/pairlist.scm 297 */
														obj_t BgL_pairz00_2165;

														BgL_pairz00_2165 = CDR(((obj_t) BgL_prevz00_1141));
														BgL_arg1499z00_1147 = CDR(BgL_pairz00_2165);
													}
													{	/* Ieee/pairlist.scm 454 */
														obj_t BgL_tmpz00_4186;

														BgL_tmpz00_4186 = ((obj_t) BgL_prevz00_1141);
														SET_CDR(BgL_tmpz00_4186, BgL_arg1499z00_1147);
													}
												}
												{

													goto BgL_zc3z04anonymousza31492ze3z87_1142;
												}
											}
										else
											{	/* Ieee/pairlist.scm 798 */
												obj_t BgL_arg1500z00_1148;

												BgL_arg1500z00_1148 = CDR(((obj_t) BgL_prevz00_1141));
												{
													obj_t BgL_prevz00_4191;

													BgL_prevz00_4191 = BgL_arg1500z00_1148;
													BgL_prevz00_1141 = BgL_prevz00_4191;
													goto BgL_zc3z04anonymousza31492ze3z87_1142;
												}
											}
									}
							}
					}
			}
		}

	}



/* cons* */
	BGL_EXPORTED_DEF obj_t BGl_consza2za2zz__r4_pairs_and_lists_6_3z00(obj_t
		BgL_xz00_101, obj_t BgL_yz00_102)
	{
		{	/* Ieee/pairlist.scm 803 */
			if (NULLP(BgL_yz00_102))
				{	/* Ieee/pairlist.scm 808 */
					return BgL_xz00_101;
				}
			else
				{	/* Ieee/pairlist.scm 808 */
					return
						MAKE_YOUNG_PAIR(BgL_xz00_101,
						BGl_consza21ze70z45zz__r4_pairs_and_lists_6_3z00(BgL_yz00_102));
				}
		}

	}



/* cons*1~0 */
	obj_t BGl_consza21ze70z45zz__r4_pairs_and_lists_6_3z00(obj_t BgL_xz00_1154)
	{
		{	/* Ieee/pairlist.scm 804 */
			if (NULLP(CDR(((obj_t) BgL_xz00_1154))))
				{	/* Ieee/pairlist.scm 804 */
					return CAR(((obj_t) BgL_xz00_1154));
				}
			else
				{	/* Ieee/pairlist.scm 807 */
					obj_t BgL_arg1510z00_1160;
					obj_t BgL_arg1511z00_1161;

					BgL_arg1510z00_1160 = CAR(((obj_t) BgL_xz00_1154));
					{	/* Ieee/pairlist.scm 807 */
						obj_t BgL_arg1512z00_1162;

						BgL_arg1512z00_1162 = CDR(((obj_t) BgL_xz00_1154));
						BgL_arg1511z00_1161 =
							BGl_consza21ze70z45zz__r4_pairs_and_lists_6_3z00
							(BgL_arg1512z00_1162);
					}
					return MAKE_YOUNG_PAIR(BgL_arg1510z00_1160, BgL_arg1511z00_1161);
				}
		}

	}



/* &cons* */
	obj_t BGl_z62consza2zc0zz__r4_pairs_and_lists_6_3z00(obj_t BgL_envz00_2842,
		obj_t BgL_xz00_2843, obj_t BgL_yz00_2844)
	{
		{	/* Ieee/pairlist.scm 803 */
			return
				BGl_consza2za2zz__r4_pairs_and_lists_6_3z00(BgL_xz00_2843,
				BgL_yz00_2844);
		}

	}



/* reverse! */
	BGL_EXPORTED_DEF obj_t bgl_reverse_bang(obj_t BgL_lz00_103)
	{
		{	/* Ieee/pairlist.scm 815 */
			if (NULLP(BgL_lz00_103))
				{	/* Ieee/pairlist.scm 816 */
					return BgL_lz00_103;
				}
			else
				{
					obj_t BgL_lz00_2189;
					obj_t BgL_rz00_2190;

					BgL_lz00_2189 = BgL_lz00_103;
					BgL_rz00_2190 = BNIL;
				BgL_nrz00_2188:
					if (NULLP(CDR(((obj_t) BgL_lz00_2189))))
						{	/* Ieee/pairlist.scm 819 */
							{	/* Ieee/pairlist.scm 454 */
								obj_t BgL_tmpz00_4215;

								BgL_tmpz00_4215 = ((obj_t) BgL_lz00_2189);
								SET_CDR(BgL_tmpz00_4215, BgL_rz00_2190);
							}
							return BgL_lz00_2189;
						}
					else
						{	/* Ieee/pairlist.scm 823 */
							obj_t BgL_cdrlz00_2197;

							BgL_cdrlz00_2197 = CDR(((obj_t) BgL_lz00_2189));
							{	/* Ieee/pairlist.scm 825 */
								obj_t BgL_arg1520z00_2198;

								{	/* Ieee/pairlist.scm 454 */
									obj_t BgL_tmpz00_4220;

									BgL_tmpz00_4220 = ((obj_t) BgL_lz00_2189);
									SET_CDR(BgL_tmpz00_4220, BgL_rz00_2190);
								}
								BgL_arg1520z00_2198 = BgL_lz00_2189;
								{
									obj_t BgL_rz00_4224;
									obj_t BgL_lz00_4223;

									BgL_lz00_4223 = BgL_cdrlz00_2197;
									BgL_rz00_4224 = BgL_arg1520z00_2198;
									BgL_rz00_2190 = BgL_rz00_4224;
									BgL_lz00_2189 = BgL_lz00_4223;
									goto BgL_nrz00_2188;
								}
							}
						}
				}
		}

	}



/* &reverse! */
	obj_t BGl_z62reversez12z70zz__r4_pairs_and_lists_6_3z00(obj_t BgL_envz00_2845,
		obj_t BgL_lz00_2846)
	{
		{	/* Ieee/pairlist.scm 815 */
			{	/* Ieee/pairlist.scm 816 */
				obj_t BgL_auxz00_4225;

				if (BGl_pairzd2orzd2nullzf3zf3zz__r4_pairs_and_lists_6_3z00
					(BgL_lz00_2846))
					{	/* Ieee/pairlist.scm 816 */
						BgL_auxz00_4225 = BgL_lz00_2846;
					}
				else
					{
						obj_t BgL_auxz00_4228;

						BgL_auxz00_4228 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string2067z00zz__r4_pairs_and_lists_6_3z00, BINT(32477L),
							BGl_string2129z00zz__r4_pairs_and_lists_6_3z00,
							BGl_string2105z00zz__r4_pairs_and_lists_6_3z00, BgL_lz00_2846);
						FAILURE(BgL_auxz00_4228, BFALSE, BFALSE);
					}
				return bgl_reverse_bang(BgL_auxz00_4225);
			}
		}

	}



/* every */
	BGL_EXPORTED_DEF obj_t BGl_everyz00zz__r4_pairs_and_lists_6_3z00(obj_t
		BgL_predz00_104, obj_t BgL_lz00_105)
	{
		{	/* Ieee/pairlist.scm 831 */
			if (NULLP(BgL_lz00_105))
				{	/* Ieee/pairlist.scm 833 */
					return BTRUE;
				}
			else
				{	/* Ieee/pairlist.scm 833 */
					if (NULLP(CDR(((obj_t) BgL_lz00_105))))
						{	/* Ieee/pairlist.scm 836 */
							obj_t BgL_g1025z00_1179;

							BgL_g1025z00_1179 = CAR(((obj_t) BgL_lz00_105));
							{
								obj_t BgL_lz00_1181;

								{	/* Ieee/pairlist.scm 836 */
									bool_t BgL_tmpz00_4241;

									BgL_lz00_1181 = BgL_g1025z00_1179;
								BgL_zc3z04anonymousza31525ze3z87_1182:
									{	/* Ieee/pairlist.scm 837 */
										bool_t BgL__ortest_1026z00_1183;

										BgL__ortest_1026z00_1183 = NULLP(BgL_lz00_1181);
										if (BgL__ortest_1026z00_1183)
											{	/* Ieee/pairlist.scm 837 */
												BgL_tmpz00_4241 = BgL__ortest_1026z00_1183;
											}
										else
											{	/* Ieee/pairlist.scm 838 */
												obj_t BgL__andtest_1027z00_1184;

												{	/* Ieee/pairlist.scm 838 */
													obj_t BgL_arg1527z00_1186;

													BgL_arg1527z00_1186 = CAR(((obj_t) BgL_lz00_1181));
													BgL__andtest_1027z00_1184 =
														BGL_PROCEDURE_CALL1(BgL_predz00_104,
														BgL_arg1527z00_1186);
												}
												if (CBOOL(BgL__andtest_1027z00_1184))
													{	/* Ieee/pairlist.scm 838 */
														obj_t BgL_arg1526z00_1185;

														BgL_arg1526z00_1185 = CDR(((obj_t) BgL_lz00_1181));
														{
															obj_t BgL_lz00_4254;

															BgL_lz00_4254 = BgL_arg1526z00_1185;
															BgL_lz00_1181 = BgL_lz00_4254;
															goto BgL_zc3z04anonymousza31525ze3z87_1182;
														}
													}
												else
													{	/* Ieee/pairlist.scm 838 */
														BgL_tmpz00_4241 = ((bool_t) 0);
													}
											}
									}
									return BBOOL(BgL_tmpz00_4241);
								}
							}
						}
					else
						{
							obj_t BgL_lz00_1189;

							{	/* Ieee/pairlist.scm 840 */
								bool_t BgL_tmpz00_4256;

								BgL_lz00_1189 = BgL_lz00_105;
							BgL_zc3z04anonymousza31528ze3z87_1190:
								{	/* Ieee/pairlist.scm 841 */
									bool_t BgL__ortest_1028z00_1191;

									BgL__ortest_1028z00_1191 =
										NULLP(CAR(((obj_t) BgL_lz00_1189)));
									if (BgL__ortest_1028z00_1191)
										{	/* Ieee/pairlist.scm 841 */
											BgL_tmpz00_4256 = BgL__ortest_1028z00_1191;
										}
									else
										{	/* Ieee/pairlist.scm 842 */
											obj_t BgL__andtest_1029z00_1192;

											{	/* Ieee/pairlist.scm 842 */
												obj_t BgL_auxz00_4261;

												if (NULLP(BgL_lz00_1189))
													{	/* Ieee/pairlist.scm 842 */
														BgL_auxz00_4261 = BNIL;
													}
												else
													{	/* Ieee/pairlist.scm 842 */
														obj_t BgL_head1074z00_1212;

														{	/* Ieee/pairlist.scm 842 */
															obj_t BgL_arg1551z00_1224;

															{	/* Ieee/pairlist.scm 842 */
																obj_t BgL_pairz00_2209;

																BgL_pairz00_2209 = CAR(((obj_t) BgL_lz00_1189));
																BgL_arg1551z00_1224 = CAR(BgL_pairz00_2209);
															}
															BgL_head1074z00_1212 =
																MAKE_YOUNG_PAIR(BgL_arg1551z00_1224, BNIL);
														}
														{	/* Ieee/pairlist.scm 842 */
															obj_t BgL_g1077z00_1213;

															BgL_g1077z00_1213 = CDR(((obj_t) BgL_lz00_1189));
															{
																obj_t BgL_l1072z00_2230;
																obj_t BgL_tail1075z00_2231;

																BgL_l1072z00_2230 = BgL_g1077z00_1213;
																BgL_tail1075z00_2231 = BgL_head1074z00_1212;
															BgL_zc3z04anonymousza31544ze3z87_2229:
																if (NULLP(BgL_l1072z00_2230))
																	{	/* Ieee/pairlist.scm 842 */
																		BgL_auxz00_4261 = BgL_head1074z00_1212;
																	}
																else
																	{	/* Ieee/pairlist.scm 842 */
																		obj_t BgL_newtail1076z00_2238;

																		{	/* Ieee/pairlist.scm 842 */
																			obj_t BgL_arg1547z00_2239;

																			{	/* Ieee/pairlist.scm 842 */
																				obj_t BgL_pairz00_2243;

																				BgL_pairz00_2243 =
																					CAR(((obj_t) BgL_l1072z00_2230));
																				BgL_arg1547z00_2239 =
																					CAR(BgL_pairz00_2243);
																			}
																			BgL_newtail1076z00_2238 =
																				MAKE_YOUNG_PAIR(BgL_arg1547z00_2239,
																				BNIL);
																		}
																		SET_CDR(BgL_tail1075z00_2231,
																			BgL_newtail1076z00_2238);
																		{	/* Ieee/pairlist.scm 842 */
																			obj_t BgL_arg1546z00_2241;

																			BgL_arg1546z00_2241 =
																				CDR(((obj_t) BgL_l1072z00_2230));
																			{
																				obj_t BgL_tail1075z00_4280;
																				obj_t BgL_l1072z00_4279;

																				BgL_l1072z00_4279 = BgL_arg1546z00_2241;
																				BgL_tail1075z00_4280 =
																					BgL_newtail1076z00_2238;
																				BgL_tail1075z00_2231 =
																					BgL_tail1075z00_4280;
																				BgL_l1072z00_2230 = BgL_l1072z00_4279;
																				goto
																					BgL_zc3z04anonymousza31544ze3z87_2229;
																			}
																		}
																	}
															}
														}
													}
												BgL__andtest_1029z00_1192 =
													apply(BgL_predz00_104, BgL_auxz00_4261);
											}
											if (CBOOL(BgL__andtest_1029z00_1192))
												{	/* Ieee/pairlist.scm 842 */
													obj_t BgL_arg1532z00_1193;

													if (NULLP(BgL_lz00_1189))
														{	/* Ieee/pairlist.scm 842 */
															BgL_arg1532z00_1193 = BNIL;
														}
													else
														{	/* Ieee/pairlist.scm 842 */
															obj_t BgL_head1080z00_1196;

															{	/* Ieee/pairlist.scm 842 */
																obj_t BgL_arg1541z00_1208;

																{	/* Ieee/pairlist.scm 842 */
																	obj_t BgL_pairz00_2247;

																	BgL_pairz00_2247 =
																		CAR(((obj_t) BgL_lz00_1189));
																	BgL_arg1541z00_1208 = CDR(BgL_pairz00_2247);
																}
																BgL_head1080z00_1196 =
																	MAKE_YOUNG_PAIR(BgL_arg1541z00_1208, BNIL);
															}
															{	/* Ieee/pairlist.scm 842 */
																obj_t BgL_g1083z00_1197;

																BgL_g1083z00_1197 =
																	CDR(((obj_t) BgL_lz00_1189));
																{
																	obj_t BgL_l1078z00_2268;
																	obj_t BgL_tail1081z00_2269;

																	BgL_l1078z00_2268 = BgL_g1083z00_1197;
																	BgL_tail1081z00_2269 = BgL_head1080z00_1196;
																BgL_zc3z04anonymousza31534ze3z87_2267:
																	if (NULLP(BgL_l1078z00_2268))
																		{	/* Ieee/pairlist.scm 842 */
																			BgL_arg1532z00_1193 =
																				BgL_head1080z00_1196;
																		}
																	else
																		{	/* Ieee/pairlist.scm 842 */
																			obj_t BgL_newtail1082z00_2276;

																			{	/* Ieee/pairlist.scm 842 */
																				obj_t BgL_arg1538z00_2277;

																				{	/* Ieee/pairlist.scm 842 */
																					obj_t BgL_pairz00_2281;

																					BgL_pairz00_2281 =
																						CAR(((obj_t) BgL_l1078z00_2268));
																					BgL_arg1538z00_2277 =
																						CDR(BgL_pairz00_2281);
																				}
																				BgL_newtail1082z00_2276 =
																					MAKE_YOUNG_PAIR(BgL_arg1538z00_2277,
																					BNIL);
																			}
																			SET_CDR(BgL_tail1081z00_2269,
																				BgL_newtail1082z00_2276);
																			{	/* Ieee/pairlist.scm 842 */
																				obj_t BgL_arg1537z00_2279;

																				BgL_arg1537z00_2279 =
																					CDR(((obj_t) BgL_l1078z00_2268));
																				{
																					obj_t BgL_tail1081z00_4302;
																					obj_t BgL_l1078z00_4301;

																					BgL_l1078z00_4301 =
																						BgL_arg1537z00_2279;
																					BgL_tail1081z00_4302 =
																						BgL_newtail1082z00_2276;
																					BgL_tail1081z00_2269 =
																						BgL_tail1081z00_4302;
																					BgL_l1078z00_2268 = BgL_l1078z00_4301;
																					goto
																						BgL_zc3z04anonymousza31534ze3z87_2267;
																				}
																			}
																		}
																}
															}
														}
													{
														obj_t BgL_lz00_4303;

														BgL_lz00_4303 = BgL_arg1532z00_1193;
														BgL_lz00_1189 = BgL_lz00_4303;
														goto BgL_zc3z04anonymousza31528ze3z87_1190;
													}
												}
											else
												{	/* Ieee/pairlist.scm 842 */
													BgL_tmpz00_4256 = ((bool_t) 0);
												}
										}
								}
								return BBOOL(BgL_tmpz00_4256);
							}
						}
				}
		}

	}



/* &every */
	obj_t BGl_z62everyz62zz__r4_pairs_and_lists_6_3z00(obj_t BgL_envz00_2847,
		obj_t BgL_predz00_2848, obj_t BgL_lz00_2849)
	{
		{	/* Ieee/pairlist.scm 831 */
			{	/* Ieee/pairlist.scm 833 */
				obj_t BgL_auxz00_4305;

				if (PROCEDUREP(BgL_predz00_2848))
					{	/* Ieee/pairlist.scm 833 */
						BgL_auxz00_4305 = BgL_predz00_2848;
					}
				else
					{
						obj_t BgL_auxz00_4308;

						BgL_auxz00_4308 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string2067z00zz__r4_pairs_and_lists_6_3z00, BINT(32978L),
							BGl_string2130z00zz__r4_pairs_and_lists_6_3z00,
							BGl_string2131z00zz__r4_pairs_and_lists_6_3z00, BgL_predz00_2848);
						FAILURE(BgL_auxz00_4308, BFALSE, BFALSE);
					}
				return
					BGl_everyz00zz__r4_pairs_and_lists_6_3z00(BgL_auxz00_4305,
					BgL_lz00_2849);
			}
		}

	}



/* any */
	BGL_EXPORTED_DEF obj_t BGl_anyz00zz__r4_pairs_and_lists_6_3z00(obj_t
		BgL_predz00_106, obj_t BgL_lz00_107)
	{
		{	/* Ieee/pairlist.scm 847 */
			if (NULLP(BgL_lz00_107))
				{	/* Ieee/pairlist.scm 849 */
					return BFALSE;
				}
			else
				{	/* Ieee/pairlist.scm 849 */
					if (NULLP(CDR(((obj_t) BgL_lz00_107))))
						{	/* Ieee/pairlist.scm 852 */
							obj_t BgL_g1030z00_1232;

							BgL_g1030z00_1232 = CAR(((obj_t) BgL_lz00_107));
							{
								obj_t BgL_lz00_1234;

								BgL_lz00_1234 = BgL_g1030z00_1232;
							BgL_zc3z04anonymousza31560ze3z87_1235:
								if (PAIRP(BgL_lz00_1234))
									{	/* Ieee/pairlist.scm 854 */
										obj_t BgL__ortest_1032z00_1237;

										{	/* Ieee/pairlist.scm 854 */
											obj_t BgL_arg1562z00_1239;

											BgL_arg1562z00_1239 = CAR(BgL_lz00_1234);
											BgL__ortest_1032z00_1237 =
												BGL_PROCEDURE_CALL1(BgL_predz00_106,
												BgL_arg1562z00_1239);
										}
										if (CBOOL(BgL__ortest_1032z00_1237))
											{	/* Ieee/pairlist.scm 854 */
												return BgL__ortest_1032z00_1237;
											}
										else
											{
												obj_t BgL_lz00_4330;

												BgL_lz00_4330 = CDR(BgL_lz00_1234);
												BgL_lz00_1234 = BgL_lz00_4330;
												goto BgL_zc3z04anonymousza31560ze3z87_1235;
											}
									}
								else
									{	/* Ieee/pairlist.scm 853 */
										return BFALSE;
									}
							}
						}
					else
						{
							obj_t BgL_lz00_1242;

							BgL_lz00_1242 = BgL_lz00_107;
						BgL_zc3z04anonymousza31563ze3z87_1243:
							{	/* Ieee/pairlist.scm 857 */
								bool_t BgL_test2460z00_4332;

								{	/* Ieee/pairlist.scm 229 */
									obj_t BgL_tmpz00_4333;

									BgL_tmpz00_4333 = CAR(((obj_t) BgL_lz00_1242));
									BgL_test2460z00_4332 = PAIRP(BgL_tmpz00_4333);
								}
								if (BgL_test2460z00_4332)
									{	/* Ieee/pairlist.scm 858 */
										obj_t BgL__ortest_1034z00_1245;

										{	/* Ieee/pairlist.scm 858 */
											obj_t BgL_auxz00_4337;

											if (NULLP(BgL_lz00_1242))
												{	/* Ieee/pairlist.scm 858 */
													BgL_auxz00_4337 = BNIL;
												}
											else
												{	/* Ieee/pairlist.scm 858 */
													obj_t BgL_head1086z00_1265;

													{	/* Ieee/pairlist.scm 858 */
														obj_t BgL_arg1587z00_1277;

														{	/* Ieee/pairlist.scm 858 */
															obj_t BgL_pairz00_2290;

															BgL_pairz00_2290 = CAR(((obj_t) BgL_lz00_1242));
															BgL_arg1587z00_1277 = CAR(BgL_pairz00_2290);
														}
														BgL_head1086z00_1265 =
															MAKE_YOUNG_PAIR(BgL_arg1587z00_1277, BNIL);
													}
													{	/* Ieee/pairlist.scm 858 */
														obj_t BgL_g1089z00_1266;

														BgL_g1089z00_1266 = CDR(((obj_t) BgL_lz00_1242));
														{
															obj_t BgL_l1084z00_2311;
															obj_t BgL_tail1087z00_2312;

															BgL_l1084z00_2311 = BgL_g1089z00_1266;
															BgL_tail1087z00_2312 = BgL_head1086z00_1265;
														BgL_zc3z04anonymousza31580ze3z87_2310:
															if (NULLP(BgL_l1084z00_2311))
																{	/* Ieee/pairlist.scm 858 */
																	BgL_auxz00_4337 = BgL_head1086z00_1265;
																}
															else
																{	/* Ieee/pairlist.scm 858 */
																	obj_t BgL_newtail1088z00_2319;

																	{	/* Ieee/pairlist.scm 858 */
																		obj_t BgL_arg1584z00_2320;

																		{	/* Ieee/pairlist.scm 858 */
																			obj_t BgL_pairz00_2324;

																			BgL_pairz00_2324 =
																				CAR(((obj_t) BgL_l1084z00_2311));
																			BgL_arg1584z00_2320 =
																				CAR(BgL_pairz00_2324);
																		}
																		BgL_newtail1088z00_2319 =
																			MAKE_YOUNG_PAIR(BgL_arg1584z00_2320,
																			BNIL);
																	}
																	SET_CDR(BgL_tail1087z00_2312,
																		BgL_newtail1088z00_2319);
																	{	/* Ieee/pairlist.scm 858 */
																		obj_t BgL_arg1582z00_2322;

																		BgL_arg1582z00_2322 =
																			CDR(((obj_t) BgL_l1084z00_2311));
																		{
																			obj_t BgL_tail1087z00_4356;
																			obj_t BgL_l1084z00_4355;

																			BgL_l1084z00_4355 = BgL_arg1582z00_2322;
																			BgL_tail1087z00_4356 =
																				BgL_newtail1088z00_2319;
																			BgL_tail1087z00_2312 =
																				BgL_tail1087z00_4356;
																			BgL_l1084z00_2311 = BgL_l1084z00_4355;
																			goto
																				BgL_zc3z04anonymousza31580ze3z87_2310;
																		}
																	}
																}
														}
													}
												}
											BgL__ortest_1034z00_1245 =
												apply(BgL_predz00_106, BgL_auxz00_4337);
										}
										if (CBOOL(BgL__ortest_1034z00_1245))
											{	/* Ieee/pairlist.scm 858 */
												return BgL__ortest_1034z00_1245;
											}
										else
											{	/* Ieee/pairlist.scm 858 */
												obj_t BgL_arg1565z00_1246;

												if (NULLP(BgL_lz00_1242))
													{	/* Ieee/pairlist.scm 858 */
														BgL_arg1565z00_1246 = BNIL;
													}
												else
													{	/* Ieee/pairlist.scm 858 */
														obj_t BgL_head1092z00_1249;

														{	/* Ieee/pairlist.scm 858 */
															obj_t BgL_arg1575z00_1261;

															{	/* Ieee/pairlist.scm 858 */
																obj_t BgL_pairz00_2328;

																BgL_pairz00_2328 = CAR(((obj_t) BgL_lz00_1242));
																BgL_arg1575z00_1261 = CDR(BgL_pairz00_2328);
															}
															BgL_head1092z00_1249 =
																MAKE_YOUNG_PAIR(BgL_arg1575z00_1261, BNIL);
														}
														{	/* Ieee/pairlist.scm 858 */
															obj_t BgL_g1095z00_1250;

															BgL_g1095z00_1250 = CDR(((obj_t) BgL_lz00_1242));
															{
																obj_t BgL_l1090z00_2349;
																obj_t BgL_tail1093z00_2350;

																BgL_l1090z00_2349 = BgL_g1095z00_1250;
																BgL_tail1093z00_2350 = BgL_head1092z00_1249;
															BgL_zc3z04anonymousza31567ze3z87_2348:
																if (NULLP(BgL_l1090z00_2349))
																	{	/* Ieee/pairlist.scm 858 */
																		BgL_arg1565z00_1246 = BgL_head1092z00_1249;
																	}
																else
																	{	/* Ieee/pairlist.scm 858 */
																		obj_t BgL_newtail1094z00_2357;

																		{	/* Ieee/pairlist.scm 858 */
																			obj_t BgL_arg1573z00_2358;

																			{	/* Ieee/pairlist.scm 858 */
																				obj_t BgL_pairz00_2362;

																				BgL_pairz00_2362 =
																					CAR(((obj_t) BgL_l1090z00_2349));
																				BgL_arg1573z00_2358 =
																					CDR(BgL_pairz00_2362);
																			}
																			BgL_newtail1094z00_2357 =
																				MAKE_YOUNG_PAIR(BgL_arg1573z00_2358,
																				BNIL);
																		}
																		SET_CDR(BgL_tail1093z00_2350,
																			BgL_newtail1094z00_2357);
																		{	/* Ieee/pairlist.scm 858 */
																			obj_t BgL_arg1569z00_2360;

																			BgL_arg1569z00_2360 =
																				CDR(((obj_t) BgL_l1090z00_2349));
																			{
																				obj_t BgL_tail1093z00_4378;
																				obj_t BgL_l1090z00_4377;

																				BgL_l1090z00_4377 = BgL_arg1569z00_2360;
																				BgL_tail1093z00_4378 =
																					BgL_newtail1094z00_2357;
																				BgL_tail1093z00_2350 =
																					BgL_tail1093z00_4378;
																				BgL_l1090z00_2349 = BgL_l1090z00_4377;
																				goto
																					BgL_zc3z04anonymousza31567ze3z87_2348;
																			}
																		}
																	}
															}
														}
													}
												{
													obj_t BgL_lz00_4379;

													BgL_lz00_4379 = BgL_arg1565z00_1246;
													BgL_lz00_1242 = BgL_lz00_4379;
													goto BgL_zc3z04anonymousza31563ze3z87_1243;
												}
											}
									}
								else
									{	/* Ieee/pairlist.scm 857 */
										return BFALSE;
									}
							}
						}
				}
		}

	}



/* &any */
	obj_t BGl_z62anyz62zz__r4_pairs_and_lists_6_3z00(obj_t BgL_envz00_2850,
		obj_t BgL_predz00_2851, obj_t BgL_lz00_2852)
	{
		{	/* Ieee/pairlist.scm 847 */
			{	/* Ieee/pairlist.scm 849 */
				obj_t BgL_auxz00_4380;

				if (PROCEDUREP(BgL_predz00_2851))
					{	/* Ieee/pairlist.scm 849 */
						BgL_auxz00_4380 = BgL_predz00_2851;
					}
				else
					{
						obj_t BgL_auxz00_4383;

						BgL_auxz00_4383 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string2067z00zz__r4_pairs_and_lists_6_3z00, BINT(33500L),
							BGl_string2132z00zz__r4_pairs_and_lists_6_3z00,
							BGl_string2131z00zz__r4_pairs_and_lists_6_3z00, BgL_predz00_2851);
						FAILURE(BgL_auxz00_4383, BFALSE, BFALSE);
					}
				return
					BGl_anyz00zz__r4_pairs_and_lists_6_3z00(BgL_auxz00_4380,
					BgL_lz00_2852);
			}
		}

	}



/* find */
	BGL_EXPORTED_DEF obj_t BGl_findz00zz__r4_pairs_and_lists_6_3z00(obj_t
		BgL_predz00_108, obj_t BgL_listz00_109)
	{
		{	/* Ieee/pairlist.scm 863 */
			{	/* Ieee/pairlist.scm 864 */
				obj_t BgL_g1035z00_2365;

				{
					obj_t BgL_listz00_2370;

					BgL_listz00_2370 = BgL_listz00_109;
				BgL_lpz00_2369:
					if (PAIRP(BgL_listz00_2370))
						{	/* Ieee/pairlist.scm 873 */
							bool_t BgL_test2468z00_4390;

							{	/* Ieee/pairlist.scm 873 */
								obj_t BgL_arg1599z00_2373;

								BgL_arg1599z00_2373 = CAR(BgL_listz00_2370);
								BgL_test2468z00_4390 =
									CBOOL(BGL_PROCEDURE_CALL1(BgL_predz00_108,
										BgL_arg1599z00_2373));
							}
							if (BgL_test2468z00_4390)
								{	/* Ieee/pairlist.scm 873 */
									BgL_g1035z00_2365 = BgL_listz00_2370;
								}
							else
								{
									obj_t BgL_listz00_4397;

									BgL_listz00_4397 = CDR(BgL_listz00_2370);
									BgL_listz00_2370 = BgL_listz00_4397;
									goto BgL_lpz00_2369;
								}
						}
					else
						{	/* Ieee/pairlist.scm 872 */
							BgL_g1035z00_2365 = BFALSE;
						}
				}
				if (CBOOL(BgL_g1035z00_2365))
					{	/* Ieee/pairlist.scm 864 */
						return CAR(((obj_t) BgL_g1035z00_2365));
					}
				else
					{	/* Ieee/pairlist.scm 864 */
						return BFALSE;
					}
			}
		}

	}



/* &find */
	obj_t BGl_z62findz62zz__r4_pairs_and_lists_6_3z00(obj_t BgL_envz00_2853,
		obj_t BgL_predz00_2854, obj_t BgL_listz00_2855)
	{
		{	/* Ieee/pairlist.scm 863 */
			{	/* Ieee/pairlist.scm 864 */
				obj_t BgL_auxz00_4410;
				obj_t BgL_auxz00_4403;

				if (BGl_pairzd2orzd2nullzf3zf3zz__r4_pairs_and_lists_6_3z00
					(BgL_listz00_2855))
					{	/* Ieee/pairlist.scm 864 */
						BgL_auxz00_4410 = BgL_listz00_2855;
					}
				else
					{
						obj_t BgL_auxz00_4413;

						BgL_auxz00_4413 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string2067z00zz__r4_pairs_and_lists_6_3z00, BINT(34021L),
							BGl_string2133z00zz__r4_pairs_and_lists_6_3z00,
							BGl_string2105z00zz__r4_pairs_and_lists_6_3z00, BgL_listz00_2855);
						FAILURE(BgL_auxz00_4413, BFALSE, BFALSE);
					}
				if (PROCEDUREP(BgL_predz00_2854))
					{	/* Ieee/pairlist.scm 864 */
						BgL_auxz00_4403 = BgL_predz00_2854;
					}
				else
					{
						obj_t BgL_auxz00_4406;

						BgL_auxz00_4406 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string2067z00zz__r4_pairs_and_lists_6_3z00, BINT(34021L),
							BGl_string2133z00zz__r4_pairs_and_lists_6_3z00,
							BGl_string2131z00zz__r4_pairs_and_lists_6_3z00, BgL_predz00_2854);
						FAILURE(BgL_auxz00_4406, BFALSE, BFALSE);
					}
				return
					BGl_findz00zz__r4_pairs_and_lists_6_3z00(BgL_auxz00_4403,
					BgL_auxz00_4410);
			}
		}

	}



/* find-tail */
	BGL_EXPORTED_DEF obj_t BGl_findzd2tailzd2zz__r4_pairs_and_lists_6_3z00(obj_t
		BgL_predz00_110, obj_t BgL_listz00_111)
	{
		{	/* Ieee/pairlist.scm 870 */
			{
				obj_t BgL_listz00_2379;

				BgL_listz00_2379 = BgL_listz00_111;
			BgL_lpz00_2378:
				if (PAIRP(BgL_listz00_2379))
					{	/* Ieee/pairlist.scm 873 */
						bool_t BgL_test2473z00_4420;

						{	/* Ieee/pairlist.scm 873 */
							obj_t BgL_arg1599z00_2382;

							BgL_arg1599z00_2382 = CAR(BgL_listz00_2379);
							BgL_test2473z00_4420 =
								CBOOL(BGL_PROCEDURE_CALL1(BgL_predz00_110,
									BgL_arg1599z00_2382));
						}
						if (BgL_test2473z00_4420)
							{	/* Ieee/pairlist.scm 873 */
								return BgL_listz00_2379;
							}
						else
							{
								obj_t BgL_listz00_4427;

								BgL_listz00_4427 = CDR(BgL_listz00_2379);
								BgL_listz00_2379 = BgL_listz00_4427;
								goto BgL_lpz00_2378;
							}
					}
				else
					{	/* Ieee/pairlist.scm 872 */
						return BFALSE;
					}
			}
		}

	}



/* &find-tail */
	obj_t BGl_z62findzd2tailzb0zz__r4_pairs_and_lists_6_3z00(obj_t
		BgL_envz00_2856, obj_t BgL_predz00_2857, obj_t BgL_listz00_2858)
	{
		{	/* Ieee/pairlist.scm 870 */
			{	/* Ieee/pairlist.scm 872 */
				obj_t BgL_auxz00_4436;
				obj_t BgL_auxz00_4429;

				if (BGl_pairzd2orzd2nullzf3zf3zz__r4_pairs_and_lists_6_3z00
					(BgL_listz00_2858))
					{	/* Ieee/pairlist.scm 872 */
						BgL_auxz00_4436 = BgL_listz00_2858;
					}
				else
					{
						obj_t BgL_auxz00_4439;

						BgL_auxz00_4439 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string2067z00zz__r4_pairs_and_lists_6_3z00, BINT(34349L),
							BGl_string2134z00zz__r4_pairs_and_lists_6_3z00,
							BGl_string2105z00zz__r4_pairs_and_lists_6_3z00, BgL_listz00_2858);
						FAILURE(BgL_auxz00_4439, BFALSE, BFALSE);
					}
				if (PROCEDUREP(BgL_predz00_2857))
					{	/* Ieee/pairlist.scm 872 */
						BgL_auxz00_4429 = BgL_predz00_2857;
					}
				else
					{
						obj_t BgL_auxz00_4432;

						BgL_auxz00_4432 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string2067z00zz__r4_pairs_and_lists_6_3z00, BINT(34349L),
							BGl_string2134z00zz__r4_pairs_and_lists_6_3z00,
							BGl_string2131z00zz__r4_pairs_and_lists_6_3z00, BgL_predz00_2857);
						FAILURE(BgL_auxz00_4432, BFALSE, BFALSE);
					}
				return
					BGl_findzd2tailzd2zz__r4_pairs_and_lists_6_3z00(BgL_auxz00_4429,
					BgL_auxz00_4436);
			}
		}

	}



/* reduce */
	BGL_EXPORTED_DEF obj_t BGl_reducez00zz__r4_pairs_and_lists_6_3z00(obj_t
		BgL_fz00_112, obj_t BgL_ridentifyz00_113, obj_t BgL_listz00_114)
	{
		{	/* Ieee/pairlist.scm 880 */
			if (NULLP(BgL_listz00_114))
				{	/* Ieee/pairlist.scm 881 */
					return BgL_ridentifyz00_113;
				}
			else
				{	/* Ieee/pairlist.scm 883 */
					obj_t BgL_g1037z00_2387;
					obj_t BgL_g1038z00_2388;

					BgL_g1037z00_2387 = CDR(BgL_listz00_114);
					BgL_g1038z00_2388 = CAR(BgL_listz00_114);
					{
						obj_t BgL_listz00_2411;
						obj_t BgL_ansz00_2412;

						BgL_listz00_2411 = BgL_g1037z00_2387;
						BgL_ansz00_2412 = BgL_g1038z00_2388;
					BgL_loopz00_2410:
						if (PAIRP(BgL_listz00_2411))
							{	/* Ieee/pairlist.scm 887 */
								obj_t BgL_arg1603z00_2418;
								obj_t BgL_arg1604z00_2419;

								BgL_arg1603z00_2418 = CDR(BgL_listz00_2411);
								{	/* Ieee/pairlist.scm 887 */
									obj_t BgL_arg1605z00_2420;

									BgL_arg1605z00_2420 = CAR(BgL_listz00_2411);
									BgL_arg1604z00_2419 =
										BGL_PROCEDURE_CALL2(BgL_fz00_112, BgL_arg1605z00_2420,
										BgL_ansz00_2412);
								}
								{
									obj_t BgL_ansz00_4458;
									obj_t BgL_listz00_4457;

									BgL_listz00_4457 = BgL_arg1603z00_2418;
									BgL_ansz00_4458 = BgL_arg1604z00_2419;
									BgL_ansz00_2412 = BgL_ansz00_4458;
									BgL_listz00_2411 = BgL_listz00_4457;
									goto BgL_loopz00_2410;
								}
							}
						else
							{	/* Ieee/pairlist.scm 885 */
								return BgL_ansz00_2412;
							}
					}
				}
		}

	}



/* &reduce */
	obj_t BGl_z62reducez62zz__r4_pairs_and_lists_6_3z00(obj_t BgL_envz00_2859,
		obj_t BgL_fz00_2860, obj_t BgL_ridentifyz00_2861, obj_t BgL_listz00_2862)
	{
		{	/* Ieee/pairlist.scm 880 */
			{	/* Ieee/pairlist.scm 881 */
				obj_t BgL_auxz00_4466;
				obj_t BgL_auxz00_4459;

				if (BGl_pairzd2orzd2nullzf3zf3zz__r4_pairs_and_lists_6_3z00
					(BgL_listz00_2862))
					{	/* Ieee/pairlist.scm 881 */
						BgL_auxz00_4466 = BgL_listz00_2862;
					}
				else
					{
						obj_t BgL_auxz00_4469;

						BgL_auxz00_4469 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string2067z00zz__r4_pairs_and_lists_6_3z00, BINT(34689L),
							BGl_string2135z00zz__r4_pairs_and_lists_6_3z00,
							BGl_string2105z00zz__r4_pairs_and_lists_6_3z00, BgL_listz00_2862);
						FAILURE(BgL_auxz00_4469, BFALSE, BFALSE);
					}
				if (PROCEDUREP(BgL_fz00_2860))
					{	/* Ieee/pairlist.scm 881 */
						BgL_auxz00_4459 = BgL_fz00_2860;
					}
				else
					{
						obj_t BgL_auxz00_4462;

						BgL_auxz00_4462 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string2067z00zz__r4_pairs_and_lists_6_3z00, BINT(34689L),
							BGl_string2135z00zz__r4_pairs_and_lists_6_3z00,
							BGl_string2131z00zz__r4_pairs_and_lists_6_3z00, BgL_fz00_2860);
						FAILURE(BgL_auxz00_4462, BFALSE, BFALSE);
					}
				return
					BGl_reducez00zz__r4_pairs_and_lists_6_3z00(BgL_auxz00_4459,
					BgL_ridentifyz00_2861, BgL_auxz00_4466);
			}
		}

	}



/* make-list */
	BGL_EXPORTED_DEF obj_t BGl_makezd2listzd2zz__r4_pairs_and_lists_6_3z00(int
		BgL_nz00_115, obj_t BgL_oz00_116)
	{
		{	/* Ieee/pairlist.scm 892 */
			{	/* Ieee/pairlist.scm 893 */
				obj_t BgL_fillz00_1305;

				if (PAIRP(BgL_oz00_116))
					{	/* Ieee/pairlist.scm 893 */
						BgL_fillz00_1305 = CAR(BgL_oz00_116);
					}
				else
					{	/* Ieee/pairlist.scm 893 */
						BgL_fillz00_1305 = BUNSPEC;
					}
				{
					int BgL_iz00_2435;
					obj_t BgL_rz00_2436;

					BgL_iz00_2435 = BgL_nz00_115;
					BgL_rz00_2436 = BNIL;
				BgL_walkz00_2434:
					if (((long) (BgL_iz00_2435) <= 0L))
						{	/* Ieee/pairlist.scm 895 */
							return BgL_rz00_2436;
						}
					else
						{	/* Ieee/pairlist.scm 897 */
							long BgL_arg1608z00_2441;
							obj_t BgL_arg1609z00_2442;

							BgL_arg1608z00_2441 = ((long) (BgL_iz00_2435) - 1L);
							BgL_arg1609z00_2442 =
								MAKE_YOUNG_PAIR(BgL_fillz00_1305, BgL_rz00_2436);
							{
								obj_t BgL_rz00_4485;
								int BgL_iz00_4483;

								BgL_iz00_4483 = (int) (BgL_arg1608z00_2441);
								BgL_rz00_4485 = BgL_arg1609z00_2442;
								BgL_rz00_2436 = BgL_rz00_4485;
								BgL_iz00_2435 = BgL_iz00_4483;
								goto BgL_walkz00_2434;
							}
						}
				}
			}
		}

	}



/* &make-list */
	obj_t BGl_z62makezd2listzb0zz__r4_pairs_and_lists_6_3z00(obj_t
		BgL_envz00_2863, obj_t BgL_nz00_2864, obj_t BgL_oz00_2865)
	{
		{	/* Ieee/pairlist.scm 892 */
			{	/* Ieee/pairlist.scm 893 */
				int BgL_auxz00_4486;

				{	/* Ieee/pairlist.scm 893 */
					obj_t BgL_tmpz00_4487;

					if (INTEGERP(BgL_nz00_2864))
						{	/* Ieee/pairlist.scm 893 */
							BgL_tmpz00_4487 = BgL_nz00_2864;
						}
					else
						{
							obj_t BgL_auxz00_4490;

							BgL_auxz00_4490 =
								BGl_typezd2errorzd2zz__errorz00
								(BGl_string2067z00zz__r4_pairs_and_lists_6_3z00, BINT(35118L),
								BGl_string2136z00zz__r4_pairs_and_lists_6_3z00,
								BGl_string2112z00zz__r4_pairs_and_lists_6_3z00, BgL_nz00_2864);
							FAILURE(BgL_auxz00_4490, BFALSE, BFALSE);
						}
					BgL_auxz00_4486 = CINT(BgL_tmpz00_4487);
				}
				return
					BGl_makezd2listzd2zz__r4_pairs_and_lists_6_3z00(BgL_auxz00_4486,
					BgL_oz00_2865);
			}
		}

	}



/* list-tabulate */
	BGL_EXPORTED_DEF obj_t BGl_listzd2tabulatezd2zz__r4_pairs_and_lists_6_3z00(int
		BgL_nz00_117, obj_t BgL_initzd2proczd2_118)
	{
		{	/* Ieee/pairlist.scm 902 */
			{	/* Ieee/pairlist.scm 903 */
				long BgL_g1040z00_1316;

				BgL_g1040z00_1316 = ((long) (BgL_nz00_117) - 1L);
				{
					long BgL_iz00_2459;
					obj_t BgL_rz00_2460;

					BgL_iz00_2459 = BgL_g1040z00_1316;
					BgL_rz00_2460 = BNIL;
				BgL_walkz00_2458:
					if ((BgL_iz00_2459 < 0L))
						{	/* Ieee/pairlist.scm 904 */
							return BgL_rz00_2460;
						}
					else
						{	/* Ieee/pairlist.scm 906 */
							long BgL_arg1613z00_2466;
							obj_t BgL_arg1614z00_2467;

							BgL_arg1613z00_2466 = (BgL_iz00_2459 - 1L);
							{	/* Ieee/pairlist.scm 906 */
								obj_t BgL_arg1615z00_2468;

								BgL_arg1615z00_2468 =
									BGL_PROCEDURE_CALL1(BgL_initzd2proczd2_118,
									BINT(BgL_iz00_2459));
								BgL_arg1614z00_2467 =
									MAKE_YOUNG_PAIR(BgL_arg1615z00_2468, BgL_rz00_2460);
							}
							{
								obj_t BgL_rz00_4508;
								long BgL_iz00_4507;

								BgL_iz00_4507 = BgL_arg1613z00_2466;
								BgL_rz00_4508 = BgL_arg1614z00_2467;
								BgL_rz00_2460 = BgL_rz00_4508;
								BgL_iz00_2459 = BgL_iz00_4507;
								goto BgL_walkz00_2458;
							}
						}
				}
			}
		}

	}



/* &list-tabulate */
	obj_t BGl_z62listzd2tabulatezb0zz__r4_pairs_and_lists_6_3z00(obj_t
		BgL_envz00_2866, obj_t BgL_nz00_2867, obj_t BgL_initzd2proczd2_2868)
	{
		{	/* Ieee/pairlist.scm 902 */
			{	/* Ieee/pairlist.scm 903 */
				obj_t BgL_auxz00_4518;
				int BgL_auxz00_4509;

				if (PROCEDUREP(BgL_initzd2proczd2_2868))
					{	/* Ieee/pairlist.scm 903 */
						BgL_auxz00_4518 = BgL_initzd2proczd2_2868;
					}
				else
					{
						obj_t BgL_auxz00_4521;

						BgL_auxz00_4521 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string2067z00zz__r4_pairs_and_lists_6_3z00, BINT(35529L),
							BGl_string2137z00zz__r4_pairs_and_lists_6_3z00,
							BGl_string2131z00zz__r4_pairs_and_lists_6_3z00,
							BgL_initzd2proczd2_2868);
						FAILURE(BgL_auxz00_4521, BFALSE, BFALSE);
					}
				{	/* Ieee/pairlist.scm 903 */
					obj_t BgL_tmpz00_4510;

					if (INTEGERP(BgL_nz00_2867))
						{	/* Ieee/pairlist.scm 903 */
							BgL_tmpz00_4510 = BgL_nz00_2867;
						}
					else
						{
							obj_t BgL_auxz00_4513;

							BgL_auxz00_4513 =
								BGl_typezd2errorzd2zz__errorz00
								(BGl_string2067z00zz__r4_pairs_and_lists_6_3z00, BINT(35529L),
								BGl_string2137z00zz__r4_pairs_and_lists_6_3z00,
								BGl_string2112z00zz__r4_pairs_and_lists_6_3z00, BgL_nz00_2867);
							FAILURE(BgL_auxz00_4513, BFALSE, BFALSE);
						}
					BgL_auxz00_4509 = CINT(BgL_tmpz00_4510);
				}
				return
					BGl_listzd2tabulatezd2zz__r4_pairs_and_lists_6_3z00(BgL_auxz00_4509,
					BgL_auxz00_4518);
			}
		}

	}



/* list-split */
	BGL_EXPORTED_DEF obj_t BGl_listzd2splitzd2zz__r4_pairs_and_lists_6_3z00(obj_t
		BgL_lz00_119, int BgL_numz00_120, obj_t BgL_fillz00_121)
	{
		{	/* Ieee/pairlist.scm 911 */
			{
				obj_t BgL_lz00_1330;
				long BgL_iz00_1331;
				obj_t BgL_accz00_1332;
				obj_t BgL_resz00_1333;

				BgL_lz00_1330 = BgL_lz00_119;
				BgL_iz00_1331 = 0L;
				BgL_accz00_1332 = BNIL;
				BgL_resz00_1333 = BNIL;
			BgL_zc3z04anonymousza31616ze3z87_1334:
				if (NULLP(BgL_lz00_1330))
					{	/* Ieee/pairlist.scm 918 */
						obj_t BgL_arg1619z00_1336;

						{	/* Ieee/pairlist.scm 918 */
							obj_t BgL_arg1620z00_1337;

							{	/* Ieee/pairlist.scm 918 */
								bool_t BgL_test2487z00_4528;

								if (NULLP(BgL_fillz00_121))
									{	/* Ieee/pairlist.scm 918 */
										BgL_test2487z00_4528 = ((bool_t) 1);
									}
								else
									{	/* Ieee/pairlist.scm 918 */
										if ((BgL_iz00_1331 == (long) (BgL_numz00_120)))
											{	/* Ieee/pairlist.scm 918 */
												BgL_test2487z00_4528 = ((bool_t) 1);
											}
										else
											{	/* Ieee/pairlist.scm 918 */
												BgL_test2487z00_4528 = (BgL_iz00_1331 == 0L);
											}
									}
								if (BgL_test2487z00_4528)
									{	/* Ieee/pairlist.scm 918 */
										BgL_arg1620z00_1337 = bgl_reverse_bang(BgL_accz00_1332);
									}
								else
									{	/* Ieee/pairlist.scm 920 */
										obj_t BgL_arg1624z00_1341;
										obj_t BgL_arg1625z00_1342;

										BgL_arg1624z00_1341 = bgl_reverse_bang(BgL_accz00_1332);
										{	/* Ieee/pairlist.scm 921 */
											long BgL_arg1626z00_1343;
											obj_t BgL_arg1627z00_1344;

											BgL_arg1626z00_1343 =
												((long) (BgL_numz00_120) - BgL_iz00_1331);
											BgL_arg1627z00_1344 = CAR(((obj_t) BgL_fillz00_121));
											{	/* Ieee/pairlist.scm 921 */
												obj_t BgL_list1628z00_1345;

												BgL_list1628z00_1345 =
													MAKE_YOUNG_PAIR(BgL_arg1627z00_1344, BNIL);
												BgL_arg1625z00_1342 =
													BGl_makezd2listzd2zz__r4_pairs_and_lists_6_3z00(
													(int) (BgL_arg1626z00_1343), BgL_list1628z00_1345);
										}}
										BgL_arg1620z00_1337 =
											BGl_appendzd22z12zc0zz__r4_pairs_and_lists_6_3z00
											(BgL_arg1624z00_1341, BgL_arg1625z00_1342);
							}}
							BgL_arg1619z00_1336 =
								MAKE_YOUNG_PAIR(BgL_arg1620z00_1337, BgL_resz00_1333);
						}
						return bgl_reverse_bang(BgL_arg1619z00_1336);
					}
				else
					{	/* Ieee/pairlist.scm 917 */
						if ((BgL_iz00_1331 == (long) (BgL_numz00_120)))
							{	/* Ieee/pairlist.scm 924 */
								obj_t BgL_arg1630z00_1349;

								BgL_arg1630z00_1349 =
									MAKE_YOUNG_PAIR(bgl_reverse_bang(BgL_accz00_1332),
									BgL_resz00_1333);
								{
									obj_t BgL_resz00_4554;
									obj_t BgL_accz00_4553;
									long BgL_iz00_4552;

									BgL_iz00_4552 = 0L;
									BgL_accz00_4553 = BNIL;
									BgL_resz00_4554 = BgL_arg1630z00_1349;
									BgL_resz00_1333 = BgL_resz00_4554;
									BgL_accz00_1332 = BgL_accz00_4553;
									BgL_iz00_1331 = BgL_iz00_4552;
									goto BgL_zc3z04anonymousza31616ze3z87_1334;
								}
							}
						else
							{	/* Ieee/pairlist.scm 926 */
								obj_t BgL_arg1632z00_1351;
								long BgL_arg1633z00_1352;
								obj_t BgL_arg1634z00_1353;

								BgL_arg1632z00_1351 = CDR(((obj_t) BgL_lz00_1330));
								BgL_arg1633z00_1352 = (BgL_iz00_1331 + 1L);
								{	/* Ieee/pairlist.scm 926 */
									obj_t BgL_arg1635z00_1354;

									BgL_arg1635z00_1354 = CAR(((obj_t) BgL_lz00_1330));
									BgL_arg1634z00_1353 =
										MAKE_YOUNG_PAIR(BgL_arg1635z00_1354, BgL_accz00_1332);
								}
								{
									obj_t BgL_accz00_4563;
									long BgL_iz00_4562;
									obj_t BgL_lz00_4561;

									BgL_lz00_4561 = BgL_arg1632z00_1351;
									BgL_iz00_4562 = BgL_arg1633z00_1352;
									BgL_accz00_4563 = BgL_arg1634z00_1353;
									BgL_accz00_1332 = BgL_accz00_4563;
									BgL_iz00_1331 = BgL_iz00_4562;
									BgL_lz00_1330 = BgL_lz00_4561;
									goto BgL_zc3z04anonymousza31616ze3z87_1334;
								}
							}
					}
			}
		}

	}



/* &list-split */
	obj_t BGl_z62listzd2splitzb0zz__r4_pairs_and_lists_6_3z00(obj_t
		BgL_envz00_2869, obj_t BgL_lz00_2870, obj_t BgL_numz00_2871,
		obj_t BgL_fillz00_2872)
	{
		{	/* Ieee/pairlist.scm 911 */
			{	/* Ieee/pairlist.scm 917 */
				int BgL_auxz00_4571;
				obj_t BgL_auxz00_4564;

				{	/* Ieee/pairlist.scm 917 */
					obj_t BgL_tmpz00_4572;

					if (INTEGERP(BgL_numz00_2871))
						{	/* Ieee/pairlist.scm 917 */
							BgL_tmpz00_4572 = BgL_numz00_2871;
						}
					else
						{
							obj_t BgL_auxz00_4575;

							BgL_auxz00_4575 =
								BGl_typezd2errorzd2zz__errorz00
								(BGl_string2067z00zz__r4_pairs_and_lists_6_3z00, BINT(35973L),
								BGl_string2138z00zz__r4_pairs_and_lists_6_3z00,
								BGl_string2112z00zz__r4_pairs_and_lists_6_3z00,
								BgL_numz00_2871);
							FAILURE(BgL_auxz00_4575, BFALSE, BFALSE);
						}
					BgL_auxz00_4571 = CINT(BgL_tmpz00_4572);
				}
				if (BGl_pairzd2orzd2nullzf3zf3zz__r4_pairs_and_lists_6_3z00
					(BgL_lz00_2870))
					{	/* Ieee/pairlist.scm 917 */
						BgL_auxz00_4564 = BgL_lz00_2870;
					}
				else
					{
						obj_t BgL_auxz00_4567;

						BgL_auxz00_4567 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string2067z00zz__r4_pairs_and_lists_6_3z00, BINT(35973L),
							BGl_string2138z00zz__r4_pairs_and_lists_6_3z00,
							BGl_string2105z00zz__r4_pairs_and_lists_6_3z00, BgL_lz00_2870);
						FAILURE(BgL_auxz00_4567, BFALSE, BFALSE);
					}
				return
					BGl_listzd2splitzd2zz__r4_pairs_and_lists_6_3z00(BgL_auxz00_4564,
					BgL_auxz00_4571, BgL_fillz00_2872);
			}
		}

	}



/* list-split! */
	BGL_EXPORTED_DEF obj_t
		BGl_listzd2splitz12zc0zz__r4_pairs_and_lists_6_3z00(obj_t BgL_lz00_122,
		int BgL_numz00_123, obj_t BgL_fillz00_124)
	{
		{	/* Ieee/pairlist.scm 931 */
			{
				obj_t BgL_lz00_1358;
				long BgL_iz00_1359;
				obj_t BgL_lastz00_1360;
				obj_t BgL_accz00_1361;
				obj_t BgL_rowsz00_1362;

				BgL_lz00_1358 = BgL_lz00_122;
				BgL_iz00_1359 = 0L;
				BgL_lastz00_1360 = BFALSE;
				BgL_accz00_1361 = BgL_lz00_122;
				BgL_rowsz00_1362 = BNIL;
			BgL_zc3z04anonymousza31636ze3z87_1363:
				if (NULLP(BgL_lz00_1358))
					{	/* Ieee/pairlist.scm 939 */
						obj_t BgL_lrowz00_1365;

						{	/* Ieee/pairlist.scm 939 */
							bool_t BgL_test2494z00_4583;

							if (NULLP(BgL_fillz00_124))
								{	/* Ieee/pairlist.scm 939 */
									BgL_test2494z00_4583 = ((bool_t) 1);
								}
							else
								{	/* Ieee/pairlist.scm 939 */
									if ((BgL_iz00_1359 == (long) (BgL_numz00_123)))
										{	/* Ieee/pairlist.scm 939 */
											BgL_test2494z00_4583 = ((bool_t) 1);
										}
									else
										{	/* Ieee/pairlist.scm 939 */
											BgL_test2494z00_4583 = (BgL_iz00_1359 == 0L);
										}
								}
							if (BgL_test2494z00_4583)
								{	/* Ieee/pairlist.scm 939 */
									BgL_lrowz00_1365 = BgL_accz00_1361;
								}
							else
								{	/* Ieee/pairlist.scm 939 */
									{	/* Ieee/pairlist.scm 943 */
										obj_t BgL_arg1643z00_1370;

										{	/* Ieee/pairlist.scm 943 */
											long BgL_arg1644z00_1371;
											obj_t BgL_arg1645z00_1372;

											BgL_arg1644z00_1371 =
												((long) (BgL_numz00_123) - BgL_iz00_1359);
											BgL_arg1645z00_1372 = CAR(((obj_t) BgL_fillz00_124));
											{	/* Ieee/pairlist.scm 943 */
												obj_t BgL_list1646z00_1373;

												BgL_list1646z00_1373 =
													MAKE_YOUNG_PAIR(BgL_arg1645z00_1372, BNIL);
												BgL_arg1643z00_1370 =
													BGl_makezd2listzd2zz__r4_pairs_and_lists_6_3z00(
													(int) (BgL_arg1644z00_1371), BgL_list1646z00_1373);
										}}
										{	/* Ieee/pairlist.scm 454 */
											obj_t BgL_tmpz00_4597;

											BgL_tmpz00_4597 = ((obj_t) BgL_lastz00_1360);
											SET_CDR(BgL_tmpz00_4597, BgL_arg1643z00_1370);
									}}
									BgL_lrowz00_1365 = BgL_accz00_1361;
						}}
						{	/* Ieee/pairlist.scm 945 */
							obj_t BgL_arg1639z00_1366;

							BgL_arg1639z00_1366 =
								MAKE_YOUNG_PAIR(BgL_lrowz00_1365, BgL_rowsz00_1362);
							return bgl_reverse_bang(BgL_arg1639z00_1366);
						}
					}
				else
					{	/* Ieee/pairlist.scm 938 */
						if ((BgL_iz00_1359 == (long) (BgL_numz00_123)))
							{	/* Ieee/pairlist.scm 946 */
								{	/* Ieee/pairlist.scm 454 */
									obj_t BgL_tmpz00_4605;

									BgL_tmpz00_4605 = ((obj_t) BgL_lastz00_1360);
									SET_CDR(BgL_tmpz00_4605, BNIL);
								}
								{	/* Ieee/pairlist.scm 948 */
									obj_t BgL_arg1649z00_1377;

									BgL_arg1649z00_1377 =
										MAKE_YOUNG_PAIR(BgL_accz00_1361, BgL_rowsz00_1362);
									{
										obj_t BgL_rowsz00_4612;
										obj_t BgL_accz00_4611;
										obj_t BgL_lastz00_4610;
										long BgL_iz00_4609;

										BgL_iz00_4609 = 0L;
										BgL_lastz00_4610 = BgL_lz00_1358;
										BgL_accz00_4611 = BgL_lz00_1358;
										BgL_rowsz00_4612 = BgL_arg1649z00_1377;
										BgL_rowsz00_1362 = BgL_rowsz00_4612;
										BgL_accz00_1361 = BgL_accz00_4611;
										BgL_lastz00_1360 = BgL_lastz00_4610;
										BgL_iz00_1359 = BgL_iz00_4609;
										goto BgL_zc3z04anonymousza31636ze3z87_1363;
									}
								}
							}
						else
							{	/* Ieee/pairlist.scm 950 */
								obj_t BgL_arg1651z00_1378;
								long BgL_arg1652z00_1379;

								BgL_arg1651z00_1378 = CDR(((obj_t) BgL_lz00_1358));
								BgL_arg1652z00_1379 = (BgL_iz00_1359 + 1L);
								{
									obj_t BgL_lastz00_4618;
									long BgL_iz00_4617;
									obj_t BgL_lz00_4616;

									BgL_lz00_4616 = BgL_arg1651z00_1378;
									BgL_iz00_4617 = BgL_arg1652z00_1379;
									BgL_lastz00_4618 = BgL_lz00_1358;
									BgL_lastz00_1360 = BgL_lastz00_4618;
									BgL_iz00_1359 = BgL_iz00_4617;
									BgL_lz00_1358 = BgL_lz00_4616;
									goto BgL_zc3z04anonymousza31636ze3z87_1363;
								}
							}
					}
			}
		}

	}



/* &list-split! */
	obj_t BGl_z62listzd2splitz12za2zz__r4_pairs_and_lists_6_3z00(obj_t
		BgL_envz00_2873, obj_t BgL_lz00_2874, obj_t BgL_numz00_2875,
		obj_t BgL_fillz00_2876)
	{
		{	/* Ieee/pairlist.scm 931 */
			{	/* Ieee/pairlist.scm 938 */
				int BgL_auxz00_4626;
				obj_t BgL_auxz00_4619;

				{	/* Ieee/pairlist.scm 938 */
					obj_t BgL_tmpz00_4627;

					if (INTEGERP(BgL_numz00_2875))
						{	/* Ieee/pairlist.scm 938 */
							BgL_tmpz00_4627 = BgL_numz00_2875;
						}
					else
						{
							obj_t BgL_auxz00_4630;

							BgL_auxz00_4630 =
								BGl_typezd2errorzd2zz__errorz00
								(BGl_string2067z00zz__r4_pairs_and_lists_6_3z00, BINT(36643L),
								BGl_string2139z00zz__r4_pairs_and_lists_6_3z00,
								BGl_string2112z00zz__r4_pairs_and_lists_6_3z00,
								BgL_numz00_2875);
							FAILURE(BgL_auxz00_4630, BFALSE, BFALSE);
						}
					BgL_auxz00_4626 = CINT(BgL_tmpz00_4627);
				}
				if (BGl_pairzd2orzd2nullzf3zf3zz__r4_pairs_and_lists_6_3z00
					(BgL_lz00_2874))
					{	/* Ieee/pairlist.scm 938 */
						BgL_auxz00_4619 = BgL_lz00_2874;
					}
				else
					{
						obj_t BgL_auxz00_4622;

						BgL_auxz00_4622 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string2067z00zz__r4_pairs_and_lists_6_3z00, BINT(36643L),
							BGl_string2139z00zz__r4_pairs_and_lists_6_3z00,
							BGl_string2105z00zz__r4_pairs_and_lists_6_3z00, BgL_lz00_2874);
						FAILURE(BgL_auxz00_4622, BFALSE, BFALSE);
					}
				return
					BGl_listzd2splitz12zc0zz__r4_pairs_and_lists_6_3z00(BgL_auxz00_4619,
					BgL_auxz00_4626, BgL_fillz00_2876);
			}
		}

	}



/* iota */
	BGL_EXPORTED_DEF obj_t BGl_iotaz00zz__r4_pairs_and_lists_6_3z00(int
		BgL_countz00_125, obj_t BgL_restz00_126)
	{
		{	/* Ieee/pairlist.scm 955 */
			{	/* Ieee/pairlist.scm 956 */
				obj_t BgL_startz00_1381;
				obj_t BgL_stepz00_1382;

				BgL_startz00_1381 = BINT(0L);
				BgL_stepz00_1382 = BINT(1L);
				if (PAIRP(BgL_restz00_126))
					{	/* Ieee/pairlist.scm 958 */
						BgL_startz00_1381 = CAR(BgL_restz00_126);
						{	/* Ieee/pairlist.scm 961 */
							bool_t BgL_test2501z00_4641;

							{	/* Ieee/pairlist.scm 229 */
								obj_t BgL_tmpz00_4642;

								BgL_tmpz00_4642 = CDR(BgL_restz00_126);
								BgL_test2501z00_4641 = PAIRP(BgL_tmpz00_4642);
							}
							if (BgL_test2501z00_4641)
								{	/* Ieee/pairlist.scm 961 */
									BgL_stepz00_1382 = CAR(CDR(BgL_restz00_126));
								}
							else
								{	/* Ieee/pairlist.scm 961 */
									BFALSE;
								}
						}
					}
				else
					{	/* Ieee/pairlist.scm 958 */
						BFALSE;
					}
				{	/* Ieee/pairlist.scm 963 */
					obj_t BgL_g1045z00_1387;

					{	/* Ieee/pairlist.scm 963 */
						obj_t BgL_b1097z00_1400;

						{	/* Ieee/pairlist.scm 963 */
							obj_t BgL_a1096z00_1402;

							{	/* Ieee/pairlist.scm 963 */
								obj_t BgL_za71za7_2500;

								BgL_za71za7_2500 = BINT(BgL_countz00_125);
								{	/* Ieee/pairlist.scm 963 */
									obj_t BgL_tmpz00_2502;

									BgL_tmpz00_2502 = BINT(0L);
									{	/* Ieee/pairlist.scm 963 */
										bool_t BgL_test2502z00_4649;

										{	/* Ieee/pairlist.scm 963 */
											obj_t BgL_tmpz00_4650;

											BgL_tmpz00_4650 = BINT(1L);
											BgL_test2502z00_4649 =
												BGL_SUBFX_OV(BgL_za71za7_2500, BgL_tmpz00_4650,
												BgL_tmpz00_2502);
										}
										if (BgL_test2502z00_4649)
											{	/* Ieee/pairlist.scm 963 */
												BgL_a1096z00_1402 =
													bgl_bignum_sub(bgl_long_to_bignum(
														(long) CINT(BgL_za71za7_2500)),
													bgl_long_to_bignum(1L));
											}
										else
											{	/* Ieee/pairlist.scm 963 */
												BgL_a1096z00_1402 = BgL_tmpz00_2502;
											}
									}
								}
							}
							{	/* Ieee/pairlist.scm 963 */
								bool_t BgL_test2503z00_4657;

								if (INTEGERP(BgL_a1096z00_1402))
									{	/* Ieee/pairlist.scm 963 */
										BgL_test2503z00_4657 = INTEGERP(BgL_stepz00_1382);
									}
								else
									{	/* Ieee/pairlist.scm 963 */
										BgL_test2503z00_4657 = ((bool_t) 0);
									}
								if (BgL_test2503z00_4657)
									{	/* Ieee/pairlist.scm 963 */
										obj_t BgL_za72za7_2511;

										BgL_za72za7_2511 = BgL_stepz00_1382;
										{	/* Ieee/pairlist.scm 963 */
											obj_t BgL_tmpz00_2512;

											BgL_tmpz00_2512 = BINT(0L);
											if (BGL_MULFX_OV(BgL_a1096z00_1402, BgL_za72za7_2511,
													BgL_tmpz00_2512))
												{	/* Ieee/pairlist.scm 963 */
													BgL_b1097z00_1400 =
														bgl_bignum_mul(bgl_long_to_bignum(
															(long) CINT(BgL_a1096z00_1402)),
														bgl_long_to_bignum((long) CINT(BgL_za72za7_2511)));
												}
											else
												{	/* Ieee/pairlist.scm 963 */
													BgL_b1097z00_1400 = BgL_tmpz00_2512;
												}
										}
									}
								else
									{	/* Ieee/pairlist.scm 963 */
										BgL_b1097z00_1400 =
											BGl_2za2za2zz__r4_numbers_6_5z00(BgL_a1096z00_1402,
											BgL_stepz00_1382);
									}
							}
						}
						{	/* Ieee/pairlist.scm 963 */
							bool_t BgL_test2506z00_4670;

							if (INTEGERP(BgL_startz00_1381))
								{	/* Ieee/pairlist.scm 963 */
									BgL_test2506z00_4670 = INTEGERP(BgL_b1097z00_1400);
								}
							else
								{	/* Ieee/pairlist.scm 963 */
									BgL_test2506z00_4670 = ((bool_t) 0);
								}
							if (BgL_test2506z00_4670)
								{	/* Ieee/pairlist.scm 963 */
									obj_t BgL_za71za7_2520;

									BgL_za71za7_2520 = BgL_startz00_1381;
									{	/* Ieee/pairlist.scm 963 */
										obj_t BgL_tmpz00_2522;

										BgL_tmpz00_2522 = BINT(0L);
										if (BGL_ADDFX_OV(BgL_za71za7_2520, BgL_b1097z00_1400,
												BgL_tmpz00_2522))
											{	/* Ieee/pairlist.scm 963 */
												BgL_g1045z00_1387 =
													bgl_bignum_add(bgl_long_to_bignum(
														(long) CINT(BgL_za71za7_2520)),
													bgl_long_to_bignum((long) CINT(BgL_b1097z00_1400)));
											}
										else
											{	/* Ieee/pairlist.scm 963 */
												BgL_g1045z00_1387 = BgL_tmpz00_2522;
											}
									}
								}
							else
								{	/* Ieee/pairlist.scm 963 */
									BgL_g1045z00_1387 =
										BGl_2zb2zb2zz__r4_numbers_6_5z00(BgL_startz00_1381,
										BgL_b1097z00_1400);
								}
						}
					}
					{
						int BgL_iz00_2565;
						obj_t BgL_vz00_2566;
						obj_t BgL_rz00_2567;

						BgL_iz00_2565 = BgL_countz00_125;
						BgL_vz00_2566 = BgL_g1045z00_1387;
						BgL_rz00_2567 = BNIL;
					BgL_walkz00_2564:
						if (((long) (BgL_iz00_2565) <= 0L))
							{	/* Ieee/pairlist.scm 964 */
								return BgL_rz00_2567;
							}
						else
							{	/* Ieee/pairlist.scm 966 */
								long BgL_arg1662z00_2574;
								obj_t BgL_arg1664z00_2575;
								obj_t BgL_arg1665z00_2576;

								BgL_arg1662z00_2574 = ((long) (BgL_iz00_2565) - 1L);
								{	/* Ieee/pairlist.scm 966 */
									bool_t BgL_test2510z00_4688;

									if (INTEGERP(BgL_vz00_2566))
										{	/* Ieee/pairlist.scm 966 */
											BgL_test2510z00_4688 = INTEGERP(BgL_stepz00_1382);
										}
									else
										{	/* Ieee/pairlist.scm 966 */
											BgL_test2510z00_4688 = ((bool_t) 0);
										}
									if (BgL_test2510z00_4688)
										{	/* Ieee/pairlist.scm 966 */
											obj_t BgL_za72za7_2581;

											BgL_za72za7_2581 = BgL_stepz00_1382;
											{	/* Ieee/pairlist.scm 966 */
												obj_t BgL_tmpz00_2582;

												BgL_tmpz00_2582 = BINT(0L);
												if (BGL_SUBFX_OV(BgL_vz00_2566, BgL_za72za7_2581,
														BgL_tmpz00_2582))
													{	/* Ieee/pairlist.scm 966 */
														BgL_arg1664z00_2575 =
															bgl_bignum_sub(bgl_long_to_bignum(
																(long) CINT(BgL_vz00_2566)),
															bgl_long_to_bignum(
																(long) CINT(BgL_za72za7_2581)));
													}
												else
													{	/* Ieee/pairlist.scm 966 */
														BgL_arg1664z00_2575 = BgL_tmpz00_2582;
													}
											}
										}
									else
										{	/* Ieee/pairlist.scm 966 */
											BgL_arg1664z00_2575 =
												BGl_2zd2zd2zz__r4_numbers_6_5z00(BgL_vz00_2566,
												BgL_stepz00_1382);
										}
								}
								BgL_arg1665z00_2576 =
									MAKE_YOUNG_PAIR(BgL_vz00_2566, BgL_rz00_2567);
								{
									obj_t BgL_rz00_4705;
									obj_t BgL_vz00_4704;
									int BgL_iz00_4702;

									BgL_iz00_4702 = (int) (BgL_arg1662z00_2574);
									BgL_vz00_4704 = BgL_arg1664z00_2575;
									BgL_rz00_4705 = BgL_arg1665z00_2576;
									BgL_rz00_2567 = BgL_rz00_4705;
									BgL_vz00_2566 = BgL_vz00_4704;
									BgL_iz00_2565 = BgL_iz00_4702;
									goto BgL_walkz00_2564;
								}
							}
					}
				}
			}
		}

	}



/* &iota */
	obj_t BGl_z62iotaz62zz__r4_pairs_and_lists_6_3z00(obj_t BgL_envz00_2877,
		obj_t BgL_countz00_2878, obj_t BgL_restz00_2879)
	{
		{	/* Ieee/pairlist.scm 955 */
			{	/* Ieee/pairlist.scm 956 */
				int BgL_auxz00_4706;

				{	/* Ieee/pairlist.scm 956 */
					obj_t BgL_tmpz00_4707;

					if (INTEGERP(BgL_countz00_2878))
						{	/* Ieee/pairlist.scm 956 */
							BgL_tmpz00_4707 = BgL_countz00_2878;
						}
					else
						{
							obj_t BgL_auxz00_4710;

							BgL_auxz00_4710 =
								BGl_typezd2errorzd2zz__errorz00
								(BGl_string2067z00zz__r4_pairs_and_lists_6_3z00, BINT(37234L),
								BGl_string2140z00zz__r4_pairs_and_lists_6_3z00,
								BGl_string2112z00zz__r4_pairs_and_lists_6_3z00,
								BgL_countz00_2878);
							FAILURE(BgL_auxz00_4710, BFALSE, BFALSE);
						}
					BgL_auxz00_4706 = CINT(BgL_tmpz00_4707);
				}
				return
					BGl_iotaz00zz__r4_pairs_and_lists_6_3z00(BgL_auxz00_4706,
					BgL_restz00_2879);
			}
		}

	}



/* list-copy */
	BGL_EXPORTED_DEF obj_t BGl_listzd2copyzd2zz__r4_pairs_and_lists_6_3z00(obj_t
		BgL_lz00_127)
	{
		{	/* Ieee/pairlist.scm 971 */
			if (NULLP(BgL_lz00_127))
				{	/* Ieee/pairlist.scm 972 */
					return BgL_lz00_127;
				}
			else
				{	/* Ieee/pairlist.scm 972 */
					return
						MAKE_YOUNG_PAIR(CAR(BgL_lz00_127),
						BGl_listzd2copyzd2zz__r4_pairs_and_lists_6_3z00(CDR(BgL_lz00_127)));
				}
		}

	}



/* &list-copy */
	obj_t BGl_z62listzd2copyzb0zz__r4_pairs_and_lists_6_3z00(obj_t
		BgL_envz00_2880, obj_t BgL_lz00_2881)
	{
		{	/* Ieee/pairlist.scm 971 */
			{	/* Ieee/pairlist.scm 972 */
				obj_t BgL_auxz00_4722;

				if (BGl_pairzd2orzd2nullzf3zf3zz__r4_pairs_and_lists_6_3z00
					(BgL_lz00_2881))
					{	/* Ieee/pairlist.scm 972 */
						BgL_auxz00_4722 = BgL_lz00_2881;
					}
				else
					{
						obj_t BgL_auxz00_4725;

						BgL_auxz00_4725 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string2067z00zz__r4_pairs_and_lists_6_3z00, BINT(37778L),
							BGl_string2141z00zz__r4_pairs_and_lists_6_3z00,
							BGl_string2105z00zz__r4_pairs_and_lists_6_3z00, BgL_lz00_2881);
						FAILURE(BgL_auxz00_4725, BFALSE, BFALSE);
					}
				return BGl_listzd2copyzd2zz__r4_pairs_and_lists_6_3z00(BgL_auxz00_4722);
			}
		}

	}



/* tree-copy */
	BGL_EXPORTED_DEF obj_t BGl_treezd2copyzd2zz__r4_pairs_and_lists_6_3z00(obj_t
		BgL_lz00_128)
	{
		{	/* Ieee/pairlist.scm 979 */
			if (EPAIRP(BgL_lz00_128))
				{	/* Ieee/pairlist.scm 982 */
					obj_t BgL_arg1675z00_1409;
					obj_t BgL_arg1681z00_1410;
					obj_t BgL_arg1683z00_1411;

					{	/* Ieee/pairlist.scm 982 */
						obj_t BgL_arg1687z00_1412;

						BgL_arg1687z00_1412 = CAR(((obj_t) BgL_lz00_128));
						BgL_arg1675z00_1409 =
							BGl_treezd2copyzd2zz__r4_pairs_and_lists_6_3z00
							(BgL_arg1687z00_1412);
					}
					{	/* Ieee/pairlist.scm 982 */
						obj_t BgL_arg1689z00_1413;

						BgL_arg1689z00_1413 = CDR(((obj_t) BgL_lz00_128));
						BgL_arg1681z00_1410 =
							BGl_treezd2copyzd2zz__r4_pairs_and_lists_6_3z00
							(BgL_arg1689z00_1413);
					}
					{	/* Ieee/pairlist.scm 982 */
						obj_t BgL_arg1690z00_1414;

						BgL_arg1690z00_1414 = CER(((obj_t) BgL_lz00_128));
						BgL_arg1683z00_1411 =
							BGl_treezd2copyzd2zz__r4_pairs_and_lists_6_3z00
							(BgL_arg1690z00_1414);
					}
					{	/* Ieee/pairlist.scm 982 */
						obj_t BgL_res1874z00_2599;

						BgL_res1874z00_2599 =
							MAKE_YOUNG_EPAIR(BgL_arg1675z00_1409, BgL_arg1681z00_1410,
							BgL_arg1683z00_1411);
						return BgL_res1874z00_2599;
					}
				}
			else
				{	/* Ieee/pairlist.scm 981 */
					if (PAIRP(BgL_lz00_128))
						{	/* Ieee/pairlist.scm 983 */
							return
								MAKE_YOUNG_PAIR(BGl_treezd2copyzd2zz__r4_pairs_and_lists_6_3z00
								(CAR(BgL_lz00_128)),
								BGl_treezd2copyzd2zz__r4_pairs_and_lists_6_3z00(CDR
									(BgL_lz00_128)));
						}
					else
						{	/* Ieee/pairlist.scm 983 */
							return BgL_lz00_128;
						}
				}
		}

	}



/* &tree-copy */
	obj_t BGl_z62treezd2copyzb0zz__r4_pairs_and_lists_6_3z00(obj_t
		BgL_envz00_2882, obj_t BgL_lz00_2883)
	{
		{	/* Ieee/pairlist.scm 979 */
			return BGl_treezd2copyzd2zz__r4_pairs_and_lists_6_3z00(BgL_lz00_2883);
		}

	}



/* _delete-duplicates */
	obj_t BGl__deletezd2duplicateszd2zz__r4_pairs_and_lists_6_3z00(obj_t
		BgL_env1118z00_132, obj_t BgL_opt1117z00_131)
	{
		{	/* Ieee/pairlist.scm 991 */
			{	/* Ieee/pairlist.scm 991 */
				obj_t BgL_g1119z00_1420;

				{
					obj_t BgL_auxz00_4750;

					if (VECTORP(BgL_opt1117z00_131))
						{	/* Ieee/pairlist.scm 991 */
							BgL_auxz00_4750 = BgL_opt1117z00_131;
						}
					else
						{
							obj_t BgL_auxz00_4753;

							BgL_auxz00_4753 =
								BGl_typezd2errorzd2zz__errorz00
								(BGl_string2067z00zz__r4_pairs_and_lists_6_3z00, BINT(38512L),
								BGl_string2142z00zz__r4_pairs_and_lists_6_3z00,
								BGl_string2127z00zz__r4_pairs_and_lists_6_3z00,
								BgL_opt1117z00_131);
							FAILURE(BgL_auxz00_4753, BFALSE, BFALSE);
						}
					BgL_g1119z00_1420 = VECTOR_REF(BgL_auxz00_4750, 0L);
				}
				{	/* Ieee/pairlist.scm 991 */
					long BgL_aux1121z00_1422;

					{
						obj_t BgL_auxz00_4758;

						if (VECTORP(BgL_opt1117z00_131))
							{	/* Ieee/pairlist.scm 991 */
								BgL_auxz00_4758 = BgL_opt1117z00_131;
							}
						else
							{
								obj_t BgL_auxz00_4761;

								BgL_auxz00_4761 =
									BGl_typezd2errorzd2zz__errorz00
									(BGl_string2067z00zz__r4_pairs_and_lists_6_3z00, BINT(38512L),
									BGl_string2142z00zz__r4_pairs_and_lists_6_3z00,
									BGl_string2127z00zz__r4_pairs_and_lists_6_3z00,
									BgL_opt1117z00_131);
								FAILURE(BgL_auxz00_4761, BFALSE, BFALSE);
							}
						BgL_aux1121z00_1422 = VECTOR_LENGTH(BgL_auxz00_4758);
					}
					switch (BgL_aux1121z00_1422)
						{
						case 1L:

							{	/* Ieee/pairlist.scm 991 */

								{	/* Ieee/pairlist.scm 991 */
									obj_t BgL_lisz00_2602;

									if (BGl_pairzd2orzd2nullzf3zf3zz__r4_pairs_and_lists_6_3z00
										(BgL_g1119z00_1420))
										{	/* Ieee/pairlist.scm 991 */
											BgL_lisz00_2602 = BgL_g1119z00_1420;
										}
									else
										{
											obj_t BgL_auxz00_4768;

											BgL_auxz00_4768 =
												BGl_typezd2errorzd2zz__errorz00
												(BGl_string2067z00zz__r4_pairs_and_lists_6_3z00,
												BINT(38512L),
												BGl_string2142z00zz__r4_pairs_and_lists_6_3z00,
												BGl_string2105z00zz__r4_pairs_and_lists_6_3z00,
												BgL_g1119z00_1420);
											FAILURE(BgL_auxz00_4768, BFALSE, BFALSE);
										}
									return
										BGl_deletezd2duplicatesz12zc0zz__r4_pairs_and_lists_6_3z00
										(BGl_listzd2copyzd2zz__r4_pairs_and_lists_6_3z00
										(BgL_lisz00_2602),
										BGl_equalzf3zd2envz21zz__r4_equivalence_6_2z00);
								}
							}
							break;
						case 2L:

							{	/* Ieee/pairlist.scm 991 */
								obj_t BgL_eqz00_1424;

								{
									obj_t BgL_auxz00_4774;

									if (VECTORP(BgL_opt1117z00_131))
										{	/* Ieee/pairlist.scm 991 */
											BgL_auxz00_4774 = BgL_opt1117z00_131;
										}
									else
										{
											obj_t BgL_auxz00_4777;

											BgL_auxz00_4777 =
												BGl_typezd2errorzd2zz__errorz00
												(BGl_string2067z00zz__r4_pairs_and_lists_6_3z00,
												BINT(38512L),
												BGl_string2142z00zz__r4_pairs_and_lists_6_3z00,
												BGl_string2127z00zz__r4_pairs_and_lists_6_3z00,
												BgL_opt1117z00_131);
											FAILURE(BgL_auxz00_4777, BFALSE, BFALSE);
										}
									BgL_eqz00_1424 = VECTOR_REF(BgL_auxz00_4774, 1L);
								}
								{	/* Ieee/pairlist.scm 991 */

									{	/* Ieee/pairlist.scm 991 */
										obj_t BgL_lisz00_2604;

										if (BGl_pairzd2orzd2nullzf3zf3zz__r4_pairs_and_lists_6_3z00
											(BgL_g1119z00_1420))
											{	/* Ieee/pairlist.scm 991 */
												BgL_lisz00_2604 = BgL_g1119z00_1420;
											}
										else
											{
												obj_t BgL_auxz00_4784;

												BgL_auxz00_4784 =
													BGl_typezd2errorzd2zz__errorz00
													(BGl_string2067z00zz__r4_pairs_and_lists_6_3z00,
													BINT(38512L),
													BGl_string2142z00zz__r4_pairs_and_lists_6_3z00,
													BGl_string2105z00zz__r4_pairs_and_lists_6_3z00,
													BgL_g1119z00_1420);
												FAILURE(BgL_auxz00_4784, BFALSE, BFALSE);
											}
										return
											BGl_deletezd2duplicatesz12zc0zz__r4_pairs_and_lists_6_3z00
											(BGl_listzd2copyzd2zz__r4_pairs_and_lists_6_3z00
											(BgL_lisz00_2604), BgL_eqz00_1424);
									}
								}
							}
							break;
						default:
							return BUNSPEC;
						}
				}
			}
		}

	}



/* delete-duplicates */
	BGL_EXPORTED_DEF obj_t
		BGl_deletezd2duplicateszd2zz__r4_pairs_and_lists_6_3z00(obj_t
		BgL_lisz00_129, obj_t BgL_eqz00_130)
	{
		{	/* Ieee/pairlist.scm 991 */
			BGL_TAIL return
				BGl_deletezd2duplicatesz12zc0zz__r4_pairs_and_lists_6_3z00
				(BGl_listzd2copyzd2zz__r4_pairs_and_lists_6_3z00(BgL_lisz00_129),
				BgL_eqz00_130);
		}

	}



/* _delete-duplicates! */
	obj_t BGl__deletezd2duplicatesz12zc0zz__r4_pairs_and_lists_6_3z00(obj_t
		BgL_env1123z00_136, obj_t BgL_opt1122z00_135)
	{
		{	/* Ieee/pairlist.scm 997 */
			{	/* Ieee/pairlist.scm 997 */
				obj_t BgL_g1124z00_1426;

				{
					obj_t BgL_auxz00_4793;

					if (VECTORP(BgL_opt1122z00_135))
						{	/* Ieee/pairlist.scm 997 */
							BgL_auxz00_4793 = BgL_opt1122z00_135;
						}
					else
						{
							obj_t BgL_auxz00_4796;

							BgL_auxz00_4796 =
								BGl_typezd2errorzd2zz__errorz00
								(BGl_string2067z00zz__r4_pairs_and_lists_6_3z00, BINT(38834L),
								BGl_string2143z00zz__r4_pairs_and_lists_6_3z00,
								BGl_string2127z00zz__r4_pairs_and_lists_6_3z00,
								BgL_opt1122z00_135);
							FAILURE(BgL_auxz00_4796, BFALSE, BFALSE);
						}
					BgL_g1124z00_1426 = VECTOR_REF(BgL_auxz00_4793, 0L);
				}
				{	/* Ieee/pairlist.scm 997 */
					long BgL_aux1126z00_1428;

					{
						obj_t BgL_auxz00_4801;

						if (VECTORP(BgL_opt1122z00_135))
							{	/* Ieee/pairlist.scm 997 */
								BgL_auxz00_4801 = BgL_opt1122z00_135;
							}
						else
							{
								obj_t BgL_auxz00_4804;

								BgL_auxz00_4804 =
									BGl_typezd2errorzd2zz__errorz00
									(BGl_string2067z00zz__r4_pairs_and_lists_6_3z00, BINT(38834L),
									BGl_string2143z00zz__r4_pairs_and_lists_6_3z00,
									BGl_string2127z00zz__r4_pairs_and_lists_6_3z00,
									BgL_opt1122z00_135);
								FAILURE(BgL_auxz00_4804, BFALSE, BFALSE);
							}
						BgL_aux1126z00_1428 = VECTOR_LENGTH(BgL_auxz00_4801);
					}
					switch (BgL_aux1126z00_1428)
						{
						case 1L:

							{	/* Ieee/pairlist.scm 997 */

								{	/* Ieee/pairlist.scm 997 */
									obj_t BgL_auxz00_4809;

									if (BGl_pairzd2orzd2nullzf3zf3zz__r4_pairs_and_lists_6_3z00
										(BgL_g1124z00_1426))
										{	/* Ieee/pairlist.scm 997 */
											BgL_auxz00_4809 = BgL_g1124z00_1426;
										}
									else
										{
											obj_t BgL_auxz00_4812;

											BgL_auxz00_4812 =
												BGl_typezd2errorzd2zz__errorz00
												(BGl_string2067z00zz__r4_pairs_and_lists_6_3z00,
												BINT(38834L),
												BGl_string2143z00zz__r4_pairs_and_lists_6_3z00,
												BGl_string2105z00zz__r4_pairs_and_lists_6_3z00,
												BgL_g1124z00_1426);
											FAILURE(BgL_auxz00_4812, BFALSE, BFALSE);
										}
									return
										BGl_deletezd2duplicatesz12zc0zz__r4_pairs_and_lists_6_3z00
										(BgL_auxz00_4809,
										BGl_equalzf3zd2envz21zz__r4_equivalence_6_2z00);
								}
							}
							break;
						case 2L:

							{	/* Ieee/pairlist.scm 997 */
								obj_t BgL_eqz00_1430;

								{
									obj_t BgL_auxz00_4817;

									if (VECTORP(BgL_opt1122z00_135))
										{	/* Ieee/pairlist.scm 997 */
											BgL_auxz00_4817 = BgL_opt1122z00_135;
										}
									else
										{
											obj_t BgL_auxz00_4820;

											BgL_auxz00_4820 =
												BGl_typezd2errorzd2zz__errorz00
												(BGl_string2067z00zz__r4_pairs_and_lists_6_3z00,
												BINT(38834L),
												BGl_string2143z00zz__r4_pairs_and_lists_6_3z00,
												BGl_string2127z00zz__r4_pairs_and_lists_6_3z00,
												BgL_opt1122z00_135);
											FAILURE(BgL_auxz00_4820, BFALSE, BFALSE);
										}
									BgL_eqz00_1430 = VECTOR_REF(BgL_auxz00_4817, 1L);
								}
								{	/* Ieee/pairlist.scm 997 */

									{	/* Ieee/pairlist.scm 997 */
										obj_t BgL_auxz00_4825;

										if (BGl_pairzd2orzd2nullzf3zf3zz__r4_pairs_and_lists_6_3z00
											(BgL_g1124z00_1426))
											{	/* Ieee/pairlist.scm 997 */
												BgL_auxz00_4825 = BgL_g1124z00_1426;
											}
										else
											{
												obj_t BgL_auxz00_4828;

												BgL_auxz00_4828 =
													BGl_typezd2errorzd2zz__errorz00
													(BGl_string2067z00zz__r4_pairs_and_lists_6_3z00,
													BINT(38834L),
													BGl_string2143z00zz__r4_pairs_and_lists_6_3z00,
													BGl_string2105z00zz__r4_pairs_and_lists_6_3z00,
													BgL_g1124z00_1426);
												FAILURE(BgL_auxz00_4828, BFALSE, BFALSE);
											}
										return
											BGl_deletezd2duplicatesz12zc0zz__r4_pairs_and_lists_6_3z00
											(BgL_auxz00_4825, BgL_eqz00_1430);
									}
								}
							}
							break;
						default:
							return BUNSPEC;
						}
				}
			}
		}

	}



/* delete-duplicates! */
	BGL_EXPORTED_DEF obj_t
		BGl_deletezd2duplicatesz12zc0zz__r4_pairs_and_lists_6_3z00(obj_t
		BgL_lisz00_133, obj_t BgL_eqz00_134)
	{
		{	/* Ieee/pairlist.scm 997 */
			if (PROCEDUREP(BgL_eqz00_134))
				{	/* Ieee/pairlist.scm 998 */
					BFALSE;
				}
			else
				{	/* Ieee/pairlist.scm 998 */
					BGl_bigloozd2typezd2errorz00zz__errorz00
						(BGl_symbol2144z00zz__r4_pairs_and_lists_6_3z00,
						BGl_string2131z00zz__r4_pairs_and_lists_6_3z00, BgL_eqz00_134);
				}
			return
				BGl_recurze70ze7zz__r4_pairs_and_lists_6_3z00(BgL_eqz00_134,
				BgL_lisz00_133);
		}

	}



/* recur~0 */
	obj_t BGl_recurze70ze7zz__r4_pairs_and_lists_6_3z00(obj_t BgL_eqz00_2884,
		obj_t BgL_lisz00_1433)
	{
		{	/* Ieee/pairlist.scm 1000 */
			if (NULLP(BgL_lisz00_1433))
				{	/* Ieee/pairlist.scm 1001 */
					return BgL_lisz00_1433;
				}
			else
				{	/* Ieee/pairlist.scm 1002 */
					obj_t BgL_xz00_1436;

					BgL_xz00_1436 = CAR(BgL_lisz00_1433);
					{	/* Ieee/pairlist.scm 1002 */
						obj_t BgL_tailz00_1437;

						BgL_tailz00_1437 = CDR(BgL_lisz00_1433);
						{	/* Ieee/pairlist.scm 1003 */
							obj_t BgL_newzd2tailzd2_1438;

							BgL_newzd2tailzd2_1438 =
								BGl_recurze70ze7zz__r4_pairs_and_lists_6_3z00(BgL_eqz00_2884,
								BGl_deletez12z12zz__r4_pairs_and_lists_6_3z00(BgL_xz00_1436,
									BgL_tailz00_1437, BgL_eqz00_2884));
							{	/* Ieee/pairlist.scm 1004 */

								if ((BgL_tailz00_1437 == BgL_newzd2tailzd2_1438))
									{	/* Ieee/pairlist.scm 1005 */
										return BgL_lisz00_1433;
									}
								else
									{	/* Ieee/pairlist.scm 1005 */
										return
											MAKE_YOUNG_PAIR(BgL_xz00_1436, BgL_newzd2tailzd2_1438);
									}
							}
						}
					}
				}
		}

	}



/* imported-modules-init */
	obj_t BGl_importedzd2moduleszd2initz00zz__r4_pairs_and_lists_6_3z00(void)
	{
		{	/* Ieee/pairlist.scm 18 */
			BGl_modulezd2initializa7ationz75zz__errorz00(88804785L,
				BSTRING_TO_STRING(BGl_string2146z00zz__r4_pairs_and_lists_6_3z00));
			return
				BGl_modulezd2initializa7ationz75zz__paramz00(453939141L,
				BSTRING_TO_STRING(BGl_string2146z00zz__r4_pairs_and_lists_6_3z00));
		}

	}

#ifdef __cplusplus
}
#endif
