
  PROCEDURE [XREF] clp$generate_type_specification
    (    type_name: clt$type_name;
         first_line: ^clt$command_line;
         first_line_index: clt$command_line_index;
         get_line: clt$input_procedure;
     VAR work_area {input, output} : ^clt$work_area;
     VAR last_line: ^clt$command_line;
     VAR last_line_index: clt$command_line_index;
     VAR type_specification: ^clt$type_specification;
     VAR status: ost$status);

?? PUSH (LISTEXT := ON) ??
*copyc clt$command_line
*copyc clt$command_line_index
*copyc clt$input_procedure
*copyc clt$type_name
*copyc clt$type_specification
*copyc clt$work_area
*copyc ost$status
?? POP ??
