#include "opendylan/run-time.h"

/* Generated by Open Dylan 2014.1 for x86_64-linux */

/* Typedefs for referenced classes */

typedef struct {
  dylan_value wrapper;
  dylan_value instanceQ_iep_;
  dylan_value debug_name_;
  dylan_value class_implementation_class_;
  dylan_value class_subtype_bit_;
  dylan_value class_module_;
} _KLclassGVKd;

#define  define__KLmm_wrapperGVKi(nrepeated) \
  typedef struct { \
    dylan_value wrapper; \
    dylan_value mm_wrapper_implementation_class_; \
    dylan_value mm_wrapper_subtype_mask_; \
    DWORD mm_wrapper_fixed_part_; \
    DWORD mm_wrapper_variable_part_; \
    dylan_value mm_wrapper_number_patterns_; \
    DWORD mm_wrapper_pattern_element_[nrepeated+1]; \
  } _KLmm_wrapperGVKi_##nrepeated;
define__KLmm_wrapperGVKi(1);
define__KLmm_wrapperGVKi(0);

typedef struct {
  dylan_value wrapper;
} _KLobjectGVKd;

typedef struct {
  dylan_value wrapper;
} _KLunboundGVKe;

typedef struct {
  dylan_value wrapper;
} _KLbooleanGVKd;

#define  define__KLsimple_object_vectorGVKd(nrepeated) \
  typedef struct { \
    dylan_value wrapper; \
    dylan_value size_; \
    dylan_value vector_element_[nrepeated+1]; \
  } _KLsimple_object_vectorGVKd_##nrepeated;
define__KLsimple_object_vectorGVKd(3);
define__KLsimple_object_vectorGVKd(4);
define__KLsimple_object_vectorGVKd(6);
define__KLsimple_object_vectorGVKd(1);
define__KLsimple_object_vectorGVKd(256);
define__KLsimple_object_vectorGVKd(2);
define__KLsimple_object_vectorGVKd(0);

typedef struct {
  dylan_value wrapper;
  dylan_value stretchy_representation_;
} _KLstretchy_object_vectorGVKe;

typedef struct {
  dylan_value wrapper;
  dylan_value xep_;
  dylan_value function_signature_;
  dylan_value Pgf_cache_;
  dylan_value debug_name_;
  dylan_value generic_function_methods_;
  dylan_value discriminator_;
  dylan_value incremental_gf_module_;
  dylan_value incremental_gf_domain_info_;
  dylan_value incremental_gf_method_libraries_;
  dylan_value incremental_gf_properties_;
} _KLincremental_generic_functionGVKe;

typedef struct {
  dylan_value wrapper;
  dylan_value instanceQ_iep_;
  dylan_value debug_name_;
  dylan_value class_implementation_class_;
  dylan_value class_subtype_bit_;
  dylan_value class_module_;
} _KLfunction_classGVKi;

typedef struct {
  dylan_value wrapper;
  dylan_value head_;
  dylan_value tail_;
} _KLempty_listGVKd;

typedef struct {
  dylan_value wrapper;
  dylan_value properties_;
  dylan_value engine_node_callback_;
  dylan_value engine_node_entry_point_;
} _KLabsent_engine_nodeGVKg;

typedef struct {
  dylan_value wrapper;
  dylan_value namespace_name_;
  dylan_value home_library_;
} _KLmoduleGVKe;

#define  define__KLbyte_stringGVKd(nrepeated) \
  typedef struct { \
    dylan_value wrapper; \
    dylan_value size_; \
    char string_element_[nrepeated+1]; \
  } _KLbyte_stringGVKd_##nrepeated;
define__KLbyte_stringGVKd(15);
define__KLbyte_stringGVKd(14);
define__KLbyte_stringGVKd(19);
define__KLbyte_stringGVKd(25);
define__KLbyte_stringGVKd(23);
define__KLbyte_stringGVKd(17);
define__KLbyte_stringGVKd(8);
define__KLbyte_stringGVKd(24);

typedef struct {
  dylan_value wrapper;
  dylan_value signature_properties_;
  dylan_value signature_required_;
  dylan_value signature_keys_;
  dylan_value signature_key_types_;
} _KLkeyword_signatureGVKe;

typedef struct {
  dylan_value wrapper;
  dylan_value xep_;
} _KLfunctionGVKd;

typedef struct {
  dylan_value wrapper;
} _KLserverGVenvironment_protocols;

typedef struct {
  dylan_value wrapper;
  dylan_value head_;
  dylan_value tail_;
} _KLpairGVKd;

typedef struct {
  dylan_value wrapper;
  dylan_value Pprimitive_name_;
  dylan_value server_project_;
  dylan_value application_object_table_;
  dylan_value application_client_;
  dylan_value application_machine_;
  dylan_value application_filename_;
  dylan_value application_arguments_;
  dylan_value application_state_;
  dylan_value application_temporary_stopQ_;
} _KLapplicationGVenvironment_protocols;

typedef struct {
  dylan_value wrapper;
  dylan_value xep_;
  dylan_value function_signature_;
  dylan_value mep_;
  dylan_value iep_;
  dylan_value keyword_specifiers_;
} _KLkeyword_methodGVKe;

typedef struct {
  dylan_value wrapper;
  dylan_value Pprimitive_name_;
  dylan_value project_proxy_;
  dylan_value project_application_;
  dylan_value project_compiler_database_;
  dylan_value project_next_numeric_id_;
  dylan_value project_object_table_;
  dylan_value project_query_database_;
  dylan_value project_server_path_;
  dylan_value environment_object_breakpoints_;
  dylan_value source_location_breakpoints_;
  dylan_value project_properties_;
  dylan_value project_profile_state_;
} _KLproject_objectGVenvironment_protocols;

typedef struct {
  dylan_value wrapper;
  dylan_value symbol_name_;
} _KLsymbolGVKd;

#define  define__KLsimple_closure_methodGVKi(nrepeated) \
  typedef struct { \
    dylan_value wrapper; \
    dylan_value xep_; \
    dylan_value function_signature_; \
    dylan_value mep_; \
    dylan_value environment_size_; \
    dylan_value environment_element_[nrepeated+1]; \
  } _KLsimple_closure_methodGVKi_##nrepeated;
define__KLsimple_closure_methodGVKi(0);

typedef struct {
  dylan_value wrapper;
  dylan_value signature_properties_;
  dylan_value signature_required_;
} _KLsignatureGVKe;

typedef struct {
  dylan_value wrapper;
  dylan_value class_properties_;
  dylan_value iclass_class_;
  dylan_value class_mm_wrapper_;
  dylan_value repeated_slot_descriptor_;
  dylan_value instance_slot_descriptors_;
  dylan_value iclass_dispatch_key_;
  dylan_value class_constructor_;
  dylan_value direct_superclasses_;
  dylan_value class_rcpl_vector_;
  dylan_value class_rcpl_position_;
  dylan_value class_rcpl_other_positions_;
  dylan_value class_known_joint_;
  dylan_value iclass_dependent_generics_;
  dylan_value iclass_subclass_dependent_generics_;
  dylan_value direct_subclasses_;
  dylan_value direct_methods_;
  dylan_value direct_slot_descriptors_;
  dylan_value slot_descriptors_;
  dylan_value direct_inherited_slot_descriptors_;
  dylan_value direct_initialization_argument_descriptors_;
  dylan_value class_slot_descriptors_;
  dylan_value defaulted_initialization_arguments_slot_;
  dylan_value class_slot_storage_;
} _KLimplementation_classGVKe;

