X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=sidebyside;f=src%2Fcompiler%2Fsparc%2Fpred.lisp;h=9677a69ddf63cac30d10a3d4920e5665e264f6da;hb=02f7f85a6554b1ec233e9a515c4c511fe092565e;hp=3d0052823d1484d538bb6b38b3276af9173e28b2;hpb=5cf3c4259d529e180d75d4d140f344e600d2b06b;p=sbcl.git

diff --git a/src/compiler/sparc/pred.lisp b/src/compiler/sparc/pred.lisp
index 3d00528..9677a69 100644
--- a/src/compiler/sparc/pred.lisp
+++ b/src/compiler/sparc/pred.lisp
@@ -34,7 +34,7 @@
   (:generator 0
      (error "BRANCH-IF not yet implemented")))
 
-(!def-vm-support-routine
+(defun
     convert-conditional-move-p (node dst-tn x-tn y-tn)
   (declare (ignore node dst-tn x-tn y-tn))
   nil)