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

?? PUSH (LISTEXT := ON) ??

    IF current_block^.static_link <> NIL THEN
      current_block := current_block^.static_link;
    ELSE
      current_block := current_block^.previous_block;
    IFEND;
    associated_utility := FALSE;

*copy cli$find_var_block

  PROCEND clp$find_next_var_block;

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