0.9.2.22:

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

diff --git a/src/compiler/mips/move.lisp b/src/compiler/mips/move.lisp
index 3854874..65368c3 100644 (file)
--- a/src/compiler/mips/move.lisp
+++ b/src/compiler/mips/move.lisp
@@ -239,7 +239,7 @@
     (inst sll y x 2)
       
     (pseudo-atomic
-       (pa-flag :extra (pad-data-block (+ bignum-digits-offset 2)))
+      (pa-flag :extra (pad-data-block (+ bignum-digits-offset 2)))
       (inst or y alloc-tn other-pointer-lowtag)
       (inst slt temp x zero-tn)
       (inst sll temp n-widetag-bits)