/*===========================================================================*/
/*   (Ast/dump.scm)                                                          */
/*   Bigloo (4.5b)                                                           */
/*   Inria -- Sophia Antipolis (c)       Fri Dec 22 05:17:06 PM CET 2023     */
/*===========================================================================*/
/* COMPILATION: (/home/serrano/prgm/project/bigloo/bigloo/bin/bigloo -ldopt -L/home/serrano/prgm/project/bigloo/bigloo/libbacktrace/home/serrano/prgm/project/bigloo/bigloo/lib/bigloo/4.5b  -q -afile .afile -fsharing -fno-reflection -cc gcc -lib-dir /home/serrano/prgm/project/bigloo/bigloo/lib/bigloo/4.5b -unsafev -gno-error-localization -no-hello -O2 -rm -unsafe -s -stdc -indent Ast/dump.scm) */
/* 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_AST_DUMP_TYPE_DEFINITIONS
#define BGL_AST_DUMP_TYPE_DEFINITIONS

/* object type definitions */
	typedef struct BgL_typez00_bgl
	{
		header_t header;
		obj_t widening;
		obj_t BgL_idz00;
		obj_t BgL_namez00;
		obj_t BgL_siza7eza7;
		obj_t BgL_classz00;
		obj_t BgL_coercezd2tozd2;
		obj_t BgL_parentsz00;
		bool_t BgL_initzf3zf3;
		bool_t BgL_magiczf3zf3;
		obj_t BgL_z42z42;
		obj_t BgL_aliasz00;
		obj_t BgL_pointedzd2tozd2byz00;
		obj_t BgL_tvectorz00;
		obj_t BgL_locationz00;
		obj_t BgL_importzd2locationzd2;
		int BgL_occurrencez00;
	}              *BgL_typez00_bglt;

	typedef struct BgL_valuez00_bgl
	{
		header_t header;
		obj_t widening;
	}               *BgL_valuez00_bglt;

	typedef struct BgL_variablez00_bgl
	{
		header_t header;
		obj_t widening;
		obj_t BgL_idz00;
		obj_t BgL_namez00;
		struct BgL_typez00_bgl *BgL_typez00;
		struct BgL_valuez00_bgl *BgL_valuez00;
		obj_t BgL_accessz00;
		obj_t BgL_fastzd2alphazd2;
		obj_t BgL_removablez00;
		long BgL_occurrencez00;
		long BgL_occurrencewz00;
		bool_t BgL_userzf3zf3;
	}                  *BgL_variablez00_bglt;

	typedef struct BgL_localz00_bgl
	{
		header_t header;
		obj_t widening;
		obj_t BgL_idz00;
		obj_t BgL_namez00;
		struct BgL_typez00_bgl *BgL_typez00;
		struct BgL_valuez00_bgl *BgL_valuez00;
		obj_t BgL_accessz00;
		obj_t BgL_fastzd2alphazd2;
		obj_t BgL_removablez00;
		long BgL_occurrencez00;
		long BgL_occurrencewz00;
		bool_t BgL_userzf3zf3;
		long BgL_keyz00;
		obj_t BgL_valzd2noescapezd2;
		bool_t BgL_volatilez00;
	}               *BgL_localz00_bglt;

	typedef struct BgL_funz00_bgl
	{
		header_t header;
		obj_t widening;
		long BgL_arityz00;
		obj_t BgL_sidezd2effectzd2;
		obj_t BgL_predicatezd2ofzd2;
		obj_t BgL_stackzd2allocatorzd2;
		bool_t BgL_topzf3zf3;
		obj_t BgL_thezd2closurezd2;
		obj_t BgL_effectz00;
		obj_t BgL_failsafez00;
		obj_t BgL_argszd2noescapezd2;
		obj_t BgL_argszd2retescapezd2;
	}             *BgL_funz00_bglt;

	typedef struct BgL_sfunz00_bgl
	{
		header_t header;
		obj_t widening;
		long BgL_arityz00;
		obj_t BgL_sidezd2effectzd2;
		obj_t BgL_predicatezd2ofzd2;
		obj_t BgL_stackzd2allocatorzd2;
		bool_t BgL_topzf3zf3;
		obj_t BgL_thezd2closurezd2;
		obj_t BgL_effectz00;
		obj_t BgL_failsafez00;
		obj_t BgL_argszd2noescapezd2;
		obj_t BgL_argszd2retescapezd2;
		obj_t BgL_propertyz00;
		obj_t BgL_argsz00;
		obj_t BgL_argszd2namezd2;
		obj_t BgL_bodyz00;
		obj_t BgL_classz00;
		obj_t BgL_dssslzd2keywordszd2;
		obj_t BgL_locz00;
		obj_t BgL_optionalsz00;
		obj_t BgL_keysz00;
		obj_t BgL_thezd2closurezd2globalz00;
		obj_t BgL_strengthz00;
		obj_t BgL_stackablez00;
	}              *BgL_sfunz00_bglt;

	typedef struct BgL_cfunz00_bgl
	{
		header_t header;
		obj_t widening;
		long BgL_arityz00;
		obj_t BgL_sidezd2effectzd2;
		obj_t BgL_predicatezd2ofzd2;
		obj_t BgL_stackzd2allocatorzd2;
		bool_t BgL_topzf3zf3;
		obj_t BgL_thezd2closurezd2;
		obj_t BgL_effectz00;
		obj_t BgL_failsafez00;
		obj_t BgL_argszd2noescapezd2;
		obj_t BgL_argszd2retescapezd2;
		obj_t BgL_argszd2typezd2;
		bool_t BgL_macrozf3zf3;
		bool_t BgL_infixzf3zf3;
		obj_t BgL_methodz00;
	}              *BgL_cfunz00_bglt;

	typedef struct BgL_nodez00_bgl
	{
		header_t header;
		obj_t widening;
		obj_t BgL_locz00;
		struct BgL_typez00_bgl *BgL_typez00;
	}              *BgL_nodez00_bglt;

	typedef struct BgL_nodezf2effectzf2_bgl
	{
		header_t header;
		obj_t widening;
		obj_t BgL_locz00;
		struct BgL_typez00_bgl *BgL_typez00;
		obj_t BgL_sidezd2effectzd2;
		obj_t BgL_keyz00;
	}                       *BgL_nodezf2effectzf2_bglt;

	typedef struct BgL_atomz00_bgl
	{
		header_t header;
		obj_t widening;
		obj_t BgL_locz00;
		struct BgL_typez00_bgl *BgL_typez00;
		obj_t BgL_valuez00;
	}              *BgL_atomz00_bglt;

	typedef struct BgL_patchz00_bgl
	{
		header_t header;
		obj_t widening;
		obj_t BgL_locz00;
		struct BgL_typez00_bgl *BgL_typez00;
		obj_t BgL_valuez00;
		struct BgL_varz00_bgl *BgL_refz00;
		long BgL_indexz00;
		obj_t BgL_patchidz00;
	}               *BgL_patchz00_bglt;

	typedef struct BgL_varz00_bgl
	{
		header_t header;
		obj_t widening;
		obj_t BgL_locz00;
		struct BgL_typez00_bgl *BgL_typez00;
		struct BgL_variablez00_bgl *BgL_variablez00;
	}             *BgL_varz00_bglt;

	typedef struct BgL_closurez00_bgl
	{
		header_t header;
		obj_t widening;
		obj_t BgL_locz00;
		struct BgL_typez00_bgl *BgL_typez00;
		struct BgL_variablez00_bgl *BgL_variablez00;
	}                 *BgL_closurez00_bglt;

	typedef struct BgL_kwotez00_bgl
	{
		header_t header;
		obj_t widening;
		obj_t BgL_locz00;
		struct BgL_typez00_bgl *BgL_typez00;
		obj_t BgL_valuez00;
	}               *BgL_kwotez00_bglt;

	typedef struct BgL_sequencez00_bgl
	{
		header_t header;
		obj_t widening;
		obj_t BgL_locz00;
		struct BgL_typez00_bgl *BgL_typez00;
		obj_t BgL_sidezd2effectzd2;
		obj_t BgL_keyz00;
		obj_t BgL_nodesz00;
		bool_t BgL_unsafez00;
		obj_t BgL_metaz00;
	}                  *BgL_sequencez00_bglt;

	typedef struct BgL_appz00_bgl
	{
		header_t header;
		obj_t widening;
		obj_t BgL_locz00;
		struct BgL_typez00_bgl *BgL_typez00;
		obj_t BgL_sidezd2effectzd2;
		obj_t BgL_keyz00;
		struct BgL_varz00_bgl *BgL_funz00;
		obj_t BgL_argsz00;
		obj_t BgL_stackablez00;
	}             *BgL_appz00_bglt;

	typedef struct BgL_appzd2lyzd2_bgl
	{
		header_t header;
		obj_t widening;
		obj_t BgL_locz00;
		struct BgL_typez00_bgl *BgL_typez00;
		struct BgL_nodez00_bgl *BgL_funz00;
		struct BgL_nodez00_bgl *BgL_argz00;
	}                  *BgL_appzd2lyzd2_bglt;

	typedef struct BgL_funcallz00_bgl
	{
		header_t header;
		obj_t widening;
		obj_t BgL_locz00;
		struct BgL_typez00_bgl *BgL_typez00;
		struct BgL_nodez00_bgl *BgL_funz00;
		obj_t BgL_argsz00;
		obj_t BgL_strengthz00;
		obj_t BgL_functionsz00;
	}                 *BgL_funcallz00_bglt;

	typedef struct BgL_externz00_bgl
	{
		header_t header;
		obj_t widening;
		obj_t BgL_locz00;
		struct BgL_typez00_bgl *BgL_typez00;
		obj_t BgL_sidezd2effectzd2;
		obj_t BgL_keyz00;
		obj_t BgL_exprza2za2;
		obj_t BgL_effectz00;
	}                *BgL_externz00_bglt;

	typedef struct BgL_pragmaz00_bgl
	{
		header_t header;
		obj_t widening;
		obj_t BgL_locz00;
		struct BgL_typez00_bgl *BgL_typez00;
		obj_t BgL_sidezd2effectzd2;
		obj_t BgL_keyz00;
		obj_t BgL_exprza2za2;
		obj_t BgL_effectz00;
		obj_t BgL_formatz00;
	}                *BgL_pragmaz00_bglt;

	typedef struct BgL_genpatchidz00_bgl
	{
		header_t header;
		obj_t widening;
		obj_t BgL_locz00;
		struct BgL_typez00_bgl *BgL_typez00;
		obj_t BgL_sidezd2effectzd2;
		obj_t BgL_keyz00;
		obj_t BgL_exprza2za2;
		obj_t BgL_effectz00;
		long BgL_indexz00;
		long BgL_rindexz00;
	}                    *BgL_genpatchidz00_bglt;

	typedef struct BgL_getfieldz00_bgl
	{
		header_t header;
		obj_t widening;
		obj_t BgL_locz00;
		struct BgL_typez00_bgl *BgL_typez00;
		obj_t BgL_sidezd2effectzd2;
		obj_t BgL_keyz00;
		obj_t BgL_exprza2za2;
		obj_t BgL_effectz00;
		obj_t BgL_czd2formatzd2;
		obj_t BgL_fnamez00;
		struct BgL_typez00_bgl *BgL_ftypez00;
		struct BgL_typez00_bgl *BgL_otypez00;
	}                  *BgL_getfieldz00_bglt;

	typedef struct BgL_setfieldz00_bgl
	{
		header_t header;
		obj_t widening;
		obj_t BgL_locz00;
		struct BgL_typez00_bgl *BgL_typez00;
		obj_t BgL_sidezd2effectzd2;
		obj_t BgL_keyz00;
		obj_t BgL_exprza2za2;
		obj_t BgL_effectz00;
		obj_t BgL_czd2formatzd2;
		obj_t BgL_fnamez00;
		struct BgL_typez00_bgl *BgL_ftypez00;
		struct BgL_typez00_bgl *BgL_otypez00;
	}                  *BgL_setfieldz00_bglt;

	typedef struct BgL_newz00_bgl
	{
		header_t header;
		obj_t widening;
		obj_t BgL_locz00;
		struct BgL_typez00_bgl *BgL_typez00;
		obj_t BgL_sidezd2effectzd2;
		obj_t BgL_keyz00;
		obj_t BgL_exprza2za2;
		obj_t BgL_effectz00;
		obj_t BgL_czd2formatzd2;
		obj_t BgL_argszd2typezd2;
	}             *BgL_newz00_bglt;

	typedef struct BgL_vallocz00_bgl
	{
		header_t header;
		obj_t widening;
		obj_t BgL_locz00;
		struct BgL_typez00_bgl *BgL_typez00;
		obj_t BgL_sidezd2effectzd2;
		obj_t BgL_keyz00;
		obj_t BgL_exprza2za2;
		obj_t BgL_effectz00;
		obj_t BgL_czd2formatzd2;
		struct BgL_typez00_bgl *BgL_ftypez00;
		struct BgL_typez00_bgl *BgL_otypez00;
	}                *BgL_vallocz00_bglt;

	typedef struct BgL_vrefz00_bgl
	{
		header_t header;
		obj_t widening;
		obj_t BgL_locz00;
		struct BgL_typez00_bgl *BgL_typez00;
		obj_t BgL_sidezd2effectzd2;
		obj_t BgL_keyz00;
		obj_t BgL_exprza2za2;
		obj_t BgL_effectz00;
		obj_t BgL_czd2formatzd2;
		struct BgL_typez00_bgl *BgL_ftypez00;
		struct BgL_typez00_bgl *BgL_otypez00;
		struct BgL_typez00_bgl *BgL_vtypez00;
		bool_t BgL_unsafez00;
	}              *BgL_vrefz00_bglt;

	typedef struct BgL_vsetz12z12_bgl
	{
		header_t header;
		obj_t widening;
		obj_t BgL_locz00;
		struct BgL_typez00_bgl *BgL_typez00;
		obj_t BgL_sidezd2effectzd2;
		obj_t BgL_keyz00;
		obj_t BgL_exprza2za2;
		obj_t BgL_effectz00;
		obj_t BgL_czd2formatzd2;
		struct BgL_typez00_bgl *BgL_ftypez00;
		struct BgL_typez00_bgl *BgL_otypez00;
		struct BgL_typez00_bgl *BgL_vtypez00;
		bool_t BgL_unsafez00;
	}                 *BgL_vsetz12z12_bglt;

	typedef struct BgL_vlengthz00_bgl
	{
		header_t header;
		obj_t widening;
		obj_t BgL_locz00;
		struct BgL_typez00_bgl *BgL_typez00;
		obj_t BgL_sidezd2effectzd2;
		obj_t BgL_keyz00;
		obj_t BgL_exprza2za2;
		obj_t BgL_effectz00;
		obj_t BgL_czd2formatzd2;
		struct BgL_typez00_bgl *BgL_vtypez00;
		obj_t BgL_ftypez00;
	}                 *BgL_vlengthz00_bglt;

	typedef struct BgL_instanceofz00_bgl
	{
		header_t header;
		obj_t widening;
		obj_t BgL_locz00;
		struct BgL_typez00_bgl *BgL_typez00;
		obj_t BgL_sidezd2effectzd2;
		obj_t BgL_keyz00;
		obj_t BgL_exprza2za2;
		obj_t BgL_effectz00;
		obj_t BgL_czd2formatzd2;
		struct BgL_typez00_bgl *BgL_classz00;
	}                    *BgL_instanceofz00_bglt;

	typedef struct BgL_castzd2nullzd2_bgl
	{
		header_t header;
		obj_t widening;
		obj_t BgL_locz00;
		struct BgL_typez00_bgl *BgL_typez00;
		obj_t BgL_sidezd2effectzd2;
		obj_t BgL_keyz00;
		obj_t BgL_exprza2za2;
		obj_t BgL_effectz00;
		obj_t BgL_czd2formatzd2;
	}                     *BgL_castzd2nullzd2_bglt;

	typedef struct BgL_castz00_bgl
	{
		header_t header;
		obj_t widening;
		obj_t BgL_locz00;
		struct BgL_typez00_bgl *BgL_typez00;
		struct BgL_nodez00_bgl *BgL_argz00;
	}              *BgL_castz00_bglt;

	typedef struct BgL_setqz00_bgl
	{
		header_t header;
		obj_t widening;
		obj_t BgL_locz00;
		struct BgL_typez00_bgl *BgL_typez00;
		struct BgL_varz00_bgl *BgL_varz00;
		struct BgL_nodez00_bgl *BgL_valuez00;
	}              *BgL_setqz00_bglt;

	typedef struct BgL_conditionalz00_bgl
	{
		header_t header;
		obj_t widening;
		obj_t BgL_locz00;
		struct BgL_typez00_bgl *BgL_typez00;
		obj_t BgL_sidezd2effectzd2;
		obj_t BgL_keyz00;
		struct BgL_nodez00_bgl *BgL_testz00;
		struct BgL_nodez00_bgl *BgL_truez00;
		struct BgL_nodez00_bgl *BgL_falsez00;
	}                     *BgL_conditionalz00_bglt;

	typedef struct BgL_failz00_bgl
	{
		header_t header;
		obj_t widening;
		obj_t BgL_locz00;
		struct BgL_typez00_bgl *BgL_typez00;
		struct BgL_nodez00_bgl *BgL_procz00;
		struct BgL_nodez00_bgl *BgL_msgz00;
		struct BgL_nodez00_bgl *BgL_objz00;
	}              *BgL_failz00_bglt;

	typedef struct BgL_switchz00_bgl
	{
		header_t header;
		obj_t widening;
		obj_t BgL_locz00;
		struct BgL_typez00_bgl *BgL_typez00;
		obj_t BgL_sidezd2effectzd2;
		obj_t BgL_keyz00;
		struct BgL_nodez00_bgl *BgL_testz00;
		obj_t BgL_clausesz00;
		struct BgL_typez00_bgl *BgL_itemzd2typezd2;
	}                *BgL_switchz00_bglt;

	typedef struct BgL_letzd2funzd2_bgl
	{
		header_t header;
		obj_t widening;
		obj_t BgL_locz00;
		struct BgL_typez00_bgl *BgL_typez00;
		obj_t BgL_sidezd2effectzd2;
		obj_t BgL_keyz00;
		obj_t BgL_localsz00;
		struct BgL_nodez00_bgl *BgL_bodyz00;
	}                   *BgL_letzd2funzd2_bglt;

	typedef struct BgL_letzd2varzd2_bgl
	{
		header_t header;
		obj_t widening;
		obj_t BgL_locz00;
		struct BgL_typez00_bgl *BgL_typez00;
		obj_t BgL_sidezd2effectzd2;
		obj_t BgL_keyz00;
		obj_t BgL_bindingsz00;
		struct BgL_nodez00_bgl *BgL_bodyz00;
		bool_t BgL_removablezf3zf3;
	}                   *BgL_letzd2varzd2_bglt;

	typedef struct BgL_setzd2exzd2itz00_bgl
	{
		header_t header;
		obj_t widening;
		obj_t BgL_locz00;
		struct BgL_typez00_bgl *BgL_typez00;
		struct BgL_varz00_bgl *BgL_varz00;
		struct BgL_nodez00_bgl *BgL_bodyz00;
		struct BgL_nodez00_bgl *BgL_onexitz00;
	}                       *BgL_setzd2exzd2itz00_bglt;

	typedef struct BgL_jumpzd2exzd2itz00_bgl
	{
		header_t header;
		obj_t widening;
		obj_t BgL_locz00;
		struct BgL_typez00_bgl *BgL_typez00;
		struct BgL_nodez00_bgl *BgL_exitz00;
		struct BgL_nodez00_bgl *BgL_valuez00;
	}                        *BgL_jumpzd2exzd2itz00_bglt;

	typedef struct BgL_retblockz00_bgl
	{
		header_t header;
		obj_t widening;
		obj_t BgL_locz00;
		struct BgL_typez00_bgl *BgL_typez00;
		struct BgL_nodez00_bgl *BgL_bodyz00;
	}                  *BgL_retblockz00_bglt;

	typedef struct BgL_returnz00_bgl
	{
		header_t header;
		obj_t widening;
		obj_t BgL_locz00;
		struct BgL_typez00_bgl *BgL_typez00;
		struct BgL_retblockz00_bgl *BgL_blockz00;
		struct BgL_nodez00_bgl *BgL_valuez00;
	}                *BgL_returnz00_bglt;

	typedef struct BgL_makezd2boxzd2_bgl
	{
		header_t header;
		obj_t widening;
		obj_t BgL_locz00;
		struct BgL_typez00_bgl *BgL_typez00;
		obj_t BgL_sidezd2effectzd2;
		obj_t BgL_keyz00;
		struct BgL_nodez00_bgl *BgL_valuez00;
		struct BgL_typez00_bgl *BgL_vtypez00;
		obj_t BgL_stackablez00;
	}                    *BgL_makezd2boxzd2_bglt;

	typedef struct BgL_boxzd2refzd2_bgl
	{
		header_t header;
		obj_t widening;
		obj_t BgL_locz00;
		struct BgL_typez00_bgl *BgL_typez00;
		obj_t BgL_sidezd2effectzd2;
		obj_t BgL_keyz00;
		struct BgL_varz00_bgl *BgL_varz00;
		struct BgL_typez00_bgl *BgL_vtypez00;
	}                   *BgL_boxzd2refzd2_bglt;

	typedef struct BgL_boxzd2setz12zc0_bgl
	{
		header_t header;
		obj_t widening;
		obj_t BgL_locz00;
		struct BgL_typez00_bgl *BgL_typez00;
		struct BgL_varz00_bgl *BgL_varz00;
		struct BgL_nodez00_bgl *BgL_valuez00;
		struct BgL_typez00_bgl *BgL_vtypez00;
	}                      *BgL_boxzd2setz12zc0_bglt;

	typedef struct BgL_syncz00_bgl
	{
		header_t header;
		obj_t widening;
		obj_t BgL_locz00;
		struct BgL_typez00_bgl *BgL_typez00;
		struct BgL_nodez00_bgl *BgL_mutexz00;
		struct BgL_nodez00_bgl *BgL_prelockz00;
		struct BgL_nodez00_bgl *BgL_bodyz00;
	}              *BgL_syncz00_bglt;


#endif													// BGL_AST_DUMP_TYPE_DEFINITIONS
#endif													// BGL_MODULE_TYPE_DEFINITIONS

	BGL_IMPORT obj_t BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(obj_t,
		obj_t);
	extern obj_t BGl_setqz00zzast_nodez00;
	extern obj_t BGl_returnz00zzast_nodez00;
	static obj_t BGl_requirezd2initializa7ationz75zzast_dumpz00 = BUNSPEC;
	extern obj_t BGl_makezd2typedzd2identz00zzast_identz00(obj_t, obj_t);
	extern obj_t BGl_closurez00zzast_nodez00;
	extern obj_t BGl_za2accesszd2shapezf3za2z21zzengine_paramz00;
	static obj_t BGl_z62nodezd2ze3sexp1347z53zzast_dumpz00(obj_t, obj_t);
	extern obj_t BGl_newz00zzast_nodez00;
	static obj_t BGl_z62nodezd2ze3sexpzd2valloc1383z81zzast_dumpz00(obj_t, obj_t);
	extern obj_t BGl_vlengthz00zzast_nodez00;
	extern obj_t BGl_syncz00zzast_nodez00;
	extern obj_t BGl_setzd2exzd2itz00zzast_nodez00;
	BGL_IMPORT obj_t BGl_za2classesza2z00zz__objectz00;
	static obj_t BGl_z62nodezd2ze3sexpzd2return1410z81zzast_dumpz00(obj_t, obj_t);
	BGL_IMPORT obj_t BGl_registerzd2genericz12zc0zz__objectz00(obj_t, obj_t,
		obj_t, obj_t);
	extern obj_t BGl_atomz00zzast_nodez00;
	BGL_IMPORT obj_t BGl_listzd2ze3vectorz31zz__r4_vectors_6_8z00(obj_t);
	extern obj_t BGl_sfunz00zzast_varz00;
	static obj_t BGl_z62nodezd2ze3sexpzd2atom1350z81zzast_dumpz00(obj_t, obj_t);
	static obj_t BGl_toplevelzd2initzd2zzast_dumpz00(void);
	static obj_t BGl_z62nodezd2ze3sexpzd2getfield1370z81zzast_dumpz00(obj_t,
		obj_t);
	extern obj_t BGl_sequencez00zzast_nodez00;
	static obj_t BGl_z62nodezd2ze3sexpzd2new1374z81zzast_dumpz00(obj_t, obj_t);
	static obj_t BGl_z62nodezd2ze3sexpzd2appzd2ly1364z53zzast_dumpz00(obj_t,
		obj_t);
	BGL_IMPORT obj_t BGl_formatz00zz__r4_output_6_10_3z00(obj_t, obj_t);
	extern obj_t BGl_za2typezd2shapezf3za2z21zzengine_paramz00;
	extern obj_t BGl_locationzd2shapezd2zztools_locationz00(obj_t, obj_t);
	extern obj_t BGl_letzd2varzd2zzast_nodez00;
	extern obj_t BGl_failz00zzast_nodez00;
	static obj_t BGl_genericzd2initzd2zzast_dumpz00(void);
	BGL_IMPORT obj_t BGl_stringzd2copyzd2zz__r4_strings_6_7z00(obj_t);
	extern obj_t BGl_getfieldz00zzast_nodez00;
	static obj_t BGl_objectzd2initzd2zzast_dumpz00(void);
	extern obj_t BGl_castz00zzast_nodez00;
	extern obj_t BGl_shapez00zztools_shapez00(obj_t);
	BGL_IMPORT obj_t BGl_za2inheritancesza2z00zz__objectz00;
	extern obj_t BGl_boxzd2refzd2zzast_nodez00;
	BGL_IMPORT obj_t string_append_3(obj_t, obj_t, obj_t);
	static obj_t BGl_z62nodezd2ze3sexpzd2boxzd2setz121418z41zzast_dumpz00(obj_t,
		obj_t);
	static obj_t BGl_z62nodezd2ze3sexpzd2makezd2box1412z53zzast_dumpz00(obj_t,
		obj_t);
	static obj_t BGl_z62nodezd2ze3sexpzd2setfield1372z81zzast_dumpz00(obj_t,
		obj_t);
	BGL_IMPORT obj_t bstring_to_symbol(obj_t);
	BGL_IMPORT obj_t BGl_readz00zz__readerz00(obj_t, obj_t);
	BGL_IMPORT obj_t BGl_openzd2inputzd2stringz12z12zz__r4_ports_6_10_1z00(obj_t,
		obj_t, obj_t);
	static obj_t BGl_z62nodezd2ze3sexpzd2var1352z81zzast_dumpz00(obj_t, obj_t);
	static obj_t BGl_methodzd2initzd2zzast_dumpz00(void);
	static obj_t BGl_z62nodezd2ze3sexpzd2letzd2fun1400z53zzast_dumpz00(obj_t,
		obj_t);
	extern obj_t BGl_argszd2listzd2ze3argsza2z41zztools_argsz00(obj_t, obj_t);
	static obj_t BGl_z62nodezd2ze3sexpzd2switch1398z81zzast_dumpz00(obj_t, obj_t);
	static obj_t BGl_z62nodezd2ze3sexpzd2vlength1377z81zzast_dumpz00(obj_t,
		obj_t);
	static obj_t BGl_z62nodezd2ze3sexpzd2condition1394z81zzast_dumpz00(obj_t,
		obj_t);
	extern obj_t BGl_varz00zzast_nodez00;
	static obj_t BGl_z62nodezd2ze3sexpzd2jumpzd2exzd2i1406z81zzast_dumpz00(obj_t,
		obj_t);
	extern BgL_typez00_bglt BGl_getzd2typezd2zztype_typeofz00(BgL_nodez00_bglt,
		bool_t);
	static obj_t BGl_z62nodezd2ze3sexpzd2vsetz121381z93zzast_dumpz00(obj_t,
		obj_t);
	extern obj_t BGl_makezd2boxzd2zzast_nodez00;
	BGL_IMPORT obj_t BGl_errorz00zz__errorz00(obj_t, obj_t, obj_t);
	extern obj_t BGl_pragmaz00zzast_nodez00;
	static obj_t BGl_z62nodezd2ze3sexpzd2instanceo1385z81zzast_dumpz00(obj_t,
		obj_t);
	extern obj_t BGl_za2alloczd2shapezf3za2z21zzengine_paramz00;
	static obj_t BGl_z62nodezd2ze3sexpzd2setzd2exzd2it1404z81zzast_dumpz00(obj_t,
		obj_t);
	static obj_t BGl_z62nodezd2ze3sexpzd2app1362z81zzast_dumpz00(obj_t, obj_t);
	extern obj_t BGl_boxzd2setz12zc0zzast_nodez00;
	extern obj_t BGl_za2typenodezd2shapezf3za2z21zzengine_paramz00;
	BGL_EXPORTED_DECL obj_t BGl_modulezd2initializa7ationz75zzast_dumpz00(long,
		char *);
	extern obj_t BGl_modulezd2initializa7ationz75zzeffect_effectz00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zztype_cachez00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zztype_typeofz00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zzast_identz00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zzengine_paramz00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zztools_locationz00(long,
		char *);
	extern obj_t BGl_modulezd2initializa7ationz75zztools_miscz00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zztools_argsz00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zztools_shapez00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zzast_nodez00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zzast_varz00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zztype_typez00(long, char *);
	BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__r4_output_6_10_3z00(long,
		char *);
	BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__r4_ports_6_10_1z00(long,
		char *);
	BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__r4_vectors_6_8z00(long,
		char *);
	BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__r4_strings_6_7z00(long,
		char *);
	BGL_IMPORT obj_t
		BGl_modulezd2initializa7ationz75zz__r4_numbers_6_5_fixnumz00(long, char *);
	BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__r4_symbols_6_4z00(long,
		char *);
	BGL_IMPORT obj_t
		BGl_modulezd2initializa7ationz75zz__r4_pairs_and_lists_6_3z00(long, char *);
	BGL_IMPORT obj_t
		BGl_modulezd2initializa7ationz75zz__r4_equivalence_6_2z00(long, char *);
	BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__r4_booleans_6_1z00(long,
		char *);
	BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__readerz00(long, char *);
	BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__objectz00(long, char *);
	BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__bitz00(long, char *);
	BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__structurez00(long,
		char *);
	BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__errorz00(long, char *);
	BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__biglooz00(long, char *);
	extern obj_t BGl_appz00zzast_nodez00;
	extern obj_t BGl_cfunz00zzast_varz00;
	extern obj_t BGl_appzd2lyzd2zzast_nodez00;
	static obj_t BGl_z62nodezd2ze3sexpzd2cast1390z81zzast_dumpz00(obj_t, obj_t);
	BGL_IMPORT obj_t BGl_stringzd2appendzd2zz__r4_strings_6_7z00(obj_t);
	static obj_t BGl_z62nodezd2ze3sexpzd2sync1360z81zzast_dumpz00(obj_t, obj_t);
	extern obj_t BGl_vrefz00zzast_nodez00;
	extern obj_t BGl_nodez00zzast_nodez00;
	extern obj_t BGl_kwotez00zzast_nodez00;
	BGL_IMPORT obj_t create_struct(obj_t, int);
	static obj_t BGl_z62nodezd2ze3sexpzd2sequence1358z81zzast_dumpz00(obj_t,
		obj_t);
	static obj_t BGl_z62nodezd2ze3sexpzd2pragma1368z81zzast_dumpz00(obj_t, obj_t);
	static obj_t BGl_z62nodezd2ze3sexpzd2setq1392z81zzast_dumpz00(obj_t, obj_t);
	extern obj_t BGl_jumpzd2exzd2itz00zzast_nodez00;
	static obj_t BGl_cnstzd2initzd2zzast_dumpz00(void);
	static obj_t BGl_libraryzd2moduleszd2initz00zzast_dumpz00(void);
	static obj_t BGl_importedzd2moduleszd2initz00zzast_dumpz00(void);
	static obj_t BGl_gczd2rootszd2initz00zzast_dumpz00(void);
	static obj_t BGl_z62nodezd2ze3sexpzd2fail1396z81zzast_dumpz00(obj_t, obj_t);
	extern bool_t BGl_sidezd2effectzf3z21zzeffect_effectz00(BgL_nodez00_bglt);
	extern obj_t BGl_vallocz00zzast_nodez00;
	static obj_t BGl_z62nodezd2ze3sexpzd2letzd2var1402z53zzast_dumpz00(obj_t,
		obj_t);
	extern obj_t BGl_retblockz00zzast_nodez00;
	extern obj_t BGl_instanceofz00zzast_nodez00;
	static obj_t BGl_z62nodezd2ze3sexpzd2retblock1408z81zzast_dumpz00(obj_t,
		obj_t);
	extern obj_t BGl_letzd2funzd2zzast_nodez00;
	static obj_t BGl_z62nodezd2ze3sexpzd2boxzd2ref1416z53zzast_dumpz00(obj_t,
		obj_t);
	static obj_t BGl_z62nodezd2ze3sexpzd2castzd2null1388z53zzast_dumpz00(obj_t,
		obj_t);
	extern obj_t BGl_setfieldz00zzast_nodez00;
	extern obj_t BGl_castzd2nullzd2zzast_nodez00;
	static obj_t BGl_shapezd2typedzd2nodez00zzast_dumpz00(obj_t,
		BgL_typez00_bglt);
	extern obj_t BGl_genpatchidz00zzast_nodez00;
	static obj_t BGl_z62nodezd2ze3sexpzd2genpatchi1422z81zzast_dumpz00(obj_t,
		obj_t);
	BGL_IMPORT obj_t BGl_genericzd2addzd2methodz12z12zz__objectz00(obj_t, obj_t,
		obj_t, obj_t);
	extern obj_t BGl_switchz00zzast_nodez00;
	static obj_t BGl_z62nodezd2ze3sexpzd2funcall1366z81zzast_dumpz00(obj_t,
		obj_t);
	BGL_EXPORTED_DECL obj_t BGl_nodezd2ze3sexpz31zzast_dumpz00(BgL_nodez00_bglt);
	extern obj_t BGl_conditionalz00zzast_nodez00;
	static obj_t BGl_z62nodezd2ze3sexpzd2kwote1356z81zzast_dumpz00(obj_t, obj_t);
	extern obj_t BGl_funcallz00zzast_nodez00;
	static obj_t BGl_z62nodezd2ze3sexpzd2closure1354z81zzast_dumpz00(obj_t,
		obj_t);
	static obj_t BGl_z62nodezd2ze3sexpz53zzast_dumpz00(obj_t, obj_t);
	static obj_t BGl_z62nodezd2ze3sexpzd2patch1420z81zzast_dumpz00(obj_t, obj_t);
	extern obj_t BGl_vsetz12z12zzast_nodez00;
	static obj_t BGl_z62nodezd2ze3sexpzd2vref1379z81zzast_dumpz00(obj_t, obj_t);
	extern obj_t BGl_patchz00zzast_nodez00;
	static obj_t __cnst[53];


	   
		 
		DEFINE_STRING(BGl_string2414z00zzast_dumpz00,
		BgL_bgl_string2414za700za7za7a2464za7, "::", 2);
	      DEFINE_STRING(BGl_string2416z00zzast_dumpz00,
		BgL_bgl_string2416za700za7za7a2465za7, "node->sexp1347", 14);
	      DEFINE_STRING(BGl_string2417z00zzast_dumpz00,
		BgL_bgl_string2417za700za7za7a2466za7, "No method for this object", 25);
	      DEFINE_STRING(BGl_string2419z00zzast_dumpz00,
		BgL_bgl_string2419za700za7za7a2467za7, "node->sexp", 10);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2415z00zzast_dumpz00,
		BgL_bgl_za762nodeza7d2za7e3sex2468za7,
		BGl_z62nodezd2ze3sexp1347z53zzast_dumpz00, 0L, BUNSPEC, 1);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2418z00zzast_dumpz00,
		BgL_bgl_za762nodeza7d2za7e3sex2469za7,
		BGl_z62nodezd2ze3sexpzd2atom1350z81zzast_dumpz00, 0L, BUNSPEC, 1);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2420z00zzast_dumpz00,
		BgL_bgl_za762nodeza7d2za7e3sex2470za7,
		BGl_z62nodezd2ze3sexpzd2var1352z81zzast_dumpz00, 0L, BUNSPEC, 1);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2421z00zzast_dumpz00,
		BgL_bgl_za762nodeza7d2za7e3sex2471za7,
		BGl_z62nodezd2ze3sexpzd2closure1354z81zzast_dumpz00, 0L, BUNSPEC, 1);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2422z00zzast_dumpz00,
		BgL_bgl_za762nodeza7d2za7e3sex2472za7,
		BGl_z62nodezd2ze3sexpzd2kwote1356z81zzast_dumpz00, 0L, BUNSPEC, 1);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2423z00zzast_dumpz00,
		BgL_bgl_za762nodeza7d2za7e3sex2473za7,
		BGl_z62nodezd2ze3sexpzd2sequence1358z81zzast_dumpz00, 0L, BUNSPEC, 1);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2424z00zzast_dumpz00,
		BgL_bgl_za762nodeza7d2za7e3sex2474za7,
		BGl_z62nodezd2ze3sexpzd2sync1360z81zzast_dumpz00, 0L, BUNSPEC, 1);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2425z00zzast_dumpz00,
		BgL_bgl_za762nodeza7d2za7e3sex2475za7,
		BGl_z62nodezd2ze3sexpzd2app1362z81zzast_dumpz00, 0L, BUNSPEC, 1);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2426z00zzast_dumpz00,
		BgL_bgl_za762nodeza7d2za7e3sex2476za7,
		BGl_z62nodezd2ze3sexpzd2appzd2ly1364z53zzast_dumpz00, 0L, BUNSPEC, 1);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2427z00zzast_dumpz00,
		BgL_bgl_za762nodeza7d2za7e3sex2477za7,
		BGl_z62nodezd2ze3sexpzd2funcall1366z81zzast_dumpz00, 0L, BUNSPEC, 1);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2428z00zzast_dumpz00,
		BgL_bgl_za762nodeza7d2za7e3sex2478za7,
		BGl_z62nodezd2ze3sexpzd2pragma1368z81zzast_dumpz00, 0L, BUNSPEC, 1);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2429z00zzast_dumpz00,
		BgL_bgl_za762nodeza7d2za7e3sex2479za7,
		BGl_z62nodezd2ze3sexpzd2getfield1370z81zzast_dumpz00, 0L, BUNSPEC, 1);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2430z00zzast_dumpz00,
		BgL_bgl_za762nodeza7d2za7e3sex2480za7,
		BGl_z62nodezd2ze3sexpzd2setfield1372z81zzast_dumpz00, 0L, BUNSPEC, 1);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2431z00zzast_dumpz00,
		BgL_bgl_za762nodeza7d2za7e3sex2481za7,
		BGl_z62nodezd2ze3sexpzd2new1374z81zzast_dumpz00, 0L, BUNSPEC, 1);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2432z00zzast_dumpz00,
		BgL_bgl_za762nodeza7d2za7e3sex2482za7,
		BGl_z62nodezd2ze3sexpzd2vlength1377z81zzast_dumpz00, 0L, BUNSPEC, 1);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2433z00zzast_dumpz00,
		BgL_bgl_za762nodeza7d2za7e3sex2483za7,
		BGl_z62nodezd2ze3sexpzd2vref1379z81zzast_dumpz00, 0L, BUNSPEC, 1);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2434z00zzast_dumpz00,
		BgL_bgl_za762nodeza7d2za7e3sex2484za7,
		BGl_z62nodezd2ze3sexpzd2vsetz121381z93zzast_dumpz00, 0L, BUNSPEC, 1);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2435z00zzast_dumpz00,
		BgL_bgl_za762nodeza7d2za7e3sex2485za7,
		BGl_z62nodezd2ze3sexpzd2valloc1383z81zzast_dumpz00, 0L, BUNSPEC, 1);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2436z00zzast_dumpz00,
		BgL_bgl_za762nodeza7d2za7e3sex2486za7,
		BGl_z62nodezd2ze3sexpzd2instanceo1385z81zzast_dumpz00, 0L, BUNSPEC, 1);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2437z00zzast_dumpz00,
		BgL_bgl_za762nodeza7d2za7e3sex2487za7,
		BGl_z62nodezd2ze3sexpzd2castzd2null1388z53zzast_dumpz00, 0L, BUNSPEC, 1);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2438z00zzast_dumpz00,
		BgL_bgl_za762nodeza7d2za7e3sex2488za7,
		BGl_z62nodezd2ze3sexpzd2cast1390z81zzast_dumpz00, 0L, BUNSPEC, 1);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2439z00zzast_dumpz00,
		BgL_bgl_za762nodeza7d2za7e3sex2489za7,
		BGl_z62nodezd2ze3sexpzd2setq1392z81zzast_dumpz00, 0L, BUNSPEC, 1);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2440z00zzast_dumpz00,
		BgL_bgl_za762nodeza7d2za7e3sex2490za7,
		BGl_z62nodezd2ze3sexpzd2condition1394z81zzast_dumpz00, 0L, BUNSPEC, 1);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2441z00zzast_dumpz00,
		BgL_bgl_za762nodeza7d2za7e3sex2491za7,
		BGl_z62nodezd2ze3sexpzd2fail1396z81zzast_dumpz00, 0L, BUNSPEC, 1);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2442z00zzast_dumpz00,
		BgL_bgl_za762nodeza7d2za7e3sex2492za7,
		BGl_z62nodezd2ze3sexpzd2switch1398z81zzast_dumpz00, 0L, BUNSPEC, 1);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2443z00zzast_dumpz00,
		BgL_bgl_za762nodeza7d2za7e3sex2493za7,
		BGl_z62nodezd2ze3sexpzd2letzd2fun1400z53zzast_dumpz00, 0L, BUNSPEC, 1);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2444z00zzast_dumpz00,
		BgL_bgl_za762nodeza7d2za7e3sex2494za7,
		BGl_z62nodezd2ze3sexpzd2letzd2var1402z53zzast_dumpz00, 0L, BUNSPEC, 1);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2445z00zzast_dumpz00,
		BgL_bgl_za762nodeza7d2za7e3sex2495za7,
		BGl_z62nodezd2ze3sexpzd2setzd2exzd2it1404z81zzast_dumpz00, 0L, BUNSPEC, 1);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2446z00zzast_dumpz00,
		BgL_bgl_za762nodeza7d2za7e3sex2496za7,
		BGl_z62nodezd2ze3sexpzd2jumpzd2exzd2i1406z81zzast_dumpz00, 0L, BUNSPEC, 1);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2447z00zzast_dumpz00,
		BgL_bgl_za762nodeza7d2za7e3sex2497za7,
		BGl_z62nodezd2ze3sexpzd2retblock1408z81zzast_dumpz00, 0L, BUNSPEC, 1);
	      DEFINE_STRING(BGl_string2454z00zzast_dumpz00,
		BgL_bgl_string2454za700za7za7a2498za7, " stackable: ", 12);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2448z00zzast_dumpz00,
		BgL_bgl_za762nodeza7d2za7e3sex2499za7,
		BGl_z62nodezd2ze3sexpzd2return1410z81zzast_dumpz00, 0L, BUNSPEC, 1);
	      DEFINE_STRING(BGl_string2455z00zzast_dumpz00,
		BgL_bgl_string2455za700za7za7a2500za7, "]", 1);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2449z00zzast_dumpz00,
		BgL_bgl_za762nodeza7d2za7e3sex2501za7,
		BGl_z62nodezd2ze3sexpzd2makezd2box1412z53zzast_dumpz00, 0L, BUNSPEC, 1);
	      DEFINE_STRING(BGl_string2456z00zzast_dumpz00,
		BgL_bgl_string2456za700za7za7a2502za7, "[::", 3);
	      DEFINE_STRING(BGl_string2457z00zzast_dumpz00,
		BgL_bgl_string2457za700za7za7a2503za7, "valloc::", 8);
	      DEFINE_STRING(BGl_string2458z00zzast_dumpz00,
		BgL_bgl_string2458za700za7za7a2504za7, "ftype:", 6);
	      DEFINE_STRING(BGl_string2459z00zzast_dumpz00,
		BgL_bgl_string2459za700za7za7a2505za7, "~a[::~a]", 8);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2450z00zzast_dumpz00,
		BgL_bgl_za762nodeza7d2za7e3sex2506za7,
		BGl_z62nodezd2ze3sexpzd2boxzd2ref1416z53zzast_dumpz00, 0L, BUNSPEC, 1);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2451z00zzast_dumpz00,
		BgL_bgl_za762nodeza7d2za7e3sex2507za7,
		BGl_z62nodezd2ze3sexpzd2boxzd2setz121418z41zzast_dumpz00, 0L, BUNSPEC, 1);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2452z00zzast_dumpz00,
		BgL_bgl_za762nodeza7d2za7e3sex2508za7,
		BGl_z62nodezd2ze3sexpzd2patch1420z81zzast_dumpz00, 0L, BUNSPEC, 1);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2453z00zzast_dumpz00,
		BgL_bgl_za762nodeza7d2za7e3sex2509za7,
		BGl_z62nodezd2ze3sexpzd2genpatchi1422z81zzast_dumpz00, 0L, BUNSPEC, 1);
	      DEFINE_STRING(BGl_string2460z00zzast_dumpz00,
		BgL_bgl_string2460za700za7za7a2510za7, "ast_dump", 8);
	      DEFINE_STRING(BGl_string2461z00zzast_dumpz00,
		BgL_bgl_string2461za700za7za7a2511za7,
		"(quote ()) closure quote a-tvector begin unsafe :prelock synchronize :args-type :type app-stackable side-effect? node apply funcall funcall-el elight funcall-l light free-pragma pragma getfield setfield new vlength vref vref-ur vset! vset-ur! isa? |cast-null::| cast set! if failure case :stackable labels :side-effect :removable? let :body :onexit set-exit jump-exit retblock return make-box box-ref box-set! patch genpatchid node->sexp1347 ",
		442);
	      DEFINE_EXPORT_BGL_GENERIC(BGl_nodezd2ze3sexpzd2envze3zzast_dumpz00,
		BgL_bgl_za762nodeza7d2za7e3sex2512za7,
		BGl_z62nodezd2ze3sexpz53zzast_dumpz00, 0L, BUNSPEC, 1);

