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

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

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;

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 project_source_record_table_;
  D project_current_compilation_context_;
  D project_namespace_loaded_;
  D Pproject_owners_;
  D Pproject_top_levelQ_;
  D Pdatabase_in_memory_;
  D Pdatabase_in_memory_current_;
  D Pdatabase_saved_;
} _KLprojectGVprojects;

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 head_;
  D tail_;
} _KLempty_listGVKd;

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

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

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

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

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

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

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 properties_;
  D engine_node_callback_;
  D engine_node_entry_point_;
} _KLabsent_engine_nodeGVKg;

#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 xep_;
  D function_signature_;
  D mep_;
  D iep_;
  D keyword_specifiers_;
} _KLkeyword_methodGVKe;

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


/* Typedefs for defined classes */


/* Referenced object declarations */

D KPadd_a_methodVKnI (D, D, D, D, D, D);
extern _KLincremental_generic_functionGVKe Kfind_environment_objectVenvironment_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 _KLclassGVKd KLobjectGVKd;
extern _KLmm_wrapperGVKi_0 KLobjectGVKdW;
extern _KLunboundGVKe KPunboundVKi;
extern _KLclassGVKd KLunboundGVKe;
extern _KLmm_wrapperGVKi_0 KLunboundGVKeW;
extern _KLclassGVKd KLsimple_object_vectorGVKd;
extern _KLmm_wrapperGVKi_0 KLsimple_object_vectorGVKdW;
extern _KLincremental_generic_functionGVKe Kfind_compiler_database_proxyVenvironment_protocols;
extern _KLclassGVKd KLtop_level_formGVdfmc_common;
extern _KLmm_wrapperGVKi_0 KLtop_level_formGVdfmc_commonW;
extern _KLsealed_generic_functionGVKe Kmake_environment_object_for_source_formVdfmc_environment_database;
extern _KLclassGVKd KLsealed_generic_functionGVKe;
extern _KLmm_wrapperGVKi_0 KLsealed_generic_functionGVKeW;
extern _KLclassGVKd KLprojectGVprojects;
extern _KLmm_wrapperGVKi_0 KLprojectGVprojectsW;
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 _KLsimple_object_vectorGVKd_0 KPempty_vectorVKi;
extern _KLempty_listGVKd KPempty_listVKi;
extern _KLclassGVKd KLempty_listGVKd;
extern _KLmm_wrapperGVKi_0 KLempty_listGVKdW;
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 _KLclassGVKd KLbyte_stringGVKd;
extern _KLmm_wrapperGVKi_0 KLbyte_stringGVKdW;
extern _KLclassGVKd KLunionGVKe;
extern _KLmm_wrapperGVKi_0 KLunionGVKeW;
D Kunion_instanceQVKiI (D, D);
extern _KLclassGVKd KLenvironment_objectGVenvironment_protocols;
extern _KLmm_wrapperGVKi_0 KLenvironment_objectGVenvironment_protocolsW;
extern _KLclassGVKd KLsingletonGVKd;
extern _KLmm_wrapperGVKi_0 KLsingletonGVKdW;
D Ksingleton_pointer_idQ_instanceQVKiI (D, D);
extern _KLclassGVKd KLsimple_typechecked_cache_header_engine_nodeGVKg;
extern _KLmm_wrapperGVKi_0 KLsimple_typechecked_cache_header_engine_nodeGVKgW;
extern _KLabsent_engine_nodeGVKg RSINGULAR_Labsent_engine_nodeG;
extern _KLclassGVKd KLabsent_engine_nodeGVKg;
extern _KLmm_wrapperGVKi_0 KLabsent_engine_nodeGVKgW;
extern _KLfunction_classGVKi KLsimple_closure_methodGVKi;
extern _KLmm_wrapperGVKi_0 KLsimple_closure_methodGVKiW;
extern _KLclassGVKd KLsignatureGVKe;
extern _KLmm_wrapperGVKi_0 KLsignatureGVKeW;
extern _KLfunction_classGVKi KLkeyword_methodGVKe;
extern _KLmm_wrapperGVKi_0 KLkeyword_methodGVKeW;
extern _KLclassGVKd KLkeyword_signatureAvaluesGVKi;
extern _KLmm_wrapperGVKi_0 KLkeyword_signatureAvaluesGVKiW;
extern _KLclassGVKd KLdfmc_databaseGVdfmc_environment_database;
extern _KLmm_wrapperGVKi_0 KLdfmc_databaseGVdfmc_environment_databaseW;
extern _KLclassGVKd KLidGVenvironment_protocols;
extern _KLmm_wrapperGVKi_0 KLidGVenvironment_protocolsW;
extern D TdebuggingQTVKi;
extern D Tdebug_partsTVKi;
extern D Tdebug_out_functionTVKi;

