Simpler and more precise type derivation for APPEND/NCONC

[sbcl.git] / src / compiler / mips / float.lisp

diff --git a/src/compiler/mips/float.lisp b/src/compiler/mips/float.lisp
index 56323bb..685c49d 100644 (file)
--- 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)