/* 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_requirezd2initializa7ationz75zzast_dumpz00));
#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_modulezd2initializa7ationz75zzast_dumpz00(long
		BgL_checksumz00_3854, char *BgL_fromz00_3855)
	{
		{
			if (CBOOL(BGl_requirezd2initializa7ationz75zzast_dumpz00))
				{
					BGl_requirezd2initializa7ationz75zzast_dumpz00 = BBOOL(((bool_t) 0));
					BGl_gczd2rootszd2initz00zzast_dumpz00();
					BGl_libraryzd2moduleszd2initz00zzast_dumpz00();
					BGl_cnstzd2initzd2zzast_dumpz00();
					BGl_importedzd2moduleszd2initz00zzast_dumpz00();
					BGl_genericzd2initzd2zzast_dumpz00();
					BGl_methodzd2initzd2zzast_dumpz00();
					return BGl_toplevelzd2initzd2zzast_dumpz00();
				}
			else
				{
					return BUNSPEC;
				}
		}

	}



/* library-modules-init */
	obj_t BGl_libraryzd2moduleszd2initz00zzast_dumpz00(void)
	{
		{	/* Ast/dump.scm 14 */
			BGl_modulezd2initializa7ationz75zz__r4_pairs_and_lists_6_3z00(0L,
				"ast_dump");
			BGl_modulezd2initializa7ationz75zz__objectz00(0L, "ast_dump");
			BGl_modulezd2initializa7ationz75zz__r4_vectors_6_8z00(0L, "ast_dump");
			BGl_modulezd2initializa7ationz75zz__r4_output_6_10_3z00(0L, "ast_dump");
			BGl_modulezd2initializa7ationz75zz__r4_strings_6_7z00(0L, "ast_dump");
			BGl_modulezd2initializa7ationz75zz__readerz00(0L, "ast_dump");
			BGl_modulezd2initializa7ationz75zz__r4_ports_6_10_1z00(0L, "ast_dump");
			BGl_modulezd2initializa7ationz75zz__errorz00(0L, "ast_dump");
			BGl_modulezd2initializa7ationz75zz__r4_booleans_6_1z00(0L, "ast_dump");
			BGl_modulezd2initializa7ationz75zz__r4_equivalence_6_2z00(0L, "ast_dump");
			BGl_modulezd2initializa7ationz75zz__bitz00(0L, "ast_dump");
			BGl_modulezd2initializa7ationz75zz__r4_numbers_6_5_fixnumz00(0L,
				"ast_dump");
			BGl_modulezd2initializa7ationz75zz__r4_symbols_6_4z00(0L, "ast_dump");
			BGl_modulezd2initializa7ationz75zz__structurez00(0L, "ast_dump");
			BGl_modulezd2initializa7ationz75zz__biglooz00(0L, "ast_dump");
			return BUNSPEC;
		}

	}



/* cnst-init */
	obj_t BGl_cnstzd2initzd2zzast_dumpz00(void)
	{
		{	/* Ast/dump.scm 14 */
			{	/* Ast/dump.scm 14 */
				obj_t BgL_cportz00_3121;

				{	/* Ast/dump.scm 14 */
					obj_t BgL_stringz00_3128;

					BgL_stringz00_3128 = BGl_string2461z00zzast_dumpz00;
					{	/* Ast/dump.scm 14 */
						obj_t BgL_startz00_3129;

						BgL_startz00_3129 = BINT(0L);
						{	/* Ast/dump.scm 14 */
							obj_t BgL_endz00_3130;

							BgL_endz00_3130 =
								BINT(STRING_LENGTH(((obj_t) BgL_stringz00_3128)));
							{	/* Ast/dump.scm 14 */

								BgL_cportz00_3121 =
									BGl_openzd2inputzd2stringz12z12zz__r4_ports_6_10_1z00
									(BgL_stringz00_3128, BgL_startz00_3129, BgL_endz00_3130);
				}}}}
				{
					long BgL_iz00_3122;

					BgL_iz00_3122 = 52L;
				BgL_loopz00_3123:
					if ((BgL_iz00_3122 == -1L))
						{	/* Ast/dump.scm 14 */
							return BUNSPEC;
						}
					else
						{	/* Ast/dump.scm 14 */
							{	/* Ast/dump.scm 14 */
								obj_t BgL_arg2463z00_3124;

								{	/* Ast/dump.scm 14 */

									{	/* Ast/dump.scm 14 */
										obj_t BgL_locationz00_3126;

										BgL_locationz00_3126 = BBOOL(((bool_t) 0));
										{	/* Ast/dump.scm 14 */

											BgL_arg2463z00_3124 =
												BGl_readz00zz__readerz00(BgL_cportz00_3121,
												BgL_locationz00_3126);
										}
									}
								}
								{	/* Ast/dump.scm 14 */
									int BgL_tmpz00_3890;

									BgL_tmpz00_3890 = (int) (BgL_iz00_3122);
									CNST_TABLE_SET(BgL_tmpz00_3890, BgL_arg2463z00_3124);
							}}
							{	/* Ast/dump.scm 14 */
								int BgL_auxz00_3127;

								BgL_auxz00_3127 = (int) ((BgL_iz00_3122 - 1L));
								{
									long BgL_iz00_3895;

									BgL_iz00_3895 = (long) (BgL_auxz00_3127);
									BgL_iz00_3122 = BgL_iz00_3895;
									goto BgL_loopz00_3123;
								}
							}
						}
				}
			}
		}

	}



/* gc-roots-init */
	obj_t BGl_gczd2rootszd2initz00zzast_dumpz00(void)
	{
		{	/* Ast/dump.scm 14 */
			return bgl_gc_roots_register();
		}

	}



/* toplevel-init */
	obj_t BGl_toplevelzd2initzd2zzast_dumpz00(void)
	{
		{	/* Ast/dump.scm 14 */
			return BUNSPEC;
		}

	}



/* shape-typed-node */
	obj_t BGl_shapezd2typedzd2nodez00zzast_dumpz00(obj_t BgL_idz00_48,
		BgL_typez00_bglt BgL_typez00_49)
	{
		{	/* Ast/dump.scm 440 */
			if (CBOOL(BGl_za2typenodezd2shapezf3za2z21zzengine_paramz00))
				{	/* Ast/dump.scm 442 */
					obj_t BgL_arg1492z00_1412;

					{	/* Ast/dump.scm 442 */
						obj_t BgL_arg1494z00_1413;
						obj_t BgL_arg1496z00_1414;

						{	/* Ast/dump.scm 442 */
							obj_t BgL_arg1454z00_2497;

							BgL_arg1454z00_2497 = SYMBOL_TO_STRING(BgL_idz00_48);
							BgL_arg1494z00_1413 =
								BGl_stringzd2copyzd2zz__r4_strings_6_7z00(BgL_arg1454z00_2497);
						}
						BgL_arg1496z00_1414 =
							BGl_shapez00zztools_shapez00(((obj_t) BgL_typez00_49));
						BgL_arg1492z00_1412 =
							string_append_3(BgL_arg1494z00_1413,
							BGl_string2414z00zzast_dumpz00, BgL_arg1496z00_1414);
					}
					return bstring_to_symbol(BgL_arg1492z00_1412);
				}
			else
				{	/* Ast/dump.scm 441 */
					return BgL_idz00_48;
				}
		}

	}



/* object-init */
	obj_t BGl_objectzd2initzd2zzast_dumpz00(void)
	{
		{	/* Ast/dump.scm 14 */
			return BUNSPEC;
		}

	}



/* generic-init */
	obj_t BGl_genericzd2initzd2zzast_dumpz00(void)
	{
		{	/* Ast/dump.scm 14 */
			return
				BGl_registerzd2genericz12zc0zz__objectz00
				(BGl_nodezd2ze3sexpzd2envze3zzast_dumpz00, BGl_proc2415z00zzast_dumpz00,
				BGl_nodez00zzast_nodez00, BGl_string2416z00zzast_dumpz00);
		}

	}



/* &node->sexp1347 */
	obj_t BGl_z62nodezd2ze3sexp1347z53zzast_dumpz00(obj_t BgL_envz00_3011,
		obj_t BgL_nodez00_3012)
	{
		{	/* Ast/dump.scm 37 */
			return
				BGl_errorz00zz__errorz00(CNST_TABLE_REF(0L),
				BGl_string2417z00zzast_dumpz00,
				((obj_t) ((BgL_nodez00_bglt) BgL_nodez00_3012)));
		}

	}



/* node->sexp */
	BGL_EXPORTED_DEF obj_t BGl_nodezd2ze3sexpz31zzast_dumpz00(BgL_nodez00_bglt
		BgL_nodez00_14)
	{
		{	/* Ast/dump.scm 37 */
			{	/* Ast/dump.scm 37 */
				obj_t BgL_method1348z00_1419;

				{	/* Ast/dump.scm 37 */
					obj_t BgL_res2405z00_2529;

					{	/* Ast/dump.scm 37 */
						long BgL_objzd2classzd2numz00_2500;

						BgL_objzd2classzd2numz00_2500 =
							BGL_OBJECT_CLASS_NUM(((BgL_objectz00_bglt) BgL_nodez00_14));
						{	/* Ast/dump.scm 37 */
							obj_t BgL_arg1805z00_2501;

							BgL_arg1805z00_2501 =
								PROCEDURE_REF(BGl_nodezd2ze3sexpzd2envze3zzast_dumpz00,
								(int) (1L));
							{	/* Ast/dump.scm 37 */
								int BgL_offsetz00_2504;

								BgL_offsetz00_2504 = (int) (BgL_objzd2classzd2numz00_2500);
								{	/* Ast/dump.scm 37 */
									long BgL_offsetz00_2505;

									BgL_offsetz00_2505 =
										((long) (BgL_offsetz00_2504) - OBJECT_TYPE);
									{	/* Ast/dump.scm 37 */
										long BgL_modz00_2506;

										BgL_modz00_2506 =
											(BgL_offsetz00_2505 >> (int) ((long) ((int) (4L))));
										{	/* Ast/dump.scm 37 */
											long BgL_restz00_2508;

											BgL_restz00_2508 =
												(BgL_offsetz00_2505 &
												(long) (
													(int) (
														((long) (
																(int) (
																	(1L <<
																		(int) ((long) ((int) (4L)))))) - 1L))));
											{	/* Ast/dump.scm 37 */

												{	/* Ast/dump.scm 37 */
													obj_t BgL_bucketz00_2510;

													BgL_bucketz00_2510 =
														VECTOR_REF(
														((obj_t) BgL_arg1805z00_2501), BgL_modz00_2506);
													BgL_res2405z00_2529 =
														VECTOR_REF(
														((obj_t) BgL_bucketz00_2510), BgL_restz00_2508);
					}}}}}}}}
					BgL_method1348z00_1419 = BgL_res2405z00_2529;
				}
				return
					(VA_PROCEDUREP(BgL_method1348z00_1419) ? ((obj_t(*)(obj_t,
								...))
						PROCEDURE_ENTRY(BgL_method1348z00_1419)) (BgL_method1348z00_1419,
						((obj_t) BgL_nodez00_14), BEOA) : ((obj_t(*)(obj_t,
								obj_t))
						PROCEDURE_ENTRY(BgL_method1348z00_1419)) (BgL_method1348z00_1419,
						((obj_t) BgL_nodez00_14)));
			}
		}

	}



/* &node->sexp */
	obj_t BGl_z62nodezd2ze3sexpz53zzast_dumpz00(obj_t BgL_envz00_3013,
		obj_t BgL_nodez00_3014)
	{
		{	/* Ast/dump.scm 37 */
			return
				BGl_nodezd2ze3sexpz31zzast_dumpz00(
				((BgL_nodez00_bglt) BgL_nodez00_3014));
		}

	}



/* method-init */
	obj_t BGl_methodzd2initzd2zzast_dumpz00(void)
	{
		{	/* Ast/dump.scm 14 */
			BGl_genericzd2addzd2methodz12z12zz__objectz00
				(BGl_nodezd2ze3sexpzd2envze3zzast_dumpz00, BGl_atomz00zzast_nodez00,
				BGl_proc2418z00zzast_dumpz00, BGl_string2419z00zzast_dumpz00);
			BGl_genericzd2addzd2methodz12z12zz__objectz00
				(BGl_nodezd2ze3sexpzd2envze3zzast_dumpz00, BGl_varz00zzast_nodez00,
				BGl_proc2420z00zzast_dumpz00, BGl_string2419z00zzast_dumpz00);
			BGl_genericzd2addzd2methodz12z12zz__objectz00
				(BGl_nodezd2ze3sexpzd2envze3zzast_dumpz00, BGl_closurez00zzast_nodez00,
				BGl_proc2421z00zzast_dumpz00, BGl_string2419z00zzast_dumpz00);
			BGl_genericzd2addzd2methodz12z12zz__objectz00
				(BGl_nodezd2ze3sexpzd2envze3zzast_dumpz00, BGl_kwotez00zzast_nodez00,
				BGl_proc2422z00zzast_dumpz00, BGl_string2419z00zzast_dumpz00);
			BGl_genericzd2addzd2methodz12z12zz__objectz00
				(BGl_nodezd2ze3sexpzd2envze3zzast_dumpz00, BGl_sequencez00zzast_nodez00,
				BGl_proc2423z00zzast_dumpz00, BGl_string2419z00zzast_dumpz00);
			BGl_genericzd2addzd2methodz12z12zz__objectz00
				(BGl_nodezd2ze3sexpzd2envze3zzast_dumpz00, BGl_syncz00zzast_nodez00,
				BGl_proc2424z00zzast_dumpz00, BGl_string2419z00zzast_dumpz00);
			BGl_genericzd2addzd2methodz12z12zz__objectz00
				(BGl_nodezd2ze3sexpzd2envze3zzast_dumpz00, BGl_appz00zzast_nodez00,
				BGl_proc2425z00zzast_dumpz00, BGl_string2419z00zzast_dumpz00);
			BGl_genericzd2addzd2methodz12z12zz__objectz00
				(BGl_nodezd2ze3sexpzd2envze3zzast_dumpz00, BGl_appzd2lyzd2zzast_nodez00,
				BGl_proc2426z00zzast_dumpz00, BGl_string2419z00zzast_dumpz00);
			BGl_genericzd2addzd2methodz12z12zz__objectz00
				(BGl_nodezd2ze3sexpzd2envze3zzast_dumpz00, BGl_funcallz00zzast_nodez00,
				BGl_proc2427z00zzast_dumpz00, BGl_string2419z00zzast_dumpz00);
			BGl_genericzd2addzd2methodz12z12zz__objectz00
				(BGl_nodezd2ze3sexpzd2envze3zzast_dumpz00, BGl_pragmaz00zzast_nodez00,
				BGl_proc2428z00zzast_dumpz00, BGl_string2419z00zzast_dumpz00);
			BGl_genericzd2addzd2methodz12z12zz__objectz00
				(BGl_nodezd2ze3sexpzd2envze3zzast_dumpz00, BGl_getfieldz00zzast_nodez00,
				BGl_proc2429z00zzast_dumpz00, BGl_string2419z00zzast_dumpz00);
			BGl_genericzd2addzd2methodz12z12zz__objectz00
				(BGl_nodezd2ze3sexpzd2envze3zzast_dumpz00, BGl_setfieldz00zzast_nodez00,
				BGl_proc2430z00zzast_dumpz00, BGl_string2419z00zzast_dumpz00);
			BGl_genericzd2addzd2methodz12z12zz__objectz00
				(BGl_nodezd2ze3sexpzd2envze3zzast_dumpz00, BGl_newz00zzast_nodez00,
				BGl_proc2431z00zzast_dumpz00, BGl_string2419z00zzast_dumpz00);
			BGl_genericzd2addzd2methodz12z12zz__objectz00
				(BGl_nodezd2ze3sexpzd2envze3zzast_dumpz00, BGl_vlengthz00zzast_nodez00,
				BGl_proc2432z00zzast_dumpz00, BGl_string2419z00zzast_dumpz00);
			BGl_genericzd2addzd2methodz12z12zz__objectz00
				(BGl_nodezd2ze3sexpzd2envze3zzast_dumpz00, BGl_vrefz00zzast_nodez00,
				BGl_proc2433z00zzast_dumpz00, BGl_string2419z00zzast_dumpz00);
			BGl_genericzd2addzd2methodz12z12zz__objectz00
				(BGl_nodezd2ze3sexpzd2envze3zzast_dumpz00, BGl_vsetz12z12zzast_nodez00,
				BGl_proc2434z00zzast_dumpz00, BGl_string2419z00zzast_dumpz00);
			BGl_genericzd2addzd2methodz12z12zz__objectz00
				(BGl_nodezd2ze3sexpzd2envze3zzast_dumpz00, BGl_vallocz00zzast_nodez00,
				BGl_proc2435z00zzast_dumpz00, BGl_string2419z00zzast_dumpz00);
			BGl_genericzd2addzd2methodz12z12zz__objectz00
				(BGl_nodezd2ze3sexpzd2envze3zzast_dumpz00,
				BGl_instanceofz00zzast_nodez00, BGl_proc2436z00zzast_dumpz00,
				BGl_string2419z00zzast_dumpz00);
			BGl_genericzd2addzd2methodz12z12zz__objectz00
				(BGl_nodezd2ze3sexpzd2envze3zzast_dumpz00,
				BGl_castzd2nullzd2zzast_nodez00, BGl_proc2437z00zzast_dumpz00,
				BGl_string2419z00zzast_dumpz00);
			BGl_genericzd2addzd2methodz12z12zz__objectz00
				(BGl_nodezd2ze3sexpzd2envze3zzast_dumpz00, BGl_castz00zzast_nodez00,
				BGl_proc2438z00zzast_dumpz00, BGl_string2419z00zzast_dumpz00);
			BGl_genericzd2addzd2methodz12z12zz__objectz00
				(BGl_nodezd2ze3sexpzd2envze3zzast_dumpz00, BGl_setqz00zzast_nodez00,
				BGl_proc2439z00zzast_dumpz00, BGl_string2419z00zzast_dumpz00);
			BGl_genericzd2addzd2methodz12z12zz__objectz00
				(BGl_nodezd2ze3sexpzd2envze3zzast_dumpz00,
				BGl_conditionalz00zzast_nodez00, BGl_proc2440z00zzast_dumpz00,
				BGl_string2419z00zzast_dumpz00);
			BGl_genericzd2addzd2methodz12z12zz__objectz00
				(BGl_nodezd2ze3sexpzd2envze3zzast_dumpz00, BGl_failz00zzast_nodez00,
				BGl_proc2441z00zzast_dumpz00, BGl_string2419z00zzast_dumpz00);
			BGl_genericzd2addzd2methodz12z12zz__objectz00
				(BGl_nodezd2ze3sexpzd2envze3zzast_dumpz00, BGl_switchz00zzast_nodez00,
				BGl_proc2442z00zzast_dumpz00, BGl_string2419z00zzast_dumpz00);
			BGl_genericzd2addzd2methodz12z12zz__objectz00
				(BGl_nodezd2ze3sexpzd2envze3zzast_dumpz00,
				BGl_letzd2funzd2zzast_nodez00, BGl_proc2443z00zzast_dumpz00,
				BGl_string2419z00zzast_dumpz00);
			BGl_genericzd2addzd2methodz12z12zz__objectz00
				(BGl_nodezd2ze3sexpzd2envze3zzast_dumpz00,
				BGl_letzd2varzd2zzast_nodez00, BGl_proc2444z00zzast_dumpz00,
				BGl_string2419z00zzast_dumpz00);
			BGl_genericzd2addzd2methodz12z12zz__objectz00
				(BGl_nodezd2ze3sexpzd2envze3zzast_dumpz00,
				BGl_setzd2exzd2itz00zzast_nodez00, BGl_proc2445z00zzast_dumpz00,
				BGl_string2419z00zzast_dumpz00);
			BGl_genericzd2addzd2methodz12z12zz__objectz00
				(BGl_nodezd2ze3sexpzd2envze3zzast_dumpz00,
				BGl_jumpzd2exzd2itz00zzast_nodez00, BGl_proc2446z00zzast_dumpz00,
				BGl_string2419z00zzast_dumpz00);
			BGl_genericzd2addzd2methodz12z12zz__objectz00
				(BGl_nodezd2ze3sexpzd2envze3zzast_dumpz00, BGl_retblockz00zzast_nodez00,
				BGl_proc2447z00zzast_dumpz00, BGl_string2419z00zzast_dumpz00);
			BGl_genericzd2addzd2methodz12z12zz__objectz00
				(BGl_nodezd2ze3sexpzd2envze3zzast_dumpz00, BGl_returnz00zzast_nodez00,
				BGl_proc2448z00zzast_dumpz00, BGl_string2419z00zzast_dumpz00);
			BGl_genericzd2addzd2methodz12z12zz__objectz00
				(BGl_nodezd2ze3sexpzd2envze3zzast_dumpz00,
				BGl_makezd2boxzd2zzast_nodez00, BGl_proc2449z00zzast_dumpz00,
				BGl_string2419z00zzast_dumpz00);
			BGl_genericzd2addzd2methodz12z12zz__objectz00
				(BGl_nodezd2ze3sexpzd2envze3zzast_dumpz00,
				BGl_boxzd2refzd2zzast_nodez00, BGl_proc2450z00zzast_dumpz00,
				BGl_string2419z00zzast_dumpz00);
			BGl_genericzd2addzd2methodz12z12zz__objectz00
				(BGl_nodezd2ze3sexpzd2envze3zzast_dumpz00,
				BGl_boxzd2setz12zc0zzast_nodez00, BGl_proc2451z00zzast_dumpz00,
				BGl_string2419z00zzast_dumpz00);
			BGl_genericzd2addzd2methodz12z12zz__objectz00
				(BGl_nodezd2ze3sexpzd2envze3zzast_dumpz00, BGl_patchz00zzast_nodez00,
				BGl_proc2452z00zzast_dumpz00, BGl_string2419z00zzast_dumpz00);
			return
				BGl_genericzd2addzd2methodz12z12zz__objectz00
				(BGl_nodezd2ze3sexpzd2envze3zzast_dumpz00,
				BGl_genpatchidz00zzast_nodez00, BGl_proc2453z00zzast_dumpz00,
				BGl_string2419z00zzast_dumpz00);
		}

	}



/* &node->sexp-genpatchi1422 */
	obj_t BGl_z62nodezd2ze3sexpzd2genpatchi1422z81zzast_dumpz00(obj_t
		BgL_envz00_3050, obj_t BgL_nodez00_3051)
	{
		{	/* Ast/dump.scm 455 */
			{	/* Ast/dump.scm 457 */
				obj_t BgL_arg2334z00_3134;

				{	/* Ast/dump.scm 457 */
					long BgL_arg2335z00_3135;

					BgL_arg2335z00_3135 =
						(((BgL_genpatchidz00_bglt) COBJECT(
								((BgL_genpatchidz00_bglt) BgL_nodez00_3051)))->BgL_indexz00);
					BgL_arg2334z00_3134 =
						MAKE_YOUNG_PAIR(BINT(BgL_arg2335z00_3135), BNIL);
				}
				return MAKE_YOUNG_PAIR(CNST_TABLE_REF(1L), BgL_arg2334z00_3134);
			}
		}

	}