/* Defined object declarations */

extern _KLkeyword_methodGVKe Kfind_environment_objectVenvironment_protocolsMdfmc_environment_databaseM0;
D Kfind_environment_objectVenvironment_protocolsMdfmc_environment_databaseM0I (D, D, D);
static _KLsimple_closure_methodGVKi_0 Kanonymous_of_find_environment_objectF12;
static D Kanonymous_of_find_environment_objectF12I ();
static _KLsymbolGVKd KJimportedQ_;
static _KLsimple_typechecked_cache_header_engine_nodeGVKg K6;
static _KLunionGVKe K7;
static _KLsymbolGVKd KJdfmc_environment_database_;
static _KLbyte_stringGVKd_25 K9;
static _KLsingletonGVKd K10;
static _KLbyte_stringGVKd_9 K11;
static _KLbyte_stringGVKd_40 K13;
static _KLsignatureGVKe K14;
static _KLkeyword_signatureAvaluesGVKi K15;
static _KLsimple_object_vectorGVKd_2 K16;
static _KLsimple_object_vectorGVKd_1 K17;

/* Indirection variables */

static D IKJimportedQ_ = &KJimportedQ_;
static D IKJdfmc_environment_database_ = &KJdfmc_environment_database_;

/* Variables */


/* Objects */

_KLkeyword_methodGVKe Kfind_environment_objectVenvironment_protocolsMdfmc_environment_databaseM0 = {
  &KLkeyword_methodGVKeW /* wrapper */,
  &rest_key_xep_3,
  &K15,
  &key_mep_3,
  &Kfind_environment_objectVenvironment_protocolsMdfmc_environment_databaseM0I,
  &KPempty_vectorVKi
};

static _KLsimple_closure_methodGVKi_0 Kanonymous_of_find_environment_objectF12 = {
  &KLsimple_closure_methodGVKiW /* wrapper */,
  &xep_0,
  &K14,
  &Kanonymous_of_find_environment_objectF12I,
  (D) 1
};

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

