435 |
(push (list 'CVAR cvar) locs1) |
(push (list 'CVAR cvar) locs1) |
436 |
(case coersion |
(case coersion |
437 |
((nil) (wt "object V" cvar "= ") (wt-loc loc1)) |
((nil) (wt "object V" cvar "= ") (wt-loc loc1)) |
438 |
(FIXNUM-LOC (wt "int V" cvar "= ") (wt-fixnum-loc loc)) |
(FIXNUM-LOC (wt "fixnum V" cvar "= ") (wt-fixnum-loc loc)) |
439 |
(integer-loc (wt "GEN V" cvar "= ") (wt-integer-loc loc |
(integer-loc (wt "GEN V" cvar "= ") (wt-integer-loc loc |
440 |
'get-inline-locs)) |
'get-inline-locs)) |
441 |
(CHARACTER-LOC |
(CHARACTER-LOC |