/* &node->sexp-patch1420 */
	obj_t BGl_z62nodezd2ze3sexpzd2patch1420z81zzast_dumpz00(obj_t BgL_envz00_3052,
		obj_t BgL_nodez00_3053)
	{
		{	/* Ast/dump.scm 448 */
			{	/* Ast/dump.scm 450 */
				obj_t BgL_arg2326z00_3137;
				obj_t BgL_arg2327z00_3138;

				{	/* Ast/dump.scm 450 */
					BgL_typez00_bglt BgL_arg2328z00_3139;

					BgL_arg2328z00_3139 =
						(((BgL_nodez00_bglt) COBJECT(
								((BgL_nodez00_bglt)
									((BgL_patchz00_bglt) BgL_nodez00_3053))))->BgL_typez00);
					{	/* Ast/dump.scm 450 */
						obj_t BgL_idz00_3140;

						BgL_idz00_3140 = CNST_TABLE_REF(2L);
						if (CBOOL(BGl_za2typenodezd2shapezf3za2z21zzengine_paramz00))
							{	/* Ast/dump.scm 442 */
								obj_t BgL_arg1492z00_3141;

								{	/* Ast/dump.scm 442 */
									obj_t BgL_arg1494z00_3142;
									obj_t BgL_arg1496z00_3143;

									{	/* Ast/dump.scm 442 */
										obj_t BgL_arg1454z00_3144;

										BgL_arg1454z00_3144 = SYMBOL_TO_STRING(BgL_idz00_3140);
										BgL_arg1494z00_3142 =
											BGl_stringzd2copyzd2zz__r4_strings_6_7z00
											(BgL_arg1454z00_3144);
									}
									BgL_arg1496z00_3143 =
										BGl_shapez00zztools_shapez00(((obj_t) BgL_arg2328z00_3139));
									BgL_arg1492z00_3141 =
										string_append_3(BgL_arg1494z00_3142,
										BGl_string2414z00zzast_dumpz00, BgL_arg1496z00_3143);
								}
								BgL_arg2326z00_3137 = bstring_to_symbol(BgL_arg1492z00_3141);
							}
						else
							{	/* Ast/dump.scm 441 */
								BgL_arg2326z00_3137 = BgL_idz00_3140;
							}
					}
				}
				{	/* Ast/dump.scm 450 */
					obj_t BgL_arg2329z00_3145;
					obj_t BgL_arg2330z00_3146;

					{	/* Ast/dump.scm 450 */
						BgL_varz00_bglt BgL_arg2331z00_3147;

						BgL_arg2331z00_3147 =
							(((BgL_patchz00_bglt) COBJECT(
									((BgL_patchz00_bglt) BgL_nodez00_3053)))->BgL_refz00);
						BgL_arg2329z00_3145 =
							BGl_nodezd2ze3sexpz31zzast_dumpz00(
							((BgL_nodez00_bglt) BgL_arg2331z00_3147));
					}
					{	/* Ast/dump.scm 450 */
						obj_t BgL_arg2332z00_3148;

						{	/* Ast/dump.scm 450 */
							obj_t BgL_arg2333z00_3149;

							BgL_arg2333z00_3149 =
								(((BgL_atomz00_bglt) COBJECT(
										((BgL_atomz00_bglt)
											((BgL_patchz00_bglt) BgL_nodez00_3053))))->BgL_valuez00);
							BgL_arg2332z00_3148 =
								BGl_nodezd2ze3sexpz31zzast_dumpz00(
								((BgL_nodez00_bglt) BgL_arg2333z00_3149));
						}
						BgL_arg2330z00_3146 = MAKE_YOUNG_PAIR(BgL_arg2332z00_3148, BNIL);
					}
					BgL_arg2327z00_3138 =
						MAKE_YOUNG_PAIR(BgL_arg2329z00_3145, BgL_arg2330z00_3146);
				}
				return MAKE_YOUNG_PAIR(BgL_arg2326z00_3137, BgL_arg2327z00_3138);
			}
		}

	}



/* &node->sexp-box-set!1418 */
	obj_t BGl_z62nodezd2ze3sexpzd2boxzd2setz121418z41zzast_dumpz00(obj_t
		BgL_envz00_3054, obj_t BgL_nodez00_3055)
	{
		{	/* Ast/dump.scm 432 */
			{	/* Ast/dump.scm 434 */
				obj_t BgL_arg2317z00_3151;

				{	/* Ast/dump.scm 434 */
					obj_t BgL_arg2320z00_3152;
					obj_t BgL_arg2322z00_3153;

					{	/* Ast/dump.scm 434 */
						BgL_varz00_bglt BgL_arg2323z00_3154;

						BgL_arg2323z00_3154 =
							(((BgL_boxzd2setz12zc0_bglt) COBJECT(
									((BgL_boxzd2setz12zc0_bglt) BgL_nodez00_3055)))->BgL_varz00);
						BgL_arg2320z00_3152 =
							BGl_nodezd2ze3sexpz31zzast_dumpz00(
							((BgL_nodez00_bglt) BgL_arg2323z00_3154));
					}
					BgL_arg2322z00_3153 =
						MAKE_YOUNG_PAIR(BGl_nodezd2ze3sexpz31zzast_dumpz00(
							(((BgL_boxzd2setz12zc0_bglt) COBJECT(
										((BgL_boxzd2setz12zc0_bglt) BgL_nodez00_3055)))->
								BgL_valuez00)), BNIL);
					BgL_arg2317z00_3151 =
						MAKE_YOUNG_PAIR(BgL_arg2320z00_3152, BgL_arg2322z00_3153);
				}
				return MAKE_YOUNG_PAIR(CNST_TABLE_REF(3L), BgL_arg2317z00_3151);
			}
		}

	}



/* &node->sexp-box-ref1416 */
	obj_t BGl_z62nodezd2ze3sexpzd2boxzd2ref1416z53zzast_dumpz00(obj_t
		BgL_envz00_3056, obj_t BgL_nodez00_3057)
	{
		{	/* Ast/dump.scm 424 */
			{	/* Ast/dump.scm 426 */
				obj_t BgL_arg2312z00_3156;
				obj_t BgL_arg2313z00_3157;

				{	/* Ast/dump.scm 426 */
					BgL_typez00_bglt BgL_arg2314z00_3158;

					BgL_arg2314z00_3158 =
						(((BgL_nodez00_bglt) COBJECT(
								((BgL_nodez00_bglt)
									((BgL_boxzd2refzd2_bglt) BgL_nodez00_3057))))->BgL_typez00);
					{	/* Ast/dump.scm 426 */
						obj_t BgL_idz00_3159;

						BgL_idz00_3159 = CNST_TABLE_REF(4L);
						if (CBOOL(BGl_za2typenodezd2shapezf3za2z21zzengine_paramz00))
							{	/* Ast/dump.scm 442 */
								obj_t BgL_arg1492z00_3160;

								{	/* Ast/dump.scm 442 */
									obj_t BgL_arg1494z00_3161;
									obj_t BgL_arg1496z00_3162;

									{	/* Ast/dump.scm 442 */
										obj_t BgL_arg1454z00_3163;

										BgL_arg1454z00_3163 = SYMBOL_TO_STRING(BgL_idz00_3159);
										BgL_arg1494z00_3161 =
											BGl_stringzd2copyzd2zz__r4_strings_6_7z00
											(BgL_arg1454z00_3163);
									}
									BgL_arg1496z00_3162 =
										BGl_shapez00zztools_shapez00(((obj_t) BgL_arg2314z00_3158));
									BgL_arg1492z00_3160 =
										string_append_3(BgL_arg1494z00_3161,
										BGl_string2414z00zzast_dumpz00, BgL_arg1496z00_3162);
								}
								BgL_arg2312z00_3156 = bstring_to_symbol(BgL_arg1492z00_3160);
							}
						else
							{	/* Ast/dump.scm 441 */
								BgL_arg2312z00_3156 = BgL_idz00_3159;
							}
					}
				}
				{	/* Ast/dump.scm 427 */
					obj_t BgL_arg2315z00_3164;

					{	/* Ast/dump.scm 427 */
						BgL_varz00_bglt BgL_arg2316z00_3165;

						BgL_arg2316z00_3165 =
							(((BgL_boxzd2refzd2_bglt) COBJECT(
									((BgL_boxzd2refzd2_bglt) BgL_nodez00_3057)))->BgL_varz00);
						BgL_arg2315z00_3164 =
							BGl_nodezd2ze3sexpz31zzast_dumpz00(
							((BgL_nodez00_bglt) BgL_arg2316z00_3165));
					}
					BgL_arg2313z00_3157 = MAKE_YOUNG_PAIR(BgL_arg2315z00_3164, BNIL);
				}
				return MAKE_YOUNG_PAIR(BgL_arg2312z00_3156, BgL_arg2313z00_3157);
			}
		}

	}



/* &node->sexp-make-box1412 */
	obj_t BGl_z62nodezd2ze3sexpzd2makezd2box1412z53zzast_dumpz00(obj_t
		BgL_envz00_3058, obj_t BgL_nodez00_3059)
	{
		{	/* Ast/dump.scm 413 */
			{	/* Ast/dump.scm 415 */
				obj_t BgL_arg2301z00_3167;
				obj_t BgL_arg2302z00_3168;

				{	/* Ast/dump.scm 415 */
					BgL_typez00_bglt BgL_arg2304z00_3169;

					BgL_arg2304z00_3169 =
						(((BgL_nodez00_bglt) COBJECT(
								((BgL_nodez00_bglt)
									((BgL_makezd2boxzd2_bglt) BgL_nodez00_3059))))->BgL_typez00);
					{	/* Ast/dump.scm 415 */
						obj_t BgL_idz00_3170;

						BgL_idz00_3170 = CNST_TABLE_REF(5L);
						if (CBOOL(BGl_za2typenodezd2shapezf3za2z21zzengine_paramz00))
							{	/* Ast/dump.scm 442 */
								obj_t BgL_arg1492z00_3171;

								{	/* Ast/dump.scm 442 */
									obj_t BgL_arg1494z00_3172;
									obj_t BgL_arg1496z00_3173;

									{	/* Ast/dump.scm 442 */
										obj_t BgL_arg1454z00_3174;

										BgL_arg1454z00_3174 = SYMBOL_TO_STRING(BgL_idz00_3170);
										BgL_arg1494z00_3172 =
											BGl_stringzd2copyzd2zz__r4_strings_6_7z00
											(BgL_arg1454z00_3174);
									}
									BgL_arg1496z00_3173 =
										BGl_shapez00zztools_shapez00(((obj_t) BgL_arg2304z00_3169));
									BgL_arg1492z00_3171 =
										string_append_3(BgL_arg1494z00_3172,
										BGl_string2414z00zzast_dumpz00, BgL_arg1496z00_3173);
								}
								BgL_arg2301z00_3167 = bstring_to_symbol(BgL_arg1492z00_3171);
							}
						else
							{	/* Ast/dump.scm 441 */
								BgL_arg2301z00_3167 = BgL_idz00_3170;
							}
					}
				}
				{	/* Ast/dump.scm 416 */
					obj_t BgL_arg2305z00_3175;
					obj_t BgL_arg2306z00_3176;

					if (CBOOL(BGl_za2alloczd2shapezf3za2z21zzengine_paramz00))
						{	/* Ast/dump.scm 417 */
							obj_t BgL_arg2307z00_3177;

							BgL_arg2307z00_3177 =
								(((BgL_makezd2boxzd2_bglt) COBJECT(
										((BgL_makezd2boxzd2_bglt) BgL_nodez00_3059)))->
								BgL_stackablez00);
							{	/* Ast/dump.scm 417 */
								obj_t BgL_list2308z00_3178;

								{	/* Ast/dump.scm 417 */
									obj_t BgL_arg2309z00_3179;

									BgL_arg2309z00_3179 =
										MAKE_YOUNG_PAIR(BgL_arg2307z00_3177, BNIL);
									BgL_list2308z00_3178 =
										MAKE_YOUNG_PAIR(BGl_string2454z00zzast_dumpz00,
										BgL_arg2309z00_3179);
								}
								BgL_arg2305z00_3175 = BgL_list2308z00_3178;
							}
						}
					else
						{	/* Ast/dump.scm 416 */
							BgL_arg2305z00_3175 = BNIL;
						}
					BgL_arg2306z00_3176 =
						MAKE_YOUNG_PAIR(BGl_nodezd2ze3sexpz31zzast_dumpz00(
							(((BgL_makezd2boxzd2_bglt) COBJECT(
										((BgL_makezd2boxzd2_bglt) BgL_nodez00_3059)))->
								BgL_valuez00)), BNIL);
					BgL_arg2302z00_3168 =
						BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(BgL_arg2305z00_3175,
						BgL_arg2306z00_3176);
				}
				return MAKE_YOUNG_PAIR(BgL_arg2301z00_3167, BgL_arg2302z00_3168);
			}
		}

	}



/* &node->sexp-return1410 */
	obj_t BGl_z62nodezd2ze3sexpzd2return1410z81zzast_dumpz00(obj_t
		BgL_envz00_3060, obj_t BgL_nodez00_3061)
	{
		{	/* Ast/dump.scm 405 */
			{	/* Ast/dump.scm 407 */
				obj_t BgL_arg2296z00_3181;
				obj_t BgL_arg2297z00_3182;

				{	/* Ast/dump.scm 407 */
					BgL_typez00_bglt BgL_arg2298z00_3183;

					BgL_arg2298z00_3183 =
						(((BgL_nodez00_bglt) COBJECT(
								((BgL_nodez00_bglt)
									((BgL_returnz00_bglt) BgL_nodez00_3061))))->BgL_typez00);
					{	/* Ast/dump.scm 407 */
						obj_t BgL_idz00_3184;

						BgL_idz00_3184 = CNST_TABLE_REF(6L);
						if (CBOOL(BGl_za2typenodezd2shapezf3za2z21zzengine_paramz00))
							{	/* Ast/dump.scm 442 */
								obj_t BgL_arg1492z00_3185;

								{	/* Ast/dump.scm 442 */
									obj_t BgL_arg1494z00_3186;
									obj_t BgL_arg1496z00_3187;

									{	/* Ast/dump.scm 442 */
										obj_t BgL_arg1454z00_3188;

										BgL_arg1454z00_3188 = SYMBOL_TO_STRING(BgL_idz00_3184);
										BgL_arg1494z00_3186 =
											BGl_stringzd2copyzd2zz__r4_strings_6_7z00
											(BgL_arg1454z00_3188);
									}
									BgL_arg1496z00_3187 =
										BGl_shapez00zztools_shapez00(((obj_t) BgL_arg2298z00_3183));
									BgL_arg1492z00_3185 =
										string_append_3(BgL_arg1494z00_3186,
										BGl_string2414z00zzast_dumpz00, BgL_arg1496z00_3187);
								}
								BgL_arg2296z00_3181 = bstring_to_symbol(BgL_arg1492z00_3185);
							}
						else
							{	/* Ast/dump.scm 441 */
								BgL_arg2296z00_3181 = BgL_idz00_3184;
							}
					}
				}
				BgL_arg2297z00_3182 =
					MAKE_YOUNG_PAIR(BGl_nodezd2ze3sexpz31zzast_dumpz00(
						(((BgL_returnz00_bglt) COBJECT(
									((BgL_returnz00_bglt) BgL_nodez00_3061)))->BgL_valuez00)),
					BNIL);
				return MAKE_YOUNG_PAIR(BgL_arg2296z00_3181, BgL_arg2297z00_3182);
			}
		}

	}



/* &node->sexp-retblock1408 */
	obj_t BGl_z62nodezd2ze3sexpzd2retblock1408z81zzast_dumpz00(obj_t
		BgL_envz00_3062, obj_t BgL_nodez00_3063)
	{
		{	/* Ast/dump.scm 397 */
			{	/* Ast/dump.scm 399 */
				obj_t BgL_arg2291z00_3190;
				obj_t BgL_arg2292z00_3191;

				{	/* Ast/dump.scm 399 */
					BgL_typez00_bglt BgL_arg2293z00_3192;

					BgL_arg2293z00_3192 =
						(((BgL_nodez00_bglt) COBJECT(
								((BgL_nodez00_bglt)
									((BgL_retblockz00_bglt) BgL_nodez00_3063))))->BgL_typez00);
					{	/* Ast/dump.scm 399 */
						obj_t BgL_idz00_3193;

						BgL_idz00_3193 = CNST_TABLE_REF(7L);
						if (CBOOL(BGl_za2typenodezd2shapezf3za2z21zzengine_paramz00))
							{	/* Ast/dump.scm 442 */
								obj_t BgL_arg1492z00_3194;

								{	/* Ast/dump.scm 442 */
									obj_t BgL_arg1494z00_3195;
									obj_t BgL_arg1496z00_3196;

									{	/* Ast/dump.scm 442 */
										obj_t BgL_arg1454z00_3197;

										BgL_arg1454z00_3197 = SYMBOL_TO_STRING(BgL_idz00_3193);
										BgL_arg1494z00_3195 =
											BGl_stringzd2copyzd2zz__r4_strings_6_7z00
											(BgL_arg1454z00_3197);
									}
									BgL_arg1496z00_3196 =
										BGl_shapez00zztools_shapez00(((obj_t) BgL_arg2293z00_3192));
									BgL_arg1492z00_3194 =
										string_append_3(BgL_arg1494z00_3195,
										BGl_string2414z00zzast_dumpz00, BgL_arg1496z00_3196);
								}
								BgL_arg2291z00_3190 = bstring_to_symbol(BgL_arg1492z00_3194);
							}
						else
							{	/* Ast/dump.scm 441 */
								BgL_arg2291z00_3190 = BgL_idz00_3193;
							}
					}
				}
				BgL_arg2292z00_3191 =
					MAKE_YOUNG_PAIR(BGl_nodezd2ze3sexpz31zzast_dumpz00(
						(((BgL_retblockz00_bglt) COBJECT(
									((BgL_retblockz00_bglt) BgL_nodez00_3063)))->BgL_bodyz00)),
					BNIL);
				return MAKE_YOUNG_PAIR(BgL_arg2291z00_3190, BgL_arg2292z00_3191);
			}
		}

	}



/* &node->sexp-jump-ex-i1406 */
	obj_t BGl_z62nodezd2ze3sexpzd2jumpzd2exzd2i1406z81zzast_dumpz00(obj_t
		BgL_envz00_3064, obj_t BgL_nodez00_3065)
	{
		{	/* Ast/dump.scm 388 */
			{	/* Ast/dump.scm 390 */
				obj_t BgL_arg2283z00_3199;
				obj_t BgL_arg2284z00_3200;

				{	/* Ast/dump.scm 390 */
					BgL_typez00_bglt BgL_arg2285z00_3201;

					BgL_arg2285z00_3201 =
						(((BgL_nodez00_bglt) COBJECT(
								((BgL_nodez00_bglt)
									((BgL_jumpzd2exzd2itz00_bglt) BgL_nodez00_3065))))->
						BgL_typez00);
					{	/* Ast/dump.scm 390 */
						obj_t BgL_idz00_3202;

						BgL_idz00_3202 = CNST_TABLE_REF(8L);
						if (CBOOL(BGl_za2typenodezd2shapezf3za2z21zzengine_paramz00))
							{	/* Ast/dump.scm 442 */
								obj_t BgL_arg1492z00_3203;

								{	/* Ast/dump.scm 442 */
									obj_t BgL_arg1494z00_3204;
									obj_t BgL_arg1496z00_3205;

									{	/* Ast/dump.scm 442 */
										obj_t BgL_arg1454z00_3206;

										BgL_arg1454z00_3206 = SYMBOL_TO_STRING(BgL_idz00_3202);
										BgL_arg1494z00_3204 =
											BGl_stringzd2copyzd2zz__r4_strings_6_7z00
											(BgL_arg1454z00_3206);
									}
									BgL_arg1496z00_3205 =
										BGl_shapez00zztools_shapez00(((obj_t) BgL_arg2285z00_3201));
									BgL_arg1492z00_3203 =
										string_append_3(BgL_arg1494z00_3204,
										BGl_string2414z00zzast_dumpz00, BgL_arg1496z00_3205);
								}
								BgL_arg2283z00_3199 = bstring_to_symbol(BgL_arg1492z00_3203);
							}
						else
							{	/* Ast/dump.scm 441 */
								BgL_arg2283z00_3199 = BgL_idz00_3202;
							}
					}
				}
				{	/* Ast/dump.scm 391 */
					obj_t BgL_arg2286z00_3207;
					obj_t BgL_arg2287z00_3208;

					BgL_arg2286z00_3207 =
						BGl_nodezd2ze3sexpz31zzast_dumpz00(
						(((BgL_jumpzd2exzd2itz00_bglt) COBJECT(
									((BgL_jumpzd2exzd2itz00_bglt) BgL_nodez00_3065)))->
							BgL_exitz00));
					BgL_arg2287z00_3208 =
						MAKE_YOUNG_PAIR(BGl_nodezd2ze3sexpz31zzast_dumpz00(((
									(BgL_jumpzd2exzd2itz00_bglt)
									COBJECT(((BgL_jumpzd2exzd2itz00_bglt) BgL_nodez00_3065)))->
								BgL_valuez00)), BNIL);
					BgL_arg2284z00_3200 =
						MAKE_YOUNG_PAIR(BgL_arg2286z00_3207, BgL_arg2287z00_3208);
				}
				return MAKE_YOUNG_PAIR(BgL_arg2283z00_3199, BgL_arg2284z00_3200);
			}
		}

	}



/* &node->sexp-set-ex-it1404 */
	obj_t BGl_z62nodezd2ze3sexpzd2setzd2exzd2it1404z81zzast_dumpz00(obj_t
		BgL_envz00_3066, obj_t BgL_nodez00_3067)
	{
		{	/* Ast/dump.scm 378 */
			{	/* Ast/dump.scm 380 */
				obj_t BgL_arg2269z00_3210;
				obj_t BgL_arg2270z00_3211;

				{	/* Ast/dump.scm 380 */
					BgL_typez00_bglt BgL_arg2271z00_3212;

					BgL_arg2271z00_3212 =
						(((BgL_nodez00_bglt) COBJECT(
								((BgL_nodez00_bglt)
									((BgL_setzd2exzd2itz00_bglt) BgL_nodez00_3067))))->
						BgL_typez00);
					{	/* Ast/dump.scm 380 */
						obj_t BgL_idz00_3213;

						BgL_idz00_3213 = CNST_TABLE_REF(9L);
						if (CBOOL(BGl_za2typenodezd2shapezf3za2z21zzengine_paramz00))
							{	/* Ast/dump.scm 442 */
								obj_t BgL_arg1492z00_3214;

								{	/* Ast/dump.scm 442 */
									obj_t BgL_arg1494z00_3215;
									obj_t BgL_arg1496z00_3216;

									{	/* Ast/dump.scm 442 */
										obj_t BgL_arg1454z00_3217;

										BgL_arg1454z00_3217 = SYMBOL_TO_STRING(BgL_idz00_3213);
										BgL_arg1494z00_3215 =
											BGl_stringzd2copyzd2zz__r4_strings_6_7z00
											(BgL_arg1454z00_3217);
									}
									BgL_arg1496z00_3216 =
										BGl_shapez00zztools_shapez00(((obj_t) BgL_arg2271z00_3212));
									BgL_arg1492z00_3214 =
										string_append_3(BgL_arg1494z00_3215,
										BGl_string2414z00zzast_dumpz00, BgL_arg1496z00_3216);
								}
								BgL_arg2269z00_3210 = bstring_to_symbol(BgL_arg1492z00_3214);
							}
						else
							{	/* Ast/dump.scm 441 */
								BgL_arg2269z00_3210 = BgL_idz00_3213;
							}
					}
				}
				{	/* Ast/dump.scm 381 */
					obj_t BgL_arg2272z00_3218;
					obj_t BgL_arg2273z00_3219;

					{	/* Ast/dump.scm 381 */
						BgL_varz00_bglt BgL_arg2274z00_3220;

						BgL_arg2274z00_3220 =
							(((BgL_setzd2exzd2itz00_bglt) COBJECT(
									((BgL_setzd2exzd2itz00_bglt) BgL_nodez00_3067)))->BgL_varz00);
						BgL_arg2272z00_3218 =
							BGl_nodezd2ze3sexpz31zzast_dumpz00(
							((BgL_nodez00_bglt) BgL_arg2274z00_3220));
					}
					{	/* Ast/dump.scm 382 */
						obj_t BgL_arg2275z00_3221;

						{	/* Ast/dump.scm 382 */
							obj_t BgL_arg2276z00_3222;
							obj_t BgL_arg2277z00_3223;

							BgL_arg2276z00_3222 =
								BGl_nodezd2ze3sexpz31zzast_dumpz00(
								(((BgL_setzd2exzd2itz00_bglt) COBJECT(
											((BgL_setzd2exzd2itz00_bglt) BgL_nodez00_3067)))->
									BgL_bodyz00));
							{	/* Ast/dump.scm 383 */
								obj_t BgL_arg2280z00_3224;

								BgL_arg2280z00_3224 =
									MAKE_YOUNG_PAIR(BGl_nodezd2ze3sexpz31zzast_dumpz00(
										(((BgL_setzd2exzd2itz00_bglt) COBJECT(
													((BgL_setzd2exzd2itz00_bglt) BgL_nodez00_3067)))->
											BgL_onexitz00)), BNIL);
								BgL_arg2277z00_3223 =
									MAKE_YOUNG_PAIR(CNST_TABLE_REF(10L), BgL_arg2280z00_3224);
							}
							BgL_arg2275z00_3221 =
								MAKE_YOUNG_PAIR(BgL_arg2276z00_3222, BgL_arg2277z00_3223);
						}
						BgL_arg2273z00_3219 =
							MAKE_YOUNG_PAIR(CNST_TABLE_REF(11L), BgL_arg2275z00_3221);
					}
					BgL_arg2270z00_3211 =
						MAKE_YOUNG_PAIR(BgL_arg2272z00_3218, BgL_arg2273z00_3219);
				}
				return MAKE_YOUNG_PAIR(BgL_arg2269z00_3210, BgL_arg2270z00_3211);
			}
		}

	}



/* &node->sexp-let-var1402 */
	obj_t BGl_z62nodezd2ze3sexpzd2letzd2var1402z53zzast_dumpz00(obj_t
		BgL_envz00_3068, obj_t BgL_nodez00_3069)
	{
		{	/* Ast/dump.scm 361 */
			{	/* Ast/dump.scm 363 */
				obj_t BgL_symz00_3226;

				{	/* Ast/dump.scm 363 */
					BgL_typez00_bglt BgL_arg2268z00_3227;

					BgL_arg2268z00_3227 =
						(((BgL_nodez00_bglt) COBJECT(
								((BgL_nodez00_bglt)
									((BgL_letzd2varzd2_bglt) BgL_nodez00_3069))))->BgL_typez00);
					{	/* Ast/dump.scm 363 */
						obj_t BgL_idz00_3228;

						BgL_idz00_3228 = CNST_TABLE_REF(12L);
						if (CBOOL(BGl_za2typenodezd2shapezf3za2z21zzengine_paramz00))
							{	/* Ast/dump.scm 442 */
								obj_t BgL_arg1492z00_3229;

								{	/* Ast/dump.scm 442 */
									obj_t BgL_arg1494z00_3230;
									obj_t BgL_arg1496z00_3231;

									{	/* Ast/dump.scm 442 */
										obj_t BgL_arg1454z00_3232;

										BgL_arg1454z00_3232 = SYMBOL_TO_STRING(BgL_idz00_3228);
										BgL_arg1494z00_3230 =
											BGl_stringzd2copyzd2zz__r4_strings_6_7z00
											(BgL_arg1454z00_3232);
									}
									BgL_arg1496z00_3231 =
										BGl_shapez00zztools_shapez00(((obj_t) BgL_arg2268z00_3227));
									BgL_arg1492z00_3229 =
										string_append_3(BgL_arg1494z00_3230,
										BGl_string2414z00zzast_dumpz00, BgL_arg1496z00_3231);
								}
								BgL_symz00_3226 = bstring_to_symbol(BgL_arg1492z00_3229);
							}
						else
							{	/* Ast/dump.scm 441 */
								BgL_symz00_3226 = BgL_idz00_3228;
							}
					}
				}
				{	/* Ast/dump.scm 364 */
					obj_t BgL_arg2244z00_3233;
					obj_t BgL_arg2245z00_3234;

					BgL_arg2244z00_3233 =
						(((BgL_nodez00_bglt) COBJECT(
								((BgL_nodez00_bglt)
									((BgL_letzd2varzd2_bglt) BgL_nodez00_3069))))->BgL_locz00);
					{	/* Ast/dump.scm 366 */
						obj_t BgL_arg2246z00_3235;

						{	/* Ast/dump.scm 366 */
							obj_t BgL_arg2247z00_3236;
							obj_t BgL_arg2248z00_3237;

							if (CBOOL(BGl_za2accesszd2shapezf3za2z21zzengine_paramz00))
								{	/* Ast/dump.scm 367 */
									obj_t BgL_arg2249z00_3238;

									{	/* Ast/dump.scm 367 */
										bool_t BgL_arg2250z00_3239;
										obj_t BgL_arg2251z00_3240;

										BgL_arg2250z00_3239 =
											BGl_sidezd2effectzf3z21zzeffect_effectz00(
											((BgL_nodez00_bglt)
												((BgL_letzd2varzd2_bglt) BgL_nodez00_3069)));
										{	/* Ast/dump.scm 368 */
											obj_t BgL_arg2252z00_3241;

											{	/* Ast/dump.scm 368 */
												bool_t BgL_arg2253z00_3242;

												BgL_arg2253z00_3242 =
													(((BgL_letzd2varzd2_bglt) COBJECT(
															((BgL_letzd2varzd2_bglt) BgL_nodez00_3069)))->
													BgL_removablezf3zf3);
												BgL_arg2252z00_3241 =
													MAKE_YOUNG_PAIR(BBOOL(BgL_arg2253z00_3242), BNIL);
											}
											BgL_arg2251z00_3240 =
												MAKE_YOUNG_PAIR(CNST_TABLE_REF(13L),
												BgL_arg2252z00_3241);
										}
										BgL_arg2249z00_3238 =
											MAKE_YOUNG_PAIR(BBOOL(BgL_arg2250z00_3239),
											BgL_arg2251z00_3240);
									}
									BgL_arg2247z00_3236 =
										MAKE_YOUNG_PAIR(CNST_TABLE_REF(14L), BgL_arg2249z00_3238);
								}
							else
								{	/* Ast/dump.scm 366 */
									BgL_arg2247z00_3236 = BNIL;
								}
							{	/* Ast/dump.scm 370 */
								obj_t BgL_arg2254z00_3243;
								obj_t BgL_arg2255z00_3244;

								{	/* Ast/dump.scm 370 */
									obj_t BgL_l1342z00_3245;

									BgL_l1342z00_3245 =
										(((BgL_letzd2varzd2_bglt) COBJECT(
												((BgL_letzd2varzd2_bglt) BgL_nodez00_3069)))->
										BgL_bindingsz00);
									if (NULLP(BgL_l1342z00_3245))
										{	/* Ast/dump.scm 370 */
											BgL_arg2254z00_3243 = BNIL;
										}
									else
										{	/* Ast/dump.scm 370 */
											obj_t BgL_head1344z00_3246;

											BgL_head1344z00_3246 = MAKE_YOUNG_PAIR(BNIL, BNIL);
											{
												obj_t BgL_l1342z00_3248;
												obj_t BgL_tail1345z00_3249;

												BgL_l1342z00_3248 = BgL_l1342z00_3245;
												BgL_tail1345z00_3249 = BgL_head1344z00_3246;
											BgL_zc3z04anonymousza32257ze3z87_3247:
												if (NULLP(BgL_l1342z00_3248))
													{	/* Ast/dump.scm 370 */
														BgL_arg2254z00_3243 = CDR(BgL_head1344z00_3246);
													}
												else
													{	/* Ast/dump.scm 370 */
														obj_t BgL_newtail1346z00_3250;

														{	/* Ast/dump.scm 370 */
															obj_t BgL_arg2260z00_3251;

															{	/* Ast/dump.scm 370 */
																obj_t BgL_bz00_3252;

																BgL_bz00_3252 =
																	CAR(((obj_t) BgL_l1342z00_3248));
																{	/* Ast/dump.scm 371 */
																	obj_t BgL_arg2261z00_3253;
																	obj_t BgL_arg2262z00_3254;

																	{	/* Ast/dump.scm 371 */
																		obj_t BgL_arg2263z00_3255;

																		BgL_arg2263z00_3255 =
																			CAR(((obj_t) BgL_bz00_3252));
																		BgL_arg2261z00_3253 =
																			BGl_shapez00zztools_shapez00
																			(BgL_arg2263z00_3255);
																	}
																	{	/* Ast/dump.scm 371 */
																		obj_t BgL_arg2264z00_3256;

																		{	/* Ast/dump.scm 371 */
																			obj_t BgL_arg2265z00_3257;

																			BgL_arg2265z00_3257 =
																				CDR(((obj_t) BgL_bz00_3252));
																			BgL_arg2264z00_3256 =
																				BGl_nodezd2ze3sexpz31zzast_dumpz00(
																				((BgL_nodez00_bglt)
																					BgL_arg2265z00_3257));
																		}
																		BgL_arg2262z00_3254 =
																			MAKE_YOUNG_PAIR(BgL_arg2264z00_3256,
																			BNIL);
																	}
																	BgL_arg2260z00_3251 =
																		MAKE_YOUNG_PAIR(BgL_arg2261z00_3253,
																		BgL_arg2262z00_3254);
																}
															}
															BgL_newtail1346z00_3250 =
																MAKE_YOUNG_PAIR(BgL_arg2260z00_3251, BNIL);
														}
														SET_CDR(BgL_tail1345z00_3249,
															BgL_newtail1346z00_3250);
														{	/* Ast/dump.scm 370 */
															obj_t BgL_arg2259z00_3258;

															BgL_arg2259z00_3258 =
																CDR(((obj_t) BgL_l1342z00_3248));
															{
																obj_t BgL_tail1345z00_4200;
																obj_t BgL_l1342z00_4199;

																BgL_l1342z00_4199 = BgL_arg2259z00_3258;
																BgL_tail1345z00_4200 = BgL_newtail1346z00_3250;
																BgL_tail1345z00_3249 = BgL_tail1345z00_4200;
																BgL_l1342z00_3248 = BgL_l1342z00_4199;
																goto BgL_zc3z04anonymousza32257ze3z87_3247;
															}
														}
													}
											}
										}
								}
								BgL_arg2255z00_3244 =
									MAKE_YOUNG_PAIR(BGl_nodezd2ze3sexpz31zzast_dumpz00(
										(((BgL_letzd2varzd2_bglt) COBJECT(
													((BgL_letzd2varzd2_bglt) BgL_nodez00_3069)))->
											BgL_bodyz00)), BNIL);
								BgL_arg2248z00_3237 =
									MAKE_YOUNG_PAIR(BgL_arg2254z00_3243, BgL_arg2255z00_3244);
							}
							BgL_arg2246z00_3235 =
								BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00
								(BgL_arg2247z00_3236, BgL_arg2248z00_3237);
						}
						BgL_arg2245z00_3234 =
							MAKE_YOUNG_PAIR(BgL_symz00_3226, BgL_arg2246z00_3235);
					}
					return
						BGl_locationzd2shapezd2zztools_locationz00(BgL_arg2244z00_3233,
						BgL_arg2245z00_3234);
				}
			}
		}

	}



