Changeset 12143

Timestamp:

09/10/09 21:30:02 (14 years ago)

Author:

vvoutilainen

Message:

Backport the asdf fix from trunk.

File:

• branches/0.16.x/abcl/src/org/armedbear/lisp/clos.lisp (modified) (1 diff)

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

@@ -1996 +1996 @@
     (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))))))