* eval.c (eval_init): New gensym function registered.

* lib.c (gensym_counter): New variable.
(gensymv): New function.
(obj_init): Initialize gensym_counter.

* lib.h (gensym_counter, gensymv): Declared.

1 files changed, 1 insertions, 0 deletions

diff --git a/eval.c b/eval.c
index e5672f24..163f9135 100644
--- a/eval.c
+++ b/eval.c
@@ -1331,6 +1331,7 @@ void eval_init(void)
   reg_var(intern(lit("*keyword-package*"), user_package), keyword_package);
   reg_var(intern(lit("*system-package*"), user_package), system_package);
   reg_fun(intern(lit("make-sym"), user_package), func_n1(make_sym));
+  reg_fun(intern(lit("gensym"), user_package), func_n0v(gensymv));
   reg_fun(intern(lit("make-package"), user_package), func_n1(make_package));
   reg_fun(intern(lit("find-package"), user_package), func_n1(find_package));
   reg_fun(intern(lit("intern"), user_package), func_n2(intern));