typedef struct {
  dylan_value wrapper;
  dylan_value Pprimitive_name_;
} _KLenvironment_objectGVenvironment_protocols;

typedef struct {
  dylan_value wrapper;
  dylan_value Pprimitive_name_;
  dylan_value application_object_proxy_;
} _KLapplication_objectGVenvironment_protocols;

typedef struct {
  dylan_value wrapper;
  dylan_value instanceQ_iep_;
  dylan_value union_type1_;
  dylan_value union_type2_;
} _KLunionGVKe;

typedef struct {
  dylan_value wrapper;
} _KLstringGVKd;

typedef struct {
  dylan_value wrapper;
  dylan_value instanceQ_iep_;
  dylan_value singleton_object_;
} _KLsingletonGVKd;

typedef struct {
  dylan_value wrapper;
  dylan_value signature_properties_;
  dylan_value signature_required_;
  dylan_value signature_keys_;
  dylan_value signature_key_types_;
  dylan_value signature_values_;
} _KLkeyword_signatureAvaluesGVKi;

typedef struct {
  dylan_value wrapper;
  dylan_value slot_descriptor_properties_;
  dylan_value init_data_slot_;
  dylan_value slot_owner_;
  dylan_value init_keyword_;
  dylan_value slot_getter_;
  dylan_value slot_setter_;
  dylan_value slot_type_;
} _KLinstance_slot_descriptorGVKe;

typedef struct {
  dylan_value wrapper;
  dylan_value signature_properties_;
  dylan_value signature_required_;
  dylan_value signature_values_;
} _KLsignatureAvaluesGVKi;

typedef struct {
  dylan_value wrapper;
  dylan_value xep_;
  dylan_value function_signature_;
  dylan_value mep_;
} _KLsimple_methodGVKe;

typedef struct {
  dylan_value wrapper;
  dylan_value Pprimitive_name_;
  dylan_value application_object_proxy_;
} _KLaddress_objectGVenvironment_protocols;

typedef struct {
  dylan_value wrapper;
  dylan_value Pprimitive_name_;
  dylan_value application_object_proxy_;
  dylan_value thread_runtime_state_;
  dylan_value thread_suspendedQ_;
} _KLthread_objectGVenvironment_protocols;


/* Typedefs for defined classes */

typedef struct {
  dylan_value wrapper;
  dylan_value Pprimitive_name_;
  dylan_value application_object_proxy_;
} _KLregister_objectGVenvironment_protocols;


/* Referenced object declarations */

extern _KLclassGVKd KLclassGVKd;
extern _KLmm_wrapperGVKi_0 KLclassGVKdW;
extern _KLclassGVKd KLmm_wrapperGVKi;
extern _KLmm_wrapperGVKi_1 KLmm_wrapperGVKiW;
extern _KLclassGVKd KLobjectGVKd;
extern _KLmm_wrapperGVKi_0 KLobjectGVKdW;
extern _KLunboundGVKe KPunboundVKi;
extern _KLclassGVKd KLunboundGVKe;
extern _KLmm_wrapperGVKi_0 KLunboundGVKeW;
extern _KLbooleanGVKd KPtrueVKi;
extern _KLclassGVKd KLbooleanGVKd;
extern _KLmm_wrapperGVKi_0 KLbooleanGVKdW;
extern _KLbooleanGVKd KPfalseVKi;
extern _KLclassGVKd KLsimple_object_vectorGVKd;
extern _KLmm_wrapperGVKi_0 KLsimple_object_vectorGVKdW;
dylan_value KLstretchy_object_vectorGZ32ZconstructorVKiMM0I (dylan_value, dylan_value);
extern _KLclassGVKd KLstretchy_object_vectorGVKe;
extern _KLmm_wrapperGVKi_0 KLstretchy_object_vectorGVKeW;
extern _KLsimple_object_vectorGVKd_0 KPempty_vectorVKi;
extern _KLfunction_classGVKi KLincremental_generic_functionGVKe;
extern _KLclassGVKd KLfunction_classGVKi;
extern _KLmm_wrapperGVKi_0 KLfunction_classGVKiW;
extern _KLmm_wrapperGVKi_0 KLincremental_generic_functionGVKeW;
extern _KLempty_listGVKd KPempty_listVKi;
extern _KLclassGVKd KLempty_listGVKd;
extern _KLmm_wrapperGVKi_0 KLempty_listGVKdW;
extern _KLabsent_engine_nodeGVKg RSINGULAR_Labsent_engine_nodeG;
extern _KLclassGVKd KLabsent_engine_nodeGVKg;
extern _KLmm_wrapperGVKi_0 KLabsent_engine_nodeGVKgW;
extern _KLmoduleGVKe Kenvironment_protocols_moduleYdylan_userVenvironment_protocols;
extern _KLclassGVKd KLmoduleGVKe;
extern _KLmm_wrapperGVKi_0 KLmoduleGVKeW;
extern _KLclassGVKd KLbyte_stringGVKd;
extern _KLmm_wrapperGVKi_0 KLbyte_stringGVKdW;
extern _KLclassGVKd KLkeyword_signatureGVKe;
extern _KLmm_wrapperGVKi_0 KLkeyword_signatureGVKeW;
extern _KLsimple_object_vectorGVKd_256 KDsignature_LobjectG_typesVKi;
extern _KLclassGVKd KLfunctionGVKd;
extern _KLmm_wrapperGVKi_0 KLfunctionGVKdW;
extern _KLclassGVKd KLserverGVenvironment_protocols;
extern _KLmm_wrapperGVKi_0 KLserverGVenvironment_protocolsW;
extern _KLclassGVKd KLpairGVKd;
extern _KLmm_wrapperGVKi_0 KLpairGVKdW;
extern _KLclassGVKd KLapplicationGVenvironment_protocols;
extern _KLmm_wrapperGVKi_0 KLapplicationGVenvironment_protocolsW;
extern _KLfunction_classGVKi KLkeyword_methodGVKe;
extern _KLmm_wrapperGVKi_0 KLkeyword_methodGVKeW;
extern _KLclassGVKd KLproject_objectGVenvironment_protocols;
extern _KLmm_wrapperGVKi_0 KLproject_objectGVenvironment_protocolsW;
extern _KLclassGVKd KLsymbolGVKd;
extern _KLmm_wrapperGVKi_0 KLsymbolGVKdW;
dylan_value KaddXVKdMM3I (dylan_value, dylan_value);
extern _KLfunction_classGVKi KLsimple_closure_methodGVKi;
extern _KLmm_wrapperGVKi_0 KLsimple_closure_methodGVKiW;
extern _KLclassGVKd KLsignatureGVKe;
extern _KLmm_wrapperGVKi_0 KLsignatureGVKeW;
extern _KLclassGVKd KLimplementation_classGVKe;
extern _KLmm_wrapperGVKi_0 KLimplementation_classGVKeW;
extern _KLclassGVKd KLenvironment_objectGVenvironment_protocols;
extern _KLmm_wrapperGVKi_0 KLenvironment_objectGVenvironment_protocolsW;
extern _KLclassGVKd KLapplication_objectGVenvironment_protocols;
extern _KLmm_wrapperGVKi_0 KLapplication_objectGVenvironment_protocolsW;
extern _KLkeyword_methodGVKe KinitializeVKdMenvironment_protocolsM0;
extern _KLkeyword_methodGVKe KinitializeVKdMM1;
extern _KLclassGVKd KLunionGVKe;
extern _KLmm_wrapperGVKi_0 KLunionGVKeW;
dylan_value Kunion_instanceQVKiI (dylan_value, dylan_value);
extern _KLclassGVKd KLstringGVKd;
extern _KLmm_wrapperGVKi_0 KLstringGVKdW;
extern _KLclassGVKd KLsingletonGVKd;
extern _KLmm_wrapperGVKi_0 KLsingletonGVKdW;
dylan_value Ksingleton_pointer_idQ_instanceQVKiI (dylan_value, dylan_value);
extern _KLsymbolGVKd KJname_;
extern _KLclassGVKd KLkeyword_signatureAvaluesGVKi;
extern _KLmm_wrapperGVKi_0 KLkeyword_signatureAvaluesGVKiW;
extern _KLsimple_object_vectorGVKd_2 KDsignature_LclassG_typesVKi;
extern _KLinstance_slot_descriptorGVKe KPprimitive_nameVenvironment_protocolsHLenvironment_objectG;
extern _KLclassGVKd KLinstance_slot_descriptorGVKe;
extern _KLmm_wrapperGVKi_0 KLinstance_slot_descriptorGVKeW;
extern _KLinstance_slot_descriptorGVKe Kapplication_object_proxyVenvironment_protocolsHLapplication_objectG;
dylan_value Kclass_instanceQ_initialVKiI (dylan_value, dylan_value);
extern _KLsimple_object_vectorGVKd_2 KDsignature_LsequenceG_typesVKi;
extern _KLclassGVKd KLsignatureAvaluesGVKi;
extern _KLmm_wrapperGVKi_0 KLsignatureAvaluesGVKiW;
extern _KLfunction_classGVKi KLsimple_methodGVKe;
extern _KLmm_wrapperGVKi_0 KLsimple_methodGVKeW;
extern _KLclassGVKd KLaddress_objectGVenvironment_protocols;
extern _KLmm_wrapperGVKi_0 KLaddress_objectGVenvironment_protocolsW;
extern _KLclassGVKd KLthread_objectGVenvironment_protocols;
extern _KLmm_wrapperGVKi_0 KLthread_objectGVenvironment_protocolsW;
dylan_value Kchoose_serverVenvironment_protocolsMM0I (dylan_value, dylan_value, dylan_value, dylan_value, dylan_value);

