#include "opendylan/run-time.h"

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

/* Typedefs for referenced classes */

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

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

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

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

typedef struct {
  dylan_value wrapper;
  dylan_value namespace_name_;
  dylan_value library_major_version_;
  dylan_value library_minor_version_;
  dylan_value library_build_count_;
  dylan_value used_libraries_;
  dylan_value all_used_libraries_;
  dylan_value runtime_module_;
  dylan_value library_defined_generics_;
  dylan_value library_number_static_dispatches_;
  dylan_value library_number_dynamic_dispatches_;
} _KLlibraryGVKe;

typedef struct {
  dylan_value wrapper;
} _KLbooleanGVKd;

typedef struct {
  dylan_value wrapper;
} _KLobjectGVKd;

typedef struct {
  dylan_value wrapper;
} _KLunboundGVKe;

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

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

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

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

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

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

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

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

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

#define  define__KLbyte_stringGVKd(nrepeated) \
  typedef struct { \
    dylan_value wrapper; \
    dylan_value size_; \
    char string_element_[nrepeated+1]; \
  } _KLbyte_stringGVKd_##nrepeated;
define__KLbyte_stringGVKd(9);

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

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

typedef struct {
  dylan_value wrapper;
  dylan_value Pprimitive_name_;
  dylan_value server_project_;
  dylan_value compiler_object_table_;
  dylan_value dfmc_database_proxy_;
  dylan_value module_name_proxies_;
} _KLdfmc_databaseGVdfmc_environment_database;

typedef struct {
  dylan_value wrapper;
  dylan_value id_name_;
  dylan_value id_module_;
} _KLdefinition_idGVenvironment_protocols;

typedef struct {
  dylan_value wrapper;
} _KLsequenceGVKd;

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

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

typedef struct {
  dylan_value wrapper;
} _KLsource_locationGVsource_records;

typedef struct {
  dylan_value wrapper;
  dylan_value Pprimitive_name_;
  dylan_value Pid_;
  dylan_value compiler_object_proxy_;
  dylan_value application_object_proxy_;
} _KLlibrary_objectGVenvironment_protocols;


/* Typedefs for defined classes */


/* Referenced object declarations */

