X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fhppa%2Fpred.lisp;h=d6261fb02ca9bf1eeb966640c1adb014cefba792;hb=02f7f85a6554b1ec233e9a515c4c511fe092565e;hp=7721bd51d75a491ee06e6ebce2dc71c02afbbd14;hpb=5cf3c4259d529e180d75d4d140f344e600d2b06b;p=sbcl.git

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