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: (defgeneric compute-effective-slot-definition
      (class name direct-slot-definitions))
  
  ;;; Implement the behavior of compute-effective-slot-definition for
  ;;; standard-class and funcallable-standard-class.  By passing
  ;;; slot-definition-class as an argument rather than looking it up in
  ;;; this function, we can use this function for built-in classes as well. 
  (defun compute-effective-slot-definition-aux
      (class name direct-slot-definitions slot-definition-class)
    (let (allocation initargs initform initfunction type location)
      (setf allocation
  	  (slot-definition-allocation (first direct-slot-definitions)))
  