[armedbear-cvs] r12143 - branches/0.16.x/abcl/src/org/armedbear/lisp

[Ville Voutilainen]

Author: vvoutilainen
Date: Thu Sep 10 17:30:02 2009
New Revision: 12143

Log:
Backport the asdf fix from trunk.


Modified:
   branches/0.16.x/abcl/src/org/armedbear/lisp/clos.lisp

Modified: branches/0.16.x/abcl/src/org/armedbear/lisp/clos.lisp
==============================================================================
--- branches/0.16.x/abcl/src/org/armedbear/lisp/clos.lisp	(original)
+++ branches/0.16.x/abcl/src/org/armedbear/lisp/clos.lisp	Thu Sep 10 17:30:02 2009
@@ -1995,7 +1995,9 @@
   (when (symbolp initarg)
     (dolist (method methods nil)
       (let ((valid-initargs (method-lambda-list method)))
-	(when (find (symbol-value initarg) valid-initargs :test #'string=)
+	(when (or
+	       (find "&ALLOW-OTHER-KEYS" valid-initargs :test #'string=)
+	       (find (symbol-value initarg) valid-initargs :test #'string=))
 	  (return t))))))
 
 (defun valid-initarg-p (initarg slots)