From bc644ad2d6cf1ad3cd888a094bb2dedeb8e62d6f Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Sun, 5 Apr 2020 10:27:33 -0700 Subject: tags: use sys:make-anon-package * tags.tl (in-anon-package): Take advantage of the system function sys:make-anon-package which is used in the file compiler, instead of creating a package named "anon" which could plausibly clash with an existing package. --- tags.tl | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/tags.tl b/tags.tl index a5088301..42c52910 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 (make-package "anon")) + (,pkg (sys:make-anon-package)) (*package* ,pkg)) (set-package-fallback-list *package* '(:usr)) ,*body))) -- cgit v1.2.3