(** To be increased each time the term type below changes, used for "safe"
* marshalling *)
-let magic = 5
+let magic = 6
type term =
(* CIC AST *)
| Box of box_spec * term list
| Group of term list
| Mstyle of (string * string) list * term list
+ | Mpadded of (string * string) list * term list
and magic_term =
(* level 1 magics *)