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

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

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

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;

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 mep_;
} _KLsimple_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(40);
define__KLbyte_stringGVKd(9);
define__KLbyte_stringGVKd(25);

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 Pprimitive_name_;
} _KLenvironment_objectGVenvironment_protocols;

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

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

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

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

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

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

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 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;
} _KLidGVenvironment_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 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;
dylan_value Kmake_environment_objectVenvironment_protocolsMM2I (dylan_value, dylan_value, dylan_value, dylan_value, dylan_value, dylan_value, dylan_value);
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;
dylan_value KmemberQVKdMM4I (dylan_value, dylan_value, dylan_value, dylan_value);
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;
dylan_value Kunion_instanceQVKiI (dylan_value, dylan_value);
extern _KLclassGVKd KLenvironment_objectGVenvironment_protocols;
extern _KLmm_wrapperGVKi_0 KLenvironment_objectGVenvironment_protocolsW;
extern _KLclassGVKd KLsingletonGVKd;
extern _KLmm_wrapperGVKi_0 KLsingletonGVKdW;
dylan_value Ksingleton_pointer_idQ_instanceQVKiI (dylan_value, dylan_value);
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 dylan_value TdebuggingQTVKi;
extern dylan_value Tdebug_partsTVKi;
extern dylan_value Tdebug_out_functionTVKi;

/* Defined object declarations */

extern _KLkeyword_methodGVKe Kfind_environment_objectVenvironment_protocolsMdfmc_environment_databaseM0;
dylan_value Kfind_environment_objectVenvironment_protocolsMdfmc_environment_databaseM0I (dylan_value, dylan_value, dylan_value);
static _KLsimple_closure_methodGVKi_0 Kanonymous_of_find_environment_objectF12;
static dylan_value 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 dylan_value IKJimportedQ_ = &KJimportedQ_;
static dylan_value 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,
  (dylan_value) 1
};

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

static _KLsimple_typechecked_cache_header_engine_nodeGVKg K6 = {
  &KLsimple_typechecked_cache_header_engine_nodeGVKgW /* wrapper */,
  (dylan_value) 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 */,
  (dylan_value) 101,
  "dfmc-environment-database"
};

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

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

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

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

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

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

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

