X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fmips%2Farith.lisp;h=f0cf8acf8ec4d26f223e31f9981325a6fa969ae0;hb=0c0d240960138dbea32ff6e3e65e6f16b1f2f7da;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)