(let ((constants (sb!vm:sort-inline-constants *constant-vector*)))
(assemble (*constant-segment*)
(sb!vm:emit-constant-segment-header
(let ((constants (sb!vm:sort-inline-constants *constant-vector*)))
(assemble (*constant-segment*)
(sb!vm:emit-constant-segment-header