public static final SubLObject init_builder_utilities_file() {
$all_cyc_products$ = defparameter("*ALL-CYC-PRODUCTS*", NIL);
$cyc_product_definitions$ = defparameter("*CYC-PRODUCT-DEFINITIONS*", NIL);
$cyc_product$ =
deflexical(
"*CYC-PRODUCT*",
((NIL != Symbols.boundp($sym49$_CYC_PRODUCT_))
? ((SubLObject) $cyc_product$.getGlobalValue())
: NIL));
$code_product$ = defconstant("*CODE-PRODUCT*", $kw42$STANDARD);
$kb_product$ =
deflexical(
"*KB-PRODUCT*",
((NIL != Symbols.boundp($sym50$_KB_PRODUCT_))
? ((SubLObject) $kb_product$.getGlobalValue())
: NIL));
$branch_tag$ = defconstant("*BRANCH-TAG*", $str44$head);
$generic_sbhl_caching_policy_templates$ =
defparameter(
"*GENERIC-SBHL-CACHING-POLICY-TEMPLATES*",
list(
new SubLObject[] {
specify_sbhl_caching_policy_template(
$kw55$DEFAULT, $kw56$STICKY, $kw57$UNDEFINED, $kw58$ALL, UNPROVIDED),
specify_sbhl_caching_policy_template(
$const59$genlMt, $kw56$STICKY, $kw57$UNDEFINED, $kw58$ALL, $kw58$ALL),
specify_sbhl_caching_policy_template(
$const60$genlPreds, $kw61$SWAPOUT, $int62$500, $int62$500, $int63$200),
specify_sbhl_caching_policy_template(
$const64$negationPreds, $kw61$SWAPOUT, $int62$500, $int65$100, ZERO_INTEGER),
specify_sbhl_caching_policy_template(
$const66$disjointWith, $kw61$SWAPOUT, $int62$500, $int62$500, $int63$200),
specify_sbhl_caching_policy_template(
$const67$genlInverse, $kw61$SWAPOUT, $int62$500, $int62$500, $int63$200),
specify_sbhl_caching_policy_template(
$const68$negationInverse,
$kw61$SWAPOUT,
$int62$500,
$int65$100,
ZERO_INTEGER),
specify_sbhl_caching_policy_template(
$const69$genls, $kw61$SWAPOUT, $int70$5000, $int70$5000, $int71$2000),
specify_sbhl_caching_policy_template(
$const72$isa, $kw61$SWAPOUT, $int73$10000, $int74$8000, $int71$2000),
specify_sbhl_caching_policy_template(
$const75$quotedIsa, $kw61$SWAPOUT, $int70$5000, $int76$4000, $int77$1000)
}));
$cyc_tests_to_use_for_sbhl_cache_tuning$ =
defparameter("*CYC-TESTS-TO-USE-FOR-SBHL-CACHE-TUNING*", NIL);
$kb_queries_to_use_for_sbhl_cache_tuning$ =
defparameter("*KB-QUERIES-TO-USE-FOR-SBHL-CACHE-TUNING*", NIL);
$run_cyclops_for_sbhl_cache_tuningP$ =
defparameter("*RUN-CYCLOPS-FOR-SBHL-CACHE-TUNING?*", NIL);
return NIL;
}
public static final SubLObject init_constant_completion_file() {
$constant_names_in_code$ =
deflexical(
"*CONSTANT-NAMES-IN-CODE*",
((NIL != Symbols.boundp($sym0$_CONSTANT_NAMES_IN_CODE_))
? ((SubLObject) $constant_names_in_code$.getGlobalValue())
: NIL));
$bogus_constant_names_in_code$ =
deflexical(
"*BOGUS-CONSTANT-NAMES-IN-CODE*",
((NIL != Symbols.boundp($sym1$_BOGUS_CONSTANT_NAMES_IN_CODE_))
? ((SubLObject) $bogus_constant_names_in_code$.getGlobalValue())
: NIL));
return NIL;
}
@SubL(source = "cycl/operation-queues.lisp", position = 9125)
public static final SubLObject local_operation_storage_queue_enqueue(SubLObject operation) {
{
final SubLThread thread = SubLProcess.currentSubLThread();
{
SubLObject lock = $local_operation_storage_queue_lock$.getDynamicValue(thread);
SubLObject release = NIL;
try {
release = Locks.seize_lock(lock);
queues.enqueue(operation, $local_operation_storage_queue$.getGlobalValue());
} finally {
if ((NIL != release)) {
Locks.release_lock(lock);
}
}
}
return NIL;
}
}
@SubL(source = "cycl/operation-queues.lisp", position = 5157)
public static final SubLObject transcript_queue_dequeue() {
{
final SubLThread thread = SubLProcess.currentSubLThread();
{
SubLObject ans = NIL;
SubLObject lock = $transcript_queue_lock$.getDynamicValue(thread);
SubLObject release = NIL;
try {
release = Locks.seize_lock(lock);
ans = queues.dequeue($transcript_queue$.getGlobalValue());
} finally {
if ((NIL != release)) {
Locks.release_lock(lock);
}
}
return ans;
}
}
}
public static final SubLObject setup_bag_file() {
// CVS_ID("Id: bag.lisp 126640 2008-12-04 13:39:36Z builder ");
Structures.register_method(
print_high.$print_object_method_table$.getGlobalValue(),
$dtp_bag$.getGlobalValue(),
Symbols.symbol_function($sym8$BAG_PRINT_FUNCTION_TRAMPOLINE));
Structures.def_csetf(
$sym9$BAG_STRUCT_UNIQUE_CONTENTS, $sym10$_CSETF_BAG_STRUCT_UNIQUE_CONTENTS);
Structures.def_csetf(
$sym11$BAG_STRUCT_REPEAT_CONTENTS, $sym12$_CSETF_BAG_STRUCT_REPEAT_CONTENTS);
Structures.def_csetf($sym13$BAG_STRUCT_REPEAT_SIZE, $sym14$_CSETF_BAG_STRUCT_REPEAT_SIZE);
Structures.def_csetf($sym15$BAG_STRUCT_TEST, $sym16$_CSETF_BAG_STRUCT_TEST);
Equality.identity($sym0$BAG);
access_macros.register_macro_helper($sym54$DO_BAG_REPEAT_INTERNAL, $sym63$DO_BAG_UNIQUE);
access_macros.register_macro_helper($sym58$DO_BAG_UNIQUE_INTERNAL, $sym63$DO_BAG_UNIQUE);
cfasl.register_cfasl_input_function(
$cfasl_opcode_bag$.getGlobalValue(), $sym65$CFASL_INPUT_BAG);
Structures.register_method(
cfasl.$cfasl_output_object_method_table$.getGlobalValue(),
$dtp_bag$.getGlobalValue(),
Symbols.symbol_function($sym66$CFASL_OUTPUT_OBJECT_BAG_METHOD));
generic_testing.define_test_case_table_int(
$sym70$BAG_UNIT_TEST_KITCHEN_SINK,
list(
new SubLObject[] {
$kw20$TEST,
NIL,
$kw71$OWNER,
NIL,
$kw72$CLASSES,
NIL,
$kw73$KB,
$kw74$TINY,
$kw75$WORKING_,
T
}),
$list76);
return NIL;
}
/**
* Returns the cyc product identifier for this combination of code-product, kb-product and
* branch-tag.
*/
@SubL(source = "cycl/builder-utilities.lisp", position = 28769)
public static final SubLObject find_cyc_product(
SubLObject code_product, SubLObject kb_product, SubLObject branch_tag) {
{
final SubLThread thread = SubLProcess.currentSubLThread();
return Sequences.find(
list(code_product, kb_product, branch_tag),
$cyc_product_definitions$.getDynamicValue(thread),
Symbols.symbol_function(EQUAL),
Symbols.symbol_function($sym40$CDR),
UNPROVIDED,
UNPROVIDED)
.first();
}
}
/** Returns T if a cyc product definition composed of these 4 values exists. */
@SubL(source = "cycl/builder-utilities.lisp", position = 28472)
public static final SubLObject cyc_product_definition_presentP(
SubLObject cyc_product,
SubLObject code_product,
SubLObject kb_product,
SubLObject branch_tag) {
{
final SubLThread thread = SubLProcess.currentSubLThread();
return conses_high.member(
list(cyc_product, code_product, kb_product, branch_tag),
$cyc_product_definitions$.getDynamicValue(thread),
Symbols.symbol_function(EQUAL),
UNPROVIDED);
}
}
public static final SubLObject setup_hierarchical_visitor_file() {
// CVS_ID("Id: hierarchical-visitor.lisp 127954 2009-06-04 20:08:55Z rck ");
Structures.register_method(
print_high.$print_object_method_table$.getGlobalValue(),
$dtp_hierarchical_visitor$.getGlobalValue(),
Symbols.symbol_function($sym8$HIERARCHICAL_VISITOR_PRINT_FUNCTION_TRAMPOLINE));
Structures.def_csetf($sym9$HIER_VISIT_BEGIN_PATH_FN, $sym10$_CSETF_HIER_VISIT_BEGIN_PATH_FN);
Structures.def_csetf($sym11$HIER_VISIT_END_PATH_FN, $sym12$_CSETF_HIER_VISIT_END_PATH_FN);
Structures.def_csetf($sym13$HIER_VISIT_ACCEPT_NODE_FN, $sym14$_CSETF_HIER_VISIT_ACCEPT_NODE_FN);
Structures.def_csetf($sym15$HIER_VISIT_BEGIN_VISIT_FN, $sym16$_CSETF_HIER_VISIT_BEGIN_VISIT_FN);
Structures.def_csetf($sym17$HIER_VISIT_END_VISIT_FN, $sym18$_CSETF_HIER_VISIT_END_VISIT_FN);
Structures.def_csetf($sym19$HIER_VISIT_PARAM, $sym20$_CSETF_HIER_VISIT_PARAM);
Equality.identity($sym1$HIERARCHICAL_VISITOR);
return NIL;
}
@SubL(source = "cycl/constant-completion.lisp", position = 2143)
public static final SubLObject compute_bogus_constant_names_in_code() {
{
final SubLThread thread = SubLProcess.currentSubLThread();
if ((NIL != $constant_names_in_code$.getGlobalValue())) {
{
SubLObject _prev_bind_0 =
utilities_macros.$noting_progress_start_time$.currentBinding(thread);
try {
utilities_macros.$noting_progress_start_time$.bind(Time.get_universal_time(), thread);
utilities_macros.noting_progress_preamble($str4$Computing_bogus_constant_names_in);
$bogus_constant_names_in_code$.setGlobalValue(NIL);
{
SubLObject cdolist_list_var = $constant_names_in_code$.getGlobalValue();
SubLObject name = NIL;
for (name = cdolist_list_var.first();
(NIL != cdolist_list_var);
cdolist_list_var = cdolist_list_var.rest(), name = cdolist_list_var.first()) {
{
SubLObject constant = constants_high.find_constant(name);
if ((NIL != constants_high.uninstalled_constant_p(constant))) {
$bogus_constant_names_in_code$.setGlobalValue(
cons(name, $bogus_constant_names_in_code$.getGlobalValue()));
}
}
}
}
$bogus_constant_names_in_code$.setGlobalValue(
Sort.sort(
$bogus_constant_names_in_code$.getGlobalValue(),
Symbols.symbol_function($sym3$STRING_),
UNPROVIDED));
utilities_macros.noting_progress_postamble();
} finally {
utilities_macros.$noting_progress_start_time$.rebind(_prev_bind_0, thread);
}
}
}
return Sequences.length($bogus_constant_names_in_code$.getGlobalValue());
}
}
/**
* Declare that CYC-PRODUCT is composed of CODE-PRODUCT, KB-PRODUCT and BRANCH-TAG. This
* information is used to compositionally determine the CYC-PRODUCT of a running image, which in
* turn can be used to gate various behaviors.
*/
@SubL(source = "cycl/builder-utilities.lisp", position = 27262)
public static final SubLObject declare_cyc_product(
SubLObject cyc_product,
SubLObject code_product,
SubLObject kb_product,
SubLObject branch_tag) {
{
final SubLThread thread = SubLProcess.currentSubLThread();
checkType(cyc_product, $sym35$KEYWORDP);
checkType(kb_product, $sym35$KEYWORDP);
checkType(code_product, $sym35$KEYWORDP);
checkType(branch_tag, $sym36$STRINGP);
if ((NIL
!= cyc_product_definition_presentP(cyc_product, code_product, kb_product, branch_tag))) {
return Errors.warn($str37$The_cyc_product___A__is_already_p, cyc_product);
} else if ((NIL != find_cyc_product(code_product, kb_product, branch_tag))) {
return Errors.error(
$str38$There_already_exists_a_different_,
find_cyc_product(code_product, kb_product, branch_tag));
} else if ((NIL
!= conses_high.assoc(
cyc_product,
$cyc_product_definitions$.getDynamicValue(thread),
UNPROVIDED,
UNPROVIDED))) {
return Errors.error($str39$The_cyc_product__A_already_exists, cyc_product);
} else {
$all_cyc_products$.setDynamicValue(
cons(cyc_product, $all_cyc_products$.getDynamicValue(thread)), thread);
$cyc_product_definitions$.setDynamicValue(
cons(
list(cyc_product, kb_product, code_product, branch_tag),
$cyc_product_definitions$.getDynamicValue(thread)),
thread);
return $cyc_product_definitions$.getDynamicValue(thread);
}
}
}
@SubL(source = "cycl/constant-completion.lisp", position = 1600)
public static final SubLObject initialize_constant_names_in_code() {
if (ZERO_INTEGER.numE(constant_handles.constant_count())) {
$constant_names_in_code$.setGlobalValue(NIL);
{
SubLObject cdolist_list_var = constant_handles.invalid_constant_names();
SubLObject invalid_constant_name = NIL;
for (invalid_constant_name = cdolist_list_var.first();
(NIL != cdolist_list_var);
cdolist_list_var = cdolist_list_var.rest(),
invalid_constant_name = cdolist_list_var.first()) {
$constant_names_in_code$.setGlobalValue(
cons(invalid_constant_name, $constant_names_in_code$.getGlobalValue()));
}
}
$constant_names_in_code$.setGlobalValue(
Sort.sort(
$constant_names_in_code$.getGlobalValue(),
Symbols.symbol_function($sym3$STRING_),
UNPROVIDED));
}
return Sequences.length($constant_names_in_code$.getGlobalValue());
}
public static final SubLObject setup_simple_lru_cache_strategy_file() {
// CVS_ID("Id: simple-lru-cache-strategy.lisp 126880 2009-01-22 21:59:16Z tbrussea ");
Structures.register_method(
print_high.$print_object_method_table$.getGlobalValue(),
$dtp_simple_lru_cache_strategy$.getGlobalValue(),
Symbols.symbol_function($sym7$SIMPLE_LRU_CACHE_STRATEGY_PRINT_FUNCTION_TRAMPOLINE));
Structures.def_csetf($sym8$SLRU_CACHESTRAT_CAPACITY, $sym9$_CSETF_SLRU_CACHESTRAT_CAPACITY);
Structures.def_csetf($sym10$SLRU_CACHESTRAT_INDEX, $sym11$_CSETF_SLRU_CACHESTRAT_INDEX);
Structures.def_csetf($sym12$SLRU_CACHESTRAT_PAYLOAD, $sym13$_CSETF_SLRU_CACHESTRAT_PAYLOAD);
Structures.def_csetf($sym14$SLRU_CACHESTRAT_HEAD, $sym15$_CSETF_SLRU_CACHESTRAT_HEAD);
Structures.def_csetf($sym16$SLRU_CACHESTRAT_TAIL, $sym17$_CSETF_SLRU_CACHESTRAT_TAIL);
Structures.def_csetf(
$sym18$SLRU_CACHESTRAT_FREELIST_HEAD, $sym19$_CSETF_SLRU_CACHESTRAT_FREELIST_HEAD);
Structures.def_csetf($sym20$SLRU_CACHESTRAT_METRICS, $sym21$_CSETF_SLRU_CACHESTRAT_METRICS);
Equality.identity($sym0$SIMPLE_LRU_CACHE_STRATEGY);
Structures.register_method(
cache_utilities.$cache_strategy_object_p_method_table$.getGlobalValue(),
$dtp_simple_lru_cache_strategy$.getGlobalValue(),
Symbols.symbol_function($sym50$CACHE_STRATEGY_OBJECT_P_SIMPLE_LRU_CACHE_STRATEGY_METHOD));
Structures.register_method(
cache_utilities.$cache_strategy_object_reset_method_table$.getGlobalValue(),
$dtp_simple_lru_cache_strategy$.getGlobalValue(),
Symbols.symbol_function(
$sym51$CACHE_STRATEGY_OBJECT_RESET_SIMPLE_LRU_CACHE_STRATEGY_METHOD));
Structures.register_method(
cache_utilities.$cache_strategy_object_cache_capacity_method_table$.getGlobalValue(),
$dtp_simple_lru_cache_strategy$.getGlobalValue(),
Symbols.symbol_function(
$sym52$CACHE_STRATEGY_OBJECT_CACHE_CAPACITY_SIMPLE_LRU_CACHE_STRATEGY_ME));
Structures.register_method(
cache_utilities.$cache_strategy_object_cache_size_method_table$.getGlobalValue(),
$dtp_simple_lru_cache_strategy$.getGlobalValue(),
Symbols.symbol_function(
$sym53$CACHE_STRATEGY_OBJECT_CACHE_SIZE_SIMPLE_LRU_CACHE_STRATEGY_METHOD));
Structures.register_method(
cache_utilities.$cache_strategy_object_track_method_table$.getGlobalValue(),
$dtp_simple_lru_cache_strategy$.getGlobalValue(),
Symbols.symbol_function(
$sym54$CACHE_STRATEGY_OBJECT_TRACK_SIMPLE_LRU_CACHE_STRATEGY_METHOD));
Structures.register_method(
cache_utilities.$cache_strategy_object_trackedP_method_table$.getGlobalValue(),
$dtp_simple_lru_cache_strategy$.getGlobalValue(),
Symbols.symbol_function(
$sym55$CACHE_STRATEGY_OBJECT_TRACKED__SIMPLE_LRU_CACHE_STRATEGY_METHOD));
Structures.register_method(
cache_utilities.$cache_strategy_object_untrack_method_table$.getGlobalValue(),
$dtp_simple_lru_cache_strategy$.getGlobalValue(),
Symbols.symbol_function(
$sym56$CACHE_STRATEGY_OBJECT_UNTRACK_SIMPLE_LRU_CACHE_STRATEGY_METHOD));
Structures.register_method(
cache_utilities.$cache_strategy_object_supports_parameter_p_method_table$.getGlobalValue(),
$dtp_simple_lru_cache_strategy$.getGlobalValue(),
Symbols.symbol_function(
$sym57$CACHE_STRATEGY_OBJECT_SUPPORTS_PARAMETER_P_SIMPLE_LRU_CACHE_STRAT));
Structures.register_method(
cache_utilities.$cache_strategy_object_get_parameter_method_table$.getGlobalValue(),
$dtp_simple_lru_cache_strategy$.getGlobalValue(),
Symbols.symbol_function(
$sym58$CACHE_STRATEGY_OBJECT_GET_PARAMETER_SIMPLE_LRU_CACHE_STRATEGY_MET));
Structures.register_method(
cache_utilities.$cache_strategy_object_set_parameter_method_table$.getGlobalValue(),
$dtp_simple_lru_cache_strategy$.getGlobalValue(),
Symbols.symbol_function(
$sym59$CACHE_STRATEGY_OBJECT_SET_PARAMETER_SIMPLE_LRU_CACHE_STRATEGY_MET));
Structures.register_method(
cache_utilities.$cache_strategy_object_note_reference_method_table$.getGlobalValue(),
$dtp_simple_lru_cache_strategy$.getGlobalValue(),
Symbols.symbol_function(
$sym60$CACHE_STRATEGY_OBJECT_NOTE_REFERENCE_SIMPLE_LRU_CACHE_STRATEGY_ME));
Structures.register_method(
cache_utilities.$cache_strategy_object_note_references_in_order_method_table$
.getGlobalValue(),
$dtp_simple_lru_cache_strategy$.getGlobalValue(),
Symbols.symbol_function(
$sym61$CACHE_STRATEGY_OBJECT_NOTE_REFERENCES_IN_ORDER_SIMPLE_LRU_CACHE_S));
Structures.register_method(
cache_utilities.$cache_strategy_object_get_metrics_method_table$.getGlobalValue(),
$dtp_simple_lru_cache_strategy$.getGlobalValue(),
Symbols.symbol_function(
$sym62$CACHE_STRATEGY_OBJECT_GET_METRICS_SIMPLE_LRU_CACHE_STRATEGY_METHO));
Structures.register_method(
cache_utilities.$cache_strategy_object_reset_metrics_method_table$.getGlobalValue(),
$dtp_simple_lru_cache_strategy$.getGlobalValue(),
Symbols.symbol_function(
$sym63$CACHE_STRATEGY_OBJECT_RESET_METRICS_SIMPLE_LRU_CACHE_STRATEGY_MET));
Structures.register_method(
cache_utilities.$cache_strategy_object_gather_metrics_method_table$.getGlobalValue(),
$dtp_simple_lru_cache_strategy$.getGlobalValue(),
Symbols.symbol_function(
$sym64$CACHE_STRATEGY_OBJECT_GATHER_METRICS_SIMPLE_LRU_CACHE_STRATEGY_ME));
Structures.register_method(
cache_utilities.$cache_strategy_object_dont_gather_metrics_method_table$.getGlobalValue(),
$dtp_simple_lru_cache_strategy$.getGlobalValue(),
Symbols.symbol_function(
$sym65$CACHE_STRATEGY_OBJECT_DONT_GATHER_METRICS_SIMPLE_LRU_CACHE_STRATE));
Structures.register_method(
cache_utilities.$cache_strategy_object_keeps_metrics_p_method_table$.getGlobalValue(),
$dtp_simple_lru_cache_strategy$.getGlobalValue(),
Symbols.symbol_function(
$sym66$CACHE_STRATEGY_OBJECT_KEEPS_METRICS_P_SIMPLE_LRU_CACHE_STRATEGY_M));
Structures.register_method(
cache_utilities.$new_cache_strategy_object_tracked_content_iterator_method_table$
.getGlobalValue(),
$dtp_simple_lru_cache_strategy$.getGlobalValue(),
Symbols.symbol_function(
$sym67$NEW_CACHE_STRATEGY_OBJECT_TRACKED_CONTENT_ITERATOR_SIMPLE_LRU_CAC));
Structures.register_method(
cache_utilities.$map_cache_strategy_object_tracked_content_method_table$.getGlobalValue(),
$dtp_simple_lru_cache_strategy$.getGlobalValue(),
Symbols.symbol_function(
$sym68$MAP_CACHE_STRATEGY_OBJECT_TRACKED_CONTENT_SIMPLE_LRU_CACHE_STRATE));
Structures.register_method(
cache_utilities.$cache_strategy_object_untrack_all_method_table$.getGlobalValue(),
$dtp_simple_lru_cache_strategy$.getGlobalValue(),
Symbols.symbol_function(
$sym69$CACHE_STRATEGY_OBJECT_UNTRACK_ALL_SIMPLE_LRU_CACHE_STRATEGY_METHO));
generic_testing.define_test_case_table_int(
$sym70$TEST_BASIC_SLRU_CACHE_STRATEGY,
list(
new SubLObject[] {
$kw71$TEST,
NIL,
$kw72$OWNER,
NIL,
$kw73$CLASSES,
NIL,
$kw74$KB,
$kw75$TINY,
$kw76$WORKING_,
T
}),
$list77);
generic_testing.define_test_case_table_int(
$sym90$COMPARE_SLRU_CACHE_STRATEGY_WITH_CACHE,
list(
new SubLObject[] {
$kw71$TEST,
NIL,
$kw72$OWNER,
NIL,
$kw73$CLASSES,
NIL,
$kw74$KB,
$kw75$TINY,
$kw76$WORKING_,
NIL
}),
$list91);
generic_testing.define_test_case_table_int(
$sym93$COMPARE_SLRU_CACHE_STRATEGY_SPEED_WITH_CACHE,
list(
new SubLObject[] {
$kw71$TEST,
NIL,
$kw72$OWNER,
NIL,
$kw73$CLASSES,
NIL,
$kw74$KB,
$kw75$TINY,
$kw76$WORKING_,
NIL
}),
$list94);
return NIL;
}
/** Return T iff there are no local operations pending. */
@SubL(source = "cycl/operation-queues.lisp", position = 2081)
public static final SubLObject local_queue_empty() {
return queues.queue_empty_p($local_queue$.getGlobalValue());
}
public static final SubLObject init_operation_queues_file() {
$local_queue$ =
deflexical(
"*LOCAL-QUEUE*",
((NIL != Symbols.boundp($sym0$_LOCAL_QUEUE_))
? ((SubLObject) $local_queue$.getGlobalValue())
: queues.create_queue()));
$local_queue_lock$ =
defparameter("*LOCAL-QUEUE-LOCK*", Locks.make_lock($str1$Local_Queue_Lock));
$remote_queue$ =
deflexical(
"*REMOTE-QUEUE*",
((NIL != Symbols.boundp($sym3$_REMOTE_QUEUE_))
? ((SubLObject) $remote_queue$.getGlobalValue())
: queues.create_queue()));
$remote_queue_lock$ =
defparameter("*REMOTE-QUEUE-LOCK*", Locks.make_lock($str4$Remote_Queue_Lock));
$transcript_queue$ =
deflexical(
"*TRANSCRIPT-QUEUE*",
((NIL != Symbols.boundp($sym5$_TRANSCRIPT_QUEUE_))
? ((SubLObject) $transcript_queue$.getGlobalValue())
: queues.create_queue()));
$transcript_queue_lock$ =
defparameter("*TRANSCRIPT-QUEUE-LOCK*", Locks.make_lock($str6$Transcript_Queue_Lock));
$hl_transcript_queue$ =
deflexical(
"*HL-TRANSCRIPT-QUEUE*",
((NIL != Symbols.boundp($sym7$_HL_TRANSCRIPT_QUEUE_))
? ((SubLObject) $hl_transcript_queue$.getGlobalValue())
: queues.create_queue()));
$hl_transcript_queue_lock$ =
defparameter("*HL-TRANSCRIPT-QUEUE-LOCK*", Locks.make_lock($str8$HL_Transcript_Queue_Lock));
$auxiliary_queue$ =
deflexical(
"*AUXILIARY-QUEUE*",
((NIL != Symbols.boundp($sym9$_AUXILIARY_QUEUE_))
? ((SubLObject) $auxiliary_queue$.getGlobalValue())
: queues.create_queue()));
$auxiliary_queue_lock$ =
defparameter("*AUXILIARY-QUEUE-LOCK*", Locks.make_lock($str10$Auxiliary_Queue_Lock));
$transmit_queue$ =
deflexical(
"*TRANSMIT-QUEUE*",
((NIL != Symbols.boundp($sym11$_TRANSMIT_QUEUE_))
? ((SubLObject) $transmit_queue$.getGlobalValue())
: queues.create_queue()));
$transmit_queue_lock$ =
defparameter("*TRANSMIT-QUEUE-LOCK*", Locks.make_lock($str12$Transmit_Queue_Lock));
$local_operation_storage_queue$ =
deflexical(
"*LOCAL-OPERATION-STORAGE-QUEUE*",
((NIL != Symbols.boundp($sym13$_LOCAL_OPERATION_STORAGE_QUEUE_))
? ((SubLObject) $local_operation_storage_queue$.getGlobalValue())
: queues.create_queue()));
$local_operation_storage_queue_lock$ =
defparameter(
"*LOCAL-OPERATION-STORAGE-QUEUE-LOCK*",
Locks.make_lock($str14$Local_Operation_Queue_Lock));
$within_a_remote_opP$ = defparameter("*WITHIN-A-REMOTE-OP?*", NIL);
$hl_transcripts_enabledP$ = defparameter("*HL-TRANSCRIPTS-ENABLED?*", NIL);
$hl_transcript_special_operators$ = deflexical("*HL-TRANSCRIPT-SPECIAL-OPERATORS*", $list17);
return NIL;
}
@SubL(source = "cycl/builder-utilities.lisp", position = 30707)
public static final SubLObject kb_product() {
return $kb_product$.getGlobalValue();
}
@SubL(source = "cycl/operation-queues.lisp", position = 7824)
public static final SubLObject transmit_queue_empty() {
return queues.queue_empty_p($transmit_queue$.getGlobalValue());
}
@SubL(source = "cycl/operation-queues.lisp", position = 6856)
public static final SubLObject auxiliary_queue_empty() {
return queues.queue_empty_p($auxiliary_queue$.getGlobalValue());
}
@SubL(source = "cycl/builder-utilities.lisp", position = 30762)
public static final SubLObject branch_tag() {
return $branch_tag$.getGlobalValue();
}
@SubL(source = "cycl/operation-queues.lisp", position = 4698)
public static final SubLObject transcript_queue_size() {
return queues.queue_size($transcript_queue$.getGlobalValue());
}
@SubL(source = "cycl/builder-utilities.lisp", position = 30817)
public static final SubLObject set_cyc_product(SubLObject cyc_product) {
checkType(cyc_product, $sym35$KEYWORDP);
$cyc_product$.setGlobalValue(cyc_product);
return cyc_product();
}