X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fmips%2Fmove.lisp;h=b8391996b13ae2fe47ada6bf30f427fcd5bb75ac;hb=2f8c59edcd41f03c5daebeaf87518b5071a19826;hp=dcaae735aec7acc659e1e235f468333548edd053;hpb=52cfe54802db8736f1f4e2b67764c43bba9b78b3;p=sbcl.git

diff --git a/src/compiler/mips/move.lisp b/src/compiler/mips/move.lisp
index dcaae73..b839199 100644
--- a/src/compiler/mips/move.lisp
+++ b/src/compiler/mips/move.lisp
@@ -210,7 +210,7 @@
       (inst sll y x 2)
 
       (with-fixed-allocation
-          (y pa-flag temp bignum-widetag (1+ bignum-digits-offset))
+          (y pa-flag temp bignum-widetag (1+ bignum-digits-offset) nil)
         (storew x y bignum-digits-offset other-pointer-lowtag))
       (inst b done)
       (inst nop)