anchor.diff:           (all-names (remove-duplicates
                         (mapcar #'slot-definition-name all-slots))))
       (mapcar #'(lambda (name)
  -                (funcall
  -                 (if (std-class-p (class-of class))
  -                     #'std-compute-effective-slot-definition
  -                     #'compute-effective-slot-definition)
  +                (compute-effective-slot-definition
                    class
                    name
                    (remove name all-slots
  
positive.code: (defun std-finalize-inheritance (class)
    (dolist (super (class-direct-superclasses class))
      (ensure-class-finalized super))
    (setf (class-precedence-list class)
          (funcall (if (std-class-p (class-of class))
                       #'std-compute-class-precedence-list
                       #'compute-class-precedence-list)
                   class))
    (setf (class-slots class) (compute-slots class))
    (let* ((instance-slots (remove-if-not 'instance-slot-p
                                          (class-slots class)))
  
negative.code:   (when (and (not (class-finalized-p class))
               (every #'class-finalized-p
                      (class-direct-superclasses class)))
      (finalize-inheritance class)))
  
  (defun ensure-class-finalized (class)
    "If CLASS is not finalized, call FINALIZE-INHERITANCE on it."
    (when (not (class-finalized-p class))
      (finalize-inheritance class)))
  
  ;;; Slot definition metaobjects
  
  