anchor.diff:    (getf (standard-slot-definition-properties slot) ':allocation))
   (defun (setf slot-definition-allocation) (new-value slot)
     (setf (getf* (standard-slot-definition-properties slot) ':allocation) new-value))
  +
  +(defun slot-definition-location (slot)
  +  (getf (standard-slot-definition-properties slot) ':location))
  +(defun (setf slot-definition-location) (new-value slot)
  +  (setf (getf* (standard-slot-definition-properties slot) ':location) new-value))
   
   ;;; finalize-inheritance
   
  
positive.code:     (setf slot-name (slot-definition-name slot-name)))
    (multiple-value-bind (slots layout)
        (fetch-up-to-date-instance-slots-and-layout instance)
      (let* ((location (or (fast-sv-position slot-name layout)
                           (error "The slot ~S is missing from the class ~S."
                                  slot-name (class-of instance)))))
        (values slots location))))
  
  (defun std-slot-value (instance slot-name)
    (multiple-value-bind (slots location)
  
negative.code:   (dolist (superclass (class-direct-superclasses class))
      (setf (class-direct-subclasses superclass) (remove class (class-direct-subclasses superclass))))
    ;; Remove any slot reader/writer methods.
    #+(or)(dolist (direct-slot (class-direct-slots class))
      (dolist (reader (slot-definition-readers direct-slot))
        (remove-reader-method class reader (slot-definition-name direct-slot)))
      (dolist (writer (slot-definition-writers direct-slot))
  