166 |
((setq type.wt |
((setq type.wt |
167 |
(assoc ue |
(assoc ue |
168 |
'((return-fixnum fixnum . wt-fixnum-loc) |
'((return-fixnum fixnum . wt-fixnum-loc) |
169 |
|
(return-integer integer . wt-integer-loc) |
170 |
(return-character character . wt-character-loc) |
(return-character character . wt-character-loc) |
171 |
(return-short-float short-float . wt-short-float-loc) |
(return-short-float short-float . wt-short-float-loc) |
172 |
(return-long-float long-float . wt-long-float-loc) |
(return-long-float long-float . wt-long-float-loc) |