Skip to main content

sim_lib_lang_cl/
symbols.rs

1use sim_kernel::Symbol;
2
3/// Stable identity symbol for the Common Lisp (lite) language profile.
4pub fn cl_lite_profile_symbol() -> Symbol {
5    Symbol::qualified("lang", "common-lisp-lite/v1")
6}
7
8/// Codec symbol naming the CL-lite surface reader.
9pub fn cl_reader_symbol() -> Symbol {
10    Symbol::qualified("codec", "common-lisp-lite")
11}
12
13/// Symbol naming the CL-lite surface-to-`Expr` lowering pass.
14pub fn cl_lowering_symbol() -> Symbol {
15    Symbol::qualified("cl", "lowering-lite")
16}
17
18/// Symbol naming the profile's organ conformance test.
19pub fn cl_conformance_test_symbol() -> Symbol {
20    Symbol::qualified("test", "common-lisp-lite-organs")
21}
22
23/// Fidelity-badge symbol for the binding-organ surface coverage.
24pub fn cl_binding_fidelity_symbol() -> Symbol {
25    Symbol::qualified("standard/fidelity", "cl-lite-binding-organ")
26}
27
28/// Fidelity-badge symbol for the control-organ surface coverage.
29pub fn cl_control_fidelity_symbol() -> Symbol {
30    Symbol::qualified("standard/fidelity", "cl-lite-control-organ")
31}
32
33/// Fidelity-badge symbol for the dispatch-organ surface coverage.
34pub fn cl_dispatch_fidelity_symbol() -> Symbol {
35    Symbol::qualified("standard/fidelity", "cl-lite-dispatch-organ")
36}
37
38/// Fidelity-badge symbol for the namespace-organ surface coverage.
39pub fn cl_namespace_fidelity_symbol() -> Symbol {
40    Symbol::qualified("standard/fidelity", "cl-lite-namespace-organ")
41}
42
43/// Fidelity-badge symbol for the mutation-organ surface coverage.
44pub fn cl_mutation_fidelity_symbol() -> Symbol {
45    Symbol::qualified("standard/fidelity", "cl-lite-mutation-organ")
46}
47
48/// Fidelity-badge symbol marking the limited CLOS/MOP surface.
49pub fn cl_clos_mop_fidelity_symbol() -> Symbol {
50    Symbol::qualified("standard/fidelity", "cl-lite-clos-mop-limited")
51}
52
53/// Symbol naming the CL-lite package namespace.
54pub fn cl_lite_package_symbol() -> Symbol {
55    Symbol::qualified("common-lisp", "lite")
56}