     return lookup(name, cdr(cell));
 }
 
-x_any create_symbol(char *new_name)
+x_any create_symbol(const char *new_name)
 {
   x_any cell;
   cell = new_cell(new_name);

  hash_table[hash_val] = x_cons(cell, hash_table[hash_val]);
}

x_any intern(char *name)
/* Return the symbol with this name, creating it if necessary. */
{
  x_any cell;

  return value;
}

x_any lookup(const char *name, x_any cell)
{
  if (cell == x_nil)
    return NULL;
