#include "run-time.h"

/* Typedefs for referenced classes */

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 instanceQ_iep_;
  D debug_name_;
  D class_implementation_class_;
  D class_subtype_bit_;
  D class_module_;
} _KLfunction_classGVKi;

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;
  D namespace_name_;
  D library_major_version_;
  D library_minor_version_;
  D library_build_count_;
  D used_libraries_;
  D all_used_libraries_;
  D runtime_module_;
  D library_defined_generics_;
  D library_number_static_dispatches_;
  D library_number_dynamic_dispatches_;
} _KLlibraryGVKe;

typedef struct {
  D wrapper;
} _KLbooleanGVKd;

typedef struct {
  D wrapper;
} _KLobjectGVKd;

typedef struct {
  D wrapper;
} _KLunboundGVKe;

typedef struct {
  D wrapper;
  D private_shadowable_form_init_method_;
  D private_shadowable_form_system_init_method_;
  D shadowable_form_properties_flags_;
  D form_compilation_record_;
  D private_form_source_location_;
  D private_form_parent_form_;
  D form_sequence_number_;
  D private_form_dependencies_;
  D private_form_referenced_variables_;
} _KLtop_level_formGVdfmc_common;

#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(9);
define__KLsimple_object_vectorGVKd(256);
define__KLsimple_object_vectorGVKd(4);
define__KLsimple_object_vectorGVKd(1);
define__KLsimple_object_vectorGVKd(2);
define__KLsimple_object_vectorGVKd(0);

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

#define  define__KLbyte_stringGVKd(nrepeated) \
  typedef struct { \
    D wrapper; \
    D size_; \
    char string_element_[nrepeated+1]; \
  } _KLbyte_stringGVKd_##nrepeated;
define__KLbyte_stringGVKd(21);
define__KLbyte_stringGVKd(23);
define__KLbyte_stringGVKd(8);
define__KLbyte_stringGVKd(43);
define__KLbyte_stringGVKd(39);
define__KLbyte_stringGVKd(33);
define__KLbyte_stringGVKd(122);
define__KLbyte_stringGVKd(25);
define__KLbyte_stringGVKd(29);
define__KLbyte_stringGVKd(24);

typedef struct {
  D wrapper;
  D xep_;
  D function_signature_;
  D Pgf_cache_;
  D debug_name_;
  D generic_function_methods_;
  D discriminator_;
} _KLsealed_generic_functionGVKe;

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

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

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

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

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

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

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

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

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;
  D Pprimitive_name_;
  D server_project_;
  D compiler_object_table_;
  D dfmc_database_proxy_;
  D module_name_proxies_;
} _KLdfmc_databaseGVdfmc_environment_database;

typedef struct {
  D wrapper;
  D private_shadowable_form_init_method_;
  D private_shadowable_form_system_init_method_;
  D shadowable_form_properties_flags_;
  D form_compilation_record_;
  D private_form_source_location_;
  D private_form_parent_form_;
  D form_sequence_number_;
  D private_form_dependencies_;
  D private_form_referenced_variables_;
  D private_form_adjectives_;
  D private_form_variable_name_or_names_;
  D form_properties_;
  D private_form_superclass_expressions_;
  D private_form_slot_specs_;
  D private_form_inherited_slot_specs_;
  D private_form_keyword_specs_;
  D private_form_metaclass_spec_;
} _KLclass_definitionGVdfmc_definitions;

typedef struct {
  D wrapper;
} _KLvariable_nameGVdfmc_common;

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

typedef struct {
  D wrapper;
  D properties_;
  D engine_node_callback_;
  D engine_node_entry_point_;
  D cache_header_engine_node_next_;
  D cache_header_engine_node_parent_;
} _KLsimple_typechecked_cache_header_engine_nodeGVKg;

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

typedef struct {
  D wrapper;
  D Pprimitive_name_;
  D Pid_;
  D compiler_object_proxy_;
  D application_object_proxy_;
} _KLlibrary_objectGVenvironment_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;
} _KLserverGVenvironment_protocols;

typedef struct {
  D wrapper;
  D private_shadowable_form_init_method_;
  D private_shadowable_form_system_init_method_;
  D shadowable_form_properties_flags_;
  D form_compilation_record_;
  D private_form_source_location_;
  D private_form_parent_form_;
  D form_sequence_number_;
  D private_form_dependencies_;
  D private_form_referenced_variables_;
  D private_form_adjectives_;
  D form_namespace_name_;
  D private_form_use_clauses_;
  D private_form_create_clauses_;
  D private_form_export_clauses_;
} _KLlibrary_definitionGVdfmc_definitions;

typedef struct {
  D wrapper;
  D private_shadowable_form_init_method_;
  D private_shadowable_form_system_init_method_;
  D shadowable_form_properties_flags_;
  D form_compilation_record_;
  D private_form_source_location_;
  D private_form_parent_form_;
  D form_sequence_number_;
  D private_form_dependencies_;
  D private_form_referenced_variables_;
  D private_form_derived_forms_;
  D form_define_word_;
} _KLmacro_call_formGVdfmc_common;

typedef struct {
  D wrapper;
  D private_shadowable_form_init_method_;
  D private_shadowable_form_system_init_method_;
  D shadowable_form_properties_flags_;
  D form_compilation_record_;
  D private_form_source_location_;
  D private_form_parent_form_;
  D form_sequence_number_;
  D private_form_dependencies_;
  D private_form_referenced_variables_;
  D private_form_adjectives_;
  D form_namespace_name_;
  D private_form_use_clauses_;
  D private_form_create_clauses_;
  D private_form_export_clauses_;
} _KLmodule_definitionGVdfmc_definitions;

typedef struct {
  D wrapper;
  D private_shadowable_form_init_method_;
  D private_shadowable_form_system_init_method_;
  D shadowable_form_properties_flags_;
  D form_compilation_record_;
  D private_form_source_location_;
  D private_form_parent_form_;
  D form_sequence_number_;
  D private_form_dependencies_;
  D private_form_referenced_variables_;
  D private_form_adjectives_;
  D private_form_variable_name_or_names_;
  D form_properties_;
  D form_macro_object_;
  D form_expander_;
  D private_form_macro_word_;
  D private_form_macro_word_class_;
} _KLexpander_defining_formGVdfmc_definitions;

typedef struct {
  D wrapper;
  D private_shadowable_form_init_method_;
  D private_shadowable_form_system_init_method_;
  D shadowable_form_properties_flags_;
  D private_shadowable_form_model_;
  D form_compilation_record_;
  D private_form_source_location_;
  D private_form_parent_form_;
  D form_sequence_number_;
  D private_form_dependencies_;
  D private_form_referenced_variables_;
  D private_form_adjectives_;
  D private_form_variable_name_or_names_;
  D form_properties_;
  D private_form_signature_;
  D private_form_body_;
  D private_form_class_;
  D private_form_signature_and_body_fragment_;
} _KLmethod_definitionGVdfmc_definitions;

typedef struct {
  D wrapper;
  D private_shadowable_form_init_method_;
  D private_shadowable_form_system_init_method_;
  D shadowable_form_properties_flags_;
  D form_compilation_record_;
  D private_form_source_location_;
  D private_form_parent_form_;
  D form_sequence_number_;
  D private_form_dependencies_;
  D private_form_referenced_variables_;
  D private_form_adjectives_;
  D private_form_variable_name_or_names_;
  D form_properties_;
  D private_form_signature_;
} _KLgeneric_definitionGVdfmc_definitions;

typedef struct {
  D wrapper;
  D private_shadowable_form_init_method_;
  D private_shadowable_form_system_init_method_;
  D shadowable_form_properties_flags_;
  D form_compilation_record_;
  D private_form_source_location_;
  D private_form_parent_form_;
  D form_sequence_number_;
  D private_form_dependencies_;
  D private_form_referenced_variables_;
  D private_form_adjectives_;
  D private_form_variable_name_or_names_;
  D form_properties_;
  D private_form_signature_;
} _KLfunction_definitionGVdfmc_definitions;

typedef struct {
  D wrapper;
  D private_shadowable_form_init_method_;
  D private_shadowable_form_system_init_method_;
  D shadowable_form_properties_flags_;
  D form_compilation_record_;
  D private_form_source_location_;
  D private_form_parent_form_;
  D form_sequence_number_;
  D private_form_dependencies_;
  D private_form_referenced_variables_;
  D private_form_adjectives_;
  D private_form_variable_name_or_names_;
  D form_properties_;
  D private_form_signature_;
  D private_form_body_;
  D private_form_type_expressions_;
  D private_form_bindings_spec_;
  D private_form_init_expression_;
} _KLconstant_method_definitionGVdfmc_definitions;

typedef struct {
  D wrapper;
  D private_shadowable_form_init_method_;
  D private_shadowable_form_system_init_method_;
  D shadowable_form_properties_flags_;
  D form_compilation_record_;
  D private_form_source_location_;
  D private_form_parent_form_;
  D form_sequence_number_;
  D private_form_dependencies_;
  D private_form_referenced_variables_;
  D private_form_adjectives_;
  D private_form_variable_name_or_names_;
  D form_properties_;
  D private_form_type_expressions_;
  D private_form_bindings_spec_;
  D private_form_init_expression_;
} _KLconstant_definitionGVdfmc_definitions;

typedef struct {
  D wrapper;
  D private_shadowable_form_init_method_;
  D private_shadowable_form_system_init_method_;
  D shadowable_form_properties_flags_;
  D private_shadowable_form_model_;
  D form_compilation_record_;
  D private_form_source_location_;
  D private_form_parent_form_;
  D form_sequence_number_;
  D private_form_dependencies_;
  D private_form_referenced_variables_;
  D private_form_adjectives_;
  D private_form_variable_name_or_names_;
  D form_properties_;
  D private_form_domain_type_expressions_;
} _KLdomain_definitionGVdfmc_definitions;

typedef struct {
  D wrapper;
  D private_shadowable_form_init_method_;
  D private_shadowable_form_system_init_method_;
  D shadowable_form_properties_flags_;
  D form_compilation_record_;
  D private_form_source_location_;
  D private_form_parent_form_;
  D form_sequence_number_;
  D private_form_dependencies_;
  D private_form_referenced_variables_;
  D private_form_adjectives_;
  D private_form_variable_name_or_names_;
  D form_properties_;
  D private_form_type_expressions_;
  D private_form_bindings_spec_;
  D private_form_init_expression_;
} _KLvariable_definitionGVdfmc_definitions;

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

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

typedef struct {
  D wrapper;
  D Pprimitive_name_;
  D Pid_;
  D compiler_object_proxy_;
  D application_object_proxy_;
} _KLtop_level_expression_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_;
} _KLclass_objectGVenvironment_protocols;

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

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

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

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

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

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

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

typedef struct {
  D wrapper;
  D outer_stream_;
  D private_stream_element_type_value_;
  D private_stream_direction_value_;
  D private_stream_lock_value_;
  D initial_position_;
  D current_position_;
  D final_position_;
  D stream_sequence_;
  D stream_limit_;
} _KLbyte_string_streamGYstreamsVio;

typedef struct {
  D wrapper;
} _KLstringGVKd;

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 Pprimitive_name_;
  D compiler_object_proxy_;
} _KLcompiler_objectGVenvironment_protocols;

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

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

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

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

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

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 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;


/* Typedefs for defined classes */

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


/* Referenced object declarations */

