anchor.diff:  (defun class-name (class)
     (std-slot-value class 'name))
   (defun (setf class-name) (new-value class)
  +  (declare (notinline slot-value (setf slot-value))) ; Bootstrap hack
     (setf (slot-value class 'name) new-value))
   
   (defun class-direct-superclasses (class)
  +  (declare (notinline slot-value (setf slot-value))) ; Bootstrap hack
     (slot-value class 'direct-superclasses))
   (defun (setf class-direct-superclasses) (new-value class)
  +  (declare (notinline slot-value (setf slot-value))) ; Bootstrap hack
     (setf (slot-value class 'direct-superclasses) new-value))
   
   (defun class-direct-slots (class)
  +  (declare (notinline slot-value (setf slot-value))) ; Bootstrap hack
     (slot-value class 'direct-slots))
   (defun (setf class-direct-slots) (new-value class)
  +  (declare (notinline slot-value (setf slot-value))) ; Bootstrap hack
     (setf (slot-value class 'direct-slots) new-value))
   
   (defun class-precedence-list (class)
  +  (declare (notinline slot-value (setf slot-value))) ; Bootstrap hack
     (let ((class-of-class (class-of class)))
       (cond ((std-class-p class-of-class)
              (svref (std-instance-slots class) *standard-class-precedence-list-position*))
             (t
              (slot-value class 'class-precedence-list)))))
   (defun (setf class-precedence-list) (new-value class)
  +  (declare (notinline slot-value (setf slot-value))) ; Bootstrap hack
     (setf (slot-value class 'class-precedence-list) new-value))
   
   (defun class-slots (class)
  +  (declare (notinline slot-value (setf slot-value))) ; Bootstrap hack
     (let ((class-of-class (class-of class)))
       (cond ((clos-class-p class-of-class)
              (svref (std-instance-slots class) *standard-class-effective-slots-position*))
             (t (slot-value class 'effective-slots)))))
   (defun (setf class-slots) (new-value class)
  +  (declare (notinline slot-value (setf slot-value))) ; Bootstrap hack
     (setf (slot-value class 'effective-slots) new-value))
   
   (defun class-slot-storage-layout (class)
  +  (declare (notinline slot-value (setf slot-value))) ; Bootstrap hack
     (let ((class-of-class (class-of class)))
       (cond ((clos-class-p class-of-class)
              (svref (std-instance-slots class) *standard-class-slot-storage-layout-position*))
             (t (slot-value class 'slot-storage-layout)))))
   (defun (setf class-slot-storage-layout) (new-value class)
  +  (declare (notinline slot-value (setf slot-value))) ; Bootstrap hack
     (setf (slot-value class 'slot-storage-layout) new-value))
   
   (defun class-direct-subclasses (class)
  +  (declare (notinline slot-value (setf slot-value))) ; Bootstrap hack
     (slot-value class 'direct-subclasses))
   (defun (setf class-direct-subclasses) (new-value class)
  +  (declare (notinline slot-value (setf slot-value))) ; Bootstrap hack
     (setf (slot-value class 'direct-subclasses) new-value))
   
   (defun class-direct-methods (class)
  +  (declare (notinline slot-value (setf slot-value))) ; Bootstrap hack
     (slot-value class 'direct-methods))
   (defun (setf class-direct-methods) (new-value class)
  +  (declare (notinline slot-value (setf slot-value))) ; Bootstrap hack
     (setf (slot-value class 'direct-methods) new-value))
   
   (defun class-direct-default-initargs (class)
  +  (declare (notinline slot-value (setf slot-value))) ; Bootstrap hack
     (let ((class-of-class (class-of class)))
       (cond ((clos-class-p class-of-class)
              (svref (std-instance-slots class) *standard-class-direct-default-initargs-position*))
             (t (slot-value class 'direct-default-initargs)))))
   (defun (setf class-direct-default-initargs) (new-value class)
  +  (declare (notinline slot-value (setf slot-value))) ; Bootstrap hack
     (setf (slot-value class 'direct-default-initargs) new-value))
   
   (defun class-dependents (class)
  +  (declare (notinline slot-value (setf slot-value))) ; Bootstrap hack
     (std-slot-value class 'dependents))
   (defun (setf class-dependents) (new-value class)
  +  (declare (notinline slot-value (setf slot-value))) ; Bootstrap hack
     (setf (slot-value class 'dependents) new-value))
   
   (defun class-hash (class)
  +  (declare (notinline slot-value (setf slot-value))) ; Bootstrap hack
     (let ((class-of-class (class-of class)))
       (cond ((clos-class-p class-of-class)
              (svref (std-instance-slots class) *standard-class-hash-position*))
             (t (std-slot-value class 'hash)))))
   (defun (setf class-hash) (new-value class)
  +  (declare (notinline slot-value (setf slot-value))) ; Bootstrap hack
     (setf (slot-value class 'hash) new-value))
   
   (defun class-finalized-p (class)
  +  (declare (notinline slot-value (setf slot-value))) ; Bootstrap hack
     (let ((class-of-class (class-of class)))
       (cond ((clos-class-p class-of-class)
              (svref (std-instance-slots class) *standard-class-finalized-p-position*))
             (t (std-slot-value class 'finalized-p)))))
   (defun (setf class-finalized-p) (new-value class)
  +  (declare (notinline slot-value (setf slot-value))) ; Bootstrap hack
     (setf (slot-value class 'finalized-p) new-value))
   
   ;;; Ensure class
  
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: ;;; Slot definition metaobjects
  
  (defun slot-definition-name (slot)
    (declare (notinline slot-value (setf slot-value))) ; Bootstrap hack
    (slot-value slot 'name))
  (defun (setf slot-definition-name) (new-value slot)
    (declare (notinline slot-value (setf slot-value))) ; Bootstrap hack
    (setf (slot-value slot 'name) new-value))
  
  (defun slot-definition-initfunction (slot)
    (declare (notinline slot-value (setf slot-value))) ; Bootstrap hack
    (slot-value slot 'initfunction))
  (defun (setf slot-definition-initfunction) (new-value slot)
    (declare (notinline slot-value (setf slot-value))) ; Bootstrap hack
    (setf (slot-value slot 'initfunction) new-value))
  
  (defun slot-definition-initform (slot)
    (declare (notinline slot-value (setf slot-value))) ; Bootstrap hack
    (slot-value slot 'initform))
  (defun (setf slot-definition-initform) (new-value slot)
    (declare (notinline slot-value (setf slot-value))) ; Bootstrap hack
    (setf (slot-value slot 'initform) new-value))
  
  (defun slot-definition-initargs (slot)
    (declare (notinline slot-value (setf slot-value))) ; Bootstrap hack
    (slot-value slot 'initargs))
  (defun (setf slot-definition-initargs) (new-value slot)
    (declare (notinline slot-value (setf slot-value))) ; Bootstrap hack
    (setf (slot-value slot 'initargs) new-value))
  
  (defun slot-definition-readers (slot)
    (declare (notinline slot-value (setf slot-value))) ; Bootstrap hack
    (slot-value slot 'readers))
  (defun (setf slot-definition-readers) (new-value slot)
    (declare (notinline slot-value (setf slot-value))) ; Bootstrap hack
    (setf (slot-value slot 'readers) new-value))
  
  (defun slot-definition-writers (slot)
    (declare (notinline slot-value (setf slot-value))) ; Bootstrap hack
    (slot-value slot 'writers))
  (defun (setf slot-definition-writers) (new-value slot)
    (declare (notinline slot-value (setf slot-value))) ; Bootstrap hack
    (setf (slot-value slot 'writers) new-value))
  
  (defun slot-definition-allocation (slot)
    (declare (notinline slot-value (setf slot-value))) ; Bootstrap hack
    (slot-value slot 'allocation))
  (defun (setf slot-definition-allocation) (new-value slot)
    (declare (notinline slot-value (setf slot-value))) ; Bootstrap hack
    (setf (slot-value slot 'allocation) new-value))
  
  (defun slot-definition-location (slot)
    (declare (notinline slot-value (setf slot-value))) ; Bootstrap hack
    (slot-value slot 'location))
  (defun (setf slot-definition-location) (new-value slot)
    (declare (notinline slot-value (setf slot-value))) ; Bootstrap hack
    (setf (slot-value slot 'location) new-value))
  
  (defun slot-definition-type (slot)
    (declare (notinline slot-value (setf slot-value))) ; Bootstrap hack
    (slot-value slot 'type))
  (defun (setf slot-definition-type) (new-value slot)
    (declare (notinline slot-value (setf slot-value))) ; Bootstrap hack
    (setf (slot-value slot 'type) new-value))
  
  (defun slot-definition-documentation (slot)
    (declare (notinline slot-value (setf slot-value))) ; Bootstrap hack
    (slot-value slot 'documentation))
  (defun (setf slot-definition-documentation) (new-value slot)
    (declare (notinline slot-value (setf slot-value))) ; Bootstrap hack
    (setf (slot-value slot 'documentation) new-value))
  
  ;;; finalize-inheritance
  