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.

1 files changed, 4 insertions, 1 deletions

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)