/* Defined object declarations */

extern _KLkeyword_methodGVKe Kapplication_registersVenvironment_protocols;
dylan_value Kapplication_registersVenvironment_protocolsI (dylan_value, dylan_value, dylan_value);
static _KLsimple_closure_methodGVKi_0 Kanonymous_of_application_registersF17;
static dylan_value Kanonymous_of_application_registersF17I (dylan_value);
static _KLsymbolGVKd KJcategory_;
extern _KLincremental_generic_functionGVKe Kdo_application_registersVenvironment_protocols;
extern _KLkeyword_methodGVKe Kdo_application_registersVenvironment_protocolsMM0;
dylan_value Kdo_application_registersVenvironment_protocolsMM0I (dylan_value, dylan_value, dylan_value, dylan_value);
static _KLpairGVKd K8;
static _KLkeyword_signatureGVKe K9;
static _KLbyte_stringGVKd_24 K10;
static _KLsimple_object_vectorGVKd_2 K11;
static _KLsimple_object_vectorGVKd_1 K12;
static _KLkeyword_signatureGVKe K13;
static _KLsimple_object_vectorGVKd_2 K14;
static _KLsimple_object_vectorGVKd_2 K15;
static _KLbyte_stringGVKd_8 K16;
static _KLsignatureGVKe K18;
static _KLsimple_object_vectorGVKd_1 K19;
extern _KLclassGVKd KLregister_objectGVenvironment_protocols;
extern _KLmm_wrapperGVKi_0 KLregister_objectGVenvironment_protocolsW;
static _KLimplementation_classGVKe K22;
static _KLsimple_object_vectorGVKd_2 K23;
extern _KLkeyword_methodGVKe KLregister_objectGZ32ZconstructorVenvironment_protocolsMM0;
dylan_value KLregister_objectGZ32ZconstructorVenvironment_protocolsMM0I (dylan_value, dylan_value, dylan_value, dylan_value);
static _KLsimple_object_vectorGVKd_1 K26;
static _KLsimple_object_vectorGVKd_6 K27;
static _KLunionGVKe K28;
static _KLpairGVKd K29;
static _KLsingletonGVKd K30;
static _KLkeyword_signatureAvaluesGVKi K31;
static _KLsimple_object_vectorGVKd_4 K32;
static _KLsymbolGVKd KJapplication_object_proxy_;
static _KLbyte_stringGVKd_24 K34;
static _KLsimple_object_vectorGVKd_2 K35;
static _KLbyte_stringGVKd_17 K36;
static _KLkeyword_signatureAvaluesGVKi K37;
static _KLsimple_object_vectorGVKd_1 K38;
extern _KLincremental_generic_functionGVKe Klookup_register_by_nameVenvironment_protocols;
extern _KLsimple_methodGVKe Klookup_register_by_nameVenvironment_protocolsMM0;
dylan_value Klookup_register_by_nameVenvironment_protocolsMM0I (dylan_value, dylan_value);
static _KLpairGVKd K42;
static _KLsignatureAvaluesGVKi K43;
static _KLbyte_stringGVKd_23 K44;
static _KLsimple_object_vectorGVKd_2 K45;
static _KLsimple_object_vectorGVKd_1 K46;
static _KLunionGVKe K47;
static _KLsignatureAvaluesGVKi K48;
static _KLsimple_object_vectorGVKd_2 K49;
extern _KLincremental_generic_functionGVKe Kregister_contents_addressVenvironment_protocols;
extern _KLkeyword_methodGVKe Kregister_contents_addressVenvironment_protocolsMM0;
dylan_value Kregister_contents_addressVenvironment_protocolsMM0I (dylan_value, dylan_value, dylan_value, dylan_value, dylan_value);
static _KLpairGVKd K53;
static _KLkeyword_signatureAvaluesGVKi K54;
static _KLbyte_stringGVKd_25 K55;
static _KLsimple_object_vectorGVKd_3 K56;
static _KLsimple_object_vectorGVKd_1 K57;
static _KLsimple_object_vectorGVKd_1 K58;
static _KLunionGVKe K59;
static _KLsymbolGVKd KJstack_frame_context_;
static _KLbyte_stringGVKd_19 K61;
static _KLkeyword_signatureAvaluesGVKi K62;
static _KLsimple_object_vectorGVKd_2 K63;
static _KLsimple_object_vectorGVKd_3 K64;
extern _KLincremental_generic_functionGVKe Kregister_contentsVenvironment_protocols;
extern _KLkeyword_methodGVKe Kregister_contentsVenvironment_protocolsMM0;
dylan_value Kregister_contentsVenvironment_protocolsMM0I (dylan_value, dylan_value, dylan_value, dylan_value, dylan_value);
static _KLpairGVKd K68;
static _KLkeyword_signatureAvaluesGVKi K69;
static _KLbyte_stringGVKd_17 K70;
static _KLsimple_object_vectorGVKd_1 K71;
static _KLunionGVKe K72;
static _KLkeyword_signatureAvaluesGVKi K73;
extern _KLunionGVKe KLregister_categoryGVenvironment_protocols;
static _KLunionGVKe K75;
static _KLsingletonGVKd K76;
static _KLsymbolGVKd KJfloating_point_;
static _KLbyte_stringGVKd_14 K78;
static _KLsingletonGVKd K79;
static _KLsingletonGVKd K80;
static _KLsymbolGVKd KJspecial_purpose_;
static _KLbyte_stringGVKd_15 K82;
static _KLsymbolGVKd KJgeneral_purpose_;
static _KLbyte_stringGVKd_15 K84;

