anchor.diff:  (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-precedence-list class) (compute-class-precedence-list class))
     (setf (class-slots class) (compute-slots class))
     (let* ((instance-slots (remove-if-not 'instance-slot-p
                                           (class-slots class)))
  
positive.code:          (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)
                   class
                   name
                   (remove name all-slots
  
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
  
  