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