D KPadd_classVKeI (D);
D KPadd_a_methodVKnI (D, D, D, D, D, D);
extern _KLincremental_generic_functionGVKe Kenvironment_object_primitive_nameVenvironment_protocols;
extern _KLfunction_classGVKi KLincremental_generic_functionGVKe;
extern _KLclassGVKd KLfunction_classGVKi;
extern _KLclassGVKd KLclassGVKd;
extern _KLmm_wrapperGVKi_0 KLclassGVKdW;
extern _KLclassGVKd KLmm_wrapperGVKi;
extern _KLmm_wrapperGVKi_1 KLmm_wrapperGVKiW;
extern _KLmm_wrapperGVKi_0 KLfunction_classGVKiW;
extern _KLmm_wrapperGVKi_0 KLincremental_generic_functionGVKeW;
extern _KLlibraryGVKe Kdfmc_environment_database_libraryYdylan_userVdfmc_environment_database;
extern _KLclassGVKd KLlibraryGVKe;
extern _KLmm_wrapperGVKi_0 KLlibraryGVKeW;
extern _KLbooleanGVKd KPfalseVKi;
extern _KLclassGVKd KLbooleanGVKd;
extern _KLmm_wrapperGVKi_0 KLbooleanGVKdW;
extern _KLclassGVKd KLobjectGVKd;
extern _KLmm_wrapperGVKi_0 KLobjectGVKdW;
extern _KLunboundGVKe KPunboundVKi;
extern _KLclassGVKd KLunboundGVKe;
extern _KLmm_wrapperGVKi_0 KLunboundGVKeW;
extern _KLbooleanGVKd KPtrueVKi;
extern _KLincremental_generic_functionGVKe Kfind_compiler_database_proxyVenvironment_protocols;
extern _KLclassGVKd KLtop_level_formGVdfmc_common;
extern _KLmm_wrapperGVKi_0 KLtop_level_formGVdfmc_commonW;
D KerrorVKdMM1I (D, D);
extern _KLsimple_object_vectorGVKd_0 KPempty_vectorVKi;
extern _KLclassGVKd KLsimple_object_vectorGVKd;
extern _KLmm_wrapperGVKi_0 KLsimple_object_vectorGVKdW;
extern _KLempty_listGVKd KPempty_listVKi;
extern _KLclassGVKd KLempty_listGVKd;
extern _KLmm_wrapperGVKi_0 KLempty_listGVKdW;
extern _KLclassGVKd KLbyte_stringGVKd;
extern _KLmm_wrapperGVKi_0 KLbyte_stringGVKdW;
extern _KLclassGVKd KLsealed_generic_functionGVKe;
extern _KLmm_wrapperGVKi_0 KLsealed_generic_functionGVKeW;
extern _KLobject_signatureGVKe KDsignature_LobjectG_object_rest_value_2VKi;
extern _KLclassGVKd KLobject_signatureGVKe;
extern _KLmm_wrapperGVKi_0 KLobject_signatureGVKeW;
extern _KLabsent_engine_nodeGVKg RSINGULAR_Labsent_engine_nodeG;
extern _KLclassGVKd KLabsent_engine_nodeGVKg;
extern _KLmm_wrapperGVKi_0 KLabsent_engine_nodeGVKgW;
extern _KLclassGVKd KLpairGVKd;
extern _KLmm_wrapperGVKi_0 KLpairGVKdW;
D KmemberQVKdMM3I (D, D, D, D);
extern _KLsimple_methodGVKe KEEVKd;
extern _KLfunction_classGVKi KLsimple_methodGVKe;
extern _KLmm_wrapperGVKi_0 KLsimple_methodGVKeW;
extern _KLclassGVKd KLsymbolGVKd;
extern _KLmm_wrapperGVKi_0 KLsymbolGVKdW;
extern _KLfunction_classGVKi KLsimple_closure_methodGVKi;
extern _KLmm_wrapperGVKi_0 KLsimple_closure_methodGVKiW;
extern _KLclassGVKd KLsignatureGVKe;
extern _KLmm_wrapperGVKi_0 KLsignatureGVKeW;
extern _KLclassGVKd KLsignatureAvaluesGVKi;
extern _KLmm_wrapperGVKi_0 KLsignatureAvaluesGVKiW;
extern _KLclassGVKd KLunionGVKe;
extern _KLmm_wrapperGVKi_0 KLunionGVKeW;
D Kunion_instanceQVKiI (D, D);
extern _KLclassGVKd KLsingletonGVKd;
extern _KLmm_wrapperGVKi_0 KLsingletonGVKdW;
D Ksingleton_pointer_idQ_instanceQVKiI (D, D);
extern _KLclassGVKd KLdfmc_databaseGVdfmc_environment_database;
extern _KLmm_wrapperGVKi_0 KLdfmc_databaseGVdfmc_environment_databaseW;
extern _KLclassGVKd KLclass_definitionGVdfmc_definitions;
extern _KLmm_wrapperGVKi_0 KLclass_definitionGVdfmc_definitionsW;
D Kbrowsing_contextVdfmc_environment_databaseMM2I (D server_, D database_);
extern _KLclassGVKd KLvariable_nameGVdfmc_common;
extern _KLmm_wrapperGVKi_0 KLvariable_nameGVdfmc_commonW;
extern _KLsimple_methodGVKe Kvariable_active_definitionYdfmc_derived_informationVdfmc_browser_support;
extern _KLunionGVKe KLtype_expressionGYdfmc_derived_informationVdfmc_browser_support;
extern _KLclassGVKd KLenvironment_objectGVenvironment_protocols;
extern _KLmm_wrapperGVKi_0 KLenvironment_objectGVenvironment_protocolsW;
D Kmake_environment_objectVenvironment_protocolsMM1I (D, D, D, D, D, D, D);
extern _KLclassGVKd KLsimple_typechecked_cache_header_engine_nodeGVKg;
extern _KLmm_wrapperGVKi_0 KLsimple_typechecked_cache_header_engine_nodeGVKgW;
extern _KLsimple_object_vectorGVKd_2 KDsignature_LstringG_typesVKi;
D Klibrary_definition_nameYdfmc_derived_informationVdfmc_browser_supportI (D);
extern _KLkeyword_methodGVKe Kfind_project_for_library_nameVdfmc_environment_database;
extern _KLfunction_classGVKi KLkeyword_methodGVKe;
extern _KLmm_wrapperGVKi_0 KLkeyword_methodGVKeW;
extern _KLincremental_generic_functionGVKe Kserver_projectVenvironment_protocols;
D Kmake_environment_objectVenvironment_protocolsMM2I (D, D, D, D, D, D, D);
extern _KLclassGVKd KLlibrary_objectGVenvironment_protocols;
extern _KLmm_wrapperGVKi_0 KLlibrary_objectGVenvironment_protocolsW;
extern _KLclassGVKd KLproject_objectGVenvironment_protocols;
extern _KLmm_wrapperGVKi_0 KLproject_objectGVenvironment_protocolsW;
extern _KLincremental_generic_functionGVKe Kproject_compiler_databaseVenvironment_protocols;
extern _KLclassGVKd KLserverGVenvironment_protocols;
extern _KLmm_wrapperGVKi_0 KLserverGVenvironment_protocolsW;
extern _KLclassGVKd KLlibrary_definitionGVdfmc_definitions;
extern _KLmm_wrapperGVKi_0 KLlibrary_definitionGVdfmc_definitionsW;
extern _KLsealed_generic_functionGVKe Kform_define_wordVdfmc_common;
extern _KLsymbolGVKd KJfunction_;
D Kmacro_form_expanded_formsYdfmc_derived_informationVdfmc_browser_supportI (D);
extern _KLincremental_generic_functionGVKe KsizeVKd;
extern _KLincremental_generic_functionGVKe KEVKd;
extern _KLincremental_generic_functionGVKe KelementVKd;
extern _KLclassGVKd KLmacro_call_formGVdfmc_common;
extern _KLmm_wrapperGVKi_0 KLmacro_call_formGVdfmc_commonW;
extern _KLclassGVKd KLmodule_definitionGVdfmc_definitions;
extern _KLmm_wrapperGVKi_0 KLmodule_definitionGVdfmc_definitionsW;
extern _KLclassGVKd KLexpander_defining_formGVdfmc_definitions;
extern _KLmm_wrapperGVKi_0 KLexpander_defining_formGVdfmc_definitionsW;
extern _KLclassGVKd KLmethod_definitionGVdfmc_definitions;
extern _KLmm_wrapperGVKi_0 KLmethod_definitionGVdfmc_definitionsW;
extern _KLclassGVKd KLgeneric_definitionGVdfmc_definitions;
extern _KLmm_wrapperGVKi_0 KLgeneric_definitionGVdfmc_definitionsW;
extern _KLclassGVKd KLfunction_definitionGVdfmc_definitions;
extern _KLmm_wrapperGVKi_0 KLfunction_definitionGVdfmc_definitionsW;
extern _KLclassGVKd KLconstant_method_definitionGVdfmc_definitions;
extern _KLmm_wrapperGVKi_0 KLconstant_method_definitionGVdfmc_definitionsW;
extern _KLclassGVKd KLconstant_definitionGVdfmc_definitions;
extern _KLmm_wrapperGVKi_0 KLconstant_definitionGVdfmc_definitionsW;
extern _KLclassGVKd KLdomain_definitionGVdfmc_definitions;
extern _KLmm_wrapperGVKi_0 KLdomain_definitionGVdfmc_definitionsW;
extern _KLclassGVKd KLvariable_definitionGVdfmc_definitions;
extern _KLmm_wrapperGVKi_0 KLvariable_definitionGVdfmc_definitionsW;
extern _KLsealed_generic_functionGVKe Kform_adjectivesVdfmc_common;
extern _KLincremental_generic_functionGVKe KmemberQVKd;
extern _KLsymbolGVKd KJthread_;
extern _KLclassGVKd KLthread_variable_objectGVenvironment_protocols;
extern _KLmm_wrapperGVKi_0 KLthread_variable_objectGVenvironment_protocolsW;
extern _KLclassGVKd KLglobal_variable_objectGVenvironment_protocols;
extern _KLmm_wrapperGVKi_0 KLglobal_variable_objectGVenvironment_protocolsW;
extern _KLclassGVKd KLtop_level_expression_objectGVenvironment_protocols;
extern _KLmm_wrapperGVKi_0 KLtop_level_expression_objectGVenvironment_protocolsW;
extern _KLclassGVKd KLsimple_macro_call_objectGVenvironment_protocols;
extern _KLmm_wrapperGVKi_0 KLsimple_macro_call_objectGVenvironment_protocolsW;
extern _KLclassGVKd KLclass_objectGVenvironment_protocols;
extern _KLmm_wrapperGVKi_0 KLclass_objectGVenvironment_protocolsW;
extern _KLclassGVKd KLdomain_objectGVenvironment_protocols;
extern _KLmm_wrapperGVKi_0 KLdomain_objectGVenvironment_protocolsW;
extern _KLclassGVKd KLconstant_objectGVenvironment_protocols;
extern _KLmm_wrapperGVKi_0 KLconstant_objectGVenvironment_protocolsW;
extern _KLclassGVKd KLgeneric_function_objectGVenvironment_protocols;
extern _KLmm_wrapperGVKi_0 KLgeneric_function_objectGVenvironment_protocolsW;
extern _KLclassGVKd KLmacro_objectGVenvironment_protocols;
extern _KLmm_wrapperGVKi_0 KLmacro_objectGVenvironment_protocolsW;
extern _KLclassGVKd KLmodule_objectGVenvironment_protocols;
extern _KLmm_wrapperGVKi_0 KLmodule_objectGVenvironment_protocolsW;
D Kinternal_dylan_methodQVdfmc_environment_databaseMM0I (D server_, D definition_);
extern _KLclassGVKd KLinternal_method_objectGVenvironment_protocols;
extern _KLmm_wrapperGVKi_0 KLinternal_method_objectGVenvironment_protocolsW;
extern _KLclassGVKd KLmethod_objectGVenvironment_protocols;
extern _KLmm_wrapperGVKi_0 KLmethod_objectGVenvironment_protocolsW;
D Kas_lowercaseVKdMM2I (D);
D KmakeVKdMM33I (D, D, D, D);
extern _KLsymbolGVKd KJdirection_;
extern _KLsymbolGVKd KJoutput_;
D KLbyte_string_streamGZ32ZconstructorYstreams_internalsVioMM0I (D, D, D, D, D, D);
extern _KLclassGVKd KLbyte_string_streamGYstreamsVio;
extern _KLmm_wrapperGVKi_0 KLbyte_string_streamGYstreamsVioW;
D KprintYprintVioMM0I (D, D, D, D, D, D, D, D);
D Kstream_contentsYstreams_protocolVcommon_dylanMioM0I (D, D, D);
extern _KLclassGVKd KLstringGVKd;
extern _KLmm_wrapperGVKi_0 KLstringGVKdW;
extern _KLclassGVKd KLimplementation_classGVKe;
extern _KLmm_wrapperGVKi_0 KLimplementation_classGVKeW;
extern _KLclassGVKd KLcompiler_objectGVenvironment_protocols;
extern _KLmm_wrapperGVKi_0 KLcompiler_objectGVenvironment_protocolsW;
extern _KLclassGVKd KLdylan_objectGVenvironment_protocols;
extern _KLmm_wrapperGVKi_0 KLdylan_objectGVenvironment_protocolsW;
extern _KLclassGVKd KLdylan_compiler_objectGVenvironment_protocols;
extern _KLmm_wrapperGVKi_0 KLdylan_compiler_objectGVenvironment_protocolsW;
extern _KLclassGVKd KLexpression_objectGVenvironment_protocols;
extern _KLmm_wrapperGVKi_0 KLexpression_objectGVenvironment_protocolsW;
extern _KLclassGVKd KLtype_expression_objectGVenvironment_protocols;
extern _KLmm_wrapperGVKi_0 KLtype_expression_objectGVenvironment_protocolsW;
extern _KLclassGVKd KLcomplex_type_expression_objectGVenvironment_protocols;
extern _KLmm_wrapperGVKi_0 KLcomplex_type_expression_objectGVenvironment_protocolsW;
extern _KLkeyword_methodGVKe KinitializeVKdMenvironment_protocolsM0;
extern _KLkeyword_methodGVKe KinitializeVKdMM1;
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;
extern _KLinstance_slot_descriptorGVKe KPprimitive_nameVenvironment_protocolsHLenvironment_objectG;
extern _KLclassGVKd KLinstance_slot_descriptorGVKe;
extern _KLmm_wrapperGVKi_0 KLinstance_slot_descriptorGVKeW;
extern _KLinstance_slot_descriptorGVKe Kcompiler_object_proxyVenvironment_protocolsHLcompiler_objectG;
D Kclass_instanceQ_initialVKiI (D, D);
extern _KLmoduleGVKe Kdfmc_environment_database_moduleYdylan_userVdfmc_environment_database;
extern _KLclassGVKd KLmoduleGVKe;
extern _KLmm_wrapperGVKi_0 KLmoduleGVKeW;
extern D DLobjectG_idVenvironment_protocols;
extern D TdebuggingQTVKi;
extern D Tdebug_partsTVKi;
extern D Tdebug_out_functionTVKi;

