module PI = Parse_infotype token = | TComment of Ast_lisp.info| TCommentSpace of Ast_lisp.info| TCommentNewline of Ast_lisp.info| TNumber of string * Ast_lisp.info| TIdent of string * Ast_lisp.info| TString of string * Ast_lisp.info| TOParen of Ast_lisp.info| TCParen of Ast_lisp.info| TOBracket of Ast_lisp.info| TCBracket of Ast_lisp.info| TQuote of Ast_lisp.info| TBackQuote of Ast_lisp.info| TComma of Ast_lisp.info| TAt of Ast_lisp.info| TUnknown of Ast_lisp.info| EOF of Ast_lisp.infoval is_eof : token -> boolval is_comment : token -> boolval is_just_comment : token -> boolval visitor_info_of_tok : (Ast_lisp.info -> Ast_lisp.info) -> token -> tokenval info_of_tok : token -> Ast_lisp.infoval str_of_tok : token -> string