anchor.diff:  ;; Common
   
   (defun machine-unit-size (type &optional stride)
  -  (if (typep type 'v-container)
  +  (if (typep type 'v-array)
         (progn
           (assert stride)
           (* (round-to-next-multiple (machine-unit-size (v-element-type type))
  
positive.code:    (aligned-offset :initarg :aligned-offset
                     :initform nil
                     :reader layout-aligned-offset)
     (machine-unit-size :initarg :machine-unit-size
                        :initform nil
                        :reader layout-machine-unit-size)
  
negative.code:             (base-alignment (round-to-next-multiple
                               (layout-base-alignment dummy)
                               (calc-vector-base-alignment
                                (type-spec->type :vec4))))
              (size (round-to-next-multiple
                     (machine-unit-size type base-alignment)
                     base-alignment)))
         (make-instance
          'std-140
          :name name
  