* RELNOTES: Updated in preparation for release.

* eval.c (eval_init): Expose delete-package, rehome-sym
and packagep.

* lib.c (make_package, intern): use ~s formatting for package name in
error message.
(packagep, delete_package, rehome_sym): New functions.

* lib.h (packagep, delete_package, rehome_sym): Declared.

* txr.1: Documented process functions and packages.

1 files changed, 3 insertions, 0 deletions

diff --git a/eval.c b/eval.c
index b80149af..8337fed0 100644
--- a/eval.c
+++ b/eval.c
@@ -2342,10 +2342,13 @@ void eval_init(void)
   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("delete-package"), user_package), func_n1(delete_package));
   reg_fun(intern(lit("intern"), user_package), func_n2o(intern, 1));
+  reg_fun(intern(lit("rehome-sym"), user_package), func_n2o(rehome_sym, 1));
   reg_fun(intern(lit("symbolp"), user_package), func_n1(symbolp));
   reg_fun(intern(lit("symbol-name"), user_package), func_n1(symbol_name));
   reg_fun(intern(lit("symbol-package"), user_package), func_n1(symbol_package));
+  reg_fun(intern(lit("packagep"), user_package), func_n1(packagep));
   reg_fun(intern(lit("keywordp"), user_package), func_n1(keywordp));
 
   reg_fun(intern(lit("mkstring"), user_package), func_n2(mkstring));