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

[rschlatte at common-lisp.net]

Author: rschlatte
Date: Sun Jun 17 05:46:30 2012
New Revision: 13973

Log:
Fix check for duplicate initargs

- fixes ansi test defclass.error.2, defclass.error.16

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	Sun Jun 17 05:01:52 2012	(r13972)
+++ trunk/abcl/src/org/armedbear/lisp/clos.lisp	Sun Jun 17 05:46:30 2012	(r13973)
@@ -2803,10 +2803,8 @@
 
 (defun check-duplicate-default-initargs (initargs)
   (let ((names ()))
-    (do* ((initargs initargs (cddr initargs))
-          (name (car initargs) (car initargs)))
-         ((null initargs))
-      (push name names))
+    (dolist (initarg initargs)
+      (push (car initarg) names))
     (do* ((names names (cdr names))
           (name (car names) (car names)))
          ((null names))