@SubL(source = "sublisp/condition-macros.lisp", position = 821)
 public static final SubLObject with_simple_restart(SubLObject macroform, SubLObject environment) {
   {
     SubLObject datum = macroform.rest();
     SubLObject current = datum;
     cdestructuring_bind.destructuring_bind_must_consp(current, datum, $list0);
     {
       SubLObject temp = current.rest();
       current = current.first();
       {
         SubLObject name = NIL;
         SubLObject format_control = NIL;
         cdestructuring_bind.destructuring_bind_must_consp(current, datum, $list0);
         name = current.first();
         current = current.rest();
         cdestructuring_bind.destructuring_bind_must_consp(current, datum, $list0);
         format_control = current.first();
         current = current.rest();
         {
           SubLObject format_arguments = current;
           current = temp;
           {
             SubLObject body = current;
             return with_simple_restart_internal(name, format_control, format_arguments, body);
           }
         }
       }
     }
   }
 }
 @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());
 }
 /**
  * Generate a KB SBHL caching policy proposal for sticky SBHL caching that for all passed link
  * predicates.
  *
  * @param WITH-PREFETCH-P determines whether the prefetch will be all or none
  * @return the policies
  */
 @SubL(source = "cycl/builder-utilities.lisp", position = 38500)
 public static final SubLObject propose_all_sticky_kb_sbhl_caching_policies(
     SubLObject link_predicates, SubLObject with_prefetch_p) {
   if ((NIL == link_predicates)) {
     link_predicates = get_all_sbhl_module_link_predicates();
   }
   {
     SubLObject prefetch = ((NIL != with_prefetch_p) ? ((SubLObject) $kw58$ALL) : NIL);
     SubLObject policies = NIL;
     SubLObject cdolist_list_var = link_predicates;
     SubLObject link_predicate = NIL;
     for (link_predicate = cdolist_list_var.first();
         (NIL != cdolist_list_var);
         cdolist_list_var = cdolist_list_var.rest(), link_predicate = cdolist_list_var.first()) {
       {
         SubLObject legacy_policy =
             sbhl_caching_policies.create_sbhl_caching_policy_from_term_recommendation_list(
                 link_predicate, $kw56$STICKY, $kw57$UNDEFINED, NIL, $kw58$ALL, prefetch);
         policies = cons(legacy_policy, policies);
       }
     }
     return Sequences.nreverse(policies);
   }
 }