@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());
}
}
@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());
}
@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();
}