/* Indirection variables */

static dylan_value IKJcategory_ = &KJcategory_;
static dylan_value IKJapplication_object_proxy_ = &KJapplication_object_proxy_;
static dylan_value IKJstack_frame_context_ = &KJstack_frame_context_;
static dylan_value IKJfloating_point_ = &KJfloating_point_;
static dylan_value IKJspecial_purpose_ = &KJspecial_purpose_;
static dylan_value IKJgeneral_purpose_ = &KJgeneral_purpose_;

/* Variables */

dylan_value Lregister_categoryGVenvironment_protocols = &KLregister_categoryGVenvironment_protocols;
dylan_value Lregister_objectGVenvironment_protocols = &KLregister_objectGVenvironment_protocols;
dylan_value do_application_registersVenvironment_protocols = &Kdo_application_registersVenvironment_protocols;
dylan_value register_contentsVenvironment_protocols = &Kregister_contentsVenvironment_protocols;
dylan_value register_contents_addressVenvironment_protocols = &Kregister_contents_addressVenvironment_protocols;
dylan_value lookup_register_by_nameVenvironment_protocols = &Klookup_register_by_nameVenvironment_protocols;
dylan_value application_registersVenvironment_protocols = &Kapplication_registersVenvironment_protocols;

/* Objects */

_KLkeyword_methodGVKe Kapplication_registersVenvironment_protocols = {
  &KLkeyword_methodGVKeW /* wrapper */,
  &rest_key_xep_3,
  &K37,
  &key_mep_3,
  &Kapplication_registersVenvironment_protocolsI,
  &K14
};

static _KLsimple_closure_methodGVKi_0 Kanonymous_of_application_registersF17 = {
  &KLsimple_closure_methodGVKiW /* wrapper */,
  &xep_1,
  &K18,
  &Kanonymous_of_application_registersF17I,
  (dylan_value) 1
};

static _KLsymbolGVKd KJcategory_ = {
  &KLsymbolGVKdW /* wrapper */,
  &K16
};

_KLincremental_generic_functionGVKe Kdo_application_registersVenvironment_protocols = {
  &KLincremental_generic_functionGVKeW /* wrapper */,
  &gf_optional_xep_2,
  &K9,
  (dylan_value) 1,
  &K10,
  &K8,
  &RSINGULAR_Labsent_engine_nodeG,
  &Kenvironment_protocols_moduleYdylan_userVenvironment_protocols,
  &KPfalseVKi,
  &KPempty_vectorVKi,
  (dylan_value) 25
};

_KLkeyword_methodGVKe Kdo_application_registersVenvironment_protocolsMM0 = {
  &KLkeyword_methodGVKeW /* wrapper */,
  &rest_key_xep_4,
  &K13,
  &key_mep_4,
  &Kdo_application_registersVenvironment_protocolsMM0I,
  &K14
};

static _KLpairGVKd K8 = {
  &KLpairGVKdW /* wrapper */,
  &Kdo_application_registersVenvironment_protocolsMM0,
  &KPempty_listVKi
};

static _KLkeyword_signatureGVKe K9 = {
  &KLkeyword_signatureGVKeW /* wrapper */,
  (dylan_value) 42205193,
  &K11,
  &K12,
  &KDsignature_LobjectG_typesVKi
};

static _KLbyte_stringGVKd_24 K10 = {
  &KLbyte_stringGVKdW /* wrapper */,
  (dylan_value) 97,
  "do-application-registers"
};

static _KLsimple_object_vectorGVKd_2 K11 = {
  &KLsimple_object_vectorGVKdW /* wrapper */,
  (dylan_value) 9,
  &KLfunctionGVKd,
  &KLserverGVenvironment_protocols
};

static _KLsimple_object_vectorGVKd_1 K12 = {
  &KLsimple_object_vectorGVKdW /* wrapper */,
  (dylan_value) 5,
  &KJcategory_
};

static _KLkeyword_signatureGVKe K13 = {
  &KLkeyword_signatureGVKeW /* wrapper */,
  (dylan_value) 42205193,
  &K15,
  &K12,
  &KDsignature_LobjectG_typesVKi
};

static _KLsimple_object_vectorGVKd_2 K14 = {
  &KLsimple_object_vectorGVKdW /* wrapper */,
  (dylan_value) 9,
  &KJcategory_,
  &KPfalseVKi
};

static _KLsimple_object_vectorGVKd_2 K15 = {
  &KLsimple_object_vectorGVKdW /* wrapper */,
  (dylan_value) 9,
  &KLfunctionGVKd,
  &KLproject_objectGVenvironment_protocols
};

static _KLbyte_stringGVKd_8 K16 = {
  &KLbyte_stringGVKdW /* wrapper */,
  (dylan_value) 33,
  "category"
};

static _KLsignatureGVKe K18 = {
  &KLsignatureGVKeW /* wrapper */,
  (dylan_value) 44040197,
  &K19
};

static _KLsimple_object_vectorGVKd_1 K19 = {
  &KLsimple_object_vectorGVKdW /* wrapper */,
  (dylan_value) 5,
  &KLregister_objectGVenvironment_protocols
};

_KLclassGVKd KLregister_objectGVenvironment_protocols = {
  &KLclassGVKdW /* wrapper */,
  &Kclass_instanceQ_initialVKiI,
  &K36,
  &K22,
  (dylan_value) 1,
  &Kenvironment_protocols_moduleYdylan_userVenvironment_protocols
};

