anchor.diff:              (base-alignment (round-to-next-multiple
                                (layout-base-alignment dummy)
                                (calc-vector-base-alignment
  -                              (type-spec->type :vec4)))))
  +                              (type-spec->type :vec4))))
  +            (size (round-to-next-multiple
  +                   (machine-unit-size type base-alignment)
  +                   base-alignment)))
          (make-instance
           'std-140
           :name name
  
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:                     last-slot-aligned-offset
                      last-slot-machine-size
                      array-type)))
      ((v-typep type 'v-struct)
       (calc-struct-layout name
                           parent-type-aligned-offset
  