anchor.diff:  (defun ensure-class-finalized (class)
     "If CLASS is not finalized, call FINALIZE-INHERITANCE on it."
     (when (not (class-finalized-p class))
  -    (funcall (if (standardish-class-p (class-of class))
  +    (funcall (if (std-class-p (class-of class))
                    #'std-finalize-inheritance
                    #'finalize-inheritance)
                class)))
  
positive.code:          (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)))
                  (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))
  
negative.code:                       (mapcar #'slot-definition-name all-slots)))
           (effective-slots (mapcar #'(lambda (name)
                                        (funcall
                                         (if (std-class-p (class-of class))
                                             #'std-compute-effective-slot-definition
                                             #'compute-effective-slot-definition)
                                         class
  