一般的な Lisp の json シリアル化 API を実装しようとしています。これを実現するために、 というメタクラスを定義しましたjson-class。このメタクラスは:ignore、オブジェクトの特定のスロットを無視するために使用されるスロット オプションを定義します。シリアル化プロセスに yason をyason:encode-slots使用しているため、 metaclass を使用するクラスのすべてのオブジェクトにメソッドを特化したいと考えましたjson-class。これを達成するために私が考えることができる唯一の方法は、メソッドを特殊化するために使用できるjson-class型からインスタンス化されたすべてのオブジェクトを作成することです。json-object私が複製しようとしている動作は、standard-classtype のオブジェクトの生成を使用して、すべてのクラスで構成される MOP によって既に実装されている動作と同じstandard-objectです。