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

diff --git a/src/compiler/hppa/pred.lisp b/src/compiler/hppa/pred.lisp
index 7721bd5..8c40e9a 100644
--- a/src/compiler/hppa/pred.lisp
+++ b/src/compiler/hppa/pred.lisp
@@ -23,8 +23,7 @@
   (:generator 0
      (error "BRANCH-IF not yet implemented")))
 
-(!def-vm-support-routine
-    convert-conditional-move-p (node dst-tn x-tn y-tn)
+(defun convert-conditional-move-p (node dst-tn x-tn y-tn)
   (declare (ignore node dst-tn x-tn y-tn))
   nil)