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

[Ville Voutilainen]

Author: vvoutilainen
Date: Wed Oct  7 12:25:07 2009
New Revision: 12179

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


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	Wed Oct  7 12:25:07 2009
@@ -2005,9 +2005,11 @@
       (let ((valid-initargs (method-lambda-list method)))
 	(when (find (symbol-value initarg) valid-initargs 
 		     :test #'(lambda (a b)
-			       (or
-				(string= a b)
-				(string= b "&ALLOW-OTHER-KEYS"))))
+			       (if (listp b)
+				   (string= a (car b))
+				 (or
+				  (string= a b)
+				  (string= b "&ALLOW-OTHER-KEYS")))))
 
 	  (return t))))))