
  PROCEDURE [XREF] clp$identify_lexical_unit
    (    termination_option: clt$slu_termination_option;
         text: ^clt$string_value;
     VAR index {input, output} : clt$string_index;
     VAR unit_index: clt$string_index;
     VAR unit_is_space: boolean;
     VAR unit: clt$lexical_unit);

?? PUSH (LISTEXT := ON) ??
*copyc clt$lexical_unit
*copyc clt$slu_termination_option
*copyc clt$string_index
*copyc clt$string_value
?? POP ??
