+(defun %vector-raw-bits (object offset)
+ (declare (type index offset))
+ (sb!kernel:%vector-raw-bits object offset))
+
+(defun %set-vector-raw-bits (object offset value)
+ (declare (type index offset))
+ (declare (type sb!vm:word value))
+ (setf (sb!kernel:%vector-raw-bits object offset) value))
+