summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--share/txr/stdlib/asm.tl2
-rw-r--r--share/txr/stdlib/compiler.tl2
2 files changed, 2 insertions, 2 deletions
diff --git a/share/txr/stdlib/asm.tl b/share/txr/stdlib/asm.tl
index a03ead4e..74ba5866 100644
--- a/share/txr/stdlib/asm.tl
+++ b/share/txr/stdlib/asm.tl
@@ -135,7 +135,7 @@
(defmeth assembler immediate-fits-type (me arg operand-type)
(and (member (typeof arg)
- '(fixnum bignum chr))
+ '(fixnum chr))
(<= (+ (width arg)
[me.sign-bits (typeof arg)]
2)
diff --git a/share/txr/stdlib/compiler.tl b/share/txr/stdlib/compiler.tl
index 886cad47..4275daf0 100644
--- a/share/txr/stdlib/compiler.tl
+++ b/share/txr/stdlib/compiler.tl
@@ -339,7 +339,7 @@
(defmeth compiler comp-atom (me oreg form)
(cond
((null form) (new (frag '(t 0) nil)))
- ((or (and (integerp form)
+ ((or (and (fixnump form)
(<= (width form) (- %imm-width% 3)))
(chrp form))
(new (frag oreg ^((movi ,oreg ,form)))))