(if double-p
(str-double x y (- (* data n-word-bytes) other-pointer-lowtag))
(inst swc1 x y (- (* data n-word-bytes) other-pointer-lowtag))))))
(if double-p
(str-double x y (- (* data n-word-bytes) other-pointer-lowtag))
(inst swc1 x y (- (* data n-word-bytes) other-pointer-lowtag))))))