如何从JSON Schema生成Common Lisp的CLOS类？

• cl-json-schema + closer-mop 组合：cl-json-schema 本身完整支持JSON Schema校验能力，配合closer-mop的元编程接口，可以批量遍历JSON Schema的结构节点，自动生成对应的CLOS类定义，嵌套类、字段类型约束、必填项标记都可以直接映射到类槽的:initarg、:type、:required属性上，序列化反序列化可直接对接yason的自定义编码器接口，不需要改动原有yason的使用习惯。注意：如果你的JSON Schema用到了draft 2020-12的新特性，优先选择该组合，目前只有这套方案支持最新版本的Schema规范
• jzon 库：自带轻量化的Schema到CLOS映射能力，无需额外依赖其他元编程库，支持JSON Schema draft 07的大部分核心特性，嵌套对象会自动生成对应的内部CLOS子类，反序列化时可以直接输出CLOS实例而不是alist/plist，序列化也可以直接把CLOS实例转成符合Schema要求的JSON字符串，适合对Schema兼容要求不是极端严苛的场景。
• schematic 库：专门为Common Lisp设计的数据结构映射工具，内置JSON Schema解析模块，支持把JSON Schema直接编译成CLOS类层级，同时自带序列化/反序列化能力，类型校验和转换都在映射阶段自动完成，不需要额外写校验逻辑，适合复杂嵌套层级的Schema场景。

如果不想引入额外的重型库，自己实现映射可以参考以下流程：

1. 先解析JSON Schema为alist结构，遍历所有$defs节点和顶层properties节点，每遇到一个type: object的节点就生成一个对应的CLOS类，类名可以用Schema的节点名转换为Lisp风格的短横线分隔命名
2. 类槽属性直接映射Schema字段属性：字段名转成对应的initarg和accessor，type属性映射为槽的:type约束，default属性映射为:initform，required列表里的字段标记为必填槽
3. 嵌套对象处理：遇到属性的type为object时，递归生成对应的内部类，槽的类型直接指定为生成的内部类；遇到array类型时，槽的类型指定为(array 对应元素类)
4. 对接yason扩展接口：实现yason:encode泛函数方法针对自定义生成的CLOS类做序列化，反序列化时写一个递归函数把yason输出的alist自动转换成对应的CLOS实例，遇到嵌套结构时递归实例化对应的子类。

内容的提问来源于stack exchange，提问作者CL-USER