(in-package "SB!VM")
-(!def-vm-support-routine generate-call-sequence (name style vop)
+(defun generate-call-sequence (name style vop)
(ecase style
((:raw :none)
(let ((jump (make-symbol "JUMP")))
(:temporary (:sc any-reg) ,jump)
(:save-p :compute-only)))))))
-(!def-vm-support-routine generate-return-sequence (style)
+(defun generate-return-sequence (style)
(ecase style
(:raw
`((inst blr)))