/* &node->sexp-let-fun1400 */
	obj_t BGl_z62nodezd2ze3sexpzd2letzd2fun1400z53zzast_dumpz00(obj_t
		BgL_envz00_3070, obj_t BgL_nodez00_3071)
	{
		{	/* Ast/dump.scm 340 */
			{	/* Ast/dump.scm 342 */
				obj_t BgL_symz00_3260;

				{	/* Ast/dump.scm 342 */
					BgL_typez00_bglt BgL_arg2243z00_3261;

					BgL_arg2243z00_3261 =
						(((BgL_nodez00_bglt) COBJECT(
								((BgL_nodez00_bglt)
									((BgL_letzd2funzd2_bglt) BgL_nodez00_3071))))->BgL_typez00);
					{	/* Ast/dump.scm 342 */
						obj_t BgL_idz00_3262;

						BgL_idz00_3262 = CNST_TABLE_REF(15L);
						if (CBOOL(BGl_za2typenodezd2shapezf3za2z21zzengine_paramz00))
							{	/* Ast/dump.scm 442 */
								obj_t BgL_arg1492z00_3263;

								{	/* Ast/dump.scm 442 */
									obj_t BgL_arg1494z00_3264;
									obj_t BgL_arg1496z00_3265;

									{	/* Ast/dump.scm 442 */
										obj_t BgL_arg1454z00_3266;

										BgL_arg1454z00_3266 = SYMBOL_TO_STRING(BgL_idz00_3262);
										BgL_arg1494z00_3264 =
											BGl_stringzd2copyzd2zz__r4_strings_6_7z00
											(BgL_arg1454z00_3266);
									}
									BgL_arg1496z00_3265 =
										BGl_shapez00zztools_shapez00(((obj_t) BgL_arg2243z00_3261));
									BgL_arg1492z00_3263 =
										string_append_3(BgL_arg1494z00_3264,
										BGl_string2414z00zzast_dumpz00, BgL_arg1496z00_3265);
								}
								BgL_symz00_3260 = bstring_to_symbol(BgL_arg1492z00_3263);
							}
						else
							{	/* Ast/dump.scm 441 */
								BgL_symz00_3260 = BgL_idz00_3262;
							}
					}
				}
				{	/* Ast/dump.scm 343 */
					obj_t BgL_arg2208z00_3267;
					obj_t BgL_arg2209z00_3268;

					BgL_arg2208z00_3267 =
						(((BgL_nodez00_bglt) COBJECT(
								((BgL_nodez00_bglt)
									((BgL_letzd2funzd2_bglt) BgL_nodez00_3071))))->BgL_locz00);
					{	/* Ast/dump.scm 344 */
						obj_t BgL_arg2210z00_3269;

						{	/* Ast/dump.scm 344 */
							obj_t BgL_arg2211z00_3270;
							obj_t BgL_arg2212z00_3271;

							{	/* Ast/dump.scm 344 */
								obj_t BgL_l1337z00_3272;

								BgL_l1337z00_3272 =
									(((BgL_letzd2funzd2_bglt) COBJECT(
											((BgL_letzd2funzd2_bglt) BgL_nodez00_3071)))->
									BgL_localsz00);
								if (NULLP(BgL_l1337z00_3272))
									{	/* Ast/dump.scm 344 */
										BgL_arg2211z00_3270 = BNIL;
									}
								else
									{	/* Ast/dump.scm 344 */
										obj_t BgL_head1339z00_3273;

										BgL_head1339z00_3273 = MAKE_YOUNG_PAIR(BNIL, BNIL);
										{
											obj_t BgL_l1337z00_3275;
											obj_t BgL_tail1340z00_3276;

											BgL_l1337z00_3275 = BgL_l1337z00_3272;
											BgL_tail1340z00_3276 = BgL_head1339z00_3273;
										BgL_zc3z04anonymousza32214ze3z87_3274:
											if (NULLP(BgL_l1337z00_3275))
												{	/* Ast/dump.scm 344 */
													BgL_arg2211z00_3270 = CDR(BgL_head1339z00_3273);
												}
											else
												{	/* Ast/dump.scm 344 */
													obj_t BgL_newtail1341z00_3277;

													{	/* Ast/dump.scm 344 */
														obj_t BgL_arg2217z00_3278;

														{	/* Ast/dump.scm 344 */
															obj_t BgL_funz00_3279;

															BgL_funz00_3279 =
																CAR(((obj_t) BgL_l1337z00_3275));
															{	/* Ast/dump.scm 345 */
																BgL_valuez00_bglt BgL_fz00_3280;

																BgL_fz00_3280 =
																	(((BgL_variablez00_bglt) COBJECT(
																			((BgL_variablez00_bglt)
																				((BgL_localz00_bglt)
																					BgL_funz00_3279))))->BgL_valuez00);
																{	/* Ast/dump.scm 346 */
																	obj_t BgL_arg2218z00_3281;
																	obj_t BgL_arg2219z00_3282;

																	BgL_arg2218z00_3281 =
																		BGl_shapez00zztools_shapez00
																		(BgL_funz00_3279);
																	{	/* Ast/dump.scm 347 */
																		obj_t BgL_arg2220z00_3283;
																		obj_t BgL_arg2221z00_3284;

																		{	/* Ast/dump.scm 348 */
																			bool_t BgL_test2531z00_4238;

																			{	/* Ast/dump.scm 348 */
																				obj_t BgL_tmpz00_4239;

																				BgL_tmpz00_4239 =
																					(((BgL_sfunz00_bglt) COBJECT(
																							((BgL_sfunz00_bglt)
																								BgL_fz00_3280)))->
																					BgL_stackablez00);
																				BgL_test2531z00_4238 =
																					BOOLEANP(BgL_tmpz00_4239);
																			}
																			if (BgL_test2531z00_4238)
																				{	/* Ast/dump.scm 349 */
																					obj_t BgL_arg2224z00_3285;

																					{	/* Ast/dump.scm 349 */
																						obj_t BgL_arg2225z00_3286;

																						BgL_arg2225z00_3286 =
																							(((BgL_sfunz00_bglt) COBJECT(
																									((BgL_sfunz00_bglt)
																										BgL_fz00_3280)))->
																							BgL_stackablez00);
																						BgL_arg2224z00_3285 =
																							MAKE_YOUNG_PAIR
																							(BgL_arg2225z00_3286, BNIL);
																					}
																					BgL_arg2220z00_3283 =
																						MAKE_YOUNG_PAIR(CNST_TABLE_REF(16L),
																						BgL_arg2224z00_3285);
																				}
																			else
																				{	/* Ast/dump.scm 348 */
																					BgL_arg2220z00_3283 = BNIL;
																				}
																		}
																		{	/* Ast/dump.scm 352 */
																			obj_t BgL_arg2227z00_3287;
																			obj_t BgL_arg2228z00_3288;

																			{	/* Ast/dump.scm 352 */
																				obj_t BgL_arg2229z00_3289;
																				long BgL_arg2230z00_3290;

																				{	/* Ast/dump.scm 352 */
																					obj_t BgL_l1331z00_3291;

																					BgL_l1331z00_3291 =
																						(((BgL_sfunz00_bglt) COBJECT(
																								((BgL_sfunz00_bglt)
																									BgL_fz00_3280)))->
																						BgL_argsz00);
																					if (NULLP(BgL_l1331z00_3291))
																						{	/* Ast/dump.scm 352 */
																							BgL_arg2229z00_3289 = BNIL;
																						}
																					else
																						{	/* Ast/dump.scm 352 */
																							obj_t BgL_head1333z00_3292;

																							{	/* Ast/dump.scm 352 */
																								obj_t BgL_arg2237z00_3293;

																								{	/* Ast/dump.scm 352 */
																									obj_t BgL_arg2238z00_3294;

																									BgL_arg2238z00_3294 =
																										CAR(
																										((obj_t)
																											BgL_l1331z00_3291));
																									BgL_arg2237z00_3293 =
																										BGl_shapez00zztools_shapez00
																										(BgL_arg2238z00_3294);
																								}
																								BgL_head1333z00_3292 =
																									MAKE_YOUNG_PAIR
																									(BgL_arg2237z00_3293, BNIL);
																							}
																							{	/* Ast/dump.scm 352 */
																								obj_t BgL_g1336z00_3295;

																								BgL_g1336z00_3295 =
																									CDR(
																									((obj_t) BgL_l1331z00_3291));
																								{
																									obj_t BgL_l1331z00_3297;
																									obj_t BgL_tail1334z00_3298;

																									BgL_l1331z00_3297 =
																										BgL_g1336z00_3295;
																									BgL_tail1334z00_3298 =
																										BgL_head1333z00_3292;
																								BgL_zc3z04anonymousza32232ze3z87_3296:
																									if (NULLP
																										(BgL_l1331z00_3297))
																										{	/* Ast/dump.scm 352 */
																											BgL_arg2229z00_3289 =
																												BgL_head1333z00_3292;
																										}
																									else
																										{	/* Ast/dump.scm 352 */
																											obj_t
																												BgL_newtail1335z00_3299;
																											{	/* Ast/dump.scm 352 */
																												obj_t
																													BgL_arg2235z00_3300;
																												{	/* Ast/dump.scm 352 */
																													obj_t
																														BgL_arg2236z00_3301;
																													BgL_arg2236z00_3301 =
																														CAR(((obj_t)
																															BgL_l1331z00_3297));
																													BgL_arg2235z00_3300 =
																														BGl_shapez00zztools_shapez00
																														(BgL_arg2236z00_3301);
																												}
																												BgL_newtail1335z00_3299
																													=
																													MAKE_YOUNG_PAIR
																													(BgL_arg2235z00_3300,
																													BNIL);
																											}
																											SET_CDR
																												(BgL_tail1334z00_3298,
																												BgL_newtail1335z00_3299);
																											{	/* Ast/dump.scm 352 */
																												obj_t
																													BgL_arg2234z00_3302;
																												BgL_arg2234z00_3302 =
																													CDR(((obj_t)
																														BgL_l1331z00_3297));
																												{
																													obj_t
																														BgL_tail1334z00_4268;
																													obj_t
																														BgL_l1331z00_4267;
																													BgL_l1331z00_4267 =
																														BgL_arg2234z00_3302;
																													BgL_tail1334z00_4268 =
																														BgL_newtail1335z00_3299;
																													BgL_tail1334z00_3298 =
																														BgL_tail1334z00_4268;
																													BgL_l1331z00_3297 =
																														BgL_l1331z00_4267;
																													goto
																														BgL_zc3z04anonymousza32232ze3z87_3296;
																												}
																											}
																										}
																								}
																							}
																						}
																				}
																				BgL_arg2230z00_3290 =
																					(((BgL_funz00_bglt) COBJECT(
																							((BgL_funz00_bglt)
																								((BgL_sfunz00_bglt)
																									BgL_fz00_3280))))->
																					BgL_arityz00);
																				BgL_arg2227z00_3287 =
																					BGl_argszd2listzd2ze3argsza2z41zztools_argsz00
																					(BgL_arg2229z00_3289,
																					BINT(BgL_arg2230z00_3290));
																			}
																			{	/* Ast/dump.scm 354 */
																				obj_t BgL_arg2239z00_3303;

																				{	/* Ast/dump.scm 354 */
																					obj_t BgL_arg2240z00_3304;

																					BgL_arg2240z00_3304 =
																						(((BgL_sfunz00_bglt) COBJECT(
																								((BgL_sfunz00_bglt)
																									BgL_fz00_3280)))->
																						BgL_bodyz00);
																					BgL_arg2239z00_3303 =
																						BGl_nodezd2ze3sexpz31zzast_dumpz00((
																							(BgL_nodez00_bglt)
																							BgL_arg2240z00_3304));
																				}
																				BgL_arg2228z00_3288 =
																					MAKE_YOUNG_PAIR(BgL_arg2239z00_3303,
																					BNIL);
																			}
																			BgL_arg2221z00_3284 =
																				MAKE_YOUNG_PAIR(BgL_arg2227z00_3287,
																				BgL_arg2228z00_3288);
																		}
																		BgL_arg2219z00_3282 =
																			BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00
																			(BgL_arg2220z00_3283,
																			BgL_arg2221z00_3284);
																	}
																	BgL_arg2217z00_3278 =
																		MAKE_YOUNG_PAIR(BgL_arg2218z00_3281,
																		BgL_arg2219z00_3282);
																}
															}
														}
														BgL_newtail1341z00_3277 =
															MAKE_YOUNG_PAIR(BgL_arg2217z00_3278, BNIL);
													}
													SET_CDR(BgL_tail1340z00_3276,
														BgL_newtail1341z00_3277);
													{	/* Ast/dump.scm 344 */
														obj_t BgL_arg2216z00_3305;

														BgL_arg2216z00_3305 =
															CDR(((obj_t) BgL_l1337z00_3275));
														{
															obj_t BgL_tail1340z00_4287;
															obj_t BgL_l1337z00_4286;

															BgL_l1337z00_4286 = BgL_arg2216z00_3305;
															BgL_tail1340z00_4287 = BgL_newtail1341z00_3277;
															BgL_tail1340z00_3276 = BgL_tail1340z00_4287;
															BgL_l1337z00_3275 = BgL_l1337z00_4286;
															goto BgL_zc3z04anonymousza32214ze3z87_3274;
														}
													}
												}
										}
									}
							}
							BgL_arg2212z00_3271 =
								MAKE_YOUNG_PAIR(BGl_nodezd2ze3sexpz31zzast_dumpz00(
									(((BgL_letzd2funzd2_bglt) COBJECT(
												((BgL_letzd2funzd2_bglt) BgL_nodez00_3071)))->
										BgL_bodyz00)), BNIL);
							BgL_arg2210z00_3269 =
								MAKE_YOUNG_PAIR(BgL_arg2211z00_3270, BgL_arg2212z00_3271);
						}
						BgL_arg2209z00_3268 =
							MAKE_YOUNG_PAIR(BgL_symz00_3260, BgL_arg2210z00_3269);
					}
					return
						BGl_locationzd2shapezd2zztools_locationz00(BgL_arg2208z00_3267,
						BgL_arg2209z00_3268);
				}
			}
		}

	}



/* &node->sexp-switch1398 */
	obj_t BGl_z62nodezd2ze3sexpzd2switch1398z81zzast_dumpz00(obj_t
		BgL_envz00_3072, obj_t BgL_nodez00_3073)
	{
		{	/* Ast/dump.scm 328 */
			{	/* Ast/dump.scm 330 */
				obj_t BgL_arg2190z00_3307;
				obj_t BgL_arg2191z00_3308;

				BgL_arg2190z00_3307 =
					(((BgL_nodez00_bglt) COBJECT(
							((BgL_nodez00_bglt)
								((BgL_switchz00_bglt) BgL_nodez00_3073))))->BgL_locz00);
				{	/* Ast/dump.scm 331 */
					obj_t BgL_arg2192z00_3309;
					obj_t BgL_arg2193z00_3310;

					{	/* Ast/dump.scm 331 */
						BgL_typez00_bglt BgL_arg2194z00_3311;

						BgL_arg2194z00_3311 =
							(((BgL_nodez00_bglt) COBJECT(
									((BgL_nodez00_bglt)
										((BgL_switchz00_bglt) BgL_nodez00_3073))))->BgL_typez00);
						{	/* Ast/dump.scm 331 */
							obj_t BgL_idz00_3312;

							BgL_idz00_3312 = CNST_TABLE_REF(17L);
							if (CBOOL(BGl_za2typenodezd2shapezf3za2z21zzengine_paramz00))
								{	/* Ast/dump.scm 442 */
									obj_t BgL_arg1492z00_3313;

									{	/* Ast/dump.scm 442 */
										obj_t BgL_arg1494z00_3314;
										obj_t BgL_arg1496z00_3315;

										{	/* Ast/dump.scm 442 */
											obj_t BgL_arg1454z00_3316;

											BgL_arg1454z00_3316 = SYMBOL_TO_STRING(BgL_idz00_3312);
											BgL_arg1494z00_3314 =
												BGl_stringzd2copyzd2zz__r4_strings_6_7z00
												(BgL_arg1454z00_3316);
										}
										BgL_arg1496z00_3315 =
											BGl_shapez00zztools_shapez00(
											((obj_t) BgL_arg2194z00_3311));
										BgL_arg1492z00_3313 =
											string_append_3(BgL_arg1494z00_3314,
											BGl_string2414z00zzast_dumpz00, BgL_arg1496z00_3315);
									}
									BgL_arg2192z00_3309 = bstring_to_symbol(BgL_arg1492z00_3313);
								}
							else
								{	/* Ast/dump.scm 441 */
									BgL_arg2192z00_3309 = BgL_idz00_3312;
								}
						}
					}
					{	/* Ast/dump.scm 332 */
						obj_t BgL_arg2195z00_3317;
						obj_t BgL_arg2196z00_3318;

						BgL_arg2195z00_3317 =
							BGl_nodezd2ze3sexpz31zzast_dumpz00(
							(((BgL_switchz00_bglt) COBJECT(
										((BgL_switchz00_bglt) BgL_nodez00_3073)))->BgL_testz00));
						{	/* Ast/dump.scm 333 */
							obj_t BgL_arg2198z00_3319;

							{	/* Ast/dump.scm 333 */
								obj_t BgL_l1326z00_3320;

								BgL_l1326z00_3320 =
									(((BgL_switchz00_bglt) COBJECT(
											((BgL_switchz00_bglt) BgL_nodez00_3073)))->
									BgL_clausesz00);
								if (NULLP(BgL_l1326z00_3320))
									{	/* Ast/dump.scm 333 */
										BgL_arg2198z00_3319 = BNIL;
									}
								else
									{	/* Ast/dump.scm 333 */
										obj_t BgL_head1328z00_3321;

										BgL_head1328z00_3321 = MAKE_YOUNG_PAIR(BNIL, BNIL);
										{
											obj_t BgL_l1326z00_3323;
											obj_t BgL_tail1329z00_3324;

											BgL_l1326z00_3323 = BgL_l1326z00_3320;
											BgL_tail1329z00_3324 = BgL_head1328z00_3321;
										BgL_zc3z04anonymousza32200ze3z87_3322:
											if (NULLP(BgL_l1326z00_3323))
												{	/* Ast/dump.scm 333 */
													BgL_arg2198z00_3319 = CDR(BgL_head1328z00_3321);
												}
											else
												{	/* Ast/dump.scm 333 */
													obj_t BgL_newtail1330z00_3325;

													{	/* Ast/dump.scm 333 */
														obj_t BgL_arg2203z00_3326;

														{	/* Ast/dump.scm 333 */
															obj_t BgL_clausez00_3327;

															BgL_clausez00_3327 =
																CAR(((obj_t) BgL_l1326z00_3323));
															{	/* Ast/dump.scm 334 */
																obj_t BgL_arg2204z00_3328;
																obj_t BgL_arg2205z00_3329;

																BgL_arg2204z00_3328 =
																	CAR(((obj_t) BgL_clausez00_3327));
																{	/* Ast/dump.scm 334 */
																	obj_t BgL_arg2206z00_3330;

																	{	/* Ast/dump.scm 334 */
																		obj_t BgL_arg2207z00_3331;

																		BgL_arg2207z00_3331 =
																			CDR(((obj_t) BgL_clausez00_3327));
																		BgL_arg2206z00_3330 =
																			BGl_nodezd2ze3sexpz31zzast_dumpz00(
																			((BgL_nodez00_bglt) BgL_arg2207z00_3331));
																	}
																	BgL_arg2205z00_3329 =
																		MAKE_YOUNG_PAIR(BgL_arg2206z00_3330, BNIL);
																}
																BgL_arg2203z00_3326 =
																	MAKE_YOUNG_PAIR(BgL_arg2204z00_3328,
																	BgL_arg2205z00_3329);
															}
														}
														BgL_newtail1330z00_3325 =
															MAKE_YOUNG_PAIR(BgL_arg2203z00_3326, BNIL);
													}
													SET_CDR(BgL_tail1329z00_3324,
														BgL_newtail1330z00_3325);
													{	/* Ast/dump.scm 333 */
														obj_t BgL_arg2202z00_3332;

														BgL_arg2202z00_3332 =
															CDR(((obj_t) BgL_l1326z00_3323));
														{
															obj_t BgL_tail1329z00_4336;
															obj_t BgL_l1326z00_4335;

															BgL_l1326z00_4335 = BgL_arg2202z00_3332;
															BgL_tail1329z00_4336 = BgL_newtail1330z00_3325;
															BgL_tail1329z00_3324 = BgL_tail1329z00_4336;
															BgL_l1326z00_3323 = BgL_l1326z00_4335;
															goto BgL_zc3z04anonymousza32200ze3z87_3322;
														}
													}
												}
										}
									}
							}
							BgL_arg2196z00_3318 =
								BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00
								(BgL_arg2198z00_3319, BNIL);
						}
						BgL_arg2193z00_3310 =
							MAKE_YOUNG_PAIR(BgL_arg2195z00_3317, BgL_arg2196z00_3318);
					}
					BgL_arg2191z00_3308 =
						MAKE_YOUNG_PAIR(BgL_arg2192z00_3309, BgL_arg2193z00_3310);
				}
				return
					BGl_locationzd2shapezd2zztools_locationz00(BgL_arg2190z00_3307,
					BgL_arg2191z00_3308);
			}
		}

	}



/* &node->sexp-fail1396 */
	obj_t BGl_z62nodezd2ze3sexpzd2fail1396z81zzast_dumpz00(obj_t BgL_envz00_3074,
		obj_t BgL_nodez00_3075)
	{
		{	/* Ast/dump.scm 318 */
			{	/* Ast/dump.scm 320 */
				obj_t BgL_arg2179z00_3334;
				obj_t BgL_arg2180z00_3335;

				BgL_arg2179z00_3334 =
					(((BgL_nodez00_bglt) COBJECT(
							((BgL_nodez00_bglt)
								((BgL_failz00_bglt) BgL_nodez00_3075))))->BgL_locz00);
				{	/* Ast/dump.scm 321 */
					obj_t BgL_arg2181z00_3336;

					{	/* Ast/dump.scm 321 */
						obj_t BgL_arg2182z00_3337;
						obj_t BgL_arg2183z00_3338;

						BgL_arg2182z00_3337 =
							BGl_nodezd2ze3sexpz31zzast_dumpz00(
							(((BgL_failz00_bglt) COBJECT(
										((BgL_failz00_bglt) BgL_nodez00_3075)))->BgL_procz00));
						{	/* Ast/dump.scm 322 */
							obj_t BgL_arg2185z00_3339;
							obj_t BgL_arg2186z00_3340;

							BgL_arg2185z00_3339 =
								BGl_nodezd2ze3sexpz31zzast_dumpz00(
								(((BgL_failz00_bglt) COBJECT(
											((BgL_failz00_bglt) BgL_nodez00_3075)))->BgL_msgz00));
							BgL_arg2186z00_3340 =
								MAKE_YOUNG_PAIR(BGl_nodezd2ze3sexpz31zzast_dumpz00(
									(((BgL_failz00_bglt) COBJECT(
												((BgL_failz00_bglt) BgL_nodez00_3075)))->BgL_objz00)),
								BNIL);
							BgL_arg2183z00_3338 =
								MAKE_YOUNG_PAIR(BgL_arg2185z00_3339, BgL_arg2186z00_3340);
						}
						BgL_arg2181z00_3336 =
							MAKE_YOUNG_PAIR(BgL_arg2182z00_3337, BgL_arg2183z00_3338);
					}
					BgL_arg2180z00_3335 =
						MAKE_YOUNG_PAIR(CNST_TABLE_REF(18L), BgL_arg2181z00_3336);
				}
				return
					BGl_locationzd2shapezd2zztools_locationz00(BgL_arg2179z00_3334,
					BgL_arg2180z00_3335);
			}
		}

	}



/* &node->sexp-condition1394 */
	obj_t BGl_z62nodezd2ze3sexpzd2condition1394z81zzast_dumpz00(obj_t
		BgL_envz00_3076, obj_t BgL_nodez00_3077)
	{
		{	/* Ast/dump.scm 307 */
			{	/* Ast/dump.scm 309 */
				obj_t BgL_arg2166z00_3342;
				obj_t BgL_arg2167z00_3343;

				BgL_arg2166z00_3342 =
					(((BgL_nodez00_bglt) COBJECT(
							((BgL_nodez00_bglt)
								((BgL_conditionalz00_bglt) BgL_nodez00_3077))))->BgL_locz00);
				{	/* Ast/dump.scm 310 */
					obj_t BgL_arg2168z00_3344;
					obj_t BgL_arg2169z00_3345;

					{	/* Ast/dump.scm 310 */
						BgL_typez00_bglt BgL_arg2170z00_3346;

						BgL_arg2170z00_3346 =
							(((BgL_nodez00_bglt) COBJECT(
									((BgL_nodez00_bglt)
										((BgL_conditionalz00_bglt) BgL_nodez00_3077))))->
							BgL_typez00);
						{	/* Ast/dump.scm 310 */
							obj_t BgL_idz00_3347;

							BgL_idz00_3347 = CNST_TABLE_REF(19L);
							if (CBOOL(BGl_za2typenodezd2shapezf3za2z21zzengine_paramz00))
								{	/* Ast/dump.scm 442 */
									obj_t BgL_arg1492z00_3348;

									{	/* Ast/dump.scm 442 */
										obj_t BgL_arg1494z00_3349;
										obj_t BgL_arg1496z00_3350;

										{	/* Ast/dump.scm 442 */
											obj_t BgL_arg1454z00_3351;

											BgL_arg1454z00_3351 = SYMBOL_TO_STRING(BgL_idz00_3347);
											BgL_arg1494z00_3349 =
												BGl_stringzd2copyzd2zz__r4_strings_6_7z00
												(BgL_arg1454z00_3351);
										}
										BgL_arg1496z00_3350 =
											BGl_shapez00zztools_shapez00(
											((obj_t) BgL_arg2170z00_3346));
										BgL_arg1492z00_3348 =
											string_append_3(BgL_arg1494z00_3349,
											BGl_string2414z00zzast_dumpz00, BgL_arg1496z00_3350);
									}
									BgL_arg2168z00_3344 = bstring_to_symbol(BgL_arg1492z00_3348);
								}
							else
								{	/* Ast/dump.scm 441 */
									BgL_arg2168z00_3344 = BgL_idz00_3347;
								}
						}
					}
					{	/* Ast/dump.scm 311 */
						obj_t BgL_arg2171z00_3352;
						obj_t BgL_arg2172z00_3353;

						BgL_arg2171z00_3352 =
							BGl_nodezd2ze3sexpz31zzast_dumpz00(
							(((BgL_conditionalz00_bglt) COBJECT(
										((BgL_conditionalz00_bglt) BgL_nodez00_3077)))->
								BgL_testz00));
						{	/* Ast/dump.scm 312 */
							obj_t BgL_arg2174z00_3354;
							obj_t BgL_arg2175z00_3355;

							BgL_arg2174z00_3354 =
								BGl_nodezd2ze3sexpz31zzast_dumpz00(
								(((BgL_conditionalz00_bglt) COBJECT(
											((BgL_conditionalz00_bglt) BgL_nodez00_3077)))->
									BgL_truez00));
							BgL_arg2175z00_3355 =
								MAKE_YOUNG_PAIR(BGl_nodezd2ze3sexpz31zzast_dumpz00(((
											(BgL_conditionalz00_bglt)
											COBJECT(((BgL_conditionalz00_bglt) BgL_nodez00_3077)))->
										BgL_falsez00)), BNIL);
							BgL_arg2172z00_3353 =
								MAKE_YOUNG_PAIR(BgL_arg2174z00_3354, BgL_arg2175z00_3355);
						}
						BgL_arg2169z00_3345 =
							MAKE_YOUNG_PAIR(BgL_arg2171z00_3352, BgL_arg2172z00_3353);
					}
					BgL_arg2167z00_3343 =
						MAKE_YOUNG_PAIR(BgL_arg2168z00_3344, BgL_arg2169z00_3345);
				}
				return
					BGl_locationzd2shapezd2zztools_locationz00(BgL_arg2166z00_3342,
					BgL_arg2167z00_3343);
			}
		}

	}



/* &node->sexp-setq1392 */
	obj_t BGl_z62nodezd2ze3sexpzd2setq1392z81zzast_dumpz00(obj_t BgL_envz00_3078,
		obj_t BgL_nodez00_3079)
	{
		{	/* Ast/dump.scm 298 */
			{	/* Ast/dump.scm 300 */
				obj_t BgL_arg2158z00_3357;
				obj_t BgL_arg2159z00_3358;

				BgL_arg2158z00_3357 =
					(((BgL_nodez00_bglt) COBJECT(
							((BgL_nodez00_bglt)
								((BgL_setqz00_bglt) BgL_nodez00_3079))))->BgL_locz00);
				{	/* Ast/dump.scm 301 */
					obj_t BgL_arg2160z00_3359;

					{	/* Ast/dump.scm 301 */
						obj_t BgL_arg2161z00_3360;
						obj_t BgL_arg2162z00_3361;

						{	/* Ast/dump.scm 301 */
							BgL_varz00_bglt BgL_arg2163z00_3362;

							BgL_arg2163z00_3362 =
								(((BgL_setqz00_bglt) COBJECT(
										((BgL_setqz00_bglt) BgL_nodez00_3079)))->BgL_varz00);
							BgL_arg2161z00_3360 =
								BGl_nodezd2ze3sexpz31zzast_dumpz00(
								((BgL_nodez00_bglt) BgL_arg2163z00_3362));
						}
						BgL_arg2162z00_3361 =
							MAKE_YOUNG_PAIR(BGl_nodezd2ze3sexpz31zzast_dumpz00(
								(((BgL_setqz00_bglt) COBJECT(
											((BgL_setqz00_bglt) BgL_nodez00_3079)))->BgL_valuez00)),
							BNIL);
						BgL_arg2160z00_3359 =
							MAKE_YOUNG_PAIR(BgL_arg2161z00_3360, BgL_arg2162z00_3361);
					}
					BgL_arg2159z00_3358 =
						MAKE_YOUNG_PAIR(CNST_TABLE_REF(20L), BgL_arg2160z00_3359);
				}
				return
					BGl_locationzd2shapezd2zztools_locationz00(BgL_arg2158z00_3357,
					BgL_arg2159z00_3358);
			}
		}

	}



/* &node->sexp-cast1390 */
	obj_t BGl_z62nodezd2ze3sexpzd2cast1390z81zzast_dumpz00(obj_t BgL_envz00_3080,
		obj_t BgL_nodez00_3081)
	{
		{	/* Ast/dump.scm 290 */
			{	/* Ast/dump.scm 293 */
				obj_t BgL_arg2152z00_3364;
				obj_t BgL_arg2153z00_3365;

				{	/* Ast/dump.scm 293 */
					obj_t BgL_arg2154z00_3366;

					BgL_arg2154z00_3366 =
						(((BgL_typez00_bglt) COBJECT(
								(((BgL_nodez00_bglt) COBJECT(
											((BgL_nodez00_bglt)
												((BgL_castz00_bglt) BgL_nodez00_3081))))->
									BgL_typez00)))->BgL_idz00);
					BgL_arg2152z00_3364 =
						BGl_makezd2typedzd2identz00zzast_identz00(CNST_TABLE_REF(21L),
						BgL_arg2154z00_3366);
				}
				BgL_arg2153z00_3365 =
					MAKE_YOUNG_PAIR(BGl_nodezd2ze3sexpz31zzast_dumpz00(
						(((BgL_castz00_bglt) COBJECT(
									((BgL_castz00_bglt) BgL_nodez00_3081)))->BgL_argz00)), BNIL);
				return MAKE_YOUNG_PAIR(BgL_arg2152z00_3364, BgL_arg2153z00_3365);
			}
		}

	}



/* &node->sexp-cast-null1388 */
	obj_t BGl_z62nodezd2ze3sexpzd2castzd2null1388z53zzast_dumpz00(obj_t
		BgL_envz00_3082, obj_t BgL_nodez00_3083)
	{
		{	/* Ast/dump.scm 282 */
			{	/* Ast/dump.scm 285 */
				obj_t BgL_arg2149z00_3368;

				{	/* Ast/dump.scm 285 */
					obj_t BgL_arg2150z00_3369;

					BgL_arg2150z00_3369 =
						(((BgL_typez00_bglt) COBJECT(
								(((BgL_nodez00_bglt) COBJECT(
											((BgL_nodez00_bglt)
												((BgL_castzd2nullzd2_bglt) BgL_nodez00_3083))))->
									BgL_typez00)))->BgL_idz00);
					BgL_arg2149z00_3368 = MAKE_YOUNG_PAIR(BgL_arg2150z00_3369, BNIL);
				}
				return MAKE_YOUNG_PAIR(CNST_TABLE_REF(22L), BgL_arg2149z00_3368);
			}
		}

	}



/* &node->sexp-instanceo1385 */
	obj_t BGl_z62nodezd2ze3sexpzd2instanceo1385z81zzast_dumpz00(obj_t
		BgL_envz00_3084, obj_t BgL_nodez00_3085)
	{
		{	/* Ast/dump.scm 274 */
			{	/* Ast/dump.scm 277 */
				obj_t BgL_arg2141z00_3371;

				{	/* Ast/dump.scm 277 */
					obj_t BgL_arg2142z00_3372;
					obj_t BgL_arg2143z00_3373;

					{	/* Ast/dump.scm 277 */
						obj_t BgL_arg2144z00_3374;

						{	/* Ast/dump.scm 277 */
							obj_t BgL_pairz00_3375;

							BgL_pairz00_3375 =
								(((BgL_externz00_bglt) COBJECT(
										((BgL_externz00_bglt)
											((BgL_instanceofz00_bglt) BgL_nodez00_3085))))->
								BgL_exprza2za2);
							BgL_arg2144z00_3374 = CAR(BgL_pairz00_3375);
						}
						BgL_arg2142z00_3372 =
							BGl_nodezd2ze3sexpz31zzast_dumpz00(
							((BgL_nodez00_bglt) BgL_arg2144z00_3374));
					}
					BgL_arg2143z00_3373 =
						MAKE_YOUNG_PAIR(
						(((BgL_typez00_bglt) COBJECT(
									(((BgL_instanceofz00_bglt) COBJECT(
												((BgL_instanceofz00_bglt) BgL_nodez00_3085)))->
										BgL_classz00)))->BgL_idz00), BNIL);
					BgL_arg2141z00_3371 =
						MAKE_YOUNG_PAIR(BgL_arg2142z00_3372, BgL_arg2143z00_3373);
				}
				return MAKE_YOUNG_PAIR(CNST_TABLE_REF(23L), BgL_arg2141z00_3371);
			}
		}

	}