/* Defined object declarations */

extern _KLclassGVKd KLdfmc_type_expression_objectGVdfmc_environment_database;
extern _KLmm_wrapperGVKi_0 KLdfmc_type_expression_objectGVdfmc_environment_databaseW;
extern _KLsimple_methodGVKe Kenvironment_object_primitive_nameVenvironment_protocolsMdfmc_environment_databaseM0;
D Kenvironment_object_primitive_nameVenvironment_protocolsMdfmc_environment_databaseM0I (D, D);
D Kname_to_stringVdfmc_environment_databaseI (D);
extern _KLsealed_generic_functionGVKe Kmake_environment_object_for_source_formVdfmc_environment_database;
extern _KLsimple_methodGVKe Kname_to_stringVdfmc_environment_database;
D Kmake_environment_object_for_type_expressionVdfmc_environment_databaseI (D, D);
extern _KLsimple_methodGVKe Kmake_environment_object_for_type_expressionVdfmc_environment_database;
extern _KLsealed_generic_functionGVKe Ktype_expression_to_definitionVdfmc_environment_database;
D Kfind_LobjectGVdfmc_environment_databaseI (D);
static _KLbyte_stringGVKd_24 K13;
extern _KLsimple_methodGVKe Ktype_expression_to_definitionVdfmc_environment_databaseMM0;
D Ktype_expression_to_definitionVdfmc_environment_databaseMM0I (D, D);
extern _KLsimple_methodGVKe Ktype_expression_to_definitionVdfmc_environment_databaseMM1;
D Ktype_expression_to_definitionVdfmc_environment_databaseMM1I (D, D);
static _KLpairGVKd K18;
static _KLpairGVKd K19;
static _KLbyte_stringGVKd_29 K20;
static _KLsimple_closure_methodGVKi_0 Kanonymous_of_type_expression_to_definitionF25;
static D Kanonymous_of_type_expression_to_definitionF25I ();
static _KLsymbolGVKd KJdfmc_environment_database_;
static _KLbyte_stringGVKd_25 K24;
static _KLbyte_stringGVKd_122 K26;
static _KLsignatureGVKe K27;
static _KLsignatureAvaluesGVKi K28;
static _KLsimple_object_vectorGVKd_2 K29;
static _KLsimple_object_vectorGVKd_1 K30;
static _KLunionGVKe K31;
static _KLsingletonGVKd K32;
static _KLsimple_closure_methodGVKi_0 Kanonymous_of_type_expression_to_definitionF35;
static D Kanonymous_of_type_expression_to_definitionF35I ();
static _KLbyte_stringGVKd_33 K36;
static _KLsignatureAvaluesGVKi K37;
static _KLsimple_object_vectorGVKd_2 K38;
static _KLunionGVKe K39;
static _KLsignatureAvaluesGVKi K40;
static _KLsimple_object_vectorGVKd_1 K41;
static _KLsimple_typechecked_cache_header_engine_nodeGVKg K42;
static _KLsignatureAvaluesGVKi K43;
static _KLsimple_object_vectorGVKd_1 K44;
extern _KLsimple_methodGVKe Kmake_environment_object_for_source_formVdfmc_environment_databaseMM0;
D Kmake_environment_object_for_source_formVdfmc_environment_databaseMM0I (D, D);
extern _KLsimple_methodGVKe Kmake_environment_object_for_source_formVdfmc_environment_databaseMM1;
D Kmake_environment_object_for_source_formVdfmc_environment_databaseMM1I (D, D);
extern _KLsimple_methodGVKe Kmake_environment_object_for_source_formVdfmc_environment_databaseMM2;
D Kmake_environment_object_for_source_formVdfmc_environment_databaseMM2I (D, D);
static _KLpairGVKd K51;
static _KLpairGVKd K52;
static _KLpairGVKd K53;
static _KLbyte_stringGVKd_39 K54;
D Kensure_server_databaseVdfmc_environment_databaseI (D);
static _KLbyte_stringGVKd_43 K56;
static _KLsignatureAvaluesGVKi K57;
static _KLsimple_object_vectorGVKd_2 K58;
static _KLsimple_object_vectorGVKd_1 K59;
static _KLsimple_typechecked_cache_header_engine_nodeGVKg K60;
static _KLsignatureAvaluesGVKi K61;
static _KLsimple_object_vectorGVKd_2 K62;
static D Kmethod_classF64I (D, D);
static _KLsignatureAvaluesGVKi K65;
static _KLsimple_object_vectorGVKd_2 K66;
static _KLsymbolGVKd KJcontents_;
static _KLunionGVKe K68;
static _KLbyte_stringGVKd_8 K69;
static _KLsignatureAvaluesGVKi K70;
static _KLsimple_object_vectorGVKd_2 K71;
static _KLsimple_object_vectorGVKd_1 K72;
static _KLimplementation_classGVKe K73;
static _KLsimple_object_vectorGVKd_2 K74;
extern _KLkeyword_methodGVKe KLdfmc_type_expression_objectGZ32ZconstructorVdfmc_environment_databaseMM0;
D KLdfmc_type_expression_objectGZ32ZconstructorVdfmc_environment_databaseMM0I (D, D, D, D);
static _KLsimple_object_vectorGVKd_1 K77;
static _KLsimple_object_vectorGVKd_9 K78;
static _KLsymbolGVKd KJcompiler_object_proxy_;
static _KLbyte_stringGVKd_23 K80;
static _KLpairGVKd K81;
static _KLbyte_stringGVKd_21 K82;
static _KLkeyword_signatureAvaluesGVKi K83;
static _KLsimple_object_vectorGVKd_4 K84;
static _KLsimple_object_vectorGVKd_2 K85;
static _KLsimple_object_vectorGVKd_1 K86;
static _KLbyte_stringGVKd_29 K87;

/* Indirection variables */

static D IKJdfmc_environment_database_ = &KJdfmc_environment_database_;
static D IKJcontents_ = &KJcontents_;
static D IKJcompiler_object_proxy_ = &KJcompiler_object_proxy_;

/* Variables */

D type_expression_to_definitionVdfmc_environment_database = &Ktype_expression_to_definitionVdfmc_environment_database;
D make_environment_object_for_source_formVdfmc_environment_database = &Kmake_environment_object_for_source_formVdfmc_environment_database;
D Ldfmc_type_expression_objectGVdfmc_environment_database = &KLdfmc_type_expression_objectGVdfmc_environment_database;
D make_environment_object_for_type_expressionVdfmc_environment_database = &Kmake_environment_object_for_type_expressionVdfmc_environment_database;
D name_to_stringVdfmc_environment_database = &Kname_to_stringVdfmc_environment_database;

/* Objects */

_KLclassGVKd KLdfmc_type_expression_objectGVdfmc_environment_database = {
  &KLclassGVKdW /* wrapper */,
  &Kclass_instanceQ_initialVKiI,
  &K87,
  &K73,
  (D) 1,
  &Kdfmc_environment_database_moduleYdylan_userVdfmc_environment_database
};

_KLmm_wrapperGVKi_0 KLdfmc_type_expression_objectGVdfmc_environment_databaseW = {
  &KLmm_wrapperGVKiW /* wrapper */,
  &K73,
  (D) 1,
  9,
  33554439,
  (D) 1
};

_KLsimple_methodGVKe Kenvironment_object_primitive_nameVenvironment_protocolsMdfmc_environment_databaseM0 = {
  &KLsimple_methodGVKeW /* wrapper */,
  &xep_2,
  &K70,
  &Kenvironment_object_primitive_nameVenvironment_protocolsMdfmc_environment_databaseM0I
};

_KLsealed_generic_functionGVKe Kmake_environment_object_for_source_formVdfmc_environment_database = {
  &KLsealed_generic_functionGVKeW /* wrapper */,
  &gf_xep_2,
  &KDsignature_LobjectG_object_rest_value_2VKi,
  (D) 5,
  &K54,
  &K51,
  &RSINGULAR_Labsent_engine_nodeG
};

_KLsimple_methodGVKe Kname_to_stringVdfmc_environment_database = {
  &KLsimple_methodGVKeW /* wrapper */,
  &xep_1,
  &K43,
  &Kname_to_stringVdfmc_environment_databaseI
};

