From d8d2a95c287a315f7d38858b448b1f3f422ceb6c Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Sun, 12 Jul 2020 11:38:30 -0700 Subject: tags: take advantage of weak packages. * tags.tl (in-anon-package): Pass t to sys:make-anon-package, so the resulting package won't hold on to symbols that the utility isn't interested in, just because it's holding on to other symbols that come from the smae package. --- tags.tl | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/tags.tl b/tags.tl index 711fb650..b9321a74 100755 --- a/tags.tl +++ b/tags.tl @@ -67,7 +67,7 @@ (defmacro in-anon-package (. body) (with-gensyms (pkg) ^(let* ((*package-alist* *package-alist*) - (,pkg (sys:make-anon-package)) + (,pkg (sys:make-anon-package t)) (*package* ,pkg)) (set-package-fallback-list *package* '(:usr)) ,*body))) -- cgit v1.2.3