#include "run-time.h"

/* Typedefs for referenced classes */

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

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

typedef struct {
  D wrapper;
} _KLobjectGVKd;

typedef struct {
  D wrapper;
} _KLunboundGVKe;

typedef struct {
  D wrapper;
} _KLbooleanGVKd;

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

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

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

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

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

typedef struct {
  D wrapper;
  D Pprimitive_name_;
} _KLdylan_objectGVenvironment_protocols;

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

typedef struct {
  D wrapper;
  D Pprimitive_name_;
  D Pid_;
} _KLenvironment_object_with_idGVenvironment_protocols;

typedef struct {
  D wrapper;
  D Pprimitive_name_;
  D compiler_object_proxy_;
} _KLcompiler_objectGVenvironment_protocols;

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

typedef struct {
  D wrapper;
  D Pprimitive_name_;
  D compiler_object_proxy_;
  D application_object_proxy_;
} _KLapplication_and_compiler_objectGVenvironment_protocols;

typedef struct {
  D wrapper;
  D Pprimitive_name_;
  D application_object_proxy_;
} _KLapplication_code_objectGVenvironment_protocols;

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

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

#define  define__KLbyte_stringGVKd(nrepeated) \
  typedef struct { \
    D wrapper; \
    D size_; \
    char string_element_[nrepeated+1]; \
  } _KLbyte_stringGVKd_##nrepeated;
define__KLbyte_stringGVKd(9);
define__KLbyte_stringGVKd(7);
define__KLbyte_stringGVKd(6);
define__KLbyte_stringGVKd(22);
define__KLbyte_stringGVKd(26);
define__KLbyte_stringGVKd(29);
define__KLbyte_stringGVKd(24);
define__KLbyte_stringGVKd(2);
define__KLbyte_stringGVKd(21);
define__KLbyte_stringGVKd(23);
define__KLbyte_stringGVKd(10);
define__KLbyte_stringGVKd(20);
define__KLbyte_stringGVKd(19);

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

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

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

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

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

typedef struct {
  D wrapper;
} _KLstringGVKd;

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

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

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

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

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

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

typedef struct {
  D wrapper;
} _KLserverGVenvironment_protocols;

typedef struct {
  D wrapper;
  D Pprimitive_name_;
  D server_project_;
  D compiler_object_table_;
} _KLcompiler_databaseGVenvironment_protocols;

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

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

typedef struct {
  D wrapper;
  D Pprimitive_name_;
  D Pid_;
  D compiler_object_proxy_;
  D application_object_proxy_;
} _KLdefinition_objectGVenvironment_protocols;


/* Typedefs for defined classes */

typedef struct {
  D wrapper;
  D Pprimitive_name_;
  D Pid_;
  D compiler_object_proxy_;
  D application_object_proxy_;
} _KLsource_form_objectGVenvironment_protocols;

typedef struct {
  D wrapper;
  D Pprimitive_name_;
  D Pid_;
  D compiler_object_proxy_;
  D application_object_proxy_;
} _KLmacro_call_objectGVenvironment_protocols;

typedef struct {
  D wrapper;
  D Pprimitive_name_;
  D Pid_;
  D compiler_object_proxy_;
  D application_object_proxy_;
} _KLsimple_macro_call_objectGVenvironment_protocols;

typedef struct {
  D wrapper;
  D Pprimitive_name_;
  D Pid_;
  D compiler_object_proxy_;
  D application_object_proxy_;
} _KLtop_level_expression_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 KLimplementation_classGVKe;
extern _KLmm_wrapperGVKi_0 KLimplementation_classGVKeW;
extern _KLkeyword_methodGVKe Kdefault_class_constructorVKi;
extern _KLfunction_classGVKi KLkeyword_methodGVKe;
extern _KLclassGVKd KLfunction_classGVKi;
extern _KLmm_wrapperGVKi_0 KLfunction_classGVKiW;
extern _KLmm_wrapperGVKi_0 KLkeyword_methodGVKeW;
extern _KLempty_listGVKd KPempty_listVKi;
extern _KLclassGVKd KLempty_listGVKd;
extern _KLmm_wrapperGVKi_0 KLempty_listGVKdW;
extern _KLsimple_object_vectorGVKd_0 KPempty_vectorVKi;
extern _KLclassGVKd KLsimple_object_vectorGVKd;
extern _KLmm_wrapperGVKi_0 KLsimple_object_vectorGVKdW;
extern _KLclassGVKd KLdylan_objectGVenvironment_protocols;
extern _KLmm_wrapperGVKi_0 KLdylan_objectGVenvironment_protocolsW;
extern _KLclassGVKd KLenvironment_objectGVenvironment_protocols;
extern _KLmm_wrapperGVKi_0 KLenvironment_objectGVenvironment_protocolsW;
extern _KLclassGVKd KLenvironment_object_with_idGVenvironment_protocols;
extern _KLmm_wrapperGVKi_0 KLenvironment_object_with_idGVenvironment_protocolsW;
extern _KLclassGVKd KLcompiler_objectGVenvironment_protocols;
extern _KLmm_wrapperGVKi_0 KLcompiler_objectGVenvironment_protocolsW;
extern _KLclassGVKd KLapplication_objectGVenvironment_protocols;
extern _KLmm_wrapperGVKi_0 KLapplication_objectGVenvironment_protocolsW;
extern _KLclassGVKd KLapplication_and_compiler_objectGVenvironment_protocols;
extern _KLmm_wrapperGVKi_0 KLapplication_and_compiler_objectGVenvironment_protocolsW;
extern _KLclassGVKd KLapplication_code_objectGVenvironment_protocols;
extern _KLmm_wrapperGVKi_0 KLapplication_code_objectGVenvironment_protocolsW;
extern _KLinstance_slot_descriptorGVKe KPprimitive_nameVenvironment_protocolsHLenvironment_objectG;
extern _KLclassGVKd KLinstance_slot_descriptorGVKe;
extern _KLmm_wrapperGVKi_0 KLinstance_slot_descriptorGVKeW;
extern _KLinstance_slot_descriptorGVKe KPidVenvironment_protocolsHLenvironment_object_with_idG;
extern _KLinstance_slot_descriptorGVKe Kcompiler_object_proxyVenvironment_protocolsHLcompiler_objectG;
extern _KLinstance_slot_descriptorGVKe Kapplication_object_proxyVenvironment_protocolsHLapplication_objectG;
D Kgeneral_rcpl_class_instanceQVKiI (D, D);
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 _KLfunction_classGVKi KLsimple_methodGVKe;
extern _KLmm_wrapperGVKi_0 KLsimple_methodGVKeW;
extern _KLclassGVKd KLsignatureAvaluesGVKi;
extern _KLmm_wrapperGVKi_0 KLsignatureAvaluesGVKiW;
extern _KLsimple_object_vectorGVKd_2 KDsignature_LstringG_typesVKi;
D KerrorVKdMM1I (D, D);
extern _KLkeyword_methodGVKe KinitializeVKdMenvironment_protocolsM0;
extern _KLclassGVKd KLpairGVKd;
extern _KLmm_wrapperGVKi_0 KLpairGVKdW;
extern _KLkeyword_methodGVKe KinitializeVKdMM1;
extern _KLclassGVKd KLunionGVKe;
extern _KLmm_wrapperGVKi_0 KLunionGVKeW;
D Kunion_instanceQVKiI (D, D);
extern _KLunionGVKe KLid_or_integerGVenvironment_protocols;
extern _KLclassGVKd KLsingletonGVKd;
extern _KLmm_wrapperGVKi_0 KLsingletonGVKdW;
D Ksingleton_pointer_idQ_instanceQVKiI (D, D);
extern _KLclassGVKd KLstringGVKd;
extern _KLmm_wrapperGVKi_0 KLstringGVKdW;
extern _KLclassGVKd KLsymbolGVKd;
extern _KLmm_wrapperGVKi_0 KLsymbolGVKdW;
extern _KLsymbolGVKd KJname_;
extern _KLclassGVKd KLkeyword_signatureAvaluesGVKi;
extern _KLmm_wrapperGVKi_0 KLkeyword_signatureAvaluesGVKiW;
extern _KLsimple_object_vectorGVKd_2 KDsignature_LclassG_typesVKi;
extern _KLsimple_object_vectorGVKd_256 KDsignature_LobjectG_typesVKi;
D Kclass_instanceQ_initialVKiI (D, D);
D Kcollect_environment_objectsVenvironment_protocolsMM0I (D, D, D, D);
extern _KLfunction_classGVKi KLincremental_generic_functionGVKe;
extern _KLmm_wrapperGVKi_0 KLincremental_generic_functionGVKeW;
extern _KLabsent_engine_nodeGVKg RSINGULAR_Labsent_engine_nodeG;
extern _KLclassGVKd KLabsent_engine_nodeGVKg;
extern _KLmm_wrapperGVKi_0 KLabsent_engine_nodeGVKgW;
extern _KLclassGVKd KLsignatureGVKe;
extern _KLmm_wrapperGVKi_0 KLsignatureGVKeW;
extern _KLclassGVKd KLfunctionGVKd;
extern _KLmm_wrapperGVKi_0 KLfunctionGVKdW;
extern _KLclassGVKd KLserverGVenvironment_protocols;
extern _KLmm_wrapperGVKi_0 KLserverGVenvironment_protocolsW;
D Kensure_database_serverVenvironment_protocolsMM0I (D, D, D, D);
extern _KLclassGVKd KLcompiler_databaseGVenvironment_protocols;
extern _KLmm_wrapperGVKi_0 KLcompiler_databaseGVenvironment_protocolsW;
extern _KLclassGVKd KLproject_objectGVenvironment_protocols;
extern _KLmm_wrapperGVKi_0 KLproject_objectGVenvironment_protocolsW;
extern _KLsimple_object_vectorGVKd_2 KDsignature_LsequenceG_typesVKi;
extern _KLclassGVKd KLkeyword_signatureGVKe;
extern _KLmm_wrapperGVKi_0 KLkeyword_signatureGVKeW;
extern _KLsimple_object_vectorGVKd_16 KDsignature_LbooleanG_typesVKi;
extern _KLclassGVKd KLdefinition_objectGVenvironment_protocols;