_KLsimple_methodGVKe Kmake_environment_object_for_type_expressionVdfmc_environment_database = {
  &KLsimple_methodGVKeW /* wrapper */,
  &xep_2,
  &K40,
  &Kmake_environment_object_for_type_expressionVdfmc_environment_databaseI
};

_KLsealed_generic_functionGVKe Ktype_expression_to_definitionVdfmc_environment_database = {
  &KLsealed_generic_functionGVKeW /* wrapper */,
  &gf_xep_2,
  &KDsignature_LobjectG_object_rest_value_2VKi,
  (D) 5,
  &K20,
  &K18,
  &RSINGULAR_Labsent_engine_nodeG
};

static _KLbyte_stringGVKd_24 K13 = {
  &KLbyte_stringGVKdW /* wrapper */,
  (D) 97,
  "Failed to find <object>!"
};

_KLsimple_methodGVKe Ktype_expression_to_definitionVdfmc_environment_databaseMM0 = {
  &KLsimple_methodGVKeW /* wrapper */,
  &xep_2,
  &K37,
  &Ktype_expression_to_definitionVdfmc_environment_databaseMM0I
};

_KLsimple_methodGVKe Ktype_expression_to_definitionVdfmc_environment_databaseMM1 = {
  &KLsimple_methodGVKeW /* wrapper */,
  &xep_2,
  &K28,
  &Ktype_expression_to_definitionVdfmc_environment_databaseMM1I
};

static _KLpairGVKd K18 = {
  &KLpairGVKdW /* wrapper */,
  &Ktype_expression_to_definitionVdfmc_environment_databaseMM0,
  &K19
};

static _KLpairGVKd K19 = {
  &KLpairGVKdW /* wrapper */,
  &Ktype_expression_to_definitionVdfmc_environment_databaseMM1,
  &KPempty_listVKi
};

static _KLbyte_stringGVKd_29 K20 = {
  &KLbyte_stringGVKdW /* wrapper */,
  (D) 117,
  "type-expression-to-definition"
};

static _KLsimple_closure_methodGVKi_0 Kanonymous_of_type_expression_to_definitionF25 = {
  &KLsimple_closure_methodGVKiW /* wrapper */,
  &xep_0,
  &K27,
  &Kanonymous_of_type_expression_to_definitionF25I,
  (D) 1
};

static _KLsymbolGVKd KJdfmc_environment_database_ = {
  &KLsymbolGVKdW /* wrapper */,
  &K24
};

static _KLbyte_stringGVKd_25 K24 = {
  &KLbyte_stringGVKdW /* wrapper */,
  (D) 101,
  "dfmc-environment-database"
};

static _KLbyte_stringGVKd_122 K26 = {
  &KLbyte_stringGVKdW /* wrapper */,
  (D) 489,
  "make-environment-object-for-type-expression: The type expression %= is a <class-definition> when it should be a <variable>"
};

static _KLsignatureGVKe K27 = {
  &KLsignatureGVKeW /* wrapper */,
  (D) 44040193,
  &KPempty_vectorVKi
};

static _KLsignatureAvaluesGVKi K28 = {
  &KLsignatureAvaluesGVKiW /* wrapper */,
  (D) 33555465,
  &K29,
  &K30
};

static _KLsimple_object_vectorGVKd_2 K29 = {
  &KLsimple_object_vectorGVKdW /* wrapper */,
  (D) 9,
  &KLdfmc_databaseGVdfmc_environment_database,
  &KLclass_definitionGVdfmc_definitions
};

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

static _KLunionGVKe K31 = {
  &KLunionGVKeW /* wrapper */,
  &Kunion_instanceQVKiI,
  &K32,
  &KLtop_level_formGVdfmc_common
};

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

static _KLsimple_closure_methodGVKi_0 Kanonymous_of_type_expression_to_definitionF35 = {
  &KLsimple_closure_methodGVKiW /* wrapper */,
  &xep_0,
  &K27,
  &Kanonymous_of_type_expression_to_definitionF35I,
  (D) 1
};

static _KLbyte_stringGVKd_33 K36 = {
  &KLbyte_stringGVKdW /* wrapper */,
  (D) 133,
  "No active definition found for %="
};

static _KLsignatureAvaluesGVKi K37 = {
  &KLsignatureAvaluesGVKiW /* wrapper */,
  (D) 33555465,
  &K38,
  &K30
};

static _KLsimple_object_vectorGVKd_2 K38 = {
  &KLsimple_object_vectorGVKdW /* wrapper */,
  (D) 9,
  &KLdfmc_databaseGVdfmc_environment_database,
  &K39
};

static _KLunionGVKe K39 = {
  &KLunionGVKeW /* wrapper */,
  &Kunion_instanceQVKiI,
  &K32,
  &KLtype_expressionGYdfmc_derived_informationVdfmc_browser_support
};

static _KLsignatureAvaluesGVKi K40 = {
  &KLsignatureAvaluesGVKiW /* wrapper */,
  (D) 33555465,
  &K38,
  &K41
};

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

static _KLsimple_typechecked_cache_header_engine_nodeGVKg K42 = {
  &KLsimple_typechecked_cache_header_engine_nodeGVKgW /* wrapper */,
  (D) 65593,
  &KPfalseVKi,
  &cache_header_engine_2,
  &RSINGULAR_Labsent_engine_nodeG,
  &Kmake_environment_object_for_source_formVdfmc_environment_database
};

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

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

_KLsimple_methodGVKe Kmake_environment_object_for_source_formVdfmc_environment_databaseMM0 = {
  &KLsimple_methodGVKeW /* wrapper */,
  &xep_2,
  &K65,
  &Kmake_environment_object_for_source_formVdfmc_environment_databaseMM0I
};

_KLsimple_methodGVKe Kmake_environment_object_for_source_formVdfmc_environment_databaseMM1 = {
  &KLsimple_methodGVKeW /* wrapper */,
  &xep_2,
  &K61,
  &Kmake_environment_object_for_source_formVdfmc_environment_databaseMM1I
};

_KLsimple_methodGVKe Kmake_environment_object_for_source_formVdfmc_environment_databaseMM2 = {
  &KLsimple_methodGVKeW /* wrapper */,
  &xep_2,
  &K57,
  &Kmake_environment_object_for_source_formVdfmc_environment_databaseMM2I
};

static _KLpairGVKd K51 = {
  &KLpairGVKdW /* wrapper */,
  &Kmake_environment_object_for_source_formVdfmc_environment_databaseMM0,
  &K52
};

static _KLpairGVKd K52 = {
  &KLpairGVKdW /* wrapper */,
  &Kmake_environment_object_for_source_formVdfmc_environment_databaseMM1,
  &K53
};

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

static _KLbyte_stringGVKd_39 K54 = {
  &KLbyte_stringGVKdW /* wrapper */,
  (D) 157,
  "make-environment-object-for-source-form"
};

static _KLbyte_stringGVKd_43 K56 = {
  &KLbyte_stringGVKdW /* wrapper */,
  (D) 173,
  "Unexpectedly failed to find database for %s"
};

static _KLsignatureAvaluesGVKi K57 = {
  &KLsignatureAvaluesGVKiW /* wrapper */,
  (D) 33555465,
  &K58,
  &K59
};

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

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

static _KLsimple_typechecked_cache_header_engine_nodeGVKg K60 = {
  &KLsimple_typechecked_cache_header_engine_nodeGVKgW /* wrapper */,
  (D) 65593,
  &KPfalseVKi,
  &cache_header_engine_2,
  &RSINGULAR_Labsent_engine_nodeG,
  &Kmake_environment_object_for_source_formVdfmc_environment_database
};

static _KLsignatureAvaluesGVKi K61 = {
  &KLsignatureAvaluesGVKiW /* wrapper */,
  (D) 37749769,
  &K62,
  &K41
};

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

static _KLsignatureAvaluesGVKi K65 = {
  &KLsignatureAvaluesGVKiW /* wrapper */,
  (D) 33555465,
  &K66,
  &K41
};

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

static _KLsymbolGVKd KJcontents_ = {
  &KLsymbolGVKdW /* wrapper */,
  &K69
};

static _KLunionGVKe K68 = {
  &KLunionGVKeW /* wrapper */,
  &Kunion_instanceQVKiI,
  &K32,
  &KLstringGVKd
};

static _KLbyte_stringGVKd_8 K69 = {
  &KLbyte_stringGVKdW /* wrapper */,
  (D) 33,
  "contents"
};

static _KLsignatureAvaluesGVKi K70 = {
  &KLsignatureAvaluesGVKiW /* wrapper */,
  (D) 33555465,
  &K71,
  &K72
};

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

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

static _KLimplementation_classGVKe K73 = {
  &KLimplementation_classGVKeW /* wrapper */,
  (D) 527433737,
  &KLdfmc_type_expression_objectGVdfmc_environment_database,
  &KLdfmc_type_expression_objectGVdfmc_environment_databaseW,
  &KPfalseVKi,
  &K74,
  (D) -3,
  &KLdfmc_type_expression_objectGZ32ZconstructorVdfmc_environment_databaseMM0,
  &K77,
  &K78,
  (D) 33,
  &KPempty_vectorVKi,
  &KPempty_vectorVKi,
  &KPempty_listVKi,
  &KPempty_listVKi,
  &KPempty_listVKi,
  &KPempty_vectorVKi,
  &KPempty_vectorVKi,
  &K74,
  &KPempty_vectorVKi,
  &KPempty_vectorVKi,
  &KPempty_vectorVKi,
  &KPempty_vectorVKi,
  &KPempty_vectorVKi
};

static _KLsimple_object_vectorGVKd_2 K74 = {
  &KLsimple_object_vectorGVKdW /* wrapper */,
  (D) 9,
  &KPprimitive_nameVenvironment_protocolsHLenvironment_objectG,
  &Kcompiler_object_proxyVenvironment_protocolsHLcompiler_objectG
};

_KLkeyword_methodGVKe KLdfmc_type_expression_objectGZ32ZconstructorVdfmc_environment_databaseMM0 = {
  &KLkeyword_methodGVKeW /* wrapper */,
  &rest_key_xep_4,
  &K83,
  &key_mep_2,
  &KLdfmc_type_expression_objectGZ32ZconstructorVdfmc_environment_databaseMM0I,
  &K84
};

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

static _KLsimple_object_vectorGVKd_9 K78 = {
  &KLsimple_object_vectorGVKdW /* wrapper */,
  (D) 37,
  &KLobjectGVKd,
  &KLenvironment_objectGVenvironment_protocols,
  &KLcompiler_objectGVenvironment_protocols,
  &KLdylan_objectGVenvironment_protocols,
  &KLdylan_compiler_objectGVenvironment_protocols,
  &KLexpression_objectGVenvironment_protocols,
  &KLtype_expression_objectGVenvironment_protocols,
  &KLcomplex_type_expression_objectGVenvironment_protocols,
  &KLdfmc_type_expression_objectGVdfmc_environment_database
};

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

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

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

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

static _KLkeyword_signatureAvaluesGVKi K83 = {
  &KLkeyword_signatureAvaluesGVKiW /* wrapper */,
  (D) 35390469,
  &KDsignature_LclassG_typesVKi,
  &K85,
  &KDsignature_LobjectG_typesVKi,
  &K86
};

static _KLsimple_object_vectorGVKd_4 K84 = {
  &KLsimple_object_vectorGVKdW /* wrapper */,
  (D) 17,
  &KJname_,
  &KPfalseVKi,
  &KJcompiler_object_proxy_,
  &KPunboundVKi
};

