203 |
(wt "(fixnum)")(wt-inline-loc (caddr loc) (cadddr loc))) |
(wt "(fixnum)")(wt-inline-loc (caddr loc) (cadddr loc))) |
204 |
((and (consp loc) (eq (car loc) 'fixnum-value)) |
((and (consp loc) (eq (car loc) 'fixnum-value)) |
205 |
(wt "(fixnum)")(wt (caddr loc))) |
(wt "(fixnum)")(wt (caddr loc))) |
206 |
(t (wt "fix(" loc ")")))) |
(t (wt (if *safe-compile* "fixint(" "fix(") loc ")")))) |
207 |
|
|
208 |
(defun wt-integer-loc (loc &optional type |
(defun wt-integer-loc (loc &optional type |
209 |
&aux (avma t)(first (and (consp loc) (car loc)))) |
&aux (avma t)(first (and (consp loc) (car loc)))) |