/* Defined object declarations */

extern _KLsimple_methodGVKe Kenvironment_object_type_nameVenvironment_protocolsMM16;
D Kenvironment_object_type_nameVenvironment_protocolsMM16I (D);
extern _KLsimple_methodGVKe Kenvironment_object_type_nameVenvironment_protocolsMM17;
D Kenvironment_object_type_nameVenvironment_protocolsMM17I (D);
extern _KLclassGVKd KLsource_form_objectGVenvironment_protocols;
extern _KLmm_wrapperGVKi_0 KLsource_form_objectGVenvironment_protocolsW;
extern _KLclassGVKd KLmacro_call_objectGVenvironment_protocols;
extern _KLmm_wrapperGVKi_0 KLmacro_call_objectGVenvironment_protocolsW;
static _KLimplementation_classGVKe K8;
static _KLsimple_object_vectorGVKd_4 K9;
static _KLsimple_object_vectorGVKd_1 K10;
static _KLsimple_object_vectorGVKd_9 K11;
static _KLsimple_object_vectorGVKd_1 K12;
static _KLsimple_object_vectorGVKd_1 K13;
static _KLbyte_stringGVKd_19 K14;
static _KLimplementation_classGVKe K15;
static _KLsimple_object_vectorGVKd_3 K16;
static _KLsimple_object_vectorGVKd_8 K17;
static _KLsimple_object_vectorGVKd_1 K18;
static _KLbyte_stringGVKd_20 K19;
static _KLbyte_stringGVKd_10 K20;
static _KLsignatureAvaluesGVKi K21;
static _KLsimple_object_vectorGVKd_1 K22;
extern _KLclassGVKd KLsimple_macro_call_objectGVenvironment_protocols;
extern _KLmm_wrapperGVKi_0 KLsimple_macro_call_objectGVenvironment_protocolsW;
static _KLimplementation_classGVKe K25;
extern _KLkeyword_methodGVKe KLsimple_macro_call_objectGZ32ZconstructorVenvironment_protocolsMM0;
D KLsimple_macro_call_objectGZ32ZconstructorVenvironment_protocolsMM0I (D, D, D, D, D, D);
static _KLsimple_object_vectorGVKd_2 K28;
static _KLsimple_object_vectorGVKd_11 K29;
extern _KLclassGVKd KLtop_level_expression_objectGVenvironment_protocols;
extern _KLmm_wrapperGVKi_0 KLtop_level_expression_objectGVenvironment_protocolsW;
static _KLimplementation_classGVKe K32;
extern _KLkeyword_methodGVKe KLtop_level_expression_objectGZ32ZconstructorVenvironment_protocolsMM0;
D KLtop_level_expression_objectGZ32ZconstructorVenvironment_protocolsMM0I (D, D, D, D, D, D);
static _KLsimple_object_vectorGVKd_9 K35;
static _KLsimple_object_vectorGVKd_1 K36;
static _KLsymbolGVKd KJid_;
static _KLbyte_stringGVKd_23 K38;
static _KLsymbolGVKd KJcompiler_object_proxy_;
static _KLunionGVKe K40;
static _KLunionGVKe K41;
static _KLpairGVKd K42;
static _KLsingletonGVKd K43;
static _KLbyte_stringGVKd_21 K44;
static _KLbyte_stringGVKd_2 K45;
static _KLkeyword_signatureAvaluesGVKi K46;
static _KLsimple_object_vectorGVKd_8 K47;
static _KLsymbolGVKd KJapplication_object_proxy_;
static _KLbyte_stringGVKd_24 K49;
static _KLsimple_object_vectorGVKd_4 K50;
static _KLsimple_object_vectorGVKd_1 K51;
static _KLbyte_stringGVKd_29 K52;
static _KLkeyword_signatureAvaluesGVKi K53;
static _KLbyte_stringGVKd_26 K54;
static _KLbyte_stringGVKd_20 K55;
static _KLsignatureAvaluesGVKi K56;
extern _KLsimple_methodGVKe Kmacro_call_source_formsVenvironment_protocols;
D Kmacro_call_source_formsVenvironment_protocolsI (D, D);
extern _KLincremental_generic_functionGVKe Kdo_macro_call_source_formsVenvironment_protocols;
extern _KLsimple_methodGVKe Kdo_macro_call_source_formsVenvironment_protocolsMM0;
D Kdo_macro_call_source_formsVenvironment_protocolsMM0I (D, D, D);
static _KLpairGVKd K62;
static _KLsignatureGVKe K63;
static _KLbyte_stringGVKd_26 K64;
static _KLsimple_object_vectorGVKd_3 K65;
static _KLsignatureGVKe K66;
static _KLsimple_object_vectorGVKd_3 K67;
static _KLsignatureAvaluesGVKi K68;
static _KLsimple_object_vectorGVKd_2 K69;
extern _KLkeyword_methodGVKe Ksource_form_clientsVenvironment_protocols;
D Ksource_form_clientsVenvironment_protocolsI (D, D, D, D, D, D);
static _KLsymbolGVKd KJlibraries_;
static _KLsymbolGVKd KJmodules_;
static _KLsymbolGVKd KJclient_;
extern _KLincremental_generic_functionGVKe Kdo_client_source_formsVenvironment_protocols;
extern _KLkeyword_methodGVKe Kdo_client_source_formsVenvironment_protocolsMM0;
D Kdo_client_source_formsVenvironment_protocolsMM0I (D, D, D, D, D, D, D);
static _KLpairGVKd K78;
static _KLkeyword_signatureGVKe K79;
static _KLbyte_stringGVKd_22 K80;
static _KLsimple_object_vectorGVKd_3 K81;
static _KLsimple_object_vectorGVKd_3 K82;
static _KLkeyword_signatureGVKe K83;
static _KLsimple_object_vectorGVKd_6 K84;
static _KLsimple_object_vectorGVKd_3 K85;
static _KLbyte_stringGVKd_6 K86;
static _KLbyte_stringGVKd_7 K87;
static _KLbyte_stringGVKd_9 K88;
static _KLkeyword_signatureAvaluesGVKi K89;
static _KLsimple_object_vectorGVKd_6 K90;
static _KLsimple_object_vectorGVKd_2 K91;
static _KLsimple_object_vectorGVKd_3 K92;
extern _KLkeyword_methodGVKe Ksource_form_used_definitionsVenvironment_protocols;
D Ksource_form_used_definitionsVenvironment_protocolsI (D, D, D, D, D, D);
extern _KLincremental_generic_functionGVKe Kdo_used_definitionsVenvironment_protocols;
extern _KLkeyword_methodGVKe Kdo_used_definitionsVenvironment_protocolsMM0;
D Kdo_used_definitionsVenvironment_protocolsMM0I (D, D, D, D, D, D, D);
static _KLpairGVKd K98;
static _KLbyte_stringGVKd_19 K99;
extern _KLincremental_generic_functionGVKe Ksource_form_has_clientsQVenvironment_protocols;
extern _KLkeyword_methodGVKe Ksource_form_has_clientsQVenvironment_protocolsMM0;
D Ksource_form_has_clientsQVenvironment_protocolsMM0I (D, D, D, D, D, D);
static _KLpairGVKd K103;
static _KLkeyword_signatureAvaluesGVKi K104;
static _KLbyte_stringGVKd_24 K105;
static _KLkeyword_signatureAvaluesGVKi K106;
static _KLsimple_object_vectorGVKd_2 K107;
extern _KLincremental_generic_functionGVKe Ksource_form_uses_definitionsQVenvironment_protocols;
extern _KLkeyword_methodGVKe Ksource_form_uses_definitionsQVenvironment_protocolsMM0;
D Ksource_form_uses_definitionsQVenvironment_protocolsMM0I (D, D, D, D, D, D);
static _KLpairGVKd K111;
static _KLbyte_stringGVKd_29 K112;
static _KLpairGVKd K113;
static _KLpairGVKd K114;
static _KLpairGVKd K115;
static _KLpairGVKd K116;
static _KLpairGVKd K117;

/* Indirection variables */

static D IKJid_ = &KJid_;
static D IKJcompiler_object_proxy_ = &KJcompiler_object_proxy_;
static D IKJapplication_object_proxy_ = &KJapplication_object_proxy_;
static D IKJlibraries_ = &KJlibraries_;
static D IKJmodules_ = &KJmodules_;
static D IKJclient_ = &KJclient_;