static _KLsimple_object_vectorGVKd_2 K85 = {
  &KLsimple_object_vectorGVKdW /* wrapper */,
  (D) 9,
  &KJname_,
  &KJcompiler_object_proxy_
};

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

static _KLbyte_stringGVKd_29 K87 = {
  &KLbyte_stringGVKdW /* wrapper */,
  (D) 117,
  "<dfmc-type-expression-object>"
};

/* Code */

D Kenvironment_object_primitive_nameVenvironment_protocolsMdfmc_environment_databaseM0I (D server_, D expression_) {
  D T3_0;
  D T4;
  D T5;
  D T6_0;
  _KLsimple_object_vectorGVKd_4 T7 = {&KLsimple_object_vectorGVKdW, (D) 17};
  D T8;
  D T9_0;

  // /Users/bruce/Development/dylan/opendylan/sources/environment/dfmc/database/utilities.dylan:96
  // /Users/bruce/Development/dylan/opendylan/sources/environment/dfmc/database/utilities.dylan:100
  T4 = KmakeVKdMM33I(&KLbyte_stringGVKd, &KPempty_vectorVKi, C(' '), (D) 129);
  // /Users/bruce/Development/dylan/opendylan/sources/environment/dfmc/database/utilities.dylan:99
  T7.vector_element_[0] = IKJcontents_;
  T7.vector_element_[1] = T4;
  T7.vector_element_[2] = &KJdirection_;
  T7.vector_element_[3] = &KJoutput_;
  // /Users/bruce/Development/dylan/opendylan/sources/environment/dfmc/database/utilities.dylan:99
  T6_0 = KLbyte_string_streamGZ32ZconstructorYstreams_internalsVioMM0I(&KLbyte_string_streamGYstreamsVio, &T7, &KPunboundVKi, &KLobjectGVKd, &KPfalseVKi, T4);
  // /Users/bruce/Development/dylan/opendylan/sources/environment/dfmc/database/utilities.dylan:99
  T5 = T6_0;
  // /Users/bruce/Development/dylan/opendylan/sources/environment/dfmc/database/utilities.dylan:101
  T8 = SLOT_VALUE_INITD(expression_, 1);
  // /Users/bruce/Development/dylan/opendylan/sources/environment/dfmc/database/utilities.dylan:101
  KprintYprintVioMM0I(T8, T5, &KPempty_vectorVKi, &KPunboundVKi, &KPunboundVKi, &KPunboundVKi, &KPunboundVKi, &KPfalseVKi);
  // /Users/bruce/Development/dylan/opendylan/sources/environment/dfmc/database/utilities.dylan:102
  T9_0 = Kstream_contentsYstreams_protocolVcommon_dylanMioM0I(T5, &KPempty_vectorVKi, &KPtrueVKi);
  // /Users/bruce/Development/dylan/opendylan/sources/environment/dfmc/database/utilities.dylan:96
  T3_0 = T9_0;
  {
    MV_CHECK_TYPE_PROLOGUE(T9_0);
    primitive_type_check(T3_0, &K68);
    MV_CHECK_TYPE_EPILOGUE();
  }
  // /Users/bruce/Development/dylan/opendylan/sources/environment/dfmc/database/utilities.dylan:96
  MV_SET_COUNT(1);
  return(T3_0);
}

D Kname_to_stringVdfmc_environment_databaseI (D name_) {
  D T2;
  D T3_0;
  D T4_0;
  D T5;
  D T6_0;

  // /Users/bruce/Development/dylan/opendylan/sources/environment/dfmc/database/utilities.dylan:163
  // /Users/bruce/Development/dylan/opendylan/sources/environment/dfmc/database/utilities.dylan:165
  T2 = SLOT_VALUE_INITD(name_, 0);
  // /Users/bruce/Development/dylan/opendylan/sources/environment/dfmc/database/utilities.dylan:165
  T3_0 = T2;
  // /Users/bruce/Development/dylan/opendylan/sources/environment/dfmc/database/utilities.dylan:165
  T4_0 = T3_0;
  {
    MV_CHECK_TYPE_PROLOGUE(T3_0);
    primitive_type_check(T4_0, &KLbyte_stringGVKd);
    MV_CHECK_TYPE_EPILOGUE();
  }
  // /Users/bruce/Development/dylan/opendylan/sources/environment/dfmc/database/utilities.dylan:165
  T5 = T4_0;
  // /Users/bruce/Development/dylan/opendylan/sources/environment/dfmc/database/utilities.dylan:165
  T6_0 = Kas_lowercaseVKdMM2I(T5);
  // /Users/bruce/Development/dylan/opendylan/sources/environment/dfmc/database/utilities.dylan:163
  MV_SET_COUNT(1);
  return(T6_0);
}

D Kmake_environment_object_for_type_expressionVdfmc_environment_databaseI (D server_, D type_expression_) {
  D T3_0;
  D type_definition_;
  D T5;
  D T6_0;
  D T7;
  D T8_0;
  D T9_0;

  // /Users/bruce/Development/dylan/opendylan/sources/environment/dfmc/database/utilities.dylan:105
  // /Users/bruce/Development/dylan/opendylan/sources/environment/dfmc/database/utilities.dylan:108
  type_definition_ = Ktype_expression_to_definitionVdfmc_environment_databaseMM0I(server_, type_expression_);
  // /Users/bruce/Development/dylan/opendylan/sources/environment/dfmc/database/utilities.dylan:109
  if (type_definition_ != &KPfalseVKi) {
    // /Users/bruce/Development/dylan/opendylan/sources/environment/dfmc/database/utilities.dylan:111
    T5 = SLOT_VALUE_INITD(server_, 1);
    // /Users/bruce/Development/dylan/opendylan/sources/environment/dfmc/database/utilities.dylan:110
    ENGINE_NODE_CALL_PROLOG(&Kmake_environment_object_for_source_formVdfmc_environment_database, &K42, 2);
    T6_0 = ENGINE_NODE_CALL2(&K42, T5, type_definition_);
    // /Users/bruce/Development/dylan/opendylan/sources/environment/dfmc/database/utilities.dylan:110
    T9_0 = T6_0;
    {
      MV_CHECK_TYPE_PROLOGUE(T6_0);
      primitive_type_check(T9_0, &KLenvironment_objectGVenvironment_protocols);
      MV_CHECK_TYPE_EPILOGUE();
    }
    T3_0 = T9_0;
  } else {
    // /Users/bruce/Development/dylan/opendylan/sources/environment/dfmc/database/utilities.dylan:114
    T7 = SLOT_VALUE_INITD(server_, 1);
    // /Users/bruce/Development/dylan/opendylan/sources/environment/dfmc/database/utilities.dylan:113
    T8_0 = Kmake_environment_objectVenvironment_protocolsMM1I(&KLdfmc_type_expression_objectGVdfmc_environment_database, &KPempty_vectorVKi, T7, &KPfalseVKi, &KPfalseVKi, &KPfalseVKi, type_expression_);
    T3_0 = T8_0;
  }
  // /Users/bruce/Development/dylan/opendylan/sources/environment/dfmc/database/utilities.dylan:109
  // /Users/bruce/Development/dylan/opendylan/sources/environment/dfmc/database/utilities.dylan:105
  MV_SET_COUNT(1);
  return(T3_0);
}

D Kfind_LobjectGVdfmc_environment_databaseI (D server_) {
  D Utmp_;
  D T3_0;
  D T4_0;
  D T5_0;
  D T6_0;

  // /Users/bruce/Development/dylan/opendylan/sources/environment/dfmc/database/utilities.dylan:119
  // /Users/bruce/Development/dylan/opendylan/sources/environment/dfmc/database/utilities.dylan:122
  Utmp_ = CALL2(&Kfind_compiler_database_proxyVenvironment_protocols, server_, DLobjectG_idVenvironment_protocols);
  // /Users/bruce/Development/dylan/opendylan/sources/environment/dfmc/database/utilities.dylan:122
  if (Utmp_ != &KPfalseVKi) {
    // /Users/bruce/Development/dylan/opendylan/sources/environment/dfmc/database/utilities.dylan:122
    T3_0 = Utmp_;
    // /Users/bruce/Development/dylan/opendylan/sources/environment/dfmc/database/utilities.dylan:122
    T6_0 = T3_0;
    {
      MV_CHECK_TYPE_PROLOGUE(T3_0);
      primitive_type_check(T6_0, &KLtop_level_formGVdfmc_common);
      MV_CHECK_TYPE_EPILOGUE();
    }
    T4_0 = T6_0;
  } else {
    // /Users/bruce/Development/dylan/opendylan/sources/environment/dfmc/database/utilities.dylan:123
    T5_0 = KerrorVKdMM1I(&K13, &KPempty_vectorVKi);
    T4_0 = T5_0;
  }
  // /Users/bruce/Development/dylan/opendylan/sources/environment/dfmc/database/utilities.dylan:122
  // /Users/bruce/Development/dylan/opendylan/sources/environment/dfmc/database/utilities.dylan:119
  MV_SET_COUNT(1);
  return(T4_0);
}

