-#!+x86
-(progn
-(define-source-transform sb!kernel:%vector-raw-bits (thing index)
- `(sb!kernel:%raw-bits-with-offset ,thing ,index 2))
-
-(define-source-transform sb!kernel:%raw-bits (thing index)
- `(sb!kernel:%raw-bits-with-offset ,thing ,index 0))
-
-(define-source-transform sb!kernel:%set-vector-raw-bits (thing index value)
- `(sb!kernel:%set-raw-bits-with-offset ,thing ,index 2 ,value))
-
-(define-source-transform sb!kernel:%set-raw-bits (thing index value)
- `(sb!kernel:%set-raw-bits-with-offset ,thing ,index 0 ,value))
-
-(deftransform sb!kernel:%raw-bits-with-offset ((thing index offset) * * :node node)
- (fold-index-addressing 'sb!kernel:%raw-bits-with-offset
- sb!vm:n-word-bits sb!vm:other-pointer-lowtag
- 0 index offset))
-
-(deftransform sb!kernel:%set-raw-bits-with-offset ((thing index offset value) * *)
- (fold-index-addressing 'sb!kernel:%set-raw-bits-with-offset
- sb!vm:n-word-bits sb!vm:other-pointer-lowtag
- 0 index offset t))
-) ; PROGN
-