_KLmm_wrapperGVKi_0 KLregister_objectGVenvironment_protocolsW = {
  &KLmm_wrapperGVKiW /* wrapper */,
  &K22,
  (dylan_value) 1,
  9,
  33554439,
  (dylan_value) 1
};

static _KLimplementation_classGVKe K22 = {
  &KLimplementation_classGVKeW /* wrapper */,
  (dylan_value) 477102089,
  &KLregister_objectGVenvironment_protocols,
  &KLregister_objectGVenvironment_protocolsW,
  &KPfalseVKi,
  &K23,
  (dylan_value) -3,
  &KLregister_objectGZ32ZconstructorVenvironment_protocolsMM0,
  &K26,
  &K27,
  (dylan_value) 13,
  &KPempty_vectorVKi,
  &KPempty_vectorVKi,
  &KPempty_listVKi,
  &KPempty_listVKi,
  &KPempty_listVKi,
  &KPempty_vectorVKi,
  &KPempty_vectorVKi,
  &K23,
  &KPempty_vectorVKi,
  &KPempty_vectorVKi,
  &KPempty_vectorVKi,
  &KPempty_vectorVKi,
  &KPempty_vectorVKi
};

static _KLsimple_object_vectorGVKd_2 K23 = {
  &KLsimple_object_vectorGVKdW /* wrapper */,
  (dylan_value) 9,
  &KPprimitive_nameVenvironment_protocolsHLenvironment_objectG,
  &Kapplication_object_proxyVenvironment_protocolsHLapplication_objectG
};

_KLkeyword_methodGVKe KLregister_objectGZ32ZconstructorVenvironment_protocolsMM0 = {
  &KLkeyword_methodGVKeW /* wrapper */,
  &rest_key_xep_4,
  &K31,
  &key_mep_2,
  &KLregister_objectGZ32ZconstructorVenvironment_protocolsMM0I,
  &K32
};

static _KLsimple_object_vectorGVKd_1 K26 = {
  &KLsimple_object_vectorGVKdW /* wrapper */,
  (dylan_value) 5,
  &KLapplication_objectGVenvironment_protocols
};

static _KLsimple_object_vectorGVKd_6 K27 = {
  &KLsimple_object_vectorGVKdW /* wrapper */,
  (dylan_value) 25,
  &KLobjectGVKd,
  &KLenvironment_objectGVenvironment_protocols,
  &KLapplication_objectGVenvironment_protocols,
  &KLregister_objectGVenvironment_protocols,
  &KPfalseVKi,
  &KPfalseVKi
};

static _KLunionGVKe K28 = {
  &KLunionGVKeW /* wrapper */,
  &Kunion_instanceQVKiI,
  &K30,
  &KLstringGVKd
};

static _KLpairGVKd K29 = {
  &KLpairGVKdW /* wrapper */,
  &KinitializeVKdMM1,
  &KPempty_listVKi
};

static _KLsingletonGVKd K30 = {
  &KLsingletonGVKdW /* wrapper */,
  &Ksingleton_pointer_idQ_instanceQVKiI,
  &KPfalseVKi
};

static _KLkeyword_signatureAvaluesGVKi K31 = {
  &KLkeyword_signatureAvaluesGVKiW /* wrapper */,
  (dylan_value) 35390469,
  &KDsignature_LclassG_typesVKi,
  &K35,
  &KDsignature_LobjectG_typesVKi,
  &K19
};

static _KLsimple_object_vectorGVKd_4 K32 = {
  &KLsimple_object_vectorGVKdW /* wrapper */,
  (dylan_value) 17,
  &KJname_,
  &KPfalseVKi,
  &KJapplication_object_proxy_,
  &KPfalseVKi
};

static _KLsymbolGVKd KJapplication_object_proxy_ = {
  &KLsymbolGVKdW /* wrapper */,
  &K34
};

static _KLbyte_stringGVKd_24 K34 = {
  &KLbyte_stringGVKdW /* wrapper */,
  (dylan_value) 97,
  "application-object-proxy"
};

static _KLsimple_object_vectorGVKd_2 K35 = {
  &KLsimple_object_vectorGVKdW /* wrapper */,
  (dylan_value) 9,
  &KJname_,
  &KJapplication_object_proxy_
};

static _KLbyte_stringGVKd_17 K36 = {
  &KLbyte_stringGVKdW /* wrapper */,
  (dylan_value) 69,
  "<register-object>"
};

static _KLkeyword_signatureAvaluesGVKi K37 = {
  &KLkeyword_signatureAvaluesGVKiW /* wrapper */,
  (dylan_value) 33817605,
  &K38,
  &K12,
  &KDsignature_LobjectG_typesVKi,
  &KDsignature_LsequenceG_typesVKi
};

static _KLsimple_object_vectorGVKd_1 K38 = {
  &KLsimple_object_vectorGVKdW /* wrapper */,
  (dylan_value) 5,
  &KLserverGVenvironment_protocols
};

_KLincremental_generic_functionGVKe Klookup_register_by_nameVenvironment_protocols = {
  &KLincremental_generic_functionGVKeW /* wrapper */,
  &gf_xep_2,
  &K43,
  (dylan_value) 1,
  &K44,
  &K42,
  &RSINGULAR_Labsent_engine_nodeG,
  &Kenvironment_protocols_moduleYdylan_userVenvironment_protocols,
  &KPfalseVKi,
  &KPempty_vectorVKi,
  (dylan_value) 25
};

_KLsimple_methodGVKe Klookup_register_by_nameVenvironment_protocolsMM0 = {
  &KLsimple_methodGVKeW /* wrapper */,
  &xep_2,
  &K48,
  &Klookup_register_by_nameVenvironment_protocolsMM0I
};

static _KLpairGVKd K42 = {
  &KLpairGVKdW /* wrapper */,
  &Klookup_register_by_nameVenvironment_protocolsMM0,
  &KPempty_listVKi
};

static _KLsignatureAvaluesGVKi K43 = {
  &KLsignatureAvaluesGVKiW /* wrapper */,
  (dylan_value) 33555465,
  &K45,
  &K46
};

static _KLbyte_stringGVKd_23 K44 = {
  &KLbyte_stringGVKdW /* wrapper */,
  (dylan_value) 93,
  "lookup-register-by-name"
};

static _KLsimple_object_vectorGVKd_2 K45 = {
  &KLsimple_object_vectorGVKdW /* wrapper */,
  (dylan_value) 9,
  &KLserverGVenvironment_protocols,
  &KLstringGVKd
};

static _KLsimple_object_vectorGVKd_1 K46 = {
  &KLsimple_object_vectorGVKdW /* wrapper */,
  (dylan_value) 5,
  &K47
};

static _KLunionGVKe K47 = {
  &KLunionGVKeW /* wrapper */,
  &Kunion_instanceQVKiI,
  &K30,
  &KLregister_objectGVenvironment_protocols
};

static _KLsignatureAvaluesGVKi K48 = {
  &KLsignatureAvaluesGVKiW /* wrapper */,
  (dylan_value) 33555465,
  &K49,
  &K46
};