/* &node->sexp-valloc1383 */
	obj_t BGl_z62nodezd2ze3sexpzd2valloc1383z81zzast_dumpz00(obj_t
		BgL_envz00_3086, obj_t BgL_nodez00_3087)
	{
		{	/* Ast/dump.scm 262 */
			{	/* Ast/dump.scm 267 */
				obj_t BgL_arg2119z00_3377;
				obj_t BgL_arg2120z00_3378;

				{	/* Ast/dump.scm 267 */
					obj_t BgL_arg2122z00_3379;

					{	/* Ast/dump.scm 267 */
						obj_t BgL_arg2123z00_3380;
						obj_t BgL_arg2124z00_3381;

						{	/* Ast/dump.scm 267 */
							BgL_typez00_bglt BgL_arg2130z00_3382;

							BgL_arg2130z00_3382 =
								BGl_getzd2typezd2zztype_typeofz00(
								((BgL_nodez00_bglt)
									((BgL_vallocz00_bglt) BgL_nodez00_3087)), ((bool_t) 0));
							BgL_arg2123z00_3380 =
								BGl_shapez00zztools_shapez00(((obj_t) BgL_arg2130z00_3382));
						}
						{	/* Ast/dump.scm 268 */
							BgL_typez00_bglt BgL_arg2131z00_3383;

							BgL_arg2131z00_3383 =
								(((BgL_vallocz00_bglt) COBJECT(
										((BgL_vallocz00_bglt) BgL_nodez00_3087)))->BgL_ftypez00);
							BgL_arg2124z00_3381 =
								BGl_shapez00zztools_shapez00(((obj_t) BgL_arg2131z00_3383));
						}
						{	/* Ast/dump.scm 266 */
							obj_t BgL_list2125z00_3384;

							{	/* Ast/dump.scm 266 */
								obj_t BgL_arg2126z00_3385;

								{	/* Ast/dump.scm 266 */
									obj_t BgL_arg2127z00_3386;

									{	/* Ast/dump.scm 266 */
										obj_t BgL_arg2128z00_3387;

										{	/* Ast/dump.scm 266 */
											obj_t BgL_arg2129z00_3388;

											BgL_arg2129z00_3388 =
												MAKE_YOUNG_PAIR(BGl_string2455z00zzast_dumpz00, BNIL);
											BgL_arg2128z00_3387 =
												MAKE_YOUNG_PAIR(BgL_arg2124z00_3381,
												BgL_arg2129z00_3388);
										}
										BgL_arg2127z00_3386 =
											MAKE_YOUNG_PAIR(BGl_string2456z00zzast_dumpz00,
											BgL_arg2128z00_3387);
									}
									BgL_arg2126z00_3385 =
										MAKE_YOUNG_PAIR(BgL_arg2123z00_3380, BgL_arg2127z00_3386);
								}
								BgL_list2125z00_3384 =
									MAKE_YOUNG_PAIR(BGl_string2457z00zzast_dumpz00,
									BgL_arg2126z00_3385);
							}
							BgL_arg2122z00_3379 =
								BGl_stringzd2appendzd2zz__r4_strings_6_7z00
								(BgL_list2125z00_3384);
						}
					}
					BgL_arg2119z00_3377 = bstring_to_symbol(BgL_arg2122z00_3379);
				}
				{	/* Ast/dump.scm 269 */
					obj_t BgL_arg2132z00_3389;

					{	/* Ast/dump.scm 269 */
						obj_t BgL_l1320z00_3390;

						BgL_l1320z00_3390 =
							(((BgL_externz00_bglt) COBJECT(
									((BgL_externz00_bglt)
										((BgL_vallocz00_bglt) BgL_nodez00_3087))))->BgL_exprza2za2);
						if (NULLP(BgL_l1320z00_3390))
							{	/* Ast/dump.scm 269 */
								BgL_arg2132z00_3389 = BNIL;
							}
						else
							{	/* Ast/dump.scm 269 */
								obj_t BgL_head1322z00_3391;

								{	/* Ast/dump.scm 269 */
									obj_t BgL_arg2139z00_3392;

									{	/* Ast/dump.scm 269 */
										obj_t BgL_arg2140z00_3393;

										BgL_arg2140z00_3393 = CAR(BgL_l1320z00_3390);
										BgL_arg2139z00_3392 =
											BGl_nodezd2ze3sexpz31zzast_dumpz00(
											((BgL_nodez00_bglt) BgL_arg2140z00_3393));
									}
									BgL_head1322z00_3391 =
										MAKE_YOUNG_PAIR(BgL_arg2139z00_3392, BNIL);
								}
								{	/* Ast/dump.scm 269 */
									obj_t BgL_g1325z00_3394;

									BgL_g1325z00_3394 = CDR(BgL_l1320z00_3390);
									{
										obj_t BgL_l1320z00_3396;
										obj_t BgL_tail1323z00_3397;

										BgL_l1320z00_3396 = BgL_g1325z00_3394;
										BgL_tail1323z00_3397 = BgL_head1322z00_3391;
									BgL_zc3z04anonymousza32134ze3z87_3395:
										if (NULLP(BgL_l1320z00_3396))
											{	/* Ast/dump.scm 269 */
												BgL_arg2132z00_3389 = BgL_head1322z00_3391;
											}
										else
											{	/* Ast/dump.scm 269 */
												obj_t BgL_newtail1324z00_3398;

												{	/* Ast/dump.scm 269 */
													obj_t BgL_arg2137z00_3399;

													{	/* Ast/dump.scm 269 */
														obj_t BgL_arg2138z00_3400;

														BgL_arg2138z00_3400 =
															CAR(((obj_t) BgL_l1320z00_3396));
														BgL_arg2137z00_3399 =
															BGl_nodezd2ze3sexpz31zzast_dumpz00(
															((BgL_nodez00_bglt) BgL_arg2138z00_3400));
													}
													BgL_newtail1324z00_3398 =
														MAKE_YOUNG_PAIR(BgL_arg2137z00_3399, BNIL);
												}
												SET_CDR(BgL_tail1323z00_3397, BgL_newtail1324z00_3398);
												{	/* Ast/dump.scm 269 */
													obj_t BgL_arg2136z00_3401;

													BgL_arg2136z00_3401 =
														CDR(((obj_t) BgL_l1320z00_3396));
													{
														obj_t BgL_tail1323z00_4471;
														obj_t BgL_l1320z00_4470;

														BgL_l1320z00_4470 = BgL_arg2136z00_3401;
														BgL_tail1323z00_4471 = BgL_newtail1324z00_3398;
														BgL_tail1323z00_3397 = BgL_tail1323z00_4471;
														BgL_l1320z00_3396 = BgL_l1320z00_4470;
														goto BgL_zc3z04anonymousza32134ze3z87_3395;
													}
												}
											}
									}
								}
							}
					}
					BgL_arg2120z00_3378 =
						BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(BgL_arg2132z00_3389,
						BNIL);
				}
				return MAKE_YOUNG_PAIR(BgL_arg2119z00_3377, BgL_arg2120z00_3378);
			}
		}

	}



/* &node->sexp-vset!1381 */
	obj_t BGl_z62nodezd2ze3sexpzd2vsetz121381z93zzast_dumpz00(obj_t
		BgL_envz00_3088, obj_t BgL_nodez00_3089)
	{
		{	/* Ast/dump.scm 251 */
			{	/* Ast/dump.scm 254 */
				obj_t BgL_idz00_3403;

				{	/* Ast/dump.scm 254 */
					obj_t BgL_arg2116z00_3404;
					BgL_typez00_bglt BgL_arg2117z00_3405;

					if (
						(((BgL_vsetz12z12_bglt) COBJECT(
									((BgL_vsetz12z12_bglt) BgL_nodez00_3089)))->BgL_unsafez00))
						{	/* Ast/dump.scm 254 */
							BgL_arg2116z00_3404 = CNST_TABLE_REF(24L);
						}
					else
						{	/* Ast/dump.scm 254 */
							BgL_arg2116z00_3404 = CNST_TABLE_REF(25L);
						}
					BgL_arg2117z00_3405 =
						BGl_getzd2typezd2zztype_typeofz00(
						((BgL_nodez00_bglt)
							((BgL_vsetz12z12_bglt) BgL_nodez00_3089)), ((bool_t) 0));
					BgL_idz00_3403 =
						BGl_shapezd2typedzd2nodez00zzast_dumpz00(BgL_arg2116z00_3404,
						BgL_arg2117z00_3405);
				}
				if (CBOOL(BGl_za2typezd2shapezf3za2z21zzengine_paramz00))
					{	/* Ast/dump.scm 256 */
						obj_t BgL_arg2091z00_3406;

						{	/* Ast/dump.scm 256 */
							obj_t BgL_arg2093z00_3407;
							obj_t BgL_arg2094z00_3408;

							{	/* Ast/dump.scm 256 */
								obj_t BgL_v1307z00_3409;

								BgL_v1307z00_3409 = create_vector(1L);
								{	/* Ast/dump.scm 256 */
									obj_t BgL_arg2095z00_3410;

									{	/* Ast/dump.scm 256 */
										BgL_typez00_bglt BgL_arg2096z00_3411;

										BgL_arg2096z00_3411 =
											(((BgL_vsetz12z12_bglt) COBJECT(
													((BgL_vsetz12z12_bglt) BgL_nodez00_3089)))->
											BgL_ftypez00);
										BgL_arg2095z00_3410 =
											BGl_shapez00zztools_shapez00(((obj_t)
												BgL_arg2096z00_3411));
									}
									VECTOR_SET(BgL_v1307z00_3409, 0L, BgL_arg2095z00_3410);
								}
								BgL_arg2093z00_3407 = BgL_v1307z00_3409;
							}
							{	/* Ast/dump.scm 256 */
								obj_t BgL_arg2097z00_3412;

								{	/* Ast/dump.scm 256 */
									obj_t BgL_l1308z00_3413;

									BgL_l1308z00_3413 =
										(((BgL_externz00_bglt) COBJECT(
												((BgL_externz00_bglt)
													((BgL_vsetz12z12_bglt) BgL_nodez00_3089))))->
										BgL_exprza2za2);
									if (NULLP(BgL_l1308z00_3413))
										{	/* Ast/dump.scm 256 */
											BgL_arg2097z00_3412 = BNIL;
										}
									else
										{	/* Ast/dump.scm 256 */
											obj_t BgL_head1310z00_3414;

											{	/* Ast/dump.scm 256 */
												obj_t BgL_arg2104z00_3415;

												{	/* Ast/dump.scm 256 */
													obj_t BgL_arg2105z00_3416;

													BgL_arg2105z00_3416 = CAR(BgL_l1308z00_3413);
													BgL_arg2104z00_3415 =
														BGl_nodezd2ze3sexpz31zzast_dumpz00(
														((BgL_nodez00_bglt) BgL_arg2105z00_3416));
												}
												BgL_head1310z00_3414 =
													MAKE_YOUNG_PAIR(BgL_arg2104z00_3415, BNIL);
											}
											{	/* Ast/dump.scm 256 */
												obj_t BgL_g1313z00_3417;

												BgL_g1313z00_3417 = CDR(BgL_l1308z00_3413);
												{
													obj_t BgL_l1308z00_3419;
													obj_t BgL_tail1311z00_3420;

													BgL_l1308z00_3419 = BgL_g1313z00_3417;
													BgL_tail1311z00_3420 = BgL_head1310z00_3414;
												BgL_zc3z04anonymousza32099ze3z87_3418:
													if (NULLP(BgL_l1308z00_3419))
														{	/* Ast/dump.scm 256 */
															BgL_arg2097z00_3412 = BgL_head1310z00_3414;
														}
													else
														{	/* Ast/dump.scm 256 */
															obj_t BgL_newtail1312z00_3421;

															{	/* Ast/dump.scm 256 */
																obj_t BgL_arg2102z00_3422;

																{	/* Ast/dump.scm 256 */
																	obj_t BgL_arg2103z00_3423;

																	BgL_arg2103z00_3423 =
																		CAR(((obj_t) BgL_l1308z00_3419));
																	BgL_arg2102z00_3422 =
																		BGl_nodezd2ze3sexpz31zzast_dumpz00(
																		((BgL_nodez00_bglt) BgL_arg2103z00_3423));
																}
																BgL_newtail1312z00_3421 =
																	MAKE_YOUNG_PAIR(BgL_arg2102z00_3422, BNIL);
															}
															SET_CDR(BgL_tail1311z00_3420,
																BgL_newtail1312z00_3421);
															{	/* Ast/dump.scm 256 */
																obj_t BgL_arg2101z00_3424;

																BgL_arg2101z00_3424 =
																	CDR(((obj_t) BgL_l1308z00_3419));
																{
																	obj_t BgL_tail1311z00_4512;
																	obj_t BgL_l1308z00_4511;

																	BgL_l1308z00_4511 = BgL_arg2101z00_3424;
																	BgL_tail1311z00_4512 =
																		BgL_newtail1312z00_3421;
																	BgL_tail1311z00_3420 = BgL_tail1311z00_4512;
																	BgL_l1308z00_3419 = BgL_l1308z00_4511;
																	goto BgL_zc3z04anonymousza32099ze3z87_3418;
																}
															}
														}
												}
											}
										}
								}
								BgL_arg2094z00_3408 =
									BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00
									(BgL_arg2097z00_3412, BNIL);
							}
							BgL_arg2091z00_3406 =
								MAKE_YOUNG_PAIR(BgL_arg2093z00_3407, BgL_arg2094z00_3408);
						}
						return MAKE_YOUNG_PAIR(BgL_idz00_3403, BgL_arg2091z00_3406);
					}
				else
					{	/* Ast/dump.scm 257 */
						obj_t BgL_arg2106z00_3425;

						{	/* Ast/dump.scm 257 */
							obj_t BgL_arg2107z00_3426;

							{	/* Ast/dump.scm 257 */
								obj_t BgL_l1314z00_3427;

								BgL_l1314z00_3427 =
									(((BgL_externz00_bglt) COBJECT(
											((BgL_externz00_bglt)
												((BgL_vsetz12z12_bglt) BgL_nodez00_3089))))->
									BgL_exprza2za2);
								if (NULLP(BgL_l1314z00_3427))
									{	/* Ast/dump.scm 257 */
										BgL_arg2107z00_3426 = BNIL;
									}
								else
									{	/* Ast/dump.scm 257 */
										obj_t BgL_head1316z00_3428;

										{	/* Ast/dump.scm 257 */
											obj_t BgL_arg2114z00_3429;

											{	/* Ast/dump.scm 257 */
												obj_t BgL_arg2115z00_3430;

												BgL_arg2115z00_3430 = CAR(BgL_l1314z00_3427);
												BgL_arg2114z00_3429 =
													BGl_nodezd2ze3sexpz31zzast_dumpz00(
													((BgL_nodez00_bglt) BgL_arg2115z00_3430));
											}
											BgL_head1316z00_3428 =
												MAKE_YOUNG_PAIR(BgL_arg2114z00_3429, BNIL);
										}
										{	/* Ast/dump.scm 257 */
											obj_t BgL_g1319z00_3431;

											BgL_g1319z00_3431 = CDR(BgL_l1314z00_3427);
											{
												obj_t BgL_l1314z00_3433;
												obj_t BgL_tail1317z00_3434;

												BgL_l1314z00_3433 = BgL_g1319z00_3431;
												BgL_tail1317z00_3434 = BgL_head1316z00_3428;
											BgL_zc3z04anonymousza32109ze3z87_3432:
												if (NULLP(BgL_l1314z00_3433))
													{	/* Ast/dump.scm 257 */
														BgL_arg2107z00_3426 = BgL_head1316z00_3428;
													}
												else
													{	/* Ast/dump.scm 257 */
														obj_t BgL_newtail1318z00_3435;

														{	/* Ast/dump.scm 257 */
															obj_t BgL_arg2112z00_3436;

															{	/* Ast/dump.scm 257 */
																obj_t BgL_arg2113z00_3437;

																BgL_arg2113z00_3437 =
																	CAR(((obj_t) BgL_l1314z00_3433));
																BgL_arg2112z00_3436 =
																	BGl_nodezd2ze3sexpz31zzast_dumpz00(
																	((BgL_nodez00_bglt) BgL_arg2113z00_3437));
															}
															BgL_newtail1318z00_3435 =
																MAKE_YOUNG_PAIR(BgL_arg2112z00_3436, BNIL);
														}
														SET_CDR(BgL_tail1317z00_3434,
															BgL_newtail1318z00_3435);
														{	/* Ast/dump.scm 257 */
															obj_t BgL_arg2111z00_3438;

															BgL_arg2111z00_3438 =
																CDR(((obj_t) BgL_l1314z00_3433));
															{
																obj_t BgL_tail1317z00_4537;
																obj_t BgL_l1314z00_4536;

																BgL_l1314z00_4536 = BgL_arg2111z00_3438;
																BgL_tail1317z00_4537 = BgL_newtail1318z00_3435;
																BgL_tail1317z00_3434 = BgL_tail1317z00_4537;
																BgL_l1314z00_3433 = BgL_l1314z00_4536;
																goto BgL_zc3z04anonymousza32109ze3z87_3432;
															}
														}
													}
											}
										}
									}
							}
							BgL_arg2106z00_3425 =
								BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00
								(BgL_arg2107z00_3426, BNIL);
						}
						return MAKE_YOUNG_PAIR(BgL_idz00_3403, BgL_arg2106z00_3425);
					}
			}
		}

	}



/* &node->sexp-vref1379 */
	obj_t BGl_z62nodezd2ze3sexpzd2vref1379z81zzast_dumpz00(obj_t BgL_envz00_3090,
		obj_t BgL_nodez00_3091)
	{
		{	/* Ast/dump.scm 235 */
			{	/* Ast/dump.scm 238 */
				obj_t BgL_idz00_3440;

				if (
					(((BgL_vrefz00_bglt) COBJECT(
								((BgL_vrefz00_bglt) BgL_nodez00_3091)))->BgL_unsafez00))
					{	/* Ast/dump.scm 238 */
						BgL_idz00_3440 = CNST_TABLE_REF(26L);
					}
				else
					{	/* Ast/dump.scm 238 */
						BgL_idz00_3440 = CNST_TABLE_REF(27L);
					}
				if (CBOOL(BGl_za2typezd2shapezf3za2z21zzengine_paramz00))
					{	/* Ast/dump.scm 241 */
						obj_t BgL_arg2053z00_3441;
						obj_t BgL_arg2054z00_3442;

						{	/* Ast/dump.scm 241 */
							obj_t BgL_arg2055z00_3443;

							{	/* Ast/dump.scm 241 */
								obj_t BgL_arg2056z00_3444;
								obj_t BgL_arg2057z00_3445;
								obj_t BgL_arg2058z00_3446;

								{	/* Ast/dump.scm 241 */
									obj_t BgL_arg1454z00_3447;

									BgL_arg1454z00_3447 = SYMBOL_TO_STRING(BgL_idz00_3440);
									BgL_arg2056z00_3444 =
										BGl_stringzd2copyzd2zz__r4_strings_6_7z00
										(BgL_arg1454z00_3447);
								}
								{	/* Ast/dump.scm 243 */
									BgL_typez00_bglt BgL_arg2067z00_3448;

									BgL_arg2067z00_3448 =
										BGl_getzd2typezd2zztype_typeofz00(
										((BgL_nodez00_bglt)
											((BgL_vrefz00_bglt) BgL_nodez00_3091)), ((bool_t) 0));
									BgL_arg2057z00_3445 =
										BGl_shapez00zztools_shapez00(((obj_t) BgL_arg2067z00_3448));
								}
								{	/* Ast/dump.scm 244 */
									BgL_typez00_bglt BgL_arg2069z00_3449;

									BgL_arg2069z00_3449 =
										(((BgL_vrefz00_bglt) COBJECT(
												((BgL_vrefz00_bglt) BgL_nodez00_3091)))->BgL_ftypez00);
									BgL_arg2058z00_3446 =
										BGl_shapez00zztools_shapez00(((obj_t) BgL_arg2069z00_3449));
								}
								{	/* Ast/dump.scm 241 */
									obj_t BgL_list2059z00_3450;

									{	/* Ast/dump.scm 241 */
										obj_t BgL_arg2060z00_3451;

										{	/* Ast/dump.scm 241 */
											obj_t BgL_arg2061z00_3452;

											{	/* Ast/dump.scm 241 */
												obj_t BgL_arg2062z00_3453;

												{	/* Ast/dump.scm 241 */
													obj_t BgL_arg2063z00_3454;

													{	/* Ast/dump.scm 241 */
														obj_t BgL_arg2066z00_3455;

														BgL_arg2066z00_3455 =
															MAKE_YOUNG_PAIR(BGl_string2455z00zzast_dumpz00,
															BNIL);
														BgL_arg2063z00_3454 =
															MAKE_YOUNG_PAIR(BgL_arg2058z00_3446,
															BgL_arg2066z00_3455);
													}
													BgL_arg2062z00_3453 =
														MAKE_YOUNG_PAIR(BGl_string2456z00zzast_dumpz00,
														BgL_arg2063z00_3454);
												}
												BgL_arg2061z00_3452 =
													MAKE_YOUNG_PAIR(BgL_arg2057z00_3445,
													BgL_arg2062z00_3453);
											}
											BgL_arg2060z00_3451 =
												MAKE_YOUNG_PAIR(BGl_string2414z00zzast_dumpz00,
												BgL_arg2061z00_3452);
										}
										BgL_list2059z00_3450 =
											MAKE_YOUNG_PAIR(BgL_arg2056z00_3444, BgL_arg2060z00_3451);
									}
									BgL_arg2055z00_3443 =
										BGl_stringzd2appendzd2zz__r4_strings_6_7z00
										(BgL_list2059z00_3450);
								}
							}
							BgL_arg2053z00_3441 = bstring_to_symbol(BgL_arg2055z00_3443);
						}
						{	/* Ast/dump.scm 245 */
							obj_t BgL_arg2070z00_3456;

							{	/* Ast/dump.scm 245 */
								obj_t BgL_l1295z00_3457;

								BgL_l1295z00_3457 =
									(((BgL_externz00_bglt) COBJECT(
											((BgL_externz00_bglt)
												((BgL_vrefz00_bglt) BgL_nodez00_3091))))->
									BgL_exprza2za2);
								if (NULLP(BgL_l1295z00_3457))
									{	/* Ast/dump.scm 245 */
										BgL_arg2070z00_3456 = BNIL;
									}
								else
									{	/* Ast/dump.scm 245 */
										obj_t BgL_head1297z00_3458;

										{	/* Ast/dump.scm 245 */
											obj_t BgL_arg2078z00_3459;

											{	/* Ast/dump.scm 245 */
												obj_t BgL_arg2079z00_3460;

												BgL_arg2079z00_3460 = CAR(BgL_l1295z00_3457);
												BgL_arg2078z00_3459 =
													BGl_nodezd2ze3sexpz31zzast_dumpz00(
													((BgL_nodez00_bglt) BgL_arg2079z00_3460));
											}
											BgL_head1297z00_3458 =
												MAKE_YOUNG_PAIR(BgL_arg2078z00_3459, BNIL);
										}
										{	/* Ast/dump.scm 245 */
											obj_t BgL_g1300z00_3461;

											BgL_g1300z00_3461 = CDR(BgL_l1295z00_3457);
											{
												obj_t BgL_l1295z00_3463;
												obj_t BgL_tail1298z00_3464;

												BgL_l1295z00_3463 = BgL_g1300z00_3461;
												BgL_tail1298z00_3464 = BgL_head1297z00_3458;
											BgL_zc3z04anonymousza32072ze3z87_3462:
												if (NULLP(BgL_l1295z00_3463))
													{	/* Ast/dump.scm 245 */
														BgL_arg2070z00_3456 = BgL_head1297z00_3458;
													}
												else
													{	/* Ast/dump.scm 245 */
														obj_t BgL_newtail1299z00_3465;

														{	/* Ast/dump.scm 245 */
															obj_t BgL_arg2076z00_3466;

															{	/* Ast/dump.scm 245 */
																obj_t BgL_arg2077z00_3467;

																BgL_arg2077z00_3467 =
																	CAR(((obj_t) BgL_l1295z00_3463));
																BgL_arg2076z00_3466 =
																	BGl_nodezd2ze3sexpz31zzast_dumpz00(
																	((BgL_nodez00_bglt) BgL_arg2077z00_3467));
															}
															BgL_newtail1299z00_3465 =
																MAKE_YOUNG_PAIR(BgL_arg2076z00_3466, BNIL);
														}
														SET_CDR(BgL_tail1298z00_3464,
															BgL_newtail1299z00_3465);
														{	/* Ast/dump.scm 245 */
															obj_t BgL_arg2074z00_3468;

															BgL_arg2074z00_3468 =
																CDR(((obj_t) BgL_l1295z00_3463));
															{
																obj_t BgL_tail1298z00_4587;
																obj_t BgL_l1295z00_4586;

																BgL_l1295z00_4586 = BgL_arg2074z00_3468;
																BgL_tail1298z00_4587 = BgL_newtail1299z00_3465;
																BgL_tail1298z00_3464 = BgL_tail1298z00_4587;
																BgL_l1295z00_3463 = BgL_l1295z00_4586;
																goto BgL_zc3z04anonymousza32072ze3z87_3462;
															}
														}
													}
											}
										}
									}
							}
							BgL_arg2054z00_3442 =
								BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00
								(BgL_arg2070z00_3456, BNIL);
						}
						return MAKE_YOUNG_PAIR(BgL_arg2053z00_3441, BgL_arg2054z00_3442);
					}
				else
					{	/* Ast/dump.scm 246 */
						obj_t BgL_arg2080z00_3469;

						{	/* Ast/dump.scm 246 */
							obj_t BgL_arg2081z00_3470;

							{	/* Ast/dump.scm 246 */
								obj_t BgL_l1301z00_3471;

								BgL_l1301z00_3471 =
									(((BgL_externz00_bglt) COBJECT(
											((BgL_externz00_bglt)
												((BgL_vrefz00_bglt) BgL_nodez00_3091))))->
									BgL_exprza2za2);
								if (NULLP(BgL_l1301z00_3471))
									{	/* Ast/dump.scm 246 */
										BgL_arg2081z00_3470 = BNIL;
									}
								else
									{	/* Ast/dump.scm 246 */
										obj_t BgL_head1303z00_3472;

										{	/* Ast/dump.scm 246 */
											obj_t BgL_arg2088z00_3473;

											{	/* Ast/dump.scm 246 */
												obj_t BgL_arg2089z00_3474;

												BgL_arg2089z00_3474 = CAR(BgL_l1301z00_3471);
												BgL_arg2088z00_3473 =
													BGl_nodezd2ze3sexpz31zzast_dumpz00(
													((BgL_nodez00_bglt) BgL_arg2089z00_3474));
											}
											BgL_head1303z00_3472 =
												MAKE_YOUNG_PAIR(BgL_arg2088z00_3473, BNIL);
										}
										{	/* Ast/dump.scm 246 */
											obj_t BgL_g1306z00_3475;

											BgL_g1306z00_3475 = CDR(BgL_l1301z00_3471);
											{
												obj_t BgL_l1301z00_3477;
												obj_t BgL_tail1304z00_3478;

												BgL_l1301z00_3477 = BgL_g1306z00_3475;
												BgL_tail1304z00_3478 = BgL_head1303z00_3472;
											BgL_zc3z04anonymousza32083ze3z87_3476:
												if (NULLP(BgL_l1301z00_3477))
													{	/* Ast/dump.scm 246 */
														BgL_arg2081z00_3470 = BgL_head1303z00_3472;
													}
												else
													{	/* Ast/dump.scm 246 */
														obj_t BgL_newtail1305z00_3479;

														{	/* Ast/dump.scm 246 */
															obj_t BgL_arg2086z00_3480;

															{	/* Ast/dump.scm 246 */
																obj_t BgL_arg2087z00_3481;

																BgL_arg2087z00_3481 =
																	CAR(((obj_t) BgL_l1301z00_3477));
																BgL_arg2086z00_3480 =
																	BGl_nodezd2ze3sexpz31zzast_dumpz00(
																	((BgL_nodez00_bglt) BgL_arg2087z00_3481));
															}
															BgL_newtail1305z00_3479 =
																MAKE_YOUNG_PAIR(BgL_arg2086z00_3480, BNIL);
														}
														SET_CDR(BgL_tail1304z00_3478,
															BgL_newtail1305z00_3479);
														{	/* Ast/dump.scm 246 */
															obj_t BgL_arg2085z00_3482;

															BgL_arg2085z00_3482 =
																CDR(((obj_t) BgL_l1301z00_3477));
															{
																obj_t BgL_tail1304z00_4611;
																obj_t BgL_l1301z00_4610;

																BgL_l1301z00_4610 = BgL_arg2085z00_3482;
																BgL_tail1304z00_4611 = BgL_newtail1305z00_3479;
																BgL_tail1304z00_3478 = BgL_tail1304z00_4611;
																BgL_l1301z00_3477 = BgL_l1301z00_4610;
																goto BgL_zc3z04anonymousza32083ze3z87_3476;
															}
														}
													}
											}
										}
									}
							}
							BgL_arg2080z00_3469 =
								BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00
								(BgL_arg2081z00_3470, BNIL);
						}
						return MAKE_YOUNG_PAIR(BgL_idz00_3440, BgL_arg2080z00_3469);
					}
			}
		}

	}



/* &node->sexp-vlength1377 */
	obj_t BGl_z62nodezd2ze3sexpzd2vlength1377z81zzast_dumpz00(obj_t
		BgL_envz00_3092, obj_t BgL_nodez00_3093)
	{
		{	/* Ast/dump.scm 224 */
			{	/* Ast/dump.scm 227 */
				obj_t BgL_arg2038z00_3484;
				obj_t BgL_arg2039z00_3485;

				BgL_arg2038z00_3484 =
					(((BgL_nodez00_bglt) COBJECT(
							((BgL_nodez00_bglt)
								((BgL_vlengthz00_bglt) BgL_nodez00_3093))))->BgL_locz00);
				{	/* Ast/dump.scm 228 */
					obj_t BgL_arg2040z00_3486;
					obj_t BgL_arg2041z00_3487;

					{	/* Ast/dump.scm 228 */
						BgL_typez00_bglt BgL_arg2042z00_3488;

						BgL_arg2042z00_3488 =
							(((BgL_nodez00_bglt) COBJECT(
									((BgL_nodez00_bglt)
										((BgL_vlengthz00_bglt) BgL_nodez00_3093))))->BgL_typez00);
						{	/* Ast/dump.scm 228 */
							obj_t BgL_idz00_3489;

							BgL_idz00_3489 = CNST_TABLE_REF(28L);
							if (CBOOL(BGl_za2typenodezd2shapezf3za2z21zzengine_paramz00))
								{	/* Ast/dump.scm 442 */
									obj_t BgL_arg1492z00_3490;

									{	/* Ast/dump.scm 442 */
										obj_t BgL_arg1494z00_3491;
										obj_t BgL_arg1496z00_3492;

										{	/* Ast/dump.scm 442 */
											obj_t BgL_arg1454z00_3493;

											BgL_arg1454z00_3493 = SYMBOL_TO_STRING(BgL_idz00_3489);
											BgL_arg1494z00_3491 =
												BGl_stringzd2copyzd2zz__r4_strings_6_7z00
												(BgL_arg1454z00_3493);
										}
										BgL_arg1496z00_3492 =
											BGl_shapez00zztools_shapez00(
											((obj_t) BgL_arg2042z00_3488));
										BgL_arg1492z00_3490 =
											string_append_3(BgL_arg1494z00_3491,
											BGl_string2414z00zzast_dumpz00, BgL_arg1496z00_3492);
									}
									BgL_arg2040z00_3486 = bstring_to_symbol(BgL_arg1492z00_3490);
								}
							else
								{	/* Ast/dump.scm 441 */
									BgL_arg2040z00_3486 = BgL_idz00_3489;
								}
						}
					}
					{	/* Ast/dump.scm 229 */
						obj_t BgL_arg2043z00_3494;
						obj_t BgL_arg2044z00_3495;

						{	/* Ast/dump.scm 229 */
							obj_t BgL_arg2046z00_3496;

							BgL_arg2046z00_3496 =
								MAKE_YOUNG_PAIR(BGl_shapez00zztools_shapez00(
									(((BgL_vlengthz00_bglt) COBJECT(
												((BgL_vlengthz00_bglt) BgL_nodez00_3093)))->
										BgL_ftypez00)), BNIL);
							BgL_arg2043z00_3494 =
								MAKE_YOUNG_PAIR(BGl_string2458z00zzast_dumpz00,
								BgL_arg2046z00_3496);
						}
						{	/* Ast/dump.scm 230 */
							obj_t BgL_arg2049z00_3497;

							{	/* Ast/dump.scm 230 */
								obj_t BgL_arg2050z00_3498;

								{	/* Ast/dump.scm 230 */
									obj_t BgL_pairz00_3499;

									BgL_pairz00_3499 =
										(((BgL_externz00_bglt) COBJECT(
												((BgL_externz00_bglt)
													((BgL_vlengthz00_bglt) BgL_nodez00_3093))))->
										BgL_exprza2za2);
									BgL_arg2050z00_3498 = CAR(BgL_pairz00_3499);
								}
								BgL_arg2049z00_3497 =
									BGl_nodezd2ze3sexpz31zzast_dumpz00(
									((BgL_nodez00_bglt) BgL_arg2050z00_3498));
							}
							BgL_arg2044z00_3495 = MAKE_YOUNG_PAIR(BgL_arg2049z00_3497, BNIL);
						}
						BgL_arg2041z00_3487 =
							MAKE_YOUNG_PAIR(BgL_arg2043z00_3494, BgL_arg2044z00_3495);
					}
					BgL_arg2039z00_3485 =
						MAKE_YOUNG_PAIR(BgL_arg2040z00_3486, BgL_arg2041z00_3487);
				}
				return
					BGl_locationzd2shapezd2zztools_locationz00(BgL_arg2038z00_3484,
					BgL_arg2039z00_3485);
			}
		}

	}



