Changeset 13215


Ignore:
Timestamp:
02/12/11 18:36:23 (11 years ago)
Author:
ehuelsmann
Message:

Untabify.

File:
1 edited

Legend:

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

    r13214 r13215  
    26012601    (dolist (method methods nil)
    26022602      (let ((valid-initargs (method-lambda-list method)))
    2603   (when (find (symbol-value initarg) valid-initargs
    2604          :test #'(lambda (a b)
    2605              (if (listp b)
    2606            (string= a (car b))
    2607         (or
    2608           (string= a b)
    2609           (string= b "&ALLOW-OTHER-KEYS")))))
    2610 
    2611     (return t))))))
     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))))))
    26122612
    26132613(defun valid-initarg-p (initarg slots)
Note: See TracChangeset for help on using the changeset viewer.