From d3124420ce958e82cda1d695eee39427168c9ebf Mon Sep 17 00:00:00 2001
From: Kaz Kylheku <kaz@kylheku.com>
Date: Sun, 5 Apr 2020 12:17:17 -0700
Subject: tags: process only pkg clauses of load-for.

* tags.tl (process-package-influencing-form): When a load-for
is encountered, only descend into fake-load if the clause
kind is pkg, and the package doesn't exist.
---
 tags.tl | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/tags.tl b/tags.tl
index 42c52910..07c39898 100755
--- a/tags.tl
+++ b/tags.tl
@@ -88,7 +88,10 @@
   (caseq (car form)
     (load (fake-load (cadr form)))
     (load-for (each ((clause (cdr form)))
-                (fake-load (caddr clause))))
+                (tree-bind (kind sym arg) clause
+                  (when (and (eq kind 'pkg)
+                             (not (find-package sym)))
+                    (fake-load (caddr clause))))))
     (defpackage (make-package (symbol-name (cadr form))))))
 
 (defun fake-load (path)
-- 
cgit v1.2.3