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)