--- a/src/variables.cc	Wed Sep 01 21:10:28 2004 +0000
+++ b/src/variables.cc	Wed Sep 01 21:24:54 2004 +0000
@@ -662,6 +662,16 @@
   return retval;
 }
 
+std::string
+unique_symbol_name (const std::string& basename)
+{
+  // XXX FIXME XXX Can we be smarter than just adding characters?
+  std::string name = basename;
+  while (symbol_exist (name, "any"))
+    name.append ("X");
+  return name;
+}
+
 DEFUN (exist, args, ,
   "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {} exist (@var{name}, @var{type})\n\
@@ -1897,6 +1907,13 @@
     } \
   while (0)
 
+
+bool
+clear_function (const std::string& nm)
+{
+  return do_clear_function (nm);
+}
+
 DEFCMD (clear, args, ,
   "-*- texinfo -*-\n\
 @deffn {Command} clear [-x] pattern @dots{}\n\