anchor.diff:    `(list ,@(mapcar #'mop-canonicalize-specializer specializers)))
   
   (defun mop-canonicalize-specializer (specializer)
  -  `(find-class ',specializer))
  +  `(mop-find-class ',specializer))
   
   (defun mop-parse-defmethod (args)
     (let ((fn-spec (car args))
  
positive.code:   (setf (mop-slot-value gf 'classes-to-emf-table) new-value))
  
  (defparameter mop-the-defclass-standard-method
    '(defclass mop-standard-method ()
       ((lambda-list :initarg :lambda-list)
        (qualifiers :initarg :qualifiers)
        (specializers :initarg :specializers)
  
negative.code: (defun mop-canonicalize-direct-superclasses (direct-superclasses)
    `(list ,@(mapcar #'mop-canonicalize-direct-superclass direct-superclasses)))
  
  (defun mop-canonicalize-direct-superclass (mop-class-name)
    `(mop-find-class ',class-name))
  
  (defun mop-canonicalize-defclass-option (option)
    (case (car option)
      (:metaclass (list ':metaclass `(mop-find-class ',(cadr option))))
      (:default-initargs (list ':direct-default-initargs
                               `(list ,@(mop-mapappend #'(lambda (x) x)
                                                    (mop-mapplist #'(lambda (key value)
  