(make-ea :dword :base object
:disp (- (* (+ base offset) n-word-bytes) lowtag))
(logior (ash (char-code val) n-widetag-bits)
(make-ea :dword :base object
:disp (- (* (+ base offset) n-word-bytes) lowtag))
(logior (ash (char-code val) n-widetag-bits)
;; Else, value not immediate.
(storew value object (+ base offset) lowtag))))
;; Else, value not immediate.
(storew value object (+ base offset) lowtag))))