+(define-type-method type-alignment ((type vector) &key inlined)
+ (if inlined
+ (destructuring-bind (element-type &optional (length '*))
+ (rest (type-expand-to 'vector type))
+ (if (eq length '*)
+ (error "Can't inline vector with variable size: ~A" type)
+ (* (type-alignment element-type) length)))
+ (type-alignment 'pointer)))
+