From 4491cf924ada98bc939e51d18ec81751cac0f5f2 Mon Sep 17 00:00:00 2001 From: Kaz Kyheku Date: Wed, 29 Jan 2020 05:30:17 -0800 Subject: 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. --- lib.h | 1 + 1 file changed, 1 insertion(+) (limited to 'lib.h') diff --git a/lib.h b/lib.h index 5be2c037..d54ac735 100644 --- a/lib.h +++ b/lib.h @@ -899,6 +899,7 @@ val make_anon_package(void); val packagep(val obj); val find_package(val name); val delete_package(val package); +val merge_delete_package(val to, val victim); val package_alist(void); val package_name(val package); val package_symbols(val package); -- cgit v1.2.3