Changeset 13973


Ignore:
Timestamp:
06/17/12 12:46:30 (9 years ago)
Author:
rschlatte
Message:

Fix check for duplicate initargs

  • fixes ansi test defclass.error.2, defclass.error.16
File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/abcl/src/org/armedbear/lisp/clos.lisp

    r13972 r13973  
    28042804(defun check-duplicate-default-initargs (initargs)
    28052805  (let ((names ()))
    2806     (do* ((initargs initargs (cddr initargs))
    2807           (name (car initargs) (car initargs)))
    2808          ((null initargs))
    2809       (push name names))
     2806    (dolist (initarg initargs)
     2807      (push (car initarg) names))
    28102808    (do* ((names names (cdr names))
    28112809          (name (car names) (car names)))
Note: See TracChangeset for help on using the changeset viewer.