/* Variables */

D Lsource_form_objectGVenvironment_protocols = &KLsource_form_objectGVenvironment_protocols;
D source_form_uses_definitionsQVenvironment_protocols = &Ksource_form_uses_definitionsQVenvironment_protocols;
D source_form_has_clientsQVenvironment_protocols = &Ksource_form_has_clientsQVenvironment_protocols;
D do_used_definitionsVenvironment_protocols = &Kdo_used_definitionsVenvironment_protocols;
D do_client_source_formsVenvironment_protocols = &Kdo_client_source_formsVenvironment_protocols;
D Lmacro_call_objectGVenvironment_protocols = &KLmacro_call_objectGVenvironment_protocols;
D do_macro_call_source_formsVenvironment_protocols = &Kdo_macro_call_source_formsVenvironment_protocols;
D Ltop_level_expression_objectGVenvironment_protocols = &KLtop_level_expression_objectGVenvironment_protocols;
D Lsimple_macro_call_objectGVenvironment_protocols = &KLsimple_macro_call_objectGVenvironment_protocols;
D source_form_used_definitionsVenvironment_protocols = &Ksource_form_used_definitionsVenvironment_protocols;
D source_form_clientsVenvironment_protocols = &Ksource_form_clientsVenvironment_protocols;
D macro_call_source_formsVenvironment_protocols = &Kmacro_call_source_formsVenvironment_protocols;

/* Objects */

_KLsimple_methodGVKe Kenvironment_object_type_nameVenvironment_protocolsMM16 = {
  &KLsimple_methodGVKeW /* wrapper */,
  &xep_1,
  &K56,
  &Kenvironment_object_type_nameVenvironment_protocolsMM16I
};

_KLsimple_methodGVKe Kenvironment_object_type_nameVenvironment_protocolsMM17 = {
  &KLsimple_methodGVKeW /* wrapper */,
  &xep_1,
  &K21,
  &Kenvironment_object_type_nameVenvironment_protocolsMM17I
};

_KLclassGVKd KLsource_form_objectGVenvironment_protocols = {
  &KLclassGVKdW /* wrapper */,
  &Kgeneral_rcpl_class_instanceQVKiI,
  &K19,
  &K15,
  (D) 1,
  &Kenvironment_protocols_moduleYdylan_userVenvironment_protocols
};

_KLmm_wrapperGVKi_0 KLsource_form_objectGVenvironment_protocolsW = {
  &KLmm_wrapperGVKiW /* wrapper */,
  &K15,
  (D) 1,
  17,
  33554439,
  (D) 1
};

_KLclassGVKd KLmacro_call_objectGVenvironment_protocols = {
  &KLclassGVKdW /* wrapper */,
  &Kgeneral_rcpl_class_instanceQVKiI,
  &K14,
  &K8,
  (D) 1,
  &Kenvironment_protocols_moduleYdylan_userVenvironment_protocols
};

_KLmm_wrapperGVKi_0 KLmacro_call_objectGVenvironment_protocolsW = {
  &KLmm_wrapperGVKiW /* wrapper */,
  &K8,
  (D) 1,
  17,
  33554439,
  (D) 1
};

static _KLimplementation_classGVKe K8 = {
  &KLimplementation_classGVKeW /* wrapper */,
  (D) 276037649,
  &KLmacro_call_objectGVenvironment_protocols,
  &KLmacro_call_objectGVenvironment_protocolsW,
  &KPfalseVKi,
  &K9,
  (D) -3,
  &Kdefault_class_constructorVKi,
  &K10,
  &K11,
  (D) 33,
  &K12,
  &K13,
  &KPempty_listVKi,
  &KPempty_listVKi,
  &K115,
  &KPempty_vectorVKi,
  &KPempty_vectorVKi,
  &K9,
  &KPempty_vectorVKi,
  &KPempty_vectorVKi,
  &KPempty_vectorVKi,
  &KPempty_vectorVKi,
  &KPempty_vectorVKi
};

static _KLsimple_object_vectorGVKd_4 K9 = {
  &KLsimple_object_vectorGVKdW /* wrapper */,
  (D) 17,
  &KPprimitive_nameVenvironment_protocolsHLenvironment_objectG,
  &KPidVenvironment_protocolsHLenvironment_object_with_idG,
  &Kcompiler_object_proxyVenvironment_protocolsHLcompiler_objectG,
  &Kapplication_object_proxyVenvironment_protocolsHLapplication_objectG
};

static _KLsimple_object_vectorGVKd_1 K10 = {
  &KLsimple_object_vectorGVKdW /* wrapper */,
  (D) 5,
  &KLsource_form_objectGVenvironment_protocols
};

static _KLsimple_object_vectorGVKd_9 K11 = {
  &KLsimple_object_vectorGVKdW /* wrapper */,
  (D) 37,
  &KLobjectGVKd,
  &KLenvironment_objectGVenvironment_protocols,
  &KLenvironment_object_with_idGVenvironment_protocols,
  &KLcompiler_objectGVenvironment_protocols,
  &KLapplication_objectGVenvironment_protocols,
  &KLapplication_and_compiler_objectGVenvironment_protocols,
  &KLapplication_code_objectGVenvironment_protocols,
  &KLsource_form_objectGVenvironment_protocols,
  &KLmacro_call_objectGVenvironment_protocols
};

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

static _KLsimple_object_vectorGVKd_1 K13 = {
  &KLsimple_object_vectorGVKdW /* wrapper */,
  (D) 5,
  &KLdylan_objectGVenvironment_protocols
};

static _KLbyte_stringGVKd_19 K14 = {
  &KLbyte_stringGVKdW /* wrapper */,
  (D) 77,
  "<macro-call-object>"
};

static _KLimplementation_classGVKe K15 = {
  &KLimplementation_classGVKeW /* wrapper */,
  (D) 274989073,
  &KLsource_form_objectGVenvironment_protocols,
  &KLsource_form_objectGVenvironment_protocolsW,
  &KPfalseVKi,
  &K9,
  (D) -3,
  &Kdefault_class_constructorVKi,
  &K16,
  &K17,
  (D) 29,
  &K18,
  &K13,
  &KPempty_listVKi,
  &KPempty_listVKi,
  &K113,
  &KPempty_vectorVKi,
  &KPempty_vectorVKi,
  &K9,
  &KPempty_vectorVKi,
  &KPempty_vectorVKi,
  &KPempty_vectorVKi,
  &KPempty_vectorVKi,
  &KPempty_vectorVKi
};

static _KLsimple_object_vectorGVKd_3 K16 = {
  &KLsimple_object_vectorGVKdW /* wrapper */,
  (D) 13,
  &KLapplication_code_objectGVenvironment_protocols,
  &KLapplication_and_compiler_objectGVenvironment_protocols,
  &KLenvironment_object_with_idGVenvironment_protocols
};

static _KLsimple_object_vectorGVKd_8 K17 = {
  &KLsimple_object_vectorGVKdW /* wrapper */,
  (D) 33,
  &KLobjectGVKd,
  &KLenvironment_objectGVenvironment_protocols,
  &KLenvironment_object_with_idGVenvironment_protocols,
  &KLcompiler_objectGVenvironment_protocols,
  &KLapplication_objectGVenvironment_protocols,
  &KLapplication_and_compiler_objectGVenvironment_protocols,
  &KLapplication_code_objectGVenvironment_protocols,
  &KLsource_form_objectGVenvironment_protocols
};

static _KLsimple_object_vectorGVKd_1 K18 = {
  &KLsimple_object_vectorGVKdW /* wrapper */,
  (D) 5,
  (D) 33
};

static _KLbyte_stringGVKd_20 K19 = {
  &KLbyte_stringGVKdW /* wrapper */,
  (D) 81,
  "<source-form-object>"
};

static _KLbyte_stringGVKd_10 K20 = {
  &KLbyte_stringGVKdW /* wrapper */,
  (D) 41,
  "Macro call"
};

static _KLsignatureAvaluesGVKi K21 = {
  &KLsignatureAvaluesGVKiW /* wrapper */,
  (D) 33555461,
  &K22,
  &KDsignature_LstringG_typesVKi
};

static _KLsimple_object_vectorGVKd_1 K22 = {
  &KLsimple_object_vectorGVKdW /* wrapper */,
  (D) 5,
  &KLsimple_macro_call_objectGVenvironment_protocols
};

_KLclassGVKd KLsimple_macro_call_objectGVenvironment_protocols = {
  &KLclassGVKdW /* wrapper */,
  &Kclass_instanceQ_initialVKiI,
  &K54,
  &K25,
  (D) 1,
  &Kenvironment_protocols_moduleYdylan_userVenvironment_protocols
};

_KLmm_wrapperGVKi_0 KLsimple_macro_call_objectGVenvironment_protocolsW = {
  &KLmm_wrapperGVKiW /* wrapper */,
  &K25,
  (D) 1,
  17,
  33554439,
  (D) 1
};

