let inspect_ast_class_def (the_klass : Ast.class_def) = Printf.sprintf "{ klass = %s, parent = %s, sections = %s }" the_klass.klass (inspect_opt _id the_klass.parent) (inspect_ast_class_sections the_klass.sections)