(dump-fop 'sb!impl::fop-normal-load fasl-file)
(let ((*cold-load-dump* t))
(dump-object name fasl-file))
(dump-fop 'sb!impl::fop-maybe-cold-load fasl-file)
(dump-fop 'sb!impl::fop-assembler-fixup fasl-file))
(:foreign
(dump-fop 'sb!impl::fop-normal-load fasl-file)
(let ((*cold-load-dump* t))
(dump-object name fasl-file))
(dump-fop 'sb!impl::fop-maybe-cold-load fasl-file)
(dump-fop 'sb!impl::fop-assembler-fixup fasl-file))
(:foreign