dylan_value KPadd_a_methodVKnI (dylan_value, dylan_value, dylan_value, dylan_value, dylan_value, dylan_value);
extern _KLincremental_generic_functionGVKe Kenvironment_object_source_locationVenvironment_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 _KLbooleanGVKd KPtrueVKi;
extern _KLincremental_generic_functionGVKe Kdefinition_modifiersVenvironment_protocols;
extern _KLincremental_generic_functionGVKe Kfind_compiler_database_proxyVenvironment_protocols;
extern _KLclassGVKd KLobjectGVKd;
extern _KLmm_wrapperGVKi_0 KLobjectGVKdW;
extern _KLunboundGVKe KPunboundVKi;
extern _KLclassGVKd KLunboundGVKe;
extern _KLmm_wrapperGVKi_0 KLunboundGVKeW;
dylan_value Ksource_form_variableVdfmc_environment_databaseMM0I (dylan_value);
dylan_value Kbrowsing_contextVdfmc_environment_databaseMM0I (dylan_value, dylan_value);
extern _KLempty_listGVKd KPempty_listVKi;
extern _KLclassGVKd KLempty_listGVKd;
extern _KLmm_wrapperGVKi_0 KLempty_listGVKdW;
extern _KLsealed_generic_functionGVKe Kvariable_homeYdfmc_derived_informationVdfmc_browser_support;
extern _KLclassGVKd KLsealed_generic_functionGVKe;
extern _KLmm_wrapperGVKi_0 KLsealed_generic_functionGVKeW;
extern _KLsealed_generic_functionGVKe Kvariable_nameYdfmc_derived_informationVdfmc_browser_support;
extern _KLsimple_methodGVKe Kfind_module_definitionYdfmc_derived_informationVdfmc_browser_support;
extern _KLfunction_classGVKi KLsimple_methodGVKe;
extern _KLmm_wrapperGVKi_0 KLsimple_methodGVKeW;
extern _KLsimple_methodGVKe Kname_to_stringVdfmc_environment_database;
extern _KLclassGVKd KLunionGVKe;
extern _KLmm_wrapperGVKi_0 KLunionGVKeW;
dylan_value Kunion_instanceQVKiI (dylan_value, dylan_value);
extern _KLclassGVKd KLmodule_definitionGVdfmc_definitions;
extern _KLmm_wrapperGVKi_0 KLmodule_definitionGVdfmc_definitionsW;
extern _KLclassGVKd KLsingletonGVKd;
extern _KLmm_wrapperGVKi_0 KLsingletonGVKdW;
dylan_value Ksingleton_pointer_idQ_instanceQVKiI (dylan_value, dylan_value);
dylan_value Kfind_compiler_database_proxyVenvironment_protocolsMdfmc_environment_databaseM1I (dylan_value, dylan_value, dylan_value, dylan_value);
extern _KLsimple_object_vectorGVKd_0 KPempty_vectorVKi;
extern _KLclassGVKd KLsimple_object_vectorGVKd;
extern _KLmm_wrapperGVKi_0 KLsimple_object_vectorGVKdW;
extern _KLkeyword_methodGVKe Kfind_definition_in_moduleVdfmc_environment_databaseMM0;
extern _KLfunction_classGVKi KLkeyword_methodGVKe;
extern _KLmm_wrapperGVKi_0 KLkeyword_methodGVKeW;
extern _KLclassGVKd KLsymbolGVKd;
extern _KLmm_wrapperGVKi_0 KLsymbolGVKdW;
extern _KLclassGVKd KLbyte_stringGVKd;
extern _KLmm_wrapperGVKi_0 KLbyte_stringGVKdW;
extern _KLclassGVKd KLkeyword_signatureAvaluesGVKi;
extern _KLmm_wrapperGVKi_0 KLkeyword_signatureAvaluesGVKiW;
extern _KLsimple_object_vectorGVKd_256 KDsignature_LobjectG_typesVKi;
extern _KLclassGVKd KLtop_level_formGVdfmc_common;
extern _KLmm_wrapperGVKi_0 KLtop_level_formGVdfmc_commonW;
extern _KLclassGVKd KLdfmc_databaseGVdfmc_environment_database;
extern _KLmm_wrapperGVKi_0 KLdfmc_databaseGVdfmc_environment_databaseW;
extern _KLclassGVKd KLdefinition_idGVenvironment_protocols;
extern _KLmm_wrapperGVKi_0 KLdefinition_idGVenvironment_protocolsW;
extern _KLsealed_generic_functionGVKe Ksource_form_proxyVdfmc_environment_database;
extern _KLsealed_generic_functionGVKe Kform_adjectivesVdfmc_common;
extern _KLclassGVKd KLsequenceGVKd;
extern _KLmm_wrapperGVKi_0 KLsequenceGVKdW;
extern _KLclassGVKd KLsignatureAvaluesGVKi;
extern _KLmm_wrapperGVKi_0 KLsignatureAvaluesGVKiW;
extern _KLsimple_object_vectorGVKd_2 KDsignature_LsequenceG_typesVKi;
extern _KLclassGVKd KLdefinition_objectGVenvironment_protocols;
extern _KLmm_wrapperGVKi_0 KLdefinition_objectGVenvironment_protocolsW;
dylan_value Klibrary_definitionVdfmc_environment_databaseMM0I (dylan_value);
dylan_value Kfind_source_form_locationVdfmc_environment_databaseI (dylan_value);
extern _KLclassGVKd KLsource_locationGVsource_records;
extern _KLmm_wrapperGVKi_0 KLsource_locationGVsource_recordsW;
extern _KLclassGVKd KLlibrary_objectGVenvironment_protocols;
extern _KLmm_wrapperGVKi_0 KLlibrary_objectGVenvironment_protocolsW;

/* Defined object declarations */