D Ktype_expression_to_definitionVdfmc_environment_databaseMM0I (D server_, D type_expression_) {
  D T3_0;
  D T4_0;
  D definition_;
  D T6;
  D T7_0;
  D T8_0;
  D T9_0;
  D T10_0;
  D T11_0;
  D T12;
  D context_;
  D T14;
  D T15;
  D T16;
  D T17;
  D T18;
  D T19;
  D T20;
  D T21;
  D T22_0;
  D T23;
  D T24;
  D T25;
  D T26_0;

  // /Users/bruce/Development/dylan/opendylan/sources/environment/dfmc/database/utilities.dylan:126
  // /Users/bruce/Development/dylan/opendylan/sources/environment/dfmc/database/utilities.dylan:129
  context_ = Kbrowsing_contextVdfmc_environment_databaseMM2I(server_, server_);
  // /Users/bruce/Development/dylan/opendylan/sources/environment/dfmc/database/utilities.dylan:132
  T14 = primitive_idQ(type_expression_,&KPtrueVKi);
  // /Users/bruce/Development/dylan/opendylan/sources/environment/dfmc/database/utilities.dylan:131
  if (T14 != &KPfalseVKi) {
    // /Users/bruce/Development/dylan/opendylan/sources/environment/dfmc/database/utilities.dylan:133
    T3_0 = &KPfalseVKi;
    T11_0 = T3_0;
  } else {
    // /Users/bruce/Development/dylan/opendylan/sources/environment/dfmc/database/utilities.dylan:131
    if (type_expression_ != &KPfalseVKi) {
      // /Users/bruce/Development/dylan/opendylan/sources/environment/dfmc/database/utilities.dylan:136
      T15 = primitive_instanceQ(type_expression_,&KLvariable_nameGVdfmc_common);
      // /Users/bruce/Development/dylan/opendylan/sources/environment/dfmc/database/utilities.dylan:131
      if (T15 != &KPfalseVKi) {
        // /Users/bruce/Development/dylan/opendylan/sources/environment/dfmc/database/utilities.dylan:108
        T12 = type_expression_;
        // /Users/bruce/Development/dylan/opendylan/sources/environment/dfmc/database/utilities.dylan:138
        definition_ = CALL2(&Kvariable_active_definitionYdfmc_derived_informationVdfmc_browser_support, context_, T12);
        // /Users/bruce/Development/dylan/opendylan/sources/environment/dfmc/database/utilities.dylan:139
        if (definition_ == &KPfalseVKi) {
          // /Users/bruce/Development/dylan/opendylan/sources/environment/dfmc/database/utilities.dylan:140
          T16 = TdebuggingQTVKi;
          // /Users/bruce/Development/dylan/opendylan/sources/environment/dfmc/database/utilities.dylan:140
          if (T16 != &KPfalseVKi) {
            // /Users/bruce/Development/dylan/opendylan/sources/environment/dfmc/database/utilities.dylan:140
            T17 = Tdebug_partsTVKi;
            // /Users/bruce/Development/dylan/opendylan/sources/environment/dfmc/database/utilities.dylan:140
            T18 = primitive_idQ(T17,&KPempty_listVKi);
            // /Users/bruce/Development/dylan/opendylan/sources/environment/dfmc/database/utilities.dylan:140
            T19 = primitive_not(T18);
            T20 = T19;
          } else {
            T20 = &KPfalseVKi;
          }
          // /Users/bruce/Development/dylan/opendylan/sources/environment/dfmc/database/utilities.dylan:140
          // /Users/bruce/Development/dylan/opendylan/sources/environment/dfmc/database/utilities.dylan:140
          if (T20 != &KPfalseVKi) {
            // /Users/bruce/Development/dylan/opendylan/sources/environment/dfmc/database/utilities.dylan:140
            T21 = Tdebug_partsTVKi;
            // /Users/bruce/Development/dylan/opendylan/sources/environment/dfmc/database/utilities.dylan:140
            T22_0 = KmemberQVKdMM3I(IKJdfmc_environment_database_, T21, &KPempty_vectorVKi, &KEEVKd);
            // /Users/bruce/Development/dylan/opendylan/sources/environment/dfmc/database/utilities.dylan:140
            T23 = T22_0;
            T24 = T23;
          } else {
            T24 = &KPfalseVKi;
          }
          // /Users/bruce/Development/dylan/opendylan/sources/environment/dfmc/database/utilities.dylan:140
          // /Users/bruce/Development/dylan/opendylan/sources/environment/dfmc/database/utilities.dylan:140
          if (T24 != &KPfalseVKi) {
            // /Users/bruce/Development/dylan/opendylan/sources/environment/dfmc/database/utilities.dylan:140
            T25 = Tdebug_out_functionTVKi;
            // /Users/bruce/Development/dylan/opendylan/sources/environment/dfmc/database/utilities.dylan:140
            T6 = MAKE_CLOSURE_INITD(&Kanonymous_of_type_expression_to_definitionF35, 1, type_expression_);
            // /Users/bruce/Development/dylan/opendylan/sources/environment/dfmc/database/utilities.dylan:140
            CALL1(T25, T6);
          }
          // /Users/bruce/Development/dylan/opendylan/sources/environment/dfmc/database/utilities.dylan:140
        }
        // /Users/bruce/Development/dylan/opendylan/sources/environment/dfmc/database/utilities.dylan:139
        // /Users/bruce/Development/dylan/opendylan/sources/environment/dfmc/database/utilities.dylan:144
        T7_0 = definition_;
        // /Users/bruce/Development/dylan/opendylan/sources/environment/dfmc/database/utilities.dylan:144
        T26_0 = T7_0;
        {
          MV_CHECK_TYPE_PROLOGUE(T7_0);
          primitive_type_check(T26_0, &K31);
          MV_CHECK_TYPE_EPILOGUE();
        }
        T9_0 = T26_0;
      } else {
        // /Users/bruce/Development/dylan/opendylan/sources/environment/dfmc/database/utilities.dylan:131
        T8_0 = &KPfalseVKi;
        T9_0 = T8_0;
      }
      // /Users/bruce/Development/dylan/opendylan/sources/environment/dfmc/database/utilities.dylan:131
      T10_0 = T9_0;
    } else {
      // /Users/bruce/Development/dylan/opendylan/sources/environment/dfmc/database/utilities.dylan:135
      T4_0 = Kfind_LobjectGVdfmc_environment_databaseI(server_);
      T10_0 = T4_0;
    }
    // /Users/bruce/Development/dylan/opendylan/sources/environment/dfmc/database/utilities.dylan:131
    T11_0 = T10_0;
  }
  // /Users/bruce/Development/dylan/opendylan/sources/environment/dfmc/database/utilities.dylan:131
  // /Users/bruce/Development/dylan/opendylan/sources/environment/dfmc/database/utilities.dylan:126
  MV_SET_COUNT(1);
  return(T11_0);
}

D Ktype_expression_to_definitionVdfmc_environment_databaseMM1I (D server_, D type_expression_) {
  D T3;
  D T4_0;
  D T5;
  D T6;
  D T7;
  D T8;
  D T9;
  D T10;
  D T11_0;
  D T12;
  D T13;
  D T14;

  // /Users/bruce/Development/dylan/opendylan/sources/environment/dfmc/database/utilities.dylan:148
  // /Users/bruce/Development/dylan/opendylan/sources/environment/dfmc/database/utilities.dylan:155
  T5 = TdebuggingQTVKi;
  // /Users/bruce/Development/dylan/opendylan/sources/environment/dfmc/database/utilities.dylan:155
  if (T5 != &KPfalseVKi) {
    // /Users/bruce/Development/dylan/opendylan/sources/environment/dfmc/database/utilities.dylan:155
    T6 = Tdebug_partsTVKi;
    // /Users/bruce/Development/dylan/opendylan/sources/environment/dfmc/database/utilities.dylan:155
    T7 = primitive_idQ(T6,&KPempty_listVKi);
    // /Users/bruce/Development/dylan/opendylan/sources/environment/dfmc/database/utilities.dylan:155
    T8 = primitive_not(T7);
    T9 = T8;
  } else {
    T9 = &KPfalseVKi;
  }
  // /Users/bruce/Development/dylan/opendylan/sources/environment/dfmc/database/utilities.dylan:155
  // /Users/bruce/Development/dylan/opendylan/sources/environment/dfmc/database/utilities.dylan:155
  if (T9 != &KPfalseVKi) {
    // /Users/bruce/Development/dylan/opendylan/sources/environment/dfmc/database/utilities.dylan:155
    T10 = Tdebug_partsTVKi;
    // /Users/bruce/Development/dylan/opendylan/sources/environment/dfmc/database/utilities.dylan:155
    T11_0 = KmemberQVKdMM3I(IKJdfmc_environment_database_, T10, &KPempty_vectorVKi, &KEEVKd);
    // /Users/bruce/Development/dylan/opendylan/sources/environment/dfmc/database/utilities.dylan:155
    T12 = T11_0;
    T13 = T12;
  } else {
    T13 = &KPfalseVKi;
  }
  // /Users/bruce/Development/dylan/opendylan/sources/environment/dfmc/database/utilities.dylan:155
  // /Users/bruce/Development/dylan/opendylan/sources/environment/dfmc/database/utilities.dylan:155
  if (T13 != &KPfalseVKi) {
    // /Users/bruce/Development/dylan/opendylan/sources/environment/dfmc/database/utilities.dylan:155
    T14 = Tdebug_out_functionTVKi;
    // /Users/bruce/Development/dylan/opendylan/sources/environment/dfmc/database/utilities.dylan:155
    T3 = MAKE_CLOSURE_INITD(&Kanonymous_of_type_expression_to_definitionF25, 1, type_expression_);
    // /Users/bruce/Development/dylan/opendylan/sources/environment/dfmc/database/utilities.dylan:155
    CALL1(T14, T3);
  }
  // /Users/bruce/Development/dylan/opendylan/sources/environment/dfmc/database/utilities.dylan:155
  // /Users/bruce/Development/dylan/opendylan/sources/environment/dfmc/database/utilities.dylan:160
  T4_0 = type_expression_;
  // /Users/bruce/Development/dylan/opendylan/sources/environment/dfmc/database/utilities.dylan:148
  MV_SET_COUNT(1);
  return(T4_0);
}

static D Kanonymous_of_type_expression_to_definitionF25I () {
  _KLsimple_object_vectorGVKd_2 T0 = {&KLsimple_object_vectorGVKdW, (D) 9};
  D T1;
  D T2_0;
  CAPTURE_ENVIRONMENT

  // /Users/bruce/Development/dylan/opendylan/sources/environment/dfmc/database/utilities.dylan:155
  // /Users/bruce/Development/dylan/opendylan/sources/environment/dfmc/database/utilities.dylan:155
  T0.vector_element_[0] = &K26;
  T0.vector_element_[1] = CREF(0);
  // /Users/bruce/Development/dylan/opendylan/sources/environment/dfmc/database/utilities.dylan:155
  T1 = primitive_copy_vector(&T0);
  // /Users/bruce/Development/dylan/opendylan/sources/environment/dfmc/database/utilities.dylan:155
  T2_0 = T1;
  // /Users/bruce/Development/dylan/opendylan/sources/environment/dfmc/database/utilities.dylan:155
  MV_SET_COUNT(1);
  return(T2_0);
}

static D Kanonymous_of_type_expression_to_definitionF35I () {
  _KLsimple_object_vectorGVKd_2 T0 = {&KLsimple_object_vectorGVKdW, (D) 9};
  D T1;
  D T2_0;
  CAPTURE_ENVIRONMENT

  // /Users/bruce/Development/dylan/opendylan/sources/environment/dfmc/database/utilities.dylan:140
  // /Users/bruce/Development/dylan/opendylan/sources/environment/dfmc/database/utilities.dylan:140
  T0.vector_element_[0] = &K36;
  T0.vector_element_[1] = CREF(0);
  // /Users/bruce/Development/dylan/opendylan/sources/environment/dfmc/database/utilities.dylan:140
  T1 = primitive_copy_vector(&T0);
  // /Users/bruce/Development/dylan/opendylan/sources/environment/dfmc/database/utilities.dylan:140
  T2_0 = T1;
  // /Users/bruce/Development/dylan/opendylan/sources/environment/dfmc/database/utilities.dylan:140
  MV_SET_COUNT(1);
  return(T2_0);
}