static _KLimplementation_classGVKe K25 = {
  &KLimplementation_classGVKeW /* wrapper */,
  (D) 477102097,
  &KLsimple_macro_call_objectGVenvironment_protocols,
  &KLsimple_macro_call_objectGVenvironment_protocolsW,
  &KPfalseVKi,
  &K9,
  (D) -3,
  &KLsimple_macro_call_objectGZ32ZconstructorVenvironment_protocolsMM0,
  &K28,
  &K29,
  (D) 41,
  &KPempty_vectorVKi,
  &KPempty_vectorVKi,
  &KPempty_listVKi,
  &KPempty_listVKi,
  &KPempty_listVKi,
  &KPempty_vectorVKi,
  &KPempty_vectorVKi,
  &K9,
  &KPempty_vectorVKi,
  &KPempty_vectorVKi,
  &KPempty_vectorVKi,
  &KPempty_vectorVKi,
  &KPempty_vectorVKi
};

_KLkeyword_methodGVKe KLsimple_macro_call_objectGZ32ZconstructorVenvironment_protocolsMM0 = {
  &KLkeyword_methodGVKeW /* wrapper */,
  &rest_key_xep_6,
  &K53,
  &key_mep_2,
  &KLsimple_macro_call_objectGZ32ZconstructorVenvironment_protocolsMM0I,
  &K47
};

static _KLsimple_object_vectorGVKd_2 K28 = {
  &KLsimple_object_vectorGVKdW /* wrapper */,
  (D) 9,
  &KLtop_level_expression_objectGVenvironment_protocols,
  &KLmacro_call_objectGVenvironment_protocols
};

static _KLsimple_object_vectorGVKd_11 K29 = {
  &KLsimple_object_vectorGVKdW /* wrapper */,
  (D) 45,
  &KLobjectGVKd,
  &KLenvironment_objectGVenvironment_protocols,
  &KLenvironment_object_with_idGVenvironment_protocols,
  &KLcompiler_objectGVenvironment_protocols,
  &KLapplication_objectGVenvironment_protocols,
  &KLapplication_and_compiler_objectGVenvironment_protocols,
  &KLapplication_code_objectGVenvironment_protocols,
  &KLsource_form_objectGVenvironment_protocols,
  &KLmacro_call_objectGVenvironment_protocols,
  &KLtop_level_expression_objectGVenvironment_protocols,
  &KLsimple_macro_call_objectGVenvironment_protocols
};

_KLclassGVKd KLtop_level_expression_objectGVenvironment_protocols = {
  &KLclassGVKdW /* wrapper */,
  &Kgeneral_rcpl_class_instanceQVKiI,
  &K52,
  &K32,
  (D) 1,
  &Kenvironment_protocols_moduleYdylan_userVenvironment_protocols
};

_KLmm_wrapperGVKi_0 KLtop_level_expression_objectGVenvironment_protocolsW = {
  &KLmm_wrapperGVKiW /* wrapper */,
  &K32,
  (D) 1,
  17,
  33554439,
  (D) 1
};

static _KLimplementation_classGVKe K32 = {
  &KLimplementation_classGVKeW /* wrapper */,
  (D) 477102097,
  &KLtop_level_expression_objectGVenvironment_protocols,
  &KLtop_level_expression_objectGVenvironment_protocolsW,
  &KPfalseVKi,
  &K9,
  (D) -3,
  &KLtop_level_expression_objectGZ32ZconstructorVenvironment_protocolsMM0,
  &K10,
  &K35,
  (D) 33,
  &K12,
  &K36,
  &KPempty_listVKi,
  &KPempty_listVKi,
  &K117,
  &KPempty_vectorVKi,
  &KPempty_vectorVKi,
  &K9,
  &KPempty_vectorVKi,
  &KPempty_vectorVKi,
  &KPempty_vectorVKi,
  &KPempty_vectorVKi,
  &KPempty_vectorVKi
};

_KLkeyword_methodGVKe KLtop_level_expression_objectGZ32ZconstructorVenvironment_protocolsMM0 = {
  &KLkeyword_methodGVKeW /* wrapper */,
  &rest_key_xep_6,
  &K46,
  &key_mep_2,
  &KLtop_level_expression_objectGZ32ZconstructorVenvironment_protocolsMM0I,
  &K47
};

static _KLsimple_object_vectorGVKd_9 K35 = {
  &KLsimple_object_vectorGVKdW /* wrapper */,
  (D) 37,
  &KLobjectGVKd,
  &KLenvironment_objectGVenvironment_protocols,
  &KLenvironment_object_with_idGVenvironment_protocols,
  &KLcompiler_objectGVenvironment_protocols,
  &KLapplication_objectGVenvironment_protocols,
  &KLapplication_and_compiler_objectGVenvironment_protocols,
  &KLapplication_code_objectGVenvironment_protocols,
  &KLsource_form_objectGVenvironment_protocols,
  &KLtop_level_expression_objectGVenvironment_protocols
};

static _KLsimple_object_vectorGVKd_1 K36 = {
  &KLsimple_object_vectorGVKdW /* wrapper */,
  (D) 5,
  &KLmacro_call_objectGVenvironment_protocols
};

static _KLsymbolGVKd KJid_ = {
  &KLsymbolGVKdW /* wrapper */,
  &K45
};

static _KLbyte_stringGVKd_23 K38 = {
  &KLbyte_stringGVKdW /* wrapper */,
  (D) 93,
  "Missing init keyword %="
};

static _KLsymbolGVKd KJcompiler_object_proxy_ = {
  &KLsymbolGVKdW /* wrapper */,
  &K44
};

static _KLunionGVKe K40 = {
  &KLunionGVKeW /* wrapper */,
  &Kunion_instanceQVKiI,
  &K43,
  &KLstringGVKd
};

static _KLunionGVKe K41 = {
  &KLunionGVKeW /* wrapper */,
  &Kunion_instanceQVKiI,
  &K43,
  &KLid_or_integerGVenvironment_protocols
};

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

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

static _KLbyte_stringGVKd_21 K44 = {
  &KLbyte_stringGVKdW /* wrapper */,
  (D) 85,
  "compiler-object-proxy"
};

static _KLbyte_stringGVKd_2 K45 = {
  &KLbyte_stringGVKdW /* wrapper */,
  (D) 9,
  "id"
};

static _KLkeyword_signatureAvaluesGVKi K46 = {
  &KLkeyword_signatureAvaluesGVKiW /* wrapper */,
  (D) 35390469,
  &KDsignature_LclassG_typesVKi,
  &K50,
  &KDsignature_LobjectG_typesVKi,
  &K51
};

static _KLsimple_object_vectorGVKd_8 K47 = {
  &KLsimple_object_vectorGVKdW /* wrapper */,
  (D) 33,
  &KJname_,
  &KPfalseVKi,
  &KJid_,
  &KPunboundVKi,
  &KJcompiler_object_proxy_,
  &KPunboundVKi,
  &KJapplication_object_proxy_,
  &KPfalseVKi
};

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

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

static _KLsimple_object_vectorGVKd_4 K50 = {
  &KLsimple_object_vectorGVKdW /* wrapper */,
  (D) 17,
  &KJname_,
  &KJid_,
  &KJcompiler_object_proxy_,
  &KJapplication_object_proxy_
};

static _KLsimple_object_vectorGVKd_1 K51 = {
  &KLsimple_object_vectorGVKdW /* wrapper */,
  (D) 5,
  &KLtop_level_expression_objectGVenvironment_protocols
};

static _KLbyte_stringGVKd_29 K52 = {
  &KLbyte_stringGVKdW /* wrapper */,
  (D) 117,
  "<top-level-expression-object>"
};

static _KLkeyword_signatureAvaluesGVKi K53 = {
  &KLkeyword_signatureAvaluesGVKiW /* wrapper */,
  (D) 35390469,
  &KDsignature_LclassG_typesVKi,
  &K50,
  &KDsignature_LobjectG_typesVKi,
  &K22
};

static _KLbyte_stringGVKd_26 K54 = {
  &KLbyte_stringGVKdW /* wrapper */,
  (D) 105,
  "<simple-macro-call-object>"
};

static _KLbyte_stringGVKd_20 K55 = {
  &KLbyte_stringGVKdW /* wrapper */,
  (D) 81,
  "Top level expression"
};

static _KLsignatureAvaluesGVKi K56 = {
  &KLsignatureAvaluesGVKiW /* wrapper */,
  (D) 33555461,
  &K51,
  &KDsignature_LstringG_typesVKi
};

_KLsimple_methodGVKe Kmacro_call_source_formsVenvironment_protocols = {
  &KLsimple_methodGVKeW /* wrapper */,
  &xep_2,
  &K68,
  &Kmacro_call_source_formsVenvironment_protocolsI
};

_KLincremental_generic_functionGVKe Kdo_macro_call_source_formsVenvironment_protocols = {
  &KLincremental_generic_functionGVKeW /* wrapper */,
  &gf_xep_3,
  &K63,
  (D) 1,
  &K64,
  &K62,
  &RSINGULAR_Labsent_engine_nodeG,
  &Kenvironment_protocols_moduleYdylan_userVenvironment_protocols,
  &KPfalseVKi,
  &KPempty_vectorVKi,
  (D) 25
};

_KLsimple_methodGVKe Kdo_macro_call_source_formsVenvironment_protocolsMM0 = {
  &KLsimple_methodGVKeW /* wrapper */,
  &xep_3,
  &K66,
  &Kdo_macro_call_source_formsVenvironment_protocolsMM0I
};

static _KLpairGVKd K62 = {
  &KLpairGVKdW /* wrapper */,
  &Kdo_macro_call_source_formsVenvironment_protocolsMM0,
  &KPempty_listVKi
};

