anchor.diff:  		 (setf all-supers (remove candidate all-supers))
   		 (setf relation (remove candidate relation :key #'car)))))
       (reverse reverse-result)))
  +
  +(defun compute-class-precedence-list (class)
  +  (compute-class-precedence-list-class class))
     
   ;; (defgeneric compute-class-prececence-list (class))
   
  
positive.code: 
  ;;; Implement the behavior of compute-effective-slot-definition
  ;;; for standard-class and funcallable-standard-class.
  (defun compute-effective-slot-definition-aux (class direct-slot-definitions)
    (let (allocation initargs initform initfunction type)
      (setf allocation
  	  (slot-definition-allocation (first direct-slot-definitions)))
  
negative.code: 	      initfunction (slot-definition-initfunction first-init))))
      (setf type
  	  `(and ,@(mapcar #'slot-definition-type direct-slot-definitions)))
      (let ((slot-definition-class (effective-slot-definition-class class)))
        (if (null initfunction)
  	  (make-instance slot-definition-class
  			 :name name
  			 :allocation allocation
  			 :initargs initargs
  			 :type type)
  	  (make-instance slot-definition-class
  			 :name name
  			 :allocation allocation
  			 :initargs initargs
  			 :initform initform
  			 :initfunction initfunction
  			 :type type)))))
  
  (defun compute-effective-slot-definition (class name direct-slot-definitions)
    (compute-effective-slot-definition-aux class name direct-slot-definitions))
  
  ;; (defmethod compute-effective-slot-definition ((class standard-class)
  ;; 					      direct-slot-definitions)
  