anchor.diff:                    (let* ((base-disp (- (* vector-data-offset n-word-bytes)
                                          other-pointer-lowtag))
                            (operand-size ,(if (= bitsize 32) :dword :qword))
  +                         (result-in-size (reg-in-size result operand-size))
                            ,@(when setterp
                                '((value (reg-in-size value* operand-size))))
                            ,@(when (and setterp big-endian-p)
  
positive.code:                                     (make-ea operand-size
                                               :base vector :index index
                                               :disp base-disp)))))
                      ,@(when (and setterp big-endian-p)
                          `((inst mov temp value)
                            (inst bswap temp)))
  
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)
  