/** * 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); } }