- (let* ((pointer *static-space-free-pointer*) ; in words
- (free (* pointer n-word-bytes))
- (vector (logior free other-pointer-lowtag)) ; in bytes, yay
+ (let* ((pointer (ash *static-space-free-pointer* n-fixnum-tag-bits))
+ (vector (logior pointer other-pointer-lowtag))