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

[ehuelsmann at common-lisp.net]

Author: ehuelsmann
Date: Fri Aug 31 16:29:06 2012
New Revision: 14141

Log:
Fix the last DMC-TEST-WITH-ARGS-* failures.

Note: Now I can continue defining DMC-* tests...

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	Fri Aug 31 15:07:48 2012	(r14140)
+++ trunk/abcl/src/org/armedbear/lisp/clos.lisp	Fri Aug 31 16:29:06 2012	(r14141)
@@ -1255,9 +1255,7 @@
         (setf rest (gensym))))
     (let* ((gf-lambda-list (gensym))
            (args-var (gensym))
-           (args-len-var (when (or (some #'second optional)
-                                   (some #'second keys))
-                           (gensym)))
+           (args-len-var (gensym))
            (binding-forms (gensym))
            (needs-args-len-var (gensym))
            (emf-form (gensym)))