static _KLsignatureGVKe K63 = {
  &KLsignatureGVKeW /* wrapper */,
  (D) 41943053,
  &K65
};

static _KLbyte_stringGVKd_26 K64 = {
  &KLbyte_stringGVKdW /* wrapper */,
  (D) 105,
  "do-macro-call-source-forms"
};

static _KLsimple_object_vectorGVKd_3 K65 = {
  &KLsimple_object_vectorGVKdW /* wrapper */,
  (D) 13,
  &KLfunctionGVKd,
  &KLserverGVenvironment_protocols,
  &KLmacro_call_objectGVenvironment_protocols
};

static _KLsignatureGVKe K66 = {
  &KLsignatureGVKeW /* wrapper */,
  (D) 41943053,
  &K67
};

static _KLsimple_object_vectorGVKd_3 K67 = {
  &KLsimple_object_vectorGVKdW /* wrapper */,
  (D) 13,
  &KLfunctionGVKd,
  &KLproject_objectGVenvironment_protocols,
  &KLmacro_call_objectGVenvironment_protocols
};

static _KLsignatureAvaluesGVKi K68 = {
  &KLsignatureAvaluesGVKiW /* wrapper */,
  (D) 33555465,
  &K69,
  &KDsignature_LsequenceG_typesVKi
};

static _KLsimple_object_vectorGVKd_2 K69 = {
  &KLsimple_object_vectorGVKdW /* wrapper */,
  (D) 9,
  &KLserverGVenvironment_protocols,
  &KLmacro_call_objectGVenvironment_protocols
};

_KLkeyword_methodGVKe Ksource_form_clientsVenvironment_protocols = {
  &KLkeyword_methodGVKeW /* wrapper */,
  &rest_key_xep_6,
  &K89,
  &key_mep_6,
  &Ksource_form_clientsVenvironment_protocolsI,
  &K90
};

static _KLsymbolGVKd KJlibraries_ = {
  &KLsymbolGVKdW /* wrapper */,
  &K88
};

static _KLsymbolGVKd KJmodules_ = {
  &KLsymbolGVKdW /* wrapper */,
  &K87
};

static _KLsymbolGVKd KJclient_ = {
  &KLsymbolGVKdW /* wrapper */,
  &K86
};

_KLincremental_generic_functionGVKe Kdo_client_source_formsVenvironment_protocols = {
  &KLincremental_generic_functionGVKeW /* wrapper */,
  &gf_optional_xep_3,
  &K79,
  (D) 1,
  &K80,
  &K78,
  &RSINGULAR_Labsent_engine_nodeG,
  &Kenvironment_protocols_moduleYdylan_userVenvironment_protocols,
  &KPfalseVKi,
  &KPempty_vectorVKi,
  (D) 25
};

_KLkeyword_methodGVKe Kdo_client_source_formsVenvironment_protocolsMM0 = {
  &KLkeyword_methodGVKeW /* wrapper */,
  &rest_key_xep_7,
  &K83,
  &key_mep_7,
  &Kdo_client_source_formsVenvironment_protocolsMM0I,
  &K84
};

static _KLpairGVKd K78 = {
  &KLpairGVKdW /* wrapper */,
  &Kdo_client_source_formsVenvironment_protocolsMM0,
  &KPempty_listVKi
};

static _KLkeyword_signatureGVKe K79 = {
  &KLkeyword_signatureGVKeW /* wrapper */,
  (D) 42205197,
  &K81,
  &K82,
  &KDsignature_LobjectG_typesVKi
};

static _KLbyte_stringGVKd_22 K80 = {
  &KLbyte_stringGVKdW /* wrapper */,
  (D) 89,
  "do-client-source-forms"
};

static _KLsimple_object_vectorGVKd_3 K81 = {
  &KLsimple_object_vectorGVKdW /* wrapper */,
  (D) 13,
  &KLfunctionGVKd,
  &KLserverGVenvironment_protocols,
  &KLsource_form_objectGVenvironment_protocols
};

static _KLsimple_object_vectorGVKd_3 K82 = {
  &KLsimple_object_vectorGVKdW /* wrapper */,
  (D) 13,
  &KJmodules_,
  &KJlibraries_,
  &KJclient_
};

static _KLkeyword_signatureGVKe K83 = {
  &KLkeyword_signatureGVKeW /* wrapper */,
  (D) 42205197,
  &K85,
  &K82,
  &KDsignature_LobjectG_typesVKi
};

static _KLsimple_object_vectorGVKd_6 K84 = {
  &KLsimple_object_vectorGVKdW /* wrapper */,
  (D) 25,
  &KJmodules_,
  &KPfalseVKi,
  &KJlibraries_,
  &KPfalseVKi,
  &KJclient_,
  &KPfalseVKi
};

static _KLsimple_object_vectorGVKd_3 K85 = {
  &KLsimple_object_vectorGVKdW /* wrapper */,
  (D) 13,
  &KLfunctionGVKd,
  &KLproject_objectGVenvironment_protocols,
  &KLsource_form_objectGVenvironment_protocols
};

static _KLbyte_stringGVKd_6 K86 = {
  &KLbyte_stringGVKdW /* wrapper */,
  (D) 25,
  "client"
};

static _KLbyte_stringGVKd_7 K87 = {
  &KLbyte_stringGVKdW /* wrapper */,
  (D) 29,
  "modules"
};

static _KLbyte_stringGVKd_9 K88 = {
  &KLbyte_stringGVKdW /* wrapper */,
  (D) 37,
  "libraries"
};

static _KLkeyword_signatureAvaluesGVKi K89 = {
  &KLkeyword_signatureAvaluesGVKiW /* wrapper */,
  (D) 33817609,
  &K91,
  &K92,
  &KDsignature_LobjectG_typesVKi,
  &KDsignature_LsequenceG_typesVKi
};

static _KLsimple_object_vectorGVKd_6 K90 = {
  &KLsimple_object_vectorGVKdW /* wrapper */,
  (D) 25,
  &KJlibraries_,
  &KPfalseVKi,
  &KJmodules_,
  &KPfalseVKi,
  &KJclient_,
  &KPfalseVKi
};

static _KLsimple_object_vectorGVKd_2 K91 = {
  &KLsimple_object_vectorGVKdW /* wrapper */,
  (D) 9,
  &KLserverGVenvironment_protocols,
  &KLsource_form_objectGVenvironment_protocols
};

static _KLsimple_object_vectorGVKd_3 K92 = {
  &KLsimple_object_vectorGVKdW /* wrapper */,
  (D) 13,
  &KJlibraries_,
  &KJmodules_,
  &KJclient_
};

_KLkeyword_methodGVKe Ksource_form_used_definitionsVenvironment_protocols = {
  &KLkeyword_methodGVKeW /* wrapper */,
  &rest_key_xep_6,
  &K89,
  &key_mep_6,
  &Ksource_form_used_definitionsVenvironment_protocolsI,
  &K90
};

_KLincremental_generic_functionGVKe Kdo_used_definitionsVenvironment_protocols = {
  &KLincremental_generic_functionGVKeW /* wrapper */,
  &gf_optional_xep_3,
  &K79,
  (D) 1,
  &K99,
  &K98,
  &RSINGULAR_Labsent_engine_nodeG,
  &Kenvironment_protocols_moduleYdylan_userVenvironment_protocols,
  &KPfalseVKi,
  &KPempty_vectorVKi,
  (D) 25
};

_KLkeyword_methodGVKe Kdo_used_definitionsVenvironment_protocolsMM0 = {
  &KLkeyword_methodGVKeW /* wrapper */,
  &rest_key_xep_7,
  &K83,
  &key_mep_7,
  &Kdo_used_definitionsVenvironment_protocolsMM0I,
  &K84
};

static _KLpairGVKd K98 = {
  &KLpairGVKdW /* wrapper */,
  &Kdo_used_definitionsVenvironment_protocolsMM0,
  &KPempty_listVKi
};

static _KLbyte_stringGVKd_19 K99 = {
  &KLbyte_stringGVKdW /* wrapper */,
  (D) 77,
  "do-used-definitions"
};

_KLincremental_generic_functionGVKe Ksource_form_has_clientsQVenvironment_protocols = {
  &KLincremental_generic_functionGVKeW /* wrapper */,
  &gf_optional_xep_2,
  &K104,
  (D) 1,
  &K105,
  &K103,
  &RSINGULAR_Labsent_engine_nodeG,
  &Kenvironment_protocols_moduleYdylan_userVenvironment_protocols,
  &KPfalseVKi,
  &KPempty_vectorVKi,
  (D) 25
};

_KLkeyword_methodGVKe Ksource_form_has_clientsQVenvironment_protocolsMM0 = {
  &KLkeyword_methodGVKeW /* wrapper */,
  &rest_key_xep_6,
  &K106,
  &key_mep_6,
  &Ksource_form_has_clientsQVenvironment_protocolsMM0I,
  &K84
};

static _KLpairGVKd K103 = {
  &KLpairGVKdW /* wrapper */,
  &Ksource_form_has_clientsQVenvironment_protocolsMM0,
  &KPempty_listVKi
};

