From da0452752bbbd320d2bb293ea4c628f2f8d24b00 Mon Sep 17 00:00:00 2001
From: jjgarcia <jjgarcia>
Date: Thu, 19 Jun 2008 16:41:15 +0000
Subject: [PATCH] Failure in checking for integer constants.

---
 src/c/compiler.d | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/c/compiler.d b/src/c/compiler.d
index 718f64c18..fc70711b7 100644
--- a/src/c/compiler.d
+++ b/src/c/compiler.d
@@ -1936,7 +1936,7 @@ compile_form(cl_object stmt, int flags) {
 			cl_fixnum n;
 			if (stmt == Cnil) {
 				asm_op(push? OP_PUSHNIL : OP_NIL);
-			} else if (FIXNUMP(stmt) && (n = fix(stmt), abs(n)) <= MAX_OPARG) {
+			} else if (FIXNUMP(stmt) && (n = fix(stmt)) <= MAX_OPARG && n >= -MAX_OPARG) {
 				asm_op2(push? OP_PINT : OP_INT, n);
 			} else {
 				asm_op2c(push? OP_PUSHQ : OP_QUOTE, stmt);