anchor.diff:                       #'std-compute-slots
                        #'compute-slots)
                    class))
  +  (let ((instance-slots (remove-if-not 'instance-slot-p
  +                                       (class-slots class))))
  +    (setf (class-slot-cache class)
  +          (make-array (length instance-slots)
  +                      :initial-contents (mapcar 'slot-definition-name instance-slots))))
     (values))
   
   ;;; Class precedence lists
  
positive.code:   (slot-value class 'effective-slots))
  (defun (setf class-slots) (new-value class)
    (setf (slot-value class 'effective-slots) new-value))
  
  (defun class-direct-subclasses (class)
    (slot-value class 'direct-subclasses))
  
negative.code: 
  (defvar the-slots-of-standard-class) ;standard-class's class-slots
  (defvar the-class-standard-class)    ;standard-class's class metaobject
  (defvar *standard-class-effective-slots-position*) ; Position of the effective-slots slot in standard-class.
  (defvar *standard-class-slot-cache-position*)
  
  (defun slot-location (class slot-name)
    (if (and (eq slot-name 'effective-slots)
             (eq class the-class-standard-class))
        *standard-class-effective-slots-position*
        (let ((slot (find slot-name
                          (class-slots class)
                          :key #'slot-definition-name)))
  