/* &node->sexp-new1374 */
	obj_t BGl_z62nodezd2ze3sexpzd2new1374z81zzast_dumpz00(obj_t BgL_envz00_3094,
		obj_t BgL_nodez00_3095)
	{
		{	/* Ast/dump.scm 214 */
			{	/* Ast/dump.scm 217 */
				obj_t BgL_arg2015z00_3501;
				obj_t BgL_arg2016z00_3502;

				BgL_arg2015z00_3501 =
					(((BgL_nodez00_bglt) COBJECT(
							((BgL_nodez00_bglt)
								((BgL_newz00_bglt) BgL_nodez00_3095))))->BgL_locz00);
				{	/* Ast/dump.scm 218 */
					obj_t BgL_arg2018z00_3503;
					obj_t BgL_arg2019z00_3504;

					{	/* Ast/dump.scm 218 */
						BgL_typez00_bglt BgL_arg2020z00_3505;

						BgL_arg2020z00_3505 =
							(((BgL_nodez00_bglt) COBJECT(
									((BgL_nodez00_bglt)
										((BgL_newz00_bglt) BgL_nodez00_3095))))->BgL_typez00);
						{	/* Ast/dump.scm 218 */
							obj_t BgL_idz00_3506;

							BgL_idz00_3506 = CNST_TABLE_REF(29L);
							if (CBOOL(BGl_za2typenodezd2shapezf3za2z21zzengine_paramz00))
								{	/* Ast/dump.scm 442 */
									obj_t BgL_arg1492z00_3507;

									{	/* Ast/dump.scm 442 */
										obj_t BgL_arg1494z00_3508;
										obj_t BgL_arg1496z00_3509;

										{	/* Ast/dump.scm 442 */
											obj_t BgL_arg1454z00_3510;

											BgL_arg1454z00_3510 = SYMBOL_TO_STRING(BgL_idz00_3506);
											BgL_arg1494z00_3508 =
												BGl_stringzd2copyzd2zz__r4_strings_6_7z00
												(BgL_arg1454z00_3510);
										}
										BgL_arg1496z00_3509 =
											BGl_shapez00zztools_shapez00(
											((obj_t) BgL_arg2020z00_3505));
										BgL_arg1492z00_3507 =
											string_append_3(BgL_arg1494z00_3508,
											BGl_string2414z00zzast_dumpz00, BgL_arg1496z00_3509);
									}
									BgL_arg2018z00_3503 = bstring_to_symbol(BgL_arg1492z00_3507);
								}
							else
								{	/* Ast/dump.scm 441 */
									BgL_arg2018z00_3503 = BgL_idz00_3506;
								}
						}
					}
					{	/* Ast/dump.scm 219 */
						obj_t BgL_arg2021z00_3511;
						obj_t BgL_arg2023z00_3512;

						{	/* Ast/dump.scm 219 */
							obj_t BgL_arg2024z00_3513;

							BgL_arg2024z00_3513 =
								(((BgL_typez00_bglt) COBJECT(
										(((BgL_nodez00_bglt) COBJECT(
													((BgL_nodez00_bglt)
														((BgL_newz00_bglt) BgL_nodez00_3095))))->
											BgL_typez00)))->BgL_idz00);
							BgL_arg2021z00_3511 = MAKE_YOUNG_PAIR(BgL_arg2024z00_3513, BNIL);
						}
						{	/* Ast/dump.scm 219 */
							obj_t BgL_arg2028z00_3514;

							{	/* Ast/dump.scm 219 */
								obj_t BgL_l1289z00_3515;

								BgL_l1289z00_3515 =
									(((BgL_externz00_bglt) COBJECT(
											((BgL_externz00_bglt)
												((BgL_newz00_bglt) BgL_nodez00_3095))))->
									BgL_exprza2za2);
								if (NULLP(BgL_l1289z00_3515))
									{	/* Ast/dump.scm 219 */
										BgL_arg2028z00_3514 = BNIL;
									}
								else
									{	/* Ast/dump.scm 219 */
										obj_t BgL_head1291z00_3516;

										{	/* Ast/dump.scm 219 */
											obj_t BgL_arg2036z00_3517;

											{	/* Ast/dump.scm 219 */
												obj_t BgL_arg2037z00_3518;

												BgL_arg2037z00_3518 = CAR(BgL_l1289z00_3515);
												BgL_arg2036z00_3517 =
													BGl_nodezd2ze3sexpz31zzast_dumpz00(
													((BgL_nodez00_bglt) BgL_arg2037z00_3518));
											}
											BgL_head1291z00_3516 =
												MAKE_YOUNG_PAIR(BgL_arg2036z00_3517, BNIL);
										}
										{	/* Ast/dump.scm 219 */
											obj_t BgL_g1294z00_3519;

											BgL_g1294z00_3519 = CDR(BgL_l1289z00_3515);
											{
												obj_t BgL_l1289z00_3521;
												obj_t BgL_tail1292z00_3522;

												BgL_l1289z00_3521 = BgL_g1294z00_3519;
												BgL_tail1292z00_3522 = BgL_head1291z00_3516;
											BgL_zc3z04anonymousza32030ze3z87_3520:
												if (NULLP(BgL_l1289z00_3521))
													{	/* Ast/dump.scm 219 */
														BgL_arg2028z00_3514 = BgL_head1291z00_3516;
													}
												else
													{	/* Ast/dump.scm 219 */
														obj_t BgL_newtail1293z00_3523;

														{	/* Ast/dump.scm 219 */
															obj_t BgL_arg2033z00_3524;

															{	/* Ast/dump.scm 219 */
																obj_t BgL_arg2034z00_3525;

																BgL_arg2034z00_3525 =
																	CAR(((obj_t) BgL_l1289z00_3521));
																BgL_arg2033z00_3524 =
																	BGl_nodezd2ze3sexpz31zzast_dumpz00(
																	((BgL_nodez00_bglt) BgL_arg2034z00_3525));
															}
															BgL_newtail1293z00_3523 =
																MAKE_YOUNG_PAIR(BgL_arg2033z00_3524, BNIL);
														}
														SET_CDR(BgL_tail1292z00_3522,
															BgL_newtail1293z00_3523);
														{	/* Ast/dump.scm 219 */
															obj_t BgL_arg2032z00_3526;

															BgL_arg2032z00_3526 =
																CDR(((obj_t) BgL_l1289z00_3521));
															{
																obj_t BgL_tail1292z00_4685;
																obj_t BgL_l1289z00_4684;

																BgL_l1289z00_4684 = BgL_arg2032z00_3526;
																BgL_tail1292z00_4685 = BgL_newtail1293z00_3523;
																BgL_tail1292z00_3522 = BgL_tail1292z00_4685;
																BgL_l1289z00_3521 = BgL_l1289z00_4684;
																goto BgL_zc3z04anonymousza32030ze3z87_3520;
															}
														}
													}
											}
										}
									}
							}
							BgL_arg2023z00_3512 =
								BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00
								(BgL_arg2028z00_3514, BNIL);
						}
						BgL_arg2019z00_3504 =
							MAKE_YOUNG_PAIR(BgL_arg2021z00_3511, BgL_arg2023z00_3512);
					}
					BgL_arg2016z00_3502 =
						MAKE_YOUNG_PAIR(BgL_arg2018z00_3503, BgL_arg2019z00_3504);
				}
				return
					BGl_locationzd2shapezd2zztools_locationz00(BgL_arg2015z00_3501,
					BgL_arg2016z00_3502);
			}
		}

	}



/* &node->sexp-setfield1372 */
	obj_t BGl_z62nodezd2ze3sexpzd2setfield1372z81zzast_dumpz00(obj_t
		BgL_envz00_3096, obj_t BgL_nodez00_3097)
	{
		{	/* Ast/dump.scm 204 */
			{	/* Ast/dump.scm 207 */
				obj_t BgL_arg1993z00_3528;
				obj_t BgL_arg1994z00_3529;

				BgL_arg1993z00_3528 =
					(((BgL_nodez00_bglt) COBJECT(
							((BgL_nodez00_bglt)
								((BgL_setfieldz00_bglt) BgL_nodez00_3097))))->BgL_locz00);
				{	/* Ast/dump.scm 208 */
					obj_t BgL_arg1995z00_3530;

					{	/* Ast/dump.scm 208 */
						obj_t BgL_arg1996z00_3531;
						obj_t BgL_arg1997z00_3532;

						{	/* Ast/dump.scm 208 */
							obj_t BgL_arg1998z00_3533;
							obj_t BgL_arg1999z00_3534;

							BgL_arg1998z00_3533 =
								(((BgL_setfieldz00_bglt) COBJECT(
										((BgL_setfieldz00_bglt) BgL_nodez00_3097)))->BgL_fnamez00);
							BgL_arg1999z00_3534 =
								MAKE_YOUNG_PAIR(
								(((BgL_typez00_bglt) COBJECT(
											(((BgL_setfieldz00_bglt) COBJECT(
														((BgL_setfieldz00_bglt) BgL_nodez00_3097)))->
												BgL_ftypez00)))->BgL_idz00), BNIL);
							BgL_arg1996z00_3531 =
								MAKE_YOUNG_PAIR(BgL_arg1998z00_3533, BgL_arg1999z00_3534);
						}
						{	/* Ast/dump.scm 209 */
							obj_t BgL_arg2002z00_3535;
							obj_t BgL_arg2003z00_3536;

							BgL_arg2002z00_3535 =
								(((BgL_typez00_bglt) COBJECT(
										(((BgL_setfieldz00_bglt) COBJECT(
													((BgL_setfieldz00_bglt) BgL_nodez00_3097)))->
											BgL_otypez00)))->BgL_idz00);
							{	/* Ast/dump.scm 209 */
								obj_t BgL_arg2006z00_3537;

								{	/* Ast/dump.scm 209 */
									obj_t BgL_l1283z00_3538;

									BgL_l1283z00_3538 =
										(((BgL_externz00_bglt) COBJECT(
												((BgL_externz00_bglt)
													((BgL_setfieldz00_bglt) BgL_nodez00_3097))))->
										BgL_exprza2za2);
									if (NULLP(BgL_l1283z00_3538))
										{	/* Ast/dump.scm 209 */
											BgL_arg2006z00_3537 = BNIL;
										}
									else
										{	/* Ast/dump.scm 209 */
											obj_t BgL_head1285z00_3539;

											{	/* Ast/dump.scm 209 */
												obj_t BgL_arg2013z00_3540;

												{	/* Ast/dump.scm 209 */
													obj_t BgL_arg2014z00_3541;

													BgL_arg2014z00_3541 = CAR(BgL_l1283z00_3538);
													BgL_arg2013z00_3540 =
														BGl_nodezd2ze3sexpz31zzast_dumpz00(
														((BgL_nodez00_bglt) BgL_arg2014z00_3541));
												}
												BgL_head1285z00_3539 =
													MAKE_YOUNG_PAIR(BgL_arg2013z00_3540, BNIL);
											}
											{	/* Ast/dump.scm 209 */
												obj_t BgL_g1288z00_3542;

												BgL_g1288z00_3542 = CDR(BgL_l1283z00_3538);
												{
													obj_t BgL_l1283z00_3544;
													obj_t BgL_tail1286z00_3545;

													BgL_l1283z00_3544 = BgL_g1288z00_3542;
													BgL_tail1286z00_3545 = BgL_head1285z00_3539;
												BgL_zc3z04anonymousza32008ze3z87_3543:
													if (NULLP(BgL_l1283z00_3544))
														{	/* Ast/dump.scm 209 */
															BgL_arg2006z00_3537 = BgL_head1285z00_3539;
														}
													else
														{	/* Ast/dump.scm 209 */
															obj_t BgL_newtail1287z00_3546;

															{	/* Ast/dump.scm 209 */
																obj_t BgL_arg2011z00_3547;

																{	/* Ast/dump.scm 209 */
																	obj_t BgL_arg2012z00_3548;

																	BgL_arg2012z00_3548 =
																		CAR(((obj_t) BgL_l1283z00_3544));
																	BgL_arg2011z00_3547 =
																		BGl_nodezd2ze3sexpz31zzast_dumpz00(
																		((BgL_nodez00_bglt) BgL_arg2012z00_3548));
																}
																BgL_newtail1287z00_3546 =
																	MAKE_YOUNG_PAIR(BgL_arg2011z00_3547, BNIL);
															}
															SET_CDR(BgL_tail1286z00_3545,
																BgL_newtail1287z00_3546);
															{	/* Ast/dump.scm 209 */
																obj_t BgL_arg2010z00_3549;

																BgL_arg2010z00_3549 =
																	CDR(((obj_t) BgL_l1283z00_3544));
																{
																	obj_t BgL_tail1286z00_4724;
																	obj_t BgL_l1283z00_4723;

																	BgL_l1283z00_4723 = BgL_arg2010z00_3549;
																	BgL_tail1286z00_4724 =
																		BgL_newtail1287z00_3546;
																	BgL_tail1286z00_3545 = BgL_tail1286z00_4724;
																	BgL_l1283z00_3544 = BgL_l1283z00_4723;
																	goto BgL_zc3z04anonymousza32008ze3z87_3543;
																}
															}
														}
												}
											}
										}
								}
								BgL_arg2003z00_3536 =
									BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00
									(BgL_arg2006z00_3537, BNIL);
							}
							BgL_arg1997z00_3532 =
								MAKE_YOUNG_PAIR(BgL_arg2002z00_3535, BgL_arg2003z00_3536);
						}
						BgL_arg1995z00_3530 =
							MAKE_YOUNG_PAIR(BgL_arg1996z00_3531, BgL_arg1997z00_3532);
					}
					BgL_arg1994z00_3529 =
						MAKE_YOUNG_PAIR(CNST_TABLE_REF(30L), BgL_arg1995z00_3530);
				}
				return
					BGl_locationzd2shapezd2zztools_locationz00(BgL_arg1993z00_3528,
					BgL_arg1994z00_3529);
			}
		}

	}



/* &node->sexp-getfield1370 */
	obj_t BGl_z62nodezd2ze3sexpzd2getfield1370z81zzast_dumpz00(obj_t
		BgL_envz00_3098, obj_t BgL_nodez00_3099)
	{
		{	/* Ast/dump.scm 193 */
			{	/* Ast/dump.scm 196 */
				obj_t BgL_arg1976z00_3551;
				obj_t BgL_arg1977z00_3552;

				BgL_arg1976z00_3551 =
					(((BgL_nodez00_bglt) COBJECT(
							((BgL_nodez00_bglt)
								((BgL_getfieldz00_bglt) BgL_nodez00_3099))))->BgL_locz00);
				{	/* Ast/dump.scm 197 */
					obj_t BgL_arg1978z00_3553;
					obj_t BgL_arg1979z00_3554;

					{	/* Ast/dump.scm 197 */
						BgL_typez00_bglt BgL_arg1980z00_3555;

						BgL_arg1980z00_3555 =
							BGl_getzd2typezd2zztype_typeofz00(
							((BgL_nodez00_bglt)
								((BgL_getfieldz00_bglt) BgL_nodez00_3099)), ((bool_t) 0));
						{	/* Ast/dump.scm 197 */
							obj_t BgL_idz00_3556;

							BgL_idz00_3556 = CNST_TABLE_REF(31L);
							if (CBOOL(BGl_za2typenodezd2shapezf3za2z21zzengine_paramz00))
								{	/* Ast/dump.scm 442 */
									obj_t BgL_arg1492z00_3557;

									{	/* Ast/dump.scm 442 */
										obj_t BgL_arg1494z00_3558;
										obj_t BgL_arg1496z00_3559;

										{	/* Ast/dump.scm 442 */
											obj_t BgL_arg1454z00_3560;

											BgL_arg1454z00_3560 = SYMBOL_TO_STRING(BgL_idz00_3556);
											BgL_arg1494z00_3558 =
												BGl_stringzd2copyzd2zz__r4_strings_6_7z00
												(BgL_arg1454z00_3560);
										}
										BgL_arg1496z00_3559 =
											BGl_shapez00zztools_shapez00(
											((obj_t) BgL_arg1980z00_3555));
										BgL_arg1492z00_3557 =
											string_append_3(BgL_arg1494z00_3558,
											BGl_string2414z00zzast_dumpz00, BgL_arg1496z00_3559);
									}
									BgL_arg1978z00_3553 = bstring_to_symbol(BgL_arg1492z00_3557);
								}
							else
								{	/* Ast/dump.scm 441 */
									BgL_arg1978z00_3553 = BgL_idz00_3556;
								}
						}
					}
					{	/* Ast/dump.scm 198 */
						obj_t BgL_arg1981z00_3561;
						obj_t BgL_arg1982z00_3562;

						{	/* Ast/dump.scm 198 */
							obj_t BgL_arg1983z00_3563;
							obj_t BgL_arg1984z00_3564;

							BgL_arg1983z00_3563 =
								(((BgL_getfieldz00_bglt) COBJECT(
										((BgL_getfieldz00_bglt) BgL_nodez00_3099)))->BgL_fnamez00);
							BgL_arg1984z00_3564 =
								MAKE_YOUNG_PAIR(
								(((BgL_typez00_bglt) COBJECT(
											(((BgL_getfieldz00_bglt) COBJECT(
														((BgL_getfieldz00_bglt) BgL_nodez00_3099)))->
												BgL_ftypez00)))->BgL_idz00), BNIL);
							BgL_arg1981z00_3561 =
								MAKE_YOUNG_PAIR(BgL_arg1983z00_3563, BgL_arg1984z00_3564);
						}
						{	/* Ast/dump.scm 199 */
							obj_t BgL_arg1987z00_3565;
							obj_t BgL_arg1988z00_3566;

							BgL_arg1987z00_3565 =
								(((BgL_typez00_bglt) COBJECT(
										(((BgL_getfieldz00_bglt) COBJECT(
													((BgL_getfieldz00_bglt) BgL_nodez00_3099)))->
											BgL_otypez00)))->BgL_idz00);
							{	/* Ast/dump.scm 199 */
								obj_t BgL_arg1990z00_3567;

								{	/* Ast/dump.scm 199 */
									obj_t BgL_arg1991z00_3568;

									{	/* Ast/dump.scm 199 */
										obj_t BgL_pairz00_3569;

										BgL_pairz00_3569 =
											(((BgL_externz00_bglt) COBJECT(
													((BgL_externz00_bglt)
														((BgL_getfieldz00_bglt) BgL_nodez00_3099))))->
											BgL_exprza2za2);
										BgL_arg1991z00_3568 = CAR(BgL_pairz00_3569);
									}
									BgL_arg1990z00_3567 =
										BGl_nodezd2ze3sexpz31zzast_dumpz00(
										((BgL_nodez00_bglt) BgL_arg1991z00_3568));
								}
								BgL_arg1988z00_3566 =
									MAKE_YOUNG_PAIR(BgL_arg1990z00_3567, BNIL);
							}
							BgL_arg1982z00_3562 =
								MAKE_YOUNG_PAIR(BgL_arg1987z00_3565, BgL_arg1988z00_3566);
						}
						BgL_arg1979z00_3554 =
							MAKE_YOUNG_PAIR(BgL_arg1981z00_3561, BgL_arg1982z00_3562);
					}
					BgL_arg1977z00_3552 =
						MAKE_YOUNG_PAIR(BgL_arg1978z00_3553, BgL_arg1979z00_3554);
				}
				return
					BGl_locationzd2shapezd2zztools_locationz00(BgL_arg1976z00_3551,
					BgL_arg1977z00_3552);
			}
		}

	}



/* &node->sexp-pragma1368 */
	obj_t BGl_z62nodezd2ze3sexpzd2pragma1368z81zzast_dumpz00(obj_t
		BgL_envz00_3100, obj_t BgL_nodez00_3101)
	{
		{	/* Ast/dump.scm 180 */
			{	/* Ast/dump.scm 182 */
				obj_t BgL_arg1959z00_3571;
				obj_t BgL_arg1960z00_3572;

				BgL_arg1959z00_3571 =
					(((BgL_nodez00_bglt) COBJECT(
							((BgL_nodez00_bglt)
								((BgL_pragmaz00_bglt) BgL_nodez00_3101))))->BgL_locz00);
				{	/* Ast/dump.scm 183 */
					obj_t BgL_pz00_3573;

					if (CBOOL(
							(((BgL_nodezf2effectzf2_bglt) COBJECT(
										((BgL_nodezf2effectzf2_bglt)
											((BgL_pragmaz00_bglt) BgL_nodez00_3101))))->
								BgL_sidezd2effectzd2)))
						{	/* Ast/dump.scm 183 */
							BgL_pz00_3573 = CNST_TABLE_REF(32L);
						}
					else
						{	/* Ast/dump.scm 183 */
							BgL_pz00_3573 = CNST_TABLE_REF(33L);
						}
					{	/* Ast/dump.scm 186 */
						obj_t BgL_arg1961z00_3574;
						obj_t BgL_arg1962z00_3575;

						{	/* Ast/dump.scm 186 */
							BgL_typez00_bglt BgL_arg1963z00_3576;

							BgL_arg1963z00_3576 =
								BGl_getzd2typezd2zztype_typeofz00(
								((BgL_nodez00_bglt)
									((BgL_pragmaz00_bglt) BgL_nodez00_3101)), ((bool_t) 0));
							BgL_arg1961z00_3574 =
								BGl_shapezd2typedzd2nodez00zzast_dumpz00(BgL_pz00_3573,
								BgL_arg1963z00_3576);
						}
						{	/* Ast/dump.scm 187 */
							obj_t BgL_arg1964z00_3577;
							obj_t BgL_arg1965z00_3578;

							BgL_arg1964z00_3577 =
								(((BgL_pragmaz00_bglt) COBJECT(
										((BgL_pragmaz00_bglt) BgL_nodez00_3101)))->BgL_formatz00);
							{	/* Ast/dump.scm 188 */
								obj_t BgL_arg1966z00_3579;

								{	/* Ast/dump.scm 188 */
									obj_t BgL_l1277z00_3580;

									BgL_l1277z00_3580 =
										(((BgL_externz00_bglt) COBJECT(
												((BgL_externz00_bglt)
													((BgL_pragmaz00_bglt) BgL_nodez00_3101))))->
										BgL_exprza2za2);
									if (NULLP(BgL_l1277z00_3580))
										{	/* Ast/dump.scm 188 */
											BgL_arg1966z00_3579 = BNIL;
										}
									else
										{	/* Ast/dump.scm 188 */
											obj_t BgL_head1279z00_3581;

											{	/* Ast/dump.scm 188 */
												obj_t BgL_arg1973z00_3582;

												{	/* Ast/dump.scm 188 */
													obj_t BgL_arg1974z00_3583;

													BgL_arg1974z00_3583 = CAR(BgL_l1277z00_3580);
													BgL_arg1973z00_3582 =
														BGl_nodezd2ze3sexpz31zzast_dumpz00(
														((BgL_nodez00_bglt) BgL_arg1974z00_3583));
												}
												BgL_head1279z00_3581 =
													MAKE_YOUNG_PAIR(BgL_arg1973z00_3582, BNIL);
											}
											{	/* Ast/dump.scm 188 */
												obj_t BgL_g1282z00_3584;

												BgL_g1282z00_3584 = CDR(BgL_l1277z00_3580);
												{
													obj_t BgL_l1277z00_3586;
													obj_t BgL_tail1280z00_3587;

													BgL_l1277z00_3586 = BgL_g1282z00_3584;
													BgL_tail1280z00_3587 = BgL_head1279z00_3581;
												BgL_zc3z04anonymousza31968ze3z87_3585:
													if (NULLP(BgL_l1277z00_3586))
														{	/* Ast/dump.scm 188 */
															BgL_arg1966z00_3579 = BgL_head1279z00_3581;
														}
													else
														{	/* Ast/dump.scm 188 */
															obj_t BgL_newtail1281z00_3588;

															{	/* Ast/dump.scm 188 */
																obj_t BgL_arg1971z00_3589;

																{	/* Ast/dump.scm 188 */
																	obj_t BgL_arg1972z00_3590;

																	BgL_arg1972z00_3590 =
																		CAR(((obj_t) BgL_l1277z00_3586));
																	BgL_arg1971z00_3589 =
																		BGl_nodezd2ze3sexpz31zzast_dumpz00(
																		((BgL_nodez00_bglt) BgL_arg1972z00_3590));
																}
																BgL_newtail1281z00_3588 =
																	MAKE_YOUNG_PAIR(BgL_arg1971z00_3589, BNIL);
															}
															SET_CDR(BgL_tail1280z00_3587,
																BgL_newtail1281z00_3588);
															{	/* Ast/dump.scm 188 */
																obj_t BgL_arg1970z00_3591;

																BgL_arg1970z00_3591 =
																	CDR(((obj_t) BgL_l1277z00_3586));
																{
																	obj_t BgL_tail1280z00_4804;
																	obj_t BgL_l1277z00_4803;

																	BgL_l1277z00_4803 = BgL_arg1970z00_3591;
																	BgL_tail1280z00_4804 =
																		BgL_newtail1281z00_3588;
																	BgL_tail1280z00_3587 = BgL_tail1280z00_4804;
																	BgL_l1277z00_3586 = BgL_l1277z00_4803;
																	goto BgL_zc3z04anonymousza31968ze3z87_3585;
																}
															}
														}
												}
											}
										}
								}
								BgL_arg1965z00_3578 =
									BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00
									(BgL_arg1966z00_3579, BNIL);
							}
							BgL_arg1962z00_3575 =
								MAKE_YOUNG_PAIR(BgL_arg1964z00_3577, BgL_arg1965z00_3578);
						}
						BgL_arg1960z00_3572 =
							MAKE_YOUNG_PAIR(BgL_arg1961z00_3574, BgL_arg1962z00_3575);
					}
				}
				return
					BGl_locationzd2shapezd2zztools_locationz00(BgL_arg1959z00_3571,
					BgL_arg1960z00_3572);
			}
		}

	}



/* &node->sexp-funcall1366 */
	obj_t BGl_z62nodezd2ze3sexpzd2funcall1366z81zzast_dumpz00(obj_t
		BgL_envz00_3102, obj_t BgL_nodez00_3103)
	{
		{	/* Ast/dump.scm 165 */
			{	/* Ast/dump.scm 167 */
				obj_t BgL_opz00_3593;

				{	/* Ast/dump.scm 167 */
					obj_t BgL_casezd2valuezd2_3594;

					BgL_casezd2valuezd2_3594 =
						(((BgL_funcallz00_bglt) COBJECT(
								((BgL_funcallz00_bglt) BgL_nodez00_3103)))->BgL_strengthz00);
					if ((BgL_casezd2valuezd2_3594 == CNST_TABLE_REF(34L)))
						{	/* Ast/dump.scm 167 */
							BgL_opz00_3593 = CNST_TABLE_REF(35L);
						}
					else
						{	/* Ast/dump.scm 167 */
							if ((BgL_casezd2valuezd2_3594 == CNST_TABLE_REF(36L)))
								{	/* Ast/dump.scm 167 */
									BgL_opz00_3593 = CNST_TABLE_REF(37L);
								}
							else
								{	/* Ast/dump.scm 167 */
									BgL_opz00_3593 = CNST_TABLE_REF(38L);
								}
						}
				}
				{	/* Ast/dump.scm 167 */
					obj_t BgL_topz00_3595;

					{	/* Ast/dump.scm 171 */
						BgL_typez00_bglt BgL_arg1956z00_3596;

						BgL_arg1956z00_3596 =
							BGl_getzd2typezd2zztype_typeofz00(
							((BgL_nodez00_bglt)
								((BgL_funcallz00_bglt) BgL_nodez00_3103)), ((bool_t) 0));
						BgL_topz00_3595 =
							BGl_shapezd2typedzd2nodez00zzast_dumpz00(BgL_opz00_3593,
							BgL_arg1956z00_3596);
					}
					{	/* Ast/dump.scm 171 */

						{	/* Ast/dump.scm 172 */
							obj_t BgL_arg1941z00_3597;
							obj_t BgL_arg1942z00_3598;

							BgL_arg1941z00_3597 =
								(((BgL_nodez00_bglt) COBJECT(
										((BgL_nodez00_bglt)
											((BgL_funcallz00_bglt) BgL_nodez00_3103))))->BgL_locz00);
							{	/* Ast/dump.scm 174 */
								obj_t BgL_arg1943z00_3599;

								{	/* Ast/dump.scm 174 */
									obj_t BgL_arg1944z00_3600;
									obj_t BgL_arg1945z00_3601;

									BgL_arg1944z00_3600 =
										BGl_nodezd2ze3sexpz31zzast_dumpz00(
										(((BgL_funcallz00_bglt) COBJECT(
													((BgL_funcallz00_bglt) BgL_nodez00_3103)))->
											BgL_funz00));
									{	/* Ast/dump.scm 175 */
										obj_t BgL_arg1947z00_3602;

										{	/* Ast/dump.scm 175 */
											obj_t BgL_l1271z00_3603;

											BgL_l1271z00_3603 =
												(((BgL_funcallz00_bglt) COBJECT(
														((BgL_funcallz00_bglt) BgL_nodez00_3103)))->
												BgL_argsz00);
											if (NULLP(BgL_l1271z00_3603))
												{	/* Ast/dump.scm 175 */
													BgL_arg1947z00_3602 = BNIL;
												}
											else
												{	/* Ast/dump.scm 175 */
													obj_t BgL_head1273z00_3604;

													{	/* Ast/dump.scm 175 */
														obj_t BgL_arg1954z00_3605;

														{	/* Ast/dump.scm 175 */
															obj_t BgL_arg1955z00_3606;

															BgL_arg1955z00_3606 =
																CAR(((obj_t) BgL_l1271z00_3603));
															BgL_arg1954z00_3605 =
																BGl_nodezd2ze3sexpz31zzast_dumpz00(
																((BgL_nodez00_bglt) BgL_arg1955z00_3606));
														}
														BgL_head1273z00_3604 =
															MAKE_YOUNG_PAIR(BgL_arg1954z00_3605, BNIL);
													}
													{	/* Ast/dump.scm 175 */
														obj_t BgL_g1276z00_3607;

														BgL_g1276z00_3607 =
															CDR(((obj_t) BgL_l1271z00_3603));
														{
															obj_t BgL_l1271z00_3609;
															obj_t BgL_tail1274z00_3610;

															BgL_l1271z00_3609 = BgL_g1276z00_3607;
															BgL_tail1274z00_3610 = BgL_head1273z00_3604;
														BgL_zc3z04anonymousza31949ze3z87_3608:
															if (NULLP(BgL_l1271z00_3609))
																{	/* Ast/dump.scm 175 */
																	BgL_arg1947z00_3602 = BgL_head1273z00_3604;
																}
															else
																{	/* Ast/dump.scm 175 */
																	obj_t BgL_newtail1275z00_3611;

																	{	/* Ast/dump.scm 175 */
																		obj_t BgL_arg1952z00_3612;

																		{	/* Ast/dump.scm 175 */
																			obj_t BgL_arg1953z00_3613;

																			BgL_arg1953z00_3613 =
																				CAR(((obj_t) BgL_l1271z00_3609));
																			BgL_arg1952z00_3612 =
																				BGl_nodezd2ze3sexpz31zzast_dumpz00(
																				((BgL_nodez00_bglt)
																					BgL_arg1953z00_3613));
																		}
																		BgL_newtail1275z00_3611 =
																			MAKE_YOUNG_PAIR(BgL_arg1952z00_3612,
																			BNIL);
																	}
																	SET_CDR(BgL_tail1274z00_3610,
																		BgL_newtail1275z00_3611);
																	{	/* Ast/dump.scm 175 */
																		obj_t BgL_arg1951z00_3614;

																		BgL_arg1951z00_3614 =
																			CDR(((obj_t) BgL_l1271z00_3609));
																		{
																			obj_t BgL_tail1274z00_4852;
																			obj_t BgL_l1271z00_4851;

																			BgL_l1271z00_4851 = BgL_arg1951z00_3614;
																			BgL_tail1274z00_4852 =
																				BgL_newtail1275z00_3611;
																			BgL_tail1274z00_3610 =
																				BgL_tail1274z00_4852;
																			BgL_l1271z00_3609 = BgL_l1271z00_4851;
																			goto
																				BgL_zc3z04anonymousza31949ze3z87_3608;
																		}
																	}
																}
														}
													}
												}
										}
										BgL_arg1945z00_3601 =
											BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00
											(BgL_arg1947z00_3602, BNIL);
									}
									BgL_arg1943z00_3599 =
										MAKE_YOUNG_PAIR(BgL_arg1944z00_3600, BgL_arg1945z00_3601);
								}
								BgL_arg1942z00_3598 =
									MAKE_YOUNG_PAIR(BgL_topz00_3595, BgL_arg1943z00_3599);
							}
							return
								BGl_locationzd2shapezd2zztools_locationz00(BgL_arg1941z00_3597,
								BgL_arg1942z00_3598);
						}
					}
				}
			}
		}

	}



/* &node->sexp-app-ly1364 */
	obj_t BGl_z62nodezd2ze3sexpzd2appzd2ly1364z53zzast_dumpz00(obj_t
		BgL_envz00_3104, obj_t BgL_nodez00_3105)
	{
		{	/* Ast/dump.scm 155 */
			{	/* Ast/dump.scm 157 */
				obj_t BgL_topz00_3616;

				{	/* Ast/dump.scm 157 */
					obj_t BgL_arg1939z00_3617;

					{	/* Ast/dump.scm 157 */
						BgL_typez00_bglt BgL_arg1940z00_3618;

						BgL_arg1940z00_3618 =
							(((BgL_nodez00_bglt) COBJECT(
									((BgL_nodez00_bglt)
										((BgL_appzd2lyzd2_bglt) BgL_nodez00_3105))))->BgL_typez00);
						BgL_arg1939z00_3617 =
							BGl_shapez00zztools_shapez00(((obj_t) BgL_arg1940z00_3618));
					}
					{	/* Ast/dump.scm 157 */
						obj_t BgL_idz00_3619;

						BgL_idz00_3619 = CNST_TABLE_REF(39L);
						if (CBOOL(BGl_za2typenodezd2shapezf3za2z21zzengine_paramz00))
							{	/* Ast/dump.scm 442 */
								obj_t BgL_arg1492z00_3620;

								{	/* Ast/dump.scm 442 */
									obj_t BgL_arg1494z00_3621;
									obj_t BgL_arg1496z00_3622;

									{	/* Ast/dump.scm 442 */
										obj_t BgL_arg1454z00_3623;

										BgL_arg1454z00_3623 = SYMBOL_TO_STRING(BgL_idz00_3619);
										BgL_arg1494z00_3621 =
											BGl_stringzd2copyzd2zz__r4_strings_6_7z00
											(BgL_arg1454z00_3623);
									}
									BgL_arg1496z00_3622 =
										BGl_shapez00zztools_shapez00(BgL_arg1939z00_3617);
									BgL_arg1492z00_3620 =
										string_append_3(BgL_arg1494z00_3621,
										BGl_string2414z00zzast_dumpz00, BgL_arg1496z00_3622);
								}
								BgL_topz00_3616 = bstring_to_symbol(BgL_arg1492z00_3620);
							}
						else
							{	/* Ast/dump.scm 441 */
								BgL_topz00_3616 = BgL_idz00_3619;
							}
					}
				}
				{	/* Ast/dump.scm 158 */
					obj_t BgL_arg1930z00_3624;
					obj_t BgL_arg1931z00_3625;

					BgL_arg1930z00_3624 =
						(((BgL_nodez00_bglt) COBJECT(
								((BgL_nodez00_bglt)
									((BgL_appzd2lyzd2_bglt) BgL_nodez00_3105))))->BgL_locz00);
					{	/* Ast/dump.scm 159 */
						obj_t BgL_arg1933z00_3626;

						{	/* Ast/dump.scm 159 */
							obj_t BgL_arg1934z00_3627;
							obj_t BgL_arg1935z00_3628;

							BgL_arg1934z00_3627 =
								BGl_nodezd2ze3sexpz31zzast_dumpz00(
								(((BgL_appzd2lyzd2_bglt) COBJECT(
											((BgL_appzd2lyzd2_bglt) BgL_nodez00_3105)))->BgL_funz00));
							BgL_arg1935z00_3628 =
								MAKE_YOUNG_PAIR(BGl_nodezd2ze3sexpz31zzast_dumpz00(
									(((BgL_appzd2lyzd2_bglt) COBJECT(
												((BgL_appzd2lyzd2_bglt) BgL_nodez00_3105)))->
										BgL_argz00)), BNIL);
							BgL_arg1933z00_3626 =
								MAKE_YOUNG_PAIR(BgL_arg1934z00_3627, BgL_arg1935z00_3628);
						}
						BgL_arg1931z00_3625 =
							MAKE_YOUNG_PAIR(BgL_topz00_3616, BgL_arg1933z00_3626);
					}
					return
						BGl_locationzd2shapezd2zztools_locationz00(BgL_arg1930z00_3624,
						BgL_arg1931z00_3625);
				}
			}
		}

	}



