Get rid of vm-support-routines indirection.

[sbcl.git] / src / compiler / alpha / pred.lisp

diff --git a/src/compiler/alpha/pred.lisp b/src/compiler/alpha/pred.lisp
index d08b417..413eaab 100644 (file)
--- a/src/compiler/alpha/pred.lisp
+++ b/src/compiler/alpha/pred.lisp
@@ -33,7 +33,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)