anchor.diff:      ((name :initarg :name)              ; :accessor class-name
        (direct-superclasses               ; :accessor class-direct-superclasses
         :initarg :direct-superclasses)
  -     (direct-slots)                     ; :accessor class-direct-slots
  +     (direct-slots :initform ())        ; :accessor class-direct-slots
        (class-precedence-list)            ; :accessor class-precedence-list
  -     (effective-slots)                  ; :accessor class-slots
  +     (effective-slots :initform ())     ; :accessor class-slots
        (slot-storage-layout :initform ()) ; :accessor class-slot-storage-layout
        (direct-subclasses :initform ())   ; :accessor class-direct-subclasses
        (direct-methods :initform ())      ; :accessor class-direct-methods
        (direct-default-initargs :initform ()) ; :accessor class-direct-default-initargs
        (dependents :initform '())
  -     (hash :initform (next-class-hash-value)))
  +     (hash :initform (next-class-hash-value))
  +     (finalized-p :initform nil))
       (:default-initargs :name nil)))
   
   ;; STANDARD-CLASS and FUNCALLABLE-STANDARD-CLASS must have the same layout.
  
positive.code:     (setf (class-slot-storage-layout class)
            (make-array (length instance-slots)
                        :initial-contents (mapcar 'slot-definition-name instance-slots))))
    (values))
  
  ;;; Class precedence lists
  
negative.code: ;;; finalize-inheritance
  
  (defun std-finalize-inheritance (class)
    (dolist (super (class-direct-superclasses class))
      (ensure-class-finalized super))
    (setf (class-precedence-list class)
          (funcall (if (standardish-class-p (class-of class))
                       #'std-compute-class-precedence-list
  