summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorKaz Kylheku <kaz@kylheku.com>2020-07-12 11:38:30 -0700
committerKaz Kylheku <kaz@kylheku.com>2020-07-12 11:38:30 -0700
commitd8d2a95c287a315f7d38858b448b1f3f422ceb6c (patch)
treee91b9cf37ae27cfa86dba4d3203e77cac870848b
parent15740ae6b6c8476cd1a9323ffd50f85a3c8ea245 (diff)
downloadtxr-d8d2a95c287a315f7d38858b448b1f3f422ceb6c.tar.gz
txr-d8d2a95c287a315f7d38858b448b1f3f422ceb6c.tar.bz2
txr-d8d2a95c287a315f7d38858b448b1f3f422ceb6c.zip
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.
-rwxr-xr-xtags.tl2
1 files changed, 1 insertions, 1 deletions
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)))