X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fassembly%2Fhppa%2Fsupport.lisp;h=82c8d16bdcf92b8e61c35c81fb6d236b64795899;hb=e86533e804513080f610795b9d43ca36ad842467;hp=2a5e4e11f57a183002a4f773a434d550e1a648ca;hpb=0d74ed478e7f3af5d3292153726373763631aa8e;p=sbcl.git

diff --git a/src/assembly/hppa/support.lisp b/src/assembly/hppa/support.lisp
index 2a5e4e1..82c8d16 100644
--- a/src/assembly/hppa/support.lisp
+++ b/src/assembly/hppa/support.lisp
@@ -11,7 +11,7 @@
 
 (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)
      (with-unique-names (fixup)
@@ -52,7 +52,7 @@
                       ,nfp-save)
           (:save-p t)))))))
 
-(!def-vm-support-routine generate-return-sequence (style)
+(defun generate-return-sequence (style)
   (ecase style
     (:raw
      `((inst bv lip-tn :nullify t)))