(let ((cons-cells (if star (1- num) num)))
(pseudo-atomic
(allocation res (* (pad-data-block cons-size) cons-cells) node)
(let ((cons-cells (if star (1- num) num)))
(pseudo-atomic
(allocation res (* (pad-data-block cons-size) cons-cells) node)
(inst shl boxed (- n-widetag-bits word-shift))
(inst or boxed code-header-widetag)
(storew boxed result 0 other-pointer-lowtag)
(inst shl boxed (- n-widetag-bits word-shift))
(inst or boxed code-header-widetag)
(storew boxed result 0 other-pointer-lowtag)