
  PROCEDURE [XREF] clp$evaluate_token
    (    text: clt$string_value;
         evaluation_options: clt$token_evaluation_options;
     VAR index {input, output} : clt$string_index;
     VAR spaces_preceded_token: boolean;
     VAR token: clt$lexical_token;
     VAR status: ost$status);

?? PUSH (LISTEXT := ON) ??
*copyc cle$ecc_lexical
*copyc clt$lexical_token
*copyc clt$string_index
*copyc clt$string_value
*copyc clt$token_evaluation_options
*copyc ost$status
?? POP ??
