summaryrefslogtreecommitdiffstats
path: root/lib.c
diff options
context:
space:
mode:
Diffstat (limited to 'lib.c')
-rw-r--r--lib.c8
1 files changed, 1 insertions, 7 deletions
diff --git a/lib.c b/lib.c
index b1e8b39f..e74d2a6d 100644
--- a/lib.c
+++ b/lib.c
@@ -2703,18 +2703,12 @@ val make_sym(val name)
val gensym(val prefix)
{
+ prefix = default_arg(prefix, lit("g"));
val name = format(nil, lit("~a~,04a"), prefix,
gensym_counter = plus(gensym_counter, one), nao);
return make_sym(name);
}
-val gensymv(val args)
-{
- uses_or2;
- val prefix = or2(car(args), lit("g"));
- return gensym(prefix);
-}
-
val make_package(val name)
{
if (find_package(name)) {