(in-package "SB!VM")
-(file-comment
- "$Header$")
-
-(def-vm-support-routine generate-call-sequence (name style vop)
+(!def-vm-support-routine generate-call-sequence (name style vop)
(ecase style
(:raw
(values
`((inst jmp (make-fixup ',name :assembly-routine)))
nil))))
-(def-vm-support-routine generate-return-sequence (style)
+(!def-vm-support-routine generate-return-sequence (style)
(ecase style
(:raw
`(inst ret))