anchor.diff:          :base-offset base-offset
           :aligned-offset (calc-aligned-offset base-offset base-alignment)
           :base-alignment base-alignment
  -        :machine-unit-size (machine-unit-size type base-alignment))))
  +        :machine-unit-size size)))
       ;;
       (t (error "shiit"))))
   
  
positive.code: ;; Common
  
  (defun machine-unit-size (type &optional stride)
    (if (typep type 'v-container)
        (progn
          (assert stride)
          (* (round-to-next-multiple (machine-unit-size (v-element-type type))
  
negative.code:     ;;    following the array is rounded up to the next multiple of the base
      ;;    alignment.
      ((v-typep type 'v-array)
       (let* ((base-offset (calc-base-offset parent-type-aligned-offset
                                             last-slot-base-offset
                                             last-slot-aligned-offset
  