X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=sidebyside;f=src%2Fcompiler%2Fmips%2Ffloat.lisp;h=685c49d423349f080b8dba1acea058b8cb7a81d4;hb=0d51ca7e5e624dc3bad5c87e14211e8e6f7b3a45;hp=56323bb9a4770bb0ab922c6bc48e1d0ef1591a8e;hpb=f8841336df537830152819a8dd346f51a8a62869;p=sbcl.git

diff --git a/src/compiler/mips/float.lisp b/src/compiler/mips/float.lisp
index 56323bb..685c49d 100644
--- a/src/compiler/mips/float.lisp
+++ b/src/compiler/mips/float.lisp
@@ -608,7 +608,7 @@
                             pa-flag)
                 (:arg-types ,from-type)
                 (:result-types signed-num)
-                (:translate %unary-truncate)
+                (:translate ,name)
                 (:policy :fast-safe)
                 (:note "inline float truncate")
                 (:vop-var vop)