Fix raw-instance-slots-equalp on SPARC.

[sbcl.git] / src / code / target-defstruct.lisp

diff --git a/src/code/target-defstruct.lisp b/src/code/target-defstruct.lisp
index f397731..23de7d4 100644 (file)
--- a/src/code/target-defstruct.lisp
+++ b/src/code/target-defstruct.lisp
@@ -404,10 +404,14 @@
         for accessor = (when rsd
                          (raw-slot-data-accessor-name rsd))
         always (or (not accessor)
-                   (prog1
-                       (equalp (funcall accessor x i)
-                               (funcall accessor y i))
-                     (incf i (raw-slot-data-n-words rsd))))))
+                   (progn
+                     #!-(or x86 x86-64 ppc)
+                     (setf i (logandc2 (+ i (1- (raw-slot-data-alignment rsd)))
+                                       (1- (raw-slot-data-alignment rsd))))
+                     (prog1
+                         (equalp (funcall accessor x i)
+                                 (funcall accessor y i))
+                       (incf i (raw-slot-data-n-words rsd)))))))
 \f
 ;;; default PRINT-OBJECT method