anchor.diff:           (cond ((and (not (null applicable-methods))
                        (every 'primary-method-p applicable-methods)
                        (typep (first applicable-methods) 'standard-writer-method)
  -                     (standardish-class-p (class-of class)))
  +                     (std-class-p (class-of class)))
                   (let ((location (slot-location class (slot-value (first applicable-methods) 'slot-definition))))
                     (setf (single-dispatch-emf-entry emf-table class) location)
                     (pushnew gf (class-dependents class))
  
positive.code: 
  (defun class-hash (class)
    (let ((class-of-class (class-of class)))
      (cond ((standardish-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)
  
negative.code:       (when (eql (sys.int::structure-slot-name slot) slot-name)
          (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))
        (error "Class for structure ~S or instance is outdated?" (class-name class)))
      (dolist (slot (sys.int::structure-slots def)
  