75 |
case aet_sf: return(make_shortfloat(STREF(shortfloat,x,s_pos[i]))); |
case aet_sf: return(make_shortfloat(STREF(shortfloat,x,s_pos[i]))); |
76 |
case aet_lf: return(make_longfloat(STREF(longfloat,x,s_pos[i]))); |
case aet_lf: return(make_longfloat(STREF(longfloat,x,s_pos[i]))); |
77 |
case aet_uchar: return(small_fixnum(STREF(unsigned char,x,s_pos[i]))); |
case aet_uchar: return(small_fixnum(STREF(unsigned char,x,s_pos[i]))); |
78 |
case aet_ushort: return(small_fixnum(STREF(unsigned short,x,s_pos[i]))); |
case aet_ushort: return(make_fixnum(STREF(unsigned short,x,s_pos[i]))); |
79 |
case aet_short: return(make_fixnum(STREF(short,x,s_pos[i]))); |
case aet_short: return(make_fixnum(STREF(short,x,s_pos[i]))); |
80 |
default: |
default: |
81 |
bad_raw_type(); |
bad_raw_type(); |