Get rid of vm-support-routines indirection.

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

diff --git a/src/compiler/hppa/pred.lisp b/src/compiler/hppa/pred.lisp
index 7721bd5..d6261fb 100644 (file)
--- a/src/compiler/hppa/pred.lisp
+++ b/src/compiler/hppa/pred.lisp
@@ -23,7 +23,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)