(:translate data-vector-ref)
(:policy :fast-safe)
(:args (object :scs (descriptor-reg))
- (index :scs (unsigned-reg)))
+ (index :scs (unsigned-reg)))
(:arg-types simple-array-nil positive-fixnum)
(:results (value :scs (descriptor-reg)))
(:result-types *)
+ (:ignore index value)
(:vop-var vop)
(:save-p :compute-only)
(:generator 1
(:translate data-vector-set)
(:policy :fast-safe)
(:args (object :scs (descriptor-reg))
- (index :scs (unsigned-reg))
- (value :scs (descriptor-reg)))
+ (index :scs (unsigned-reg))
+ (value :scs (descriptor-reg)))
(:arg-types simple-array-nil positive-fixnum *)
- (:results (value :scs (descriptor-reg)))
+ (:results (result :scs (descriptor-reg)))
(:result-types *)
+ (:ignore index value result)
(:vop-var vop)
(:save-p :compute-only)
(:generator 1