X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fsparc%2Fc-call.lisp;h=1d9cb53e0b8aa927955b7a35c7887add02a325a3;hb=f6b2e375747a54a1bfa34ead9f9af2d4e8b5aa38;hp=87f3a00f01342cb0c284cef040dcf9ddcfe957df;hpb=cd5a858174d892f876699373dc3ea389cf2c4d40;p=sbcl.git

diff --git a/src/compiler/sparc/c-call.lisp b/src/compiler/sparc/c-call.lisp
index 87f3a00..1d9cb53 100644
--- a/src/compiler/sparc/c-call.lisp
+++ b/src/compiler/sparc/c-call.lisp
@@ -87,7 +87,7 @@
                 (invoke-alien-type-method :result-tn type state))
             values)))
 
-(!def-vm-support-routine make-call-out-tns (type)
+(defun make-call-out-tns (type)
   (declare (type alien-fun-type type))
   (let ((arg-state (make-arg-state)))
     (collect ((arg-tns))