anchor.diff:                                      (make-ea operand-size
                                                :base vector :index index
                                                :disp base-disp)))))
  +                    (declare (ignorable result-in-size))
                       ,@(when (and setterp big-endian-p)
                           `((inst mov temp value)
                             (inst bswap temp)))
  
positive.code:                   (let* ((base-disp (- (* vector-data-offset n-word-bytes)
                                         other-pointer-lowtag))
                           (operand-size ,(if (= bitsize 32) :dword :qword))
                           ,@(when setterp
                               '((value (reg-in-size value* operand-size))))
                           ,@(when (and setterp big-endian-p)
  
negative.code:                           (when big-endian-p
                              `((inst bswap
                                      ,(if (= bitsize 32)
                                           'result-in-size
                                           'result))
                                ,(when (and (= bitsize 32) signedp)
                                   `(inst movsx result result-in-size)))))))))))
      (loop for i from 0 upto #b1111
            for bitsize = (if (logbitp 3 i) 32 64)
            for setterp = (logbitp 2 i)
  