static _KLkeyword_signatureAvaluesGVKi K104 = {
  &KLkeyword_signatureAvaluesGVKiW /* wrapper */,
  (D) 33817609,
  &K91,
  &K82,
  &KDsignature_LobjectG_typesVKi,
  &KDsignature_LbooleanG_typesVKi
};

static _KLbyte_stringGVKd_24 K105 = {
  &KLbyte_stringGVKdW /* wrapper */,
  (D) 97,
  "source-form-has-clients?"
};

static _KLkeyword_signatureAvaluesGVKi K106 = {
  &KLkeyword_signatureAvaluesGVKiW /* wrapper */,
  (D) 33817609,
  &K107,
  &K82,
  &KDsignature_LobjectG_typesVKi,
  &KDsignature_LbooleanG_typesVKi
};

static _KLsimple_object_vectorGVKd_2 K107 = {
  &KLsimple_object_vectorGVKdW /* wrapper */,
  (D) 9,
  &KLproject_objectGVenvironment_protocols,
  &KLsource_form_objectGVenvironment_protocols
};

_KLincremental_generic_functionGVKe Ksource_form_uses_definitionsQVenvironment_protocols = {
  &KLincremental_generic_functionGVKeW /* wrapper */,
  &gf_optional_xep_2,
  &K104,
  (D) 1,
  &K112,
  &K111,
  &RSINGULAR_Labsent_engine_nodeG,
  &Kenvironment_protocols_moduleYdylan_userVenvironment_protocols,
  &KPfalseVKi,
  &KPempty_vectorVKi,
  (D) 25
};

_KLkeyword_methodGVKe Ksource_form_uses_definitionsQVenvironment_protocolsMM0 = {
  &KLkeyword_methodGVKeW /* wrapper */,
  &rest_key_xep_6,
  &K106,
  &key_mep_6,
  &Ksource_form_uses_definitionsQVenvironment_protocolsMM0I,
  &K84
};

static _KLpairGVKd K111 = {
  &KLpairGVKdW /* wrapper */,
  &Ksource_form_uses_definitionsQVenvironment_protocolsMM0,
  &KPempty_listVKi
};

static _KLbyte_stringGVKd_29 K112 = {
  &KLbyte_stringGVKdW /* wrapper */,
  (D) 117,
  "source-form-uses-definitions?"
};

static _KLpairGVKd K113 = {
  &KLpairGVKdW /* wrapper */,
  &KLtop_level_expression_objectGVenvironment_protocols,
  &K114
};

static _KLpairGVKd K114 = {
  &KLpairGVKdW /* wrapper */,
  &KLmacro_call_objectGVenvironment_protocols,
  &KPempty_listVKi
};

static _KLpairGVKd K115 = {
  &KLpairGVKdW /* wrapper */,
  &KLdefinition_objectGVenvironment_protocols,
  &K116
};

static _KLpairGVKd K116 = {
  &KLpairGVKdW /* wrapper */,
  &KLsimple_macro_call_objectGVenvironment_protocols,
  &KPempty_listVKi
};

static _KLpairGVKd K117 = {
  &KLpairGVKdW /* wrapper */,
  &KLsimple_macro_call_objectGVenvironment_protocols,
  &KPempty_listVKi
};

/* Code */

D Kenvironment_object_type_nameVenvironment_protocolsMM16I (D object_) {
  D T2_0;

  // /Users/bruce/Development/dylan/opendylan/sources/environment/protocols/source-form-objects.dylan:56
  // /Users/bruce/Development/dylan/opendylan/sources/environment/protocols/source-form-objects.dylan:58
  T2_0 = &K55;
  // /Users/bruce/Development/dylan/opendylan/sources/environment/protocols/source-form-objects.dylan:56
  MV_SET_COUNT(1);
  return(T2_0);
}

D Kenvironment_object_type_nameVenvironment_protocolsMM17I (D object_) {
  D T2_0;

  // /Users/bruce/Development/dylan/opendylan/sources/environment/protocols/source-form-objects.dylan:68
  // /Users/bruce/Development/dylan/opendylan/sources/environment/protocols/source-form-objects.dylan:70
  T2_0 = &K20;
  // /Users/bruce/Development/dylan/opendylan/sources/environment/protocols/source-form-objects.dylan:68
  MV_SET_COUNT(1);
  return(T2_0);
}

D KLsimple_macro_call_objectGZ32ZconstructorVenvironment_protocolsMM0I (D class_, D init_args_, D Uunique_Pprimitive_name_, D Uunique_Pid_, D Uunique_compiler_object_proxy_, D Uunique_application_object_proxy_) {
  D T7;
  D Uunique_PidF8;
  D T9;
  D Uunique_compiler_object_proxyF10;
  D T11;
  D Uunique_Pprimitive_nameF12;
  D Uunique_PidF13;
  D T14_0;
  D T15;
  _KLsimple_object_vectorGVKd_1 T16 = {&KLsimple_object_vectorGVKdW, (D) 5};
  D T17;
  D T18;
  _KLsimple_object_vectorGVKd_1 T19 = {&KLsimple_object_vectorGVKdW, (D) 5};
  D T20;

  // /Users/bruce/Development/dylan/opendylan/sources/environment/protocols/source-form-objects.dylan:64
  // /Users/bruce/Development/dylan/opendylan/sources/environment/protocols/source-form-objects.dylan:64
  T15 = primitive_idQ(Uunique_Pid_,&KPunboundVKi);
  // /Users/bruce/Development/dylan/opendylan/sources/environment/protocols/source-form-objects.dylan:64
  if (T15 != &KPfalseVKi) {
    T16.vector_element_[0] = IKJid_;
    T17 = KerrorVKdMM1I(&K38, &T16);
    // /Users/bruce/Development/dylan/opendylan/sources/environment/protocols/source-form-objects.dylan:64
    T7 = T17;
    Uunique_PidF8 = T7;
  } else {
    Uunique_PidF8 = Uunique_Pid_;
  }
  // /Users/bruce/Development/dylan/opendylan/sources/environment/protocols/source-form-objects.dylan:64
  // /Users/bruce/Development/dylan/opendylan/sources/environment/protocols/source-form-objects.dylan:64
  T18 = primitive_idQ(Uunique_compiler_object_proxy_,&KPunboundVKi);
  // /Users/bruce/Development/dylan/opendylan/sources/environment/protocols/source-form-objects.dylan:64
  if (T18 != &KPfalseVKi) {
    T19.vector_element_[0] = IKJcompiler_object_proxy_;
    T20 = KerrorVKdMM1I(&K38, &T19);
    // /Users/bruce/Development/dylan/opendylan/sources/environment/protocols/source-form-objects.dylan:64
    T9 = T20;
    Uunique_compiler_object_proxyF10 = T9;
  } else {
    Uunique_compiler_object_proxyF10 = Uunique_compiler_object_proxy_;
  }
  // /Users/bruce/Development/dylan/opendylan/sources/environment/protocols/source-form-objects.dylan:64
  T11 = primitive_object_allocate_filled(5,&KLsimple_macro_call_objectGVenvironment_protocolsW,4,&KPunboundVKi,0,0,&KPunboundVKi);
  primitive_type_check(Uunique_Pprimitive_name_, &K40);
  Uunique_Pprimitive_nameF12 = Uunique_Pprimitive_name_;
  SLOT_VALUE_SETTER(Uunique_Pprimitive_nameF12, T11, 0);
  primitive_type_check(Uunique_PidF8, &K41);
  Uunique_PidF13 = Uunique_PidF8;
  SLOT_VALUE_SETTER(Uunique_PidF13, T11, 1);
  SLOT_VALUE_SETTER(Uunique_compiler_object_proxyF10, T11, 2);
  SLOT_VALUE_SETTER(Uunique_application_object_proxy_, T11, 3);
  MEP_APPLY2(&KinitializeVKdMenvironment_protocolsM0, &K42, T11, init_args_);
  T14_0 = T11;
  // /Users/bruce/Development/dylan/opendylan/sources/environment/protocols/source-form-objects.dylan:64
  MV_SET_COUNT(1);
  return(T14_0);
}

