Index: /trunk/source/lib/macros.lisp
===================================================================
--- /trunk/source/lib/macros.lisp	(revision 15134)
+++ /trunk/source/lib/macros.lisp	(revision 15135)
@@ -1980,6 +1980,5 @@
     (let* ((options-seen ())
            (signatures ())
-           (slot-names ())
-           (slot-initargs ()))
+           (slot-names ()))
       (flet ((canonicalize-defclass-option (option)
                (let* ((option-name (car option)))
@@ -2056,10 +2055,5 @@
                           (push setf-name writers))))
                      (:initarg
-                      (let* ((initarg (require-type (cadr options) 'symbol))
-                             (other (position initarg slot-initargs :test #'memq)))
-                        (when other
-                          (warn "Initarg ~s occurs in both ~s and ~s slots"
-                                initarg (nth (1+ other) slot-names) slot-name))
-                        (push initarg initargs)))
+		      (push (require-type (cadr options) 'symbol) initargs))
                      (:type
                       (if type-p
@@ -2095,5 +2089,4 @@
                                        (car (push (list (car options)) other-options)))))
                         (push (cadr options) (cdr pair))))))
-                 (push initargs slot-initargs)
                  `(list :name ',slot-name
 		   ,@(when allocation `(:allocation ',allocation))