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