From 378917c1998d05cf3797890b7e514d9b866876b1 Mon Sep 17 00:00:00 2001 From: Juan Jose Garcia Ripoll Date: Sun, 11 Jul 2010 12:30:10 +0200 Subject: [PATCH] CHECK-INITARGS should do nothing when CACHED-KEYWORDS = T (meaning &allow-other-keys) --- src/clos/standard.lsp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/clos/standard.lsp b/src/clos/standard.lsp index 72ee9c607..8bc77c774 100644 --- a/src/clos/standard.lsp +++ b/src/clos/standard.lsp @@ -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)