X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=sidebyside;f=src%2Fassembly%2Fx86%2Fsupport.lisp;h=6721471c422f08c89e58fc3605efc2a35f7984f3;hb=eca808df33f27cdc23a8a3a845e211000119b630;hp=0c08cee256652fe66a230f28ecb236c55b3becea;hpb=cea4896b2482b7b2b429c1631d774b4cfbc0efba;p=sbcl.git

diff --git a/src/assembly/x86/support.lisp b/src/assembly/x86/support.lisp
index 0c08cee..6721471 100644
--- a/src/assembly/x86/support.lisp
+++ b/src/assembly/x86/support.lisp
@@ -9,7 +9,7 @@
 
 (in-package "SB!VM")
 
-(def-vm-support-routine generate-call-sequence (name style vop)
+(!def-vm-support-routine generate-call-sequence (name style vop)
   (ecase style
     (:raw
      (values
@@ -27,7 +27,7 @@
       `((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))