- (inst lea result (make-ea :byte :base words :disp
- (+ (1- (ash 1 n-lowtag-bits))
- (* vector-data-offset n-word-bytes))))
+ (inst lea result (make-ea :byte :index words
+ :scale (ash 1 (- word-shift n-fixnum-tag-bits))
+ :disp (+ lowtag-mask
+ (* vector-data-offset n-word-bytes))))