CHECK-INITARGS should do nothing when CACHED-KEYWORDS = T (meaning &allow-other-keys)

parent 3ce9a3f6
......@@ -724,7 +724,7 @@ because it contains a reference to the undefined class~% ~A"
;; First get all initargs which have been declared in the given
;; methods, then check the list of initargs declared in the slots
;; of the class.
(unless (eq methods t)
(unless (or (eq methods t) (eq cached-keywords t))
(do* ((name-loc initargs (cddr name-loc))
(allow-other-keys nil)
(allow-other-keys-found nil)
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