New function: merge-delete-package.

This is a useful function which supports the use of temporary
packages over the scope of file compilation units.
A file can be read under a temporary package which provides
usefully customized symbol visibility consisting of
an arrangement of symbols from various other packages.
Then, in a single operation, thanks to this new function,
that packag can be deleted and all of its local symbols
(those having been newly interned over the course of the
file) are transferred to some other, more permanent package.

* eval.c (eval_init): merge-delete-package intrinsic
registered.

* lib.c (merge_delete_package): New function.

* lib.h (merge_delete_package): Declared.

* txr.1: Documented.

1 files changed, 19 insertions, 0 deletions

diff --git a/lib.c b/lib.c
index d5e8fec4..f54a71c4 100644
--- a/lib.c
+++ b/lib.c
@@ -5177,6 +5177,25 @@ val delete_package(val package_in)
   return nil;
 }
 
+val merge_delete_package(val to_in, val victim_in)
+{
+  val self = lit("merge-delete-package");
+  val to = get_package(self, to_in, nil);
+  val victim = get_package(self, victim_in, t);
+  struct hash_iter hi;
+  val cell;
+
+  us_hash_iter_init(&hi, victim->pk.symhash);
+
+  while ((cell = hash_iter_next(&hi))) {
+    val sym = us_cdr(cell);
+    if (symbol_package(sym) == victim)
+      rehome_sym(sym, to);
+  }
+
+  return delete_package(victim);
+}
+
 val package_alist(void)
 {
   return deref(cur_package_alist_loc);