anchor.diff:                                     `',(reverse values)
                                      `',(first values))))))))
   
  -(defun canonicalize-defclass-option (option)
  +(defun canonicalize-defclass-option (class-name option)
     (check-type (first option) symbol)
     (when (member (first option) *defclass-options*)
       (error 'sys.int::simple-program-error
  
positive.code:          (push initarg seen-initargs)))
    `(list ,@(loop
                for (initarg form) on initargs by #'cddr
                collect `(list ',initarg ',form #'(lambda () ,form)))))
  
  )
  
  
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
  