(: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 *)
(: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 (result :scs (descriptor-reg)))
(:result-types *)