static _KLsimple_object_vectorGVKd_2 K49 = {
  &KLsimple_object_vectorGVKdW /* wrapper */,
  (dylan_value) 9,
  &KLproject_objectGVenvironment_protocols,
  &KLstringGVKd
};

_KLincremental_generic_functionGVKe Kregister_contents_addressVenvironment_protocols = {
  &KLincremental_generic_functionGVKeW /* wrapper */,
  &gf_optional_xep_3,
  &K54,
  (dylan_value) 1,
  &K55,
  &K53,
  &RSINGULAR_Labsent_engine_nodeG,
  &Kenvironment_protocols_moduleYdylan_userVenvironment_protocols,
  &KPfalseVKi,
  &KPempty_vectorVKi,
  (dylan_value) 25
};

_KLkeyword_methodGVKe Kregister_contents_addressVenvironment_protocolsMM0 = {
  &KLkeyword_methodGVKeW /* wrapper */,
  &rest_key_xep_5,
  &K62,
  &key_mep_5,
  &Kregister_contents_addressVenvironment_protocolsMM0I,
  &K63
};

static _KLpairGVKd K53 = {
  &KLpairGVKdW /* wrapper */,
  &Kregister_contents_addressVenvironment_protocolsMM0,
  &KPempty_listVKi
};

static _KLkeyword_signatureAvaluesGVKi K54 = {
  &KLkeyword_signatureAvaluesGVKiW /* wrapper */,
  (dylan_value) 33817613,
  &K56,
  &K57,
  &KDsignature_LobjectG_typesVKi,
  &K58
};

static _KLbyte_stringGVKd_25 K55 = {
  &KLbyte_stringGVKdW /* wrapper */,
  (dylan_value) 101,
  "register-contents-address"
};

static _KLsimple_object_vectorGVKd_3 K56 = {
  &KLsimple_object_vectorGVKdW /* wrapper */,
  (dylan_value) 13,
  &KLserverGVenvironment_protocols,
  &KLregister_objectGVenvironment_protocols,
  &KLthread_objectGVenvironment_protocols
};

static _KLsimple_object_vectorGVKd_1 K57 = {
  &KLsimple_object_vectorGVKdW /* wrapper */,
  (dylan_value) 5,
  &KJstack_frame_context_
};

static _KLsimple_object_vectorGVKd_1 K58 = {
  &KLsimple_object_vectorGVKdW /* wrapper */,
  (dylan_value) 5,
  &K59
};

static _KLunionGVKe K59 = {
  &KLunionGVKeW /* wrapper */,
  &Kunion_instanceQVKiI,
  &K30,
  &KLaddress_objectGVenvironment_protocols
};

static _KLsymbolGVKd KJstack_frame_context_ = {
  &KLsymbolGVKdW /* wrapper */,
  &K61
};

static _KLbyte_stringGVKd_19 K61 = {
  &KLbyte_stringGVKdW /* wrapper */,
  (dylan_value) 77,
  "stack-frame-context"
};

static _KLkeyword_signatureAvaluesGVKi K62 = {
  &KLkeyword_signatureAvaluesGVKiW /* wrapper */,
  (dylan_value) 33817613,
  &K64,
  &K57,
  &KDsignature_LobjectG_typesVKi,
  &K58
};

static _KLsimple_object_vectorGVKd_2 K63 = {
  &KLsimple_object_vectorGVKdW /* wrapper */,
  (dylan_value) 9,
  &KJstack_frame_context_,
  &KPfalseVKi
};

static _KLsimple_object_vectorGVKd_3 K64 = {
  &KLsimple_object_vectorGVKdW /* wrapper */,
  (dylan_value) 13,
  &KLproject_objectGVenvironment_protocols,
  &KLregister_objectGVenvironment_protocols,
  &KLthread_objectGVenvironment_protocols
};

_KLincremental_generic_functionGVKe Kregister_contentsVenvironment_protocols = {
  &KLincremental_generic_functionGVKeW /* wrapper */,
  &gf_optional_xep_3,
  &K69,
  (dylan_value) 1,
  &K70,
  &K68,
  &RSINGULAR_Labsent_engine_nodeG,
  &Kenvironment_protocols_moduleYdylan_userVenvironment_protocols,
  &KPfalseVKi,
  &KPempty_vectorVKi,
  (dylan_value) 25
};

_KLkeyword_methodGVKe Kregister_contentsVenvironment_protocolsMM0 = {
  &KLkeyword_methodGVKeW /* wrapper */,
  &rest_key_xep_5,
  &K73,
  &key_mep_5,
  &Kregister_contentsVenvironment_protocolsMM0I,
  &K63
};

static _KLpairGVKd K68 = {
  &KLpairGVKdW /* wrapper */,
  &Kregister_contentsVenvironment_protocolsMM0,
  &KPempty_listVKi
};

static _KLkeyword_signatureAvaluesGVKi K69 = {
  &KLkeyword_signatureAvaluesGVKiW /* wrapper */,
  (dylan_value) 33817613,
  &K56,
  &K57,
  &KDsignature_LobjectG_typesVKi,
  &K71
};

static _KLbyte_stringGVKd_17 K70 = {
  &KLbyte_stringGVKdW /* wrapper */,
  (dylan_value) 69,
  "register-contents"
};

static _KLsimple_object_vectorGVKd_1 K71 = {
  &KLsimple_object_vectorGVKdW /* wrapper */,
  (dylan_value) 5,
  &K72
};

static _KLunionGVKe K72 = {
  &KLunionGVKeW /* wrapper */,
  &Kunion_instanceQVKiI,
  &K30,
  &KLapplication_objectGVenvironment_protocols
};

static _KLkeyword_signatureAvaluesGVKi K73 = {
  &KLkeyword_signatureAvaluesGVKiW /* wrapper */,
  (dylan_value) 33817613,
  &K64,
  &K57,
  &KDsignature_LobjectG_typesVKi,
  &K71
};

_KLunionGVKe KLregister_categoryGVenvironment_protocols = {
  &KLunionGVKeW /* wrapper */,
  &Kunion_instanceQVKiI,
  &K75,
  &K76
};

static _KLunionGVKe K75 = {
  &KLunionGVKeW /* wrapper */,
  &Kunion_instanceQVKiI,
  &K79,
  &K80
};

static _KLsingletonGVKd K76 = {
  &KLsingletonGVKdW /* wrapper */,
  &Ksingleton_pointer_idQ_instanceQVKiI,
  &KJfloating_point_
};

static _KLsymbolGVKd KJfloating_point_ = {
  &KLsymbolGVKdW /* wrapper */,
  &K78
};

static _KLbyte_stringGVKd_14 K78 = {
  &KLbyte_stringGVKdW /* wrapper */,
  (dylan_value) 57,
  "floating-point"
};

static _KLsingletonGVKd K79 = {
  &KLsingletonGVKdW /* wrapper */,
  &Ksingleton_pointer_idQ_instanceQVKiI,
  &KJgeneral_purpose_
};

