502 |
(defun wt-inline-fixnum (side-effectp fun locs) |
(defun wt-inline-fixnum (side-effectp fun locs) |
503 |
(declare (ignore side-effectp)) |
(declare (ignore side-effectp)) |
504 |
(when (zerop *space*) (wt "CMP")) |
(when (zerop *space*) (wt "CMP")) |
505 |
(wt "make_fixnum(") (wt-inline-loc fun locs) (wt ")")) |
(wt "make_fixnum((long)") (wt-inline-loc fun locs) (wt ")")) |
506 |
|
|
507 |
(defun wt-inline-integer (side-effectp fun locs) |
(defun wt-inline-integer (side-effectp fun locs) |
508 |
(declare (ignore side-effectp)) |
(declare (ignore side-effectp)) |