val transl_class : Ident.t list -> Ident.t -> string list -> Typedtree.class_expr -> Asttypes.virtual_flag -> Lambda.lambda
exception Error of Location.t * error
val report_error : Stdlib.Format.formatter -> error -> unit
Translclassval transl_class : Ident.t list -> Ident.t -> string list -> Typedtree.class_expr -> Asttypes.virtual_flag -> Lambda.lambdaexception Error of Location.t * errorval report_error : Stdlib.Format.formatter -> error -> unit