static _KLsingletonGVKd K80 = {
  &KLsingletonGVKdW /* wrapper */,
  &Ksingleton_pointer_idQ_instanceQVKiI,
  &KJspecial_purpose_
};

static _KLsymbolGVKd KJspecial_purpose_ = {
  &KLsymbolGVKdW /* wrapper */,
  &K82
};

static _KLbyte_stringGVKd_15 K82 = {
  &KLbyte_stringGVKdW /* wrapper */,
  (dylan_value) 61,
  "special-purpose"
};

static _KLsymbolGVKd KJgeneral_purpose_ = {
  &KLsymbolGVKdW /* wrapper */,
  &K84
};

static _KLbyte_stringGVKd_15 K84 = {
  &KLbyte_stringGVKdW /* wrapper */,
  (dylan_value) 61,
  "general-purpose"
};

/* Code */

dylan_value Kapplication_registersVenvironment_protocolsI (dylan_value server_, dylan_value Urest_, dylan_value category_) {
  dylan_value T4;
  dylan_value T5_0;
  dylan_value T6_0;
  dylan_value results_;
  _KLsimple_object_vectorGVKd_2 T8 = {&KLsimple_object_vectorGVKdW, (dylan_value) 9};

  // /home/bruce/Development/dylan/opendylan/sources/environment/protocols/register-objects.dylan:151
  // /home/bruce/Development/dylan/opendylan/sources/environment/protocols/register-objects.dylan:153
  T6_0 = KLstretchy_object_vectorGZ32ZconstructorVKiMM0I(&KLstretchy_object_vectorGVKe, &KPempty_vectorVKi);
  // /home/bruce/Development/dylan/opendylan/sources/environment/protocols/register-objects.dylan:153
  results_ = T6_0;
  // /home/bruce/Development/dylan/opendylan/sources/environment/protocols/register-objects.dylan:155
  T4 = MAKE_CLOSURE_INITD(&Kanonymous_of_application_registersF17, 1, results_);
  // /home/bruce/Development/dylan/opendylan/sources/environment/protocols/register-objects.dylan:154
  T8.vector_element_[0] = IKJcategory_;
  T8.vector_element_[1] = category_;
  // /home/bruce/Development/dylan/opendylan/sources/environment/protocols/register-objects.dylan:154
  CONGRUENT_CALL_PROLOG(&Kdo_application_registersVenvironment_protocols, 3);
  CONGRUENT_CALL3(T4, server_, &T8);
  // /home/bruce/Development/dylan/opendylan/sources/environment/protocols/register-objects.dylan:160
  T5_0 = results_;
  // /home/bruce/Development/dylan/opendylan/sources/environment/protocols/register-objects.dylan:151
  MV_SET_COUNT(1);
  return(T5_0);
}

static dylan_value Kanonymous_of_application_registersF17I (dylan_value register_) {
  dylan_value T1;
  CAPTURE_ENVIRONMENT

  // /home/bruce/Development/dylan/opendylan/sources/environment/protocols/register-objects.dylan:155
  // /home/bruce/Development/dylan/opendylan/sources/environment/protocols/register-objects.dylan:156
  T1 = KaddXVKdMM3I(CREF(0), register_);
  // /home/bruce/Development/dylan/opendylan/sources/environment/protocols/register-objects.dylan:155
  return(T1);
}

dylan_value Kdo_application_registersVenvironment_protocolsMM0I (dylan_value f_, dylan_value project_, dylan_value Urest_, dylan_value category_) {
  dylan_value T5;
  dylan_value T6;
  dylan_value T7;
  dylan_value T8;
  dylan_value T9;
  _KLsimple_object_vectorGVKd_2 T10 = {&KLsimple_object_vectorGVKdW, (dylan_value) 9};

  // /home/bruce/Development/dylan/opendylan/sources/environment/protocols/register-objects.dylan:42
  // /home/bruce/Development/dylan/opendylan/sources/environment/protocols/register-objects.dylan:46
  T9 = SLOT_VALUE_INITD(project_, 2);
  // /home/bruce/Development/dylan/opendylan/sources/environment/protocols/register-objects.dylan:47
  if (T9 != &KPfalseVKi) {
    T8 = T9;
    // /home/bruce/Development/dylan/opendylan/sources/environment/protocols/register-objects.dylan:48
    T10.vector_element_[0] = IKJcategory_;
    T10.vector_element_[1] = category_;
    // /home/bruce/Development/dylan/opendylan/sources/environment/protocols/register-objects.dylan:48
    CONGRUENT_CALL_PROLOG(&Kdo_application_registersVenvironment_protocols, 3);
    T5 = CONGRUENT_CALL3(f_, T8, &T10);
    T7 = T5;
  } else {
    // /home/bruce/Development/dylan/opendylan/sources/environment/protocols/register-objects.dylan:47
    T6 = &KPfalseVKi;
    T7 = T6;
  }
  // /home/bruce/Development/dylan/opendylan/sources/environment/protocols/register-objects.dylan:47
  // /home/bruce/Development/dylan/opendylan/sources/environment/protocols/register-objects.dylan:42
  MV_SET_COUNT(0);
  return(T7);
}

dylan_value KLregister_objectGZ32ZconstructorVenvironment_protocolsMM0I (dylan_value class_, dylan_value init_args_, dylan_value Uunique_Pprimitive_name_, dylan_value Uunique_application_object_proxy_) {
  dylan_value T5;
  dylan_value Uunique_Pprimitive_nameF6;
  dylan_value T7_0;

  // /home/bruce/Development/dylan/opendylan/sources/environment/protocols/register-objects.dylan:23
  T5 = primitive_object_allocate_filled(3,&KLregister_objectGVenvironment_protocolsW,2,&KPunboundVKi,0,0,&KPunboundVKi);
  primitive_type_check(Uunique_Pprimitive_name_, &K28);
  Uunique_Pprimitive_nameF6 = Uunique_Pprimitive_name_;
  SLOT_VALUE_SETTER(Uunique_Pprimitive_nameF6, T5, 0);
  SLOT_VALUE_SETTER(Uunique_application_object_proxy_, T5, 1);
  MEP_APPLY2(&KinitializeVKdMenvironment_protocolsM0, &K29, T5, init_args_);
  T7_0 = T5;
  // /home/bruce/Development/dylan/opendylan/sources/environment/protocols/register-objects.dylan:23
  MV_SET_COUNT(1);
  return(T7_0);
}

