Changeset 13215

Timestamp:

02/12/11 18:36:23 (12 years ago)

Author:

ehuelsmann

Message:

Untabify.

File:

• trunk/abcl/src/org/armedbear/lisp/clos.lisp (modified) (1 diff)

trunk/abcl/src/org/armedbear/lisp/clos.lisp

@@ -2601 +2601 @@
     (dolist (method methods nil)
       (let ((valid-initargs (method-lambda-list method)))
-  (when (find (symbol-value initarg) valid-initargs 
-         :test #'(lambda (a b)
-             (if (listp b)
-           (string= a (car b))
-         (or
-          (string= a b)
-          (string= b "&ALLOW-OTHER-KEYS")))))
-
-    (return t))))))
+        (when (find (symbol-value initarg) valid-initargs 
+                     :test #'(lambda (a b)
+                               (if (listp b)
+                                   (eq a (car b))
+                                 (or
+                                  (eq a b)
+                                  (eq b 'cl:&allow-other-keys)))))
+
+          (return t))))))
 
 (defun valid-initarg-p (initarg slots)