+(defun offset-for-raw-slot (instance-length index n-words)
+ (+ (* (- instance-length instance-slots-offset index (1- n-words))
+ n-word-bytes)
+ (- instance-pointer-lowtag)))
+
+(define-vop (raw-instance-init/word)
+ (:args (object :scs (descriptor-reg))
+ (value :scs (unsigned-reg)))
+ (:arg-types * unsigned-num)
+ (:info instance-length index)
+ (:generator 4
+ (inst stw value object (offset-for-raw-slot instance-length index 1))))
+