
  PROCEDURE [INLINE] clp$find_first_var_block
    (VAR allowed_classes {input, output} : clt$internal_variable_classes;
     VAR inherited_input_allowed_classes: clt$internal_variable_classes;
     VAR inherited_input_block: ^clt$block;
     VAR current_block: ^clt$block;
     VAR associated_utility: boolean);

?? PUSH (LISTEXT := ON) ??

    inherited_input_allowed_classes := allowed_classes;
    inherited_input_block := NIL;
    associated_utility := FALSE;
    clp$find_current_block (current_block);

*copy cli$find_var_block

  PROCEND clp$find_first_var_block;

*copyc clt$block
*copyc clt$internal_variable_classes
?? POP ??
*copyc clp$find_current_block
