anchor.diff:  
   (sys.int::defglobal *the-class-standard-method*)    ;standard-method's class metaobject
   
  -(defun method-lambda-list (method) (slot-value method 'lambda-list))
  +(defun method-lambda-list (method)
  +  (declare (notinline slot-value (setf slot-value))) ; Bootstrap hack
  +  (slot-value method 'lambda-list))
   (defun (setf method-lambda-list) (new-value method)
  +  (declare (notinline slot-value (setf slot-value))) ; Bootstrap hack
     (setf (slot-value method 'lambda-list) new-value))
   
  -(defun method-qualifiers (method) (slot-value method 'qualifiers))
  +(defun method-qualifiers (method)
  +  (declare (notinline slot-value (setf slot-value))) ; Bootstrap hack
  +  (slot-value method 'qualifiers))
   (defun (setf method-qualifiers) (new-value method)
  +  (declare (notinline slot-value (setf slot-value))) ; Bootstrap hack
     (setf (slot-value method 'qualifiers) new-value))
   
  -(defun method-specializers (method) (slot-value method 'specializers))
  +(defun method-specializers (method)
  +  (declare (notinline slot-value (setf slot-value))) ; Bootstrap hack
  +  (slot-value method 'specializers))
   (defun (setf method-specializers) (new-value method)
  +  (declare (notinline slot-value (setf slot-value))) ; Bootstrap hack
     (setf (slot-value method 'specializers) new-value))
   
   (defun method-generic-function (method)
  +  (declare (notinline slot-value (setf slot-value))) ; Bootstrap hack
     (slot-value method 'generic-function))
   (defun (setf method-generic-function) (new-value method)
  +  (declare (notinline slot-value (setf slot-value))) ; Bootstrap hack
     (setf (slot-value method 'generic-function) new-value))
   
  -(defun method-function (method) (slot-value method 'function))
  +(defun method-function (method)
  +  (declare (notinline slot-value (setf slot-value))) ; Bootstrap hack
  +  (slot-value method 'function))
   (defun (setf method-function) (new-value method)
  +  (declare (notinline slot-value (setf slot-value))) ; Bootstrap hack
     (setf (slot-value method 'function) new-value))
   
   ;;; ensure-generic-function
  
positive.code:         (return (funcall (sys.int::structure-slot-accessor slot) instance))))))
  
  (defmethod (setf slot-value-using-class) (new-value (class structure-class) instance (slot standard-effective-slot-definition))
    (let ((def (slot-value class 'structure-definition))
          (slot-name (slot-definition-name slot)))
      (when (not (eql (sys.int::%object-ref-t instance 0) def))
  
negative.code:                                                    collect (eql-specializer-object spec)))))))
  
  (defun slow-single-dispatch-method-lookup* (gf argument-offset args state)
    (declare (notinline slot-value (setf slot-value))) ; Bootstrap hack
    (let ((emf-table (classes-to-emf-table gf)))
      (ecase state
        (:reader
  