[armedbear-cvs] r13215 - trunk/abcl/src/org/armedbear/lisp

[Erik Huelsmann]

Author: ehuelsmann
Date: Sat Feb 12 13:36:23 2011
New Revision: 13215

Log:
Untabify.

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

Modified: trunk/abcl/src/org/armedbear/lisp/clos.lisp
==============================================================================
--- trunk/abcl/src/org/armedbear/lisp/clos.lisp	(original)
+++ trunk/abcl/src/org/armedbear/lisp/clos.lisp	Sat Feb 12 13:36:23 2011
@@ -2600,15 +2600,15 @@
   (when (symbolp initarg)
     (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")))))
+        (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))))))
+          (return t))))))
 
 (defun valid-initarg-p (initarg slots)
   (dolist (slot slots nil)