D Kmake_environment_object_for_source_formVdfmc_environment_databaseMM0I (D server_, D definition_) {
  D T3;
  D T4_0;
  D T5_0;
  D T6_0;
  D T7;
  D T8;
  D T9;
  D T10;
  D T11;
  D T12;
  D T13;
  D T14;
  D T15;
  D T16;
  D T17;
  D T18;
  D T19;
  D T20;
  D T21;
  D T22;
  D T23;
  D T24;
  D T25;
  D T26;
  D T27;
  D T28;
  D T29;
  D T30;
  D T31;
  D T32;
  D T33;
  D T34;
  D T35_0;

  // /Users/bruce/Development/dylan/opendylan/sources/environment/dfmc/database/utilities.dylan:58
  // /Users/bruce/Development/dylan/opendylan/sources/environment/dfmc/database/utilities.dylan:62
  T9 = primitive_instanceQ(definition_,&KLmodule_definitionGVdfmc_definitions);
  // /Users/bruce/Development/dylan/opendylan/sources/environment/dfmc/database/utilities.dylan:62
  if (T9 != &KPfalseVKi) {
    T34 = &KLmodule_objectGVenvironment_protocols;
  } else {
    // /Users/bruce/Development/dylan/opendylan/sources/environment/dfmc/database/utilities.dylan:62
    T10 = primitive_instanceQ(definition_,&KLexpander_defining_formGVdfmc_definitions);
    // /Users/bruce/Development/dylan/opendylan/sources/environment/dfmc/database/utilities.dylan:62
    if (T10 != &KPfalseVKi) {
      T33 = &KLmacro_objectGVenvironment_protocols;
    } else {
      // /Users/bruce/Development/dylan/opendylan/sources/environment/dfmc/database/utilities.dylan:62
      T11 = primitive_instanceQ(definition_,&KLmethod_definitionGVdfmc_definitions);
      // /Users/bruce/Development/dylan/opendylan/sources/environment/dfmc/database/utilities.dylan:62
      if (T11 != &KPfalseVKi) {
        // /Users/bruce/Development/dylan/opendylan/sources/environment/dfmc/database/utilities.dylan:62
        T4_0 = Kmethod_classF64I(definition_, server_);
        // /Users/bruce/Development/dylan/opendylan/sources/environment/dfmc/database/utilities.dylan:62
        T20 = T4_0;
        T32 = T20;
      } else {
        // /Users/bruce/Development/dylan/opendylan/sources/environment/dfmc/database/utilities.dylan:62
        T12 = primitive_instanceQ(definition_,&KLgeneric_definitionGVdfmc_definitions);
        // /Users/bruce/Development/dylan/opendylan/sources/environment/dfmc/database/utilities.dylan:62
        if (T12 != &KPfalseVKi) {
          T31 = &KLgeneric_function_objectGVenvironment_protocols;
        } else {
          // /Users/bruce/Development/dylan/opendylan/sources/environment/dfmc/database/utilities.dylan:62
          T13 = primitive_instanceQ(definition_,&KLfunction_definitionGVdfmc_definitions);
          // /Users/bruce/Development/dylan/opendylan/sources/environment/dfmc/database/utilities.dylan:62
          if (T13 != &KPfalseVKi) {
            // /Users/bruce/Development/dylan/opendylan/sources/environment/dfmc/database/utilities.dylan:62
            T5_0 = Kmethod_classF64I(definition_, server_);
            // /Users/bruce/Development/dylan/opendylan/sources/environment/dfmc/database/utilities.dylan:62
            T21 = T5_0;
            T30 = T21;
          } else {
            // /Users/bruce/Development/dylan/opendylan/sources/environment/dfmc/database/utilities.dylan:62
            T14 = primitive_instanceQ(definition_,&KLconstant_method_definitionGVdfmc_definitions);
            // /Users/bruce/Development/dylan/opendylan/sources/environment/dfmc/database/utilities.dylan:62
            if (T14 != &KPfalseVKi) {
              // /Users/bruce/Development/dylan/opendylan/sources/environment/dfmc/database/utilities.dylan:62
              T6_0 = Kmethod_classF64I(definition_, server_);
              // /Users/bruce/Development/dylan/opendylan/sources/environment/dfmc/database/utilities.dylan:62
              T22 = T6_0;
              T29 = T22;
            } else {
              // /Users/bruce/Development/dylan/opendylan/sources/environment/dfmc/database/utilities.dylan:62
              T15 = primitive_instanceQ(definition_,&KLconstant_definitionGVdfmc_definitions);
              // /Users/bruce/Development/dylan/opendylan/sources/environment/dfmc/database/utilities.dylan:62
              if (T15 != &KPfalseVKi) {
                T28 = &KLconstant_objectGVenvironment_protocols;
              } else {
                // /Users/bruce/Development/dylan/opendylan/sources/environment/dfmc/database/utilities.dylan:62
                T16 = primitive_instanceQ(definition_,&KLdomain_definitionGVdfmc_definitions);
                // /Users/bruce/Development/dylan/opendylan/sources/environment/dfmc/database/utilities.dylan:62
                if (T16 != &KPfalseVKi) {
                  T27 = &KLdomain_objectGVenvironment_protocols;
                } else {
                  // /Users/bruce/Development/dylan/opendylan/sources/environment/dfmc/database/utilities.dylan:62
                  T17 = primitive_instanceQ(definition_,&KLclass_definitionGVdfmc_definitions);
                  // /Users/bruce/Development/dylan/opendylan/sources/environment/dfmc/database/utilities.dylan:62
                  if (T17 != &KPfalseVKi) {
                    T26 = &KLclass_objectGVenvironment_protocols;
                  } else {
                    // /Users/bruce/Development/dylan/opendylan/sources/environment/dfmc/database/utilities.dylan:62
                    T18 = primitive_instanceQ(definition_,&KLmacro_call_formGVdfmc_common);
                    // /Users/bruce/Development/dylan/opendylan/sources/environment/dfmc/database/utilities.dylan:62
                    if (T18 != &KPfalseVKi) {
                      T25 = &KLsimple_macro_call_objectGVenvironment_protocols;
                    } else {
                      // /Users/bruce/Development/dylan/opendylan/sources/environment/dfmc/database/utilities.dylan:62
                      T19 = primitive_instanceQ(definition_,&KLvariable_definitionGVdfmc_definitions);
                      // /Users/bruce/Development/dylan/opendylan/sources/environment/dfmc/database/utilities.dylan:62
                      if (T19 != &KPfalseVKi) {
                        // /Users/bruce/Development/dylan/opendylan/sources/environment/dfmc/database/utilities.dylan:62
                        CONGRUENT_CALL_PROLOG(&Kform_adjectivesVdfmc_common, 1);
                        T7 = CONGRUENT_CALL1(definition_);
                        // /Users/bruce/Development/dylan/opendylan/sources/environment/dfmc/database/utilities.dylan:62
                        T8 = CALL2(&KmemberQVKd, &KJthread_, T7);
                        // /Users/bruce/Development/dylan/opendylan/sources/environment/dfmc/database/utilities.dylan:62
                        if (T8 != &KPfalseVKi) {
                          T23 = &KLthread_variable_objectGVenvironment_protocols;
                        } else {
                          T23 = &KLglobal_variable_objectGVenvironment_protocols;
                        }
                        // /Users/bruce/Development/dylan/opendylan/sources/environment/dfmc/database/utilities.dylan:62
                        T24 = T23;
                      } else {
                        T24 = &KLtop_level_expression_objectGVenvironment_protocols;
                      }
                      // /Users/bruce/Development/dylan/opendylan/sources/environment/dfmc/database/utilities.dylan:62
                      T25 = T24;
                    }
                    // /Users/bruce/Development/dylan/opendylan/sources/environment/dfmc/database/utilities.dylan:62
                    T26 = T25;
                  }
                  // /Users/bruce/Development/dylan/opendylan/sources/environment/dfmc/database/utilities.dylan:62
                  T27 = T26;
                }
                // /Users/bruce/Development/dylan/opendylan/sources/environment/dfmc/database/utilities.dylan:62
                T28 = T27;
              }
              // /Users/bruce/Development/dylan/opendylan/sources/environment/dfmc/database/utilities.dylan:62
              T29 = T28;
            }
            // /Users/bruce/Development/dylan/opendylan/sources/environment/dfmc/database/utilities.dylan:62
            T30 = T29;
          }
          // /Users/bruce/Development/dylan/opendylan/sources/environment/dfmc/database/utilities.dylan:62
          T31 = T30;
        }
        // /Users/bruce/Development/dylan/opendylan/sources/environment/dfmc/database/utilities.dylan:62
        T32 = T31;
      }
      // /Users/bruce/Development/dylan/opendylan/sources/environment/dfmc/database/utilities.dylan:62
      T33 = T32;
    }
    // /Users/bruce/Development/dylan/opendylan/sources/environment/dfmc/database/utilities.dylan:62
    T34 = T33;
  }
  // /Users/bruce/Development/dylan/opendylan/sources/environment/dfmc/database/utilities.dylan:62
  // /Users/bruce/Development/dylan/opendylan/sources/environment/dfmc/database/utilities.dylan:64
  CONGRUENT_CALL_PROLOG(&Kserver_projectVenvironment_protocols, 1);
  T3 = CONGRUENT_CALL1(server_);
  // /Users/bruce/Development/dylan/opendylan/sources/environment/dfmc/database/utilities.dylan:63
  T35_0 = Kmake_environment_objectVenvironment_protocolsMM2I(T34, &KPempty_vectorVKi, T3, &KPfalseVKi, &KPfalseVKi, &KPfalseVKi, definition_);
  // /Users/bruce/Development/dylan/opendylan/sources/environment/dfmc/database/utilities.dylan:58
  MV_SET_COUNT(1);
  return(T35_0);
}

D Kmake_environment_object_for_source_formVdfmc_environment_databaseMM1I (D server_, D form_) {
  D T3;
  D T4;
  D Utmp_;
  D forms_;
  D T7;
  D T8;
  D T9;
  D T10_0;
  D T11;
  D T12_0;
  D T13;
  D T14_0;
  D T15_0;

  // /Users/bruce/Development/dylan/opendylan/sources/environment/dfmc/database/utilities.dylan:70
  // /Users/bruce/Development/dylan/opendylan/sources/environment/dfmc/database/utilities.dylan:73
  CONGRUENT_CALL_PROLOG(&Kform_define_wordVdfmc_common, 1);
  T3 = CONGRUENT_CALL1(form_);
  // /Users/bruce/Development/dylan/opendylan/sources/environment/dfmc/database/utilities.dylan:73
  T11 = primitive_idQ(T3,&KJfunction_);
  // /Users/bruce/Development/dylan/opendylan/sources/environment/dfmc/database/utilities.dylan:74
  if (T11 != &KPfalseVKi) {
    // /Users/bruce/Development/dylan/opendylan/sources/environment/dfmc/database/utilities.dylan:74
    T4 = Kmacro_form_expanded_formsYdfmc_derived_informationVdfmc_browser_supportI(form_);
    Utmp_ = T4;
  } else {
    Utmp_ = &KPfalseVKi;
  }
  // /Users/bruce/Development/dylan/opendylan/sources/environment/dfmc/database/utilities.dylan:74
  // /Users/bruce/Development/dylan/opendylan/sources/environment/dfmc/database/utilities.dylan:74
  if (Utmp_ != &KPfalseVKi) {
    forms_ = Utmp_;
  } else {
    forms_ = &KPempty_vectorVKi;
  }
  // /Users/bruce/Development/dylan/opendylan/sources/environment/dfmc/database/utilities.dylan:74
  // /Users/bruce/Development/dylan/opendylan/sources/environment/dfmc/database/utilities.dylan:75
  CONGRUENT_CALL_PROLOG(&KsizeVKd, 1);
  T7 = CONGRUENT_CALL1(forms_);
  // /Users/bruce/Development/dylan/opendylan/sources/environment/dfmc/database/utilities.dylan:75
  CONGRUENT_CALL_PROLOG(&KEVKd, 2);
  T8 = CONGRUENT_CALL2(T7, (D) 5);
  // /Users/bruce/Development/dylan/opendylan/sources/environment/dfmc/database/utilities.dylan:75
  if (T8 != &KPfalseVKi) {
    // /Users/bruce/Development/dylan/opendylan/sources/environment/dfmc/database/utilities.dylan:76
    T9 = CALL2(&KelementVKd, forms_, (D) 1);
    // /Users/bruce/Development/dylan/opendylan/sources/environment/dfmc/database/utilities.dylan:76
    ENGINE_NODE_CALL_PROLOG(&Kmake_environment_object_for_source_formVdfmc_environment_database, &K60, 2);
    T12_0 = ENGINE_NODE_CALL2(&K60, server_, T9);
    // /Users/bruce/Development/dylan/opendylan/sources/environment/dfmc/database/utilities.dylan:76
    T15_0 = T12_0;
    {
      MV_CHECK_TYPE_PROLOGUE(T12_0);
      primitive_type_check(T15_0, &KLenvironment_objectGVenvironment_protocols);
      MV_CHECK_TYPE_EPILOGUE();
    }
    T10_0 = T15_0;
  } else {
    // /Users/bruce/Development/dylan/opendylan/sources/environment/dfmc/database/utilities.dylan:78
    T13 = Kmake_environment_object_for_source_formVdfmc_environment_databaseMM0I(server_, form_);
    // /Users/bruce/Development/dylan/opendylan/sources/environment/dfmc/database/utilities.dylan:78
    T14_0 = T13;
    T10_0 = T14_0;
  }
  // /Users/bruce/Development/dylan/opendylan/sources/environment/dfmc/database/utilities.dylan:75
  // /Users/bruce/Development/dylan/opendylan/sources/environment/dfmc/database/utilities.dylan:70
  MV_SET_COUNT(1);
  return(T10_0);
}

