
  FUNCTION [XREF] clp$environment_object_in_block
    (    object_ordinal: clt$environment_object_ordinal;
         block: ^clt$block): ^clt$environment_object_contents;

?? PUSH (LISTEXT := ON) ??
*copyc clt$environment_object_contents
*copyc clt$environment_object_ordinal
?? POP ??
