
  PROCEDURE [XREF] clp$add_format_token
    (    str_ptr: ^string ( * );
         clt_kind: clt$lexical_unit_kind;
         format_type: clt$format_token_type);

?? PUSH (LISTEXT := ON) ??
*copyc clt$format_token_type
*copyc clt$lexical_unit_kind
?? POP ??
