Ignore:
Timestamp:
09/10/09 21:30:02 (14 years ago)
Author:
vvoutilainen
Message:

Backport the asdf fix from trunk.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/0.16.x/abcl/src/org/armedbear/lisp/clos.lisp

    r12084 r12143  
    19961996    (dolist (method methods nil)
    19971997      (let ((valid-initargs (method-lambda-list method)))
    1998   (when (find (symbol-value initarg) valid-initargs :test #'string=)
     1998  (when (or
     1999         (find "&ALLOW-OTHER-KEYS" valid-initargs :test #'string=)
     2000         (find (symbol-value initarg) valid-initargs :test #'string=))
    19992001    (return t))))))
    20002002
Note: See TracChangeset for help on using the changeset viewer.