From 82bd3f163894b91c7af377a91beb7a385f21ba55 Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Sun, 1 Jan 2012 12:38:05 -0800 Subject: * 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. --- eval.c | 1 + 1 file changed, 1 insertion(+) (limited to 'eval.c') 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)); -- cgit v1.2.3