D Kmake_environment_object_for_source_formVdfmc_environment_databaseMM2I (D server_, D definition_) {
  D name_;
  D database_;
  D project_;
  D T6;
  D T7_0;
  D T8_0;

  // /Users/bruce/Development/dylan/opendylan/sources/environment/dfmc/database/utilities.dylan:82
  // /Users/bruce/Development/dylan/opendylan/sources/environment/dfmc/database/utilities.dylan:85
  name_ = Klibrary_definition_nameYdfmc_derived_informationVdfmc_browser_supportI(definition_);
  // /Users/bruce/Development/dylan/opendylan/sources/environment/dfmc/database/utilities.dylan:86
  database_ = Kensure_server_databaseVdfmc_environment_databaseI(server_);
  // /Users/bruce/Development/dylan/opendylan/sources/environment/dfmc/database/utilities.dylan:87
  project_ = CALL2(&Kfind_project_for_library_nameVdfmc_environment_database, database_, name_);
  // /Users/bruce/Development/dylan/opendylan/sources/environment/dfmc/database/utilities.dylan:89
  CONGRUENT_CALL_PROLOG(&Kserver_projectVenvironment_protocols, 1);
  T6 = CONGRUENT_CALL1(server_);
  // /Users/bruce/Development/dylan/opendylan/sources/environment/dfmc/database/utilities.dylan:88
  T8_0 = Kmake_environment_objectVenvironment_protocolsMM2I(&KLlibrary_objectGVenvironment_protocols, &KPempty_vectorVKi, T6, &KPfalseVKi, &KPfalseVKi, &KPfalseVKi, project_);
  // /Users/bruce/Development/dylan/opendylan/sources/environment/dfmc/database/utilities.dylan:82
  T7_0 = T8_0;
  {
    MV_CHECK_TYPE_PROLOGUE(T8_0);
    primitive_type_check(T7_0, &KLlibrary_objectGVenvironment_protocols);
    MV_CHECK_TYPE_EPILOGUE();
  }
  // /Users/bruce/Development/dylan/opendylan/sources/environment/dfmc/database/utilities.dylan:82
  MV_SET_COUNT(1);
  return(T7_0);
}

D Kensure_server_databaseVdfmc_environment_databaseI (D server_) {
  D T1;
  D T2;
  D Utmp_;
  D T4_0;
  D T5_0;
  D T6;
  D T7;
  D T8;
  _KLsimple_object_vectorGVKd_1 T9 = {&KLsimple_object_vectorGVKdW, (D) 5};
  D T10_0;
  D T11_0;

  // /Users/bruce/Development/dylan/opendylan/sources/environment/dfmc/database/utilities.dylan:9
  // /Users/bruce/Development/dylan/opendylan/sources/environment/dfmc/database/utilities.dylan:11
  T7 = primitive_instanceQ(server_,&KLdfmc_databaseGVdfmc_environment_database);
  // /Users/bruce/Development/dylan/opendylan/sources/environment/dfmc/database/utilities.dylan:11
  if (T7 != &KPfalseVKi) {
    Utmp_ = server_;
  } else {
    // /Users/bruce/Development/dylan/opendylan/sources/environment/dfmc/database/utilities.dylan:11
    T8 = primitive_instanceQ(server_,&KLproject_objectGVenvironment_protocols);
    // /Users/bruce/Development/dylan/opendylan/sources/environment/dfmc/database/utilities.dylan:11
    if (T8 != &KPfalseVKi) {
      // /Users/bruce/Development/dylan/opendylan/sources/environment/dfmc/database/utilities.dylan:13
      T1 = CALL1(&Kproject_compiler_databaseVenvironment_protocols, server_);
      T2 = T1;
    } else {
      T2 = &KPfalseVKi;
    }
    // /Users/bruce/Development/dylan/opendylan/sources/environment/dfmc/database/utilities.dylan:11
    Utmp_ = T2;
  }
  // /Users/bruce/Development/dylan/opendylan/sources/environment/dfmc/database/utilities.dylan:11
  // /Users/bruce/Development/dylan/opendylan/sources/environment/dfmc/database/utilities.dylan:11
  if (Utmp_ != &KPfalseVKi) {
    T6 = Utmp_;
    // /Users/bruce/Development/dylan/opendylan/sources/environment/dfmc/database/utilities.dylan:11
    T4_0 = T6;
    // /Users/bruce/Development/dylan/opendylan/sources/environment/dfmc/database/utilities.dylan:11
    T11_0 = T4_0;
    {
      MV_CHECK_TYPE_PROLOGUE(T4_0);
      primitive_type_check(T11_0, &KLdfmc_databaseGVdfmc_environment_database);
      MV_CHECK_TYPE_EPILOGUE();
    }
    T5_0 = T11_0;
  } else {
    // /Users/bruce/Development/dylan/opendylan/sources/environment/dfmc/database/utilities.dylan:16
    T9.vector_element_[0] = server_;
    // /Users/bruce/Development/dylan/opendylan/sources/environment/dfmc/database/utilities.dylan:16
    T10_0 = KerrorVKdMM1I(&K56, &T9);
    T5_0 = T10_0;
  }
  // /Users/bruce/Development/dylan/opendylan/sources/environment/dfmc/database/utilities.dylan:11
  // /Users/bruce/Development/dylan/opendylan/sources/environment/dfmc/database/utilities.dylan:9
  MV_SET_COUNT(1);
  return(T5_0);
}

static D Kmethod_classF64I (D source_form_, D server_) {
  D database_;
  D T4;
  D T5_0;
  D T6_0;
  D T7_0;

  // /Users/bruce/Development/dylan/opendylan/sources/environment/dfmc/database/utilities.dylan:62
  // /Users/bruce/Development/dylan/opendylan/sources/environment/dfmc/database/utilities.dylan:62
  database_ = Kensure_server_databaseVdfmc_environment_databaseI(server_);
  // /Users/bruce/Development/dylan/opendylan/sources/environment/dfmc/database/utilities.dylan:62
  T4 = Kinternal_dylan_methodQVdfmc_environment_databaseMM0I(database_, source_form_);
  // /Users/bruce/Development/dylan/opendylan/sources/environment/dfmc/database/utilities.dylan:62
  if (T4 != &KPfalseVKi) {
    // /Users/bruce/Development/dylan/opendylan/sources/environment/dfmc/database/utilities.dylan:62
    T5_0 = &KLinternal_method_objectGVenvironment_protocols;
    T7_0 = T5_0;
  } else {
    // /Users/bruce/Development/dylan/opendylan/sources/environment/dfmc/database/utilities.dylan:62
    T6_0 = &KLmethod_objectGVenvironment_protocols;
    T7_0 = T6_0;
  }
  // /Users/bruce/Development/dylan/opendylan/sources/environment/dfmc/database/utilities.dylan:62
  // /Users/bruce/Development/dylan/opendylan/sources/environment/dfmc/database/utilities.dylan:62
  MV_SET_COUNT(1);
  return(T7_0);
}

D KLdfmc_type_expression_objectGZ32ZconstructorVdfmc_environment_databaseMM0I (D class_, D init_args_, D Uunique_Pprimitive_name_, D Uunique_compiler_object_proxy_) {
  D T5;
  D Uunique_compiler_object_proxyF6;
  D T7;
  D Uunique_Pprimitive_nameF8;
  D T9_0;
  D T10;
  _KLsimple_object_vectorGVKd_1 T11 = {&KLsimple_object_vectorGVKdW, (D) 5};
  D T12;

  // /Users/bruce/Development/dylan/opendylan/sources/environment/dfmc/database/utilities.dylan:93
  // /Users/bruce/Development/dylan/opendylan/sources/environment/dfmc/database/utilities.dylan:93
  T10 = primitive_idQ(Uunique_compiler_object_proxy_,&KPunboundVKi);
  // /Users/bruce/Development/dylan/opendylan/sources/environment/dfmc/database/utilities.dylan:93
  if (T10 != &KPfalseVKi) {
    T11.vector_element_[0] = IKJcompiler_object_proxy_;
    T12 = KerrorVKdMM1I(&K80, &T11);
    // /Users/bruce/Development/dylan/opendylan/sources/environment/dfmc/database/utilities.dylan:93
    T5 = T12;
    Uunique_compiler_object_proxyF6 = T5;
  } else {
    Uunique_compiler_object_proxyF6 = Uunique_compiler_object_proxy_;
  }
  // /Users/bruce/Development/dylan/opendylan/sources/environment/dfmc/database/utilities.dylan:93
  T7 = primitive_object_allocate_filled(3,&KLdfmc_type_expression_objectGVdfmc_environment_databaseW,2,&KPunboundVKi,0,0,&KPunboundVKi);
  primitive_type_check(Uunique_Pprimitive_name_, &K68);
  Uunique_Pprimitive_nameF8 = Uunique_Pprimitive_name_;
  SLOT_VALUE_SETTER(Uunique_Pprimitive_nameF8, T7, 0);
  SLOT_VALUE_SETTER(Uunique_compiler_object_proxyF6, T7, 1);
  MEP_APPLY2(&KinitializeVKdMenvironment_protocolsM0, &K81, T7, init_args_);
  T9_0 = T7;
  // /Users/bruce/Development/dylan/opendylan/sources/environment/dfmc/database/utilities.dylan:93
  MV_SET_COUNT(1);
  return(T9_0);
}


/* SYSTEM INIT CODE */

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

    T0 = KPresolve_symbolVKiI(&KJdfmc_environment_database_);
    if (T0 != &KJdfmc_environment_database_) {
      IKJdfmc_environment_database_ = T0;
    }
  }
  {
    D T0;

    T0 = KPresolve_symbolVKiI(&KJcontents_);
    if (T0 != &KJcontents_) {
      IKJcontents_ = T0;
    }
  }
  {
    D T0;

    T0 = KPresolve_symbolVKiI(&KJcompiler_object_proxy_);
    if (T0 != &KJcompiler_object_proxy_) {
      primitive_repeated_slot_value_setter(T0, &K85, 1, 1);
      primitive_repeated_slot_value_setter(T0, &K84, 1, 2);
      IKJcompiler_object_proxy_ = T0;
    }
  }
{
  D T0;

  // /Users/bruce/Development/dylan/opendylan/sources/environment/dfmc/database/utilities.dylan:93
  T0 = KPadd_classVKeI(&KLdfmc_type_expression_objectGVdfmc_environment_database);
  goto I0;
}
I0:

  return;
}

/* USER INIT CODE */

void _Init_dfmc_environment_database__X_utilities_for_user () {
{
  D T0;

  // /Users/bruce/Development/dylan/opendylan/sources/environment/dfmc/database/utilities.dylan:96
  T0 = KPadd_a_methodVKnI(&Kenvironment_object_primitive_nameVenvironment_protocols, &Kenvironment_object_primitive_nameVenvironment_protocolsMdfmc_environment_databaseM0, &Kdfmc_environment_database_libraryYdylan_userVdfmc_environment_database, &KPfalseVKi, &KPfalseVKi, &KPfalseVKi);
  goto I5;
}
I5:

  return;
}


/* eof */
