diff --git a/ansi-tests/keyword.lsp b/ansi-tests/keyword.lsp index 8583233a61cb9c106615784938becb4b5c3d0676..088a104e91484bd36694bd06522fe7fd964a7840 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)