anchor.diff:  
   (defmethod finalize-inheritance ((class funcallable-standard-class))
     (finalize-inheritance-aux class))
  -
  -(defmethod finalize-inheritance ((class built-in-class))
  -  (setf (c-precedence-list class) (compute-class-precedence-list class))
  -  (setf (c-finalized-p class) t))
  
positive.code:   (compute-effective-slot-definition-aux
     class
     name
     direct-slot-definitions))
  
  (defmethod compute-effective-slot-definition ((class funcallable-standard-class)
  					      name
  
negative.code:   (compute-effective-slot-definition-aux
     class
     name
     direct-slot-definitions
     (effective-slot-definition-class class)))
  
  (defun compute-slots-aux (class)
    (let* ((superclasses (class-precedence-list class))
  	 (direct-slots (mapcar #'class-direct-slots superclasses))
  	 (concatenated (reduce #'append direct-slots))
  	 (reverse-slots (reverse direct-slots))
  	 (reverse-concatenated (reduce #'append reverse-slots))
  