anchor.diff:      (t
        `(',(first option) ',(rest option)))))
   
  -(defun canonicalize-defclass-default-initargs (initargs)
  +(defun canonicalize-defclass-default-initargs (class-name initargs)
     (check-plist initargs)
     (let ((seen-initargs '()))
       (loop
  
positive.code:                (case sym
                   (:initform
                    (setf initform val
                          initfunction `#'(lambda () ,val)))
                   (:initarg
                    (push val initargs))
                   (:reader
  
negative.code:   (push (first option) *defclass-options*)
    (case (first option)
      (:default-initargs
       `(:direct-default-initargs ,(canonicalize-defclass-default-initargs class-name (rest option))))
      (:metaclass
       `(:metaclass ',(second option)))
      (:documentation
  