From f2cacaa49c98e5ce262c9c964b6c7d701a7000bd Mon Sep 17 00:00:00 2001
From: pfdietz <pfdietz@localhost>
Date: Sun, 4 Jul 2004 12:33:56 +0000
Subject: [PATCH] Add comment explaining why there's no test for inherited
 symbols in the keyword package tests.

---
 ansi-tests/keyword.lsp | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/ansi-tests/keyword.lsp b/ansi-tests/keyword.lsp
index 8583233a..088a104e 100644
--- a/ansi-tests/keyword.lsp
+++ b/ansi-tests/keyword.lsp
@@ -38,6 +38,10 @@
        (notnot (constantp s)))))
   nil t :external t t t)
 
+;;; Note that the case of a symbol inherited into KEYWORD cannot arise
+;;; standardly from user actions, since USE-PACKAGE disallows KEYWORD
+;;; as the package designated by its second argument.
+
 ;; Every keyword is external
 (deftest keyword.2
   (do-symbols (s "KEYWORD" t)
-- 
GitLab