dylan_value Klookup_register_by_nameVenvironment_protocolsMM0I (dylan_value project_, dylan_value name_) {
  dylan_value T3_0;
  dylan_value T4_0;
  dylan_value T5_0;
  dylan_value T6;
  dylan_value T7;

  // /home/bruce/Development/dylan/opendylan/sources/environment/protocols/register-objects.dylan:141
  // /home/bruce/Development/dylan/opendylan/sources/environment/protocols/register-objects.dylan:144
  T7 = SLOT_VALUE_INITD(project_, 2);
  // /home/bruce/Development/dylan/opendylan/sources/environment/protocols/register-objects.dylan:145
  if (T7 != &KPfalseVKi) {
    T6 = T7;
    // /home/bruce/Development/dylan/opendylan/sources/environment/protocols/register-objects.dylan:145
    CONGRUENT_CALL_PROLOG(&Klookup_register_by_nameVenvironment_protocols, 2);
    T3_0 = CONGRUENT_CALL2(T6, name_);
    T5_0 = T3_0;
  } else {
    // /home/bruce/Development/dylan/opendylan/sources/environment/protocols/register-objects.dylan:145
    T4_0 = &KPfalseVKi;
    T5_0 = T4_0;
  }
  // /home/bruce/Development/dylan/opendylan/sources/environment/protocols/register-objects.dylan:145
  // /home/bruce/Development/dylan/opendylan/sources/environment/protocols/register-objects.dylan:141
  MV_SET_COUNT(1);
  return(T5_0);
}

dylan_value Kregister_contents_addressVenvironment_protocolsMM0I (dylan_value project_, dylan_value reg_, dylan_value thread_, dylan_value Urest_, dylan_value stack_frame_context_) {
  dylan_value T6_0;
  dylan_value T7_0;
  dylan_value T8_0;
  dylan_value T9;
  dylan_value server_;
  _KLsimple_object_vectorGVKd_2 T11 = {&KLsimple_object_vectorGVKdW, (dylan_value) 9};

  // /home/bruce/Development/dylan/opendylan/sources/environment/protocols/register-objects.dylan:116
  // /home/bruce/Development/dylan/opendylan/sources/environment/protocols/register-objects.dylan:121
  server_ = Kchoose_serverVenvironment_protocolsMM0I(project_, reg_, &KPempty_vectorVKi, &KPfalseVKi, &KPfalseVKi);
  // /home/bruce/Development/dylan/opendylan/sources/environment/protocols/register-objects.dylan:122
  if (server_ != &KPfalseVKi) {
    T9 = server_;
    // /home/bruce/Development/dylan/opendylan/sources/environment/protocols/register-objects.dylan:122
    T11.vector_element_[0] = IKJstack_frame_context_;
    T11.vector_element_[1] = stack_frame_context_;
    // /home/bruce/Development/dylan/opendylan/sources/environment/protocols/register-objects.dylan:122
    CONGRUENT_CALL_PROLOG(&Kregister_contents_addressVenvironment_protocols, 4);
    T6_0 = CONGRUENT_CALL4(T9, reg_, thread_, &T11);
    T8_0 = T6_0;
  } else {
    // /home/bruce/Development/dylan/opendylan/sources/environment/protocols/register-objects.dylan:122
    T7_0 = &KPfalseVKi;
    T8_0 = T7_0;
  }
  // /home/bruce/Development/dylan/opendylan/sources/environment/protocols/register-objects.dylan:122
  // /home/bruce/Development/dylan/opendylan/sources/environment/protocols/register-objects.dylan:116
  MV_SET_COUNT(1);
  return(T8_0);
}

dylan_value Kregister_contentsVenvironment_protocolsMM0I (dylan_value project_, dylan_value reg_, dylan_value thread_, dylan_value Urest_, dylan_value stack_frame_context_) {
  dylan_value T6_0;
  dylan_value T7_0;
  dylan_value T8_0;
  dylan_value T9;
  dylan_value server_;
  _KLsimple_object_vectorGVKd_2 T11 = {&KLsimple_object_vectorGVKdW, (dylan_value) 9};

  // /home/bruce/Development/dylan/opendylan/sources/environment/protocols/register-objects.dylan:79
  // /home/bruce/Development/dylan/opendylan/sources/environment/protocols/register-objects.dylan:84
  server_ = Kchoose_serverVenvironment_protocolsMM0I(project_, reg_, &KPempty_vectorVKi, &KPfalseVKi, &KPfalseVKi);
  // /home/bruce/Development/dylan/opendylan/sources/environment/protocols/register-objects.dylan:85
  if (server_ != &KPfalseVKi) {
    T9 = server_;
    // /home/bruce/Development/dylan/opendylan/sources/environment/protocols/register-objects.dylan:85
    T11.vector_element_[0] = IKJstack_frame_context_;
    T11.vector_element_[1] = stack_frame_context_;
    // /home/bruce/Development/dylan/opendylan/sources/environment/protocols/register-objects.dylan:85
    CONGRUENT_CALL_PROLOG(&Kregister_contentsVenvironment_protocols, 4);
    T6_0 = CONGRUENT_CALL4(T9, reg_, thread_, &T11);
    T8_0 = T6_0;
  } else {
    // /home/bruce/Development/dylan/opendylan/sources/environment/protocols/register-objects.dylan:85
    T7_0 = &KPfalseVKi;
    T8_0 = T7_0;
  }
  // /home/bruce/Development/dylan/opendylan/sources/environment/protocols/register-objects.dylan:85
  // /home/bruce/Development/dylan/opendylan/sources/environment/protocols/register-objects.dylan:79
  MV_SET_COUNT(1);
  return(T8_0);
}


/* SYSTEM INIT CODE */

void _Init_environment_protocols__X_register_objects_for_system () {
  extern dylan_value KPresolve_symbolVKiI(dylan_value);
  {
    dylan_value T0;

    T0 = KPresolve_symbolVKiI(&KJcategory_);
    if (T0 != &KJcategory_) {
      primitive_repeated_slot_value_setter(T0, &K14, 1, 0);
      IKJcategory_ = T0;
      primitive_repeated_slot_value_setter(T0, &K12, 1, 0);
    }
  }
  {
    dylan_value T0;

    T0 = KPresolve_symbolVKiI(&KJapplication_object_proxy_);
    if (T0 != &KJapplication_object_proxy_) {
      primitive_repeated_slot_value_setter(T0, &K35, 1, 1);
      primitive_repeated_slot_value_setter(T0, &K32, 1, 2);
    }
  }
  {
    dylan_value T0;

    T0 = KPresolve_symbolVKiI(&KJstack_frame_context_);
    if (T0 != &KJstack_frame_context_) {
      IKJstack_frame_context_ = T0;
      primitive_repeated_slot_value_setter(T0, &K63, 1, 0);
      primitive_repeated_slot_value_setter(T0, &K57, 1, 0);
    }
  }
  {
    dylan_value T0;

    T0 = KPresolve_symbolVKiI(&KJfloating_point_);
    if (T0 != &KJfloating_point_) {
      primitive_slot_value_setter(T0, &K76, 1);
    }
  }
  {
    dylan_value T0;

    T0 = KPresolve_symbolVKiI(&KJspecial_purpose_);
    if (T0 != &KJspecial_purpose_) {
      primitive_slot_value_setter(T0, &K80, 1);
    }
  }
  {
    dylan_value T0;

    T0 = KPresolve_symbolVKiI(&KJgeneral_purpose_);
    if (T0 != &KJgeneral_purpose_) {
      primitive_slot_value_setter(T0, &K79, 1);
    }
  }
  return;
}

/* USER INIT CODE */

void _Init_environment_protocols__X_register_objects_for_user () {
  return;
}


/* eof */
