X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fmips%2Fpred.lisp;h=7bd7c16f99c5e024275ffc3e9cffae30d5cf02c7;hb=f6b2e375747a54a1bfa34ead9f9af2d4e8b5aa38;hp=a5e62bbd9f17a375ca34da7fbca6c57d0ea3cc44;hpb=5cf3c4259d529e180d75d4d140f344e600d2b06b;p=sbcl.git

diff --git a/src/compiler/mips/pred.lisp b/src/compiler/mips/pred.lisp
index a5e62bb..7bd7c16 100644
--- a/src/compiler/mips/pred.lisp
+++ b/src/compiler/mips/pred.lisp
@@ -24,7 +24,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)