Changeset 12179


Ignore:
Timestamp:
10/07/09 16:25:07 (12 years ago)
Author:
vvoutilainen
Message:

Fix the initarg check for parameters that have a default
value.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/abcl/src/org/armedbear/lisp/clos.lisp

    r12178 r12179  
    20062006  (when (find (symbol-value initarg) valid-initargs
    20072007         :test #'(lambda (a b)
    2008              (or
    2009         (string= a b)
    2010         (string= b "&ALLOW-OTHER-KEYS"))))
     2008             (if (listp b)
     2009           (string= a (car b))
     2010         (or
     2011          (string= a b)
     2012          (string= b "&ALLOW-OTHER-KEYS")))))
    20112013
    20122014    (return t))))))
Note: See TracChangeset for help on using the changeset viewer.