D KLtop_level_expression_objectGZ32ZconstructorVenvironment_protocolsMM0I (D class_, D init_args_, D Uunique_Pprimitive_name_, D Uunique_Pid_, D Uunique_compiler_object_proxy_, D Uunique_application_object_proxy_) {
  D T7;
  D Uunique_PidF8;
  D T9;
  D Uunique_compiler_object_proxyF10;
  D T11;
  D Uunique_Pprimitive_nameF12;
  D Uunique_PidF13;
  D T14_0;
  D T15;
  _KLsimple_object_vectorGVKd_1 T16 = {&KLsimple_object_vectorGVKdW, (D) 5};
  D T17;
  D T18;
  _KLsimple_object_vectorGVKd_1 T19 = {&KLsimple_object_vectorGVKdW, (D) 5};
  D T20;

  // /Users/bruce/Development/dylan/opendylan/sources/environment/protocols/source-form-objects.dylan:53
  // /Users/bruce/Development/dylan/opendylan/sources/environment/protocols/source-form-objects.dylan:53
  T15 = primitive_idQ(Uunique_Pid_,&KPunboundVKi);
  // /Users/bruce/Development/dylan/opendylan/sources/environment/protocols/source-form-objects.dylan:53
  if (T15 != &KPfalseVKi) {
    T16.vector_element_[0] = IKJid_;
    T17 = KerrorVKdMM1I(&K38, &T16);
    // /Users/bruce/Development/dylan/opendylan/sources/environment/protocols/source-form-objects.dylan:53
    T7 = T17;
    Uunique_PidF8 = T7;
  } else {
    Uunique_PidF8 = Uunique_Pid_;
  }
  // /Users/bruce/Development/dylan/opendylan/sources/environment/protocols/source-form-objects.dylan:53
  // /Users/bruce/Development/dylan/opendylan/sources/environment/protocols/source-form-objects.dylan:53
  T18 = primitive_idQ(Uunique_compiler_object_proxy_,&KPunboundVKi);
  // /Users/bruce/Development/dylan/opendylan/sources/environment/protocols/source-form-objects.dylan:53
  if (T18 != &KPfalseVKi) {
    T19.vector_element_[0] = IKJcompiler_object_proxy_;
    T20 = KerrorVKdMM1I(&K38, &T19);
    // /Users/bruce/Development/dylan/opendylan/sources/environment/protocols/source-form-objects.dylan:53
    T9 = T20;
    Uunique_compiler_object_proxyF10 = T9;
  } else {
    Uunique_compiler_object_proxyF10 = Uunique_compiler_object_proxy_;
  }
  // /Users/bruce/Development/dylan/opendylan/sources/environment/protocols/source-form-objects.dylan:53
  T11 = primitive_object_allocate_filled(5,&KLtop_level_expression_objectGVenvironment_protocolsW,4,&KPunboundVKi,0,0,&KPunboundVKi);
  primitive_type_check(Uunique_Pprimitive_name_, &K40);
  Uunique_Pprimitive_nameF12 = Uunique_Pprimitive_name_;
  SLOT_VALUE_SETTER(Uunique_Pprimitive_nameF12, T11, 0);
  primitive_type_check(Uunique_PidF8, &K41);
  Uunique_PidF13 = Uunique_PidF8;
  SLOT_VALUE_SETTER(Uunique_PidF13, T11, 1);
  SLOT_VALUE_SETTER(Uunique_compiler_object_proxyF10, T11, 2);
  SLOT_VALUE_SETTER(Uunique_application_object_proxy_, T11, 3);
  MEP_APPLY2(&KinitializeVKdMenvironment_protocolsM0, &K42, T11, init_args_);
  T14_0 = T11;
  // /Users/bruce/Development/dylan/opendylan/sources/environment/protocols/source-form-objects.dylan:53
  MV_SET_COUNT(1);
  return(T14_0);
}

D Kmacro_call_source_formsVenvironment_protocolsI (D server_, D source_form_) {
  D T2_0;

  // /Users/bruce/Development/dylan/opendylan/sources/environment/protocols/source-form-objects.dylan:151
  // /Users/bruce/Development/dylan/opendylan/sources/environment/protocols/source-form-objects.dylan:154
  T2_0 = Kcollect_environment_objectsVenvironment_protocolsMM0I(&Kdo_macro_call_source_formsVenvironment_protocols, server_, source_form_, &KPempty_vectorVKi);
  // /Users/bruce/Development/dylan/opendylan/sources/environment/protocols/source-form-objects.dylan:151
  MV_SET_COUNT(1);
  return(T2_0);
}

D Kdo_macro_call_source_formsVenvironment_protocolsMM0I (D function_, D project_, D object_) {
  D database_;
  D T5;
  D T6;
  D T7;
  D T8;

  // /Users/bruce/Development/dylan/opendylan/sources/environment/protocols/source-form-objects.dylan:122
  // /Users/bruce/Development/dylan/opendylan/sources/environment/protocols/source-form-objects.dylan:126
  database_ = Kensure_database_serverVenvironment_protocolsMM0I(project_, object_, &KPempty_vectorVKi, &KPfalseVKi);
  // /Users/bruce/Development/dylan/opendylan/sources/environment/protocols/source-form-objects.dylan:127
  if (database_ != &KPfalseVKi) {
    T8 = database_;
    // /Users/bruce/Development/dylan/opendylan/sources/environment/protocols/source-form-objects.dylan:127
    CONGRUENT_CALL_PROLOG(&Kdo_macro_call_source_formsVenvironment_protocols, 3);
    T5 = CONGRUENT_CALL3(function_, T8, object_);
    T7 = T5;
  } else {
    // /Users/bruce/Development/dylan/opendylan/sources/environment/protocols/source-form-objects.dylan:127
    T6 = &KPfalseVKi;
    T7 = T6;
  }
  // /Users/bruce/Development/dylan/opendylan/sources/environment/protocols/source-form-objects.dylan:127
  // /Users/bruce/Development/dylan/opendylan/sources/environment/protocols/source-form-objects.dylan:122
  MV_SET_COUNT(0);
  return(T7);
}

D Ksource_form_clientsVenvironment_protocolsI (D server_, D source_form_, D Urest_, D libraries_, D modules_, D client_) {
  D T7_0;
  _KLsimple_object_vectorGVKd_6 T8 = {&KLsimple_object_vectorGVKdW, (D) 25};

  // /Users/bruce/Development/dylan/opendylan/sources/environment/protocols/source-form-objects.dylan:142
  // /Users/bruce/Development/dylan/opendylan/sources/environment/protocols/source-form-objects.dylan:146
  T8.vector_element_[0] = IKJlibraries_;
  T8.vector_element_[1] = libraries_;
  T8.vector_element_[2] = IKJmodules_;
  T8.vector_element_[3] = modules_;
  T8.vector_element_[4] = IKJclient_;
  T8.vector_element_[5] = client_;
  // /Users/bruce/Development/dylan/opendylan/sources/environment/protocols/source-form-objects.dylan:146
  T7_0 = Kcollect_environment_objectsVenvironment_protocolsMM0I(&Kdo_client_source_formsVenvironment_protocols, server_, source_form_, &T8);
  // /Users/bruce/Development/dylan/opendylan/sources/environment/protocols/source-form-objects.dylan:142
  MV_SET_COUNT(1);
  return(T7_0);
}

D Kdo_client_source_formsVenvironment_protocolsMM0I (D function_, D project_, D object_, D Urest_, D modules_, D libraries_, D client_) {
  D database_;
  D T9;
  D T10;
  D T11;
  D T12;
  _KLsimple_object_vectorGVKd_6 T13 = {&KLsimple_object_vectorGVKdW, (D) 25};

  // /Users/bruce/Development/dylan/opendylan/sources/environment/protocols/source-form-objects.dylan:110
  // /Users/bruce/Development/dylan/opendylan/sources/environment/protocols/source-form-objects.dylan:115
  database_ = Kensure_database_serverVenvironment_protocolsMM0I(project_, object_, &KPempty_vectorVKi, &KPfalseVKi);
  // /Users/bruce/Development/dylan/opendylan/sources/environment/protocols/source-form-objects.dylan:116
  if (database_ != &KPfalseVKi) {
    T12 = database_;
    // /Users/bruce/Development/dylan/opendylan/sources/environment/protocols/source-form-objects.dylan:117
    T13.vector_element_[0] = IKJmodules_;
    T13.vector_element_[1] = modules_;
    T13.vector_element_[2] = IKJlibraries_;
    T13.vector_element_[3] = libraries_;
    T13.vector_element_[4] = IKJclient_;
    T13.vector_element_[5] = client_;
    // /Users/bruce/Development/dylan/opendylan/sources/environment/protocols/source-form-objects.dylan:117
    CONGRUENT_CALL_PROLOG(&Kdo_client_source_formsVenvironment_protocols, 4);
    T9 = CONGRUENT_CALL4(function_, T12, object_, &T13);
    T11 = T9;
  } else {
    // /Users/bruce/Development/dylan/opendylan/sources/environment/protocols/source-form-objects.dylan:116
    T10 = &KPfalseVKi;
    T11 = T10;
  }
  // /Users/bruce/Development/dylan/opendylan/sources/environment/protocols/source-form-objects.dylan:116
  // /Users/bruce/Development/dylan/opendylan/sources/environment/protocols/source-form-objects.dylan:110
  MV_SET_COUNT(0);
  return(T11);
}

D Ksource_form_used_definitionsVenvironment_protocolsI (D server_, D source_form_, D Urest_, D libraries_, D modules_, D client_) {
  D T7_0;
  _KLsimple_object_vectorGVKd_6 T8 = {&KLsimple_object_vectorGVKdW, (D) 25};

  // /Users/bruce/Development/dylan/opendylan/sources/environment/protocols/source-form-objects.dylan:133
  // /Users/bruce/Development/dylan/opendylan/sources/environment/protocols/source-form-objects.dylan:137
  T8.vector_element_[0] = IKJlibraries_;
  T8.vector_element_[1] = libraries_;
  T8.vector_element_[2] = IKJmodules_;
  T8.vector_element_[3] = modules_;
  T8.vector_element_[4] = IKJclient_;
  T8.vector_element_[5] = client_;
  // /Users/bruce/Development/dylan/opendylan/sources/environment/protocols/source-form-objects.dylan:137
  T7_0 = Kcollect_environment_objectsVenvironment_protocolsMM0I(&Kdo_used_definitionsVenvironment_protocols, server_, source_form_, &T8);
  // /Users/bruce/Development/dylan/opendylan/sources/environment/protocols/source-form-objects.dylan:133
  MV_SET_COUNT(1);
  return(T7_0);
}