extern _KLsimple_methodGVKe Kenvironment_object_source_locationVenvironment_protocolsMdfmc_environment_databaseM2;
dylan_value Kenvironment_object_source_locationVenvironment_protocolsMdfmc_environment_databaseM2I (dylan_value, dylan_value);
extern _KLsimple_methodGVKe Kdefinition_modifiersVenvironment_protocolsMdfmc_environment_databaseM0;
dylan_value Kdefinition_modifiersVenvironment_protocolsMdfmc_environment_databaseM0I (dylan_value, dylan_value);
extern _KLkeyword_methodGVKe Kfind_compiler_database_proxyVenvironment_protocolsMdfmc_environment_databaseM4;
dylan_value Kfind_compiler_database_proxyVenvironment_protocolsMdfmc_environment_databaseM4I (dylan_value, dylan_value, dylan_value, dylan_value);
dylan_value Kdefinition_home_name_and_moduleVdfmc_environment_databaseI (dylan_value, dylan_value);
static _KLunionGVKe K10;
static _KLsingletonGVKd K11;
static _KLsymbolGVKd KJimportedQ_;
static _KLbyte_stringGVKd_9 K13;
static _KLkeyword_signatureAvaluesGVKi K14;
static _KLsimple_object_vectorGVKd_2 K15;
static _KLsimple_object_vectorGVKd_2 K16;
static _KLsimple_object_vectorGVKd_1 K17;
static _KLsimple_object_vectorGVKd_1 K18;
static _KLunionGVKe K19;
static _KLsignatureAvaluesGVKi K20;
static _KLsimple_object_vectorGVKd_2 K21;
static _KLsignatureAvaluesGVKi K22;
static _KLsimple_object_vectorGVKd_2 K23;
static _KLsimple_object_vectorGVKd_1 K24;
static _KLunionGVKe K25;

/* Indirection variables */

static dylan_value IKJimportedQ_ = &KJimportedQ_;

/* Variables */


/* Objects */

_KLsimple_methodGVKe Kenvironment_object_source_locationVenvironment_protocolsMdfmc_environment_databaseM2 = {
  &KLsimple_methodGVKeW /* wrapper */,
  &xep_2,
  &K22,
  &Kenvironment_object_source_locationVenvironment_protocolsMdfmc_environment_databaseM2I
};

_KLsimple_methodGVKe Kdefinition_modifiersVenvironment_protocolsMdfmc_environment_databaseM0 = {
  &KLsimple_methodGVKeW /* wrapper */,
  &xep_2,
  &K20,
  &Kdefinition_modifiersVenvironment_protocolsMdfmc_environment_databaseM0I
};

_KLkeyword_methodGVKe Kfind_compiler_database_proxyVenvironment_protocolsMdfmc_environment_databaseM4 = {
  &KLkeyword_methodGVKeW /* wrapper */,
  &rest_key_xep_4,
  &K14,
  &key_mep_4,
  &Kfind_compiler_database_proxyVenvironment_protocolsMdfmc_environment_databaseM4I,
  &K15
};

static _KLunionGVKe K10 = {
  &KLunionGVKeW /* wrapper */,
  &Kunion_instanceQVKiI,
  &K11,
  &KLmodule_definitionGVdfmc_definitions
};

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

static _KLsymbolGVKd KJimportedQ_ = {
  &KLsymbolGVKdW /* wrapper */,
  &K13
};

static _KLbyte_stringGVKd_9 K13 = {
  &KLbyte_stringGVKdW /* wrapper */,
  (dylan_value) 37,
  "imported?"
};

static _KLkeyword_signatureAvaluesGVKi K14 = {
  &KLkeyword_signatureAvaluesGVKiW /* wrapper */,
  (dylan_value) 33817609,
  &K16,
  &K17,
  &KDsignature_LobjectG_typesVKi,
  &K18
};

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

static _KLsimple_object_vectorGVKd_2 K16 = {
  &KLsimple_object_vectorGVKdW /* wrapper */,
  (dylan_value) 9,
  &KLdfmc_databaseGVdfmc_environment_database,
  &KLdefinition_idGVenvironment_protocols
};

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

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

static _KLunionGVKe K19 = {
  &KLunionGVKeW /* wrapper */,
  &Kunion_instanceQVKiI,
  &K11,
  &KLtop_level_formGVdfmc_common
};