/* Code */

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

  // /home/bruce/Development/dylan/opendylan/sources/environment/dfmc/database/environment-objects.dylan:11
  // /home/bruce/Development/dylan/opendylan/sources/environment/dfmc/database/environment-objects.dylan:14
  T11.vector_element_[0] = IKJimportedQ_;
  T11.vector_element_[1] = &KPtrueVKi;
  // /home/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);
  // /home/bruce/Development/dylan/opendylan/sources/environment/dfmc/database/environment-objects.dylan:15
  if (proxy_ != &KPfalseVKi) {
    // /home/bruce/Development/dylan/opendylan/sources/environment/dfmc/database/environment-objects.dylan:16
    T12 = primitive_instanceQ(proxy_,&KLtop_level_formGVdfmc_common);
    // /home/bruce/Development/dylan/opendylan/sources/environment/dfmc/database/environment-objects.dylan:16
    if (T12 != &KPfalseVKi) {
      // /home/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_);
      // /home/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 {
      // /home/bruce/Development/dylan/opendylan/sources/environment/dfmc/database/environment-objects.dylan:16
      T14 = primitive_instanceQ(proxy_,&KLprojectGVprojects);
      // /home/bruce/Development/dylan/opendylan/sources/environment/dfmc/database/environment-objects.dylan:16
      if (T14 != &KPfalseVKi) {
        // /home/bruce/Development/dylan/opendylan/sources/environment/dfmc/database/environment-objects.dylan:21
        T15 = SLOT_VALUE_INITD(server_, 1);
        // /home/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 {
        // /home/bruce/Development/dylan/opendylan/sources/environment/dfmc/database/environment-objects.dylan:24
        T17 = TdebuggingQTVKi;
        // /home/bruce/Development/dylan/opendylan/sources/environment/dfmc/database/environment-objects.dylan:24
        if (T17 != &KPfalseVKi) {
          // /home/bruce/Development/dylan/opendylan/sources/environment/dfmc/database/environment-objects.dylan:24
          T18 = Tdebug_partsTVKi;
          // /home/bruce/Development/dylan/opendylan/sources/environment/dfmc/database/environment-objects.dylan:24
          T19 = primitive_idQ(T18,&KPempty_listVKi);
          // /home/bruce/Development/dylan/opendylan/sources/environment/dfmc/database/environment-objects.dylan:24
          T20 = primitive_not(T19);
          T21 = T20;
        } else {
          T21 = &KPfalseVKi;
        }
        // /home/bruce/Development/dylan/opendylan/sources/environment/dfmc/database/environment-objects.dylan:24
        // /home/bruce/Development/dylan/opendylan/sources/environment/dfmc/database/environment-objects.dylan:24
        if (T21 != &KPfalseVKi) {
          // /home/bruce/Development/dylan/opendylan/sources/environment/dfmc/database/environment-objects.dylan:24
          T22 = Tdebug_partsTVKi;
          // /home/bruce/Development/dylan/opendylan/sources/environment/dfmc/database/environment-objects.dylan:24
          T23_0 = KmemberQVKdMM4I(IKJdfmc_environment_database_, T22, &KPempty_vectorVKi, &KEEVKd);
          // /home/bruce/Development/dylan/opendylan/sources/environment/dfmc/database/environment-objects.dylan:24
          T24 = T23_0;
          T25 = T24;
        } else {
          T25 = &KPfalseVKi;
        }
        // /home/bruce/Development/dylan/opendylan/sources/environment/dfmc/database/environment-objects.dylan:24
        // /home/bruce/Development/dylan/opendylan/sources/environment/dfmc/database/environment-objects.dylan:24
        if (T25 != &KPfalseVKi) {
          // /home/bruce/Development/dylan/opendylan/sources/environment/dfmc/database/environment-objects.dylan:24
          T26 = Tdebug_out_functionTVKi;
          // /home/bruce/Development/dylan/opendylan/sources/environment/dfmc/database/environment-objects.dylan:24
          T5 = MAKE_CLOSURE_INITD(&Kanonymous_of_find_environment_objectF12, 1, proxy_);
          // /home/bruce/Development/dylan/opendylan/sources/environment/dfmc/database/environment-objects.dylan:24
          CALL1(T26, T5);
        }
        // /home/bruce/Development/dylan/opendylan/sources/environment/dfmc/database/environment-objects.dylan:24
        // /home/bruce/Development/dylan/opendylan/sources/environment/dfmc/database/environment-objects.dylan:27
        T6_0 = &KPfalseVKi;
        T7_0 = T6_0;
      }
      // /home/bruce/Development/dylan/opendylan/sources/environment/dfmc/database/environment-objects.dylan:16
      T8_0 = T7_0;
    }
    // /home/bruce/Development/dylan/opendylan/sources/environment/dfmc/database/environment-objects.dylan:16
    T10_0 = T8_0;
  } else {
    // /home/bruce/Development/dylan/opendylan/sources/environment/dfmc/database/environment-objects.dylan:15
    T9_0 = &KPfalseVKi;
    T10_0 = T9_0;
  }
  // /home/bruce/Development/dylan/opendylan/sources/environment/dfmc/database/environment-objects.dylan:15
  // /home/bruce/Development/dylan/opendylan/sources/environment/dfmc/database/environment-objects.dylan:11
  MV_SET_COUNT(1);
  return(T10_0);
}

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

  // /home/bruce/Development/dylan/opendylan/sources/environment/dfmc/database/environment-objects.dylan:24
  // /home/bruce/Development/dylan/opendylan/sources/environment/dfmc/database/environment-objects.dylan:24
  T0.vector_element_[0] = &K13;
  T0.vector_element_[1] = CREF(0);
  // /home/bruce/Development/dylan/opendylan/sources/environment/dfmc/database/environment-objects.dylan:24
  T1 = primitive_copy_vector(&T0);
  // /home/bruce/Development/dylan/opendylan/sources/environment/dfmc/database/environment-objects.dylan:24
  T2_0 = T1;
  // /home/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 dylan_value KPresolve_symbolVKiI(dylan_value);
  {
    dylan_value T0;

    T0 = KPresolve_symbolVKiI(&KJimportedQ_);
    if (T0 != &KJimportedQ_) {
      IKJimportedQ_ = T0;
    }
  }
  {
    dylan_value 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 () {
{
  dylan_value T0;

  // /home/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 */