D Kdo_used_definitionsVenvironment_protocolsMM0I (D function_, D project_, D object_, D Urest_, D modules_, D libraries_, D client_) {
  D database_;
  D T9;
  D T10;
  D T11;
  D T12;
  _KLsimple_object_vectorGVKd_6 T13 = {&KLsimple_object_vectorGVKdW, (D) 25};

  // /Users/bruce/Development/dylan/opendylan/sources/environment/protocols/source-form-objects.dylan:98
  // /Users/bruce/Development/dylan/opendylan/sources/environment/protocols/source-form-objects.dylan:103
  database_ = Kensure_database_serverVenvironment_protocolsMM0I(project_, object_, &KPempty_vectorVKi, &KPfalseVKi);
  // /Users/bruce/Development/dylan/opendylan/sources/environment/protocols/source-form-objects.dylan:104
  if (database_ != &KPfalseVKi) {
    T12 = database_;
    // /Users/bruce/Development/dylan/opendylan/sources/environment/protocols/source-form-objects.dylan:105
    T13.vector_element_[0] = IKJmodules_;
    T13.vector_element_[1] = modules_;
    T13.vector_element_[2] = IKJlibraries_;
    T13.vector_element_[3] = libraries_;
    T13.vector_element_[4] = IKJclient_;
    T13.vector_element_[5] = client_;
    // /Users/bruce/Development/dylan/opendylan/sources/environment/protocols/source-form-objects.dylan:105
    CONGRUENT_CALL_PROLOG(&Kdo_used_definitionsVenvironment_protocols, 4);
    T9 = CONGRUENT_CALL4(function_, T12, object_, &T13);
    T11 = T9;
  } else {
    // /Users/bruce/Development/dylan/opendylan/sources/environment/protocols/source-form-objects.dylan:104
    T10 = &KPfalseVKi;
    T11 = T10;
  }
  // /Users/bruce/Development/dylan/opendylan/sources/environment/protocols/source-form-objects.dylan:104
  // /Users/bruce/Development/dylan/opendylan/sources/environment/protocols/source-form-objects.dylan:98
  MV_SET_COUNT(0);
  return(T11);
}

D Ksource_form_has_clientsQVenvironment_protocolsMM0I (D project_, D object_, D Urest_, D modules_, D libraries_, D client_) {
  D database_;
  D T8_0;
  D T9_0;
  D T10_0;
  D T11;
  _KLsimple_object_vectorGVKd_6 T12 = {&KLsimple_object_vectorGVKdW, (D) 25};

  // /Users/bruce/Development/dylan/opendylan/sources/environment/protocols/source-form-objects.dylan:87
  // /Users/bruce/Development/dylan/opendylan/sources/environment/protocols/source-form-objects.dylan:91
  database_ = Kensure_database_serverVenvironment_protocolsMM0I(project_, object_, &KPempty_vectorVKi, &KPfalseVKi);
  // /Users/bruce/Development/dylan/opendylan/sources/environment/protocols/source-form-objects.dylan:92
  if (database_ != &KPfalseVKi) {
    T11 = database_;
    // /Users/bruce/Development/dylan/opendylan/sources/environment/protocols/source-form-objects.dylan:93
    T12.vector_element_[0] = IKJmodules_;
    T12.vector_element_[1] = modules_;
    T12.vector_element_[2] = IKJlibraries_;
    T12.vector_element_[3] = libraries_;
    T12.vector_element_[4] = IKJclient_;
    T12.vector_element_[5] = client_;
    // /Users/bruce/Development/dylan/opendylan/sources/environment/protocols/source-form-objects.dylan:93
    CONGRUENT_CALL_PROLOG(&Ksource_form_has_clientsQVenvironment_protocols, 3);
    T8_0 = CONGRUENT_CALL3(T11, object_, &T12);
    T10_0 = T8_0;
  } else {
    // /Users/bruce/Development/dylan/opendylan/sources/environment/protocols/source-form-objects.dylan:92
    T9_0 = &KPfalseVKi;
    T10_0 = T9_0;
  }
  // /Users/bruce/Development/dylan/opendylan/sources/environment/protocols/source-form-objects.dylan:92
  // /Users/bruce/Development/dylan/opendylan/sources/environment/protocols/source-form-objects.dylan:87
  MV_SET_COUNT(1);
  return(T10_0);
}

D Ksource_form_uses_definitionsQVenvironment_protocolsMM0I (D project_, D object_, D Urest_, D modules_, D libraries_, D client_) {
  D database_;
  D T8_0;
  D T9_0;
  D T10_0;
  D T11;
  _KLsimple_object_vectorGVKd_6 T12 = {&KLsimple_object_vectorGVKdW, (D) 25};

  // /Users/bruce/Development/dylan/opendylan/sources/environment/protocols/source-form-objects.dylan:76
  // /Users/bruce/Development/dylan/opendylan/sources/environment/protocols/source-form-objects.dylan:80
  database_ = Kensure_database_serverVenvironment_protocolsMM0I(project_, object_, &KPempty_vectorVKi, &KPfalseVKi);
  // /Users/bruce/Development/dylan/opendylan/sources/environment/protocols/source-form-objects.dylan:81
  if (database_ != &KPfalseVKi) {
    T11 = database_;
    // /Users/bruce/Development/dylan/opendylan/sources/environment/protocols/source-form-objects.dylan:82
    T12.vector_element_[0] = IKJmodules_;
    T12.vector_element_[1] = modules_;
    T12.vector_element_[2] = IKJlibraries_;
    T12.vector_element_[3] = libraries_;
    T12.vector_element_[4] = IKJclient_;
    T12.vector_element_[5] = client_;
    // /Users/bruce/Development/dylan/opendylan/sources/environment/protocols/source-form-objects.dylan:82
    CONGRUENT_CALL_PROLOG(&Ksource_form_uses_definitionsQVenvironment_protocols, 3);
    T8_0 = CONGRUENT_CALL3(T11, object_, &T12);
    T10_0 = T8_0;
  } else {
    // /Users/bruce/Development/dylan/opendylan/sources/environment/protocols/source-form-objects.dylan:81
    T9_0 = &KPfalseVKi;
    T10_0 = T9_0;
  }
  // /Users/bruce/Development/dylan/opendylan/sources/environment/protocols/source-form-objects.dylan:81
  // /Users/bruce/Development/dylan/opendylan/sources/environment/protocols/source-form-objects.dylan:76
  MV_SET_COUNT(1);
  return(T10_0);
}


/* SYSTEM INIT CODE */

void _Init_environment_protocols__X_source_form_objects_for_system () {
  extern D KPresolve_symbolVKiI(D);
  {
    D T0;

    T0 = KPresolve_symbolVKiI(&KJid_);
    if (T0 != &KJid_) {
      IKJid_ = T0;
      primitive_repeated_slot_value_setter(T0, &K50, 1, 1);
      primitive_repeated_slot_value_setter(T0, &K47, 1, 2);
    }
  }
  {
    D T0;

    T0 = KPresolve_symbolVKiI(&KJcompiler_object_proxy_);
    if (T0 != &KJcompiler_object_proxy_) {
      IKJcompiler_object_proxy_ = T0;
      primitive_repeated_slot_value_setter(T0, &K50, 1, 2);
      primitive_repeated_slot_value_setter(T0, &K47, 1, 4);
    }
  }
  {
    D T0;

    T0 = KPresolve_symbolVKiI(&KJapplication_object_proxy_);
    if (T0 != &KJapplication_object_proxy_) {
      primitive_repeated_slot_value_setter(T0, &K50, 1, 3);
      primitive_repeated_slot_value_setter(T0, &K47, 1, 6);
    }
  }
  {
    D T0;

    T0 = KPresolve_symbolVKiI(&KJlibraries_);
    if (T0 != &KJlibraries_) {
      IKJlibraries_ = T0;
      primitive_repeated_slot_value_setter(T0, &K92, 1, 0);
      primitive_repeated_slot_value_setter(T0, &K90, 1, 0);
      primitive_repeated_slot_value_setter(T0, &K84, 1, 2);
      primitive_repeated_slot_value_setter(T0, &K82, 1, 1);
    }
  }
  {
    D T0;

    T0 = KPresolve_symbolVKiI(&KJmodules_);
    if (T0 != &KJmodules_) {
      IKJmodules_ = T0;
      primitive_repeated_slot_value_setter(T0, &K92, 1, 1);
      primitive_repeated_slot_value_setter(T0, &K90, 1, 2);
      primitive_repeated_slot_value_setter(T0, &K84, 1, 0);
      primitive_repeated_slot_value_setter(T0, &K82, 1, 0);
    }
  }
  {
    D T0;

    T0 = KPresolve_symbolVKiI(&KJclient_);
    if (T0 != &KJclient_) {
      IKJclient_ = T0;
      primitive_repeated_slot_value_setter(T0, &K92, 1, 2);
      primitive_repeated_slot_value_setter(T0, &K90, 1, 4);
      primitive_repeated_slot_value_setter(T0, &K84, 1, 4);
      primitive_repeated_slot_value_setter(T0, &K82, 1, 2);
    }
  }
  return;
}

/* USER INIT CODE */

void _Init_environment_protocols__X_source_form_objects_for_user () {
  return;
}


/* eof */
