Changeset 13215
- Timestamp:
- 02/12/11 18:36:23 (12 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/abcl/src/org/armedbear/lisp/clos.lisp
r13214 r13215 2601 2601 (dolist (method methods nil) 2602 2602 (let ((valid-initargs (method-lambda-list method))) 2603 2604 2605 2606 (string=a (car b))2607 2608 (string=a b)2609 (string= b "&ALLOW-OTHER-KEYS")))))2610 2611 2603 (when (find (symbol-value initarg) valid-initargs 2604 :test #'(lambda (a b) 2605 (if (listp b) 2606 (eq a (car b)) 2607 (or 2608 (eq a b) 2609 (eq b 'cl:&allow-other-keys))))) 2610 2611 (return t)))))) 2612 2612 2613 2613 (defun valid-initarg-p (initarg slots)
Note: See TracChangeset
for help on using the changeset viewer.