0.9.2.40:

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

diff --git a/src/compiler/mips/cell.lisp b/src/compiler/mips/cell.lisp
index 7a80016..860063b 100644 (file)
--- a/src/compiler/mips/cell.lisp
+++ b/src/compiler/mips/cell.lisp
@@ -335,8 +335,7 @@
     (inst addu lip offset object)
     (inst sw value lip (- (* instance-slots-offset n-word-bytes)
                          instance-pointer-lowtag))
-    (unless (location= result value)
-      (move result value))))
+    (move result value)))
 
 (define-vop (raw-instance-ref/single)
   (:translate %raw-instance-ref/single)