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:     (error "Class ~S has not been finalized." class)))
  
  (defmethod class-prototype ((class clos-class))
    (when (not (slot-boundp class 'prototype))
      (setf (slot-value class 'prototype) (allocate-instance class)))
    (slot-value class 'prototype))
  
negative.code:   ((structure-definition :initarg :definition)))
  
  (defmethod allocate-instance ((class structure-class) &rest initargs)
    (declare (notinline slot-value (setf slot-value))) ; Bootstrap hack
    (declare (ignore initargs))
    (let* ((def (slot-value class 'structure-definition))
           (slots (sys.int::structure-slots def))
  