anchor.diff:  
   (defun mop-canonicalize-defgeneric-option (option)
     (case (car option)
  -    (:generic-function-class (list ':generic-function-class `(find-class ',(cadr option))))
  -    (:method-class (list ':method-class `(find-class ',(cadr option))))
  +    (:generic-function-class (list ':generic-function-class `(mop-find-class ',(cadr option))))
  +    (:method-class (list ':method-class `(mop-find-class ',(cadr option))))
       (otherwise (list `',(car option) `',(cadr option)))))
   
   (let ((mop-generic-function-table (make-hash-table :test #'equal)))
  
positive.code:      :allocation (mop-slot-definition-allocation (car direct-slots)))))
  
  (defparameter mop-the-defclass-standard-generic-function
    `(defclass mop-standard-generic-function ()
       ((name :initarg :name)
        (lambda-list :initarg :lambda-list)
        (methods :initform ())
  
negative.code:   (mop-mapappend #'mop-canonicalize-defclass-option options))
  
  ; Stub
  (defun mop-make-instance (mop-class-name &rest all-keys)
    (list class-name all-keys))
  
  (let ((mop-class-table (make-hash-table :test #'eq)))
  