static _KLsignatureAvaluesGVKi K20 = {
  &KLsignatureAvaluesGVKiW /* wrapper */,
  (dylan_value) 33555465,
  &K21,
  &KDsignature_LsequenceG_typesVKi
};

static _KLsimple_object_vectorGVKd_2 K21 = {
  &KLsimple_object_vectorGVKdW /* wrapper */,
  (dylan_value) 9,
  &KLdfmc_databaseGVdfmc_environment_database,
  &KLdefinition_objectGVenvironment_protocols
};

static _KLsignatureAvaluesGVKi K22 = {
  &KLsignatureAvaluesGVKiW /* wrapper */,
  (dylan_value) 33555465,
  &K23,
  &K24
};

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

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

static _KLunionGVKe K25 = {
  &KLunionGVKeW /* wrapper */,
  &Kunion_instanceQVKiI,
  &K11,
  &KLsource_locationGVsource_records
};

/* Code */

dylan_value Kenvironment_object_source_locationVenvironment_protocolsMdfmc_environment_databaseM2I (dylan_value server_, dylan_value object_) {
  dylan_value source_form_;
  dylan_value T4_0;

  // /home/bruce/Development/dylan/opendylan/sources/environment/dfmc/database/definition-objects.dylan:18
  // /home/bruce/Development/dylan/opendylan/sources/environment/dfmc/database/definition-objects.dylan:21
  source_form_ = Klibrary_definitionVdfmc_environment_databaseMM0I(object_);
  // /home/bruce/Development/dylan/opendylan/sources/environment/dfmc/database/definition-objects.dylan:22
  T4_0 = Kfind_source_form_locationVdfmc_environment_databaseI(source_form_);
  // /home/bruce/Development/dylan/opendylan/sources/environment/dfmc/database/definition-objects.dylan:18
  MV_SET_COUNT(1);
  return(T4_0);
}

dylan_value Kdefinition_modifiersVenvironment_protocolsMdfmc_environment_databaseM0I (dylan_value server_, dylan_value object_) {
  dylan_value source_form_;
  dylan_value Utmp_;
  dylan_value T5_0;
  dylan_value T6_0;
  dylan_value T7_0;
  dylan_value T8;

  // /home/bruce/Development/dylan/opendylan/sources/environment/dfmc/database/definition-objects.dylan:25
  // /home/bruce/Development/dylan/opendylan/sources/environment/dfmc/database/definition-objects.dylan:28
  CONGRUENT_CALL_PROLOG(&Ksource_form_proxyVdfmc_environment_database, 1);
  source_form_ = CONGRUENT_CALL1(object_);
  // /home/bruce/Development/dylan/opendylan/sources/environment/dfmc/database/definition-objects.dylan:29
  Utmp_ = CALL1(&Kform_adjectivesVdfmc_common, source_form_);
  // /home/bruce/Development/dylan/opendylan/sources/environment/dfmc/database/definition-objects.dylan:29
  if (Utmp_ != &KPfalseVKi) {
    T8 = Utmp_;
    // /home/bruce/Development/dylan/opendylan/sources/environment/dfmc/database/definition-objects.dylan:29
    T5_0 = T8;
    T7_0 = T5_0;
  } else {
    // /home/bruce/Development/dylan/opendylan/sources/environment/dfmc/database/definition-objects.dylan:29
    T6_0 = &KPempty_vectorVKi;
    T7_0 = T6_0;
  }
  // /home/bruce/Development/dylan/opendylan/sources/environment/dfmc/database/definition-objects.dylan:29
  // /home/bruce/Development/dylan/opendylan/sources/environment/dfmc/database/definition-objects.dylan:25
  MV_SET_COUNT(1);
  return(T7_0);
}