static _KLsimple_typechecked_cache_header_engine_nodeGVKg K6 = {
  &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 _KLunionGVKe K7 = {
  &KLunionGVKeW /* wrapper */,
  &Kunion_instanceQVKiI,
  &K10,
  &KLenvironment_objectGVenvironment_protocols
};

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

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

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

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

static _KLbyte_stringGVKd_40 K13 = {
  &KLbyte_stringGVKdW /* wrapper */,
  (D) 161,
  "Failed to make environment object for %="
};

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

static _KLkeyword_signatureAvaluesGVKi K15 = {
  &KLkeyword_signatureAvaluesGVKiW /* wrapper */,
  (D) 34341897,
  &K16,
  &KPempty_vectorVKi,
  &KPempty_vectorVKi,
  &K17
};

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

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

/* Code */

D Kfind_environment_objectVenvironment_protocolsMdfmc_environment_databaseM0I (D server_, D id_, D Urest_) {
  D proxy_;
  D T5;
  D T6_0;
  D T7_0;
  D T8_0;
  D T9_0;
  D T10_0;
  _KLsimple_object_vectorGVKd_2 T11 = {&KLsimple_object_vectorGVKdW, (D) 9};
  D T12;
  D T13_0;
  D T14;
  D T15;
  D T16_0;
  D T17;
  D T18;
  D T19;
  D T20;
  D T21;
  D T22;
  D T23_0;
  D T24;
  D T25;
  D T26;
  D T27_0;

  // /Users/bruce/Development/dylan/opendylan/sources/environment/dfmc/database/environment-objects.dylan:11
  // /Users/bruce/Development/dylan/opendylan/sources/environment/dfmc/database/environment-objects.dylan:14
  T11.vector_element_[0] = IKJimportedQ_;
  T11.vector_element_[1] = &KPtrueVKi;
  // /Users/bruce/Development/dylan/opendylan/sources/environment/dfmc/database/environment-objects.dylan:14
  CONGRUENT_CALL_PROLOG(&Kfind_compiler_database_proxyVenvironment_protocols, 3);
  proxy_ = CONGRUENT_CALL3(server_, id_, &T11);
  // /Users/bruce/Development/dylan/opendylan/sources/environment/dfmc/database/environment-objects.dylan:15
  if (proxy_ != &KPfalseVKi) {
    // /Users/bruce/Development/dylan/opendylan/sources/environment/dfmc/database/environment-objects.dylan:16
    T12 = primitive_instanceQ(proxy_,&KLtop_level_formGVdfmc_common);
    // /Users/bruce/Development/dylan/opendylan/sources/environment/dfmc/database/environment-objects.dylan:16
    if (T12 != &KPfalseVKi) {
      // /Users/bruce/Development/dylan/opendylan/sources/environment/dfmc/database/environment-objects.dylan:18
      ENGINE_NODE_CALL_PROLOG(&Kmake_environment_object_for_source_formVdfmc_environment_database, &K6, 2);
      T13_0 = ENGINE_NODE_CALL2(&K6, server_, proxy_);
      // /Users/bruce/Development/dylan/opendylan/sources/environment/dfmc/database/environment-objects.dylan:18
      T27_0 = T13_0;
      {
        MV_CHECK_TYPE_PROLOGUE(T13_0);
        primitive_type_check(T27_0, &K7);
        MV_CHECK_TYPE_EPILOGUE();
      }
      T8_0 = T27_0;
    } else {
      // /Users/bruce/Development/dylan/opendylan/sources/environment/dfmc/database/environment-objects.dylan:16
      T14 = primitive_instanceQ(proxy_,&KLprojectGVprojects);
      // /Users/bruce/Development/dylan/opendylan/sources/environment/dfmc/database/environment-objects.dylan:16
      if (T14 != &KPfalseVKi) {
        // /Users/bruce/Development/dylan/opendylan/sources/environment/dfmc/database/environment-objects.dylan:21
        T15 = SLOT_VALUE_INITD(server_, 1);
        // /Users/bruce/Development/dylan/opendylan/sources/environment/dfmc/database/environment-objects.dylan:20
        T16_0 = Kmake_environment_objectVenvironment_protocolsMM2I(&KLlibrary_objectGVenvironment_protocols, &KPempty_vectorVKi, T15, &KPfalseVKi, &KPfalseVKi, &KPfalseVKi, proxy_);
        T7_0 = T16_0;
      } else {
        // /Users/bruce/Development/dylan/opendylan/sources/environment/dfmc/database/environment-objects.dylan:24
        T17 = TdebuggingQTVKi;
        // /Users/bruce/Development/dylan/opendylan/sources/environment/dfmc/database/environment-objects.dylan:24
        if (T17 != &KPfalseVKi) {
          // /Users/bruce/Development/dylan/opendylan/sources/environment/dfmc/database/environment-objects.dylan:24
          T18 = Tdebug_partsTVKi;
          // /Users/bruce/Development/dylan/opendylan/sources/environment/dfmc/database/environment-objects.dylan:24
          T19 = primitive_idQ(T18,&KPempty_listVKi);
          // /Users/bruce/Development/dylan/opendylan/sources/environment/dfmc/database/environment-objects.dylan:24
          T20 = primitive_not(T19);
          T21 = T20;
        } else {
          T21 = &KPfalseVKi;
        }
        // /Users/bruce/Development/dylan/opendylan/sources/environment/dfmc/database/environment-objects.dylan:24
        // /Users/bruce/Development/dylan/opendylan/sources/environment/dfmc/database/environment-objects.dylan:24
        if (T21 != &KPfalseVKi) {
          // /Users/bruce/Development/dylan/opendylan/sources/environment/dfmc/database/environment-objects.dylan:24
          T22 = Tdebug_partsTVKi;
          // /Users/bruce/Development/dylan/opendylan/sources/environment/dfmc/database/environment-objects.dylan:24
          T23_0 = KmemberQVKdMM3I(IKJdfmc_environment_database_, T22, &KPempty_vectorVKi, &KEEVKd);
          // /Users/bruce/Development/dylan/opendylan/sources/environment/dfmc/database/environment-objects.dylan:24
          T24 = T23_0;
          T25 = T24;
        } else {
          T25 = &KPfalseVKi;
        }
        // /Users/bruce/Development/dylan/opendylan/sources/environment/dfmc/database/environment-objects.dylan:24
        // /Users/bruce/Development/dylan/opendylan/sources/environment/dfmc/database/environment-objects.dylan:24
        if (T25 != &KPfalseVKi) {
          // /Users/bruce/Development/dylan/opendylan/sources/environment/dfmc/database/environment-objects.dylan:24
          T26 = Tdebug_out_functionTVKi;
          // /Users/bruce/Development/dylan/opendylan/sources/environment/dfmc/database/environment-objects.dylan:24
          T5 = MAKE_CLOSURE_INITD(&Kanonymous_of_find_environment_objectF12, 1, proxy_);
          // /Users/bruce/Development/dylan/opendylan/sources/environment/dfmc/database/environment-objects.dylan:24
          CALL1(T26, T5);
        }
        // /Users/bruce/Development/dylan/opendylan/sources/environment/dfmc/database/environment-objects.dylan:24
        // /Users/bruce/Development/dylan/opendylan/sources/environment/dfmc/database/environment-objects.dylan:27
        T6_0 = &KPfalseVKi;
        T7_0 = T6_0;
      }
      // /Users/bruce/Development/dylan/opendylan/sources/environment/dfmc/database/environment-objects.dylan:16
      T8_0 = T7_0;
    }
    // /Users/bruce/Development/dylan/opendylan/sources/environment/dfmc/database/environment-objects.dylan:16
    T10_0 = T8_0;
  } else {
    // /Users/bruce/Development/dylan/opendylan/sources/environment/dfmc/database/environment-objects.dylan:15
    T9_0 = &KPfalseVKi;
    T10_0 = T9_0;
  }
  // /Users/bruce/Development/dylan/opendylan/sources/environment/dfmc/database/environment-objects.dylan:15
  // /Users/bruce/Development/dylan/opendylan/sources/environment/dfmc/database/environment-objects.dylan:11
  MV_SET_COUNT(1);
  return(T10_0);
}

static D Kanonymous_of_find_environment_objectF12I () {
  _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/environment-objects.dylan:24
  // /Users/bruce/Development/dylan/opendylan/sources/environment/dfmc/database/environment-objects.dylan:24
  T0.vector_element_[0] = &K13;
  T0.vector_element_[1] = CREF(0);
  // /Users/bruce/Development/dylan/opendylan/sources/environment/dfmc/database/environment-objects.dylan:24
  T1 = primitive_copy_vector(&T0);
  // /Users/bruce/Development/dylan/opendylan/sources/environment/dfmc/database/environment-objects.dylan:24
  T2_0 = T1;
  // /Users/bruce/Development/dylan/opendylan/sources/environment/dfmc/database/environment-objects.dylan:24
  MV_SET_COUNT(1);
  return(T2_0);
}


/* SYSTEM INIT CODE */

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

    T0 = KPresolve_symbolVKiI(&KJimportedQ_);
    if (T0 != &KJimportedQ_) {
      IKJimportedQ_ = T0;
    }
  }
  {
    D T0;

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

/* USER INIT CODE */

void _Init_dfmc_environment_database__X_environment_objects_for_user () {
{
  D T0;

  // /Users/bruce/Development/dylan/opendylan/sources/environment/dfmc/database/environment-objects.dylan:11
  T0 = KPadd_a_methodVKnI(&Kfind_environment_objectVenvironment_protocols, &Kfind_environment_objectVenvironment_protocolsMdfmc_environment_databaseM0, &Kdfmc_environment_database_libraryYdylan_userVdfmc_environment_database, &KPfalseVKi, &KPfalseVKi, &KPtrueVKi);
  goto I2;
}
I2:

  return;
}


/* eof */
