sim_lib_lang_cl/
symbols.rs1use sim_kernel::Symbol;
2
3pub fn cl_lite_profile_symbol() -> Symbol {
5 Symbol::qualified("lang", "common-lisp-lite/v1")
6}
7
8pub fn cl_reader_symbol() -> Symbol {
10 Symbol::qualified("codec", "common-lisp-lite")
11}
12
13pub fn cl_lowering_symbol() -> Symbol {
15 Symbol::qualified("cl", "lowering-lite")
16}
17
18pub fn cl_conformance_test_symbol() -> Symbol {
20 Symbol::qualified("test", "common-lisp-lite-organs")
21}
22
23pub fn cl_binding_fidelity_symbol() -> Symbol {
25 Symbol::qualified("standard/fidelity", "cl-lite-binding-organ")
26}
27
28pub fn cl_control_fidelity_symbol() -> Symbol {
30 Symbol::qualified("standard/fidelity", "cl-lite-control-organ")
31}
32
33pub fn cl_dispatch_fidelity_symbol() -> Symbol {
35 Symbol::qualified("standard/fidelity", "cl-lite-dispatch-organ")
36}
37
38pub fn cl_namespace_fidelity_symbol() -> Symbol {
40 Symbol::qualified("standard/fidelity", "cl-lite-namespace-organ")
41}
42
43pub fn cl_mutation_fidelity_symbol() -> Symbol {
45 Symbol::qualified("standard/fidelity", "cl-lite-mutation-organ")
46}
47
48pub fn cl_clos_mop_fidelity_symbol() -> Symbol {
50 Symbol::qualified("standard/fidelity", "cl-lite-clos-mop-limited")
51}
52
53pub fn cl_lite_package_symbol() -> Symbol {
55 Symbol::qualified("common-lisp", "lite")
56}