mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-03-08 22:30:23 -07:00
Code Issues Projects Releases Packages Wiki Activity

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

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2010-07-11 12:30:10 +02:00
parent 3ce9a3f6c6
commit 378917c199
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/clos/standard.lsp
View file

@ -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)