Skip to main content

sim_lib_standard_core/
lisp.rs

1//! Symbols exposed by the standard distribution on the lisp codec surface.
2
3use sim_kernel::Symbol;
4
5/// Lisp-surface symbol naming the standard profile entry point.
6pub fn standard_profile_symbol() -> Symbol {
7    Symbol::qualified("standard", "profile")
8}
9
10/// Lisp-surface symbol naming the standard fidelity entry point.
11pub fn standard_fidelity_symbol() -> Symbol {
12    Symbol::qualified("standard", "fidelity")
13}
14
15/// The full set of symbols the standard distribution exposes on the lisp codec
16/// surface (profile, fidelity, diff, install, test, and organ queries).
17pub fn lisp_stub_symbols() -> Vec<Symbol> {
18    vec![
19        standard_profile_symbol(),
20        standard_fidelity_symbol(),
21        Symbol::qualified("profile", "diff"),
22        Symbol::qualified("standard", "install"),
23        Symbol::qualified("standard", "diff"),
24        Symbol::qualified("standard", "test"),
25        Symbol::qualified("organ", "list"),
26        Symbol::qualified("organ", "describe"),
27    ]
28}