
  PROCEDURE [INLINE] clp$unhash_variable_name
    (    hashed_name: clt$variable_name;
     VAR name: clt$variable_name);

?? PUSH (LISTEXT := ON) ??

{ "Unswap" the first group of four characters in the name with the third group
{ of four characters which had been done to improve the distribution of names
{ within a search tree (by clp$compute_variable_name_hash).

    name (1, 4) := hashed_name (9, 4);
    name (5, 4) := hashed_name (5, 4);
    name (9, 4) := hashed_name (1, 4);
    name (13, * ) := hashed_name (13, *);

  PROCEND clp$unhash_variable_name;

*copyc clt$variable_name
?? POP ??
