
  PROCEDURE [XREF] clp$pop_all_environment
    (    pop_reason: clc$eo_pop_for_block .. clc$eo_pop_for_task;
         block: ^clt$block);

?? PUSH (LISTEXT := ON) ??
*copyc clt$block
*copyc clt$env_object_pop_reason
?? POP ??
