     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 apply(car(cell), list_eval(cdr(cell)));
}

x_any intern(const char*);

x_any def_builtin(char const *name, void *fn, size_t num_args)
{
  x_any cell;

  cell = intern(name);
  flags(cell) = BUILTIN;
  data(cell) = fn;
  size(cell) = num_args;