dylan_value Kfind_compiler_database_proxyVenvironment_protocolsMdfmc_environment_databaseM4I (dylan_value server_, dylan_value id_, dylan_value Urest_, dylan_value importedQ_) {
  dylan_value T5_0;
  dylan_value T6_0;
  dylan_value T7_0;
  dylan_value T8;
  dylan_value T9;
  dylan_value T10;

  // /home/bruce/Development/dylan/opendylan/sources/environment/dfmc/database/definition-objects.dylan:50
  // /home/bruce/Development/dylan/opendylan/sources/environment/dfmc/database/definition-objects.dylan:53
  T8 = SLOT_VALUE_INITD(id_, 1);
  // /home/bruce/Development/dylan/opendylan/sources/environment/dfmc/database/definition-objects.dylan:55
  T9 = Kfind_compiler_database_proxyVenvironment_protocolsMdfmc_environment_databaseM1I(server_, T8, &KPempty_vectorVKi, &KPfalseVKi);
  // /home/bruce/Development/dylan/opendylan/sources/environment/dfmc/database/definition-objects.dylan:56
  if (T9 != &KPfalseVKi) {
    // /home/bruce/Development/dylan/opendylan/sources/environment/dfmc/database/definition-objects.dylan:58
    T10 = SLOT_VALUE_INITD(id_, 0);
    // /home/bruce/Development/dylan/opendylan/sources/environment/dfmc/database/definition-objects.dylan:57
    T5_0 = CALL5(&Kfind_definition_in_moduleVdfmc_environment_databaseMM0, server_, T10, T9, IKJimportedQ_, importedQ_);
    T7_0 = T5_0;
  } else {
    // /home/bruce/Development/dylan/opendylan/sources/environment/dfmc/database/definition-objects.dylan:56
    T6_0 = &KPfalseVKi;
    T7_0 = T6_0;
  }
  // /home/bruce/Development/dylan/opendylan/sources/environment/dfmc/database/definition-objects.dylan:56
  // /home/bruce/Development/dylan/opendylan/sources/environment/dfmc/database/definition-objects.dylan:50
  MV_SET_COUNT(1);
  return(T7_0);
}

dylan_value Kdefinition_home_name_and_moduleVdfmc_environment_databaseI (dylan_value server_, dylan_value definition_) {
  dylan_value variable_;
  dylan_value home_variable_;
  dylan_value T5_0;
  dylan_value T5_1;
  dylan_value variable_name_;
  dylan_value module_name_;
  dylan_value module_definition_;
  dylan_value T9;
  dylan_value T10_0;
  dylan_value T10_1;
  dylan_value context_;
  dylan_value T12_0;
  dylan_value T12_1;
  dylan_value T13_0;
  dylan_value T13_1;
  dylan_value T14_0;
  dylan_value T14_1;

  // /home/bruce/Development/dylan/opendylan/sources/environment/dfmc/database/definition-objects.dylan:64
  // /home/bruce/Development/dylan/opendylan/sources/environment/dfmc/database/definition-objects.dylan:67
  variable_ = Ksource_form_variableVdfmc_environment_databaseMM0I(definition_);
  // /home/bruce/Development/dylan/opendylan/sources/environment/dfmc/database/definition-objects.dylan:68
  if (variable_ != &KPfalseVKi) {
    // /home/bruce/Development/dylan/opendylan/sources/environment/dfmc/database/definition-objects.dylan:69
    context_ = Kbrowsing_contextVdfmc_environment_databaseMM0I(server_, definition_);
    // /home/bruce/Development/dylan/opendylan/sources/environment/dfmc/database/definition-objects.dylan:70
    CONGRUENT_CALL_PROLOG(&Kvariable_homeYdfmc_derived_informationVdfmc_browser_support, 2);
    home_variable_ = CONGRUENT_CALL2(context_, variable_);
    // /home/bruce/Development/dylan/opendylan/sources/environment/dfmc/database/definition-objects.dylan:71
    CONGRUENT_CALL_PROLOG(&Kvariable_nameYdfmc_derived_informationVdfmc_browser_support, 1);
    T5_0 = CONGRUENT_CALL1(home_variable_);
    T5_1 = MV_GET_ELT(1);
    // /home/bruce/Development/dylan/opendylan/sources/environment/dfmc/database/definition-objects.dylan:71
    variable_name_ = T5_0;
    // /home/bruce/Development/dylan/opendylan/sources/environment/dfmc/database/definition-objects.dylan:71
    module_name_ = T5_1;
    // /home/bruce/Development/dylan/opendylan/sources/environment/dfmc/database/definition-objects.dylan:72
    module_definition_ = CALL2(&Kfind_module_definitionYdfmc_derived_informationVdfmc_browser_support, context_, module_name_);
    // /home/bruce/Development/dylan/opendylan/sources/environment/dfmc/database/definition-objects.dylan:73
    T9 = CALL1(&Kname_to_stringVdfmc_environment_database, variable_name_);
    // /home/bruce/Development/dylan/opendylan/sources/environment/dfmc/database/definition-objects.dylan:73
    T12_0 = T9;
    T12_1 = module_definition_;
    // /home/bruce/Development/dylan/opendylan/sources/environment/dfmc/database/definition-objects.dylan:73
    T14_0 = T12_0;
    T14_1 = T12_1;
    {
      MV_CHECK_TYPE_PROLOGUE(T12_0);
      primitive_type_check(T14_0, &KLobjectGVKd);
      primitive_type_check(T14_1, &K10);
      MV_CHECK_TYPE_EPILOGUE();
    }
    T10_0 = T14_0;
    T10_1 = T14_1;
  } else {
    // /home/bruce/Development/dylan/opendylan/sources/environment/dfmc/database/definition-objects.dylan:75
    T13_0 = &KPfalseVKi;
    T13_1 = &KPfalseVKi;
    T10_0 = T13_0;
    T10_1 = T13_1;
  }
  // /home/bruce/Development/dylan/opendylan/sources/environment/dfmc/database/definition-objects.dylan:68
  // /home/bruce/Development/dylan/opendylan/sources/environment/dfmc/database/definition-objects.dylan:64
  MV_SET_ELT(1, T10_1);
  MV_SET_COUNT(2);
  return(T10_0);
}