/* &node->sexp-app1362 */
	obj_t BGl_z62nodezd2ze3sexpzd2app1362z81zzast_dumpz00(obj_t BgL_envz00_3106,
		obj_t BgL_nodez00_3107)
	{
		{	/* Ast/dump.scm 118 */
			{	/* Ast/dump.scm 120 */
				obj_t BgL_arg1798z00_3630;
				obj_t BgL_arg1799z00_3631;

				BgL_arg1798z00_3630 =
					(((BgL_nodez00_bglt) COBJECT(
							((BgL_nodez00_bglt)
								((BgL_appz00_bglt) BgL_nodez00_3107))))->BgL_locz00);
				if (CBOOL(BGl_za2typezd2shapezf3za2z21zzengine_paramz00))
					{	/* Ast/dump.scm 123 */
						obj_t BgL_arg1800z00_3632;
						obj_t BgL_arg1802z00_3633;

						{	/* Ast/dump.scm 123 */
							BgL_varz00_bglt BgL_arg1816z00_3634;

							BgL_arg1816z00_3634 =
								(((BgL_appz00_bglt) COBJECT(
										((BgL_appz00_bglt) BgL_nodez00_3107)))->BgL_funz00);
							BgL_arg1800z00_3632 =
								BGl_nodezd2ze3sexpz31zzast_dumpz00(
								((BgL_nodez00_bglt) BgL_arg1816z00_3634));
						}
						{	/* Ast/dump.scm 124 */
							obj_t BgL_arg1822z00_3635;
							obj_t BgL_arg1823z00_3636;

							if (CBOOL(BGl_za2accesszd2shapezf3za2z21zzengine_paramz00))
								{	/* Ast/dump.scm 125 */
									obj_t BgL_arg1824z00_3637;

									{	/* Ast/dump.scm 125 */
										obj_t BgL_arg1825z00_3638;

										{	/* Ast/dump.scm 125 */
											obj_t BgL_arg1826z00_3639;

											BgL_arg1826z00_3639 =
												MAKE_YOUNG_PAIR(CNST_TABLE_REF(40L), BNIL);
											BgL_arg1825z00_3638 =
												MAKE_YOUNG_PAIR(CNST_TABLE_REF(41L),
												BgL_arg1826z00_3639);
										}
										BgL_arg1824z00_3637 =
											MAKE_YOUNG_PAIR(BgL_arg1825z00_3638, BNIL);
									}
									BgL_arg1822z00_3635 =
										MAKE_YOUNG_PAIR(CNST_TABLE_REF(14L), BgL_arg1824z00_3637);
								}
							else
								{	/* Ast/dump.scm 124 */
									BgL_arg1822z00_3635 = BNIL;
								}
							{	/* Ast/dump.scm 127 */
								obj_t BgL_arg1827z00_3640;
								obj_t BgL_arg1828z00_3641;

								if (CBOOL(BGl_za2alloczd2shapezf3za2z21zzengine_paramz00))
									{	/* Ast/dump.scm 128 */
										obj_t BgL_arg1829z00_3642;

										{	/* Ast/dump.scm 128 */
											obj_t BgL_arg1830z00_3643;

											{	/* Ast/dump.scm 128 */
												obj_t BgL_arg1831z00_3644;

												BgL_arg1831z00_3644 =
													MAKE_YOUNG_PAIR(CNST_TABLE_REF(40L), BNIL);
												BgL_arg1830z00_3643 =
													MAKE_YOUNG_PAIR(CNST_TABLE_REF(42L),
													BgL_arg1831z00_3644);
											}
											BgL_arg1829z00_3642 =
												MAKE_YOUNG_PAIR(BgL_arg1830z00_3643, BNIL);
										}
										BgL_arg1827z00_3640 =
											MAKE_YOUNG_PAIR(CNST_TABLE_REF(16L), BgL_arg1829z00_3642);
									}
								else
									{	/* Ast/dump.scm 127 */
										BgL_arg1827z00_3640 = BNIL;
									}
								{	/* Ast/dump.scm 130 */
									obj_t BgL_arg1832z00_3645;
									obj_t BgL_arg1833z00_3646;

									{	/* Ast/dump.scm 130 */
										obj_t BgL_arg1834z00_3647;

										{	/* Ast/dump.scm 130 */
											BgL_typez00_bglt BgL_arg1837z00_3648;

											BgL_arg1837z00_3648 =
												(((BgL_nodez00_bglt) COBJECT(
														((BgL_nodez00_bglt)
															((BgL_appz00_bglt) BgL_nodez00_3107))))->
												BgL_typez00);
											BgL_arg1834z00_3647 =
												BGl_shapez00zztools_shapez00(((obj_t)
													BgL_arg1837z00_3648));
										}
										{	/* Ast/dump.scm 130 */
											obj_t BgL_list1835z00_3649;

											{	/* Ast/dump.scm 130 */
												obj_t BgL_arg1836z00_3650;

												BgL_arg1836z00_3650 =
													MAKE_YOUNG_PAIR(BgL_arg1834z00_3647, BNIL);
												BgL_list1835z00_3649 =
													MAKE_YOUNG_PAIR(CNST_TABLE_REF(43L),
													BgL_arg1836z00_3650);
											}
											BgL_arg1832z00_3645 = BgL_list1835z00_3649;
										}
									}
									{	/* Ast/dump.scm 131 */
										obj_t BgL_arg1838z00_3651;
										obj_t BgL_arg1839z00_3652;

										{	/* Ast/dump.scm 131 */
											bool_t BgL_test2570z00_4918;

											{	/* Ast/dump.scm 132 */
												BgL_valuez00_bglt BgL_arg1857z00_3653;

												BgL_arg1857z00_3653 =
													(((BgL_variablez00_bglt) COBJECT(
															(((BgL_varz00_bglt) COBJECT(
																		(((BgL_appz00_bglt) COBJECT(
																					((BgL_appz00_bglt)
																						BgL_nodez00_3107)))->BgL_funz00)))->
																BgL_variablez00)))->BgL_valuez00);
												{	/* Ast/dump.scm 131 */
													obj_t BgL_classz00_3654;

													BgL_classz00_3654 = BGl_cfunz00zzast_varz00;
													{	/* Ast/dump.scm 131 */
														BgL_objectz00_bglt BgL_arg1801z00_3655;

														{	/* Ast/dump.scm 131 */
															obj_t BgL_tmpz00_4923;

															BgL_tmpz00_4923 =
																((obj_t)
																((BgL_objectz00_bglt) BgL_arg1857z00_3653));
															BgL_arg1801z00_3655 =
																(BgL_objectz00_bglt) (BgL_tmpz00_4923);
														}
														if (BGL_CONDEXPAND_ISA_ARCH64())
															{	/* Ast/dump.scm 131 */
																long BgL_idxz00_3656;

																BgL_idxz00_3656 =
																	BGL_OBJECT_INHERITANCE_NUM
																	(BgL_arg1801z00_3655);
																BgL_test2570z00_4918 =
																	(VECTOR_REF
																	(BGl_za2inheritancesza2z00zz__objectz00,
																		(BgL_idxz00_3656 + 3L)) ==
																	BgL_classz00_3654);
															}
														else
															{	/* Ast/dump.scm 131 */
																bool_t BgL_res2410z00_3659;

																{	/* Ast/dump.scm 131 */
																	obj_t BgL_oclassz00_3660;

																	{	/* Ast/dump.scm 131 */
																		long BgL_arg1808z00_3661;

																		{	/* Ast/dump.scm 131 */
																			long BgL_arg1809z00_3662;

																			BgL_arg1809z00_3662 =
																				BGL_OBJECT_CLASS_NUM
																				(BgL_arg1801z00_3655);
																			BgL_arg1808z00_3661 =
																				(BgL_arg1809z00_3662 - OBJECT_TYPE);
																		}
																		BgL_oclassz00_3660 =
																			VECTOR_REF
																			(BGl_za2classesza2z00zz__objectz00,
																			BgL_arg1808z00_3661);
																	}
																	{	/* Ast/dump.scm 131 */
																		bool_t BgL__ortest_1115z00_3663;

																		BgL__ortest_1115z00_3663 =
																			(BgL_classz00_3654 == BgL_oclassz00_3660);
																		if (BgL__ortest_1115z00_3663)
																			{	/* Ast/dump.scm 131 */
																				BgL_res2410z00_3659 =
																					BgL__ortest_1115z00_3663;
																			}
																		else
																			{	/* Ast/dump.scm 131 */
																				long BgL_odepthz00_3664;

																				BgL_odepthz00_3664 =
																					BGL_CLASS_DEPTH(BgL_oclassz00_3660);
																				if ((3L < BgL_odepthz00_3664))
																					{	/* Ast/dump.scm 131 */
																						obj_t BgL_arg1797z00_3665;

																						BgL_arg1797z00_3665 =
																							BGL_CLASS_ANCESTORS_REF
																							(BgL_oclassz00_3660, 3L);
																						BgL_res2410z00_3659 =
																							(BgL_arg1797z00_3665 ==
																							BgL_classz00_3654);
																					}
																				else
																					{	/* Ast/dump.scm 131 */
																						BgL_res2410z00_3659 = ((bool_t) 0);
																					}
																			}
																	}
																}
																BgL_test2570z00_4918 = BgL_res2410z00_3659;
															}
													}
												}
											}
											if (BgL_test2570z00_4918)
												{	/* Ast/dump.scm 133 */
													BgL_valuez00_bglt BgL_cfz00_3666;

													BgL_cfz00_3666 =
														(((BgL_variablez00_bglt) COBJECT(
																(((BgL_varz00_bglt) COBJECT(
																			(((BgL_appz00_bglt) COBJECT(
																						((BgL_appz00_bglt)
																							BgL_nodez00_3107)))->
																				BgL_funz00)))->BgL_variablez00)))->
														BgL_valuez00);
													{	/* Ast/dump.scm 136 */
														obj_t BgL_arg1844z00_3667;

														{	/* Ast/dump.scm 136 */
															obj_t BgL_arg1845z00_3668;

															{	/* Ast/dump.scm 136 */
																obj_t BgL_arg1846z00_3669;

																{	/* Ast/dump.scm 136 */
																	obj_t BgL_l1241z00_3670;

																	BgL_l1241z00_3670 =
																		(((BgL_cfunz00_bglt) COBJECT(
																				((BgL_cfunz00_bglt) BgL_cfz00_3666)))->
																		BgL_argszd2typezd2);
																	if (NULLP(BgL_l1241z00_3670))
																		{	/* Ast/dump.scm 136 */
																			BgL_arg1846z00_3669 = BNIL;
																		}
																	else
																		{	/* Ast/dump.scm 136 */
																			obj_t BgL_head1243z00_3671;

																			{	/* Ast/dump.scm 136 */
																				obj_t BgL_arg1853z00_3672;

																				BgL_arg1853z00_3672 =
																					(((BgL_typez00_bglt) COBJECT(
																							((BgL_typez00_bglt)
																								CAR(
																									((obj_t)
																										BgL_l1241z00_3670)))))->
																					BgL_idz00);
																				BgL_head1243z00_3671 =
																					MAKE_YOUNG_PAIR(BgL_arg1853z00_3672,
																					BNIL);
																			}
																			{	/* Ast/dump.scm 136 */
																				obj_t BgL_g1246z00_3673;

																				BgL_g1246z00_3673 =
																					CDR(((obj_t) BgL_l1241z00_3670));
																				{
																					obj_t BgL_l1241z00_3675;
																					obj_t BgL_tail1244z00_3676;

																					BgL_l1241z00_3675 = BgL_g1246z00_3673;
																					BgL_tail1244z00_3676 =
																						BgL_head1243z00_3671;
																				BgL_zc3z04anonymousza31848ze3z87_3674:
																					if (NULLP(BgL_l1241z00_3675))
																						{	/* Ast/dump.scm 136 */
																							BgL_arg1846z00_3669 =
																								BgL_head1243z00_3671;
																						}
																					else
																						{	/* Ast/dump.scm 136 */
																							obj_t BgL_newtail1245z00_3677;

																							{	/* Ast/dump.scm 136 */
																								obj_t BgL_arg1851z00_3678;

																								BgL_arg1851z00_3678 =
																									(((BgL_typez00_bglt) COBJECT(
																											((BgL_typez00_bglt)
																												CAR(
																													((obj_t)
																														BgL_l1241z00_3675)))))->
																									BgL_idz00);
																								BgL_newtail1245z00_3677 =
																									MAKE_YOUNG_PAIR
																									(BgL_arg1851z00_3678, BNIL);
																							}
																							SET_CDR(BgL_tail1244z00_3676,
																								BgL_newtail1245z00_3677);
																							{	/* Ast/dump.scm 136 */
																								obj_t BgL_arg1850z00_3679;

																								BgL_arg1850z00_3679 =
																									CDR(
																									((obj_t) BgL_l1241z00_3675));
																								{
																									obj_t BgL_tail1244z00_4969;
																									obj_t BgL_l1241z00_4968;

																									BgL_l1241z00_4968 =
																										BgL_arg1850z00_3679;
																									BgL_tail1244z00_4969 =
																										BgL_newtail1245z00_3677;
																									BgL_tail1244z00_3676 =
																										BgL_tail1244z00_4969;
																									BgL_l1241z00_3675 =
																										BgL_l1241z00_4968;
																									goto
																										BgL_zc3z04anonymousza31848ze3z87_3674;
																								}
																							}
																						}
																				}
																			}
																		}
																}
																BgL_arg1845z00_3668 =
																	MAKE_YOUNG_PAIR(BgL_arg1846z00_3669, BNIL);
															}
															BgL_arg1844z00_3667 =
																MAKE_YOUNG_PAIR(CNST_TABLE_REF(44L),
																BgL_arg1845z00_3668);
														}
														BgL_arg1838z00_3651 =
															MAKE_YOUNG_PAIR(BgL_arg1844z00_3667, BNIL);
													}
												}
											else
												{	/* Ast/dump.scm 131 */
													BgL_arg1838z00_3651 = BNIL;
												}
										}
										{	/* Ast/dump.scm 138 */
											obj_t BgL_arg1864z00_3680;

											{	/* Ast/dump.scm 138 */
												obj_t BgL_l1247z00_3681;

												BgL_l1247z00_3681 =
													(((BgL_appz00_bglt) COBJECT(
															((BgL_appz00_bglt) BgL_nodez00_3107)))->
													BgL_argsz00);
												if (NULLP(BgL_l1247z00_3681))
													{	/* Ast/dump.scm 138 */
														BgL_arg1864z00_3680 = BNIL;
													}
												else
													{	/* Ast/dump.scm 138 */
														obj_t BgL_head1249z00_3682;

														{	/* Ast/dump.scm 138 */
															obj_t BgL_arg1873z00_3683;

															{	/* Ast/dump.scm 138 */
																obj_t BgL_arg1875z00_3684;

																BgL_arg1875z00_3684 =
																	CAR(((obj_t) BgL_l1247z00_3681));
																BgL_arg1873z00_3683 =
																	BGl_nodezd2ze3sexpz31zzast_dumpz00(
																	((BgL_nodez00_bglt) BgL_arg1875z00_3684));
															}
															BgL_head1249z00_3682 =
																MAKE_YOUNG_PAIR(BgL_arg1873z00_3683, BNIL);
														}
														{	/* Ast/dump.scm 138 */
															obj_t BgL_g1252z00_3685;

															BgL_g1252z00_3685 =
																CDR(((obj_t) BgL_l1247z00_3681));
															{
																obj_t BgL_l1247z00_3687;
																obj_t BgL_tail1250z00_3688;

																BgL_l1247z00_3687 = BgL_g1252z00_3685;
																BgL_tail1250z00_3688 = BgL_head1249z00_3682;
															BgL_zc3z04anonymousza31866ze3z87_3686:
																if (NULLP(BgL_l1247z00_3687))
																	{	/* Ast/dump.scm 138 */
																		BgL_arg1864z00_3680 = BgL_head1249z00_3682;
																	}
																else
																	{	/* Ast/dump.scm 138 */
																		obj_t BgL_newtail1251z00_3689;

																		{	/* Ast/dump.scm 138 */
																			obj_t BgL_arg1870z00_3690;

																			{	/* Ast/dump.scm 138 */
																				obj_t BgL_arg1872z00_3691;

																				BgL_arg1872z00_3691 =
																					CAR(((obj_t) BgL_l1247z00_3687));
																				BgL_arg1870z00_3690 =
																					BGl_nodezd2ze3sexpz31zzast_dumpz00(
																					((BgL_nodez00_bglt)
																						BgL_arg1872z00_3691));
																			}
																			BgL_newtail1251z00_3689 =
																				MAKE_YOUNG_PAIR(BgL_arg1870z00_3690,
																				BNIL);
																		}
																		SET_CDR(BgL_tail1250z00_3688,
																			BgL_newtail1251z00_3689);
																		{	/* Ast/dump.scm 138 */
																			obj_t BgL_arg1868z00_3692;

																			BgL_arg1868z00_3692 =
																				CDR(((obj_t) BgL_l1247z00_3687));
																			{
																				obj_t BgL_tail1250z00_4996;
																				obj_t BgL_l1247z00_4995;

																				BgL_l1247z00_4995 = BgL_arg1868z00_3692;
																				BgL_tail1250z00_4996 =
																					BgL_newtail1251z00_3689;
																				BgL_tail1250z00_3688 =
																					BgL_tail1250z00_4996;
																				BgL_l1247z00_3687 = BgL_l1247z00_4995;
																				goto
																					BgL_zc3z04anonymousza31866ze3z87_3686;
																			}
																		}
																	}
															}
														}
													}
											}
											BgL_arg1839z00_3652 =
												BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00
												(BgL_arg1864z00_3680, BNIL);
										}
										BgL_arg1833z00_3646 =
											BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00
											(BgL_arg1838z00_3651, BgL_arg1839z00_3652);
									}
									BgL_arg1828z00_3641 =
										MAKE_YOUNG_PAIR(BgL_arg1832z00_3645, BgL_arg1833z00_3646);
								}
								BgL_arg1823z00_3636 =
									BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00
									(BgL_arg1827z00_3640, BgL_arg1828z00_3641);
							}
							BgL_arg1802z00_3633 =
								BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00
								(BgL_arg1822z00_3635, BgL_arg1823z00_3636);
						}
						BgL_arg1799z00_3631 =
							MAKE_YOUNG_PAIR(BgL_arg1800z00_3632, BgL_arg1802z00_3633);
					}
				else
					{	/* Ast/dump.scm 122 */
						if (CBOOL(BGl_za2accesszd2shapezf3za2z21zzengine_paramz00))
							{	/* Ast/dump.scm 140 */
								obj_t BgL_arg1876z00_3693;
								obj_t BgL_arg1877z00_3694;

								{	/* Ast/dump.scm 140 */
									BgL_varz00_bglt BgL_arg1879z00_3695;

									BgL_arg1879z00_3695 =
										(((BgL_appz00_bglt) COBJECT(
												((BgL_appz00_bglt) BgL_nodez00_3107)))->BgL_funz00);
									BgL_arg1876z00_3693 =
										BGl_nodezd2ze3sexpz31zzast_dumpz00(
										((BgL_nodez00_bglt) BgL_arg1879z00_3695));
								}
								{	/* Ast/dump.scm 141 */
									obj_t BgL_arg1880z00_3696;

									{	/* Ast/dump.scm 141 */
										bool_t BgL_arg1881z00_3697;
										obj_t BgL_arg1882z00_3698;

										BgL_arg1881z00_3697 =
											BGl_sidezd2effectzf3z21zzeffect_effectz00(
											((BgL_nodez00_bglt)
												((BgL_appz00_bglt) BgL_nodez00_3107)));
										{	/* Ast/dump.scm 142 */
											obj_t BgL_arg1883z00_3699;

											{	/* Ast/dump.scm 142 */
												obj_t BgL_arg1884z00_3700;
												obj_t BgL_arg1885z00_3701;

												BgL_arg1884z00_3700 =
													(((BgL_appz00_bglt) COBJECT(
															((BgL_appz00_bglt) BgL_nodez00_3107)))->
													BgL_stackablez00);
												{	/* Ast/dump.scm 143 */
													obj_t BgL_arg1886z00_3702;

													{	/* Ast/dump.scm 143 */
														obj_t BgL_l1253z00_3703;

														BgL_l1253z00_3703 =
															(((BgL_appz00_bglt) COBJECT(
																	((BgL_appz00_bglt) BgL_nodez00_3107)))->
															BgL_argsz00);
														if (NULLP(BgL_l1253z00_3703))
															{	/* Ast/dump.scm 143 */
																BgL_arg1886z00_3702 = BNIL;
															}
														else
															{	/* Ast/dump.scm 143 */
																obj_t BgL_head1255z00_3704;

																{	/* Ast/dump.scm 143 */
																	obj_t BgL_arg1894z00_3705;

																	{	/* Ast/dump.scm 143 */
																		obj_t BgL_arg1895z00_3706;

																		BgL_arg1895z00_3706 =
																			CAR(((obj_t) BgL_l1253z00_3703));
																		BgL_arg1894z00_3705 =
																			BGl_nodezd2ze3sexpz31zzast_dumpz00(
																			((BgL_nodez00_bglt) BgL_arg1895z00_3706));
																	}
																	BgL_head1255z00_3704 =
																		MAKE_YOUNG_PAIR(BgL_arg1894z00_3705, BNIL);
																}
																{	/* Ast/dump.scm 143 */
																	obj_t BgL_g1258z00_3707;

																	BgL_g1258z00_3707 =
																		CDR(((obj_t) BgL_l1253z00_3703));
																	{
																		obj_t BgL_l1253z00_3709;
																		obj_t BgL_tail1256z00_3710;

																		BgL_l1253z00_3709 = BgL_g1258z00_3707;
																		BgL_tail1256z00_3710 = BgL_head1255z00_3704;
																	BgL_zc3z04anonymousza31888ze3z87_3708:
																		if (NULLP(BgL_l1253z00_3709))
																			{	/* Ast/dump.scm 143 */
																				BgL_arg1886z00_3702 =
																					BgL_head1255z00_3704;
																			}
																		else
																			{	/* Ast/dump.scm 143 */
																				obj_t BgL_newtail1257z00_3711;

																				{	/* Ast/dump.scm 143 */
																					obj_t BgL_arg1892z00_3712;

																					{	/* Ast/dump.scm 143 */
																						obj_t BgL_arg1893z00_3713;

																						BgL_arg1893z00_3713 =
																							CAR(((obj_t) BgL_l1253z00_3709));
																						BgL_arg1892z00_3712 =
																							BGl_nodezd2ze3sexpz31zzast_dumpz00
																							(((BgL_nodez00_bglt)
																								BgL_arg1893z00_3713));
																					}
																					BgL_newtail1257z00_3711 =
																						MAKE_YOUNG_PAIR(BgL_arg1892z00_3712,
																						BNIL);
																				}
																				SET_CDR(BgL_tail1256z00_3710,
																					BgL_newtail1257z00_3711);
																				{	/* Ast/dump.scm 143 */
																					obj_t BgL_arg1890z00_3714;

																					BgL_arg1890z00_3714 =
																						CDR(((obj_t) BgL_l1253z00_3709));
																					{
																						obj_t BgL_tail1256z00_5036;
																						obj_t BgL_l1253z00_5035;

																						BgL_l1253z00_5035 =
																							BgL_arg1890z00_3714;
																						BgL_tail1256z00_5036 =
																							BgL_newtail1257z00_3711;
																						BgL_tail1256z00_3710 =
																							BgL_tail1256z00_5036;
																						BgL_l1253z00_3709 =
																							BgL_l1253z00_5035;
																						goto
																							BgL_zc3z04anonymousza31888ze3z87_3708;
																					}
																				}
																			}
																	}
																}
															}
													}
													BgL_arg1885z00_3701 =
														BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00
														(BgL_arg1886z00_3702, BNIL);
												}
												BgL_arg1883z00_3699 =
													MAKE_YOUNG_PAIR(BgL_arg1884z00_3700,
													BgL_arg1885z00_3701);
											}
											BgL_arg1882z00_3698 =
												MAKE_YOUNG_PAIR(CNST_TABLE_REF(16L),
												BgL_arg1883z00_3699);
										}
										BgL_arg1880z00_3696 =
											MAKE_YOUNG_PAIR(BBOOL(BgL_arg1881z00_3697),
											BgL_arg1882z00_3698);
									}
									BgL_arg1877z00_3694 =
										MAKE_YOUNG_PAIR(CNST_TABLE_REF(14L), BgL_arg1880z00_3696);
								}
								BgL_arg1799z00_3631 =
									MAKE_YOUNG_PAIR(BgL_arg1876z00_3693, BgL_arg1877z00_3694);
							}
						else
							{	/* Ast/dump.scm 139 */
								if (CBOOL(BGl_za2alloczd2shapezf3za2z21zzengine_paramz00))
									{	/* Ast/dump.scm 145 */
										obj_t BgL_arg1896z00_3715;
										obj_t BgL_arg1897z00_3716;

										{	/* Ast/dump.scm 145 */
											BgL_varz00_bglt BgL_arg1898z00_3717;

											BgL_arg1898z00_3717 =
												(((BgL_appz00_bglt) COBJECT(
														((BgL_appz00_bglt) BgL_nodez00_3107)))->BgL_funz00);
											BgL_arg1896z00_3715 =
												BGl_nodezd2ze3sexpz31zzast_dumpz00(
												((BgL_nodez00_bglt) BgL_arg1898z00_3717));
										}
										{	/* Ast/dump.scm 146 */
											obj_t BgL_arg1899z00_3718;

											{	/* Ast/dump.scm 146 */
												obj_t BgL_arg1900z00_3719;
												obj_t BgL_arg1901z00_3720;

												BgL_arg1900z00_3719 =
													(((BgL_appz00_bglt) COBJECT(
															((BgL_appz00_bglt) BgL_nodez00_3107)))->
													BgL_stackablez00);
												{	/* Ast/dump.scm 147 */
													obj_t BgL_arg1905z00_3721;

													{	/* Ast/dump.scm 147 */
														obj_t BgL_l1259z00_3722;

														BgL_l1259z00_3722 =
															(((BgL_appz00_bglt) COBJECT(
																	((BgL_appz00_bglt) BgL_nodez00_3107)))->
															BgL_argsz00);
														if (NULLP(BgL_l1259z00_3722))
															{	/* Ast/dump.scm 147 */
																BgL_arg1905z00_3721 = BNIL;
															}
														else
															{	/* Ast/dump.scm 147 */
																obj_t BgL_head1261z00_3723;

																{	/* Ast/dump.scm 147 */
																	obj_t BgL_arg1915z00_3724;

																	{	/* Ast/dump.scm 147 */
																		obj_t BgL_arg1916z00_3725;

																		BgL_arg1916z00_3725 =
																			CAR(((obj_t) BgL_l1259z00_3722));
																		BgL_arg1915z00_3724 =
																			BGl_nodezd2ze3sexpz31zzast_dumpz00(
																			((BgL_nodez00_bglt) BgL_arg1916z00_3725));
																	}
																	BgL_head1261z00_3723 =
																		MAKE_YOUNG_PAIR(BgL_arg1915z00_3724, BNIL);
																}
																{	/* Ast/dump.scm 147 */
																	obj_t BgL_g1264z00_3726;

																	BgL_g1264z00_3726 =
																		CDR(((obj_t) BgL_l1259z00_3722));
																	{
																		obj_t BgL_l1259z00_3728;
																		obj_t BgL_tail1262z00_3729;

																		BgL_l1259z00_3728 = BgL_g1264z00_3726;
																		BgL_tail1262z00_3729 = BgL_head1261z00_3723;
																	BgL_zc3z04anonymousza31907ze3z87_3727:
																		if (NULLP(BgL_l1259z00_3728))
																			{	/* Ast/dump.scm 147 */
																				BgL_arg1905z00_3721 =
																					BgL_head1261z00_3723;
																			}
																		else
																			{	/* Ast/dump.scm 147 */
																				obj_t BgL_newtail1263z00_3730;

																				{	/* Ast/dump.scm 147 */
																					obj_t BgL_arg1911z00_3731;

																					{	/* Ast/dump.scm 147 */
																						obj_t BgL_arg1914z00_3732;

																						BgL_arg1914z00_3732 =
																							CAR(((obj_t) BgL_l1259z00_3728));
																						BgL_arg1911z00_3731 =
																							BGl_nodezd2ze3sexpz31zzast_dumpz00
																							(((BgL_nodez00_bglt)
																								BgL_arg1914z00_3732));
																					}
																					BgL_newtail1263z00_3730 =
																						MAKE_YOUNG_PAIR(BgL_arg1911z00_3731,
																						BNIL);
																				}
																				SET_CDR(BgL_tail1262z00_3729,
																					BgL_newtail1263z00_3730);
																				{	/* Ast/dump.scm 147 */
																					obj_t BgL_arg1909z00_3733;

																					BgL_arg1909z00_3733 =
																						CDR(((obj_t) BgL_l1259z00_3728));
																					{
																						obj_t BgL_tail1262z00_5076;
																						obj_t BgL_l1259z00_5075;

																						BgL_l1259z00_5075 =
																							BgL_arg1909z00_3733;
																						BgL_tail1262z00_5076 =
																							BgL_newtail1263z00_3730;
																						BgL_tail1262z00_3729 =
																							BgL_tail1262z00_5076;
																						BgL_l1259z00_3728 =
																							BgL_l1259z00_5075;
																						goto
																							BgL_zc3z04anonymousza31907ze3z87_3727;
																					}
																				}
																			}
																	}
																}
															}
													}
													BgL_arg1901z00_3720 =
														BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00
														(BgL_arg1905z00_3721, BNIL);
												}
												BgL_arg1899z00_3718 =
													MAKE_YOUNG_PAIR(BgL_arg1900z00_3719,
													BgL_arg1901z00_3720);
											}
											BgL_arg1897z00_3716 =
												MAKE_YOUNG_PAIR(CNST_TABLE_REF(16L),
												BgL_arg1899z00_3718);
										}
										BgL_arg1799z00_3631 =
											MAKE_YOUNG_PAIR(BgL_arg1896z00_3715, BgL_arg1897z00_3716);
									}
								else
									{	/* Ast/dump.scm 149 */
										obj_t BgL_arg1917z00_3734;
										obj_t BgL_arg1918z00_3735;

										{	/* Ast/dump.scm 149 */
											BgL_varz00_bglt BgL_arg1920z00_3736;

											BgL_arg1920z00_3736 =
												(((BgL_appz00_bglt) COBJECT(
														((BgL_appz00_bglt) BgL_nodez00_3107)))->BgL_funz00);
											BgL_arg1917z00_3734 =
												BGl_nodezd2ze3sexpz31zzast_dumpz00(
												((BgL_nodez00_bglt) BgL_arg1920z00_3736));
										}
										{	/* Ast/dump.scm 150 */
											obj_t BgL_arg1921z00_3737;

											{	/* Ast/dump.scm 150 */
												obj_t BgL_l1265z00_3738;

												BgL_l1265z00_3738 =
													(((BgL_appz00_bglt) COBJECT(
															((BgL_appz00_bglt) BgL_nodez00_3107)))->
													BgL_argsz00);
												if (NULLP(BgL_l1265z00_3738))
													{	/* Ast/dump.scm 150 */
														BgL_arg1921z00_3737 = BNIL;
													}
												else
													{	/* Ast/dump.scm 150 */
														obj_t BgL_head1267z00_3739;

														{	/* Ast/dump.scm 150 */
															obj_t BgL_arg1928z00_3740;

															{	/* Ast/dump.scm 150 */
																obj_t BgL_arg1929z00_3741;

																BgL_arg1929z00_3741 =
																	CAR(((obj_t) BgL_l1265z00_3738));
																BgL_arg1928z00_3740 =
																	BGl_nodezd2ze3sexpz31zzast_dumpz00(
																	((BgL_nodez00_bglt) BgL_arg1929z00_3741));
															}
															BgL_head1267z00_3739 =
																MAKE_YOUNG_PAIR(BgL_arg1928z00_3740, BNIL);
														}
														{	/* Ast/dump.scm 150 */
															obj_t BgL_g1270z00_3742;

															BgL_g1270z00_3742 =
																CDR(((obj_t) BgL_l1265z00_3738));
															{
																obj_t BgL_l1265z00_3744;
																obj_t BgL_tail1268z00_3745;

																BgL_l1265z00_3744 = BgL_g1270z00_3742;
																BgL_tail1268z00_3745 = BgL_head1267z00_3739;
															BgL_zc3z04anonymousza31923ze3z87_3743:
																if (NULLP(BgL_l1265z00_3744))
																	{	/* Ast/dump.scm 150 */
																		BgL_arg1921z00_3737 = BgL_head1267z00_3739;
																	}
																else
																	{	/* Ast/dump.scm 150 */
																		obj_t BgL_newtail1269z00_3746;

																		{	/* Ast/dump.scm 150 */
																			obj_t BgL_arg1926z00_3747;

																			{	/* Ast/dump.scm 150 */
																				obj_t BgL_arg1927z00_3748;

																				BgL_arg1927z00_3748 =
																					CAR(((obj_t) BgL_l1265z00_3744));
																				BgL_arg1926z00_3747 =
																					BGl_nodezd2ze3sexpz31zzast_dumpz00(
																					((BgL_nodez00_bglt)
																						BgL_arg1927z00_3748));
																			}
																			BgL_newtail1269z00_3746 =
																				MAKE_YOUNG_PAIR(BgL_arg1926z00_3747,
																				BNIL);
																		}
																		SET_CDR(BgL_tail1268z00_3745,
																			BgL_newtail1269z00_3746);
																		{	/* Ast/dump.scm 150 */
																			obj_t BgL_arg1925z00_3749;

																			BgL_arg1925z00_3749 =
																				CDR(((obj_t) BgL_l1265z00_3744));
																			{
																				obj_t BgL_tail1268z00_5108;
																				obj_t BgL_l1265z00_5107;

																				BgL_l1265z00_5107 = BgL_arg1925z00_3749;
																				BgL_tail1268z00_5108 =
																					BgL_newtail1269z00_3746;
																				BgL_tail1268z00_3745 =
																					BgL_tail1268z00_5108;
																				BgL_l1265z00_3744 = BgL_l1265z00_5107;
																				goto
																					BgL_zc3z04anonymousza31923ze3z87_3743;
																			}
																		}
																	}
															}
														}
													}
											}
											BgL_arg1918z00_3735 =
												BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00
												(BgL_arg1921z00_3737, BNIL);
										}
										BgL_arg1799z00_3631 =
											MAKE_YOUNG_PAIR(BgL_arg1917z00_3734, BgL_arg1918z00_3735);
									}
							}
					}
				return
					BGl_locationzd2shapezd2zztools_locationz00(BgL_arg1798z00_3630,
					BgL_arg1799z00_3631);
			}
		}

	}



