(mix result ,(ecase sb!c:*backend-byte-order*
(:little-endian
'(logand num most-positive-fixnum))
(:big-endian
'(ash num (- sb!vm:n-lowtag-bits)))))))
(declare (type index i end-1))
(mix result ,(ecase sb!c:*backend-byte-order*
(:little-endian
'(logand num most-positive-fixnum))
(:big-endian
'(ash num (- sb!vm:n-lowtag-bits)))))))
(declare (type index i end-1))
(mixf result ,(ecase sb!c:*backend-byte-order*
(:little-endian
'(logand num most-positive-fixnum))
(mixf result ,(ecase sb!c:*backend-byte-order*
(:little-endian
'(logand num most-positive-fixnum))