Commit 32dd4cbf authored by Gail Zacharias's avatar Gail Zacharias

Fix typo

parent 48554252
......@@ -1487,7 +1487,7 @@ else eliminate any function messages with required keywords, and
(and (memq category '(:optional-input-slots :settable-optional-input-slots
:defaulted-input-slots :settable-defaulted-input-slots))
(or (null suppress) (not (internal-name-p keyword)))))
(functionp (memq category '(:function :quantified-objects :quantified-hidden-objects)))
(functionp (memq category '(:functions :quantified-objects :quantified-hidden-objects)))
(t
(unless (and (eq category :functions)
(required-args-p (car (gendl-source classname keyword))))
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment