164 |
case aet_uchar: |
case aet_uchar: |
165 |
return small_fixnum(x->ust.ust_self[i]); |
return small_fixnum(x->ust.ust_self[i]); |
166 |
case aet_short: |
case aet_short: |
167 |
return make_fixnum(SHORT(x, i)); |
return make_fixnum(SHORT_GCL(x, i)); |
168 |
case aet_ushort: |
case aet_ushort: |
169 |
return small_fixnum(USHORT(x, i)); |
return small_fixnum(USHORT_GCL(x, i)); |
170 |
|
|
171 |
default: |
default: |
172 |
FEerror("unknown array type",0); |
FEerror("unknown array type",0); |
234 |
break; |
break; |
235 |
case aet_short: |
case aet_short: |
236 |
ASSURE_TYPE(val,t_fixnum); |
ASSURE_TYPE(val,t_fixnum); |
237 |
SHORT(x, i) = Mfix(val); |
SHORT_GCL(x, i) = Mfix(val); |
238 |
break; |
break; |
239 |
case aet_ushort: |
case aet_ushort: |
240 |
ASSURE_TYPE(val,t_fixnum); |
ASSURE_TYPE(val,t_fixnum); |
241 |
USHORT(x, i) = Mfix(val); |
USHORT_GCL(x, i) = Mfix(val); |
242 |
break; |
break; |
243 |
default: |
default: |
244 |
FEerror("unknown array type",0); |
FEerror("unknown array type",0); |