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