/* &node->sexp-sync1360 */
	obj_t BGl_z62nodezd2ze3sexpzd2sync1360z81zzast_dumpz00(obj_t BgL_envz00_3108,
		obj_t BgL_nodez00_3109)
	{
		{	/* Ast/dump.scm 107 */
			{	/* Ast/dump.scm 109 */
				obj_t BgL_symz00_3751;

				{	/* Ast/dump.scm 109 */
					BgL_typez00_bglt BgL_arg1794z00_3752;

					BgL_arg1794z00_3752 =
						(((BgL_nodez00_bglt) COBJECT(
								((BgL_nodez00_bglt)
									((BgL_syncz00_bglt) BgL_nodez00_3109))))->BgL_typez00);
					{	/* Ast/dump.scm 109 */
						obj_t BgL_idz00_3753;

						BgL_idz00_3753 = CNST_TABLE_REF(45L);
						if (CBOOL(BGl_za2typenodezd2shapezf3za2z21zzengine_paramz00))
							{	/* Ast/dump.scm 442 */
								obj_t BgL_arg1492z00_3754;

								{	/* Ast/dump.scm 442 */
									obj_t BgL_arg1494z00_3755;
									obj_t BgL_arg1496z00_3756;

									{	/* Ast/dump.scm 442 */
										obj_t BgL_arg1454z00_3757;

										BgL_arg1454z00_3757 = SYMBOL_TO_STRING(BgL_idz00_3753);
										BgL_arg1494z00_3755 =
											BGl_stringzd2copyzd2zz__r4_strings_6_7z00
											(BgL_arg1454z00_3757);
									}
									BgL_arg1496z00_3756 =
										BGl_shapez00zztools_shapez00(((obj_t) BgL_arg1794z00_3752));
									BgL_arg1492z00_3754 =
										string_append_3(BgL_arg1494z00_3755,
										BGl_string2414z00zzast_dumpz00, BgL_arg1496z00_3756);
								}
								BgL_symz00_3751 = bstring_to_symbol(BgL_arg1492z00_3754);
							}
						else
							{	/* Ast/dump.scm 441 */
								BgL_symz00_3751 = BgL_idz00_3753;
							}
					}
				}
				{	/* Ast/dump.scm 110 */
					obj_t BgL_arg1750z00_3758;
					obj_t BgL_arg1751z00_3759;

					BgL_arg1750z00_3758 =
						(((BgL_nodez00_bglt) COBJECT(
								((BgL_nodez00_bglt)
									((BgL_syncz00_bglt) BgL_nodez00_3109))))->BgL_locz00);
					{	/* Ast/dump.scm 111 */
						obj_t BgL_arg1752z00_3760;

						{	/* Ast/dump.scm 111 */
							obj_t BgL_arg1753z00_3761;
							obj_t BgL_arg1759z00_3762;

							BgL_arg1753z00_3761 =
								BGl_nodezd2ze3sexpz31zzast_dumpz00(
								(((BgL_syncz00_bglt) COBJECT(
											((BgL_syncz00_bglt) BgL_nodez00_3109)))->BgL_mutexz00));
							{	/* Ast/dump.scm 112 */
								obj_t BgL_arg1763z00_3763;

								{	/* Ast/dump.scm 112 */
									obj_t BgL_arg1768z00_3764;
									obj_t BgL_arg1771z00_3765;

									BgL_arg1768z00_3764 =
										BGl_nodezd2ze3sexpz31zzast_dumpz00(
										(((BgL_syncz00_bglt) COBJECT(
													((BgL_syncz00_bglt) BgL_nodez00_3109)))->
											BgL_prelockz00));
									BgL_arg1771z00_3765 =
										MAKE_YOUNG_PAIR(BGl_nodezd2ze3sexpz31zzast_dumpz00(((
													(BgL_syncz00_bglt) COBJECT(((BgL_syncz00_bglt)
															BgL_nodez00_3109)))->BgL_bodyz00)), BNIL);
									BgL_arg1763z00_3763 =
										MAKE_YOUNG_PAIR(BgL_arg1768z00_3764, BgL_arg1771z00_3765);
								}
								BgL_arg1759z00_3762 =
									MAKE_YOUNG_PAIR(CNST_TABLE_REF(46L), BgL_arg1763z00_3763);
							}
							BgL_arg1752z00_3760 =
								MAKE_YOUNG_PAIR(BgL_arg1753z00_3761, BgL_arg1759z00_3762);
						}
						BgL_arg1751z00_3759 =
							MAKE_YOUNG_PAIR(BgL_symz00_3751, BgL_arg1752z00_3760);
					}
					return
						BGl_locationzd2shapezd2zztools_locationz00(BgL_arg1750z00_3758,
						BgL_arg1751z00_3759);
				}
			}
		}

	}



/* &node->sexp-sequence1358 */
	obj_t BGl_z62nodezd2ze3sexpzd2sequence1358z81zzast_dumpz00(obj_t
		BgL_envz00_3110, obj_t BgL_nodez00_3111)
	{
		{	/* Ast/dump.scm 95 */
			{	/* Ast/dump.scm 98 */
				obj_t BgL_symz00_3767;

				{	/* Ast/dump.scm 99 */
					obj_t BgL_arg1746z00_3768;
					BgL_typez00_bglt BgL_arg1747z00_3769;

					if (
						(((BgL_sequencez00_bglt) COBJECT(
									((BgL_sequencez00_bglt) BgL_nodez00_3111)))->BgL_unsafez00))
						{	/* Ast/dump.scm 99 */
							BgL_arg1746z00_3768 = CNST_TABLE_REF(47L);
						}
					else
						{	/* Ast/dump.scm 99 */
							BgL_arg1746z00_3768 = CNST_TABLE_REF(48L);
						}
					BgL_arg1747z00_3769 =
						(((BgL_nodez00_bglt) COBJECT(
								((BgL_nodez00_bglt)
									((BgL_sequencez00_bglt) BgL_nodez00_3111))))->BgL_typez00);
					BgL_symz00_3767 =
						BGl_shapezd2typedzd2nodez00zzast_dumpz00(BgL_arg1746z00_3768,
						BgL_arg1747z00_3769);
				}
				{	/* Ast/dump.scm 100 */
					obj_t BgL_arg1708z00_3770;
					obj_t BgL_arg1709z00_3771;

					BgL_arg1708z00_3770 =
						(((BgL_nodez00_bglt) COBJECT(
								((BgL_nodez00_bglt)
									((BgL_sequencez00_bglt) BgL_nodez00_3111))))->BgL_locz00);
					{	/* Ast/dump.scm 101 */
						obj_t BgL_arg1710z00_3772;

						{	/* Ast/dump.scm 101 */
							obj_t BgL_arg1712z00_3773;
							obj_t BgL_arg1714z00_3774;

							if (NULLP(
									(((BgL_sequencez00_bglt) COBJECT(
												((BgL_sequencez00_bglt) BgL_nodez00_3111)))->
										BgL_metaz00)))
								{	/* Ast/dump.scm 101 */
									BgL_arg1712z00_3773 = BNIL;
								}
							else
								{	/* Ast/dump.scm 101 */
									obj_t BgL_arg1717z00_3775;

									BgL_arg1717z00_3775 =
										(((BgL_sequencez00_bglt) COBJECT(
												((BgL_sequencez00_bglt) BgL_nodez00_3111)))->
										BgL_metaz00);
									{	/* Ast/dump.scm 101 */
										obj_t BgL_list1718z00_3776;

										BgL_list1718z00_3776 =
											MAKE_YOUNG_PAIR(BgL_arg1717z00_3775, BNIL);
										BgL_arg1712z00_3773 = BgL_list1718z00_3776;
									}
								}
							{	/* Ast/dump.scm 102 */
								obj_t BgL_arg1730z00_3777;

								{	/* Ast/dump.scm 102 */
									obj_t BgL_l1235z00_3778;

									BgL_l1235z00_3778 =
										(((BgL_sequencez00_bglt) COBJECT(
												((BgL_sequencez00_bglt) BgL_nodez00_3111)))->
										BgL_nodesz00);
									if (NULLP(BgL_l1235z00_3778))
										{	/* Ast/dump.scm 102 */
											BgL_arg1730z00_3777 = BNIL;
										}
									else
										{	/* Ast/dump.scm 102 */
											obj_t BgL_head1237z00_3779;

											{	/* Ast/dump.scm 102 */
												obj_t BgL_arg1741z00_3780;

												{	/* Ast/dump.scm 102 */
													obj_t BgL_arg1745z00_3781;

													BgL_arg1745z00_3781 = CAR(BgL_l1235z00_3778);
													BgL_arg1741z00_3780 =
														BGl_nodezd2ze3sexpz31zzast_dumpz00(
														((BgL_nodez00_bglt) BgL_arg1745z00_3781));
												}
												BgL_head1237z00_3779 =
													MAKE_YOUNG_PAIR(BgL_arg1741z00_3780, BNIL);
											}
											{	/* Ast/dump.scm 102 */
												obj_t BgL_g1240z00_3782;

												BgL_g1240z00_3782 = CDR(BgL_l1235z00_3778);
												{
													obj_t BgL_l1235z00_3784;
													obj_t BgL_tail1238z00_3785;

													BgL_l1235z00_3784 = BgL_g1240z00_3782;
													BgL_tail1238z00_3785 = BgL_head1237z00_3779;
												BgL_zc3z04anonymousza31733ze3z87_3783:
													if (NULLP(BgL_l1235z00_3784))
														{	/* Ast/dump.scm 102 */
															BgL_arg1730z00_3777 = BgL_head1237z00_3779;
														}
													else
														{	/* Ast/dump.scm 102 */
															obj_t BgL_newtail1239z00_3786;

															{	/* Ast/dump.scm 102 */
																obj_t BgL_arg1736z00_3787;

																{	/* Ast/dump.scm 102 */
																	obj_t BgL_arg1739z00_3788;

																	BgL_arg1739z00_3788 =
																		CAR(((obj_t) BgL_l1235z00_3784));
																	BgL_arg1736z00_3787 =
																		BGl_nodezd2ze3sexpz31zzast_dumpz00(
																		((BgL_nodez00_bglt) BgL_arg1739z00_3788));
																}
																BgL_newtail1239z00_3786 =
																	MAKE_YOUNG_PAIR(BgL_arg1736z00_3787, BNIL);
															}
															SET_CDR(BgL_tail1238z00_3785,
																BgL_newtail1239z00_3786);
															{	/* Ast/dump.scm 102 */
																obj_t BgL_arg1735z00_3789;

																BgL_arg1735z00_3789 =
																	CDR(((obj_t) BgL_l1235z00_3784));
																{
																	obj_t BgL_tail1238z00_5182;
																	obj_t BgL_l1235z00_5181;

																	BgL_l1235z00_5181 = BgL_arg1735z00_3789;
																	BgL_tail1238z00_5182 =
																		BgL_newtail1239z00_3786;
																	BgL_tail1238z00_3785 = BgL_tail1238z00_5182;
																	BgL_l1235z00_3784 = BgL_l1235z00_5181;
																	goto BgL_zc3z04anonymousza31733ze3z87_3783;
																}
															}
														}
												}
											}
										}
								}
								BgL_arg1714z00_3774 =
									BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00
									(BgL_arg1730z00_3777, BNIL);
							}
							BgL_arg1710z00_3772 =
								BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00
								(BgL_arg1712z00_3773, BgL_arg1714z00_3774);
						}
						BgL_arg1709z00_3771 =
							MAKE_YOUNG_PAIR(BgL_symz00_3767, BgL_arg1710z00_3772);
					}
					return
						BGl_locationzd2shapezd2zztools_locationz00(BgL_arg1708z00_3770,
						BgL_arg1709z00_3771);
				}
			}
		}

	}



/* &node->sexp-kwote1356 */
	obj_t BGl_z62nodezd2ze3sexpzd2kwote1356z81zzast_dumpz00(obj_t BgL_envz00_3112,
		obj_t BgL_nodez00_3113)
	{
		{	/* Ast/dump.scm 83 */
			{	/* Ast/dump.scm 85 */
				obj_t BgL_arg1686z00_3791;
				obj_t BgL_arg1690z00_3792;

				BgL_arg1686z00_3791 =
					(((BgL_nodez00_bglt) COBJECT(
							((BgL_nodez00_bglt)
								((BgL_kwotez00_bglt) BgL_nodez00_3113))))->BgL_locz00);
				{	/* Ast/dump.scm 86 */
					obj_t BgL_valuez00_3793;

					BgL_valuez00_3793 =
						(((BgL_kwotez00_bglt) COBJECT(
								((BgL_kwotez00_bglt) BgL_nodez00_3113)))->BgL_valuez00);
					{	/* Ast/dump.scm 87 */
						bool_t BgL_test2591z00_5192;

						if (STRUCTP(BgL_valuez00_3793))
							{	/* Ast/dump.scm 87 */
								BgL_test2591z00_5192 =
									(STRUCT_KEY(BgL_valuez00_3793) == CNST_TABLE_REF(49L));
							}
						else
							{	/* Ast/dump.scm 87 */
								BgL_test2591z00_5192 = ((bool_t) 0);
							}
						if (BgL_test2591z00_5192)
							{	/* Ast/dump.scm 88 */
								obj_t BgL_arg1693z00_3794;

								{	/* Ast/dump.scm 88 */
									obj_t BgL_arg1695z00_3795;

									{	/* Ast/dump.scm 88 */
										obj_t BgL_arg1696z00_3796;
										obj_t BgL_arg1698z00_3797;

										BgL_arg1696z00_3796 =
											BGl_shapez00zztools_shapez00(STRUCT_REF(BgL_valuez00_3793,
												(int) (0L)));
										BgL_arg1698z00_3797 =
											STRUCT_REF(BgL_valuez00_3793, (int) (1L));
										{	/* Ast/dump.scm 88 */
											obj_t BgL_newz00_3798;

											BgL_newz00_3798 =
												create_struct(CNST_TABLE_REF(49L), (int) (2L));
											{	/* Ast/dump.scm 88 */
												int BgL_tmpz00_5206;

												BgL_tmpz00_5206 = (int) (1L);
												STRUCT_SET(BgL_newz00_3798, BgL_tmpz00_5206,
													BgL_arg1698z00_3797);
											}
											{	/* Ast/dump.scm 88 */
												int BgL_tmpz00_5209;

												BgL_tmpz00_5209 = (int) (0L);
												STRUCT_SET(BgL_newz00_3798, BgL_tmpz00_5209,
													BgL_arg1696z00_3796);
											}
											BgL_arg1695z00_3795 = BgL_newz00_3798;
									}}
									BgL_arg1693z00_3794 =
										MAKE_YOUNG_PAIR(BgL_arg1695z00_3795, BNIL);
								}
								BgL_arg1690z00_3792 =
									MAKE_YOUNG_PAIR(CNST_TABLE_REF(50L), BgL_arg1693z00_3794);
							}
						else
							{	/* Ast/dump.scm 90 */
								obj_t BgL_arg1707z00_3799;

								BgL_arg1707z00_3799 = MAKE_YOUNG_PAIR(BgL_valuez00_3793, BNIL);
								BgL_arg1690z00_3792 =
									MAKE_YOUNG_PAIR(CNST_TABLE_REF(50L), BgL_arg1707z00_3799);
							}
					}
				}
				return
					BGl_locationzd2shapezd2zztools_locationz00(BgL_arg1686z00_3791,
					BgL_arg1690z00_3792);
			}
		}

	}



/* &node->sexp-closure1354 */
	obj_t BGl_z62nodezd2ze3sexpzd2closure1354z81zzast_dumpz00(obj_t
		BgL_envz00_3114, obj_t BgL_nodez00_3115)
	{
		{	/* Ast/dump.scm 70 */
			{	/* Ast/dump.scm 73 */
				BgL_variablez00_bglt BgL_vz00_3801;

				BgL_vz00_3801 =
					(((BgL_varz00_bglt) COBJECT(
							((BgL_varz00_bglt)
								((BgL_closurez00_bglt) BgL_nodez00_3115))))->BgL_variablez00);
				{	/* Ast/dump.scm 73 */
					BgL_valuez00_bglt BgL_fz00_3802;

					BgL_fz00_3802 =
						(((BgL_variablez00_bglt) COBJECT(BgL_vz00_3801))->BgL_valuez00);
					{	/* Ast/dump.scm 74 */

						{	/* Ast/dump.scm 75 */
							obj_t BgL_arg1630z00_3803;
							obj_t BgL_arg1639z00_3804;

							BgL_arg1630z00_3803 =
								(((BgL_nodez00_bglt) COBJECT(
										((BgL_nodez00_bglt)
											((BgL_closurez00_bglt) BgL_nodez00_3115))))->BgL_locz00);
							{	/* Ast/dump.scm 76 */
								obj_t BgL_arg1649z00_3805;
								obj_t BgL_arg1658z00_3806;

								{	/* Ast/dump.scm 76 */
									BgL_typez00_bglt BgL_arg1661z00_3807;

									BgL_arg1661z00_3807 =
										(((BgL_nodez00_bglt) COBJECT(
												((BgL_nodez00_bglt)
													((BgL_closurez00_bglt) BgL_nodez00_3115))))->
										BgL_typez00);
									{	/* Ast/dump.scm 76 */
										obj_t BgL_idz00_3808;

										BgL_idz00_3808 = CNST_TABLE_REF(51L);
										if (CBOOL
											(BGl_za2typenodezd2shapezf3za2z21zzengine_paramz00))
											{	/* Ast/dump.scm 442 */
												obj_t BgL_arg1492z00_3809;

												{	/* Ast/dump.scm 442 */
													obj_t BgL_arg1494z00_3810;
													obj_t BgL_arg1496z00_3811;

													{	/* Ast/dump.scm 442 */
														obj_t BgL_arg1454z00_3812;

														BgL_arg1454z00_3812 =
															SYMBOL_TO_STRING(BgL_idz00_3808);
														BgL_arg1494z00_3810 =
															BGl_stringzd2copyzd2zz__r4_strings_6_7z00
															(BgL_arg1454z00_3812);
													}
													BgL_arg1496z00_3811 =
														BGl_shapez00zztools_shapez00(
														((obj_t) BgL_arg1661z00_3807));
													BgL_arg1492z00_3809 =
														string_append_3(BgL_arg1494z00_3810,
														BGl_string2414z00zzast_dumpz00,
														BgL_arg1496z00_3811);
												}
												BgL_arg1649z00_3805 =
													bstring_to_symbol(BgL_arg1492z00_3809);
											}
										else
											{	/* Ast/dump.scm 441 */
												BgL_arg1649z00_3805 = BgL_idz00_3808;
											}
									}
								}
								{	/* Ast/dump.scm 77 */
									obj_t BgL_arg1669z00_3813;
									obj_t BgL_arg1673z00_3814;

									if (CBOOL(BGl_za2alloczd2shapezf3za2z21zzengine_paramz00))
										{	/* Ast/dump.scm 77 */
											obj_t BgL_arg1675z00_3815;

											{	/* Ast/dump.scm 77 */
												obj_t BgL_arg1678z00_3816;

												BgL_arg1678z00_3816 =
													(((BgL_sfunz00_bglt) COBJECT(
															((BgL_sfunz00_bglt) BgL_fz00_3802)))->
													BgL_stackablez00);
												BgL_arg1675z00_3815 =
													MAKE_YOUNG_PAIR(BgL_arg1678z00_3816, BNIL);
											}
											BgL_arg1669z00_3813 =
												MAKE_YOUNG_PAIR(CNST_TABLE_REF(16L),
												BgL_arg1675z00_3815);
										}
									else
										{	/* Ast/dump.scm 77 */
											BgL_arg1669z00_3813 = BNIL;
										}
									{	/* Ast/dump.scm 78 */
										obj_t BgL_arg1681z00_3817;

										{	/* Ast/dump.scm 78 */
											BgL_variablez00_bglt BgL_arg1684z00_3818;

											BgL_arg1684z00_3818 =
												(((BgL_varz00_bglt) COBJECT(
														((BgL_varz00_bglt)
															((BgL_closurez00_bglt) BgL_nodez00_3115))))->
												BgL_variablez00);
											BgL_arg1681z00_3817 =
												BGl_shapez00zztools_shapez00(((obj_t)
													BgL_arg1684z00_3818));
										}
										BgL_arg1673z00_3814 =
											MAKE_YOUNG_PAIR(BgL_arg1681z00_3817, BNIL);
									}
									BgL_arg1658z00_3806 =
										BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00
										(BgL_arg1669z00_3813, BgL_arg1673z00_3814);
								}
								BgL_arg1639z00_3804 =
									MAKE_YOUNG_PAIR(BgL_arg1649z00_3805, BgL_arg1658z00_3806);
							}
							return
								BGl_locationzd2shapezd2zztools_locationz00(BgL_arg1630z00_3803,
								BgL_arg1639z00_3804);
						}
					}
				}
			}
		}

	}



/* &node->sexp-var1352 */
	obj_t BGl_z62nodezd2ze3sexpzd2var1352z81zzast_dumpz00(obj_t BgL_envz00_3116,
		obj_t BgL_nodez00_3117)
	{
		{	/* Ast/dump.scm 56 */
			{	/* Ast/dump.scm 59 */
				obj_t BgL_vshapez00_3820;

				{	/* Ast/dump.scm 59 */
					BgL_variablez00_bglt BgL_arg1629z00_3821;

					BgL_arg1629z00_3821 =
						(((BgL_varz00_bglt) COBJECT(
								((BgL_varz00_bglt) BgL_nodez00_3117)))->BgL_variablez00);
					BgL_vshapez00_3820 =
						BGl_shapez00zztools_shapez00(((obj_t) BgL_arg1629z00_3821));
				}
				{	/* Ast/dump.scm 59 */
					obj_t BgL_tvshapez00_3822;

					{	/* Ast/dump.scm 60 */
						bool_t BgL_test2595z00_5258;

						if (CBOOL(BGl_za2typezd2shapezf3za2z21zzengine_paramz00))
							{	/* Ast/dump.scm 61 */
								bool_t BgL_test2597z00_5261;

								{	/* Ast/dump.scm 61 */
									BgL_valuez00_bglt BgL_arg1621z00_3823;

									BgL_arg1621z00_3823 =
										(((BgL_variablez00_bglt) COBJECT(
												(((BgL_varz00_bglt) COBJECT(
															((BgL_varz00_bglt) BgL_nodez00_3117)))->
													BgL_variablez00)))->BgL_valuez00);
									{	/* Ast/dump.scm 61 */
										obj_t BgL_classz00_3824;

										BgL_classz00_3824 = BGl_sfunz00zzast_varz00;
										{	/* Ast/dump.scm 61 */
											BgL_objectz00_bglt BgL_arg1801z00_3825;

											{	/* Ast/dump.scm 61 */
												obj_t BgL_tmpz00_5265;

												BgL_tmpz00_5265 =
													((obj_t) ((BgL_objectz00_bglt) BgL_arg1621z00_3823));
												BgL_arg1801z00_3825 =
													(BgL_objectz00_bglt) (BgL_tmpz00_5265);
											}
											if (BGL_CONDEXPAND_ISA_ARCH64())
												{	/* Ast/dump.scm 61 */
													long BgL_idxz00_3826;

													BgL_idxz00_3826 =
														BGL_OBJECT_INHERITANCE_NUM(BgL_arg1801z00_3825);
													BgL_test2597z00_5261 =
														(VECTOR_REF(BGl_za2inheritancesza2z00zz__objectz00,
															(BgL_idxz00_3826 + 3L)) == BgL_classz00_3824);
												}
											else
												{	/* Ast/dump.scm 61 */
													bool_t BgL_res2406z00_3829;

													{	/* Ast/dump.scm 61 */
														obj_t BgL_oclassz00_3830;

														{	/* Ast/dump.scm 61 */
															long BgL_arg1808z00_3831;

															{	/* Ast/dump.scm 61 */
																long BgL_arg1809z00_3832;

																BgL_arg1809z00_3832 =
																	BGL_OBJECT_CLASS_NUM(BgL_arg1801z00_3825);
																BgL_arg1808z00_3831 =
																	(BgL_arg1809z00_3832 - OBJECT_TYPE);
															}
															BgL_oclassz00_3830 =
																VECTOR_REF(BGl_za2classesza2z00zz__objectz00,
																BgL_arg1808z00_3831);
														}
														{	/* Ast/dump.scm 61 */
															bool_t BgL__ortest_1115z00_3833;

															BgL__ortest_1115z00_3833 =
																(BgL_classz00_3824 == BgL_oclassz00_3830);
															if (BgL__ortest_1115z00_3833)
																{	/* Ast/dump.scm 61 */
																	BgL_res2406z00_3829 =
																		BgL__ortest_1115z00_3833;
																}
															else
																{	/* Ast/dump.scm 61 */
																	long BgL_odepthz00_3834;

																	BgL_odepthz00_3834 =
																		BGL_CLASS_DEPTH(BgL_oclassz00_3830);
																	if ((3L < BgL_odepthz00_3834))
																		{	/* Ast/dump.scm 61 */
																			obj_t BgL_arg1797z00_3835;

																			BgL_arg1797z00_3835 =
																				BGL_CLASS_ANCESTORS_REF
																				(BgL_oclassz00_3830, 3L);
																			BgL_res2406z00_3829 =
																				(BgL_arg1797z00_3835 ==
																				BgL_classz00_3824);
																		}
																	else
																		{	/* Ast/dump.scm 61 */
																			BgL_res2406z00_3829 = ((bool_t) 0);
																		}
																}
														}
													}
													BgL_test2597z00_5261 = BgL_res2406z00_3829;
												}
										}
									}
								}
								if (BgL_test2597z00_5261)
									{	/* Ast/dump.scm 61 */
										BgL_test2595z00_5258 = ((bool_t) 0);
									}
								else
									{	/* Ast/dump.scm 61 */
										if (
											(((obj_t)
													(((BgL_nodez00_bglt) COBJECT(
																((BgL_nodez00_bglt)
																	((BgL_varz00_bglt) BgL_nodez00_3117))))->
														BgL_typez00)) ==
												((obj_t) (((BgL_variablez00_bglt)
															COBJECT((((BgL_varz00_bglt)
																		COBJECT(((BgL_varz00_bglt)
																				BgL_nodez00_3117)))->
																	BgL_variablez00)))->BgL_typez00))))
											{	/* Ast/dump.scm 62 */
												BgL_test2595z00_5258 = ((bool_t) 0);
											}
										else
											{	/* Ast/dump.scm 62 */
												BgL_test2595z00_5258 = ((bool_t) 1);
											}
									}
							}
						else
							{	/* Ast/dump.scm 60 */
								BgL_test2595z00_5258 = ((bool_t) 0);
							}
						if (BgL_test2595z00_5258)
							{	/* Ast/dump.scm 63 */
								obj_t BgL_arg1606z00_3836;

								{	/* Ast/dump.scm 63 */
									obj_t BgL_arg1608z00_3837;

									{	/* Ast/dump.scm 63 */
										BgL_typez00_bglt BgL_arg1614z00_3838;

										BgL_arg1614z00_3838 =
											(((BgL_nodez00_bglt) COBJECT(
													((BgL_nodez00_bglt)
														((BgL_varz00_bglt) BgL_nodez00_3117))))->
											BgL_typez00);
										BgL_arg1608z00_3837 =
											BGl_shapez00zztools_shapez00(((obj_t)
												BgL_arg1614z00_3838));
									}
									{	/* Ast/dump.scm 63 */
										obj_t BgL_list1610z00_3839;

										{	/* Ast/dump.scm 63 */
											obj_t BgL_arg1613z00_3840;

											BgL_arg1613z00_3840 =
												MAKE_YOUNG_PAIR(BgL_arg1608z00_3837, BNIL);
											BgL_list1610z00_3839 =
												MAKE_YOUNG_PAIR(BgL_vshapez00_3820,
												BgL_arg1613z00_3840);
										}
										BgL_arg1606z00_3836 =
											BGl_formatz00zz__r4_output_6_10_3z00
											(BGl_string2459z00zzast_dumpz00, BgL_list1610z00_3839);
									}
								}
								BgL_tvshapez00_3822 = bstring_to_symbol(BgL_arg1606z00_3836);
							}
						else
							{	/* Ast/dump.scm 60 */
								BgL_tvshapez00_3822 = BgL_vshapez00_3820;
							}
					}
					{	/* Ast/dump.scm 60 */

						{	/* Ast/dump.scm 65 */
							obj_t BgL_arg1564z00_3841;

							BgL_arg1564z00_3841 =
								(((BgL_nodez00_bglt) COBJECT(
										((BgL_nodez00_bglt)
											((BgL_varz00_bglt) BgL_nodez00_3117))))->BgL_locz00);
							return
								BGl_locationzd2shapezd2zztools_locationz00(BgL_arg1564z00_3841,
								BgL_tvshapez00_3822);
						}
					}
				}
			}
		}

	}



/* &node->sexp-atom1350 */
	obj_t BGl_z62nodezd2ze3sexpzd2atom1350z81zzast_dumpz00(obj_t BgL_envz00_3118,
		obj_t BgL_nodez00_3119)
	{
		{	/* Ast/dump.scm 42 */
			if (NULLP(
					(((BgL_atomz00_bglt) COBJECT(
								((BgL_atomz00_bglt) BgL_nodez00_3119)))->BgL_valuez00)))
				{	/* Ast/dump.scm 45 */
					obj_t BgL_arg1528z00_3843;

					BgL_arg1528z00_3843 =
						(((BgL_nodez00_bglt) COBJECT(
								((BgL_nodez00_bglt)
									((BgL_atomz00_bglt) BgL_nodez00_3119))))->BgL_locz00);
					return
						BGl_locationzd2shapezd2zztools_locationz00(BgL_arg1528z00_3843,
						CNST_TABLE_REF(52L));
				}
			else
				{	/* Ast/dump.scm 46 */
					obj_t BgL_arg1532z00_3844;
					obj_t BgL_arg1534z00_3845;

					BgL_arg1532z00_3844 =
						(((BgL_nodez00_bglt) COBJECT(
								((BgL_nodez00_bglt)
									((BgL_atomz00_bglt) BgL_nodez00_3119))))->BgL_locz00);
					if (CBOOL(BGl_za2typezd2shapezf3za2z21zzengine_paramz00))
						{	/* Ast/dump.scm 48 */
							obj_t BgL_arg1541z00_3846;

							{	/* Ast/dump.scm 48 */
								obj_t BgL_arg1545z00_3847;
								obj_t BgL_arg1546z00_3848;

								BgL_arg1545z00_3847 =
									(((BgL_atomz00_bglt) COBJECT(
											((BgL_atomz00_bglt) BgL_nodez00_3119)))->BgL_valuez00);
								{	/* Ast/dump.scm 49 */
									obj_t BgL_arg1547z00_3849;
									obj_t BgL_arg1550z00_3850;

									{	/* Ast/dump.scm 49 */
										BgL_typez00_bglt BgL_arg1554z00_3851;

										BgL_arg1554z00_3851 =
											BGl_getzd2typezd2zztype_typeofz00(
											((BgL_nodez00_bglt)
												((BgL_atomz00_bglt) BgL_nodez00_3119)), ((bool_t) 0));
										BgL_arg1547z00_3849 =
											BGl_shapez00zztools_shapez00(
											((obj_t) BgL_arg1554z00_3851));
									}
									{	/* Ast/dump.scm 50 */
										obj_t BgL_arg1555z00_3852;

										{	/* Ast/dump.scm 50 */
											BgL_typez00_bglt BgL_arg1560z00_3853;

											BgL_arg1560z00_3853 =
												(((BgL_nodez00_bglt) COBJECT(
														((BgL_nodez00_bglt)
															((BgL_atomz00_bglt) BgL_nodez00_3119))))->
												BgL_typez00);
											BgL_arg1555z00_3852 =
												BGl_shapez00zztools_shapez00(((obj_t)
													BgL_arg1560z00_3853));
										}
										BgL_arg1550z00_3850 =
											MAKE_YOUNG_PAIR(BgL_arg1555z00_3852, BNIL);
									}
									BgL_arg1546z00_3848 =
										MAKE_YOUNG_PAIR(BgL_arg1547z00_3849, BgL_arg1550z00_3850);
								}
								BgL_arg1541z00_3846 =
									MAKE_YOUNG_PAIR(BgL_arg1545z00_3847, BgL_arg1546z00_3848);
							}
							BgL_arg1534z00_3845 =
								BGl_listzd2ze3vectorz31zz__r4_vectors_6_8z00
								(BgL_arg1541z00_3846);
						}
					else
						{	/* Ast/dump.scm 47 */
							BgL_arg1534z00_3845 =
								(((BgL_atomz00_bglt) COBJECT(
										((BgL_atomz00_bglt) BgL_nodez00_3119)))->BgL_valuez00);
						}
					return
						BGl_locationzd2shapezd2zztools_locationz00(BgL_arg1532z00_3844,
						BgL_arg1534z00_3845);
				}
		}

	}



/* imported-modules-init */
	obj_t BGl_importedzd2moduleszd2initz00zzast_dumpz00(void)
	{
		{	/* Ast/dump.scm 14 */
			BGl_modulezd2initializa7ationz75zztype_typez00(515343395L,
				BSTRING_TO_STRING(BGl_string2460z00zzast_dumpz00));
			BGl_modulezd2initializa7ationz75zzast_varz00(90839984L,
				BSTRING_TO_STRING(BGl_string2460z00zzast_dumpz00));
			BGl_modulezd2initializa7ationz75zzast_nodez00(469732712L,
				BSTRING_TO_STRING(BGl_string2460z00zzast_dumpz00));
			BGl_modulezd2initializa7ationz75zztools_shapez00(365925558L,
				BSTRING_TO_STRING(BGl_string2460z00zzast_dumpz00));
			BGl_modulezd2initializa7ationz75zztools_argsz00(47102372L,
				BSTRING_TO_STRING(BGl_string2460z00zzast_dumpz00));
			BGl_modulezd2initializa7ationz75zztools_miscz00(9470071L,
				BSTRING_TO_STRING(BGl_string2460z00zzast_dumpz00));
			BGl_modulezd2initializa7ationz75zztools_locationz00(462333240L,
				BSTRING_TO_STRING(BGl_string2460z00zzast_dumpz00));
			BGl_modulezd2initializa7ationz75zzengine_paramz00(517137079L,
				BSTRING_TO_STRING(BGl_string2460z00zzast_dumpz00));
			BGl_modulezd2initializa7ationz75zzast_identz00(174885617L,
				BSTRING_TO_STRING(BGl_string2460z00zzast_dumpz00));
			BGl_modulezd2initializa7ationz75zztype_typeofz00(398780265L,
				BSTRING_TO_STRING(BGl_string2460z00zzast_dumpz00));
			BGl_modulezd2initializa7ationz75zztype_cachez00(346491734L,
				BSTRING_TO_STRING(BGl_string2460z00zzast_dumpz00));
			return
				BGl_modulezd2initializa7ationz75zzeffect_effectz00(460136018L,
				BSTRING_TO_STRING(BGl_string2460z00zzast_dumpz00));
		}

	}

#ifdef __cplusplus
}
#endif