/* SYSTEM INIT CODE */

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

    T0 = KPresolve_symbolVKiI(&KJimportedQ_);
    if (T0 != &KJimportedQ_) {
      primitive_repeated_slot_value_setter(T0, &K17, 1, 0);
      primitive_repeated_slot_value_setter(T0, &K15, 1, 0);
      IKJimportedQ_ = T0;
    }
  }
  return;
}

/* USER INIT CODE */

void _Init_dfmc_environment_database__X_definition_objects_for_user () {
{
  dylan_value T0;

  // /home/bruce/Development/dylan/opendylan/sources/environment/dfmc/database/definition-objects.dylan:18
  T0 = KPadd_a_methodVKnI(&Kenvironment_object_source_locationVenvironment_protocols, &Kenvironment_object_source_locationVenvironment_protocolsMdfmc_environment_databaseM2, &Kdfmc_environment_database_libraryYdylan_userVdfmc_environment_database, &KPfalseVKi, &KPfalseVKi, &KPtrueVKi);
  goto I2;
}
I2:

{
  dylan_value T0;

  // /home/bruce/Development/dylan/opendylan/sources/environment/dfmc/database/definition-objects.dylan:25
  T0 = KPadd_a_methodVKnI(&Kdefinition_modifiersVenvironment_protocols, &Kdefinition_modifiersVenvironment_protocolsMdfmc_environment_databaseM0, &Kdfmc_environment_database_libraryYdylan_userVdfmc_environment_database, &KPfalseVKi, &KPfalseVKi, &KPtrueVKi);
  goto I5;
}
I5:

{
  dylan_value T0;

  // /home/bruce/Development/dylan/opendylan/sources/environment/dfmc/database/definition-objects.dylan:50
  T0 = KPadd_a_methodVKnI(&Kfind_compiler_database_proxyVenvironment_protocols, &Kfind_compiler_database_proxyVenvironment_protocolsMdfmc_environment_databaseM4, &Kdfmc_environment_database_libraryYdylan_userVdfmc_environment_database, &KPfalseVKi, &KPfalseVKi, &KPtrueVKi);
  goto I8;
}
I8:

  return;
}


/* eof */
