X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=sidebyside;f=src%2Fcompiler%2Fmips%2Farith.lisp;h=f0cf8acf8ec4d26f223e31f9981325a6fa969ae0;hb=02f7f85a6554b1ec233e9a515c4c511fe092565e;hp=70649f59628123f3dcd737035a0868abf82e68db;hpb=3b7fca49cbf6c48605e7ebc1f57caa3255ca5cfd;p=sbcl.git

diff --git a/src/compiler/mips/arith.lisp b/src/compiler/mips/arith.lisp
index 70649f5..f0cf8ac 100644
--- a/src/compiler/mips/arith.lisp
+++ b/src/compiler/mips/arith.lisp
@@ -859,7 +859,7 @@
     (inst sra digit fixnum n-fixnum-tag-bits)))
 
 (define-vop (bignum-floor)
-  (:translate sb!bignum:%floor)
+  (:translate sb!bignum:%bigfloor)
   (:policy :fast-safe)
   (:args (num-high :scs (unsigned-reg) :target rem)
          (num-low :scs (unsigned-reg) :target rem-low)